转换显示子程序.txt

数字电压表

        ORG     0000H
        AJMP    START
        ORG     0030H
START:
        SETB    P3.1
        SETB    P3.7
        MOV     A,#11001001B

;-------------十进制转换子程序----------------
L1:     CLR     C
        MOV     R5,#00H
        MOV     R4,#00H
        MOV     R0,#08H
NEXT:
        RLC     A
        MOV     R2,A
        MOV     A,R5
        ADDC    A,R5
        DA      A                                  
        MOV     R5,A
        MOV     A,R4
        ADDC    A,R4
        DA      A
        MOV     R4,A
        MOV     A,R2
        DJNZ    R0,NEXT
L2:     MOV     A,R5
        ADD     A,R5
        DA      A
        MOV     R5,A
        MOV     A,R4
        ADDC    A,R4
        DA      A
        MOV     R4,A
;--------------------------------------
DISP:
        MOV     A,R4
        ANL     A,#0FH
        CLR     P3.3
        MOV     DPTR,#TAB0
        MOVC    A,@A+DPTR
        MOV     P1,A
        LCALL   D1MS
        LCALL   D1MS        
        MOV     A,R5
        ANL     A,#0F0H
        SETB    P3.3
        CLR     P3.4
        MOV     DPTR,#TAB0
        MOVC    A,@A+DPTR
        MOV     P1,A
        LCALL   D1MS
        LCALL   D1MS
        MOV     A,R5
        ANL     A,#0FH
        SETB    P3.4
        CLR     P3.5
        MOV     DPTR,#TAB0
        MOVC    A,@A+DPTR
        MOV     P1,A
        LCALL   D1MS
        LCALL   D1MS
        SETB    P3.5
        JMP     START
        
;--------------------------------------
D1MS:
        MOV     R7,#80
        DJNZ    R7,$
        RET

;7段数码管0～9数字的共阴显示代码
;无小数点
TAB0: DB 0FCH,60H,0DAH,0F2H,66H,0B6H,0BEH,0E0H,0FEH,0F6H
;有小数点
TAB1: DB 0FDH,61H,0DBH,0F3H,67H,0B7H,0BFH,0E1H,0FFH,0F7H
;         0   1    2    3   4    5    6    7    8    9
END