jiaotongden.asm

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

	ORG	0000H
	AJMP	MAIN
	ORG	0003H
	AJMP	SEVER
	ORG	0030H
  MAIN:ADDR8279_1 EQU    0BFFFH
       ADDR8279_2 EQU    0BFFEH
  
       MOV      DPTR,#ADDR8279_1
       MOV      A,#0D1H
       MOVX     @DPTR,A
  WAIT:MOVX     A,@DPTR
       JB       ACC.7,WAIT
       MOV      A,#00H
       MOVX     @DPTR,A
       MOV      A,#2CH
       MOVX     @DPTR,A
       
       SETB	EA
	   SETB	EX0
	   CLR	IT0
	   CLR 00H
	   CLR 01H
	    
	   MOV 60H,#05H      ;起始5秒
	   MOV 61H,#05H    ; ;；5秒显示
	   MOV 62H,#14H      ;20秒
	   MOV 63H,#20H     ;；20秒显示
	   MOV 64H,#03H     ;；3秒
	   MOV 65H,#03H     ;；3秒显示 
	   MOV 66H,#0AH     ; ；10秒
	   MOV 67H,#10H     ; ；10秒显示
	    
 MAIN1:LCALL  SEACH1 
       AJMP   START             ;; JBC  00H,START 
	   AJMP MAIN1   
 START:MOV     34H,61H
       MOV	R2,60H
       MOV     R0,#0FH
	   LCALL	PTFO1
    S1:MOV     34H,63H
	   MOV	R0,#96H
	   MOV	R2,62H
       LCALL   PTFO1
         
        MOV     R2,64H
        MOV     34H,65H
        MOV     35H,#9FH
        MOV     36H,#06H
        LCALL   PTFO2

        MOV     R2,62H
        MOV     34H,63H
        MOV     R0,#69H
        LCALL   PTFO1

        MOV     R2,64H
        MOV     34H,65H
        MOV     35H,#6FH
        MOV     36H,#09H
        LCALL   PTFO2
        AJMP    S1
  SEVER:CLR   EX0
        PUSH  34H
        PUSH  30H
        PUSH  31H
        PUSH  PSW
        PUSH  DPH
        PUSH  DPL
        MOV   40H,A
        MOV   41H,R7
        MOV   42H,R1 
        MOV   34H,67H
	    MOV   P1,#0FH
        MOV   R6,66H
  LAST1:LCALL PTFO3
        LCALL LED  
        LCALL DELAY2
    	DJNZ R6,LAST1
        MOV     P1,R0
        MOV A,40H
        MOV R7,41H
        MOV R1,42H
        POP  DPL
        POP  DPH
        POP  PSW
        POP  31H
        POP  30H
        POP  34H 
        SETB EX0
        RETI
  
  PTFO1:MOV     P1,R0
        LCALL   PTFO3
        LCALL   LED
        LCALL   DELAY2
        MOV      DPTR,#ADDR8279_1   
        MOVX     A,@DPTR
        ANL A,#07H
        JZ  NEXT1  
        LCALL  KEY
        JBC  01H,NEXT11 
 NEXT1: DJNZ    R2,PTFO1
        RET
 NEXT11:LCALL  SEACH1
        JBC 00H,NEXT1 
        SJMP NEXT11          
  PTFO2:MOV     R0,35H
        MOV     P1,R0
        LCALL   PTFO3
        LCALL   LED
        LCALL   DELAY1
        MOV     R0,36H
        MOV     P1,R0
        LCALL   DELAY1
        MOV      DPTR,#ADDR8279_1   
        MOVX     A,@DPTR
        ANL A,#07H
        JZ  NEXT2  
        LCALL  KEY
        JBC 01H,NEXT12 
 NEXT2: DJNZ    R2,PTFO2
        RET
 NEXT12:LCALL  SEACH1
        JBC 00H,NEXT2
        SJMP NEXT12          
 DELAY1:MOV     R7,#0AH
        AJMP    DELAY
 DELAY2:MOV     R7,#14H
  DELAY:CLR     EX0
        MOV     TMOD,#01H
        MOV     TL0,#00H
        MOV     TH0,#4CH
        SETB    TR0
   HERE:JBC     TF0,NEXT13
        SJMP    HERE
  NEXT13:MOV     TL0,#00H
         MOV     TH0,#4CH
         DJNZ    R7,HERE
         CLR     TR0
         SETB    EX0
         RET
  
   LED:MOV      DPTR,#ADDR8279_1
       MOV      A,#90H
       MOVX      @DPTR,A
       MOV      R1,#30H
       MOV      R7,#02H
       MOV      DPTR,#ADDR8279_2
  LOOP:MOV      A,@R1
       ADD      A,#05H
       MOVC     A,@A+PC
       MOVX     @DPTR,A
       INC      R1
       DJNZ     R7,LOOP
       RET
       DB       3FH,06H,5BH,4FH,66H,6DH
       DB       7DH,07H,7FH,6FH 
 PTFO3:MOV      A, 34H
       CLR      C
       SUBB     A,#01H
       JNB      PSW.6,NEXT
       CLR      C
       SUBB     A,#06H
  NEXT:MOV      34H,A
       ANL      A,#0FH
       MOV      30H,A
       MOV      A,34H
       ANL      A,#0F0H
       SWAP     A
       MOV     31H,A
       RET  
       
KEY:MOV  DPTR ,#ADDR8279_1
	MOV  A,#40H
	MOVX @DPTR,A
	MOV DPTR,#ADDR8279_2
	MOVX A,@DPTR
	ANL A,#3FH
        
    CJNE A,#0AH,KEY1
    SETB 00H
    AJMP RETUN 
     


KEY1:CJNE A,#0BH,KEY2
     SETB 01H
     AJMP RETUN 
   
KEY2:CJNE A,#0CH,KEY3
     ACALL SEACH2
     MOV DPTR ,#ADDR8279_2
     MOVX A,@DPTR
     ANL A,#3FH
     CJNE A,#09H,ERROR1
ERROR1:JC NEXT3
        MOV 61H,#05H
        AJMP RETUN
  NEXT3:SWAP A   
        MOV 61H,A
        ACALL SEACH2
        MOV DPTR, #ADDR8279_2
       	MOVX A,@DPTR 
        ANL A,#3FH
        CJNE A,#09H,ERROR2
   ERROR2:JC   NEXT4 
        MOV 61H,#05H
        AJMP RETUN
  NEXT4:ORL 61H,A 
        MOV A,61H
        LCALL BCDH
        MOV 60H,A 
        AJMP RETUN 
           
 KEY3:CJNE A,#0DH,KEY4
     ACALL SEACH2
     MOV DPTR, #ADDR8279_2
     MOVX A,@DPTR
     ANL A,#3FH
     CJNE A,#09H,ERROR3
ERROR3:JC NEXT5
        MOV 63H,#20H
        AJMP RETUN
  NEXT5:SWAP A   
        MOV 63H,A
        ACALL SEACH2
        MOV DPTR ,#ADDR8279_2
       	MOVX A,@DPTR 
        ANL A,#3FH
        CJNE A,#09H,ERROR4
 ERROR4:JC   NEXT6 
        MOV 63H,#20H
        AJMP RETUN
  NEXT6:ORL 63H,A 
        MOV A,63H
        LCALL BCDH
        MOV 62H,A 
        AJMP RETUN   
        
 KEY4:CJNE A,#0EH,KEY5
     ACALL SEACH2
     MOV DPTR ,#ADDR8279_2
     MOVX A,@DPTR
     ANL A,#3FH
     CJNE A,#09H,ERROR5
ERROR5:JC NEXT7
        MOV 65H,#03H
        AJMP RETUN
  NEXT7:SWAP A   
        MOV 65H,A
        ACALL SEACH2
        MOV DPTR ,#ADDR8279_2
       	MOVX A,@DPTR 
        ANL A,#3FH
        CJNE A,#09H,ERROR6
  ERROR6:JC   NEXT8 
        MOV 65H,#03H
        AJMP RETUN
  NEXT8:ORL 65H,A 
        MOV A,65H
        LCALL BCDH
        MOV 64H,A 
        AJMP RETUN 
        
 KEY5:CJNE A,#0FH,RETUN 
     ACALL SEACH2
     MOV DPTR ,#ADDR8279_2
     MOVX A,@DPTR
     ANL A,#3FH
     CJNE A,#09H,ERROR7
ERROR7:JC NEXT9
        MOV 67H,#10H
        AJMP RETUN
  NEXT9:SWAP A   
        MOV 67H,A
        ACALL SEACH2
        MOV DPTR, #ADDR8279_2
       	MOVX A,@DPTR 
        ANL A,#3FH
        CJNE A,#09H,ERROR8
ERROR8:JC   NEXT10
        MOV 67H,#10H
        AJMP RETUN
  NEXT10:ORL 67H,A 
        MOV A,67H
        LCALL BCDH
        MOV 66H,A 
        AJMP RETUN                       
 RETUN: RET
      
  
SEACH1:MOV      DPTR,#ADDR8279_1   
       MOVX     A,@DPTR
       ANL A,#07H
       JZ  RETUN1  
       LJMP KEY
RETUN1:RET 
SEACH2:MOV      DPTR,#ADDR8279_1   
       MOVX     A,@DPTR
       ANL A,#07H
       JNZ  RETUN3
       SJMP SEACH2
RETUN3:RET     
    ;;（２０）标号：ＢＣＤＨ    功能：单字节ＢＣＤ码整数转换成单字节十六进制整数

;;入口条件：待转换的单字节ＢＣＤ码整数在累加器A中。
;;;出口信息：转换后的单字节十六进制整数仍在累加器A中。
;;;;;影响资源：PSW、A、B、R4    堆栈需求：  ２字节

BCDH:	MOV	B,#10H	;;；分离十位和个位
	DIV	AB
	MOV	R4,B	;;；暂存个位
	MOV	B,#10	;;;；将十位转换成十六进制
	MUL	AB
	ADD	A,R4	;;;;;；按十六进制加上个位
	RET

       
END