Tugas Assembler Menampilkan Bilangan Genap 2 sampai 300

Nama    : SLAMET WIDODO
NPM     : 12429152
Kelas    : TI - B
-------------------------------------------------------------------------------------------------------------------------------
Menampilkan Bilangan Genap dari 2 sampai 300

Koding:
Cetak_Klm MACRO Klm
MOV AH,09
LEA DX,Klm
INT 21h
ENDM
CDesimal MACRO Angka
LOCAL Ulang,Cetak
MOV AX,Angka
MOV BX,10
XOR CX,CX
Ulang:
XOR DX,DX
DIV BX
PUSH DX
INC CX
CMP AX,0
JNE Ulang
Cetak:
POP DX
ADD DL,'0'
MOV AH,02
INT 21h
LOOP Cetak
ENDM

;/========================================\;
;  Fungsi : Mencari dan menampilkan angka    ;
;  genap dari 2 sampai 300 ;
;\========================================/;

.MODEL SMALL
.CODE
ORG 100h

TData: JMP Awal
Batas DW 302                                                                
Genap DW 0
I DW 2                                                                            
J DW 2
Spasi DB ' $'
Header DB 9,9,9,'Bilangan Genap 2 sampai 300 :  ',13,10
DB  9,9,9,'----------------------------',13,10,10,'$'
Awal:
Cetak_Klm Header
Proses:
MOV AX,Batas
CMP AX,I
JE Exit

ForI:
MOV J,2
MOV Genap,0
ForGenap:
MOV AX,Genap
CMP AX,0
JNE TambahI
MOV AX,I
MOV AX,J
JNE Tidak
CDesimal I
Cetak_Klm Spasi
MOV Genap,1
JMP TambahJ

Tidak:
MOV DX,0
MOV AX,I
MOV BX,J
DIV BX
CMP DX,0
JNE TambahJ
MOV Genap,1

TambahJ:
INC J
JMP ForGenap

TambahI:
ADD I,2
JMP Proses
Exit:
INT 20h
END TData

Hasil Running :