Lines Matching +full:3 +full:d1
93 .byte 2,3,2,3
94 .byte 2,3,3,2
95 .byte 3,2,2,3
125 | 2. Calculate absolute value of exponent in d1 by mul and add.
126 | 3. Correct for exponent sign.
134 | (*) d1: accumulator for binary exponent
148 movel ETEMP_HI(%a6),4(%a0) |save words 2 and 3
151 clrl %d1 |zero d1 for accumulator
153 mulul #TEN,%d1 |mul partial product by one digit place
155 addl %d0,%d1 |d1 = d1 + d0
157 dbf %d2,e_gd |if we have used all 3 digits, exit loop
160 negl %d1 |negate before subtracting
162 subl #16,%d1 |sub to compensate for shift of mant
164 negl %d1 |now negative, make pos and set SE
168 movel %d1,L_SCR1(%a6) |save exp in memory
180 | (*) d1: lword counter
183 | ( ) d4: words 2 and 3 of bcd
191 moveql #1,%d1 |word counter, init to 1
206 movel (%a0,%d1.L*4),%d4 |load mantissa longword into d4
216 | then inc d1 (=2) to point to the next long word and reset d3 to 0
223 addql #1,%d1 |inc lw pointer in mantissa
224 cmpl #2,%d1 |test for last lw
247 | 2. Check M16 and the digits in lwords 2 and 3 in descending order.
248 | 3. Add one for each zero encountered until a non-zero digit.
250 | 5. Check if the exp has crossed zero in #3 above; make the exp abs
254 | 2. Check the digits in lwords 3 and 2 in descending order.
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.
270 | (*) d1: zero count
286 movel L_SCR1(%a6),%d1 |load expA for range test
287 cmpl #27,%d1 |test is with 27
291 clrl %d1 |zero count reg
295 addql #1,%d1 |inc zero count
299 addql #8,%d1 |and inc count by 8
301 movel (%a0,%d5.L*4),%d4 |get lword 3 to d4
309 addql #1,%d1 |inc digit counter
312 movel %d1,%d0 |copy counter to d2
313 movel L_SCR1(%a6),%d1 |get adjusted exp from memory
314 subl %d0,%d1 |subtract count from exp
316 negl %d1 |now its neg; get abs
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
345 movel (%a0,%d5.L*4),%d4 |get lword 3
348 addql #8,%d1 |inc counter by 8
357 addql #1,%d1 |inc digit counter
360 movel %d1,%d0 |copy counter to d0
361 movel L_SCR1(%a6),%d1 |get adjusted exp from memory
362 subl %d0,%d1 |subtract count from exp
364 negl %d1 |take abs of exp and clr SE
376 moveql #3,%d2 |init d2 to count bits in counter
394 | ( ) d1: exponent
401 | ( ) d1: exponent
454 movel %d1,%d0 |copy exp to d0;use d0