sbsqr.asm

来自「微芯公司的PIC子程序库及运算平台」· 汇编 代码 · 共 25 行

;********************SBSQR********************
;本程序实现单字节二进制数开平方。
;入口参数：原数据N在SOU中。
;出口参数：结果在SOU中。
;占用资源：W,STATUS,024H,028H,一重堆栈。
;说明:     结果小于或等于真实值,是真实值的整数部分.

           IFNDEF       SBSQR1
            #DEFINE     SBSQR1

SBSQR       MOVLW       1
            MOVWF       TEMP1       ;TEMP1=2n+1
NEXT54      MOVF        TEMP1,W
            SUBWF       SOU,F       ;(2n+1)-N
            BTFSS       STATUS,C
            GOTO        DONE10            
            INCF        TEMP1,F
            INCF        TEMP1,F
            GOTO        NEXT54
DONE10      DECF        TEMP1,F
            BCF         STATUS,C
            RRF         TEMP1,W
            MOVWF       SOU         ;SOU=n
            RETLW       0
           ENDIF