ＦＳＩＮ                                                       FSIN: MOV A,@R0
MOV C,ACC.7
MOV 1DH,C ；保存自變量的符號(hào)
CLR ACC.7 ；統(tǒng)一按正數(shù)計(jì)算
MOV @R0,A
LCALL MVR0 ；將[R0]傳送到第一工作區(qū)
MOV R5,#0 ；系數(shù)０．６３６６２７（２／π）
MOV R6,#0A2H
MOV R7,#0FAH
CLR 1EH
LCALL MUL1 ；相乘，自變量按（π／２）規(guī)一化
MOV A,R2 ；將結(jié)果復(fù)制到第二區(qū)
MOV R5,A
MOV A,R3
MOV R6,A
MOV A,R4
MOV R7,A
LCALL INT ；第一區(qū)取整，獲得象限信息
MOV A,R2
JZ SIN2
SIN1: CLR C ；將浮點(diǎn)象限數(shù)轉(zhuǎn)換成定點(diǎn)象限數(shù)
LCALL RR1
CJNE R2,#10H,SIN1
MOV A,R4
JNB ACC.1,SIN2
CPL 1DH ；對于第三、四象限，結(jié)果取反
SIN2: JB ACC.0,SIN3
CPL 1FH ；對于第一、三象限，直接求規(guī)一化的小數(shù)
SJMP SIN4
SIN3: MOV A,R4 ；對于第二、四象限，準(zhǔn)備求其補(bǔ)數(shù)
INC A
MOV R4,A
JNZ SIN4
INC R3
SIN4: LCALL RLN ；規(guī)格化
SETB F0
LCALL AS1 ；求自變量歸一化等效值
LCALL MOV0 ；回傳
LCALL FPLN ；用多項(xiàng)式計(jì)算正弦值
DB 7DH,93H,28H；０．０７１８５
DB 41H,0,0 ；０
DB 80H,0A4H,64H；－０．６４２１５
DB 41H,0,0 ；０
DB 1,0C9H,2；１．５７０４
DB 41H,0,0 ；０
DB 40H ；結(jié)束
MOV A,@R0 ；結(jié)果的絕對值超過１．００嗎？
JZ SIN5
JB ACC.6,SIN5
INC R0 ；絕對值按１．００封頂
MOV @R0,#80H
INC R0
MOV @R0,#0
DEC R0
DEC R0
MOV A,#1
SIN5: MOV C,1DH ；將數(shù)符拼入結(jié)果中
MOV ACC.7,C
MOV @R0,A
RET
                                                                                                                                                                                                                                                                                                       入口條件：操作數(shù)在[R0]中。
出口信息：結(jié)果仍在[R0]中。
影響資源：DPTR、PSW、A、B、R2～R7、位1DH～1FH 堆棧需求： ６字節(jié)

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 功能：浮點(diǎn)正弦函數(shù)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          運(yùn)算子程序