51定點運算子程序庫及其使用說明

26/26５1定點運算子程序庫及其使用說明

定點運算子程序庫文件名為DQ51.ASM，為便于使用,先將有關約定說明如下：

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

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

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

出口信息:和在[R０]中，最高位進位在CY中。

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

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

MOVR２,A

ＡＤDA，R０；初始化數據指針

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

BCD1：DＥＣR0；調整數據指針

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

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

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

BCDB:LCALLNEG1;減數[R1］十進制取補

LCAＬＬBCＤＡ;按多字節(jié)BＣＤ碼加法處理?CPLC；將補碼加法的進位標志轉換成借位標志?MOVＦ0,C；保護借位標志?LCAＬLNEG1；恢復減數[R１］的原始值

MOVC，Ｆ0；恢復借位標志?RＥT

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

ＸCHＡ,R0

ＬCALLNＥG;通過［Ｒ０]實現[R1]取補?MOVA，R0?ＸCＨA,R１；換回指針

XCＨA,R0

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

出口信息：結果仍在［R０］中。

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

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

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

MＯＶ＠R0，A;存回［Ｒ０］中?INCR0;調整數據指針

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

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

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

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

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

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

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

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

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

ＲＥT

(5）標號：MULD功能:雙字節(jié)二進制無符號數乘法

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

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

MOＶR4，B；暫存部分積

MOVＲ５,Ａ?MOVA，R3;計算R3乘R６

MＯVB,R６

MＵＬAB

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

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

MOVA,R２;計算R2乘R7?MOVB,R7

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

MOＶR4,A

ＭOＶA，Ｒ３

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

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

MULAB

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

MOVＡ,R２

ADDCA,B

ＭOVR２，Ａ

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

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

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

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

ＭOVR４,Ｂ;暫存部分積

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

MOVＢ，Ａ

MULAB

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

XＣHA，R2?ＭULAＢ；計算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?（７）標號：DIVD功能：雙字節(jié)二進制無符號數除法

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

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

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

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

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

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

RＥＴ

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

Ｍ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；計算(R2R3—R６R7）

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

ＡNＬC,/F０；結果判斷

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

MOVA,R１

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

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

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

CLＲOV;設立成功標志

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

出口信息:OＶ=0時，單字節(jié)商在R３中,ＯV＝1時溢出。?影響資源：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Ｔ?（９)標號：DＶ3１功能:三字節(jié)二進制無符號數除以單字節(jié)二進制數?入口條件:被除數在R3、Ｒ4、R5中,除數在R7中。

出口信息：OV=0時，雙字節(jié)商在R4、Ｒ5中，ＯV=1時溢出。?影響資源：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)標號:MULS功能:雙字節(jié)二進制有符號數乘法（補碼）?

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

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

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

MULS:MOVR4，#０;清零Ｒ4R5?ＭＯVR5,＃0?LCALLMDＳ；計算結果的符號和兩個操作數的絕對值?LCALLMULD;計算兩個絕對值的乘積?SJMPMDSE；用補碼表示結果

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

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

DVS1：POPPSW；未溢出,取出結果的符號?ＭOVＲ4，#0

MOＶR5，#０

MDSE：ＪBF0，MDS２;用補碼表示結果?CLRＯV；結果為正,原碼即補碼，計算成功?RＥT?MDS：CLRF0；結果符號初始化

MOVＡ，R6;判斷第二操作數的符號?JNＢAＣC。７，MDS1；為正,不必處理?CＰLF0；為負，結果符號取反?XＣHA，R7;第二操作數取補，得到其絕對值?CＰLA?ＡDDA,＃1

ＸCHA,R７

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

ＭDS２:MOＶＡ，R5；求第一操作數的絕對值或運算結果的補碼?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;運算成功

ＲＥT

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

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

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

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

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

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

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

ＭOＶA，Ｒ3

RLCA?ＭOＶF0，C

CLRC

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

MOVACC．7，C?ＭOVＣ，F０

ＲLＣA?RLＣA

MOVR２,A

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

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

JNZSH40

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

ＭＯＶA,R2

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

JＮZSQＲH;不小于４0H,左規(guī)格化完成?ＭOVR6,＃２；每左規(guī)一次,被開方數左移兩位?SＨ4２:CLRC；被開方數左移一位?Ｍ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２；被開方數左移完兩位

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

ADDＡ，#57H?JＣSQR2

ADDA,＃45Ｈ

ＪCSQR1

ADDA，＃24H

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

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

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

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

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

MULAＢ;求當前平方根的冪

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

MOVＲ3，Ａ

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

MＯVA，R２

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

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

MOVR3，Ｂ?ＳJＭPＳQＲ4;繼續(xù)校正?SQR5:MOVA,R4；將一個字節(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é)計算完，在Ｒ3中?MOVA，R7;取原被開方數的左規(guī)次數

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

ＭOVＡ,R2

ＲＲCA

MＯVR2，Ａ

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

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

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

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

XＣHA，B；存放低四位的ASCII碼?SWAＰＡ；準備轉換高四位

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

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

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

ＡSCＨ:CLRC

SUBBＡ,＃３0H

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

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

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

DＩＶAB

MＯVＲ３，A

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

XＣHA，B

DＩＶＡB?ＳWAPA

ORLA，B；將十位和個位拼裝成BCＤ碼

RＥＴ

（１７)標號：ＨB２功能:雙字節(jié)十六進制整數轉換成雙字節(jié)BＣD碼整數?入口條件：待轉換的雙字節(jié)十六進制整數在Ｒ6、Ｒ7中。

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

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

HB2：CLRA；BCＤ碼初始化

MＯVR3,A

MOＶR4，A?MOＶR5,A

ＭOVR2,＃1０Ｈ;轉換雙字節(jié)十六進制整數

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

ＭＯＶR７，A

MOVA，R6?RLCＡ?MＯVR６，A?MＯVA,Ｒ５；BＣD碼帶進位自身相加，相當于乘２

ADＤＣA,Ｒ5

DAＡ；十進制調整?MＯVR５,Ａ

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

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

(18)標號：ＨＢＤ功能：單字節(jié)十六進制小數轉換成單字節(jié)BCＤ碼小數

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

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

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

ＡDＤCA,B

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

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

REＴ

（19)標號：ＨＢD２功能：雙字節(jié)十六進制小數轉換成雙字節(jié)BＣＤ碼小數?入口條件:待轉換的雙字節(jié)十六進制小數在R２、Ｒ3中。

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

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

MOVB,#1０

MULAB?ＡDDA，R５

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

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

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

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

ＭOＶR３，A

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

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

ＭOVR2,Ａ?RET

（２0）標號:ＢＣＤＨ功能：單字節(jié)BCＤ碼整數轉換成單字節(jié)十六進制整數

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

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

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

ＭUＬAＢ

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

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

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

MＯVR３,A

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

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

MＯVR３,A?CＬRA

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

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

ＸＣＨA,R３

RLCA;將進位標志移入結果中?ＸＣＨA,R3

ＤJNZR2，BＨD0；共計算８ｂiｔ小數

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

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

BＨＤ1：MOVA,R3;取結果

ＲＥT

（２３)標號：BＨＤ2功能：雙字節(jié)ＢCD碼小數轉換成雙字節(jié)十六進制小數

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

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

BHD3:MOVＡ,R5；按十進制倍增?ADDA,R5

DＡA

ＭＯＶR5，A

MOVA，Ｒ4

ADＤCA,R4

DＡA

MOＶＲ4，Ａ?MOVA，R３;將進位標志移入結果中?RLＣA?ＭＯＶR3,Ａ?MOVA,Ｒ２?ＲLCA?MOVR2,A?ＤJNZＲ６，ＢHD３；共計算１６ｂit小數

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

INCＲ3;五入

ＭＯVA，Ｒ３

JNZＢＨD4

INCＲ２?BHD4:RＥT

（２４）標號:MＭ功能:求單字節(jié)十六進制無符號數據塊的極值?入口條件：數據塊的首址在DPTＲ中，數據個數在Ｒ7中。

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

MM：MOVＢ，R7；保存數據個數

MOVXA，＠DＰTＲ；讀取第一個數據

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

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

MOVA，DPＬ；取第一個數據的地址

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

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

MＯVR2,A?MOVR4,A

MOＶＡ，B;取數據個數

DＥCA；減一,得到需要比較的次數?ＪZMME;只有一個數據,不需要比較

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

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

MＯVR3，DPL

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

MOVR5，DPL?ＭM3:DJNZR１,ＭM1；處理完全部數據

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

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

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

MOVA,DPL；取第一個數據的地址

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

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

MＯVＡ，DPH

MOVR2，A

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

JZＭMSＥ；只有一個數據,不需要比較

MOVR1,A；保存比較次數

PUSＨＤPL;保護數據塊的首址?PＵSHDPH

MMＳ1：INCDPTＲ；調整數據指針?MOVXＡ,＠ＤPTR;讀取一個數據

ＭOVB，A；保存

SETBC；與最大值比較

SUBBA，R6

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

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

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

MOVR3,DPL

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

ＣLＲC

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

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

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

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

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

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

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

MOVR6,A

ＦD11：MOVＡ，Ｒ2；按順序號讀取表格內容

MＯVCA，@Ａ+ＤPTR?CＪNEA,B，FD1２；與待查找的內容比較

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

MOVA,Ｒ2;取對應的順序號

ＲＥT?ＦD12：IＮCＲ2；指向表格中的下一個內容

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

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

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

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

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

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

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

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

MOVA,R２;取對應的順序號?RET?FＤ2２：INＣDPTR；指向下一個數據

INCＤPTR?ＩNCR2；順序號加一?DJNＺR６,FD21；查完全部數據

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

RET

(28）標號：FDＤ１功能：對分查找（ROM)單字節(jié)無符號增序數據表格

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

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

MＯVA,R7

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

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

MＯVA，R3?SUBBA,Ｒ2

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

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

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

MOＶCA，＠A+DPTR；讀取該點的內容

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

ＤECＡ；減一

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

ＩＮＣＡ;加一

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

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

RET

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

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

DECＡ

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

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ＲＣ;計算區(qū)間中心的地址?ＲLCA?JNCFD82

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

JNＣFD83

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

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

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

ＲET

ＦＤ8４:JCFＤ86；該點的內容比待查找的內容大否??MOVA，R1；偏大，取該點位置

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

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

INCＡ;加一

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

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

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

ＭOＶＤＰＬ,R７

SETBOV；查找失敗?ＲEＴ

（3０）標號:ＤＤM１功能:求單字節(jié)十六進制無符號數據塊的平均值

入口條件：數據塊的首址在ＤPTＲ中,數據個數在Ｒ7中。

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

DＤM１:MOVＡ,R7;保存數據個數?MOVR2，A

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

DＭ1１:MＯVＸA,＠DＰTＲ;讀取一個數據

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

MOVR５,Ａ

JNCDM1２?IＮCR4?ＤＭ12：INCＤPTＲ；調整指針

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

MＯVA，R3;取平均值

POPＤＰL?ＰOPDPＨ

RＥＴ?(３1）標號:DＤＭ2功能：求雙字節(jié)十六進制無符號數據塊的平均值

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

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

DDM2：ＭOＶA，R７;保存數據個數

MＯVR2,A;初始化數據指針

ＰUSHDＰL;保持首址

PUSＨＤPＨ

CLＲA；初始化累加和

MOVR3，A

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

INCDＰTR

MOＶXＡ,＠DPTR;讀取一個數據的低字節(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;累加完全部數據?POPDPH;恢復首址?POPDPＬ?LJMＰDV31；求R3R4R5/R7－→Ｒ4R5，得到平均值

（３２)標號:XＲ１功能:求單字節(jié)數據塊的（異或）校驗和

入口條件:數據塊的首址在DPTR中,數據的個數在R6、R７中。

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

MOVＲ５，DPL?ＭＯＶA，R7；雙字節(jié)計數器調整

JＺXR10?INCR６

XＲ10:MOVB,#0；校驗和初始化

ＸR１1:ＭOVXA，@DＰTR；讀取一個數據

XRＬＢ,A；異或運算

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

MＯVDＰH,R4；恢復數據首址

MＯVDPL，R５

MOVA,Ｂ；取校驗和

RET?（３3）標號：XＲ２功能：求雙字節(jié)數據塊的（異或)校驗和

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

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

MOVA，R7；雙字節(jié)計數器調整

JZXR２0?INCR6?ＸR２０:CLＲA；校驗和初始化

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

XＲLA,R２；異或運算?MOVＲ２,A

ＩNCＤＰＴR

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

MOVDPH，R4；恢復數據首址

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

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

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

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

MOVR5，A;比較次數初始化

SＲT1：CLRF0;交換標志初始化

ＭOVA,Ｒ5；取上遍比較次數

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

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

MOVR6，A?SRＴ2：MOＶA，@Ｒ0;讀取一個數據?MＯVR3，Ａ

ＩNＣR0；指向下一個數據

MOVA,＠R0;再讀取一個數據

MOVR4，A

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

SＥTＢＦ0；設立交換標志?ＭOVA，R３;將兩個數據交換位置?ＭOV＠R0，Ａ

DECR0?MＯVＡ，R4?ＭOV@R0,A?IＮＣR0；指向下一個數據

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

MOＶＡ,R6；恢復數據首址?ＭOVR0,A

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

END(二）5１浮點運算子程序庫及其使用說明

?本浮點子程序庫有三個不同層次的版本,以便適應不同的應用場合：

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

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

?數制轉換等子程序。

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

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

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

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

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

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

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

?程序說明中，也用［R0]或［R1]來表示R0或R1指示的浮點操作數,例如：當[R0]＝－6.000時，

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

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

階碼（二進制補碼形式)，第二字節(jié)為尾數的高字節(jié),第三字節(jié)為尾數的低字節(jié),尾數用

雙字節(jié)ＢCＤ碼純小數（原碼）來表示。當十進制數的絕對值大于１時，階碼就等于整數

部分的位數,如８７6.5的階碼是03Ｈ，—87６.５的階碼是8３H;當十進制數的絕對值小于1

?時,階碼就等于8０H減去小數點后面零的個數,例如0.0０３82的階碼是７EH，－0。0038２

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

?如有一個十進制浮點操作數存放在３0H、31H、32H中,數值是-0。073１5，即—0.7315乘以１０

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

４．運算精度：單次定點運算精度為結果最低位的當量值；單次二進制浮點算術運算

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

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

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

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

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

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

透明性。

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

?積木方式（或流水線方式）完成一個公式的計算.以浮點運算為例：

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

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

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

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

?求解過程:通過調用ＢＴOＦ子程序，將各變量轉換成二進制浮點操作數,再進行各

種運算，最后調用ＦTＯＢ子程序，還原成十進制形式，供輸出使用。程序如下：

TＥＳＴ：MOVR0,＃3９H；指向ＢＣD碼浮點操作數d

?LCALＬＢＴOF;將其轉換成二進制浮點操作數

?MOVＲ0，＃３6H；指向ＢＣD碼浮點操作數ｃ

?ＬＣALLBTOＦ;將其轉換成二進制浮點操作數

ＭＯVR0,＃３3H；指向ＢCＤ碼浮點操作數b

?ＬCＡLLBTOＦ；將其轉換成二進制浮點操作數

MOＶR0,＃30H；指向BCD碼浮點操作數ａ

ＬＣＡLLＢＴOF；將其轉換成二進制浮點操作數

?MOＶR1,#３３Ｈ;指向二進制浮點操作數ｂ

?ＬCＡLLFMUL；進行浮點乘法運算

?MOVR1,#36H；指向二進制浮點操作數ｃ

LCAＬLＦDＩV;進行浮點除法運算

?MＯVR1，#39H；指向二進制浮點操作數ｄ

LCALLＦAＤD；進行浮點加法運算

?ＬCAＬLＦＳＩN；進行浮點正弦運算

?LCALLＦABS；進行浮點絕對值運算

?LCALLFSQR;進行浮點開平方運算

LCALＬFＬN；進行浮點對數運算

?LCALLFTOB；將結果轉換成BCD碼浮點數

?STＯＰ:LJMPSＴOP

?END

運行結果，[R0]=80491５Ｈ，即ｙ=—0。4915，比較精確的結果應該是－０。４９１4３7。

?(１）標號:ＦＳDＴ功能:浮點數格式化

?入口條件:待格式化浮點操作數在［R0]中。

出口信息：已格式化浮點操作數仍在[R0]中。

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

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

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

?LJMPＭＯV０；將已格式化浮點操作數傳回到［Ｒ0］中

（２）標號:FＡDＤ功能：浮點數加法

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

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

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

?FAＤD:ＣLRF０；設立加法標志

SJMPAS；計算代數和

?(３）標號:FＳUＢ功能：浮點數減法

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

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

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

?ＦSＵB：SＥTBF0；設立減法標志

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

ＭＯVＣ,F0；用加減標志來校正第二操作數的有效符號

?RRＣA

?ＸRLA,＠R1

?MOVＣ,ACC．7

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

XRＬＡ,＠Ｒ0；與第一操作數的符號比較

RLCA

?ＭOＶF0，Ｃ;保存比較結果

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

ＬＣALLAS１；在工作寄存器中完成代數運算

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

INCR0

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

?ＭOV＠Ｒ0,Ａ

DEＣR０

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

MOV@R０,A

DECR０

?ＭOVA，R2;取結果的階碼

?ＭＯＶC，１FH；取結果的數符

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

ＭOV＠R0，A

?ＣLRACC．７；不考慮數符

CLROV；清除溢出標志

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

SＥＴBOV；設立溢出標志

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

RET

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

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

?MOV1ＦＨ，Ｃ

MOVC,ACＣ.６;將階碼擴充為8biｔ補碼

MOＶACＣ.7，C

?MOVR2,A;存放在R2中

INCR0

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

?MOＶR3，Ａ

IＮCR0

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

ＭOVR4,Ａ

DECR0；恢復數據指針

ＤEＣR0

RＥT

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

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

?MOV1EH，C

ＭOVＣ，ACＣ．6；將階碼擴充為８biｔ補碼

ＭOVＡCＣ。7,C

MOVR5，A;存放在Ｒ5中

INCR1

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

MOVR6，A

?INCR1

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

MＯVＲ7，A

ＤECR１；恢復數據指針

?DECR1

?RET

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

?ＯＲLＡ，Ｒ７

JＺAS2;第二操作數為零,不必運算

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

ＯRLA,R4

?JNZEQ1

?ＭOVA，R6;第一操作數為零，結果以第二操作數為準

?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;對階,比較兩個操作數的階碼

?ＸRLA,R５

?JZAS４;階碼相同，對階結束

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

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

?CLRC

?SＵBBA，Ｒ5

JCEQ4

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

?ＭOＶA,R６；尾數縮小一半

RRCA

MOVＲ6,Ａ

?MOVＡ，R7

RRＣA

?ＭOVR7，A

INＣR5;階碼加一

ORLA，R6；尾數為零否？

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

MOVA，R2;尾數為零,提前結束對階

MＯVR5，A

ＳＪMPＡS4

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

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

EQ4:CLRC

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

?ORLA,R3;尾數為零否？

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

?ＭOＶＡ，R５；尾數為零，提前結束對階

?ＭＯVR2,A

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

?ＭOVA,R4;尾數相加

?AＤDA，Ｒ7

ＭOVＲ4,A

?ＭOＶＡ，R3

?ADDCA,Ｒ６

?MOＶＲ３,Ａ

JNCAS2

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

AS５:ＣLＲC；比較絕對值大小

?MOVＡ，R4

?SUBBA，R７

?MＯVB，A

?MＯVＡ，R３

ＳUＢＢA,R６

JＣAＳ6

?MOVＲ4,B；第一尾數減第二尾數

?ＭOＶR3，A

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

ＡS6：ＣPL1FH；結果的符號與第一操作數相反

?CLRC；結果的絕對值為第二尾數減第一尾數

MOVA，R7

?SUBBＡ，Ｒ4

?ＭOＶR4,Ａ

MOVA，Ｒ6

?SUBBＡ,R３

?ＭOVR3，A

RLN：ＭOVA，R3；浮點數規(guī)格化

ORLA，R4；尾數為零否？

?JNZRLN１

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

RET

?ＲLN１:MOVA,R3

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

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

?LCＡLＬRL1

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

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

?RＥT

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

ＲLＣA；尾數擴大一倍

MOVR4，Ａ

?MＯVA，R３

?RLCA

?MOVR3,A

?ＤEＣR2；階碼減一

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

CＬRＡ

?MＯVR3，A；階碼下溢,操作數以零計

?MOＶR4,A

MOVＲ２，#0C1H

?ＲＬ1Ｅ:CLRＯV

?REＴ

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

?RRCA；尾數縮小一半

?MOＶR3,A

ＭＯVＡ,Ｒ4

?RRCA

MOＶR4,A

IＮCR２;階碼加一

?ＣLRＯV；清溢出標志

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

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

?SETBOV

?RR１E:ＲET

(４）標號:FMＵL功能：浮點數乘法

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

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

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

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

?MOＶA,＠Ｒ0

XＲLA，＠Ｒ１；比較兩個操作數的符號

?RLCA

?MOＶ１ＦＨ，C；保存積的符號

LCALLＭUL０;計算積的絕對值

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

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

MUL1:MOVA，R３；第一尾數為零否？

?ORLA，R4

JＺMUL6

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

?ORLＡ,R7

JZMUＬ５

MOＶＡ,R7；計算Ｒ３Ｒ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ī)格化數否？

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Ｈ；階碼上溢，設立標志

ＳＥTBOＶ

?RET

ＭUL4:JBAＣC．６，MUL6

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

?MOＶR3，A

?ＭOVR4,A

?MOＶR2,＃41H

MUL6：CLRＯＶ

?RET

（5)標號:ＦDIV功能：浮點數除法

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

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

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

?FDIV：ＩNCR0

MＯＶＡ，@R0

ＩNCＲ０

ORＬA，＠R０

?DECR0

?DECR0

JNZDIＶ1

MOV@Ｒ０,＃41H；被除數為零，不必運算

?CLRＯV

?RET

DIＶ1：INCＲ１

?MOVA，＠R１

ＩNCR1

ORLA,@Ｒ1

?ＤECR1

?ＤECR1

JNZＤIV２

?SETＢOV；除數為零,溢出

?ＲET

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

?MOVA，＠R0

?ＸRＬA,@R1;比較兩個操作數的符號

?RＬCA

?ＭＯＶ1FH，C；保存結果的符號

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

LＣALＬDIV3；調用工作區(qū)浮點除法

?LJMＰMOV0;回傳結果

DIＶ３：ＣLＲＣ；比較尾數的大小

?ＭＯVA，R４

SUBBA，R７

?MOVA,R3

?ＳUBＢA，R6

?ＪCDIV4

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

?ＳJＭPＤIV3

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

?ＸCHA,R0;清零并保護之

ＰＵSＨACC

?CLRA

XＣHA,R1

PＵＳHACＣ

?MＯＶA，Ｒ２

?PＵSHACC

?ＭOVB，＃１０H；除法運算,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；將結果存回Ｒ3R4

?MOＶＲ4,Ａ

?CLＲA

?ＡDＤCA,Ｒ０

MＯVＲ3,A

?POPACC；恢復R０Ｒ1R２

MOＶＲ2，A

?PＯＰAＣC

MＯVR1，Ａ

?PＯPＡＣＣ

ＭＯVR0，Ａ

?MOVA，R2;計算商的階碼

?CＬRＣ

?SUBBA,Ｒ5

LCALＬMD;階碼檢驗

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

?（６）標號：ＦCＬR功能:浮點數清零

入口條件：操作數在［R0]中。

?出口信息：操作數被清零。

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

FCLＲ：IＮCＲ0

?ＩＮＣＲ0

CLRA

MOV＠R0,Ａ

DEＣR0

MOV@Ｒ０,A

DECR0

?MOV@R0，＃41Ｈ

?RET

（７)標號：FＺＥＲ功能：浮點數判零

?

入口條件：操作數在［Ｒ0]中。

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

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

?FZEＲ：ＩＮＣR0

INCR0

?ＭOＶA,@Ｒ０

DECR０

ＯRＬA，＠Ｒ0

?DECR0

JNZZEＲO

?MOV＠R０,#41Ｈ

?ZERO:RET

?(８）標號：ＦＭOV功能：浮點數傳送

入口條件：源操作數在[R1］中，目標地址為[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

(９)標號：FPＵS功能：浮點數壓棧

入口條件:操作數在［R０]中。

出口信息：操作數壓入棧頂。

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

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

MOVR2，A

?POPAＣC

?ＭOVＲ３，A

MOVA，＠Ｒ0；將操作數壓入堆棧

ＰＵＳHACC

INＣR０

MOVA,@R0

?PUSHACＣ

INＣR０

?ＭOVA，＠R０

PUSHACＣ

DECＲ０

DＥＣR0

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

PUSHACC

MＯVA,R2

?PＵSＨＡCC

?REＴ；返回主程序

?(1０)標號:ＦＰＯP功能：浮點數出棧

入口條件：操作數處于棧頂。

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

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

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

?ＭOＶR２,A

POPAＣＣ

?MOVR3,Ａ

INCR0

?INＣＲ0

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

?ＭOＶ＠Ｒ0，A

DEＣＲ0

POPACC

ＭOV＠R0，A

DEＣR0

POPAＣC

?ＭＯV＠R0，A

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

PUSHACC

?MOVA，R２

?PUSＨACC

ＲＥＴ；返回主程序

（11）標號：ＦCMP功能:浮點數代數值比較（不影響待比較操作數）

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

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

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

?FCMP:MOVA，@R０；數符比較

?XRLＡ，＠R1

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

?MＯＶA，@Ｒ0；兩數異號，以［R0］數符為準

ＲＬＣA

?MOＶＡ,＃0FＦH

ＲET

?ＣMP２:MOVA,@Ｒ1;兩數同號，準備比較階碼

?MOVC，ＡCC。6

?MOVACC。7，Ｃ

ＭＯVB,A

MＯＶA,@R0

?MOVC,ACC．7

MOVF0,C；保存[Ｒ0］的數符

MOＶＣ,AＣC。6

?MＯVACC。7，C

CLRC;比較階碼

?ＳUBＢＡ，Ｂ

ＪZCＭP６

?RLCＡ;取階碼之差的符號

?JNBF0，CMP5

?ＣＰＬC；[Ｒ0］為負時，結果取反

CMP5：MOVA，＃０FFH;兩數不相等

?RＥT

CＭP６：ＩＮCＲ0；階碼相同時，準備比較尾數

?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０]為負時,結果取反

ＣMP7:ＲEＴ

?（１2）標號:FABＳ功能：浮點絕對值函數

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

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

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

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

CLＲACC．7;清除數符

MOV＠R0,A；回傳階碼

?RＥT

（１３)標號：FSGＮ功能：浮點符號函數

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

?出口信息：累加器A=1時為正數,A=0FFH時為負數，A=0時為零.

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

FSGＮ：INCR0；讀尾數

MOＶＡ，＠Ｒ０

INCR0

ＯＲＬA，＠R０

?DECR０

DECR０

?ＪNZSGＮ

REＴ；尾數為零,結束

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

?RLCA；取數符

?MOＶA，#１;按正數初始化

JNCSGＮ1；是正數,結束

MOVA,#0ＦFH;是負數，改變標志

SGN1:RＥT

?（1４)標號：FＩNT功能：浮點取整函數

入口條件：操作數在[R０]中。

?出口信息：結果仍在［R0］中.

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

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

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

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

IＮＴ：MＯVＡ，R3

ＯRLＡ，R4

?JNＺIＮTA

?CLR1FH;尾數為零，階碼也清零，結束取整

MOVR2,＃41H

RET

INTA:ＭOVA，R２

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

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

?CLRC

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

ＪＣINTＤ

?REＴ;階碼大于１６，已經是整數

IＮＴB:CLRA；絕對值小于一，取整后正數為零，負數為負一

MOVR４,A

?MOVC,1ＦH

RＲＣA

MOVR3,A

RLA

?MOＶR２，Ａ

JNZINTC

?MOVR2,＃41H

?INTＣ：REＴ

?ＩNＴD：ＣLＲF0；舍尾標志初始化

IＮTE：CLRC

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

?ＯＲＬC，F0;記憶舍尾情況

MOVF0，C

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

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

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

ＩNCR4;對于帶小數的負數,向下取整

?MOVＡ，R4

JNZINTF

?IＮCR3

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

（1５）標號:FRＣP功能：浮點倒數函數

入口條件：操作數在［Ｒ0]中。

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

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