📄 32-256ok.asm.bak
字号:
MOV 7H,48H
JNB 59H,GUA
MOV A,DPL
ADD A,48H
MOV DPL,A
JNC GUA1
INC DPH
GUA1: MOV A,#0FFH
GUA: MOVX @DPTR,A
INC DPTR
DJNZ R7,GUA
POP 7H
RET
GUANG1: MOV R7,4EH
MOV R2,A
GUANG2: MOVX A,@DPTR
ORL A,R2
MOVX @DPTR,A
MOV A,DPL
ADD A,#ZS
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
DJNZ R7,GUANG2
RET
SHANGPU: MOV R3,#HS
SPU: LCALL BB1
SIAPU1: LCALL SJ
LCALL DECZS
LCALL GB
MOV 34H,#1
LCALL SUOLI
DJNZ R3,SIAPU1
RET
DECZS: CLR C
MOV A,41H
SUBB A,#ZS
JNC SIAP1
DEC 42H
DEC 2AH
CLR C
SIAP1: SUBB A,#ZS
MOV 41H,A
JNC SIAPU3
DEC 42H
DEC 2AH
SIAPU3: RET
BB1: MOV 41H,#EHMSD
MOV 42H,#EHMSG
MOV 2AH,#HMSG
RET
YOUPU: MOV R3,#ZS
MOV 4EH,#HS
ZYFP1: MOV 41H,#YD
MOV 3CH,#XG
MOV 3EH,#YG
YUU4: MOV R1,#0C0H
MOV R6,#4
YOU1: LCALL YOU4
MOV 34H,#1
LCALL SUOLI
DJNZ R6,YOU1
INC 41H
DJNZ R3,YUU4
RET
YOU4: MOV 42H,3EH
MOV DPL,41H
MOV 2AH,3CH
MOV R4,4EH
LCALL YOU3
JNB 2AH,YOUU
MOV DPL,41H
MOV DPH,3CH
MOV 2H,R1
MOV A,R1
RR A
RR A
XCH A,R2
CPL A
ANL A,R2
LCALL GUANG1
YOUU: MOV A,R1
RR A
RR A
ORL A,R1
XCH A,R1
RET
YOU3: MOV DPH,42H
MOVX A,@DPTR
ANL A,R1
MOV DPH,2AH
MOVX @DPTR,A
MOV A,DPL
ADD A,#ZS
MOV DPL,A
JNC YOU2
INC 42H
INC 2AH
YOU2: DJNZ R4,YOU3
RET
SJ: MOV R4,#ZS
JNB 58H,SJ1
MOV 4H,48H
JNB 59H,SJ1
LCALL INC48
SJ1: MOV DPL,41H
MOV DPH,42H
MOVX A,@DPTR
MOV DPH,2AH
MOVX @DPTR,A
INC 41H
MOV A,41H
JNZ SI1
INC 42H
INC 2AH
SI1: DJNZ R4,SJ1
JNB 58H,SJ2
JB 59H,SJ2
LCALL INC48
SJ2: RET
SDXD24: SETB 45H
SDXD: JNB 46H,SDXD2
MOV A,#HS
CLR C
JB 45H,D24
SUBB A,#16
AJMP SDXD8
D24: SUBB A,#24
SDXD8: LCALL BB
MOV R3,A
SDXD1: LCALL SJ
DJNZ R3,SDXD1
MOV 3EH,42H
MOV 3DH,41H
MOV 3FH,#1
AJMP SDDD
SDXD2: MOV A,#HS
MOV B,#16
JNB 45H,SDXD9
MOV B,#24
SDXD9: DIV AB
MOV 3FH,A
MOV 3EH,#YG
MOV 3DH,#YD
SDDD: MOV 3BH,#SD16D
MOV 3CH,#SD16G
JNB 45H,SDXD3
MOV 3BH,#SD24D
MOV 3CH,#SD24G
SDXD3: MOV 41H,3DH
MOV 42H,3EH
MOV R3,#4
MOV R2,#LSB
MOV 41H,3DH
MOV R7,41H
ZZO4: MOV R5,#LS
ZZOYI4: MOV R4,#16
JNB 45H,SDXD10
MOV R4,#24
SDXD10: MOV 42H,3EH
MOV 2AH,3CH
MOV 29H,3BH
LCALL ZUOYI1
MOV 3DH,41H
DJNZ R3,ZZOYI7
INC R7
MOV A,R7
JNZ KL
INC 3EH
INC 42H
KL: MOV R3,#4
ZZOYI7: MOV 41H,R7
MOV 34H,#1
LCALL SUOLI
DJNZ R5,ZZOYI4
DJNZ R2,ZZO4
MOV A,3DH
INC A
JNZ ZZO
INC 42H
ZZO: CLR C
SUBB A,#ZS
MOV 3DH,A
JNC ZZO1
DEC 42H
ZZO1: MOV 3EH,42H
DJNZ 3FH,SDXD3
RET
ZUOPU: MOV R3,#ZS
MOV 4EH,#HS
ZYFP: MOV 41H,#H1MD
ZUU4: MOV R1,#3
MOV R6,#4
ZUU5: LCALL ZUU1
MOV 34H,#1
LCALL SUOLI
DJNZ R6,ZUU5
DEC 41H
DJNZ R3,ZUU4
RET
ZUU1: MOV 42H,#YG
MOV DPL,41H
MOV 2AH,#XG
MOV R4,4EH
LCALL YOU3
JNB 2AH,ZUU
MOV DPL,41H
MOV DPH,#XG
MOV 2H,R1
MOV A,R1
RL A
RL A
XCH A,R2
CPL A
ANL A,R2
LCALL GUANG1
ZUU: MOV A,R1
RL A
RL A
ORL A,R1
XCH A,R1
RET
ZUOYOUFP: LCALL ZSDIV2
MOV 4EH,#HS
MOV R3,48H
LCALL ZYFP1
MOV R3,48H
LCALL ZYFP
RET
ZUFP4: MOV 3CH,#XG
MOV 3EH,#YG
LCALL ZSDIV2
MOV R3,A
MOV 3BH,#XD
MOV 3FH,#H1MD
MOV 4EH,#HS
LJMP ZYFP2
ZUFP2: LCALL ZSDIV2
MOV 4EH,#HS
MOV 3CH,#XG
MOV 3EH,#YG
MOV R3,A
ADD A,#XD
MOV 3BH,A
DEC A
MOV 3FH,A
ZYFP2: MOV R6,#4
MOV 47H,#3
MOV 3DH,#0C0H
ZUUP1: MOV R1,47H
MOV 41H,3FH
LCALL ZUU1
MOV 47H,R1
MOV R1,3DH
MOV 41H,3BH
LCALL YOU4
MOV 3DH,R1
MOV 34H,#1
LCALL SUOLI
DJNZ R6,ZUUP1
DEC 3FH
INC 3BH
DJNZ R3,ZYFP2
RET
ZUFP1: LCALL HSDIV2
MOV 4EH,A
MOV R3,#ZS
LCALL ZYFP1
ZYYY: MOV R3,#ZS
MOV A,4EH
MOV B,#ZS
MUL AB
ADD A,#XD
MOV 41H,A
MOV A,B
MOV 2H,C
ADDC A,#XG
MOV 3CH,A
MOV C,2H
MOV A,B
ADDC A,#YG
MOV 3EH,A
LCALL YUU4
RET
ZUFP3: LCALL HSDIV2
MOV 4EH,A
MOV R3,#ZS
LCALL ZYFP
LJMP ZYYY
ORG 0B00H
SHANGXIA: MOV A,#HS
MOV B,#2
DIV AB
MOV R3,A
SXPP: MOV 3BH,#EHMSD
MOV 3FH,#EHMSG
MOV 47H,#HMSG
FXP: MOV 3DH,#YD
MOV 3EH,#YG
MOV 3CH,#XG
SXP: MOV 41H,3DH
MOV 42H,3EH
MOV 2AH,3CH
LCALL SJ
LCALL GB
MOV 3DH,41H
MOV 3EH,42H
MOV 3CH,2AH
MOV 41H,3BH
MOV 42H,3FH
MOV 2AH,47H
JB 5AH,SXP3
CPL 59H
SXP3: LCALL SJ
JB 5BH,SXP4
LCALL DECZS
SXP4: MOV 3BH,41H
MOV 3FH,42H
MOV 47H,2AH
LCALL GB
MOV 34H,#1
LCALL SUOLI
JB 5AH,SXP2
CPL 59H
SXP2: DJNZ R3,SXP
RET
BSX1: SETB 59H
LJMP BSXX
BSX: CLR 59H
BSXX: SETB 58H
LCALL ZSDIV2
MOV R3,#HS
LCALL SXPP
CLR 58H
RET
INC48: MOV A,41H
ADD A,48H
MOV 41H,A
JNC RT
INC 2AH
INC 42H
RT: RET
ZSDIV2: MOV A,#ZS
MOV B,#2
DIV AB
MOV 48H,A
RET
BSX2: CLR 59H
SETB 58H
LCALL ZSDIV2
LCALL SHANGXIA
SETB 59H
LCALL SHANGXIA
CLR 58H
CLR 5AH
RET
BSX3: SETB 59H
SETB 58H
LCALL ZSDIV2
LCALL SHANGXIA
CLR 59H
LCALL SHANGXIA
CLR 58H
CLR 5AH
RET
BSX4: SETB 5AH
LJMP BSX2
BSX5: SETB 5AH
LJMP BSX3
BSX6: SETB 58H
CLR 59H
LCALL ZSDIV2
LCALL SXF
SETB 59H
LCALL SXF
CLR 58H
CLR 59H
RET
BSX7: LCALL HSDIV2
LCALL ZSDIV2
SETB 58H
CLR 59H
LCALL XIAP
SETB 59H
LCALL HSDIV2
LCALL XIAP
LCALL HSDIV2
LCALL ZJDZ
CLR 59H
LCALL XIAPUU
LCALL HSDIV2
LCALL ZJDZ
SETB 59H
LCALL XIAPUU
CLR 58H
CLR 59H
RET
BSX8: LCALL HSDIV2
LCALL ZJDZ
MOV 3DH,41H
MOV 3EH,42H
MOV 3CH,2AH
CLR C
MOV A,41H
SUBB A,#ZS
MOV 3BH,A
MOV 3FH,42H
MOV 47H,2AH
JNC BBB
DEC 3FH
DEC 47H
BBB: LCALL SXP
RET
FCXP: LCALL HSDIV2
LCALL ZJDZ
MOV 3BH,41H
MOV 3FH,42H
MOV 47H,2AH
SETB 5BH
LCALL FXP
CLR 5BH
RET
ZJDZ: MOV B,#ZS
MUL AB
ADD A,#XD
MOV 41H,A
MOV A,B
MOV 2H,C
ADDC A,#YG
MOV 42H,A
MOV A,B
MOV C,2H
ADDC A,#XG
MOV 2AH,A
RET
SHIJIAN: INC 49H
MOV A,49H
CJNE A,#0AEH,SHI1
MOV 49H,#0
INC 4AH
MOV A,4AH
CJNE A,#2 ,SHI1
MOV 4AH,#0
INC 4BH
MOV A,4BH
CJNE A,#60,SHI1
MOV 4BH,#0
INC 4CH
MOV A,4CH
CJNE A,#60,SHI1
MOV 4CH,#0
INC 4DH
MOV A,4DH
CJNE A,#24,SHI1
MOV 4DH,#0
SHI1: RET
SHIJIAN1: MOV A,52H
MOV B,#ZS
MUL AB
ADD A,53H
MOV R0,A
MOV 56H,A
MOV A,B
ADDC A,#XG
MOV R2,A
MOV 57H,A
MOV A,4DH
CJNE A,#24,JAIN
MOV 4DH,#0
JAIN: JC JA
MOV 4DH,#0
JA: MOV A,4CH
CJNE A,#60,JA1
MOV 4CH,#0
JA1: JC JA2
MOV 4CH,#0
JA2: MOV A,4BH
CJNE A,#60,JA3
MOV 4BH,#0
JA3: JC SHIXS1
MOV 4BH,#0
SHIXS1: MOV A,4DH
LCALL BINBCD
MOV R7,#0AAH
LCALL SHIXS
LCALL PYL
MOV A,R6
LCALL SHIXS
LCALL PYL
MOV A,#10
MOV R7,#0FFH
LCALL SHIXS
LCALL PYL
MOV A,4CH
LCALL BINBCD
MOV R7,#055H
LCALL SHIXS
LCALL PYL
MOV A,R6
LCALL SHIXS
MOV R7,#0FFH
LCALL PYL
MOV A,#2
ADD A,R0
MOV 56H,A
MOV R0,A
JNC LOOP
INC R2
MOV 57H,2H
LOOP: MOV A,4BH
LCALL BINBCD
ADD A,#11
LCALL SHIXS
LCALL PYL
MOV A,R0
CLR C
SUBB A,#0
MOV R0,A
JNC LOOP1
DEC R2
LOOP1: MOV A,R6
ADD A,#11
LCALL SHIXS
RET
PYL: MOV A,50H
ADD A,56H
MOV 56H,A
MOV R0,A
MOV A,57H
ADDC A,#0
MOV 57H,A
MOV 2H,57H
RET
BINBCD: MOV B,#10
DIV AB
MOV R6,B
RET
SHIXS: MOV B,50H
MUL AB
MOV B,51H
MUL AB
MOV DPL,54H
MOV DPH,55H
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV 4H,51H
SJIAN: MOV 3H,50H
SJIAN2: MOVX A,@DPTR
MOV P2,R2
ANL A,R7
MOVX @R0,A
INC DPTR
INC R0
MOV A,R0
JNZ SJIAN1
INC R2
SJIAN1: DJNZ R3,SJIAN2
MOV A,#ZS
CLR C
SUBB A,50H
ADD A,R0
MOV R0,A
CLR A
ADDC A,R2
MOV R2,A
DJNZ R4,SJIAN
RET
SHIJIAN2: MOV R5,#120
SHH1: LCALL SHIJIAN1
DJNZ R5,SHH1
RET
SDXSY: MOV A,#HS
CLR C
SUBB A,#SH
MOV R3,A
DEC A
MOV 3FH,A
MOV R5,#SH
LCALL ZIJI2
MOV R1,DPL
MOV R7,DPH
MOV 3BH,R0
MOV 3CH,R2
MOV A,R0
ADD A,#ZS
MOV 3DH,A
MOV A,3CH
ADDC A,#0
MOV 3EH,A
SHAAA6: MOV R0,3BH
MOV R2,3CH
MOV DPH,3EH
MOV DPL,3DH
MOV R5,3FH
LCALL ZI3
LCALL SHH
MOV 34H,#2
LCALL SUOLI
DJNZ R3,SHAAA6
RET
TB: MOV B,#8
MUL AB
MOV DPTR,#0F00H
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV R4,#4
JNB 5DH,TB1
MOV R4,#8
TB1: MOV R3,#2
JNB 5DH,TB2
MOV R3,#1
TB2: CLR A
MOVC A,@A+DPTR
MOV P2,R2
MOVX @R0,A
INC DPTR
INC R0
MOV A,R0
JNZ TB3
INC R2
TB3: DJNZ R3,TB2
MOV A,#ZS
CLR C
JNB 5DH,TB4
SUBB A,#1
AJMP TB5
TB4: SUBB A,#2
TB5: ADD A,R0
MOV R0,A
CLR A
ADDC A,R2
MOV R2,A
DJNZ R4,TB1
RET
TAOBIAN: MOV A,#ZS
MOV B,#4
DIV AB
MOV 3DH,A
MOV A,25H
ANL A,#0F0H
SWAP A
MOV R7,A
MOV A,#HS
MOV B,#16
DIV AB
MOV 47H,A
CLR C
MOV A,#HS
SUBB A,#4
MOV B,#ZS
MUL AB
ADD A,#XD
MOV 3EH,A
MOV A,B
ADDC A,#XG
MOV 3FH,A
MOV 3BH,#XD
MOV 3CH,#XG
CLR 5DH
LCALL TAO1
MOV 3BH,3EH
MOV 3CH,3FH
LCALL TAO1
SETB 5DH
MOV R0,#XD
MOV R2,#XG
LCALL TAO2
MOV A,#ZS
CLR C
SUBB A,#1
ADD A,#XD
MOV R0,A
MOV A,#XG
ADDC A,#0
MOV R2,A
LCALL TAO2
MOV 34H,#7
LCALL SUOLI
RET
TAO2: MOV R1,47H
TAOB1: MOV A,R7
ADD A,#TBZ
JNB 5CH,TAOB2
CLR A
TAOB2: LCALL TB
CLR A
JNB 5CH,TAOB3
MOV A,R7
ADD A,#TBZ
TAOB3: LCALL TB
DJNZ R1,TAOB1
RET
TAO1: MOV R1,3DH
TAOB: MOV R2,3CH
MOV R0,3BH
MOV A,R7
JNB 5CH,TAOB4
CLR A
TAOB4: LCALL TB
LCALL TAO
CLR A
JNB 5CH,TAOB5
MOV A,R7
TAOB5: LCALL TB
LCALL TAO
DJNZ R1,TAOB
RET
TAO: MOV A,3BH
ADD A,#2
MOV 3BH,A
MOV R0,A
MOV A,3CH
ADDC A,#0
MOV 3CH,A
MOV R2,A
RET
ORG 0F00H
TBZKU: DB 0,0,0,0,0,0,0,0
DB 0FCH,0FCH,0CCH,0CCH
DB 0CCH,0CCH,0CFH,0CCH
DB 0FFH,0FCH,30H,30H
DB 0CH,0C0H,03H,00H
DB 80H,0A0H,0A2H,0A8H
DB 2AH,8AH,0AH,02H
DB 41H,04H,14H,50H
DB 14H,50H,41H,04H
DB 0FFH,03H,0FFH,0C0H
DB 0FFH,03H,0FFH,00H
DB 03H,0FH,33H,0C3H
DB 33H,0FH,03H,00H
DB 0AH,28H,0A0H,0A8H
DB 2AH,0AH,28H,0A0H
DB 41H,14H,14H,41H
DB 14H,14H,41H,00H
END⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -