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

SH2:	MOV	A,R2
	ORL	A,R3
	JNZ	SH20
	RET		；被開方數為零，不必運算

SH20:	MOV	R7,#0	；左規次數初始化
	MOV	A,R2
SH22:	ANL	A,#0C0H	；被開方數高字節小于４０Ｈ否？
	JNZ	SQRH	；不小于４０Ｈ，左規格化完成，轉開方過程
	CLR	C	；每左規一次，被開方數左移兩位
	MOV	A,R3
	RLC	A
	MOV	F0,C
	CLR	C
	RLC	A
	MOV	R3,A
	MOV	A,R2
	MOV	ACC.7,C
	MOV	C,F0
	RLC	A
	RLC	A
	MOV	R2,A
	INC	R7	；左規次數加一
	SJMP	SH22	；繼續左規

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

入口條件：被開方數在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

    （１４）  標號：  ＨＡＳＣ  功能：單字節十六進制數轉換成雙字節ASCII碼

入口條件：待轉換的單字節十六進制數在累加器A中。
出口信息：高四位的ASCII碼在A中，低四位的ASCII碼在B中。
影響資源：PSW、A、B    堆棧需求：  ４字節

HASC:	MOV	B,A	；暫存待轉換的單字節十六進制數
	LCALL	HAS1	；轉換低四位
	XCH	A,B	；存放低四位的ASCII碼
	SWAP	A	；準備轉換高四位
HAS1:	ANL	A,#0FH	；將累加器的低四位轉換成ASCII碼
	ADD	A,#90H
	DA	A
	ADDC	A,#40H
	DA	A
	RET

    （１５）  標號：  ＡＳＣＨ    功能：ASCII碼轉換成十六進制數

入口條件：待轉換的ASCII碼（30H～39H或41H～46H）在A中。
出口信息：轉換后的十六進制數（00H～0FH）仍在累加器A中。
影響資源：PSW、A    堆棧需求：  ２字節

ASCH:	CLR	C
	SUBB	A,#30H
	JNB	ACC.4,ASH1
	SUBB	A,#7
ASH1:	RET

    （１６）  標號：ＨＢＣＤ  功能：單字節十六進制整數轉換成單字節ＢＣＤ碼整數

入口條件：待轉換的單字節十六進制整數在累加器A中。
出口信息：轉換后的ＢＣＤ碼整數（十位和個位）仍在累加器A中，百位在R3中。

影響資源：PSW、A、B、R3    堆棧需求：  ２字節

HBCD:	MOV	B,#100	；分離出百位，存放在R3中
	DIV	AB
	MOV	R3,A
	MOV	A,#10	；余數繼續分離十位和個位
	XCH	A,B
	DIV	AB
	SWAP	A
	ORL	A,B	；將十位和個位拼裝成ＢＣＤ碼
	RET

    （１７）  標號： ＨＢ２   功能：雙字節十六進制整數轉換成雙字節ＢＣＤ碼整數

入口條件：待轉換的雙字節十六進制整數在R6、R7中。
出口信息：轉換后的三字節ＢＣＤ碼整數在R3、R4、R5中。
影響資源：PSW、A、R2～R7    堆棧需求：  ２字節

HB2:	CLR	A	；ＢＣＤ碼初始化
	MOV	R3,A
	MOV	R4,A
	MOV	R5,A
	MOV	R2,#10H	；轉換雙字節十六進制整數
HB3:	MOV	A,R7	；從高端移出待轉換數的一位到CY中
	RLC	A
	MOV	R7,A
	MOV	A,R6
	RLC	A
	MOV	R6,A
	MOV	A,R5	；ＢＣＤ碼帶進位自身相加，相當于乘２
	ADDC	A,R5
	DA	A	；十進制調整
	MOV	R5,A
	MOV	A,R4
	ADDC	A,R4
	DA	A
	MOV	R4,A
	MOV	A,R3
	ADDC	A,R3
	MOV	R3,A	；雙字節十六進制數的萬位數不超過６，不用調整
	DJNZ	R2,HB3	；處理完１６ｂｉｔ

RET 	
	    	
    （１８）  標號：  ＨＢＤ  功能：單字節十六進制小數轉換成單字節ＢＣＤ碼小數

入口條件：待轉換的單字節十六進制小數在累加器A中。
出口信息：CY=0時轉換后的ＢＣＤ碼小數仍在A中。CY=1時原小數接近整數１。
影響資源：PSW、A、B    堆棧需求：  ２字節

HBD:	MOV	B,#100	；原小數擴大一百倍
	MUL	AB
	RLC	A	；余數部分四舍五入
	CLR	A
	ADDC	A,B
	MOV	B,#10	；分離出十分位和百分位
	DIV	AB
	SWAP	A
	ADD	A,B	；拼裝成單字節ＢＣＤ碼小數
	DA	A	；調整后若有進位，原小數接近整數１

RET

    （１９） 標號： ＨＢＤ２  功能：雙字節十六進制小數轉換成雙字節ＢＣＤ碼小數

入口條件：待轉換的雙字節十六進制小數在R2、R3中。
出口信息：轉換后的雙字節ＢＣＤ碼小數仍在R2、R3中。
影響資源：PSW、A、B、R2、R3、R4、R5    堆棧需求：  ６字節

HBD2:	MOV	R4,#4	；四位十進制碼
HBD3:	MOV	A,R3	；原小數擴大十倍
	MOV	B,#10
	MUL	AB
	MOV	R3,A
	MOV	R5,B
	MOV	A,R2
	MOV	B,#10
	MUL	AB
	ADD	A,R5
	MOV	R2,A
	CLR	A
	ADDC	A,B
	PUSH	ACC	；保存溢出的一位十進制碼

DJNZ	R4,HBD3	；計算完四位十進制碼
	POP	ACC	；取出萬分位
	MOV	R3,A
	POP	ACC	；取出千分位
	SWAP	A
	ORL	A,R3	；拼裝成低字節ＢＣＤ碼小數
	MOV	R3,A
	POP	ACC	；取出百分位
	MOV	R2,A
	POP	ACC	；取出十分位
	SWAP	A
	ORL	A,R2	；拼裝成高字節ＢＣＤ碼小數
	MOV	R2,A	
	RET

    （２０）標號：ＢＣＤＨ    功能：單字節ＢＣＤ碼整數轉換成單字節十六進制整數

入口條件：待轉換的單字節ＢＣＤ碼整數在累加器A中。
出口信息：轉換后的單字節十六進制整數仍在累加器A中。

影響資源：PSW、A、B、R4    堆棧需求：  ２字節

BCDH:	MOV	B,#10H	；分離十位和個位
	DIV	AB
	MOV	R4,B	；暫存個位
	MOV	B,#10	；將十位轉換成十六進制
	MUL	AB
	ADD	A,R4	；按十六進制加上個位
	RET

    （２１）標號：  ＢＨ２   功能：雙字節ＢＣＤ碼整數轉換成雙字節十六進制整數

入口條件：待轉換的雙字節ＢＣＤ碼整數在R2、R3中。
出口信息：轉換后的雙字節十六進制整數仍在R2、R3中。
影響資源：PSW、A、B、R2、R3、R4    堆棧需求：  ４字節

BH2:	MOV	A,R3	；將低字節轉換成十六進制

LCALL	BCDH
	MOV	R3,A
	MOV	A,R2	；將高字節轉換成十六進制
	LCALL	BCDH
	MOV	B,#100	；擴大一百倍
	MUL	AB
	ADD	A,R3	；和低字節按十六進制相加
	MOV	R3,A
	CLR	A
	ADDC	A,B
	MOV	R2,A
	RET

    （２２）標號：  ＢＨＤ   功能：單字節ＢＣＤ碼小數轉換成單字節十六進制小數

入口條件：待轉換的單字節ＢＣＤ碼數在累加器A中。
出口信息：轉換后的單字節十六進制小數仍在累加器A中。
影響資源：PSW、A、R2、R3    堆棧需求：  ２字節

BHD:	MOV	R2,#8	；準備計算一個字節小數

BHD0:	ADD	A,ACC	；按十進制倍增
	DA	A
	XCH	A,R3
	RLC	A	；將進位標志移入結果中
	XCH	A,R3
	DJNZ	R2,BHD0	；共計算８ｂｉｔ小數
	ADD	A,#0B0H	；剩余部分達到０．５０否？
	JNC	BHD1	；四舍
	INC	R3	；五入
BHD1:	MOV	A,R3	；取結果
	RET

    （２３）標號： ＢＨＤ２  功能：雙字節ＢＣＤ碼小數轉換成雙字節十六進制小數

入口條件：待轉換的雙字節ＢＣＤ碼小數在R4、R5中。
出口信息：轉換后的雙字節十六進制小數在R2、R3中。*
影響資源：PSW、A、R2～R6    堆棧需求：  ２字節

BHD2:	MOV	R6,#10H	；準備計算兩個字節小數
BHD3:	MOV	A,R5	；按十進制倍增
	ADD	A,R5
	DA	A
	MOV	R5,A
	MOV	A,R4
	ADDC	A,R4
	DA	A
	MOV	R4,A
	MOV	A,R3	；將進位標志移入結果中
	RLC	A
	MOV	R3,A
	MOV	A,R2
	RLC	A
	MOV	R2,A
	DJNZ	R6,BHD3	；共計算１６ｂｉｔ小數
	MOV	A,R4
	ADD	A,#0B0H	；剩余部分達到０．５０否？
	JNC	BHD4	；四舍
	INC	R3	；五入
	MOV	A,R3
	JNZ	BHD4
	INC	R2
BHD4:	RET

    （２４）  標號：  ＭＭ    功能：求單字節十六進制無符號數據塊的極值

入口條件：數據塊的首址在DPTR中，數據個數在R7中。
出口信息：最大值在R6中，地址在R2R3中；最小值在R7中，地址在R4R5中。
影響資源：PSW、A、B、R1～R7      堆棧需求：  ４字節

MM:	MOV	B,R7	；保存數據個數
	MOVX	A,@DPTR	；讀取第一個數據
	MOV	R6,A	；作為最大值的初始值
	MOV	R7,A	；也作為最小值的初始值
	MOV	A,DPL	；取第一個數據的地址
	MOV	R3,A	；作為最大值存放地址的初始值