github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-25 19:51:55 +00:00
Code Issues Releases Wiki Activity
Files
a47ea448e25de8769f6bf2431b6d1d9a50608905
pkimpel.retro-220/software/BALGOL/BALGOL-Generator.bacg
Paul Kimpel ee513aec18 1. Commit completed initial transcription of BALGOL compiler generator listing -- not yet proofed. 
2. Commit correction to BAC-Assembler: $$ strings represent an embedded carriage return, which prints as "$" on Cardatron.
2017-02-12 08:30:51 -08:00

2219 lines
124 KiB
Plaintext
Raw Blame History

6 11 17 40 52 60
SEQ PLAC ADDR WORD LABEL OPCODE OPERAND ' IS A 4-8 PUNCH, PRINTS AS - (MINUS ZERO) ON 407
1 LOAD 0000
2 ON TAPE,1/4999
3
4
5 THE COMPILER GENERATOR
6
7 DEFINITIONS FOR THE COMPILER
8
9 CHAR IS 179
10 SCNCT IS 225
11 VARB IS 251
12 CCCNT IS 1587
13 CCBEG IS 1618
14 IMAG IS 1632
15 NUTBL IS 3129
16 XONE IS 4097+2
17 SCRTB IS 4114+2
18 SSC IS 4214+2
19 LOCN IS 4215+2
20 MAMAX IS 4225+2
21 HDNG IS 4517
22
23 DEFINITIONS FOR THE OVERLAY
24
25 B IS 5200+13
26 ZERO IS 5200+27
27 LODOX IS 5200+74
28 LIBRARYTABLE
29 IS 1857
30 NUMB IS 4800+1335
31 LOD2 IS 4800+3127
32 POSCT IS 4800+3384
33 HALT IS 4800+3450
34
35 DEFINITIONS FOR OBJECT PROGRAM CARD LOADER
36
37 FIX IS 4240
38
39
40
41 0000 0 0000 30 0002 BUN LOAD
42 0001 0 0000 30 0023 BUN STORE
43 0002 0 0018 50 0000 LOAD MRW 010
44 0003 0 0004 45 0000 CLB
45 0004 1 0001 52 0000 1 -MNC 0,0,0
46 0005 0 0000 42 0006 LDB $+1
47 0006 0 0001 45 0999 CLA 999
48 0007 1 0000 12 0000 2 -ADD 0
49 0008 0 0001 21 0007 DBB 2B,1
50 0009 0 0000 36 0015 BZA 3F
51 0010 0 0040 09 2355 SPO R'CHECK SUM ERROR'
52 0011 0 0001 58 0000 MPB 0,0
53 0012 0 0272 00 2720 HLT 2720,0272(44)
54 0013 0 0000 42 0007 LDB 2B
55 0014 0 0000 30 0004 BUN 1B
56 0015 0 1107 27 0016 3 DFL $+1/11,1
57 0016 0 4000 42 0007 LDB 2B,4(11)
58 0017 0 0999 20 0018 IBB $+1,999
59 0018 0 0412 40 0007 STB 2B/04
60 0019 0 0000 32 0004 BRP 1B
61 0020 0 1105 27 0016 DFL 3B+1/11,5
62 0021 0 0410 40 0007 STA 2B/04
63 0022 0 0000 31 0046 BOF THEBEGINNING
64
65
66 0023 0 0018 50 0000 STORE MRW 010
67 0024 0 0000 42 0025 1 LDB $+1
68 0025 0 4001 45 0998 CLA 998,4(11)
69 0026 1 0000 12 0000 2 -ADD 0
70 0027 0 0001 21 0026 DBB $-1,1
71 0028 0 0000 42 0026 LDB 2B
72 0029 1 0000 41 0999 -LDR 999
73 0030 1 0000 40 0999 -STA 999
74 0031 1 0000 11 0999 -CSU 999
75 0032 1 0000 40 0999 -STA 999
76 0033 1 0000 56 0000 -MOW 0,0,0
77 0034 1 0001 40 0999 -STR 999
78 0035 0 0999 20 0036 IBB $+1,999
79 0036 0 0412 40 0026 STB 2B/04
80 0037 0 1101 27 0025 DFL 1B+1/11,1
81 0038 0 0000 32 0024 BRP 1B
82 0039 0 0000 31 0040 BOF $+1
83 0040 0 0018 50 0000 MRW 010
84 0041 0 1248 00 8421 HLT 8421,1248(44)
85 0042 0 0007 45 0000 CLT
86 0043 0 0410 40 0026 STA 2B/04
87 0044 0 1106 27 0025 DFL 1B+1/11,6
88 0045 0 0000 30 0002 BUN LOAD
89
90
91 THEBEGINNING
92 0046 0 0060 09 2349 SPO LRT'THE COMPILER GENERATOR'R
93 0047 0 1101 26 0051 IFL 20F/11,1
94 0048 0 1101 26 0049 IFL $+1/11,1
95 0049 0 0000 64 0051 CRI 20F,0
96 0050 0 0000 30 0049 BUN THEBEGINNING+3
97 0051 0 0002 62 1517 20 CRF ALFORMAT,0,2
98 0052 0 0008 50 0000 MRW 0
99 0053 0 0000 44 0115 21 DO SAN
54 0 0000 30 0107
100 0055 0 0010 18 2337 CFA 'COMME'/00
101 0056 0 0000 35 0134 BCE COMMENT
102 0057 0 0010 18 2411 CFA 'COPYC'/00
103 0058 0 0000 35 0139 BCE COMPILERTAPEUNIT
104 0059 0 0010 18 2394 CFA 'COMPI'/00
105 0060 0 0000 35 0268 BCE SETLOCN
106 0061 0 0010 18 2416 CFA 'GENER'/00
107 0062 0 0000 35 0290 BCE VERSION
108 0063 0 0010 18 2302 CFA 'SETSC'/00
109 0064 0 0000 35 0144 BCE SETSCAN
110 0065 0 0010 18 2414 CFA 'PRINT'/00
111 0066 0 0000 35 0161 BCE SETPRINTER
112 0067 0 0010 18 2293 CFA 'VARIA'/00
113 0068 0 0000 35 0240 BCE VARIABLES
114 0069 0 0010 18 2340 CFA 'CARDP'/00
115 0070 0 0000 35 0167 BCE SETPUNCH
116 0071 0 0010 18 2341 CFA 'CARDR'/00
117 0072 0 0000 35 0172 BCE SETREADER
118 0073 0 0010 18 2410 CFA 'MACHI'/00
119 0074 0 0000 35 0178 BCE SETSCRATCH
120 0075 0 0010 18 2420 CFA 'CORRE'/00
121 0076 0 0000 35 0192 BCE SETCORRECTIONS
122 0077 0 0010 18 2393 CFA 'MEMOR'/00
123 0078 0 0000 35 0225 BCE SETSIZE
124 0079 0 0010 18 2397 CFA 'PROCE'/00
125 0080 0 0000 35 0245 BCE SETPROCESSBIT
126 0081 0 0010 18 2335 CFA 'POSIT'/00
127 0082 0 0000 35 0248 BCE SETUPFORPOSITIONFORWARD
128 0083 0 0010 18 2396 CFA 'PUNCH'/00
129 0084 0 0000 35 0260 BCE SETTHEPUNCHLIBRARYBIT
130 0085 0 0010 18 2381 CFA 'SUPPR'/00
131 0086 0 0000 35 0266 BCE THEREGOESTHEHALT
132 0087 0 0010 18 2365 CFA 'DELET'/00
133 0088 0 0000 35 0100 BCE WHATGOES
134 0089 0 0010 18 2440 CFA 'INPUT'/00
135 0090 0 0000 35 0603 BCE INPUTMEDIA
136 0091 0 0010 18 2291 CFA 'OUTPU'/00
137 0092 0 0000 35 0767 BCE OUTPUTMEDIA
138 0093 0 0010 18 2310 CFA 'FINIS'/00
139 0094 0 0000 35 0387 BCE FINIS
140 STATEMENTERROR
141 0095 0 0050 09 2382 SPO R'INCORRECT STATEMENT'RRIII
142 0096 0 0160 09 1778 SPO INPUT,16
143 0097 0 0010 09 2342 SPO RRRRR''
144 0098 0 1370 00 7310 HLT 7310,1370(44)
145 0099 0 0000 30 0098 BUN $-1
146
147
148 0100 0 0000 44 0115 WHATGOES DO SCAN
0101 0 0000 30 0107
149 0102 0 0010 18 2374 CFA 'EOUTP'/00
150 0103 0 0000 35 0364 BCE OUTPUTFORMATS
151 0104 0 0010 18 2418 CFA 'EINPU'/00
152 0105 0 0000 35 0360 BCE INPUTFORMATS
153 0106 0 0000 30 0095 BUN STATEMENTERROR
154
155
156 0107 0 0000 46 0116 SCAN.1 CLL IMAGE.1
157 0108 0 0000 44 0125 3 DO CHARACTER
0109 0 0000 30 0117
158 0110 0 0000 49 0009 1 SLA 8
159 0111 0 0000 19 0116 ADL IMAGE.1
160 0112 0 0102 27 0110 DFL 1B/01,2
161 0113 0 0000 32 0108 BRP 3B
162 0114 0 0000 10 0116 CAD IMAGE.1
163 0115 0 0000 30 0115 SCAN BUN SCAN
164 0116 0 0000 00 0000 IMAGE.1 (0)
165
166
167 CHARACTER.1
168 IS $+1
169 0117 0 0502 26 0133 3 IFL SCNCT.1/05,2
170 0118 0 9400 28 0133 DLB SCNCT.1/94
171 0119 1 0000 10 1778 -CAD INPUT
172 0120 0 0000 42 0133 LDB SCNCT.1
173 0121 0 0160 21 0126 DBB 40F,160
174 0122 1 0000 49 0002 -SLA 2
175 0123 0 0000 17 2270 EXT =11=
176 0124 0 0000 36 0117 BZA 3B
177 0125 0 0000 30 0125 CHARACTER BUN CHARACTER
178 0126 0 0000 41 0051 40 LDR 20B
179 0127 0 1111 40 0128 STR $+1/11
180 0128 0 0010 60 1793 CNC INPUT+15,0
181 0129 0 0000 10 1793 CAD INPUT+15
182 0130 0 0000 46 0133 CLL SCNCT.1
183 0131 0 0002 33 0117 BSA 3B,2
184 0132 0 0000 30 0095 BUN STATEMENTERROR
185 0133 0 0000 00 0158 SCNCT.1 (158)
186
187
188 0134 0 0502 27 0133 COMMENT DFL SCNCT.1/05,2
189 0135 0 0000 44 0125 DO CHARACTER
0136 0 0000 30 0117
190 0137 0 0213 36 0053 BFA 21B/02,13
191 0138 0 0000 30 0117 BUN CHARACTER.1
192
193
194 COMPILERTAPEUNIT
195 0139 0 0000 44 0359 DO TAPENUMSCAN
0140 0 0000 30 0352
196 0141 0 0000 49 0007 SLA 7
197 0142 0 3310 40 1520 STA COMPILER/33
198 0143 0 0000 30 0134 BUN COMMENT
199
200
201 0144 0 0000 44 0350 SETSCAN DO BASICNUMSCAN
0145 0 0000 30 0337
202 0146 0 0000 40 1676 STA HOLD0
203 0147 0 0000 12 1676 ADD HOLD0
204 0148 0 0000 49 0006 SLA 6
205 0149 0 4210 40 2451 STA TBL+3/42
206 0150 0 0000 44 0350 DO BASICNUMSCAN
0151 0 0000 30 0337
207 0152 0 0000 40 1676 STA HOLD0
208 0153 0 0000 12 1676 ADD HOLD0
209 0154 0 0000 49 0006 SLA 6
210 0155 0 4410 40 2249 STA TBL+1/44
211 0156 0 4204 27 2451 DFL TBL+3/42,4
212 0157 0 0000 30 0134 BUN COMMENT
213 0158 0 0000 10 2449 SETSCAN.1 CRD TBL+1
214 0159 1 4410 40 1677 -STA IA/44
215 0160 0 0000 30 0514 BUN RETURN
216
217
218 0161 0 0000 44 0350 SETPRINTER DO BASICNUMSCAN
0162 0 0000 30 0337
219 0163 0 0000 49 0009 SLA 9
220 0164 0 1110 40 1801 STA PRINTER/11
221 0165 0 1110 40 0792 STA UNIT2/11
222 0166 0 0000 30 0134 BUN COMMENT
223
224
225 0167 0 0000 44 0350 SETPUNCH DO BASICNUMSCAN
0168 0 0000 30 0337
226 0169 0 0000 49 0009 SLA 9
227 0170 0 1110 40 1803 STA PUNCH/11
228 0171 0 0000 30 0134 BUN COMMENT
229
230
231 0172 0 0000 44 0350 SETREADER DO BASICNUMSCAN
0173 0 0000 30 0337
232 0174 0 0000 49 0009 SLA 9
233 0175 0 1110 40 1823 STA READER/11
234 0176 0 1110 40 0621 STA UNIT1/11
235 0177 0 0000 30 0134 BUN COMMENT
236
237
238 0178 0 0000 44 0359 SETSCRATCH DO TAPENUMSCAN
0179 0 0000 30 0352
239 0180 0 0000 49 0007 SLA 7
240 0181 0 3310 40 1827 STA SCRATCHML/33
241 0182 0 0002 49 0003 SLS 3
242 0183 0 0000 16 0000 RND
243 0184 0 0002 48 0010 SRS 10
244 0185 0 0001 48 0010 SRT 10
245 0186 0 0000 10 1827 CAD SCRATCHML
246 0187 0 0000 12 2441 ADD =1(31)=
247 0188 0 0000 37 0190 BZR 1F
248 0189 0 0000 13 2272 SUB =2(32)=
249 0190 0 3310 40 1828 1 STA SCRATCHDUMP/33
250 0191 0 0000 30 0134 BUN COMMENT
251
252
253 SETCORRECTIONS
254 0192 0 0000 41 0051 LDR 20B
255 0193 0 1111 40 0195 STR 1F/11
256 0194 0 1111 40 0219 STR 2F/11
257 0195 0 0011 60 1539 1 CNCL CDR+12,0
258 0196 0 0000 10 1527 CAD CDR
259 0197 0 0002 33 0134 BSA COMMENT,2
260 0198 0 0001 45 0000 CLA CREATE CHECK SUM TOTAL
261 0199 0 0000 42 2442 LDB =6=
262 0200 1 0000 12 1533 12 -ADD CDR+6
263 0201 0 0001 21 0200 DBB 12B,1
264 0202 0 0000 36 0206 BZA $+4
265 0203 0 0060 09 2434 SPO R'ERRONEOUS CORRECTION CARD'
266 0204 0 9669 00 9669 HLT 9669,9669(44)
267 0205 0 0000 30 0204 BUN $-1
268
269 0206 0 0000 10 1536 CAD CDR+9
270 0207 0 0000 42 0223 LDB K
271 0208 0 0402 26 0386 IFL KP/04,2
272 0209 1 0000 40 2449 -STA TBL+1
273 0210 0 0000 10 1535 CAD CDR+8
274 0211 0 0000 12 1534 ADD CDR+7
275 0212 0 0000 41 1532 LDR CDR+5
276 0213 0 0100 37 0217 BFR 3F/01,0
277 0214 0 0102 37 0221 BFR 4F/01,2
278 0215 0 0103 37 1533 BFR CDR+6/01,3
279 0216 0 0001 43 0000 LSA 1
280 0217 1 0000 40 2448 3 -STA TBL
281 0218 0 0002 26 0223 IFL K/00,2
282 0219 0 0010 60 1539 2 CNC CDR+12,0
283 0220 0 0000 30 0195 BUN 1B
284 0221 0 0003 43 0000 4 LSA 3
285 0222 0 0000 30 0217 BUN 3B
286 0223 0 0000 00 0014 K (14)
287 0224 0 0000 00 0000 MAMAXP (0)
288
289
290 0225 0 0000 44 0350 SETSIZE DO BASICNUMSCAN
0226 0 0000 30 0337
291 0227 0 0200 36 0231 BFA 1F/02,00
292 SPO R'MEMORY SIZE MUST BE GIVEN AS A MULTIPLE' ...
293 0228 0 0120 09 2422 ' OF ONE HUNDRED'RRRI
294 0229 0 1370 00 7310 HLT 7310,1370(44)
295 0230 0 0000 30 0229 BUN $-1
296 0231 0 0000 12 2443 1 ADD =9999=
297 0232 0 8210 40 0239 STA RELOCATION/82
298 0233 0 0000 01 0134 OSWITCH NOP COMMENT
299 0234 0 0410 40 2459 3 STA TBL+11/04
300 0235 0 0000 12 2445 ADD =1=
301 0236 0 0410 40 2457 STA TBL+9/04
302 0237 0 0410 40 4240 STA FIX/04
303 0238 0 0000 30 0134 BUN COMMENT
304 0239 0 0000 00 4900 RELOCATION (4900)
305
306
307 0240 0 0000 44 0350 VARIABLES DO BASICNUMSCAN
0241 0 0000 30 0337
308 0242 0 0000 12 2443 ADD =9999=
309 0243 0 6229 26 0233 IFL OSWITCH/62,29
310 0244 0 0000 30 0234 BUN 3B
311
312
313 SETPROCESSBIT
314 0245 0 0501 26 0247 IFL PROCESSBIT/05,1
315 0246 0 0000 30 0134 BUN COMMENT
316 0247 0 0000 00 0000 PROCESSBIT (0)
317
318
319 SETUPFORPOSITIONFORWARD
320 0248 0 0000 44 0350 DO BASICNUMSCAN
0249 0 0000 30 0337
321 0250 0 0000 40 0256 STA COUNT
322 0251 0 0410 40 0259 STA 2F/04
323 0252 0 0000 42 2279 LDB =1F=
324 0253 0 0000 44 0385 DO EXTENDTABLE
0254 0 0000 30 0376
325 0255 0 0000 30 0134 BUN COMMENT
326 0256 0 0000 00 0000 COUNT (0)
327 0257 0 0000 00 0002 1 (2(04))
328 0258 0 0000 84 0081 ((POSCT/100)(04)+(POSCT//100)(64))
329 0259 0 0000 01 0000 2 NOP
330
331
332 SETTHEPUNCHLIBRARYBIT
333 0260 0 0001 26 0265 IFL THEPUNCHLIBRARYBIT/00,1
334 0261 0 0000 44 0350 DO BASICNUMSCAN
0262 0 0000 30 0337
335 0263 0 0000 40 3505 STA 3500+(NUMBEROFWORDS//100)(02)
336 0264 0 0000 30 0134 BUN COMMENT
337 THEPUNCHLIBRARYBIT
338 0265 0 0000 00 0000 (0)
339
340
341 THEREGOESTHEHALT
342 0266 0 4201 26 2461 IFL TBL+13/42,1
343 0267 0 0000 30 0134 BUN COMMENT
344
345
346 0268 0 0000 44 0350 SETLOCN DO BASICNUMSCAN
0269 0 0000 30 0337
347 0270 0 0410 40 0283 STA 2F/04
348 0271 0 0410 40 4241 STA FIX+1/04
349 0272 0 0410 40 0285 STA 4F/04
350 0273 0 0401 27 0285 DFL 4F/04,1
351 0274 0 0000 49 0004 SLA 4
352 0275 0 6410 40 0287 STA 6F/64
353 0276 0 6410 40 0289 STA 8F/64
354 0277 0 0000 42 2282 LDB =1F=
355 0278 0 0000 44 0385 DO EXTENDTABLE
0279 0 0000 30 0376
356 0280 0 0000 30 0134 BUN COMMENT
357 0281 0 0000 00 0008 1 (8)
358 0282 0 0000 74 0052 ((LODOX/100)(04)+(LODOX//100)(64))
359 0283 0 0000 30 0000 2 BUN 0
360 0284 0 0000 27 0052 ((ZERO/100)(04)+(ZERO//100)(64))
361 0285 0 0000 29 0000 4 RTF 0,00
362 0286 0 0000 21 0042 (((LOCN+4)/100)(04)+((LOCN+4)//100)(64))
363 0287 0 0000 00 0000 6 (0)
364 0288 0 0000 32 0016 ((IMAGE)/100)(04)+((IMAGE)//100)(64)
365 0289 2 0000 00 0000 8 (20000000000)
366
367
368 0290 0 0000 44 0115 VERSION DO SCAN
0291 0 0000 30 0107
369 0292 0 0010 18 2419 CFA 'ATEST'/00
370 0293 0 0000 35 0134 BCE COMMENT
371 0294 0 0010 18 2338 CFA 'ATEPA'/100
372 0295 0 0000 35 0308 BCE PTVER
373 0296 0 0010 18 2360 CFA 'ATEHS'/100
374 0297 0 0000 35 0299 BCE HSPVER
375 0298 0 0000 30 0095 BUN STATEMENTERROR
376
377 0299 0 0000 42 2287 HSPVER LDB =1F=
378 0300 0 0000 44 0385 DO EXTENDTABLE
0301 0 0000 30 0376
379 0302 0 0000 30 0134 BUN COMMENT
380 0303 0 0000 00 0004 1 (4)
381 0304 0 0000 17 0045 ((HDNG/100)(04)+(HDNG//100)(64)
382 0305 0 0000 67 4517 HPI HDNG
383 0306 0 0000 22 0045 (((HDNG+5)/100)(04)+((HDNG+5)//100)(64))
384 0307 4 4523 30 9898 4BUN 9898,(HDNG+6)(44)
385
386
387 0308 0 0000 42 2288 PTVER LDB =1F=
388 0309 0 0000 44 0385 DO EXTENDTABLE
0310 0 0000 30 0376
389 0311 0 0000 30 0134 BUN COMMENT
390
391 DJ 00
392 0312 0 0000 00 0024 1 (24)
393 0313 3 0000 35 0061 3J (NUMB/100)(04)+(NUMB//100)(64)
394 0314 1 0408 27 1677 -DFL IA/04,8
395 0315 3 0000 36 0061 3J ((NUMB+1)/100)(04)+((NUMB+1)//100)(64)
396 0316 1 0414 26 1677 -IFL IA/04,14
397 0317 3 0000 37 0061 3J ((NUMB+2)/100)(04)+((NUMB+2)//100)(64)
398 0318 1 0409 27 1677 -DFL IA/04,9
399 0319 3 0000 42 0061 3J ((NUMB+7)/100)(04)+((NUMB+7)//100)(64)
400 0320 1 0414 26 1677 -IFL IA/04,14
401 0321 3 0000 43 0061 3J ((NUMB+8)/100)(04)+((NUMB+8)//100)(64)
402 0322 1 0408 27 1677 -DFL IA/04,8
403 0323 3 0000 47 0061 3J ((NUMB+12)/100)(04)+((NUMB+12)//100)(64)
404 0324 1 0414 26 1677 -IFL IA/04,14
405 0325 3 0000 67 0079 3J ((LOD2+40)/100)(04)+((LOD2+40)//100)(64)
406 0326 1 4209 27 1677 -DFL IA/42,09
407 0327 3 0000 94 0079 3J ((LOD2+67)/100)(04)+((LOD2+67)//100)(64)
408 0328 1 0409 27 1677 -DFL IA/04,9
409 0329 3 0000 96 0079 3J ((LOD2+69)/100)(04)+((LOD2+69)//100)(64)
410 0330 1 0409 27 1677 -DFL IA/04,9
411 0331 3 0000 98 0079 3J ((LOD2+71)/100)(04)+((LOD2+71)//100)(64)
412 0332 1 0409 27 1677 -DFL IA/04,9
413 0333 3 0000 00 0080 3J ((LOD2+73)/100)(04)+((LOD2+73)//100)(64)
414 0334 1 0409 27 1677 -DFL IA/04,9
415 0335 3 0000 24 0080 3J ((LOD2+97)/100)(04)+((LOD2+97)//100)(64)
416 0336 1 4209 27 1677 -DFL IA/42,9
417
418
419 BASICNUMSCAN.1
420 0337 0 0000 44 0125 DO CHARACTER
0338 0 0000 30 0117
421 0339 0 9108 36 0341 BFA 1F/91,8
422 0340 0 0000 30 0117 BUN CHARACTER.1
423 0341 0 0000 46 0351 1 CLL NUMBER
424 0342 0 0001 48 0001 2 SRT 1
425 0343 0 0000 10 0351 CAD NUMBER
426 0344 0 0001 49 0001 SLT 1
427 0345 0 0000 40 0351 STA NUMBER
428 0346 0 0000 44 0125 DO CHARACTER
0347 0 0000 30 0117
429 0348 0 9108 36 0342 BFA 2B/91,8
430 0349 0 0000 10 0351 CAD NUMBER
431 BASICNUMSCAN
432 0350 0 0000 30 0350 BUN BASICNUMSCAN
433 0351 0 0000 00 0000 NUMBER (0)
434
435
436 TAPENUMSCAN.1
437 0352 0 0000 44 0350 DO BASICNUMSCAN
0353 0 0000 30 0337
438 0354 0 0000 49 0002 SLA 2
439 0355 0 0000 40 1676 STA HOLD0
440 0356 0 0000 44 0350 DO BASICNUMSCAN
0357 0 0000 30 0337
441 0358 0 0000 12 1676 ADD HOLD0
442 TAPENUMSCAN
443 0359 0 0000 30 0359 BUN TAPENUMSCAN
444
445
446 INPUTFORMATS
447 0360 0 0000 44 0350 DO BASICNUMSCAN
0361 0 0000 30 0337
448 0362 0 0000 12 2444 ADD =2=
449 0363 0 0000 30 0366 BUN 1F
450
451
452 OUTPUTFORMATS
453 0364 0 0000 44 0350 DO BASICNUMSCAN
0365 0 0000 30 0337
454 0366 0 0000 40 1675 1 STA HOLD
455 0367 0 0000 42 1675 LDB HOLD
456 0368 1 0000 42 0372 -LDB 2F
457 0369 0 0000 44 0385 DO EXTENDTABLE
0 0000 30 0376
458 0 0000 30 0134 BUN COMMENT
459 0 0000 00 1645 2 F1,F2,F3,F4
0 0000 00 1658
0 0000 00 1657
0 0000 00 1672
460
461
462 EXTENDTABLE.1
463 0376 1 0000 10 0000 -CAD 0
464 0377 0 0412 40 0384 STB 1F/04
465 0378 0 0401 26 0384 IFL 1F/04,1
466 0379 0 0000 42 0386 LDB KP
467 0380 0 0000 19 0386 ADL KP
468 0381 0 0000 19 0223 ADL K
469 0382 0 0000 49 0007 SLA 7
470 0383 0 3210 40 0384 STA 1F/32
471 0384 0 0000 29 0000 1 RTF 0,0
472 EXTENDTABLE
473 0385 0 0000 30 0385 BUN EXTENDTABLE
474 0386 0 0000 00 2462 KP (TBL+14)
475
476
477 0387 0 0000 41 1520 FINIS LDR COMPILER
478 0388 0 3211 40 0389 STR $+1/32
479 0389 0 2008 50 0000 MRW 2
480 0390 0 1000 38 0392 BCS $+2,1
481 0391 0 6202 26 1424 IFL W.1/62,02
482 0392 0 0004 45 0000 CLB
483 0393 1 0000 41 2448 2 -LDR TBL
484 0394 0 0811 18 2454 CFR TBL+6/08
485 0395 0 0099 37 0403 BFR 1F/00,99
486 0396 0 0001 35 0402 BCU 2F
487 0397 1 0000 10 2449 -CAD TBL+1
488 0398 0 1200 37 0401 BFR $+3/12,00
489 0399 0 0000 12 0239 ADD RELOCATION
490 0400 0 0000 13 2421 SUB =4900=
491 0401 0 0000 40 0224 STA MAMAXP
492 0402 0 0002 20 0393 2 IBB 2B,2
493
494 0403 0 0000 10 0224 1 CAD MAMAXP
495 0404 0 0000 13 0616 SUB IK
496 0405 0 0000 40 0224 STA MAMAXP
497 0406 0 0000 12 2445 ADD =1=
498 0407 0 0000 40 0602 STA REL
499 0408 0 0000 40 0991 STA IREL
500 0409 0 0000 13 0239 SUB RELOCATION
501 0410 0 0000 12 2299 ADD =5100=
502 0411 0 0000 49 0008 SLA 8
503 0412 0 0001 48 0002 SRT 2
504 0413 0 0000 48 0004 SRA 4
505 0414 0 0001 48 0008 SRT 8
506 0415 0 0000 10 0616 CAD IK
507 0416 0 0000 12 2300 ADD =((ITBL**10000)-1)=
508 0417 0 0000 44 0601 DO PUTINTABLE
0418 0 0000 30 0573
509
510 0419 0 0000 10 0224 1 CAD MAMAXP
511 0420 0 0000 13 0780 SUB OK
512 0421 0 0000 40 0224 STA MAMAXP
513 0422 0 0000 12 2445 ADD =1=
514 0423 0 0000 40 0602 STA REL
515 0424 0 0000 40 0992 STA OREL
516 0425 0 0000 13 0239 SUB RELOCATION
517 0426 0 0000 12 2299 ADD =5100=
518 0427 0 0000 49 0008 SLA 8
519 0428 0 0001 48 0002 SRT 2
520 0429 0 0000 48 0004 SRA 4
521 0430 0 0001 48 0008 SRT 8
522 0431 0 0000 10 0780 CAD OK
523 0432 0 0000 12 2294 ADD =((OTBL**10000)-1)=
524 0433 0 0000 44 0601 DO PUTINTABLE
0434 0 0000 30 0573
525 0435 0 0000 41 0224 LDR MAMAXP
526 0436 0 0001 40 0443 STR 2F
527 0437 0 0000 42 2290 LDB =1F=
528 0438 0 0000 44 0385 DO EXTENDTABLE
0439 0 0000 30 0376
529 0440 0 0000 30 0444 BUN 0F
530 0441 0 0000 00 0002 1 (2)
531 0442 0 0000 31 0042 (((MAMAX+4)/100)(04)+((MAMAX+4)//100)(64))
532 0443 0 0000 00 0000 2 (0)
533
534 0444 0 0000 42 0256 0 LDB COUNT
535 0445 0 9999 20 0448 1 IBB MRD,-1
536 0446 0 2100 58 0000 MPF 2,1
537 0447 0 0000 30 0445 BUN 1B
538
539 0448 0 0101 52 1677 MRD MNC IA,0,1
540 0449 0 0001 42 2412 LBC =798=
541 0450 0 0000 10 1519 1 CAD BLCT
542 0451 1 0410 18 3246 -CFA TBL+798/04
543 0452 0 0000 35 0496 BCE 3F
544 0453 0 0002 20 0450 25 IBB 1B,2
545
546 0454 0 0000 42 2297 LDB =99=
547 0455 1 0001 10 1677 97 -CAA IA
548 0456 0 0000 44 0931 STP IO.1
549 0457 0 0004 33 0932 BSA IO,4
550 0458 0 0001 21 0455 98 DBB 97B,1
551
552 0459 0 0000 42 1519 LDB BLCT
553 0460 1 0000 10 2157 -CAD SUMTBL
554 0461 0 0410 40 0471 STA 2F/04
555 0462 0 0002 48 0004 SRS 4
556 0463 0 0410 40 0467 STA 4F/04
557 0464 0 0000 40 1676 STA HOLD0
558 0465 0 6400 28 1676 DLB HOLD0/64
559 0466 0 0001 45 0000 CLA
560 0467 1 0000 13 0000 4 -SUB 0
561 0468 0 0001 21 0467 DBB 4B,1
562 0469 0 0000 12 1777 ADD IA+100
563 0470 0 0000 46 1777 CLL IA+100
564 0471 0 0000 40 0000 2 STA 0
565 0472 0 0000 31 0473 BOF $+1
566
567 0473 0 0000 42 2323 MOW LDB =IA=
568 0474 0 0000 44 1448 DO W
0475 0 0000 30 1424
569 0476 0 0401 26 1519 IFL BLCT/04,1
570 0477 0 0000 10 1519 CAD BLCT
571 0478 0 0410 18 2289 CFA =52=/04
572 0479 0 0000 35 0483 BCE 5F
573 0480 0 0410 18 2295 CFA =83=/04
574 0481 0 0000 34 0516 BCH 6F
575 0482 0 0000 30 0448 BUN MRD
576
577 0483 0 2201 58 0000 5 MPB 2,2
578 0484 0 2200 52 4800 MRD 4800,2,2
579 0485 0 0000 46 1777 CLL IA+100
580 0486 0 0000 46 4800 CLL 4800
581 0487 0 0000 42 2317 LDB =199=
582 0488 0 0001 45 0000 CLA
583 0489 1 0000 13 4800 -SUB 4800
584 0490 0 0001 21 0489 DBB $-1,1
585 0491 0 0000 40 4800 STA 4800
586 0492 0 2201 58 0000 MPB 2,2
587 0493 0 2200 56 4800 MOW 4800,2,2
588 0494 0 0300 58 0000 MPF 0,3
589 0495 0 0000 30 0448 BUN MRD
590
591 0496 1 0000 10 3247 3 -CAD TBL+799
592 0497 1 0000 41 3246 -LDR TBL+798
593 0498 0 0002 40 1676 STB HOLD0
594 0499 1 6400 28 3246 -DLB TBL+798/64
595 0500 0 1230 37 0512 BFR 33F/12,30
596 0501 1 0000 40 1677 -STA IA
597 0502 0 1220 37 0510 BFR 30F/12,20
598 0503 0 1200 37 0508 BFR $+5/12,00
599 0504 0 0000 43 0000 LSA 0
600 0505 0 0000 12 0239 ADD RELOCATION
601 0506 0 0000 13 2421 SUB =4900=
602 0507 1 0410 40 1677 -STA IA/04
603 0508 0 0000 42 1676 LDB HOLD0
604 0509 0 0000 30 0453 BUN 25B
605 0510 0 1001 03 1677 30 PRD IA,1,100
606 0511 0 0000 30 0508 BUN $-3
607 0512 0 0000 40 0513 33 STA $+1
608 0513 0 0000 00 0000 HLT
609 0514 0 0000 42 1676 RETURN LDB HOLD0
610 0515 0 0000 30 0453 BUN 25B
611
612 0516 0 4400 28 0519 6 DLB 5F/44,0
613 0517 1 0000 29 9500 1 -RTF 9500
614 0518 0 1101 27 0520 DFL $+2/11,1
615 0519 0 4500 32 0517 5 BRP 1B,4500(44)
616 0520 0 3000 42 0247 LDB PROCESSBIT,3(11)
617 0521 0 0001 21 0993 DBB THELIBRARYPROCESSOR,1
618
619 0522 0 0100 52 1677 1 MRD IA,0,1
620 0523 0 0000 42 2323 LDB =IA=
621 0524 0 0000 44 1448 DO W
0525 0 0000 30 1424
622 0526 0 0000 10 1677 CAD IA
623 0527 0 0000 18 2277 CFA =99999999999=
624 0528 0 0001 35 0522 BCU 1B
625
626
627 0529 0 1000 38 0531 CRDUMP.1 BCS $+2,1
628 0530 0 6202 26 0540 IFL 15F/62,02
629 0531 0 3000 42 2323 3 LDB =IA=,3(11)
630 0532 0 0000 29 4500 2 RTF 4500,00
631 0533 0 0000 42 2297 LDB =99=
632 0534 1 0001 10 1677 9 -CAA IA
633 0535 0 0000 44 0931 STP IO.1
634 0536 0 0004 33 0932 BSA IO,4
635 0537 0 0005 33 0932 BSA IO,5
636 0538 0 0001 21 0534 DBB 9B,1
637 0539 0 0000 42 2323 LDB =IA=
638 0540 1 2100 54 0000 15 -MIW 0,2,1
639 0541 0 0001 26 1449 IFL THECOUNT/00,1
640 0542 0 8181 26 0532 IFL 2B/81,1
641 0543 0 1101 27 0531 DFL 3B/11,1
642 0544 0 0000 32 0531 BRP 3B
643 0545 0 0000 30 0546 CRDUMP BUN $+1
644
645
646 ENDOFGENERATION
647 0546 0 0070 09 2324 SPO R'END OF GENERATION OF THE COMPILER'R
648 0547 0 0008 50 0000 MRW 0
649 0548 0 0000 10 1449 CAD THECOUNT
650 0549 0 0001 48 0004 SRT 4
651 0550 0 0001 45 0000 CLA
652 0551 0 3000 49 0001 1 SLA 1,3(11)
653 0552 0 1109 26 0551 IFL $-1/11,9
654 0553 0 0000 12 2269 ADD =8=
655 0554 0 0001 49 0001 SLT 1
656 0555 0 0000 31 0551 BOF 1B
657 0556 0 0002 43 0000 LSA 2
658 0557 0 0000 40 1675 STA HOLD
659 0558 0 0010 09 1675 SPO HOLD,1
660 0559 0 0040 09 2345 SPO ' BLOCKS ON UNIT 2 'RR
661 0560 0 0000 41 1520 LDR COMPILER
662 0561 0 3211 40 0562 STR $+1/32
663 0562 0 3008 50 0000 MRW 2
664 0563 0 0000 42 0265 LDB THEPUNCHLIBRARYBIT
665 0564 0 9999 30 0571 IBB 1F,-1
666 0565 0 0000 42 2446 RELOCATE LDB =1000=
667 0566 0 8181 26 0567 5 IFL $+1/81,1
668 0567 0 0000 29 3400 RTF 3400,00
669 0568 0 1101 27 0570 DFL 6F/11,1
670 0569 0 0000 32 0566 BRP 5B
671 0570 0 4000 30 1028 6 BUN READY,4(11)
672 0571 0 0757 00 7250 1 HLT 7250,757(44)
673 0572 0 0000 30 0571 BUN $-1
674
675
676 PUTINTABLE.1
677 0573 0 0000 40 3249 STA TEMP1
678 0574 0 0001 40 3250 STR TEMP2
679 0575 0 0000 42 0386 1 LDB KP
680 0576 0 0000 41 3250 LDR TEMP2
681 0577 1 0001 40 0000 -STR 0
682 0578 0 6400 28 3249 DLB TEMP1/64,0
683 0579 1 0001 10 0000 -CAA
684 0580 0 0000 33 0587 BSA $+7,8
685 0581 0 0006 33 0584 BSA $+3,6
686 0582 1 0000 10 0000 -CAD 0
687 0583 0 0000 30 0591 BUN $+8
688 0584 0 0001 48 0006 SRT 6
689 0585 0 0000 12 0602 ADD REL
690 0586 0 0001 49 0006 SLT 6
691 0587 0 0000 12 0602 ADD REL
692 0588 1 0010 40 0000 -STA 0/00
693 0589 0 0001 45 0000 CLA
694 0590 1 0000 12 0000 -ADD 0
695 0591 0 0000 42 0386 LDB KP
696 0592 1 0000 40 0001 -STA 1
697 0593 0 6401 26 3249 IFL TEMP1/64,1
698 0594 0 6201 26 3250 IFL TEMP2/62,1
699 0595 0 0402 26 0386 IFL KP/04,2
700 0596 0 0401 27 3249 DFL TEMP1/04,1
701 0597 0 0000 31 0599 BOF $+2
702 0598 0 0000 30 0600 BUN $+2
703 0599 0 0401 26 3250 IFL TEMP2/04,1
704 0600 0 0000 32 0575 BRP 1B
705 0601 0 0000 30 0601 PUTINTABLE BUN PUTINTABLE
706 0602 0 0000 00 0000 REL (0)
707
708
709 0603 0 0000 41 0051 INPUTMEDIA LDR 20B
710 0604 0 1111 40 0607 STR 1F/11
711 0605 0 1111 40 0614 STR 2F/11
712 0606 0 0000 46 0616 CLL IK
713 0607 0 0011 60 1539 1 CNCL CDR+12,0
714 0608 0 0000 10 1527 CAD CDR
715 0609 0 0002 33 0134 BSA COMMENT,2
716 0610 0 0000 10 1536 CAD CDR+9
717 0611 0 0001 26 0616 IFL IK/00,1
718 0612 0 0000 42 0616 LDB IK
719 0613 1 0000 40 0616 -STA ITBL-1
720 0614 0 0000 60 1539 2 CNC CDR+12,0
721 0615 0 0000 30 0607 BUN 1B
722 0616 0 0000 00 0006 IK (6)
723 0617 0 0000 01 0000 ITBL NOP
724 0618 8 0000 42 0000 8LDB ($-1)-ITBL
725 0619 8 0412 40 0005 8STB (1F)-ITBL/04
726 0620 1 4400 28 9999 -DLB -1/44
727 0621 1 1010 60 0015 UNIT1 -CNC 15,1
728 0622 0 0000 30 0622 1 BUN $
729 ORIGIN ITBL+150
730
731
732 OUTPUTMEDIA
733 0767 0 0000 41 0051 LDR 20B
734 0768 0 1111 40 0771 STR 1F/11
735 0769 0 1111 40 0778 STR 2F/11
736 0770 0 0000 46 0780 CLL OK
737 0771 0 0011 60 1539 1 CNCL CDR+12,0
738 0772 0 0000 10 1527 CAD CDR
739 0773 0 0002 33 0134 BSA COMMENT,2
740 0774 0 0000 10 1536 CAD CDR+9
741 0775 0 0001 26 0780 IFL OK/00,1
742 0776 0 0000 42 0780 LDB OK
743 0777 1 0000 40 0780 -STA OTBL-1
744 0778 0 0010 60 1539 2 CNC CDR+12,0
745 0779 0 0000 30 0771 BUN 1B
746 0780 0 0000 00 0013 OK (13)
747 0781 0 0000 01 0000 OTBL NOP
748 0782 8 0000 42 0000 8LDB ($-1)-OTBL
749 0783 8 0412 40 0012 8STB (1F)-OTBL/04
750 0784 1 0000 10 9999 -CAD -1
751 0785 0 0000 48 0006 SRA 6
752 0786 8 0410 40 0011 8STA (2F)-OTBL/04
753 0787 1 0000 10 9998 -CAD -2
754 0788 8 4210 40 0011 8STA (2F)-OTBL/42
755 0789 0 0000 48 0008 SRA 8
756 0790 0 0000 13 4100 SUB XONE+1
757 0791 8 0000 19 0011 8ADL (2F)-OTBL
758 UNIT2 IS $+1
759 0792 0 2009 61 0000 2 CWR 0,2,0
760 0793 0 0000 30 0793 1 BUN $
761 ORIGIN OTBL+150
762
763
764
765 98 IS IO.1
766 0931 0 0000 30 0931 IO.1 BUN IO.1
767 0932 0 6260 36 0947 IO BFA CRD/62,60
768 0933 0 6262 36 0947 BFA CRD/62,62
769 0934 0 6264 36 0947 BFA CRD/62,64
770 0935 0 6261 36 0952 BFA CWR/62,61
771 0936 0 6263 36 0952 BFA CWR/62,63
772 0937 0 6265 36 0952 BFA CWR/62,65
773 0938 0 6250 36 0961 BFA UNITLANE/62,50
774 0939 0 5105 36 0974 BFA TAPE/51,5
775 0940 0 6244 36 0983 BFA STPBUN/62,44
776 0941 0 6230 36 0983 BFA STPBUN/62,30
777 0942 0 0000 30 0931 BUN 98B
778
779
780 0943 0 0001 45 0000 99 CLA
781 0944 1 0000 12 1677 -AD IA
782 0945 1 0000 40 1677 -STA IA
783 0946 0 0000 30 0931 BUN 98B
784
785
786 0947 0 1101 36 0949 CRD BFA $+2/11,1
787 0948 0 0000 30 0931 BUN 98B
788 0949 0 0000 10 1823 CAD READER
789 0950 1 1110 40 1677 -STA IA/11
790 0951 0 0000 30 0943 BUN 99B
791
792 0952 0 1101 36 0958 CWR BFA 1F/11,1
793 0953 0 1102 36 0955 BFA $+2/11,2
794 0954 0 0000 30 0931 BUN 98B
795 0955 0 0000 10 1801 CAD PRINTER
796 0956 1 1110 40 1677 -STA IA/11
797 0957 0 0000 30 0943 BUN 99B
798 0958 0 0000 10 1803 1 CAD PUNCH
799 0959 1 1110 40 1677 -STA IA/11
800 0960 0 0000 30 0943 BUN 99B
801
802
803 0961 0 1101 36 0964 UNITLANE BFA 1F/11,1
804 0962 0 1102 36 0970 BFA 2F/11,2
805 0963 0 0000 30 0931 BUN 98B
806 0964 0 0000 41 1827 1 LDR SCRATCHML
807 0965 0 3100 36 0967 BFA $+2/31,0
808 0966 0 0000 41 1828 LDR SCRATCHDUMP
809 0967 1 3311 40 1677 -STR IA/33
810 0968 0 4100 36 0931 BFA 98B/41,0
811 0969 0 0000 30 0943 BUN 99B
812 0970 0 0000 41 1520 2 LDR COMPILER
813 0971 1 3311 40 1677 -STR IA/33
814 0972 0 4100 36 0931 BFA 98B/41,0
815 0973 0 0000 30 0943 BUN 99B
816
817
818 0974 0 1101 36 0977 TAPE BFA 1F/11,1
819 0975 0 1102 36 0980 BFA 2F/11,2
820 0976 0 0000 30 0931 BUN 98B
821 0977 0 0000 41 1827 1 LDR SCRATCHML
822 0978 1 1111 40 1677 -STR IA/11
823 0979 0 0000 30 0943 BUN 99B
824 0980 0 0000 41 1520 2 LDR COMPILER
825 0981 1 1111 40 1677 -STR IA/11
826 0982 0 0000 30 0943 BUN 99B
827
828
829 0983 0 0498 36 0986 STPBUN BFA 1F/04,98
830 0984 0 0499 36 0988 BFA 2F/04,99
831 0985 0 0000 30 0931 BUN 98B
832 0986 0 0000 41 0992 1 LDR OREL
833 0987 0 0000 30 0989 BUN $+2
834 0988 0 0000 41 0991 2 LDR IREL
835 0989 1 0411 40 1677 -STR IA/04
836 0990 0 0000 30 0943 BUN 99B
837 0991 0 0000 00 0000 IREL (0)
838 0992 0 0000 00 0000 OREL (0)
839
840
841 THELIBRARYPROCESSOR
842 0993 0 0080 09 2366 SPO R'THE LIBRARY PROCESSOR'RRR'ROUTINE NAME'R
843 0994 0 0001 58 0000 MPB 0,10
844 0995 0 0001 58 0000 MPB 0,10
845 0996 0 0001 58 0000 MPB 0,10
846 0997 0 0501 58 0000 MPB 0,5
847 0998 0 0300 52 3996 MRD 3996,0,3
848 0999 0 0000 42 1001 LDB $+2
849 1000 0 0010 29 2265 RTF =0=,1
850 1001 0 0990 29 1857 RTF LIBRARYTABLE,99
851 1002 0 0000 20 1857 RTF LIBRARYTABLE,100
852 1003 0 3000 29 1857 RTF LIBRARYTABLE,100,3(11)
853 1004 0 1101 27 1003 DFL $-1/11,1
854 1005 0 0000 42 2417 LDB =LIBRARYTABLE=
855 1006 0 0000 44 1448 DO W
1007 0 0000 30 1424
856 1008 0 0000 32 1004 BRP $-4
857 1009 0 0000 44 1192 RDSTP RDEX
858 1010 0 0000 30 1184 BUN RDE
859 1011 0 0002 33 1015 BSA RDP,2
860 1012 0 0040 09 2331 SPO R'MISSING NAME CARD'II
861 1013 0 1370 00 7310 HLT 7310,1370(44)
862 1014 0 0000 30 1013 BUN $-1
863 1015 0 0000 44 1211 RDP STP SCANX
864 1016 0 0000 30 1193 BUN SCAN1
865 1017 0 0000 10 1829 CAD SYMBOL
866 1018 0 0010 18 2310 CFA 'FINIS'/00
867 1019 0 0001 35 1023 BCU $+4
868 1020 0 0000 10 1830 CAD SYMBOL+1
869 1021 0 0010 18 2413 CFA 'H'/00
870 1022 0 0000 35 1340 BCE DONE
871 1023 0 0000 44 1289 STP SYMBOLINSERTX
872 1024 0 0000 30 1275 BUN SYMBOLINSERT
873 1025 0 0010 09 2415 SPO ''RIIII
874 1026 0 0020 09 1829 SPO SYMBOL,2
875 1027 0 0401 26 1797 IFL LIBRARYINDEX/04,1
876 1028 0 0000 10 1797 CAD LIBRARYINDEX
877 1029 0 0000 49 0006 SLA 6
878 1030 0 0000 40 3251 STA WRITEBUFFER
879 1031 0 0000 42 1797 LDB LIBRARYINDEX
880 1032 0 0000 10 1795 CAD L
881 1033 1 6410 40 1857 -STA LIBRARYTABLE/64
882 1034 0 0000 44 1211 STP SCANX
883 1035 0 0000 30 1193 BUN SCAN1
884 1036 0 6512 40 1825 STB RR2/65
885 1037 0 0000 46 1826 CLL RR3
886 1038 0 0103 26 1826 IFL RR3/01,3
887 1039 0 0000 10 1829 CAD SYMBOL
888 1040 0 2223 36 1045 VFA NME/22,23
889 1041 0 0000 36 1074 BZA NAME2
890 PUNCTUATIONERROR
891 1042 0 0050 09 2376 SPO R'INCORRECT PUNCTUATION'III
892 1043 0 1370 00 7310 HLT 7310,1370(44)
893 1044 0 0000 30 1043 BUN $-1
894
895
896 1045 0 0000 44 1211 NAME STP SCANX
897 1046 0 0000 30 1193 BUN SCAN1
898 1047 0 0000 10 1829 CAD SYMBOL
899 1048 0 0010 18 2309 CFA 'INTEG'/00
900 1049 0 0000 35 1052 BCE 1F
901 1050 0 0010 18 2311 CFA 'BOOLE'/00
902 1051 0 0001 35 1054 BCU 2F
903 1052 0 2101 26 1825 1 IFL RR2/21,1
904 1053 0 0000 30 1059 BUN 3F
905 1054 0 0010 18 2395 2 CFA 'REAL'/00
906 1055 0 0000 35 1059 BCE 3F
907 1056 0 0010 18 2339 CFA 'FLOAT'/00
908 1057 0 0000 35 1059 BCE 3F
909 1058 0 2103 26 1825 IFL RR2/21,3
910 1059 0 0000 44 1211 3 STP SCANX
911 1060 0 0000 30 1193 BUN SCAN1
912 1061 0 0000 10 1829 CAD SYMBOL
913 1062 0 0000 36 1074 BZA NAME2
914 1063 0 2224 36 1065 BFA 1F/22,24
915 1064 0 0000 30 1042 BUN PUNCTUATIONERROR
916 1065 0 0000 44 1211 1 STP SCANX
917 1066 0 0000 30 1193 BUN SCAN1
918 1067 0 0000 10 1829 CAD SYMBOL
919 1068 0 0010 18 2309 CFA 'INTEG'/00
920 1069 0 0000 35 1072 BCE 1F
921 1070 0 0010 18 2311 CFA 'BOOLE'/00
922 1071 0 0001 35 1073 BCU 2F
923 1072 0 0101 26 1826 1 IFL RR3/01,1
924 1073 0 0103 27 1826 2 DFL RR3/01,3
925
926
927 1074 0 6400 28 1795 NAME2 L/64
928 1075 1 0000 46 0000 -CLL 0
929 1076 0 0000 10 1825 CAD RR2
930 1077 1 1211 40 0000 -STA 0/21
931 1078 0 0000 10 1826 CAD RR3
932 1079 1 0110 40 0000 -STA 0/01
933 1080 1 1103 26 0000 -IFL 0/11,3
934 1081 0 0000 46 1796 CLL LENGTH
935 1082 0 0000 46 1545 CLL EQUIVALENCETABLE
936 1083 0 0000 42 2359 LDB =EQUIVALENCETABLE+1=
937 1084 0 0990 29 1545 RTF EQUIVALENCETABLE,99
938
939
940 1085 0 0000 44 1192 EQP STP RDEX
941 1086 0 0000 30 1184 BUN RDE
942 1087 0 0000 33 1121 BSA NUMERIC,0
943 1088 0 0000 44 1211 STP SCANX
944 1089 0 0000 30 1193 BUN SCAN1
945 1090 0 0000 44 1289 STP SYMBOLINSERTX
946 1091 0 0000 30 1275 BUN SYMBOLINSERT
947 1092 0 0000 44 1211 STP SCANX
948 1093 0 0000 30 1193 BUN SCAN1
949 1094 0 2233 36 1096 BFA EQIV/22,33
950 1095 0 0000 30 1042 BUN PUNCTUATIONERROR
951
952 1096 0 0000 44 1211 EQIV STP SCANX
953 1097 0 0000 30 1193 BUN SCAN1
954 1098 0 0000 18 2298 EQIP CFA =100=
955 1099 0 0210 40 1544 STA EQUIVALENCEINDEX/02
956 1100 0 0001 34 1104 BCL 1F
957 1101 0 0060 09 2303 SPO R'EQUIVALENCE NUMBER TOO LARGE'I
958 1102 0 1370 00 7310 HLT 7310,1370(44)
959 1103 0 0000 30 1102 BUN $-1
960 1104 0 0000 10 1799 1 CAD LMAX
961 1105 0 0000 42 1797 LDB LIBRARYINDEX
962 1106 1 0000 41 1857 -LDR LIBRARYTABLE
963 1107 1 0410 40 1857 -STA LIBRARYTABLE/04
964 1108 0 0401 28 1799 DLB LMAX/04,1
965 1109 1 0411 40 0001 -STR 1/04
966 1110 0 0000 10 1795 CAD L
967 1111 1 6410 40 0001 -STA 1/64
968 1112 0 0000 42 1544 LDB EQUIVALENCEINDEX
969 1113 1 6410 40 1545 -STA EQUIVALENCETABLE/64
970 1114 0 0000 49 0002 SLA 2
971 1115 0 0000 12 1544 ADD EQUIVALENCEINDEX
972 1116 0 0004 43 0000 LSA 4
973 1117 0 0000 40 1794 STA INSTRUCTION
974 1118 0 0000 44 1258 STP WRITX
975 1119 0 0000 30 1251 BUN WRIT
976 1120 0 0000 30 1085 BUN EQP
977
978
979 1121 0 0000 46 1800 NUMERIC CLL NI
980 1122 0 0000 46 1488 CLL ADDRESS
981 1123 0 0001 45 0000 2 CLA
982 1124 0 9910 40 1815 STA READ+8/99
983 1125 0 0101 27 1815 8 DFL READ+8/01,1
984 1126 0 4401 26 1815 IFL READ+8/44,1
985 1127 0 0000 32 1134 BRP 1F
986 1128 0 1010 50 1822 CNC READ+15,1
987 1129 0 0000 10 1807 CAD READ
988 1130 0 0000 33 1123 BSA 2B,0
989 1131 0 0040 09 2283 SPO R'MISPLACED NAME CARD'
990 1132 0 1370 00 7310 HLT 7310,1370(44)
991 1133 0 0000 30 1132 BUN $-1
992 1134 0 0000 10 1816 1 CAD READ+9
993 1135 0 0410 18 1488 CFA ADDRESS/04
994 1136 0 0410 40 1488 STA ADDRESS/04
995 1137 0 0000 35 1142 BCE 4F
996 1138 0 0000 34 1142 BCH 4F
997 1139 0 0030 09 2319 SPO R'SEQUENCE ERROR'
998 1140 9 1379 00 7310 HLT 7310,1370(44)
999 1141 0 0000 30 1140 BUN $-1
1000 1142 0 4400 28 1815 4 DLB READ+8/44
1001 1143 1 0000 10 1816 -CAD READ+9
1002 1144 0 0000 40 1794 STA INSTRUCTION
1003 1145 0 0004 33 1163 BSA 6F,4
1004 1146 0 0005 33 1152 BSA 7F,5
1005 1147 0 0006 33 1152 BSA 7F,6
1006 1148 0 6401 26 1796 3 IFL LENGTH/64,1
1007 1149 0 0000 44 1258 0 STP WRITX
1008 1150 0 0000 30 1251 BUN WRIT
1009 1151 0 0000 30 1125 BUN 8B
1010
1011 1152 0 6290 36 1148 7 BFA 3B/62,90
1012 1153 0 6291 36 1148 BFA 3B/62,91
1013 1154 0 8210 40 3248 STA TEMP/82
1014 1155 0 6212 40 3248 STB TEMP/62
1015 1156 0 8400 28 3248 DLB TEMP/84
1016 1157 1 0000 41 1545 -LDR EQUIVALENCETABLE
1017 1158 0 0000 37 1160 BZR $+2
1018 1159 0 0000 30 1148 BUN 3B
1019 1160 0 0050 09 2312 SPO R'MISSING EQUIVALENT'II
1020 1161 0 1370 00 7310 HLT 7310,1370(44)
1021 1162 0 0000 30 1161 BUN $-1
1022
1023 1163 0 6200 36 1174 6 BFA 4F/62,0
1024 1164 0 6299 36 1177 BFA 5F/62,99
1025 1165 0 6290 36 1152 BFA 7B/62,90
1026 1166 0 6291 36 1152 BFA 7B/62,91
1027 1167 0 6201 36 1149 BFA 0B/62,01
1028 1168 0 6202 36 1149 BFA 0B/62,02
1029 1169 0 6203 36 1149 BFA 0B/62/03
1030 1170 0 6204 36 1149 BFA 0B/62,04
1031 1171 0 0040 09 2361 SPO R'IMPROPER PSEUDO-OP'I
1032 1172 0 1370 00 7310 HLT 7310,1370(44)
1033 1173 0 0000 30 1172 BUN $-1
1034
1035 1174 0 0000 49 0004 4 SLA 4
1036 1175 0 0000 19 1796 ADL LENGTH
1037 1176 0 0000 30 1149 BUN 0B
1038
1039 1177 0 0000 44 1258 5 STP WRITX
1040 1178 0 0000 30 1259 BUN WRITF
1041 1179 0 0000 42 1797 LDB LIBRARYINDEX
1042 1180 1 6400 28 1857 -DLB LIBRARYTABLE/64
1043 1181 0 0000 10 1796 CAD LENGTH
1044 1182 1 6410 40 0000 -STA 0/64
1045 1183 0 0000 30 1009 BUN RD
1046
1047
1048 1184 0 0000 42 1186 RDE LDB $+2
1049 1185 0 0010 29 2265 RTF =0=,1
1050 1186 0 0150 29 1807 RTF READ,15
1051 1187 0 0000 41 0051 LDR 20B
1052 1188 0 1111 40 1189 STR $+1/11
1053 1189 0 1010 60 1822 CNC READ+15,1
1054 1190 0 0000 10 1807 CAD READ
1055 1191 0 0000 46 1824 CLL RDI
1056 1192 0 0000 30 1192 RDEX BUN $
1057
1058
1059 1193 0 0502 26 1824 SCAN1 IFL RDI/05,2
1060 1194 0 0000 46 1829 CLL SYMBOL
1061 1195 0 0000 42 2318 LDB =SYMBOL+1=
1062 1196 0 0090 29 1829 RTF SYMBOL,9
1063 1197 0 9400 28 1824 DLB RDI/94
1064 1198 1 0000 10 1807 -CAD READ
1065 1199 0 9984 20 1202 IBB 1F,9984
1066 1200 0 0007 45 0000 CLT
1067 1201 0 0000 30 1211 BUN SCANX
1068 1202 0 0000 42 1824 1 LDB RDI
1069 1203 1 0000 49 0000 -SLA 0
1070 1204 0 2210 40 0125 STA CHARACTER/22
1071 1205 0 2200 36 1193 BFA SCAN1/22,0
1072 1206 0 1108 36 1212 BFA SCNN/11,8
1073 1207 0 1104 36 1226 BFA SCNA/11,4
1074 1208 0 1105 36 1226 BFA SCNA/11,5
1075 1209 0 1106 36 1226 BFA SCNA/11,6
1076 1210 0 2210 40 1829 STA SYMBOL/22
1077 1211 0 0000 30 1211 SCANX BUN SCANX
1078
1079
1080 1212 0 0000 46 1829 SCNN CLL SYMBOL
1081 1213 0 0001 48 0009 1 SRT 9
1082 1214 0 0000 10 1829 CAD SYMBOL
1083 1215 0 0001 49 0001 SLT 1
1084 1216 0 0000 40 1829 STA SYMBOL
1085 1217 0 0502 26 1824 IFL RDI/05,2
1086 1218 0 9400 28 1824 DLB RDI/94
1087 1219 1 0000 10 1807 -CAD READ
1088 1220 0 0000 42 1824 LDB RDI
1089 1221 1 0000 49 0000 -SLA 0
1090 1222 0 1108 36 1213 BFA 1B/11,8
1091 1223 0 0502 27 1824 DFL RDI/05,2
1092 1224 0 0000 10 1829 CAD SYMBOL
1093 1225 0 0000 30 1211 BUN SCANX
1094
1095
1096 1226 0 0000 46 1829 SCNA CLL SYMBOL
1097 1227 0 0000 42 2318 LDB =SYMBOL+1=
1098 1228 0 0090 29 1829 RTF SYMBOL,9
1099 1229 0 0000 46 1543 CLL DD
1100 1230 0 0000 48 0008 1 SRA 8
1101 1231 0 0001 42 1543 LBC DD
1102 1232 1 0000 49 0008 -SLA 8
1103 1233 0 9400 28 1543 DLB DD/94
1104 1234 0 0402 26 1543 IFL DD/04,2
1105 1235 1 0000 19 1829 -ADL SYMBOL
1106 1236 0 0402 26 1824 IFL RDI/04,2
1107 1237 0 9400 28 1824 DLB RDI/94
1108 1238 1 0000 10 1807 -CAD READ
1109 1239 0 0000 42 1824 LDB RDI
1110 1240 1 0000 49 0000 -SLA 0
1111 1241 0 1104 36 1230 BFA 1B/11,4
1112 1242 0 1105 36 1230 BFA 1B/11,5
1113 1243 0 1106 36 1230 BFA 1B/11,6
1114 1244 0 1108 36 1230 BFA 1B/11,8
1115 1245 0 2214 36 1230 BFA 1B/22,14
1116 1246 0 0502 27 1824 DFL RDI/05,2
1117 1247 0 1220 26 1829 IFL SYMBOL/12,20
1118 1248 0 1220 26 1830 IFL SYMBOL+1/12,20
1119 1249 0 0000 10 1829 CAD SYMBOL
1120 1250 0 0000 30 1211 BUN SCANX
1121
1122
1123 1251 0 0000 10 1794 WRIT CAD INSTRUCTION
1124 1252 0 0000 42 1518 LDB BC
1125 1253 1 0000 40 3250 -STA WRITEBUFFER-1
1126 1254 0 0000 19 3350 ADL WRITEBUFFER+99
1127 1255 0 0000 31 1256 BOF $+1
1128 1256 0 0201 26 1518 IFL BC/02,1
1129 1257 0 0000 31 1263 BOF 1F
1130 1258 0 0000 30 1258 WRITX BUN WRITX
1131 1259 0 0000 42 1518 WRITF LDB BC
1132 1260 0 0000 10 1794 CAD INSTRUCTION
1133 1261 1 0000 40 3250 -STA WRITEBUFFER-1
1134 1262 0 0000 19 3350 ADL WRITEBUFFER+99
1135 1263 0 0000 11 3350 1 CSU WRITEBUFFER+99
1136 1264 0 0000 40 3350 STA WRITEBUFFER+99
1137 1265 0 0000 42 2343 LDB =WRITEBUFFER=
1138 1266 0 0000 44 1448 DO W
1267 0 0000 30 1424
1139 1268 0 0000 46 1518 WRITE CLL BC
1140 1269 0 0002 26 1518 IFL BC/00,2
1141 1270 0 0001 26 3251 IFL WRITEBUFFER/00,1
1142 1271 0 0000 42 1273 LDB $+2
1143 1272 0 0010 29 2265 RTF =0=,1
1144 1273 0 0980 29 3252 RTF WRITEBUFFER,98
1145 1274 0 0000 30 1258 BUN WRITX
1146
1147
1148 SYMBOLINSERT
1149 1275 0 0000 41 1543 LDR DD
1150 1276 0 0001 18 2266 CFR =10=
1151 1277 0 0001 49 0006 SLT 6
1152 1278 0 4411 40 1337 STR RTF/44
1153 1279 0 4309 26 1337 IFL RTF/43,9
1154 1280 0 0001 49 0002 SLT 2
1155 1281 0 2211 40 1543 STR DD/22
1156 1282 0 0000 34 1291 BCH 1F
1157 1283 0 0000 41 1829 LDR SYMBOL
1158 1284 0 0000 42 1802 LDB PRMAX
1159 1285 1 0011 18 2241 3 -CFR PRTABLE/00
1160 1286 0 0001 35 1290 BCU 2F
1161 1287 1 0000 10 2242 -CAD PRTABLE+1
1162 1288 0 6410 40 1795 STA L/64
1163 SYMBOLINSERTX
1164 1289 0 0000 30 1289 BUN SYMBOLINSERTX
1165 1290 0 0002 21 1285 2 DBB 3B,2
1166 1291 0 0001 10 1829 1 CAA SYMBOL
1167 1292 0 0001 48 0010 SRT 10
1168 1293 0 0000 15 2297 DIV =99=
1169 1294 0 0001 49 0010 SLT 10
1170 1295 0 0000 12 2301 ADD =SCRTB=
1171 1296 0 0000 40 1798 STA LL0
1172 1297 0 0000 40 0223 STA K
1173 1298 0 0000 42 0223 LDB K
1174 1299 0 0000 10 1543 CAD DD
1175 1300 1 2210 18 0000 3 -CFA 0/22
1176 1301 0 0001 35 1316 BCU 1F
1177 1302 1 6400 28 0000 -DLB 0/64
1178 1303 0 0412 40 1307 STB COMPARE/04
1179 1304 0 0401 26 1307 IFL COMPARE/04,1
1180 1305 0 3400 28 1337 DLB RTF/34
1181 1306 0 9999 20 1307 IBB $+1,9999
1182 1307 1 0000 41 0000 COMPARE -LDR 0
1183 1308 1 0011 18 1829 -CFR SYMBOL/00
1184 1309 0 0001 35 1315 BCU 2F
1185 1310 0 0001 21 1307 DBB COMPARE,1
1186 1311 0 0000 42 0223 LDB K
1187 1312 1 0000 10 0000 -CAD 0
1188 1313 0 6410 40 1795 STA L/64
1189 1314 0 0000 30 1289 BUN SYMBOLINSERTX
1190
1191 1315 0 0000 42 0223 2 LDB K
1192 1316 1 0000 42 0000 1 -LDB 0
1193 1317 0 0002 40 0223 STB K
1194 1318 0 8000 20 1320 IBB INSERT,8000
1195 1319 0 2000 20 1300 IBB 3B,2000
1196 1320 0 0000 42 1798 INSERT LDB LL0
1197 1321 1 0000 41 0000 -LDR 0
1198 1322 0 0000 37 1327 BZR 1F
1199 1323 0 0000 10 4216 CAD SSC
1200 1324 1 0410 40 0000 -STA 0/04
1201 1325 0 0000 42 4216 LDB SSC
1202 1326 0 0401 26 4216 IFL SSC/04,1
1203 1327 1 0411 40 0000 1 -STR 0/04
1204 1328 0 0000 10 4216 CAD SSC
1205 1329 0 0000 49 0004 SLA 4
1206 1330 1 6710 40 0000 -STA 0/67
1207 1331 0 0000 10 1543 CAD DD
1208 1332 1 2210 40 0000 -STA 0/22
1209 1333 1 0000 10 0000 -CAD 0
1210 1334 0 6410 40 1795 STA L/64
1211 1335 0 0000 42 4216 LDB SSC
1212 1336 0 0010 29 2265 RTF =0=,1
1213 1337 0 0010 29 1829 RTF RTF SYMBOL,1
1214 1338 0 0002 40 4216 STB SSC
1215 1339 0 0000 30 1289 BUN SYMBOLINSERTX
1216
1217
1218 1340 0 0000 10 2277 DONE CAD =99999999999=
1219 1341 0 0000 40 3251 STA WRITEBUFFER
1220 1342 0 0000 42 2343 LDB =WRITEBUFFER=
1221 1343 0 0000 44 1448 DO W
1344 0 0000 30 1424
1222 1345 0 0000 44 0545 DO CRDUMP.1
1346 0 0000 30 0529
1223 1347 0 2001 58 0000 MPB 2,10
1224 1348 0 0000 41 1520 LDR COMPILER
1225 1349 0 3211 40 1350 STR $+1/32
1226 1350 0 2000 50 2265 MTS =0=,2
1227 1351 0 2301 58 0000 MPB 2,3
1228 1352 0 2300 56 1857 MOW LIBRARYTABLE,2,3
1229 1353 0 0000 46 0223 CLL K
1230 1354 0 0001 26 0223 1 IFL K/00,1
1231 1355 0 0000 42 0223 LDB K
1232 1356 1 0000 10 1857 -CAD LIBRARYTABLE
1233 1357 0 0000 36 1373 BZA VALMIS
1234 1358 0 0000 40 1795 STA L
1235 1359 0 0000 42 1795 4 LDB L
1236 1360 0 9999 20 1354 IBB 1B,-1
1237 1361 1 0000 10 0001 -CAD 1
1238 1362 0 0000 40 1795 STA L
1239 1363 0 6400 28 1795 DLB L/64
1240 1364 1 0000 10 0000 -CAD 0
1241 1365 0 6400 36 1367 BFA 3F/64,0
1242 1366 0 0000 30 1359 BUN 4B
1243 3 SPO R'REFERENCE WAS MADE TO THE UNDEFINED' ...
1244 1367 0 0120 09 2398 ' LIBRARY PROCEDURE(S)'RII
1245 1368 0 6212 40 1367 STB 3B/62
1246 1369 0 6201 26 1367 IFL 3B/62,1
1247 1370 0 0010 09 2415 SPO ''RIIII
1248 1371 1 0010 09 0001 -SPO 1,1
1249 1372 0 0000 30 1359 BUN 4B
1250
1251 1373 0 2001 58 0000 VALMIS MPB 2,10
1252 1374 0 2001 58 0000 MPB 2,10
1253 1375 0 2001 58 0000 MPB 2,10
1254 1376 0 2001 58 0000 MPB 2,10
1255 1377 0 2701 58 0000 MPB 2,7
1256
1257 1378 0 0004 45 0000 CLB
1258 1379 1 0001 10 2448 4 -CAA TBL
1259 1380 0 0099 36 1405 BFA 6F/00,99
1260 1381 0 0002 40 1675 STB HOLD
1261 1382 0 0410 18 2280 CFA =40=/04
1262 1383 0 0001 34 1403 BCL 7F
1263 1384 0 0410 18 2281 CFA =43=/04
1264 1385 0 0000 34 1403 BCH 7F
1265 1386 0 0000 49 0002 SLA 2
1266 1387 0 0000 40 1676 STA HOLD0
1267 1388 0 0000 48 0006 SRA 6
1268 1389 0 0000 12 1676 ADD HOLD0
1269 1390 0 0000 13 2322 SUB =IA+4=
1270 1391 0 0000 40 1676 STA HOLD0
1271 1392 0 0000 42 1675 LDB HOLD
1272 1393 1 0000 10 2449 -CAD TBL+1
1273 1394 1 1210 27 2448 -DFL TBL/12,10
1274 1395 0 0000 42 1676 LDB HOLD0
1275 1396 1 0000 40 1677 -STA IA
1276 1397 0 0000 32 1399 BRP $+2
1277 1398 0 0000 30 1403 BUN 7F
1278 1399 0 0000 43 0000 LSA 0
1279 1400 0 0000 12 0239 ADD RELOCATION
1280 1401 0 0000 13 2421 SUB =4900=
1281 1402 1 0410 40 1677 -STA IA/04
1282 1403 0 0000 42 1675 7 LDB HOLD
1283 1404 0 0002 20 1379 IBB 4B,2
1284 1405 0 0000 42 2336 6 LDB =3996-IA=
1285 1406 1 0001 10 1677 7 -CAA IA
1286 1407 0 0000 44 0931 1 STP IO.1
1287 1408 0 0004 33 0932 BSA IO,4
1288 1409 0 4302 26 1407 IFL 1B/43,2
1289 1410 0 0000 31 1412 BOF 6F
1290 1411 0 0001 20 1406 IBB 7B,1
1291
1292 1412 0 2500 56 3996 6 MOW 3996,2,5
1293 1413 0 2500 52 3396 MRD 4496,2,5
1294 1414 0 0000 46 4995 CLL 4995
1295 1415 0 0001 45 0000 CLA
1296 1416 0 0000 42 2447 LDB =999=
1297 1417 1 0000 13 3996 1 -SUB 3996
1298 1418 0 0001 21 1417 DBB 1B,1
1299 1419 0 0000 40 4995 STA 4995
1300 1420 0 2001 58 0000 MPB 2,10
1301 1421 0 2000 56 3996 MOW 3996,2,0
1302 1422 0 0060 09 2387 SPO R'LIBRARY PROCESSING COMPLETE'II
1303 1423 0 0000 30 0546 BUN ENDOFGENERATION
1304
1305
1306 1424 1 2100 54 0000 W.1 -MIW 0,2,1
1307 1425 0 2000 38 1427 BCS $+2,2
1308 1426 0 0000 30 1447 BUN W-1
1309 1427 0 0000 41 1449 LDR THECOUNT
1310 1428 0 0001 49 0004 SLT 4
1311 1429 0 6411 40 1487 STR 7F/64
1312 1430 0 0000 67 1432 HPI $+2
1313 1431 0 0000 30 1430 BUN $-1
1314 1432 0 0020 66 1486 HPW 7F-1,2
1315 1433 0 1112 40 1486 STB 7F-1/11
1316 1434 0 0412 40 1436 3 STB 1F/04
1317 1435 0 0000 42 2292 LDB =2F=
1318 1436 0 0100 29 0000 1 RTF 0,10
1319 1437 0 0000 67 1439 HPI $+2
1320 1438 0 0000 30 1437 BUN $-1
1321 1439 0 0110 66 1450 HPW 2F-1,11
1322 1440 0 9000 42 1436 LDB 1B,9(11)
1323 1441 0 1109 26 1440 IFL $-1/11,9
1324 1442 0 9990 21 0000 DBB 0,-10
1325 1443 0 0000 31 1434 BOF 3B
1326 1444 0 0000 67 1446 HPI $+2
1327 1445 0 0000 30 1444 BUN $-1
1328 1446 0 0250 66 1461 HPW 3F-1,25
1329 1447 0 0001 26 1449 IFL THECOUNT/00,1
1330 1448 0 0000 30 1448 W BUN $
1331 1449 0 0000 00 0000 THECOUNT (0)
1332 1450 1 0000 00 0000 10000000000
1333 1451 0 0000 00 0000 2 FILL 0,10
1334 1461 0 0000 00 0000 (0)
1335 1462 2 0000 00 0000 3 FILL 20000000000,24
1336 1486 0 30000 00 0000 03000000000
1337 1487 0 4000 00 9000 7 4000009000
1338
1339
1340
1341
1342
1343
1344 1488 0 0000 00 0000 ADDRESS (0)
1345 ALFORMAT-28
1346 1489 3 3333 33 3333 FORMAT INPUT,16(T5A)
1347 1518 0 0000 00 0000 BC (2)
1348 1519 0 0000 00 0000 BLCT (0)
1349
1350 1520 0 2000 00 0000 COMPILER (2)(11)
1351 1521 0 0000 00 0000 CDR-6 FILL 0,22
1352 1543 0 0000 00 0000 DD (0)
1353 EQUIVALENCEINDEX
1354 1544 0 0000 12 0000 (12)(62)
1355 EQUIVALENCETABLE
1356 1545 0 0000 00 0000 FILL 0,100
1357 DJ 046422
1358 1645 0 0000 00 0012 F1 (12)
1359 1646 3 0000 10 0045 3J 0,10,45
1360 1647 1 6262 27 1677 -DFL IA/62,62
1361 1648 3 0000 11 0045 3J 0,11,45
1362 1649 1 6262 27 1677 -DFL IA/62,62
1363 1650 3 0000 12 0045 3J 0,12,45
1364 1651 1 6262 27 1677 -DFL IA/62,62
1365 1652 3 0000 13 0045 3J 0,13,45
1366 1653 1 6262 27 1677 -DFL IA/62,62
1367 1654 3 0000 14 0045 3J 0,14,45
1368 1655 1 6262 27 1677 -DFL IA/62,62
1369 1656 3 0000 32 0055 3J 0,32,55
1370 1657 1 6262 27 1677 -DFL IA/62,62
1371
1372 1658 0 0000 00 0006 F2 (6)
1373 1659 3 0000 36 0054 3J 0,36,54
1374 1660 1 6264 27 1677 -DFL IA/62,64
1375 1661 3 0000 37 0054 3J 0,37,54
1376 1662 1 6229 27 1677 -DFL IA/62,29
1377 1663 3 0000 38 0054 3J 0,38,54
1378 1664 1 6264 27 1677 -DFL IA/62,64
1379 1665 3 0000 43 0054 3J 0,43,54
1380 1666 1 6264 27 1677 -DFL IA/62,64
1381
1382 1667 0 0000 00 0004 F3 (4)
1383 1668 3 0000 04 0045 3J 0,04,45
1384 1669 1 6261 27 1677 -DFL IA/62,61
1385 1670 3 0000 09 0045 3J 0,09,45
1386 1671 1 6261 27 1677 -DFL IA/62,61
1387
1388 1672 0 0000 00 0002 F4 (2)
1389 1673 3 0000 30 0054 3J 0,30,54
1390 1674 1 6263 27 1677 -DFL IA/62,63
1391
1392 1675 0 0000 00 0000 HOLD HLT 0
1393 1676 0 0000 00 0000 HOLD0 HLT 0
1394 1677 0 0000 00 0000 IA FILL 0,101
1395 1778 0 0000 00 0000 INPUT FILL 0,16
1396 INSTRUCTION
1397 1794 0 0000 00 0000 (0)
1398 1795 0 0000 00 0000 L (0)
1399 1796 0 0000 00 0000 LENGTH (0)
1400 LIBRARYINDEX
1401 1797 0 0000 00 0000 (0)
1402 1798 0 0000 00 0000 LL0 (0)
1403 1799 0 0000 00 2156 LMAX (LIBRARYTABLE+299)
1404 1800 0 0000 00 0000 NI (0)
1405 1801 0 2000 00 0000 PRINTER (2)(11)
1406 1802 0 0000 00 0022 PRMAX (22)
1407 1803 0 1000 00 0000 PUNCH (1)(11)
1408 1804 0 0000 00 0000 READ-3 FILL 0,19
1409 1823 0 1000 00 0000 READER (1)(11)
1410 1824 0 0000 00 0000 RDI (0)
1411 1825 0 0000 00 0000 RR2 (0)
1412 1826 0 0000 00 0000 RR3 (0)
1413 1827 0 1000 00 0000 SCRATCHML (1)(11)
1414 SCRATCHDUMP
1415 1828 0 1010 00 0000 (101)(33)
1416
1417
1418 1829 0 0000 00 0000 SYMBOL FILL 0,10
1419 LIBRARYTABLE
1420 1857 0 0000 00 0000 HMM.. FILL 0,300
1421 SUMTBL IS LIBRARYTABLE+300
1422 2157 0 9916 77 1777 FILL 99(23)+IA(64)+(IA+100)(04),9
1423 2166 0 9816 77 1776 FILL 98(23)+IA(64)+(IA+99)(04),1
1424 2167 0 9916 77 1777 FILL 99(23)+IA(64)+(IA+100)(04),9
1425 2176 0 9816 77 1776 FILL 98(23)+IA(64)+(IA+99)(04),1
1426 2177 0 9916 77 1777 FILL 99(23)+IA(64)+(IA+100)(04),9
1427 2186 0 9816 77 1776 FILL 98(23)+IA(64)+(IA+100)(04),1
1428 2187 0 9916 77 1777 FILL 99(23)+IA(64)+(IA+100)(04),9
1429 2196 0 9816 77 1776 FILL 98(23)+IA(64)+(IA+99)(04),1
1430 2197 0 9916 77 1777 FILL 99(23)+IA(64)+(IA+100)(04),9
1431 2206 0 9816 77 1776 FILL 98(23)+IA(64)+(IA+99)(04),1
1432 2207 0 9916 77 1777 FILL 99(23)+IA(64)+(IA+100)(04),2
1433 2209 0 9916 77 1777 FILL 99(23)+IA(64)+(IA+100)(04),31
1434 2240 0 9916 77 1776 FILL 98(23)+IA(64)+(IA+99)(04),1
1435
1436 2241 2 4649 67 0000 PRTABLE 'FIX'
1437 2242 0 0042 22 0000 (SCRTB+106)(64)
1438 2243 2 4653 56 4163 'FLOAT'
1439 2244 0 0042 24 0000 (SCRTB+108)(64)
1440 2245 2 4667 14 4667 'FX*FX'
1441 2246 0 0042 18 0000 (scrtb+102)(64)
1442 2247 2 4667 14 4653 'FX*FL'
1443 2248 0 0042 19 0000 (SCRTB+103)(64)
1444 2249 2 4653 14 4667 'FL*FX'
1445 2250 0 0042 20 0000 (SCRTB+104)(64)
1446 2251 2 4653 14 4653 'FL*FL'
1447 2252 0 0042 21 0000 (SCRTB+105)(64)
1448 2253 2 5341 42 4553 'LABEL'
1449 2254 0 0041 07 0000 (SCRTB-9)(64)
1450 2255 2 5456 55 4963 'MONIT'
1451 2256 0 0042 26 0000 (SCRTB+110)(64)
1452 2257 2 4559 59 5659 'ERROR'
1453 2258 0 0042 29 0000 (SCRTB+113)(64)
1454 2259 2 6359 41 4345 'TRACE'
1455 2260 0 0042 30 0000 (SCRTB+114)(64)
1456 2261 2 5949 63 4500 'RITE'
1457 2262 0 0042 33 0000 (SCRTB+117)(64)
1458 2263 2 5945 45 4400 'REED'
1459 2264 0 0042 32 0000 (SCRTB+116)(64)
1460
1461 2265 0 0000 00 0000 POOL
2266 0 0000 00 0010
2267 0 0000 00 0004
2268 0 0000 00 9997
2269 0 0000 00 0008
2270 0 0000 00 0011
2271 0 0000 00 1011
2272 0 0020 00 0000
2273 0 0000 00 0023
2274 0 0000 00 0022
2275 0 0000 00 0024
2276 0 0000 00 0028
2277 9 9999 99 9999
2278 0 0000 00 0033
2279 0 0000 00 0257
2280 0 0000 00 0040
2281 0 0000 00 0043
2282 0 0000 00 0281
2283 2 1654 49 6257 $MISP
2284 2 5341 43 4544 LACED
2285 2 0055 41 5445 NAME
2286 2 0043 41 5944 CARD
2287 0 0000 00 0303
2288 0 0000 00 0312
2289 0 0000 00 0052
2290 0 0000 00 0441
2291 2 5664 63 5764 OUTPU
2292 0 0000 00 1451
2293 2 6541 59 4941 VARIA
2294 0 0007 80 9999
2295 0 0000 00 0083
2296 0 0000 00 0082
2297 0 0000 00 0099
2298 0 0000 00 0100
2299 0 0000 00 5100
2300 0 0006 16 9999
2301 0 0000 00 4116
2302 2 6245 63 6243 SETSC
2303 2 1645 58 6449 $EQUI
2304 2 6541 53 4555 VALEN
2305 2 4345 00 5564 CE NU
2306 2 5442 45 5900 MBER
2307 2 6356 56 0053 TOO L
2308 2 4159 47 4502 ARGE9
2309 2 4955 63 4547 INTEG
2310 2 4649 55 4962 FINIS
2311 2 4256 56 5345 BOOLE
2312 2 1654 49 6262 $MISS
2313 2 4955 47 0045 ING E
2314 2 5864 49 6541 QUIVA
2315 2 5345 55 6302 LENT9
2316 2 0200 00 0000 9
2317 0 0000 00 0199
2318 0 0000 00 1830
2319 2 1662 45 5864 $SEQU
2320 2 4555 43 4500 ENCE
2321 2 4559 59 5659 ERROR
2322 0 0000 00 1681
2323 0 0000 00 1677
2324 2 1645 55 4400 $END
2325 2 5646 00 4745 OF GE
2326 2 5545 59 4163 NERAT
2327 2 4956 55 0056 ION O
2328 2 4600 63 4845 F THE
2329 2 0043 56 5457 COMP
2330 2 4953 45 5916 ILER$
2331 2 1654 49 6262 $MISS
2332 2 4955 47 0055 ING N
2333 2 4154 45 0043 AME C
2334 2 4159 44 0202 ARD99
2335 2 5756 62 4963 POSIT
2336 0 0000 00 2319
2337 2 4356 56 5445 COMME
2338 2 4163 45 5741 ATEPA
2339 2 4653 56 4163 FLOAT
2340 2 4341 59 4457 CARDP
2341 2 4341 59 4459 CARDR
2342 2 1616 16 1616 $$$$$
2343 0 0000 00 3251
2344 0 8600 80 0000
2345 2 0042 53 5643 BLOC
2346 2 5262 00 5655 KS ON
2347 2 0064 55 4963 UNIT
2348 2 0082 00 1616 2 $$
2349 2 1516 26 6348 *$,TH
2350 2 4500 43 5654 E COM
2351 2 5749 53 4559 PILER
2352 2 0047 45 5545 GENE
2353 2 5941 63 5659 RATOR
2354 2 1600 00 0000 $
2355 2 1643 48 4543 $CHEC
2356 2 5200 62 6454 K SUM
2357 2 0045 59 5956 ERRO
2358 2 5900 00 0000 R
2359 0 0000 00 1546
2360 2 4163 45 4862 ATEHS
2361 2 1649 54 5759 $IMPR
2362 2 5657 45 5900 OPER
2363 2 5762 45 6444 PSEUD
2364 2 5620 56 5702 O-OP9
2365 2 4445 53 4563 DELET
2366 2 1663 48 4500 $THE
2367 2 5349 42 5941 LIBRA
2368 2 5968 00 5759 RY PR
2369 2 5643 45 6262 OCESS
2370 2 5659 16 1616 OR$$$
2371 2 5956 64 6349 ROUTI
2372 2 5545 00 5541 NE NA
2373 2 5445 16 0000 ME$
2374 2 4556 64 6357 EOUTP
2375 2 4559 00 0000 ER
2376 2 1649 55 4356 $INCO
2377 2 5959 45 4363 RRECT
2378 2 0057 64 5543 PUNC
2379 2 6364 41 6349 TUATI
2380 2 5655 02 0202 ON999
2381 2 6264 57 5759 SUPPR
2382 2 1649 55 4356 $INCO
2383 2 5959 45 4363 RRECT
2384 2 0062 63 4163 STAT
2385 2 4554 45 5563 EMENT
2386 2 1616 02 0202 $$999
2387 2 1653 49 4259 $LIBR
2388 2 4159 68 0057 ARY P
2389 2 5956 43 4562 ROCES
2390 2 6249 55 4700 SING
2391 2 4356 54 5753 COMPL
2392 2 4563 45 0202 ETE99
2393 2 5445 54 5659 MEMOR
2394 2 4356 54 5749 COMPI
2395 2 5945 41 5300 REAL
2396 2 5764 55 4348 PUNCH
2397 2 5759 56 4345 PROCE
2398 2 1659 45 4645 $REFE
2399 2 5945 55 4345 RENCE
2400 2 0066 41 6200 WAS
2401 2 5441 44 4500 MADE
2402 2 6456 00 6348 TO TH
2403 2 4500 64 5544 E UND
2404 2 4546 49 5545 EFINE
2405 2 4400 53 4942 D LIB
2406 2 5941 59 6800 RARY
2407 2 5759 56 4345 PROCE
2408 2 4464 59 4524 DURE(
2409 2 6204 16 0202 S)$99
2410 2 5441 43 4849 MACHI
2411 2 4356 57 6843 COPYC
2412 0 0000 00 0798
2413 2 4800 00 0000 H
2414 2 5759 49 5563 PRINT
2415 2 1602 02 0202 $9999
2416 2 4745 55 4559 GENER
2417 0 0000 00 1857
2418 2 4549 55 5764 EINPU
2419 2 4163 45 6263 ATEST
2420 2 4356 59 5945 CORRE
2421 0 0000 00 4900
2422 2 1654 45 5456 $MEMO
2423 2 5968 00 6249 RY SI
2424 2 6945 00 5464 ZE MU
2425 2 6263 00 4245 ST BE
2426 2 0047 49 6545 GIVE
2427 2 5500 41 6200 N AS
2428 2 4100 54 6453 A MUL
2429 2 6349 57 5345 TIPLE
2430 2 0056 46 0056 OF O
2431 2 5545 00 4864 NE HU
2432 2 5544 59 4544 NDRED
2433 2 1616 16 0200 $$$9
2434 2 1645 59 5956 $ERRO
2435 2 5545 56 6462 NEOUS
2436 2 0043 56 5959 CORR
2437 2 4543 63 4956 ECTIO
2438 2 5500 43 4159 N CAR
2439 2 4400 00 0000 D
2440 2 4955 57 6463 INPUT
2441 0 0010 00 0000
2442 0 0000 00 0006
2443 0 0000 00 9999
2444 0 0000 00 0002
2445 0 0000 00 0001
2446 0 0000 00 1000
2447 0 0000 00 0999
1462 2448 3 0000 88 0015 TBL 30(12)+((CCCNT+1)/100)(04)+((CCCNT+1)//100)(64)
1463 2449 0 0144 30 0158 BUN SETSCAN.1,144(44)
1464 2450 3 0000 19 0016 30(12)+((CCBEG+1)/100)(04)+((CCBEG+1)//100)(64)
1465 2451 1 4200 26 1677 -IFL IA/42,0
1466 2452 1 0000 50 0000 -((0050/100)(04)+(0050//100)(64))
1467 2453 1 0000 12 4800 -ADD 4800
1468 2454 1 0000 31 0042 -(((MAMAX+4)/100)(04)+((MAMAX+4)//100)(64))
1469 2455 0 0000 00 4999 HLT 4999
1470 2456 0 0000 13 0052 (B/100)(04)+(B//100)(64)
1471 2457 0 0000 00 5000 HLT 5000
1472 2458 0 0000 51 0002 (VARB/100)(04)+(VARB//100)(64)
1473 2459 0 0000 00 4999 HLT 4999
1474 2460 3 0000 50 0082 30(12)+(HALT/100)(04)+(HALT//100)(64)
1475 2461 1 6200 26 1677 -IFL IA/62,00
1476 2462 9 9999 99 9999 FILL 99999999999,786
2463 9 9999 99 9999
2464 9 9999 99 9999
2465 9 9999 99 9999
ETC.
1477
1478 3248 0 0000 00 0000 TEMP (0)
1479 3249 0 0000 00 0000 TEMP1 (0)
1480 3250 0 0000 00 0000 TEMP2 (0)
1481 WRITEBUFFER
1482 3251 0 0000 00 0000 FILL 0,100
3252 0 0000 00 0000
3253 0 0000 00 0000
3254 0 0000 00 0000
ETC.
1483
1484
1485
1486 ORIGIN 1000
1487 PLACE 3500
1488 1000 3500 0 0000 00 0000 TEMP3 (0)
1489 1001 3501 0 0000 00 0000 LIC (0)
1490 1002 3502 0 0000 00 0000 SRFC (0)
1491 1003 3503 0 0001 00 0000 SEQNBR ((1)(41))
1492 1004 3504 0 0000 00 0000 WC (0)
1493 NUMBERWORDS
1494 1005 3505 0 0000 00 0006 (6)
1495 1006 3506 0 0000 00 0000 LL (0)
1496 1007 3507 0 0000 00 0000 RLOC (0)
1497 1008 3508 0 0000 00 0000 LLC (0)
1498 1009 3509 0 0000 00 0000 EQUIV (0)
1499 1010 3510 0 0000 00 0000 BUFAREA FILL 0,16
1500 1026 3526 0 0000 00 0008 EIGHT (8)
1501 1027 3527 0 0725 00 7570 HLT (725007570)
1502
1503
1504 1028 3528 0 0000 42 0256 READY LDB COUNT
1505 1029 3529 0 9999 20 1032 IBB $+3,-1
1506 1030 3530 0 2100 58 0000 MPF 2,1
1507 1031 3531 0 0000 30 1029 BUN $-2
1508 1032 3532 0 2000 52 0000 MRD 0000,2,0
1509 1033 3533 0 0000 42 2268 LDB =9997=
1510 1034 3534 0 2000 58 0000 MPF 2,10
1511 1035 3535 0 0001 20 1034 IBB $-1,1
1512 1036 3536 0 2400 52 3996 MRD 3996,2,4
1513 1037 3537 0 2000 58 0000 MPF 2,10
1514 1038 3538 0 2000 58 0000 MPF 2,10
1515 1039 3539 0 2000 58 0000 MPF 2,10
1516 1040 3540 0 2000 58 0000 MPF 2,10
1517 1041 3541 0 2300 52 1857 MRD LIBRARYTABLE,2,3
1518 1042 3542 0 2600 58 0000 MPF 2,6
1519 1043 3543 0 0000 41 1520 LDR COMPILER
1520 1044 3544 0 3211 40 1045 STR $+1/32
1521 1045 3545 0 2000 50 1003 MTS SEQNBR,002
1522 1046 3546 0 2100 52 1677 MRD IA,2,1
1523 1047 3547 0 1000 63 1311 CWF LIBRARYFORMAT,1,1
1524 1048 3548 0 2000 63 1311 CWF LIBRARYFORMAT,2,1
1525
1526
1527 1049 3549 0 0000 42 2417 LDB =LIBRARYTABLE=
1528 1050 3550 0 0002 40 3249 STB TEMP1
1529 1051 3551 0 0000 42 3249 HEADERCARD LDB TEMP1
1530 1052 3552 0 0001 20 1053 IBB $+1,1
1531 1053 3553 0 0002 40 3249 STB TEMP1
1532 1054 3554 1 0000 41 0000 -LDR 0
1533 1055 3555 0 0000 37 1027 BZR HLT
1534 1056 3556 1 6400 28 0000 -DLB 0/64,0
1535 1057 3557 0 0002 40 3250 STB TEMP2
1536 1058 3558 0 0000 44 1223 DO MATCHSRF.1
1059 3559 0 0000 30 1177
1537 EXAMINEOPERAND
1538 1060 3560 0 0000 42 3250 LDB TEMP2
1539 1061 3561 1 0000 10 0000 -CAD 0
1540 1062 3562 0 2103 36 1087 BFA 55F/21,3
1541 1063 3563 0 0000 10 2273 CAD =23=
1542 1064 3564 0 0000 44 1237 DO BUFFERFILL.2
1065 3565 0 0000 30 1230
1543 1066 3566 0 0000 42 3250 LDB TEMP2
1544 1067 3567 1 0000 10 0000 -CAD 0
1545 1068 3568 0 2100 36 1261 BFA BP1/21,0
1546 1069 3569 0 0000 44 1260 DO INTEGER
1070 3570 0 0000 30 1248
1547 1071 3571 0 6229 27 1256 DFL 25F/62,29
1548 1072 3572 0 0000 42 3250 99 LDB TEMP2
1549 1073 3573 1 0000 10 0000 -CAD 0
1550 1074 3574 0 0103 36 1087 BFA 55F/01,3
1551 1075 3575 0 0000 10 2275 CAD =24=
1552 1076 3576 0 0000 44 1237 DO BUFFERFILL.2
1077 3577 0 0000 30 1230
1553 1078 3578 0 0000 42 3250 LDB TEMP2
1554 1079 3579 1 0000 10 0000 -CAD 0
1555 1080 3580 0 0100 36 1264 BFA BP2/01,0
1556 1081 3581 0 0000 44 1260 DO INTEGER
1082 3582 0 0000 30 1248
1557 1083 3583 0 6229 27 1256 DFL 25F/62,29
1558 1084 3584 0 0000 10 2267 88 CAD =04=
1559 1085 3585 0 0000 44 1237 DO BUFFERFILL.2
1086 3586 0 0000 30 1230
1560 1087 3587 0 0000 44 1282 55 DO PUNCHING.2
1088 3588 0 0000 30 1275
1561
1562 1089 3589 0 0000 44 1131 WORDS DO GET.1
1090 3590 0 0000 30 1128
1563 1091 3591 0 0004 33 1136 BSA EQUIVALENCE,4
1564 1092 3592 0 0000 41 2276 LDR =28=
1565 1093 3593 0 0001 40 1008 STR LLC
1566 1094 3594 0 0000 40 1000 STA TEMP3
1567 1095 3595 0 0001 48 0010 SRT 10
1568 1096 3596 0 9010 40 1026 STA EIGHT/90
1569 1097 3597 0 0000 10 1026 CAD EIGHT
1570 1098 3598 0 0002 49 0001 SLS 1
1571 1099 3599 0 0000 44 1237 DO BUFFERFILL.2
1100 3600 0 0000 30 1230
1572 1101 3601 0 9000 10 2269 2 CAD =8=,9(11)
1573 1102 3602 0 0001 49 0001 SLT 1
1574 1103 3603 0 0000 44 1237 DO BUFFERFILL.2
1104 3604 0 0000 30 1230
1575 1105 3605 0 1101 27 1101 DFL 2B/11,1
1576 1106 3606 0 0000 32 1101 BRP 2B
1577
1578
1579 1107 3607 0 0101 26 1004 TST IFL WC/01,1
1580 1108 3608 0 0000 10 1000 CAD TEMP3
1581 1109 3609 0 0004 33 1120 BSA PSDO,4
1582 1110 3610 0 0000 46 1127 CLL CNST
1583 1111 3611 0 0000 41 1004 LDR WC
1584 1112 3612 0 0111 18 1005 CFR NUMBEROFWORDS/01
1585 1113 3613 0 0000 35 1117 BCE 9F
1586 1114 3614 0 0000 44 1131 DO GET.1
1115 3615 0 0000 30 1128
1587 1116 3616 0 0000 30 1094 BUN WORDS+5
1588
1589 1117 3617 0 0000 44 1176 9 DO FIXCNT.1
1118 3618 0 0000 30 1157
1590 1119 3619 0 0000 30 1089 BUN WORDS
1591
1592 1120 3620 0 0000 42 1127 PSDO LDB CNST
1593 1121 3621 0 0001 21 1110 DBB TST+3,1
1594 1122 3622 0 6201 36 1125 BFA 1F/62,01
1595 1123 3623 0 6299 36 1238 BFA ENDSUBR/62,99
1596 1124 3624 0 0000 30 1110 BUN TST+3
1597 1125 3625 0 0101 26 1127 1 IFL CNST/01,1
1598 1126 3626 0 0000 30 1111 BUN TST+4
1599 1127 3627 0 0000 00 0000 CNST (0)
1600
1601 1128 3628 0 9800 10 1678 GET.1 CAD IA+1,98(22)
1602 1129 3629 0 2299 26 1128 IFL $-1/22,99
1603 1130 3630 0 0401 26 1128 IFL GET.1/04,1
1604 1131 3631 0 0000 31 1131 GET BOF $
1605 1132 3632 0 2100 52 1677 MRD IA,2,1
1606 1133 3633 0 2202 27 1128 DFL GET.1/22,2
1607 1134 3634 0 0499 27 1128 DFL GET.1/04,99
1608 1135 3635 0 0000 30 1128 BUN GET.1
1609
1610
1611 EQUIVALENCE
1612 1136 3636 0 6212 36 1138 BFA $+2/62,12
1613 1137 3637 0 0000 30 1092 BUN WORDS+3
1614 1138 3638 0 0000 40 1009 STA EQUIV
1615 1139 3639 0 0001 48 0012 SRT 12
1616 1140 3640 0 0000 44 1223 DO MATCHSRF.1
1141 3641 0 0000 30 1177
1617 1142 3642 0 0000 10 2278 CAD =33=
1618 1143 3643 0 0000 44 1237 DO BUFFERFILL.2
1144 3644 0 0000 30 1230
1619 1145 3645 0 0000 10 1009 CAD EQUIV
1620 1146 3646 0 0002 45 0000 CLR
1621 1147 3647 0 0001 48 0002 SRT 2
1622 1148 3648 0 0000 10 2269 3 CAD =8=
1623 1149 3649 0 0001 49 0001 SLT 1
1624 1150 3650 0 0000 44 1237 DO BUFFERFILL.2
1151 3651 0 0000 30 1230
1625 1152 3652 0 0000 37 1154 BZR $+2
1626 1153 3653 0 0000 30 1148 BUN 3B
1627 1154 3654 0 0000 44 1282 DO PUNCHING.2
1155 3655 0 0000 30 1275
1628 1156 3656 0 0000 30 1089
1629
1630
1631 1157 3657 0 0000 10 1004 FIXCNT.1 CAD WC
1632 1158 3658 0 0000 49 0004 SLA 4
1633 1159 3659 0 0000 12 2344 ADD =86008(55)=
1634 1160 3660 0 0000 40 1010 STA BUFAREA
1635 1161 3661 0 0000 46 1004 CLL WC
1636 1162 3662 0 0001 45 0000 CLA
1637 1163 3663 0 0000 41 1007 LDR RLOC
1638 1164 3664 0 0000 49 0001 1 SLA 1
1639 1165 3665 0 0000 12 2269 ADD =8=
1640 1166 3666 0 0001 49 0001 SLT 1
1641 1167 3667 0 3100 36 1164 BFA 1B/31,0
1642 1168 3668 0 0000 49 0002 SLA 2
1643 1169 3669 0 8810 40 1012 STA BUFAREA+2/88
1644 1170 3670 0 0000 10 1005 CAD NUMBEROFWORDS
1645 1171 3671 0 0000 49 0006 SLA 6
1646 1172 3672 0 4210 40 1173 STA 1F/42
1647 1173 3673 0 4400 26 1007 1 IFL RLOC/44,0
1648 1174 3674 0 0000 44 1282 DO PUNCHING.1
1175 3675 0 0000 30 1276
1649 1176 3676 0 0000 30 1176 FIXCNT BUN $
1650
1651
1652 1177 3677 0 0000 10 2296 MATCHESRF.1 CAD =82=
1653 1178 3678 0 0000 44 1237 DO BUFFERFILL.2
1179 3679 0 0000 30 1230
1654 1180 3680 0 0000 42 2274 LDB =22=
1655 1181 3681 1 6411 18 2242 1 -CFR PRTABLE+1/64
1656 1182 3682 0 0000 35 1185 BCE 5F
1657 1183 3683 0 0002 21 1181 DBB 1B,2
1658 1184 3684 0 0000 30 1192 BUN 10F
1659
1660 1185 3685 1 0000 41 2241 5 -LDR PRTABLE
1661 1186 3686 0 0001 45 0000 CLA
1662 1187 3687 0 0001 49 0002 SLT 2
1663 1188 3688 0 0000 44 1237 DO BUFFERFILL.2
1189 3689 0 0000 30 1230
1664 1190 3690 0 0000 37 1223 BZR MATCHSRF
1665 1191 3691 0 0000 30 1186
1666
1667 1192 3692 0 0001 48 0004 10 SRT 4
1668 1193 3693 0 0001 40 3250 STR TEMP2
1669 1194 3694 0 0000 42 3250 LDB TEMP2
1670 1195 3695 1 0000 41 0001 -LDR 1
1671 1196 3696 0 0001 45 0000 CLA
1672 1197 3697 0 0000 15 2297 DIV =99=
1673 1198 3698 0 0001 49 0010 SLT 10
1674 1199 3699 0 0000 12 2301 ADD =SCRTB=
1675 1200 3700 0 0000 40 1795 STA L
1676 1201 3701 0 0000 10 3250 CAD TEMP2
1677 1202 3702 0 0000 49 0004 SLA 4
1678 1203 3703 0 0000 40 1002 STA SRFC
1679 1204 3704 0 0000 44 1229 DO FINDSRF
1205 3705 0 0000 30 1224
1680 1206 3706 0 0000 48 0008 SRA 8
1681 1207 3707 0 0000 40 1006 5 STA LL
1682
1683 1208 3708 0 0000 10 1001 3 CAD LIC
1684 1209 3709 0 0000 48 0001 SRA 1
1685 1210 3710 0 0000 12 3250 ADD TEMP2
1686 1211 3711 0 0000 40 1000 STA TEMP3
1687 1212 3712 0 0000 42 1000 LDB TEMP3
1688 1213 3713 1 0000 10 0001 -CAD 1
1689 1214 3714 0 0000 42 1001 LDB LIC
1690 1215 3715 1 0000 49 0002 -SLA 2
1691 1216 3716 0 0000 44 1237 DO BUFFERFILL.2
1217 3717 0 0000 30 1230
1692 1218 3718 0 0502 26 1001 IFL LIC/05,2
1693 1219 3719 0 0000 10 1001 CAD LIC
1694 1220 3720 0 0410 18 1006 CFA LL/04
1695 1221 3721 0 0000 35 1223 BCE $+2
1696 1222 3722 0 0000 30 1208 BUN 3B
1697 1223 3723 0 0000 30 1223 MATCHSRF BUN $
1698
1699
1700 1224 3724 0 0000 42 1795 FINDSRF.1 LDB L
1701 1225 3725 1 0000 10 0000 -CAD 0
1702 1226 3726 0 0000 40 1795 STA L
1703 1227 3727 0 6410 18 1002 CFA SRFC/64
1704 1228 3728 0 0001 35 1224 BCU FINDSRF.1
1705 1229 3729 0 0000 30 1229 FINDSRF BUN $
1706
1707
1708 BUFFERFILL.2
1709 1230 3730 0 0000 17 2270 EXT =11=
1710 1231 3731 0 0001 42 1008 LBC LLC
1711 1232 3732 1 0000 49 0008 -SLA 8
1712 1233 3733 0 9400 28 1008 DLB LLC/94,0
1713 1234 3734 1 0000 12 1010 -ADD BUFAREA
1714 1235 3735 1 0010 40 1010 -STA BUFAREA/00
1715 1236 3736 0 0502 26 1008 IFL LLC/05,2
1716 1237 3737 0 0000 30 1237 BUFFERFILL BUN $
1717
1718
1719 1238 3738 0 0000 44 1176 ENDSUBR DO FIXCNT.1
1239 3739 0 0000 30 1157
1720 1240 3740 0 0000 46 1007 CLL RLOC
1721 1241 3741 0 0000 41 1247 LDR $+6
1722 1242 3742 0 0001 40 1128 STR GET.1
1723 1243 3743 0 2100 52 1677 MRD IA,2,1
1724 1244 3744 0 0000 41 1677 LDR IA
1725 1245 3745 0 0099 37 1027 BFR HLT/00,99
1726 1246 3746 0 0000 30 1051 BUN HEADERCARD
1727 1247 3747 0 9800 10 1678 (980010)(66)+(IA+1)(04)
1728
1729
1730 1248 3748 0 0007 45 0000 INTEGER.1 CLT
1731 1249 3749 0 0000 41 2309 LDR 'INTEG'
1732 1250 3750 0 0001 49 0002 5 SLT 2
1733 1251 3751 0 0000 44 1237 DO BUFFERFILL.2
1252 3752 0 0000 30 1230
1734 1253 3753 0 0001 45 0000 CLA
1735 1254 3754 0 0000 37 1256 BZR 25F
1736 1255 3755 0 0000 30 1250 BUN 5B
1737
1738 1256 3756 0 0000 01 1260 25 NOP INTEGER
1739 1257 3757 0 6229 26 1256 IFL $-1/62,29
1740 1258 3758 0 0000 41 2375 LDR 'ER'
1741 1259 3759 0 0000 30 1250 BUN 5B
1742 1260 3760 0 0000 30 1260 INTEGER BUN 4
1743
1744 1261 3761 0 0000 44 1273 BP1 DO REAL
1262 3762 0 0000 30 1267
1745 1263 3763 0 0000 30 1072 BUN 99B
1746
1747 1264 3764 0 0000 44 1273 BP2 DO REAL
1265 3765 0 0000 30 1267
1748 1266 3766 0 0000 30 1084 BUN 88B
1749 1267 3767 0 0007 45 0000 REAL.1 CLT
1750 1268 3768 0 0000 41 2395 LDR 'REAL'
1751 1269 3769 0 0001 49 0002 4 SLT 2
1752 1270 3770 0 0000 44 1237 DO BUFFERFILL.2
1271 3771 0 0000 30 1230
1753 1272 3772 0 0001 45 0000 CLA
1754 1273 3773 0 0000 37 1273 REAL BZR $
1755 1274 3774 0 0000 30 1269 BUN 4B
1756
1757
1758 1275 3775 0 0000 46 1001 PUNCHING.2 CLL LIC
1759 1276 3776 0 2001 61 1025 PUNCHING.2 CWR BUFAREA+15,2,1
1760 1277 3777 0 1001 61 1025 CWR BUFAREA+15,1,1
1761 1278 3778 0 0000 46 1008 CLL LLC
1762 1279 3779 0 0000 46 1010 CLL BUFAREA
1763 1280 3780 0 0000 42 2271 LDB =BUFAREA+1=
1764 1281 3781 0 0150 29 1010 RTF BUFAREA,15
1765 1282 3782 0 0000 30 1282 PUNCHING BUN $
1766
1767 LIBRARYFORMAT-28
1768 1283 3783 3 3333 33 3333 FORMAT PUNCH,16(T5A)
1769 PLACED
1770
1771
1772 FORGET NAMES
1773 ORIGIN 0000
1774 PLACE 4000
1775
1776 OBJECT PROGRAM CARD LOADER
1777
1778
1779 0000 4000 4 1000 64 0002 LOADL 4CRI $+2,1
1780 0001 4001 0 0000 30 0000 BUN $-1
1781 0002 4002 4 1001 62 0115 4CRFL PFMT,1,1
1782 0003 4003 4 1008 62 0144 LOADB 4CRF FMT1,1,5
1783 0004 4004 0 5401 26 0080 1 IFL B/54,1
1784 0005 4005 0 0000 31 0008 BOF 2F
1785 0006 4006 4 2000 65 0008 4CWI 2F,2
1786 0007 4007 0 0000 30 0004 BUN 1B
1787 0008 4008 4 2000 65 0010 2 4CWI $+2,2
1788 0009 4009 0 0000 30 0013 BUN $+4
1789 0010 4010 4 2004 63 0231 4CWF FMT3,2,3 MONIT
1790 0011 4011 4 2006 63 0202 4CWF FMT4,2,4 ERR
1791 0012 4012 4 2008 63 0173 4CWF FMT5,2,5 PRINTER
1792 0013 4013 4 1000 65 0015 4CWI $+2,1
1793 0014 4014 0 0000 30 0016 BUN $+2
1794 0015 4015 4 1008 63 0173 4CWF FMT5,1,5 PUNCH
1795
1796 LOADC IS $+1
1797 0016 4016 0 0000 41 0240 LDR FIX
1798 0017 4017 0 0001 40 0080 STR B
1799 0018 4018 0 0000 41 0241 LDR FIX+1
1800 0019 4019 0 0411 40 0077 STR LODOX/04
1801 0020 4020 0 0411 40 0025 STR ZERO/04
1802 0021 4021 0 0401 27 0025 DFL ZERO/04,1
1803 0022 4022 0 0000 41 0080 LDR B
1804 0023 4023 0 0000 42 0025 LDB $+2
1805 0024 4024 0 0010 29 0079 RTF A,1
1806 0025 4025 0 0000 29 0199 ZERO RTF 199,00
1807 0026 4026 0 0002 40 0079 STB A
1808 0027 4027 0 0411 18 0079 CFR A/04
1809 0028 4028 0 0001 35 0025 BCU ZERO
1810
1811 0029 4029 0 0000 41 0072 LOADP LDR X
1812 0030 4030 0 0001 40 0051 STR M
1813 0031 4031 0 3000 38 0049 BCS INP,3
1814 0032 4032 0 0000 42 0086 LDB =9899=
1815 0033 4033 0 0005 20 0034 IBB $+1,5
1816 0034 4034 5 1010 60 0200 3 5CNC 200,1
1817 0035 4035 0 0005 20 0034 IBB 3B,5
1818 0036 4036 0 0001 42 0037 CHK LBC $+1
1819 0037 4037 0 0001 45 0100 CLA 100
1820 0038 4038 1 0000 12 0200 4 -ADD 200
1821 0039 4039 1 0000 12 0201 -ADD 201
1822 0040 4040 1 0000 12 0202 -ADD 202
1823 0041 4041 1 0000 12 0203 -ADD 203
1824 0042 4042 1 0000 12 0204 -ADD 204
1825 0043 4043 0 0005 20 0038 IBB 4B,5
1826 0044 4044 0 0000 31 0045 BOF $+1
1827 0045 4045 0 0000 36 0051 BZA M
1828 0046 4046 0 0040 09 0082 SPO R'CHECK SUM ERROR'
1829 0047 4047 0 9669 00 9669 HLT 9669,9669(44)
1830 0048 4048 0 0000 30 0047 BUN $-1
1831 0049 4049 0 1000 03 0100 INP PNC 0100,1,100
1832 0050 4050 0 0000 30 0036 BUN CHK
1833
1834 0051 4051 0 0000 10 0101 M CAD 101
1835 0052 4052 0 0000 42 0051 LDB M
1836 0053 4053 0 0004 33 0063 BSA C,4
1837
1838 0054 4054 0 0000 46 0076 CLL Z
1839 0055 4055 0 0299 26 0074 IFL Z/02,99
1840 0056 4056 0 0401 28 0074 5 DLB Z/04,1
1841 0057 4057 1 0000 41 0100 -LDR 100
1842 0058 4058 0 1280 37 0075 BFR END/12,80
1843 0059 4059 0 0000 37 0029 BZR LOADP
1844 0060 4060 1 6400 28 0100 -DLB 100/64,0
1845 0061 4061 1 0411 40 0000 -STR 0/04
1846 0062 4062 0 0000 30 0056 BUN 5B
1847
1848 0063 4063 0 6610 40 0067 C STA R/66
1849 0064 4064 0 9999 21 0000 DBB 0,-1
1850 0065 4065 0 0412 40 0067 STB R/04
1851 0066 4066 1 0000 42 9999 -LDB -1
1852 0067 4067 0 0000 29 0000 R RTF 0,00
1853 0068 4068 0 0001 48 0007 SRT 7
1854 0069 4069 0 0000 12 0073 ADD 0
1855 0070 4070 0 0000 19 0051 ADL M
1856 0071 4071 0 0000 30 0051 BUN M
1857 0072 4072 0 0000 10 0101 X CAD 101
1858 0073 4073 0 0000 00 0001 O HLT 1
1859 0074 4074 0 0000 00 0099 Z HLT 99
1860
1861 0075 4075 0 6711 18 0078 END CFR SECT/67
1862 0076 4076 0 0001 35 0056 BCU 5B
1863 0077 4077 0 0000 30 0200 LODOX BUN 200
1864
1865
1866 0078 4078 8 0000 00 0000 SECT (80(12))
1867 0079 4079 0 0000 00 0000 A (0)
1868 0080 4080 0 0000 00 5000 B (5000)
1869 0081 4081 0 0000 00 0348 POOL
0082 4082 2 1643 48 4543 $CHEC
0083 4083 2 5200 62 6454 K SUM
0084 4084 2 0045 59 5956 ERRO
0085 4085 2 5900 00 0000 R
0086 4086 0 0000 00 9899
1870 0087 4087 3 3333 33 3333 PFMT-28 FORMAT INPUT,25B,5(S10N)
1871 0116 4116 3 3333 33 3333 FMT1-28 FORMAT INPUT,16(P5A),P10Z
1872 0145 4145 3 3333 33 3333 FMT5-28 FORMAT PRINT,24(T5A)
1873 0174 4174 3 3333 33 3333 FMT4-28 FORMAT PRINT,32B,11(T5A),33B
1874 0203 4203 3 3333 33 3333 FMT3-28 FORMAT PRINT,49B,T5A,T1A1B2A4Z,T10N,T8Z1A,XB6Z2A,48B
1875
1876 ORIGIN 240
1877 0240 4240 0 0000 00 5000 FIX (5000)
1878 0241 4241 0 0000 00 0200 (200)
1879
1880
1881
1882 OBJECT DUMP
1883
1884 ORIGIN 300
1885 IA IS 100
1886 OT IS 1
1887
1888 0300 4300 0 3000 38 0303 DUMP.1 BCS $+3,3
1889 0301 4301 4 1999 63 0388 4CWF OUTFMT,1,1
1890 0302 4302 0 0000 30 0304 BUN $+2
1891 0303 4303 0 1070 06 0353 PWR CALL,1,7
1892 0304 4304 4 1008 50 0000 4MRW OT
1893 0305 4305 4 1300 58 0000 4MPF OT,3
1894 0306 4306 0 4000 38 0319 BCS DUMPL,4
1895 0307 4307 4 1000 59 0333 4MIB MRD,OT
1896 0308 4308 0 0000 30 0307 BUN $-1
1897
1898 0309 4309 0 3000 38 0317 DUMP.2 BCS DUMP.3,3 PT OUT
1899 0310 4310 0 0000 42 0081 LDB =BUF+1=
1900 0311 4311 0 0050 29 0100 1 RTF IA,5
1901 0312 4312 4 1001 61 0352 4CWR BUF+5,1,1
1902 0313 4313 0 0401 26 0347 IFL BUF/04,1
1903 0314 4314 0 0205 26 0311 IFL 1B/02,5
1904 0315 4315 0 0000 31 0333 BOF MRD
1905 0316 4316 0 0000 30 0310 BUN DUMP.2+1
1906
1907 0317 4317 0 1000 06 0100 DUMP.3 PWR IA,1,100
1908 0318 4318 0 0000 30 0333 BUN MRD
1909
1910 0319 4319 0 3000 38 0330 DUMPL BCS DUMP.4,3
1911 0320 4320 0 6105 26 0347 IFL BUF/61,5
1912 0321 4321 0 0000 42 0081 LDB =BUF+1=
1913 0322 4322 0 0050 29 0250 1 RTF 250,5
1914 0323 4323 4 1001 61 0352 4CWR BUF+5,1,1
1915 0324 4324 0 0405 27 0322 DFL 1B/04,5
1916 0325 4325 0 0401 26 0347 IFL BUF/04,1
1917 0326 4326 0 0000 32 0321 BRP DUMPL+2
1918 0327 4327 0 0000 46 0347 CLL BUF
1919 0328 4328 0 6101 26 0347 IFL BUF/61,1
1920 0329 4329 0 0000 30 0333 BUN MRD
1921
1922 0330 4330 0 1000 06 0000 DUMP.4 PWR 0000,1,100
1923 0331 4331 0 1000 06 0100 PWR 100,1,100
1924 0332 4332 0 1000 06 0200 PWR 200,1,100
1925
1926 0333 4333 4 1101 52 0100 MRD 4MNC IA,OT,1
1927 0334 4334 0 0000 10 0100 CAD IA
1928 0335 4335 0 0099 36 0346 BFA HLT/00,99
1929 0336 4336 0 0001 45 0100 CLA 100
1930 0337 4337 0 0001 42 0336 LBC $-1
1931 0338 4338 1 0000 12 0200 1 -ADD 200
1932 0339 4339 0 0001 20 0338 IBB 1B,1
1933 0340 4340 0 0000 31 0341 BOF $+1
1934 0341 4341 0 0000 36 0309 BZA DUMP,2
1935 0342 4342 0 0040 09 0082 SPO R'CHECK SUM ERROR'
1936 0343 4343 0 9669 00 9669 HLT 9669,9669(44)
1937 0344 4344 4 1101 58 0000 4MPB OT,1
1938 0345 4345 0 0000 30 0333 BUN MRD
1939 0346 4346 0 0757 00 7250 HLT HLT 7250,0757(44)
1940
1941 0347 4347 0 0000 01 0000 BUF (10000)
1942 0348 4348 0 0000 00 0000 FILL 0,5
1943 0353 4353 0 4000 38 0302 CALL BCS 302,4
1944 0354 4354 0 0000 30 0003 BUN LOADB
1945 0355 4355 0 1000 03 0000 PNC 0000,1,100
1946 0356 4356 0 1000 03 0100 PNC 0100,1,100
1947 0357 4357 0 1000 03 0200 PNC 0200,1,100
1948 0358 4358 0 0000 30 0003 BUN LOADB
1949 0359 4359 6 0000 30 0300 6BUN 300
1950
1951 0360 4360 3 3333 33 3333 OUTFMT-28 FORMAT PUNCH,P5ZN9B4N,11B,5(S10N)
1952
1953 PLACED
1954 0001 END 4800
Reference in New Issue View Git Blame Copy Permalink