-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path9b53b.asm
executable file
·2186 lines (2186 loc) · 50.7 KB
/
9b53b.asm
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
9 B 5 3 B
3/1/61
REM 9B53B
REM
* 9B03B-WORST CASE B TIME
REM
ORG 24
CLA SW6+2 POST
STO 0 RESTART
REM
SWT 3
TRA *+2
TRA *+3
BEGIN WPRA
RCHA STCTL CONTROL FOR PRINTING
REM STARTING HEADING
REM
TSX IOC,4 ENTER CONTROL WORDS
REM
CLA CTRL1 L CONTROL WORD
TMI *+4 FIX SELECT
CLA READ5+2 IF THE SIGN
SUB ONE KEY WAS
STO SW6+5 DEPRESSED
REM
ZET CTRA SEE IF CHN. A IS ON LINE
TRA *+4 NO ZERO
REM
TSX CTX,4 MODIFY PROGRAM FOR
REM FIRST UNIT TO BE TESTED
HTR ABLE-4,0,OR2+1
TRA IONT+1
CLA CTRL1
ANA EXCL MASK OUT CHN A
ORA EXCL+1 OR IN EXCL UNIT TWO
SLW CTRL1
IONT TSX IOCNT,4
REM
TRA CHNG
CLA COUNT SWITCH TO BYPASS
TNZ TEST INITIAL SECTIONS
REM
* ROUTINES FROM THIS POINT TO SYMBOLIC LOCATION ***TEST*** WILL CHECK
* BUFFER AND SYNCHRONIZER INSTRUCTIONS FOR ALL THE CHANNELS SELECTED
REM
* THE FOLLOWING ROUTINES WILL BE MODIFIED FOR ALL CHANNELS BY IOC
REM
REM
ETTA
REWA 2
TRA *+2
REM
BCD 1TCOA TEST TRANS CHANNEL A IN OPN
REM
ABLE WTBA 2
TCOA *+3 CHAN. SHOULD BE IN OPN.
TSX ERROR-1,4 FAILED TO TRANS. IN OPN.
TXL ABLE
REM
RCHA CNTL NO TRGS ON-WORD. CNT. 1
TCOA *+3 SHOULD TRANS.
TSX ERROR-1,4 FAILED TO TRANS. IN OPN.
TXL ABLE
REM
TCOA * IF UNIT RUNS AWAY,OR
REM MACHINE HANGS ON THIS
REM OR ANY PREVIOUS TCOA
REM OPN.,BUFFER MAY NOT BE
REM RECEIVING END OPER. FROM
REM SYNC.
TCOA *+2 SHOULD NOT TRANS.
TRA *+3 OK
TSX ERROR-1,4 TRANS. IN ERROR-TCOA
TXL ABLE
REM
TSX OK,4 OUT TO CHECK SWITCHES
TRA ABLE REPEAT
REM
BCD 1TCNA TEST TRANS. CHAN NOT IN OPN
REM
BAKER TCNA *+3 SHOULD TRANS.
TSX ERROR-1,4 FAILED TO TRANS.
TXL BAKER
REM
WTBA 2
TCNA *+2 SHOULD NOT TRANS.
TRA *+3 OK
TSX ERROR-1,4 SHOULD NOT ENTER HERE
TXL BAKER
REM
RCHA CNTL+1 NO TGRS. ON-WRD. CNT. 1
TCNA *+2 SHOULD NOT TRANS.
TRA *+3 OK
TSX ERROR-1,4 SHOULD NOT ENTER HERE
TXL BAKER
REM
TCOA *
TCNA *+3 SHOULD TRANS.
TSX ERROR-1,4 SHOULD NOT ENTER HERE
TXL BAKER
REM
TSX OK,4 OUT TO CHECK SWITCHES
TRA BAKER REPEAT
REM
BCD 1BTTA TEST BEGIN. TAPE
REM
CHUCK REWA 2
BSRA 2 BACKSPACE TO LOAD PT.
REWA 2 SHOULD ACT AS NOP
BSRA 2 TRY TO BACKSP OVER LD. PT.
TCOA * DELAY
REM BEGIN. TAPE TGR. SHOULD
REM BE TURNED ON HERE
BTTA
TRA *+3 OK-SHOULD BE ON
TSX ERROR-1,4 SHLD NOT SKIP TO ENTER HERE
TXL CHUCK
REM
BTTA
TRA *+2 ERROR-BTT SHOULD BE OFF
TRA *+3 OK-OFF
TSX ERROR-1,4 SHOULD NOT ENTER HERE
TXL CHUCK
TSX OK,4 OUT TO CHECK SWITCHES
TRA CHUCK
REM
BCD 1IOT TEST I/O CHECK TGR.
REM
DOG WTBA 2
RCHA CNTL NO TGRS. ON-WRD. CNT. 1
TCOA *
LCHA CNTL+1 SHOULD TURN ON IOT
IOT
TRA *+3 SHOULD ENTER HERE-OK
TSX ERROR-1,4 ERROR-SHOULD NOT SKIP
TXL DOG
REM
IOT
TRA *+2 ERROR-TGR WAS NOT TURNED
REM OFF BY PREVIOUS SEQUENCE
TRA *+3 OK-TGR SHOULD BE OFF
TSX ERROR-1,4
TXL DOG
TSX OK,4 OUT TO CHECK SWITCHES
TRA DOG
REM
BCD 1WEFA TEST TO SEE THAT WEF
REM BCD OR BINARY, BOTH
REM WRITE TAPE MARKS
REM
* WRITE 1 WORD RECORD OF 1-S, AN EOF, 1 WORD RECORD OF 0-S AND AN EOF
REM
WTDA 2 WRITE 1 WORD RECORD OF 1-S
RCHA CNTL NO TRGS. ON-WRD. CNT. 1
WEFA 2 BCD EOF
WTBA 2 WRITE 1 WORD RECORD OF 0-S
RCHA CNTL+1 NO. TGRS ON-WRD. CNT. 1
WEFA 18 BINARY EOF, SHOULD
REM WRITE BCD TAPE MARK
TRA *+2
REM
BCD 1BSRA 1
REM
EASY BSRA 18
BSRA 2
RTBA 2 READ 1 WORD RECORD OF 0-S
RCHA CNTLR+1 NO TGRS ON-WRD CNT 2
TCOA *
REM
AXT 3,2 L 3 IN XRB
SXA WDNO,2 ADJUST PRINTOUT 76413
AXT 64,1
SXA RDNCK,1 764X7
TIX *+1,2,2 ..... NUMBER
TIX *,1,1
REM
* CHECK 2ND WRD IS ZERO AND FOR EOF AT THE RECORD
REM
CLA READ WORD READ
LDQ ZEROS WORD WRITTEN
CAS ZEROS
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-2,4
NOP EASY DO NOT REPEAT
TSX RDNCK,4
TRA EASY
REM
TEFA *+3 SHOULD TRANS.
TSX ERROR-1,4 EOF DID NOT COME UP
TXL GEORG
TRA *+2
REM
BCD 1BSFA 2
REM
FOX BSFA 2 BKSP OVER EOF
BSFA 2 BKSP OVER EOF AND 1 REC
BSRA 2 BKSP OVER 1 REC
RTDA 2
RCHA CNTLR+1 NO TGRS ON-WRD CNT 2
TCOA * TO READ ONE WD AND BCD EOF
TRA *+2 CONTINUE
REM
BCD 1TEFA TEST EOF TGR + INDICATOR
REM
GEORG TEFA *+3 SHOULD TRANS.
TSX ERROR-1,4
TXL GEORG,4,0 DO NOT REPEAT
REM
TEFA *+2 SHOULD NOT TRANS.
TRA *+3 OK
TSX ERROR-1,4 ERROR-TGR SHOULD BE OFF
TXL GEORG,4,0 DO NOT REPEAT
REM
RTBA 2
RCHA CNTLR+2 NO TGRS ON-WRD CNT 2
REM TO READ ONE WD AND BIN EOF
TCOA * DELAY
TRA *+2
REM
BCD 1 TEFA TEST EOF TGR + INDICATOR
REM
TEFA *+3
TSX ERROR-1,4
TXL *-2,4,0 DO NOT REPEAT
REM
* CHECK 1ST RECORD IS ONES
REM
AXT 2,2 L 2 IN XRB
CLA READ WORD READ
LDQ ONES WORD WRITTEN
CAS ONES
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-2,4,1 TO ERROR ROUTINE
NOP FOX
TSX RDNCK,4 TEST RDNCY
TRA FOX
REM
* CHECK 2ND RECORD IS ZEROS
REM
CLA READ+2 WORD READ
LDQ ZEROS WORD WRITTEN
CAS ZEROS
TIX *+3,2,1 ERROR
TRA *+4 OK
TIX *+1,2,1 ERROR
TSX ERROR-2,4,1 TO ERROR ROUTINE
NOP FOX
TSX OK,4 OUT TO TEST SWITCHES
TRA FOX
REM
* PERFORM TAPE OPERATION AND EXECUTE ORS INSTRUCTION
REM
BCD 1RTBORS
REM
OR AXC *+4,4 2-S COMPLEMENT TO XRC
AXT 512,1 L 1000 IN XRA
STZ RCHA+512,1 CLEAR THISE
TIX *-1,1,1 LOCATIONS
TRA 1,4 PROCEED
REM
* WRITE 1000 OCTAL WORD RECORD OF ZEROS
REM
WTBA 2 1000 WORDS
RCHA ORWRD OF ZEROS
LCHA ORWRD+1 ON TAPE
REM
ETTA CHECK FOR END OF TAPE
TRA *+3 REACHED END OF TAPE
TCOA *-2 REPEAT CHECKING FOR EOT
TRA *+4 NO END OF TAPE, PROCEED
REM
RDCA BLAST THE CHANNEL
XEC IONT+5 REWIND TAPE AT EOT
TRA OR REPEAT ROUTINE
REM
BSRA 2 BACKSPACE RECORD
AXT 512,1 L 1000 IN XRA
PXD CLEAR ACCUMLATOR
COM ACC Q-35 NOR ONES
SLW RCHA+512,1 STORE 1-S IN
TIX *-1,1,1 READ FIELD
COM ACCUMULATOR NOW ZEROS
REM
* READ TAPE AND EXECUTE 100 SUCCESSIVE ORS
REM
RTBA 2 START
RCHA ORWRD READING
LCHA ORWRD+1 TAPE
REM
OR1 ORS ORTST EXECUTE SUCCESSIVE ORS
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
ORS ORTST
OR2 TCOA OR1 ORS IF CHANNEL IN OPERATION
REM
AXT 513 WORD NUMBER
SXA WDNO,1 AND
AXT 2,2 RECORD NUMBER
SXA RECNO,2 FOR ERRORS
TIX *+1,1,1 1000 IN XRA
TIX *+2,2,1 2 IN XRB
REM
* CHECK LOCATIONS IN READ FIELD ARE ZEROS
REM
CLA RCHA+512,1 L CONTENTS READ FIELD
TZE *+4 ARE LOCATIONS IN ZERO
LDQ ZEROS NO, CLEAR MQ
TSX ERROR-2,4,1 CHECK CIRCUIT 3G
NOP OR SYSTEMS PAGE 2.09.00.1
TIX *-5,1,1 CHECK 1000 OCTAL LOCATION
REM
CLA ORTST CHECK ORS LOCATION
CAS ONES IS LOCATION 1-S
TRA *+2 NO
TRA *+3 YES
LDQ ONES 1-S TO MQ
TSX ERROR,4 TO ERROR ROUTINE
TSX OK,4
TRA OR
REM
NOP
TSX OR+1,4 TO CLEAR READ FIELD
REM
TSX CTX,4
HTR ABLE-4,0,OR2+1
CLA IOCT
SUB ONE
STO IOCT
TNZ IONT+4 CHECK ALL TAPE UNITS
REM
STL COUNT
REM
REM
*THIS SECTION WRITES A 100 WORD RECORD ON ALL CHANNELS
*SELECTED TO MOVE FROM LOAD POINT, THEN REPEAT THE SAME RECORD FOR TEST.
REM
TEST AXT 300,1
AXT 65,2
REM
NZT CTRA TEST FOR CHANNEL-A
TRA *+3 NO-GO TO B
WTBA 2 WRITE CHANNEL-A
RCHA WR1
NZT CTRB TEST FOR CHANNEL-B
TRA *+3 NO-GO TO C
WTBB 1 WRITE CHANNEL-B
RCHB WR2
NZT CTRC TEST FOR CHANNEL-C
TRA *+3 NO-GO TO D
WTBC 1 WRITE CHANNEL C
RCHA WR3
NZT CTRD TEST FOR CHANNEL-D
TRA *+3 NO-GO TO E
WTBD 1 WRITE CHANNEL-D
RCHD WR4
NZT CTRE TEST FOR CHANNEL-E
TRA *+3 NO-GO TO F
WTBE 1 WRITE CHANNEL E
RCHE WR5
NZT CTRF TEST FOR CHANNEL-F
TRA *+3 NO-GO TO G
WTBF 1 WRITE CHANNEL-F
RCHF WR6
NZT CTRG TEST FOR CHANNEL-G
TRA *+3 NO-GO TO H
TEST2 WTBG 1 WRITE CHANNEL-G
RCHG WR7
NZT CTRH TEST FOR CHANNEL-H
TRA *+3 NO
WTBH 1 WRITE CHANNEL-H
RCHH WR10
TRA CLEAR+5
TIX TEST+2,2,1 TAPE WILL BE WRITTEN 101
REM TIMES. THE FIRST TIME
REM TO MOVE FROM LOAD POINT
REM
TSX OK,4
TRA TEST+2
NOP
REM
*START WORST CASE SECTION
REM
TRA *+2
REM
BCD 1WTB
REM
TSX RDNCK,4 TEST FOR TAPE CHECKS
NOP *-1
REM
*THIS SECTION READS A 100 WORD RECORD FROM EACH CHANNEL SELECTED
*WHILE ANS INDIRECTLY ADDRESSED GOES ON IN MF
REM
*TEST FOR BACKSPACE
REM
SWT 5 TEST SWITCH #5
TRA ANS TRY TO PIN POINT TROUBLE
REM TEST WORST CASE
REM
REM
AXT 64,2
RPEAT NZT CTRA
TRA *+2
BSRA 2
NZT CTRB
TRA *+2
BSRB 1
NZT CTRC
TRA *+2
BSRC 1
NZT CTRD
TRA *+2
BSRD 1
NZT CTRE
TRA *+2
BSRE 1
NZT CTRF
TRA *+2
BSRF 1
NZT CTRG
TRA *+2
BSRG 1
NZT CTRH
TRA *+2
BSRH 1
TIX RPEAT,2,1 BACKSPACE 100 RECS.
REM
AXT 64,2
READ5 NZT CTRA
TRA *+3
RTBA 2 READ TAPE CHAN A
RCHA CCHA
NZT CTRB
TRA *+3
RTBB 1 READ TAPE CHAN B
RCHB **
NZT CTRC
TRA *+3
RTBC 1 READ TAPE CHAN C
RCHC **
NZT CTRD
TRA *+3
RTBD 1 READ TAPE CHAN D
RCHD **
NZT CTRE
TRA *+3
RTBE 1 READ TAPE CHAN E
RCHE **
NZT CTRF
TRA *+3
RTBF 1 READ TAPE CHAN F
RCHF **
NZT CTRG
TRA *+3
RTBG 1 READ TAPE CHAN G
RCHG **
NZT CTRH
TRA *+3
RTBH 1 READ TAPE CHAN H
RCHH **
REM
ANS* SAVE CONTINUOUS
ANS* SAVE ANS INDIRECTLY
ANS* SAVE ADDRESSED
ANS* SAVE THESE INSTRUCTIONS
ANS* SAVE SHOULD NOT
ANS* SAVE INTERRUPT OR,
ANS* SAVE SHARE FOR
ANS* SAVE B TIME
ANS* SAVE FROM
ANS* SAVE BUFFER
TIX *-10,1,1
REM
TSX OK,4
TRA RPEAT
NOP
REM
TCO TCOA * DELAY
TCOB * TO
TCOC * ENABLE
TCOD * SCH TO
TCOE * GET CORRECT
TCOF * INFORMATION
TCOG *
TCOH *
REM
NZT CTRA TEST FOR CHAN A
TRA *+2
SCHA SCH
NZT CTRB TEST FOR CHAN B
TRA *+2
SCHB SCH+1
NZT CTRC TEST FOR CHAN C
TRA *+2
SCHC SCH+2
NZT CTRD TEST FOR CHAN D
TRA *+2
SCHD SCH+3
NZT CTRE TEST FOR CHAN E
TRA *+2
SCHE SCH+4
NZT CTRF TEST FOR CHAN F
TRA *+2
SCHF SCH+5
NZT CTRG TEST FOR CHAN G
TRA *+2
SCHG SCH+6
NZT CTRH TEST FOR CHAN H
TRA *+2
SCHH SCH+7
REM
CLA CT
STO WDNO
STO RECNO
REM
TRA *+2
REM
*THE ROUTINES FROM THIS POINT TO END OF PROGRAM, TESTS FOR THE CHECKS,
*IOT LIGHT, INFORMATION STORED FROM CHANNELS, END OF FILE, AND INFORMATION
*TRANSMITTED FOR ALL CHANNELS SELECTED
REM
BCD 1RTB
REM
TSX RDNCK,4 CHECK REDUNDANCY
NOP *-1
TRA *+2
REM
BCD 1IOT
REM
IOT
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-1,4
TXL *-4,4
REM
REM
NZT CTRA TEST FOR CHANS A
TRA TRB NO-GO TO B
TRA *+2 YES
REM
BCD 1SCHA
REM
CLA SCH WORD FROM CHANNEL
LDQ CINFO CORRECT INFORMATION
CAS CINFO
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-1,4
NOP *-6
TRA *+2
REM
BCD 1 TEFA
REM
TEFA *+2 ERROR
TRA *+5 OK
TSX ERROR-1,4 EXIT HERE WILL INDICATE
TXL *-3,4 A DISCONNECT ON A FALSE EOF
TRA *+2 CHANNEL A
REM
BCD 1RTBA 2
REM
AXT 64,1
CLA RCHA+64,1 WORD READ
LDQ WTCHA+64,1 WORD GENERATED
CAS WTCHA+64,1
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-2,4
NOP *-7
TIX *-7,1,1 RETURN TO CHECK ALL WORDS
TRA *+2
REM
BCD 1SCHB
REM
TRB NZT CTRB TEST FOR CHN. B
TRA TRC NO-GO TO C
CLA SCH+1 WORD FROM CHANNEL
LDQ CINFO+1 CORRECT INFORMATION
CAS CINFO+1
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-1,4
NOP *-6
TRA *+2
REM
BCD 1 TEFB
REM
TEFB *+2 ERROR
TRA *+5
TSX ERROR-1,4 EXIT HERE WILL
TXL *-3,4 INDICATE FALSE EOF
TRA *+2 CHANNEL B
REM
BCD 1RTBB 1
REM
AXT 64,1
CLA RCHB+64,1 WORD READ
LDQ WTCHB+64,1 WORD GENERATED
CAS WTCHB+64,1
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-2,4
NOP *-7
TIX *-7,1,1 RETURN TO CHECK ALL WORDS
REM
TRA *+2 YES
REM
BCD 1SCHC
REM
TRC NZT CTRC TEST FOR CHN. C
TRA TRD NO-GO TO D
CLA SCH+2 WORD FROM CHANNEL
LDQ CINFO+2 CORRECT INFORMATION
CAS CINFO+2
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-1,4
NOP *-6
TRA *+2
REM
BCD 1TEFC
REM
TEFC *+2 ERROR
TRA *+5 OK
TSX ERROR-1,4
TXL *-3,4
TRA *+2
REM
BCD 1RTBC
REM
AXT 64,1
CLA RCHC+64,1 WORD READ
LDQ WTCHC+64,1 WORD GENERATED
CAS WTCHC+64,1
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-2,4
NOP *-7
TIX *-7,1,1 RETURN TO CHECK ALL WORDS
TRA *+2
REM
BCD 1SCHD
REM
TRD NZT CTRD TEST FOR CHN. D
TRA TRE NO-GO TO E
CLA SCH+3 WORD FOR CHANNEL
LDQ CINFO+3 CORRECT INFORMATION
CAS CINFO+3
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-1,4
NOP *-6
TRA *+2
REM
BCD 1TEFD
REM
TEFD *+2 ERROR
TRA *+5 OK
TSX ERROR-1,4
TXL *-3,4
TRA *+2
REM
BCD 1RTBD 1
REM
AXT 64,1
CLA RCHD+64,1 WORD READ
LDQ WTCHD+64,1 WORD GENERATED
CAS WTCHD+64,1
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-2,4
NOP *-7
TIX *-7,1,1 RETURN TO CHECK ALL WORDS
REM
TRA *+2
REM
BCD 1SCHE
REM
TRE NZT CTRE TEST FOR CHN. E
TRA TRF NO-GO TO F
CLA SCH+4 WORD FROM CHANNEL
LDQ CINFO+4 CORRECT INFORMATION
CAS CINFO+4
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-1,4
NOP *-6
TRA *+2
REM
BCD 1TEFE
REM
TEFE *+2 ERROR
TRA *+5 OK
TSX ERROR-1,4
TXL *-3,4
TRA *+2
REM
BCD 1RTBE
REM
AXT 64,1
CLA RCHE+64,1 WORD READ
LDQ WTCHE+64,1 WORD GENERATED
CAS WTCHE+64,1
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-2,4
NOP *-7
TIX *-7,1,1 RETURN TO CHECK ALL WORDS
TRA *+2
REM
BCD 1SCHF
REM
TRF NZT CTRF TEST FOR CHN. F
TRA TRG NO-GO TO G
CLA SCH+5 WORD FROM CHANNEL
LDQ CINFO+5 CORRECT INFORMATION
CAS CINFO+5
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-1,4
NOP *-6
TRA *+2
REM
BCD 1TEFF
REM
TEFF *+2 ERROR
TRA *+5 OK
TSX ERROR-1,4
TXL *-3,4
TRA *+2
REM
BCD 1RTBF 1
REM
AXT 64,1
CLA RCHF+64,1 WORD READ
LDQ WTCHF+64,1 WORD GENERATED
CAS WTCHF+64,1
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-2,4
NOP *-7
TIX *-7,1,1 RETURN TO CHECK ALL WORDS
TRA *+2
REM
BCD 1SCHG
REM
TRG NZT CTRG TEST FOR CHN. G
TRA TRH NO-GO TO H
CLA SCH+6 WORD FROM CHANNEL
LDQ CINFO+6 CORRECT INFORMATION
CAS CINFO+6
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-1,4
NOP *-6
TRA *+2
REM
BCD 1TEFG
REM
TEFG *+2 ERROR
TRA *+5 OK
TSX ERROR-1,4
TXL *-3,4
TRA *+2
REM
BCD 1RTBG 1
REM
AXT 64,1
CLA RCHG+64,1 WORD READ
LDQ WTCHG+64,1 WORD GENERATED
CAS WTCHG+64,1
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-2,4
NOP *-7
TIX *-7,1,1 RETURN TO CHECK ALL WORDS
TRA *+2
REM
BCD 1SCHH
REM
TRH NZT CTRH TEST FOR CHN. H
TRA CLEAR NO-GO TO CLEAR READ AREA
CLA SCH+7 WORD FROM CHANNEL
LDQ CINFO+7 CORRECT INFORMATION
CAS CINFO+7
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-1,4
NOP *-6
TRA *+2
REM
BCD 1TEFH
REM
TEFH *+2 ERROR
TRA *+5 OK
TSX ERROR-1,4
TXL *-3,4
TRA *+2
REM
BCD 1RTBH 1
REM
AXT 64,1
CLA RCHH+64,1 WORD READ
LDQ WTCHH+64,1 WORD GENERATED
CAS WTCHH+64,1
TRA *+2 ERROR
TRA *+3 OK
TSX ERROR-2,4
NOP *-7
TIX *-7,1,1 RETURN TO CHECK ALL WORDS
REM
*CLEAR READ FIELD AREAS
REM
CLEAR AXT 512,1 L 1000 IN XRA
STZ RCHA+512,1
TIX *-1,1,1
TIX READ5,2,1 REPEAT 100 TIMES
TRA PRINT PASS COMPLETE
REM
REM
NZT CTRA
TRA *+3
ETTA
TRA EOT REWIND
NZT CTRB
TRA *+3
ETTB
TRA EOT REWIND
NZT CTRC
TRA *+3
ETTC
TRA EOT REWIND
NZT CTRD
TRA *+3
ETTD
TRA EOT REWIND
NZT CTRE
TRA *+3
ETTE
TRA EOT REWIND
NZT CTRF
TRA *+3
ETTF
TRA EOT REWIND
NZT CTRG
TRA *+3
ETTG
TRA EOT REWIND
NZT CTRH
TRA *+3
ETTH
TRA EOT REWIND
TRA TEST2+7 CONTINUE WRITING
REM
REM
REM
REM
SW6 SWT 6 TEST SWITCH 6
TRA *+2 UP-TURN ON LITE 1
REM AND GO TO REWIND
TRA BEGIN+2 DOWN-RETURN TO
REM ENTER KEYS
SLN 1
TRA EOT REWIND TAPES
REM
REM
RCDA CALL IN
RCHA *+3 NEXT PROGRAM
LCHA 0
TRA 1
REM
IOCT 0,0,3
REM
CHNG CLA ZEROS
AXT 8,1 L-10
ZET CTRA+8,1 ZERO TEST CTRA-CTRH
ADD ONE ADD ONE FOR EACH UNIT
TIX *-2,1,1 TIX UNTIL EIGHT CHNS CHECKED
REM
REM
STO CNT NUMBER OF UNITS ON LINE
NZT CNT
HTR BEGIN+2 NO UNITS ON LINE
HERE CLA BUFTM THIS IS 72 US X100
LRS 35 MACH CYCLE X 100
CLM
DVP MCYCL
XCA
SUB SIX
XCA
STQ BUF1 WORST CASE TIME
REM BETWEEN BDW ON
REM ONE CHANNEL.
CLM
DVP CNT NO. OF CHANNELS
REM ON LINE.
STQ BUBAS BASIC B CYCLES FOR
REM ALL CHANNELS.
CLA BUBAS
MPY CNT
STQ TEM
CLA BUF1
SUB TEM