Menggunakan Macro Pangkat / Kuadrat - a blog of a local hero wannabe

;Terdapat Sebuah a=4, b=8, c=12 dan sebuah bilangan D yang digunakan untuk menampung hasil operasi aritmatika bilangan-bilangan tersebut.
;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= A2
;Semua Hasil Dicetak Ditambah Kalimat Penjelasannya

INCLUDE PUSTAKA.MCR
.MODEL SMALL
.CODE
ORG 100h

Mulai : JMP Proses
        Kal0 DB 13,10,'PENYELESAIAN $'
        Kal1 DB 13,10,'A = $'
        Kal2 DB 13,10,'B = $'
        Kal3 DB 13,10,'C = $'
        Kal4 DB 13,10,'Karena A > B, maka A*B-C = $'
        Kal5 DB 13,10,'Karena A = B dan B > C, maka A+B-C = $'
        Kal6 DB 13,10,'Karena A = B dan B = C, maka A*B/C = $'
        Kal7 DB 13,10,'Karena A = B dan B < C, maka A+B/C = $'
        Kal8 DB 13,10,'Karena A < B, maka A Kuadrat = $'
        a Dw 4
        b Dw 8
        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
            Kuadrat a
            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