Flip-Flop

( Menghidupkan 4 Buah LED Bergantian )
$mod51
org 00h
mulai: mov p1, #00001111b
acall delay
mov p1, #11110000b
acall delay
sjmp mulai
;
; subrutin delay
;
delay: mov r0, #5
delay1: mov r1, #0FFh
delay2: mov r2, #0
djnz r2, $
djnz r1, delay2
djnz r0, delay1
ret
end