Lines Matching +full:up +full:- +full:counter
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,
33 | assumed following the least-significant digit.
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
62 | Clean up and return. Check if the final mul or div resulted
121 moveml %d2-%d5,-(%a7)
145 moveql #ESTRT,%d3 |counter to pick up digits
180 | (*) d1: lword counter
191 moveql #1,%d1 |word counter, init to 1
207 moveql #FSTRT,%d3 |counter to pick up digits
248 | 3. Add one for each zero encountered until a non-zero digit.
255 | 3. Add one for each zero encountered until a non-zero digit.
260 | *Why 27? If the adjusted exponent is within -28 < expA < 28, than
274 | (*) d5: lword counter
282 | and do append (+) or strip (-) zeros accordingly.
294 bnes ap_p_fx |if M16 is non-zero, go fix exp
296 moveql #1,%d5 |init lword counter
300 addql #1,%d5 |inc lword counter
304 moveql #7,%d2 |init digit counter
307 bnes ap_p_fx |if non-zero, go to fix exp
309 addql #1,%d1 |inc digit counter
312 movel %d1,%d0 |copy counter to d2
325 movel #PTENRN,%a1 |get address of power-of-ten table
328 moveql #3,%d2 |init d2 to count bits in counter
343 clrl %d1 |clr counter
344 moveql #2,%d5 |set up d5 to point to lword 3
348 addql #8,%d1 |inc counter by 8
352 moveql #7,%d2 |init digit counter
355 bnes ap_n_fx |if non-zero, go to exp fix
357 addql #1,%d1 |inc digit counter
360 movel %d1,%d0 |copy counter to d0
373 movel #PTENRN,%a1 |get address of power-of-ten table
376 moveql #3,%d2 |init d2 to count bits in counter
388 | Calculate power-of-ten factor from adjusted and shifted exponent.
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
479 | ( ) fp1: scaling factor - 10**(abs(exp))
491 | Clean up and return with result in fp0.
503 moveml (%a7)+,%d2-%d5