单片机实用子程序.txt

该程序用来测试89C51与IDE硬盘的接口

JNZ DIV2
SETB OV ;除数为零溢出
RET
DIV2:LCALL MVR0 ;将[R0 ]传送到第一工作区中
MOV A,@R0
XRL A,@R1 ;比较两个操作数的符号
RLC A
MOV 1FH,C ;保存结果的符号
LCALL MVR1 ;将[R1 ]传送到第二工作区中
LCALL DIV3 ;调用工作区浮点除法
LJMP MOV0 ;回传结果
DIV3:CLR C ;比较尾数的大小
MOV A,R4
SUBB A,R7
MOV A,R3
SUBB A,R6
JC DIV4
LCALL RR1 ;被除数右规一次
SJMP DIV3
DIV4:CLR A ;借用R0R1R2 作工作寄存器
XCH A,R0 ;清零并保护之
PUSH ACC
CLR A
XCH A,R1
PUSH ACC
MOV A,R2
PUSH ACC
MOV B,#10H ;除法运算R3R4 R6R7 R0R1
DIV5:CLR C
MOV A,R1
RLC A
MOV R1,A
MOV A,R0
RLC A
MOV R0,A
MOV A,R4
RLC A
MOV R4,A
XCH A,R3
RLC A
XCH A,R3
MOV F0,C
CLR C
SUBB A,R7
MOV R2,A
MOV A,R3
SUBB A,R6
ANL C,/F0
JC DIV6
MOV R3,A
MOV A,R2
MOV R4,A
INC R1
DIV6:DJNZ B,DIV5
MOV A,R6 ;四舍五入
CLR C
RRC A
SUBB A,R3
CLR A
ADDC A,R1 ;将结果存回R3R4
MOV R4,A
CLR A
ADDC A,R0
MOV R3,A
POP ACC ;恢复R0R1R2
MOV R2,A
POP ACC
MOV R1,A
POP ACC
MOV R0,A
MOV A,R2 ;计算商的阶码
CLR C
SUBB A,R5
LCALL MD ;阶码检验
LJMP RLN ;规格化
;标 号 功 能浮点数清零
;入口条件操作数在[R0 ]中
;出口信息操作数被清零.影响资源A 堆栈需求 字节
FCLR:INC R0
INC R0
CLR A
MOV @R0,A
DEC R0
MOV @R0,A
DEC R0
MOV @R0,#41H
RET
;标 号 功 能浮点数判零
;入口条件操作数在[R0 ]中
;出口信息若累加器A 为零则操作数[R0 ]为零否则不为零
;影响资源A 堆栈需求 字节
FZER:INC R0
INC R0
MOV A,@R0
DEC R0
ORL A,@R0
DEC R0
JNZ ZERO
MOV @R0,#41H
ZERO:RET
;标 号 功 能浮点数传送
;入口条件源操作数在[R1 ]中目标地址为[R0 ;]
;出口信息[R0 ]=[R1 ][R1 ]不变
;影响资源A 堆栈需求 字节
FMOV:INC R0
INC R0
INC R1
INC R1
MOV A,@R1
MOV @R0,A
DEC R0
DEC R1
MOV A,@R1
MOV @R0,A
DEC R0
DEC R1
MOV A,@R1
MOV @R0,A
RET
;标 号 功 能浮点数压栈
;入口条件操作数在[R0 ]中
;出口信息操作数压入栈顶
;影响资源A R2 R3 堆栈需求 字节
FPUS:POP ACC ;将返回地址保存在R2R3 中
MOV R2,A
POP ACC
MOV R3,A
MOV A,@R0 ;将操作数压入堆栈
PUSH ACC
INC R0
MOV A,@R0
PUSH ACC
INC R0
MOV A,@R0
PUSH ACC
DEC R0
DEC R0
MOV A,R3 ;将返回地址压入堆栈
PUSH ACC
MOV A,R2
PUSH ACC
RET ;返回主程序
;标 号 功 能浮点数出栈
;入口条件操作数处于栈顶
;出口信息操作数弹至[R0 ]中
;影响资源A R2 R3 堆栈需求 字节
FPOP:POP ACC ;将返回地址保存在R2R3 中
MOV R2,A
POP ACC
MOV R3,A
INC R0
INC R0
POP ACC ;将操作数弹出堆栈传送到[R0 ]中
MOV @R0,A
DEC R0
POP ACC
MOV @R0,A
DEC R0
POP ACC
MOV @R0,A
MOV A,R3 ;将返回地址压入堆栈
PUSH ACC
MOV A,R2
PUSH ACC
RET ;返回主程序
;标 号 功 能浮点数代数值比较不影响待比较操作数
;入口条件待比较操作数分别在[R0 ]和[R1 ]中
;出口信息若CY=1 则[R0 ]<[R1 ]若CY=0 且A=0 则 [R0 ]=[R1 ]否则[R0 ]>[R1 ]
;影响资源A B PSW 堆栈需求 字节
FCMP:MOV A,@R0 ;数符比较
XRL A,@R1
JNB ACC.7,CMP2
MOV A,@R0 ;两数异号以[R0 ]数符为准
RLC A
MOV A,#0FFH
RET
CMP2:MOV A,@R1 ;两数同号准备比较阶码
MOV C,ACC.6
MOV ACC.7,C
MOV B,A
MOV A,@R0
MOV C,ACC.7
MOV F0,C ;保存[R0 ]的数符
MOV C,ACC.6
MOV ACC.7,C
CLR C ;比较阶码
SUBB A,B
JZ CMP6
RLC A ;取阶码之差的符号
JNB F0,CMP5
CPL C ;[R0 ]为负时结果取反
CMP5:MOV A,#0FFH ;两数不相等
RET
CMP6:INC R0 ;阶码相同时准备比较尾数
INC R0
INC R1
INC R1
CLR C
MOV A,@R0
SUBB A,@R1
MOV B,A ;保存部分差
DEC R0
DEC R1
MOV A,@R0
SUBB A,@R1
DEC R0
DEC R1
ORL A,B ;生成是否相等信息
JZ CMP7
JNB F0,CMP7
CPL C ;[R0 ]为负时结果取反
CMP7:RET
;标 号 功 能浮点绝对值函数
;入口条件操作数在[R0 ]中
;出口信息结果仍在[R0 ]中
;影响资源A 堆栈需求 字节
FABS:MOV A,@R0 ;读取操作数的阶码
CLR ACC.7 ;清除数符
MOV @R0,A ;回传阶码
RET
;标 号 功 能浮点符号函数
;入口条件操作数在[R0 ]中
;出口信息累加器 A==1 时为正数A=0FFH 时为负数A=0 时为零
;影响资源PSW A 堆栈需求 字节
FSGN:INC R0 ;读尾数
MOV A,@R0
INC R0
ORL A,@R0
DEC R0
DEC R0
JNZ SGN
RET; 尾数为零结束
SGN:MOV A,@R0 ;读取操作数的阶码
RLC A ;取数符
MOV A,#1 ;按正数初始化
JNC SGN1 ;是正数结束
MOV A,#0FFH ;是负数改变标志
SGN1:RET
;标 号 功 能浮点取整函数
;入口条件操作数在[R0 ]中
;出口信息结果仍在[R0 ]中
;影响资源PSW A R2 R3 R4 位1FH 堆栈需求 字节
FINT:LCALL MVR0 ;将[R0 ]传送到第一工作区中
LCALL INT ;在工作寄存器中完成取整运算
LJMP MOV0 ;将结果传回到[R0 ]中
INT:MOV A,R3
ORL A,R4
JNZ INTA
CLR 1FH ;尾数为零阶码也清零结束取整
MOV R2,#41H
RET
INTA:MOV A,R2
JZ INTB ;阶码为零否
JB ACC.7,INTB ;阶符为负否
CLR C
SUBB A,#10H ;阶码小于否
JC INTD
RET ;阶码大于已经是整数
INTB:CLR A ;绝对值小于一取整后正数为零负数为负一
MOV R4,A
MOV C,1FH
RRC A
MOV R3,A
RL A
MOV R2,A
JNZ INTC
MOV R2,#41H
INTC:RET
INTD:CLR F0 ;舍尾标志初始化
INTE:CLR C
LCALL RR1 ;右规一次
ORL C,F0 ;记忆舍尾情况
MOV F0,C
CJNE R2,#10H,INTE ;阶码达到尾数完全为整数否
JNB F0,INTF ;舍去部分为零否
JNB 1FH,INTF ;操作数为正数否
INC R4 ;对于带小数的负数向下取整
MOV A,R4
JNZ INTF
INC R3
INTF:LJMP RLN ;将结果规格化
;标 号 功 能浮点倒数函数
;入口条件操作数在[R0 ]中
;出口信息OV=0 时结果仍在[R0 ]中OV=1 时溢出
;影响资源PSW A B R2 R7 位1EH 1FH 堆栈需求 字节
FRCP:MOV A,@R0
MOV C,ACC.7
MOV 1FH,C ;保存数符
MOV C,ACC.6 ;绝对值传送到第二工作区
MOV ACC.7,C
MOV R5,A
INC R0
MOV A,@R0
MOV R6,A
INC R0
MOV A,@R0
MOV R7,A
DEC R0
DEC R0
ORL A,R6
JNZ RCP
SETB OV ;零不能求倒数设立溢出标志
RET
RCP:MOV A,R6
JB ACC.7,RCP2 ;操作数格式化否
CLR C ;格式化之
MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
DEC R5
SJMP RCP
RCP2:MOV R2,#1 ;将数值传送到第一工作区
MOV R3,#80H
MOV R4,#0
LCALL DIV3 ;调用工作区浮点除法求得倒数
LJMP MOV0 ;回传结果
;标 号 功 能浮点数平方
;入口条件操作数在[R0 ]中
;出口信息OV=0 时平方值仍然在[R0 ]中OV=1 时溢出
;影响资源PSW A B R2 R7 位1EH 1FH 堆栈需求 字节
FSQU:MOV A,R0 ;将操作数
XCH A,R1 ;同时作为乘数
PUSH ACC ;保存指针
LCALL FMUL ;进行乘法运算
POP ACC
MOV R1,A ;恢复指针
RET
;标 号 功 能浮点数开平方快速逼近算法
;入口条件操作数在[R0 ]中
;出口信息OV=0 时平方根仍在[R0 ]中OV=1 时负数开平方出错
;影响资源PSW A B R2 R7 堆栈需求 字节
FSQR:MOV A,@R0
JNB ACC.7,SQR
SETB OV ;负数开平方出错
RET
SQR:INC R0
INC R0
MOV A,@R0
DEC R0
ORL A,@R0
DEC R0
JNZ SQ
MOV @R0,#41H ;尾数为零不必运算
CLR OV
RET 
SQ:MOV A,@R0
MOV C,ACC.6 ;将阶码扩展成补码
MOV ACC.7,C
INC A ;加一
CLR C
RRC A ;除二
MOV @R0,A ;得到平方根的阶码回存之
INC R0 ;指向被开方数尾数的高字节
JC SQR0 ;原被开方数的阶码是奇数吗
MOV A,@R0 ;是奇数尾数右规一次
RRC A
MOV @R0,A
INC R0
MOV A,@R0
RRC A
MOV @R0,A
DEC R0
SQR0:MOV A,@R0
JZ SQR9 ;尾数为零不必运算
MOV R2,A ;将尾数传送到R2R3 中
INC R0
MOV A,@R0
MOV R3,A
MOV A,R2 ;快速开方参阅定点子程序说明
ADD A,#57H
JC SQR2
ADD A,#45H
JC SQR1
ADD A,#24H
MOV B,#0E3H
MOV R4,#80H
SJMP SQR3
SQR1:MOV B,#0B2H
MOV R4,#0A0H
SJMP SQR3
SQR2:MOV B,#8DH
MOV R4,#0D0H
SQR3:MUL AB
MOV A,B
ADD A,R4
MOV R4,A
MOV B,A
MUL AB
XCH A,R3
CLR C
SUBB A,R3
MOV R3,A
MOV A,B
XCH A,R2
SUBB A,R2
MOV R2,A
SQR4:SETB C
MOV A,R4
RLC A
MOV R6,A
CLR A
RLC A
MOV R5,A
MOV A,R3
SUBB A,R6
MOV B,A
MOV A,R2
SUBB A,R5
JC SQR5
INC R4
MOV R2,A
MOV R3,B
SJMP SQR4
SQR5:MOV A,R4
XCH A,R2
RRC A
MOV F0,C
MOV A,R3
MOV R5,A
MOV R4,#8
SQR6:CLR C
MOV A,R3
RLC A
MOV R3,A
CLR C
MOV A,R5
SUBB A,R2
JB F0,SQR7
JC SQR8
SQR7:MOV R5,A
INC R3
SQR8:CLR C
MOV A,R5
RLC A
MOV R5,A
MOV F0,C
DJNZ R4,SQR6
MOV A,R3 ;将平方根的尾数回传到[R0 ]中
MOV @R0,A
DEC R0
MOV A,R2
MOV @R0,A
SQR9:DEC R0 ;数据指针回归原位
CLR OV ;开方结果有效
RET
;标 号 功 能浮点数多项式计算.入口条件自变量在[R0 ]中多项式系数在调用指令之后以结束
;出口信息OV=0 时结果仍在[R0 ]中OV=1 时溢出
;影响资源DPTR PSW A B R2 R7 位1EH 1FH 堆栈需求 字节
FPLN:POP DPH ;取出多项式系数存放地址
POP DPL
XCH A,R0 ;R0 R1 交换角色自变量在[R1 ]中
XCH A,R1
XCH A,R0
CLR A ;清第一工作区
MOV R2,A
MOV R3,A
MOV R4,A
CLR 1FH
PLN1:CLR A ;读取一个系数并装入第二工作区
MOVC A,@A+DPTR
MOV C,ACC.7
MOV 1EH,C
MOV C,ACC.6
MOV ACC.7,C
MOV R5,A
INC DPTR
CLR A
MOVC A,@A+DPTR
MOV R6,A
INC DPTR
CLR A
MOVC A,@A+DPTR
MOV R7,A
INC DPTR ;指向下一个系数
MOV C,1EH ;比较两个数符
RRC A
XRL A,23H
RLC A
MOV F0,C ;保存比较结果
LCALL AS1 ;进行代数加法运算
CLR A ;读取下一个系数的第一个字节
MOVC A,@A+DPTR
CJNE A,#40H,PLN2 ;是结束标志吗
XCH A,R0 ;运算结束恢复R0 R1 原来的角色
XCH A,R1
XCH A,R0
LCALL MOV0 ;将结果回传到[R0 ]中
CLR A
INC DPTR
JMP @A+DPTR ;返回主程序
PLN2:MOV A,@R1 ;比较自变量和中间结果的符号
XRL A,23H
RLC A
MOV 1FH,C ;保存比较结果
LCALL MUL0 ;进行乘法运算
SJMP PLN1 ;继续下一项运算
;标 号 功 能以为底的浮点对数函数
;入口条件操作数在[R0 ]中
;出口信息OV=0 时结果仍在[R0 ]中OV=1 时负数或零求对数出错
;影响资源DPTR PSW A B R2 R7 位1EH 1FH 堆栈需求字节
FLOG:LCALL FLN ;先以为底求对数
JNB OV,LOG
RET ;如溢出则停止计算
LOG:MOV R5,#0FFH ;系数
MOV R6,#0DEH
MOV R7,#5CH
LCALL MUL1 ;通过相乘来换底
LJMP MOV0 ;传回结果
;标 号 功 能以为底的浮点对数函数
;入口条件操作数在[R0 ]中.出口信息OV=0 时结果仍在[R0 ]中OV=1 时负数或零求对数出错
;影响资源DPTR PSW A B R2 R7 位1EH 1FH 堆栈需求 字节
FLN:LCALL MVR0 ;将[R0 ]传送到第一工作区
JB 1FH,LNOV ;负数或零求对数出错
MOV A,R3
ORL A,R4
JNZ LN0
LNOV:SETB OV
RET
LN0:CLR C