CLR LED1 ;LED1百位显示
MOV R31,#42
ACALL DELAY2
AJMP DIR0_0 ;不断循环显示,并等待中断
;* =======================================================*
;计数复位时,点钞机主程序会先给出一个复位信号,并持续一段时间,
;接着给出计数脉冲
INT0_P32:
PUSH ACC ;保护现场
PUSH DPH
PUSH DPL
JB P1.0,INT0_01 ;当点钞机
MOV R31,#28
ACALL DELAY2 ;延时1ms,去抖动
JB P1.0,INT0_01
SETB P1.0 ;清除复位信号
MOV JSQ0,#0 ;复位信正确,计数单元清0
MOV JSQ1,#0
INT0_01:
MOV A,JSQ1 ;低字节计数单元加1
INC A
MOV JSQ1,A
JNZ INT0_02
INC JSQ0 ;当有进位时,高字节单元加1
INT0_02:
ACALL HB2 ;将16进制数转换为BCD码
ACALL THIF0 ;调用转换显示值子程序
POP DPL ;恢复现场
POP DPH
POP ACC
RETI ;中断返回
;* =======================================================*
;* 双字节十六进制整数转换成双字节ＢＣＤ码整数
;入口条件：待转换的双字节十六进制整数在R6、R7中。
;出口信息：转换后的三字节ＢＣＤ码整数在R3、R4、R5中。
;影响资源：PSW、A、R2～R7堆栈需求： ２字节
;* =======================================================*
HB2:
MOV R6,JSQ0 ;高字节单元送入R6
MOV R7,JSQ1 ;低字节单元送入R7
CLR A ;BCD码初始化
MOV R3,A
MOV R4,A
MOV R5,A
MOV R2,#10H ;转换双字节十六进制整数
HB3:
MOV A,R7 ;从高端移出待转换数的一位到CY中
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R5 ;BCD码带进位自身相加,相当于乘2
ADDC A,R5
DA A ;十进制调整
MOV R5,A
MOV A,R4
ADDC A,R4
DA A
MOV R4,A
MOV A,R3
ADDC A,R3
MOV R3,A ;双字节十六进制数的万位数不超过6,不用调整
DJNZ R2,HB3 ;处理完16bit
RET
;* =======================================================*
;* 将BCD码解压后,转换为十进制显示符
;* =======================================================*
THIF0: ;将压缩BCD码解压(因最大数为999,所以[R3]=0)
MOV A,R5 ;取数据
ANL A,#0FH ;屏蔽高4位,取出低4位
MOV 32H,A ;存个位
MOV A,R5
SWAP A ;交换
ANL A,#0FH
MOV 31H,A ;存十位
MOV A,R4 ;取数据
ANL A,#0FH ;屏蔽高4位,取出低4位
MOV 30H,A ;存百位
;* 将BCD转换为十进制显示符
MOV DPTR,#TABD ;置数码表首址
MOV R0,#30H ;置显示数首址
MOV R1,#LED01 ;置字段码暂存器首址
MOV R2,#03H ;置循环数
THIF1:
MOV A,@R0 ;取显示数
MOV C A,@A+DPTR ;读字段码
MOV @R1,A ;存字段码
INC R0 ;修改显示数地址
INC R1 ;修改字段码暂存器地址
DJNZ R2,THIF1 ;判断循环是否结束
RET
TABD:
DB 81H,0EDH,43H,49H,2DH,19H ;共阳字段表,0～5显示符
DB 11H,0CDH,01H,09H ;6～9显示符
;* =======================================================*
;* 延时子程序
DELAY2:
L2: PUSH R31
L3: DJNZ R31,L3
POP R31
DJNZ R31,L2
RET
END
上一页 [1] [2]
本文关键字：单片机 开发 显示屏 点钞机 51单片机，单片机-工控设备 - 51单片机
