程序ORG 0000H
LJMP START
ORG 0100H
START: MOV A,#02H
CLR C
MOV R1,#02H
M1: MOV R1,#08H
LOOP: RLC A
MOV P1,A
CALL DELAY
DJNZ R2,LOOP
DJNZ R1,M1
MOV R1,#02H
M2: MOV R2,#07H
LOOP1: RRC A
MOV P1,A
CALL DELAY
DJNZ R2,LOOP1
DJNZ R1,M1
MOV R1,#02H
M3: MOV R2,#0FFH
CALL DELAY
MOV P1,#00H
CALL DELAY
DJNZ R1,M3
JMP START
DELAY: MOV R3,#20
D1: MOV R4,#20
D2: MOV R5,#248
DJNZ R5,$
JNZ R4,D2
DJNZ R3,D1
RET
END |
