-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path9d01a.asm
executable file
·2806 lines (2805 loc) · 65.8 KB
/
9d01a.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
9D01A
7-01-58
***********************************************************
* 9D01A *
* DRUM DIAGNOSTIC AND RELIABLITY TEST *
* ALSO DRUM SPEED TEST *
***********************************************************
REM
ORG 24
REM
***********************************************************
* INITIALIZATION *
***********************************************************
REM
* SET COUNT FOR BYPASSING LOAD DRUM TEST
REM
CCCC SWT 3
TSX WPRA2,1 TO PRINT HEADING
REM
CLA ONE L 1
STA CT4
REM
* TO TEST DRUMS ENTER INTO KEYS ON HALT.
* DRUM 1-KEY 1, DRUM 2-KEY 2, DRUM 3-KEY 3,
* DRUM 4-KEY 4, ......................DRUM 16-KEY 16
REM
* KEYS MAY BE CHANGED TO CHANGE SELECTION
* ANYTIME AFTER START KEY IS DEPRESSED
REM
* SWITCH FIVE DOWN TO SELECT LONG LDA TEST
REM
REM
HTR *+1
REM
* CLEAR DRUM CONTROL IMAGE
REM
LXA T20,1 L 20
CC STZ DCC,1
TIX CC,1,1
REM
CLA T20 L+20
STO Z20 COUNT FOR IND CNTRL
REM
ENK BRING IN DRUMS TO TEST
STQ CNTRL
AXT 0,3
LDI CNTRL PLACE KEYS IN INDICATORS
HUNT LNT 200000 TEST FOR INDICATORS
TRA *+4 IF NO BIT GO TO DECR. ADDR.
CLA K301,1 CORRECT DRUM SELECTED
STO DC1,2 PLACE IN CONTROL IMAGE
TXI *+1,2,-1 DECREMENT CONTROL IMAGE
TXI *+1,1,-1 DECREMENT CORRECT DRUM
CLA Z20 L+20
SUB ONE L+1 - FOR COUNT OF SHIFTS
STO Z20 SAVE COUNT
TZE DS-6
CLA HUNT L LNT INSTRUCTION
ARS 1 SHIFT TO TEST NEXT IND.
STA HUNT STORE NEW ADDR
STT HUNT STORE NEW TAG
TRA HUNT
REM
*RESTORE INITIAL LNT INSTRUCTION
REM
CLA RESTR L LNT INSTR
STO HUNT RESTORE HUNT
AXT 0,2 CLEAR XRB
REM
* SELECT CORRECT DRUM TO BE TESTED
REM
CLA T20 L 20
STA DC
SLF TURN OFF ALL SENSE LIGHT
DS LXA DC,1
CLA DCC,1
STA DCC SAVE
TZE SW6 HAVE ALL DRUMS BEEN TESTED
REM
CAS K310 L 310
TRA HIGH Y LESS AC FR3 OR FR4
TRA F2 Y EQUAL AC
CAS K304 L 304
TRA F2 Y LESS AC
TRA DR4 Y EQUAL AC
CAS K302 L 302
TRA DR3 Y LESS AC
TRA DR2 Y EQUAL AC
TRA DR1 Y GREATER AC
REM
F2 CAS K306 L 3056
TRA F2+4 Y LESS AC
TRA DR6 Y EQUAL AC
TRA DR5 Y GREATER AC
SUB K307 L 307
TZE DR7
TRA DR8
REM
HIGH CAS K314 L 314
TRA FR4 Y LESS AC
TRA DR4 Y EQUAL AC DR14
CAS K312 L 312
TRA DR3 Y LESS AC DR13
TRA DR2 Y EQUAL AC DR12
TRA DR1 Y GREATER AC DR11
REM
FR4 CAS K316 L 316
TRA FR4+4 Y LESS AC
TRA DR6 Y EQUAL AC DR 16
TRA DR5 Y GREATER AC DR15
SUB K317 L 317
TZE DR7 DR 17
TRA DR8 DR 20
REM
REM
* TURN ON LIGHTS FOR SELECTED DRUM OF FR1 OR FR2
REM
DR1 SLN 1 TURN ON LIGHT 1
TRA DR8
DR2 SLN 2 TURN ON LIGHT 2
TRA DR8
DR3 SLN 1 TURN ON LIGHT 1
SLN 2 TURN ON LIGHT 2
TRA DR8
DR4 SLN 3 TURN ON LIGHT 3
TRA DR8
REM
* TURN ON LIGHTS FOR SELECTED DRUM OF FR2 OR FR4
REM
DR5 SLN 1 TURN ON LIGHT 1
SLN 3 TURN ON LIGHT 3
TRA DR8
DR6 SLN 2 TURN ON LIGHT 2
SLN 3 TURN ON LIGHT 3
TRA DR8
DR7 SLN 1 TURN ON LIGHT 1
SLN 2 TURN ON LIGHT 2
SLN 3 TURN ON LIGHT 3
TRA DR8
REM
* STORE SELECTED DRUM ADDRESS IN ALL RDS AND WRS INSTRUCTIONS
REM
DR8 CLA DCC SELECTED DRUM ADDRESS
STA A+1
STA A1
STA A2
STA CPYNO+1
STA LDAA
STA LDAB-2
STA 1LDA
STA LDA5+2
STA LDA7+4
STA DRUM
STA DR+3
REM
STA R10
STA A7+1
STA A9
STA A11
STA TPU
STA TP1
STA TP2
STA TP3
STA TP4
STA TP5
REM
STA R
STA R3
STA R4
STA R13
STA R14
REM
STA D500
STA L62
STA L62A
REM
STA BEGIN+4
STA BUG
STA AGAIN+1
STA AGAIN+8
STA INDEX+10
STA BUGS
STA BUGS+19
STA BUGS+22
REM
* ADJUST DUMMY INSTRUCTIONS FOR PRINT ROUTINE
REM
REM
CLA DRUM L ADDRESS OF SELECTED DRUM
SUB K300 L 300
REM
CAS K10 L 10
TRA UP Y LESS AC
TRA FM2 Y EQUAL AC
CAS K4 L 4
TRA FM2 Y LESS AC
TRA D4 Y EQUAL AC
CAS TWO L 2
TRA D3 Y LESS AC
TRA D2 Y EQUAL AC
TRA D1 Y GREATER AC
REM
FM2 CAS D6B L+6
TRA FM2+4 Y LESS AC
TRA D6 Y EQUAL AC
TRA D5 Y GREATER AC
SUB D7B
TZE D7
TRA D10
REM
UP CAS K14 L 14
TRA FM4 Y LESS AC
TRA D14 Y EQUAL AC
CAS K12 L 12
TRA D13 Y LESS AC
TRA D12 Y EQUAL AC
TRA D11
REM
FM4 CAS K16 L 16
TRA FM4+4 Y LESS AC
TRA D16 Y EQUAL AC
TRA D15
SUB K17 L 17
TZE D17
TRA D20
REM
D1 CLA D1B L 00 01
TRA SD
D2 CLA D2B L 00 02
TRA SD
D3 CLA D3B L 00 03
TRA SD
D4 CLA D4B L 00 04
TRA SD
D5 CLA D5B L 00 05
TRA SD
D6 CLA D6B L 00 06
TRA SD
D7 CLA D7B L 00 07
TRA SD
D10 CLA D8B L 00 10
TRA SD
D11 CLA D9B L 00 11
TRA SD
D12 CLA D10B L 01 00
TRA SD
D13 CLA D11B L 01 01
TRA SD
D14 CLA D12B L 01 02
TRA SD
D15 CLA D13B L 01 03
TRA SD
D16 CLA D14B L 01 04
TRA SD
D17 CLA D15B L 01 05
TRA SD
D20 CLA D16B L 01 06
REM
SD STA DUMY
REM
CLA MASK1 TO SET UP PASS IMAGE
LXA TWTY,4 L 24
ANS PRIMG+21,4 CLEAR DRUM ADDR BITS
TIX *-1,4,2
REM
CLA DUMY L DRUM UNIT
ANA K17 L 17
ALS 1 DOUBLE ADDR
PAX 0,4 DRUM ADDR TO INDEX
CLA LBIT L 4000000
ORS PRIMG+19,4 OR IN LOW BIT
REM
CLA DUMY L DRUM UNIT
ANA K3700 L 3700
ARS 5 SHIFT INTO PLACE
PAX 0,4 DRUM ADDR TO INDEX
CLA HBIT L 10000000
ORS PRIMG+19,4 OR IN HIGH BIT
REM
DMR CLA DUMY
ORA RDR L 512451600000
SLW A1-1
SLW A2-1
SLW LDAB-3
SLW DR-1
SLW A11-1
SLW D500-1
SLW R15-1
REM
DML CLA DUMY
ORA LDA L 432421600000
SLW R4-1
SLW 1LDA-1
SLW LDA5-1
SLW TP1-1
SLW TP2-1
SLW TP3-1
SLW TP5-1
SLW R10-1
SLW L62A-1
REM
* ADJUST CONSTANTS FOR PRINT ROUTINE
REM
CLA K4000 L 4000
STO WDNO
CLA ONE
STO RECNO SET REC NO CONSTANT
REM
* ADJUST FOR SELECTING NEXT DRUM
REM
DND TIX DND+1,1,1,
PXD 0,1
ARS 18
STA DC
REM
REM
* ENTER LOAD DRUM TEST FOR DRUM 1 ONLY
REM
CLA K301 L 301
SUB DRUM SELECT DRUM
TMI NP
REM
* BYPASS LOAD DRUM TEST WHEN REPEATING TESTS
REM
CLA ONE L 1
SUB CT4 INIT LOAD 1
TMI NP
CLA CT4
ADD ONE L 1
STA CT4
TRA LOAD
REM
********************************************************************
* TEST LOAD DRUM *
********************************************************************
REM
BCD 1WDR 01
LOAD WDR 1
CPY K3 L TRA LOAD1
CPY K2 L TRA LOAD+4
HTR 0 PRESS LOAD DRUM BUTTON
LDQ K3
CLA 0
TSX ERROR-1,4 TRANSFERED TO 1 INSTEAD OF 0
TRA LOAD
REM
LOAD1 CLA 1
CAS K2 L TRA LOAD+4
TRA LOAD1+4 ERROR
TRA LOAD1+6 OK
LDQ K2
TSX ERROR,4 DID NOT LOAD CORRECT
REM INFORMATION INTO ADDRESS
TSX OK,4
TRA LOAD
REM
* POST RESTART
REM
NOP
NP CLA K5 L TRA CCCC+4
STO 0
STO RN+63 PRIME RN GEN
REM
********************************************************************
* ENTER ALL ZEROS TEST AND ALL ONES TEST *
********************************************************************
REM
AA CLA TEST1 L +0
STO T1
SLT 4 TURN OFF SENSE LIGHT 4
NOP
REM
* TEST WRITE ON DRUM
REM
A LXA K4000,1 L 4000
WRS WRITE ON SELECTED DRUM
CPY T1
TIX A+2,1,1
TSX OK,4
TRA A LOOP IN WRITE ON DRUM
REM
* TEST READ ON DRUM
REM
BCD 1RDR
A1 RDS READ OUT DRUM TO INSURE
REM THAT READING DOES NOT
REM AFFECT STORED INFO
LXA K4000,1 L 4000
CPY X-1
TIX A1+2,1,1
TSX OK,4
TRA A1 LOOP IN DRUM READ OUT
REM
* READ DRUM INTO STORAGE
REM
BCD 1RDR
A2 RDS
LXA K4000,1 L 4000
CPY X,1 COPY DRUM INTO STORAGE
TIX A2+2,1,1
REM
LXA K4000,1 L 4000
A3 CLA X,1 ERROR WORD IN ACC
CAS T1
TRA A3+4 ERROR
TRA A4 OK
LDQ T1 CORRECT WORD
TSX ERROR-2,4
TRA A2
REM
A4 TIX A3,1,1
TSX OK,4
TRA A2
REM
NOP
A5 SLT 4 TEST SENSE LIGHT 4
TRA A5+3 ENTER ALL ONES TEST
TRA CPYNO ALL ONES TEST COMPLETED
CLA TEST2 L ALL ONES
STO T1
SLN 4 TURN ON SENSE LIGHT 4
TRA A ENTER ALL ONES TEST
REM
********************************************************************
* TEST FOR A SLIVER ANA CPY TIMING CONDITION *
********************************************************************
REM
CPYNO LXA K50,1
WRS
CPY ONES IOT MAY COME UP HERE
ANA 36 US INSTR-THIS INSTR.
REM MAY BE CHANGED MANUALLY
REM FOR CHANGE IN TIMING
CPY ONES
TIX CPYNO+2,1,1
TRA *+2
REM
BCD 1IOT
REM
IOT
TRA *+2 ERROR-SHBE OFF
TRA *+3 OK
TSX ERROR-1,4 IOT ON TIMING
TXL *-4,4 BETWEEN COPYS LESS THEN
TSX OK,4 36US
TRA CPYNO
NOP
REM
REM
***************************************************************
* SHORT LDA TEST WRITTEN PRIMARILY TO BE *
* IDENTICAL WITH THE LAD PATTERN USED IN *
* THE WORST PATTER TEST WHICH FOLLOWS *
* SO THAT IF AN ERROR OCCURS IN THE WORST PATTERN *
* TEST THE POSSIBILIY OF IT BEING AN LDA ERROR *
* MAY BE ELIMINATED. *
***************************************************************
REM
L61 STZ LD37
LXA K4000,1 L 4000
REM
L62 WRS
LDA LD37
CPY LD37
CLA LD37
ADD K62 L 62
STO LD37 ADJUST LDA
LDQ TP
RQL 1
STQ TP
TIX L62,1,50
REM
LXA K4000,1 L 4000
STZ LD37
TRA L62A
REM
BCD 1LDA
L62A RDS
LDA LD37
CPY WPA
CLA WPA WORD READ
CAS LD37
TRA L62A+7 ERROR-LDA
TRA L62B OK
LDQ LD37 ERROR-LDA
TSX ERROR-2,4
TRA L62A
REM
L62B CLA LD37
ADD K62
STO LD37
LDQ TPP
RQL 1
STQ TPP
TIX L62A,1,50 NEXT PASS
TSX OK,4
TRA L61
REM
********************************************************************
* ENTER WORST PATTERN TEST *
********************************************************************
REM
NOP
A6 CLA TEST1 L +0
STO T1
SLT 4 TURN LIGHT 4 OFF
NOP
CLA ONE L 1
STO T5
REM
* LOAD DRUM WITH ALL ZEROS
REM
A7 LXA K4000,1
WRS
CPY T1
TIX A7+2,1,1
TSX OK,4
TRA A7 WRITE LOOP
REM
* WRITE 41 TEST WORDS WELL SPACED ON DRUM JUST LOADED
REM
NOP
LXA K4000,1 L 4000
STZ LD37
LDQ T5
STQ TP
STQ TPP
REM
A9 WRS
LDA LD37
CPY TP
CLA LD37
ADD K62 L 62
STO LD37
LDQ TP ADJUST FOR WRITTING
RQL 1 NEXT TEST WORD
STQ TP
TIX A9,1,50
REM
* READ DRUM INTO STORAGE AND COMPARE
REM
LXA K4000,1 L 40000
STZ LD37
TRA A11
REM
* AN ERROR HERE IS MOST LIKELY DUE TO DROPPING
* OR PICKING UP A BIT AND WOULD THEREFORE
* BE A WRITE OR READ ERROR. ONLY WHEN THE
* LDA TEST, WHICH IMMEDIATELY PRECEDES THIS TEST.
* FAILS SHOULD AN LDA ERROR BE CONSIDERED.
REM
BCD 1RDR
A11 RDS
LDA LD37
CPY WPA
CLA WPA
CAS TPP
TRA A11+7 ERROR
TRA A12 OK
LDQ TPP ERROR
TSX ERROR-2,4
TRA A11
A12 CLA LD37 ADJUST FOR NEXT LDA
ADD K62 L 62
STA LD37
LDQ TPP
RQL 1 SHIFT WORD
STQ TPP
TIX A11,1,50 NEXT PASS
TSX OK,4
TRA A6 REPEAT TEST
REM
* ENTER ALTERNATE WORST PATTERN
REM
NOP
A15 MSE 100 TEST LIGHT 4
TRA A15+3
TRA TPU
CLA KP0 L 777 777 777 776
STO T5
CLA TEST2
STO T1
SLN 4 TURN ON SENSE LIGHT FOUR
TRA A7
REM
********************************************************************
* ENTER TIMINIG PULSE TEST *
********************************************************************
REM
* LOAD ENTIRE DRUM BEGINNING AT LOCATION LDA 3472
REM
TPU WRS
LXA K3777,1 L 3777
LDA K3472 L 3472
CPY TEST2 L ALL ONES
CPY TEST1 L 0
TIX TPU+4,1,1
TSX OK,4
TRA TPU REPEAT TEST6
REM
* CHECK LOCATION LDA 3472
REM
BCD 1LDA
TP1 RDS
LXA K306,1 ADJUST FOR PRINT PROGRAM
LDA K3472 L 3472
CPY WPA
CLA WPA WORD READ
CAS TEST2 L ALL ONES
TRA TP1+8 ERROR
TRA TP2 OK
LDQ TEST2 ERROR
TSX ERROR-2,4
TRA TP1
TRA TP2
REM
* CHECK LOCATION ZERO
REM
REM
BCD 1LDA
TP2 RDS
LXA K4000,1 ADJUST FOR PRINT PROGRAM
LDA ZERO
CPY WPA
CLA WPA WORD READ
CAS TEST1 L 0
TRA TP2+8 ERROR
TRA TP3 OK
LDQ TEST1 ERROR-CORRECT WORD
TSX ERROR-2,4
TRA TP2
TRA TP3
REM
* CHECK LOCATION 3777
REM
BCD 1LDA
TP3 RDS
LXA ONE,1 ADJUST FOR PRINT PROGRAM
LDA K3777 L 3777
CPY WPA
CLA WPA WORD READ
CAS TEST1 L 0
TRA TP3+8 ERROR
TRA TP4 OK
LDQ TEST1 ERROR-CORRECT WORD
TSX ERROR-2,4
TRA TP3
REM
* LOAD DRUM AGAIN AND WRITE OVER STARTING LDA 307 WITH NEW WORD
REM
TP4 WRS
LXA K3777,1 L 3777
LDA K307 L 307
CPY TEST2 L ONES
CPY TEST1 L 0
TIX TP4+4,1,1
CPY TEST3 L 252525252525
TSX OK,4
TRA TP4
REM
* CHECK LDA 307 AFTER WRITING WITH NEW WORD
REM
BCD 1LDA
TP5 RDS
LXA K3471,1 ADJUST FOR RPINT PROGRAM
LDA K307 L 307
CPY WPA
CLA WPA WORD READ
CAS TEST3 L 0
TRA TP5+8 ERROR
TRA TP6
LDQ TEST3 ERROR-CORRECT WORD
TSX ERROR-2,4
TRA TP5
TP6 TSX OK,4
TRA TPU REPEAT TEST
REM
********************************************************************
* ENTER LDA TEST *
********************************************************************
REM
BCD 1WDR
LDAA WRS
LXA K4000,1 L 4000
CLA ZERO L 0
STO X,1 LOAD STORAGE WITH INFOR
ADD K6 L+2000001
TIX LDAA+3,1,1
REM
* WRITE DRUM ADDRESSES IN THE ADDRESS ON THE DRUM
* THE DECREMENT CONTAINS THE POCKET AND THE ADDRESS THE ADDRESS
REM
LXA K4000,1 L+4000
LDA1 CPY X,1
TIX LDA1,1,1 LOAD DRUM
TSX OK,4
TRA LDAA LOOP IN WRITE ROUTINE
REM
* CLEAR STORAGE
REM
NOP
LXA K4000,1 L 4000
LDA1A STZ X,1
TIX LDA1A,1,1
TRA LDAB-2
REM
* READ ENTIRE DRUM INTO STORAGE
REM
BCD 1RDR
RDS
LXA K4000,1 L 4000
LDAB CPY X,1
TIX LDAB,1,1
REM
* COMPARE THE WORD READ TO THE WORD WRITTEN
REM
LXA K4000,1 L 4000
CLA ZERO L 0
LDAC CAS X,1
TRA LDAC+3 ERROR
TRA LDAD OK
LDQ X,1 ERROR WORD
XCA ERROR WORD TO ACC
REM CORRECT WORD TO MQ
TSX ERROR-2,4
TRA LDAB-2
XCA RESTORE ACC AND MQ
REM
LDAD ADD K6 L+2000001
TIX LDAC,1,1
TRA *+2
REM
****** TEST LDA TRANSMISSION TO MQ ******
REM
BCD 1LDA
1LDA RDS
LDA K3777 L 3777
STQ LDA10
CPY X-1 IF I/O COMES UP
REM HERE,CHECK THE DRUM COUNTER
REM ON PAGE 7.02.01
REM
CLA LDA10
SUB K7776 L 7775
TZE 1LDA+8
TSX ERROR,4
TSX OK,4
TRA 1LDA
REM
BCD 1IOT
REM
IOT
TRA *+2 ERROR-SHBE OFF
TRA *+3
TSX ERROR-1,4
TXL *-4,4
REM
* TEST SW 5 FOR ENTRY INTO SHORT OR LONG LDA TEST
REM
PICK SWT 5
TRA NSEQ
REM
* ADJUST CONSTANTS FOR SEQUENTIAL LDA TEST
REM
CLA K6+1 L DEC 10, ADR 400
STO K
CLA K6+2 L DEC 1000, ADR 400
STO K+1
CLA K7 L DEC 10776, ADR 4377
STO K+2
CLA K6+1 L DEC 10, ADR 400
ALS 18
STD LDA8-5
CLA K+6 L DEC 3377, ADR 3757
STD LDA8-2
TRA LDA5
REM
* ADJUST CONSTANTS FOR NON-SEQUENTIAL LDA TEST
REM
NSEQ CLA K+3 L DEC 200, ADR 20
STO K
CLA K+4 L DEC 40, ADR 20
STO K+1
CLA K+5 L DEC 10036, ADR 4017
STO K+2
CLA K+3 L DEC 200, ADR 20
ALS 18
STD LDA8-5
CLA K+6 L DEC 3377, ADR 3757
ALS 18
STD LDA8-2
TRA LDA5
REM
* LOCATE ALL DRUM ADDRESSES IN THE DRUM COUNTER SEQUENCE AND CHECK
REM
BCD 1LDA
LDA5 CLA ZERO L 0
STO CSC CLEAR CHECK SUM COUNTER
RDS
CLA K6 L +2000001
STA LDA10 SET LDA COUNTER TO ONE
LXA K6+3,1 L+37877 ADJUST XRA FOR
REM PRINT PROGRAM
REM
LXA K,2
LXD K,4
LDA6 LDA LDA10
CPY T2 TEMP STORAGE
CAS T2
TRA LDA6+5 ERROR
TRA LDA7 OK
LDQ T2 WORD READ IN MQ
XCA CORRECT WORD TO MQ
REM ERROR WORD TO ACC
SXD T1,4 SAVE INDEX COUNT
SXA T1,2 SAVE XRB
AXT 0,2 CLEAR XRB
TSX ERROR-2,4 MQ CONTAINS POCKET NUMBER
REM IN ITS DEC, AND DRUM
REM ADDRESS IN ITS ADDRESS
TRA LDA5
XCA RESTORE ACC AND MQ
LXA T1,2 RESTORE XRB
REM
REM
REM
LXD T1,4 RESTORE INDEX COUNT
LDA7 STO T1 SAVE ACCUMULATOR
CLA T2 WORD READ
ACL CSC
STO CSC INCREASE CHECK SUM COUNTER
REM
REM
RDS
CLA T1 RESTORE ACCUMULATOR
ADD K+1 INCREATE THE PKT AND ADR
CAS K+2
REM
* THE APPROACH OF ADDRESS ZERO
REM
HTR LDA7+10 SHOULD NEVER ENTER HERE
TRA LDA8 THE NEXT ADDRESS IS ZERO
STA LDA10
TIX LDA7+12,1,0 ADJUST XRA FOR PRINT
TIX LDA6,4,1
REM
REM
SUB K6+3 L+7776003777-INCREAESE
REM SECTOR BY A COUNT OF ONE
TXI LDA8-1,1,0 ADJUST FOR PRINT PROG
TRA LDA8+2
REM
LDA8 CLA ZERO L 0
LXA K4000,1 ADJUST FOR PRINT PROGRAM
STA LDA10
TIX LDA6-1,2,1
REM
CPY X-1 DRUM DISCONNECT
CLA CS GENERATE CHECK SUM
CAS CSC
TRA LDA8+9 ERROR IN CHECK SUM
TRA LDA9 CHECK SUM
AXT 0,2 CLEAR XRB
LDQ CSC CORRECT CHECK SUM
XCA
TSX ERROR-2,4 ERROR IN CHECK SUM
TRA LDA5
LDA9 TSX OK,4
TRA LDA5
NOP
********************************************************************
* *
* THIS IS A RIPPLE LDA SWITCHING PHYSICAL DRUMS TEST *
* *
********************************************************************
REM
* SELECT CORRECT FRAME
REM
REM
DAS CLA DRUM L DRUM ADDRESS
SUB K311 L 311
TMI DL01 DRUM 1 OR 2
REM
DHI SUB K4 L 4
TMI DH1 DRUM FRAME 3
REM
DH2 CLA K315 L 315 F4
STA DA SAVE
STA DST L WRS INST
CLA D13B L 0103
ORA LDA
SLW LCP1-1
REM
CLA D14B L 0104
ORA LDA
SLW LCP2-1
REM
CLA D15B L 0105
ORA LDA
SLW LCP3-1
REM
CLA D16B L 0106
ORA LDA
SLW LCP4-1
REM
TRA DST-1 START
REM
DH1 CLA K311 L 311 F3
STA DA SAVE
STA DST L WRS INST
REM
CLA D9B L 0011
ORA LDA
SLW LCP1-1
REM
CLA D10B L 0100
ORA LDA
SLW LCP2-1
REM
CLA D11B L 0101
ORA LDA
SLW LCP3-1
REM
CLA D12B L 0102
ORA LDA
SLW LCP4-1
REM
TRA DST-1 START
REM
DL01 CLA DRUM
SUB K305 L 305
TMI DL1 DRUM FRAME 1
REM
DL02 CLA K305 L 305 F2
STA DA SAVE
STA DST L WRS INST
REM
CLA D5B L 0005
ORA LDA
SLW LCP1-1
REM
CLA D6B L 0006
ORA LDA
SLW LCP2-1
REM
CLA D7B L 0007
ORA LDA
SLW LCP3-1
REM
CLA D8B L 0010
ORA LDA
SLW LCP4-1
REM
TRA DST-1 START
REM
DL1 CLA K301 L 301 F1
STA DA SAVE
STA DST L WRS INST
REM
CLA D1B L 0001
ORA LDA
SLW LCP1-1
REM
CLA D2B L 0002
ORA LDA
SLW LCP2-1
REM
CLA D3B L 0003
ORA LDA
SLW LCP3-1
REM
CLA D4B L 0004
ORA LDA
SLW LCP4-1
REM
* LOAD ALL DRUMS COMPLETE WITH 25 PATTERN
REM
LXA K4,4 L 4
DST WRS
LXA K4000,1 L 4000
CPY TEST3 L 25 PATTERN
TIX DST+2,1,1
REM
CLA DST
ADD ONE L ONE
STA DST
TIX DST,4,1 LOAD ALL DRUMS
REM
* ENTER LDA RIPPLE SWITCHING PHYSICAL DRUM
REM
DST0 CLA DA
STA DST RESTORE
STA LWD1 DRUM ONE OF SELECTED FR
STA LRD1
ADD ONE L ONE
STA LWD2 DRUM TWO OF SELECTED FR
STA LRD2
ADD ONE L ONE
STA LWD3
STA LRD3 DRUM THREE OF SELECTED FR