Program Menampilkan Bilangan Genap

Contoh program menampilkan bilangan genap dari 1 - 300 :

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 0 sampai 300                          ;
;\========================================/;

.MODEL SMALL
.CODE
ORG 100h

TData: JMP Awal
Batas DW 300                                                                 
Bil DW 0
I DW 2                                                                             
J DW 2
Spasi DB ' $'
Header DB 9,9,9,'Bilangan Genap 1 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 Bil,0

ForBil:
MOV AX,Bil
CMP AX,0
JNE TambahI
MOV AX,I
MOV AX,J
JNE Tidak
CDesimal I
Cetak_Klm Spasi
MOV Bil,1
JMP TambahJ

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

TambahJ:
INC J
JMP ForBil

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

Output :

Untuk menampilkan bilangan ganjil, ganti I DW menjadi 1 dan BATAS DW menjadi 301.