latihan XVIII

waduuhh gak kerasa udah mau pagi nie broo..
waktu'a posting latihan XVIII ,, di cicil dulu mumpung Ibu negara lagi dinas kluar jadi kita manfaatkan malam ini buat posting tugas :D hahaha

nah ini nie koding nya
   
    tulis_kar MACRO    X,Y Kar,attr
    mov ax, 0b800h
    mov es,ax
   
    mov ah,y
    mov al,160
    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 15 7 'A' 96
tulis_kar 16 7 'D' 96
tulis_kar 17 7 'I' 96
tulis_kar 18 7 ' ' 96
tulis_kar 19 7 'H' 96
tulis_kar 20 7 'E' 96
tulis_kar 21 7 'R' 96
tulis_kar 22 7 'I' 96
tulis_kar 23 7 'Y' 96
tulis_kar 24 7 'A' 96
tulis_kar 25 7 'N' 96
tulis_kar 26 7 'T' 96
tulis_kar 27 7 'O' 96
tulis_kar 28 7 '(' 9
tulis_kar 29 7 '1' 8
tulis_kar 30 7 '1' 8
tulis_kar 31 7 '4' 8
tulis_kar 32 7 '2' 8
tulis_kar 33 7 '9' 8
tulis_kar 34 7 '0' 8
tulis_kar 35 7 '0' 8
tulis_kar 36 7 '3' 8
tulis_kar 37 7 ')' 9
int 20h
end proses



dari koding tersebut maka kita akan mendapatkan output seperti berikut

 

nah cukup 

sekian untuk latihan kali ini terimakasih :)