Lines Matching full:d1
125 | 2. Calculate absolute value of exponent in d1 by mul and add.
134 | (*) d1: accumulator for binary exponent
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
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
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
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
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
343 clrl %d1 |clr counter
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
394 | ( ) d1: exponent
401 | ( ) d1: exponent
454 movel %d1,%d0 |copy exp to d0;use d0