📄 mfxbs.asm
字号:
MOV A,R0
SUBB A,R1
JZ T438H
CLR 0D5H
CLR 39H
JB 0E7H,T45CH
CJNE R5,#00H,T469H
CJNE R6,#00H,T469H
CJNE R7,#00H,T469H
MOV A,R0
MOV R1,A
T438H: JB 3AH,T471H
MOV A,R4
ADD A,R7
MOV R7,A
MOV A,R3
ADDC A,R6
MOV R6,A
MOV A,R2
ADDC A,R5
MOV R5,A
JNC T450H
SETB 39H
CLR C
SETB 0D5H
T44BH: LCALL FSD4
MOV A,R1
MOV R0,A
T450H: POP ACC
MOV R1,A
POP ACC
XCH A,R0
MOV C,38H
MOV 0E7H,C
XCH A,R4
RET
T45CH: CJNE R2,#00H,T46BH
CJNE R3,#00H,T46BH
CJNE R4,#00H,T46BH
MOV A,R1
MOV R0,A
SJMP T438H
T469H: CPL 0D5H
T46BH: CLR C
LCALL FSD4
SJMP T421H
T471H: CLR C
MOV A,R4
SUBB A,R7
MOV R7,A
MOV A,R3
SUBB A,R6
MOV R6,A
MOV A,R2
SUBB A,R5
MOV R5,A
JNC T489H
CLR A
CLR C
SUBB A,R7
MOV R7,A
CLR A
SUBB A,R6
MOV R6,A
CLR A
SUBB A,R5
MOV R5,A
CPL 38H
T489H: SETB C
CLR 0D5H
SJMP T44BH
;FAD4:
FAD4: CLR 3AH
LCALL FLD4
LCALL FAB4
RET
;FSB4:
FSB4: SETB 3AH
LCALL FLD4
LCALL FAB4
RET
;FSD4:
FSD4: JC T4BDH
MOV C,39H
JB 0D5H,T4B2H
MOV A,R2
RRC A
MOV R2,A
MOV A,R3
RRC A
MOV R3,A
MOV A,R4
RRC A
MOV R4,A
INC R0
RET
T4B2H: MOV A,R5
RRC A
MOV R5,A
MOV A,R6
RRC A
MOV R6,A
MOV A,R7
RRC A
MOV R7,A
INC R1
RET
T4BDH: MOV A,R5
JNZ T4C7H
CJNE R6,#00H,T4CAH
CJNE R7,#00H,T4CAH
T4C6H: RET
T4C7H: JB 0E7H,T4C6H
T4CAH: MOV C,0D5H
MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R5
RLC A
MOV R5,A
CLR 0D5H
DEC R1
SJMP T4BDH
;FST4:
FST4: MOV A,R4
MOV @R0,A
INC R0
MOV A,R5
MOV @R0,A
INC R0
MOV A,R6
MOV @R0,A
INC R0
MOV A,R7
MOV @R0,A
DEC R0
DEC R0
DEC R0
RET
;FSIN:
FSIN: MOV @R1,#7FH
INC R1
MOV @R1,#0A2H
INC R1
MOV @R1,#0FAH
DEC R1
DEC R1
LCALL FMUL
MOV A,R0
PUSH ACC
INC SP
MOV A,SP
INC SP
INC SP
XCH A,R1
MOV R0,A
MOV A,R4
CLR 0E7H
MOV R4,A
JZ T50CH
JNB 0E6H,T51CH
T50CH: MOV R4,#42H
MOV R2,#00H
MOV R3,#00H
SJMP T51FH
T514H: CLR C
MOV A,R2
RRC A
MOV R2,A
MOV A,R3
RRC A
MOV R3,A
INC R4
T51CH: CJNE R4,#10H,T514H
T51FH: MOV A,R3
MOV C,0E0H
MOV 3BH,C
JNB 38H,T529H
CPL 3BH
T529H: MOV A,R4
MOV R6,A
SETB C
CLR 0D5H
LCALL FSDT
MOV A,R6
MOV C,38H
MOV 0E7H,C
MOV R4,A
LCALL FSTR
MOV @R0,#02H
INC R0
MOV @R0,#0C9H
INC R0
MOV @R0,#10H
DEC R0
DEC R0
LCALL FMUL
MOV A,R0
XCH A,R1
DEC A
MOV SP,A
LCALL FSTR
POP ACC
PUSH ACC
MOV R0,A
LCALL FSUB
MOV A,R4
CLR 0E7H
MOV R4,A
LCALL FSTR
MOV A,R1
MOV R0,A
LCALL FPLN
T563H: DB 0F7H
DB 0A8H,70H
DB 7AH,0C6H
DB 70H,0F9H
DB 0C5H,68H
DB 0FEH
DB 0A5H
DB 41H,0FAH
DB 26H
DB 0A0H,1
DB 80H,0EH
DB 0FBH
DB 00H
DB 1CH
DB 40H
MOV A,@R1
MOV C,3BH
MOV 0E7H,C
MOV @R1,A
POP ACC
MOV R0,A
RET
T583H: PUSH ACC
MOV @R1,A
;FEXP:
FEXP: MOV @R1,#01H
INC R1
MOV @R1,#0B8H
INC R1
MOV @R1,#0ABH
DEC R1
DEC R1
LCALL FMUL
LCALL FSTR
MOV C,38H
MOV 3BH,C
MOV A,R4
CLR 0E7H
MOV R4,A
JNB 0E6H,T5A5H
MOV R2,#00H
SJMP T5B8H
T5A5H: CJNE R4,#07H,T5A8H
T5A8H: JC T5B5H
SETB 0D5H
RET
T5ADH: CLR C
MOV A,R2
RRC A
MOV R2,A
MOV A,R3
RRC A
MOV R3,A
INC R4
T5B5H: CJNE R4,#08H,T5ADH
T5B8H: MOV A,R0
PUSH ACC
INC SP
MOV A,SP
INC SP
INC SP
XCH A,R1
MOV R0,A
MOV A,R2
PUSH ACC
MOV R3,#00H
MOV R6,#08H
SETB C
CLR 0D5H
LCALL FSDT
MOV A,R6
MOV C,3BH
MOV 0E7H,C
MOV R4,A
LCALL FSTR
LCALL FSUB
LCALL FSTR
MOV A,R0
XCH A,R1
MOV R0,A
LCALL FPLN
DB 77H,0B1H
DB 0C9H
MOV R2,#0A1H
XRL A,R0
MOV R4,#0E3H
ORL A,R7
MOV R6,#0F5H
MOV A,@R1
NOP
DB 0B1H,72H
DB 01,80H,0
DB 40H
POP ACC
NOP
JNB 3BH,T601H
CPL A
INC A
T601H: ADD A,@R1
CLR 0E7H
MOV @R1,A
DEC R0
MOV SP,R0
POP ACC
MOV R0,A
RET
;自然对数子程序，(R0) 到 (R1)，F0=1 则(R0)<=0.
FLNX: CLR 0D5H
MOV A,@R0
JNB 0E7H,T615H
SETB 0D5H
T614H: RET
T615H: LCALL NORM
JB 0D5H,T614H
MOV A,R0
PUSH ACC
MOV A,@R0
PUSH ACC
CLR A
PUSH ACC
INC R0
MOV A,@R0
MOV R2,A
INC R0
MOV A,@R0
MOV R0,SP
CLR C
RLC A
XCH A,R2
RLC A
PUSH ACC
MOV A,R2
PUSH ACC
LCALL FPLN
MOV R3,#0F4H
DB 30H,0FEH,85H
RRC A
MOV R7,#91H
DB 51H,0FFH
MOV R2,A
DB 0BAH,0,0FFH
XCH A,R2
MOV R3,#00H
DB 18H,40H
DEC R0
MOV A,@R0
DEC A
JZ T692H
MOV C,0E6H
MOV 3BH,C
MOV 0E7H,C
JNC T659H
CPL A
INC A
T659H: MOV R5,A
MOV B,#72H
MUL AB
XCH A,R5
MOV R3,B
MOV B,#0B1H
MUL AB
ADD A,R3
MOV R3,A
CLR A
ADDC A,B
MOV R2,A
MOV R4,#08H
MOV A,R2
T66EH: JB 0E7H,T67DH
MOV A,R5
RLC A
MOV R5,A
MOV A,R3
RLC A
MOV R3,A
MOV A,R2
RLC A
MOV R2,A
DEC R4
SJMP T66EH
T67DH: MOV A,R4
MOV C,3BH
MOV 0E7H,C
MOV R4,A
MOV A,R0
XCH A,R1
MOV R0,A
LCALL FSTR
MOV A,R0
XCH A,R1
MOV R0,A
LCALL FADD
LCALL FSTR
T692H: DEC R0
MOV SP,R0
POP ACC
MOV R0,A
RET
;FATN:
FATN: CLR 3BH
MOV A,R0
PUSH ACC
MOV A,@R0
MOV C,0E7H
MOV 3DH,C
CLR 0E7H
PUSH ACC
INC R0
MOV A,@R0
PUSH ACC
INC R0
MOV A,@R0
PUSH ACC
MOV R0,SP
DEC R0
DEC R0
MOV A,@R0
DEC A
JB 0E6H,T701H
MOV A,R0
XCH A,R1
MOV R0,A
MOV @R0,#01H
INC R0
MOV @R0,#80H
INC R0
MOV @R0,#00H
DEC R0
DEC R0
LCALL FDIV
LCALL FSTR
SETB 3BH
MOV A,R0
XCH A,R1
MOV R0,A
T701H: LCALL FPLN
ANL C,0CCH
DB 0A0H,05
DB 80H,38H
DB 85H,0D4H,0F4H
DB 01,0D0H
DEC @R0
INC @R0
CLR A
MOV @R1,77H
MOV A,R7
XCH A,R1
DB 40H
JNB 3BH,T72AH
MOV @R0,A
INC R0
MOV @R0,#0B4H
INC R0
MOV @R0,#00H
DEC R0
DEC R0
LCALL FSUB
LCALL FSTR
T72AH: MOV A,@R1
MOV C,3DH
MOV 0E7H,C
MOV @R1,A
DEC R0
MOV SP,R0
POP ACC
MOV R0,A
RET
;
;
BLC4: LCALL ULWA
MOV 42H,44H
MOV 43H,45H
LCALL ULWA
MOV 42H,46H
MOV 43H,47H
LCALL ULWA
MOV A,40H
CLR C
RRC A
MOV 40H,A
MOV A,41H
RRC A
MOV 41H,A
MOV A,40H
CLR C
RRC A
MOV 40H,A
MOV A,41H
RRC A
MOV 41H,A
RET
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -