![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to level0.s CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / pari / src / kernel / hppa|
Return to level0.s CVS log | Up to [local] / OpenXM_contrib / pari / src / kernel / hppa |
1.1 maekawa 1: ; $id: level0.s,v 2.0.0.6 1998/02/21 17:30:11 karim exp karim $
2: ; This file modified by Nigel Smart from the original by Dominique Bernardi.
3: ; HP as is needed, with +DA1.1
4: .shortdata
5: .import $global$ ; The value in the %dp register
6: .export hiremainder
7: .export overflow
8: .word
9: .align 8
10: hiremainder .word
11: .align 8
12: overflow .word
13:
14: .code
15: .export addll,entry
16: .export addllx,entry
17: .export subll,entry
18: .export subllx,entry
19: .export shiftl,entry
20: .export shiftlr,entry
21: .export bfffo,entry
22: .export mulll,entry
23: .export addmul,entry
24: .export divll,entry
25:
26: .proc
27: .callinfo
28: addll .enter
29: add %arg0,%arg1,%ret0
30: addc 0,0,%t1
31: stw %t1,overflow-$global$(%dp)
32: .leave
33: .procend
34:
35: .proc
36: .callinfo
37: addllx .enter
38: ldw overflow-$global$(%dp),%t1
39: addb,uv %t1,%arg0,addllx2
40: add %arg0,%arg1,%ret0
41: addc 0,0,%t1
42: stw %t1,overflow-$global$(%dp)
43: .leave
44: addllx2 ldi 1,%t1
45: stw %t1,overflow-$global$(%dp)
46: .leave
47: .procend
48:
49: .proc
50: .callinfo
51: subll .enter
52: sub %arg0,%arg1,%ret0
53: addc 0,0,%t1
54: subi 1,%t1,%t1
55: stw %t1,overflow-$global$(%dp)
56: .leave
57: .procend
58:
59: .proc
60: .callinfo
61: subllx .enter
62: ldw overflow-$global$(%dp),%t1
63: sub,>>= %arg0,%arg1,%ret0
64: sub,tr %ret0,%t1,%ret0
65: sub,>>= %ret0,%t1,%ret0
66: addi,tr 1,0,%t1
67: ldi 0,%t1
68: stw %t1,overflow-$global$(%dp)
69: .leave
70: .procend
71:
72: .proc
73: .callinfo
74: shiftl .enter
75: subi 32,%arg1,%arg1
76: l$30 mfctl %cr11,%t1
77: mtctl %arg1,%cr11
78: vshd %arg0,0,%ret0;
79: vshd 0,%arg0,%t2
80: mtctl %t1,%cr11
81: l$31 stw %t2,hiremainder-$global$(%dp)
82: .leave
83: .procend
84:
85: .proc
86: .callinfo
87: shiftlr .enter
88: l$40 mfctl %cr11,%t1
89: mtctl %arg1,%cr11
90: vshd 0,%arg0,%ret0;
91: vshd %arg0,0,%t2
92: mtctl %t1,%cr11
93: l$41 stw %t2,hiremainder-$global$(%dp)
94: .leave
95: .procend
96:
97: .proc
98: .callinfo
99: bfffo .enter
100: comb,=,n %r0,%arg0,l$0
101: ldi 31,%ret0
102: extru,<> %arg0,15,16,%r0
103: shd,tr %arg0,%r0,16,%arg0
104: addi -16,%ret0,%ret0
105: extru,<> %arg0,7,8,%r0
106: shd,tr %arg0,%r0,24,%arg0
107: addi -8,%ret0,%ret0
108: extru,<> %arg0,3,4,%r0
109: shd,tr %arg0,%r0,28,%arg0
110: addi -4,%ret0,%ret0
111: extru,<> %arg0,1,2,%r0
112: shd,tr %arg0,%r0,30,%arg0
113: addi -2,%ret0,%ret0
114: extru,= %arg0,0,1,%r0
115: addi -1,%ret0,%ret0
116: b,n l$1
117: l$0 ldi 32,%ret0
118: l$1 .leave
119: .procend
120:
121: .proc
122: .callinfo
123: mulll .enter
124: ldo hiremainder-$global$(%dp),%r1
125: stw %arg0,0(%r1)
126: fldws 0(%r1),%fr4
127: stw %arg1,0(%r1)
128: fldws 0(%r1),%fr5
129: xmpyu %fr4,%fr5,%fr6
130: fstds %fr6,0(%r1)
131: ldws 4(%r1),%ret0
132: .leave
133: .procend
134:
135: .proc
136: .callinfo
137: addmul .enter
138: ldo hiremainder-$global$(%dp),%r1
139: ldw 0(%r1),%t1
140: stw %arg0,0(%r1)
141: fldws 0(%r1),%fr4
142: stw %arg1,0(%r1)
143: fldws 0(%r1),%fr5
144: xmpyu %fr4,%fr5,%fr6
145: fstds %fr6,0(%r1)
146: ldws 4(%r1),%ret0
147: add,nuv %t1,%ret0,%ret0
148: b,n suite
149: .leave
150: suite ldw 0(%r1),%ret1
151: addi 1,%ret1,%ret1
152: stw %ret1,0(%r1)
153: .leave
154: .procend
155:
156: hirem .reg %t1
157: loquo .reg %ret0
158: div .reg %arg1
159:
160: nibble .macro
161: ds hirem,div,hirem
162: addc loquo,loquo,loquo
163: ds hirem,div,hirem
164: addc loquo,loquo,loquo
165: ds hirem,div,hirem
166: addc loquo,loquo,loquo
167: ds hirem,div,hirem
168: addc loquo,loquo,loquo
169: .endm
170:
171: divll .proc
172: .callinfo
173: .enter
174: ldw hiremainder-$global$(%dp),hirem
175:
176: comb,< div,0,l$50
177: copy %arg0,loquo
178: sub 0,div,%t2
179: ds 0,%t2,0
180: addc loquo,loquo,loquo
181: nibble
182: nibble
183: nibble
184: nibble
185: nibble
186: nibble
187: nibble
188: nibble
189: add,>= 0,hirem,0
190: add hirem,div,hirem
191: stw hirem,hiremainder-$global$(%dp)
192: .leave
193:
194: l$50 copy div,%arg0
195: extru,<> div,31,1,%t3
196: b l$51
197: extru div,30,31,div
198: addb,nsv %t3,div,l$51
199: copy hirem,%t4
200: copy loquo,hirem
201: b l$52
202: copy %t4,loquo
203:
204: l$51 extru loquo,31,1,%t4
205: shd hirem,loquo,1,loquo
206: extru hirem,30,31,hirem
207: sub 0,div,%t2
208: ds 0,%t2,0
209: addc loquo,loquo,loquo
210: nibble
211: nibble
212: nibble
213: nibble
214: nibble
215: nibble
216: nibble
217: nibble
218: add,>= 0,hirem,0
219: add hirem,div,hirem
220: comb,= 0,%t3,l$53
221: sh1add hirem,%t4,hirem
222: l$52 copy %arg0,div
223: addb,nuv,n loquo,hirem,l$54
224: sub hirem,div,hirem
225: addi 1,loquo,loquo
226: l$54 comb,<<,n hirem,div,l$53
227: sub hirem,div,hirem
228: addi 1,loquo,loquo
229:
230: l$53 stw hirem,hiremainder-$global$(%dp)
231: .leave
232: .procend
233:
234: .end