![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to arith.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / jerq / src / lib / j|
Return to arith.s CVS log | Up to [Research Unix] / researchv9 / jerq / src / lib / j |
1.1 root 1: .file "arith.c"
2: .data
3: .text
4: .align 4
5: .def add; .val add; .scl 2; .type 050; .endef
6: .globl add
7: add:
8: save &.R1
9: addw2 &.F1,%sp
10: movaw 0(%ap),%r8
11: movaw 4(%ap),%r7
12: movw %r8,%r0
13: addw2 &2,%r8
14: movw %r7,%r1
15: addw2 &2,%r7
16: addh2 0(%r1),0(%r0)
17: addh2 0(%r7),0(%r8)
18: movw 0(%ap),%r0
19: jmp .L30
20: .L30:
21: .def .ef; .val .; .scl 101; .line 6; .endef
22: .ln 6
23: .set .F1,0
24: .set .R1,2
25: ret &.R1
26: .def add; .val .; .scl -1; .endef
27: .data
28: .text
29: .align 4
30: .def sub; .val sub; .scl 2; .type 050; .endef
31: .globl sub
32: sub:
33: save &.R2
34: addw2 &.F2,%sp
35: movaw 0(%ap),%r8
36: movaw 4(%ap),%r7
37: movw %r8,%r0
38: addw2 &2,%r8
39: movw %r7,%r1
40: addw2 &2,%r7
41: subh2 0(%r1),0(%r0)
42: subh2 0(%r7),0(%r8)
43: movw 0(%ap),%r0
44: jmp .L31
45: .L31:
46: .def .ef; .val .; .scl 101; .line 6; .endef
47: .ln 6
48: .set .F2,0
49: .set .R2,2
50: ret &.R2
51: .def sub; .val .; .scl -1; .endef
52: .data
53: .text
54: .align 4
55: .def inset; .val inset; .scl 2; .type 050; .endef
56: .globl inset
57: inset:
58: save &.R3
59: addw2 &.F3,%sp
60: movw 8(%ap),%r8
61: movw %r2,0(%fp)
62: movaw 0(%ap),%r7
63: movw %r7,%r0
64: addw2 &2,%r7
65: movtwh %r8,%r1
66: addh2 %r1,0(%r0)
67: movw %r7,%r0
68: addw2 &2,%r7
69: movtwh %r8,%r1
70: addh2 %r1,0(%r0)
71: movw %r7,%r0
72: addw2 &2,%r7
73: movtwh %r8,%r1
74: subh2 %r1,0(%r0)
75: movtwh %r8,%r0
76: subh2 %r0,0(%r7)
77: movw 0(%fp),%r1
78: movaw 0(%ap),%r0
79: movw 4(%r0),4(%r1)
80: movw 0(%r0),0(%r1)
81: jmp .L32
82: .L32:
83: .def .ef; .val .; .scl 101; .line 8; .endef
84: .ln 8
85: movw 0(%fp),%r0
86: .set .F3,4
87: .set .R3,2
88: ret &.R3
89: .def inset; .val .; .scl -1; .endef
90: .data
91: .text
92: .align 4
93: .def div; .val div; .scl 2; .type 050; .endef
94: .globl div
95: div:
96: save &.R4
97: addw2 &.F4,%sp
98: movw 4(%ap),%r8
99: movaw 0(%ap),%r7
100: movw %r7,%r0
101: addw2 &2,%r7
102: movw %r0,0(%fp)
103: movbhw *0(%fp),%r0
104: divw2 %r8,%r0
105: movh %r0,*0(%fp)
106: movbhw 0(%r7),%r0
107: divw2 %r8,%r0
108: movh %r0,0(%r7)
109: movw 0(%ap),%r0
110: jmp .L33
111: .L33:
112: .def .ef; .val .; .scl 101; .line 6; .endef
113: .ln 6
114: .set .F4,4
115: .set .R4,2
116: ret &.R4
117: .def div; .val .; .scl -1; .endef
118: .data
119: .text
120: .align 4
121: .def mul; .val mul; .scl 2; .type 050; .endef
122: .globl mul
123: mul:
124: save &.R5
125: addw2 &.F5,%sp
126: movw 4(%ap),%r8
127: movaw 0(%ap),%r7
128: movw %r7,%r0
129: addw2 &2,%r7
130: movtwh %r8,%r1
131: MULH2 %r1,0(%r0)
132: movtwh %r8,%r0
133: MULH2 %r0,0(%r7)
134: movw 0(%ap),%r0
135: jmp .L34
136: .L34:
137: .def .ef; .val .; .scl 101; .line 6; .endef
138: .ln 6
139: .set .F5,0
140: .set .R5,2
141: ret &.R5
142: .def mul; .val .; .scl -1; .endef
143: .data
144: .text
145: .align 4
146: .def rsubp; .val rsubp; .scl 2; .type 050; .endef
147: .globl rsubp
148: rsubp:
149: save &.R6
150: addw2 &.F6,%sp
151: movw %r2,0(%fp)
152: movaw 0(%ap),%r8
153: movaw 8(%ap),%r7
154: movw %r8,%r0
155: addw2 &2,%r8
156: movw %r7,%r1
157: addw2 &2,%r7
158: subh2 0(%r1),0(%r0)
159: movw %r8,%r0
160: addw2 &2,%r8
161: movw %r7,%r1
162: subw2 &2,%r7
163: subh2 0(%r1),0(%r0)
164: movw %r8,%r0
165: addw2 &2,%r8
166: movw %r7,%r1
167: addw2 &2,%r7
168: subh2 0(%r1),0(%r0)
169: subh2 0(%r7),0(%r8)
170: movw 0(%fp),%r1
171: movaw 0(%ap),%r0
172: movw 4(%r0),4(%r1)
173: movw 0(%r0),0(%r1)
174: jmp .L35
175: .L35:
176: .def .ef; .val .; .scl 101; .line 8; .endef
177: .ln 8
178: movw 0(%fp),%r0
179: .set .F6,4
180: .set .R6,2
181: ret &.R6
182: .def rsubp; .val .; .scl -1; .endef
183: .data
184: .text
185: .align 4
186: .def raddp; .val raddp; .scl 2; .type 050; .endef
187: .globl raddp
188: raddp:
189: save &.R7
190: addw2 &.F7,%sp
191: movw %r2,0(%fp)
192: movaw 0(%ap),%r8
193: movaw 8(%ap),%r7
194: movw %r8,%r0
195: addw2 &2,%r8
196: movw %r7,%r1
197: addw2 &2,%r7
198: addh2 0(%r1),0(%r0)
199: movw %r8,%r0
200: addw2 &2,%r8
201: movw %r7,%r1
202: subw2 &2,%r7
203: addh2 0(%r1),0(%r0)
204: movw %r8,%r0
205: addw2 &2,%r8
206: movw %r7,%r1
207: addw2 &2,%r7
208: addh2 0(%r1),0(%r0)
209: addh2 0(%r7),0(%r8)
210: movw 0(%fp),%r1
211: movaw 0(%ap),%r0
212: movw 4(%r0),4(%r1)
213: movw 0(%r0),0(%r1)
214: jmp .L36
215: .L36:
216: .def .ef; .val .; .scl 101; .line 8; .endef
217: .ln 8
218: movw 0(%fp),%r0
219: .set .F7,4
220: .set .R7,2
221: ret &.R7
222: .def raddp; .val .; .scl -1; .endef
223: .data
224: .text
225: .align 4
226: .def eqpt; .val eqpt; .scl 2; .type 044; .endef
227: .globl eqpt
228: eqpt:
229: save &.R8
230: addw2 &.F8,%sp
231: movaw 0(%ap),%r8
232: movaw 4(%ap),%r7
233: cmpw 0(%r8),0(%r7)
234: jne .L39
235: movw &1,%r0
236: jmp .L40
237: .L39:
238: movw &0,%r0
239: .L40:
240: jmp .L38
241: .L38:
242: .def .ef; .val .; .scl 101; .line 4; .endef
243: .ln 4
244: .set .F8,0
245: .set .R8,2
246: ret &.R8
247: .def eqpt; .val .; .scl -1; .endef
248: .data
249: .text
250: .align 4
251: .def eqrect; .val eqrect; .scl 2; .type 044; .endef
252: .globl eqrect
253: eqrect:
254: save &.R9
255: addw2 &.F9,%sp
256: movaw 0(%ap),%r8
257: movaw 8(%ap),%r7
258: movw %r8,%r0
259: addw2 &4,%r8
260: movw %r7,%r1
261: addw2 &4,%r7
262: cmpw 0(%r0),0(%r1)
263: jne .L43
264: cmpw 0(%r8),0(%r7)
265: jne .L43
266: .L45:
267: movw &1,%r0
268: jmp .L44
269: .L43:
270: movw &0,%r0
271: .L44:
272: jmp .L42
273: .L42:
274: .def .ef; .val .; .scl 101; .line 4; .endef
275: .ln 4
276: .set .F9,0
277: .set .R9,2
278: ret &.R9
279: .def eqrect; .val .; .scl -1; .endef
280: .data
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.