Lines Matching +full:se +full:- +full:neg

5 |	register A6 to extended-precision value in FP0.
9 | Output: Exact floating-point representation of the packed bcd value.
11 | Saves and Modifies: D2-D5
20 | Expected is a normal bcd (i.e. non-exceptional; all inf, zero,
25 | Set the sign according to SE. Subtract 16 to compensate
33 | assumed following the least-significant digit.
37 | bcd string. If SE is positive, count the leading zeros;
43 | SM = 0 a non-zero digit in the integer position
44 | SM = 1 a non-zero digit in Mant0, lsd of the fraction
47 | representation (ex. 0.1E2, 1E1, 10E0, 100E-1), is converted
121 moveml %d2-%d5,-(%a7)
158 btst #30,%d4 |get SE
163 bges e_save |if still pos, do not neg
164 negl %d1 |now negative, make pos and set SE
165 orl #0x40000000,%d4 |set SE in d4,
248 | 3. Add one for each zero encountered until a non-zero digit.
251 | and set SE.
255 | 3. Add one for each zero encountered until a non-zero digit.
257 | 5. Check if the exp has crossed zero in #3 above; clear SE.
260 | *Why 27? If the adjusted exponent is within -28 < expA < 28, than
282 | and do append (+) or strip (-) zeros accordingly.
290 bne ap_st_n |if neg, go to neg side
294 bnes ap_p_fx |if M16 is non-zero, go fix exp
307 bnes ap_p_fx |if non-zero, go to fix exp
316 negl %d1 |now its neg; get abs
318 orl #0x40000000,%d4 | and set SE in d4
325 movel #PTENRN,%a1 |get address of power-of-ten table
355 bnes ap_n_fx |if non-zero, go to exp fix
364 negl %d1 |take abs of exp and clr SE
366 andl #0xbfffffff,%d4 | and clr SE in d4
373 movel #PTENRN,%a1 |get address of power-of-ten table
388 | Calculate power-of-ten factor from adjusted and shifted exponent.
395 | (*) d2: {FPCR[6:5],SM,SE} as index in RTABLE; temp
405 | (*) fp1: power-of-ten accumulator
415 | - + RP RM
416 | + - RP RM
417 | - - RP RP
420 | - + RM RP
421 | + - RM RP
422 | - - RM RM
425 | - + RZ RM
426 | + - RZ RP
427 | - - RZ RP
435 bfextu %d4{#0:#2},%d0 | {FPCR[6],FPCR[5],SM,SE}
457 orl #0x40000000,(%a0) |and set SE bit
479 | ( ) fp1: scaling factor - 10**(abs(exp))
503 moveml (%a7)+,%d2-%d5