|
|
1.1 root 1: .globl _coswitc
2: .text
3: _coswitc:
4: jsr r5,csv
5: jbr L1
6: L2:
7: mov 4(r5),r0
8: mov 6(r5),r1
9: mov sp,(r0)
10: mov r5,2(r0)
11: mov r2,4(r0)
12: mov r3,6(r0)
13: mov r4,8.(r0)
14: tst 10(r5)
15: jne L4
16: mov (r1),sp
17: clr r5
18: clr (sp)
19: clr -(sp)
20: jsr pc,*$_interp
21: tst (sp)+
22: mov $L5,(sp)
23: jsr pc,*$_syserr
24: jbr L6
25: L4:
26: mov (r1),sp
27: mov 2(r1),r5
28: mov 4(r1),r2
29: mov 6(r1),r3
30: mov 8.(r1),r4
31: L6:L3: jmp cret
32: L1: jbr L2
33: .globl
34: .data
35: L5:.byte 151,156,164,145,162,160,50,51,40,162,145,164,165,162
36: .byte 156,145,144,40,151,156,40,143,157,163,167,151,164,143,150,0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.