OpenCores
URL https://opencores.org/ocsvn/i650/i650/trunk

Subversion Repositories i650

[/] [i650/] [trunk/] [utils/] [ibm650_soap2/] [ibm650_soap2/] [soap2.txt] - Blame information for rev 29

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 29 eightycc 
                                        1            SOAP 2
2 
                                        1
3 
                                        1 SYMBOLIC OPTIMAL ASSEMBLY PROG
4 
                                        1
5 
                                        1           FOR   THE
6 
                                        1
7 
                                        1           IBM   650
8 
                                        1
9 
                                        1     DATA PROCESSING SYSTEM
10 
                                        1
11 
                                        1
12 
                                               REGS0000  0399 SYMBOL TAB
13 
                                               REGE0400  0599 EQUIV TABL
14 
                                               REGA0600  0799 AVAIL TABL
15 
                                               REGN0800  0899 NUM OP TAB
16 
                                               BLR 1000  1000 ENTRY
17 
                                               BLR 1001  1012 PSEUDO ENT
18 
                                               BLR 1021  1049 REG TABLE
19 
                                               REGC1050  1164 SYM OP TAB
20 
                                               BLA 1098  1099
21 
                                               BLA 1148  1149
22 
                                               BLR 1900  1900 MANUAL PAT
23 
                                               SYNREADC  1950
24 
                                               BLR 1951  1962 READ AREA
25 
                                               REGT1990  1992 TYPE
26 
                                               REGP1977  1986 PUNCH AREA
27 
                                               BLR 1998  1999
28 
                                               EQUXXXX1  1961
29 
                                               EQUXXXX2  1962
30 
                                               BLR 1563  1570 TYPE2
31 
                                               BLA 1565  1565
32 
                                               BLA 1569  1569
33 
                                               REGB0900  0901 SUB 2
34 
                                               REGH0902  0904 TYPE 2
35 
                                               REGM0905  0907
36 
                                               REGQ0908  0909
37 
                                               REGR1200  1207 SUB 5
38 
                                               REGU1250  1259 SUB 13
39 
                                               REGV0910  0912 EQU SYN
40 
                                               REGX0913  0914 TYPE O
41 
                                               REGY0915  0916 EQU SYN
42 
                                               REGZ0917  0919
43 
                                               REGW0920  0922
44 
                                               BLR 0923  0968 MULTIPLE R
45 
                                               REGI1300  1307 SUB13
46 
                                        1
47 
                                        1 CONTROL PROGRAM
48 
                                        1
49 
                                           1000LDDREADC SUB16 ENTRY
50 
                                        1
51 
                                          READCRCD 1999  1998 READ CARD
52 
                                           1998LDD 1951       TRANSFER
53 
                                               STDP0001       ALPHABETIC
54 
                                               LDD 1952       INPUT
55 
                                               STDP0002       TO
56 
                                               LDD 1953       OUTPUT
57 
                                               STDP0003
58 
                                               LDD 1954
59 
                                               STDP0004
60 
                                               LDD 1955
61 
                                               STDP0005
62 
                                               LDD 1956
63 
                                               STDP0006
64 
                                               RALP0009       STEP
65 
                                               ALO1IXXX       CARD
66 
                                               STLP0009       NUMBER
67 
                                               RAU 1960       STORE
68 
                                               SRT 0002       CONTROL
69 
                                               STUP0008       INFO
70 
                                               AUPTORG
71 
                                               STLP0010  8003 TRANSFER
72 
                                           8003NOP 0000  9999 TO TYPE
73 
                                        1
74 
                                          PUNCHPCHP0001 READC PUNCH READ
75 
                                        1
76 
                                          SETCCRAUREADC SUB10 SUDO EXIT
77 
                                        1
78 
                                        1
79 
                                           1900LDDREADC SUB14 MANUAL PAT
80 
                                        1
81 
                                        1
82 
                                          T0001LDDX     SUBR3 TYPE 0
83 
                                        1
84 
                                          X0001LDD      PROCL 650
85 
                                               LDD      PROCD COMMAND OR
86 
                                               LDDPUNCH PROCI CONSTANTS
87 
                                        1
88 
                                          X0002NOP 0000  8003 PSEUDO OP
89 
                                        1
90 
                                          T0002RAUREADC SUB10 TYPE 1 COM
91 
                                        1
92 
                                          X     00 0000 X0001
93 
                                        1
94 
                                        1 RELOCATE ROUTINE
95 
                                        1
96 
                                               HEDT
97 
                                          T0003LDDQ     SUBR3 PROCESS OP
98 
                                          Q0002NOP 0000 ILLOP ILLEGAL OP
99 
                                          Q0001RAL 1951       IS L FIXED
100 
                                               SLT 0002
101 
                                               NZU      REL
102 
                                               RAU 1957       FIXED L
103 
                                               SUP2000I       DRUM CORE
104 
                                               BMI      FC
105 
                                               AUP 8001 RES   FIXED DRUM
106 
                                          FC   RAL 1957 SETL  FIXED CORE
107 
                                          SR   RALXXXX1 SETL  SET L
108 
                                          SETL SLT 0004
109 
                                               LDDP0008
110 
                                               SDAP0008 PROD
111 
                                          REL  RAU 1957       DRUM CORE
112 
                                               SUP2000I
113 
                                               BMI      RC
114 
                                               AUPDDIFF       RELOCATE
115 
                                               BMI      BL    DRUM ADDR
116 
                                               AUP2000I RES
117 
                                          RES  STUXXXX1
118 
                                               LDDSR    SUB2R RESERVE L
119 
                                          RC   RAL 1957       RELOCATE
120 
                                               ALOCDIFF       CORE
121 
                                               SLO9060
122 
                                               BMI      BL
123 
                                               ALO 8001 SETL
124 
                                          BL   RAUPROD  SUB12 BLANK L
125 
                                        1
126 
                                               REGJ0944  0944 D TYPE 2
127 
                                               REGG0941  0941
128 
                                        1
129 
                                          PROD LDDPROI        SET D EXIT
130 
                                               STDEXITX
131 
                                               RAU 1952       WHAT IS d
132 
                                               LDDH     SUBR4
133 
                                          H0001RAL 1958       RELOCATE
134 
                                               SLO2000I       D OR C
135 
                                               BMI 1564  1563
136 
                                          H0002SRT 0008       C D OR F
137 
                                               AUP1500   8003
138 
                                           1563RALCDIFF CDD   C
139 
                                           1564RALDDIFF CDD   D
140 
                                           1566RAL 1958 J0001 F
141 
                                          CDD  ALO 1958 J0001
142 
                                          H0003NOP 0000 G0003 SYMBOLIC
143 
                                        1
144 
                                               REGJ0960  0960 I
145 
                                               REGF0955  0955
146 
                                        1
147 
                                          PROI LDDPUNCH       SET I EXIT
148 
                                               STDEXITX
149 
                                               RAU 1953       WHAT IS I
150 
                                               LDDM     SUBR4
151 
                                          M0001RAL 1959       RELOCATE
152 
                                               SLO2000I       D OR C
153 
                                               BMI 1568  1567
154 
                                          M0002SRT 0008       C D OR F
155 
                                               AUP1504   8003
156 
                                           1567RALCDIFF CDI   C
157 
                                           1568RALDDIFF CDI   D
158 
                                           1570RAL 1959 J0001 F
159 
                                          CDI  ALO 1959 J0001
160 
                                          M0003NOP 0000 F0003 SYMBOLIC
161 
                                        1
162 
                                          Q     00 0000 Q0001 CONSTANTS
163 
                                          9060  00 0000  9060
164 
                                          H     00 0000 H0001
165 
                                          1500  00 0000  1500
166 
                                          M     00 0000 M0001
167 
                                          1504  00 0000  1504
168 
                                          XXXX1 01 0000 XXXX1 ERASEABLE
169 
                                        1
170 
                                        1 BOP ROUTINE
171 
                                        1
172 
                                           1001LDD      SUB16 INITIALIZE
173 
                                               RAUREADC SUB10 PUNCH
174 
                                        1
175 
                                        1 BLR ROUTINE
176 
                                        1
177 
                                           1002RAL 1959 BLR   RESERVE
178 
                                          BLR  SLO 1958       FWA TO
179 
                                               AUP 8001       LWA
180 
                                               LDDSETCC SUB2R
181 
                                        1
182 
                                        1 RBR ROUTINE
183 
                                        1
184 
                                           1012RAUDDIFF
185 
                                               ALO 1959 BLR
186 
                                        1
187 
                                        1 BLA ROUTINE
188 
                                        1
189 
                                           1003LDDH8XXX       SET DRUM
190 
                                               STDDRUMT       TAG TO 8
191 
                                               RAL 1959       UNRESERVE
192 
                                               SLO 1958       FWA
193 
                                               AUP 8001       TO
194 
                                               LDDSETCC SUB2U LWA
195 
                                        1
196 
                                        1 REG ROUTINE
197 
                                        1
198 
                                               HEDR
199 
                                           1004RAL 1952       IS
200 
                                               SRT 0008       REGION
201 
                                               SLO90XXX       CHARACTER
202 
                                               BMI       1002 ALPHBETIC
203 
                                               ALO29XXX
204 
                                               BMI 1002
205 
                                               SLT 0004       STORE
206 
                                               ALOST          REGION
207 
                                               AUP 1958       ORIGIN
208 
                                               AUPH9XXX  8002
209 
                                           8002STU 9999  1002
210 
                                        1
211 
                                          ST   STU 1021  1002 CONSTANTS
212 
                                               HED
213 
                                        1
214 
                                        1 EQU REQ AND SYN ROUTINE
215 
                                        1
216 
                                               HEDZ
217 
                                           1005LDDH8XXX BOTH  EQU
218 
                                           1006LDDH9XXX BOTH  SYN
219 
                                          BOTH STDTAG
220 
                                               RAU 1953       WHAT IS I
221 
                                               LDDZ     SUBR4
222 
                                          Z0001RAL 1959 Y0001 ABSOLUTE
223 
                                          Z0002LDDY     SUBR9 REGIONAL
224 
                                          Y0001STLE     TD
225 
                                          Y0002RALP0010 BP    REG ERROR
226 
                                          Z0003LDDW     SUBR6 SYMBOLIC
227 
                                          W0001RALEQUIV Y0001 S DEFINED
228 
                                          W0002RALP0010 BP    S UNDEFIND
229 
                                          W0003RALP0010 BP    S TAB FULL
230 
                                        1
231 
                                          TD   RAU 1952       HEAD D
232 
                                               LDD      SUB15 AND EQUATE
233 
                                               LDDV     SUBR6 TO E
234 
                                          V0003RALP0010 BP    S TAB FULL
235 
                                          V0001ALOE     SD
236 
                                          V0002ALOE     SD
237 
                                          SD   LDDTT    SUBR7
238 
                                        1
239 
                                          TT   LDDTAG         TEST TAG
240 
                                               BDOSETCC
241 
                                               RAUE           RESERVE E
242 
                                               LDDSETCC SUB2R
243 
                                        1
244 
                                           1011LDDH8XXX       REQ
245 
                                               STDTAG         ROUTINE
246 
                                               RAL 1959       IS I
247 
                                               SLO2000I       DRUM O COR
248 
                                               BMID
249 
                                               ALOCDIFF CD
250 
                                          D    ALODDIFF CD
251 
                                          CD   ALO2000I Y0001
252 
                                        1
253 
                                          Z     00 0000 Z0001 CONSTANTS
254 
                                          Y     00 0089 Y0001
255 
                                          W     00 0000 W0001
256 
                                          V     00 0000 V0001
257 
                                          88    00 8800  0000
258 
                                        1
259 
                                          BP   ALO88          BY PASS
260 
                                               STLP0010 PUNCH
261 
                                        1
262 
                                          TAG   01 0000 TAG   ERASEABLE
263 
                                          E     01 0000 E
264 
                                               HED
265 
                                        1
266 
                                        1 ALF ROUTINE
267 
                                        1
268 
                                           1007LDD      PROCL PROCES LOC
269 
                                               LDD 1952
270 
                                               STDP0007
271 
                                               RAL 1953       REPLACE
272 
                                               NZEPUNCH       BLANK I
273 
                                               LDDSOAP2       BY
274 
                                               STDP0003 PUNCH SOAP2
275 
                                          SOAP2ALFSOAP2 SOAP2 CONSTANT
276 
                                        1
277 
                                        1 PAT ROUTINE
278 
                                        1
279 
                                           1008RAU      SUB10
280 
                                               LDDREADC SUB14
281 
                                        1
282 
                                        1 HED ROUTINE
283 
                                        1
284 
                                           1009RAL 1952       STORE
285 
                                               SRT 0008       HEADING
286 
                                               STL0000H SETCC CHARACTER
287 
                                        1
288 
                                        1 REL ROUTINE
289 
                                        1
290 
                                               HEDM
291 
                                           1010RAL 1952       SET
292 
                                               NZE      SDD   DRUM
293 
                                               RAL 1958 SDD   AND
294 
                                          SDD  STLDDIFF       CORE
295 
                                               RAL 1953       DELTAS
296 
                                               NZE      SCD
297 
                                               RAL 1959 SCD
298 
                                          SCD  STLCDIFF SETCC
299 
                                        1
300 
                                          DDIFF 01 0000 DDIFF ERASEABLE
301 
                                          CDIFF 01 0000 CDIFF
302 
                                               HED
303 
                                        1
304 
                                        1 LOAD AVAILABILITY TABLE
305 
                                        1
306 
                                               HEDL
307 
                                           1999RAL 1951       CALC
308 
                                               SRT 0004       LOC
309 
                                               SLT 0004       W2
310 
                                               ALO 8002
311 
                                               ALO 8002
312 
                                               ALOC1
313 
                                               AUPC2     8003
314 
                                           8003LDD 9995  8002 LOAD
315 
                                           8002STD 9994 TUP   TABLE
316 
                                          TUP  SUPTW
317 
                                               NZU      READC
318 
                                               AUPTWP2
319 
                                               ALO1DXXX  8003
320 
                                        1
321 
                                          C1   STDA0001 TUP   CONSTANTS
322 
                                          C2   LDD 1952  8002
323 
                                          TW   LDD 1958  8002
324 
                                          TWP2 LDD 1960  8002
325 
                                               HED
326 
                                        1
327 
                                        1 OPTIMIZING TABLE
328 
                                        1
329 
                                          N0001 00 0404  0998 NOP
330 
                                          N0002 00 0404  0998 HLT
331 
                                          N0003 33 2322  0999 UFA
332 
                                          N0004 00 0505  0998 RTC
333 
                                          N0005 00 0505  0998 RTN
334 
                                          N0006 00 0505  0998 RTA
335 
                                          N0007 00 0505  0998 WTN
336 
                                          N0008 00 0505  0998 WTA
337 
                                          N0009 33 1212  0999 LIB
338 
                                          N0010 33 0202  0999 LDI
339 
                                          N0011 33 0504  0999 AUP
340 
                                          N0012 33 0504  0999 SUP
341 
                                          N0013 99 9999  9999 NOT USED
342 
                                          N0014 99 9999  9999 NOT USED
343 
                                          N0015 33 1110  0999 DIV
344 
                                          N0016 33 0504  0999 ALO
345 
                                          N0017 33 0504  0999 SLO
346 
                                          N0018 33 0504  0999 AML
347 
                                          N0019 33 0504  0999 SML
348 
                                          N0020 33 2120  0999 MPY
349 
                                          N0021 54 0303  0999 STL
350 
                                          N0022 45 0303  0999 STU
351 
                                          N0023 34 0303  0999 SDA
352 
                                          N0024 34 0303  0999 SIA
353 
                                          N0025 33 0303  0999 STD
354 
                                          N0026 44 0505  0998 NTS
355 
                                          N0027 00 0505  0998 BIN
356 
                                          N0028 00 0505  0998 SET
357 
                                          N0029 33 1212  0999 SIB
358 
                                          N0030 33 0202  0999 STI
359 
                                          N0031 00 0000  0988 SRT
360 
                                          N0032 00 0000  0888 SRD
361 
                                          N0033 33 2726  0999 FAD
362 
                                          N0034 33 2726  0999 FSB
363 
                                          N0035 33 0000  0999 FDV
364 
                                          N0036 00 0000  0988 SLT
365 
                                          N0037 00 0000  0988 SCT
366 
                                          N0038 33 2726  0999 FAM
367 
                                          N0039 33 2726  0999 FSM
368 
                                          N0040 33 0000  0999 FMP
369 
                                          N0041 33 0404  0998 NZA
370 
                                          N0042 33 0404  0998 BMA
371 
                                          N0043 33 0404  0998 NZB
372 
                                          N0044 33 0404  0998 BMB
373 
                                          N0045 34 0405  0998 NZU
374 
                                          N0046 43 0504  0998 NZE
375 
                                          N0047 33 0404  0998 BMI
376 
                                          N0048 33 0505  0998 BOV
377 
                                          N0049 33 0404  0998 NZC
378 
                                          N0050 33 0404  0998 BMC
379 
                                          N0051 00 0000  0898 AXA
380 
                                          N0052 00 0000  0898 SXA
381 
                                          N0053 00 0000  0898 AXB
382 
                                          N0054 00 0000  0898 SXB
383 
                                          N0055 44 0505  0998 NEF
384 
                                          N0056 00 0505  0998 RWD
385 
                                          N0057 00 0505  0998 WTM
386 
                                          N0058 00 0505  0998 BST
387 
                                          N0059 00 0000  0898 AXC
388 
                                          N0060 00 0000  0898 SXC
389 
                                          N0061 33 0504  0999 RAU
390 
                                          N0062 33 0504  0999 RSU
391 
                                          N0063 99 9999  9999 NOT USED
392 
                                          N0064 99 9999  9999 NOT USED
393 
                                          N0065 33 1110  0999 DVR
394 
                                          N0066 33 0504  0999 RAL
395 
                                          N0067 33 0504  0999 RSL
396 
                                          N0068 33 0504  0999 RAM
397 
                                          N0069 33 0504  0999 RSM
398 
                                          N0070 33 0303  0999 LDD
399 
                                          N0071 00 0000  0999 RD1
400 
                                          N0072 00 0000  0999 WR1
401 
                                          N0073 00 0000  0999 RC1
402 
                                          N0074 00 0000  0999 RD2
403 
                                          N0075 00 0000  0999 WR2
404 
                                          N0076 00 0000  0999 RC2
405 
                                          N0077 00 0000  0999 RD3
406 
                                          N0078 00 0000  0999 WR3
407 
                                          N0079 00 0000  0999 RC3
408 
                                          N0080 00 0505  0999 RPY
409 
                                          N0081 00 0000  0898 RAA
410 
                                          N0082 00 0000  0898 RSA
411 
                                          N0083 00 0000  0898 RAB
412 
                                          N0084 00 0000  0898 RSB
413 
                                          N0085 33 0506  0999 TLU
414 
                                          N0086 00 0606  0998 SDA
415 
                                          N0087 00 0606  0998 RDS
416 
                                          N0088 00 0606  0998 WDS
417 
                                          N0089 00 0000  0898 RAC
418 
                                          N0090 00 0000  0898 RSC
419 
                                          N0091 44 0505  0998 BD0
420 
                                          N0092 33 0505  0998 BD1
421 
                                          N0093 33 0505  0998 BD2
422 
                                          N0094 33 0505  0998 BD3
423 
                                          N0095 33 0505  0998 BD4
424 
                                          N0096 33 0505  0998 BD5
425 
                                          N0097 33 0505  0998 BD6
426 
                                          N0098 33 0505  0998 BD7
427 
                                          N0099 33 0505  0998 BD8
428 
                                          N0100 44 0505  0998 BD9
429 
                                        1
430 
                                        1 SYMBOLIC OP TABLE
431 
                                        1
432 
                                          C0001 61 7366  1007 ALF
433 
                                          C0002 61 7376  0015 ALO
434 
                                          C0003 61 7473  0017 AML
435 
                                          C0004 61 8477  0010 AUP
436 
                                          C0005 61 8761  0050 AXA
437 
                                          C0006 61 8762  0052 AXB
438 
                                          C0007 61 8763  0058 AXC
439 
                                          C0008 62 6476  0090 BD0
440 
                                          C0009 62 6491  0091 BD1
441 
                                          C0010 62 6492  0092 BD2
442 
                                          C0011 62 6493  0093 BD3
443 
                                          C0012 62 6494  0094 BD4
444 
                                          C0013 62 6495  0095 BD5
445 
                                          C0014 62 6496  0096 BD6
446 
                                          C0015 62 6497  0097 BD7
447 
                                          C0016 62 6498  0098 BD8
448 
                                          C0017 62 6499  0099 BD9
449 
                                          C0018 62 6975  0026 BIN
450 
                                          C0019 62 7361  1003 BLA
451 
                                          C0020 62 7379  1002 BLR
452 
                                          C0021 62 7461  0041 BMA
453 
                                          C0022 62 7462  0043 BMB
454 
                                          C0023 62 7463  0049 BMC
455 
                                          C0024 62 7469  0046 BMI
456 
                                          C0025 62 7677  1001 BOP
457 
                                          C0026 62 7685  0047 BOV
458 
                                          C0027 62 8283  0057 BST
459 
                                          C0028 64 6985  0014 DIV
460 
                                          C0029 64 8579  0064 DVR
461 
                                          C0030 65 7884  1005 EQU
462 
                                          C0031 66 6164  0032 FAD
463 
                                          C0032 66 6174  0037 FAM
464 
                                          C0033 66 6485  0034 FDV
465 
                                          C0034 66 7477  0039 FMP
466 
                                          C0035 66 8262  0033 FSB
467 
                                          C0036 66 8274  0038 FSM
468 
                                          C0037 68 6564  1009 HED
469 
                                          C0038 68 7383  0001 HLT
470 
                                          C0039 73 6464  0069 LDD
471 
                                          C0040 73 6469  0009 LDI
472 
                                          C0041 73 6962  0008 LIB
473 
                                          C0042 74 7788  0019 MPY
474 
                                          C0043 75 6566  0054 NEF
475 
                                          C0044 75 7677  0000 NOP
476 
                                          C0045 75 8382  0025 NTS
477 
                                          C0046 75 8961  0040 NZA
478 
                                          C0047 75 8962  0042 NZB
479 
                                          C0048 75 8963  0048 NZC
480 
                                          C0051 75 8965  0045 NZE
481 
                                          C0052 75 8984  0044 NZU
482 
                                          C0053 77 6183  1008 PAT
483 
                                          C0054 77 6368  0071 PCH
484 
                                          C0055 79 6161  0080 RAA
485 
                                          C0056 79 6162  0082 RAB
486 
                                          C0057 79 6163  0088 RAC
487 
                                          C0058 79 6173  0065 RAL
488 
                                          C0059 79 6174  0067 RAM
489 
                                          C0060 79 6184  0060 RAU
490 
                                          C0061 79 6279  1012 RBR
491 
                                          C0062 79 6364  0070 RCD
492 
                                          C0063 79 6391  0072 RC1
493 
                                          C0064 79 6392  0075 RC2
494 
                                          C0065 79 6393  0078 RC3
495 
                                          C0066 79 6482  0086 RDS
496 
                                          C0067 79 6491  0070 RD1
497 
                                          C0068 79 6492  0073 RD2
498 
                                          C0069 79 6493  0076 RD3
499 
                                          C0070 79 6567  1004 REG
500 
                                          C0071 79 6573  1010 REL
501 
                                          C0072 79 6578  1011 REQ
502 
                                          C0073 79 7788  0079 RPY
503 
                                          C0074 79 8261  0081 RSA
504 
                                          C0075 79 8262  0083 RSB
505 
                                          C0076 79 8263  0089 RSC
506 
                                          C0077 79 8273  0066 RSL
507 
                                          C0078 79 8274  0068 RSM
508 
                                          C0079 79 8284  0061 RSU
509 
                                          C0080 79 8361  0005 RTA
510 
                                          C0081 79 8363  0003 RTC
511 
                                          C0082 79 8375  0004 RTN
512 
                                          C0083 79 8664  0055 RWD
513 
                                          C0084 82 6383  0036 SCT
514 
                                          C0085 82 6461  0022 SDA
515 
                                          C0086 82 6482  0085 SDS
516 
                                          C0087 82 6583  0027 SET
517 
                                          C0088 82 6961  0023 SIA
518 
                                          C0089 82 6962  0028 SIB
519 
                                          C0090 82 7376  0016 SLO
520 
                                          C0091 82 7383  0035 SLT
521 
                                          C0092 82 7473  0018 SML
522 
                                          C0093 82 7964  0031 SRD
523 
                                          C0094 82 7983  0030 SRT
524 
                                          C0095 82 8364  0024 STD
525 
                                          C0096 82 8369  0029 STI
526 
                                          C0097 82 8373  0020 STL
527 
                                          C0098 82 8384  0021 STU
528 
                                          C0101 82 8477  0011 SUP
529 
                                          C0102 82 8761  0051 SXA
530 
                                          C0103 82 8762  0053 SXB
531 
                                          C0104 82 8763  0059 SXC
532 
                                          C0105 82 8875  1006 SYN
533 
                                          C0106 83 7384  0084 TLU
534 
                                          C0107 84 6661  0002 UFA
535 
                                          C0108 86 6482  0087 WDS
536 
                                          C0109 86 7991  0071 WR1
537 
                                          C0110 86 7992  0074 WR2
538 
                                          C0111 86 7993  0077 WR3
539 
                                          C0112 86 8361  0007 WTA
540 
                                          C0113 86 8374  0056 WTM
541 
                                          C0114 86 8375  0006 WTN
542 
                                          C0115 99 9999  0001 TABLE END
543 
                                        1
544 
                                        1 SUB 1 STORE IN FWA TO LWA
545 
                                        1
546 
                                               HED1
547 
                                          SUBR1STDEXITX       STORE EXIT
548 
                                               STUXXXX1       STORE K
549 
                                               LDDFWA         SET
550 
                                               SDAFWA         FWA
551 
                                               SLT 0004       LWA
552 
                                               SDAXXXX2       ADDRESSES
553 
                                               RAUFWA
554 
                                               ALOXXXX1  8003
555 
                                           8003STL 9999 NEXT  STORE K
556 
                                          NEXT SUPXXXX2       END OF
557 
                                               NZU      EXITX LOOP TEST
558 
                                               AUP 8001
559 
                                               AUP1DXXX  8003 STEP
560 
                                        1
561 
                                          FWA  STL 9998 NEXT  CONSTANTS
562 
                                          XXXX2 01 0000 XXXX2 ERASEABLE
563 
                                               HED
564 
                                        1
565 
                                        1 SUB 2 RESERVE UNRESERVE
566 
                                        1
567 
                                               HED2
568 
                                          B0002SLT 0009 XX
569 
                                          XX   STUUH
570 
                                               SLT 0001
571 
                                               RAL 8002
572 
                                               AUPW
573 
                                               SRT 0001
574 
                                               AUPUH    SPR
575 
                                          SPR  SRT 0009 SA
576 
                                          SA   STL 9983 B0001
577 
                                          B0001RALN           IS N ZERO
578 
                                               NZE      EXITY
579 
                                               SLO1I          REDUCE N
580 
                                               STLN           BY 1
581 
                                               RAUSA          IS AI
582 
                                               SUPA197        IN LAST
583 
                                               BMI      TP    BLOCK OF
584 
                                               AUPA201  SU    4
585 
                                        1
586 
                                          SUB2RSTDEXITY       RESERVE
587 
                                               LDDZ     RU    ENTRY
588 
                                          SUB2USTDEXITY       UNRESERVE
589 
                                               LDD1I    RU    ENTRY
590 
                                          TP   RALSPR         IS P 9
591 
                                               SLOC2
592 
                                               NZE      ZP
593 
                                               ALOC5          STEP P
594 
                                               LDDC1
595 
                                               SDAB0002
596 
                                               STLSPR
597 
                                               RAUSA          REDUCE AI
598 
                                               SUPC6    SU    BY 196
599 
                                        1
600 
                                          ZP   LDDC1          SET P
601 
                                               STDB0002       TO ZERO
602 
                                               LDDC7
603 
                                               STDSPR
604 
                                               RAUSA          REDUCE AI
605 
                                               SUPC8    SU    BY 195
606 
                                          RU   STDW           SET W
607 
                                               STLN           STORE N
608 
                                               SLO 8001       CALC AO
609 
                                               AUP 8003       AND PO
610 
                                               SRT 0003
611 
                                               STUX
612 
                                               SUP 8001
613 
                                               SLT 0001
614 
                                               STUP
615 
                                               SUP 8001
616 
                                               SLT 0002
617 
                                               AUP 8003
618 
                                               AUPX
619 
                                               ALOP
620 
                                               SLT 0004
621 
                                               ALOC1
622 
                                               STLB0002
623 
                                               LDDC2
624 
                                               SDASPR
625 
                                               AUPC3    SU
626 
                                          SU   STUSA
627 
                                               AUPC4     8003
628 
                                           8003RAL 9992 B0002
629 
                                        1
630 
                                          C1   SLT 0000 XX    CONSTANTS
631 
                                          C2   SRT 0009 SA
632 
                                          C3   STLA0001 B0001
633 
                                          C4    45 0000  0001
634 
                                          1I    00 0000  0001
635 
                                          A197 STLA0197 B0001
636 
                                          A201 STLA0201 B0001
637 
                                          C5   SRT 0010 SA
638 
                                          C6    00 0196  0000
639 
                                          C7   SRT 0000 SA
640 
                                          C8    00 0195  0000
641 
                                          Z     00 0000  0000
642 
                                          W     01 0000 W     ERASEABLE
643 
                                          N     01 0000 N
644 
                                          B0002 01 0000 B0002
645 
                                          SPR   01 0000 SPR
646 
                                          SA    01 0000 SA
647 
                                          UH    01 0000 UH
648 
                                          X     01 0000 X
649 
                                               HED
650 
                                        1
651 
                                        1 SUB 3 PROCESS OP CODE
652 
                                        1
653 
                                               HED3
654 
                                          SUBR3STDEXITX       STORE EXIT
655 
                                               RAL 1954
656 
                                               SRT 0004       IS OP
657 
                                               NZE      ILLOP BLANK
658 
                                               SLT 0006       IS OP
659 
                                               NZU      NUM   NUMERIC
660 
                                               SRT 0002
661 
                                               STLXXXX1       SEARCH
662 
                                               SLO 8001       SYMBOLIC
663 
                                               TLUC0001       OP TABLE
664 
                                               ALO1      8002
665 
                                           8002RAL 9997 NEXT  IS
666 
                                          NEXT SLOXXXX1       SYM OP
667 
                                               SLT 0006       LEGAL
668 
                                               NZUILLOP
669 
                                               SLT 0001       TEST FOR
670 
                                               NZUPSEU        PSEUDO OP
671 
                                               SLT 0001 SNO   STORE NUM
672 
                                          SNO  STLP0007       650 OP
673 
                                               SRT 0004       GET OPTIM
674 
                                               ALO3      8002 CONSTANTS
675 
                                           8002LDD 9996 NEX
676 
                                          NEX  STDOPTIM EXITX
677 
                                        1
678 
                                          NUM  SLO4           FORM
679 
                                               SLT 0002       NUMERIC
680 
                                               SLO 8002       OP
681 
                                               SRT 0001       CODE
682 
                                               ALO 8001 SNO
683 
                                        1
684 
                                          ILLOPRALP0010       ILLEGAL OP
685 
                                               ALO5           SET 8
686 
                                               STLP0010       FOR BLANK
687 
                                               LDD6     NEX   OP
688 
                                        1
689 
                                          PSEU SLT 0003       PSEUDO
690 
                                               ALOEXITX       OP
691 
                                               ALO1IXXX  8002
692 
                                        1
693 
                                          1    RAL 0000 NEXT  CONSTANTS
694 
                                          2     10 0000  0000
695 
                                          3    LDDN0001 NEX
696 
                                          4     90 9000  0000
697 
                                          5     00 0000  0008
698 
                                          6     55 0505  0999
699 
                                               HED
700 
                                        1
701 
                                        1 SUB 4 WHAT IS ADDRESS
702 
                                        1
703 
                                               HED4
704 
                                          SUBR4STDEXITZ       STORE EXIT
705 
                                               STUXXXX1       STORE ADDR
706 
                                               SRT 0008       IS C5
707 
                                               NZU      EXITZ BLANK
708 
                                               STUXXXX2       SAVE C5
709 
                                               RAU 8002       ARE LOW 4
710 
                                               AUP90XXX       CHARACTERS
711 
                                               BOVLOOP  LOOP  NUMERIC
712 
                                          LOOP AUPH1
713 
                                               BOV      SYM
714 
                                               SLT 0002
715 
                                               NZULOOP
716 
                                               RALXXXX2       LOW 4 NUM
717 
                                               SLO90XXX       IS C5
718 
                                               BMI      SYM   ALPHABETIC
719 
                                               ALO29XXX
720 
                                               BMISYM
721 
                                               RAL1IXXX       REGIONAL
722 
                                               AUPXXXX1 AEX
723 
                                          AEX  ALOEXITZ
724 
                                               SLO 8002  8001
725 
                                          SYM  RAUXXXX1       HED SYMBOL
726 
                                               LDD      SUB15
727 
                                               ALO2IXXX       STEP EXIT
728 
                                               STUHSYMB AEX
729 
                                          H1    10 0000  0000
730 
                                          HSYMB 01 0000 HSYMB ERASEABLE
731 
                                               HED
732 
                                        1
733 
                                        1 SUB 5 TEST ABSOLUTE ADDRESS
734 
                                        1
735 
                                               HED5
736 
                                          SUBR5STDEXITZ       STORE EXIT
737 
                                               STLXXXX1       STORE A
738 
                                               SLT 0004
739 
                                               SLO 8002
740 
                                               TLUR0001       TLU
741 
                                               ALOGET    8002 RANGE
742 
                                           8002RAU 9972 X     TABLE
743 
                                          X    SLT 0006
744 
                                               SRT 0006
745 
                                               AUPEXITZ
746 
                                               ALOXXXX1
747 
                                               SUP 8003  8001
748 
                                          GET  RAU 0000 X
749 
                                          R0001 00 1999  0000 RANGE
750 
                                          R0002 00 7999  0003 TABLE
751 
                                          R0003 00 8003  0001
752 
                                          R0004 00 8004  0003
753 
                                          R0005 00 8007  0001
754 
                                          R0006 00 8999  0003
755 
                                          R0007 00 9059  0002
756 
                                          R0008 99 9999  0003
757 
                                               HED
758 
                                        1
759 
                                        1 SUB 6 SYMBOL TEST ROUTINE
760 
                                               HED6
761 
                                               SYNOFF 6  1270
762 
                                               SYNLI  6  1614
763 
                                               SYNS   6  1601
764 
                                               SYNDEF 6  1811
765 
                                               SYNSW  6  1610
766 
                                               SYNA   6  1395
767 
                                          OFF  SLOLMAX        MAXIMUM
768 
                                               NZE      MAX
769 
                                               ALOLMP1  SLI   STEP LI
770 
                                          ON   SLOLO          IS LI EQUA
771 
                                               NZE      SWSYM TO LO
772 
                                               ALOLOP1  SLI   STEP LI
773 
                                          MAX  LDDSWON        SET
774 
                                               STDSW          SWITCH ON
775 
                                               RALL1    SLI   ZERO LI
776 
                                          A    NZE      UND   LI ZERO
777 
                                               SLOS           IS CONT OF
778 
                                               NZESW    DEF   LI SYMB
779 
                                        1
780 
                                          SUBR6STDEXITZ       STORE EXIT
781 
                                               STUS           STORE SYMB
782 
                                               LDDSWOF        SET SWITCH
783 
                                               STDSW          OFF
784 
                                               MPYSC          SCRAMBLE
785 
                                               RAL 8002       SYMBOL
786 
                                               SLT 0003       GIVING
787 
                                               MPYCF          LO
788 
                                               SRT 0001
789 
                                               SLT 0004       SET
790 
                                               ALOL1P1        TEST
791 
                                               STLLOP1        WORD
792 
                                               SLO1DXXX
793 
                                               STLLO    SLI   SAVE LO
794 
                                          SLI  STLLI     8001 INIT LI
795 
                                           8001RAL 9990 A     IS CONT OF
796 
                                          SW   RALLI    OFF   IS LI
797 
                                        1
798 
                                          UND  RALEXITZ       UNDEFINED
799 
                                               ALO1IXXX       STEP
800 
                                               STLEXITZ       EXIT
801 
                                               RALLI
802 
                                               SLOL1
803 
                                               STLLSYMB ASU
804 
                                        1
805 
                                          DEF  RALLI          DEFINED
806 
                                               LDDASU   SUBR8 GET
807 
                                          ASU  AUPS     EXITZ EQUIVALENT
808 
                                        1
809 
                                          SWSYMHLT 0111 SYMOF S TAB FULL
810 
                                          SYMOFLDDSYMON       SET SW SYM
811 
                                               STDSWSYM SYMON ON
812 
                                          SYMONRALEXITZ
813 
                                               ALO2IXXX  8002
814 
                                        1
815 
                                          SWOF RALLI    OFF   CONSTANTS
816 
                                          SWON RALLI    ON
817 
                                          SC    10 0100  1001
818 
                                          CF    00 0000  0004
819 
                                          L1   RAL 0000 A
820 
                                          L1P1 RAL 0001 A
821 
                                          LMAX RALE0000 A
822 
                                          LMP1 RALE0001 A
823 
                                          S     01 0000 S     ERASEABLE
824 
                                          SW    01 0000 SW
825 
                                          LO    01 0000 LO
826 
                                          LI    01 0000 LI
827 
                                          LSYMB 01 0000 LSYMB
828 
                                               HED
829 
                                        1
830 
                                        1 SUB 7 STORE SYMBOL AND EQUIV
831 
                                        1
832 
                                               HED7
833 
                                          SUBR7STDEXITZ       STORE EXIT
834 
                                               LDDSS
835 
                                               SDAXXXX2  8001 STORE
836 
                                           8001STU 9988 A     SYMBOL
837 
                                          A    SUP 8001
838 
                                               STLXXXX1       SAVE E
839 
                                               SRT 0004
840 
                                               DIV2IXXX       CALCULATE
841 
                                               SLT 0004       LOCATION
842 
                                               ALOC1          OF
843 
                                               LDDC2          E
844 
                                               SDASEL         AND
845 
                                               LDDC3          STORE
846 
                                               SDASER
847 
                                               STLOBEE
848 
                                               SLO 8001
849 
                                               ALOXXXX1 OBEE
850 
                                          OBEE LDD 9986 B
851 
                                          B    NZUSER
852 
                                               SLT 0004 SEL
853 
                                          SS   STU 9987 A     CONSTANTS
854 
                                          C1   LDDE0001 B
855 
                                          C2   SDA 9985 EXITZ
856 
                                          C3   SIA 9984 EXITZ
857 
                                          OBEE  01 0000 OBEE  ERASEABLE
858 
                                          SEL   01 0000 SEL
859 
                                          SER   01 0000 SER
860 
                                               HED
861 
                                        1
862 
                                        1 SUB 8 GIVEN SYM LOC GET EQUIV
863 
                                        1
864 
                                               HED8
865 
                                          SUBR8STDEXIT        STORE EXIT
866 
                                               LDD 8003
867 
                                               SDALSYMB       STORE L
868 
                                               RAL 8001
869 
                                               DIV2DXXX
870 
                                               SLT 0004
871 
                                               ALOE1     8002
872 
                                           8002LDD 9975 TR
873 
                                          TR   NZU      LH
874 
                                               RAM 8001 LR    GET E RH
875 
                                          LH   RAM 8001       GET E LH
876 
                                               SRT 0004 LR
877 
                                          LR   LDD 8003
878 
                                               SIAEQUIV
879 
                                               RALLSYMB EXIT
880 
                                        1
881 
                                          E1   LDDE0001 TR    CONSTANT
882 
                                          EXIT  01 0000 EXIT  ERASEABLE
883 
                                          EQUIV 01 0000 EQUIV
884 
                                               HED
885 
                                        1
886 
                                        1 SUB 9  CALCULATE REG ADDRESS
887 
                                               HED9
888 
                                          SUBR9STDEXITZ       STORE EXIT
889 
                                               SRT 0008
890 
                                               RAL 8003
891 
                                               SLT 0004
892 
                                               ALOC      8002 IS
893 
                                           8002RAL 9991 NEX   REGION
894 
                                          NEX  BDOILL         DEFINED
895 
                                               SLT 0001
896 
                                               RAL 8002
897 
                                               SRT 0001
898 
                                               LDDEXITZ
899 
                                               BD6      L
900 
                                               BD5D     I
901 
                                          L    ALO 1957 ALL
902 
                                          D    ALO 1958 ALL
903 
                                          I    ALO 1959 ALL
904 
                                          ALL  SLO1IXXX
905 
                                               BMIILL   EXITZ
906 
                                          ILL  RALEXITZ       UNDEFINED
907 
                                               ALO1IXXX  8002 OR ILLEG
908 
                                        1
909 
                                          C    RAL 0960 NEX   CONSTANT
910 
                                               HED
911 
                                        1 SUB 10 SET CC 8 AND PUNCH
912 
                                        1
913 
                                          SUB10ALOP0010
914 
                                               ALO84TH
915 
                                               STLP0010
916 
                                               PCHP0001  8003
917 
                                        1
918 
                                          84TH  00 0800  0000 CONSTANT
919 
                                        1
920 
                                        1 SUB 11 FIND AND RESERVE BEST
921 
                                        1
922 
                                               HED0
923 
                                               SYNSW  0  1584
924 
                                               SYNSWOF0  1691
925 
                                               SYNSWON0  1751
926 
                                               SYNYES 0  1583
927 
                                          SW   RAUAI    SWOF
928 
                                          SWOF SLOAMAX        IS AI MAX
929 
                                               NZE      MAX
930 
                                               ALOAMP1  SAI   STEP AI
931 
                                          SWON SLOAO          IS AI EQUA
932 
                                               NZE      FULL  TO AO
933 
                                               ALOBP1   SAI   STEP AI
934 
                                          MAX  LDDON          SET SW ON
935 
                                               STDSW
936 
                                               RALA1    SAI   SET AI TO
937 
                                          SUB11LDDDRUMT       TEST
938 
                                               BDO      SEX   DRUM TAG
939 
                                               STLEXIT        IS ADR L
940 
                                               BD6DI
941 
                                               RAL 8003 SSW   L
942 
                                          DI   LDDF           D OR I
943 
                                               SDAXXXX1 SUB13 FIND OPTIM
944 
                                          GDA  SLT 0004       DYNAM ADR
945 
                                               ALO 8002
946 
                                               ALO 8002 SSW
947 
                                          SSW  LDDOFF         SET SW OFF
948 
                                               STDSW
949 
                                               ALOA1P1        GET TABLE
950 
                                               STLBP1         START ADDR
951 
                                               SLO1DXXX
952 
                                               STLAO    SAI   SAVE AO
953 
                                          SAI  STLAI     8001
954 
                                           8001RAU 9975 TA    IS A LOCAT
955 
                                          TA   NZUYES   SW    AVAILABLE
956 
                                        1
957 
                                          FULL HLT 0222       DRUM PAKED
958 
                                               LDDH9XXX       SET DRUM
959 
                                               STDDRUMT       TAG TO 9
960 
                                               RALEXIT  SEX   STEP EXIT
961 
                                          SEX  ALO1IXXX  8002
962 
                                        1
963 
                                          YES  SCT 0000       RESERVE
964 
                                               SLT 0001       LOCATION
965 
                                               SRT 0001       FOUND
966 
                                               STLXXXX2       SAVE P
967 
                                               SUP 8003
968 
                                               SLT 0004
969 
                                               AUP 8001
970 
                                               ALOSRP    8002
971 
                                           8002SRT 0009 SCA   NULIFY SCT
972 
                                          SCA  RAU 8003
973 
                                               ALOAI
974 
                                               LDDST
975 
                                               SDAERAS   8001
976 
                                           8001STU 9972 CA
977 
                                          CA   SUP 8001       CALCULATE
978 
                                               SLOA1          LOCATION
979 
                                               SRT 0004       FOUND
980 
                                               DIV4I
981 
                                               MPY500
982 
                                               ALO 8003
983 
                                               SUP 8001
984 
                                               AUPXXXX2
985 
                                               MPY50
986 
                                               ALO 8003
987 
                                               SUP 8001 EXIT
988 
                                          F     00 0000 GDA   CONSTANTS
989 
                                          OFF  RALAI    SWOF
990 
                                          A1P1 RAUA0002 TA
991 
                                          AMAX RAUA0200 TA
992 
                                          AMP1 RAUA0201 TA
993 
                                          ON   RALAI    SWON
994 
                                          A1   RAUA0001 TA
995 
                                          SRP  SRT 0000 SCA
996 
                                          ST   STU 9999 CA
997 
                                          4I    00 0000  0004
998 
                                          500   00 0000  0500
999 
                                          50    00 0000  0050
1000 
                                          FON  RAL 8001 STEPX
1001 
                                          AO    01 0000 AO    ERASEABLE
1002 
                                          AI    01 0000 AI
1003 
                                          BP1   01 0000 BP1
1004 
                                          EXIT  01 0000 EXIT
1005 
                                               HED
1006 
                                        1
1007 
                                        1 SUB 12 SET BLANK L 8
1008 
                                        1
1009 
                                          SUB12ALOP0010
1010 
                                               ALO87TH
1011 
                                               STLP0010  8003
1012 
                                        1
1013 
                                          87TH  00 0000  8000 CONSTANT
1014 
                                        1
1015 
                                        1 SUB 13 CAL OPTIMUM DYNAMIC ADR
1016 
                                        1
1017 
                                               HEDY
1018 
                                          SUB13STDEXITZ       STORE EXIT
1019 
                                               BD5      I     D OR I
1020 
                                               RALOPTIM       D
1021 
                                               SLT 0001
1022 
                                               SLO 8002
1023 
                                               SLT 0001
1024 
                                               ALO 8001
1025 
                                               SRT 0003 SEO
1026 
                                          I    RALOPTIM       I
1027 
                                               BD2SHOP        SHIFT TEST
1028 
                                               BD3XAS         XAS TEST
1029 
                                               SLT 0002 SEO
1030 
                                          SEO  STLXXXX1       SAVE EV OD
1031 
                                               RALOPREG       IS BASE
1032 
                                               DIV2IXXX       EVEN OR OD
1033 
                                               RAU 8003
1034 
                                               ALOXXXX1
1035 
                                               NZU      R8
1036 
                                               SLT 0002
1037 
                                               RAL 8002 R8
1038 
                                          R8   SRT 0008       GET BASE
1039 
                                               ALOOPREG       PLUS DELTA
1040 
                                               DIV50          MOD 50
1041 
                                               RAL 8003 EXITZ
1042 
                                        1
1043 
                                          SHOP RALP0007       TLU UNITS
1044 
                                               SRT 0004       DIGIT OF
1045 
                                               SLT 0009       D ADDRESS
1046 
                                               SLO 8002
1047 
                                               TLUU0001
1048 
                                               ALOGU     8002
1049 
                                           8002RAL 9969 TOP
1050 
                                          TOP  SLT 0002
1051 
                                               LDDOPTIM       IS OP SRD
1052 
                                               BD3      SEO
1053 
                                               SLT 0004 SEO   SRD
1054 
                                        1
1055 
                                          XAS  RALP0007       TLU
1056 
                                               SRT 0004       D ADDRESS
1057 
                                               SLT 0006
1058 
                                               SLO 8002
1059 
                                               TLUI0001
1060 
                                               ALOGXD    8002
1061 
                                           8002RAL 9968 NXT
1062 
                                          NXT  SLT 0004 SEO
1063 
                                        1
1064 
                                          U0001 00 2322  2524 SHIFT
1065 
                                          U0002 10 0706  0706 OPTIMIZING
1066 
                                          U0003 20 0706  0908 TABLE
1067 
                                          U0004 30 0908  1110
1068 
                                          U0005 40 1110  1312
1069 
                                          U0006 50 1312  1514
1070 
                                          U0007 60 1514  1716
1071 
                                          U0008 70 1716  1918
1072 
                                          U0009 80 1918  2120
1073 
                                          U0010 90 2120  2322
1074 
                                        1
1075 
                                          I0001 19 9906  0600 X ACCUM
1076 
                                          I0002 79 9907  0700 ADD SUB
1077 
                                          I0003 80 0008  0800 TABLE
1078 
                                          I0004 80 0106  0600
1079 
                                          I0005 80 0209  0800
1080 
                                          I0006 80 0308  0900
1081 
                                          I0007 90 5908  0800
1082 
                                          I0008 99 9909  0900
1083 
                                        1
1084 
                                          GU   RAL 0000 TOP   CONSTANTS
1085 
                                          GXD  RAL 0000 NXT
1086 
                                          50    00 0000  0050
1087 
                                               HED
1088 
                                        1
1089 
                                        1 SUB 14 PUNCH AVIL TABLE
1090 
                                        1
1091 
                                               HEDP
1092 
                                          SUB14STDEXITX       STORE EXIT
1093 
                                               LDD85TH        SET PUNCH
1094 
                                               STDP0010       8
1095 
                                               LDDA1          INIT AI
1096 
                                               STDXXXX1
1097 
                                               RALRS1   LOOP  INIT RS
1098 
                                          LOOP AUPC1     8001
1099 
                                           8001STL 9999 NEXT  SET LOCAT
1100 
                                          NEXT SUPTW1
1101 
                                               NZU      SRS
1102 
                                               AUPC2
1103 
                                               ALOC3     8003
1104 
                                          SRS  STLXXXX2       SAVE RS
1105 
                                               RAUC4
1106 
                                               ALOXXXX1  8002
1107 
                                           8002LDD 9998  8003 STORE
1108 
                                           8002STD 9997 TP    AV TABLE
1109 
                                          TP   SUPTW2
1110 
                                               NZU      PUN
1111 
                                               AUPC5
1112 
                                               ALOC6     8002
1113 
                                          PUN  PCHP0001
1114 
                                               SLOAIM         IS AI MAX
1115 
                                               NZE      EXITX
1116 
                                               ALOAMP1        STEP AI
1117 
                                               STLXXXX1
1118 
                                               RALXXXX2
1119 
                                               SLOC7    LOOP
1120 
                                        1
1121 
                                          C1   STLP0001 NEXT  CONSTANTS
1122 
                                          C2   STLP0009 NEXT
1123 
                                          C3    00 0500  0500
1124 
                                          C4   STDP0002 TP
1125 
                                          C5   STDP0010 TP
1126 
                                          C6    00 0001  0000
1127 
                                          C7    00 1499  1499
1128 
                                          TW1  STLP0007 NEXT
1129 
                                          TW2  STDP0008 TP
1130 
                                          85TH  00 0080  0000
1131 
                                          A1   LDDA0001  8003
1132 
                                          RS1   00 0000  0450
1133 
                                          AIM  LDDA0200  8003
1134 
                                          AMP1 LDDA0201  8003
1135 
                                               HED
1136 
                                        1
1137 
                                        1 SUB 15 HEADING ROUTINE
1138 
                                        1
1139 
                                               HEDH
1140 
                                          SUB15STDEXITY       SAVE EXIT
1141 
                                               LDD 8003       IS C1
1142 
                                               SLT 0008       BLANK
1143 
                                               NZUDH
1144 
                                               RAU 8001       HEAD
1145 
                                               AUP0000H EXITY
1146 
                                          DH   RAU 8001 EXITY DONT HEAD
1147 
                                               HED
1148 
                                        1
1149 
                                        1 SUB 16 INITIALIZATION
1150 
                                        1
1151 
                                          SUB16STDEXITY       STORE EXIT
1152 
                                               RALI1
1153 
                                               STUP0009       ZERO CARD
1154 
                                               STD0000H       ZERO HEAD
1155 
                                               LDD      SUBR1 ZERO SYM T
1156 
                                               RALI2          MAKE DRUM
1157 
                                               AUPI3          AVAILABLE
1158 
                                               LDD      SUBR1
1159 
                                               LDDH8XXX       SET DRUM
1160 
                                               STDDRUMT       TAG TO 8
1161 
                                               LDDI4          SET SWSYM
1162 
                                               STDSWSYM       OFF
1163 
                                               RALI5          UNDEFINE
1164 
                                               AUPH8XXX       REGIONS
1165 
                                               LDDEXITY SUBR1
1166 
                                        1
1167 
                                          I1    00S0001 E0200 CONSTANTS
1168 
                                          I2    00A0001 A0200
1169 
                                          I3    11 1111  1111
1170 
                                          I4    01 0111 SYMOF
1171 
                                          I5    00 1021  1049
1172 
                                          PACOFBD6FINDI FINDL
1173 
                                        1
1174 
                                        1 SUB 17 CALC 800X EQUIVALENT
1175 
                                        1
1176 
                                               HEDX
1177 
                                          SB17DLDDDEQ   DI    D EQUIV
1178 
                                          SB17ILDDIEQ   DI    I EQUIV
1179 
                                          DI   STDXXXX1       SAVE TAG
1180 
                                               STUEXITY       STORE EXIT
1181 
                                               STLXXXX2       STORE 800X
1182 
                                               LDDXXXX1 SUB13 GET OPTIM
1183 
                                          SDA  STLXXXX1       DYNAM ADDR
1184 
                                               DIV2IXXX       IS DY ADDR
1185 
                                               NZUOD    EV    EVEN OR ODD
1186 
                                          OD   RAL8002  EO
1187 
                                          EV   RAL8003  EO
1188 
                                          EO   SLOXXXX2
1189 
                                               NZE      ADD1
1190 
                                               RALXXXX1 EXITY
1191 
                                          ADD1 RALXXXX1
1192 
                                               ALO1IXXX EXITY
1193 
                                        1
1194 
                                          DEQ   00 0008 SDA   CONSTANTS
1195 
                                          IEQ   00 0009 SDA
1196 
                                          8002  00 0000  8002
1197 
                                          8003  00 0000  8003
1198 
                                               HED
1199 
                                        1
1200 
                                        1 SUB 18 INDEX ADDRESS
1201 
                                        1
1202 
                                               HEDW
1203 
                                          INDEXSTDEXITY       STORE EXIT
1204 
                                               STLXXXX1       STORE ADDR
1205 
                                               RAU 1954
1206 
                                               SLT 0007
1207 
                                               LDDEXITY
1208 
                                               BD5D           D OR I
1209 
                                               SLT 0002 D
1210 
                                          D    SRT 0009
1211 
                                               MPY2000I
1212 
                                               LDDEXITY
1213 
                                               BD6DS          DRUM O COR
1214 
                                               SRT 0001 DS    CORE
1215 
                                          DS   ALOXXXX1 EXITY
1216 
                                        1
1217 
                                          EXITY 01 0000 EXITY ERASEABLE
1218 
                                               HED
1219 
                                        1
1220 
                                        1 SUB 19 PROCESS LOCATION
1221 
                                        1
1222 
                                               REGD0923  0923 PROC L
1223 
                                               REGG0925  0925
1224 
                                               REGJ0928  0928
1225 
                                               REGK0931  0931
1226 
                                               REGL0933  0933
1227 
                                        1
1228 
                                               HEDA
1229 
                                          PROCLSTDEXITX       STORE EXIT
1230 
                                               RAU 1951       IS L BLANK
1231 
                                               NZUNB
1232 
                                               LDDDRUMT       BLANK TEST
1233 
                                               BD0B     D0002 DRUM TAG
1234 
                                          B    RALOPREG SETL  BLANK
1235 
                                          SETL SLT 0004       SET L
1236 
                                               LDDP0008       TO OR
1237 
                                               SDAP0008 EXITX
1238 
                                          NB   LDDG     SUBR4 WHAT IS L
1239 
                                          G0001RAL 1957 K0001 ABSOLUTE
1240 
                                          G0002LDDK     SUBR9 REGIONAL
1241 
                                          G0003LDDJ     SUBR6 SYMBOLIC
1242 
                                          K0001LDDL     SUBR5 TEST RANGE
1243 
                                          K0002RAU87TH  X     REG ERROR
1244 
                                          X    AUPP0010       SET BLANK
1245 
                                               STUP0010 SETL  L8
1246 
                                          L0001STLOPREG SETL  DRUM ADDR
1247 
                                          L0002AUP86TH  800X  800X
1248 
                                          L0003LDDORCEQ 89X   CORE ADDR
1249 
                                          L0004RAU87TH  X     OTHER
1250 
                                          800X LDDORXEQ 89X
1251 
                                          89X  STDOPREG X
1252 
                                          J0001RALEQUIV K0001 SYM DEFIND
1253 
                                          J0002RALD     SUB11 SYM UNDEF
1254 
                                          J0003RAU87TH  X     S TAB FULL
1255 
                                          D0001STLOPREG SS    S EQ FOUND
1256 
                                          D0002RAU87TH  X     DRUM PAKED
1257 
                                          SS   AUPHSYMB       STORE
1258 
                                               ALOLSYMB       SYMBOL
1259 
                                               LDDB     SUBR7
1260 
                                        1
1261 
                                          G     00 0000 G0001 CONSTANTS
1262 
                                          K     00 0090 K0001
1263 
                                          J     00 0000 J0001
1264 
                                          L     00 0000 L0001
1265 
                                          D     00 0090 D0001
1266 
                                          86TH  00 0008  0000
1267 
                                          87TH  00 0000  8000
1268 
                                          EXITX 01 0000 EXITX ERASEABLE
1269 
                                               HED
1270 
                                        1
1271 
                                        1 SUB 20 PROCESS DATA ADDRESS
1272 
                                        1
1273 
                                               REGD0937  0937 PROC D
1274 
                                               REGF0939  0939
1275 
                                               REGG0941  0941
1276 
                                               REGJ0944  0944
1277 
                                               REGK0946  0946
1278 
                                               REGL0949  0949
1279 
                                        1
1280 
                                               HEDB
1281 
                                          PROCDSTDEXITX       STORE EXIT
1282 
                                               RAU 1952       IS D BLANK
1283 
                                               NZUNB
1284 
                                               RALD     SUB11 FIND
1285 
                                          D0001STLORBAL L0004 OPTIMUM D
1286 
                                          D0002RAU88TH  X     DRUM PAKED
1287 
                                          BT   LDDOPTIM       IS OP
1288 
                                               BD1EXITX       A BRANCH
1289 
                                               STLOPREG EXITX D TO OR
1290 
                                          X    AUPP0010       SET BLANK
1291 
                                               STUP0010 EXITX
1292 
                                          NB   LDDG     SUBR4 WHAT IS D
1293 
                                          G0001RAL 1958 J0001 ABSOLUTE
1294 
                                          G0002LDDJ     SUBR9 REGIONAL
1295 
                                          G0003LDDK     SUBR6 SYMBOLIC
1296 
                                          J0001LDDL     SUBR5 TEST RANGE
1297 
                                          J0002RAU88TH  X     REG ERROR
1298 
                                          L0001LDDAXD   INDEX DRUM ADDR
1299 
                                          L0002SLT 0004 800X  800X
1300 
                                          L0003LDDAXC   INDEX CORE ADDR
1301 
                                          L0004SLT 0004 SD    OTHER
1302 
                                          800X LDDP0007       SET 800X D
1303 
                                               SDAP0007
1304 
                                               SRT 0004
1305 
                                               AUPXEQ   SB17D GET 800X E
1306 
                                          SCD  SLT 0004       SET CORE D
1307 
                                               LDDP0007
1308 
                                               SDAP0007
1309 
                                               SRT 0004
1310 
                                               LDDCEQ   SUB13 GET CORE E
1311 
                                          SCEQ STLORCEQ BT    SAVE CORE
1312 
                                          K0001RALEQUIV J0001 SYM DEFINED
1313 
                                          K0002RALF     SUB11 SYM UNDEF
1314 
                                          K0003RAU88TH  X     S TAB FULL
1315 
                                          F0001STLEQ    SS    SAVE EQ
1316 
                                          F0002RAU88TH  X     DRUM PAKED
1317 
                                          SS   AUPHSYMB       STORE
1318 
                                               ALOLSYMB       SYMBOL
1319 
                                               LDD      SUBR7
1320 
                                               RALEQ    L0004
1321 
                                          SD   LDDP0007       SET D ADDR
1322 
                                               SDAP0007
1323 
                                               SRT 0004 BT
1324 
                                        1
1325 
                                          D     00 0088 D0001 CONSTANTS
1326 
                                          G     00 0000 G0001
1327 
                                          J     00 0088 J0001
1328 
                                          L     00 0000 L0001
1329 
                                          F     00 0088 F0001
1330 
                                          K     00 0000 K0001
1331 
                                          AXD   00 0088 D0001
1332 
                                          AXC   00 0098 SCD
1333 
                                          XEQ  STLORXEQ BT
1334 
                                          CEQ   00 0008 SCEQ
1335 
                                          88TH  00 0000  0800
1336 
                                          EQ    01 0000 EQ    ERASEABELE
1337 
                                        1
1338 
                                        1 SUB 21 PROCESS INSTR ADDRESS
1339 
                                        1
1340 
                                               REGD0953  0953 PROC I
1341 
                                               REGF0955  0955
1342 
                                               REGG0958  0958
1343 
                                               REGJ0960  0960
1344 
                                               REGK0962  0962
1345 
                                               REGL0965  0965
1346 
                                        1
1347 
                                               HEDC
1348 
                                          PROCISTDEXITX       STORE EXIT
1349 
                                               RAU 1953       IS I BLANK
1350 
                                               NZUNB
1351 
                                               RAU 1952       IS D BLANK
1352 
                                               NZUDNB
1353 
                                               LDDDRUMT       D I BLANK
1354 
                                               BDO      G0002 TEST DRUM
1355 
                                               RALORBAL L0004 TAB
1356 
                                          DNB  RALD     SUB11 FIND BEST
1357 
                                          D0001STLORBAL L0004 FOUND
1358 
                                          D0002RALP0010 X     DRUM PAKED
1359 
                                          X    ALO89TH
1360 
                                               STLP0010 EXITX
1361 
                                          NB   LDDF     SUBR4 WHAT IS I
1362 
                                          F0001RAL 1959 J0001 ABSOLUTE
1363 
                                          F0002LDDJ     SUBR9 REGIONAL
1364 
                                          F0003LDDK     SUBR6 SYMBOLIC
1365 
                                          J0001LDDL     SUBR5 TEST RANGE
1366 
                                          J0002RALP0010 X     REG ERROR
1367 
                                          L0001LDDAXD   INDEX DRUM ADDR
1368 
                                          L0002LDDP0007 800X  800X
1369 
                                          L0003LDDAXC   INDEX CORE ADDR
1370 
                                          L0004LDDP0007       OTHER
1371 
                                               SIAP0007 MOR
1372 
                                          800X SIAP0007
1373 
                                               AUPXEQ   SB17I GET 800X E
1374 
                                          90XX LDDP0007       SET CORE
1375 
                                               SIAP0007       ADDRESS
1376 
                                               LDDCEQ   SUB13 GET CORE E
1377 
                                          K0001RALEQUIV J0001 SYM DEFIND
1378 
                                          K0002RALG     SUB11 SYM UNDEF
1379 
                                          K0003RALP0010 X     S TAB FULL
1380 
                                          G0001LDDP0007 SI    FOUND BEST
1381 
                                          G0002RALP0010 X     DRUM PAKED
1382 
                                          SI   SIAP0007
1383 
                                               AUPHSYMB       STORE
1384 
                                               ALOLSYMB       SYMBOL
1385 
                                               LDDMOR   SUBR7
1386 
                                          MOR  LDDORBAL       SET OR
1387 
                                               STDOPREG EXITX TO ORB
1388 
                                          SCEQ STLORCEQ MOR   SAVE CORE
1389 
                                        1
1390 
                                          D     00 0089 D0001 CONSTANTS
1391 
                                          F     00 0000 F0001
1392 
                                          J     00 0089 J0001
1393 
                                          K     00 0000 K0001
1394 
                                          L     00 0000 L0001
1395 
                                          G     00 0089 G0001
1396 
                                          89TH  00 0000  0080
1397 
                                          AXD   00 0089 L0004
1398 
                                          AXC   00 0099 90XX
1399 
                                          XEQ  STLORXEQ MOR
1400 
                                          CEQ   00 0009 SCEQ
1401 
                                               HED
1402 
                                        1
1403 
                                          1IXXX 00 0000  0001 CONSTANTS
1404 
                                          1DXXX 00 0001  0000
1405 
                                          2IXXX 00 0000  0002
1406 
                                          2DXXX 00 0002  0000
1407 
                                          H8XXX 80 0000  0000
1408 
                                          H9XXX 90 0000  0000
1409 
                                          90XXX 00 0000  0090
1410 
                                          29XXX 00 0000  0029
1411 
                                          2000I 00 0000  2000 CONSTANT
1412 
                                          TORG  00 0000 T0001
1413 
                                        1

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.