|
|
1.1 root 1: #
2: # Copyright (c) 1979 Regents of the University of California
3: #
4: # char sccsid[] = "@(#)17ind.s 4.1 10/10/80";
5: #
6: # INDS
7: #
8: _IND1:
9: incl r10
10: cvtbw *(sp)+,-(sp)
11: jmp (r8)
12: _IND14:
13: incl r10
14: cvtbl *(sp)+,-(sp)
15: jmp (r8)
16: _IND2:
17: incl r10
18: movw *(sp)+,-(sp)
19: jmp (r8)
20: _IND24:
21: incl r10
22: cvtwl *(sp)+,-(sp)
23: jmp (r8)
24: _IND4:
25: incl r10
26: pushl *(sp)+
27: jmp (r8)
28: _IND8:
29: incl r10
30: movq *(sp)+,-(sp)
31: jmp (r8)
32: _IND:
33: movl (sp)+,r1
34: cvtbl (r10)+,r0
35: jneq l1701
36: movzwl (r10)+,r0
37: l1701:
38: movl r0,r2 #r2 has length of stack space
39: blbc r2,l1702 #adjust r2 to word boundry
40: incl r2
41: l1702:
42: subl2 r2,sp #allocate stack space
43: movc5 r0,(r1),$0,r2,(sp) #move string to stack
44: jmp (r8)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.