二个二.十进制转换程序实验.并运行通过.

--------------------------------------------------------------------------------

本人利用自己开发的控制板做了二个二.十进制转换程序实验.并运行通过.

相当于测量温度,频率.速度所取得的二进制数.转换成十进制以便于在液晶或数码

管显示.对于注塑机测量位移有相当的一致性.程序加以改进也可应用于普通设备

的数字化测量.比如车床.铣床等需要行程测量控制的方面.具有一定的参考价值

；十进制16除2  三次分别显示在百位十位个位程序      
           GDM    EQU   50H  ；定义寄存单元个位
           SDM    EQU   51H  ；定义寄存单元十位
           BDM    EQU   52H  ；定义寄存单元百位
          ORG    0000H
          LJMP   MAIN
          ORG    0030H
MAIN:   MOV    SCON,#00H
       MOV    R0,#02H
       MOV    A,#10H
       MOV    B,R0
       DIV    A
       MOV    R1,A      ；8
       MOV    B,R0
       DIV    AB
       MOV    R2,A      ；4
       MOV    B,R0
       DIV    AB
       MOV    R3,A      ；2
LCALL  XSCL      ；调用显示处理子程序
       MOV    SBUF,BDM
       MOV    P1,R3
       LCALL  TT
       MOV    SBUF,SDM
       MOV    P1,R2
       LCALL  TT
       MOV    SBUF,GDM
       MOV    P1,R1
       LCALL  TT
LOP:    JB     P3.2,LOP
       ACALL  D1
       JB     P3.2,LOP
       CLR    P3.7
       AJMP   MAIN
TT:     JBC    TI,TT
       CLR    TI
       RET
XSCL:   MOV    A,R3
       MOV    DPTR,#TAB  ；数据指针首地址
       MOVC   A,@A+DPTR
MOV    BDM,A
       MOV    A,R2
MOV    DPTR,#TAB
MOVC   A,@A+DPTR
MOV    SDM,A
MOV    A,R1
MOV    DPTR,#TAB
MOVC   A,@A+DPTR
MOV    GDM,A
RET
D1:     MOV    R4,#0FFH
DE:     MOV    R5,#0FFH
DE1:    DJNZ   R5,DE1
       DJNZ   R4,DE
       RET
ORG    0100H
TAB:    DB 3FH,06H,5BH,4FH,66H   ；共阴代码   三位数码管最后显示  8   4    2
       DB 6DH,7DH,07H,7FH,6FH
       END


;二进制10011000 用十进制152在数码管显示程序
       GDM    EQU   50H
SDM    EQU   51H
BDM    EQU   52H
       ORG    0000H
       LJMP   MAIN
       ORG    0030H
MAIN:   MOV    SCON,#00H
       MOV    R0,#98H   ;152
       MOV    B,#64H    ;/100除100
       MOV    A,R0
DIV    AB
       MOV    R1,A
       MOV    A,B
       MOV    B,#0AH    ;/10除10
       DIV    AB
       MOV    R2,A
       MOV    A,B
       MOV    B,#01H    ;/1除1
       DIV    AB
       MOV    R3,A
LCALL  XSCL
       MOV    SBUF,BDM
       MOV    P1,R3
       LCALL  TT
       MOV    SBUF,SDM
       MOV    P1,R2
       LCALL  TT
       MOV    SBUF,GDM
       MOV    P1,R1
       LCALL  TT
LOP:    JB     P3.2,LOP
       ACALL  D1
       JB     P3.2,LOP
       CLR    P3.7
       AJMP   MAIN
TT:     JBC    TI,TT
       CLR    TI
       RET
XSCL:   MOV    A,R1
       MOV    DPTR,#TAB
       MOVC   A,@A+DPTR
MOV    BDM,A
       MOV    A,R2
MOV    DPTR,#TAB
MOVC   A,@A+DPTR
MOV    SDM,A
MOV    A,R3
MOV    DPTR,#TAB
MOVC   A,@A+DPTR
MOV    GDM,A
RET
D1:     MOV    R4,#0FFH
DE:     MOV    R5,#0FFH
DE1:    DJNZ   R5,DE1
       DJNZ   R4,DE
       RET
     ORG    0100H
TAB:    DB 3FH,06H,5BH,4FH,66H    ;三位数码管最后显示152
       DB 6DH,7DH,07H,7FH,6FH
       END


   czha1@yahoo.com.cn
   13775061792
   江苏常州