📄 程序.txt
字号:
MOV A,26H
MOVC A,@A+DPTR
MOV 31H,A
DISPLAY2:
MOV R0,#30H
CLR P3.3
CLR P3.2
DISP21: MOV A,@R0
MOV R1,#8
DISP22: RLC A
MOV P3.5,C
SETB P3.2
CLR P3.2
DJNZ R1,DISP22
INC R0
CJNE R0,#36H,DISP21
SETB P3.3
POP ACC
RETI
;**********************************************
T0_END:
RETI
T0_INT:
JB 03H,T0_END
JB 06H,OPEN_T1
CLOSE_T1:
SETB P3.7
CLR 07H
SETB 06H
LCALL RELL
CLR TR0
AJMP T0_OUT
OPEN_T1:
SETB TR1
JB 00H,DO_ZDCZ
MOV A,#0FFH
SUBB A,21H
SUBB A,21H
INC A
MOV TL0,A
LJMP LZALL
DO_ZDCZ:
MOV A,#0FFH
SUBB A,22H
INC A
MOV TL0,A
LZALL:
MOV TH0,#0FFH
CLR 06H
SETB 07H
CLR P3.7
SETB TR0
LCALL RELL
T0_OUT:
RETI
;**********************************************
SJ_CHULI:
CLR EA
JNB 00H,CHDO_1
MOV R7,22H
LJMP DO_CHUHUA
CHDO_1:
MOV R7,21H
DO_CHUHUA:
MOV 2AH,#0
MOV 2BH,#0
MOV 2CH,#0
MOV 2DH,#0
MOV 2EH,#0
MOV 2FH,#0
MOV R0,#24H
MOV R1,#2AH
MOV R6,#6
MOV R3,#0
JIAN_CY1:
CLR C
MOV A,@R0
ADDC A,R3
JIAN_CY2:
MOV R2,A
SUBB A,R7
JC JIAN_NEXT1
MOV R2,A
INC @R1
LJMP JIAN_CY2
JIAN_NEXT1:
MOV B,R2
MOV A,#10
MUL AB
MOV R3,A
INC R0
INC R1
DJNZ R6,JIAN_CY1
MOV 5DH,#0
MOV A,5EH
CLR C
JIAN_CY42:
MOV R2,A
SUBB A,R7
JC JIAN_NEXT41
INC 5DH
LJMP JIAN_CY42
JIAN_NEXT41:
CLR C
MOV A,5DH
SUBB A,#5
JC SJCC
INC 2FH
MOV A,2FH
CJNE A,#10,SRN41
MOV 2FH,#0
INC 2EH
SRN41: MOV A,2EH
CJNE A,#10,SRN42
MOV 2EH,#0
INC 2DH
SRN42: MOV A,2DH
CJNE A,#10,SRN43
MOV 2DH,#0
INC 2CH
SRN43: MOV A,2CH
CJNE A,#10,SRN44
MOV 2CH,#0
INC 2BH
SRN44: MOV A,2BH
CJNE A,#10,SJCC
MOV 2BH,#0
INC 2AH
SJCC: JNB 00H,CCDO_1
MOV R0,#4AH
LJMP CCDO_ALL
CCDO_1: MOV R0,#38H
CCDO_ALL:
MOV R1,#2AH
MOV R6,#3
MOV R3,36H
DEC R3
MOV A,R3
ADD A,R3
ADD A,R3
ADD A,R0
MOV R0,A
DO_CCCY:
MOV A,@R1
MOV R7,#4
CC_CY1:
RL A
DJNZ R7,CC_CY1
INC R1
ADD A,@R1
MOV @R0,A
INC R0
INC R1
DJNZ R6,DO_CCCY
DO_CXCS:
MOV R3,#0
MOV R7,#5
MOV 37H,#0
JB 00H,CXCS_ZD
MOV R1,#38H
LJMP CXCS_ALL
CXCS_ZD: MOV R1,#4AH
CXCS_ALL:
MOV A,R1
MOV R0,A
MOV A,R3
ADD A,R3
ADD A,R3
ADD A,R0
MOV R0,A
CJNE @R0,#0,ADD_CS
INC R0
CJNE @R0,#0,ADD_CS
INC R0
CJNE @R0,#0,ADD_CS
LJMP CXCSN1
ADD_CS: INC 37H
CXCSN1:
INC R3
DJNZ R7,CXCS_ALL
JIAHUA:
MOV R0,#24H
CLR_SBUF1:
MOV @R0,#0
INC R0
CJNE R0,#30H,CLR_SBUF1
JNB 00H,DO_CALB
DO_CAZD: MOV R2,#4AH
LJMP DO_CAALL
DO_CALB: MOV R2,#38H
DO_CAALL:
MOV R3,#0
MOV R5,#5
DO_ADD_CY:
MOV A,R2
MOV R0,A
MOV R1,#2AH
MOV A,R3
ADD A,R3
ADD A,R3
ADD A,R0
MOV R0,A
MOV R6,#3
DO_CXCY3:
MOV A,@R0
ANL A,#0F0H
MOV R7,#4
CXCY: RR A
DJNZ R7,CXCY
MOV @R1,A
INC R1
MOV A,@R0
ANL A,#0FH
MOV @R1,A
INC R0
INC R1
DJNZ R6,DO_CXCY3
MOV R0,#24H
MOV R1,#2AH
MOV R7,#6
DO_ADD1:
MOV A,@R0
ADD A,@R1
MOV @R0,A
INC R0
INC R1
DJNZ R7,DO_ADD1
INC R3
DJNZ R5,DO_ADD_CY
JIA_TIAOZ:
MOV R0,#24H
MOV R1,#2AH
MOV R7,#6
MOV_SBUF:
MOV A,@R0
MOV @R1,A
INC R0
INC R1
DJNZ R7,MOV_SBUF
TIAO:
MOV R0,#29H
MOV R1,#2FH
MOV R7,#10
MOV R6,#6
TJIAN_CY21:
CLR C
MOV A,@R1
DEC R0
TJIAN_CY22:
MOV R2,A
SUBB A,R7
JC TJIAN_NEXT21
MOV R2,A
INC @R0
LJMP TJIAN_CY22
TJIAN_NEXT21:
MOV A,R2
INC R0
MOV @R0,A
MOV R4,29H
DEC R0
MOV A,@R0
DEC R1
MOV @R1,A
DJNZ R6,TJIAN_CY21
MOV 29H,R4
CHUHUA2:
MOV R0,#2AH
CLR_SBUF4:
MOV @R0,#0
INC R0
CJNE R0,#30H,CLR_SBUF4
MOV R0,#24H
MOV R1,#2AH
MOV R7,37H
MOV R6,#6
MOV B,23H
MOV A,#10
MUL AB
MOV R3,A
JIAN_CY21:
CLR C
MOV A,@R0
ADDC A,R3
JIAN_CY22:
MOV R2,A
SUBB A,R7
JC JIAN_NEXT21
INC @R1
LJMP JIAN_CY22
JIAN_NEXT21:
MOV B,R2
MOV A,#10
MUL AB
MOV 5EH,A
MOV R3,A
INC R0
INC R1
DJNZ R6,JIAN_CY21
MOV 5DH,#0
MOV A,5EH
CLR C
JIAN_CY52:
MOV R2,A
SUBB A,37H
JC JIAN_NEXT51
INC 5DH
LJMP JIAN_CY52
JIAN_NEXT51:
CLR C
MOV A,5DH
SUBB A,#5
JC CACC
INC 2FH
MOV A,2FH
CJNE A,#10,SRN51
MOV 2FH,#0
INC 2EH
SRN51: MOV A,2EH
CJNE A,#10,SRN52
MOV 2EH,#0
INC 2DH
SRN52: MOV A,2DH
CJNE A,#10,SRN53
MOV 2DH,#0
INC 2CH
SRN53: MOV A,2CH
CJNE A,#10,SRN54
MOV 2CH,#0
INC 2BH
SRN54: MOV A,2BH
CJNE A,#10,CACC
MOV 2BH,#0
INC 2AH
CACC: JNB 00H,CACCDO_1
MOV R0,#59H
LJMP CACCDO_ALL
CACCDO_1:
MOV R0,#47H
CACCDO_ALL:
MOV R1,#2AH
MOV R6,#3
DO_CACCCY:
MOV A,@R1
MOV R7,#4
CACC_CY1:
RL A
DJNZ R7,CACC_CY1
INC R1
ADD A,@R1
MOV @R0,A
INC R0
INC R1
DJNZ R6,DO_CACCCY
RET
;**********************************************
CHAXUN_SUB:
JNB 00H,DO_LBCX
DO_ZDCX:
MOV R0,#4AH
LJMP CX_ALL
DO_LBCX:
MOV R0,#38H
CX_ALL:
MOV 2AH,#0
MOV 2BH,#0
MOV 2CH,#0
MOV 2DH,#0
MOV 2EH,#0
MOV 2FH,#0
MOV R3,36H
MOV R1,#2AH
DEC R3
MOV A,R3
ADD A,R3
ADD A,R3
ADD A,R0
MOV R0,A
MOV R6,#3
DO_CXCY:
MOV A,@R0
ANL A,#0F0H
MOV R7,#4
CXCY3: RR A
DJNZ R7,CXCY3
MOV @R1,A
INC R1
MOV A,@R0
ANL A,#0FH
MOV @R1,A
INC R0
INC R1
DJNZ R6,DO_CXCY
MOV R0,2AH
CJNE R0,#0,CX_DON1
MOV R0,2BH
CJNE R0,#0,CX_DON2
MOV R0,2CH
CJNE R0,#0,CX_DON3
MOV R0,2DH
CJNE R0,#0,CX_DON4
MOV R0,2EH
CJNE R0,#0,CX_DON4
MOV R0,2FH
CJNE R0,#0,CX_DON4
LJMP CX_DONNO
CX_DON1:
MOV DPTR,#TAB1
MOV A,2AH
MOVC A,@A+DPTR
MOV 33H,A
MOV A,2BH
MOVC A,@A+DPTR
MOV 32H,A
MOV A,2DH
MOVC A,@A+DPTR
MOV 30H,A
MOV DPTR,#TAB2
MOV A,2CH
MOVC A,@A+DPTR
MOV 31H,A
LJMP CX_OUT
CX_DON2:
MOV DPTR,#TAB1
MOV A,2BH
MOVC A,@A+DPTR
MOV 33H,A
MOV A,2DH
MOVC A,@A+DPTR
MOV 31H,A
MOV A,2EH
MOVC A,@A+DPTR
MOV 30H,A
MOV DPTR,#TAB2
MOV A,2CH
MOVC A,@A+DPTR
MOV 32H,A
LJMP CX_OUT
CX_DON3:
MOV DPTR,#TAB1
MOV A,2DH
MOVC A,@A+DPTR
MOV 32H,A
MOV A,2EH
MOVC A,@A+DPTR
MOV 31H,A
MOV A,2FH
MOVC A,@A+DPTR
MOV 30H,A
MOV DPTR,#TAB2
MOV A,2CH
MOVC A,@A+DPTR
MOV 33H,A
LJMP CX_OUT
CX_DON4:
MOV DPTR,#TAB1
MOV 33H,#0FDH
MOV A,2DH
MOVC A,@A+DPTR
MOV 32H,A
MOV A,2EH
MOVC A,@A+DPTR
MOV 31H,A
MOV A,2FH
MOVC A,@A+DPTR
MOV 30H,A
LJMP CX_OUT
CX_DONNO:
MOV 31H,#43H
MOV 30H,#57H
MOV 32H,#0
MOV 33H,#0
CX_OUT: RET
;**********************************************
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
LJMP MAIN
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
LJMP MAIN
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
LJMP MAIN
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
LJMP MAIN
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
LJMP MAIN
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
MOV R7,#0
LJMP MAIN
MOV R7,#0
MOV R7,#0
MOV R7,#0
LJMP MAIN
MOV R7,#0
MOV R7,#0
MOV R7,#0
LJMP MAIN
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -