![[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 / alpha|
Return to level0.s CVS log | Up to [local] / OpenXM_contrib / pari / src / kernel / alpha |
1.1 maekawa 1: # $Id: level0.s,v 1.1.1.1 1999/09/16 13:47:45 karim Exp $
2: .text
3:
4: .set noreorder
5: .align 3
6: .globl addll
7: .ent addll 0
8: addll:
9: .frame $30,0,$26,0
10: .prologue 0
11: addq $16,$17,$0
12: cmpult $0,$16,$1
13: stq $1,overflow
14: ret $31,($26),1
15: .end addll
16:
17: .set noreorder
18: .align 3
19: .globl addllx
20: .ent addllx 0
21: addllx:
22: ldq $2,overflow
23: addq $16,$17,$0
24: cmpult $0,$16,$16
25: addq $0,$2,$0
26: cmpult $0,$2,$2
27: addq $16,$2,$16
28: stq $16,overflow
29: ret $31,($26),1
30: .end addllx
31:
32:
33: .set noreorder
34: .align 3
35: .globl subll
36: .ent subll 0
37: subll:
38: .frame $30,0,$26,0
39: .prologue 0
40: subq $16,$17,$0
41: cmpult $16,$0,$1
42: stq $1,overflow
43: ret $31,($26),1
44: .end subll
45:
46: .set noreorder
47: .align 3
48: .globl subllx
49: .ent subllx 0
50: subllx:
51: .frame $30,0,$26,0
52: .prologue 0
53: ldq $2,overflow
54: subq $16,$17,$17
55: cmpult $16,$17,$16
56: subq $17,$2,$0
57: cmpult $17,$0,$17
58: addq $16,$17,$16
59: stq $16,overflow
60: ret $31,($26),1
61: .end subllx
62:
63: .set noreorder
64: .align 3
65: .globl shiftl
66: .ent shiftl 0
67: shiftl:
68: .frame $30,0,$26,0
69: .prologue 0
70: subq $31,$17,$1
71: sll $16,$17,$0
72: srl $16,$1,$2
73: stq $2,hiremainder
74: ret $31,($26),1
75: .end shiftl
76:
77: .set noreorder
78: .align 3
79: .globl shiftlr
80: .ent shiftlr 0
81: shiftlr:
82: .frame $30,0,$26,0
83: .prologue 0
84: subq $31,$17,$1
85: srl $16,$17,$0
86: sll $16,$1,$2
87: stq $2,hiremainder
88: ret $31,($26),1
89: .end shiftlr
90:
91: .set noreorder
92: .align 3
93: .globl bfffo
94: .ent bfffo 0
95: bfffo:
96: .frame $30,0,$26,0
97: .prologue 0
98: lda $6,tabshi
99: ldiq $7,60
100: zapnot $16,0xf0,$1
101: beq $1,$32
102: srl $16,32,$16
103: subq $7,32,$7
104: $32: lda $3,-1($31)
105: ldah $3, 1($3)
106: cmpule $16,$3,$2
107: bne $2,$33
108: srl $16,16,$16
109: subq $7,16,$7
110: $33: cmpule $16,0xff,$3
111: bne $3,$34
112: srl $16,8,$16
113: subq $7,8,$7
114: $34: cmpule $16,0xf,$4
115: bne $4,$35
116: srl $16,4,$16
117: subq $7,4,$7
118: $35: s8addq $16,$6,$5
119: ldq $1,0($5)
120: addq $1,$7,$0
121: ret $31,($26),1
122: .end bfffo
123:
124: .set noreorder
125: .align 3
126: .globl mulll
127: .ent mulll 0
128: mulll:
129: .frame $30,0,$26,0
130: .prologue 0
131: umulh $16,$17,$1
132: mulq $16,$17,$0
133: stq $1,hiremainder
134: ret $31,($26),1
135: .end mulll
136:
137: .set noreorder
138: .align 3
139: .globl addmul
140: .ent addmul 0
141: addmul:
142: .frame $30,0,$26,0
143: .prologue 0
144: mulq $16,$17,$2
145: umulh $16,$17,$1
146: ldq $3,hiremainder
147: addq $2,$3,$0
148: cmpult $0,$2,$4
149: addq $1,$4,$5
150: stq $5,hiremainder
151: ret $31,($26),1
152: .end addmul
153:
154: # This program is a modification of a file contained in the gmp-1.9
155: # library, copyright Free Software Foundation, with permission.
156: .globl pari_err
157: .set noreorder
158: .align 3
159: .globl divll
160: .ent divll 0
161: divll:
162: .frame $30,0,$26,0
163: .prologue 0
164:
165: ldq $7,hiremainder
166: ldiq $2,16
167: cmpule $17,$7,$3
168: bne $3,errorhandler
169: blt $17,Largedivisor
170:
171: Loop1: cmplt $16,0,$3
172: addq $7,$7,$7
173: bis $7,$3,$7
174: addq $16,$16,$16
175: cmpule $17,$7,$20
176: subq $7,$17,$3
177: cmovne $20,$3,$7
178: bis $16,$20,$16
179: cmplt $16,0,$3
180: addq $7,$7,$7
181: bis $7,$3,$7
182: addq $16,$16,$16
183: cmpule $17,$7,$20
184: subq $7,$17,$3
185: cmovne $20,$3,$7
186: bis $16,$20,$16
187: cmplt $16,0,$3
188: addq $7,$7,$7
189: bis $7,$3,$7
190: addq $16,$16,$16
191: cmpule $17,$7,$20
192: subq $7,$17,$3
193: cmovne $20,$3,$7
194: bis $16,$20,$16
195: cmplt $16,0,$3
196: addq $7,$7,$7
197: bis $7,$3,$7
198: addq $16,$16,$16
199: cmpule $17,$7,$20
200: subq $7,$17,$3
201: cmovne $20,$3,$7
202: bis $16,$20,$16
203: subq $2,1,$2
204: bgt $2,Loop1
205: stq $7,hiremainder
206: bis $31,$16,$0
207: ret $31,($26),1
208:
209: Largedivisor:
210: and $16,1,$4
211:
212: srl $16,1,$16
213: sll $7,63,$3
214: or $3,$16,$16
215: srl $7,1,$7
216:
217: and $17,1,$6
218: srl $17,1,$5
219: addq $5,$6,$5
220:
221: Loop2: cmplt $16,0,$3
222: addq $7,$7,$7
223: bis $7,$3,$7
224: addq $16,$16,$16
225: cmpule $5,$7,$20
226: subq $7,$5,$3
227: cmovne $20,$3,$7
228: bis $16,$20,$16
229: cmplt $16,0,$3
230: addq $7,$7,$7
231: bis $7,$3,$7
232: addq $16,$16,$16
233: cmpule $5,$7,$20
234: subq $7,$5,$3
235: cmovne $20,$3,$7
236: bis $16,$20,$16
237: cmplt $16,0,$3
238: addq $7,$7,$7
239: bis $7,$3,$7
240: addq $16,$16,$16
241: cmpule $5,$7,$20
242: subq $7,$5,$3
243: cmovne $20,$3,$7
244: bis $16,$20,$16
245: cmplt $16,0,$3
246: addq $7,$7,$7
247: bis $7,$3,$7
248: addq $16,$16,$16
249: cmpule $5,$7,$20
250: subq $7,$5,$3
251: cmovne $20,$3,$7
252: bis $16,$20,$16
253: subq $2,1,$2
254: bgt $2,Loop2
255:
256: addq $7,$7,$7
257: addq $4,$7,$7
258: bne $6,Odd
259: stq $7,hiremainder
260: bis $31,$16,$0
261: ret $31,($26),1
262:
263: Odd:
264: # q' in $16. r' in $7
265: addq $7,$16,$7
266: cmpult $7,$16,$3 # $3 := carry from addq
267: beq $3,LLp6
268: addq $16,1,$16
269: subq $7,$17,$7
270: LLp6: cmpult $7,$17,$3
271: bne $3,LLp7
272: addq $16,1,$16
273: subq $7,$17,$7
274: LLp7:
275: stq $7,hiremainder
276: bis $31,$16,$0
277: ret $31,($26),1
278:
279: errorhandler:
280: ldiq $16,0x2f
281: jmp pari_err
282:
283: .end divll
284:
285: .align 3
286: tabshi: .quad 4,3,2,2,1,1,1,1,0,0,0,0,0,0,0,0
287: .globl hiremainder
288: .comm hiremainder,8
289: .globl overflow
290: .comm overflow,8