1818.asm

常用子程序-61个-4.2M.rar

       	ORG	0000H
    	AJMP	MAIN
        ORG     001BH
        AJMP    SERVE
  MAIN:
       A8279_1 EQU    7FFFH
       A8279_2 EQU     7FFEH
       MOV      DPTR,#A8279_1
       MOV      A,#0D1H
       MOVX     @DPTR,A
 WAIT1:MOVX     A,@DPTR
       JB       ACC.7,WAIT1
       MOV      A,#00H
       MOVX     @DPTR,A
       MOV      A,#2CH
       MOVX     @DPTR,A

       MOV     TMOD,#10H
       MOV     20H,#14H
       CLR  A
       MOV 30H,A
       MOV 31H,A
       MOV 32H,A
       MOV 33H,A
       SETB  ET1
       SETB  EA
        MOV     TL1,#00H
        MOV     TH1,#4CH
        SETB    TR1
        ACALL  TRANS
	ACALL  LED
        SJMP    $

  SERVE:PUSH PSW
        PUSH ACC
	LCALL  TRANS
	LCALL  LED

        MOV     TL1,#00H
        MOV     TH1,#4CH
        DJNZ    20H,RETUNT
        MOV     20H,#14H

        MOV A,#01H
        ADD A,33H
        DA A
	    MOV 33H,A
        XRL A,#60H
	    JNZ RETUNT
        MOV 33H,#00H

        MOV A,#01H
        ADD A,32H
        DA A
	MOV 32H,A
        XRL A,#60H
	JNZ RETUNT
        MOV 32H,#00H

       MOV A,#01H
       ADD A,31H
       DA A
       MOV 31H,A
       XRL A,#25H
       JNZ RETUNT
       MOV 31H,#00H

       MOV A,#01H
       ADD A,30H
       DA A
       MOV 30H,A
       XRL A,#31H
       JNZ RETUNT
       MOV 30H,#00H

RETUNT:ACALL SEACH1
       POP ACC
       POP PSW
       RETI

TRANS: MOV R0,#33H
       MOV R1,#40H
       MOV R6,#04H
  LAST:MOV      A,@R0
       ANL      A,#0FH
       MOV      @R1,A
       MOV      A,@R0
       ANL      A,#0F0H
       SWAP     A
       INC  R1
       MOV      @R1,A
       INC  R1
       DEC R0
       DJNZ R6,LAST
       RET




   LED:MOV      DPTR,#A8279_1
       MOV      A,#90H
       MOVX      @DPTR,A
       MOV      R1,#40H

       MOV      R7,#08H
       MOV      DPTR,#7FFEH
  LOOP:MOV      A,@R1
       ADD      A,#17H
       MOVC     A,@A+PC
       MOV      @R1,A
       INC      R1
       DJNZ     R7,LOOP
       MOV      R7,#08H
       MOV      R1,#40H
       ORL   42H,#80H
       ORL   44H,#80H
       ORL   46H,#80H
 LOOP3:MOV  A,@R1
       MOVX @DPTR,A
       INC  R1
       DJNZ R7,LOOP3

       RET
       DB       3FH,06H,5BH,4FH,66H,6DH
       DB       7DH,07H,7FH,6FH




   KEY:MOV  DPTR ,#A8279_1
	MOV  A,#40H
	MOVX @DPTR,A
	MOV DPTR,#7FFEH
	MOVX A,@DPTR
	ANL A,#3FH

        CJNE A,#0CH,KEY1
        CLR  A
        MOV 30H,A
        MOV 31H,A
        MOV 32H,A
        MOV 33H,A
        AJMP RETUN

   KEY1:CJNE A,#0AH,KEY2
        ACALL SEACH2
        MOV DPTR ,#A8279_2
       	MOVX A,@DPTR
        ANL A,#3FH
        CJNE A,#06H,PTF1
   PTF1:JC NEXT2
        MOV 33H,#00H
        AJMP RETUN
  NEXT2:SWAP A
        MOV 33H,A
        ACALL SEACH2
        MOV DPTR, #A8279_2
       	MOVX A,@DPTR
        ANL A,#3FH
        CJNE A,#0AH,PTF2
   PTF2:JC NEXT3
        MOV 33H,#00H
        AJMP RETUN
   NEXT3:ORL 33H,A
        AJMP RETUN

   KEY2:CJNE A,#0BH,KEY3
        ACALL SEACH2
        MOV DPTR ,#A8279_2
       	MOVX A,@DPTR
        ANL A,#3FH
        CJNE A,#06H,PTF3
   PTF3:JC NEXT4
        MOV 32H,#00H
        AJMP RETUN
  NEXT4:SWAP A
        MOV 32H,A
        ACALL SEACH2
        MOV DPTR ,#A8279_2
       	MOVX A,@DPTR
        ANL A,#3FH
        CJNE A,#0AH,PTF4
   PTF4:JC NEXT5
        MOV 32H,#00H
        AJMP RETUN
   NEXT5:ORL 32H,A
        AJMP RETUN

   KEY3:CJNE A,#0DH,KEY4
        ACALL SEACH2
        MOV DPTR ,#A8279_2
       	MOVX A,@DPTR
        ANL A,#3FH
        SWAP A
        MOV 31H,A
        ACALL SEACH2
        MOV DPTR ,#A8279_2
       	MOVX A,@DPTR
        ANL A,#3FH
        ORL 31H,A
        MOV A,31H
        CJNE A,#25H,PTF6
   PTF6:JC RETUN
        MOV 31H,#00H
        AJMP RETUN

   KEY4:CJNE A,#0EH,RETUN
        ACALL SEACH2
        MOV DPTR,#A8279_2
       	MOVX A,@DPTR
        ANL A,#3FH
        SWAP A
        MOV 30H,A
        ACALL SEACH2
        MOV DPTR ,#A8279_2
        MOVX A,@DPTR
        ANL A,#3FH
        ORL 30H,A
        MOV A,30H
        CJNE A,#31H,PTF7
   PTF7:JC RETUN
        MOV 30H,#00H



  RETUN:RET



SEACH1:MOV      DPTR,#A8279_1
       MOVX     A,@DPTR
       ANL A,#07H
       JZ  RETUN4
       LJMP KEY
 RETUN4:RET
SEACH2:MOV      DPTR,#A8279_1
       MOVX     A,@DPTR
       ANL A,#07H
       JNZ  RETUN3
       SJMP SEACH2
 RETUN3:RET
END