单字节BCD码平方根子程序
待开放数放R1,,平方根结果放R7寄存器。
MOV R7,#01H
MOV A,R1
TOS:MOV R6,A
MOV A,R7
ADD A,R7;乘二
DA A
MOV R0,A
MOV A,#9AH
SUBB A,#01H
ADD A,R0
DA A
CPL C
MOV R5,A
MOV A,#9AH
SUBB A,R5
ADD A,R6
DA A
CPL C
JZ TORET
INC R7
SJMP TOS
TORET:DEC R7
RET
发表时间:2003年5月16日0:11:47