-
Notifications
You must be signed in to change notification settings - Fork 0
/
9comx.asm
executable file
·3102 lines (3102 loc) · 89.4 KB
/
9comx.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
7090/704 or 7094/704 compatability program xcomc
for 16/16 or 8/24 nullify storage 3-15-63
REM
* x c o m c
REM
* 704/7090/7094 compatibility program
* for 16/16 or 8/24 nullify storage
REM
org 4096
REM
* commence test
rem
rem
*check esnt divides storage correctly
REM
ay axt *,1 this location to xra
tra reset initialize
esnt *+1 turn on nullify tgr
rem
*for 16/16 nullify division 37777 should be only location reached.
*for 8/24 nullify division 17777 should be only location reached.
rem
tra 32k tra to loc 37777 on 16/16 k
rem tra to loc 17777 on 8/24 k
rem
ay1 swt 2 error
hpr tra 37777 on 8/24k
rem tra 17777 on 16/16k
rem
tra *+3
rem
ay2 swt 2 error
hpr tra 77777 on 8/24 or 16/16k
rem
ay3 swt 1 test switch 1
tra *+2 continue
tra ay repeat
rem
rem
*check tra instruction does not turn on memory nullification trigger
rem
AZ AXT *,1 LOCATION TO XRA
TRA monit program monitor
CLA K+1 L TRA AXA-2
STO 7 STORE IN LOCATION 00007
cla *-1 save address for next
sta cor routine initialization
REM
REM
REM
TRA *+1 is NULLIFY TGR turned on
rem if no, tra to location
fxm01 tra ** 20007 or 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
A AXT *,1 THIS LOCATION IN XRA
TRA MONIT MONITOR PROGRAM
CLA K+2 L TRA AA
STO 9 STORE IN LOCATION 00011
cla *-1 save address for next
sta cor routine initialization
REM
ESNT *+1 ENTER NULLIFICATION MODE
REM
fxm02 tra ** try tra to upper half of storag
rem location- 20011 or 40011
rem
SWT 2 ERROR
HPR CHECK NULLIFY TRIGGER
REM AND ITS OUPUTS
*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
cla *-1 save address for next
sta cor+1 routine initialization
pxd clear accumulator
ldq 2921 l bit in mq position 1
rem
REM
REM
LSNM EXIT NULLIFICATION MODE
fxm03 TRA ** TRA to loc 20012 or 40012.
REM
SWT 2 ERROR
HPR CHECK NULLIFY TRIGGER
rem
*check lsnm did not condition rnd
rem
tzb ab pr sign minus, no rand
rem
SWT 2 ERROR
HPR pr sign minus shouldnt rnd
REM
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
cla *-1 save address for next
sta cor routine initialization
rem
REM
REM
TTR *+1
REM
*CHECK NULLIFY TRIGGER STILL off
REM
fxm04 TRA ** TRA to loc 20013 or 40013.
REM
SWT 2 ERROR
HPR CHECK NULLIFY TRIGGER
REM
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
cla *-1 save address for next
sta cor routine initialization
REM
REM
REM
TEFD *+2
NOP
fxm05 TRA ** TRA to loc 20014 or 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
cla *-1 save address for next
sta cor routine initialization
ESNT *+1 ENTER NULLIFY MODE
REM
REM
RND
fxm06 TRA ** 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
lxa uniq1,2 load 37777 into xrb
ESNT *+1 SET NULLIFY TRIGGER
TXI *+1,2,1 ADD ONE TO XRB
REM
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
fxm07 AXT **,2 set 20000 or 40000 TO XRB.
REM
ESNT *+4 SET NULLIFY TRIGGER
SWT 2
HPR TIX TRANSFERRED
TRA *+2
fxm08 TIX *-3,2,** NO TRA UNDER ANY CONDITION
rem decr set to 17777 or 37777.
REM
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
fxm09 TSX **,2 HIGH ORDER ADR LINE DOWN
rem addr set to 20016 or 40016.
TRA *+2 ERROR
TRA *+3 OK-PROCEED
SWT 2 ERROR
HPR TRANSFERRED TO LOC 40016
REM
*CHECK TSX WITH NULLIFY TRIGGER RESET
REM
LSNM turn off NULLIFY TGR
REM
REM
fxm10 TSX ** ,2 TRA to LOC 20016 or 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
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
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
REM
ESNT *+1 SET NULLIFY TRIGGER
TIX *+1,2,1
PXD 0,2
LDQ nmbr mq decrement value
rem should be in xrb
CAS nmbr
TRA *+2 ERROR
TRA *+3 XRB COUNT DOWN OK
rem
SWT 2 ERROR
HPR check if high order
rem positions blocked
tix *,2,1 count down xrb
pxa 0,2 xrb to acc
ldq num+1 l +1
cas num+1
tra *+2 error
tra *+3 xrb count down ok
rem
SWT 2 ERROR
hpr error in count down
rem
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A6 REPEAT
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
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
cla *-1 save address for next
sto cor routine initialization
ESNT* *+7 SET NULLIFY AND IA TRGS
REM
REM
REM
a6xx TSX **,2 should TRA TO LOC 00016.
rem addr set to 20016 or 40016.
TRA *+2 ERROR
TRA *+7 NULLIFY + IA TRGRS OK
rem
SWT 2 ERROR
HPR WAS NULLIFY TRGR SET
rem
TRA *+4
LSNM DO NOT EXECUTE INSTR
REM USE ADR PORTION ONLY
REM TO GET ADR FOR ESNT INSTR
REM TO TRANSFER TO
rem
SWT 2 ERROR
HPR WAS IA CONTROL TRGR SET
rem
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
sln 4 turn on sense lite 4
TRA MONIT CHECK PROGRAM MONITORED
REM
REM
ESTM SET I/O SENSE AND TRAP TRGR
IOT is lite on
tra *+2 yes
tra *+3 no
rem
swt 2 error
hpr pr sign minus-iot lite off
rem
ESNT *+1 turn off nullify trg
rem and simulate indicator
REM
*bring up store and trap controls, will place the location plus 1 of
*select instruction in address portion of location 40000 and trap to
*location 40001
REM
RTBA 2 sec op 0,2
rem
A7A SWT 2 ERROR
HPR DID NOT TRAP-SEE COMMENT
REM
REM
*CHECK NULLIFY TRIGGER NOW RESET
REM
fxm11 TSX **,2 TRA to LOC 20016 or 40016.
TRA *+3 OK-PROCEED
rem
SWT 2 ERROR
HPR CHECK NULLIFY TRGR RESET
REM
*CHECK CONTENTS of location 40000
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
rem
SWT 2
HPR ERROR LOC 40000
REM
*CHECK I/O TRAP TRIGGER turned off and select instruction will not trap
REM
RTBA 1
Rdca DISCONNECT I/O UNIT
TRA *+3 OK-NO TRAP-TRANSFER
rem
SWT 2 ERROR
HPR TRAPPED
rem
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A7 REPEAT
REM
REM
REM
REM
REM
REM
REM
*CHECK IOT +0760---5 HAS NO EFFECT ON I/O SENSE TRAP TRGR
REM
A8 AXT *,1 LOCATION TO XRA
sln 4 turn on sense lite 4
TRA MONIT PROGRAM MONITOR
REM
REM
ESNT *+1 ENTER NULLIFY MODE
IOT
NOP
RTDA 1 DOES SELECT TRAP
RDCA DISCONNECT I/O UNIT
TRA *+3 OK-NO TRAP-TRANSFER
rem
SWT 2 ERROR
HPR I/O SENSE TRAP TRGR
REM SHOULD BE RESET
REM
*CHECK NULLIFY TRIGGER STILL SET
REM
fxm12 TSX **,2 SHOULD TRA LOC 00016.
rem addr set to 20016 or 40016.
TRA *+2 ERROR
TRA *+3 OK-PROCEED
rem
SWT 2 ERROR
HPR IS NULLIFY TRGR RESET
REM
*CHECK LOWEST LOCATION 40000
REM
LSNM EXIT NULLIFY MODE
CLA 16K+1 L LOC 40000
LDQ NUM L +0
CAS NUM
TRA *+2 ERROR
TRA *+3 OK-PROCEED
rem
SWT 2 ERROR
HPR LOC 40000 NOT ZERO
rem
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A8 REPEAT
REM
REM
REM
REM
REM
REM
REM
REM
A9 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
REM
*WRITE SELECT INSTRUCTION-SEC OPN 0,6
REM
ESTM I/O TRAP Trigger on
WTB 1 704 SELECT INSTR
rem
SWT 2 ERROR
HPR NO TRAP
REM
*REWIND SEC OPN 1,2
REM
ESTM I/O TRAP Trigger on
REW 1 704 SELECT INSTR
rem
SWT 2 ERROR
HPR NO TRAP
REM
*WRITE END OF FILE-SEC OPN 1.0
REM
ESTM I/O TRAP Trigger on
WEF 1 704 SELECT INSTR
rem
SWT 2 ERROR
HPR NO TRAP
REM
*BACKSPACE TAPE-SEC OPN 0,4
REM
ESTM I/O TRAP Trigger on
BST 1 704 SELECT INSTR
rem
SWT 2 ERROR
HPR NO TRAP
REM
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A9 REPEAT
REM
REM
REM
REM
REM
REM
REM
REM
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
REM
PSE 225 SHOULD TRAP
rem
SWT 2 ERROR
HPR CHECK COMPONENTS
REM NOTED IN COMMENTS
REM
ESTM I/O TRAP TRiggers on
SPUA 1 SHOULD TRAP
rem
SWT 2 ERROR
HPR CHECK COMPONENTS
REM NOTED IN COMENTS
rem
SWT 1 TEST SWITCH 1
TRA *+2 PROCEED
TRA A10 REPEAT
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
****************************************************************************
**** reference is made to 7090 service aid number 81 ***
**** ***
**** ***
**** on a program halt at location 12250, key 34 must be set ***
**** down in order to check btt and ett in select trap mode. ***
**** ***
**** ***
**** for proper operation of the three following test routines ***
**** on the 7090, the machine change outlined in cem 81 must ***
**** have been installed. ***
**** ***
**** ***
****************************************************************************
REM
REM
REM
REM
* check btta with triggers on ( no-skip condition )
rem
rem
* note - this test routine will only be checked on the initial pass
* of xcomc. if key 34 was not down on the first pass of
* xcomc, the test routine will not be checked.
rem
REM
a10a axt location to xra
tra monit program monitor
tra a10c
zet pass+2 first pass
tra a10c no
rewa 2 rewind tape 2
bsra 2 turn on btt trigger
bsra 2 hold up
tcoa * wait
estm i/o trap trg on
btta should trap
a10b nop
tra *+2 error
tra *+3 ok
swt 2
hPr
cla 16k+1 l contents loc 40000
cas k1-3 l htr a10b
tra *+2 error
tra *+4 ok
ldq k1-3
swt 2
hpr
swt 1 test switch 1
tra *+2
tra a10a repeat
rem
* check btta with trigger off ( skip condition )
rem
a10c axt *,1 location to xra
tra monit program monitor
tra a10e
btta turn trigger off
nop
estm i/o trigger on
btta should trap
nop
a10d swt 2 error
hpr
cla 16k+1 l contents loc 40000
cas k1-2 l htr a10d
tra *+2 error
tra *+4 ok
ldq k1-2 l htr a10d
swt 2
hpr
swt 1 test switch 1
tra *+2 continue
tra a10c repeat
rem
rem
rem
* check etta with trigger off ( skipp condition )
rem
a10e axt *,1 location to xra
tra monit program monitor
tra a11
etta turn off if on
nop
estm i/o trap tgr on
etta should trap
nop
a10f swt 2 error
hpr
cla 16k+1 l contents loc 40000
cas k1-1 l htr a10f
tra *+2 error
tra *+4 ok
ldq k1-1 htr a10f
swt 2
hpr
swt 1 test switch 1
tra *+2 continue
tra a10e repeat
REM
REM
REM
REM
REM
****************************************************************************
REM
*CHECK SENSE PRINTER
REM
A11 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
ESTM I/O TRAP TRigger on
REM
REM
SPTA SHOULD TRAP
rem
SWT 2 ERROR
HPR NO TRAP
REM
REM
SPTA SHOULD NOT TRAP
TRA *+4 OK
TRA *+3 OK
rem
SWT 2 ERROR
HPR CHECK TRIGGER RESET AT
REM 15 TIME AFTER TRAP
REM
Rdca 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 TRAP on-2.10.70.1
REM
REM
REM
REM
SPT SHOULD TRAP
rem
SWT 2 ERROR-NO TRAP
HPR CHECK COMPONETS
REM NOTED IN COMMENTS
rem
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A12 REPEAT
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
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 trap trigger on
rem
FRN SHOULD NOT TRAP
TRA *+4 OK-NO TRAP
NOP
rem
SWT 2 ERROR
HPR FRN TRAPPED
REM
REM
cla k1-4 set trap tra in loc 10
sto 8
cal minon set acc p to a one
ldq mqnin set mq 9 to a one
ETT 1 SHOULD TRAP
rem
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 i/o trap trigger on
REM
REM
DCT INDICTOR IS OFF
NOP NO TRAP AND
TRA *+3 SKIP TO HERE
rem
SWT 2 ERROR
HPR SEE COMMENT ABOVE
REM
RTT SHOULD TRAP
rem
SWT 2 ERROR
HPR NO RTT TRAP-SEE
REM COMMENT ABOVE
rem
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 i/o trap trigger on
PSE 243,2 SHOULD NOT TRAP-ONLY
REM MAKE ACC SIGN PLUS
REM
TRA *+4 OK-PROCEED
NOP
rem
SWT 2 ERROR
HPR TRAPPED
REM
TPL *+3 OK-ACC SIGN PLUS
rem
SWT 2 ERROR
HPR ACC SIGN MINUS
REM
*CHECK NULLIFY TRIGGER REMAINED SET
REM
fxm13 TSX **,2 SHOULD TRA to LOC 00016.
rem addr set to 20016 or 40016.
TRA *+2 ERROR
TRA *+3 OK-PROCEED
rem
SWT 2 ERROR
HPR IS NULLIFY TRIGGER RESET
REM
*CHECK COMPATABILITY FEATURE WITH XRB ZERO
REM
AXT 0,2 CLEAR XRB
PSE 243,2
rem
A15A SWT 2 ERROR
HPR NO TRAP
REM
*CHECK NULLIFY TRIGGER NOW RESET
REM
fxm14 TSX **,2 TRA to LOC 20016 or 40016.
TRA *+3 OK-NULLIFY TRIGGER RESET
rem
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
rem
SWT 2 ERROR
HPR ADR IN LOC 40000 NOT A15A
rem
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A15 REPEAT
REM
REM
*cHeck select instruction at last location in lower half of storage
rem
a15x axt *,1 location to xra
tra monit program monitor
cla a9+3 wtb 1 stored in the last
fxm15 sto ** store in 17777 or 37777.
cla num2+5 l tra a15y
sto 16k+2 and store
estm i/o trap tgr on
rem
fxm16 tra ** tra to loc 17777 or 37777.
rem trap on i/o.
a15y cla 16k+1 l contents 40000
cas num1+16 20000 or 40000 in loc 40000
tra *+2 error
tra *+4 loc 40000 ok
ldq num1+16 20000 or 40000 to mq
REM
swt 2 error
hpr loc 40000 wrong
rem
cla l contents location 00000
ldq num2+7 l str 17777
cas num2+7 compare
tra *+2 error
tra *+3 contents location 00000 ok
rem
swt 2 error
hpr contents location 00000 ng
rem
cla 16k+3 restore correct
sto 16k+2 instruction
rem
swt 1 test switch 1
tra *+2 continue
tra a15x repeat
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
cla *-1 save address for next
sta cor ROUTINE initialization
ESNT *+1 ENTER NULLIFY MODE
ESTM ENTER I/O SENSE TRAP MODE
ETM ENTER TRAP MODE
LDQ NUM L +0 TO MQ
REM
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
rem
SWT 2 ERROR
HPR CONTENTS LOC 00000 WRONG
REM
REM
REM
REM
REM
REM
REM
REM
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
rem
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
rem
SWT 1 TEST SWITCH 1
TRA *+2 CONTINUE
TRA A16 REPEAT
REM
REM
REM
A17 AXT *,1 LOCATION TO XRA
TRA MONIT PROGRAM MONITOR
rem
CPY TURN ON IOT LIGHT
TRA *+4 AND NO TRAP
NOP
rem
SWT 2 ERROR
HPR TRAPPED
REM
IOT CHECK IOT LITE
TRA *+3 OK-LIGHT WAS ON
rem