📄 testd1.asm
字号:
; 占用内部资源：A，COM，DAT1
; 程序输入变量：COM 或 DAT1
; 1. 左区驱动子程序
; 1.1 写指令代码子程序(左)
PR1: PUSH DPL
PUSH DPH
MOV DPTR,#CRADD1 ; 设置读状态字地址
PR11: MOVX A,@DPTR ; 读状态字
JB ACC.7,PR11 ; 判"忙"标志为"0"否, 否再读
MOV DPTR,#CWADD1 ; 设置写指令代码地址
MOV A,COM ; 取指令代码
MOVX @DPTR,A ; 写指令代码
POP DPH
POP DPL
RET
; 1.2 写显示数据子程序(左)
PR2: PUSH DPL
PUSH DPH
MOV DPTR,#CRADD1 ; 设置读状态字地址
PR21: MOVX A,@DPTR ; 读状态字
JB ACC.7,PR21 ; 判"忙"标志为"0"否, 否再读
MOV DPTR,#DWADD1 ; 设置写显示数据地址
MOV A,DAT1 ; 取数据
MOVX @DPTR,A ; 写数据
POP DPH
POP DPL
RET
; 1.3 读显示数据子程序(左)
PR3: PUSH DPL
PUSH DPH
MOV DPTR,#CRADD1 ; 设置读状态字地址
PR31: MOVX A,@DPTR ; 读状态字
JB ACC.7,PR31 ; 判"忙"标志为"0"否, 否再读
MOV DPTR,#DRADD1 ; 设置读显示数据地址
MOVX A,@DPTR ; 读数据
MOV DAT1,A ; 存数据
POP DPH
POP DPL
RET
; 2. 右区驱动子程序
; 2.1 写指令代码子程序(右)
PR4: PUSH DPL
PUSH DPH
MOV DPTR,#CRADD2 ; 设置读状态字地址
PR41: MOVX A,@DPTR ; 读状态字
JB ACC.7,PR41 ; 判"忙"标志为"0"否, 否再读
MOV DPTR,#CWADD2 ; 设置写指令代码地址
MOV A,COM ; 取指令代码
MOVX @DPTR,A ; 写指令代码
POP DPH
POP DPL
RET
; 2.2 写显示数据子程序(右)
PR5: PUSH DPL
PUSH DPH
MOV DPTR,#CRADD2 ; 设置读状态字地址
PR51: MOVX A,@DPTR ; 读状态字
JB ACC.7,PR51 ; 判"忙"标志为"0"否, 否再读
MOV DPTR,#DWADD2 ; 设置写显示数据地址
MOV A,DAT1 ; 取数据
MOVX @DPTR,A ; 写数据
POP DPH
POP DPL
RET
; 2.3 读显示数据子程序(右)
PR6: PUSH DPL
PUSH DPH
MOV DPTR,#CRADD2 ; 设置读状态字地址
PR61: MOVX A,@DPTR ; 读状态字
JB ACC.7,PR61 ; 判"忙"标志为"0"否, 否再读
MOV DPTR,#DRADD2 ; 设置读显示数据地址
MOVX A,@DPTR ; 读数据
MOV DAT1,A ; 存数据
POP DPH
POP DPL
RET
;--------------------------------------------------
; 初始化子程序INT(适用MGLS12864)
; 内部调用子程序：PR1,PR4
; 程序调用入口：INT
; 程序调用变量：无
INT: MOV COM,#0C0H ; 设置显示起始行为第一行
LCALL PR1
LCALL PR4
MOV COM,#3FH ; 开显示设置
LCALL PR1
LCALL PR4
RET
;----------------------------------------------------
; 清显示RAM 区(清屏)子程序CLEAR(适应MGLS12864)
; 占用内部寄存器：R3，R4
; 内部调用子程序：PR1,PR2,PR4,PR5
; 程序调用入口：CLEAR
CLEAR: MOV R4,#00H ; 页面地址暂存器设置
CLEAR1: MOV A,R4
ORL A,#0B8H ; "或"页面地址设置代码
MOV COM,A ; 页面地址设置
LCALL PR1
LCALL PR4
MOV COM,#40H ; 列地址设置为"0"
LCALL PR1
LCALL PR4
MOV R3,#40H ; 一页清64个字节
CLEAR2: MOV DAT1,#00H ; 显示数据为"0"
LCALL PR2
LCALL PR5
DJNZ R3,CLEAR2 ; 页内字节清零循环
INC R4 ; 页地址暂存器加1
CJNE R4,#08H,CLEAR1 ; RAM 区清零循环
RET
;---------------------------------------------
; 西文字符写入子程序CW_PR(适应MGLS12864)
; 占用内部资源：O_XL,O_YL,CODE,COUNT1,A,B,DPTR
; 内部调用子程序：PR1,PR2,PR4,PR5
; 连接字库： CHTAB
; 程序调用入口： CW_PR
; 程序输入变量： O_XL，O_YL，CODE
CW_PR: MOV DPTR,#CHTAB ; 确定字符字模块首地址
MOV A,CODE ; 取代码
MOV B,#08H ; 字模块宽度为8个字节
MUL AB ; 代码x8
ADD A,DPL ; 字符字模块首地址
MOV DPL,A ; = 字模库首地址 + 代码x 8
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV CODE,#00H ; 借用为间址寄存器
MOV A,O_YL ; 读页地址寄存器
JB ACC.7,CW_1 ; 判字符体
MOV COUNT1,#06H ; 6x8点阵
LJMP CW_2
CW_1: MOV COUNT1,#08H ; 8x8点阵
CW_2: ANL A,#07H ; 取页地址值
ORL A,#0B8H ; "或"页地址指令代码
MOV COM,A ; 写页地址指针
LCALL PR1
LCALL PR4
MOV A,O_XL ; 读列地址寄存器
CLR C
SUBB A,#40H ; 列地址-64
JC CW_3 ; 〈0为左屏显示区域
MOV O_XL,A ; ≥0为右屏显示区域
MOV A,O_YL
SETB ACC.5 ; 设置区域标志位.
MOV O_YL,A ; "00"为左,"10"为右
CW_3: MOV COM,O_XL ; 设置列地址值
ORL COM,#40H ; "或"列地址指令标志位
MOV A,O_YL ; 判区域标志以确定设置哪个控制器
ANL A,#30H
CW_31: CJNE A,#20H,CW_32 ; "10"为右区
LCALL PR4
LJMP CW_4
CW_32: LCALL PR1 ; "00"为左区
CW_4: MOV A,CODE ; 取间址寄存器值
MOVC A,@A+DPTR ; 取字符字模数据
MOV DAT1,A ; 写数据
MOV A,O_YL ; 判区域标志
ANL A,#30H
CW_41: CJNE A,#20H,CW_42 ; "10"为右区
LCALL PR5
LJMP CW_5
CW_42: LCALL PR2 ; "00"为左区
CW_5: INC CODE ; 间址加1
INC O_XL ; 列地址加1
MOV A,O_XL ; 判列地址是否超出区域范围
CJNE A,#40H,CW_6
CW_6: JC CW_9 ; 未超出则继续
MOV O_XL,#00H ;
MOV A,O_YL ; 超出则判在何区域
JB ACC.5,CW_91 ; 在右区域则退出
CW_61: SETB ACC.5 ; 在左区则转右区
MOV O_YL,A
MOV COM,#40H ; 设置右区列地址为"0"
LCALL PR4
CW_9: DJNZ COUNT1,CW_4 ; 循环
CW_91: RET
;----------------------------------------------
;16*16点阵中文写入子程序CCW_PR(适应MGLS12864)
; 占用内部资源：O_XL,O_YL,CODE,COUNT1,A,B,DPTR
; 内部调用子程序：PR1,PR2,PR4,PR5
; 连接字库： CCTAB
; 程序调用入口： CCW_PR
; 程序输入变量： O_XL，O_YL，CODE
;---------------------------------------------------------------------
CCW_PR: MOV DPTR,#CCTAB ; 确定字符字模块首地址
MOV A,CODE ; 取代码
MOV B,#20H ; 字模块宽度为32个字节
MUL AB ; 代码x32
ADD A,DPL ; 字符字模块首地址
MOV DPL,A ; = 字模库首地址 + 代码x 32
MOV A,B
ADDC A,DPH
MOV DPH,A
PUSH O_XL ; 列地址入栈
PUSH O_XL ; 列地址入栈
MOV CODE,#00H ; 代码寄存器借用为间址寄存器
CCW_1: MOV COUNT1,#10H ; 计数器设置为16
MOV A,O_YL ; 读页地址寄存器
ANL A,#07H
ORL A,#0B8H ; "或"页地址设置代码
MOV COM,A ; 写页地址设置指令
LCALL PR1
LCALL PR4
POP O_XL ; 取列地址值
MOV A,O_XL ; 读列地址寄存器
CLR C
SUBB A,#40H ; 列地址-64
JC CCW_2 ; 〈0为左屏显示区域
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -