正Man's World

ORG 00H
JMP START
ORG 30H
START:
MOV A,#00000001B
MOV P1,#00000000B
MOV P2,#00000000B
MOV P3,#00000000B

BIGIN:
MOV P0,A
CALL DELAY
RLC A
JNB ACC.0,BIGIN
JMP BIGIN2

BIGIN2:
MOV P1,A
CALL DELAY
RLC A
JNB ACC.0,BIGIN2
JMP BIGIN3

BIGIN3:
MOV P2,A
CALL DELAY
RLC A
JNB ACC.0,BIGIN3
JMP BIGIN4

BIGIN4:
MOV P3,A
CALL DELAY
RLC A
JNB ACC.0,BIGIN4
JMP BIGIN

DELAY:
MOV R7,#01
L3:
MOV R6,#200
L2:
MOV R5,#248
NOP
L1:
DJNZ R5,L1
DJNZ R6,L2
DJNZ R7,L3
RET
END