|
|
1.1 root 1: #
2: # Copyright (c) 1979 Regents of the University of California
3: #
4: # char sccsid[] = "@(#)14neg.s 4.1 10/10/80";
5: #
6: # NEGATION & ABSOLUTE VALUE
7: #
8: _NEG2:
9: incl r10
10: cvtwl (sp)+,r0
11: l1401:
12: mnegl r0,-(sp)
13: jmp (r8)
14: _ABS2:
15: _ABS4:
16: incl r10
17: tstl (sp)
18: jgeq l1402
19: mnegl (sp),(sp)
20: l1402:
21: jmp (r8)
22: _NEG4:
23: incl r10
24: mnegl (sp),(sp)
25: jmp (r8)
26: _ABS8:
27: incl r10
28: tstd (sp)
29: jgeq l1403
30: mnegd (sp),(sp)
31: l1403:
32: jmp (r8)
33: _NEG8:
34: incl r10
35: mnegd (sp),(sp)
36: jmp (r8)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.