|
|
1.1 root 1: #
2: # Copyright (c) 1979 Regents of the University of California
3: #
4: # char sccsid[] = "@(#)18rv.s 4.1 10/10/80";
5: #
6: # LVALUES and RVALUES
7: #
8: _LV:
9: cvtbl (r10)+,r0
10: cvtwl (r10)+,r1
11: addl3 _display(r0),r1,-(sp)
12: jmp (r8)
13: _LLV:
14: cvtbl (r10)+,r0
15: addl3 _display(r0),(r10)+,-(sp)
16: jmp (r8)
17: _RV1:
18: cvtbl (r10)+,r0
19: cvtwl (r10)+,r1
20: addl2 _display(r0),r1
21: cvtbw (r1),-(sp)
22: jmp (r8)
23: _LRV1:
24: cvtbl (r10)+,r0
25: addl3 _display(r0),(r10)+,r1
26: cvtbw (r1),-(sp)
27: jmp (r8)
28: _RV14:
29: cvtbl (r10)+,r0
30: cvtwl (r10)+,r1
31: addl2 _display(r0),r1
32: cvtbl (r1),-(sp)
33: jmp (r8)
34: _LRV14:
35: cvtbl (r10)+,r0
36: addl3 _display(r0),(r10)+,r1
37: cvtbl (r1),-(sp)
38: jmp (r8)
39: _RV2:
40: cvtbl (r10)+,r0
41: cvtwl (r10)+,r1
42: addl2 _display(r0),r1
43: movw (r1),-(sp)
44: jmp (r8)
45: _LRV2:
46: cvtbl (r10)+,r0
47: addl3 _display(r0),(r10)+,r1
48: movw (r1),-(sp)
49: jmp (r8)
50: _RV24:
51: cvtbl (r10)+,r0
52: cvtwl (r10)+,r1
53: addl2 _display(r0),r1
54: cvtwl (r1),-(sp)
55: jmp (r8)
56: _LRV24:
57: cvtbl (r10)+,r0
58: addl3 _display(r0),(r10)+,r1
59: cvtwl (r1),-(sp)
60: jmp (r8)
61: _RV4:
62: cvtbl (r10)+,r0
63: cvtwl (r10)+,r1
64: addl2 _display(r0),r1
65: pushl (r1)
66: jmp (r8)
67: _LRV4:
68: cvtbl (r10)+,r0
69: addl3 _display(r0),(r10)+,r1
70: pushl (r1)
71: jmp (r8)
72: _RV8:
73: cvtbl (r10)+,r0
74: cvtwl (r10)+,r1
75: addl2 _display(r0),r1
76: movq (r1),-(sp)
77: jmp (r8)
78: _LRV8:
79: cvtbl (r10)+,r0
80: addl3 _display(r0),(r10)+,r1
81: movq (r1),-(sp)
82: jmp (r8)
83: _RV:
84: cvtbl (r10)+,r0
85: cvtwl (r10)+,r1
86: addl2 _display(r0),r1 #r1 points to string o be moved
87: movzwl (r10)+,r0 #r0 has length of string to be moved
88: movl r0,r2 #r2 has length of stack space
89: blbc r2,l1801 #adjust r2 to word boundry
90: incl r2
91: l1801:
92: subl2 r2,sp #allocate stack space
93: movc5 r0,(r1),$0,r2,(sp) #move string to stack
94: jmp (r8)
95: _LRV:
96: cvtbl (r10)+,r0
97: addl3 _display(r0),(r10)+,r1 #r1 points to string to be moved
98: movzwl (r10)+,r0 #r0 has length of string to be moved
99: movl r0,r2 #r2 has length of stack space
100: blbc r2,l1802 #adjust r2 to word boundry
101: incl r2
102: l1802:
103: subl2 r2,sp #allocate stack space
104: movc5 r0,(r1),$0,r2,(sp) #move string to stack
105: jmp (r8)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.