51定點(diǎn)運(yùn)算子程序庫及其使用說明

26/26５1定點(diǎn)運(yùn)算子程序庫及其使用說明

定點(diǎn)運(yùn)算子程序庫文件名為DQ51.ASM，為便于使用,先將有關(guān)約定說明如下：

1．多字節(jié)定點(diǎn)操作數(shù)：用［R0]或［R1］來表示存放在由R0或R1指示的連續(xù)單元中的數(shù)?據(jù).地址小的單元存放數(shù)據(jù)的高字節(jié)。例如:[R0]=1２3４56H，若(R０）=30H,則(30H）=12H，?(3１H）=34H,(32H）=５6H。

2．運(yùn)算精度：單次定點(diǎn)運(yùn)算精度為結(jié)果最低位的當(dāng)量值。?３．工作區(qū)：數(shù)據(jù)工作區(qū)固定在PSＷ、A、B、Ｒ2～R7,用戶只要不在工作區(qū)中存放無?關(guān)的或非消耗性的信息,程序就具有較好的透明性。?(1)標(biāo)號(hào)：ＢCＤA功能:多字節(jié)ＢCD碼加法

入口條件：字節(jié)數(shù)在R7中，被加數(shù)在［R０]中，加數(shù)在［Ｒ1］中.

出口信息:和在[R０]中，最高位進(jìn)位在CY中。

影響資源：PSW、A、R2堆棧需求:2字節(jié)

ＢCDA：MOVＡ,Ｒ７;取字節(jié)數(shù)至Ｒ2中

MOVR２,A

ＡＤDA，R０；初始化數(shù)據(jù)指針

MＯＶR0,Ａ?MＯVＡ，R2?ADDA,Ｒ1?ＭOVＲ1，Ａ?ＣＬRC

BCD1：DＥＣR0；調(diào)整數(shù)據(jù)指針

DECＲ１?MOＶA,＠R0?ADＤCA，@R1；按字節(jié)相加?DAA；十進(jìn)制調(diào)整?MOＶ＠R0,A；和存回［R0]中

DＪＮZR２,ＢCD1;處理完所有字節(jié)?RET?（２)標(biāo)號(hào)：BCＤＢ功能:多字節(jié)BＣD碼減法

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

BCDB:LCALLNEG1;減數(shù)[R1］十進(jìn)制取補(bǔ)

LCAＬＬBCＤＡ;按多字節(jié)BＣＤ碼加法處理?CPLC；將補(bǔ)碼加法的進(jìn)位標(biāo)志轉(zhuǎn)換成借位標(biāo)志?MOVＦ0,C；保護(hù)借位標(biāo)志?LCAＬLNEG1；恢復(fù)減數(shù)[R１］的原始值

MOVC，Ｆ0；恢復(fù)借位標(biāo)志?RＥT

NEＧ1：MOVＡ，R0；［R1］十進(jìn)制取補(bǔ)子程序入口?ＸCHA，R１；交換指針

ＸCHＡ,R0

ＬCALLNＥG;通過［Ｒ０]實(shí)現(xiàn)[R1]取補(bǔ)?MOVA，R0?ＸCＨA,R１；換回指針

XCＨA,R0

RＥT???(3）標(biāo)號(hào)：NＥG功能:多字節(jié)ＢCＤ碼取補(bǔ)??入口條件:字節(jié)數(shù)在R7中,操作數(shù)在[R0］中。

出口信息：結(jié)果仍在［R０］中。

影響資源:PSW、Ａ、R２、R3堆棧需求：2字節(jié)?NEG:MOVＡ,Ｒ７;取(字節(jié)數(shù)減一)至R2中

DＥCA?ＭOＶR2，Ａ?ＭＯVA，R0；保護(hù)指針?MOVR３,A?ＮEG0:CLRC

ＭＯVA,#９9H?SUＢBＡ,＠Ｒ0;按字節(jié)十進(jìn)制取補(bǔ)

MＯＶ＠R0，A;存回［Ｒ０］中?INCR0;調(diào)整數(shù)據(jù)指針

DJNＺR２,NＥＧ0；處理完（Ｒ２)字節(jié)

MOVＡ,#9ＡＨ；最低字節(jié)單獨(dú)取補(bǔ)

SUBBA，＠R0?MOV＠R０，A?MＯVA,R３；恢復(fù)指針?MＯＶR0,A

ＲET?（4)標(biāo)號(hào):ＢRLN功能：多字節(jié)BＣＤ碼左移十進(jìn)制一位（乘十）

入口條件:字節(jié)數(shù)在R7中，操作數(shù)在［R0]中.?出口信息:結(jié)果仍在[Ｒ0］中，移出的十進(jìn)制最高位在Ｒ3中。

影響資源:ＰSW、A、R２、Ｒ3堆棧需求:2字節(jié)?BRLN：ＭＯVＡ，R7;取字節(jié)數(shù)至R2中?MＯVR2，A

ＡDDＡ,R０;初始化數(shù)據(jù)指針?ＭOVＲ０,A?MOVR3，#0；工作單元初始化?BＲＬ１：DEＣR0；調(diào)整數(shù)據(jù)指針?MＯＶA，＠R0；取一字節(jié)

SWＡPA；交換十進(jìn)制高低位?MＯV＠R0，A;存回?MＯVＡ，R3;取低字節(jié)移出的十進(jìn)制高位?XCHDA，＠R0;換出本字節(jié)的十進(jìn)制高位?MOＶＲ3，A;保存本字節(jié)的十進(jìn)制高位

DJNZＲ2，BRL１；處理完所有字節(jié)

ＲＥT

(5）標(biāo)號(hào)：MULD功能:雙字節(jié)二進(jìn)制無符號(hào)數(shù)乘法

入口條件：被乘數(shù)在R2、R3中，乘數(shù)在R6、R7中。?出口信息:乘積在R2、R３、R4、R５中。?影響資源：PSW、Ａ、B、R2～R７堆棧需求：2字節(jié)?MＵＬD:ＭOVA，R3；計(jì)算R3乘Ｒ7

MＯＶB,Ｒ7?ＭUＬAB

MOＶR4，B；暫存部分積

MOVＲ５,Ａ?MOVA，R3;計(jì)算R3乘R６

MＯVB,R６

MＵＬAB

ADDA,R４;累加部分積?ＭOＶＲ４，Ａ

ＣＬRA?ＡＤDCA,B?MOVR3，Ａ

MOVA,R２;計(jì)算R2乘R7?MOVB,R7

MULAB?ADDＡ,R4；累加部分積

MOＶR4,A

ＭOＶA，Ｒ３

AＤDCA,Ｂ?ＭＯVR3,A?CＬＲA

RLＣA?XＣHA,R2;計(jì)算R2乘R6?MOＶB，R6

MULAB

ＡDDA,R3;累加部分積?MＯVR３，A

MOVＡ,R２

ADDCA,B

ＭOVR２，Ａ

RＥT?（6)標(biāo)號(hào)：MＵL２功能：雙字節(jié)二進(jìn)制無符號(hào)數(shù)平方?入口條件:待平方數(shù)在R2、R３中。

出口信息：結(jié)果在R2、R3、R4、Ｒ5中。?影響資源：PSW、A、B、R2～Ｒ5堆棧需求：2字節(jié)

MＵL2:ＭＯVA，Ｒ3;計(jì)算R3平方

ＭOＶB,A?MＵＬＡＢ

ＭOVR４,Ｂ;暫存部分積

MOVR５，Ａ?MＯＶA,R２;計(jì)算R２平方

MOVＢ，Ａ

MULAB

XCHA,Ｒ３;暫存部分積,并換出Ｒ2和R3?XCHA,B

XＣHA，R2?ＭULAＢ；計(jì)算2×R2×R３

ＣLRC?ＲLCA?ＸCHA，B?ＲLCA

ＪNCMU2０

INCR2;累加溢出量

ＭU20：XCHA,B;累加部分積?ADＤＡ,Ｒ4

MOVＲ4,A

ＭＯVA,R3?AＤDCA,B

MOＶR3,A?CＬRA?ＡDＤCA，R2?MOVR2，A

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

入口條件：被除數(shù)在Ｒ２、R3、Ｒ４、Ｒ5中，除數(shù)在R6、R7中。

出口信息：OV＝0時(shí),雙字節(jié)商在Ｒ２、R3中,ＯV=1時(shí)溢出。

影響資源:PSW、A、B、Ｒ1~R７堆棧需求:2字節(jié)

DIＶD:CLＲＣ；比較被除數(shù)和除數(shù)?MOVA,R3

SUBBA,R7?MOＶA，R2?ＳＵBBＡ，Ｒ６

JCＤVD１?ＳETBＯV;溢出

RＥＴ

DVD１：MOVB，#１０H；計(jì)算雙字節(jié)商?DVD2：CLRC；部分商和余數(shù)同時(shí)左移一位

ＭOVA,R5

ＲLＣA

MOVR5，A

MＯＶA，R４?ＲLCA

MOVR４,Ａ

MOVＡ,R3?ＲLＣA

MOVR３,A

XCＨA，R２?RＬCA?XCHA，Ｒ2?MOVＦ0，C；保存溢出位?CLRC

ＳＵＢBA,R7；計(jì)算(R2R3—R６R7）

MOVＲ１,A?MOVＡ，R2?SUBＢＡ，Ｒ6

ＡNＬC,/F０；結(jié)果判斷

JCDVD3?MOＶR２,Ａ；夠減，存放新的余數(shù)

MOVA,R１

MＯＶＲ3，A?ＩNCR５；商的低位置一

DVＤ3：DJNZB，ＤVＤ2；計(jì)算完十六位商（R4R5）?MOVA,R4；將商移到Ｒ2R3中

ＭOVR2,A?MOVA，R5?MOVR3,A

CLＲOV;設(shè)立成功標(biāo)志

RET?（８）標(biāo)號(hào)：Ｄ４５７功能：雙字節(jié)二進(jìn)制無符號(hào)數(shù)除以單字節(jié)二進(jìn)制數(shù)?入口條件：被除數(shù)在Ｒ4、R5中,除數(shù)在R7中。

出口信息:OＶ=0時(shí)，單字節(jié)商在R３中,ＯV＝1時(shí)溢出。?影響資源：PSW、Ａ、Ｒ3~R7堆棧需求:２字節(jié)?D４5７：CLRＣ

ＭＯVＡ,R4?SＵBBA，R7?JCＤV50?ＳETBOV;商溢出

RＥT?ＤV5０:MOVＲ6，#8;求平均值(R４Ｒ5/R7－→R3)

ＤV５１：MOVA,R5

RLCA

MOVR５，A?MOVA，R4

RLCA

ＭOVR4,A

MOVF0，C?ＣLRＣ?SUBBA，Ｒ７

ANLC,/Ｆ0

JCDＶ52?ＭOＶR４,A

DV５2:CPLC?MOVA，R３

RLCA?MＯＶR３，A?DＪNZR６,DV51

MOＶＡ，R４；四舍五入?ADDA，R4?JCDV53

ＳUBBA,R７?JＣＤV５４

DV53：IＮCR３

DV５4:CLROV?REＴ?（９)標(biāo)號(hào)：DＶ3１功能:三字節(jié)二進(jìn)制無符號(hào)數(shù)除以單字節(jié)二進(jìn)制數(shù)?入口條件:被除數(shù)在R3、Ｒ4、R5中,除數(shù)在R7中。

出口信息：OV=0時(shí)，雙字節(jié)商在R4、Ｒ5中，ＯV=1時(shí)溢出。?影響資源：PSW、Ａ、B、Ｒ2~R7堆棧需求：2字節(jié)

ＤV31:CLRC

MOVＡ,R3

SUBＢＡ，Ｒ7?JＣDV30?ＳＥＴＢＯＶ;商溢出?ＲET?DV３０：ＭＯＶＲ2,#10Ｈ；求R3R4R5/R7—→Ｒ4R５?DM23:ＣＬRＣ?MOVA，R5?RLＣA?ＭOVR5,A?MOVA,R4

RＬCＡ

MOＶR4，A

MOＶA，R3?RLＣA

MOVＲ３,Ａ?MOVF０，Ｃ?CＬＲC

SUBBA,R7

AＮＬC，/F０

JCDＭ２４

MOVR3,Ａ?ＩNCR5

DM24:DJNZR２，DＭ23

ＭOVＡ,R３；四舍五入?ＡDＤA，R3

ＪＣＤM25

SUBＢA，R7

ＪCＤM26

DM25:INCR5

MOＶA,R5

JNZＤM26?INＣR4?ＤM26：CLRＯV

RET；商在R4R５中

（10)標(biāo)號(hào):MULS功能:雙字節(jié)二進(jìn)制有符號(hào)數(shù)乘法（補(bǔ)碼）?

入口條件：被乘數(shù)在Ｒ2、R3中，乘數(shù)在R6、R７中。

出口信息:乘積在R2、Ｒ3、R4、R5中。

影響資源:PSW、A、Ｂ、R２～Ｒ7堆棧需求：4字節(jié)?

MULS:MOVR4，#０;清零Ｒ4R5?ＭＯVR5,＃0?LCALLMDＳ；計(jì)算結(jié)果的符號(hào)和兩個(gè)操作數(shù)的絕對(duì)值?LCALLMULD;計(jì)算兩個(gè)絕對(duì)值的乘積?SJMPMDSE；用補(bǔ)碼表示結(jié)果

(１１）標(biāo)號(hào):ＤIVＳ功能：雙字節(jié)二進(jìn)制有符號(hào)數(shù)除法（補(bǔ)碼）?入口條件:被除數(shù)在Ｒ2、R3、R4、R5中，除數(shù)在R６、R7中。

出口信息：OV=0時(shí)商在R2、Ｒ3中，ＯV＝1時(shí)溢出.?影響資源：ＰＳW、A、Ｂ、Ｒ1～R７堆棧需求:5字節(jié)?DIVS:LCALＬMＤS；計(jì)算結(jié)果的符號(hào)和兩個(gè)操作數(shù)的絕對(duì)值?PUSＨPSW;保存結(jié)果的符號(hào)?LＣALLＤIVＤ;計(jì)算兩個(gè)絕對(duì)值的商?ＪNＢOＶ,DVＳ1;溢出否??POPAＣC;溢出，放去結(jié)果的符號(hào),保留溢出標(biāo)志?RET

DVS1：POPPSW；未溢出,取出結(jié)果的符號(hào)?ＭOVＲ4，#0

MOＶR5，#０

MDSE：ＪBF0，MDS２;用補(bǔ)碼表示結(jié)果?CLRＯV；結(jié)果為正,原碼即補(bǔ)碼，計(jì)算成功?RＥT?MDS：CLRF0；結(jié)果符號(hào)初始化

MOVＡ，R6;判斷第二操作數(shù)的符號(hào)?JNＢAＣC。７，MDS1；為正,不必處理?CＰLF0；為負(fù)，結(jié)果符號(hào)取反?XＣHA，R7;第二操作數(shù)取補(bǔ)，得到其絕對(duì)值?CＰLA?ＡDDA,＃1

ＸCHA,R７

ＣPＬA?ADDCA，#0?MＯVR６,Ａ?MDS1：ＭOＶＡ，Ｒ2；判斷第一操作數(shù)或運(yùn)算結(jié)果的符號(hào)?JNBACC。７,MDS3；為正,不必處理?CPLF0；為負(fù),結(jié)果符號(hào)取反

ＭDS２:MOＶＡ，R5；求第一操作數(shù)的絕對(duì)值或運(yùn)算結(jié)果的補(bǔ)碼?CPLA

ADＤA，#1

ＭOＶR5，A

MOＶＡ，R４?CPLＡ

ADＤCA,＃0?MＯVR４，A

ＭOVA，Ｒ3

CPＬA?ＡDDCA,＃0?ＭOVR３,A?MOVA,R2

CPＬA?ADDCA,＃0?MOVＲ2，A

MDＳ３:CLRＯV;運(yùn)算成功

ＲＥT

（１２）標(biāo)號(hào):SH2功能：雙字節(jié)二進(jìn)制無符號(hào)數(shù)開平方（快速）?入口條件:被開方數(shù)在R2、R3中。

出口信息：平方根仍在Ｒ2、R3中,整數(shù)部分的位數(shù)為原數(shù)的一半，其余為小數(shù).?影響資源:PＳW、A、B、R2～R7堆棧需求:２字節(jié)

SＨ2：MOＶA,R2?ORLＡ，Ｒ3?JNZＳH20

ＲET；被開方數(shù)為零,不必運(yùn)算?SＨ２0：ＭOVR7,＃０;左規(guī)次數(shù)初始化?MOVA，R２

SH２２：ＡNLA，＃0C０Ｈ;被開方數(shù)高字節(jié)小于４０Ｈ否？

ＪNＺSQRH；不小于４０Ｈ，左規(guī)格化完成，轉(zhuǎn)開方過程

CLＲＣ；每左規(guī)一次，被開方數(shù)左移兩位

ＭOＶA，Ｒ3

RLCA?ＭOＶF0，C

CLRC

RＬCＡ?MＯVＲ3，A?MOVA,R2

MOVACC．7，C?ＭOVＣ，F(xiàn)０

ＲLＣA?RLＣA

MOVR２,A

INCR7;左規(guī)次數(shù)加一?SＪＭPSH2２;繼續(xù)左規(guī)?(１３)標(biāo)號(hào)：SH4功能：四字節(jié)二進(jìn)制無符號(hào)數(shù)開平方（快速）?入口條件：被開方數(shù)在Ｒ2、R３、R4、Ｒ5中.?出口信息：平方根在R2、R3中，整數(shù)部分的位數(shù)為原數(shù)的一半，其余為小數(shù)。?影響資源:ＰＳＷ、A、B、R2~R7堆棧需求：２字節(jié)?ＳH4：MOＶA,R2

ORＬA，Ｒ3?OＲLＡ,R4?ORLA,R5

JNZSH40

REＴ；被開方數(shù)為零，不必運(yùn)算?ＳH４0：ＭOVR7，＃０；左規(guī)次數(shù)初始化

ＭＯＶA,R2

ＳH４１:ANＬA,#0C0Ｈ；被開方數(shù)高字節(jié)小于4０H否?

JＮZSQＲH;不小于４0H,左規(guī)格化完成?ＭOVR6,＃２；每左規(guī)一次,被開方數(shù)左移兩位?SＨ4２:CLRC；被開方數(shù)左移一位?ＭOVA，R5?RLCA

MOＶR5,A

ＭOＶA，R4?RLＣA

MOＶR4，Ａ

ＭＯVA,R３

RLCA?ＭOＶＲ3,A?MＯVA,Ｒ2?ＲＬCＡ?ＭOVR2，A

DJNZＲ６，SＨ4２；被開方數(shù)左移完兩位

INCR7;左規(guī)次數(shù)加一?ＳＪMＰSＨ41；繼續(xù)左規(guī)?SQRＨ:ＭＯＶA，Ｒ2；規(guī)格化后高字節(jié)按折線法分為三個(gè)區(qū)間

ADDＡ，#57H?JＣSQR2

ADDA,＃45Ｈ

ＪCSQR1

ADDA，＃24H

ＭOVB，＃０E3H；第一區(qū)間的斜率

ＭＯVＲ4,＃80H；第一區(qū)間的平方根基數(shù)

SJMＰSQR3?ＳQＲ1:ＭＯVB,#0B2Ｈ；第二區(qū)間的斜率?ＭＯＶR４,＃0Ａ0H；第二區(qū)間的平方根基數(shù)

ＳＪMPSQR3?SQＲ2：ＭOＶＢ,＃8DＨ；第三區(qū)間的斜率

MOVR4，#0D0H；第三區(qū)間的平方根基數(shù)?SQR3:MULAB；與區(qū)間基點(diǎn)的偏移量乘區(qū)間斜率?MＯＶＡ,B?ADＤA，R4；累加到平方根的基數(shù)上?MOVR4，A?MOVB,A

MULAＢ;求當(dāng)前平方根的冪

XＣHA，R3；求偏移量（存放在R2R3中）?CLRC?SUBＢA,R３

MOVＲ3，Ａ

MＯVＡ，Ｒ2?SUBBA，B?ＭＯVR２，Ａ?ＳＱR４：SETBＣ；用減奇數(shù)法校正一個(gè)字節(jié)的平方根?MOVＡ，R4；當(dāng)前平方根的兩倍加一存入R５Ｒ6中?ＲLCA?MＯVR６,A?ＣLRA?RLCＡ?MOＶＲ5,A?MOVA，R3;偏移量小于該奇數(shù)否??SUBBＡ,Ｒ6?MOＶＢ，Ａ

MＯVA，R２

SUBBA，R5?JCSＱR５；小于，校正結(jié)束，已達(dá)到一個(gè)字節(jié)的精度?ＩNCＲ4;不小于，平方根加一

MＯＶＲ2，A;保存新的偏移量

MOVR3，Ｂ?ＳJＭPＳQＲ4;繼續(xù)校正?SQR5:MOVA,R4；將一個(gè)字節(jié)精度的根存入R2?XCHA，R２?RRCA

MＯＶF０，C;保存最終偏移量的最高位?MOVA，R3

MOVR5，Ａ；將最終偏移量的低八位存入Ｒ5中?ＭOVR4,＃8；通過(R5R６／R2）求根的低字節(jié)?SＱR６:CLＲC?ＭOVA，R3?ＲＬCA?MOＶR3，A?CLRＣ?MOＶA，R5

ＳUBＢA，Ｒ２

ＪBF0,SQR7

ＪＣSQR8?SＱR７:ＭOVR5，Ａ?IＮCR３

SQR８：CＬRＣ?MOVA,Ｒ5

RLＣA?MOVR5,Ａ

ＭＯVＦ０，C?DJNZR４,ＳQR6;根的第二字節(jié)計(jì)算完，在Ｒ3中?MOVA，R7;取原被開方數(shù)的左規(guī)次數(shù)

JZSQRＥ;未左規(guī),開方結(jié)束?ＳQR9：CLＲC；按左規(guī)次數(shù)右移平方根，得到實(shí)際根

ＭOVＡ,R2

ＲＲCA

MＯVR2，Ａ

ＭOVA，Ｒ3?RRCA?MＯVR３，Ａ?DJNZR7,SQR9?SQRE:RET?（1４）標(biāo)號(hào)：ＨＡSＣ功能：單字節(jié)十六進(jìn)制數(shù)轉(zhuǎn)換成雙字節(jié)AＳCＩI碼

入口條件：待轉(zhuǎn)換的單字節(jié)十六進(jìn)制數(shù)在累加器A中。

出口信息:高四位的ASＣII碼在A中,低四位的ASCIＩ碼在B中。?影響資源：ＰSW、A、B堆棧需求：４字節(jié)

HASC：ＭOVB，A；暫存待轉(zhuǎn)換的單字節(jié)十六進(jìn)制數(shù)?LCＡLLHAＳ１；轉(zhuǎn)換低四位

XＣHA，B；存放低四位的ASCII碼?SWAＰＡ；準(zhǔn)備轉(zhuǎn)換高四位

HＡＳ1:ANＬＡ,＃0FH；將累加器的低四位轉(zhuǎn)換成ASＣＩＩ碼

AＤDＡ,＃90Ｈ?DＡA?ＡDDCA，#40H?DAA?RＥT?（１５)標(biāo)號(hào):ASCＨ功能：ASCＩI碼轉(zhuǎn)換成十六進(jìn)制數(shù)?入口條件:待轉(zhuǎn)換的AＳCIＩ碼(30Ｈ～３９H或41H～４6H）在A中。?出口信息：轉(zhuǎn)換后的十六進(jìn)制數(shù)（0０Ｈ～0ＦH）仍在累加器A中。

影響資源：PSＷ、A堆棧需求：2字節(jié)

ＡSCＨ:CLRC

SUBBＡ,＃３0H

JNBACＣ。4,ASH1?SUＢBA,#7

ASH1：REＴ?（16）標(biāo)號(hào)：ＨBＣＤ功能:單字節(jié)十六進(jìn)制整數(shù)轉(zhuǎn)換成單字節(jié)BCＤ碼整數(shù)?入口條件：待轉(zhuǎn)換的單字節(jié)十六進(jìn)制整數(shù)在累加器A中.?出口信息：轉(zhuǎn)換后的BＣＤ碼整數(shù)（十位和個(gè)位)仍在累加器A中，百位在Ｒ3中。

影響資源：PSＷ、Ａ、B、R３堆棧需求：2字節(jié)?ＨBCD:MＯVB,#1０0；分離出百位,存放在R3中

DＩＶAB

MＯVＲ３，A

MＯVA，＃１0；余數(shù)繼續(xù)分離十位和個(gè)位

XＣHA，B

DＩＶＡB?ＳWAPA

ORLA，B；將十位和個(gè)位拼裝成BCＤ碼

RＥＴ

（１７)標(biāo)號(hào)：ＨB２功能:雙字節(jié)十六進(jìn)制整數(shù)轉(zhuǎn)換成雙字節(jié)BＣD碼整數(shù)?入口條件：待轉(zhuǎn)換的雙字節(jié)十六進(jìn)制整數(shù)在Ｒ6、Ｒ7中。

出口信息:轉(zhuǎn)換后的三字節(jié)ＢＣＤ碼整數(shù)在R3、R４、R5中。

影響資源:PSＷ、A、R2～Ｒ7堆棧需求:2字節(jié)

HB2：CLRA；BCＤ碼初始化

MＯVR3,A

MOＶR4，A?MOＶR5,A

ＭOVR2,＃1０Ｈ;轉(zhuǎn)換雙字節(jié)十六進(jìn)制整數(shù)

HＢ3:ＭＯVA，Ｒ7;從高端移出待轉(zhuǎn)換數(shù)的一位到CY中?RLCＡ

ＭＯＶR７，A

MOVA，R6?RLCＡ?MＯVR６，A?MＯVA,Ｒ５；BＣD碼帶進(jìn)位自身相加，相當(dāng)于乘２

ADＤＣA,Ｒ5

DAＡ；十進(jìn)制調(diào)整?MＯVR５,Ａ

MＯVA,R４?AＤDCＡ，R4?DAＡ?MOＶR4，Ａ?MOVA，R３?ADDＣA，R3

ＭOＶR3，A；雙字節(jié)十六進(jìn)制數(shù)的萬位數(shù)不超過６，不用調(diào)整?ＤJNZR2，ＨB3;處理完１6bｉt?RET

(18)標(biāo)號(hào)：ＨＢＤ功能：單字節(jié)十六進(jìn)制小數(shù)轉(zhuǎn)換成單字節(jié)BCＤ碼小數(shù)

入口條件:待轉(zhuǎn)換的單字節(jié)十六進(jìn)制小數(shù)在累加器A中。

出口信息：CＹ=0時(shí)轉(zhuǎn)換后的ＢＣD碼小數(shù)仍在Ａ中.CＹ=１時(shí)原小數(shù)接近整數(shù)1.?影響資源：PSW、A、B堆棧需求：2字節(jié)?ＨBＤ：MOVB,#１０0；原小數(shù)擴(kuò)大一百倍

MULAB?RLCA;余數(shù)部分四舍五入?ＣＬRＡ

ＡDＤCA,B

MOVB，＃1０；分離出十分位和百分位?DＩVAB?SＷＡPA

ＡＤDA，Ｂ；拼裝成單字節(jié)ＢCＤ碼小數(shù)?DAA;調(diào)整后若有進(jìn)位，原小數(shù)接近整數(shù)１

REＴ

（19)標(biāo)號(hào)：ＨＢD２功能：雙字節(jié)十六進(jìn)制小數(shù)轉(zhuǎn)換成雙字節(jié)BＣＤ碼小數(shù)?入口條件:待轉(zhuǎn)換的雙字節(jié)十六進(jìn)制小數(shù)在R２、Ｒ3中。

出口信息：轉(zhuǎn)換后的雙字節(jié)BＣＤ碼小數(shù)仍在R２、Ｒ3中。?影響資源：PＳW、Ａ、B、Ｒ2、R3、R4、Ｒ５堆棧需求：6字節(jié)?ＨＢD2：MOＶR４,＃4；四位十進(jìn)制碼?ＨＢD３:MOVA,Ｒ３；原小數(shù)擴(kuò)大十倍?MOVＢ,#10

ＭULAB?MOＶR3，A?MOVR5，B?MOVA，R2

MOVB,#1０

MULAB?ＡDDA，R５

MOVR２，A?ＣLRＡ?ADDCA,B

ＰＵSHＡCC;保存溢出的一位十進(jìn)制碼?DJNZR4,ＨBD３;計(jì)算完四位十進(jìn)制碼?POPACC；取出萬分位

ＭＯVR3，A?POＰACC；取出千分位?SWAPA

ORLＡ，R３；拼裝成低字節(jié)BCＤ碼小數(shù)

ＭOＶR３，A

ＰＯPACC;取出百分位?MOVR2，A?POPACC;取出十分位

SWAＰA?ＯRＬA，R2；拼裝成高字節(jié)ＢCD碼小數(shù)

ＭOVR2,Ａ?RET

（２0）標(biāo)號(hào):ＢＣＤＨ功能：單字節(jié)BCＤ碼整數(shù)轉(zhuǎn)換成單字節(jié)十六進(jìn)制整數(shù)

入口條件：待轉(zhuǎn)換的單字節(jié)BCＤ碼整數(shù)在累加器Ａ中。

出口信息：轉(zhuǎn)換后的單字節(jié)十六進(jìn)制整數(shù)仍在累加器A中.?影響資源：PSＷ、A、B、R4堆棧需求：２字節(jié)??ＢCＤH：MOＶB，＃10H;分離十位和個(gè)位

ＤＩVAB?MＯVR４，B；暫存?zhèn)€位?MOVB,#10；將十位轉(zhuǎn)換成十六進(jìn)制

ＭUＬAＢ

ADＤA，R４；按十六進(jìn)制加上個(gè)位?RET?（２1）標(biāo)號(hào):ＢＨ２功能：雙字節(jié)ＢＣＤ碼整數(shù)轉(zhuǎn)換成雙字節(jié)十六進(jìn)制整數(shù)?入口條件：待轉(zhuǎn)換的雙字節(jié)BCD碼整數(shù)在R2、R３中。?出口信息：轉(zhuǎn)換后的雙字節(jié)十六進(jìn)制整數(shù)仍在R２、R3中。

影響資源：PＳW、Ａ、B、R2、Ｒ３、R4堆棧需求：４字節(jié)

BH２：MOVA,R3；將低字節(jié)轉(zhuǎn)換成十六進(jìn)制?LCALLBＣDH

MＯVR３,A

ＭOVA，R２；將高字節(jié)轉(zhuǎn)換成十六進(jìn)制?ＬCＡLLBＣＤH?MＯVＢ，#100;擴(kuò)大一百倍?MULAB

AＤDA,Ｒ3;和低字節(jié)按十六進(jìn)制相加

MＯVR３,A?CＬRA

ＡDDCA,B?MOVＲ２,Ａ?RET?（２2)標(biāo)號(hào)：BＨＤ功能：單字節(jié)ＢCＤ碼小數(shù)轉(zhuǎn)換成單字節(jié)十六進(jìn)制小數(shù)?入口條件：待轉(zhuǎn)換的單字節(jié)BCＤ碼數(shù)在累加器A中。?出口信息：轉(zhuǎn)換后的單字節(jié)十六進(jìn)制小數(shù)仍在累加器A中.

影響資源:ＰＳW、A、R2、R3堆棧需求：2字節(jié)?BＨD:MOＶR2，＃8；準(zhǔn)備計(jì)算一個(gè)字節(jié)小數(shù)?BHD0：ADＤA,ＡCC；按十進(jìn)制倍增?ＤAA

ＸＣＨA,R３

RLCA;將進(jìn)位標(biāo)志移入結(jié)果中?ＸＣＨA,R3

ＤJNZR2，BＨD0；共計(jì)算８ｂiｔ小數(shù)

ADDA，＃0Ｂ0H；剩余部分達(dá)到０．５０否?

JNCＢＨD1；四舍?ＩNCR3；五入

BＨＤ1：MOVA,R3;取結(jié)果

ＲＥT

（２３)標(biāo)號(hào)：BＨＤ2功能：雙字節(jié)ＢCD碼小數(shù)轉(zhuǎn)換成雙字節(jié)十六進(jìn)制小數(shù)

入口條件:待轉(zhuǎn)換的雙字節(jié)ＢＣD碼小數(shù)在R４、Ｒ５中。?出口信息:轉(zhuǎn)換后的雙字節(jié)十六進(jìn)制小數(shù)在R２、R3中。*

影響資源：PSＷ、A、R２~R6堆棧需求：２字節(jié)?BＨＤ2：ＭOVR6,＃10H；準(zhǔn)備計(jì)算兩個(gè)字節(jié)小數(shù)

BHD3:MOVＡ,R5；按十進(jìn)制倍增?ADDA,R5

DＡA

ＭＯＶR5，A

MOVA，Ｒ4

ADＤCA,R4

DＡA

MOＶＲ4，Ａ?MOVA，R３;將進(jìn)位標(biāo)志移入結(jié)果中?RLＣA?ＭＯＶR3,Ａ?MOVA,Ｒ２?ＲLCA?MOVR2,A?ＤJNZＲ６，ＢHD３；共計(jì)算１６ｂit小數(shù)

MOVA，R4?ADDA,#０B0H；剩余部分達(dá)到０.５0否？?JNCBＨD4；四舍

INCＲ3;五入

ＭＯVA，Ｒ３

JNZＢＨD4

INCＲ２?BHD4:RＥT

（２４）標(biāo)號(hào):MＭ功能:求單字節(jié)十六進(jìn)制無符號(hào)數(shù)據(jù)塊的極值?入口條件：數(shù)據(jù)塊的首址在DPTＲ中，數(shù)據(jù)個(gè)數(shù)在Ｒ7中。

出口信息：最大值在R6中，地址在R2R3中;最小值在R7中，地址在R4R5中.?影響資源:PSW、A、Ｂ、R1～R7堆棧需求：4字節(jié)

MM：MOVＢ，R7；保存數(shù)據(jù)個(gè)數(shù)

MOVXA，＠DＰTＲ；讀取第一個(gè)數(shù)據(jù)

MＯVR6,A;作為最大值的初始值

MＯVR7,Ａ;也作為最小值的初始值

MOVA，DPＬ；取第一個(gè)數(shù)據(jù)的地址

MOＶＲ3，A;作為最大值存放地址的初始值

MＯVR5，Ａ；也作為最小值存放地址的初始值?MOVＡ，DＰH

MＯVR2,A?MOVR4,A

MOＶＡ，B;取數(shù)據(jù)個(gè)數(shù)

DＥCA；減一,得到需要比較的次數(shù)?ＪZMME;只有一個(gè)數(shù)據(jù),不需要比較

MＯVR1,Ａ；保存比較次數(shù)?PＵSHＤPL;保護(hù)數(shù)據(jù)塊的首址

PＵSHＤＰH?ＭM1:ＩNＣDPTR；指向一個(gè)新的數(shù)據(jù)?MOVＸA，＠DPTR；讀取這個(gè)數(shù)據(jù)?MOVB，Ａ；保存?ＳETBC；與最大值比較?ＳUBBＡ，R６?JCMM2；不超過當(dāng)前最大值,保持當(dāng)前最大值?MＯＶＲ6，Ｂ;超過當(dāng)前最大值，更新最大值存放地址?MOVR2，DPH；同時(shí)更新最大值存放地址

MＯVR3，DPL

SJMPMM3?MM2:MOVＡ,B；與最小值比較?CLＲＣ?SUBBA,R７?JNＣMM３；大于或等于當(dāng)前最小值，保持當(dāng)前最小值?ＭＯＶR7,Ｂ;更新最小值?MOＶＲ4,DPH;更新最小值存放地址

MOVR5，DPL?ＭM3:DJNZR１,ＭM1；處理完全部數(shù)據(jù)

PＯＰDPH；恢復(fù)數(shù)據(jù)首址?PＯＰDPL?MＭE:RＥT?（2５）標(biāo)號(hào):ＭＭS功能：求單字節(jié)十六進(jìn)制有符號(hào)數(shù)據(jù)塊的極值?入口條件:數(shù)據(jù)塊的首址在DPTＲ中，數(shù)據(jù)個(gè)數(shù)在R7中.?出口信息：最大值在R6中，地址在Ｒ2Ｒ3中；最小值在R7中,地址在R4R5中。

影響資源：PSW、A、Ｂ、R１～R7堆棧需求：４字節(jié)?ＭＭS:ＭOVB,R７；保存數(shù)據(jù)個(gè)數(shù)?ＭOVＸＡ，＠DPTＲ;讀取第一個(gè)數(shù)據(jù)?ＭOＶＲ６,A；作為最大值的初始值

MOVR7,A;也作為最小值的初始值

MOVA,DPL；取第一個(gè)數(shù)據(jù)的地址

MOVR3，Ａ；作為最大值存放地址的初始值

MOVR5，Ａ；也作為最小值存放地址的初始值

MＯVＡ，DPH

MOVR2，A

MOVＲ4，Ａ?MＯVA，B；取數(shù)據(jù)個(gè)數(shù)?DEＣA；減一,得到需要比較的次數(shù)

JZＭMSＥ；只有一個(gè)數(shù)據(jù),不需要比較

MOVR1,A；保存比較次數(shù)

PUSＨＤPL;保護(hù)數(shù)據(jù)塊的首址?PＵSHDPH

MMＳ1：INCDPTＲ；調(diào)整數(shù)據(jù)指針?MOVXＡ,＠ＤPTR;讀取一個(gè)數(shù)據(jù)

ＭOVB，A；保存

SETBC；與最大值比較

SUBBA，R6

JZMMS4；相同，不更新最大值?JＮＢOＶ,MMＳ２；差未溢出,符號(hào)位有效

CPLACC。７；差溢出，符號(hào)位取反?ＭMＳ2:JBACC。7，MＭS4；差為負(fù)，不更新最大值?MOVR6，B；更新最大值

ＭOVR2，ＤPH;更新最大值存放地址

MOVR3,DPL

SJMPMMＳ7?MMS４：ＭOVA，B；與最小值比較

ＣLＲC

ＳUBBA,R7?ＪNＢOV,MMS6；差未溢出,符號(hào)位有效?CPLACC.7；差溢出,符號(hào)位取反

ＭＭS6:ＪNＢAＣC.7,MＭS7；差為正，不更新最小值?MOVR7,B;更新最小值

ＭOＶR4，ＤPH；更新最小值存放地址

ＭＯVR５,DPL?MＭS７:ＤJNZR１，ＭMＳ1；處理完全部數(shù)據(jù)?POPDPH；恢復(fù)數(shù)據(jù)首址?PＯＰDPL?MMＳＥ：RET?（２6)標(biāo)號(hào)：FＤＳ１功能：順序查找（ＲＯM）單字節(jié)表格?入口條件：待查找的內(nèi)容在Ａ中，表格首址在DＰTR中，表格的字節(jié)數(shù)在R7中.?出口信息：OV＝0時(shí),順序號(hào)在累加器A中;OV=1時(shí)，未找到。?影響資源:PSW、A、B、R2、R6堆棧需求:２字節(jié)

ＦDＳ1：ＭOＶB，A；保存待查找的內(nèi)容

MOＶＲ2，#0；順序號(hào)初始化（指向表首)

MOVA,R７；保存表格的長度

MOVR6,A

ＦD11：MOVＡ，Ｒ2；按順序號(hào)讀取表格內(nèi)容

MＯVCA，@Ａ+ＤPTR?CＪNEA,B，F(xiàn)D1２；與待查找的內(nèi)容比較

CLＲOＶ;相同，查找成功

MOVA,Ｒ2;取對(duì)應(yīng)的順序號(hào)

ＲＥT?ＦD12：IＮCＲ2；指向表格中的下一個(gè)內(nèi)容

DJＮZR6，F(xiàn)Ｄ11；查完全部表格內(nèi)容?SEＴBOV;未查找到,失敗?RET

(２７）標(biāo)號(hào):FＤＳ2功能：順序查找（ＲＯM）雙字節(jié)表格

入口條件:查找內(nèi)容在R4、R５中，表格首址在DPTR中,數(shù)據(jù)總個(gè)數(shù)在R7中。?出口信息：OV=0時(shí)順序號(hào)在累加器A中,地址在DPTR中；OV=1時(shí)未找到.?影響資源:PSＷ、Ａ、R２、R6、DPTR堆棧需求：２字節(jié)??FDS2：MOVＡ,R7;保存表格中數(shù)據(jù)的個(gè)數(shù)

MOＶＲ６，Ａ?ＭOVR2,＃０;順序號(hào)初始化(指向表首）

FD21:CLRA;讀取表格內(nèi)容的高字節(jié)?MOVＣＡ,@A+DＰＴR

XRLA，Ｒ４；與待查找內(nèi)容的高字節(jié)比較?JNZFD22

MOVＡ，#1；讀取表格內(nèi)容的低字節(jié)

ＭＯＶCA,@A+ＤPＴＲ?XＲLA，R5；與待查找內(nèi)容的低字節(jié)比較?ＪＮZFD22?CLROＶ；相同，查找成功

MOVA,R２;取對(duì)應(yīng)的順序號(hào)?RET?FＤ2２：INＣDPTR；指向下一個(gè)數(shù)據(jù)

INCＤPTR?ＩNCR2；順序號(hào)加一?DJNＺR６,FD21；查完全部數(shù)據(jù)

SEＴＢＯV；未查找到，失敗

RET

(28）標(biāo)號(hào)：FDＤ１功能：對(duì)分查找（ROM)單字節(jié)無符號(hào)增序數(shù)據(jù)表格

入口條件：待查找的內(nèi)容在累加器A中，表格首址在DPTR中,字節(jié)數(shù)在R7中.?出口信息：ＯV=０時(shí)，順序號(hào)在累加器A中;OＶ＝１時(shí)，未找到。?影響資源：PSW、A、B、R2、R3、R４堆棧需求：2字節(jié)?FDD1：MＯVB,Ａ；保存待查找的內(nèi)容

MＯVＲ2,#0;區(qū)間低端指針初始化（指向第一個(gè)數(shù)據(jù)）

MＯVA,R7

DＥＣA?MOVＲ3,A;區(qū)間高端指針初始化（指向最后一個(gè)數(shù)據(jù))

FD６1：CLＲＣ；判斷區(qū)間大小

MＯVA，R3?SUBBA,Ｒ2

JCFD６9；區(qū)間消失，查找失敗

RRＣＡ；取區(qū)間大小的一半

ADDA，R２；加上區(qū)間的低端?ＭＯＶR4，Ａ；得到區(qū)間的中心

MOＶCA，＠A+DPTR；讀取該點(diǎn)的內(nèi)容

CJNEA,B,FD65；與待查找的內(nèi)容比較?CＬROV；相同，查找成功?MＯVA，R４；取順序號(hào)?ＲET?FD65：JＣFD68；該點(diǎn)的內(nèi)容比待查找的內(nèi)容大否??ＭＯVA，Ｒ４；偏大，取該點(diǎn)位置

ＤECＡ；減一

MOVR3,A;作為新的區(qū)間高端?SJＭＰFD61;繼續(xù)查找?FＤ6８：MＯＶA,R4;偏小，取該點(diǎn)位置

ＩＮＣＡ;加一

MOＶＲ2,A；作為新的區(qū)間低端

SＪMＰFD61；繼續(xù)查找?FD6９：SＥTＢＯV;查找失敗

RET

(２９）標(biāo)號(hào)：ＦDD２功能：對(duì)分查找(ＲＯM)雙字節(jié)無符號(hào)增序數(shù)據(jù)表格?入口條件:查找內(nèi)容在R4、R5中,表格首址在DPTR中，數(shù)據(jù)個(gè)數(shù)在R７中。?出口信息：ＯＶ＝0時(shí)順序號(hào)在累加器A中，址在DＰTR中；OV＝1時(shí)未找到。

影響資源：ＰSW、A、Ｂ、R1～R7、DPＴR堆棧需求：２字節(jié)??FDD2:ＭＯVR2，＃０;區(qū)間低端指針初始化（指向第一個(gè)數(shù)據(jù)）?MOVA，R7

DECＡ

MＯVＲ3，Ａ;區(qū)間高端指針初始化，指向最后一個(gè)數(shù)據(jù)

MOVR６,DPＨ;保存表格首址?MOＶR7，DＰL?FD８1：CＬRC；判斷區(qū)間大小

MOVA，R3?SUＢBA,Ｒ2?JCFD89;區(qū)間消失，查找失敗?RRＣＡ;取區(qū)間大小的一半?AＤＤＡ，R2；加上區(qū)間的低端?MOＶＲ1，A；得到區(qū)間的中心?MOＶDPＨ,R6?ＣLＲＣ;計(jì)算區(qū)間中心的地址?ＲLCA?JNCFD82

IＮＣＤPH?FD８2:ＡDＤＡ,R７?MOＶDＰＬ，A

JNＣFD83

ＩNCDPＨ?FD8３:CLRA;讀取該點(diǎn)的內(nèi)容的高字節(jié)

ＭOVＣA，@A＋ＤＰTR?MOVＢ，R4；與待查找內(nèi)容的高字節(jié)比較?CJNＥA,Ｂ，F(xiàn)D84；不相同?MOVA,＃１;讀取該點(diǎn)的內(nèi)容的低字節(jié)

MOＶCA，@A+ＤPTR?MOＶB，R5?CJNＥＡ，B，F(xiàn)Ｄ8４;與待查找內(nèi)容的低字節(jié)比較?MOVA，R1;取順序號(hào)?ＣLROV;查找成功

ＲET

ＦＤ8４:JCFＤ86；該點(diǎn)的內(nèi)容比待查找的內(nèi)容大否??MOVA，R1；偏大，取該點(diǎn)位置

DECA;減一?MOVR３,A；作為新的區(qū)間高端

SJMPFD81；繼續(xù)查找?FＤ86:MＯVA,Ｒ1;偏小，取該點(diǎn)位置

INCＡ;加一

ＭOVR2，A;作為新的區(qū)間低端

SＪMPＦD8１；繼續(xù)查找

FD８９:MOVDPH,R６；相同，恢復(fù)首址

ＭOＶＤＰＬ,R７

SETBOV；查找失敗?ＲEＴ

（3０）標(biāo)號(hào):ＤＤM１功能:求單字節(jié)十六進(jìn)制無符號(hào)數(shù)據(jù)塊的平均值

入口條件：數(shù)據(jù)塊的首址在ＤPTＲ中,數(shù)據(jù)個(gè)數(shù)在Ｒ7中。

出口信息:平均值在累加器A中。?影響資源:PSW、A、R２～R6堆棧需求：4字節(jié)

DＤM１:MOVＡ,R7;保存數(shù)據(jù)個(gè)數(shù)?MOVR2，A

PUSHＤＰH?PＵSHＤPＬ?CLRA;初始化累加和?MOVＲ4，A?MOVR5,A

DＭ1１:MＯVＸA,＠DＰTＲ;讀取一個(gè)數(shù)據(jù)

ＡＤDA，R5;累加到累加和中

MOVR５,Ａ

JNCDM1２?IＮCR4?ＤＭ12：INCＤPTＲ；調(diào)整指針

DJNZＲ2,ＤＭ1１；累加完全部數(shù)據(jù)?LCAＬLD４５7;求平均值（R4R5／R7－→R3)

MＯVA，R3;取平均值

POPＤＰL?ＰOPDPＨ

RＥＴ?(３1）標(biāo)號(hào):DＤＭ2功能：求雙字節(jié)十六進(jìn)制無符號(hào)數(shù)據(jù)塊的平均值

入口條件：數(shù)據(jù)塊的首址在DPTR中,雙字節(jié)數(shù)據(jù)總個(gè)數(shù)在R7中。

出口信息：平均值在Ｒ4、R５中。?影響資源：PSＷ、A、R2～R6堆棧需求:4字節(jié)?

DDM2：ＭOＶA，R７;保存數(shù)據(jù)個(gè)數(shù)

MＯVR2,A;初始化數(shù)據(jù)指針

ＰUSHDＰL;保持首址

PUSＨＤPＨ

CLＲA；初始化累加和

MOVR3，A

MOVR4，A?MOVR5，A?DM20：ＭOVＸA，@DＰTＲ;讀取一個(gè)數(shù)據(jù)的高字節(jié)?ＭOVB，Ａ

INCDＰTR

MOＶXＡ,＠DPTR;讀取一個(gè)數(shù)據(jù)的低字節(jié)?IＮCDＰTR

AＤDA,R５；累加到累加和中?MOVR５，A?MOVＡ，B?AＤDCA，R4

MOVR４，A

JＮCＤM２1

ＩＮＣR3

ＤM21:DＪＮZR2，DＭ20;累加完全部數(shù)據(jù)?POPDPH;恢復(fù)首址?POPDPＬ?LJMＰDV31；求R3R4R5/R7－→Ｒ4R5，得到平均值

（３２)標(biāo)號(hào):XＲ１功能:求單字節(jié)數(shù)據(jù)塊的（異或）校驗(yàn)和

入口條件:數(shù)據(jù)塊的首址在DPTR中,數(shù)據(jù)的個(gè)數(shù)在R6、R７中。

出口信息：校驗(yàn)和在累加器Ａ中.?影響資源：PＳW、A、B、R４～R7堆棧需求：２字節(jié)?ＸR1：MOＶR4，DＰH；保存數(shù)據(jù)塊的首址

MOVＲ５，DPL?ＭＯＶA，R7；雙字節(jié)計(jì)數(shù)器調(diào)整

JＺXR10?INCR６

XＲ10:MOVB,#0；校驗(yàn)和初始化

ＸR１1:ＭOVXA，@DＰTR；讀取一個(gè)數(shù)據(jù)

XRＬＢ,A；異或運(yùn)算

INCDＰTＲ;指向下一個(gè)數(shù)據(jù)?DJNZR7，XR１1;雙字節(jié)計(jì)數(shù)器減一?DJＮＺR6，XR11

MＯVDＰH,R4；恢復(fù)數(shù)據(jù)首址

MＯVDPL，R５

MOVA,Ｂ；取校驗(yàn)和

RET?（３3）標(biāo)號(hào)：XＲ２功能：求雙字節(jié)數(shù)據(jù)塊的（異或)校驗(yàn)和

入口條件：數(shù)據(jù)塊的首址在DＰTR中，雙字節(jié)數(shù)據(jù)總個(gè)數(shù)在R6、Ｒ7中。?出口信息:校驗(yàn)和在Ｒ２、R3中。?影響資源：PSW、A、R２～R7堆棧需求：２字節(jié)

ＸR2：MＯVR４，DPH;保存數(shù)據(jù)塊的首址?MOVＲ5,DPL

MOVA，R7；雙字節(jié)計(jì)數(shù)器調(diào)整

JZXR２0?INCR6?ＸR２０:CLＲA；校驗(yàn)和初始化

MＯVR2，Ａ?ＭOVR3，A?XR２1:MOVＸA，@DPTR;讀取一個(gè)數(shù)據(jù)的高字節(jié)

XＲLA,R２；異或運(yùn)算?MOVＲ２,A

ＩNCＤＰＴR

ＭOVXA，＠DPＴＲ;讀取一個(gè)數(shù)據(jù)的低字節(jié)?ＸRLＡ,Ｒ3；異或運(yùn)算?MOVR3，Ａ?ＩＮCDPTＲ；指向下一個(gè)數(shù)據(jù)?DＪＮZR７,XＲ2１；雙字節(jié)計(jì)數(shù)器減一?ＤJNＺR6，XR21

MOVDPH，R4；恢復(fù)數(shù)據(jù)首址

MOVDPＬ，Ｒ5?REＴ?(34)標(biāo)號(hào):ＳＯＲＴ功能：單字節(jié)無符號(hào)數(shù)據(jù)塊排序(增序）

入口條件:數(shù)據(jù)塊的首址在R0中,字節(jié)數(shù)在Ｒ7中。

出口信息：完成排序（增序)

影響資源：ＰSW、Ａ、Ｒ2～Ｒ6堆棧需求：２字節(jié)?SOＲT：ＭOVA,R7

MOVR5，A;比較次數(shù)初始化

SＲT1：CLRF0;交換標(biāo)志初始化

ＭOVA,Ｒ5；取上遍比較次數(shù)

DＥCA；本遍比上遍減少一次

ＭOＶR５，A;保存本遍次數(shù)?MOＶR２,A；復(fù)制到計(jì)數(shù)器中?JZSRT5;若為零，排序結(jié)束?MＯＶA，Ｒ０；保存數(shù)據(jù)指針

MOVR6，A?SRＴ2：MOＶA，@Ｒ0;讀取一個(gè)數(shù)據(jù)?MＯVR3，Ａ

ＩNＣR0；指向下一個(gè)數(shù)據(jù)

MOVA,＠R0;再讀取一個(gè)數(shù)據(jù)

MOVR4，A

ＣLRC?SUBBA，R３；比較兩個(gè)數(shù)據(jù)的大小?JNＣSRT4；順序正確(增序或相同)，不必交換

SＥTＢＦ0；設(shè)立交換標(biāo)志?ＭOVA，R３;將兩個(gè)數(shù)據(jù)交換位置?ＭOV＠R0，Ａ

DECR0?MＯVＡ，R4?ＭOV@R0,A?IＮＣR0；指向下一個(gè)數(shù)據(jù)

SRＴ4:DJＮZＲ2，SRT2;完成本遍的比較次數(shù)

MOＶＡ,R6；恢復(fù)數(shù)據(jù)首址?ＭOVR0,A

JＢＦ0，SRT1;本遍若進(jìn)行過交換,則需繼續(xù)排序?ＳRT5：RET；排序結(jié)束

END(二）5１浮點(diǎn)運(yùn)算子程序庫及其使用說明

?本浮點(diǎn)子程序庫有三個(gè)不同層次的版本,以便適應(yīng)不同的應(yīng)用場(chǎng)合：

1。小型庫（FQ51Ａ．ASM）：只包含浮點(diǎn)加、減、乘、除子程序。

２．中型庫（FＱ51B。AＳM）：在小型庫的基礎(chǔ)上再增加絕對(duì)值、倒數(shù)、比較、平方、開平方、

?數(shù)制轉(zhuǎn)換等子程序。

３.大型庫(FQ５1。AＳＭ）：包含本說明書中的全部子程序。

為便于讀者使用本程序庫，先將有關(guān)約定說明如下：

１．雙字節(jié)定點(diǎn)操作數(shù)：用[R0]或［R1]來表示存放在由R０或R1指示的連續(xù)單元中的數(shù)

?據(jù),地址小的單元存放高字節(jié)。如果［R０]＝1234H，若（Ｒ０)=30H，則(３0H）＝１2H,（３1H）=34H.

?２．二進(jìn)制浮點(diǎn)操作數(shù):用三個(gè)字節(jié)表示，第一個(gè)字節(jié)的最高位為數(shù)符,其余七位為

?階碼(補(bǔ)碼形式)，第二字節(jié)為尾數(shù)的高字節(jié)，第三字節(jié)為尾數(shù)的低字節(jié)，尾數(shù)用雙字節(jié)

?純小數(shù)(原碼)來表示。當(dāng)尾數(shù)的最高位為１時(shí),便稱為規(guī)格化浮點(diǎn)數(shù)，簡稱操作數(shù)。在

?程序說明中，也用［R0]或［R1]來表示R0或R1指示的浮點(diǎn)操作數(shù),例如：當(dāng)[R0]＝－6.000時(shí)，

則二進(jìn)制浮點(diǎn)數(shù)表示為8３Ｃ000H.若（R0)=30H,則(３０Ｈ)＝８３Ｈ，（31H）=0C0H,（３２H)＝０0H。

?3．十進(jìn)制浮點(diǎn)操作數(shù):用三個(gè)字節(jié)表示，第一個(gè)字節(jié)的最高位為數(shù)符,其余七位為

階碼（二進(jìn)制補(bǔ)碼形式)，第二字節(jié)為尾數(shù)的高字節(jié),第三字節(jié)為尾數(shù)的低字節(jié),尾數(shù)用

雙字節(jié)ＢCＤ碼純小數(shù)（原碼）來表示。當(dāng)十進(jìn)制數(shù)的絕對(duì)值大于１時(shí)，階碼就等于整數(shù)

部分的位數(shù),如８７6.5的階碼是03Ｈ，—87６.５的階碼是8３H;當(dāng)十進(jìn)制數(shù)的絕對(duì)值小于1

?時(shí),階碼就等于8０H減去小數(shù)點(diǎn)后面零的個(gè)數(shù),例如0.0０３82的階碼是７EH，－0。0038２

?的階碼是0FEH。在程序說明中，用［R0]或［R1]來表示R0或R１指示的十進(jìn)制浮點(diǎn)操作數(shù)。例

?如有一個(gè)十進(jìn)制浮點(diǎn)操作數(shù)存放在３0H、31H、32H中,數(shù)值是-0。073１5，即—0.7315乘以１０

的-１次方，則(３０H)=0ＦＦH，31Ｈ=73H，(3２Ｈ）=1５H。若用[R０］來指向它，則應(yīng)使(Ｒ0）=30Ｈ。

４．運(yùn)算精度：單次定點(diǎn)運(yùn)算精度為結(jié)果最低位的當(dāng)量值；單次二進(jìn)制浮點(diǎn)算術(shù)運(yùn)算

的精度優(yōu)于十萬分之三；單次二進(jìn)制浮點(diǎn)超越函數(shù)運(yùn)算的精度優(yōu)于萬分之一；ＢＣＤ碼浮

點(diǎn)數(shù)本身的精度比較低（萬分之一到千分之一），不宜作為運(yùn)算的操作數(shù)，僅用于輸入或

輸出時(shí)的數(shù)制轉(zhuǎn)換。不管那種數(shù)據(jù)格式，隨著連續(xù)運(yùn)算的次數(shù)增加，精度都會(huì)下降。

?５．工作區(qū)：數(shù)據(jù)工作區(qū)固定在A、B、Ｒ2～R7,數(shù)符或標(biāo)志工作區(qū)固定在PＳW和23Ｈ單

?元（位1CH～１FＨ)。在浮點(diǎn)系統(tǒng)中，R2、R3、R４和位1ＦH為第一工作區(qū)，R5、Ｒ6、R7和位1EH

為第二工作區(qū)。用戶只要不在工作區(qū)中存放無關(guān)的或非消耗性的信息，程序就具有較好的

透明性。

6。子程序調(diào)用范例:由于本程序庫特別注意了各子程序接口的相容性，很容易采用

?積木方式（或流水線方式）完成一個(gè)公式的計(jì)算.以浮點(diǎn)運(yùn)算為例：

?計(jì)算y=Lｎ√|Ｓiｎ（ａｂ/ｃ+ｄ)｜

?已知:a＝－１23．4；b=0。7５７7；c=56.3４；d=1.2７6；它們分別存放在30H、３３H、36Ｈ、

?３9H開始的連續(xù)三個(gè)單元中。用ＢＣD碼浮點(diǎn)數(shù)表示時(shí)，分別為a=83１234H；ｂ=０0７577H;

?ｃ=０25６34H；ｄ=011２76H。

?求解過程:通過調(diào)用ＢＴO(shè)Ｆ子程序，將各變量轉(zhuǎn)換成二進(jìn)制浮點(diǎn)操作數(shù),再進(jìn)行各

種運(yùn)算，最后調(diào)用ＦTＯＢ子程序，還原成十進(jìn)制形式，供輸出使用。程序如下：

TＥＳＴ：MOVR0,＃3９H；指向ＢＣD碼浮點(diǎn)操作數(shù)d

?LCALＬＢＴO(shè)F;將其轉(zhuǎn)換成二進(jìn)制浮點(diǎn)操作數(shù)

?MOVＲ0，＃３6H；指向ＢＣD碼浮點(diǎn)操作數(shù)ｃ

?ＬＣALLBTOＦ;將其轉(zhuǎn)換成二進(jìn)制浮點(diǎn)操作數(shù)

ＭＯVR0,＃３3H；指向ＢCＤ碼浮點(diǎn)操作數(shù)b

?ＬCＡLLBTOＦ；將其轉(zhuǎn)換成二進(jìn)制浮點(diǎn)操作數(shù)

MOＶR0,＃30H；指向BCD碼浮點(diǎn)操作數(shù)ａ

ＬＣＡLLＢＴO(shè)F；將其轉(zhuǎn)換成二進(jìn)制浮點(diǎn)操作數(shù)

?MOＶR1,#３３Ｈ;指向二進(jìn)制浮點(diǎn)操作數(shù)ｂ

?ＬCＡLLFMUL；進(jìn)行浮點(diǎn)乘法運(yùn)算

?MOVR1,#36H；指向二進(jìn)制浮點(diǎn)操作數(shù)ｃ

LCAＬLＦDＩV;進(jìn)行浮點(diǎn)除法運(yùn)算

?MＯVR1，#39H；指向二進(jìn)制浮點(diǎn)操作數(shù)ｄ

LCALLＦAＤD；進(jìn)行浮點(diǎn)加法運(yùn)算

?ＬCAＬLＦＳＩN；進(jìn)行浮點(diǎn)正弦運(yùn)算

?LCALLＦABS；進(jìn)行浮點(diǎn)絕對(duì)值運(yùn)算

?LCALLFSQR;進(jìn)行浮點(diǎn)開平方運(yùn)算

LCALＬFＬN(yùn)；進(jìn)行浮點(diǎn)對(duì)數(shù)運(yùn)算

?LCALLFTOB；將結(jié)果轉(zhuǎn)換成BCD碼浮點(diǎn)數(shù)

?STＯＰ:LJMPSＴO(shè)P

?END

運(yùn)行結(jié)果，[R0]=80491５Ｈ，即ｙ=—0。4915，比較精確的結(jié)果應(yīng)該是－０。４９１4３7。

?(１）標(biāo)號(hào):ＦＳDＴ功能:浮點(diǎn)數(shù)格式化

?入口條件:待格式化浮點(diǎn)操作數(shù)在［R0]中。

出口信息：已格式化浮點(diǎn)操作數(shù)仍在[R0]中。

?影響資源：PＳW、A、Ｒ2、R３、Ｒ4、位1FH堆棧需求:６字節(jié)

FSＤT：LＣAＬLＭVR0;將待格式化操作數(shù)傳送到第一工作區(qū)中

LＣALLRＬN(yùn);通過左規(guī)完成格式化

?LJMPＭＯV０；將已格式化浮點(diǎn)操作數(shù)傳回到［Ｒ0］中

（２）標(biāo)號(hào):FＡDＤ功能：浮點(diǎn)數(shù)加法

入口條件：被加數(shù)在［R0］中，加數(shù)在［R1]中.

出口信息:OV＝0時(shí),和仍在［Ｒ0］中，ＯV＝１時(shí)，溢出.

?影響資源:ＰSW、Ａ、Ｂ、R2～R7、位1ＥH、1FＨ堆棧需求：６字節(jié)

?FAＤD:ＣLRF０；設(shè)立加法標(biāo)志

SJMPAS；計(jì)算代數(shù)和

?(３）標(biāo)號(hào):FＳUＢ功能：浮點(diǎn)數(shù)減法

入口條件：被減數(shù)在［R0]中，減數(shù)在［R1］中。

出口信息：OＶ=0時(shí)，差仍在［R０］中，OV＝1時(shí)，溢出。

?影響資源：PSW、Ａ、B、Ｒ2～R７、位1EH、1FH堆棧需求:６字節(jié)

?ＦSＵB：SＥTBF0；設(shè)立減法標(biāo)志

ＡS：LＣＡＬLMVR1；計(jì)算代數(shù)和。先將[R1］傳送到第二工作區(qū)

ＭＯVＣ,F0；用加減標(biāo)志來校正第二操作數(shù)的有效符號(hào)

?RRＣA

?ＸRLA,＠R1

?MOVＣ,ACC．7

?ASN：MＯV1ＥH，C；將第二操作數(shù)的有效符號(hào)存入位１EH中

XRＬＡ,＠Ｒ0；與第一操作數(shù)的符號(hào)比較

RLCA

?ＭOＶF0，Ｃ;保存比較結(jié)果

?ＬCALLMVR0；將［R０]傳送到第一工作區(qū)中

ＬＣALLAS１；在工作寄存器中完成代數(shù)運(yùn)算

ＭOV0:ＩＮCＲ0;將結(jié)果傳回到[Ｒ０］中的子程序入口

INCR0

?MOVA,R４；傳回尾數(shù)的低字節(jié)

?ＭOV＠Ｒ0,Ａ

DEＣR０

?ＭOＶＡ,Ｒ3；傳回尾數(shù)的高字節(jié)

MOV@R０,A

DECR０

?ＭOVA，R2;取結(jié)果的階碼

?ＭＯＶC，１FH；取結(jié)果的數(shù)符

?MOVAＣC.7，C；拼入階碼中

ＭOV＠R0，A

?ＣLRACC．７；不考慮數(shù)符

CLROV；清除溢出標(biāo)志

?CJＮEA,#3FH，MV0１；階碼是否上溢?

SＥＴBOV；設(shè)立溢出標(biāo)志

MＶ01:ＭOVA，＠R0；取出帶數(shù)符的階碼

RET

MVＲ０:MOVＡ，＠Ｒ０；將[R0］傳送到第一工作區(qū)中的子程序

MOＶC，ACC。７;將數(shù)符保存在位1FH中

?MOV1ＦＨ，Ｃ

MOVC,ACＣ.６;將階碼擴(kuò)充為8biｔ補(bǔ)碼

MOＶACＣ.7，C

?MOVR2,A;存放在R2中

INCR0

?MOVA，@Ｒ0；將尾數(shù)高字節(jié)存放在R3中

?MOＶR3，Ａ

IＮCR0

?MOＶA,＠Ｒ0;將尾數(shù)低字節(jié)存放在R4中

ＭOVR4,Ａ

DECR0；恢復(fù)數(shù)據(jù)指針

ＤEＣR0

RＥT

?MＶR１：MOＶA,＠R1；將［R1］傳送到第二工作區(qū)中的子程序

?MOVC,ＡＣC．７;將數(shù)符保存在位1EＨ中

?MOV1EH，C

ＭOVＣ，ACＣ．6；將階碼擴(kuò)充為８biｔ補(bǔ)碼

ＭOVＡCＣ。7,C

MOVR5，A;存放在Ｒ5中

INCR1

?MOＶA，＠R1;將尾數(shù)高字節(jié)存放在R6中

MOVR6，A

?INCR1

MＯVA，@R1；將尾數(shù)低字節(jié)存放在R7中

MＯVＲ7，A

ＤECR１；恢復(fù)數(shù)據(jù)指針

?DECR1

?RET

AＳ1：MOVA,R6;讀取第二操作數(shù)尾數(shù)高字節(jié)

?ＯＲLＡ，Ｒ７

JＺAS2;第二操作數(shù)為零,不必運(yùn)算

MOＶA，Ｒ3；讀取第一操作數(shù)尾數(shù)高字節(jié)

ＯRLA,R4

?JNZEQ1

?ＭOVA，R6;第一操作數(shù)為零，結(jié)果以第二操作數(shù)為準(zhǔn)

?MＯＶR3,A

MOVＡ，R7

MOVＲ4,Ａ

?MＯVＡ，Ｒ5

?MＯVR2，A

MOVC，1ＥH

MOV１ＦH，C

AS2:RＥT

?EQ１:ＭOVA,R2;對(duì)階,比較兩個(gè)操作數(shù)的階碼

?ＸRLA,R５

?JZAS４;階碼相同，對(duì)階結(jié)束

?JBＡCC.7，EQ3；階符互異

?MOVA，R2；階符相同，比較大小

?CLRC

?SＵBBA，Ｒ5

JCEQ4

EQ２：ＣLＲＣ；第二操作數(shù)右規(guī)一次

?ＭOＶA,R６；尾數(shù)縮小一半

RRCA

MOVＲ6,Ａ

?MOVＡ，R7

RRＣA

?ＭOVR7，A

INＣR5;階碼加一

ORLA，R6；尾數(shù)為零否？

?JNZEQ１;尾數(shù)不為零,繼續(xù)對(duì)階

MOVA，R2;尾數(shù)為零,提前結(jié)束對(duì)階

MＯVR5，A

ＳＪMPＡS4

EQ3:MＯVA，Ｒ2；判斷第一操作數(shù)階符

JNＢACC。7,EQ2；如為正，右規(guī)第二操作數(shù)

EQ4:CLRC

ＬCALLRR1；第一操作數(shù)右規(guī)一次

?ORLA,R3;尾數(shù)為零否？

?JNZEQ1;不為零，繼續(xù)對(duì)階

?ＭOＶＡ，R５；尾數(shù)為零，提前結(jié)束對(duì)階

?ＭＯVR2,A

?AS４：JＢF0,ＡS5；尾數(shù)加減判斷

?ＭOVA,R4;尾數(shù)相加

?AＤDA，Ｒ7

ＭOVＲ4,A

?ＭOＶＡ，R3

?ADDCA,Ｒ６

?MOＶＲ３,Ａ

JNCAS2

LJMPRR1;有進(jìn)位，右規(guī)一次

AS５:ＣLＲC；比較絕對(duì)值大小

?MOVＡ，R4

?SUBBA，R７

?MＯVB，A

?MＯVＡ，R３

ＳUＢＢA,R６

JＣAＳ6

?MOVＲ4,B；第一尾數(shù)減第二尾數(shù)

?ＭOＶR3，A

LＪMPRLN;結(jié)果規(guī)格化

ＡS6：ＣPL1FH；結(jié)果的符號(hào)與第一操作數(shù)相反

?CLRC；結(jié)果的絕對(duì)值為第二尾數(shù)減第一尾數(shù)

MOVA，R7

?SUBBＡ，Ｒ4

?ＭOＶR4,Ａ

MOVA，Ｒ6

?SUBBＡ,R３

?ＭOVR3，A

RLN：ＭOVA，R3；浮點(diǎn)數(shù)規(guī)格化

ORLA，R4；尾數(shù)為零否？

?JNZRLN１

?MOVＲ2,#０Ｃ1H；階碼取最小值

RET

?ＲLN１:MOVA,R3

?JＢACC。7，RLＮ2；尾數(shù)最高位為一否？

CLRＣ;不為一,左規(guī)一次

?LCＡLＬRL1

?ＳＪＭPRLN；繼續(xù)判斷

?RLN２:ＣLROV;規(guī)格化結(jié)束

?RＥT

ＲL1：ＭOVＡ,R4；第一操作數(shù)左規(guī)一次

ＲLＣA；尾數(shù)擴(kuò)大一倍

MOVR4，Ａ

?MＯVA，R３

?RLCA

?MOVR3,A

?ＤEＣR2；階碼減一

ＣJNEＲ2,#０Ｃ０H，RL1E；階碼下溢否?

CＬRＡ

?MＯVR3，A；階碼下溢,操作數(shù)以零計(jì)

?MOＶR4,A

MOVＲ２，#0C1H

?ＲＬ1Ｅ:CLRＯV

?REＴ

RR1:MＯＶA，R３；第一操作數(shù)右規(guī)一次

?RRCA；尾數(shù)縮小一半

?MOＶR3,A

ＭＯVＡ,Ｒ4

?RRCA

MOＶR4,A

IＮCR２;階碼加一

?ＣLRＯV；清溢出標(biāo)志

ＣJNEＲ２,#40H，RR1Ｅ;階碼上溢否?

MOＶR２，＃３FH；階碼溢出

?SETBOV

?RR１E:ＲET

(４）標(biāo)號(hào):FMＵL功能：浮點(diǎn)數(shù)乘法

?入口條件：被乘數(shù)在[R0]中，乘數(shù)在[R1］中.

出口信息：OＶ=0時(shí)，積仍在[R0]中，OV=1時(shí)，溢出。

影響資源:PSW、A、Ｂ、Ｒ2～R７、位１EH、1FH堆棧需求：6字節(jié)

?FMＵＬ：LCALＬMVR0;將［Ｒ0]傳送到第一工作區(qū)中

?MOＶA,＠Ｒ0

XＲLA，＠Ｒ１；比較兩個(gè)操作數(shù)的符號(hào)

?RLCA

?MOＶ１ＦＨ，C；保存積的符號(hào)

LCALLＭUL０;計(jì)算積的絕對(duì)值

?LJＭＰＭOV0；將結(jié)果傳回到[R0］中

MUL0：LCＡLLＭVR１；將[R１］傳送到第二工作區(qū)中

MUL1:MOVA，R３；第一尾數(shù)為零否？

?ORLA，R4

JＺMUL6

?MＯVA，Ｒ6;第二尾數(shù)為零否？

?ORLＡ,R7

JZMUＬ５

MOＶＡ,R7；計(jì)算Ｒ３Ｒ4×R6Ｒ７－→R3R4

MOVＢ,R4

?MＵLAＢ

ＭOＶA，B

XCＨＡ，Ｒ７

?ＭOVＢ,Ｒ3

?ＭULAB

ADDＡ，R７

ＭＯVR7，A

ＣＬRA

ＡＤＤCＡ,B

XCHA，R4

ＭOVB,R６

MULAB

?ＡDDA,R7

?ＭOＶR7,A

?MＯVA，B

?ADＤCＡ，R4

MOVR4，A

CＬＲＡ

RLCA

?XCHA，Ｒ3

?ＭOVB，R6

?ＭＵLAB

AＤDA，Ｒ4

?MOVR4,A

MＯVＡ,Ｂ

?ADＤCA,R3

?ＭOVＲ３,A

JBACＣ．７,ＭUL2；積為規(guī)格化數(shù)否？

MＯVA，R7;左規(guī)一次

RLCA

?MOVR7,Ａ

?LCＡLLRL1

MUL2：ＭOVＡ，R7

?JNBAＣＣ.7,MUL3

INＣＲ4

ＭOＶＡ,R4

JNＺＭUL３

IＮＣR3

?ＭOVＡ，R3

JNZMUL3

?MＯＶR3，#80Ｈ

INＣR２

MUL3:MOVA，R2；求積的階碼

ADＤA，R５

?ＭD：ＭOVR2，Ａ;階碼溢出判斷

JBＡＣC。7，MUL4

ＪNBACＣ。6,ＭUＬ6

MOＶＲ2,＃3FＨ；階碼上溢，設(shè)立標(biāo)志

ＳＥTBOＶ

?RET

ＭUL4:JBAＣC．６，MUL6

?MUL5：CLRA;結(jié)果清零(因子為零或階碼下溢）

?MOＶR3，A

?ＭOVR4,A

?MOＶR2,＃41H

MUL6：CLRＯＶ

?RET

（5)標(biāo)號(hào):ＦDIV功能：浮點(diǎn)數(shù)除法

?入口條件：被除數(shù)在[R０］中，除數(shù)在［Ｒ1]中。

出口信息:OＶ=０時(shí)，商仍在[Ｒ0]中,OV=1時(shí)，溢出。

影響資源：ＰSW、A、B、R2～R７、位1EH、1FＨ堆棧需求:５字節(jié)

?FDIV：ＩNCR0

MＯＶＡ，@R0

ＩNCＲ０

ORＬA，＠R０

?DECR0

?DECR0

JNZDIＶ1

MOV@Ｒ０,＃41H；被除數(shù)為零，不必運(yùn)算

?CLRＯV

?RET

DIＶ1：INCＲ１

?MOVA，＠R１

ＩNCR1

ORLA,@Ｒ1

?ＤECR1

?ＤECR1

JNZＤIV２

?SETＢOV；除數(shù)為零,溢出

?ＲET

DIV2:LCＡＬＬMVＲ0；將［R0］傳送到第一工作區(qū)中

?MOVA，＠R0

?ＸRＬA,@R1;比較兩個(gè)操作數(shù)的符號(hào)

?RＬCA

?ＭＯＶ1FH，C；保存結(jié)果的符號(hào)

LCＡLLMVR1;將［R1]傳送到第二工作區(qū)中

LＣALＬDIV3；調(diào)用工作區(qū)浮點(diǎn)除法

?LJMＰMOV0;回傳結(jié)果

DIＶ３：ＣLＲＣ；比較尾數(shù)的大小

?ＭＯVA，R４

SUBBA，R７

?MOVA,R3

?ＳUBＢA，R6

?ＪCDIV4

?ＬＣALLＲR1；被除數(shù)右規(guī)一次

?ＳJＭPＤIV3

DIV４：CLRA；借用Ｒ0Ｒ1Ｒ2作工作寄存器

?ＸCHA,R0;清零并保護(hù)之

ＰＵSＨACC

?CLRA

XＣHA,R1

PＵＳHACＣ

?MＯＶA，Ｒ２

?PＵSHACC

?ＭOVB，＃１０H；除法運(yùn)算,R3R4／Ｒ６R7—→Ｒ0R1

?DIV5：ＣＬRC

ＭOVA,R1

?RＬCA

MOVR1，A

MOＶA，R０

RLCA

MOVR0，A

ＭOVA，R4

?RLCＡ

?MＯＶR４，A

XCHA,R3

?RLCA

XCHＡ，R3

MＯVF０，Ｃ

?CLRC

SUＢBＡ,R７

?MＯVＲ2,Ａ

?MOVＡ，R3

SUBBA,R6

AＮLC，/Ｆ0

JCDIV6

ＭOＶＲ3,A

?ＭOVA,Ｒ2

MＯVＲ４，A

INCR1

ＤＩV６:ＤJＮZB，DIV5

?MOＶA,R６；四舍五入

CLRC

ＲRCＡ

?ＳUBBA,R3

?CＬRＡ

ＡＤＤＣＡ,R1；將結(jié)果存回Ｒ3R4

?MOＶＲ4,Ａ

?CLＲA

?ＡDＤCA,Ｒ０

MＯVＲ3,A

?POPACC；恢復(fù)R０Ｒ1R２

MOＶＲ2，A

?PＯＰAＣC

MＯVR1，Ａ

?PＯPＡＣＣ

ＭＯVR0，Ａ

?MOVA，R2;計(jì)算商的階碼

?CＬRＣ

?SUBBA,Ｒ5

LCALＬMD;階碼檢驗(yàn)

?ＬJMPRＬN(yùn)；規(guī)格化

?（６）標(biāo)號(hào)：ＦCＬR功能:浮點(diǎn)數(shù)清零

入口條件：操作數(shù)在［R0]中。

?出口信息：操作數(shù)被清零。

?影響資源:A堆棧需求:２字節(jié)

FCLＲ：IＮCＲ0

?ＩＮＣＲ0

CLRA

MOV＠R0,Ａ

DEＣR0

MOV@Ｒ０,A

DECR0

?MOV@R0，＃41Ｈ

?RET

（７)標(biāo)號(hào)：FＺＥＲ功能：浮點(diǎn)數(shù)判零

?

入口條件：操作數(shù)在［Ｒ0]中。

?出口信息：若累加器A為零，則操作數(shù)［R0］為零，否則不為零。

?影響資源：Ａ堆棧需求:2字節(jié)

?FZEＲ：ＩＮＣR0

INCR0

?ＭOＶA,@Ｒ０

DECR０

ＯRＬA，＠Ｒ0

?DECR0

JNZZEＲO

?MOV＠R０,#41Ｈ

?ZERO:RET

?(８）標(biāo)號(hào)：ＦＭOV功能：浮點(diǎn)數(shù)傳送

入口條件：源操作數(shù)在[R1］中，目標(biāo)地址為[R０]。

?出口信息:［Ｒ0]=［R1］，［R1]不變。

影響資源:A堆棧需求：2字節(jié)

?FMOV:ＩＮCＲ0

?INCR０

ＩNCＲ１

ＩNCＲ１

?MOVA，@Ｒ1

?MOＶ@R０，Ａ

DＥCＲ0

?ＤＥCＲ1

?MOＶA，@R1

ＭOV＠R0,A

?DＥＣR０

DECＲ1

MOVＡ,＠R1

MOV＠Ｒ０，A

RＥT

(９)標(biāo)號(hào)：FPＵS功能：浮點(diǎn)數(shù)壓棧

入口條件:操作數(shù)在［R０]中。

出口信息：操作數(shù)壓入棧頂。

影響資源:A、Ｒ2、R3堆棧需求：5字節(jié)

?FPUＳ：POPACC；將返回地址保存在R２R3中

MOVR2，A

?POPAＣC

?ＭOVＲ３，A

MOVA，＠Ｒ0；將操作數(shù)壓入堆棧

ＰＵＳHACC

INＣR０

MOVA,@R0

?PUSHACＣ

INＣR０

?ＭOVA，＠R０

PUSHACＣ

DECＲ０

DＥＣR0

MOVＡ，Ｒ３；將返回地址壓入堆棧

PUSHACC

MＯVA,R2

?PＵSＨＡCC

?REＴ；返回主程序

?(1０)標(biāo)號(hào):ＦＰＯP功能：浮點(diǎn)數(shù)出棧

入口條件：操作數(shù)處于棧頂。

?出口信息：操作數(shù)彈至［R0］中。

影響資源：Ａ、Ｒ2、R3堆棧需求：2字節(jié)

?FPOP：PＯPＡCＣ；將返回地址保存在R2R3中

?ＭOＶR２,A

POPAＣＣ

?MOVR3,Ａ

INCR0

?INＣＲ0

?POPACC;將操作數(shù)彈出堆棧，傳送到［Ｒ０］中

?ＭOＶ＠Ｒ0，A

DEＣＲ0

POPACC

ＭOV＠R0，A

DEＣR0

POPAＣC

?ＭＯV＠R0，A

ＭOVA，R3;將返回地址壓入堆棧

PUSHACC

?MOVA，R２

?PUSＨACC

ＲＥＴ；返回主程序

（11）標(biāo)號(hào)：ＦCMP功能:浮點(diǎn)數(shù)代數(shù)值比較（不影響待比較操作數(shù)）

?入口條件:待比較操作數(shù)分別在[Ｒ0]和［R1]中。

?出口信息：若ＣＹ=1，則［R０]〈［R１］，若CＹ=0且Ａ=0則[R０]=［Ｒ1］,否則［R0］＞［R1］.

影響資源：A、Ｂ、ＰSW堆棧需求:２字節(jié)

?FCMP:MOVA，@R０；數(shù)符比較

?XRLＡ，＠R1

?JＮＢＡCＣ。7,CＭP2

?MＯＶA，@Ｒ0；兩數(shù)異號(hào)，以［R0］數(shù)符為準(zhǔn)

ＲＬＣA

?MOＶＡ,＃0FＦH

ＲET

?ＣMP２:MOVA,@Ｒ1;兩數(shù)同號(hào)，準(zhǔn)備比較階碼

?MOVC，ＡCC。6

?MOVACC。7，Ｃ

ＭＯVB,A

MＯＶA,@R0

?MOVC,ACC．7

MOVF0,C；保存[Ｒ0］的數(shù)符

MOＶＣ,AＣC。6

?MＯVACC。7，C

CLRC;比較階碼

?ＳUBＢＡ，Ｂ

ＪZCＭP６

?RLCＡ;取階碼之差的符號(hào)

?JNBF0，CMP5

?ＣＰＬC；[Ｒ0］為負(fù)時(shí)，結(jié)果取反

CMP5：MOVA，＃０FFH;兩數(shù)不相等

?RＥT

CＭP６：ＩＮCＲ0；階碼相同時(shí)，準(zhǔn)備比較尾數(shù)

?IＮCR0

INCR１

INCR１

?ＣＬRC

MＯVA,＠Ｒ0

?SUBBA，@R1

ＭＯVB，A;保存部分差

?ＤECR0

?DＥＣR1

MOＶA，＠Ｒ0

ＳＵＢBA，＠Ｒ1

?ＤＥCＲ０

?DECR1

ORLA,B；生成是否相等信息

JZCMＰ7

?JＮＢF0,CＭＰ７

CPＬＣ；［R０]為負(fù)時(shí),結(jié)果取反

ＣMP7:ＲEＴ

?（１2）標(biāo)號(hào):FABＳ功能：浮點(diǎn)絕對(duì)值函數(shù)

?入口條件:操作數(shù)在［R０］中。

?出口信息：結(jié)果仍在［Ｒ０]中。

?影響資源：A堆棧需求:２字節(jié)

ＦABS：ＭOVA，＠R0；讀取操作數(shù)的階碼

CLＲACC．7;清除數(shù)符

MOV＠R0,A；回傳階碼

?RＥT

（１３)標(biāo)號(hào)：FSGＮ功能：浮點(diǎn)符號(hào)函數(shù)

?入口條件:操作數(shù)在［Ｒ0]中。

?出口信息：累加器A=1時(shí)為正數(shù),A=0FFH時(shí)為負(fù)數(shù)，A=0時(shí)為零.

影響資源:ＰSW、Ａ堆棧需求：2字節(jié)

FSGＮ：INCR0；讀尾數(shù)

MOＶＡ，＠Ｒ０

INCR0

ＯＲＬA，＠R０

?DECR０

DECR０

?ＪNZSGＮ

REＴ；尾數(shù)為零,結(jié)束

ＳＧN：MOVＡ,@R0;讀取操作數(shù)的階碼

?RLCA；取數(shù)符

?MOＶA，#１;按正數(shù)初始化

JNCSGＮ1；是正數(shù),結(jié)束

MOVA,#0ＦFH;是負(fù)數(shù)，改變標(biāo)志

SGN1:RＥT

?（1４)標(biāo)號(hào)：FＩNT功能：浮點(diǎn)取整函數(shù)

入口條件：操作數(shù)在[R０]中。

?出口信息：結(jié)果仍在［R0］中.

影響資源：ＰSＷ、Ａ、R2、R3、R4、位1ＦH堆棧需求：6字節(jié)

?FIＮT:LCALＬMVR0;將［R０]傳送到第一工作區(qū)中

?LＣALＬINT;在工作寄存器中完成取整運(yùn)算

LJＭＰＭOＶ0;將結(jié)果傳回到［R０］中

IＮＴ：MＯVＡ，R3

ＯRLＡ，R4

?JNＺIＮTA

?CLR1FH;尾數(shù)為零，階碼也清零，結(jié)束取整

MOVR2,＃41H

RET

INTA:ＭOVA，R２

JＺIＮTB;階碼為零否?

JBAＣＣ。7,IＮＴＢ;階符為負(fù)否？

?CLRC

?SUBBA,＃10H;階碼小于１6否？

ＪＣINTＤ

?REＴ;階碼大于１６，已經(jīng)是整數(shù)

IＮＴB:CLRA；絕對(duì)值小于一，取整后正數(shù)為零，負(fù)數(shù)為負(fù)一

MOVR４,A

?MOVC,1ＦH

RＲＣA

MOVR3,A

RLA

?MOＶR２，Ａ

JNZINTC

?MOVR2,＃41H

?INTＣ：REＴ

?ＩNＴD：ＣLＲF0；舍尾標(biāo)志初始化

IＮTE：CLRC

ＬCALLRＲ１;右規(guī)一次

?ＯＲＬC，F(xiàn)0;記憶舍尾情況

MOVF0，C

CＪＮER2,#10H,ＩNＴE；階碼達(dá)到１6(尾數(shù)完全為整數(shù))否？

JNBF0,IＮTF；舍去部分為零否?

ＪNB１FH，INＴＦ；操作數(shù)為正數(shù)否?

ＩNCR4;對(duì)于帶小數(shù)的負(fù)數(shù),向下取整

?MOVＡ，R4

JNZINTF

?IＮCR3

IＮTF：LJMＰＲLN;將結(jié)果規(guī)格化

（1５）標(biāo)號(hào):FRＣP功能：浮點(diǎn)倒數(shù)函數(shù)

入口條件：操作數(shù)在［Ｒ0]中。

出口信息:OＶ=０時(shí),結(jié)果仍在[R0]中，OV=1時(shí)，溢出。

?影響資源:PＳＷ、A、B、R2～R7、位1ＥH、1ＦH堆棧