14433.asm

AD14433和AT89C51子程序已做实验.QQ403553171

       ORG   0000H
       LJMP  MAIN
       ORG   0030H
MAIN:  CLR   20H
       CLR   21H
       CLR   22H
       SETB  P3.0
       CLR   P2.4
       CLR   P2.5
       SETB  P2.6
YC1:   LCALL DD1
YC2:   LCALL KEY
       JB    21H,YC1
       LCALL DISP
       JB    22H,DANC
       LJMP  YC1
;-----------------------
DANC:  JB    20H,YC1
       AJMP  YC2
DD1:   JB    P3.2,DD1
LL1:   MOV   A,P1
       JNB   ACC.4,LL1
       JB    ACC.0,ERR
LL2:   JNB   ACC.3,LLQ
       CLR   A
       MOV   33H,A
       AJMP  LLB
LLQ:   MOV   A,#01H
       MOV   33H,A
LLB:   MOV   A,P1
       JNB   ACC.5,LLB
       ANL   A,#0FH
       MOV   32H,A
LLS:   MOV   A,P1
       JNB   ACC.6,LLS
       ANL   A,#0FH
       MOV   31H,A
LLG:   MOV   A,P1
       JNB   ACC.7,LLG
       ANL   A,#0FH
       MOV   30H,A
       RET
ERR:   SETB  21H
       RET
KEY:   MOV   DPTR,#7FFFH
       MOVX  A,@DPTR
       JNB   ACC.0,KEY0
       JNB   ACC.1,KEY1
       JNB   ACC.2,KEA
       JNB   ACC.3,KEB
       JNB   ACC.4,KEC
       JNB   ACC.5,KED
       RET
KEA:   AJMP  KEY2
KEB:   AJMP  KEY3
KEC:   AJMP  KEY4
KED:   AJMP  KEY5
KEY0:  SETB  P3.0
       CLR   P2.4
       CLR   P2.5
       SETB  P2.6
       LCALL DD1
       JB    21H,PLCH
       LCALL DISP
       RET
PLCH:  MOV   A,P1
       JNB   ACC.3,GLC
QLC:   SETB  P3.0
       CLR   P2.4
       SETB  P2.5
       CLR   P2.6
       LCALL DD1
       LCALL DISP
       RET
GLC:   CLR   P3.0
       SETB  P2.4
       CLR   P2.5
       SETB  P2.6
       LCALL DD1
       LCALL DISP
       RET
KEY1:  SETB  P3.0
       CLR   P2.4
       CLR   P2.5
       SETB  P2.6
       LCALL DD1
       JB    21H,PLC1
       LCALL DISP
       RET
PLC1:  MOV   A,P1
       JNB   ACC.3,GLC1
       MOV   A,#0C7H
       AJMP  LP1
GLC1:  MOV   A,#49H
LP1:   LCALL XSBZ
       RET
KEY2:  CLR   P3.0
       SETB  P2.4
       CLR   P2.5
       SETB  P2.6
       LCALL DD1
       JB    21H,PLC2
       LCALL DISP
       RET
PLC2:  MOV   A,P1
       JNB   ACC.3,GLC2
       MOV   A,#0C7H
       AJMP  LP2
GLC2:  MOV   A,#49H
LP2:   LCALL XSBZ
       RET
KEY3:  SETB  P3.0
       CLR   P2.4
       SETB  P2.5
       CLR   P2.6
       LCALL DD1
       JB    21H,PLC3
       LCALL DISP
       RET
PLC3:  MOV   A,P1
       JNB   ACC.3,GLC3
       MOV   A,#0C7H
       AJMP  LP3
GLC3:  MOV   A,#49H
LP3:   LCALL XSBZ
       RET
XSBZ:  CLR   P2.0
       SETB  P2.1
       SETB  P2.2
       SETB  P2.3
       MOV   DPTR,#7FFFH
       MOVX  @DPTR,A
       LCALL DELAY
       RET
KEY4:  CPL   22H
       RET
KEY5:  SETB  20H
       RET
DISP:  MOV   R0,#30H
       MOV   DPTR,#TABLE
       MOV   A,@R0
       MOVC  A,@A+DPTR
       MOV   DPTR,#7FFFH
       MOVX  @DPTR,A
       CLR   P2.0
       LCALL DELAY
       INC   R0
       MOV   DPTR,#TABLE
       MOV   A,@R0
       MOVC  A,@A+DPTR
       MOV   DPTR,#7FFFH
       MOVX  @DPTR,A
       CLR   P2.1
       LCALL DELAY
       INC   R0
       MOV   DPTR,#TABLE
       MOV   A,@R0
       MOVC  A,@A+DPTR
       MOV   DPTR,#7FFFH
       MOVX  @DPTR,A
       CLR   P2.2
       LCALL DELAY
       INC   R0
       MOV   DPTR,#TABLE
       MOV   A,@R0
       MOVC  A,@A+DPTR
       MOV   DPTR,#7FFFH
       MOVX  @DPTR,A
       CLR   P2.0
       LCALL DELAY
       RET
TABLE: DB    0C0H,0F9H,0A4H,0B0H,99H
       DB    92H,82H,0F8H,80H,90H
DELAY:MOV   R3,#08H
LOOP:  MOV   R4,#0A0H
       DJNZ  R4,$
       DJNZ  R3,LOOP
       RET
       END