|
|
1.1 root 1: #
2: # Copyright (c) 1979 Regents of the University of California
3: #
4: # char sccsid[] = "@(#)04as.s 4.1 10/10/80";
5: #
6: # ASSIGNMENT OPERATORS
7: #
8: _AS2:
9: incl r10
10: movw (sp)+,*(sp)+
11: jmp (r8)
12: _AS24:
13: incl r10
14: cvtwl (sp)+,*(sp)+
15: jmp (r8)
16: _AS42:
17: incl r10
18: cvtlw (sp)+,*(sp)+
19: jmp (r8)
20: _AS4:
21: incl r10
22: movl (sp)+,*(sp)+
23: jmp (r8)
24: _AS21:
25: incl r10
26: cvtwb (sp)+,*(sp)+
27: jmp (r8)
28: _AS41:
29: incl r10
30: cvtlb (sp)+,*(sp)+
31: jmp (r8)
32: _AS28:
33: incl r10
34: cvtwd (sp)+,*(sp)+
35: jmp (r8)
36: _AS48:
37: incl r10
38: cvtld (sp)+,*(sp)+
39: jmp (r8)
40: _AS8:
41: incl r10
42: movd (sp)+,*(sp)+
43: jmp (r8)
44: _AS:
45: cvtbl (r10)+,r0
46: bneq l0401
47: movzwl (r10)+,r0 #r0 has data length in bytes
48: l0401:
49: addl3 sp,r0,r6 #r6 points to destination addr
50: blbc r6,l0402 #adjust for word boundry
51: incl r6
52: l0402:
53: movc3 r0,(sp),*(r6)+ #move data from stack to dest
54: movl r6,sp #update stack pointer
55: jmp (r8)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.