jrdmdyhx.bak

用增强型单片机51RD2做的控制器

ShowQrjJcKs:    MOV     DPTR,#QrjJcKsTab
                MOV     LcdShowC,#10
                MOV     LcdShowX,#10
                MOV     LcdShowY,#176
                LCALL   DdShowString
                RET
QrjJcKsTab:     DB ZW1,097,ZW1,098,ZW1,099,ZW1,100 ;按“确认”键检测开始
                DB ZW1,101,ZW1,102,ZW1,039,ZW1,040
                DB ZW1,069,ZW1,103

;
;       ******  显示"按“取消”键检测停止"  ******
;
ShowQxjJcTz:    MOV     DPTR,#QxjJcTzTab
                MOV     LcdShowC,#10
                MOV     LcdShowX,#10
                MOV     LcdShowY,#176
                LCALL   DdShowString
                RET
QxjJcTzTab:     DB ZW1,097,ZW1,098,ZW1,104,ZW1,105 ;按“取消”键检测停止
                DB ZW1,101,ZW1,102,ZW1,039,ZW1,040
                DB ZW1,106,ZW1,107


;
;       ******  显示"输出电压："  ******
;
ShowScDy:       MOV     DPTR,#ScDyTab
                MOV     LcdShowC,#5
                MOV     LcdShowX,#0
                MOV     LcdShowY,#48
                LCALL   DdShowString
                RET
ScDyTab:        DB ZW1,108,ZW1,053,ZW1,025,ZW1,084 ;输出电压：
                DB ZW1,085


;
;       ******  显示"输出电流："  ******
;
ShowScDl:       MOV     DPTR,#ScDlTab
                MOV     LcdShowC,#5
                MOV     LcdShowX,#0
                MOV     LcdShowY,#80
                LCALL   DdShowString
                RET
ScDlTab:        DB ZW1,108,ZW1,053,ZW1,025,ZW1,020 ;输出电流：
                DB ZW1,085

;
;       ******  显示"泄漏电流："  ******
;
ShowScXl:       MOV     DPTR,#ScXlTab
                MOV     LcdShowC,#5
                MOV     LcdShowX,#0
                MOV     LcdShowY,#112
                LCALL   DdShowString
                RET
ScXlTab:        DB ZW1,086,ZW1,087,ZW1,025,ZW1,020 ;泄漏电流：
                DB ZW1,085


;
;       ******  显示"开机时间："  ******
;
ShowKjSj:       MOV     DPTR,#KjSjTab
                MOV     LcdShowC,#5
                MOV     LcdShowX,#0
                MOV     LcdShowY,#144
                LCALL   DdShowString
                RET
KjSjTab:        DB ZW1,069,ZW1,070,ZW1,011,ZW1,063 ;开机时间：
                DB ZW1,085


;
;       ******  显示"关机时间："  ******
;
ShowGjSj:       MOV     DPTR,#GjSjTab
                MOV     LcdShowC,#5
                MOV     LcdShowX,#0
                MOV     LcdShowY,#144
                LCALL   DdShowString
                RET
GjSjTab:        DB ZW1,109,ZW1,070,ZW1,011,ZW1,063 ;关机时间：
                DB ZW1,085


;
;       ******  显示"直流供电系统运行正常"  ******
;
ShowZlGdXtYxZc: MOV     DPTR,#ZlGdXtYxZcTab
                MOV     LcdShowC,#10
                MOV     LcdShowX,#12
                MOV     LcdShowY,#176
                LCALL   DdShowString
                RET
ZlGdXtYxZcTab:  DB ZW1,019,ZW1,020,ZW1,110,ZW1,025 ;直流供电系统运行正常
                DB ZW1,041,ZW1,042,ZW1,045,ZW1,046
                DB ZW1,060,ZW1,066
;
;       ******  显示"运行故障，停机检修！"  ******
;
ShowYxGz:       MOV     DPTR,#YxGzTab
                MOV     LcdShowC,#10
                MOV     LcdShowX,#12
                MOV     LcdShowY,#176
                LCALL   DdShowString
                RET
YxGzTab:        DB ZW1,045,ZW1,046,ZW1,071,ZW1,072 ;运行故障，停机检修！
                DB ZW1,111,ZW1,106,ZW1,070,ZW1,039
                DB ZW1,112,ZW1,113

;
;       ******  显示“电流传感器过流保护”  ******
;
ShowDlCgqGlBh:  MOV     DPTR,#DlCgqGlBhTab
                MOV     LcdShowC,#10
                MOV     LcdShowX,#10
                MOV     LcdShowY,#176
                LCALL   DdShowString
                RET
DlCgqGlBhTab:   DB ZW1,025,ZW1,020,ZW1,114,ZW1,115 ;电流传感器过流保护！
                DB ZW1,010,ZW1,116,ZW1,020,ZW1,117
                DB ZW1,118,ZW1,113

;
;       ******  显示“正在高压放电请稍候… ”  ******
;
ShowZzGyFdQsh:  MOV     DPTR,#ZzGyFdQshTab
                MOV     LcdShowC,#10
                MOV     LcdShowX,#10
                MOV     LcdShowY,#176
                LCALL   DdShowString
                RET
ZzGyFdQshTab:   DB ZW1,060,ZW1,119,ZW1,120,ZW1,084 ;正在高压放电请稍候…
                DB ZW1,121,ZW1,025,ZW1,054,ZW1,122
                DB ZW1,123,ZW1,124

;
;       ******  显示一个矩形框  ******
;
ShowRectangle:  MOV     R1,#64                  ; 设置 X 坐标低 8 位初值
                MOV     R2,#80H                 ; 设置 X 坐标高 8 位初值,且绘点D7=1
                MOV     R3,#096                 ; 设置 Y 坐标初值
                MOV     R4,#255                 ; 设置 X 坐标低 8 位末值
                MOV     R5,#80H                 ; 设置 X 坐标高 8 位末值,且绘点D7=1
                MOV     R6,#144                 ; 设置 Y 坐标末值
                LCALL   DrawRectangle
                RET
;
;       ******  显示"请输入用户密码□□□□"  ******
;
ShowMenPass:    MOV     DPTR,#MenPassTab
                MOV     LcdShowC,#11
                MOV     LcdShowX,#9
                MOV     LcdShowY,#112
                LCALL   DdShowString
                RET
MenPassTab:     DB ZW1,054,ZW1,108,ZW1,125,ZW1,126 ;请输入用户密码□□□□
                DB ZW1,127,ZW1,128,ZW1,129,ZW1,130
                DB ZW1,130,ZW1,130,ZW1,130

;
;       ******  显示"请输入系统密码□□□□"  ******
;
ShowSysPass:    MOV     DPTR,#SysPassTab
                MOV     LcdShowC,#11
                MOV     LcdShowX,#9
                MOV     LcdShowY,#112
                LCALL   DdShowString
                RET
SysPassTab:     DB ZW1,054,ZW1,108,ZW1,125,ZW1,041 ;请输入系统密码□□□□
                DB ZW1,042,ZW1,128,ZW1,129,ZW1,130
                DB ZW1,130,ZW1,130,ZW1,130



;
;       ******  显示"按←键清除输入"  ******
;
ShowClearWord:  MOV     DPTR,#ClearWordTab
                MOV     LcdShowC,#7
                MOV     LcdShowX,#13
                MOV     LcdShowY,#224
                LCALL   DdShowString
                RET
ClearWordTab:   DB ZW1,097,ZW1,131,ZW1,102,ZW1,132 ;按←键清除输入
                DB ZW1,133,ZW1,108,ZW1,125
;
;       ******  显示"用户密码错，请重新输入。"  ******
;
ShowUserPassErr:MOV     DPTR,#UserPassErrTab
                MOV     LcdShowC,#12
                MOV     LcdShowX,#9
                MOV     LcdShowY,#224
                LCALL   DdShowString
                RET
UserPassErrTab: DB ZW1,126,ZW1,127,ZW1,128,ZW1,129 ;用户密码错，请重新输入。
                DB ZW1,134,ZW1,111,ZW1,054,ZW1,088
                DB ZW1,135,ZW1,108,ZW1,125,ZW1,059
;
;       ******  显示"系统密码错，请重新输入。"  ******
;
ShowSysPassErr: MOV     DPTR,#SysPassErrTab
                MOV     LcdShowC,#12
                MOV     LcdShowX,#9
                MOV     LcdShowY,#224
                LCALL   DdShowString
                RET
SysPassErrTab:  DB ZW1,041,ZW1,042,ZW1,128,ZW1,129 ;系统密码错，请重新输入。
                DB ZW1,134,ZW1,111,ZW1,054,ZW1,088
                DB ZW1,135,ZW1,108,ZW1,125,ZW1,059



;
;       ******  显示"系统运行状态监视"  ******
;
ShowXtYxZtJs:   MOV     DPTR,#XtYxZtJsTab
                MOV     LcdShowC,#8
                MOV     LcdShowX,#12
                MOV     LcdShowY,#32
                LCALL   DdShowString
                MOV     R3,#060                 ; 设置 X 坐标低 8 位初值
                MOV     R4,#80H                 ; 设置 X 坐标高 8 位初值
                MOV     R5,#254                 ; 设置 X 坐标低 8 位末值
                MOV     R6,#80H                 ; 设置 X 坐标高 8 位末值
                MOV     R7,#052                 ; 设置 Y 坐标初值
;                LCALL   DrawThwartwise
                RET
XtYxZtJsTab:    DB ZW1,041,ZW1,042,ZW1,045,ZW1,046 ;系统运行状态监视
                DB ZW1,029,ZW1,030,ZW1,033,ZW1,136

;
;       ******  显示"JR-2000系统参数设置"  ******
;
ShowSystemSet:  MOV     DPTR,#SystemSetTab
                MOV     LcdShowC,#13
                MOV     LcdShowX,#06
                MOV     LcdShowY,#16
                LCALL   DdShowString
                MOV     R3,#032                 ; 设置 X 坐标低 8 位初值
                MOV     R4,#80H                 ; 设置 X 坐标高 8 位初值
                MOV     R5,#030                 ; 设置 X 坐标低 8 位末值
                MOV     R6,#81H                 ; 设置 X 坐标高 8 位末值
                MOV     R7,#034                 ; 设置 Y 坐标初值
;                LCALL   DrawThwartwise
                RET
SystemSetTab:   DB ZW1,000,ZW1,001,ZW1,002,ZW1,003 ;ＪＲ－２０００系统参数设置
                DB ZW1,004,ZW1,004,ZW1,004,ZW1,041
                DB ZW1,042,ZW1,047,ZW1,048,ZW1,137
                DB ZW1,138

;
;       ******  显示"用户密码设置"  ******
;
ShowUserPassSet:MOV     DPTR,#UserPassSetTab
                MOV     LcdShowC,#8
                MOV     LcdShowX,#02
                MOV     LcdShowY,#48
                LCALL   DdShowString
                RET
UserPassSetTab: DB YW1,000,YW1,001,ZW1,126,ZW1,127 ;1.用户密码修改
                DB ZW1,128,ZW1,129,ZW1,112,ZW1,139

;
;       ******  显示"请修改用户密码："  ******
;
ShowMdfUserPw:  MOV     DPTR,#MdfUserPwTab
                MOV     LcdShowC,#11
                MOV     LcdShowX,#09
                MOV     LcdShowY,#112
                LCALL   DdShowString
                RET
MdfUserPwTab:   DB ZW1,054,ZW1,112,ZW1,139,ZW1,126 ;请修改用户密码:　　　.
                DB ZW1,127,ZW1,128,ZW1,129,YW1,002
                DB ZW1,093,ZW1,093,ZW1,093,YW1,001

;
;       ******  显示"系统密码设置"  ******
;
ShowSysPassSet: MOV     DPTR,#SysPassSetTab
                MOV     LcdShowC,#8
                MOV     LcdShowX,#22
                MOV     LcdShowY,#48
                LCALL   DdShowString
                RET
SysPassSetTab:  DB YW1,003,YW1,001,ZW1,041,ZW1,042 ;2.系统密码修改
                DB ZW1,128,ZW1,129,ZW1,112,ZW1,139

;
;       ******  显示"请修改系统密码："  ******
;
ShowMdfSysPw:   MOV     DPTR,#MdfSysPwTab
                MOV     LcdShowC,#11
                MOV     LcdShowX,#09
                MOV     LcdShowY,#112
                LCALL   DdShowString
                RET
MdfSysPwTab:    DB ZW1,054,ZW1,112,ZW1,139,ZW1,041 ;请修改系统密码:　　　.
                DB ZW1,042,ZW1,128,ZW1,129,YW1,002
                DB ZW1,093,ZW1,093,ZW1,093,YW1,001

;
;       ******  显示"3.工艺参数设置"  ******
;
ShowXtGyCsSz:   MOV     DPTR,#XtGyCsSzTab
                MOV     LcdShowC,#8
                MOV     LcdShowX,#02
                MOV     LcdShowY,#80
                LCALL   DdShowString
                RET
XtGyCsSzTab:    DB YW1,004,YW1,001,ZW1,027,ZW1,140 ;3.工艺参数设置
                DB ZW1,047,ZW1,048,ZW1,137,ZW1,138
;
;       ******  显示"4.历史记录查询"  ******
;
ShowLsJlCx:     MOV     DPTR,#LsJlCxTab
                MOV     LcdShowC,#8
                MOV     LcdShowX,#22
                MOV     LcdShowY,#80
                LCALL   DdShowString
                RET
LsJlCxTab:      DB YW1,005,YW1,001,ZW1,141,ZW1,142 ;4.历史记录查询
                DB ZW1,143,ZW1,144,ZW1,145,ZW1,146

;
;       ******  显示"5.清除系统数据"  ******
;
ShowClrAllData: MOV     DPTR,#ClrAllDataTab
                MOV     LcdShowC,#8
                MOV     LcdShowX,#02
                MOV     LcdShowY,#112
                LCALL   DdShowString
                RET
ClrAllDataTab:  DB YW1,006,YW1,001,ZW1,132,ZW1,133 ;5.清除系统数据
                DB ZW1,041,ZW1,042,ZW1,048,ZW1,076
;
;       ******  显示"6.系统调试功能"  ******
;
ShowXtTsGn:
                MOV     DPTR,#XtTsGnTab
                MOV     LcdShowC,#8
                MOV     LcdShowX,#22
                MOV     LcdShowY,#112
                LCALL   DdShowString
                RET
XtTsGnTab:      DB YW1,007,YW1,001,ZW1,041,ZW1,042 ;6.系统调试功能
                DB ZW1,147,ZW1,055,ZW1,148,ZW1,007


;
;       ******  显示"请选择测试项目编号。"  ******
;