Menghidupkan LED

( Menghidupkan LED Dari Tengah Ke Samping )
$mod51
org 00h
mulai: mov p1, #00011000b
acall delay
mov p1, #00111100b
acall delay
mov p1, #01111110b
acall delay
mov p1, #11111111b
acall delay
mov p1, #00000000b
acall delay
sjmp mulai
;
; subrutin delay
;
delay: mov r0, #1
delay1: mov r1, #0FFh
delay2: mov r2, #0
djnz r2, $
djnz r1, delay2
djnz r0, delay1
ret
end