定点数开方只能得到结果的整数部分，如代入FFFFH和FF10H的开方结果都是一样的，为FFH。如果想要得到比较精确的结果，可以先对被开方数乘以一个系数，待得到结果后，再除以相应的系数。如果被开方数太大，则不能使用此法，若想得到比较精确的结果，可以采用后面介绍的“浮点数开方”。
以下为定点数开方的程序清单（其中包含校验程序部分）。该程序中包含定点数加法程序和定点数除法程序。
LIST p=16f877
INCLUDE p16f877.inc
；****************************************
；此子程序是求16位二进制数平方根的子程序，需要调用16/16位除法子程序和
；加法子程序，虽然前面有了，但标号有些不同，为了易于阅读和理解，也把它列在后面。
；入口条件：16位二进制数存放在NUMHI和NUMLO单元中。
；出口条件：8位二进制数存放在SQRTLO单元中。
；迭代次数由LUPCNT的地址值决定。
；用指令CALL SQRT实现定点数开方程序调用
；****************************************
ACCALO EQU 0X20
ACCAHI EQU ACCALO+1
EXPA EQU ACCALO+2
ACCBLO EQU ACCALO+3
ACCBHI EQU ACCALO+4
EXPB EQU ACCALO+5
ACCCLO EQU ACCALO+6
ACCCHI EQU ACCALO+7
ACCDLO EQU ACCALO+8
ACCDHI EQU ACCALO+9
TEMP EQU ACCDHI+1
SIGN EQU ACCDHI+2
SQRTLO EQU ACCALO
SQRTHI EQU ACCAHI
NUMLO EQU ACCDHI+4
NUMHI EQU ACCDHI+5
COUNT EQU ACCDHI+6 ；此方法定义的数据块为连续层断，只要
；将第一行改变，就可以将数据整块搬动到
；新的地方，为调试带来方便，是比较推
；崇的一种寄存器定义方法
LUPCNT EQU .10
；****************************************
ORG 0X00
GOTO MAIN
ORG 0X10
；****************************************
INIT MOVLW LUPCNT
MOVWF COUNT
MOVF NUMHI，0
MOVWF SQRTHI
MOVF NUMLO，0
MOVWF SQRTLO
BCF STATUS，C
RRF SQRTHI，1
RRF SQRTLO，1
RETLW 0
；***************16×16位定点数右移子程序***************
DIV2 BCF STATUS，C
RRF ACCBHI，0
MOVWF SQRTHI
RRF ACCBLO，0
MOVWF SQRTLO
RETLW 0
；*********16×16位定点数开方子程序**********
SQRT CALL INIT
SLOOP MOVF NUMLO，0
MOVWF ACCBLO
MOVF NUMHI，0
MOVWF ACCBHI
CALL D_DIVS
CALL D_ADD
CALL DIV2
DECFSZ COUNT，1
GOTO SLOOP
RETURN
；***********16×16位定点整数除法子程序*********
D_DIVS CALL SETUP
CLRF ACCCHI
CLRF ACCCLO
DLOOP BCF STATUS，C
RLF ACCDLO
RLF ACCDHI
RLF ACCCLO
RLF ACCCHI
MOVF ACCAHI，0
SUBWF ACCCHI，0
BTFSS STATUS，Z
GOTO NOCHK
MOVF ACCALO，0
SUBWF ACCCLO，0
NOCHK BTFSS STATUS，C
GOTO NOGO
MOVF ACCALO，0
SUBWF ACCCLO，1
BTFSS STATUS，C
DECF ACCCHI，1
MOVF ACCAHI，0
SUBWF ACCCHI，1
BSF STATUS，C
NOGO RLF ACCBLO
RLF ACCBHI
DECFSZ TEMP
GOTO DLOOP
RETLW 0
；****************************************
SETUP MOVLW .16
MOVWF TEMP
MOVF ACCBHI，0
MOVWF ACCDHI
MOVF ACCBLO，0
MOVWF ACCDLO
CLRF ACCBHI
CLRF ACCBLO
RETLW 0
；**********16×16位定点数取补子程序**************
NEG_A COMF ACCALO，1
INCF ACCALO，1
BTFSC STATUS，Z
DECF ACCAHI，1
COMF ACCAHI，1
RETLW 0
；*************16×16位定点数加法子程序**************
D_ADD MOVF ACCALO，0
ADDWF ACCBLO，1
BTFSC STATUS，C
INCF ACCBHI，1
MOVF ACCAHI，0
ADDWF ACCBHI，1
RETLW 0
；****************************************
【校验举例】 被开方数2910H（十六进制）
10512（十进制）
求得平方根：66H（十六进制）
102（十进制）
MAIN NOP
MOVLW 0X29
MOVWF NUMHI
MOVL7W 0X10
MOVWF NUMLO ；被开方数赋值
CALL SQRT ；调用开方子程序
NOP ；开方完毕
END