📄 32-256ok.asm.bak
字号:
XD EQU 0H
XG EQU 5H
YD EQU 0H
YG EQU 20H
KHS EQU 4
HKS EQU 8
ZS EQU 64
; DS EQU 32
HS EQU 32
LD EQU 0
LG EQU 0H
TD EQU 10H
TG EQU 00H
TSD EQU 0
TSG EQU 70H
TSDD EQU 0
XPD EQU 0
XPG EQU 10H
HMSD EQU 0C0H
HMSG EQU 0CH
H2SG EQU 5
H2SD EQU 64
EHMSG EQU 27H
EHMSD EQU 0C0H
H1MG EQU 5
H1MD EQU 63
LSB EQU 2
LS EQU 128
LCD EQU 0
LCG EQU 5CH
LCDD EQU 0
SD16D EQU 03fH
SD16G EQU 9H
SD24D EQU 3fH
SD24G EQU 7H
SH EQU 16
TBZ EQU 4
TXJIHAO EQU 1
ORG 0H
LJMP CUOSI
ORG 0BH
LJMP XS
ORG 23H
LJMP T
ORG 30H
XS: PUSH ACC
PUSH PSW
PUSH DPH
PUSH DPL
PUSH P1
SETB RS0
MOV P1,40H
LCALL SHIJIAN
MOV TH0,#06AH
MOV DPH,31H ;XIE SI FA CEN QU DI ZI
MOV DPL,30H
KS: SETB P1.4
CLR C
MOV R3,#KHS
WR3: MOV R4,#HKS
WR2: MOVX A,@DPTR
CLR P1.4
INC DPL
MOVX A,@DPTR
INC DPL
MOVX A,@DPTR
INC DPL
MOVX A,@DPTR
INC DPL
MOVX A,@DPTR
INC DPL
MOVX A,@DPTR
INC DPL
MOVX A,@DPTR
INC DPL
MOVX A,@DPTR
INC DPL
MOV A,DPL
JNZ OPP
INC DPH
OPP: DJNZ R4,WR2
MOV A,45H
ADD A,DPL
MOV DPL,A
MOV A,46H
ADDC A,DPH
MOV DPH,A
DJNZ R3,WR3
MOV A,30H
ADD A,#ZS
MOV 30H,A
MOV A,31H
ADDC A,#0
MOV 31H,A
INC 40H
MOV A,40H
CJNE A,#8,XS1
DEC 34H
DJNZ 33H,XS10
MOV 33H,#16
DEC 21H
XS10: MOV 40H,#0
MOV 31H,#XG
MOV 30H,#XD
XS1: POP P1
POP DPL
POP DPH
POP PSW
POP ACC
RETI
JMP0: MOV A,26H
PUSH ACC
MOV A,#4
PUSH ACC
RET
JICUNQI: MOV 43H,#XPD
MOV 44H,#XPG
MOV 30H,#XD
MOV 31H,#XG
MOV 33H,#16
MOV 32H,#0
MOV 40H,#0
MOV 2FH,#0
MOV 2DH,#0
MOV 35H,#0
MOV 36H,#0
MOV 3AH,#0
MOV 2BH,#0
MOV 2CH,#0
MOV 49H,#0
MOV 4AH,#0
MOV 4BH,#0
MOV 4CH,#0
MOV 4DH,#0
MOV 58H,#0
RET
ORG 100H
CUOSI: MOV SP,#60H
MOV IE,#92H
NOP
NOP
NOP
MOV TMOD,#20H
MOV TH1,#0FDH
MOV TL1,#0FDH
MOV SCON,#0F0H ;FANG SI 3
MOV TCON,#40H
MOV IP,#10H ;QUE HANG KAO ZUI GAO
MOV TH0,#06AH
MOV B,#HKS
MOV A,#56
MUL AB
MOV 45H,A
MOV 46H,B
MOV P1,#0
ACALL KQ
MOV DPH,#XG
MOV DPL,#XD
SETB P1.4
MOVX A,@DPTR
CLR P1.4
MOV R3,#8
QING2: MOV R4,#KHS
QT: MOV R5,#ZS
QING3: MOVX A,@DPTR
DJNZ R5,QING3
DJNZ R4,QT
INC P1
DJNZ R3,QING2
LCALL JICUNQI
AJMP KAISI
ORG 150H
KAISI: MOV 38H,44H
MOV 37H,43H
SETB TR0
KAISI1: JNB 7DH,KII
LCALL KQ
KAAAA1: JNB 7DH,KII
LCALL SHIJIAN1
AJMP KAAAA1
KII: JNB 7EH,KII1
JNB 47H,KII1
LCALL KQ
LCALL SHIJIAN2
LCALL KQ
KII1: MOV DPH,38H
MOV DPL,37H
MOV R1,#21H
JNB 68H,KAISI2
MOV DPH,#LG
MOV DPL,#LD
KAISI2: JB 68H,KK
JB 69H,KK
CLR A
MOVC A,@A+DPTR
AJMP KK1
KK: MOVX A,@DPTR
KK1: MOV @R1,A
INC DPTR
INC R1
CJNE R1,#29H,KAISI2
MOV 39H,21H
JB 68H,UU1
MOV 37H,DPL
MOV 38H,DPH
AJMP UU
UU1: MOV 22H,#LCD
MOV 23H,#LCG
MOV 24H,#0
UU: MOV A,#0CH
CJNE A,26H,UIO
LCALL ZIJIX
AJMP UIOP
UIO: LCALL WW1
UIOP: JB 68H,KAISI4
KK7: JNB 47H,KAISI4
JNB 6BH,KK5
JNB 6CH,KK3
CPL 6AH
JB 6AH,KK5
KK3: MOV 38H,#TG
MOV 37H,#TD
SETB 69H
AJMP KAISI4
KK5: MOV 38H,44H
MOV 37H,43H
CLR 69H
KAISI4: CLR 68H
LCALL JMP0
LJ: JNB 6DH,LJ2
AJMP DENDAI
LJ2: MOV 21H,39H
DENDAI: JNB 2BH,DE1
LCALL KQ
MOV 34H,#0DH
LCALL SUOLI
LCALL ZIJI
MOV 34H,#0DH
LCALL SUOLI
AJMP DEE
DE1: MOV A,25H
ANL A,#0F0H
JZ DEE
LCALL TAOBIAN
CPL 5CH
DEE: JNB 6DH,DEE1
JNB 68H,DENDAI
AJMP LJ1
DEE1: MOV A,21H
CJNE A,#40H,DE2
DE2: JNC LJ1
JNZ DENDAI
LJ1: MOV A,25H
ANL A,#3
JZ K
ACALL Q1
K: AJMP KAISI1
KQ: MOV DPH,#XG
MOV DPL,#XD
CLR A
MOV R3,#ZS
QING1: MOV R4,#HS
QING: MOVX @DPTR,A
INC DPTR
DJNZ R4,QING
DJNZ R3,QING1
RET
SUOLI: MOV A,34H
JNZ SUOLI
RET
SHANG: MOV R3,#HS
MOV R1,#YD
MOV R7,#YG
SHANG6: MOV R0,#XD
MOV R2,#XG
MOV DPH,#H2SG
MOV DPL,#H2SD
MOV A,#HS
DEC A
MOV R5,A
LCALL ZI3
LCALL SHH
MOV 34H,#1
LCALL SUOLI
DJNZ R3,SHANG6
RET
SHH: MOV R6,#ZS
MOV DPH,#HMSG
MOV DPL,#HMSD
SHANG5: MOV P2,R7
MOVX A,@R1
MOVX @DPTR,A
INC DPTR
INC R1
MOV A,R1
JNZ SHANG4
INC R7
SHANG4: DJNZ R6,SHANG5
RET
ZUOYI: MOV R3,#4
ZUO1: MOV R5,#LSB
MOV 41H,#YD
MOV R7,41H
ZUOYI10: MOV R2,#LS
ZUOYI4: MOV R4,#HS
MOV 42H,#YG
MOV 2AH,#H1MG
MOV 29H,#H1MD
LCALL ZUOYI1
DJNZ R3,ZUOYI7
INC R7
MOV R3,#4
ZUOYI7: MOV 41H,R7
MOV 34H,#1
LCALL SUOLI
DJNZ R2,ZUOYI4
DJNZ R5,ZUOYI10
RET
ZUOYI1: MOV R1,#2
ZUOYI6: MOV DPH,42H
MOV DPL,41H
MOVX A,@DPTR
RLC A
MOVX @DPTR,A
MOV DPL,29H
MOV DPH,2AH
MOV R6,#ZS
LLL1: MOVX A,@DPTR
RLC A
MOVX @DPTR,A
DEC DPL
MOV A,DPL
XRL A,#0FFH
JNZ LLL
DEC DPH
LLL: DJNZ R6,LLL1
DJNZ R1,ZUOYI6
MOV A,#ZS
ADD A,41H
MOV 41H,A
JNC ZUOYI2
INC 42H
ZUOYI2: MOV A,#ZS
ADD A,29H
MOV 29H,A
JNC ZUOYI3
INC 2AH
ZUOYI3: DJNZ R4,ZUOYI1
RET
ORG 300H
XIAPU: MOV R3,#HS
XIAP: LCALL BB
XIAPUU: LCALL SJ
LCALL GB
MOV 34H,#1
LCALL SUOLI
DJNZ R3,XIAPUU
RET
BB: MOV 41H,#YD
MOV 42H,#YG
MOV 2AH,#XG
RET
GB: CJNE R3,#1,GB1
AJMP XIA1
GB1: JNB 2AH,XIA1
MOV DPH,2AH
MOV DPL,41H
LCALL GUANG
XIA1 : RET
SXF: LCALL HSDIV2
LCALL XIAP
LCALL HSDIV2
LCALL SPU
RET
HSDIV2: MOV A,#HS
MOV B,#2
DIV AB
MOV R3,A
RET
ORG 350H
WW1: MOV DPH,23H
MOV DPL,22H
MOV P1,#0
MOV R0,#YD
MOV P2,#YG
MOV R3,#ZS
SS1: MOV R4,#HS
SS: JB 68H,SS3
JB 69H,SS3
CLR A
MOVC A,@A+DPTR
AJMP SS4
SS3: MOV P1,24H
MOVX A,@DPTR
MOV P1,#0
SS4: MOVX @R0,A
INC DPL
MOV A,DPL
JNZ SW
INC DPH
MOV A,DPH
JNZ SW
MOV A,24H
ADD A,#20H
MOV 24H,A
SW: INC R0
MOV A,R0
JNZ SS2
INC P2
SS2: DJNZ R4,SS
DJNZ R3,SS1
RET
ORG 400H
LJMP SHANG
ORG 404H
LJMP ZUOYI
ORG 408H
LJMP XIAPU
ORG 40CH
RET
ORG 410H
LJMP YOUPU
ORG 414H
LJMP SHANGPU
ORG 418H
LJMP SXF
ORG 41CH
LJMP SDXSY
ORG 420H
LJMP ZUOPU
ORG 424H
LJMP SHANGXIA
ORG 428H
LJMP BSX
ORG 42CH
LJMP BSX1
ORG 430H
LJMP BSX2
ORG 434H
LJMP BSX3
ORG 438H
LJMP BSX4
ORG 43CH
LJMP BSX5
ORG 440H
LJMP SDXD
ORG 444H
LJMP SDXD24
ORG 448H
LJMP FCXP
ORG 44CH
LJMP BSX6
ORG 450H
LJMP BSX7
ORG 454H
LJMP BSX8
ORG 458H
LJMP ZUOYOUFP
ORG 45CH
LJMP ZUFP1
ORG 460H
LJMP ZUFP2
ORG 464H
LJMP ZUFP3
ORG 468H
LJMP ZUFP4
ORG 500H
T: PUSH PSW
PUSH ACC
PUSH DPL
PUSH DPH
PUSH P1
SETB RS1
SETB RS0
CLR RI
JNB RB8,DJT2
MOV A,SBUF
CJNE A,#0FFH,DJT3
SETB SM2
AJMP ST1
DJT3: CJNE A,#0FEH,DJT
DJT1: CLR SM2
DJT4: AJMP ST1
DJT: CJNE A,#TXJIHAO,DJT4
AJMP DJT1
DJT2: MOV A,32H
CJNE A,#0,ST2
TA1: MOV A,SBUF
CJNE A,#22,T3
INC 32H
AJMP ST1
T3: LCALL TQ
AJMP ST1
ST2: CJNE A,#6,TA
INC 32H
AJMP ST1
TA: JC TA1
TA2: CJNE A,#7,TA3
MOV A,SBUF
MOV 2FH,A
JB 7DH,TYY
JB 7EH,TYY
JNB 60H,TYT
JNB 7BH,TYY1
SETB 6BH
CLR 6DH
SETB 6CH
AJMP TEND
TYT: JNB 7BH,TYY1
AJMP TYT1
TYY1: JNB 7FH,TYY2
MOV 37H,#TD
MOV 38H,#TG
SETB 69H
SETB 6BH
CLR 6CH
CLR 6DH
AJMP TEND
TYY2: JNB 7CH,TY
TYT1: MOV 2FH,#0
MOV 2DH,#0
MOV 38H,44H
MOV 37H,43H
AJMP TEND
TYY: MOV R0,#4DH
CLR 6DH
INC 32H
AJMP ST1
TY: MOV R0,#8
MOV 35H,#LCD
MOV 36H,#LCG
MOV 58H,#LCDD
JNB 79H,TTT
MOV 35H,#TSD
MOV 36H,#TSG
MOV 58H,#TSDD
TTT: INC 32H
AJMP ST1
TA3: CJNE A,#8,TP
JB 7DH,TPP
JB 7EH,TPP
AJMP TA4
TPP: CJNE R0,#50H,SHIB
SHIB: JNC SHIB1
MOV A,SBUF
MOV @R0,A
DEC R0
CJNE R0,#4AH,ST1
MOV R0,#50H
AJMP ST1
SHIB1: MOV A,SBUF
MOV @R0,A
INC R0
CJNE R0,#56H,ST1
MOV 35H,54H
MOV 36H,55H
INC 32H
AJMP ST1
TP: JB 7DH,SHB
JB 7EH,SHB
JNB 79H,T4
CLR 6DH
JB 0H,T5
SETB 0H
MOV A,SBUF
MOV R2,#8
MOV R1,A
AJMP ST1
T5: ACALL TT
DJNZ R2,ST1
MOV R2,#8
DJNZ R1,ST1
SETB 6BH
SETB 60H
CLR 6CH
MOV 37H,#TD
MOV 38H,#TG
SETB 69H
AJMP TEND
TA4: ACALL TT
MOV A,3AH
CJNE A,#09H,TA6
MOV 3AH,#0
MOV 35H,#LD
MOV 36H,#LG
MOV 58H,#0
JNB 79H,TTT1
MOV 35H,#TD
MOV 36H,#TG
TTT1: INC 32H
AJMP ST1
TA6: MOV A,SBUF
CJNE A,#0A5H,TA5
INC 3AH
AJMP ST1
TA5: MOV 3AH,#0
ST1: POP P1
POP DPH
POP DPL
POP ACC
POP PSW
RETI
SHB: ACALL TT
MOV A,3AH
CJNE A,#09H,SHB1
MOV 3AH,#0
AJMP TEND
SHB1: MOV A,SBUF
CJNE A,#0A5H,SHB2
INC 3AH
AJMP ST1
SHB2: MOV 3AH,#0
AJMP ST1
T4: ACALL TT
DJNZ R0,ST1
SETB 68H
CLR 6DH
JNB 78H,TEND
SETB 6DH
TEND: LCALL TQ
MOV 58H,#0
SETB SM2
AJMP ST1
TT: MOV A,SBUF
MOV DPH,36H
MOV DPL,35H
MOV P1,58H
MOVX @DPTR,A
INC 35H
MOV A,35H
JNZ TT1
INC 36H
MOV A,36H
JNZ TT1
MOV A,58H
ADD A,#20H
MOV 58H,A
TT1: RET
TQ: MOV 32H,#0
MOV 20H,#0
RET
ORG 700H
Q1: CJNE A,#1,Q2
MOV R4,#HS
MOV DPH,#XG
MOV DPL,#XD
QQ3: MOV 34H,#1
MOV R3,#ZS
CLR A
QQ: MOVX @DPTR,A
INC DPTR
DJNZ R3,QQ
QQ1: MOV A,34H
JNZ QQ1
DJNZ R4,QQ3
RET
Q2: CJNE A,#2,Q3
LCALL KQ
RET
Q3: MOV R0,#0FFH
MOV 2AH,#XG
MOV 29H,#XD
MOV R5,#ZS
Q8: MOV R4,#4
Q7: MOV DPH,2AH
MOV DPL,29H
MOV R3,#HS
MOV A,R0
ANL A,#0FCH
RR A
RR A
MOV R0,A
Q5: MOVX A,@DPTR
ANL A,R0
MOVX @DPTR,A
MOV A,DPL
ADD A,#ZS
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
Q4: DJNZ R3,Q5
DJNZ R4,Q7
INC 29H
MOV R0,#0FFH
DJNZ R5,Q8
RET
ORG 800H
ZIJI: MOV R5,#HS
ZIJI2: MOV DPH,#YG
MOV DPL,#YD
MOV R0,#XD
MOV R2,#XG
ZI3: MOV R4,#ZS
ZI1: MOVX A,@DPTR
MOV P2,R2
MOVX @R0,A
INC DPTR
INC R0
MOV A,R0
JNZ ZI2
INC R2
ZI2: DJNZ R4,ZI1
DJNZ R5,ZI3
RET
ZIJIX: MOV R5,#HS
ZIJ2: MOV DPH,23H
MOV DPL,22H
MOV R0,#XD
MOV R2,#XG
Z3: MOV R4,#ZS
Z1 : JB 68H,Z4
JB 69H,Z4
CLR A
MOVC A,@A+DPTR
AJMP Z5
Z4: MOV P1,24H
MOVX A,@DPTR
MOV P1,#0
Z5: MOV P2,R2
MOVX @R0,A
INC DPL
MOV A,DPL
JNZ ZZZ
INC DPH
MOV A,DPH
JNZ ZZZ
MOV A,24H
ADD A,#20H
MOV 24H,A
ZZZ: INC R0
MOV A,R0
JNZ Z2
INC R2
Z2 : DJNZ R4,Z1
DJNZ R5,Z3
RET
GUANG: MOV A,#0FFH
PUSH 7H
MOV R7,#ZS
JNB 58H,GUA
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -