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 :)
Tidak ada komentar:
Posting Komentar