mcs-51單片機實用子程序庫六(編輯修改稿)
2024-09-26 13:27 本頁面
【文章內(nèi)容簡介】 MUL0 ；進行乘法運算 SJMP PLN1 ；繼續(xù)下一項運算 （１９） 標號： ＦＬＯＧ 功能：以１０為底的浮點對數(shù)函數(shù) 入口條件：操作數(shù)在 [R0]中。 出口信息： OV=0 時，結(jié)果仍在 [R0]中， OV=1 時，負數(shù)或零求對數(shù)出錯。 影響資源： DPTR、 PSW、 A、 B、 R2～ R位 1EH、 1FH 堆棧需求 ：９字節(jié) FLOG: LCALL FLN ；先以ｅ為底求對數(shù) JNB OV,LOG RET ；如溢出則停止計算 LOG: MOV R5,0FFH；系數(shù)０．４３４３０（１／Ｌｎ１０） MOV R6,0DEH MOV R7,5CH LCALL MUL1 ；通過相乘來換底 LJMP MOV0 ；傳回結(jié)果 （２０） 標號： ＦＬＮ 功能：以ｅ為底的浮點對數(shù)函數(shù) 入口條件：操作數(shù)在 [R0]中。 出口信息： OV=0 時，結(jié)果仍在 [R0]中， OV=1 時，負數(shù)或零求對數(shù)出錯。 影響資源： DPTR、 PSW、 A、 B、 R2～ R位 1EH、 1FH 堆棧需求： ７字節(jié) FLN: LCALL MVR0 ；將 [R0]傳送到第一工作區(qū) JB 1FH,LNOV；負數(shù)或零求對數(shù)，出錯 MOV A,R3 ORL A,R4 JNZ LN0 LNOV: SETB OV RET LN0: CLR C LCALL RL1 ；左規(guī)一次 CLR A XCH A,R2 ；保存原階碼，清零工作區(qū)的階碼 PUSH ACC LCALL RLN ；規(guī)格化 LCALL MOV0 ；回傳 LCALL FPLN ；用多項式計算尾數(shù)的對數(shù) DB 7BH,0F4H,30H；０．０２９８０８ DB 0FEH,85H,13H；－０．１２９９６ DB 7FH,91H,51H；０．２８３８２ DB 0FFH,0FAH,0BAH；－０．４８９７ DB 0,0FFH,0CAH；０．９９９１８ DB 70H,0C0H,0；１．１４４２ １０ 5 DB 40H ；結(jié)束 POP ACC ；取出原階碼 JNZ LN1 RET ；如為零，則結(jié)束 LN1: CLR 1EH ；清第二區(qū)數(shù)符 MOV C, MOV F0,C ；保存階符 JNC LN2 CPL A ；當階碼為負時，求其絕對值 INC A LN2: MOV R2,A ；階碼的絕對值乘以０．６９３１５ MOV B,72H MUL AB XCH A,R2 MOV R7,B MOV B,0B1H MUL AB ADD A,R7 MOV R7,A ；乘積的尾數(shù)在 R6R7R2 中 CLR A ADD
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1