📄 jrdmdysm.asm
字号:
;
; ****** 用户使用说明页面显示控制程序 ******
;
YhSySm:
YhSySmNr: ret
;
; ****** 输入被测装置号 ******
;
InToEquipSetup:
MOV InterFace,#24
LCALL LcdInit
LCALL ShowRectangle ; 显示一个矩形框
; LCALL ShowSysRuler ; 设备管理员有权进入
LCALL ShowClearWord ; 显示"按←键清除输入"
InToEquipSetup1:LCALL ShowZzbh
CLR WorkPassF
MOV R0,#NoUse4
MOV R1,#ShowBuf
MOV KeyCount,#0
InToEquipSetup2:LCALL ScanKey
JNB KeyF,InToEquipSetup2
CLR KeyF
MOV A,KeyNumber ;
CJNE A,#0AH,InToEquipSetup3
RET
InToEquipSetup3:CJNE A,#0BH,InToEquipSetup4
LCALL MainInterFace1
RET
InToEquipSetup4:CJNE A,#0DH,InToEquipSetup5
SJMP InToEquipSetup1
InToEquipSetup5:MOV A,KeyNumber ;
CLR C
SUBB A,#10
JNC InToEquipSetup2
INC KeyCount
MOV A,KeyNumber ;
MOVX @R0,A
INC R0
MOV A,#TSK
MOVX @R1,A
INC R1
MOV A,KeyNumber ;
; MOV A,#190 ; 显示 " * "
MOVX @R1,A
INC R1
MOV LcdShowX,#21
MOV LcdShowY,#112
MOV A,KeyCount
MOV LcdShowC,A
LCALL DdShowString2
MOV A,KeyCount
CLR C
SUBB A,#PassNum
JC InToEquipSetup2
InToEquipExit: LCALL ScanKey
JNB KeyF,InToEquipExit
CLR KeyF
MOV A,KeyNumber ;
CJNE A,#0DH,InToEquipExit1
SJMP InToEquipSetup1
InToEquipExit1: CJNE A,#0AH,InToEquipExit2
RET
InToEquipExit2: CJNE A,#0BH,InToEquipExit
MOV R0,#NoUse4
MOV DPTR,#ExtTempBuf+0
MOVX A,@R0
MOVX @DPTR,A
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
RET
;---------------------------------------------------------
ShowBcJjSj: MOV R0,#TempBuf+45
MOV R1,#ShowBuf
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV LcdShowX,#12
MOV LcdShowY,#220
MOV LcdShowC,#4
LCALL DdShowString2
ret
;
; ****** 输入拆下车号 ******
;
InToCsJchSetup:
MOV InterFace,#24
LCALL LcdInit
LCALL ShowRectangle ; 显示一个矩形框
; LCALL ShowSysRuler ; 设备管理员有权进入
LCALL ShowClearWord ; 显示"按←键清除输入"
InToCsJchSetup1:LCALL ShowCxCh
CLR WorkPassF
MOV R0,#NoUse4
MOV R1,#ShowBuf
MOV KeyCount,#0
InToCsJchSetup2:LCALL ScanKey
JNB KeyF,InToCsJchSetup2
CLR KeyF
MOV A,KeyNumber ;
CJNE A,#0AH,InToCsJchSetup3
RET
InToCsJchSetup3:CJNE A,#0BH,InToCsJchSetup4
LCALL MainInterFace1
RET
InToCsJchSetup4:CJNE A,#0DH,InToCsJchSetup5
SJMP InToCsJchSetup1
InToCsJchSetup5:MOV A,KeyNumber ;
CLR C
SUBB A,#10
JNC InToCsJchSetup2
INC KeyCount
MOV A,KeyNumber ;
MOVX @R0,A
INC R0
MOV A,#TSK
MOVX @R1,A
INC R1
MOV A,KeyNumber ;
; MOV A,#190 ; 显示 " * "
MOVX @R1,A
INC R1
MOV LcdShowX,#21
MOV LcdShowY,#112
MOV A,KeyCount
MOV LcdShowC,A
LCALL DdShowString2
MOV A,KeyCount
CLR C
SUBB A,#PassNum
JC InToCsJchSetup2
InToCsJchExit: LCALL ScanKey
JNB KeyF,InToCsJchExit
CLR KeyF
MOV A,KeyNumber ;
CJNE A,#0DH,InToCsJchExit1
SJMP InToCsJchSetup1
InToCsJchExit1: CJNE A,#0AH,InToCsJchExit2
RET
InToCsJchExit2: CJNE A,#0BH,InToCsJchExit
MOV R0,#NoUse4
MOV DPTR,#ExtTempBuf+10
MOVX A,@R0
MOVX @DPTR,A
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
RET
;---------------------------------------------------------
ShowCsJchSj: MOV R0,#TempBuf+19
MOV R1,#ShowBuf
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV LcdShowX,#15
MOV LcdShowY,#158
MOV LcdShowC,#4
LCALL DdShowString2
ret
;
; ****** 输入装上车号 ******
;
InToZsJchSetup:
MOV InterFace,#24
LCALL LcdInit
LCALL ShowRectangle ; 显示一个矩形框
; LCALL ShowSysRuler ; 设备管理员有权进入
LCALL ShowClearWord ; 显示"按←键清除输入"
InToZsJchSetup1:LCALL ShowZxCh
CLR WorkPassF
MOV R0,#NoUse4
MOV R1,#ShowBuf
MOV KeyCount,#0
InToZsJchSetup2:LCALL ScanKey
JNB KeyF,InToZsJchSetup2
CLR KeyF
MOV A,KeyNumber ;
CJNE A,#0AH,InToZsJchSetup3
RET
InToZsJchSetup3:CJNE A,#0BH,InToZsJchSetup4
LCALL MainInterFace1
RET
InToZsJchSetup4:CJNE A,#0DH,InToZsJchSetup5
SJMP InToZsJchSetup1
InToZsJchSetup5:MOV A,KeyNumber ;
CLR C
SUBB A,#10
JNC InToZsJchSetup2
INC KeyCount
MOV A,KeyNumber ;
MOVX @R0,A
INC R0
MOV A,#TSK
MOVX @R1,A
INC R1
MOV A,KeyNumber ;
; MOV A,#190 ; 显示 " * "
MOVX @R1,A
INC R1
MOV LcdShowX,#21
MOV LcdShowY,#112
MOV A,KeyCount
MOV LcdShowC,A
LCALL DdShowString2
MOV A,KeyCount
CLR C
SUBB A,#PassNum
JC InToZsJchSetup2
InToZsJchExit: LCALL ScanKey
JNB KeyF,InToZsJchExit
CLR KeyF
MOV A,KeyNumber ;
CJNE A,#0DH,InToZsJchExit1
SJMP InToZsJchSetup1
InToZsJchExit1: CJNE A,#0AH,InToZsJchExit2
RET
InToZsJchExit2: CJNE A,#0BH,InToZsJchExit
MOV R0,#NoUse4
MOV DPTR,#ExtTempBuf+14
MOVX A,@R0
MOVX @DPTR,A
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
RET
;---------------------------------------------------------
ShowZsJchSj: MOV R0,#TempBuf+23
MOV R1,#ShowBuf
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0 ;
MOVX @R1,A
INC R1
INC R0
MOV LcdShowX,#35
MOV LcdShowY,#158
MOV LcdShowC,#4
LCALL DdShowString2
ret
;
; ****** 输入装上日期 ******
;
InToZsRqSetup:
MOV InterFace,#24
LCALL LcdInit
LCALL ShowClearWord ; 显示"按←键清除输入"
InToZsRqSetup1: LCALL ShowZxRq
CLR WorkPassF
MOV R0,#NoUse4
MOV R1,#ShowBuf
MOV KeyCount,#0
InToZsRqSetup2: LCALL ScanKey
JNB KeyF,InToZsRqSetup2
CLR KeyF
MOV A,KeyNumber ;
CJNE A,#0AH,InToZsRqSetup3
RET
InToZsRqSetup3: CJNE A,#0BH,InToZsRqSetup4
LCALL MainInterFace1
RET
InToZsRqSetup4: CJNE A,#0DH,InToZsRqSetup5
SJMP InToZsRqSetup1
InToZsRqSetup5: MOV A,KeyNumber ;
CLR C
SUBB A,#10
JNC InToZsRqSetup2
INC KeyCount
MOV A,KeyNumber ;
MOVX @R0,A
INC R0
MOV A,#TSK
MOVX @R1,A
INC R1
MOV A,KeyNumber ;
; MOV A,#190 ; 显示 " * "
MOVX @R1,A
INC R1
MOV LcdShowX,#16
MOV LcdShowY,#112
MOV A,KeyCount
MOV LcdShowC,A
LCALL DdShowString2
MOV A,KeyCount
CLR C
SUBB A,#2
JC InToZsRqSetup2
MOV R1,#ShowBuf
MOV KeyCount,#0
CH05: LCALL ScanKey
JNB KeyF,CH05
CLR KeyF
MOV A,KeyNumber ;
CLR C
SUBB A,#10
JNC CH05
INC KeyCount
MOV A,KeyNumber ;
MOVX @R0,A
INC R0
MOV A,#TSK
MOVX @R1,A
INC R1
MOV A,KeyNumber ;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -