;Lakukan perbandingan a dan b,
;Jika A > B -> Lakukan D=A*B-C => 20
;Jika A = B ->
;- Bandingkan B dengan C
;- Jika B > C -> Lakukan D = A+B-C =>0
;- Jika B = C -> Lakukan D = A*B/C =>2,..
;- Jika B < C -> Lakukan D = A+B/C => 1
;- Jika A < B Lakukan D= A*C-B => 40
;Semua Hasil Dicetak Ditambah Kalimat Penjelasannya
INCLUDE PUSTAKA.MCR
.MODEL SMALL
.CODE
ORG 100h
Mulai : JMP Proses
Kal0 DB 13,10,'CONTOH CETAK KALIMAT DENGAN MACRO $'
Kal1 DB 13,10,'A = $'
Kal2 DB 13,10,'B = $'
Kal3 DB 13,10,'C = $'
Kal4 DB 13,10,'A*B-C = $'
Kal5 DB 13,10,'A+B-C = $'
Kal6 DB 13,10,'A*B/C = $'
Kal7 DB 13,10,'A+B/C = $'
Kal8 DB 13,10,'A*C-B = $'
a Dw 3
b Dw 4
c Dw 12
d Dw 0
Proses:
Cetak_Klm Kal0 ; Cetak Kalimat Kal0
Cetak_Klm Kal1
Cetak_Angka a
Cetak_Klm Kal2
Cetak_Angka b
Cetak_Klm Kal3
Cetak_Angka c
MOV AX,a
CMP AX,b
ja aBesar
je asama
jb aKecil
aBesar :
Cetak_Klm Kal4
Perkalian a,b
MOV d,AX
Pengurangan d,c
tampil
JMP Keluar
aKecil :
Cetak_Klm Kal8
Perkalian a,b
MOV d,AX
Pengurangan d,c
tampil
JMP Keluar
asama :
MOV AX,b
CMP AX,c
ja bBesar
je bsama
jb bKecil
bbesar :
Cetak_Klm Kal5
Perkalian a,b
MOV d,AX
Pengurangan d,c
tampil
JMP Keluar
bsama :
Cetak_Klm Kal6
Perkalian a,b
MOV d,AX
Pembagian d,c
tampil
JMP Keluar
bkecil :
Cetak_Klm Kal7
Pembagian b,c
MOV d,AX
Penjumlahan a,d
tampil
JMP Keluar
Keluar :
INT 20h
END Mulai
Sign up here with your email
ConversionConversion EmoticonEmoticon