3.png (59.92 KB, 下載次數(shù): 27)
下載附件
2022-5-15 19:36 上傳
ORG 0000H
AJMP MAIN
ORG 0030H
MAIN:
MOV P1,#0FFH
MOV P3,#0FFH
MOV P1,#0FEH
MOV R1,#00
LP:
ACALL LP2
MOV A,P1
RL A
INC R1
MOV P1,A
CJNE R1,#08,LP
MOV P1,#0FFH
MOV P3,#0FEH
MOV R2,#00
LP1:
ACALL LP2
MOV A,P3
RL A
INC R2
MOV P3,A
CJNE R2,#04,LP1
MOV P3,#0FEH
AJMP MAIN
LP2:
MOV 40H,#0FFH
LP3:
MOV 41H,#0FFH
DJNZ 41H,$
MOV 42H,#0FFH
DJNZ 42H,$
DJNZ 40H,LP3
RET
END
|