监控子程序清单.docVIP

监控子程序清单 ;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, ;位选字 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,R