附录-监控子程序清单.doc

文档介绍：监控子程序清单
;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 ,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 ,CUR_4 ; 闪烁计数到否
JNB ,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 0