Commit | Line | Data |
---|---|---|
69f28986 KT |
1 | " S1 |
2 | ||
3 | .. = 0 | |
4 | t = 0 | |
5 | orig: | |
6 | hlt | |
7 | jmp pibreak | |
8 | ||
9 | . = orig+7 | |
10 | -1 | |
11 | ||
12 | . = orig+020 | |
13 | 1f | |
14 | iof | |
15 | dac u.ac | |
16 | lac 020 | |
17 | dac 1f | |
18 | lac 1f-1 | |
19 | dac 020 | |
20 | lac u.ac | |
21 | jmp 1f+1 | |
22 | 1f | |
23 | 1: 0 | |
24 | iof | |
25 | dac u.ac | |
26 | lacq | |
27 | dac u.mq | |
28 | lac 8 | |
29 | dac u.rq | |
30 | lac 9 | |
31 | dac u.rq+1 | |
32 | jms copy; 10; u.rq+2; 6 | |
33 | lac 1b | |
34 | dac u.rq+8 | |
35 | -1 | |
36 | dac .savblk | |
37 | dac .insys | |
38 | lac uquant | |
39 | jms betwen; d0; maxquant | |
40 | jms swap | |
41 | ion | |
42 | -1 | |
43 | tad u.rq+8 | |
44 | jms laci | |
45 | jms betwen; o20001; swn | |
46 | jmp badcal | |
47 | tad swp | |
48 | dac .+1 | |
49 | jmp .. i | |
50 | ||
51 | . = orig+0100 | |
52 | jmp coldentry | |
53 | jms halt | |
54 | ||
55 | okexit: | |
56 | dzm u.ac | |
57 | sysexit: | |
58 | ion | |
59 | lac .savblk | |
60 | sza | |
61 | jmp 1f | |
62 | jms copy; sysdata; dskbuf; 64 | |
63 | cla | |
64 | jms dskio; 07000 | |
65 | 1: | |
66 | dzm .insys | |
67 | jms chkint | |
68 | skp | |
69 | jmp .save | |
70 | jms copy; u.rq+2; 10; 6 | |
71 | lac u.rq+1 | |
72 | dac 9 | |
73 | lac u.rq | |
74 | dac 8 | |
75 | lac u.mq | |
76 | lmq | |
77 | lac u.ac | |
78 | jmp u.rq+8 i | |
79 | ||
80 | swap: 0 | |
81 | ion | |
82 | 1: | |
83 | jms lookfor; 3 " out/ready | |
84 | jmp 1f | |
85 | jms lookfor; 1 " in/ready | |
86 | skp | |
87 | jmp 1b | |
88 | dzm maxquant | |
89 | jmp 3f | |
90 | 1: | |
91 | dac 9f+t | |
92 | jms lookfor; 2 " in/notready | |
93 | jmp 1f | |
94 | jms lookfor; 1 " in/ready | |
95 | jmp 1f | |
96 | jmp 2f | |
97 | 1: | |
98 | lac swap | |
99 | dac u.swapret | |
100 | iof | |
101 | lac o200000 | |
102 | tad u.ulistp i | |
103 | dac u.ulistp i | |
104 | ion | |
105 | jms dskswap; 07000 | |
106 | lac u.dspbuf | |
107 | sna | |
108 | jmp 2f | |
109 | law dspbuf | |
110 | jms movdsp | |
111 | 2: | |
112 | iof | |
113 | lac o600000 | |
114 | tad 9f+t i | |
115 | dac 9f+t i | |
116 | ion | |
117 | jms dskswap; 06000 | |
118 | lac u.swapret | |
119 | dac swap | |
120 | lac o20 | |
121 | dac maxquant | |
122 | lac u.dspbuf | |
123 | sza | |
124 | jms movdsp | |
125 | 3: | |
126 | dzm uquant | |
127 | iof | |
128 | jmp swap i | |
129 | t = t+1 | |
130 | ||
131 | swp: | |
132 | jmp . | |
133 | .save; .getuid; .open; .read; .write; .creat; .seek; .tell | |
134 | .close; .link; .unlink; .setuid; .rename; .exit; .time; .intrp | |
135 | .chdir; .chmod; .chown; badcal; .sysloc; badcal; .capt; .rele | |
136 | .status; badcal; .smes; .rmes; .fork | |
137 | swn: | |
138 | .-swp-1 i | |
139 | ||
140 | .intrp: | |
141 | lac u.ac | |
142 | dac u.intflg | |
143 | jmp okexit | |
144 | ||
145 | .sysloc: | |
146 | lac u.ac | |
147 | and o17777 | |
148 | jms betwen; d1; locn | |
149 | jms error | |
150 | tad locsw | |
151 | dac .+1 | |
152 | lac .. | |
153 | dac u.ac | |
154 | jmp sysexit | |
155 | ||
156 | locsw: | |
157 | lac . | |
158 | iget; inode; userdata; sysdata; copy; copyz; betwen; dskrd | |
159 | dskwr; dskbuf; dpdata; namei; pbsflgs; alloc; free; dspdata | |
160 | crdata | |
161 | locn: | |
162 | .-locsw-1 | |
163 | ||
164 | chkint: 0 | |
165 | lac .insys | |
166 | sza | |
167 | jmp chkint i | |
168 | lac .int1 | |
169 | sna | |
170 | jmp 1f | |
171 | sad u.ofiles+2 | |
172 | jmp 2f | |
173 | 1: | |
174 | lac .int2 | |
175 | sna | |
176 | jmp chkint i | |
177 | sad u.ofiles+2 | |
178 | skp | |
179 | jmp chkint i | |
180 | dzm .int2 | |
181 | jmp 1f | |
182 | 2: | |
183 | dzm .int1 | |
184 | 1: | |
185 | lac u.intflg | |
186 | sza | |
187 | jmp chkint i | |
188 | -1 | |
189 | dac .insys | |
190 | ion | |
191 | isz chkint | |
192 | jmp chkint i | |
193 |