RET 	
FD65	JC	FD68	；該點的內容比待查找的內容大否？
	MOV	A,R4	；偏大，取該點位置
	DEC	A	；減一
	MOV	R3,A	；作為新的區間高端
	SJMP	FD61	；繼續查找
FD68	MOV	A,R4	；偏小，取該點位置
	INC	A	；加一
	MOV	R2,A	；作為新的區間低端
	SJMP	FD61	；繼續查找
FD69	SETB	OV	；查找失敗
	RET
 	
    （２９）  標號：ＦＤＤ２  功能：對分查找（ＲＯＭ）雙字節無符號增序數據表格

入口條件：查找內容在R4、R5中，表格首址在DPTR中，數據個數在R7中。
出口信息：OV=0 時順序號在累加器A中，址在DPTR中；OV=1 時未找到。
影響資源：PSW、A、B、R1～R7、DPTR    堆棧需求：  ２字節

FDD2	MOV	R2,#0	；區間低端指針初始化（指向第一個數據）
	MOV	A,R7
	DEC	A
	MOV	R3,A	；區間高端指針初始化，指向最后一個數據
	MOV	R6,DPH	；保存表格首址
	MOV	R7,DPL
FD81	CLR	C	；判斷區間大小
	MOV	A,R3
	SUBB	A,R2
	JC	FD89	；區間消失，查找失敗
	RRC	A	；取區間大小的一半
	ADD	A,R2	；加上區間的低端
	MOV	R1,A	；得到區間的中心
	MOV	DPH,R6
	CLR	C	；計算區間中心的地址
	RLC	A
	JNC	FD82
	INC	DPH
FD82	ADD	A,R7
	MOV	DPL,A
	JNC	FD83
	INC	DPH
FD83	CLR	A	；讀取該點的內容的高字節
	MOVC	A,@A+DPTR
	MOV	B,R4	；與待查找內容的高字節比較
	CJNE	A,B,FD84；不相同
	MOV	A,#1	；讀取該點的內容的低字節
	MOVC	A,@A+DPTR
	MOV	B,R5
	CJNE	A,B,FD84；與待查找內容的低字節比較
	MOV	A,R1	；取順序號
	CLR	OV	；查找成功
	RET
FD84	JC	FD86	；該點的內容比待查找的內容大否？
	MOV	A,R1	；偏大，取該點位置
	DEC	A	；減一
	MOV	R3,A	；作為新的區間高端
	SJMP	FD81	；繼續查找
FD86	MOV	A,R1	；偏小，取該點位置
	INC	A	；加一
	MOV	R2,A	；作為新的區間低端
	SJMP	FD81	；繼續查找
FD89	MOV	DPH,R6	；相同，恢復首址
	MOV	DPL,R7
	SETB	OV	；查找失敗
	RET


    （３０）  標號：  ＤＤＭ１    功能：求單字節十六進制無符號數據塊的平均值

入口條件：數據塊的首址在DPTR中，數據個數在R7中。
出口信息：平均值在累加器A中。
影響資源：PSW、A、R2～R6  堆棧需求：  ４字節

DDM1	MOV	A,R7	；保存數據個數
	MOV	R2,A
	PUSH	DPH
	PUSH	DPL
	CLR	A	；初始化累加和
	MOV	R4,A
	MOV	R5,A
DM11	MOVX	A,@DPTR	；讀取一個數據
	ADD	A,R5	；累加到累加和中
	MOV	R5,A
	JNC	DM12
	INC	R4
DM12	INC	DPTR	；調整指針
	DJNZ	R2,DM11	；累加完全部數據
	LCALL	D457	；求平均值（R4R5／R7－→R3）
	MOV	A,R3	；取平均值
	POP	DPL
	POP	DPH
	RET

    （３１）  標號：  ＤＤＭ２    功能：求雙字節十六進制無符號數據塊的平均值

入口條件：數據塊的首址在DPTR中，雙字節數據總個數在R7中。
出口信息：平均值在R4、R5中。
影響資源：PSW、A、R2～R6      堆棧需求：  ４字節

DDM2	MOV	A,R7	；保存數據個數
	MOV	R2,A	；初始化數據指針
	PUSH	DPL	；保持首址
	PUSH	DPH
	CLR	A	；初始化累加和
	MOV	R3,A
	MOV	R4,A
	MOV	R5,A
DM20	MOVX	A,@DPTR	；讀取一個數據的高字節
	MOV	B,A
	INC	DPTR
	MOVX	A,@DPTR	；讀取一個數據的低字節
	INC	DPTR
	ADD	A,R5	；累加到累加和中
	MOV	R5,A
	MOV	A,B
	ADDC	A,R4
	MOV	R4,A
	JNC	DM21
	INC	R3
DM21	DJNZ	R2,DM20	；累加完全部數據
	POP	DPH	；恢復首址
	POP	DPL
	LJMP	DV31	；求R3R4R5／R7－→R4R5，得到平均值

    （３２）  標號：  ＸＲ１    功能：求單字節數據塊的（異或）校驗和

入口條件：數據塊的首址在DPTR中，數據的個數在R6、R7中。
出口信息：校驗和在累加器A中。
影響資源：PSW、A、B、R4～R7  堆棧需求：  ２字節

XR1	MOV	R4,DPH	；保存數據塊的首址
	MOV	R5,DPL
	MOV	A,R7	；雙字節計數器調整
	JZ	XR10
	INC	R6
XR10	MOV	B,#0	；校驗和初始化
XR11	MOVX	A,@DPTR	；讀取一個數據
	XRL	B,A	；異或運算
	INC	DPTR	；指向下一個數據
	DJNZ	R7,XR11	；雙字節計數器減一
	DJNZ	R6,XR11
	MOV	DPH,R4	；恢復數據首址
	MOV	DPL,R5
	MOV	A,B	；取校驗和
	RET

    （３３）  標號：  ＸＲ２    功能：求雙字節數據塊的（異或）校驗和

入口條件：數據塊的首址在DPTR中，雙字節數據總個數在R6、R7中。
出口信息：校驗和在R2、R3中。
影響資源：PSW、A、R2～R7      堆棧需求：  ２字節

XR2	MOV	R4,DPH	；保存數據塊的首址
	MOV	R5,DPL
	MOV	A,R7	；雙字節計數器調整
	JZ	XR20
	INC	R6
XR20	CLR	A	；校驗和初始化
	MOV	R2,A
	MOV	R3,A
XR21	MOVX	A,@DPTR	；讀取一個數據的高字節
	XRL	A,R2	；異或運算
	MOV	R2,A
	INC	DPTR
	MOVX	A,@DPTR	；讀取一個數據的低字節
	XRL	A,R3	；異或運算
	MOV	R3,A
	INC	DPTR	；指向下一個數據
	DJNZ	R7,XR21	；雙字節計數器減一
	DJNZ	R6,XR21
	MOV	DPH,R4	；恢復數據首址
	MOV	DPL,R5
	RET

    （３４）  標號：  ＳＯＲＴ    功能：單字節無符號數據塊排序（增序）

入口條件：數據塊的首址在R0中，字節數在R7中。
出口信息：完成排序（增序）
影響資源：PSW、A、R2～R6      堆棧需求：  ２字節

SORT	MOV	A,R7
	MOV	R5,A	；比較次數初始化
SRT1	CLR	F0	；交換標志初始化
	MOV	A,R5	；取上遍比較次數
	DEC	A	；本遍比上遍減少一次
	MOV	R5,A	；保存本遍次數
	MOV	R2,A	；復制到計數器中
	JZ	SRT5	；若為零，排序結束
	MOV	A,R0	；保存數據指針
	MOV	R6,A
SRT2	MOV	A,@R0	；讀取一個數據
	MOV	R3,A
	INC	R0	；指向下一個數據
	MOV	A,@R0	；再讀取一個數據
	MOV	R4,A
	CLR	C
	SUBB	A,R3	；比較兩個數據的大小
	JNC	SRT4	；順序正確（增序或相同），不必交換
	SETB	F0	；設立交換標志
	MOV	A,R3	；將兩個數據交換位置
	MOV	@R0,A
	DEC	R0
	MOV	A,R4
	MOV	@R0,A
	INC	R0	；指向下一個數據
SRT4	DJNZ	R2,SRT2	；完成本遍的比較次數
	MOV	A,R6	；恢復數據首址
	MOV	R0,A
	JB	F0,SRT1	；本遍若進行過交換，則需繼續排序
SRT5	RET		；排序結束
	END



          （二）      ＭＣＳ－５１  浮點運算子程序庫及其使用說明


    本浮點子程序庫有三個不同層次的版本，以便適應不同的應用場合：
    １．小型庫（FQ51A.ASM）：只包含浮點加、減、乘、除子程序。
    ２．中型庫（FQ51B.ASM）：在小型庫的基礎上再增加絕對值、倒數、比較、平方、
開平方、數制轉換等子程序。
    ３．大型庫（FQ51.ASM）：包含本說明書中的全部子程序。
    為便于讀者使用本程序庫，先將有關約定說明如下：
    １．雙字節定點操作數：用[R0]或[R1]來表示存放在由R0或R1指示的連續單元中的數
據，地址小的單元存放高字節。如果[R0]=1234H，若(R0)=30H，則(30H)=12H，(31H)=34H。
    ２．二進制浮點操作數：用三個字節表示，第一個字節的最高位為數符，其余七位為
階碼（補碼形式），第二字節為尾數的高字節，第三字節為尾數的低字節，尾數用雙字節
純小數（原碼）來表示。當尾數的最高位為１時，便稱為規格化浮點數，簡稱操作數。在
程序說明中，也用[R0]或[R1]來表示R0或R1指示的浮點操作數，例如：當[R0]=-6.000時，
則二進制浮點數表示為83C000H。若(R0)=30H，則(30H)=83H,(31H)=0C0H,(32H)=00H。
    ３．十進制浮點操作數：用三個字節表示，第一個字節的最高位為數符，其余七位為
階碼（二進制補碼形式），第二字節為尾數的高字節，第三字節為尾數的低字節，尾數用
雙字節ＢＣＤ碼純小數（原碼）來表示。當十進制數的絕對值大于１時，階碼就等于整數
部分的位數，如 876.5 的階碼是03H，-876.5 的階碼是 83H；當十進制數的絕對值小于1
時，階碼就等于 80H 減去小數點后面零的個數，例如 0.00382 的階碼是 7EH，-0.00382
的階碼是 0FEH。在程序說明中，用[R0]或[R1]來表示R0或R1指示的十進制浮點操作數。例
如有一個十進制浮點操作數存放在30H、31H、32H中，數值是 -0.07315，即-0.7315乘以10
的-1次方，則(30H)=0FFH，31H=73H，(32H)=15H。若用[R0]來指向它，則應使(R0)=30H。
    ４．運算精度：單次定點運算精度為結果最低位的當量值；單次二進制浮點算術運算
的精度優于十萬分之三；單次二進制浮點超越函數運算的精度優于萬分之一；ＢＣＤ碼浮
點數本身的精度比較低（萬分之一到千分之一），不宜作為運算的操作數，僅用于輸入或
輸出時的數制轉換。不管那種數據格式，隨著連續運算的次數增加，精度都會下降。
    ５．工作區：數據工作區固定在A、B、R2～R7，數符或標志工作區固定在PSW和23H單
元(位1CH～1FH)。在浮點系統中，R2、R3、R4和位1FH為第一工作區，R5、R6、R7和位1EH
為第二工作區。用戶只要不在工作區中存放無關的或非消耗性的信息，程序就具有較好的
透明性。
    ６．子程序調用范例：由于本程序庫特別注意了各子程序接口的相容性，很容易采用
積木方式（或流水線方式）完成一個公式的計算。以浮點運算為例：
    計算   ｙ = Ｌｎ √ ｜ Ｓｉｎ （ａｂ／ｃ＋ｄ） ｜
    已知：a=-123.4；b=0.7577；c=56.34；d=1.276； 它們分別存放在30H、33H、36H、
39H開始的連續三個單元中。用ＢＣＤ碼浮點數表示時，分別為a=831234H；b=007577H；
c=025634H；d=011276H。
    求解過程：通過調用ＢＴＯＦ子程序，將各變量轉換成二進制浮點操作數，再進行各
種運算，最后調用ＦＴＯＢ子程序，還原成十進制形式，供輸出使用。程序如下：
TEST	MOV  	R0,#39H   ；指向ＢＣＤ碼浮點操作數ｄ
	LCALL	BTOF      ；將其轉換成二進制浮點操作數
	MOV  	R0,#36H   ；指向ＢＣＤ碼浮點操作數ｃ
	LCALL	BTOF      ；將其轉換成二進制浮點操作數
	MOV  	R0,#33H   ；指向ＢＣＤ碼浮點操作數ｂ
	LCALL	BTOF      ；將其轉換成二進制浮點操作數
	MOV  	R0,#30H   ；指向ＢＣＤ碼浮點操作數ａ
	LCALL	BTOF      ；將其轉換成二進制浮點操作數
	MOV  	R1,#33H   ；指向二進制浮點操作數ｂ
	LCALL	FMUL      ；進行浮點乘法運算
	MOV  	R1,#36H   ；指向二進制浮點操作數ｃ
	LCALL	FDIV      ；進行浮點除法運算
	MOV  	R1,#39H   ；指向二進制浮點操作數ｄ
	LCALL	FADD      ；進行浮點加法運算
	LCALL	FSIN      ；進行浮點正弦運算
	LCALL	FABS      ；進行浮點絕對值運算
	LCALL	FSQR      ；進行浮點開平方運算
	LCALL	FLN       ；進行浮點對數運算
	LCALL	FTOB      ；將結果轉換成ＢＣＤ碼浮點數
STOP	LJMP	STOP
	END
    運行結果，[R0]=804915H，即ｙ=-0.4915，比較精確的結果應該是-0.491437。

    （１）  標號：  ＦＳＤＴ    功能：浮點數格式化

入口條件：待格式化浮點操作數在[R0]中。
出口信息：已格式化浮點操作數仍在[R0]中。
影響資源：PSW、A、R2、R3、R4、位1FH    堆棧需求：  ６字節

FSDT	LCALL	MVR0	；將待格式化操作數傳送到第一工作區中
	LCALL	RLN	；通過左規完成格式化
	LJMP	MOV0	；將已格式化浮點操作數傳回到[R0]中

    （２）  標號：  ＦＡＤＤ    功能：浮點數加法

入口條件：被加數在[R0]中，加數在[R1]中。
出口信息：OV=0時，和仍在[R0]中，OV=1時，溢出。
影響資源：PSW、A、B、R2～R7、位1EH、1FH  堆棧需求：  ６字節

FADD	CLR	F0	；設立加法標志
	SJMP	AS	；計算代數和

    （３）  標號：  ＦＳＵＢ    功能：浮點數減法

入口條件：被減數在[R0]中，減數在[R1]中。
出口信息：OV=0時，差仍在[R0]中，OV=1時，溢出。
影響資源：PSW、A、B、R2～R7、位1EH、1FH    堆棧需求：６字節

FSUB	SETB	F0	；設立減法標志
AS	LCALL	MVR1	；計算代數和。先將[R1]傳送到第二工作區
	MOV	C,F0	；用加減標志來校正第二操作數的有效符號
	RRC	A
	XRL	A,@R1
	MOV	C,ACC.7
ASN	MOV	1EH,C	；將第二操作數的有效符號存入位1EH中
	XRL	A,@R0	；與第一操作數的符號比較
	RLC	A
	MOV	F0,C	；保存比較結果
	LCALL	MVR0	；將[R0]傳送到第一工作區中
	LCALL	AS1	；在工作寄存器中完成代數運算
MOV0	INC	R0	；將結果傳回到[R0]中的子程序入口
	INC	R0
	MOV	A,R4	；傳回尾數的低字節
	MOV	@R0,A
	DEC	R0
	MOV	A,R3	；傳回尾數的高字節
	MOV	@R0,A
	DEC	R0
	MOV	A,R2	；取結果的階碼
	MOV	C,1FH	；取結果的數符
	MOV	ACC.7,C	；拼入階碼中
	MOV	@R0,A
	CLR	ACC.7	；不考慮數符
	CLR	OV	；清除溢出標志
	CJNE	A,#3FH,MV01；階碼是否上溢？
	SETB	OV	；設立溢出標志
MV01	MOV	A,@R0	；取出帶數符的階碼
	RET
MVR0	MOV	A,@R0	；將[R0]傳送到第一工作區中的子程序
	MOV	C,ACC.7	；將數符保存在位1FH中
	MOV	1FH,C
	MOV	C,ACC.6	；將階碼擴充為８ｂｉｔ補碼
	MOV	ACC.7,C
	MOV	R2,A	；存放在R2中
	INC	R0
	MOV	A,@R0	；將尾數高字節存放在R3中
	MOV	R3,A
	INC	R0
	MOV	A,@R0	；將尾數低字節存放在R4中
	MOV	R4,A
	DEC	R0	；恢復數據指針
	DEC	R0
	RET
MVR1	MOV	A,@R1	；將[R1]傳送到第二工作區中的子程序
	MOV	C,ACC.7	；將數符保存在位1EH中
	MOV	1EH,C
	MOV	C,ACC.6	；將階碼擴充為８ｂｉｔ補碼
	MOV	ACC.7,C
	MOV	R5,A	；存放在R5中
	INC	R1
	MOV	A,@R1	；將尾數高字節存放在R6中
	MOV	R6,A
	INC	R1
	MOV	A,@R1	；將尾數低字節存放在R7中
	MOV	R7,A
	DEC	R1	；恢復數據指針
	DEC	R1
	RET
AS1	MOV	A,R6	；讀取第二操作數尾數高字節
	ORL	A,R7
	JZ	AS2	；第二操作數為零，不必運算
	MOV	A,R3	；讀取第一操作數尾數高字節
	ORL	A,R4
	JNZ	EQ1
	MOV	A,R6	；第一操作數為零，結果以第二操作數為準
	MOV	R3,A
	MOV	A,R7
	MOV	R4,A
	MOV	A,R5
	MOV	R2,A
	MOV	C,1EH
	MOV	1FH,C
AS2	RET
EQ1	MOV	A,R2	；對階，比較兩個操作數的階碼
	XRL	A,R5
	JZ	AS4	；階碼相同，對階結束
	JB	ACC.7,EQ3；階符互異
	MOV	A,R2	；階符相同，比較大小
	CLR	C
	SUBB	A,R5
	JC	EQ4
EQ2	CLR	C	；第二操作數右規一次
	MOV	A,R6	；尾數縮小一半
	RRC	A
	MOV	R6,A
	MOV	A,R7
	RRC	A
	MOV	R7,A
	INC	R5	；階碼加一
	ORL	A,R6	；尾數為零否？
	JNZ	EQ1	；尾數不為零，繼續對階
	MOV	A,R2	；尾數為零，提前結束對階
	MOV	R5,A
	SJMP	AS4
EQ3	MOV	A,R2	；判斷第一操作數階符
	JNB	ACC.7,EQ2；如為正，右規第二操作數
EQ4	CLR	C
	LCALL	RR1	；第一操作數右規一次
	ORL	A,R3	；尾數為零否？
	JNZ	EQ1	；不為零，繼續對階
	MOV	A,R5	；尾數為零，提前結束對階
	MOV	R2,A
AS4	JB	F0,AS5	；尾數加減判斷
	MOV	A,R4	；尾數相加
	ADD	A,R7
	MOV	R4,A
	MOV	A,R3	
	ADDC	A,R6
	MOV	R3,A
	JNC	AS2
	LJMP	RR1	；有進位，右規一次
AS5	CLR	C	；比較絕對值大小
	MOV	A,R4
	SUBB	A,R7
	MOV	B,A
	MOV	A,R3
	SUBB	A,R6
	JC	AS6
	MOV	R4,B	；第一尾數減第二尾數
	MOV	R3,A
	LJMP	RLN	；結果規格化
AS6	CPL	1FH	；結果的符號與第一操作數相反
	CLR	C	；結果的絕對值為第二尾數減第一尾數
	MOV	A,R7
	SUBB	A,R4
	MOV	R4,A
	MOV	A,R6
	SUBB	A,R3
	MOV	R3,A
RLN	MOV	A,R3	；浮點數規格化
	ORL	A,R4	；尾數為零否？
	JNZ	RLN1
	MOV	R2,#0C1H；階碼取最小值
	RET     	
RLN1	MOV	A,R3
	JB	ACC.7,RLN2；尾數最高位為一否？
	CLR	C	；不為一，左規一次
	LCALL	RL1
	SJMP	RLN	；繼續判斷
RLN2	CLR	OV	；規格化結束
	RET
RL1	MOV	A,R4	；第一操作數左規一次
	RLC	A	；尾數擴大一倍
	MOV	R4,A
	MOV	A,R3
	RLC	A
	MOV	R3,A
	DEC	R2	；階碼減一
	CJNE	R2,#0C0H,RL1E；階碼下溢否？
	CLR	A
	MOV	R3,A	；階碼下溢，操作數以零計
	MOV	R4,A
	MOV	R2,#0C1H
RL1E	CLR	OV
	RET
RR1	MOV	A,R3	；第一操作數右規一次
	RRC	A	；尾數縮小一半