Selasa, 11 Februari 2014

Belajar Bahasa Rakitan : Mencetak tulisan yang bisa bergerak dengan loop

org 100h
start:jmp proses
kal1 db "move"
proses: 
mov AX,1300h ; servis ah=13h
mov dl,20    ; x
mov dh,1     ; y
mov cx,20    ; untuk looping 20x
             ; jika lebih, maka akan dicetak dinext page (warna biru)
ulang:
push cx
inc dh
mov bx,95h
mov cx,16
lea bp,kal1
int 10h
time:
dec dh
mov bx,0h
mov cx, 16
lea bp,kal1
int 10h
inc dh ; memblank-kan tulisan (20,1=20,x) tulisan blank
pop cx ; mengeluarkan loop, agar tdk loop terus menerus
loop ulang  
jmp exit
waktu:
mov cx,50
data:
loop data
exit:
int 20h
ret

silahkan coba script diatas dan lihat bagaimana hasilnya :)