ＭＣＳ－５１定點(diǎn)運(yùn)算子程序庫及其使用說明 

    １．多字節(jié)定點(diǎn)操作數(shù)：用[R0]或[R1]來表示存放在由R0或R1指示的連續(xù)單元中的數(shù)
據(jù)。地址小的單元存放數(shù)據(jù)的高字節(jié)。例如：[R0]=123456H，若(R0)=30H，則(30H)=12H，
(31H)=34H，(32H)=56H。
    ２．運(yùn)算精度：?jiǎn)未味c(diǎn)運(yùn)算精度為結(jié)果最低位的當(dāng)量值。
    ３．工作區(qū)：數(shù)據(jù)工作區(qū)固定在PSW、A、B、R2～R7，用戶只要不在工作區(qū)中存放無
關(guān)的或非消耗性的信息，程序就具有較好的透明性。


    （１）  標(biāo)號(hào)：  ＢＣＤＡ    功能：多字節(jié)ＢＣＤ碼加法

入口條件：字節(jié)數(shù)在R7中，被加數(shù)在[R0]中，加數(shù)在[R1]中。
出口信息：和在[R0]中，最高位進(jìn)位在CY中。
影響資源：PSW、A、R2    堆棧需求：  ２字節(jié)

BCDA:	MOV	A,R7	；取字節(jié)數(shù)至R2中
	MOV	R2,A
	ADD	A,R0	；初始化數(shù)據(jù)指針
	MOV	R0,A
	MOV	A,R2
	ADD	A,R1
	MOV	R1,A
	CLR	C
BCD1:	DEC	R0	；調(diào)整數(shù)據(jù)指針
	DEC	R1
	MOV	A,@R0
	ADDC	A,@R1	；按字節(jié)相加
	DA	A	；十進(jìn)制調(diào)整
	MOV	@R0,A	；和存回[R0]中
	DJNZ	R2,BCD1	；處理完所有字節(jié)
	RET

    （２）  標(biāo)號(hào)：  ＢＣＤＢ    功能：多字節(jié)ＢＣＤ碼減法

入口條件：字節(jié)數(shù)在R7中，被減數(shù)在[R0]中，減數(shù)在[R1]中。
出口信息：差在[R0]中，最高位借位在CY中。
影響資源：PSW、A、R2、R3    堆棧需求：  ６字節(jié)

BCDB:	LCALL	NEG1	；減數(shù)[R1]十進(jìn)制取補(bǔ)
	LCALL	BCDA	；按多字節(jié)ＢＣＤ碼加法處理
	CPL	C	；將補(bǔ)碼加法的進(jìn)位標(biāo)志轉(zhuǎn)換成借位標(biāo)志
	MOV	F0,C	；保護(hù)借位標(biāo)志
	LCALL	NEG1	；恢復(fù)減數(shù)[R1]的原始值
	MOV	C,F0    ；恢復(fù)借位標(biāo)志
	RET
NEG1:	MOV	A,R0	；[R1]十進(jìn)制取補(bǔ)子程序入口
	XCH	A,R1	；交換指針
	XCH	A,R0
	LCALL	NEG	；通過[R0]實(shí)現(xiàn)[R1]取補(bǔ)

MOV	A,R0
	XCH	A,R1	；換回指針
	XCH	A,R0
	RET

    （３）  標(biāo)號(hào)：  ＮＥＧ    功能：多字節(jié)ＢＣＤ碼取補(bǔ)

入口條件：字節(jié)數(shù)在R7中，操作數(shù)在[R0]中。
出口信息：結(jié)果仍在[R0]中。
影響資源：PSW、A、R2、R3    堆棧需求：  ２字節(jié)

NEG:	MOV	A,R7	；取（字節(jié)數(shù)減一）至R2中
	DEC	A
	MOV	R2,A
	MOV	A,R0	；保護(hù)指針
	MOV	R3,A
NEG0:	CLR	C	
	MOV	A,#99H
	SUBB	A,@R0	；按字節(jié)十進(jìn)制取補(bǔ)
	MOV	@R0,A	；存回[R0]中
	INC	R0	；調(diào)整數(shù)據(jù)指針
	DJNZ	R2,NEG0	；處理完（R2）字節(jié)

MOV	A,#9AH	；最低字節(jié)單獨(dú)取補(bǔ)
	SUBB	A,@R0
	MOV	@R0,A
	MOV	A,R3	；恢復(fù)指針
	MOV	R0,A
	RET

    （４）  標(biāo)號(hào)：  ＢＲＬＮ    功能：多字節(jié)ＢＣＤ碼左移十進(jìn)制一位（乘十）

入口條件：字節(jié)數(shù)在R7中，操作數(shù)在[R0]中。
出口信息：結(jié)果仍在[R0]中，移出的十進(jìn)制最高位在R3中。
影響資源：PSW、A、R2、R3    堆棧需求：  ２字節(jié)

BRLN:	MOV	A,R7	；取字節(jié)數(shù)至R2中
   	MOV	R2,A
	ADD	A,R0	；初始化數(shù)據(jù)指針
	MOV	R0,A
	MOV	R3,#0	；工作單元初始化
BRL1:	DEC	R0	；調(diào)整數(shù)據(jù)指針

MOV	A,@R0	；取一字節(jié)
	SWAP	A	；交換十進(jìn)制高低位
	MOV	@R0,A	；存回
	MOV	A,R3	；取低字節(jié)移出的十進(jìn)制高位
	XCHD	A,@R0	；換出本字節(jié)的十進(jìn)制高位
	MOV	R3,A	；保存本字節(jié)的十進(jìn)制高位
	DJNZ	R2,BRL1	；處理完所有字節(jié)
	RET

    （５）  標(biāo)號(hào)： ＭＵＬＤ    功能：雙字節(jié)二進(jìn)制無符號(hào)數(shù)乘法

入口條件：被乘數(shù)在R2、R3中，乘數(shù)在R6、R7中。
出口信息：乘積在R2、R3、R4、R5中。
影響資源：PSW、A、B、R2～R7    堆棧需求：  ２字節(jié)

MULD:	MOV	A,R3	；計(jì)算R3乘R7
	MOV	B,R7

MUL	AB
	MOV	R4,B	；暫存部分積
	MOV	R5,A
	MOV	A,R3	；計(jì)算R3乘R6
	MOV	B,R6
	MUL	AB
	ADD	A,R4	；累加部分積
	MOV	R4,A
	CLR	A
	ADDC	A,B
	MOV	R3,A
	MOV	A,R2	；計(jì)算R2乘R7
	MOV	B,R7
	MUL	AB
	ADD	A,R4	；累加部分積
	MOV	R4,A
	MOV	A,R3
	ADDC	A,B
	MOV	R3,A
	CLR	A
	RLC	A
	XCH	A,R2	；計(jì)算R2乘R6
	MOV	B,R6
	MUL	AB
	ADD	A,R3	；累加部分積
	MOV	R3,A
	MOV	A,R2
	ADDC	A,B
	MOV	R2,A
	RET

    （６）  標(biāo)號(hào)： ＭＵＬ２    功能：雙字節(jié)二進(jìn)制無符號(hào)數(shù)平方

入口條件：待平方數(shù)在R2、R3中。
出口信息：結(jié)果在R2、R3、R4、R5中。
影響資源：PSW、A、B、R2～R5    堆棧需求：  ２字節(jié)

MUL2:	MOV	A,R3	；計(jì)算R3平方
	MOV	B,A
	MUL	AB
	MOV	R4,B	；暫存部分積
	MOV	R5,A
	MOV	A,R2	；計(jì)算R2平方
	MOV	B,A
	MUL	AB
	XCH	A,R3	；暫存部分積，并換出R2和R3
	XCH	A,B
	XCH	A,R2
	MUL	AB	；計(jì)算2×R2×R3
	CLR	C
	RLC	A
	XCH	A,B
	RLC	A
	JNC	MU20
	INC	R2	；累加溢出量
MU20:	XCH	A,B	；累加部分積
	ADD	A,R4

MOV	R4,A
	MOV	A,R3
	ADDC	A,B
	MOV	R3,A
	CLR	A
	ADDC	A,R2
	MOV	R2,A
	RET

    （７）  標(biāo)號(hào)：  ＤＩＶＤ    功能：雙字節(jié)二進(jìn)制無符號(hào)數(shù)除法

入口條件：被除數(shù)在R2、R3、R4、R5中，除數(shù)在R6、R7中。
出口信息：OV=0 時(shí)，雙字節(jié)商在R2、R3中，OV=1 時(shí)溢出。
影響資源：PSW、A、B、R1～R7    堆棧需求：  ２字節(jié)

DIVD:	CLR	C	；比較被除數(shù)和除數(shù)
	MOV	A,R3	
	SUBB	A,R7
	MOV	A,R2
	SUBB	A,R6
	JC	DVD1
	SETB	OV	；溢出
	RET
DVD1:	MOV	B,#10H	；計(jì)算雙字節(jié)商

DVD2:	CLR	C	；部分商和余數(shù)同時(shí)左移一位
	MOV	A,R5
	RLC	A
	MOV	R5,A
	MOV	A,R4
	RLC	A
	MOV	R4,A
	MOV	A,R3
	RLC	A
	MOV	R3,A
	XCH	A,R2
	RLC	A
	XCH	A,R2
	MOV	F0,C	；保存溢出位
	CLR	C
	SUBB	A,R7	；計(jì)算（R2R3－R6R7）
	MOV	R1,A
	MOV	A,R2
	SUBB	A,R6
	ANL	C,/F0	；結(jié)果判斷
	JC	DVD3
	MOV	R2,A	；夠減，存放新的余數(shù)
	MOV	A,R1
	MOV	R3,A
	INC	R5	；商的低位置一
DVD3:	DJNZ	B,DVD2	；計(jì)算完十六位商（R4R5）
	MOV	A,R4	；將商移到R2R3中

MOV	R2,A
	MOV	A,R5
	MOV	R3,A
	CLR	OV	；設(shè)立成功標(biāo)志
	RET

    （８）  標(biāo)號(hào)：  Ｄ４５７   功能：雙字節(jié)二進(jìn)制無符號(hào)數(shù)除以單字節(jié)二進(jìn)制數(shù)

入口條件：被除數(shù)在R4、R5中，除數(shù)在R7中。
出口信息：OV=0 時(shí)，單字節(jié)商在R3中，OV=1 時(shí)溢出。
影響資源：PSW、A、R3～R7    堆棧需求：  ２字節(jié)

D457:	CLR	C
	MOV	A,R4
	SUBB	A,R7
	JC	DV50
	SETB	OV	；商溢出
	RET
DV50:	MOV	R6,#8	；求平均值（R4R5／R7－→R3）
DV51:	MOV	A,R5
	RLC	A
	MOV	R5,A
	MOV	A,R4

RLC	A
	MOV	R4,A
	MOV	F0,C
	CLR	C
	SUBB	A,R7
	ANL	C,/F0
	JC	DV52
	MOV	R4,A
DV52:	CPL	C
	MOV	A,R3
	RLC	A
	MOV	R3,A
	DJNZ	R6,DV51
	MOV	A,R4	；四舍五入
	ADD	A,R4
	JC	DV53
	SUBB	A,R7
	JC	DV54
DV53:	INC	R3
DV54:	CLR	OV
	RET

    （９）  標(biāo)號(hào)：  ＤＶ３１    功能：三字節(jié)二進(jìn)制無符號(hào)數(shù)除以單字節(jié)二進(jìn)制數(shù)

入口條件：被除數(shù)在R3、R4、R5中，除數(shù)在R7中。
出口信息：OV=0 時(shí)，雙字節(jié)商在R4、R5中，OV=1 時(shí)溢出。
影響資源：PSW、A、B、R2～R7    堆棧需求：  ２字節(jié)

DV31:	CLR	C
	MOV	A,R3
	SUBB	A,R7
	JC	DV30
	SETB	OV	；商溢出
	RET
DV30:	MOV	R2,#10H	；求R3R4R5／R7－→R4R5
DM23:	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	F0,C
	CLR	C
	SUBB	A,R7
	ANL	C,/F0
	JC	DM24
	MOV	R3,A
	INC	R5
DM24:	DJNZ	R2,DM23
	MOV	A,R3	；四舍五入
	ADD	A,R3
	JC	DM25
	SUBB	A,R7
	JC	DM26
DM25:	INC	R5
	MOV	A,R5
	JNZ	DM26

INC	R4
DM26:	CLR	OV
	RET             ；商在R4R5中 


    （１０）  標(biāo)號(hào)： ＭＵＬＳ    功能：雙字節(jié)二進(jìn)制有符號(hào)數(shù)乘法（補(bǔ)碼）

入口條件：被乘數(shù)在R2、R3中，乘數(shù)在R6、R7中。
出口信息：乘積在R2、R3、R4、R5中。
影響資源：PSW、A、B、R2～R7    堆棧需求：  ４字節(jié)

MULS:	MOV	R4,#0	；清零R4R5
	MOV	R5,#0
	LCALL	MDS	；計(jì)算結(jié)果的符號(hào)和兩個(gè)操作數(shù)的絕對(duì)值
	LCALL	MULD	；計(jì)算兩個(gè)絕對(duì)值的乘積
	SJMP	MDSE	；用補(bǔ)碼表示結(jié)果

    （１１）  標(biāo)號(hào)：  ＤＩＶＳ    功能：雙字節(jié)二進(jìn)制有符號(hào)數(shù)除法（補(bǔ)碼）

入口條件：被除數(shù)在R2、R3、R4、R5中，除數(shù)在R6、R7中。
出口信息：OV=0時(shí)商在R2、R3中，OV=1時(shí)溢出。
影響資源：PSW、A、B、R1～R7    堆棧需求：  ５字節(jié)

DIVS:	LCALL	MDS	；計(jì)算結(jié)果的符號(hào)和兩個(gè)操作數(shù)的絕對(duì)值
	PUSH	PSW	；保存結(jié)果的符號(hào)
	LCALL	DIVD	；計(jì)算兩個(gè)絕對(duì)值的商
	JNB	OV,DVS1	；溢出否？
	POP	ACC	；溢出，放去結(jié)果的符號(hào)，保留溢出標(biāo)志
	RET
DVS1:	POP	PSW	；未溢出，取出結(jié)果的符號(hào)
	MOV	R4,#0
	MOV	R5,#0
MDSE:	JB	F0,MDS2	；用補(bǔ)碼表示結(jié)果
	CLR	OV	；結(jié)果為正，原碼即補(bǔ)碼，計(jì)算成功

RET
MDS:	CLR	F0	；結(jié)果符號(hào)初始化
	MOV	A,R6	；判斷第二操作數(shù)的符號(hào)
	JNB	ACC.7,MDS1；為正，不必處理
	CPL	F0	；為負(fù)，結(jié)果符號(hào)取反
	XCH	A,R7	；第二操作數(shù)取補(bǔ)，得到其絕對(duì)值
	CPL	A
	ADD	A,#1
	XCH	A,R7
	CPL	A
	ADDC	A,#0
	MOV	R6,A
MDS1:	MOV	A,R2	；判斷第一操作數(shù)或運(yùn)算結(jié)果的符號(hào)
	JNB	ACC.7,MDS3；為正，不必處理
	CPL	F0	；為負(fù)，結(jié)果符號(hào)取反
MDS2:	MOV	A,R5	；求第一操作數(shù)的絕對(duì)值或運(yùn)算結(jié)果的補(bǔ)碼
	CPL	A
	ADD	A,#1
	MOV	R5,A

MOV	A,R4
	CPL	A
	ADDC	A,#0
	MOV	R4,A
	MOV	A,R3
	CPL	A
	ADDC	A,#0
	MOV	R3,A
	MOV	A,R2
	CPL	A
	ADDC	A,#0
	MOV	R2,A
MDS3:	CLR	OV	；運(yùn)算成功
	RET

    （１２）  標(biāo)號(hào)：  ＳＨ２    功能：雙字節(jié)二進(jìn)制無符號(hào)數(shù)開平方（快速）