Motor Stepper

( Memutar Balik Motor Stepper )
$mod51
org 00h
jmp mulai

mulai:
mov r0, #55 ( Mengatur Banyaknya Putaran #80 = 1,5 Putaran )
ulang1:
mov p0, #00001000b ( Perintah Putar Pertama Ke Kiri )
call tunda
mov p0, #00000100b
call tunda
mov p0, #00000010b
call tunda
mov p0, #00000001b
call tunda
djnz r0, ulang1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
mov r0, #55
ulang2:
mov p0, #00000001b ( Perintah Putar Ke Dua Ke Kanan )
call tunda
mov p0, #00000010b
call tunda
mov p0, #00000100b
call tunda
mov p0, #00001000b
call tunda
djnz r0, ulang2

jmp mulai

tunda: mov r4, #20 ( Mengatur Kecepatan Putar #50 = Lebih Lambat )
maning: mov r5, #255
kurang: dec r5
cjne r5, #00h, kurang
djnz r4, maning
ret
end