📄 jrdmdysm.asm
字号:
; MOV A,#190 ; 显示 " * "
MOVX @R1,A
INC R1
MOV LcdShowX,#22
MOV LcdShowY,#112
MOV A,KeyCount
MOV LcdShowC,A
LCALL DdShowString2
MOV A,KeyCount
CLR C
SUBB A,#2
JC CH05
MOV R1,#ShowBuf
MOV KeyCount,#0
CH06: LCALL ScanKey
JNB KeyF,CH06
CLR KeyF
MOV A,KeyNumber ;
CLR C
SUBB A,#10
JNC CH06
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,#28
MOV LcdShowY,#112
MOV A,KeyCount
MOV LcdShowC,A
LCALL DdShowString2
MOV A,KeyCount
CLR C
SUBB A,#2
JC CH06
InToZsRqExit: LCALL ScanKey
JNB KeyF,InToZsRqExit
CLR KeyF
MOV A,KeyNumber ;
CJNE A,#0DH,InToZsRqExit1
LJMP InToZsRqSetup1
InToZsRqExit1: CJNE A,#0AH,InToZsRqExit2
RET
InToZsRqExit2: CJNE A,#0BH,InToZsRqExit3
MOV R0,#NoUse4
MOV DPTR,#ExtTempBuf+24
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
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
RET
InToZsRqExit3: LJMP InToZsRqSetup
;---------------------------------------------------------
ShowZsRqSj: MOV R1,#ShowBuf
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,#002
MOVX @R1,A ; 2
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,#000
MOVX @R1,A ; 0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV R0,#TempBuf+33
MOV A,@R0
MOVX @R1,A ; X 年
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0
MOVX @R1,A ; X 年
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,#066 ; .
MOVX @R1,A ; .
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0
MOVX @R1,A ; X 月
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0
MOVX @R1,A ; X 月
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,#066
MOVX @R1,A ; .
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0
MOVX @R1,A ; X 日
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0
MOVX @R1,A ; X 日
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,#066 ; .
MOVX @R1,A
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV LcdShowC,#10
MOV LcdShowX,#30
MOV LcdShowY,#179
LCALL DdShowString2
RET
;
; ****** 输入拆下日期 ******
;
InToCsRqSetup:
MOV InterFace,#24
LCALL LcdInit
LCALL ShowClearWord ; 显示"按←键清除输入"
InToCsRqSetup1: LCALL ShowCxRq
CLR WorkPassF
MOV R0,#NoUse4
MOV R1,#ShowBuf
MOV KeyCount,#0
InToCsRqSetup2: LCALL ScanKey
JNB KeyF,InToCsRqSetup2
CLR KeyF
MOV A,KeyNumber ;
CJNE A,#0AH,InToCsRqSetup3
RET
InToCsRqSetup3: CJNE A,#0BH,InToCsRqSetup4
LCALL MainInterFace1
RET
InToCsRqSetup4: CJNE A,#0DH,InToCsRqSetup5
SJMP InToCsRqSetup1
InToCsRqSetup5: MOV A,KeyNumber ;
CLR C
SUBB A,#10
JNC InToCsRqSetup2
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 InToCsRqSetup2
MOV R1,#ShowBuf
MOV KeyCount,#0
CH07: LCALL ScanKey
JNB KeyF,CH07
CLR KeyF
MOV A,KeyNumber ;
CLR C
SUBB A,#10
JNC CH07
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,#22
MOV LcdShowY,#112
MOV A,KeyCount
MOV LcdShowC,A
LCALL DdShowString2
MOV A,KeyCount
CLR C
SUBB A,#2
JC CH07
MOV R1,#ShowBuf
MOV KeyCount,#0
CH08: LCALL ScanKey
JNB KeyF,CH08
CLR KeyF
MOV A,KeyNumber ;
CLR C
SUBB A,#10
JNC CH08
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,#28
MOV LcdShowY,#112
MOV A,KeyCount
MOV LcdShowC,A
LCALL DdShowString2
MOV A,KeyCount
CLR C
SUBB A,#2
JC CH08
InToCsRqExit: LCALL ScanKey
JNB KeyF,InToCsRqExit
CLR KeyF
MOV A,KeyNumber ;
CJNE A,#0DH,InToCsRqExit1
LJMP InToCsRqSetup1
InToCsRqExit1: CJNE A,#0AH,InToCsRqExit2
RET
InToCsRqExit2: CJNE A,#0BH,InToCsRqExit3
MOV R0,#NoUse4
MOV DPTR,#ExtTempBuf+18
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
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
INC R0
INC DPTR
MOVX A,@R0
MOVX @DPTR,A
RET
InToCsRqExit3: LJMP InToCsRqSetup
;---------------------------------------------------------
ShowCsRqSj: MOV R1,#ShowBuf
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,#002
MOVX @R1,A ; 2
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,#000
MOVX @R1,A ; 0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV R0,#TempBuf+27
MOV A,@R0
MOVX @R1,A ; X 年
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0
MOVX @R1,A ; X 年
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,#066 ; .
MOVX @R1,A ; .
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0
MOVX @R1,A ; X 月
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0
MOVX @R1,A ; X 月
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,#066
MOVX @R1,A ; .
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0
MOVX @R1,A ; X 日
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,@R0
MOVX @R1,A ; X 日
INC R0
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV A,#066 ; .
MOVX @R1,A
INC R1
MOV A,#XWK
MOVX @R1,A
INC R1
MOV LcdShowC,#10
MOV LcdShowX,#10
MOV LcdShowY,#179
LCALL DdShowString2
RET
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -