-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path9comb.asm
executable file
·3378 lines (3378 loc) · 109 KB
/
9comb.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
9COMB
3/1/59
REM
REM
* 9COMB
REM
REM
* 709/704 COMPATABILITY AND EXECUTE INSTRUCTION PROGRAM
REM
REM
*WITH THIS LOADING PROCEDURE, THE PROGRAM CAN GET INTO STORAGE
*WITH THE LOAD CARDS BUTTON OR MANUAL LOADING FROM THE BUFFER.
REM
*IF THE CARDS CANNOT BE LOADED WITH THE CPU LOAD CARDS BUTTON, LOAD
*FROM THE DSU BY PUTTING THE BUFFER IN MANAUL STATUS FOR CHANNEL A, SET
*04217 IN THE DECREMENT PORTION OF THE DSU ENTRY KEYS AND PRESS THE
*LOAD CONTROL WORD KEYS. NOW PRESS THE READ CARD READER KEY.
*WHEN ALL THE CARDS HAVE BEEN READ BY THE CARD READER, SET THE
*DSU TO AUTOMATIC STATUS AND MANUALLY TRANSFER TO LOCATION
*00004 ON THE CPU.
REM
REM
FUL
REM
ORG 0
REM
IOCD 3,0,TOTAL-2 CONTROL WORD
REM FOR LOADING
REM
TCNA *+3 READ ENIRE DECK
TRA *-1
STR
REM
*WITH 30 OCTAL WORDS PER CARD, THERE IS NO CHECK SUM CHECKING.
*COMPUTE A STORAGE CHECK SUM AND COMPARE IT TO A PREVIOUS
*DETERMINED CHECK SUM TO INSURE CARDS WERE READ CORRECTLY.
REM
AXT TOTAL,1 LAST LOCATION TO XRA
PXA CLEAR ACCUMULATOR
ACL TOTAL,1 COMPUTE THE
TIX *-1,1,1 CHECK SUM
SLW SUM SAVE CHECK SUM
REM
*CHECK COMPUTED CHECK SUM WITH KNOWN CHECK SUM
REM
CLA SUM L COMPUTED CHECK SUM
SUB TOTAL L KNOWN CHECK SUM
TZE *+2 CARDS READ OK
HTR ERROR-RELOAD CARD READER
REM AND LOAD AGAIN
REM
CLA K L TRA ID-7
STO 0 STORE IN LOCATION 000000
HTR
REM
REM
*LOGICAL DRUM 1 IS USED BY THIS PROGRAM. IF DRUMS ARE NOT
*IN THE SYSTEM, DREPSS KEY ON TO BYPASS THE ROUTINE REQUIRING LOGICAL
*DRUM 1 TO BE ON LINE.
REM
REM
*IF EC 245677 HAS BEEN INSTALLED ON THE MACHINE, THE C.E. CAN
*MAKE A FAST VISUAL CHECK OF THE BELOW LISTED TRIGGER NEONS
*TO DETERMINE IF THE COMPATABLITY TRIGGERS ARE IN THE CORRECT
*STATUS
REM
*MF3 J04 01 I/O SENSE AND TRAP MODE TRGR NEON SHOULD BE OFF
REM
*MF3 J04 03 COPY TRAP MODE TRGR NEON SHOULD BE ON
REM
*MF3 J04 05 FP TRAP MODE TRGR NEON SHOULD BE ON
REM
*MF3 J04 07 MEMORY NULLIFY MODE TRGR NEON SHOULD BE ON
REM
*MF3 J16 03 SENSE PR/PU TRGR NEON SHOULD BE OFF
REM
*FOR A MORE COMPRESHENSIVE CHECK, THE CE, IF HE DESIRES, CAN SCOPE THE
*BELOW LISTED POINTS TO INSURE THE CATHODE FOLLOWER OUTPUTS FROM THE
*VARIOUS COMPATABILITY TRIGGERS ARE IN THE CORRECT STATUS. PUSH START
*IF NO CHECKING IS DESIRED.
REM
* 1. MF3 L16-7 MINUS ON PR/PU SENSE SHOULD BE UP
REM
* 2. MF3 L16-2 TRAP ON I/O SHOULD BE DOWN
REM
* 3. MF3 K04-5 MINUS ON I/O AND SENSE TRAP MODE SHOULD BE UP
REM
* 4. MF3 L04-1 I/O SENSE AND TRAP MODE SHOULD BE DOWN
REM
* 5. MF3 M04-3 COPY TRAP MODE SHOULD BE DOWN
REM
* 6. MF3 N04-7 MINUS ON COPY TRAP MODE SHOULD BE UP
REM
* 7. MF3 P04-3 PLUS IN MOEMORY NULLIFY MODE SHOULD BE DOWN
REM
* 8. MF3 R04-6 MINUS IN MEMORY NULLIFY MODE SHOULD BE UP
REM
* 9. MF3 P04-2 MINUS IN F.P. TRAP MODE SHOULD BE DOWN
REM
*10. MF3 P04-5 F.P. TRAP MODE SHOULD BE UP
REM
*11. MF3 F24-2 TO SIMULATE INDICATOR SHOULD BE DOWN
REM
*IF THESE POINTS ARE IN THE STATE DESCRIBED, PRESS START TO CONTINUE.
*IF NOT, PRESS RESET BUTTON AND OBSERVER IF THE POINTS ARE NOW SET TO
*THE STATE DESCIBED.
REM
REM
*CHECK FOR DRUM 1 ON LINE
REM
ENK KEYS TO MQ
XCA MQ TO ACC
PAI ACC TO INDICATORS
LNT 200000 IS DRUM 1 ON LINE
TRA ID YES-DO NOT ALTER PROGRAM
CLA K1+3 NO-INSERT BYPASS IN TEST
STO A21X REQUIRING DRUM 1
REM
*WITH I/O AND SENSE AND TRAP TRIGGER RESET,PROGRAM IDENTIFICATION
*CAN BE PRINTED DEPENDING ON THE STATUS OF SENSE SWITCH 3.
REM
ID SWT 3 TEST SENSE SWITCH 3
TRA TITLE IDENTIFY PROGRAM
REM
*DETERMINE SIZE OF STORAGE AND ADJUST ADDRESSES IF 8K OR 16 CAPACITY
REM
AXT 32K,4 L 77777 IN REC
TXL ADJ,4,16K TRANSFER IF STG NOT 32K
TRA STG 32K STORAGE
REM
REM ADJUST ADDRESSES FOR 8K OR 16K STORAGE
REM
ADJ CLA K1+2 L FIRST AND LAST
REM ADDRESSTO MODIFY
REM
STA ADJ1 STORE INITIAL ADDRESS
STA FIX+4 TO BE CHECKED FOR
STA FIX1+4 MODIFICATION
STA FIX2+6 IN THESE LOCATIONS
ARS 18
STA LADR STORE LAST ADDRESS
REM
ADJ1 CAL L INSTRUCTION
PAI ACC TO INDICATORS
REM
RNT 70000 TEST FOR BITS 21,22,23
TRA *+2 NO BITS
TRA FIX ADJUST ADDRESS
REM
RNT 40000 TEST FOR BIT 21
TRA *+2 NO BIT
TRA FIX2 ADJUST ADDRESS
REM
RNT 30000 TEST FOR BIT IN POS 22,23
TRA ADR NO BITS-GET NEXT ADR
TRA FIX1 ADJUST ADDRESS
REM
FIX TXH *+3,4,8K TRANFER IF STG 16K
REM
*ADJUST ADDRESSES WITH BITS IN 21,22,23 FOR 8K
REM
ANA NUM+14 L 7777777717777
TRA *+2
REM
*ADJUST ADDRESSES WITH BITS IN 21,22,23 FOR 16K
REM
ANA NUM+15 L 7777777737777
SLW INSTR. WITH CORRECT ADR
TRA ADR
REM
FIX1 TXH *+3,4,8K TRANSFER IF STG 16K
REM
*ADJUST ADDRESSES WITH BITS IN 22,23 FOR 8K
REM
ANA NUM+16 L 7777777707777
TRA *+2
REM
*ADJUST ADDRESSES WITH BITS IN 22,23 FOR 16K
REM
ANA NUM+14 L 7777777717777
SLW INSTR WITH CORRECT ADR
TRA ADR
REM
FIX2 TXH *+4,4,8K TRANSFER IF STG 16K
REM
*ADJUST ADDRESSES WITH BIT IN 21 FOR 8K
REM
ANA NUM+16 L 7777777707777
ORA NUM+17 L 0000000010000
TRA *+3
REM
*ADJUST ADDRESSES WITH BIT IN 21 FOR 16K
REM
ANA NUM+16 L 7777777707777
ORA NUM+18 L 0000000020000
SLW INSTR. WITH CORRECT ADR
REM
ADR CAL ADJ1 L LAST INSTR CHECKED
ANA NUM+19 L 0000000007777
ADD NUM+1
CAS LADR
HTR ADJ STG NEVER BE LESS
REM CHECK ADDRESS TO BE
REM MODIFIED FOR 8K-16K AGAIN
TRA STG1
STA ADJ1 ADDRESS
STA FIX+4 OF THE
STA FIX1+4 NEXT
STA FIX2+6 INSTRUCTION
TRA ADJ1 TEST NEXT INSTR
REM
*MODIFY STG ROUTINE FOR 16K OR 8K STORAGE
REM
STG1 TXH STG2,4,8K TRA IF STG 16K
AXT 4K+17,4 LOCATION TO XRC
SXA STG+2,4 XRC TO ADR OF LOC
SXA STG+10,4 XRC TO ADR OF LOC
SXA STG+11,4 XRC TO ADR OF LOC
AXT 4K,4 XRC NOW 07777
SXD STG+9,4 XRC TO DEC OF LOC
SXD A5+7,4 XRC TO DEC OF LOC
TXI *+1,4,1 XRC NOW 10000
SXA RESET+4,4 XRC TO ADR OF INSTR
TXI *+1,4,6 XRC NOW 10006
SXA SPACE+3,4 XRC TO ADR OF INSTR
TRA STG
REM
STG2 AXT 8K+17,4 LOCATION TO XRC
SXA STG+2,4 XRC TO ADR OF LOC
SXA STG+10,4 XRC TO ADR OF LOC
SXA STG+11,4 XRC TO ADR OF LOC
AXT 8K,4 XRC NOW 17777
SXD STG+9,4 XRC TO DEC TO LOC
SXD A5+7,4 XRC TO DEC OF LOC
TXI *+1,4,1 XRC NOW 20000
SXA RESET+4,4 XRC TO ADR OF INSTR
TXI *+1,4,6 XRC NOW 20006
SXA SPACE+3,4 XRC TO ADR OF INSTR
REM
*PUT GROUP OF INSTR IN LOWER LOCATIONS OF UPPER HALF OF STORAGE
REM
STG AXT 15,4
CLA TRAP+15,4
STO 16K+17,4
TIX *-2,4,1
REM
*FILL BLANK LOCATIONS OF STORAGE FOR PROGRAM MONITOR
REM
AXT TOTAL+1,4 LOCATION TO XRC
CLA A20A-3 L STR
STO TOTAL+1 STORE IN BLANK LOC
TXI *+1,4,1 ADD ONE TO XRC
SXA *-2,4 XRC TO ADR OF INSTR
TXL *-3,4,16K FILL STG FROM TOTAL+1
REM THRU16K
REM
AXT 16K+17,4 LOCATION TO XRC
STO 16K+17
TXI *+1,4,1 ADD ONE TO XRC
SXA *-2,4 XRC TO ADR OF LOC
TXH *-3,4,0 FILL STG FROM 16K+17
REM THRU32K
REM
STGB AXT ID-7,4 LOCATION TO XRC
STO ID-7 ACC TO LOCATION
TXI *+1,4,1 ADD 1 TO XRC
SXA *-2,4 XRC TO ADR OF LOC
TXL *-3,4,STGB-1 FILL STG FROM ID-7
REM THRU STGB-1
SLN 1 SENSE LIGHT 1 ON
REM
REM
* NOTE
REM
REM
*THE COMMENTS IN THE PROGRAM WERE WRITTEN FOR 32K STORAGE
*COMPATABLELOCATION FOR OTHER STORAGE UNITS ARE LISTED BELOW
REM
REM
* 32K STG 16K STG 8K STG
REM
*HIGHEST LOC 77777 37777 17777
*HIGHEST LOC LOW HALF 37777 17777 07777
*LOWEST LOC UPPER HALF 40000 20000 10000
REM
REM
*THE PROGRAM OFTEN REFERS TO TRIGGERS AS BEING RESET AND SET.
*BY RESET, THE PROGRAM MEANS THE X RESET CONDITION OF THE
*TRIGGER AS SEEN ON THE SYSTEMS PAGES. BY SET, THE PROGRAM MEANS
*THE TRIGGER IS IN THE OPPOSITE STATUS OF THE X RESET AS SHOWN ON
*THE SYSTEMS PAGES. E.C. LEVEL SYSTESM PAGE 2.07.76 IS 244893.
REM
REM
* COMMENCE TEST
REM
REM
*CHECK TRA DOES NOT BRING PLUS IN MEMORY NULLIFY MODE LINE UP
*SEE SYSTEMS PAGE 2.07.76
REM
AZ AXT *,1 LOCATION TO XRA
TRA RESET INITIALIZE
CLA K+1 L TRA AXA-2
STO 7 STORE IN LOCATION 00007
REM
*WITH A TRA, ALL INPUTS TO AND CIRCUIT MF3 J04 H SHOULD NOT BE UP. THIS
*AND CIRCUIT CANNOT BE CONDITIONED TO SET THE NULLIFY TRIGGER AND BRING
*PLUS IN MEMORY NULLIFY MODE LINE UP-SYSTEMS PAGE 2.07.76.
REM
TRA *+1 WAS NULLIFY TRIGGER SET
TRA 16K+8 IF NO, TRA 40007
REM
SWT 2 ERROR
HPR CHECK COMPONENTS
REM MENTIONED ABOVE
AZA SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA AZ REPEAT
REM
REM
*CHECK ABILITY TO SET NULLIFY TRIGGER AND HALF STORAGE
REM
A AXT *,1 THIS LOCATION IN XRA
TRA MONIT MONITOR PROGRAM
CLA K+2 L TRA AA
STO 9 STORE IN LOCATION 00011
REM
*WITH NEXT INSTRUCTION, ALL 6 INPUTS TO AND CIRCUIT MF3 J04 H ON
*SYSTEM SPAGE 2.07.76 GO UP TO CONDITION THIS AND CIRCUIT TO SET
*TRIGGER MF3 J04 07 TO BRING PLUS IN MEMORY NULLIFY MODE LINE UP.
*MINUS IN MEMORY NULLIFY MODE LINE DOWN AND TURN ON SIMULATE INDICATOR
REM
ESNT *+1 ENTER NULLIFICATION MODE
REM
*IN THE NULLIFICATION MODE, NO LOCATION GREATER THEN 37777 WITH A
*32K STG., 17777 WITH A 16K STG., OR 77777 WITH AN 8K STG. CAN
*BE ADDRESSED. SEE NULLIFY TRIGGER AND ITS OUTPUTS ON SYSTEMS
*PAGES 2.07.76 AND SHEET 2 3.42.
REM
TRA 16K+10 TRY TRA TO UPPER HALF
REM STORAGE LOCATION
REM
SWT 2 ERROR
HPR CHECK NULLIFY TRIGGER
REM AND ITS OUPUTS
REM
*CHECK ABILITY TO RESET NULLIFY TRIGGER FOR FULL STORAGE USE
REM
AA CLA K+3 L TRA AB-2
STO 10 STORE IN LOCATION 00012
REM
*WITH NEXT INSTRUCTION, ALL 5 INPUTSTO AND CIRCUIT MF3 A18 H GO
*UP TO CONDITION BOTTOM LEG TO AND CIRCUIT MF3 J04 G. THE TOP
*LEG IS CONDITIONED BY UNIT ADR 10 WHICH SHOULD RESET TRIGGER
*MF3 J04 07 AND TURN THE SIMULATE INDICATOR OFF. SYSTEM 2.07.76
REM
LSNM EXIT NULLIFICATION MODE
TRA 16K+11 TRA 40012
REM
SWT 2 ERROR
HPR CHECK NULLIFY TRIGGER
REM AND ITS OUTPUTS
AB SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A REPEAT
REM
REM
*CHECK TTR +0021 HAS NO EFFECT ON NULLIFY TRIGGER
REM
A1 AXT *,1 THIS LOCATION IN XRA
TRA MONIT CHECK PROGRAM MONITORED
CLA K+4 L TRA A1A-2
STO 11 STORE IN LOCATION 00013
REM
*INSTR REG SIGN MINUS ON AND CIRCUIT MF J04 H SHOULD BE
*DOWN TO PREVENT CONDITIONING THE AND CIRCUIT TO SET
*THE NULLIFY TRIGGER. PLUS IN MEMORY NULLIFY MODE LINE SHOULD
*REMAIN DOWN AND MINUS IN MEMORY NULLIFY MODE LINE SHOULD
*REMAIN UP-SYSTEMS 2.07.76
REM
TTR *+1
REM
*CHECK NULLIFY TRIGGER STILL RESET
REM
TRA 16K+12 TRA 40013
REM
SWT 2 ERROR
HPR CHECK NULLIFY TRIGGER
REM AND ITS OUTPUTS
A1A SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A1 REPEAT
REM
REM
*CHECK TEFD-0031 HAS NO EFFECT ON NULLIFY TRIGGER
REM
REM
A2 AXT *,1 THIS LOCATION TO XRA
TRA MONIT CHECK PROGRAM MONITORED
CLA K+5 L TRA A2A-2
STO 12 STORE IN LOCATION 00014
REM
*AND CIRCUIT MF3 J04 H SHOULD NOT BE CONDITIONED
*TO PREVENT SETTING NULLIFY TRIGGER-SYSTEMS 2.07.76
REM
TEFD *+2
NOP
TRA 16K+13 TRA 40014
REM
SWT 2 ERROR
HPR CHECK NULLIFY TRIGGER
REM AND ITS OUTPUTS
A2A SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A2 REPEAT
REM
REM
*CHECK RND +0760---10 HAS NO EFFECT ON NULLIFY TRIGGER
REM
A3 AXT *,1 THIS LOCATION TO XRA
TRA MONIT CHECK PROGRAM MONITORED
CLA K+6 L TRA A3A
STO 13 STORE IN LOCATION 00015
ESNT *+1 ENTER NULLIFY MODE
REM
*INSTR REG SIGN MINUS ON AND CIRCUIT MF3 A18 H SHOULD BE
*DOWN PREVENTING CONDITIONING AND CIRCUIT MF3 J04 G TO
*RESET NULLIFY TRIGGER-SYSTEMS 2.07.76
REM
RND
TRA 16K+14 SHOULD TRA TO LOC 00015
REM
SWT 2 ERROR
HPR CHECK NULLIFY TRIGGER
REM AND ITS OUTPUT
A3A SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A3 REPEAT
REM
REM
*CHECK XR INCREMENTED IN NULLIFY MODE
REM
A4 AXT *,1 THIS LOCATION TO XRA
TRA MONIT CHECK PROGRAM MONITORED
AXT 16K,2 37777,17777 OR 07777 TO XRB
ESNT *+1 SET NULLIFY TRIGGER
TXI *+1,2,1 ADD ONE TO XRB
REM
*WITH NULLIFY TRIGGER SET, XRB HIGH ORDER POSITION IS BLOCKED COMING
*FROM XRB INTO ADDER X-SYSTEMS 2.0.2.04
REM
PXA 0,2 XRB TO ACC
LDQ NUM L +0
CAS NUM
TRA *+2 ERROR
TRA *+3 OK-XRB HIGH ORDER
REM POSITION BLOCKED
SWT 2 ERROR
HPR CHECK HIGH ORDER POS
REM XRB AND ADDERS
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A4 REPEAT
REM
REM
*CHECK AN XR WITH TIX IN NULLIFY MODE
REM
A5 AXT *,1 THIS LOCATION TO XRA
TRA MONIT CHECK PROGRAM MONITORED
AXT 16K+1,2 40000 TO XRB ON 32K STG.
REM 20000 TO XRB ON 16K STG.
REM 10000 TO XRB ON 8K STG
REM
ESNT *+4 SET NULLIFY TRIGGER
SWT 2
HPR TIX TRANSFERRED
TRA *+2
TIX *-3,2,16K NO TRA UNDER ANY CONDITION
REM
*WITH NULLIFY TRIGGER SET, XRB HIGH ORDER POSITION IS BLOCKED COMING
*FORM XRB INTO ADDER X-SYSTEMS 2.02.04
REM
PXA 0,2 XRB TO ACC
LDQ NUM L +0
CAS NUM
TRA *+2 ERROR
TRA *+3 OK-XRB ZERO
SWT 2 ERROR
HPR CHECK FOR ADDER
REM N CARRY OUTPUT
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A5 REPEAT
REM
REM
*CHECK TSX IN AND OUT OF NULLIFICATION MODE
REM
A5X AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
CLA K+7 L TRA 2,2
STO 14 STO IN LOCATION 00016
REM
*CHECK TSX WITH NULLIFY TRIGGER SET
REM
ESNT *+1 ENTER NULLIFY MODE
TSX 16K+15,2 HIGH ORDER ADR LINE DOWN
TRA *+2 ERROR
TRA *+3 OK-PROCEED
SWT 2 ERROR
HPR TRANSFERRED TO LOC 40016
REM
*CHECK TSX WITH NULLIFY TRIGGER RESET
REM
LSNM RESET NULLIFY TRIGGER
TSX 16K+15,2 SHOULD TRA LOC 40016
TRA *+3 OK-PROCEED
SWT 2 ERROR
HPR TRANSFERRED TO LOC 00016
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A5X REPEAT
REM
REM
*CHECK AN XR COUNT DOWN WITH TIX IN NULLIFY MODE
REM
A6 AXT *,1 THIS LOCATION TO XRA
TRA MONIT CHECK PROGRAM MONITORED
AXT 32K,2 77777 TO XRB ON 32K STG
REM 37777 TO XRB ON 16K STG
REM 17777 TO XRB ON 8K STG
REM
ESNT *+1 SET NULLIFY TRIGGER
TIX *,2,1 COUNT DOWN XRB
PXA 0,2 XRB TO ACC
SUB NUM+1 L+1
LDQ NUM L +0
CAS NUM
TRA *+2 ERROR
TRA *+3 XRB COUNT DOWN OK
SWT 2 ERROR
HPR ERROR IN COUNT DOWN
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A6 REPEAT
REM
REM
*CHECK ESTM IS INDIRECT ADDRESSABLE
REM
A6X AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
CLA K1+10 L TRA A6X+5
STO 8 STORE IN LOCATION 00010
ESNT* *+7 SET NULLIFY AND IA TRGS
REM
*TAKE AN E CYCLE TO READ CONTENTS OF ABOVE ADDRESS OUT OF STORAGE
*AND USE ITS ADDRESS TO OBTAIN THE NEXT INSTRUCTION
REM
TSX 16K+15,2 TRA TO LOC 00016
TRA *+2 ERROR
TRA *+7 NULLIFY + IA TRGRS OK
SWT 2 ERROR
HPR WAS NULLIFY TRGR SET
TRA *+4
LSNM DO NOT EXECUTE INSTR
REM USE ADR PORTION ONLY
REM TO GET ADR FOR ESNT INSTR
REM TO TRANSFER TO
SWT 2 ERROR
HPR WAS IA CONTROL TRGR SET
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A6X REPEAT
REM
REM
*CHECK I/O SENSE AND TRAP MODE TRIGGER
REM
A7 AXT *,1 THIS LOCATION IN XRA
TRA MONIT CHECK PROGRAM MONITORED
REM
*FROM I/O SENSE AND TRAP MODE TRIGGER MF3 J04 01 SYSTEMS 2.0776 CHECK
*I/O SENSE AND TRAP MODE LINE COMES UP AND MINUS ON I/O SENSE AND TRAP
*MODE LINE GOES DOWN WITH THE NEXT INSTRUCTION.
REM
ESTM SET I/O SENSE AND TRAP TRGR
ESNT *+1 SET NULLIFY TRIGGER
REM
*I/O SENSE AND TRAP MODE LINE UP FROM THE I/O SENSE AND TRAP TRIGGER,
*CONDITIONS TRAP ON I/O WHICH WILL RESET I/O SENSE TRAP TRIGGER, RESET
*NULLIFY TRIGGER, STORE THE SELECT INSTR LOCAION PLUS 1 IN THE ADDRESS
*PORTION OF LOCATION 40000 AND TRAP TO 40001 WITH A SELECT INSTRUCTION.
*SEE SYSTEMS 2.07.76, 3.40. SHEETS 1 AND 2 OF 3.42, 2.08.61, 2.07.70 AND
*5.01.01
REM
RTBA 1 RESET TAPE-SEC OP 02
A7A SWT 2 ERROR
HPR DID NOT TRAP-SEE COMMENT
REM
*CHECK CONDITIONING AND CIRCUITS MF3 A18 H AND MF3 J04 A SETS SENSE
*AND TRAP MODE TRIGGER. CONDITIONING AND CIRCUIT MF3 J04 B RESETS
*THE TRIGGER
REM
*CHECK NULLIFY TRIGGER NOW RESET
REM
TSX 16K+15,2 SHOULD TRA LOC 40016
TRA *+3 OK-PROCEED
SWT 2 ERROR
HPR CHECK NULLIFY TRGR RESET
REM
*CHECK CONTENTS LOWEST LOCATION UPPER HALF OF STG.
REM
CLA 16K+1 L CONTENTS LOC 40000
LDQ K+8 L HTR A7A
CAS K+8
TRA *+2 ERROR
TRA *+3 LOC 40000 OK-PROCEED
SWT 2
HPR ERROR LOC 40000
REM
*CHECK I/O SENSE AND TRAP MODE TRIGGER NOW RESET AND SELECT
*INSTRUCTION WILL NOT TRAP-SYSTEMS 2.07.76 AND 5.01.01
REM
RTBA 1
RCHA NUM DISCONNECT I/O UNIT
TRA *+3 OK-NO TRAP-TRANSFER
SWT 2 ERROR
HPR TRAPPED
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A7 REPEAT
REM
REM
*CHECK IOT +0760---5 HAS NO EFFECT ON I/O SENSE TRAP TRGR
REM
A8 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
REM
*ON 2.0.76 INSTR SIGN MINUS BEING DOWN ON AND CIRCUIT
*MF3 A18 H PREVENTS CONDITIONS OCCURTTING AS DECRIBED IN INITIAL
*COMMENTS OF SECTION A7
REM
ESNT *+1 ENTER NULLIFY MODE
IOT
NOP
RTDA 1 DOES SELECT TRAP
RCHA NUM DISCONNECT I/O UNIT
TRA *+3 OK-NO TRAP-TRANSFER
SWT 2 ERROR
HPR I/O SENSE TRAP TRGR
REM SHOULD BE RESET
REM
*CHECK NULLIFY TRIGGER STILL SET
REM
TSX 16K+15,2 SHOULD TRA LOC 00016
TRA *+2 ERROR
TRA *+3 OK-PROCEED
SWT 2 ERROR
HPR IS NULLIFY TRGR RESET
REM
*CHECK LOWEST LOCATION IN UPPER HALF STG.
REM
LSNM EXIT NULLIFY MODE
CLA 16K+1 L LOC 40000
LDQ NUM L +0
CAS NUM
TRA *+2 ERROR
TRA *+3 OK-PROCEED
SWT 2 ERROR
HPR LOC 40000 NOT ZERO
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A8 REPEAT
REM
REM
*PREVIOSLY, SEC OP 0.2 THE TOP LEG TO OR CIRCUIT MF3 A21 A ON SYSTEMS
*PAGE 5.01.01 WAS CHECKED.NOW CHECK THE NEXT 4 INPUTS TO THIS OR CIRCUIT
*WITH THE I/O SENSE AND TRAP TRIGGER SET.WITH EACH OF THE 4 INPUTS.
*THERE SHOULD BE A TRAP TO LOCATION 40001.IF THE 709 BEGINNING OF TAPE
*TEST AND END OF TAPE TEST INSTRCUTUONS ARE GIVEN--2 BOTTOM LEGS OF THE
*OR CIRCUIT--AND I/O SENSE AND TRAP MODE LINE IS UP,THE FOLLOWING
*CONDITIONS OCCUR
REM
* 1. THE MACHINE HANGS UP
REM
* 2 . THE INSTRUCTION COUNTER IS RESET TO ZERO
REM
* 3. THE BTT OR ETT INSTR IS IN THE SR
REM
*NOTE ON SYSTEMS PAGE 6.02, THAT ER TIME GATES EXECUTION OF 709 BTT
*AND ETT INSTRUCTIONS
REM
A9 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
REM
*WRITE SELECT INSTRUCTION-SEC OPN 0,6
REM
ESTM SET I/O SENSE TRAP TRGR
WTB 1 704 SELECT INSTR
SWT 2 ERROR
HPR NO TRAP
REM
*REWIND SEC OPN 1,2
REM
ESTM SET I/O SENSE TRAP TRGR
REW 1 704 SELECT INSTR
SWT 2 ERROR
HPR NO TRAP
REM
*WRITE END OF FILE-SEC OPN 1.0
REM
ESTM SET I/O SENSE TRAP TRGR
WEF 1 704 SELECT INSTR
SWT 2 ERROR
HPR NO TRAP
REM
*BACKSPACE TAPE-SEC OPN 0,4
REM
ESTM SET I/O SENSE TRAP TRGR
BST 1 704 SELECT INSTR
SWT 2 ERROR
HPR NO TRAP
REM
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A9 REPEAT
REM
REM
*CHECK SENSE PUNCH INSTRUCTION
REM
A10 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
ESTM SET I/O SENSE TRAP TRGR
REM
*IN THE I/O SENSE AND TRAP MODE. 704 SENSE PUNCH INSTR WILL CONDITION AND
*CIRCUIT MF3 J16 B TO SET TRIGGER MF3 J16 03 AND TRAP-SYSTEMS 2.07.76
*AND 5.01.01
REM
PSE 225 SHOULD TRAP
SWT 2 ERROR
HPR CHECK COMPONENTS
REM NOTED IN COMMENTS
REM
ESTM SET I/O SENSE TRAP TRGR
SPUA 1 SHOULD TRAP
SWT 2 ERROR
HPR CHECK COMPONENTS
REM NOTED IN COMENTS
SWT 1 TEST SWITCH 1
TRA *+2 PROCEED
TRA A10 REPEAT
REM
REM
*CHECK SENSE PRINTER
REM
A11 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
ESTM SET I/O SENSE TRAP TRGR
REM
*AND CIRCUIT MF3 J16 C SHOULD CONDITION TRIGGER MF3 J16 03 SYSTEMS
*2.07.76 TO CAUSE A TRAP.
REM
SPTA SHOULD TRAP
SWT 2 ERROR
HPR NO TRAP
REM
*CHECK TRIGGER MF3 J16 03 SYSTEMS 2.07.76 CAN BE RESET
REM
SPTA SHOULD NOT TRAP
TRA *+4 OK
TRA *+3 OK
SWT 2 ERROR
HPR CHECK TRIGGER RESET AT
REM 15 TIME AFTER TRAP
REM
RCHA NUM CLEAR BUFFER
REM
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A11 REPEAT
REM
REM
*CHECK SENSE PRINTER
REM
A12 AXT *,1 LOCATION TO XRA
TRA MONIT MONITOR PROGRAM
ESTM I/O SENSE TRAP TRGR SET
REM
*AND CIRCUIT MF3 J16 C SHOULD CONDITION TRIGGER MF3 J16 03 SYSTEMS
*2.07.76 TO CAUSE A TRAP
REM
SPT SHOULD TRAP
SWT 2 ERROR-NO TRAP
HPR CHECK COMPONETS
REM NOTED IN COMMENTS
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A12 REPEAT
REM
REM
*CHECK FRN +0760---11 AND 704 ETT -0760---11
REM
A13 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
ESTM I/O SENSE TRAP TRGR SET
FRN SHOULD NOT TRAP
TRA *+4 OK-NO TRAP
NOP
SWT 2 ERROR
HPR FRN TRAPPED
REM
*IN THE I/O SENSE TRAP MODE, THE TOP LEG OF AND CIRCUIT MF3 J16 E
*SYSTEMS 2.07.76 IS UP. WITH 704 END OF TAPE TEST INSTR-0760---11,
*THE MIDDLE LEG IS CONDITIONED BY UNIT ADR 11 FROM SYSTEMS 5.01.02 AND
*THE BOTTOM LEG COMES UP AS A RESULT OF CONDITIONING AND CIRCUIT MF3 A18 H
*TO SET TRIGGER MF3 J16 03 AND CAUSE A TRAP
REM
ETT 1 SHOULD TRAP
SWT 2 ERROR-NO TRAP
HPR CHECK COMPONETS
REM NOTED IN COMMENTS
REM
REM NOTE THAT TRIGGER IS TURNED
REM OFF BY THE NEXT 15 PULSE
REM
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A13 REPEAT
REM
REM
*CHECK DCT +0760----12 AND RTT-0760---12
REM
A14 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
ESTM SET I/O SENSE TRAP TRGR
REM
*AND CIRCUIT MF3 J16 D SHOULD NOT BE CONDITIONED TO SET TRGR MF13 J16 03
*SYSTEMS 2.07.76-NOT TRAP WITH DCT +0760---12. WITH RTT -0760--12,
*THERE SHOULD BE A TRAP.
REM
DCT INDICTOR IS OFF
NOP NO TRAP AND
TRA *+3 SKIP TO HERE
SWT 2 ERROR
HPR SEE COMMENT ABOVE
REM
RTT SHOULD TRAP
SWT 2 ERROR
HPR NO RTT TRAP-SEE
REM COMMENT ABOVE
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A14 REPEAT
REM
REM
*CHECK TAGGED SENSE INSTRUCTION WITH COMPATABLIBLITY FEATURE
REM
A15 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
CLS NUM L -0
AXT 240,2 L 360 TO XRB
ESNT *+1 ENTER NULLIFY MODE
ESTM ENTER I/O SENSE TRAP MODE
PSE 243,2 SHOULD NOT TRAP-ONLY
REM MAKE ACC SIGN PLUS
REM
TRA *+4 OK-PROCEED
NOP
SWT 2 ERROR
HPR TRAPPED
REM
TPL *+3 OK-ACC SIGN PLUS
SWT 2 ERROR
HPR ACC SIGN MINUS
REM
*CHECK NULLIFY TRIGGER REMAINED SET
REM
TSX 16K+15,2 SHOULD TRA LOC 00016
TRA *+2 ERROR
TRA *+3 OK-PROCEED
SWT 2 ERROR
HPR IS NULLIFY TRIGGER RESET
REM
*CHECK COMPATABILITY FEATURE WITH XRB ZERO
REM
AXT 0,2 CLEAR XRB
PSE 243,2
A15A SWT 2 ERROR
HPR NO TRAP
REM
*CHECK NULLIFY TRIGGER NOW RESET
REM
TSX 16K+15,2 SHOULD TRA LOC 40016
TRA *+3 OK-NULLIFY TRIGGER RESET
SWT 2 ERROR
HPR NULLIFY TRIGGER NOT RESET
REM
*CHECK CONTENTS LOCATION 40000
REM
CLA 16K+1 L CONTENTS LOC 40000
LDQ K+9 L HTR A15A
CAS K+9
TRA *+2 ERROR
TRA *+3 OK-PROCEED
SWT 2 ERROR
HPR ADR IN LOC 40000 NOT A15A
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A15 REPEAT
REM
REM
*CHECK COMPATABILITY FEATURE IN TRAPPING MODE
REM
A16 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
LTM LEAVE TRAP MODE
CLA K+10 L TTR A16A
STO 1 STORE IN LOCATION 000001
ESNT *+1 ENTER NULLIFY MODE
ESTM ENTER I/O SENSE TRAP MODE
ETM ENTER TRAP MODE
LDQ NUM L +0 TO MQ
REM
*ALTHOUGH TQP HAS A SEC OP 0.2, THIS SHOULD NOT DECODE TO AFFECT AND
*CIRCUIT MF3 A21 A SYSTEMS 5.01.01-TRAP ON I/O LINE SYSTEMS 3.42 SHEET
*2 SHOULD REMAIN DOWN AND A CONDITION MET TRA SHOULD TRAP TO LOCATION
*00001.
REM
TQP *+1
LTM LEAVE TRAP MODE
TRA *+5 ERROR
REM
LTM LEAVE TRAP MODE
SWT 2 ERROR
HPR TRAPPED TO LCOC 40001
TRA *+3 PROCEED
REM
SWT 2 ERROR
HPR TQP DIDNOT TRAP TO 00001
REM
*CHECK CONTENTS LOCATION 00000
REM
A16A LTM LEAVE TRAP MODE
CLA L CONTENTS LOC 00000
LDQ K+11 L STR A16A-9
CAS K+11
TRA *+2 ERROR
TRA *+3 CONTENTS LOC 00000 OK
SWT 2 ERROR
HPR CONTENTS LOC 00000 WRONG
REM
*CHECK CONTENTS LOCATION 40000
REM
LSNM RESET NULLIFY TRIGGER
CLA 16K+1 L LOCATION 40000
LDQ NUM L +0
CAS NUM
TRA *+2 ERROR
WRS 219 CONTENTS LOC 40000 OK
REM SELECT INSTR TO RESET
REM I/O SENSE TRAP TRGR-TRAP
REM AND TRANSFER TO A17-3
REM
SWT 2 ERROR
HPR CONTENTS LOC 40000 WRONG
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A16 REPEAT
REM
REM
*CHECK COPY WITH COPY TRAP TRIGGER RESET. ON SYSTEMS 2.07.76 THE LINE
*MINUS ON COPY TRAP MODE SHOULD BE UP AND THE LINE COPY TRAP MODE
*SHOULD BE DOWN TO PREVENT STORING THE COPY LOCATION PLUS 1 IN THE
*ADDRESS PORTION OF LOCATION 40000 AND TRAPPING TO 40002. OTHER SYSTEMS
*PAGES TO NOTE ARE SHEET 2-3.42 AND SHEET 2-3.100.
REM
A17 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
CPY TURN ON IOT LIGHT
TRA *+4 AND NO TRAP
NOP
SWT 2 ERROR
HPR TRAPPED
REM
IOT CHECK IOT LITE
TRA *+3 OK-LIGHT WAS ON
SWT 2 ERROR
HPR LIGHT WAS OFF
REM
*CHECK LOCATION 40000
REM
CLA 16K+1 L LOCATION 40000
LDQ NUM L +0
CAS NUM
TRA *+2
TRA *+3 CONTENTS LOC 40000 OK
SWT 2 ERROR
HPR CONTENTS LOC 40000 WRONG
REM
*CHECK COPY AND AND LOGICAL WORD
REM
CAD
TRA *+4 OK