.Model small
.Code
ORG 100H

Awal :
JMP Mulai
Kal DB'Menambahkan dan Mengalikan Angka',13,10,'$'
Kosong DB' ',13,10,'$'
Kal1 DB'Hasil Penambahan :',13,10,'$'
Kal2 DB'Hasil Perkalian :',13,10,'$'
Selesai DB'Selesai',13,10,'$'
A DW 03H
B DW 05H

Mulai :

Mov AH, 09H
Mov DX,Offset Kal
Int 21H

Mov AX,A
Call Ctkdec

Mov AH, 09H
Mov DX,Offset kosong
Int 21H

Mov BX, B
Call Ctkdec

Mov AH, 09H
Mov DX, Offset Kosong
Int 21H

Mov AX,A
Mov BX,B
Mov AX,BX
Mov AX,AX

Call Ctkdec

Mov AH, 09H
Mov DX,Offset Kosong
Int 21H

Mov AX,A
MUL B

Call Ctkdec

Mov AH, 09H
Mov DX,Offset Kosong
Int 21H

Mov AH, 09H
Mov DX,Offset Selesai
Int 21H
Int 20H

Ctkdec Proc Near
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, 02H
INT 21H
LOOP CETAK
RET

Ctkdec EndP
End Awal