HMPSTI Unikama Blogs - Berikut saya sajikan untuk membuat sebuah karakter berjalan pada assembly dengan kecepatan yang semakin lama semakin Cepat . ..
Script :
.model small
.code
org 100h
pross:
mov cx,5 ;jumlah arrow
mov dl,3eh ;kode ASCII arrow
mules:
mov bl,dl ;pindah ke DL
call cetak ;panggil cetak
push cx ;simpan CX
mov cx,6000 ;kceptan 1000
mules2:
call waitt ;
panggil waitt
loop mules2 ;lompat MULES2
pop cx ;ambil
loop mules ;MULES
int 20
mulek:
call cetak
mov cx,1000
mulesk:
call waitt
loop mulesk
pop cx
loop mulek
cetak proc near
push ax ;simpan
mov ah,02h ;awal cetak karakter
int 21h ;cetak
pop ax ;ambil
ret ;kembali
cetak endp
waitt proc near
push cx ;simpan
xor cx,cx ;nol kan
lop:
loop lop
pop cx
ret
waitt endp
end pross
Sampai disini sudah selesai, jika article ini bermanfaat silahkan tinggalkan komentar anda.
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment
Terimakasih Atas Komentar Anda, Salam JOSS dari HMPS TI UNIKAMA