|
|
1.1 root 1: #
2: # Copyright (c) 1979 Regents of the University of California
3: #
4: # char sccsid[] = "@(#)20con.s 4.1 10/10/80";
5: #
6: # CONOPS
7: #
8: _CON1:
9: cvtbw (r10)+,-(sp)
10: jmp (r8)
11: _CON14:
12: cvtbl (r10)+,-(sp)
13: jmp (r8)
14: _CON2:
15: incl r10
16: movw (r10)+,-(sp)
17: jmp (r8)
18: _CON24:
19: incl r10
20: cvtwl (r10)+,-(sp)
21: jmp (r8)
22: _CON4:
23: incl r10
24: pushl (r10)+
25: jmp (r8)
26: _CON8:
27: incl r10
28: movd (r10)+,-(sp)
29: jmp (r8)
30: _CON:
31: cvtbl (r10)+,r0
32: bneq l2001
33: movzwl (r10)+,r0 #r0 has length to be moved
34: l2001:
35: movl r10,r1 #r1 has addr of data to be moved
36: movl r0,r2 #r2 has length of stack space
37: blbc r2,l2002
38: incl r2
39: l2002:
40: subl2 r2,sp #allocate stack space
41: addl2 r2,r10 #advance over data
42: movc5 r0,(r1),$0,r2,(sp) #move string to stack
43: jmp (r8)
44: _LVCON:
45: cvtbl (r10)+,r0 #r0 has literal string length
46: bneq l2003
47: movzwl (r10)+,r0
48: l2003:
49: pushl r10 #address of literal
50: addl2 r0,r10 #jump over literal
51: jmp (r8)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.