hppa/spmath/divu.S

55 rem:	.reg		%r3	/* remainder and upper part of dividend */
64 	stws,ma		rem,4(%sp)		; save registers on stack
71 	addi		0,%arg0,rem		; get upper dividend
77 	ds		rem,dvr,rem		; 1st divide step, if carry
80 	ds		rem,dvr,rem		; 2nd divide step
82 	ds		rem,dvr,rem		; 3rd divide step
84 	ds		rem,dvr,rem		; 4th divide step
86 	ds		rem,dvr,rem		; 5th divide step
88 	ds		rem,dvr,rem		; 6th divide step
90 	ds		rem,dvr,rem		; 7th divide step
92 	ds		rem,dvr,rem		; 8th divide step
94 	ds		rem,dvr,rem		; 9th divide step
96 	ds		rem,dvr,rem		; 10th divide step
98 	ds		rem,dvr,rem		; 11th divide step
100 	ds		rem,dvr,rem		; 12th divide step
102 	ds		rem,dvr,rem		; 13th divide step
104 	ds		rem,dvr,rem		; 14th divide step
106 	ds		rem,dvr,rem		; 15th divide step
108 	ds		rem,dvr,rem		; 16th divide step
110 	ds		rem,dvr,rem		; 17th divide step
112 	ds		rem,dvr,rem		; 18th divide step
114 	ds		rem,dvr,rem		; 19th divide step
116 	ds		rem,dvr,rem		; 20th divide step
118 	ds		rem,dvr,rem		; 21st divide step
120 	ds		rem,dvr,rem		; 22nd divide step
122 	ds		rem,dvr,rem		; 23rd divide step
124 	ds		rem,dvr,rem		; 24th divide step
126 	ds		rem,dvr,rem		; 25th divide step
128 	ds		rem,dvr,rem		; 26th divide step
130 	ds		rem,dvr,rem		; 27th divide step
132 	ds		rem,dvr,rem		; 28th divide step
134 	ds		rem,dvr,rem		; 29th divide step
136 	ds		rem,dvr,rem		; 30th divide step
138 	ds		rem,dvr,rem		; 31st divide step
140 	ds		rem,dvr,rem		; 32nd divide step,
142 	addb,>=,n	rem,0,finish		; branch if pos. rem
144 	add,tr		rem,dvr,rem		;   for correcting rem.
145 	sub		rem,dvr,rem		; else subtract dvr
149 finish:	stws		rem,0(%arg3)		; save remainder in high part
157 	ldws,mb		-4(%sp),rem		; restore registers
161 loop:	addc		rem,rem,rem		; shift in high bit of dvdl
164 	comb,<<,n	rem,dvr,nosub		; if upper dividend > dvr,
165 	sub		rem,dvr,rem		;   subtract and
171 	stws		rem,0(%arg3)		; save remainder in high part