正Man's World

ORG 00H
JMP START
ORG 30H
START:
MOV P0,#00000000B
MOV P3,#00000000B
MOV A,#00000011B
BIGIN:
MOV P1,#11111100B
MOV P2,#00001111B
CALL DELAY
MOV P1,#00000000B
MOV P2,#00000000B
CALL DELAY
DJNZ ACC,BIGIN
JMP CASE
CASE:
MOV A,#0000011B
JMP BIGIN2
BIGIN2:
MOV P0,#11111111B
MOV P1,#00000011B
MOV P2,#11110000B
MOV P3,#11111111B
CALL DELAY
MOV P0,#00000000B
MOV P2,#00000000B
MOV P1,#00000000B
MOV P3,#00000000B
CALL DELAY
DJNZ ACC,BIGIN2
JMP CASE1
CASE1:
MOV A,#0000011B
JMP BIGIN3
BIGIN3:
MOV P0,#00000000B
MOV P1,#00000000B
MOV P2,#00000000B
MOV P3,#00000000B
CALL DELAY
CALL DELAY
CALL DELAY
CALL DELAY
MOV R2,#00000011B
JMP BIGIN4
BIGIN4:
MOV P1,#11000000B
MOV R0,#01000000B
MOV R1,#10000000B
MOV A,R0
RR A
MOV R0,A
MOV A,R1
RL A
MOV R1,A
CALL DELAY
JMP BIGIN5
BIGIN5:
MOV P1,R0
MOV P2,R1
MOV A,R0
RR A
MOV R0,A
MOV P1,R0
MOV A,R1
RL A
MOV R1,A
MOV P2,R1
CALL DELAY
JBC P1.0,BIGIN6
JMP BIGIN5
BIGIN6:
MOV P0,R0
MOV P2,R1
MOV A,R0
RR A
MOV R0,A
MOV P0,R0
MOV A,R1
RL A
MOV R1,A
MOV P2,R1
CALL DELAY
JBC P2.7 ,BIGIN7
JMP BIGIN6
BIGIN7:
MOV P0,R0
MOV P3,R1
MOV A,R0
RR A
MOV R0,A
MOV P0,R0
MOV A,R1
RL A
MOV R1,A
MOV P3,R1
CALL DELAY
JBC P0.0, BIGIN8
JMP BIGIN7
BIGIN8:
MOV P0,R0
MOV P3,R1
MOV A,R0
RR A
MOV R0,A
MOV P0,R0
MOV A,R1
RL A
MOV R1,A
MOV P3,R1
CALL DELAY
JBC P3.7, BIGIN8
JMP BIGIN4
CASE2:
DJNZ R2,AA
JMP BIGIN
AA:
JMP BIGIN
DELAY:
MOV R7,#02
L3:
MOV R6,#200
L2:
MOV R5,#248
NOP
L1:
DJNZ R5,L1
DJNZ R6,L2
DJNZ R7,L3
RET
END