標號： ＳＨ４功能：四字節二進制無符號數開平方（快速）

入口條件：被開方數在R2、R3、R4、R5中。
出口信息：平方根在R2、R3中，整數部分的位數為原數的一半，其余為小數。
影響資源：PSW、A、B、R2～R7 堆棧需求： ２字節

SH4: MOV A,R2
	ORL A,R3
	ORL A,R4
	ORL A,R5
	JNZ SH40
	RET ；被開方數為零，不必運算
SH40: MOV R7,#0 ；左規次數初始化
	MOV A,R2
SH41: ANL A,#0C0H ；被開方數高字節小于４０Ｈ否？
	JNZ SQRH ；不小于４０Ｈ，左規格化完成
	MOV R6,#2 ；每左規一次，被開方數左移兩位
SH42: CLR C ；被開方數左移一位
	MOV A,R5
	RLC A
	MOV R5,A
	MOV A,R4
	RLC A
	MOV R4,A
	MOV A,R3
	RLC A
	MOV R3,A
	MOV A,R2
	RLC A
	MOV R2,A
	DJNZ R6,SH42 ；被開方數左移完兩位
	INC R7 ；左規次數加一
	SJMP SH41 ；繼續左規
SQRH: 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 ；求偏移量（存放在R2R3中）
	CLR C
	SUBB A,R3
	MOV R3,A
	MOV A,R2
	SUBB A,B
	MOV R2,A
SQR4: SETB C ；用減奇數法校正一個字節的平方根
	MOV A,R4 ；當前平方根的兩倍加一存入R5R6中
	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 ；將一個字節精度的根存入R2
	XCH A,R2
	RRC A
	MOV F0,C ；保存最終偏移量的最高位
	MOV A,R3
	MOV R5,A ；將最終偏移量的低八位存入R5中
	MOV R4,#8 ；通過（R5R6／R2）求根的低字節
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 ；根的第二字節計算完，在R3中
	MOV A,R7 ；取原被開方數的左規次數
	JZ SQRE ；未左規，開方結束
SQR9: CLR C ；按左規次數右移平方根，得到實際根
	MOV A,R2
	RRC A
	MOV R2,A
	MOV A,R3
	RRC A
	MOV R3,A
	DJNZ R7,SQR9
SQRE: RET