text7.asm

刚学时编的小程序

ORG 0000H
START:ACALL JJ
JZ START
ACALL DELAY
JZ START
CLR P1.0  
ACALL FXJZ
ACALL ZX
JMP START
JJ:MOV P2,#0F0H
MOV A,P2
ORL A,#0FH
CPL A
RET
DELAY:MOV R2,#40
AA:MOV R3,#248
DJNZ R3,$
DJNZ R2,AA
RET
FXJZ:MOV A,P2
MOV 30H,#0FEH
ANL A,#0F0H
ORL A,30H
MOV R7,#04H
MOV R5,#00H
MM:MOV P2,A
JB P2.4,NEXT
MOV R6,#00H
AJMP AK
NEXT:JB P2.5,NEXT1
MOV R6,#04H
AJMP AK
NEXT1:JB P2.6,NEXT2
MOV R6,#08H
AJMP AK
NEXT2:JB P2.7,NEXT3
MOV R6,#0CH
AK:JNB P2.4,AK
JNB P2.5,AK
JNB P2.6,AK
JNB P2.7,AK
MOV A,R6
ADD A,R5
RS:RET
NEXT3:INC R5
RL A
DJNZ R7,MM
AJMP RS
ZX:CLR C
SUBB A,#07H
JC NN
CPL P1.7
SJMP PP
NN:CPL P1.5
PP:RET
END