📄 1.19无联机有错误码版本.asm
字号:
DB 040H,040H,040H,057H,055H,055H,055H,07FH
DB 055H,055H,055H,057H,050H,040H,040H,000H
;查 CB2E9 1BH
DB 080H,088H,048H,0C8H,0A8H,098H,088H,0FFH
DB 088H,098H,0A8H,0A8H,048H,0C8H,048H,000H
DB 000H,040H,040H,05FH,052H,052H,052H,052H
DB 052H,052H,052H,05FH,040H,040H,040H,000H
;询 CD1AF 1CH
DB 040H,042H,0CCH,004H,000H,010H,0E8H,027H
DB 024H,024H,0E4H,004H,004H,0FCH,000H,000H
DB 000H,000H,07FH,020H,010H,000H,01FH,009H
DB 009H,009H,01FH,040H,080H,07FH,000H,000H
;机 1DH
DB 008H,008H,0C8H,0FFH,048H,088H,008H,000H
DB 0FEH,002H,002H,002H,0FEH,000H,000H,000H
DB 004H,003H,000H,0FFH,000H,041H,030H,00CH
DB 003H,000H,000H,000H,03FH,040H,078H,000H
;错 1EH
DB 040H,030H,02CH,0E7H,024H,024H,040H,048H
DB 07FH,048H,048H,07FH,048H,048H,040H,000H
DB 001H,001H,001H,0FFH,041H,021H,000H,0FFH
DB 049H,049H,049H,049H,049H,0FFH,000H,000H
;误 1FH
DB 040H,041H,0CEH,004H,000H,040H,05FH,051H
DB 051H,0D1H,051H,051H,05FH,040H,000H,000H
DB 000H,000H,03FH,010H,088H,042H,022H,012H
DB 0A0H,007H,00AH,012H,022H,0E2H,042H,000H
;码 20H
DB 002H,082H,0E2H,05EH,042H,0C2H,000H,002H
DB 0FAH,082H,082H,082H,0FEH,080H,000H,000H
DB 001H,000H,07FH,010H,010H,03FH,000H,004H
DB 004H,004H,044H,084H,040H,03FH,000H,000H
;==============================================================
;########显示机号子程序-DISJIHAO #################
;入口参数:无
;出口参数:无
;需调用子程序:8*16点阵字符写入子程序-CNW_PR
;##############################################
DISJIHAO:
nop
nop
MOV A,JIHAOH
SWAP A
ANL A,#0FH ;保留高4位
MOV KINBUF,A ;暂存
MOV A,JIHAOH
ANL A,#0FH ;保留低4位
MOV KINBUF+1,A ;暂存
MOV A,JIHAOL
SWAP A
ANL A,#0FH ;保留高4位
MOV KINBUF+2,A ;暂存
MOV A,JIHAOL
ANL A,#0FH ;保留低4位
MOV KINBUF+3,A ;暂存
;LCALL CALNUM
MOV O_YL,#02H
MOV O_XL,#20H
MOV CODE,KINBUF
LCALL CNW_PR
MOV O_YL,#02H
MOV O_XL,#28H
MOV CODE,KINBUF+1
LCALL CNW_PR
MOV O_YL,#02H
MOV O_XL,#30H
MOV CODE,KINBUF+2
LCALL CNW_PR ;显示机号
MOV O_YL,#02H
MOV O_XL,#38H
MOV CODE,KINBUF+3
LCALL CNW_PR
EDISJH: RET
;###########8*16点阵字符写入程序-CNW_PR #################
; 程序参数选择：PARA1 PARA1 EQU 3DH ;液晶模块参数 MGLS12232 用于判断在左半边显示还是在右半边显示
; 占用内部资源：O_XL,O_YL,CODE,COUNT1,A,DPTR
; 入口参数：列地址:O_XL，页地址的D0,D1: O_YL，字符字库偏移量:CODE
; 出口参数: 无
; 内部调用子程序：
; 1. 写指令代码子程序(左屏E1)PR1
; 2. 写显示数据子程序(左屏E1)PR2
; 3. 写指令代码子程序(右屏E2)PR4
; 4. 写显示数据子程序(右屏E2)PR5
; 连接字库：CCTAB
;###########################################################
CNW_PR: MOV DPTR,#CNTAB ;确定数字字符字模块首地址
MOV A,CODE ;取代码
MOV B,#10H ;字模块宽度为16个字节
MUL AB ;代码x16 乘除指令会自动清进位C
ADD A,DPL ;字符字模块首地址
MOV DPL,A ;=字模库首地址+代码x16
MOV A,B
ADDC A,DPH
MOV DPH,A
PUSH O_XL ;列地址入栈
PUSH O_XL ;列地址入栈
MOV CODE,#00H ;代码寄存器借用为间址寄存器
CNW_1: MOV COUNT1,#08H ;计数器设置为8
MOV A,O_YL ;读页地址寄存器
ANL A,#03H
ORL A,#0B8H ;"或"页地址设置代码
MOV COM,A ;写页地址设置指令
LCALL PR1
LCALL PR4
POP O_XL ;取列地址值
MOV A,O_XL ;读列地址寄存器
CLR C
SUBB A,#PARA1 ;列地址-模块参数
JC CNW_2 ;〈0为左半屏显示区域(E1)
MOV O_XL,A ;≥0为右半屏显示区域(E2)
MOV A,O_YL
SETB ACC.3 ;设置区域标志位.
MOV O_YL,A ;"0"为E1,"1"为E2
CNW_2: MOV COM,O_XL ;设置列地址值
MOV A,O_YL ;判区域标志以确定设置哪个控制器
JNB ACC.3,CNW_3
LCALL PR4 ;区域E2
LJMP CNW_4
CNW_3: LCALL PR1 ;区域E1
CNW_4: MOV A,CODE ;取间址寄存器值
MOVC A,@A+DPTR ;取汉字字模数据
JNB DISMOD,CNW_41
CPL A ;反白显示
CNW_41: MOV DAT1,A ;写数据
MOV A,O_YL
JNB ACC.3,CNW_5
LCALL PR5 ;区域E2
LJMP CNW_6
CNW_5: LCALL PR2 ;区域E1
CNW_6: INC CODE ;间址寄存器加1
INC O_XL ;列地址寄存器加1
MOV A,O_XL ;判列地址是否超出区域范围
CJNE A,#PARA1,CNW_7
CNW_7: JC CNW_8 ;未超出则继续
MOV A,O_YL ;超出则判是否在区域E2
JB ACC.3,CNW_8 ;在区域E2则退出
SETB ACC.3 ;在区域E1则修改成区域E2
MOV O_YL,A
MOV COM,#00H ;设置区域E2列地址为"0"
LCALL PR4
CNW_8: DJNZ COUNT1,CNW_4 ;当页循环
MOV A,O_YL ;读页地址寄存器
JB ACC.7,CNW_9 ;判完成标志D7位, "1"则完成退出
INC A ;否则页地址加1
SETB ACC.7 ;置完成位为"1"
CLR ACC.3
MOV O_YL,A
MOV CODE,#08H ;间址寄存器设置为16
LJMP CNW_1 ;大循环
CNW_9: RET
;==============================================================
;数字和符号字库
CNTAB:
;-- 文字: 0 --
;-- 宋体12; 此字体下对应的点阵为：宽x高=8x16 --
DB 000H,0E0H,010H,008H,008H,010H,0E0H,000H
DB 000H,00FH,010H,020H,020H,010H,00FH,000H
;-- 文字: 1 --
;-- 宋体12; 此字体下对应的点阵为：宽x高=8x16 --
DB 000H,010H,010H,0F8H,000H,000H,000H,000H
DB 000H,020H,020H,03FH,020H,020H,000H,000H
;-- 文字: 2 --
;-- 宋体12; 此字体下对应的点阵为：宽x高=8x16 --
DB 000H,070H,008H,008H,008H,088H,070H,000H
DB 000H,030H,028H,024H,022H,021H,030H,000H
;-- 文字: 3 --
;-- 宋体12; 此字体下对应的点阵为：宽x高=8x16 --
DB 000H,030H,008H,088H,088H,048H,030H,000H
DB 000H,018H,020H,020H,020H,011H,00EH,000H
;-- 文字: 4 --
;-- 宋体12; 此字体下对应的点阵为：宽x高=8x16 --
DB 000H,000H,0C0H,020H,010H,0F8H,000H,000H
DB 000H,007H,004H,024H,024H,03FH,024H,000H
;-- 文字: 5 --
;-- 宋体12; 此字体下对应的点阵为：宽x高=8x16 --
DB 000H,0F8H,008H,088H,088H,008H,008H,000H
DB 000H,019H,021H,020H,020H,011H,00EH,000H
;-- 文字: 6 --
;-- 宋体12; 此字体下对应的点阵为：宽x高=8x16 --
DB 000H,0E0H,010H,088H,088H,018H,000H,000H
DB 000H,00FH,011H,020H,020H,011H,00EH,000H
;-- 文字: 7 --
;-- 宋体12; 此字体下对应的点阵为：宽x高=8x16 --
DB 000H,038H,008H,008H,0C8H,038H,008H,000H
DB 000H,000H,000H,03FH,000H,000H,000H,000H
;-- 文字: 8 --
;-- 宋体12; 此字体下对应的点阵为：宽x高=8x16 --
DB 000H,070H,088H,008H,008H,088H,070H,000H
DB 000H,01CH,022H,021H,021H,022H,01CH,000H
;-- 文字: 9 --
;-- 宋体12; 此字体下对应的点阵为：宽x高=8x16 --
DB 000H,0E0H,010H,008H,008H,010H,0E0H,000H
DB 000H,000H,031H,022H,022H,011H,00FH,000H
;-- 文字: . --
;-- 宋体12; 此字体下对应的点阵为：宽x高=8x16 --
DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,030H,030H,000H,000H,000H,000H,000H
;==============================================================
;######键盘扫描子程序 SCANKEY ###########
;需要寄存器:R2,R3,R4,R5,R6
;R2-计数,R4-行号,R3-列号,R5-扫描码,R6-计数
;入口:无
;出口:KEYNUM,无键值KEYNUM中为'0FFH',有键值KEYNUM中为键值
;键值计算:(4-列号)*3+行号
;需调用函数:10MS延时函数 DLY10MS
;######################################
SCANKEY:LCALL KEXAM ;判断是否有键按下，A中为零则无键按下，非零则有键按下
JNZ SCANK0 ;有键则转
MOV KEYNUM,#0FFH ;无键按下 KEYNUM EQU 11H ;键号
LJMP ESCANK ;转返回
SCANK0: LCALL DLY10MS ;有键按下,延时去抖
LCALL KEXAM ;再次判断是否有键按下,有键按下时A中为非零值
JNZ SCANK1 ;有键按下则转
MOV KEYNUM,#0FFH ;无键按下
LJMP ESCANK
SCANK1: MOV R4,#00H ;行号
MOV R6,#03H ;扫描行数
MOV R5,#0EFH ;第一行扫描码
SCAN10: MOV A,R5 ;输出扫描码
MOV P1,A
MOV A,P1
CPL A ;
ANL A,#0FH
JNZ CHK1 ;本行有键按下
LJMP CHK2 ;本行无键按下
CHK1: MOV R2,#4 ;扫描列数
CHK10: JB ACC.0,CALK1 ;该列有键按下则转
RR A
DJNZ R2,CHK10 ;检测按键所在列
CHK2: MOV A,R5
RL A
MOV R5,A ;修正扫描码
INC R4 ;行号加1
DJNZ R6,SCAN10 ;扫描下一行
MOV KEYNUM,#0FFH ;未检测到按键
LJMP ESCANK ;返回
CALK1: CLR C ;计算键值
MOV A,#4
SUBB A,R2 ;计算列号
MOV B,#03H
MUL AB
ADD A,R4 ;计算键值
MOV KEYNUM,A ;存键值
KEYNO: LCALL DLY10MS ;
LCALL KEXAM ;发全扫描信号
JNZ KEYNO ;健未释放则等待
LCALL DLY10MS ;延时消抖
ESCANK: RET
;=========================================================
;功能：判断是否有键被按下
;入口参数：无
;出口参数：A中为零则无键按下，非零则有键按下
;=========================================================
KEXAM: MOV P1,#8FH
MOV A,P1
CPL A
ANL A,#0FH
RET
;##############个位键处理子程序-KEYGW ############
;入口参数:无
;出口参数:无
;需调用函数:显示机号子程序-DISJIHAO
;说明:会修改JIHAOL的低四位,使之从零到九循环增加
;################################################
KEYGW:MOV A,JIHAOL
ANL A,#0FH ;保留低四位
INC A
CJNE A,#0AH,GW00 ;
GW00: JNC GW01 ;A>09H则转
INC JIHAOL ;A<=09H时 个位加一
LJMP GW02
GW01: ANL JIHAOL,#0F0H ;A>09H时,个位清零
GW02: SETB DISMOD ;反白显示机号
LCALL DISJIHAO
LCALL DLY10MS
RET
;##############十位键处理子程序-KEYSW ############
;入口参数:无
;出口参数:无
;需调用函数:显示机号子程序-DISJIHAO
;说明:会修改JIHAOL的高四位,使之从零到九循环增加
; EDSCAN定义在个位键处理子程序内
;################################################
KEYSW:MOV A,JIHAOL
ANL A,#0F0H ;保留高四位
SWAP A
INC A
CJNE A,#0AH,SW00 ;
SW00: JNC SW01 ;A>09H则转
MOV A,JIHAOL
ADD A,#10H ;A<=09H时 十位加一
MOV JIHAOL,A
LJMP SW02
SW01: ANL JIHAOL,#0FH ;A>09H时 十位清零
SW02: SETB DISMOD ;反白显示机号
LCALL DISJIHAO
LCALL DLY10MS
RET
;##############百位键处理子程序-KEYBW ############
;入口参数:无
;出口参数:无
;需调用函数:显示机号子程序-DISJIHAO
;说明:会修改JIHAOH的低四位,使之从零到九循环增加
; EDSCAN定义在个位键处理子程序内
;################################################
KEYBW:MOV A,JIHAOH
ANL A,#0FH ;保留低四位
INC A
CJNE A,#0AH,BW00 ;
BW00: JNC BW01 ;A>09H则转
INC JIHAOH ;A<=09H时 个位加一
LJMP BW02
BW01: ANL JIHAOH,#0F0H ;A>09H时,个位清零
BW02: SETB DISMOD ;反白显示机号
LCALL DISJIHAO
LCALL DLY10MS
RET
EDSCAN: LCALL DL100MS
LCALL DL100MS
LCALL DL100MS
LJMP SCAN
;###########2字节BCD转换子程序###############
;入口参数:
; 1.BCD高位-R5
; 2.BCD低位-R4
;出口参数:
; 1.16进制高位-R5
; 2.16进制低位-R4
;需调用子程序:无
;##############################################
BCD4B: MOV A,R5
MOV R2,A
ACALL BCD2B
MOV B,#64H
MUL AB
MOV R6,A
XCH A,B
MOV R5,A
MOV A,R4
MOV R2,A
ACALL BCD2B
ADD A,R6
MOV R4,A
MOV A,R5
ADDC A,#00H
MOV R5,A
RET
;=============1字节BCD转换子程序================
BCD2B: MOV A,R2
ANL A,#0F0H
SWAP A
MOV B,#0AH
MUL AB
MOV R3,A
MOV A,R2
ANL A,#0FH
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -