监控子程序清单
;DISP显示子程序
PORT_A EQU 0CF01H
PORT_B EQU 0CF02H
PORT_C EQU 0CF03H
;功能:将显示缓冲区39-3FH内容显示一遍
;3FH对应八个LED管
;3E-39H自左到右对应数码
;占用:PSW,ACC,DPTR,R0,R3,R6,R7
;
ORG 0DE00H
DISP1: MOV R0,#3FH
DISP_0: MOV R3,#01000000B ;位选字
MOV A,@R0 ;取显示数据
SJMP DISP_2
DISP_1: MOV DPTR,#LED_TB
MOV A,@R0
MOVC A,@A+DPTR
DISP_2: CPL A ;字型求反
MOV DPTR,#PORT_B
MOVX @DPTR,A ; 字型送8155B口
MOV A,R3
DEC DPL
MOVX @DPTR,A ;位选字送8155A口
LCALL D1MS ;延时1MS
CLR A
MOV DPTR,#PORT_A
MOVX @DPTR,A ;关显示
DEC R0
MOV R3,A
RR A
MOV A,R3
JNB ACC.7,DISP_1
MOV A,R0
ADD A,#7
MOV R0,A
RET
D1MS: MOV R6,#0
DJNZ R6,$
RET
;
;显示字型表
ORG 0130H
LED_TB: DB 3FH,06H,5BH,4FH ;0123
DB 66H,6DH,7DH,07H ;4567
DB 7FH,6FH,77H,7CH ;89AB
DB 39H,5EH,79H,71H ;CDEF
DB 00H,73H,58H,4CH ;_P [ ]
DB 76H,5EH ;HD
;
;闪烁显示等待键入子程序
;功能:R1指向闪烁位地址,等待键入,并返回键值
;占用:A,B,R0,R5
;入口:R1 出口:A
ORG 0150H
CURSOR: MOV R0,#3FH ;R0指向显示缓冲区
CUR_0: MOV B,@R1 ;R1指向闪烁位地址
CUR_1: MOV @R1,B
JNC CUR_3
MOV A,R5
JNB ACC.4,CUR_4 ; 闪烁计数到否
JNB ACC.5,CUR_5
MOV A,R1
XRL A,R0
JNZ CUR_2
MOV @R1,A
SJMP CUR_4
CUR_2: CJNE @R1,#16,CUR_3 ;当前位是否为数字
CUR_3: JNC CUR_4
MOV @R1,#10H ;显示空格
CUR_4: ACALL DISP_0
ACALL T_KB
JNZ CUR_5
INC R5 ;闪烁计数
SJMP CUR_1
CUR_5: ACALL KEY_LD
JZ CUR_1 ;无键,继续
MOV @R1,B ;恢复闪烁处数值
ACALL KB_VUL ;取键值
RET
;
;测试键入程序
;功能:调用返回A不为零为有键入
;占用:A,DPTR
;入口:无 出口:A
ORG 0180H
T_KB: MOV DPTR,#PORT_A
CLR A
MOVX @DPTR,A ;关显示,键送0
INC DPTR
INC DPTR ;指向PORT_C
MOVX A,@DPTR ;读键输入
CPL A
ANL A,#0FH ;屏蔽无效位
RET
;取键值程序
;功能:等待键入,并刷新显示,并返回键值放A
;占用:PSW,A,DPTR,R0,R2,R3,R4,R6,R7
;入口:无 出口:A
ORG 0190H
WAT_KB: MOV R0,#3FH
WAT_0: ACALL DISP_0 ;刷新显示器
ACALL T_KB
JZ WAT_0 ;无键,循环
ACALL KEY_LD ;延时消抖,刷新显示
JZ WAT_0 ;无键,循环
KB_VUL: CLR A
CPL A
MOV DPTR,#PORT_B
MOVX @DPTR,A ;关显示
MOV R2,#0FEH
MOV R4,#0
KB_1: MOV DPTR,#PORT_A
MOV A,R2
MOVX @DPTR,A ;扫描键盘
INC DPTR
INC DPTR
MOVX A,@DPTR ;读键盘
CPL A
ANL A,#0FH ;屏蔽无效位
JNZ KB_2 ;有键,转键分析
INC R4
MOV A,R2
JNB ACC.7,WAT_0 ;无键,返回
RL A
MOV R2,A
SJMP KB_1 ;无键,扫描下一行
KB_2: RRC A
JC KB_3 ;有键,转取键值
XCH A,R4 ;取下一行
ADD A,#8
XCH A,R4
SJMP KB_2 ;无键,循环
KB_3: MOV R2,#21
KB_4: ACALL DISP_0
ACALL T_KB
JZ KB_5 ;刷新显示,等键释放
DJNZ R2,KB_4
KB_5: MOV DPTR,#KEY_TB
MOV A,R4
MOVC A,@A+DPTR ;取键值
RET
KEY_LD: ACALL DISP_0
ACALL DISP_0
ACALL T_KB
RET
KEY_TB: DB 07H,08H,09H,0AH ;7,8,9,A
DB 1CH,1DH,1EH,11H ;FFIS/FUNC,FFNO/USER,FILL/MODE,空
DB 04H,05H,06H,0BH ;4,5,6,B
DB 1AH,1BH,1FH,10H ;COMP/DEC,MOVE/HEX,OFST/HIST,MON
DB 01H,02H,03H,0CH ;1,2,3,C
DB 18H,19H,14H,15H ;BP/BTOP,BT/BENT,EXEC,SCAL
DB 00H,0FH,0EH,0DH ;0,F,E,D
DB 16H,17H,12H,13H ;NEXT/+,LAST/-,TRAC,STEP