-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathalgol.lo
4040 lines (4039 loc) · 434 KB
/
algol.lo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1
2 ******************************
3 * ALGOL *
4 * 910/920 60-4 *
5 * 012016 *
6 ******************************
00001 7 AORG 1
00001 0 32 00002 8 WIM 2
00016000 9 OBJTY EQU 016000 ALGOL OBJECT CODE TYPER
00000176 10 NLIT EQU 0176 NUMBER OF LITERALS
00000103 11 STL EQU 67
00000020 12 NIMF EQU 16 NUMBER OF IMPLICIT FUNCTIONS
00000024 13 LIMF EQU 20 LENGTH OF IMPLICIT DECS
14000000 14 ZZA EQU 014000000 APOSTROPHE
61000000 15 ZZD EQU 061000000 DIVIDE
76000000 16 ZZI EQU 076000000 INVERSE DIVIDE
20000000 17 ZZP EQU 020000000 PLUS
35000000 18 ZZL EQU 035000000 LEFT BRACKET
55000000 19 ZZR EQU 055000000 RIGHT BRACKET
56000000 20 ZZSC EQU 056000000 SEMICOLON
00002 21 IMAGE RES 20
00026 00050000 22 BUF DATA 050000 CONTROL WORD
00027 02100000 23 DATA 02100000 LOAD ADDR WORD
00030 24 RES 24
00060 00000000 25 DATA 0,0,0,0,0,0,0,0
00061 00000000
00062 00000000
00063 00000000
00064 00000000
00065 00000000
00066 00000000
00067 00000000
00070 26 RAST RES 1
00071 27 CHAR RES 1
00072 28 LEN RES 1
00073 29 NAME RES 2
00075 30 CNT RES 1
00076 31 OP RES 1
00077 00000120 32 CC DATA 80
00100 33 AORG 0100
10000000 34 TYY OPD 010000000
00100 0 02 02041 35 TYPW 1,1
00101 0 12 40000 36 MIW *0
00102 0 02 14000 37 TOPW
00103 0 40 21000 38 BRTW
00104 0 01 00103 39 BRU $-1
00105 0 51 00000 40 BRR 0
10600000 41 SKMA OPD 010600000
00106 0 70 40000 42 SKMA SKM *0
00107 0 61 00000 43 MIN 0
00110 0 51 00000 44 BRR 0
11100000 45 SKGA OPD 011100000
00111 0 73 40000 46 SKGA SKG *0
00112 0 61 00000 47 MIN 0
00113 0 51 00000 48 BRR 0
11400000 49 SKNA OPD 011400000
00114 0 53 40000 50 SKNA SKN *0
00115 0 61 00000 51 MIN 0
00116 0 51 00000 52 BRR 0
D 11700000 53 CXA OPD 011700000
00117 0 37 00224 54 STX TT
00120 0 76 00224 55 LDA TT
00121 0 51 00000 56 BRR 0
12200000 57 STZ OPD 012200000
00122 0 46 30003 58 STZ CLR
00123 0 35 40000 59 STA *0
00124 0 51 00000 60 BRR 0
00125 00000000 61 SS DATA 0
12600000 62 COP OPD 012600000
00126 0 76 00000 63 COP LDA 0
00127 0 35 00133 64 STA RECUR
00130 0 76 40000 65 LDA *0
00131 0 43 04141 66 BRM COA
00132 0 51 00133 67 BRR RECUR
00133 00000000 68 RECUR DATA 0
D 13400000 69 CAX OPD 013400000
00134 0 35 00224 70 STA TT
00135 0 71 00224 71 LDX TT
00136 0 51 00000 72 BRR 0
D 13700000 73 CNA OPD 013700000
00137 0 17 07130 74 EOR =-1
00140 0 55 07131 75 ADD =1
00141 0 51 00000 76 BRR 0
D 14200000 77 XMA OPD 014200000
00142 0 35 00225 78 STA TT+1
00143 0 76 40000 79 LDA *0
00144 0 35 00224 80 STA TT
00145 0 76 00225 81 LDA TT+1
00146 0 35 40000 82 XMA1 STA *0
00147 0 76 00224 83 LDA TT
00150 0 51 00000 84 BRR 0
D 15100000 85 ADM OPD 015100000
00151 0 35 00224 86 STA TT
00152 0 55 40000 87 ADD *0
00153 0 01 00146 88 BRU XMA1
D 15400000 89 SKE OPD 015400000
00154 0 36 00224 90 STB TT
00155 0 75 07130 91 LDB =-1
00156 0 70 40000 92 SKM *0
00157 0 01 00165 93 BRU SKEA2
00160 0 01 00164 94 BRU SKEA1
16100000 95 SKEA OPD 016100000
00161 0 36 00224 96 STB TT
00162 0 75 07130 97 LDB =-1
00163 0 70 40000 98 SKM *0
00164 0 61 00000 99 SKEA1 MIN 0
00165 0 75 00224 100 SKEA2 LDB TT
00166 0 51 00000 101 BRR 0
D 16700000 102 SKR OPD 016700000
06000000 103 MDE OPD 06000000
00167 0 60 40000 104 MDE *0
00170 0 20 00000 105 NOP FOR 920 TESTING
00171 0 53 40000 106 SKN *0
00172 0 51 00000 107 BRR 0
00173 0 61 00000 108 MIN 0
00174 0 51 00000 109 BRR 0
D 07600175 110 CLA OPD 07600175
D 07500175 111 CLB OPD 07500175
00175 00000000 112 DATA 0
17600000 113 ERR OPD 017600000
00176 0 37 00223 114 STX ERRX
00177 0 71 00000 115 LDX 0
00200 0 37 00133 116 STX RECUR
00201 1 00 07132 117 TYY =052000000
00202 2 76 00000 118 LDA 0,IX2
00203 0 67 00022 119 LSH 18
00204 0 35 00222 120 STA ERRT
00205 1 00 00222 121 TYY ERRT
00206 1 00 07133 122 TYY =054000000
00207 0 76 00077 123 LDA CC
00210 0 35 00222 124 STA ERRT
00211 1 22 00077 125 STZ CC
00212 0 43 00226 126 BRM GETC
00213 1 00 00071 127 TYY CHAR
00214 0 61 00077 128 MIN CC
00215 0 60 00222 129 SKR ERRT
00216 0 01 00212 130 BRU $-4
00217 0 60 00077 131 SKR CC
00220 0 71 00223 132 LDX ERRX
00221 0 51 00133 133 BRR RECUR
00222 134 ERRT RES 1
00223 135 ERRX RES 1
00224 136 TT RES 2
00226 0 00 00000 137 GETC PZE
00227 0 76 00077 138 LDA CC
00230 0 66 00002 139 RSH 2
00231 0 46 00400 140 CAX
00232 2 75 00002 141 LDB IMAGE,IX2
00233 0 76 00077 142 LDA CC
00234 0 72 07134 143 SKA =2
00235 0 67 00014 144 LSH 12
00236 0 76 00077 145 LDA CC
00237 0 72 07131 146 SKA =1
00240 0 67 00006 147 LSH 6
00241 0 46 00014 148 XAB
00242 0 14 07135 149 ETR =077000000
00243 1 61 07136 150 SKEA =074000000
00244 0 76 07137 151 LDA =035000000
00245 1 61 07140 152 SKEA =034000000
00246 0 76 07141 153 LDA =055000000
00247 1 61 07142 154 SKEA =060000000
00250 0 76 07143 155 LDA =012000000
00251 0 35 00071 156 STA CHAR
00252 0 51 00226 157 BRR GETC
158 * GETS NEXT CHAR FROM INPUT SOURCE
00253 0 53 00414 159 FETCH SKN STOPSW
00254 0 01 03674 160 BRU ENDPO
00255 0 61 00077 161 MIN CC
00256 0 76 00077 162 LDA CC
00257 0 73 04561 163 SKG HICOL MAXIMUM SIGNIFICANT CHARACTERS
00260 0 01 00265 164 BRU FETCH1
00261 0 43 04530 165 FETCHR BRM CARD
00262 0 46 30003 166 CLR
00263 0 35 00125 167 STA SS
00264 0 35 00077 168 STA CC
00265 0 43 00226 169 FETCH1 BRM GETC
00266 0 53 00341 170 SKN KSW
00267 0 01 00332 171 BRU FETCH5
00270 1 61 07143 172 SKEA =012000000
00271 0 01 00301 173 BRU FETCH2
00272 0 40 20100 174 BPT 3
00273 0 01 00276 175 BRU $+3
00274 0 01 00302 176 BRU FETCH3
00275 1 00 07143 177 TYY =012000000
00276 0 60 00125 178 SKR SS
00277 0 01 00275 179 BRU $-2
00300 1 00 00071 180 TYY CHAR
00301 0 61 00125 181 FETCH2 MIN SS
00302 0 46 20005 182 FETCH3 ABC
00303 0 76 07144 183 LDA =4
00304 1 11 05117 184 SKGA TMIN
00305 0 01 00312 185 BRU FETCH4
00306 1 76 00042 186 ERR 'K' MINOR SYNTAX OVERFLOW
00307 1 22 00341 187 FETCH6 STZ KSW
00310 1 22 05442 188 STZ NOCOD
00311 0 01 00253 189 BRU FETCH
00312 0 76 07145 190 FETCH4 LDA =0
00313 0 67 00006 191 LSH 6 LD INDEX
00314 0 75 05245 192 LDB A8 LD BASE PZE CVERT,IX2
00315 0 43 00420 193 BRM LDCON
00316 0 35 05174 194 STA T
00317 1 61 07146 195 SKEA =BOUND
00320 0 35 00414 196 STA STOPSW
00321 0 76 05117 197 LDA TMIN
00322 0 75 05152 198 LDB A4
00323 0 43 00456 199 BRM LDSNG
00324 0 50 07147 200 SKE =APOST2
00325 0 01 00342 201 BRU PREC2
00326 0 76 05174 202 LDA T
00327 0 50 07150 203 SKE =APOST
00330 0 01 03526 204 BRU SN25
00331 0 01 00412 205 BRU PREC1
00332 0 50 07151 206 FETCH5 SKE =ZZSC
00333 0 01 00253 207 BRU FETCH
00334 0 76 07130 208 LDA =-1
00335 0 35 00341 209 STA KSW
00336 1 22 05117 210 STZ TMIN
00337 1 22 05115 211 STZ RMIN
00340 0 01 01453 212 BRU SYN2
00341 77777777 213 KSW DATA -1
00342 0 50 07150 214 PREC2 SKE =APOST
00343 0 01 00367 215 BRU PREC3
00344 0 76 05117 216 LDA TMIN
00345 0 54 07131 217 SUB =1
00346 0 75 05152 218 LDB A4
00347 0 43 00456 219 BRM LDSNG
00350 0 50 07147 220 SKE =APOST2
00351 0 01 00407 221 BRU PREC5
00352 0 76 05174 222 LDA T
00353 1 61 07150 223 SKEA =APOST
00354 0 01 03612 224 BRU SN21
00355 0 60 05117 225 SKR TMIN
00356 0 60 05115 226 SKR RMIN
00357 0 76 07152 227 LDA =ZZA
00360 0 62 00071 228 XMA CHAR
00361 0 35 05175 229 STA T+1
00362 0 43 04626 230 BRM STRWD
00363 0 76 05175 231 LDA T+1
00364 0 35 00071 232 STA CHAR
00365 0 43 04626 233 BRM STRWD
00366 0 01 00253 234 BRU FETCH
00367 0 50 07153 235 PREC3 SKE =COMENT
00370 0 01 00375 236 BRU PREC4
00371 0 76 05174 237 LDA T
00372 0 50 07154 238 SKE =SEMCOL
00373 0 01 00253 239 BRU FETCH
00374 0 01 00412 240 BRU PREC1
00375 0 50 07155 241 PREC4 SKE =END
00376 0 01 00407 242 BRU PREC5
00377 0 76 05174 243 LDA T
00400 1 61 07154 244 SKEA =SEMCOL
00401 0 01 00412 245 BRU PREC1
00402 1 61 07150 246 SKEA =APOST
00403 0 01 00412 247 BRU PREC1
00404 0 50 07146 248 SKE =BOUND
00405 0 01 00253 249 BRU FETCH
00406 0 01 00412 250 BRU PREC1
00407 0 76 05174 251 PREC5 LDA T
00410 1 61 07156 252 SKEA =BLANK
00411 0 01 00253 253 BRU FETCH
00412 0 75 05174 254 PREC1 LDB T
00413 0 01 03322 255 BRU LW10
00414 77777777 256 STOPSW DATA -1
257 *
258 * LD CONSTRUCT FROM BASE AND INDEX TO ACC,RJE
00415 0 67 00010 259 ZRSH LSH 8
00416 0 67 00020 260 LSH 16
00417 0 46 00014 261 XAB
00420 0 00 00000 262 LDCON PZE
00421 0 36 05222 263 STB T+22
00422 0 71 07157 264 LDX =040000
00423 0 73 07134 265 SKG =2
00424 0 01 00427 266 BRU $+3
00425 0 54 07146 267 SUB =3
00426 0 41 00423 268 BRX $-3
00427 0 75 45222 269 LDB *T+22
00430 0 46 00400 270 CAX
D 02300000 271 EXU OPD 02300000
00431 2 23 00415 272 EXU ZRSH,IX2
00432 0 14 07160 273 ETR =0377
00433 0 71 05127 274 LDX MODE
00434 0 51 00420 275 BRR LDCON
276 * ST CONSTRUCT INTO BASE AND INDEX FROM ACC,RJE
00435 0 00 00000 277 STCON PZE
00436 0 35 05222 278 STA T+22
00437 0 76 05172 279 LDA P+8
00440 0 66 00001 280 RSH 1
00441 0 46 00400 281 CAX
00442 0 76 05222 282 LDA T+22
00443 0 36 05222 283 STB T+22
00444 0 75 07161 284 LDB =07777
00445 0 53 05222 285 SKN T+22
00446 0 67 00014 286 LSH 12
00447 0 36 05222 287 STB T+22
00450 0 17 45173 288 EOR *P+9
00451 0 14 05222 289 ETR T+22
00452 0 17 45173 290 EOR *P+9
00453 0 35 45173 291 STA *P+9
00454 0 71 05127 292 LDX MODE
00455 0 51 00435 293 BRR STCON
00456 0 00 00000 294 LDSNG PZE
00457 0 36 05222 295 STB T+22
00460 0 66 00001 296 RSH 1
00461 0 46 00400 297 CAX
00462 0 76 45222 298 LDA *T+22
00463 0 36 05222 299 STB T+22
00464 0 53 05222 300 SKN T+22
00465 0 66 00014 301 RSH 12
00466 0 14 07160 302 ETR =0377
00467 0 71 05127 303 LDX MODE
00470 0 51 00456 304 BRR LDSNG
305 * COMPARES RULE IMPLIERS WITH CONSTRUCT STRING
00471 0 00 00000 306 CPARE PZE
00472 0 71 05127 307 LDX MODE
00473 2 76 05115 308 LDA RMIN,IX2
00474 0 55 05206 309 ADD T+10 R+Q LD INDEX
00475 0 35 05210 310 STA T+12
00476 2 75 05152 311 CP2 LDB A4,IX2
00477 0 43 00456 312 BRM LDSNG
00500 0 35 05207 313 STA T+11
00501 0 76 05175 314 LDA T+1
00502 0 55 07162 315 ADD =020000000
00503 0 46 00014 316 XAB
00504 0 76 05205 317 LDA T+9 X LD INDEX
00505 0 43 00420 318 BRM LDCON
00506 0 50 05207 319 SKE T+11
00507 0 51 00471 320 BRR CPARE
00510 0 61 05205 321 MIN T+9 EQ
00511 0 61 05210 322 MIN T+12
00512 0 76 05210 323 LDA T+12
00513 0 60 05211 324 SKR T+13
00514 0 01 00476 325 BRU CP2
00515 0 61 00471 326 CP1 MIN CPARE
00516 0 51 00471 327 BRR CPARE
328 * INSERTS IMPLICAND STRING INTO CONSTRUCT STRING
00517 0 00 00000 329 MASAGE PZE
00520 0 54 07131 330 SUB =1
00521 0 35 05176 331 STA T+2 NO. IMPLAND CONSTR -1 IS CNTR
00522 0 54 05163 332 SUB P+1
00523 0 55 05164 333 ADD P+2
00524 0 35 05340 334 STA DELTA P5-P2+P3-1
00525 0 53 05176 335 SKN T+2
00526 0 01 00532 336 BRU MS6
00527 0 76 07130 337 LDA =-1
00530 0 63 00070 338 ADM RAST
00531 0 01 00552 339 BRU MS5
00532 0 76 05340 340 MS6 LDA DELTA
00533 0 50 07145 341 SKE =0
00534 0 01 00556 342 BRU MS2
00535 0 76 05164 343 MS3 LDA P+2
00536 0 35 05172 344 STA P+8 ST INDEX
00537 2 76 05152 345 LDA A4,IX2
00540 0 35 05173 346 STA P+9 ST BASE
00541 0 76 05167 347 MS1 LDA P+5
00542 0 75 05165 348 LDB P+3 LD BASE
00543 0 43 00420 349 BRM LDCON
00544 0 43 00435 350 BRM STCON
00545 0 61 05167 351 MIN P+5
00546 0 61 05200 352 MIN T+4
00547 0 61 05172 353 MIN P+8
00550 0 60 05176 354 SKR T+2
00551 0 01 00541 355 BRU MS1
00552 0 76 05340 356 MS5 LDA DELTA
00553 2 55 05117 357 ADD TMIN,IX2
00554 2 35 05117 358 STA TMIN,IX2
00555 0 51 00517 359 BRR MASAGE
00556 0 76 05163 360 MS2 LDA P+1
00557 1 61 05162 361 SKEA P
00560 0 01 00535 362 BRU MS3 P1 EQ P2
00561 0 55 07131 363 ADD =1
00562 0 35 05200 364 STA T+4 LD INDEX
00563 0 55 05340 365 ADD DELTA
00564 0 35 05172 366 STA P+8 ST INDEX
00565 0 76 05162 367 LDA P
00566 0 54 05200 368 SUB T+4
00567 0 35 05201 369 STA T+5 CNTR P1-(P2+1)
00570 2 75 05152 370 LDB A4,IX2
00571 0 36 05173 371 STB P+9
00572 0 75 05173 372 MS4 LDB P+9
00573 0 76 05200 373 LDA T+4
00574 0 43 00456 374 BRM LDSNG
00575 0 43 00435 375 BRM STCON
00576 0 61 05200 376 MIN T+4
00577 0 61 05172 377 MIN P+8
00600 0 60 05201 378 SKR T+5
00601 0 01 00572 379 BRU MS4
00602 0 01 00535 380 BRU MS3
381 * FINDS MATE DEF WITHIN A RULE
00603 0 76 05175 382 RULER LDA T+1 IMPLY DICT WD
00604 0 14 07161 383 ETR =07777
00605 0 35 05175 384 STA T+1
00606 0 71 07163 385 LDX =-3
00607 0 75 45175 386 LDB *T+1
00610 0 46 00001 387 RL1 CLA
00611 0 67 00002 388 LSH 2
00612 2 35 05205 389 STA T+9,IX2 F,G,H ARE T+6,7,8 RESPECT
00613 0 41 00610 390 BRX RL1
00614 0 76 07134 391 LDA =2
00615 0 35 05205 392 STA T+9
00616 0 76 05203 393 LDA T+7
00617 0 73 07145 394 SKG =0
00620 0 01 00631 395 BRU RL2 G EQ 0
00621 0 46 30003 396 CLR G GT 0
00622 0 54 05203 397 SUB T+7
00623 0 35 05206 398 STA T+10 Q
00624 0 55 07131 399 ADD =1
00625 0 46 01000 400 CNA
00626 0 35 05211 401 STA T+13
00627 0 43 00471 402 BRM CPARE
00630 0 01 00701 403 BRU RL3
00631 0 76 05202 404 RL2 LDA T+6
00632 0 54 05203 405 SUB T+7
00633 1 61 07145 406 SKEA =0
00634 0 01 00643 407 BRU RL4 F EQ G
00635 0 54 07131 408 SUB =1
00636 0 35 05211 409 STA T+13
00637 0 76 07131 410 LDA =1
00640 0 35 05206 411 STA T+10 Q
00641 0 43 00471 412 BRM CPARE
00642 0 01 00701 413 BRU RL3 NO GOOD
00643 0 71 05127 414 RL4 LDX MODE
00644 2 76 05117 415 LDA TMIN,IX2 T
00645 0 35 05162 416 STA P
00646 2 76 05115 417 LDA RMIN,IX2
00647 0 55 05202 418 ADD T+6
00650 0 54 05203 419 SUB T+7
00651 0 35 05163 420 STA P+1 R+F-G
00652 0 54 05202 421 SUB T+6
00653 0 35 05164 422 STA P+2 R-G
00654 0 76 05202 423 LDA T+6
00655 0 55 07134 424 ADD =2
00656 0 35 05167 425 STA P+5
00657 0 76 05175 426 LDA T+1
00660 0 55 05161 427 ADD A3
00661 0 35 05165 428 STA P+3
00662 2 76 05112 429 LDA A1,IX2
00663 0 35 05166 430 STA P+4
00664 0 76 05204 431 LDA T+8
00665 0 43 00517 432 BRM MASAGE
00666 2 76 05115 433 LDA RMIN,IX2
00667 0 54 05203 434 SUB T+7
00670 2 35 05115 435 STA RMIN,IX2 R=R-G
00671 0 76 45175 436 RL5 LDA *T+1
00672 0 66 00010 437 RSH 8
00673 0 14 07164 438 ETR =01777
00674 2 55 05154 439 ADD SEM,IX2
00675 0 35 05175 440 STA T+1
00676 0 46 30003 441 CLR
00677 0 76 07130 442 LDA =-1
00700 0 01 45175 443 BRU *T+1 RCVRY PT
00701 0 76 05202 444 RL3 LDA T+6
00702 0 55 05204 445 ADD T+8
00703 0 61 05175 446 MIN T+1
00704 0 61 05175 447 RL6 MIN T+1
00705 0 54 07146 448 SUB =3
00706 0 73 07131 449 SKG =1
00707 0 01 00606 450 BRU RULER+3
00710 0 01 00704 451 BRU RL6
452 * CORRESPONDENCE BETWEEN PRIMITIVES AND CONSTRUCTS
453 CON FORM 8,8,8
00711 027 027 027 454 CVERT CON DGT,DGT,DGT
00712 027 027 027 455 CON DGT,DGT,DGT
00713 027 027 027 456 CON DGT,DGT,DGT
00714 027 261 010 457 CON DGT,BLANK,EQUAL
00715 025 007 012 458 CON APOST,COLON,RPT
00716 255 014 030 459 CON ILLEG,AOP,LTR
00717 030 030 030 460 CON LTR,LTR,LTR
00720 030 030 030 461 CON LTR,LTR,LTR
00721 030 030 261 462 CON LTR,LTR,BLANK
00722 175 255 023 463 CON PT,ILLEG,LPAREN
00723 011 003 014 464 CON LPT,BOUND,AOP
00724 030 030 030 465 CON LTR,LTR,LTR
00725 030 030 030 466 CON LTR,LTR,LTR
00726 030 030 030 467 CON LTR,LTR,LTR
00727 261 255 013 468 CON BLANK,ILLEG,AST
00730 022 021 171 469 CON RPAREN,SEMCOL,TEN
00731 255 004 030 470 CON ILLEG,MOP,LTR
00732 030 030 030 471 CON LTR,LTR,LTR
00733 030 030 030 472 CON LTR,LTR,LTR
00734 030 261 017 473 CON LTR,BLANK,COMMA
00735 255 255 004 474 CON ILLEG,ILLEG,MOP
00736 261 000 000 475 CON BLANK,0,0
00000737 476 M EQU $
00737 0 71 05127 477 SM LDX MODE
00000737 478 LW102 EQU SM
00740 2 76 05112 479 DEF LDA A1,IX2
00741 0 35 05114 480 STA D
00742 2 76 05115 481 LDA RMIN,IX2
00743 0 35 00070 482 STA RAST
00744 2 75 05152 483 LDB A4,IX2
00745 0 43 00456 484 BRM LDSNG
00746 0 54 07146 485 SUB =3
00747 0 54 05127 486 SUB MODE
00750 0 73 07130 487 SKG =-1
00751 0 01 01000 488 BRU DF8
00752 3 11 05156 489 SKGA SIZE,IX2
00753 0 01 01000 490 BRU DF8
00754 0 46 00400 491 CAX
00755 0 76 45114 492 LDA *D
00756 0 01 01011 493 BRU DF2
00757 0 35 00070 494 DF4 STA RAST
00760 2 75 05152 495 LDB A4,IX2
00761 0 43 00456 496 BRM LDSNG
00762 0 46 00002 497 CLB
00763 0 67 00014 498 LSH 12
00764 0 35 05175 499 STA T+1 CONSTR IN B2-9
00765 0 71 07145 500 LDX =0
00766 0 75 07165 501 LDB =07770000
00767 0 76 45114 502 DF1 LDA *D
00770 0 70 05175 503 SKM T+1
00771 0 01 00773 504 BRU $+2
00772 0 01 01011 505 BRU DF2
00773 0 61 05114 506 MIN D
00774 0 73 07130 507 SKG =-1
00775 0 01 00777 508 BRU $+2
00776 0 01 00767 509 BRU DF1
00777 0 71 05127 510 LDX MODE
01000 2 61 05115 511 DF8 MIN RMIN,IX2
01001 2 76 05115 512 LDA RMIN,IX2
01002 2 73 05117 513 SKG TMIN,IX2
01003 0 01 00740 514 BRU DEF R LE T
01004 2 01 01005 515 DF7 BRU $+1,IX2
01005 0 01 00253 516 BRU FETCH
01006 0 71 07145 517 LDX =0
01007 0 37 05127 518 STX MODE
01010 0 01 00740 519 BRU DEF
01011 0 35 05175 520 DF2 STA T+1 IMPLY DICT WD
01012 0 66 00025 521 RSH 21
01013 0 14 07146 522 ETR =3
01014 0 55 05160 523 ADD A2
01015 0 35 01017 524 STA $+2
01016 0 71 05127 525 LDX MODE
01017 0 01 00000 526 BRU
01020 0 01 01027 527 DF6 BRU DF3
01021 0 01 01035 528 BRU DF5 1 - IMPLAND ADDR
01022 0 01 00603 529 BRU RULER 2 - RULE
01023 2 76 05117 530 LDA TMIN,IX2 3 - RULEF
01024 2 73 05115 531 SKG RMIN,IX2
01025 0 01 01004 532 BRU DF7
01026 0 01 00603 533 BRU RULER
01027 0 76 05175 534 DF3 LDA T+1
01030 0 14 07161 535 ETR =07777
01031 0 35 05114 536 STA D
01032 0 76 00070 537 LDA RAST
01033 0 54 07131 538 SUB =1
01034 0 01 00757 539 BRU DF4
01035 2 76 05117 540 DF5 LDA TMIN,IX2
01036 0 35 05162 541 STA P
01037 2 76 05115 542 LDA RMIN,IX2
01040 0 35 05163 543 STA P+1
01041 0 76 00070 544 LDA RAST
01042 0 35 05164 545 STA P+2
01043 0 76 05175 546 LDA T+1
01044 0 14 07161 547 ETR =07777
01045 0 35 05175 548 STA T+1
01046 0 35 05165 549 STA P+3
01047 2 76 05112 550 LDA A1,IX2
01050 0 35 05166 551 STA P+4
01051 0 75 45165 552 LDB *P+3
01052 0 76 07162 553 LDA =020000000
01053 0 63 05165 554 ADM P+3
01054 0 76 07134 555 LDA =2
01055 0 35 05167 556 STA P+5
01056 0 76 07145 557 LDA =0
01057 0 67 00006 558 LSH 6
01060 0 43 00517 559 BRM MASAGE
01061 0 76 00070 560 LDA RAST
01062 2 35 05115 561 STA RMIN,IX2
01063 0 01 00671 562 BRU RL5
01064 0 76 07134 563 SM1 LDA =2
01065 0 35 05150 564 STA TYPES
01066 0 01 00737 565 BRU SM
01067 0 76 07146 566 SM2 LDA =3
01070 0 01 01065 567 BRU SM1+1
01071 0 76 07131 568 SM3 LDA =1
01072 0 01 01065 569 BRU SM1+1
01073 0 76 07166 570 SM17 LDA =01600 OPARY
01074 0 35 45312 571 STA *SK
01075 0 01 00737 572 BRU SM
01076 1 22 05126 573 SM64 STZ NDIM
01077 0 53 05151 574 SKN STYPE
01100 0 61 05126 575 MIN NDIM
01101 0 76 07131 576 LDA =1
01102 0 35 01653 577 STA TOT
01103 0 01 00737 578 BRU SM
01104 0 46 30003 579 SM68 CLR
01105 0 35 05135 580 STA DECST
01106 0 35 05151 581 STA STYPE
01107 0 35 05126 582 STA NDIM
01110 0 76 07131 583 LDA =1
01111 0 35 01653 584 STA TOT
01112 0 01 00737 585 BRU SM
01113 0 76 07167 586 SM133 LDA =8
01114 0 01 01175 587 BRU R2D2+1
01115 0 76 07170 588 SM134 LDA =9
01116 0 01 01175 589 BRU R2D2+1
01117 0 76 45250 590 SM135 LDA *BCTAB
01120 0 66 00011 591 RSH 9
01121 0 14 07171 592 ETR =0777
01122 0 46 00400 593 CAX
01123 2 76 07325 594 LDA BASEA-1,IX2
01124 0 75 07172 595 LDB =00600000
01125 1 06 07145 596 SKMA =0
01126 0 01 01134 597 BRU SM135A
01127 0 14 07173 598 ETR =077777
01130 0 55 07174 599 ADD =060100000
01131 0 35 05225 600 STA WORDS
01132 0 46 20005 601 ABC
01133 0 43 04403 602 BRM MOVE
01134 0 61 02321 603 SM135A MIN NDB6
01135 0 01 02303 604 BRU ENDBLK
01136 1 22 05147 605 SM22 STZ PARA
01137 0 01 00737 606 BRU SM
01140 0 46 30003 607 SM117 CLR
01141 0 35 05151 608 STA STYPE
01142 0 01 01065 609 BRU SM1+1
01143 0 76 45312 610 SM137 LDA *SK
01144 0 50 05537 611 SKE CW+14 - CW
01145 0 01 01151 612 BRU $+4
01146 0 76 05555 613 LDA CW+28
01147 0 35 45312 614 STA *SK
01150 0 01 00737 615 BRU SM
01151 1 14 05442 616 SKNA NOCOD
01152 0 60 05312 617 SKR SK
01153 0 01 00737 618 BRU SM
01154 0 55 05116 619 R1D1 ADD RMIN+1
01155 0 75 05153 620 LDB A4+1
01156 0 43 00456 621 BRM LDSNG
01157 0 46 00002 622 CLB
01160 1 61 07134 623 SKEA =BLKHD
01161 0 36 05143 624 STB TEMPT
01162 0 01 00737 625 BRU SM
01163 0 36 05136 626 R1D2 STB DECSW
01164 0 01 00737 627 BRU SM
01165 00000000 628 SIGN DATA 0
01166 0 00 00000 629 FRACP PZE
01167 0 76 05401 630 LDA NUMB
01170 0 35 05122 631 STA FRAC
01171 0 76 05400 632 LDA ND
01172 0 35 05123 633 STA EXP
01173 0 51 01166 634 BRR FRACP
01174 0 76 07131 635 R2D2 LDA =1
01175 0 35 05146 636 STA KIND
01176 0 01 00737 637 BRU SM
01177 0 35 05135 638 R2D4 STA DECST
01200 0 76 05150 639 LDA TYPES
01201 0 35 05144 640 STA SWIND
01202 0 36 05132 641 R2D5 STB NENT
01203 0 76 07134 642 LDA =2
01204 0 35 05146 643 R2D5A STA KIND
01205 0 43 01654 644 BRM DUP
01206 0 76 05146 645 LDA KIND
01207 0 43 02113 646 BRM ADST
01210 0 01 00737 647 BRU SM
01211 0 61 05132 648 R2D6A MIN NENT
01212 0 01 01203 649 BRU R2D5+1
01213 0 76 07146 650 R2D6 LDA =3
01214 0 01 01175 651 BRU R2D2+1
01215 0 36 05150 652 R2D8 STB TYPES
01216 1 22 05133 653 R2D7 STZ LA
01217 0 76 07175 654 LDA =5
01220 0 01 01204 655 BRU R2D5A
01221 0 00 00000 656 XNAM PZE
01222 0 36 05206 657 STB T+10
01223 0 75 07176 658 LDB =060606060
01224 0 36 00030 659 STB BUF+2
01225 0 75 07177 660 LDB =BUF+1
01226 0 43 02155 661 BRM MOVNAM
01227 0 76 07200 662 LDA =010450000
01230 0 35 00026 663 STA BUF
01231 0 76 05206 664 LDA T+10
01232 0 14 07173 665 ETR =077777
01233 0 55 07201 666 ADD =020100000
01234 0 51 01221 667 BRR XNAM
01235 0 76 07144 668 R2D9A LDA =4
01236 0 43 02113 669 BRM ADST
01237 0 76 45265 670 LDA *A15B
01240 2 75 07326 671 LDB BASEA,IX2
01241 0 43 01221 672 BRM XNAM
01242 0 55 07162 673 ADD =020000000
01243 0 35 00031 674 STA BUF+3
01244 0 43 04614 675 BRM SEND
01245 0 01 01252 676 BRU R2D9B
01246 0 76 05134 677 R2D9 LDA MAD
01247 0 35 05133 678 STA LA
01250 0 76 07144 679 LDA =4
01251 0 43 02113 680 BRM ADST
01252 0 76 07130 681 R2D9B LDA =-1
01253 0 35 05136 682 STA DECSW
01254 0 35 05142 683 STA PROCSW
01255 0 35 05132 684 STA NENT
01256 0 46 30003 685 CLR
01257 0 76 07146 686 LDA =3
01260 0 54 05150 687 SUB TYPES
01261 0 67 00025 688 LSH 21
01262 0 55 07202 689 ADD =04100000
01263 0 35 05225 690 STA WORDS
01264 0 46 30003 691 CLR
01265 0 43 04403 692 BRM MOVE
01266 0 01 02242 693 BRU BEGBLK+1
01267 0 46 30003 694 R2D10 CLR
01270 0 35 05132 695 STA NENT
01271 0 55 07203 696 ADD =WORDS
01272 0 35 05220 697 STA T+20
01273 0 43 02023 698 BRM BLKAD
01274 0 55 07162 699 ADD =020000000
01275 0 35 45220 700 STA *T+20
01276 0 76 05134 701 LDA MAD
01277 0 55 05132 702 ADD NENT
01300 0 35 05133 703 STA LA
01301 0 76 07131 704 LDA =1
01302 0 35 05147 705 STA PARA
01303 0 35 05150 706 STA TYPES
01304 0 61 05150 707 MIN TYPES
01305 0 43 02113 708 BRM ADST
01306 0 61 05141 709 MIN NDAD
01307 0 01 00737 710 BRU SM
01310 0 76 05132 711 R2D11 LDA NENT
01311 0 55 07131 712 ADD =1
01312 0 01 01270 713 BRU R2D10+1
01313 0 43 02171 714 R2D12 BRM STSCH
01314 0 72 07204 715 SKA =040000000
01315 0 01 01327 716 BRU R2D12A
01316 0 76 07205 717 LDA =01000000
01317 2 55 07326 718 ADD BASEA,IX2
01320 2 35 07326 719 STA BASEA,IX2
01321 0 14 07173 720 ETR =077777
01322 0 54 05134 721 SUB MAD
01323 0 46 00400 722 CAX
01324 0 76 07162 723 LDA =020000000
01325 2 63 05225 724 ADM WORDS,IX2
01326 0 01 00737 725 BRU SM
01327 1 76 00023 726 R2D12A ERR 'C' VALUE BUT NO PARAMETER
01330 0 01 00737 727 BRU SM
01331 0 76 07131 728 R2D1 LDA =1
01332 0 35 05146 729 STA KIND
01333 0 43 02171 730 R2D14 BRM STSCH
01334 0 72 07204 731 SKA =040000000
01335 0 01 01327 732 BRU R2D12A
01336 0 46 30003 733 CLR
01337 0 76 05146 734 LDA KIND
01340 0 67 00004 735 LSH 4
01341 0 55 05150 736 ADD TYPES
01342 0 67 00020 737 LSH 16
01343 0 35 05221 738 STA T+21
01344 2 76 07326 739 LDA BASEA,IX2
01345 0 14 07206 740 ETR =03177777
01346 0 55 05221 741 ADD T+21
01347 2 35 07326 742 STA BASEA,IX2
01350 0 75 07135 743 LDB =077000000
01351 1 06 07143 744 SKMA =012000000 KIND=ARIDT,PARA=CBV
01352 0 61 05141 745 MIN NDAD
01353 0 14 07173 746 ETR =077777
01354 0 54 05134 747 SUB MAD
01355 0 46 00400 748 CAX
01356 0 46 30003 749 CLR
01357 0 76 07146 750 LDA =3
01360 0 54 05150 751 SUB TYPES
01361 0 67 00004 752 LSH 4
01362 0 55 05146 753 ADD KIND
01363 0 67 00017 754 LSH 15
01364 2 63 05225 755 ADM WORDS,IX2
01365 0 01 00737 756 BRU SM
01366 0 36 05150 757 R4D1 STB TYPES
01367 0 76 07144 758 R4D2 LDA =4
01370 0 01 01175 759 BRU R2D2+1
01371 0 36 05150 760 R4D4 STB TYPES
01372 0 01 00737 761 BRU SM
01373 0 76 07134 762 R5D1 LDA =2
01374 0 35 05150 763 STA TYPES
01375 0 76 07134 764 R5D3 LDA =2
01376 0 01 01175 765 BRU R2D2+1
01377 0 35 05151 766 R5D2 STA STYPE
01400 0 01 00737 767 BRU SM
01401 0 35 05151 768 R5D5 STA STYPE
01402 0 76 07134 769 LDA =2
01403 0 35 05150 770 STA TYPES
01404 0 01 00737 771 BRU SM
01405 0 76 07134 772 R5D6 LDA =2
01406 0 35 05150 773 STA TYPES
01407 0 61 05126 774 R5D4 MIN NDIM
01410 0 01 00737 775 BRU SM
01411 0 35 05151 776 R7D2 STA STYPE
01412 0 01 01760 777 BRU VAR
01413 0 76 07170 778 R7D4 LDA =9
01414 0 01 01751 779 BRU MODB
01415 0 76 07207 780 R11D14 LDA =11
01416 0 01 01751 781 BRU MODB
01417 0 76 05521 782 R26D4 LDA CW LBRACK
01420 0 35 45312 783 STA *SK
01421 0 76 07210 784 LDA =13
01422 0 01 01751 785 BRU MODB
01423 0 75 05566 786 R8D2 LDB CW+37
01424 0 76 45272 787 LDA *SJ
01425 1 61 07345 788 SKEA IO
01426 0 01 01431 789 BRU R8D2A
01427 1 26 05617 790 COP BCJM0
01430 0 75 05557 791 LDB CW+30 PROC OP
01431 0 36 45312 792 R8D2A STB *SK
01432 0 75 05140 793 LDB RAND
01433 1 14 01437 794 SKNA NEST
01434 0 36 01440 795 STB INDEX
01435 0 61 01437 796 MIN NEST
01436 0 01 00737 797 BRU SM
01437 77777777 798 NEST DATA -1
01440 00000000 799 INDEX DATA 0
01441 0 76 05272 800 R10D2 LDA SJ
01442 0 54 05262 801 SUB A12
01443 0 35 05124 802 STA PTR
01444 0 01 00737 803 BRU SM
01445 1 76 00024 804 SYND ERR 'D' 'DO' SYNTAX ERROR
01446 0 01 01452 805 BRU SYN1
01447 1 76 00025 806 SYNS ERR 'E' STATEMENT SYNTAX ERROR
01450 0 01 01452 807 BRU SYN1
01451 1 76 00044 808 SYN ERR 'M' SEMICOLON SYNTAX ERROR
01452 0 60 05116 809 SYN1 SKR RMIN+1
01453 0 76 05116 810 SYN2 LDA RMIN+1
01454 0 35 05120 811 STA TMIN+1
01455 0 75 05153 812 LDB A4+1
01456 0 43 00456 813 BRM LDSNG
01457 1 11 07211 814 SKGA =SPECAL
01460 0 01 01452 815 BRU SYN1
01461 0 76 05262 816 LDA A12
01462 0 55 07212 817 ADD =7
01463 0 35 05272 818 STA SJ
01464 0 76 05261 819 LDA A11
01465 0 35 05312 820 STA SK
01466 1 22 05442 821 STZ NOCOD
01467 0 01 00737 822 BRU SM
01470 1 22 05130 823 R29D1 STZ RSULT
01471 0 01 00737 824 BRU SM
01472 0 35 05125 825 R39D1 STA SCSW
01473 0 01 03675 826 R39D2 BRU ENDPRG
01474 1 14 05442 827 R40D1 SKNA NOCOD
01475 0 60 05272 828 SKR SJ
01476 0 01 00737 829 BRU SM
830 * PROC CALL CODE GENERATOR
01477 0 43 02762 831 OPPROC BRM SAVE
01500 1 26 05614 832 COP PJM0
01501 0 76 45272 833 LDA *SJ
01502 0 75 07136 834 LDB =074000000
01503 1 06 07162 835 SKMA =020000000
01504 0 01 01507 836 BRU OPPR3
01505 0 70 07213 837 SKM =024000000
01506 0 60 05272 838 OPPR2 SKR SJ
01507 0 76 00076 839 OPPR3 LDA OP
01510 0 50 05535 840 SKE CW+12 RPAREN OP
01511 0 01 04672 841 BRU TSEX
01512 0 76 45272 842 LDA *SJ
01513 0 50 07345 843 SKE IO
01514 1 26 05620 844 COP ECJM0
01515 0 75 01440 845 LDB INDEX
01516 0 76 07130 846 LDA =-1
01517 0 63 01437 847 ADM NEST
01520 1 14 01437 848 SKNA NEST
01521 0 36 05140 849 STB RAND
01522 0 63 05312 850 ADM SK
01523 0 76 45272 851 LDA *SJ
01524 0 75 07172 852 LDB =00600000
01525 1 06 07145 853 SKMA =0
01526 0 01 01531 854 BRU OPPR1
01527 0 43 05020 855 BRM RST
01530 0 01 04672 856 BRU TSEX
01531 0 60 05272 857 OPPR1 SKR SJ
01532 0 01 04672 858 BRU TSEX
01533 0 43 02762 859 OPIO BRM SAVE
01534 1 26 05613 860 COP IOJM0
01535 0 01 01506 861 BRU OPPR2
862 * STATIC ARRAY DECLARATION OPERATOR
01536 0 61 05126 863 OPARY MIN NDIM
01537 0 71 05126 864 LDX NDIM
01540 0 76 05401 865 LDA NUMB
01541 2 35 05225 866 STA WORDS,IX2
01542 0 76 00076 867 LDA OP
01543 1 61 05554 868 SKEA CW+27
01544 0 01 04672 869 BRU TSEX
01545 2 76 05224 870 LDA WORDS-1,IX2
01546 3 11 05225 871 SKGA WORDS,IX2
01547 1 76 00026 872 ERR 'F' ILLEGAL ARRAY BOUND
01550 2 76 05224 873 LDA WORDS-1,IX2
01551 2 54 05225 874 SUB WORDS,IX2
01552 0 54 07131 875 SUB =1
01553 0 46 00400 876 CAX
01554 0 46 30003 877 CLR
01555 0 55 01653 878 ADD TOT
01556 0 41 01555 879 BRX $-1
01557 0 35 01653 880 STA TOT
01560 0 76 00076 881 LDA OP
01561 0 50 05535 882 SKE CW+12
01562 0 01 04672 883 BRU TSEX
01563 0 46 30003 884 CLR
01564 0 76 05144 885 LDA SWIND HAS TYPES
01565 0 50 07131 886 SKE =1
01566 0 01 01575 887 BRU OPAR6
01567 0 62 01653 888 XMA TOT BOOLEAN
01570 0 54 07214 889 OPAR7 SUB =24
01571 0 73 07145 890 SKG =0
01572 0 01 01602 891 BRU OPAR2
01573 0 61 01653 892 MIN TOT
01574 0 01 01570 893 BRU OPAR7
01575 0 50 07134 894 OPAR6 SKE =2
01576 0 01 01602 895 BRU OPAR2
01577 0 76 01653 896 OPAR1 LDA TOT
01600 0 67 00001 897 LSH 1
01601 0 35 01653 898 OPAR3 STA TOT
01602 0 76 05246 899 OPAR2 LDA NABADD
01603 0 54 05132 900 SUB NENT
01604 0 54 07131 901 SUB =1
01605 0 46 00400 902 CAX
01606 2 76 07326 903 LDA BASEA,IX2
01607 0 14 07215 904 ETR =077700000
01610 0 55 05134 905 ADD MAD
01611 2 35 07326 906 STA BASEA,IX2
01612 0 46 30003 907 CLR
01613 0 76 07146 908 LDA =3
01614 0 54 05144 909 SUB SWIND
01615 0 67 00005 910 LSH 5
01616 0 55 05126 911 ADD NDIM
01617 0 67 00016 912 LSH 14
01620 0 14 07215 913 ETR =077700000
01621 0 53 05151 914 SKN STYPE
01622 0 01 01640 915 BRU OPAR4
01623 0 55 05134 916 ADD MAD
01624 0 55 07131 917 ADD =1
01625 0 35 05225 918 STA WORDS
01626 0 76 05126 919 LDA NDIM
01627 0 75 07204 920 LDB =040000000
01630 0 43 04403 921 BRM MOVE
01631 0 43 04460 922 BRM CODOUT
01632 0 76 01653 923 LDA TOT
01633 0 63 05134 924 ADM MAD
01634 0 60 05132 925 OPAR5 SKR NENT
01635 0 01 01602 926 BRU OPAR2
01636 0 60 05312 927 SKR SK
01637 0 01 04672 928 BRU TSEX
01640 0 55 05141 929 OPAR4 ADD NDAD
01641 0 55 07216 930 ADD =010000000
01642 0 35 05225 931 STA WORDS
01643 0 43 02023 932 BRM BLKAD
01644 0 35 05226 933 STA WORDS+1
01645 0 76 01653 934 LDA TOT
01646 0 63 05141 935 ADM NDAD
01647 0 76 05126 936 LDA NDIM
01650 0 75 07162 937 LDB =020000000
01651 0 43 04403 938 BRM MOVE
01652 0 01 01634 939 BRU OPAR5
01653 00000001 940 TOT DATA 1
01654 0 00 00000 941 DUP PZE
01655 0 76 07130 942 LDA =-1
01656 0 43 02171 943 BRM STSCH
01657 0 50 07130 944 SKE =-1
01660 1 76 00027 945 ERR 'G' DUPLICATE USE OF IDENTIFIER
01661 0 51 01654 946 BRR DUP
947 * CHANGES CONSTRUCT FROM KIND -LAST DEF OF IDT RULE
01662 0 46 30003 948 MODA CLR
01663 0 43 02171 949 BRM STSCH
01664 0 72 07204 950 SKA =040000000
01665 0 01 02064 951 BRU LABREF
01666 0 35 05140 952 STA RAND
01667 2 76 07326 953 LDA BASEA,IX2
01670 0 75 07136 954 LDB =074000000
01671 1 06 07213 955 SKMA =024000000 XPRIDT
01672 0 01 01700 956 BRU MODA2
01673 0 70 07140 957 SKM =034000000
01674 0 01 01703 958 BRU MODA1
01675 0 76 05140 959 LDA RAND
01676 0 55 07131 960 ADD =1
01677 0 01 02070 961 BRU LBRF1
01700 0 14 07215 962 MODA2 ETR =077700000
01701 0 55 07217 963 ADD =BASEA
01702 0 55 05140 964 ADD RAND
01703 1 14 05442 965 MODA1 SKNA NOCOD
01704 0 61 05272 966 MIN SJ
01705 0 35 45272 967 STA *SJ
01706 0 72 07205 968 SKA =01000000
01707 0 43 04106 969 BRM FFDZ
01710 0 76 45272 970 LDA *SJ
01711 0 72 07162 971 SKA =020000000 PRIDT
01712 0 01 01724 972 BRU MODA4
01713 0 71 05140 973 MODA5 LDX RAND
01714 0 46 30003 974 CLR
01715 2 75 07326 975 LDB BASEA,IX2
01716 0 67 00004 976 LSH 4
01717 0 46 00400 977 MODA3 CAX
01720 2 75 05632 978 LDB TAB1,IX2
01721 0 71 05127 979 LDX MODE
01722 0 76 05116 980 LDA RMIN+1
01723 0 01 03314 981 BRU LW14+1
01724 0 76 05120 982 MODA4 LDA TMIN+1
01725 0 75 05153 983 LDB A4+1
01726 0 43 00456 984 BRM LDSNG
01727 1 61 07220 985 SKEA =ASSIGN
01730 0 01 01713 986 BRU MODA5
01731 0 43 04106 987 BRM FFDZ
01732 0 76 05117 988 LDA TMIN
01733 0 75 05152 989 LDB A4
01734 0 43 00456 990 BRM LDSNG
01735 1 61 07221 991 SKEA =LPAREN
01736 0 01 01713 992 BRU MODA5