单片机led广告屏设计与开发 第7页
 MOV P3,A
        MOV A,P1
        CPL A
        ANL A,#0FH
        RET

GET_KEY: MOV A,#0FEH
G_IT1:  MOV P1,#0FFH
        MOV P3,A
        PUSH A
        MOV A,P1
        CPL A
        JNZ STORE
        POP A
        RL A
        SJMP G_IT1
STORE:  MOV R7,A    
        POP A      
        CPL A
        MOV R6,A
        RET

GET_K_NUM:MOV A,R7
        MOV R4,#00H
ROL1:   RR A
JNB ACC.7,COUNT1
        SJMP OK1
COUNT1: INC R4
        SJMP ROL1
OK1:    MOV A,R4
        MOV R7,A    

        MOV A,R6
        MOV R4,#00H
ROL2:   RR A
        JNB ACC.7,COUNT2
        SJMP OK2
COUNT2: INC R4
        SJMP ROL2

OK2:    MOV A,R4   
        MOV B,#04H
        MUL AB
        ADD A,R7
        MOV DPTR,#NUMB
        MOVC A,@A+DPTR
        MOV R3,A   
        RET

;;;;;;;;;;;;;;;;;修正字位系列子程序;;;;;;;;;;;;;;;;;;;;;;
CORRECT:MOV A,71H
        CJNE A,#00H,LEF_CO
        CJNE R0,#79H,CO_IT
        MOV R0,#7EH
        SJMP CO_OUT
CO_IT:  DEC R0
        SJMP CO_OUT
LEF_CO: CJNE R0,#7EH,CO_IT2
        MOV R0,#79H
        SJMP CO_OUT
CO_IT2: INC R0
CO_OUT:RET

CORRECT1:CJNE R0,#7DH,CON_DO
        MOV R0,#79H
        SJMP LR1
CON_DO: CJNE R0,#7EH,CON_DO1
        MOV R0,#7AH
SJMP LR1
CON_DO1:INC R0
        INC R0
LR1:    RET
CORRECT2:CJNE R0,#7AH,CON_DO3
        MOV R0,#7EH
        SJMP LR2
www.751com.cn
LR2:    RET
;;;;;;;;;;;;;;;计算速度系数子程序；?;;;;;;;;;;;;;;;;
COMPUTE: MOV A,R3
         ANL A,#0FH
         MOV R7,A
         MOV A,#02H
 RE_ROLL:RL A
         DJNZ R7,RE_ROLL
         MOV B,#6H
         MUL AB
         MOV 70H,A
         RET

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

TAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H
     DB 80H,90H,88H,83H,0C6H,0A1H,86H,8EH,0FFH

NUMB:    DB 00H,01H,04H,07H
         DB 0FH,02H,05H,08H
         DB 0EH,03H,06H,09H
         DB 0DH,0CH,0BH,0AH
         DB 13H,12H,11H,10H
         DB 16H,15H,14H,0FFH

上一页  [1] [2] [3] [4] [5] [6] [7]