org 0h
mov P0,#0FFH
mulai:
mov A,#11111110b  ;11111101  11111011
mov r2,#5
putar:
mov P0,A
RL A
call tunda
DJNZ r2,putar
jmp mulai

;-------------------
; sub routine delay
;-------------------
tunda:	Mov	R0,#0FFH	; Isi Register R0 dengan FF (Hex)
Delay1: Mov	R1,#0FFH	; Isi Register R1 dengan FF (hex)
Delay2: Djnz   	R1,Delay2	; Kurangi R1 dengan 1, bila hasil belum
				; sama dengan 0 maka lompat ke Delay2
	Djnz	R0,Delay1	; Kurangi R0 dengan 1, bila hasil belum
				; sama dengan 0 maka lompat ke Delay1
	Ret			; Kembali ke alamat setelah perintah
				; 'call Delay'
	
end