PRAKTIKUM 18

 

Tulis_Kar MACRO  X,Y,Kar,Attr
MOV AX,0B800h
MOV ES,AX

MOV AH,Y
MOV AL,160
MUL AH
MOV BX,AX

MOV AH,X
MOV AL,2
MUL AH
ADD BX,AX

MOV AL,Kar
MOV AH,Attr
MOV ES:[BX],AL
MOV ES:[BX+1],AH
ENDM

.MODEL SMALL
.CODE
ORG 100h
Proses:
Tulis_Kar 40 12 '1' 95
Tulis_Kar 41 12 '2' 95
Tulis_Kar 42 12 '4' 95
Tulis_Kar 43 12 '2' 95
Tulis_Kar 44 12 '9' 95
Tulis_Kar 45 12 '0' 95
Tulis_Kar 46 12 '2' 95
Tulis_Kar 47 12 '4' 95
INT 20h
END Proses