REM 704 FORTRAN SELF LOADING RECORD 1 TO CS.
FUL
LXA 0,1
CPY 2,1
TXI 1,1,1
CPY 25,1
HTR 3
TZE 0
COM
ACL 2
COM
TRA 23
RTT
IOD
HTR 0
TXI 13,1,-1
CAD 0,1
CAL 15
STA 22
ARS 18
STA 13
CAL 15
CPY 15
CPY 2
RTB 1
LXD 23,1
CPY 3
LTM
BST 145
END
REM FORTRAN II CARD-TO-TAPE
ORG 72
BEGIN RCD 1
LXD ADD01,1
LXD ADD02,2
ADD23 CPY L9ROW COPY 92
TXL ADD03,
TRA 2,4 EOF TR
ADD03 STQ DATA1 STORE 9L
SXD ADD01,1
SXD ADD02,2
LXD ADD04,1
CPY R9ROW COPY 9R
STQ DATA2 STORE 9R
TSX SUB1,2 EXIT ENTRY1 SUB1
ADD01 TXL ADD05 RETURN1
ALS 1 RETURN2
ADD02 TXL ADD06 EXIT TO ENTRY2 SUB1
ADD05 CPY DATA3
STQ DATA1
CPY DATA4 COPY RIGHT
STQ DATA2
TSX SUB1,2
ADD04 TXL ADD07,0,8 RETURN1
ALS 3 RETURN2
TXL ADD08
ADD07 CAL L9ROW
SLW DATA1
CAL R9ROW
SLW DATA2
ADD14 TXL ADD09,1,1
ADD15 CPY L9ROW
TXL ADD10
ADD12 HTR BEGIN EOF
TXL ADD11 EOR
ADD10 CAL L9ROW
ANA DATA1
TNZ ADD12
CAL L9ROW
ORS DATA1
CPY R9ROW
CAL R9ROW
ANA DATA2
TNZ ADD12
CAL R9ROW
ORS DATA2
TNX ADD13,1,1
TSX SUB1,2
TXL ADD14 RETURN1
TXL ADD08 RETURN2
ADD09 CAL DATA3
ORA DATA1
SLW DATA3
CPY DATA5
ANA DATA5
SLW DATA1
CAL DATA4
ORA DATA2
SLW DATA4
CPY DATA6
ANA DATA6
SLW DATA2
ADD13 TSX SUB1,2
TXL ADD15 RETURN1
ALS 4 RETURN2
TXL ADD08
ADD11 CAL DATA1
SLW L9ROW
CAL DATA3
COM
ANA DATA5
ANS DATA1
CAL DATA2
SLW R9ROW
CAL DATA4
COM
ANA DATA6
ANS DATA2
TSX SUB1,2
TXL ADD16 RETURN1
SLW DATA0 RETURN2
ALS 2
ACL DATA0
ALS 1
TXL ADD08
ADD16 CAL DATA3
SWT 6
TRA ADD34
ADD32 TXL ADD31
ADD33 WTD 5
TRA ADD29
ADD34 WTD 2
ADD29 ORA DATA5
ORA L9ROW
COM
SLW DATA1
CAL DATA4
ORA DATA6
ORA R9ROW
COM
SLW DATA2
TSX SUB1,2
TXL ADD17 RETURN1
SLW DATA0 RETURN2
ALS 1
ACL DATA0
ALS 4
TXL ADD08
ADD17 LXD ADD01,1
LXD ADD02,2
TRA 3,4
SUB1 SXD ADD18,1
SLN 1
CAL 1,4
ADD CONS1
LDQ DATA1
ADD22 STA ADD06
STA ADD08
TXH ADD19,1,1
STQ DATA0 INDEX=1
CAL DATA0
TZE ADD20
ADD19 LXA CONS1,1
ADD21 PXD 12 CLEAN ACC
LGL 1 1ST IN ACC
ALS 5 100000
LGL 1 1000001
ALS 5 100000100000
LGL 1 1000001000001
ALS 5
LGL 1
ALS 5
LGL 1
ALS 5
LGL 1
TRA 2,2 1000001000001000001000001000001
ADD08 ACL 0,1 ADDRESS COMPUTED AT ADD22 IN ADDRESS
ADD06 SLW 0,1 ENTRY2 ADDRESS PREV. COMPUTED AT ADD22
TIX ADD21,1,1
LXD ADD18,1
ADD20 SLT 1
TRA 1,2 OFF
LDQ DATA2 SENSE LIGHT ON
CAL 1,4
ADM ADD21
ADD18 TXL ADD22,0,** IR1 STORED IN DECREMENT
CONS1 HTR 6
DATA0 HTR
DATA1 HTR 9L ROW
DATA2 HTR 9R ROW
DATA3 HTR
DATA4 HTR
DATA5 HTR
DATA6 HTR
L9ROW HTR
R9ROW HTR
START REW 2
SLN 0
ADD27 RCD 1
TSX ADD23,4
HTR RECOR
TXL ADD24 RETURN3
SLN 2 RETURN4
LXD ADD25,4
ADD26 CPY BLOCK,4
TIX ADD26,4,1
ADD25 TXL ADD27,0,12
ADD24 SLT 2
TRA ADD28 OFF
SWT 6
TRA ADD30
WEF 5
REW 5
ADD28 RTB 1
CPY RECOR
TRA ADD28
TRA 4 EOF
REW 1
RTB 1
RTB 1
TSX 4,4
RECOR HTR
BLOCK BES 11
ADD31 REW 5
CLS ADD32
STO ADD32
CAL DATA3
TRA ADD33
ADD30 WEF 2
REW 2
TRA ADD28
END
REM AST
REM ************* FORTRAN II SECTION SIX ************************F6R00010
REM FORTRAN 2 RECORD 0003 - CIT TO SAP CONVERSION. F6R00011
REM F6R00012
REM CIT TO SAP CONVERSION F6R00020
ZERO EQU 113 F6R00030
ONE EQU 114 F6R00040
SW1 EQU 127 F6R00050
SW2 EQU 128 F6R00060
SW3 EQU 129
SW4 EQU 130
ORG 136 F6R00030
START CLA ONE F6R00040
CAS SW2 F6R00050
TRA ADD01 SW2 EQUAL ZERO, ASSUME SWITCH TWO UP, F6R00060
TRA LIB1 SW2 EQUAL ONE, ASSUME SWITCH TWO DOWN, F6R00070
SWT 2 EQUAL TWO. TEST SWITCH TWO F6R00080
TRA ADD01 F6R00090
LIB1 REW 4 SW TWO DOWN. F6R00100
WEF 2 F6R00110
LXD ADD02,2 SET READ ERROR COUNTER. F6R00120
ADD02 TXI ADD03,0,5 F6R00130
ADD05 BST 4 F6R00140
ADD03 RTB 4 READ TAPE 4 F6R00150
LXA DATA1,1 F6R00160
ADD04 CPY RECO3,1 CPY INTO REC-1, REC-2,--- F6R00170
TXI ADD04,1,1 F6R00180
TRA ADD01 END OF FILE ON TAPE 4. F6R00190
ARS 255 F6R00200
ARS 0255 F6R00210
RTT F6R00220
TIX ADD05,2,1 IF ERROR. F6R00230
SXD ADD06,1 SAVE COUNT OF NO. OF WORDS READ IN. F6R00240
LXA ADD07,1 SET XR1=0 F6R00250
IN207 SXD ADD08,1 SAVE XR1. F6R00260
CAL RECOR,1 STORE SL IN DATA2 F6R00270
SLW DATA2 STORE OP IN DATA3 F6R00280
CAL RECO3,1 F6R00290
SLW DATA3 F6R00300
CAL RECO2,1 STORE SA IN DATA4 F6R00310
SLW DATA4 F6R00320
CAL REC01,1 STORE RA IN DATA5 F6R00330
SLW DATA5 F6R00340
LDQ DATA6 F6R00350
STQ E1005 STORE BLANKS IN E1006,1007,1010,1005 F6R00360
STQ E1006 F6R00370
STQ E1007 F6R00380
STQ E1010 F6R00390
CAL DATA2 TEST SYMBOLIC LOCATION. F6R00400
TZE ADD09 IF ZERO, GO TO ADD09. F6R00410
LRS 30 NOT ZERO. SEE IF SL(1) EQUAL ZERO. F6R00420
TZE ADD10 SL(1) EQUAL ZERO, GO TO ADD10. F6R00430
SUB DATA7 SL(1) NOT EQUAL ZERO. SEE IF EQUAL 15. F6R00440
TNZ ADD11 SL(1) NOT EQUAL 15, GO TO ADD11 F6R00450
CAL DATA6 SL(1) EQUAL 15. PUT BLANKS IN AC AND F6R00460
TRA ADD12 GO TO ADD12 F6R00470
ADD11 ADD DATA7 RESOTRE SL(1) IN AC. F6R00480
SUB LIB3 F6R00490
TZE LIB2 IF SL(1)=$, GO TO LIB2 F6R00500
ADD LIB3 F6R00510
SUB LIB5 F6R00520
TZE LIB6 IF SL(1)=(, GO TO LIB6 F6R00530
ADD LIB5 F6R00540
SUB DATA7 F6R00550
TPL ME1 GO TO ME1 IF SL(1) GREATER THEN 15 (I.E.,ALPHA-F6R00560
ADD DATA7 F6R00570
RQL 1 SL(1) LESS THEN 15, NOT ZERO, ASSEMBLE SYMBOL. F6R00580
TSX SUB1,1 AND GO TO SUB1 (TIV TYPE ENTRY). F6R00590
TRA ADD12 F6R00600
ME1 CAL DATA2 F6R00610
TRA ADD12 F6R00620
ADD10 LGL 13 IFN. ASSEMBLE SYMBOL AND GO TO SUB2. F6R00630
TSX SUB2,1 F6R00640
ADD09 LGL 36 SYMBOLIC LOC EQUAL ZERO. PUT BLANKS IN ACC. F6R00650
ADD12 SLW E1003 STORE ACC. IN E1003. F6R00660
IN245 LDQ DATA3 SELECT OP IN MQ. F6R00670
CLS DATA8 F6R00680
LGL 18 F6R00690
STQ E0777 STORE DECREMENT IN E0777. F6R00700
LDQ DATA6 LOAD MQ WITH BLANKS F6R00710
LGL 6 F6R00720
ALS 6 F6R00730
STO E1004 STORE IN E1004. F6R00740
CAS DATA9 IS OP EQUAL OCT. F6R00750
TRA ADD13 OP LESS THEN OCT F6R00760
TRA ADD14 OP EQUAL OCT. GO TO ADD14. F6R00770
CAS DAT10 OP GREATER THEN OCT. SEE IF OP=BCD. F6R00780
TRA ADD13 F6R00790
TRA ADD15 OP EQUAL BCD. GO TO ADD15. F6R00800
ADD13 LDQ DATA4 OP NOT BCD OR OCT. F6R00810
PXD SELECT SA IN MQ. F6R00820
LGL 6 F6R00830
TNZ IN301 SA(1) NOT EQUAL ZERO. GO TO IN301. F6R00840
LGL 12 SA(1) EQUAL ZERO. TEST FOR INTERNAL F6R00850
TNZ IN310 FORMULA NUMBER TYPE. IF YES, GO TO IN310. F6R00860
LDQ DATA6 SA(1),SA(2),SA(3) EQUAL ZERO. LOAD MQ WITH F6R00870
CLA DATA5 TEST FOR NOW-ZERO TAG OR RELATIVE ADDRESS. F6R00880
TNZ IN446 NOT EQUAL ZERO. GO TO IN446 F6R00890
CLA E0777 RA EQUAL ZERO. TEST FOR NON-ZERO DECREMENT. F6R00900
TNZ IN320 NOT ZERO, GO TO IN320 F6R00910
CAL DT713 ZERO, OR A BLANK TO RT-HAND END OF E1004. F6R00920
ORS E1004 F6R00930
TRA IN367 F6R00940
IN301 CAS DATA8 TEST IF SA(1)=16. F6R00950
TRA IN313 GREATER THEN 16(TRUE SYMBOL). GO TO IN313. F6R00960
TSX 4,4 EQUAL IS ERROR. F6R00970
TSX SUB1,1 LESS THEN 16 (TIV ENTRY TYPE). GO TO SUB1. F6R00980
LRS 30 RETURN FROM SUB1. F6R00990
RQL 1 F6R01000
TRA IN313 F6R01010
IN310 TSX SUB2,1 INTERNAL FORMULA NO. TYPE. F6R01020
PXD F6R01030
LGL 6 F6R01040
IN313 ORS E1004 F6R01050
STQ E1000 F6R01060
CAL DT713 F6R01070
ORS E1000 F6R01080
LDQ E1000 F6R01090
IN320 CAL IN313 F6R01100
TSX IN403,1 F6R01110
CLA DATA5 SELECT RELATIVE ADDRESS. F6R01120
ARS 18 F6R01130
TZE IN335 RA EQUAL ZERO, GO TO IN335 F6R01140
LDQ DATA6 RA NOT EQUAL ZERO, LOAD MQ WITH BLANKS AND F6R01150
TSX IN422,1 GO TO IN422 F6R01160
CLA DATA5 SET ACC. EQUAL RA. F6R01170
TPL IN333 IF RA POSITIVE, GO TO IN333. F6R01180
CAL DT714 IF RA NEGATIVE, SELECT OCTAL 40 (MINUS) F6R01190
TRA IN334 AND GO TO IN334. F6R01200
IN333 CAL DATA8 SELECT OCTAL 20 (PLUS) F6R01210
IN334 TSX IN416,1 F6R01220
IN335 CLA DATA5 SET ACC. EQUAL RA. ANA OCTAL 77777 F6R01230
ANA DATA1 F6R01240
TNZ IN344 IF NOT ZERO, GO TO IN344. F6R01250
CLA E0777 ZERO. TEST IF E0777 EQUAL ZERO. F6R01260
TZE IN363 IF ZERO, GO TO IN363. F6R01270
LDQ DT711 NOT ZERO, LOAD MQ WITH 0 IN 1ST CHARAC, REST F6R01280
TRA IN352 AND GO TO IN 352 F6R01290
IN344 LDQ DT710 F6R01300
CAS DT722 F6R01310
TRA IN351 F6R01320
TRA IN351 F6R01330
LDQ DATA6 F6R01340
IN351 TSX IN422,1 F6R01350
IN352 CLA DT712 F6R01360
TSX IN416,1 F6R01370
CLA E0777 F6R01380
TZE IN363 F6R01390
ARS 18 F6R01400
LDQ DATA6 F6R01410
TSX IN422,1 F6R01420
CLA DT712 F6R01430
TSX IN416,1 F6R01440
IN363 PXD 6 F6R01450
LDQ DATA6 F6R01460
LGL 36,2 F6R01470
IN366 ORS * F6R01480
IN367 WTD 2 F6R01490
LXA IN363,1 F6R01500
IN371 CPY E1011,1 F6R01510
TIX IN371,1,1 F6R01520
IOD F6R01530
LXD ADD08,1 F6R01540
TXI ADD06,1,4 F6R01550
ADD06 TXL IN207,1,* F6R01560
LXD ADD02,2 F6R01570
ADD08 TXI ADD03,0,* F6R01580
IN401 TXL IN412,2,30 IF SHIFT LESS THEN OR EQUAL 30, GO TO SELECT F6R01590
CAL IN417 SHIFT GREATER THEN 30. PREPARE TO MODIFY ADDRES F6R01600
IN403 ADD DT723 COMPUTE ADDRESS FOR STORING WORD. F6R01610
STA IN417 F6R01620
STA IN366 F6R01630
STA IN410 F6R01640
PXD CLEAR ACC. F6R01650
IN410 SLW * STORE ZERO IN WORD. F6R01660
PDX 0,2 SET XR2 EQUAL TO ZERO F6R01670
IN412 LGL 6 SELECT CHARACTER F6R01680
CAS DT713 IS CHARACTER BLANK. F6R01690
TRA IN416 NO. F6R01700
TRA 1,1 YES, RETURN TO PROGRAM F6R01710
IN416 ALS 30,2 NO, SHIFT CHARACTER F6R01720
IN417 ORS * F6R01730
PXD F6R01740
TXI IN401,2,6 ADJUST XR2 SHIFT AND GO TO IN401. F6R01750
IN422 STQ E1002 F6R01760
SXD DT772,1 F6R01770
IN424 LRS 35 F6R01780
PDX 0,1 F6R01790
SLW E1001 F6R01800
IN427 DVP DT721 F6R01810
ALS 0,1 F6R01820
ORS E1001 F6R01830
STQ E1000 F6R01840
CLA E1000 F6R01850
TZE IN437 F6R01860
CLM 0 F6R01870
TXI IN427,1,-6 F6R01880
IN437 CAL E1001 F6R01890
LDQ E1002 F6R01900
LGL 1 F6R01910
IN442 LDQ E1002 F6R01920
LRS 6,1 F6R01930
LXD DT772,1 F6R01940
TRA 1,1 F6R01950
IN446 ARS 18 F6R01960
TZE IN320 F6R01970
TSX IN422,1 F6R01980
CLA DATA5 F6R01990
TPL IN455 F6R02000
CAL DT714 F6R02010
TRA IN457 F6R02020
IN455 PXD F6R02030
LGL 6 F6R02040
IN457 ORS E1004 F6R02050
CAL IN313 F6R02060
TSX IN403,1 F6R02070
TRA IN335 F6R02080
ADD15 LDQ DATA4 F6R02090
CAL DATA8 F6R02100
TQP IN470 F6R02110
ADD DATA8 F6R02120
LRS 0 F6R02130
IN470 ORS E1004 F6R02140
ALS 3 F6R02150
LGL 3 F6R02160
ALS 3 F6R02170
LGL 3 F6R02180
ALS 3 F6R02190
LGL 3 F6R02200
ALS 3 F6R02210
LGL 3 F6R02220
ALS 3 F6R02230
LGL 3 F6R02240
ALS 3 F6R02250
LGL 3 F6R02260
SLW E1005 F6R02270
ALS 3 F6R02280
LGL 3 F6R02290
ALS 3 F6R02300
LGL 3 F6R02310
ALS 3 F6R02320
LGL 3 F6R02330
ALS 3 F6R02340
LGL 3 F6R02350
ALS 3 F6R02360
LGL 3 F6R02370
ALS 3 F6R02380
LGL 3 F6R02390
SLW E1006 F6R02400
TRA IN367 F6R02410
ADD14 CLA DATA4 F6R02420
SUB DT717 F6R02430
TNZ IN532 F6R02440
CAL DAT10 F6R02450
SLW E1004 F6R02460
TRA ADD15 F6R02470
IN532 CAL DT723 F6R02480
ORS E1004 F6R02490
CAL DATA4 F6R02500
SLW E1005 F6R02510
CAL DATA6 F6R02520
SLW E1006 F6R02530
TRA IN367 F6R02540
SUB1 SXD DT703,1 SAVE XR1 FOR RETURN F6R02550
PAX 0,4 STORE CHARACTER IN XR4 F6R02560
SUB DATA7 IS CHARACTER *. F6R02570
TNZ IN550 NO, GO TO IN 550. F6R02580
CAL DT716 YES, SELECT *. F6R02590
LDQ DATA6 LOAD MQ WITH BLANKS. F6R02600
TRA IN313 GO TO IN 313. F6R02610
LIB2 TRA RPCH1 F6R02620
TRA ADD12 F6R02630
LIB3 BCD 100000$ F6R02640
LIB4 BCD 1$ F6R02650
LIB5 BCD 100000( F6R02660
LIB6 CAL DATA2 F6R02670
TRA ADD12 F6R02680
IN550 CAL DT770,4 SELECT APPROPRIATE NUMERIC OR ALPHABETIC F6R02690
ALS 6 CHARACTER. F6R02700
ORA DT771 FOLLOWED BY LEFT PARENTHESIS F6R02710
ALS 24 AND SHIFT INTO PROPER POSITION. F6R02720
SLW E1000 F6R02730
LXA IN565,3 F6R02740
RQL 12 F6R02750
PXD 0 F6R02760
LGL 3 TAG BITS INTO ACC. ADDRESS F6R02770
TNZ IN565 TAG BITS EQUAL ZERO. NO, GO TO IN565 F6R02780
IN562 TNX IN575,1,1 YES. IF FINISHED WITH WORD, GO TO IN 575 F6R02790
LGL 5 NOT FINISHED WITH WORD. TEST ADDRESS BITS F6R02800
TZE IN562 ADDRESS BITS ZERO. F6R02810
IN565 PAX 4,4 ADDRESS BITS NOT ZERO. F6R02820
CAL DT770,4 SELECT CHARACTER. F6R02830
TNX IN576,1,1 F6R02840
ALS 22,2 SHIFT INTO PROPER POSITION . F6R02850
ORS E1000 F6R02860
PXD F6R02870
LGL 5 F6R02880
TXI IN565,2,6 ADJUST SHIFT. F6R02890
IN575 CAL DT713 F6R02900
IN576 LDQ DATA6 F6R02910
LGL 22,2 F6R02920
ORA E1000 F6R02930
LXD DT703,1 F6R02940
TRA 1,1 F6R02950
SUB2 STO E1000 F6R02960
LGL 8 F6R02970
PXD 0 F6R02980
LRS 29 F6R02990
DVP DT721 F6R03000
TNZ IN612 F6R03010
CAL DT713 IF SUBSIDIARY NO. IS ZERO, SELECT A BLANK F6R03020
IN612 SLW E1002 F6R03030
LGL 36 F6R03040
SXD DT772,1 F6R03050
PAX 0,1 F6R03060
CAL IN756,1 SELECT ALPHABETIC CHARACTER. F6R03070
ALS 6 F6R03080
ORA E1002 F6R03090
LDQ DATA6 F6R03100
LGL 24 F6R03110
SLW E1002 F6R03120
CLA E1000 F6R03130
TRA IN424 F6R03140
ADD07 HTR 0 F6R03150
ADD01 WEF 2 F6R03160
REW 4 F6R03170
REW 2 F6R03180
RTB 1 F6R03190
TRA 4 F6R03200
DT703 HTR 0 F6R03210
DAT10 OCT 604623636000 F6R03220
DATA9 OCT 602223246000 F6R03230
DATA6 OCT 606060606060 F6R03240
DT707 OCT 336060606060 F6R03250
DT710 OCT 636060606060 F6R03260
DT711 OCT 006060606060 F6R03270
DT712 OCT 73 F6R03280
DT713 OCT 60 F6R03290
DT714 OCT 40 F6R03300
DATA8 OCT 20 F6R03310
DT716 OCT 54 F6R03320
DT717 OCT 777777777777 F6R03330
DATA7 OCT 17 F6R03340
DT721 OCT 12 F6R03350
DT722 OCT 5 F6R03360
DT723 OCT 1 F6R03370
DATA1 OCT 77777 F6R03380
DT725 OCT 71 F6R03390
OCT 70 F6R03400
OCT 67 F6R03410
OCT 66 F6R03420
OCT 65 F6R03430
OCT 64 F6R03440
OCT 63 F6R03450
OCT 62 F6R03460
DT735 OCT 51 F6R03470
OCT 50 F6R03480
OCT 47 F6R03490
OCT 46 F6R03500
OCT 45 F6R03510
OCT 44 F6R03520
OCT 43 F6R03530
OCT 42 F6R03540
OCT 41 F6R03550
OCT 31 F6R03560
OCT 30 F6R03570
OCT 27 F6R03580
OCT 26 F6R03590
OCT 25 F6R03600
OCT 24 F6R03610
OCT 23 F6R03620
OCT 22 F6R03630
IN756 OCT 21 F6R03640
OCT 11 F6R03650
OCT 10 F6R03660
OCT 7 F6R03670
OCT 6 F6R03680
OCT 5 F6R03690
OCT 4 F6R03700
OCT 3 F6R03710
OCT 2 F6R03720
OCT 1 F6R03730
DT770 OCT 0 F6R03740
DT771 OCT 34 F6R03750
DT772 HTR 0 F6R03760
DATA2 HTR 0 F6R03770
DATA3 HTR 0 F6R03780
DATA4 HTR 0 F6R03790
DATA5 HTR 0 F6R03800
E0777 HTR 0 F6R03810
E1000 HTR 0 F6R03820
E1001 HTR 0 F6R03830
E1002 HTR 0 F6R03840
E1003 HTR 0 F6R03850
E1004 HTR 0 F6R03860
E1005 HTR 0 F6R03870
E1006 HTR 0 F6R03880
E1007 HTR 0 F6R03890
E1010 HTR 0 F6R03900
E1011 HTR 0 F6R03910
HTR 0 F6R03920
HTR 0 F6R03930
HTR 0 F6R03940
E1015 HTR 0 F6R03950
REC BES 100 F6R03960
RPCH1 LLS 6 F6R03961
SUB LIB3 F6R03962
TZE LIB2A F6R03963
CAL LIB4 SINGLE DOLLAR SIGN F6R03964
TRA ADD12 F6R03965
LIB2A CAL DOL2 DOUBLE DOLLAR SIGN. F6R03966
TRA ADD12 F6R03967
DOL2 BCD 1$$ F6R03968
REC01 SYN REC-4 F6R03979
RECO2 SYN REC-3 F6R03980
RECO3 SYN REC-2 F6R03990
RECOR SYN REC-1 F6R04000
WST 10,1
END F6R04001
REM F6R04011
REM ************* FORTRAN II SECTION SIX ************************F6S00010
REM FORTRAN 2 RECORD 005 - ON-LINE PRINT. F6S00011
REM F6S00012
REM MODIFICATIONS TO TPH1 TO PRINT WITH F6S00020
REM SENSE SWITCH CHANGES F6S00030
ORG 136 F6S00040
REW 2 F6S00050
LXD FILES,1 F6S00060
CLA ONE F6S00070
CAS SW2 TEST SENSE SWITCH TWO. F6S00080
TRA LIB1 UP F6S00090
TRA ASKER DOWN F6S00100
SWT 2 F6S00110
LIB1 TNX CARDS,1,1 UP, ANY FILES TO DO. GO RETURN TO LOADER IF NOT F6S00120
ASKER CLA ONE SWITCH 2 DOWN (OR UP BUT FILES TO DO) F6S00130
CAS SW3 TEST SENSE SWITCH THREE. F6S00140
TRA FILES UP, GO TO RETURN TO LOADER F6S00150
TRA LIB2 DOWN F6S00160
SWT 3 F6S00170
FILES TXI CARDS,,3 UP, GO RETURN TO LOADER F6S00180
LIB2 SXD COUNT,1 SWITCH THREE DOWN. F6S00190
WPR TO PRINT FILE OF TAPE TWO. F6S00200
SPR 1 F6S00210
COUNT TXI PRINT F6S00220
PARTS LXD COUNT,1 F6S00230
TIX ASKER,1,1 F6S00240
CARDS RTB 1 RETURN TO LOADER F6S00250
TRA 4 F6S00260
ME8 HTR 5 F6S00270
PRINT RTT F6S00280
NOP F6S00290
ME9 LXD ME8,4 F6S00300
I113 LXD I117,2 SET RECORD LENGTH EQUAL 20 F6S00310
SLN 1 TURN ON SENSE LIGHT 1 F6S00320
RTD 2 SELECT TAPE TWO IN BCD MODE F6S00330
I116 CPY D65,2 AND COPY RECORD. F6S00340
I117 TXL I132,,20 F6S00350
TRA PARTS END OF FILE. F6S00360
I121 TXI I122,2,1 F6S00370
I122 PXD 0,2 F6S00380
RTT TEST TAPE CHECK. F6S00390
TXL I134,0,0 ERROR. F6S00400
I125 ADD I131 PRINT THIS RECORD. F6S00410
STD I130 F6S00420
TSX I143,4 F6S00430
I130 HTR D41+1 F6S00440
I131 TXL ME9,0,D65 F6S00450
I132 TIX I116,2,1 NEXT WORD BUT NO F6S00460
TXL I122,0,0 MORE THEN 20. F6S00470
I134 TIX I136,4,1 TEST FOR ANOTHER TRY. F6S00480
TSX 4,4 F6S00490
I136 BST 2 TRY AGAIN. F6S00500
TXL I113,0,0 F6S00510
I143 CLA 1,4 SUBSTITUTE CODING. F6S00520
STD I302 F6S00530
ARS 18 F6S00540
ADD I302 F6S00550
STA I161 F6S00560
STA I211 F6S00570
SUB 1,4 F6S00580
SXD I302,4 F6S00590
PAX 0,4 F6S00600
SXD I155,4 F6S00610
I155 TXH 0,0,* F6S00620
WPR SELECT PRINTER F6S00630
CLA I301 FIND LAST NON-BLANK GROUP. F6S00640
LXD I224,4 F6S00650
I161 CAS *,4 F6S00660
TXI I165,4,-1 F6S00670
I163 TXI I161,4,1 F6S00680
TXI I165,4,-1 F6S00690
I165 SXD I230,4 STORE END TEST. F6S00700
SXD I242,4 F6S00710
SXD I172,4 F6S00720
SXD I271,4 F6S00730
LXD I155,4 F6S00740
I172 TNX I176,4 F6S00750
TXL I175,4,12 F6S00760
SPR 8 FIRST CYCLE. F6S00770
I175 LXD I155,4 INITIALIZE GROUP COUNT. F6S00780
I176 LXA I203,2 INITIALIZE LEFT SETUP. F6S00790
LXD I245,1 F6S00800
CLA ONE F6S00810
CAS SW4 F6S00820
TRA I201 F6S00830
TRA LIB5 F6S00840
SWT 4 F6S00850
I201 TXL I203,0,* F6S00860
LIB5 NOP F6S00870
I203 PXD F6S00880
I204 SLW D41,1 CLEAR CARD IMAGE. F6S00890
SLW D21,1 F6S00900
TIX I204,1,1 F6S00910
I207 CAL I303 INITIALIZE COLUMN INDICATOR. F6S00920
I210 SLW 0 F6S00930
I211 LDQ *,4 OBTAIN GROUP. F6S00940
SXD I201,4 STORE GROUP COUNT. F6S00950
LXA I215,4 SET CHARACTER COUNT. F6S00960
I214 PXD F6S00970
I215 LGL 6 F6S00980
PAX 0,1 F6S00990
CAL 0 POSITION COLUMN INDICATOR. F6S01000
ARS 6,4 F6S01010
TIX I245,1,16 TEST FOR DIGIT. F6S01020
TXH I250,1,15 TEST FOR Y-Z ONE F6S01030
ORS D36,3 STORE DIGIT. F6S01040
I224 TIX I214,4,1 COUNT CHARACTERS. F6S01050
I225 ARS 1 SHIFT AND TEST COLUMN. F6S01060
LXD I201,4 RESTORE GROUP COUNT. F6S01070
TXI I230,4,-1 COUNT GROUPS. F6S01080
I230 TXL I232,4 TEST FOR LAST NON-BLANK GROUP. F6S01090
TNZ I210 TEST FOR END OF ROW. F6S01100
I232 CAL D23,2 FORM TRUE 8,4 F6S01110
ORS D26,2 AND 3 ROWS AND F6S01120
ORS D33,2 MOVE 8,4 AND 8,3 F6S01130
SLW D24,2 ROWS. F6S01140
CAL D22,2 F6S01150
ORS D26,2 F6S01160
ORS D32,2 F6S01170
SLW D23,2 F6S01180
I242 TXL I265,4 TEST FOR END. F6S01190
TXH I265,2,15 TEST FOR RIGHT HALF. F6S01200
TXI I207,2,16 INITIALIZE RIGHT HALF. F6S01210
I245 TIX I253,1,16 TEST FOR 16/CH/32 F6S01220
TXH I256,1,15 TEST FOR X-ZONE F6S01230
ORS D36,3 STORE DIGIT. F6S01240
I250 ORS D40,2 STORE Y-ZONE. F6S01250
TIX I214,4,1 COUNT CHARACTERS. F6S01260
I252 TXL I225 OBTAIN NEXT GROUP. F6S01270
I253 TIX I261,1,16 TEST FOR 32/CH/48. F6S01280
TXH I224,1,15 TEST FOR BLANK. F6S01290
ORS D36,3 STORE DIGIT. F6S01300
I256 ORS D37,2 STORE X-ZONE. F6S01310
TIX I214,4,1 COUNT CHARACTERS. F6S01320
I260 TXL I225 OBTAIN NEXT GROUP. F6S01330
I261 ORS D36,2 STORE 0-ZONE. F6S01340
ORS D36,3 STORE DIGIT. F6S01350
TIX I214,4,1 COUNT CHARACTERS. F6S01360
TXL I225 F6S01370
I265 LXD I300,1 COPY LOOP. F6S01380
I266 CPY D41,1 CARD IMAGE COPIES. F6S01390
CPY D21,1 F6S01400
TIX I266,1,1 COUNT COPIES. F6S01410
I271 TXH I276,4 TEST FOR SECOND CYCLE. F6S01420
LXD I252,1 NO, RELOAD INDEX REGISTERS F6S01430
LXD I260,2 AND RETURN. F6S01440
LXD I302,4 F6S01450
TRA 2,4 F6S01460
I276 WPR SELECT PRINTER AGAIN. F6S01470
SPR 9 SECOND CYCLE. F6S01480
I300 TXL I176,0,12 CONVERT REST OF LINE F6S01490
I301 BCD 1 F6S01500
I302 HTR 1 F6S01510
I303 MZE F6S01520
BES 40 F6S01530
D21 HTR 0 F6S01540
D22 HTR 0 F6S01550
D23 HTR 0 F6S01560
D24 HTR 0 F6S01570
D25 HTR 0 F6S01580
D26 HTR 0 F6S01590
D27 HTR 0 F6S01600
D30 HTR 0 F6S01610
D31 HTR 0 F6S01620
D32 HTR 0 F6S01630
D33 HTR 0 F6S01640
D34 HTR 0 F6S01650
D35 HTR 0 F6S01660
D36 HTR 0 F6S01670
D37 HTR 0 F6S01680
D40 HTR 0 F6S01690
D41 HTR 0 F6S01700
D65 BES 20 F6S01710
AST 10,1
END F6S01720
REM ************* FORTRAN II SECTION SIX ************************F6T00010
REM FORTRAN 2 RECORD 007 - TAPE 3,7 TO 2,6. F6T00011
REM F6T00012
ZERO EQU 113
ONE EQU 114
SW1 EQU 127
SW2 EQU 128
SW3 EQU 129
SW4 EQU 130
REM DUMP TAPE2 ONTO TAPE6 AND TAPE3 ONTO F6T00020
REM TAPE7 IF BATCH COMPILING F6T00030
ORG 136 F6T00030
REW 2 REWIND TAPES TWO AND THREE. F6T00040
REW 3 F6T00050
LXD ZERO,1 F6T00060
SWT 6 TEST SENSE SWITCH 6 TO SEE IF BATCH COMPILING.F6T00070
TRA FINI UP. DO NOT DUMP TAPES BUT GO TO FINI. F6T00080
A11 RTT F6T00090
NOP F6T00100
A6 LXD SEVEN,4 SET READ ERROR COUNTER. F6T00110
A2 LXD ZERO,2 F6T00120
RTD 2 READ A RECORD OF TAPE TWO. F6T00130
A1 CPY REC-1,2 F6T00140
TXI A1,2,1 F6T00150
TRA EOF EOF F6T00160
ARS 255 F6T00170
ARS 255 F6T00180
RTT F6T00190
TRA ERROR ERROR F6T00200
TXI NEXT2,2,-1 F6T00210
NEXT2 SXD A4,2 SAVE WORD COUNT OF RECORD TO USE WHEN WRITING.F6T00220
LXD ZERO,2 ONTO TAPE6 F6T00230
WTD 6 WRITE RECORD JUST READ ONTO TAPE SIZE F6T00240
A3 CPY REC-1,2 F6T00250
TXI A4,2,1 F6T00260
A4 TXL A3,2,* F6T00270
IOD F6T00280
TRA A11 GO READ NEXT RECORD FROM TAPE TWO. F6T00290
SEVEN 0,0,5 F6T00300
ERROR BST 2 READ ERROR PROCEDURE. F6T00310
TIX A2,4,1 F6T00320
TSX 4,4 F6T00330
ER HTR ER F6T00340
EOF WEF 6 AT END OF FILE ONE TAPE TWO. WRITE END OF FILE.F6T00350
TXI A5,1,1 F6T00360
REM ON TAPE SIX. F6T00370
A5 TXH TEST2,1,1 TWO FILES DONE. YES, GO TEST SWITCH TWO. F6T00380
RTD 2 NO F6T00390
TRA A6 F6T00400
TAPE7 CLA ONE TEST SENSE SWITCH ONE. F6T00410
CAS SW1 F6T00420
TRA EOF3+1 F6T00430
TRA A7 F6T00440
SWT 1 F6T00450
TRA EOF3+1 F6T00460
A7 LXD SEVEN,4 DOWN. SET READ ERROR COUNTER. F6T00470
A12 LXD ZERO,2 ONTO TAPE7 F6T00480
RTB 3 READ A RECORD FROM TAPE THREE F6T00490
A8 CPY REC-1,2 F6T00500
TXI A8,2,1 F6T00510
TRA EOF3 EOF OF FILE. F6T00520
ARS 255 F6T00530
ARS 255 F6T00540
RTT F6T00550
TRA ERR3 ERROR. F6T00560
TXI NEXT1,2,-1 F6T00570
NEXT1 SXD A10,2 SAVE WORD COUNT OF RECORD. F6T00580
LXD ZERO,2 F6T00590
WTB 7 WRITE THE RECORD ONTO TAPE SEVEN. F6T00600
A9 CPY REC-1,2 F6T00610
TXI A10,2,1 F6T00620
A10 TXL A9,2,* TEST END OF RECORD. F6T00630
IOD F6T00640
RTT F6T00650
NOP F6T00660
TRA A7 GO READ NEXT RECORD. F6T00670
ERR3 BST 3 F6T00680
TIX A12,4,1 READ ERROR PROCEDURE. F6T00690
TSX 4,4 F6T00700
ERR4 HTR ERR4 F6T00710
EOF3 WEF 7 AT EOF ON 3, WRITE EOF ON 7. F6T00720
RTB 1 F6T00730
RTB 1 F6T00740
RTB 1 F6T00750
FINI REW 2 REWINDS TAPES 2,3, AND 4 AND F6T00760
REW 3 RETURNS TO LOADER, F6T00770
REW 4 F6T00780
RTB 1 F6T00790
TRA 4 F6T00800
TEST2 CLA ONE AFTER 2ND FILE FROM 2 TO 6, F6T00810
CAS SW2 TEST SENSE SWITCH 2. F6T00820
TRA TAPE7 F6T00830
TRA WT3 F6T00840
SWT 2 F6T00850
TRA TAPE7 UP. GO TEST SWITCH 1. F6T00860
WT3 LXD A5,1 DOWN. RESET INDEX REGISTER 1 TO 1. F6T00870
CLA WT3-1 CHANGE A5 TRANSFER ADDRESS TO TAPE7. F6T00880
STA A5 F6T00890
TRA A6 F6T00900
BSS 40 F6T00910
REC BES 500 F6T00920
END F6T00930
REM SUCCESSFUL COMPILATION RECORD F1SC0010
REM CONTROL IS RETURNED TO THIS RECORD AT THE COMPLETION OF A F1SC0020
REM SINGLE PROBLEM COMPILATION, OR AT THE END OF BATCH F1SC0030
REM COMPILATION. TAPE 1 IS REWOUND AND A LOAD BUTTON F1SC0040
REM SEQUENCE IS EXECUTED AT THE CARD READER. F1SC0050
REM AN INSTALLATION MAY CHANGE THIS RECORD TO SUIT ITS OWN F1SC0060
REM OPERATING NEEDS. F1SC0070
REM F1SC0080
REM MASTER RECORD CARD = F0090000. F1SC0090
ORG 24 F1SC0100
START LTM F1SC0110
REW 1 F1SC0120
RCD 209 CARD READER LOAD BUTTON SEQUENCE. F1SC0130
CPY 0 F1SC0140
TRA SECCPY F1SC0150
HTR 32767 CARD READER EMPTY, HALT. F1SC0160
SECCPY CPY 1 F1SC0170
TRA 0 F1SC0180
END 24 F1SC0190
REM SOURCE PROGRAM ERROR RECORD. THIS RECORD TESTS SL3 AND SL6 F1SPE010
REM TO DETERMINE IF A CARD READER LOAD BUTTON SEQUENCE IS TO BE F1SPE020
REM EXECUTED, OR IF THE NEXT PROGRAM IS TO BE COMPILED. SL3-ON F1SPE030
REM IF TAPE 5 CANNOT BE READ OR EOF ON TAPE 5 BEFORE END CARD F1SPE040
REM IS FOUND. SS6-ON IF IN BATCH COMPILE MODE. F1SPE050
REM F1SPE060
REM MASTER RECORD CARD = F0100000. F1SPE070
ORG 24 F1SPE080
LTM F1SPE090
SLT 1 SL1-ON IF PROGRAM TO BE RE-TRIED. F1SPE100
TRA SS6TST F1SPE110
TRA SKIPCM SKIP TO COMMON RECORD F1SPE120
SS6TST SWT 6 SS6-ON IF IN BATCH MODE. F1SPE130
TRA READCD SINGLE COMPILATION. READ CARD READER SEQ. F1SPE140
SLT 3 ON IF END CARD ERROR FOUND BY BATCH MONITOR F1SPE150
TRA SKIPBM SKIP TO BATCH MONITOR RECORD F1SPE160
REW 6 F1SPE170
READCD REW 4 F1SPE180
REW 3 F1SPE190
REW 2 F1SPE200
REW 1 F1SPE210
RCD 209 CARD READER LOAD BUTTON SEQUENCE. F1SPE220
CPY 0 F1SPE230
TRA SECCPY F1SPE240
HTR 32767 CARD READ EMPTY. F1SPE250
SECCPY CPY 1 F1SPE260
TRA 0 F1SPE270
SKIPCM RTB 1 SKIP OVER FILE 1 MARK TO BATCH MONITOR. F1SPE280
RTB 1 SKIP OVER BATCH MONITOR RECORD F1SPE290
SKIPBM RTB 1 AND/OR SKIP MACHINE ERROR RECORD F1SPE300
TRA 4 TO 1-CS TO READ NEXT RECORD F1SPE310
END 24 F1SPE320
REM MONITOR PROGRAM FOR BATCH COMPILATION F1BM0010
REM MASTER RECORD CARD F0120000 F1BM0020
ORG 24 F1BM0030
START SWT 6 TEST SW6, UP = SINGLE PROBLEM, F1BM0040
TRA ADD93+1 SKIP OVER MACHINE ERROR RECORD AND GO TO SEC1F1BM0050
SLN 0 TURN OFF LIGHTS F1BM0060
ADD01 LXA L(5),4 COUNTER FOR 5 TRIES TO READ TAPE 5. F1BM0070
CAL BLANKS F1BM0080
SLW BUFFER-1 F1BM0090
SLW BUFFER-2 F1BM0100
RTT TURN OFF INDICATOR F1BM0110
NOP F1BM0120
ADD015 RTD 5 F1BM0130
LXA L(14),3 ASSUME 14 WORDS PER RECORD F1BM0140
ADD02 CPY BUFFER,1 F1BM0150
TRA ADD03 F1BM0160
TRA ADD90 EOF F1BM0170
TRA ADD04 EOR F1BM0180
ADD03 TIX ADD02,1,1 F1BM0190
ADD04 ARS 255 F1BM0200
ARS 255 F1BM0210
RTT TEST TAPE INDICATOR F1BM0220
TRA ADD80 ON, PREPARE TO READ AGAIN F1BM0230
WTD 2 OFF, WRITE THIS RECORD ON TAPE 2 F1BM0240
ADD05 CPY BUFFER,2 F1BM0250
TIX ADD05,2,1 F1BM0260
IOD F1BM0270
RTT F1BM0280
NOP F1BM0290
ADD70 TXH ADD71,0 ROUTINE TO RESTORE PRINTER CARRIAGE AND PRINTF1BM0300
TSX PRINT,C FIRST STATEMENT OF CURRENT SOURCE PROGRAM F1BM0310
PZE RESTR,0,BUFFER F1BM0320
WPR F1BM0330
WPR F1BM0330
WPR F1BM0330
WPR F1BM0330
WPR F1BM0330
CLS ADD70 CHANGE TXH TO TXL F1BM0350
STO ADD70 F1BM0360
ADD71 SLN 1 SL1-ON IF AT LEAST 1 SOURCE STATMENT ON TP 2 F1BM0370
PXD 0,0 EXITS F1BM0380
LDQ BUFFER-14 TEST FOR COMMENT CARD F1BM0390
LGL 6 F1BM0400
SUB L(C) F1BM0410
TZE ADD01 YES, GO READ NEXT TAPE RECORD F1BM0420
LGL 24 DISCARD FORMULA NUMBER F1BM0430
PXD 0,0 F1BM0440
LGL 6 F1BM0450
TZE ADD06 TEST FOR CONTINUATION CARD F1BM0460
SUB BLANK F1BM0470
TNZ ADD01 YES, GO READ NEXT TAPE RECORD F1BM0480
ADD06 LXA L(12),1 THIS RECORD IS OF FIRST CARD OF F1BM0490
LXA L(7),2 FORTRAN STATEMENT. PREPARE TO TEST F1BM0500
CLA BUFFER FOR END(..,..,..,..,..) CARD F1BM0510
STO BUFFER-2 POSITION ENDMARK F1BM0520
LDQ BUFFER-13 F1BM0530
TSX SUB1,4 F1BM0540
SUB L(E) TEST FIRST CHAR FOR E F1BM0550
TNZ ADD01 F1BM0560
TSX SUB1,4 F1BM0570
SUB L(N) TEST SECOND CHAR FOR N F1BM0580
TNZ ADD01 F1BM0590
TSX SUB1,4 F1BM0600
SUB L(D) TEST THIRD CHAR FOR D F1BM0610
TNZ ADD01 F1BM0620
TSX SUB1,4 F1BM0630
SUB L(() TEST FOURTH CHAR FOR ( F1BM0640
TNZ ADD01 F1BM0650
TSX SUB1,4 F1BM0660
TSX SUB1,4 F1BM0670
SUB COMMA TEST SIXTH CHAR FOR , F1BM0680
TNZ ADD01 F1BM0690
TSX SUB1,4 F1BM0700
TSX SUB1,4 F1BM0710
SUB COMMA TEST EIGHTH CHAR FOR , F1BM0720
TNZ ADD01 F1BM0730
TSX SUB1,4 F1BM0740
TSX SUB1,4 F1BM0750
SUB COMMA TEST TENTH CHAR FOR , F1BM0760
TNZ ADD01 F1BM0770
ADD93 WEF 2 THIS IS END CARD, TERMINATE FILE F1BM0780
RTB 1 SKIP OVER MACHINE ERROR RECORD. F1BM0790
TRA 4 GO TO 1-CS FOR SECTION ONE F1BM0800
ADD80 BST 5 TAPE ERROR F1BM0810
TIX ADD015,4,1 F1BM0820
TSX PRINT,4 F1BM0830
TP5ERR,0,TP5END F1BM0840
SPROER SLN 3 SL3-ON IF TAPE CANNOT BE READ OR END CARD F1BM0850
BSTRTN BST 1 TROUBLE. F1BM0860
BST 1 BACKSPACE SYSTEM TAPE TO SOURCE PROGRAM ERRORF1BM0870
BST 1 RECORD. F1BM0880
TRA 4 CALL IN 1 - CS. F1BM0890
ADD90 SLT 1 IS THERE A PROBLEM TO BE COMPILED F1BM0900
TRA ADD91 FINISHED, REWIND ALL TYPES F1BM0910
TSX PRINT,4 F1BM0920
ENDCD,0,CDTEND F1BM0930
REW 5 F1BM0940
TRA SPROER F1BM0950
ADD91 BST 1 F1BM0970
REW 6 F1BM0974
REW 5 F1BM0976
TSX PRINT,C F1BM0980
REMA,0,ENDA F1BM0990
TSX PRINT,C F1BM1000
HTR RESTR,0,RESTR+1 F1BM1010
TQO *+1 F1BM1020
TRA BSTRTN F1BM1030
SUB1 PXD 0,0 SUBROUTINE TO BRING NEXT NON BLANK F1BM1040
TIX ADD50,2,1 CHAR OF BUFFER REGION TO AC. F1BM1050
LXA L(6),2 F1BM1060
LDQ BUFFER,1 F1BM1070
TXI ADD50,1,-1 F1BM1080
ADD50 LGL 6 F1BM1090
CAS BLANK F1BM1100
TRA ADD51 F1BM1110
TRA SUB1 F1BM1120
ADD51 CAS ENDMK F1BM1130
TRA 1,4 F1BM1140
TRA ADD01 F1BM1150
TRA 1,4 F1BM1160
RESTR BCD 11 F1BM1165
BUFFER BES 14 F1BM1170
OCT 777777777777 F1BM1180
ENDMK OCT 77 F1BM1190
L(3) 3 F1BM1200
L(5) 5 F1BM1210
L(6) 6 F1BM1220
L(7) 7 F1BM1230
L(12) 12 F1BM1240
L(14) 14 F1BM1250
L(C) BCD 100000C F1BM1260
BLANKS BCD 1 F1BM1270
BLANK BCD 100000 F1BM1280
L(E) BCD 100000E F1BM1290
L(N) BCD 100000N F1BM1300
L(D) BCD 100000D F1BM1310
L(() BCD 100000( F1BM1320
COMMA BCD 100000, F1BM1330
TP5ERR BCD 90 TAPE 5 CONTAINING SOURCE SUBPROGRAM READ 5 TIMES F1BM1340
BCD 9 UNSUCCESSFULLY. TAPE 5 NOW POSITIONED AT RECORD WHICH F1BM1350
BCD 3 CANNOT BE READ. F1BM1360
TP5END BSS 0 F1BM1370
ENDCD BCD 90 END CARD MISSING OR MISPUNCHED FOR LAST SUBPROGR F1BM1380
BCD 3AM BEING COMPILED. F1BM1390
CDTEND BSS 0 F1BM1400
REMA BCD 71 F1BM1410
BCD 6 THE LAST PROBLEM HAS BEEN PROCESSED. F1BM1420
ENDA BSS 0 F1BM1430
REM F1BM1450
REM PRINT CONTROL SUBROUTINE. F1BM1460
A EQU 1 F1BM1470
B EQU 2 F1BM1480
C EQU 4 F1BM1490
PRINT BSS 0 F1BM1500
RAN CLA 1,4 F1BM1510
STA RNA F1BM1520
ARS 18 F1BM1530
STO RNB F1BM1540
SXD RNC,4 F1BM1550
RN40 CLA RNA F1BM1560
ADD RND F1BM1570
CAS RNB F1BM1580
NOP F1BM1590
TRA RN50 F1BM1600
ALS 18 F1BM1610
ADD RNA F1BM1620
STO RAN10 F1BM1630
TSX WOT,C F1BM1640
RAN10 HTR F1BM1650
CLA RAN10 F1BM1660
ARS 18 F1BM1670
SUB RNE F1BM1680
STA RN20 F1BM1690
SUB RNE F1BM1700
STA RN30 F1BM1710
STA RNA F1BM1720
CLA BLNKS F1BM1730
RN20 STO F1BM1740
RN30 STO F1BM1750
TRA RN40 F1BM1760
RN50 CLA RNB F1BM1770
ALS 18 F1BM1780
ADD RNA F1BM1790
STO RN60 F1BM1800
TSX WOT,C F1BM1810
RN60 HTR F1BM1820
LXD RNC,C F1BM1830
TRA 2,C F1BM1840
RNA HTR F1BM1850
RNB HTR F1BM1860
RNC HTR F1BM1870
RND HTR 20 F1BM1880
RNE HTR 1 F1BM1890
REM F1BM1900
REM PRINT SUBROUTINE. F1BM1910
WOT SXD X1,1 F1BM1920
SXD X2,2 F1BM1930
CLA 1,4 PRINT ROUTINE F1BM1940
STA T5 X F1BM1950
STD X4 X F1BM1960
ARS 18 X F1BM1970
ADD X4 X F1BM1980
STA PR2 X F1BM1990
STA CI9 X F1BM2000
SUB 1,4 B-A+1 IN AC F1BM2010
TZE 2,4 F1BM2020
TMI 2,4 F1BM2030
SXD X4,4 F1BM2040
L11 PAX 11,4 F1BM2050
SXD PR6,4 F1BM2060
CAL WP INITIALIZE SWITCH F1BM2070
STO WP X F1BM2080
PR6 TXH T4 F1BM2090
T4 WPR F1BM2100
Z2 TXL S3 F1BM2110
OZ2 TXL F1BM2120
SP4 SPR 4 F1BM2130
TXL RPR+2 F1BM2140
S3 CLS WP SET SWITCH FOR MASKING F1BM2150
STO WP CHARACTER FROM TYPE WHEEL 1 F1BM2160
T5 CAL * OBTAIN FIRST CHARACTER F1BM2170
ARS 30 X F1BM2180
TZE SP4 DOUBLE SPACE IF ZERO F1BM2190
CAS YZONE TEST FOR SPACE SUPPRESS F1BM2200
TXL BK NO F1BM2210
TXL RPR+1 SUPPRESS SPACE F1BM2220
BK CAS BNK TEST FOR BLANK F1BM2230
TXL DIGF NO F1BM2240
TXL RPR+2 BLANK F1BM2250
DIGF SPR 10 SET CHANNEL SKIP F1BM2260
ANA MK MASK OUT ZONE F1BM2270
MK PAX 15,1 OBTAIN SPR COMBINATION F1BM2280
TXI N2,1,1 X F1BM2290
N2 TNX N3,1,8 X F1BM2300
SPR 8 X F1BM2310
N3 TNX N4,1,4 X F1BM2320
SPR 4 X F1BM2330
N4 TNX N5,1,2 X F1BM2340
SPR 2 X F1BM2350
N5 TNX RPR,1,1 X F1BM2360
SPR 1 X F1BM2370
RPR WPR F1BM2380
SPR 5 SUPPRESS SPACE F1BM2390
CLA BLNKS FIND LAST NON-BLANK GROUP F1BM2400
LXD CI4,4 X F1BM2410
PR2 CAS 0,4 X F1BM2420
TXI PR1,4,-1 X F1BM2430
TXI PR2,4,1 X F1BM2440
TXI PR1,4,-1 X F1BM2450
PR1 SXD CI6,4 STORE END TEST F1BM2460
SXD CI8,4 X F1BM2470
SXD PR8,4 X F1BM2480
SXD WP4,4 X F1BM2490
LXD PR6,4 X F1BM2500
PR8 TNX PR5,4 F1BM2510
TXL PR3,4,12 F1BM2520
SPR 8 FIRST CYCLE F1BM2530
PR3 LXD PR6,4 INITIALIZE GROUP COUNT F1BM2540
PR5 LXA PR7,2 INITIALIZE LEFT SETUP F1BM2550
LXD YZ1,1 CLEAR CARD IMAGE F1BM2560
PR7 PXD X F1BM2570
PR4 SLW LT,1 X F1BM2580
SLW RT,1 X F1BM2590
TIX PR4,1,1 X F1BM2600
CIR CAL COL1 INITIALIZE COLUMN INDICATOR F1BM2610
CI2 SLW COL X F1BM2620
CI9 LDQ 0,4 OBTAIN GROUP F1BM2630
SXD OZ2,4 STORE GROUP COUNT F1BM2640
LXA Q6,4 SET CHARACTER COUNT F1BM2650
CI1 PXD F1BM2660
Q6 LGL 6 F1BM2670
PAX 0,1 F1BM2680
CAL COL POSITION COLUMN INDICATOR F1BM2690
ARS 6,4 X F1BM2700
TIX YZ1,1,16 TEST FOR DIGIT F1BM2710
TXH YZ2,1,15 TEST FOR Y-ZONE F1BM2720
CI5 ORS D,3 STORE DIGIT F1BM2730
CI4 TIX CI1,4,1 COUNT CHARACTERS F1BM2740
CI3 ARS 1 SHIFT AND TEST COLUMN F1BM2750
LXD OZ2,4 RESTORE GROUP COUNT F1BM2760
TXI CI6,4,-1 COUNT GROUPS F1BM2770
CI6 TXL CI7,4 TEST FOR LAST NON-BLANK GROUP F1BM2780
TNZ CI2 TEST FOR END OF ROW F1BM2790
CI7 CAL 8.3,2 FORM TRUE 8.4 F1BM2800
ORS D-8,2 AND 3 ROWS AND F1BM2810
ORS D-3,2 MOVE 8.4 AND 8.3 F1BM2820
SLW 8.2,2 ROWS F1BM2830
CAL 8.4,2 FORM TRUE 8.4 F1BM2840
ORS D-8,2 X F1BM2850
ORS D-4,2 X F1BM2860
SLW 8.3,2 X F1BM2870
CI8 TXL WP,4 TEST FOR END F1BM2880
TXH WP,2,15 TEST FOR RIGHT HALF F1BM2890
TXI CIR,2,16 INITIALIZE RIGHT HALF F1BM2900
YZ1 TIX XZ1,1,16 TEST FOR 16/CH/32 F1BM2910
TXH XZ2,1,15 TEST FOR X-ZONE F1BM2920
ORS D,3 STORE DIGIT F1BM2930
YZ2 ORS Y,2 STORE Y-ZONE F1BM2940
TIX CI1,4,1 COUNT CHARACTERS F1BM2950
X1 TXL CI3 OBTAIN NEXT GROUP F1BM2960
XZ1 TIX OZ1,1,16 TEST FOR 32/CH/48 F1BM2970
TXH CI4,1,15 TEST FOR BLANK F1BM2980
ORS D,3 STORE DIGIT F1BM2990
XZ2 ORS X,2 STORE X-ZONE F1BM3000
TIX CI1,4,1 COUNT CHARACTERS F1BM3010
X2 TXL CI3 OBTAIN NEXT GROUP F1BM3020
OZ1 ORS Z,2 STORE 0-ZONE F1BM3030
ORS D,3 STORE DIGIT F1BM3040
TIX CI1,4,1 COUNT CHARACTERS F1BM3050
TXL CI3 F1BM3060
WP TXH WP9 INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL F1BM3070
TXL WP7 NO PROGRAM F1BM3080
WP9 LXD WP2,1 MASK OUT FIRST COL. OF CARD IMAGE F1BM3090
CAL MK2 X F1BM3100
ANS ANS LT,1 X F1BM3110
TIX ANS,1,1 X F1BM3120
WP7 LXD Z2,1 COPY LOOP F1BM3130
CRAN CPY LT-12,1 F1BM3140
CPY RT-12,1 X F1BM3150
TXI T2,1,-1 F1BM3160
T2 TXH CRAN,1,-12 F1BM3170
CAL WP RESET SWITCH FOR SECOND CYCLE F1BM3180
STO WP X F1BM3190
WP4 TXH WP5,4 F1BM3200
LXD X1,1 NO, RELOAD INDEX REGISTERS AND RETURN F1BM3210
LXD X2,2 X F1BM3220
WT2 LXD X4,4 X F1BM3230
L2 TRA 2,4 X F1BM3240
RPR2 WPR F1BM3250
TXL PR2-2 F1BM3260
WP5 WPR F1BM3270
SPR 9 SECOND CYCLE F1BM3280
WP2 TXL PR5,0,12 CONVERT REST OF LINE F1BM3290
BLNKS BCD 1 F1BM3300
X4 HTR F1BM3310
YZONE OCT 20 F1BM3320
BNK OCT 60 F1BM3330
MK2 OCT 377777777777 F1BM3340
COL1 MZE F1BM3350
COL BSS 1 F1BM3360
RT BES 16 F1BM3370
8.5 BSS 1 F1BM3380
8.4 BSS 1 F1BM3390
8.3 BSS 1 F1BM3400
8.2 BSS 1 F1BM3410
D BES 9 F1BM3420
Z BSS 1 F1BM3430
X BSS 1 F1BM3440
Y BSS 1 F1BM3450
LT SYN Y+1 F1BM3460
8.4L SYN LT-14 F1BM3470
8.4R SYN RT-14 F1BM3480
BSS 27 F1BM3490
END 24 F1BM3500
REM MACHINE ERROR RECORD. THIS RECORD HALTS TO PERMIT OPERATOR F1ME0010
REM INTERVENTION. IF THE SAME SOURCE PROGRAM IS TO BE RE-TRIED, F1ME0020
REM OPERATOR SHOULD PRESS START. IF NEXT SOURCE PROGRAM IS TO BEF1ME0030
REM COMPILED, THE OPERATOR MUST MANUALLY TURN SL1-ON, AND PRESS F1ME0040
REM START. F1ME0050
REM F1ME0060
REM MASTER RECORD CARD = F0130000. F1ME0070
ORG 24 F1ME0080
HTR NEXTIN F1ME0090
NEXTIN SLT 1 F1ME0100
TRA 4 GO TO 1 - CS TO REPEAT PROBLEM. F1ME0110
BST 1 BACKSPACE OVER MACHINE ERROR RECORD. F1ME0120
BST 1 BACKSPACE OVER BATCH MONITOR F1ME0130
TRA 4 TO 1-CS TO READ NEXT RECORD. F1ME0160
END 24 F1ME0170
REM PST
REM APPLIED PROGRAMMING, IBM , L. MAY AND A. S. NOBLE JR.
REM 704 FORTRAN II / SECTONR ONE. 29 OCT 58
REM
REM SECTION 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIC4F10000
REM FORMULAS, COMPILES THE OBJECT (OUTPUT) INSTRUCTIONS. FOR 4F10001
REM NONARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT, DOES A 4F10002
REM PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION 4F10003
REM IN TABLES. 4F10004
REM THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE= 4F10005
REM COMMON, STATES A, B, C, AND D. COMMON REMAINS IN LOWER MEMORY4F10006
REM THROUGHTOUT SECTION1. STATE A READS IN AND CLASSIFIES ALL 4F10007
REM STATEMENTS, AND TREATS NONARITHMETIC STATEMENTS. STATES B, 4F10008
REM C, AND D TREAT ARITHMETIC FORMULAS. 4F10009
REM 4F10010
REM SECTION 1 / COMMON = 4F10011
REM 704 FORTRAN MASTER RECORD CARD / COMMON = F0140000. 4F10012
ORG 0 4F100121
PZE ORGCOM,,1TOCS 4F100122
PZE ORGA-1 4F100123
REM 4F10013
REM PART 1 / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS= 4F10014
REM EIFNO AND SENSE SWITCH SIMULATORS. 4F10015
REM TAPE TABLE BUFFERS. 4F10016
REM TAPE TABLE PARAMETERS - INTET. 4F10017
REM DRUM TABLE PARAMETERS. 4F10018
REM FORSUB COUNT AND BUFFER. 4F10019
REM CIB BUFFER AND PARAMETERS. 4F10020
REM REMAINING WORKING STORAGE. 4F10021
REM PART 2 / CONSTANTS USED BY SECTION ONE. 4F10022
REM PART 3 / SUBROUTINES USED BY SECTION ONE= 4F10023
REM NAME FUNCTION 4F10024
REM C0150,2 SCAN, AND CONVERT NUMERICS. 4F10025
REM C0160,2 SCAN CHARACTERS. 4F10026
REM C0180,2 CONVERT NUMERICS. 4F10027
REM C0190X,4 INITIALIZE C0190 TO 1ST WORD OF F. 4F10028
REM C0390,4 INSERT CHARACTER. 4F10029
REM C0190,4 OBTAIN NEXT NON-BLANK CHAR IN AC. 4F10030
REM CIT00,4 COMPILED INSTRUCTION TABLE ENTRIES.4F10031
REM DIM.SR,4 DIMENSION TABLE SEARCH. 4F10032
REM DRTABS(,4) DRUM TABLE ENTRIES. 4F10033
REM GETIFN,4 GET INTERNAL FORMULA NUMBER. 4F10034
REM JIF(GIF),4 JUMPS (GETS) IFN IN SL AND TL. 4F10035
REM MTR000 MONITOR STATES FROM DRUM. 4F10036
REM RA000,4 COMPUTER RELATIVE ADDRESS. 4F10037
REM RDRX,4 READ DRUM INTO BUFR. 4F10038
REM SR6DC1,1 CONVERT 6 BCD DIGITS TO 1 BINARY. 4F10039
REM SS000,4 SCAN AND PROCESS SUBSCRIPTS. 4F10040
REM SUBX00,4 ADD BLANKS TO SUBROUTINE NAMES. 4F10041
REM TESTFX,1 TEST FOR FIXED OR FLOATING POINT. 4F10042
REM TEST..,4 TEST CHARACTER IN AC. 4F10043
REM TET00,1 TAPE TABLE ENTRIES. 4F10044
REM 4F10045
REM DIAG DIAGNOSTIC CALLERS. 4F10046
REM 4F10047
REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING= 4F10048
REM 4F10049
REM ** IN THE ADDRES, TAG, OR DECREMENT OF AN INSTRUCTION 4F10050
REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 4F10051
REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 4F10052
REM THIS LOGICAL BLOCK OR SUBROUTINE. 4F10053
REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 4F10054
REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). 4F10055
REM 4F10056
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10057
REM 4F10058
REM COMMON/1-WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS= 4F10059
ORGCOM ORG 24 4F10060
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10061
REM 4F10062
REM EIFNO AND SENSE SWITCH SIMULATORS. 4F10063
EIFNO PZE **,,** EXTERNAL,,INTERAL FORMULA NUMBER. 4F10064
ENDI1 PZE 2 SIMULATOR FOR SENSE SWITCH 1. 4F10065
ENDI2 PZE 2 SIMULATOR FOR SENSE SWITCH 2. 4F10066
ENDI3 PZE 2 SIMULATOR FOR SENSE SWITCH 3. 4F10067
ENDI4 PZE 2 SIMULATOR FOR SENSE SWITCH 4. 4F10068
ENDI5 PZE 2 SIMULATOR FOR SENSE SWITCH 5. 4F10069
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10070
REM 4F10071
REM BUFFERS USED BY TET00 FOR THE TAPE TABLES. 4F10072
TEIFNO BSS 10 EXTERNAL,,INTERNAL FORMULA NUMBERS.4F10073
TDO BSS 10 DO STATEMENTS. 4F10074
TIFGO BSS 10 IF AND GO TO STATEMENTS. 4F10075
TRAD BSS 10 IF AND GO TO TRANSFER ADDRESSES. 4F10076
FORTAG BSS 10 INDEXES TO TAU AND SIGMA TABLES. 4F10077
FORVAR BSS 10 RIGHT - NON-SUB. FX. PT. VARIABLES.4F10078
FORVAL BSS 10 LEFT - NON-SUB. FX. PT. VARIABLES.4F10079
FRET BSS 10 FREQUENCY STATEMENTS. 4F10080
EQUIT BSS 10 EQUIVALENCE STATEMENTS. 4F10081
CLOSUB BSS 10 NAMES OF SUBROUTINES. 4F10082
FORMAT BSS 10 FORMAT STATEMENTS. 4F10083
SUBDEF BSS 10 SUBROUTINE DEFINITION STATEMENTS. 4F10084
COMMON BSS 10 UPPER MEMORY STORAGE STATEMENTS. 4F10085
HOLARG BSS 10 HOLLERITH ARGUMENTS FOR SUBROUTINE.4F10086
NONEXC BSS 10 NON-EXECUTED STATEMENTS. 4F10087
TSTOPS BSS 10 STOP STATEMENTS. 4F10088
CALLFN BSS 10 1ST / LAST IFN FOR CALL STATEMENTS.4F10089
FMTEFN BSS 10 TABLE OF FORMAT EXTERNAL FORMNOS. 4F10090
REM END OF THE TAPE TABLE BUFFERS. 4F10091
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10092
REM 4F10093
REM INTET/ TABLE PARAMETERS USED BY TET00, WHERE 4F10094
REM O = ORIGIN OF TABLE BUFFER, 4F10095
REM B = BUFFER CAPACITY, 4F10096
REM A = ADDRESS OF TABLE ENTRY, 4F10097
REM E = ENTRY LENGTH IN WORDS, 4F10098
REM C = COUNT OF BLOCKS PUT ON TAPE, 4F10099
REM P = PORTION OF BUFFER THAT IS FULL,4F10100
REM 4F10101
INTET PZE TEIFNO,,10 00) 0,,B. 4F10102
PZE EIFNO,,1 A,,E. 4F10103
PZE **,,** C,,P. 4F10104
REM 4F10105
PZE TDO,,10 01) 0,,B. 4F10106
PZE 1C,,5 A,,E. 4F10107
PZE **,,** C,,P. 4F10108
REM 4F10109
PZE TIFGO,,10 02) 0,,B. 4F10110
PZE 1C,,2 A,,E. 4F10111
PZE **,,** C,,P. 4F10112
REM 4F10113
PZE TRAD,,10 03) 0,,B. 4F10114
PZE 1G,,1 A,,E. 4F10115
PZE **,,** C,,P. 4F10116
REM 4F10117
PZE FORTAG,,10 04) 0,,B. 4F10118
PZE G,,1 A,,E. 4F10119
PZE **,,** C,,P. 4F10120
REM 4F10121
PZE FORVAR,,10 05) 0,,B. 4F10122
PZE G,,2 A,,E. 4F10123
PZE **,,** C,,P. 4F10124
REM 4F10125
PZE FORVAL,,10 06) 0,,B. 4F10126
PZE G,,2 A,,E. 4F10127
PZE **,,** C,,P. 4F10128
REM 4F10129
PZE FRET,,10 07) 0,,B. 4F10130
PZE 1G,,1 A,,E. 4F10131
PZE **,,** C,,P. 4F10132
REM 4F10133
PZE EQUIT,,10 08) 0,,B. 4F10134
PZE 1C,,2 A,,E. 4F10135
PZE **,,** C,,P. 4F10136
REM 4F10137
PZE CLOSUB,,10 09) 0,,B. 4F10138
PZE G,,1 A,,E. 4F10139
PZE **,,** C,,P. 4F10140
REM 4F10141
PZE FORMAT,,10 10) 0,,B. 4F10142
PZE G,,2 A,,E. 4F10143
PZE **,,** C,,P. 4F10144
REM 4F10145
PZE SUBDEF,,10 11) 0,,B. 4F10146
PZE 1G,,1 A,,E. 4F10147
SBDFCN PZE **,,** C,,P. 4F10148
REM 4F10149
PZE COMMON,,10 12) 0,,B. 4F10150
PZE 1G,,1 A,,E. 4F10151
PZE **,,** C,,P. 4F10152
REM 4F10153
PZE HOLARG,,10 13) 0,,B. 4F10154
PZE 1G,,1 A,,E. 4F10155
PZE **,,** C,,P. 4F10156
REM 4F10157
PZE NONEXC,,10 14) 0,,B. 4F10158
PZE EIFNO,,1 A,,E. 4F10159
PZE **,,** C,,P. 4F10160
REM 4F10161
PZE TSTOPS,,10 15) 0,,B. 4F10162
PZE EIFNO,,1 A,,E. 4F10163
PZE **,,** C,,P. 4F10164
REM 4F10165
PZE CALLFN,,10 16) 0,,B. 4F10166
PZE CALLNM,,1 A,,E. 4F10167
PZE **,,** C,,P. 4F10168
REM 4F10169
PZE FMTEFN,,10 17) 0,,B. 4F10170
PZE SET,,1 A,,E. 4F10171
PZE **,,** C,,P. 4F10172
REM 4F10173
BSS 3 EXPANSION SPACE INTET. 4F10174
REM END OF TAPE TABLE PARAMETERS. 4F10175
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10176
REM 4F10177
REM ....IX/ TABLE PARAMETERS USED BY DRTABS, WHERE 4F10178
REM ARG1 = 1ST LOCATION OF ARGUMENT, 4F10179
REM L = LENGTH OF ARGUMENT IN WORDS,4F10180
REM TDA = LOC. OF NEXT DRUM ENTRY, 4F10181
REM N = NO. OF ENTRIES ON DRUM, 4F10182
REM *** = TXL FOR ENTRY SUM TABLES, 4F10183
REM *** = TXH FOR BLOCK SUM TAB(FLCN),4F10184
REM FDA = LOC. OF 1ST DRUM ENTRY, 4F10185
REM K = BUFFER CAPACITY IN ENTRIES, 4F10186
REM DBL = K*(L+1) FOR ENTRY SUM TABLE,4F10187
REM DBL = K*L+1 FOR BLOCK SUM TABLE,4F10188
REM J = DRUM CAPACITY IN ENTRIES, 4F10189
REM I = 5 - DRUM NUMBER. 4F10190
REM 4F10191
PZE G+1,,1 FIXCON) ARG1+L,,L 4F10192
PZE FIXCON,,** TDA,,N 4F10193
TXLOP TXL FIXCON,,50*1 *** FDA,,K*L 4F10194
PZE 50*2,,100 DBL,,J 4F10195
FXCNIX TXI ALT,,5-2 TXI ALT,,I 4F10196
REM 4F10197
PZE G+1,,1 FLOCON) ARG1+L,,L 4F10198
PZE FLOCON,,** TDA,,N 4F10199
TXHOP TXH FLOCON,,50*1 *** FDA,,K*L 4F10200
PZE 50*1+1,,450 DBL,,J 4F10201
FLCNIX TXI ALT,,5-2 TXI ALT,,I 4F10202
REM 4F10203
PZE E+3+2,,2 TAU1 ) ARG1+L,,L 4F10204
PZE TAU1,,** TDA,,N 4F10205
TXL TAU1,,25*2 *** FDA,,K*L 4F10206
PZE 25*3,,100 DBL,,J 4F10207
TAU1IX TXI ALT,,5-4 TXI ALT,,I 4F10208
REM 4F10209
PZE E+3+4,,4 TAU2 ) ARG1+L,,L 4F10210
PZE TAU2,,** TDA,,N 4F10211
TXL TAU2,,12*4 *** FDA,,K*L 4F10212
PZE 12*5,,90 DBL,,J 4F10213
TAU2IX TXI ALT,,5-4 TXI ALT,,I 4F10214
REM 4F10215
PZE E+3+6,,6 TAU3 ) ARG1+L,,L 4F10216
PZE TAU3,,** TDA,,N 4F10217
TXL TAU3,,8*6 *** FDA,,K*L 4F10218
PZE 8*7,,75 DBL,,J 4F10219
TAU3IX TXI ALT,,5-4 TXI ALT,,I 4F10220
REM 4F10221
PZE E+11+1,,1 SIGMA1) ARG1+L,,L 4F10222
PZE SIGMA1+2,,1 TDA,,N 4F10223
TXL SIGMA1,,30,* *** FDA,,K*L 4F10224
PZE 30*2,,30 DBL,,J 4F10225
SIG1IX TXI ALT,,5-2 TXI ALT,,I 4F10226
REM 4F10227
PZE 1C+2,,2 DIM1 ) ARG1+L,,L 4F10228
PZE DIM1,,** TDA,,N 4F10229
ORGDM1 TXL DIM1,,0 *** FDA,,K*L 4F10230
PZE 0,,100 DBL,,J 4F10231
DIM1IX TXI DIMALT,,5-3 TXI ALT,,I 4F10232
REM 4F10233
PZE 1C+2,,2 DIM2 ) ARG1+L,,L 4F10234
PZE DIM2,,** TDA,,N 4F10235
ORGDM2 TXL DIM2,,0 *** FDA,,K*L 4F10236
PZE 0,,100 DBL,,J 4F10237
DIM2IX TXI DIMALT,,5-3 TXI ALT,,I 4F10238
REM 4F10239
PZE 1C+3,,3 DIM3 ) ARG1+L,,L 4F10240
PZE DIM3,,** TDA,,N 4F10241
ORGDM3 TXL DIM3,,0 *** FDA,,K*L 4F10242
PZE 0,,90 DBL,,J 4F10243
DIM3IX TXI DIMALT,,5-3 TXI ALT,,I 4F10244
REM END OF DRUM TABLE PARAMETERS. 4F10245
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10246
REM 4F10247
REM COUNT AND BUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES. 4F10248
BK BSS 1 FORSUB COUNTER. 4F10249
FORSUB BSS 100 NAMES AND DEGREES OF FUNCTIONS. 4F10250
REM END OF FUNCTION COUNT AND BUFFER. 4F10251
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10252
REM 4F10253
REM PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE. 4F10254
BS PZE ,,100 CIB CAPACITY (4 * 25). 4F10255
EC PZE ,,** ENTRY COUNT = NO. WORDS IN CIB. 4F10256
BBOX PZE ,,** 2S COMPLEMENT OF THE ENTRY COUNT. 4F10257
CIB BSS 100 COMPILED INSTRUCTION BUFFER. 4F10258
REM END OF CIT PARAMETERS AND BUFFER. 4F10259
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10260
REM 4F10261
REM ALL OF THE ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME. 4F10262
ORG 576 4F102625
ERASE BSS 5 COMMON WORKING STORAGE. 4F10263
1C BSS 5 COMMON WORKING STORAGE. 4F10264
1G BSS 1 COMMON WORKING STORAGE. 4F10265
2G BSS 1 COMMON WORKING STORAGE FOR STATE A.4F10266
3G BSS 1 4F10267
1H BSS 1 4F10268
2H BSS 1 4F10269
3LBAR BSS 1 STORAGE USED BY ARITHMETIC. 4F10270
ARERAS BSS 1 STORAGE USED BY ARITHMETIC. 4F10271
ARGCNT MZE 4,,1 ARGUMENT COUNTER USED BY C30,C32. 4F10272
ARGCTR BSS 1 STORAGE USED BY ARITHMETIC. 4F10273
CALLNM PZE **,,** 4F10274
CHSAVE BSS 1 WORKING STORAGE USED BY ROYCNV. 4F10275
DIMSAV BSS 1 WORKING STORAGE USED BY SS000. 4F10276
E BSS 14 WORKING STORAGE USED BY SS000. 4F10277
EPSM3 BSS 3 4F10278
EPS BSS 1 EPSILON - VARIABLE USED BY RA000. 4F10279
E1C BSS 1 COMMON WORKING STORAGE. 4F10280
EFN BSS 1 EXTERNAL FORMULA NUMBER (F-1). 4F10281
F BSS 111 ASSEMBLED STATEMENT REGION. 4F10282
FIRSTC BSS 1 USED BY SS000,TESTFX,C3000. 4F10283
FSNAME BSS 1 NAME OF FUNCTION. 4F10284
FT BSS 12 SOURCE PROGRAM INPUT BUFFER. 4F10285
G BSS 2 4F10286
GTAG BSS 1 VARIABLE USED BY IOT, RA. 4F10287
HOLCNT BCD 1H(0000 WORKING STORAGE USED BY C3300. 4F10288
I BSS 1 4F10289
LEFT BSS 3 STORAGE USED BY ARITHMETIC. 4F10290
LENGTH PZE **,,** 4F10291
NBAR BSS 1 STORAGE USED BY ARITHMETIC. 4F10292
N2 BSS 1 4F10293
OPNWRD BSS 1 ERASEABLE USED BY STATE D. 4F10294
PHI(I) PZE **,,** 4F10295
RAT PZE 8,,** VARIABLE USED BY IOT. 4F10296
RESIDU BSS 1 REMAINDER OF F-REGION WORD.(C0190) 4F10297
SET PON ** 4F10298
SL BSS 1 4F10299
SYMBOL BSS 1 WORKING STORAGE USED BY SS000. 4F10300
TL PZE 31*8,,** 4F10301
TLINE PZE ** VARIABLE USED BY IOT. 4F10302
REM END OF COMMON WORKING STORAGE, BUFFERS, AND PARAMETERS. 4F10303
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10304
REM 4F10305
REM COMMON/2-CONSTANTS USED BY SECTION ONE= 4F10306
REM 4F10307
TEN OCT 12 (1010) - CTEST-11 4F10308
ENDMK OCT 77 111111 - CTEST-10 4F10309
OPEN OCT 74 ( - CTEST-9 4F10310
COMMA OCT 73 , - CTEST-8 4F10311
CLOS OCT 34 ) - CTEST-7 4F10312
EQUAL OCT 13 = - CTEST-6 4F10313
11Z OCT 40 - - CTEST-5 4F10314
SLASH OCT 61 / - CTEST-4 4F10315
POINT OCT 33 . - CTEST-3 4F10316
12Z OCT 20 + - CTEST-2 4F10317
STAR OCT 54 * - CTEST-1 4F10318
CTEST BSS 0 ADDRESS USED FOR INDEXING ABOVE. 4F10319
REM 4F10320
L(0) BCD 1000000 0 4F10321
L(1) BCD 1000001 1 4F10322
L(2) BCD 1000002 2 4F10323
L(3) BCD 1000003 3 4F10324
L(4) BCD 1000004 4 4F10325
L(5) BCD 1000005 5 4F10326
L(6) BCD 1000006 6 4F10327
L(7) BCD 1000007 7 4F10328
L(8) BCD 1000008 8 4F10329
L(9) BCD 1000009 9 4F10330
MINUS OCT 14 - 4F10331
L(C) BCD 100000C C 4F10332
L(F) BCD 100000F F 4F10333
L(H) BCD 100000H H 4F10334
CHAR2 OCT 32 CONSTANT USED BY CD000. 4F10335
L(O) BCD 100000O O (ALPHABETIC) 4F10336
CHAR3 OCT 52 CONSTANT USED BY CD000. 4F10337
SPECOP OCT 53 00000$ 4F10338
BLANK OCT 60 0000000000060 4F10339
L(S) BCD 100000S S 4F10340
L(T) BCD 100000T T 4F10341
L(X) BCD 100000X X 4F10342
L(Z) BCD 100000Z Z 4F10343
PM OCT 72 RECORD MARK (ILLEGAL) -CD000 4F10344
BIT29 OCT 100 4F10345
A81 DEC 81 CONSTANT USED BY IOT. 4F10346
L(96) OCT 140 USED BY C0500. 4F10347
L(112) OCT 160 USED BY C0400. 4F10348
MASK3 OCT 777 -ARITHMETIC. 4F10349
1E9 OCT 1000 ADDRESS=8 4F10350
L(A() BCD 10000A( INTERNAL FLO-PT VARIABLE PREFIX. 4F10351
L(H() BCD 10000H( 4F10352
L(I() BCD 10000I( INTERNAL FXD-PT VARIABLE PREFIX. 4F10353
SAPSYM OCT 6212 4F10354
IFSYM OCT 6712 4F10355
CALLER OCT 7112 4F10356
MASK2 OCT 77777 2**15-1 -ARITHMETIC. 4F10357
2E17 OCT 400000 TAG=4 4F10358
2E18 OCT 1000000 DECREMENT=1 4F10359
DECR1 PZE 1,,1 CONSTANT USED BY DRTABS. 4F10360
ABTAG2 OCT 1000002 CONSTANT USED BY C3200. 4F10361
D2 PZE ,,2 CONSTANT USED BY IOT. 4F10362
ABTAG3 OCT 2000004 CONSTANT USED BY C3200. 4F10363
D3CN PZE ,,3 CONSTANT USED BY IOT. 4F10364
BETAD2 OCT 3077775 3*2**18+(-3) -ARITHMETIC. 4F10365
D6 PZE ,,6 CONSTATN USED BY IOT. 4F10366
FSIND PZE ,,16 4F10367
DEC17 PZE ,,17 4F10368
DEC18 PZE ,,18 4F10369
PZ OCT 32000000 PLUS ZERO -CD000. 4F10370
MASK5 OCT 37777600 -ARITHMETIC. 4F10371
FNIND PZE ,,32 4F10372
DEC35 PZE ,,35 4F10373
MZ OCT 52000000 MINUS ZERO -CD000. 4F10374
NGTBIT OCT 000200000000 4F10375
BTA PZE ,,144 CONSTANT USED BY IOT. 4F10376
BDA PZE 0,0,192 CONSTANT USED BY IOT. 4F10377
5BLANS BCD 10 006060606060 4F10378
E( BCD 1100000 -ARITHMETIC. 4F10379
I( BCD 1200000 -ARITHMETIC. 4F10380
A( BCD 1300000 -ARITHMETIC. 4F10381
P( BCD 1400000 -ARITHMETIC. 4F10382
O( BCD 1600000 -ARITHMETIC. 4F10383
X( BCD 1700000 -ARITHMETIC. 4F10384
BETAD1 OCT 77775077775 (-3(*2**18+(-3) -ARITHMETIC. 4F10385
1BAR OCT 77777000000 (2**15-1)*2**18DECREMENT MASK. 4F10386
15P DEC 15B5 CONSTANT USED BY IOT. 4F10387
PROCTR OCT 176060606060 4F10388
ADPLUS OCT 200000000000 ADDITION SIGN -ARITHMETIC. 4F10389
FLOVAR BCD 1A(0000 A( INTERNAL FLOATING PT. 4F10390
FXFX BCD 1EXP(1 4F10391
FLFX BCD 1EXP(2 4F10392
FLFL BCD 1EXP(3 4F10393
FIXVAR BCD 1I(0000 I( INTERNAL FIXED PT. VARIABLE. 4F10394
MINUS0 MZE 0 4F10395
DECMI2 MZE ,,2 4F10396
ADSPOP OCT 530000000000 $00000 4F10397
DOLSGN OCT 536000000000 CONSTANT USED BY C32000 4F10398
ADSTAR OCT -140000000000 MULTIPLUCATION SIGN -ARITHMETIC. 4F10399
STRSTR OCT -145400000000 EXPONENTIATION SIGN -ARITHMETIC. 4F10400
BLANKS BCD 1 606060606060 4F10401
MASK1 OCT -377777700000 -(2**20-U.***15 -ARITHMETIC. 4F10402
MASK4 OCT -377777777737 -ARITHMETIC 4F10403
ALL1 OCT -377777777777 END OF STATMENT WORD. 4F10404
REM 4F10405
L(ADD) BCD 1ADD000 SYMBOLIC OPERATION CODE. 4F10406
L(ALS) BCD 1ALS000 SYMBOLIC OPERATION CODE. 4F10407
L(ANA) BCD 1ANA000 SYMBOLIC OPERATION CODE. 4F10408
L(ARS) BCD 1ARS000 SYMBOLIC OPERATION CODE. 4F10409
L(BSS) BCD 1BSS000 SYMBOLIC OPERATION CODE. 4F10410
L(CAL) BCD 1CAL000 4F10411
L(CHS) BCD 1CHS000 SYMBOLIC OPERATION CODE. 4F10412
L(CLA) BCD 1CLA000 SYMBOLIC OPERATION CODE. 4F10413
L(CLM) BCD 1CLM000 SYMBOLIC OPERATION CODE. 4F10414
L(CLS) BCD 1CLS000 SYMBOLIC OPERATION CODE. 4F10415
L(CPY) BCD 1CPY000 4F10416
L(DCT) BCD 1DCT000 SYMBOLIC OPERATION CODE. 4F10417
L(DED) BCD 1DED000 4F10418
L(DVP) BCD 1DVP000 SYMBOLIC OPERATION CODE. 4F10419
L(FAD) BCD 1FAD000 SYMBOLIC OPERATION CODE. 4F10420
L(FDP) BCD 1FDP000 SYMBOLIC OPERATION CODE. 4F10421
L(FMP) BCD 1FMP000 SYMBOLIC OPERATION CODE. 4F10422
L(FSB) BCD 1FSB000 SYMBOLIC OPERATION CODE. 4F10423
L(HPR) BCD 1HPR000 SYMBOLIC OPERATION CODE. 4F10424
L(LDA) BCD 1LDA000 4F10425
L(LDQ) BCD 1LDQ000 SYMBOLIC OPERATION CODE. 4F10426
L(LLS) BCD 1LLS000 SYMBOLIC OPERATION CODE. 4F10427
L(LRS) BCD 1LRS000 SYMBOLIC OPERATION CODE. 4F10428
L(LXD) BCD 1LXD000 SYMBOLIC OPERATION CODE. 4F10429
L(MPY) BCD 1MPY000 SYMBOLIC OPERATION CODE. 4F10430
L(MSE) BCD 1MSE000 SYMBOLIC OPERATION CODE. 4F10431
L(ORA) BCD 1ORA000 SYMBOLIC OPERATION CODE. 4F10432
L(PSE) BCD 1PSE000 SYMBOLIC OPERATION CODE. 4F10433
L(PXD) BCD 1PXD000 SYMBOLIC OPERATION CODE. 4F10434
L(QPR) BCD 1QPR000 COnstant used by c3200. 4F10435
L(QXD) BCD 1QXD000 COnstant used by c3200. 4F10436
L(STA) BCD 1STA000 SYMBOLIC OPERATION CODE. 4F10437
L(STO) BCD 1STO000 SYMBOLIC OPERATION CODE. 4F10438
L(STQ) BCD 1STQ000 SYMBOLIC OPERATION CODE. 4F10439
L(SUB) BCD 1SUB000 SYMBOLIC OPERATION CODE. 4F10440
L(SXD) BCD 1SXD000 SYMBOLIC OPERATION CODE. 4F10441
L(TIX) BCD 1TIX001 4F10442
L(TOV) BCD 1TOV000 SYMBOLIC OPERATION CODE. 4F10443
L(TQO) BCD 1TQO000 SYMBOLIC OPERATION CODE. 4F10444
L(TRA) BCD 1TRA000 SYMBOLIC OPERATION CODE. 4F10445
L(TSX) BCD 1TSX000 SYMBOLIC OPERATION CODE. 4F10446
L(UFA) BCD 1UFA000 SYMBOLIC OPERATION CODE. 4F10447
REM END OF COMMON CONSTANTS USED BY SECTION ONE. 4F10448
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10449
REM 4F10450
REM COMMON/3-SUBROUTINES USED BY SECTION ONE= 4F10451
REM 4F10452
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10453
REM 4F10454
REM C0150,2/ CALLS=C0190,DIAG,C0180,C0160. CALLER=C0100. 4F10455
REM C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS I4F10456
REM = 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON- 4F10457
REM NUMERIC, SETS I = -O, AND PACKS INTO 1G SUCCESSIVE CHARACTERS4F10458
REM UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC. 4F10459
C0150 SXD C015X,2 SAVE THE C(XR2). 4F10460
TSX C0190,4 * TEST 1ST NON-BLANK CHARACTER 4F10461
CAS L(9) FOR NUMERIC OR NON-NUMERIC. 4F10462
C015X TXI C0151,0,** IF NON-NUMERIC, TRANSFER. 4F10463
NOP IF NUMERIC, THEN 4F10464
TSX C0180,2 * GO CONVERT TO BINARY. 4F10465
STO 2G SAVE NEXT NON-NUERIC CHARACTER. 4F10466
CLA L(0) PREPARE TO SET I TO +0. 4F10467
FWA TXI C0152,0,** GO SET I FOR NUMERIC. 4F10468
C0151 TSX C0160,2 * ASSEMBLE NON-NUMERICS IN 1G. 4F10469
STO 2G SAVE PUNCTUATION MARK, AND 4F10470
CLS L(0) PREPARE TO SET I TO -0. 4F10471
C0152 STO I SET I = +0, OR -0. 4F10472
CLA 2G PICKUP NEXT CHARACTER, 4F10473
LXD C015X,2 RESTORE THE C(XR2), AND 4F10474
TRA 1,2 * RETURN TO CALLER. 4F10475
REM END OF PROGRAM C0150. 4F10476
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10477
REM 4F10478
REM C0160,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C1000,C1200, 4F10479
REM C1500,C3000,C3100,C0150. 4F10480
REM C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND 4F10481
REM SUCCESSIVE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMK4F10482
REM IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A 4F10483
REM BLANK, IF LESS THEN 6 CHARACTERS. 4F10484
C0160 SXD C016X,2 SAVE THE C(XR2), AND 4F10485
LXA L(0),2 SET XR2 TO CONTROL SHIFTING. 4F10486
STZ 1G CLEAR WORKING STORAGE. 4F10487
C0161 LXA CTESTX,4 TEST 4F10488
C0162 CAS CTEST,4 CHARACTER 4F10489
C016X TXI C0163,0,** IN THE AC 4F10490
TXI C0165,0 AGAINST 4F10491
C0163 TIX C0162,4,1 ALL PUNCTUATIONS. 4F10492
TXL C0164,2,30 IF SYMBOL EXCEEDS 6 CHARACTERS, 4F10493
TSX DIAG,4 * GO TO THE DIAGNOSTIC. 4F10494
C0164 ALS 30,2 BUILD LEFT-ADJUSTED 4F10495
ORS 1G SYMBOL IN WORKING STORAGE. 4F10496
TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. 4F10497
TXI C0161,2,6 UPDATE SHIFT COUNT, AND CONTINUE. 4F10498
C0165 TXH C0167,2,0 IF PUNCTUATION IS 1ST CHARACTER. 4F10499
C0166 TSX DIAG,4 * OR ILLEGAL, GO TO THE DIAGNOSTIC. 4F10500
C0167 TXL C0166,4,5 IF LEGAL PUNCTUATION, THEN 4F10501
STO 1H SAVE, AND 4F10502
CLA BLANK ADD A BLANK 4F10503
ALS 30,2 TO SYMBOLS THAT ARE LESS 4F10504
ORS 1G THEN 6 CHARACTERS IN LENGTH. 4F10505
CLA 1H PICKUP PUNCTUATION MARK, 4F10506
LXD C016X,2 RESTORE THE C(XR2), AND 4F10507
TRA 1,2 * RETURN TO CALLER. 4F10508
REM END OF PROGRAM C0160. 4F10509
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10510
REM 4F10511
REM C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400, 4F10512
REM C1000,C1100,C1200,C1400,C1500,C0150. 4F10513
REM C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ TO 4F10514
REM BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN 4F10515
REM THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC. 4F10516
C0180X TSX C0190,4 * OBTAIN 1ST NUMERIC IN THE AC. 4F105165
C0180 STO 1G PLACE 1ST NUMERIC IN 1G. 4F10517
TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F10518
CAS L(9) AND IF NON-NUMERIC, THEN 4F10519
TRA 1,2 * RETURN TO CALLER. 4F10520
NOP IF NUMERIC, THEN 4F10521
STO 2G SAVE DIGIT IN 2G. 4F10522
CLA 1G MULTIPLY 4F10523
ALS 2 C(1G) 4F10524
ADD 1G BY 4F10525
ALS 1 10, 4F10526
ADD 2G AND ADD CURRENT DIGIT. 4F10527
DCF TXI C0180,0,-F REPEAT PROCESS FOR NEXT CHARACTER. 4F10528
REM END OF PROGRAM C0180. 4F10529
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10530
REM 4F10531
REM C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300. 4F10532
REM C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMUAL IN F. 4F10533
C0190X CLA DCF SET FORMULA WORD 4F10534
STD FWA ADDRESS = -(F-REGION ADDRESS), 4F10535
SXD CHCTR,0 SET CHARACTER COUNT = 0, 4F10536
TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10537
REM END OF PROGRAM C0190X. 4F10538
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10539
REM 4F10540
REM C0390,4/ CALLERS=C0300,C3300. 4F10541
REM C0390 INSERTS THE CHARACTER IN THE AC INTO THE 1ST POSITION 4F10542
REM TO THE LEFT OF THAT DEFINED BY FWA AND XR1 4F10543
C0390 CLA ENDMK PREPARE TO CHANGE 4F10544
LXD FWA,2 THE PROPER CHARACTER 4F10545
LXD CHCTR,1 IN THE F-REGION. 4F10546
TNX C0393,1,1 ADJUST MASK 4F10547
C0392 LGL 6 TO POSITION 4F10548
TIX C0392,1,1 CHARACTER 4F10549
C0393 COM INVERT MASK, AND 4F10550
ANS -1,2 ERASE PROPER CHARACTER. 4F10551
LGL 36 ADJUST CHARACTER, AND 4F10552
ORS -1,2 INSERT IN ERASED POSITION. 4F10553
REM C0390 CONTINUES BY USING C0190. 4F10554
REM 4F10555
REM C0190,4/ CALLERS=CD000,CB000,CC000,C0100,C200,C00300,C0400, 4F10556
REM C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200, 4F10557
REM C3300,C3400,C0150,C0160,C0190,SS000,ROYCNV,RSC,LPR. 4F10558
REM C0190 OBTAINS IN AC THE NEXT NON-BLANK CHARACTER OF FORMULA. 4F10559
C0190 SXD C0194,1 SAVE THE C(XR1), AND 4F10560
LXD CHCTR,1 SET XR1 = CHARACTER COUNT. 4F10561
LDQ RESIDU PICK UP ANY REMAINING CHARACTERS. 4F10562
C0191 TIX C0193,1,1 IF NONE, 4F10563
LXD FWA,1 PICK UP NEXT FORMULA 4F10564
LDQ 0,1 WORD FROM F-REGION, 4F10565
TXI C0192,1,-1 AND INCREASE 4F10566
C0192 SXD FWA,1 FORMULA WORD ADDRESS BY 1. 4F10567
LXA L(6),1 RESET XR1 FOR 6 NEW CHARACTERS. 4F10568
C0193 PXD ,0 EXAMINE 4F10569
LGL 6 NEXT CHARACTER 4F10570
CAS BLANK AND COMPARE WITH A BLANK. 4F10571
C0194 TXI C0195,0,** IF BLANK, 4F10572
CHCTR TXI C0191,0,** GO EXAMINE NEXT CHARACTER. 4F10573
C0195 SXD CHCTR,1 IF NOT BLANK, RESET CHAR COUNT, 4F10574
STQ RESIDU SAVE ANY REMAINING CHARACTERS, 4F10575
LXD C0194,1 RESTORE THE C(XR1), AND 4F10576
TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10577
REM END OF PROGRAM C0190. 4F10578
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10579
REM 4F10580
REM CIT00,4/ CALLERS=C0200,C0400,C0900,C1000,C1100,C1300,C1600, 4F10581
REM C3200,RDC,WBT,RBT,WRD,BRW,EFT,LPR,CMA,EMK,INPUT(OUTPUT), 4F10582
REM ETMSW(LTMSW),LIB,VRA(VRD). 4F10583
REM CIT00 MAKE ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN 4F10584
REM THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3. 4F10585
CIT00 SXD CITXR2,2 SAVE THE C(XR2). 4F10586
SXD CITXR1,1 SAVE THE C(XR1). 4F10587
STQ CITMQR SAVE THE C(MQR). 4F10588
LXD BBOX,2 SET XR2 = 2S COMPL OF NO-WRDS-ENTD.4F10589
CLA BS COMPARE BLOCK SIZE 4F10590
SUB EC WITH ENTRY COUNT. 4F10591
TNZ CIT04 IF BLOCK IS NOT FULL,GO MAKE ENTRY.4F10592
WRS CITTAP PREPARE TO WRITE BLOCK ON CIT TAPE.4F10593
PAX ,1 SET XR1 = 0, AND 4F10594
CIT01 CPY CIB,1 COPY SUCCESSIVE 4F10595
TXI CIT02,1,-1 WORDS OF BLOCK 4F10596
CIT02 TXI CIT03,2,1 AND CONTINUE 4F10597
CIT03 TXH CIT01,2,1 UNTIL XR2 = 0. 4F10598
IOD WHEN DONE, 4F10599
CIT04 LXA L(4),1 SET XR1 = ENTRY SIZE. 4F10600
CIT05 TXI CIT05+1,4,-1 SET XR4 = -(ADDR OF NEXT ENTRY WRD)4F10601
CLA 0,4 AND PICK UP ADDRESS OF NEXT ENTRY 4F10602
STA CIT06 TO SET NEXT ADDRESS. 4F10603
CIT06 CLA ** MOVE ENTRY 4F10604
STO CIB,2 INTO CIB BUFFER, 4F10605
TXI CIT07,2,-1 AND COUNT 1 FOR EACH WORD ENTERED. 4F10606
CIT07 TIX CIT05,1,1 WHEN DOEN, 4F10607
SXD BBOX,2 SAVE THE C(XR2), AND 4F10608
DMSR99 PXD DMSR05+1,2 COMPUTE THE 4F10609
COM REAL NUMBER 4F10610
ADD 2E18 OF WORDS ENTERED 4F10611
DMSR98 PDX DMSR05,2 IN CIB BUFFER, AND 4F10612
SXD EC,2 SAVE IN EC. 4F10613
LDQ CITMQR RESTORE THE C(MQR), 4F10614
LXD CITXR1,1 RESTORE THE C(XR1), 4F10615
LXD CITXR2,2 RESTORE THE C(XR2), AND 4F10616
TRA 1,4 * EXIT TO MAIN ROUTINE (5TH WRD CS). 4F10617
REM END OF PROGRAM CIT00. 4F10618
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10619
REM 4F10620
REM DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA. 4F10621
REM DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR, 4F10622
REM DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION. 4F10623
REM DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE. 4F10624
DIM1SR SXD DMSR00,4 SAVE THE C(XR4) FOR RETURN, 4F10625
LXD DIM1IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM14F10626
CLA ORGDM1 AND PICK UP 1ST ADDRESS OF DIM1 TO 4F10627
DMSR00 TXI DMSR01,0,** GO SET DRUM ADDRESS. 4F10628
REM DIM2SR = ENTRY POINT FOR 2 DIMENSION TABLE. 4F10629
DIM2SR SXD DMSR00,4 SAVE THE C(XR) FRO RETURN. 4F10630
LXD DIM2IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM24F10631
CLA ORGDM2 AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632
DMSR01 STA DRMADR SET DRUM ADDRESS. 4F10633
CLA DMSR99 SET LOOP ADDRESS TO 4F10634
STA DMSR15 DMSR05+1 FOR DIM1 AND DIM2. 4F10635
CAL DMCN12 (STZ D3) 4F10636
DMSR11 TXI DMSR02,0,** GO SET OP FRO DIM1 AND DIM2. 4F10637
REM DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE. 4F10638
DIM3SR SXD DMSR00,4 SAVE THE C(XR4) FRO RETURN, 4F10639
LXD DIM3IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM34F10640
CLA ORGDM3 AND PICK UP 1ST ADDRESS OF DIM3 TO 4F10641
STA DRMADR SET DRUM ADDRESS. 4F10642
CLA DMSR98 SET LOOP ADDRESS TO 4F10643
STA DMSR15 DMSR05 FOR DIM3. 4F10644
CAL DMCN3 (CPY D3) 4F10645
DMSR02 SLW DMSR05 SET OP CODES ACCORDING 4F10646
SLW DMSR07 TO DIMENSION. 4F10647
TXL DMSR08,4,0 IF TABLE IS EMPTY, GO OUT. 4F10648
SXD DMSR11,4 SAVE ENTRY COUNT IN CASE OF ERROR. 4F10649
DMSR14 LXA L(5),4 SET ERROR COUNTER FOR 5 ATTEMPTS. 4F10650
DMSR13 SXD DMSR12,4 SAVE ERROR COUNTER, AND 4F10651
LXD DMSR11,4 RESET ENTRY COUNT. 4F10652
RDR 3 SELECT DRUM. 4F10653
CLA E+2 GET NAME OF VARIABLE. 4F10654
LDA DRMADR LOAD CURRENT DRUM ADDRESS, AND 4F10655
DMSR04 CPY DRSYM COPY DRUM SYMBOL. 4F10656
TLQ DMSR06 COMPARE WITH NAME OF VARIABLE, AND 4F10657
CPY D12 IF NOT LESS, COPY N1 AND N2. 4F10658
DMSR05 PZE D3 (DIM1 AND DIM2 = STZ , DIM3 = CPY).4F10659
CPY DRCKSM COPY CHECKSUM. 4F10660
CAS DRSYM COMPARE DRUM SYMBOL WITH ANEM OF V.4F10661
TSX DIAG,4 * GO TO DIGNOSTIC - MACHINE ERROR. 4F10662
DMSR12 TXI DMSR09,0,** IF NOT EQUAL, THEN 4F10663
CPY DRSYM CONTINUE 4F10664
TLQ DMSR06 PROCESS 4F10665
CPY D12 UNTIL 4F10666
DMSR15 TIX **,4,1 TABLE 4F10667
TXI DMSR08,0 IS EXHAUSTED. 4F10668
DMSR06 CPY D12 PASS OVER ENTRY 4F10669
DMSR07 PZE D3 (DIM1 AND DIM2 = STZ, DIM3 = CPY) 4F10670
CPY DRCKSM AND CHECKSUM, AND 4F10671
TIX DMSR04,4,1 REPEAT LOOP. 4F10672
DMSR08 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10673
TRA 1,4 * TAKE NOT FOUND EXIT. 4F10674
DMSR09 CAL DRSYM COMPUTE A 4F10675
ACL D12 NEW 4F10676
ACL D3 LOGICAL CHECKSUM 4F10677
COM FOR ENTRY. AND 4F10678
ACL DRCKSM COMPARE WITH 4F10679
COM DRUM CHECKSUM. 4F10680
TZE DMSR10 IF NOT EQUAL, THEN 4F10681
LXD DMSR12,4 REPEAT ATTEMPT, 4F10682
TIX DMSR13,4,1 UNLESS PROCESS 4F10683
TSX DIAG,4 * FAILED 5 TIMES IN READING DRUM. 4F10684
DMSR10 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10685
TRA 2,4 * TAKE FOUND EXIT TO MAIN ROTUINE. 4F10686
REM 4F10687
DMCN12 STZ D3 CONSTANT USED BY DIM.SR. 4F10688
DMCN3 CPY D3 CONSTANT USED BY DIM.SR. 4F10689
ENT BCD 1NTR000 VARIABLE USED BY IO AND FL. 4F10690
NZE BCD 1PZE000 VARIABLE USED BY FL. 4F10691
REM END OF PROGRAM DIM.SR. 4F10692
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10693
REM 4F10694
REM DRTABS(,4)/ CALLS RDRX,DIAG. CALLERS=C1200,SS000,ROYCNV,CMA, 4F10695
REM VRA(VRD). 4F10696
REM DRTABS IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF 4F10697
REM THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM 4F10698
REM TABLES, AND ALSO SEARCHES THE DRUM TABLES FOR INFOMATION. 4F10699
REM DIMALT= ENTRY POINT FOR DIMENSION TABLES. 4F10700
DIMALT CAL TXLOP PICK UP SWITCH CONTROL, 4F10701
TXI DRTABS,0 AND GO SET SWITCH FOR DIM TABLES. 4F10702
REM ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES. 4F10703
ALT CLA TXHOP PICK UP SWITCH CONTROL, 4F10704
DRTABS STP DIMSW SET SWITCH. 4F10705
CLA 0,4 GET CALLER (TSX ....IX,4) IN AC. 4F10706
SXD XR1,1 SAVE THE C(XR1), 4F10707
SXD XR2,2 SAVE THE C(XR2), 4F10708
SXD XR4,4 SAVE THE C(XR4), AND 4F10709
STQ MQ SAVE THE C(MQR). 4F10710
ADD L(1) PREPARE TO MOVE PARAMETERRS 4F10711
STA MOVE INTO WORKING STORAGE. 4F10712
SUB L(4) PREPARE TO UPDATE 4F10713
STA UPDATE PERMANENT PARAMETER. 4F10714
LXA L(5),1 MOVE 5 WORDS 4F10715
MOVE CAL **,1 (....IX+1) 4F10716
SLW TEMP,1 OF PARAMETERS 4F10717
TIX MOVE,1,1 INTO WORKING STORAGE. 4F10718
CLS NAR INITIALIZE 4F10719
STA TRY ALL 4F10720
ADD L(1) GENERAL 4F10721
STA ESUM1 INSTRUCTIONS= 4F10722
STA ESUM2 X 4F10723
ARS 17 X 4F10724
ADM BIAS X 4F10725
STA JUMP1 X 4F10726
STA JUMP2 X 4F10727
CAL FDA X 4F10728
STD COMPR X 4F10729
STP JUMP1 X 4F10730
STP SW X 4F10731
STP RX4 X 4F10732
CLA LBUF X 4F10733
STA BUFL X 4F10734
CLA TDA X 4F10735
LXD TDA,2 X 4F10736
SXD BUFF+1,2 X 4F10737
DIMSW TXL BUFF,0 IF DIM TABLE, SKIP SEARCH. 4F10738
TXL XERR01+1,2,0 SKIP IF TABLE IS EMPTY. 4F10739
LXD NAR,1 4F10740
SXD NC,2 4F10741
SXD ADD01,2 4F10742
ADD02 TNX COMPR,1,1 COMPUTES (N*L). 4F10743
ADD01 TXI ADD02,2,** (N) 4F10744
BUFFM1 LXD FDA,2 4F10745
BUFF LXD DBL,1 L(J) 4F10746
TIX BUFF+3,1,** (N) TEST FOR TABLE OVERFLOW. 4F10747
XERR01 TXI WHICH,0 GO FIND OUT WHICH TABLE OVERFLOWED.4F10748
LXD DI,1 4F10749
WDR 5,1 4F10750
SW TXL EBLK,0 ENTER SUM=TXL, BLOCK SUM=TXH. 4F10751
TXL ADD04,2,0 SKIP IF TABLE IS EMPTY. 4F10752
TXI ADD03,2,1 4F10753
ADD03 TNX ADD05,2,50 SKIP IF BLOCK IS NOT YET FULL. 4F10754
ADD04 STZ DUMP START NEW BLOCK CHECKSUM. 4F10755
CLA TDA CHANGE CHECKSUM ADDRESS. 4F10756
STA FDA 4F10757
ADD L(1) SET ENTRY ADDR = CHECKSUM ADD +1. 4F10758
STA TDA 4F10759
ADD05 CAL DUMP 4F10760
ACL G ADD NEW FLOCON TO 4F10761
SLW DUMP CHECKSUM FOR THIS BLOCK. 4F10762
LDA FDA 4F10763
CPY DUMP WRITE BLOCK CHECKSUM ON DRUM. 4F10764
WDR 5,1 4F10765
LDA TDA 4F10766
CPY G WRITE NEW FLOCON ON DRUM. 4F10767
XR2 TXI NOWIN,0,** GO UPDATE FLOCON PARAMETER. 4F10768
EBLK PXD ,0 FOR ALL TABLES EXCEPT FLOCON= 4F10769
LXD NAR,2 (L) 4F10770
LDA TDA NEXT DRUM ENTRY ADDRESS. 4F10771
TNX ESUM2,2,1 IF L = 1, 4F10772
ESUM1 CAD **,2 (ARG1+L-1) WRITE NEW 4F10773
TIX ESUM1,2,1 ENTRY ON DRUM. 4F10774
ESUM2 CAD ** (ARG1+L-1) 4F10775
SLW DUMP COMPUTE AND 4F10776
CPY DUMP WRITE CHECKSUM FOR NEW ENTRY. 4F10777
NOWIN CAL NAR UPDATE PERMANENT 4F10778
ARS 18 PARAMETERS FOR ENTRY 4F10779
ADD DECR1 JUST ADD TO TABLE. 4F10780
RX4 TXL RX4+2,0,** IF TABLE WAS FLOCON, 4F10781
SUB L(1) READJUST. 4F10782
ADM TDA N=N+1,TDA=TDA+(L+1) OR (L). 4F10783
UPDATE STO ** (....IX-3) 4F10784
LXD TDA,2 L(N) 4F10785
XR4 TXI OUT,0,** GET TAG AND EXIT. 4F10786
NXBLK LXD NC,4 4F10787
LXD FDA,2 L(K*L),K=K. 4F10788
NEW LXD NAR,1 L(L) 4F10789
TRY CLA **,1 (ARG1+L) 4F10790
BUFL CAS **,2 (BUFR OR CTABL) 4F10791
NC TXI NC+2,0,** NOT FOUND. 4F10792
TXI YEA,2,-1 K*L = K*L-1. 4F10793
TNX BUFFM1,4,1 N = N-1 OR ITEM NOT IN TABLE. 4F10794
SXD NC+4,1 4F10795
TIX NEW,2,** K = K-1. 4F10796
SXD NC,4 SAVE CURRENT VALUE OF N, 4F10797
CAL DBL AND GET NEW BLOCK. 4F10798
ADM FDA 4F10799
STA FDA 4F10800
LXD NTL,2 4F10801
COMPR TIX COMPR+2,2,** (K*L) 4F10802
SXD FDA,2 K*L = (N*L)MOD K*L IF N*L IS 4F10803
SXD NTL,2 LESS THAN K*L, OTHERWISE K*L = K*L,4F10804
TSX RDRX,4 * GO READ NEXT BLOCK INTO BUFFER. 4F10805
NTL TXI NXBLK,0,** (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD 4F10806
YEA TIX TRY,1,1 K*L). TEST NEXT WORD OF ARG. L=L-1.4F10807
LXD TDA,2 (N) 4F10808
SXD YEA+3,4 4F10809
TIX OUT,2,** COMPUTE TAG. 4F10810
LXA L(0),2 4F10811
OUT PXD ,2 EXIT WITH TAG IN THE AC. 4F10812
ARS 18 (TAG = NUMBER OF ENTRIES 4F10813
LXD XR2,2 WHICH PRECEED THE ENTRY 4F10814
LXD XR4,4 WHICH EQUALS THE ARGUMENT. 4F10815
LXD XR1,1 RESTORE THE C(XR1,XR2,XR4), 4F10816
LDQ MQ RESTORE THE C(MQR), AND 4F10817
TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10818
WHICH LXD XR4,4 GET ALPHA BAR, AND 4F10819
CLA 0,4 AND PICK UP ALPHA (TSX ...NIX,4). 4F10820
ANA MASK2 BLANK ALL BUT ...NIX. 4F10821
SUB CONX (...NIX) - (ADDR OF FIXCNIX-5). 4F10822
LXA L(9),4 SET XR4 FOR 9 TABLES. 4F10823
COMPUT SUB L(5) COMPUTE WHICH 4F10824
TZE WHICHX TABLE OVERFLOWED. 4F10825
TIX COMPUT,4,1 IF TABLE IS NOT FOUND. 4F10826
TSX DIAG,4 * GOT TO DIAGNOSTIC. 4F10827
WHICHX PXD ,4 OTHERWISE, 4F10828
COM CONVERT 2S COMPLEMENT 4F10829
ADD 2E18 OF NUMBER, 4F10830
PDX ,4 PLACE IN XR4, AND 4F10831
TXI DIAG,0 * GO TO DIAGNOSTIC. 4F10832
REM 4F10833
CONX PZE FXCNIX-5 CONSTANT USED BY DRTABS. 4F10834
BUFR BES 50 DRUM TABLE BUFFER. 4F10835
MQ BSS 1 WORKING STORAGE USED BY DRTABS. 4F10836
NAR BSS 1 WORKING STORAGE USED BY DRTABS. 4F10837
TDA BSS 1 WORKING STORAGE USED BY DRTABS. 4F10838
FDA BSS 1 WORKING STORAGE USED BY DRTABS. 4F10839
DBL BSS 1 WORKING STORAGE USED BY DRTABS. 4F10840
DI BSS 1 WORKING STORAGE USED BY DRTABS. 4F10841
TEMP BSS 0 INDEXING ADDRES FOR ABOVE -DRTABS. 4F10842
DUMP BSS 1 WORKING STORAGE USED BY DRTABS. 4F10843
REM END OF PROGRAM DRTABS. 4F10844
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10845
REM 4F10846
REM GETIFN,4/ CALLERS=C0100,C0200,C1000,C1100,C1600,C3200. 4F10847
REM GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C. 4F10848
GETIFN LXD EIFNO,1 PLACE THE INTERNAL FORMULA 4F10849
PXD ,1 NUMBER IN XR1, IN THE DECREMENT 4F10850
STO 1C OF THE AC, AND IN 1C. THEN 4F10851
TRA 1,4 * RETURN TO CALLER. 4F10852
REM END OF PROGRAM GETIFN. 4F10853
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10854
REM 4F10855
REM JIF(GIF),4/ CALLERS=RDC,EFT,LPR,SPC,CMA,EMK,INPUT(OUTPUT), 4F10856
REM VRA(VRD),C3200. 4F10857
REM JIF = ENTRY POINT USED BY RDC,LPR,SPC,CMA,EMK,VRA(VRD),C3200.4F10858
JIF CAL EIFNO INCREASE THE 4F10859
ADD D1 INTERNAL FORMULA NUMBER 4F10860
STD EIFNO BY 1. 4F10861
REM GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT). 4F10862
GIF CAL EIFNO PICKUP IFN, 4F10863
ANA 1BAR CLEAR SL, AND 4F10864
L(SL) SLW SL PLACE IFN IN THE DECREMENTS 4F10865
L(TL) STD TL OF SL AND TL. 4F10866
TRA 1,4 * EXIT TO CALLER. 4F10867
REM END OF PROGRAM JIF(GIF). 4F10868
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10869
REM 4F10870
REM MTR000/ MONITOR ROUTINE FOR CALLING STATES FROM DRUM. 4F10871
REM STATEA= ENTRY POINT FOR STATE A. 4F10872
STATEA LXA L(4),4 SET C(XR4) = 4, THEN 4F10873
TXI MTR1,0 GO GET PARAMETERS. 4F10874
REM STATEB= ENTRY POINT FOR STATE B. 4F10875
STATEB LXA L(2),4 SET C(XR4) = 2, THEN 4F10876
TXI MTR1,0 GO GET PARAMETERS. 4F10877
REM STATEC= ENTRY POINT FOR STATE C. 4F10878
STATEC LXA L(1),4 SET C(XR4) = 1, THEN 4F10879
MTRCSL TXI MTR1,0,** GO GET PARAMETERS. 4F10880
REM STATED= ENTRY POINT FOR STATE D. 4F10881
STATED LXA L(3),4 SET C(XR4) = 3, THEN 4F10882
MTR1 CLA ZETA+4,4 OBTAIN THE NUMBER OF WORDS IN THE 4F10883
STD MTRCSL CURRENT STATE, AND SAVE. 4F10884
ARS 18 ADD THE NUMBER OF WORDS IN THE 4F10885
ADD MTR3 CURRENT STATE TO THE MEMORY ORIGIN 4F10886
STA MTR2 TO SET ADDRESS OF COPY LOOP. 4F10887
LXA DRMERC,1 SET FOR FIVE ATTEMPTS. 4F10888
MTR15 RDR 5,4 READ SELECT CURRENT LOGICAL DRUM. 4F10889
LXD MTRCSL,2 LENGTH OF CURRENT STATE TO XR2. 4F10890
LDA ZETA+4,4 THEN COPY 4F10891
PXD ,0 CURRENT STATE 4F10892
CAD DRCKSM FROM DRUM 4F10893
COM INTO MEMORY 4F10894
MTR2 CAD **,2 WHILE COMPUTING 4F10895
TIX MTR2,2,1 LOGICAL CHECKSUM. 4F10896
COM IF THIS EQUALS DRUM CHECKSUM, 4F10897
MTR3 TZE MEMORG * THEN ENTER CURRENT STATE. 4F10898
TIX MTR15,1,1 CHECKSUM FAILED, TRY UP TO 5 TIMES.4F10899
MTRERR TXI DIAG,4,-MTRERR * GO TO DIAGNOSTIC AFTER 5 FAILURES. 4F10900
REM 4F10901
ZETA PZE DEL(A),,ENDADR-ORGA 4F10902
PZE DEL(D),,ENDDDR-ORGD 4F10903
PZE DEL(B),,ENDBDR-ORGB 4F10904
PZE DEL(C),,ENDCDR-ORGC 4F10905
REM END OF PROGRAM MTR000. 4F10906
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10907
REM 4F10908
REM RA000,4/ CALLERS=LPR,ARITH. 4F10909
REM RA000 COMPUTES RELATIVE ADDRESS. 4F10910
RA000 SXD RAXR4,4 SAVE THE C(XR4) FOR RETURN. 4F10911
STZ EPS CLEAR EPSILON (WORKING STORAGE). 4F10912
CLA DIMSAV EXAMINE THE 4F10913
ED2 PAX E+4,4 DIMENSION COUNT, AND 4F10914
TXL ED1,4,2 IF 3 DIMENSION, 4F10915
ADD L(1) INCREASE IT 1. 4F10916
ED1 ADM ED2 THEN SET 4F10917
STA ED3 ED3 ADDRESS TO 4F10918
ED3 CLA **,4 EXAMINE SUCCESSIVE 4F10919
LDQ D1 SUBSCRIPT 4F10920
TZE ED4 VARIABLES, AND 4F10921
STQ EPS ACCORDINGLY SET 4F10922
LDQ L(0) EPSILON AND 4F10923
ED4 STQ EPS,4 EPSILON SUB I 4F10924
TIX ED3,4,1 TO 1 OR TO 0. WHEN DONE, 4F10925
CLA D1 IF 1 DIMENSION, PICKUP DECREMENT1, 4F10926
LXA DIMSAV,4 AND GO SUBTRACT ADDEND 1. 4F10927
TXL 1D1,4,1 IF 2 OR 3 DIMENSION, THEN 4F10928
LDQ E+11 PICKUP ADDENDS 1 AND 2, 4F10929
STZ E+11 CLEAR E+11, AND 4F10930
SLQ E+11 RESTORE ADDEND 1 TO E+11. 4F10931
LGL 18 ADJUST AND PLACE 4F10932
STQ N2 ADDEND 2 IN N2. 4F10933
LDQ E+6 AND, IF 2 DIMENSION 4F10934
CLA EPS-1 PICKUP EPSILON SUB 1, 4F10935
TXL 2D1,4,2 AND GO SUBTRACT ADDEND 2. 4F10936
SUB E+12 IF 3 DIMENSION, SET GTAG 4F10937
STO GTAG TO EPSILON SUB 1 - ADDEND 3. 4F10938
LDQ E+8 PICKUP DIMESNIONS 1 AND 2. 4F10939
STZ E+8 CLEAR E+8, AND 4F10940
SLQ E+8 RESTORE DIMENSION 1 TO E+8. 4F10941
LGL 18 ADJUST, AND MULTIPLY 4F10942
MPY GTAG DIMENSION 2 TIMES GTAG. 4F10943
ALS 17 THEN ADD 4F10944
ADD EPS-2 EPSILON SUB 2 4F10945
LDQ E+8 TO THE PRODUCT, AND 4F10946
2D1 SUB N2 SUBTRACT ADDEND 2. 4F10947
STO GTAG MULTIPLY 4F10948
MPY GTAG THE RESULT 4F10949
ALS 17 TIMES 4F10950
ADD EPS,4 DIMENSION 1, AND ADD IN EPSILON 4F10951
ADD EPS SUB I AND EPSILON. 4F10952
1D1 SUB E+11 SUBTRACT ADDEND 1, 4F10953
STO GTAG AND PLACE THE RESULT 4F10954
CAL E IN THE DECREMENT OF GTAG, 4F10955
ARS 24 WITH 1-TAUTAG 4F10956
STA GTAG IN THE ADDRESS. 4F10957
LXD RAXR4,4 RESTORE THE C(XR4), AND 4F10958
TRA 1,4 * EXIT TO CALLER. 4F10959
REM END OF PROGRAM RAD00. 4F10960
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10961
REM 4F10962
REM RDRX,4 CALLS=DIAG. CALLER=DRTABS. 4F10963
REM RDRX READS A BLOCK OF DRUM ENTRIES INTO 50 WORD BUFR. 4F10964
RDRX LXA DRMERC,1 SET FOR 5 ATTEMPTS TO READ DRUM. 4F10965
REP LXD DI,2 SET XR2 * (5-DRUM NUMBER). 4F10966
TXH BIAS-2,2,0 IF NOT GREATER THEN ZERO. 4F10967
TSX DIAG,4 * GO TO DIAGNOSTIC. 4F10968
RDR 5,2 SELECT CURRENT DRUM. 4F10969
LXD FDA,2 SET XR2 = NO. OF WORDS TO COPY. 4F10970
BIAS PXD ETSUM,0 CLEAR THE AC. 4F10971
LDA FDA DRUM ORIGIN OF CURRENT BLOCK. 4F10972
JUMP1 TXL ** (ETSUM-2*L) TXL=ENTRY,TXH=BLOCK. 4F10973
CAD DUMP READ 4F10974
COM FLOCON BLOCK 4F10975
LBUF CAD BUFR,2 AND COMPUTE 4F10976
TIX LBUF,2,1 LOGICAL CHECKSUM. 4F10977
XR1 TXI PROVE,0,** GO TEST CHECKSUM. 4F10978
CPY BUFR,2 COPY LOOP 4F10979
TNX ERR,2,1 FOR ALL 4F10980
CPY BUFR,2 COPY LOOP 4F10981
TNX ERR,2,1 TABLES 4F10982
CPY BUFR,2 EXCEPT 4F10983
TNX ERR,2,1 FLOCON* 4F10984
CPY BUFR,2 X 4F10985
TNX ERR,2,1 X 4F10986
CPY BUFR,2 X 4F10987
TNX ERR,2,1 X 4F10988
CPY BUFR,2 X 4F10989
TNX ERR,2,1 X 4F10990
CPY BUFR,2 X 4F10991
NOP X 4F10992
ETSUM CAD DUMP SUM CHECKSUMS. 4F10993
JUMP2 TIX **,2,1 (ETSUM-2*L) TEST END OF BLOCK. 4F10994
RDRXCR LXD FDA,2 COMPUTE 4F10995
COM NEW 4F10996
ACL BUFR,2 LOGICAL 4F10997
TIX RDRXCR+2,2,1 CHECKSUM, AND 4F10998
PROVE COM IF CHECKSUMS COMPARE 4F10999
TZE 1,4 * RETURN TO MAIN ROUTINE. 4F11000
ERR TIX REP,1,1 OTHERWISE, REPEAT UP TO 5 TIMES. 4F11001
TSX DIAG,4 * FAILED 5 TIMES IN READING DRUM. 4F11002
REM END OF PROGRAM RDRX. 4F11003
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11004
REM 4F11005
REM SR6DC1,1/ CALLS=DIAG. CALLERS=CA000,SS000. 4F11006
REM SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV. 4F11007
SR6DC1 SXD SR6XR2,2 SAVE THE C(XR2), AND 4F11008
LXA L(6),2 SET TO COUNT 6 CHARACTERS. 4F11009
STZ SR6WRK INITIALIZE OUTPUT CELL TO 0. 4F11010
SR6DC2 PXD ,0 OBTAIN NEXT CHARACTER 4F11011
LGL 6 IN AC AND 4F11012
CAS ABLANK TEST FOR BLANK. 4F11013
SR6XR2 TXI SR6DC3,0,** IF NOT BLANK, 4F11014
ENDWRD TXI SR6DC4,0,-1 (DECR= END OF PROBLEM INDICATOR) 4F11015
SR6DC3 CAS L(9) TEST FOR NUMERIC. 4F11016
TSX DIAG,4 * IF NON-NUMERIC - GO TO DIAGNOSTIC. 4F11017
NOP NOP IF NUMERIC, 4F11018
STO SR6WRK+1 SAVE DIGIT, AND 4F11019
CLA SR6WRK MULTIPLY PREVIOUS PARTIAL 4F11020
ALS 2 RESULT BY 10, 4F11021
ADD SR6WRK AND ADD IN 4F11022
ALS 1 CURRENT DIGIT, SAVING 4F11023
ADD SR6WRK+1 NEW PARTIAL RESULT. 4F11024
STO SR6WRK THEN ADJUST COUNT, AND 4F11025
SR6DC4 TIX SR6DC2,2,1 WHEN 6 CHARS HAVE BEEN TREATED, 4F11026
CLA SR6WRK LEAVE OUTPUT IN AC, 4F11027
LXD SR6XR2,2 RESTORE THE C(XR2), AND 4F11028
TRA TRA 1,1 * EXIT TO MAIN ROUTINE. 4F11029
REM END OF PROGRAM SR6DC1. 4F11030
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11031
REM 4F11032
REM SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM,SR,DRTABS,TET00,TESTFX. 4F11033
REM CALLERS=ARITH,LPR,C0200. 4F11034
REM SS000 SCANS SUBSCRIPT COMBINATIONS AND MAKES TABLE ENTRIES. 4F11035
SS000 SXD SXR2,2 SAVE C(XR2), 4F11036
SXD SXR1,1 SAVE C(XR1), 4F11037
SXD SXR4,4 SAVE C(XR4), AND 4F11038
STZ DIMCTR SET DIMCTR = 0. 4F11039
LXA L(6),4 INITIALIZE 4F11040
SXD SBS2,4 FOR EACH SUBSCRIPT MEMBER. 4F11041
CAL TXHOP PICK UP TXH OP, AND 4F11042
STP SBC6 SET OP 4F11043
STP SBC8 SWITCHES. 4F11044
CAL TXLOP PICK UP TXL OP, AND 4F11045
STP SBC4 SET OP SWITCH. 4F11046
SS001 LXA L(6),3 SET FOR 6 CHARACTERS OF MULTIPLIER.4F11047
STZ SYMBOL CLEAR WORKING STORAGE. 4F11048
TSX C0190,4 * GET FIRST NON BLANK CHAR IN THE AC.4F11049
CAS L(9) COMPARE IT WITH 9. 4F11050
TXI SS0045,0 RETURN TO EXPLICIT CODING. 4F11051
NOP IF NUMERIC, 4F11052
STO FIRSTC SAVE RIGHT-ADJUSTED DIGIT, AND 4F11053
SS0012 ALS 36,2 LEFT-ADJUST DIGIT TO 4F11054
ORS SYMBOL BUILD SYMBOL. 4F11055
TXI SS0013,2,6 UPDATE SHIFT DECREMENT, AND 4F11056
SS0013 TXI SS0014,1,-1 UPDATE COUNT OF CHARS COLLECTED. 4F11057
SS0014 TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. 4F11058
LXA CTESTX,4 SET XR4 = NO. OF PUNCTUATION MARKS.4F11059
SS0015 CAS CTEST,4 TEST THIS CHARACTER AGAINTT 4F11060
TXI SS0016,0 ALL PUNCTUATION. 4F11061
TRA SUBTR,4 IF EQUALITY IS FOUND, TRANSFER. 4F11062
SS0016 TIX SS0015,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11063
CAS L(9) TEST FOR NUMERIC 4F11064
TXI SS0017,0 AND IF 4F11065
CTESTX NOP CTEST-ENDMK FOUND TO BE NUMERIC 4F11066
TXH SS0012,1,0 CONTINUE BUILDING SYMBOL. BUT IF 4F11067
TXI STOP49,0 SEVENTH CHAR, GO TO DIAGNOSTIC. 4F11068
SS0017 TSX TESTFX+1,1 * GO TEST FOR FIXED POINT VARIABLE. 4F11069
TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11070
LGL 30 RESTORE FIXED POINT VARIABLE 4F11071
SLW RESIDU TO RESUDU, AND 4F11072
LXD CHCTR,4 RESET CHARACTER COUNTER 4F11073
TXI SS0018,4,1 TO BEGIN PROCESSING 4F11074
SS0018 SXD CHCTR,4 SUBSCRIPT MULTIPLIER. 4F11075
SBX CLS SBC6 TEST FOR 4F11076
TMI SBX1 PREVIOUS MULTIPLIER. 4F11077
TSX DIAG,4 * DOUBLE MULTIPLIER FOR SUBSCRIPT. 4F11078
SBX1 STO SBC6 RESET MULTIPLIER SWITCH. 4F11079
CLA FIRSTC TEST 4F11080
SUB L(10) MULTIPLIER 4F11081
TMI SBX2 FOR CONSTANT. 4F11082
TSX DIAG,4 * SUBS-MULTIPLER NOT A CONSTANT. 4F11083
SBX2 CAL SYMBOL ADJUST MULTIPLIER 4F11084
ARS 42,2 TO LOW ORDER POSITION. 4F11085
LXD SBS2,4 GET STORING TAG, 4F11086
SLW E+9,4 AND STORE MULTIPLIER. 4F11087
STZ E+15,4 SET ADDEND = 0. 4F11088
SS003 LXA L(6),3 SET FOR 6 CHARS OF VARIABLE/ADDEND.4F11089
STZ SYMBOL CLEAR WORKING STORAGE. 4F11090
SS004 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.4F11091
SS0045 LXA CTESTX,4 COMPARE CHARACTER 4F11092
SS005 CAS CTEST,4 TO ALL 4F11093
TXI SS006,0 PUNCTUATION. 4F11094
TRA SUBTR,4 IF EQUALITY IS FOUND, TRANSFER. 4F11095
SS006 TIX SS005,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11096
TXL SS008,1,5 IF 1ST CHARACTER OF VARIABLE OR 4F11097
STO FIRSTC ADDEND, SAVE FOR LATER TEST. 4F11098
SS008 ALS 36,2 POSITION EACH CHARACTER. BUT 4F11099
SS009 TXL STOP49,1,0 * ON 7TH CHARACTER, GO TO STOP. 4F11100
ORS SYMBOL BUILD SYMBOL. 4F11101
TXI SS007,2,6 UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102
SS007 TXI SS004,1,-1 UPDAT FOR ANOTHER CHAR COLLECTED. 4F11103
STOP49 TSX DIAG,4 * GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F11104
REM SUBSTR/ CONTROL TRANSFERS FOR SUBSCRIPT SCAN= 4F11105
TXI ISC,0 ENK (ILLEGAL IN LIST SUBSCRIPT). 4F11106
ISC TSX DIAG,4 * ( (ILLEGAL IN LIST SUBSCRIPT). 4F11107
TXI SBC,0 , 4F11108
TXI SBR,0 ) 4F11109
TXI ISC,0 = (ILLEGAL IN LIST SUBSCRIPT). 4F11110
SBS2 TXI SBM,0,** - ,,SUBSCRIPT ELEMENT COUNTER, 4F11111
TXI ISC,0 / (ILLEGAL IN LIST SUBSCRIPT). 4F11112
SXR1 TXI ISC,0,** . (ILLEGAL IN LIST SUBSCRIPT). 4F11113
SXR2 TXI SBP,0,** + 4F11114
SXR4 TXI SBX,0,** * 4F11115
SUBTR BSS 0 INDEXING ADDRESS FOR ABOVE LIST. 4F11116
SBM SSM MINUS ADDEND. 4F11117
SBP CLM PLUS ADDEND. 4F11118
LXD SBS2,4 GET STORING TAG, AND 4F11119
STO E+15,4 STORE SIGN OF ADDEND. 4F11120
CLS SBC8 TEST SWITCH 4F11121
TMI SBP1 FOR PREVIOUS ADDEND. 4F11122
TSX DIAG,4 * DOUBLE ADDEND FOR SUBSCRIPT, 4F11123
SBP1 STO SBC8 RESET ADDEND SWITCH. 4F11124
TSX TESTFX,1 * GO TO TEST FOR FIXED POINT. 4F11125
TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11126
LXD SBS2,4 GET STORING TAG, AND 4F11127
CLS SBC6 TEST SWITCH 4F11128
TPL SBP2 FOR PREVIOUS MULTIPLIER. 4F11129
CLA L(1) IF NONE, 4F11130
STO E+9,4 SET MULTIPLIER 4F11131
TXI SBP4,0 TO 1, AND CONTINUE. 4F11132
SBC1 CLS SBC6 RESET MULTIPLIER 4F11133
SBP2 STO SBC6 OP SWITCH. 4F11134
SBP4 CAL SYMBOL IF VARIABLE SUBSCRIPT. 4F11135
TXH SBP41,2,36 ADD A BLANK 4F11136
CAL BLANK IF LESS 4F11137
ALS 36,2 THAN 6 4F11138
ORA SYMBOL CHARACTERS, AND 4F11139
SBP41 SLW E+10,4 PLACE IN E-REGION. 4F11140
TSX TESTFX,1 * GO TO TEST FOR FIXED POINT. 4F11141
TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11142
CLA SBC8 IF THERE IS AN ADDEND, 4F11143
TMI SS003 GO COLLECT, OTHERWISE 4F11144
TXI SBC7,0 GO UPDATE STORING TAG. 4F11145
SBR CLS SBC4 SET SWITCH 4F11146
STO SBC4 FOR CLOSING PARENTHESIS. 4F11147
SBC CAL DIMCTR UPDATE 4F11148
ADD L(1) DIMENSION COUNTER 4F11149
STA DIMCTR BY 1. 4F11150
LXD SBS2,4 GET STORING TAG. 4F11151
SBC6 TXH SBC1,0 SWITCH-IF NO MULTIPLIER, AND 4F11152
SBC8 TXH SBC2,0 SWITCH-IF NO ADDEND, THEN 4F11153
CLA L(1) SET 4F11154
STO E+9,4 MULTIPLIER = 1. 4F11155
STZ E+15,4 SET ADDEND = 0. 4F11156
CLA FIRSTC TEST FOR 4F11157
SUB L(10) CONSTANT OR VARIABLE. 4F11158
TPL SBP4 IF CONSTANT, THEN 4F11159
STZ E+10,4 SET VARIABLE = 0. 4F11160
SBC9 CAL SYMBOL ADJUST 4F11161
ARS 42,2 CONSTANT 4F11162
ORS E+15,4 TO LOW ORDER POSITION. 4F11163
SBC7 TNX SBC3,4,2 UPDATE STORING TAG 4F11164
SXD SBS2,4 BY -2, AND SAVE. 4F11165
SBC4 TXL SS001,0 SWITCH-REPEAT FOR NEXT SUB-COMB. 4F11166
TXI SA000,0 GO MAKE TABLE ENTRIES AND GET TAG. 4F11167
SBC2 CLS SBC8 RESET ADDEND 4F11168
STO SBC8 OP SWITCH. 4F11169
CLS L(10) TEST 4F11170
ADD FIRSTC ADDEND 4F11171
TMI SBC9 FOR CONSTANT. 4F11172
TSX DIAG,4 * SUBSCRIPT ADDEND NOT A CONSTANT. 4F11173
SBC3 CLS SBC4 AFTER SCANNING 3 SUBSCRIPTS. 4F11174
TMI SA000 GO MAKE TABLE ENTRIES AND GET TAG. 4F11175
TSX DIAG,4 * GO TO DIAG - NO ) AFTER 3RD SUBS. 4F11176
REM CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE). 4F11177
CSA000 SXD SXR4,4 SAVE C(XR4) FOR RETURN TO C0200. 4F11178
SA000 CLA DIMCTR SAVE 4F11179
STO DIMSAV THE CONTENTS OF DIMCTR 4F11180
ALS 33 POSITION AND 4F11181
STO E STORE I TAG. 4F11182
CLA E+11 MOVE SUBSCRIPT ADDENDS 4F11183
STO E+12 INTO POSITION 4F11184
CLA E+9 FOR FOLLOWING 4F11185
STO E+11 PROGRAM. 4F11186
CLA L(2) EXAMINE DIMCTR 4F11187
CAS DIMCTR TO DETERMINE 4F11188
TXI 1D0000,0 WHETHER DIMESNION OF 4F11189
TXI 2D0000,0 VARIABLE IS 1, 2, OR 3. 4F11190
3D0000 LXA L(6),4 PREPARE TO PICK UP 3 COEFFICIENTS. 4F11191
3D0001 LDQ E+9,4 CONVERT THEM FROM BCD TO BINARY 4F11192
TSX SR6DC1,1 * IN E+3,5,7, AND 4F11193
STO E+9,4 STORE BACK IN E+3,5,7, 4F11194
TIX 3D0001,4,2 WHEN DONE, PREPARE 4F11195
LXA L(3),4 TO PICK UP 3 ADDENDS. 4F11196
3D0002 CLA E+14,4 CONVERT ADDENS (BCD TO BINARY)= 4F11197
SLW G STRIP OFF 4F11198
LDQ G SIGN. 4F11199
TSX SR6DC1,1 * CONVERT ADDENDS IN E+11,12,13, 4F11200
LDQ E+14,4 PUT SIGN IN S-BIT OF MQ, AND 4F11201
TQP 3D0040 IF PLUS--SKIP NEXT, 4F11202
ORA 2E17 IF MINUS--OR SIGN INTO BIT 18, 4F11203
3D0040 STO E+14,4 AND STORE BACK INTO E+11,12,13, 4F11204
TIX 3D0002,4,1 WHEN DONE, 4F11205
TSX DIM3SR,4 * GO SEARCH DIM3 TABLE, 4F11206
TSX DIAG,4 * --ERROR...NOT ON DRUM, 4F11207
3D0060 CLA E+3 REFORMATIZE E-STRING = 4F11208
ALS 18 PACK TOGETHER COEFFICIENTS 1 AND 2 4F11209
ADD E+5 AND STORE THEM 4F11210
STO E+3 IN E+3. 4F11211
CLA E+4 MOVE SUBSCRIPT 1 4F11212
STO E+5 TO E+5. 4F11213
CLA E+7 AND MOVE 4F11214
ALS 18 COEFFICIENT 3 4F11215
STO E+4 INTO E+4. 4F11216
CLA E+8 MOVE SUBSCRIPT 3 INTO E+7, 4F11217
STO E+7 NEXT SUBSCRIPT 2 IN E+6. 4F11218
CLA D12 MOVE DIMESIONS 1 AND 2 4F11219
STO E+8 INTO E+8. 4F11220
CAL E+11 PACK TOGETHER 4F11221
ALS 18 ADDENDS 1 AND 2 4F11222
ORA E+12 AND 4F11223
SLW E+11 STORE THEM IN E+11. 4F11224
CAL E+13 MOVE 4F11225
ALS 18 ADDEND 3 4F11226
SLW E+12 INTO E+12. 4F11227
TSX TAU3IX,4 * GO SEARCH TAU3 TABLE. 4F11228
ALS 24 POSITION TAU3 TAG, AND 4F11229
ORS E PLACE TAU3 TAG IN TAG WORD. 4F11230
CAL E+7 COMBINE 4F11231
ORA E+6 SUBSCRIPTS 3,2, AND 1, 4F11232
3D0340 ORA E+5 AND IF THEY ARE ALL ZERO, 4F11233
3D0350 TZE NOTAG --DON,T ENTER FORTAG. 4F11234
FTG000 CAL EIFNO ENTER FORTAG= 4F11235
ANA MASK1 BRING UP ALPHA (INTFORMNO) 4F11236
SLW G AND STORE IN G. 4F11237
CAL E BRING UP TAUTAG FOR I, 4F11238
ARS 24 ADJUST, AND 4F11239
ORS G PLACE IN G WITH ALPHA. THEN 4F11240
TSX TET00,1 * ENTER INTO FORTAG TABLE 4F11241
PZE 4 (TET TABLE 4). 4F11242
TXI SAEXIT,0 GO TO EXIT. 4F11243
2D0000 LXA L(4),4 THEN PICKUP AND 4F11244
2D0001 LDQ E+7,4 CONVERT COEFFICIENTS 4F11245
TSX SR6DC1,1 * (BCD TO BINARY), 4F11246
STO E+7,4 AND STORE BACK IN E+3 AND E+5, 4F11247
TIX 2D0001,4,2 WHEN DONE, 4F11248
LXA L(2),4 PREPARE TO 4F11249
2D0002 CLA E+13,4 PICKUP THE TWO ADDENDS. 4F11250
SLW G STRIP OFF 4F11251
LDQ G THEIR SIGNS, 4F11252
TSX SR6DC1,1 * CONVERT THEM FROM BCD TO BINARY, 4F11253
LDQ E+13,4 PUT SIGN IN S-BIT OF MQ, AND 4F11254
TQP 2D0040 IF PLUS--SKIP NEXT, 4F11255
ORA 2E17 IF MINUS--OR SIGN INTO BIT 18, 4F11256
2D0040 STO E+13,4 AND STORE BACK IN E+11 AND E+12. 4F11257
TIX 2D0002,4,1 WHEN DONE, 4F11258
TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F11259
TSX DIAG,4 * --ERROR...NOT ON DRUM. 4F11260
2D0060 CLA E+3 REFORMATIZE E-STRING = 4F11261
ALS 18 PACK TOGETHER 4F11262
ADD E+5 COEFFICENTS 1 AND 2, 4F11263
STO E+3 AND STORE THEM IN E+3, 4F11264
CLA E+6 MOVE SUBSCRIPT 2 INTO E+5 4F11265
STO E+5 (NEXT TO SUBSCRIPT 1 IN E+4), 4F11266
CLA D12 OBTAIN 4F11267
ANA MASK1 DIMENSION 1, AND MOVE IT 4F11268
STO E+6 INTO E+6. 4F11269
CAL E+11 PACK TOGETHER 4F11270
ALS 18 ADDENDS 1 AND 2, 4F11271
ORA E+12 AND STORE THEM 4F11272
SLW E+11 IN E+11. 4F11273
TSX TAU2IX,4 * GO SEATCH TAU2 TABLE. 4F11274
ALS 24 POSITION TAU2 TAG, AND 4F11275
ORS E PLACE TAU2 TAG IN TAG WORD. 4F11276
CAL E+4 COMBINE SUBSCRIPTS 1 AND 2, AND 4F11277
TXI 3D0340,0 GO TO FORTAG SECTION. 4F11278
1D0000 LDQ E+3 PICKUP AND CONVERT COEFFICIENTS 4F11279
TSX SR6DC1,1 * (BCD TO BINARY), AND 4F11280
ALS 18 THEN ADJUST THEM, 4F11281
STO E+3 AND STORE THEM BACK IN E+3. 4F11282
CLA E+11 PICKUP ADDEND, 4F11283
SLW G STRIP OFF SIGN, 4F11284
LDQ G CONVERT ADDEND 4F11285
TSX SR6DC1,1 * (BCD TO BINARY), AND THEN 4F11286
LDQ E+11 PUT SIGN IN S-BIT OF MQ, 4F11287
TQP 1D0001 IF PLUS--SKIP NEXT, 4F11288
ORA 2E17 IF MINUS--OR SIGN INTO BIT 18. 4F11289
1D0001 ALS 18 THEN ADJUST AND STORE 4F11290
SLW E+11 BACK INTO E+11. 4F11291
TSX TAU1IX,4 * GO SEARCH TAU1 TABLE. 4F11292
ALS 24 POSITION TAU1 TAG, AND 4F11293
ORS E PLACE TAU1 TAG IN TAG WORD. 4F11294
CAL E+4 TAKE SUBSCRIPT, AND 4F11295
TXI 3D0350,0 GO TO FORTAG SECTION. 4F11296
NOTAG CAL FNIND POSITION SIGMA1 TAG, AND 4F11297
ORS E PLACE SIGMA1 TAG IN TAGE WORD. 4F11298
SAEXIT LXD SXR1,1 RESTORE THE C(XR1) 4F11299
LXD SXR2,2 RESTORE THE C(XR2) 4F11200
LXD SXR4,4 RESTORE THE C(XR4) 4F11301
TRA 1,4 * EXIT TO MAIN ROUTINE. 4F11302
REM END OF PROGRAM SS000. 4F11303
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11304
REM 4F11305
REM SUBX00,4/ CALLERS=C3000,C3300. 4F11306
REM SUBX00 ADDS BLANKS TO THE NAMES OF SUBROUTINES. 4F11307
SUBX00 LXA L(6),3 PREPARE TO COUNT CHARS AND SHIFTS. 4F11308
LDQ 1G PICKUP SUBROUTINE NAME. 4F11309
SUBX01 PXD ,0 CLEAR THE AC, AND 4F11310
LGL 6 SEARCH FOR A BLANK 4F11311
SUB BLANK CHARACTER IN THIS NAME. 4F11312
TZE SUBX03 IF NOT BLANK, THEN 4F11313
TXI SUBX02,1,6 UPDATE SHIFT COUNT, AND 4F11314
SUBX02 TIX SUBX01,2,1 CONTINUE UNTIL 6 CHARS ARE COUNTED.4F11315
TRA 1,4 * RETURN TO CALLER AFTER 6TH CHAR. 4F11316
SUBX03 LDQ BLANKS IF LESS THEN 6 CHARACTERRS IN NAME,4F11317
LGL 36,1 SHIFT ENOUGH BLANKS INTO THE AC, 4F11318
ORS 1G AND FILL OUT NAME WITH BLANKS. 4F11319
TRA 1,4 * RETURN TO CALLER. 4F11320
REM END OF PROGRAM SUBX00. 4F11321
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11322
REM 4F11323
REM TESTFX,1/ CALLERS=SS000,C3000,IFFIX. 4F11324
REM TESTFX TEST FOR FIXED OR FLOATING POINT VARIABLES. 4F11325
TESTFX CAL FIRSTC COMPARE FIRST CHARACTER 4F11326
CAS L(H) WITH H. 4F11327
CAS L(O) IF GREATER THEN H, COMPARE WITH O. 4F11328
TRA 1,1 * IF NOT GREATER THEN H, LESS THEN O,4F11329
TRA 1,1 * THEN TAKE FLOATING POINT EXIT. 4F11330
TRA 2,1 * OTHERWISE, TAKE FIXED POINT EXIT. 4F11331
REM END OF PROGRAM TESTFX. 4F11332
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11333
REM 4F11334
REM TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000, 4F11335
REM C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR. 4F11336
REM TEST.. TESTS THE CHARACTER IN THE AC(30-35). 4F11337
REM TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK. 4F11338
TESTA0 CAS COMMA 4F11339
TRA TESTA1 4F11340
TRA 1,4 * RETURN TO CALLER. 4F11341
TESTA1 SUB ENDMK 4F11342
TZE 1,4 * RETURN TO CALLER. 4F11343
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11344
REM TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS. 4F11345
TESTB0 CAS COMMA 4F11346
TRA TESTB1 4F11347
TRA 1,4 * RETURN TO CALLER. 4F11348
TESTB1 SUB CLOS 4F11349
TZE 1,4 * RETURN TO CALLER. 4F11350
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11351
REM TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK. 4F11352
TESTC0 CAS OPEN 4F11353
TRA TESTC1 4F11354
TRA 1,4 * RETURN TO CALLER. 4F11355
TESTC1 SUB ENDMK 4F11356
TZE 1,4 * RETURN TO CALLER. 4F11357
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11358
REM TEST CHARACTER IN THE AC FOR ENDMARK. 4F11359
TESTD0 CAS ENDMK 4F11360
ERR77P TSX DIAG,4 * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11361
TRA 1,4 * RETURN TO CALLER. 4F11362
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11363
REM TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS. 4F11364
TESTE0 CAS OPEN 4F11365
TRA TESTE1 4F11366
TRA 1,4 * RETURN TO CALLER. 4F11367
TESTE1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11368
REM TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS. 4F11369
TESTF0 CAS CLOS 4F11370
TRA TESTF1 4F11371
TRA 1,4 * RETURN TO CALLER. 4F11372
TESTF1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11373
REM TEST CHARACTER IN THE AC FOR COMMA. 4F11374
TESTG0 CAS COMMA 4F11375
TRA TESTG1 4F11376
TRA 1,4 * RETURN TO CALLER. 4F11377
TESTG1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11378
REM TEST CHARACTER IN THE AC FOR NON-NUMERIC. 4F11379
TESTH0 CAS L(9) 4F11380
TRA 1,4 * RETURN TO CALLER. 4F11381
NOP 4F11382
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11383
REM TEST CHARACTER IN THE AC FOR NUMERIC. 4F11384
TESTI0 CAS L(9) 4F11385
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11386
TRA 1,4 * RETURN TO CALLER. 4F11387
TRA 1,4 * RETURN TO CALLER. 4F11388
REM END OF PROGRAM TEST... 4F11389
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11390
REM 4F11391
REM TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400, 4F11392
REM C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD). 4F11393
REM TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS 4F11394
REM FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4. 4F11395
TET00 SXD TETXR2,2 SAVE THE C(XR2), 4F11396
SXD TETXR4,4 SAVE THE C(XR4), AND 4F11397
STQ TETMQR SAVE THE C(MQR). 4F11398
CLA 1,1 COMPUTE TABLE NUMBER 4F11399
ALS 1 TIMES 3 4F11400
ADD 1,1 AND 4F11401
COM PLACE THE 2S COMPLEMENT 4F11402
ADD L(1) OF THIS 4F11403
PAX ,2 IN XR2 4F11404
CLA INTET,2 OBTAIN THE CURRENT 4F11405
ARS 18 B (BUFFER CAPACITY), 4F11406
STO TETWRK AND SAVE IT. THEN 4F11407
CLA INTET+2,2 GET P (PORTION OF BUFFER FULL), 4F11408
ARS 18 AND 4F11409
SUB TETWRK COMPARE TO B. 4F11410
TNZ TET03 IF BUFFER IS FULL, 4F11411
STD INTET+2,2 SET P = 0, AND 4F11412
TET01 WRS TABTAP PREPARE TO WRITE BLOCK ON TABTAP. 4F11413
LXA TETWRK,4 SET XR4 = BLOCK SIZE (B). 4F11414
CLA TETWRK ADD BLOCK SIZE TO 4F11415
ADD INTET,2 ORGIN OF CURRENT BLOCK (O). 4F11416
STA TET02 AND SET ADDRESS OF COPY LOOP (O+B).4F11417
CPY 1,1 COPY TABLE NUM FOR IDENTIFICATION. 4F11418
TET02 CPY **,4 WRITE BLOCK ONTO 4F11419
TIX TET02,4,1 TABLE TAPE, AND 4F11420
IOD WHEN DONE, 4F11421
CLA INTET+2,2 INCREASE C (BLOCK COUNT) 4F11422
ADD L(1) BY 1 FOR 4F11423
STA INTET+2,2 BLOCK JUST WRITTEN ON TABLE TAPE. 4F11424
TET03 CLA INTET+2,2 ADD P (PORTION OF BUFFER FULL) 4F11425
ARS 18 TO O (ORIGIN OF CURRENT TABLE 4F11426
ADD INTET,2 BUFFER) TO SET 4F11427
STA TET05 ADDRESS OF ENTRY LOOP (P+O). 4F11428
CLA INTET+1,2 OBTAIN CURRENT A (ENTRY ADDRESS), 4F11429
STA TET04 AND SET ADDRESS OF ENTRY LOOP. 4F11430
PDX ,4 SET XR4 = E (ENTRY LENGTH IN WRDS).4F11431
ADD INTET+2,2 INCREASE P BY E TO ACCOUNT 4F11432
STD INTET+2,2 FOR FOLLOWING ENTRY. 4F11433
LXD L(0),2 SET XR2 = 0. THEN 4F11434
TET04 CLA **,2 MOVE THE CURRENT ENTRY 4F11435
TET05 STO **,2 INTO THE CURRENT TABLE BUFFER, AND 4F11436
TXI TET06,2,-1 WHEN 4F11437
TET06 TIX TET04,4,1 DONE, 4F11438
LDQ TETMQR RESTORE ORIGINAL C(MQR), 4F11439
LXD TETXR2,2 RESTORE ORIGINAL C(XR2), 4F11440
LXD TETXR4,4 RESTORE ORIGINAL C(XR4), AND 4F11441
TRA 2,1 * EXIT TO MAIN ROUTINE. 4F11442
REM END OF PROGRAM TET00. 4F11443
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11444
REM 4F11445
REM DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090, 4F11446
REM C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST..,4F11447
REM SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR, 4F11448
REM CMA,EMK,BEG(TYP),VRA(VRD). 4F11449
REM (CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE 4F11450
REM BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO 4F11451
REM THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.) 4F11452
DIAG TXI 4,0 * GO GET THE DIAGNOSTIC. 4F11453
REM END OF PROGRAM DIAG. 4F11454
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11455
REM 4F11456
REM ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS. 4F11457
FLTR00 SXD FLTR05,4 SAVE CALLING TAG. 4F114571
CLA EIFNO GET LAST INTERNAL AND EXTERNAL FORMULA NOS.4F114572
STA ENT PLACE LAST EFN IN DEC OF NTR INSTRUCTION. 4F114573
ARS 18 4F114574
STA NZE PLACE LAST IFN IN DEC OF PZE 4F114575
LXD ARGCTR,4 4F114576
TXL FLTR01,4,0 IS THIS AN FN FUNCTION, NO SKIP. 4F114577
STZ 1C+2 4F114578
CLS 2E18 SET ADDRESS TO -1 4F114579
TRA FLTR03 4F11457A
FLTR01 CLA SBDFCN IS THIS A MAIN PROGRAM OR SUBPROGRAM. 4F11457B
TNZ FLTR02 SKIP ON SUBPROGRAM 4F11457C
STZ 1C+2 SET ADDRESS TO 0 4F11457D
STZ 1C+3 4F11457E
TRA FLTR04 4F11457F
FLTR02 CLA DOLSGN SET ADDRESS TO $+2 4F11457G
STO 1C+2 4F11457H
CLA D2 4F11457I
FLTR03 STO 1C+3 SET RELATIVE ADDRESS WORD OF CIT. 4F11457J
FLTR04 TSX CIT00,4 4F11457K
PZE L(0) COMPILE NTR *+2,0,EFN 4F11457L
PZE ENT 4F11457M
PZE 15P 4F11457N
PZE D2 4F11457O
TSX CIT00,4 4F11457P
PZE L(0) COMPILE PZE ALPHA,0,IFN 4F11457Q
PZE NZE WHERE ALPHA IS 0 FOR MAIN PROGRAM, $+2 FOR 4F11457R
PZE 1C+2 SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER4F11457S
PZE 1C+3 MAIN OR SUBPROGRAM. 4F11457T
LXD FLTR05,4 4F11457U
FLTR05 TXI CIT00,0,** GO COMPILE LXD M(,4 OR 7(TYPE=,4 4F11457V
REM 4F11457W
REM 4F11458
REM END OF THE COMMON PART OF SECTION ONE. 4F11459
REM 4F11460
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11461
REM 4F11462
REM SECTION 1 / INITIALIZATION = 4F11463
REM 704 FORTRAN MASTER RECORD CARD / INITIZLIZATION = F0150000. 4F11464
ORG 0 4F114641
PZE FORSUB,,1TOCS 4F114642
PZE DMWR98 4F114643
ORG FORSUB 4F11465
REM INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER 4F11466
REM BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE 4F11467
REM PROGRAM. 4F11468
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11469
REM 4F11470
REM PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 = 4F11471
CLDR00 LXA CLDR07,1 CLEAR DRUMS 1,2,3,4 TO +0. 4F11472
CLDR01 WRS 197,1 X 4F11473
LXD CLDR07,2 X 4F11474
CLDR03 CPY CLDR08 X 4F11475
TIX CLDR03,2,1 X 4F11476
TIX CLDR01,1,1 X 4F11477
REW 146 REWIND WORKING TAPES 2,3,4. 4F11478
REW 147 X 4F11479
REW 148 X 4F11480
REM END OF INITIALIZATION / PART 1. 4F11481
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11482
REM 4F11483
REM PART 2 / WRITE STATES A,B,C,D ON DRUMS1,3,4,2= 4F11484
DMWR01 LXA L(3),4 PREPARE TO WRITE STATE D ON DRUM 2.4F11485
TRA DMWR11 X 4F11486
DMWR03 LXA L(1),4 PREPARE TO WRITE STATE C ON DRUM 4.4F11487
TRA DMWR11 X 4F11488
DMWR06 LXA L(2),4 PREPARE TO WRITE STATE B ON DRUM 3.4F11489
TRA DMWR11 X 4F11490
DMWR09 LXA L(4),4 PREPARE TO WRITE STATE A ON DRUM 1.4F11491
CLA DMWR98 THIS IS FINAL STATE TO BE WRITTEN, 4F11492
STA DMWR40 CHANGE ADDRESS TO GET OUT OF LOOP. 4F11493
DMWR11 CLA ZETA+4,4 GET LENGTH OF CURRENT STATE. 4F11494
PDX ,2 LENGTH OF CURRENT STATE. 4F11495
SXD CHECK,2 SAVE LENGTH. 4F11496
ARS 18 LENGTH + ORIGIN TO PREPARE FOR CK 4F11497
ADD MTR3 SUM AND COPY LOOPS. 4F11498
STA DMWR20 X 4F11499
STA DMWR26 X 4F11500
PXD ,0 CLEAR AC AND COMPUTE CK SUM. 4F11501
DMWR20 ACL **,2 X 4F11502
TIX DMWR20,2,1 X 4F11503
SLW DRCKSM X 4F11504
LXA DRMERC,1 SET FOR FIVE ATTEMPTS. 4F11505
DMWR23 WDR 5,4 PREPARE TO WRITE DRUM. 4F11506
LXD CHECK,2 X 4F11507
LDA ZETA+4,4 X 4F11508
CPY DRCKSM WRITE CK SUM ON DRUM. 4F11509
DMWR26 CPY **,2 WRITE STATE ON DRUM. 4F11510
TIX DMWR26,2,1 X 4F11511
RDR 5,4 PREPARE TO READ STATE BACK. 4F11512
LXD CHECK,2 X 4F11513
LDA ZETA+4,4 X 4F11514
PXD ,0 CLEAR AC AND READ BACK CK SUM AND 4F11515
CAD GARBGE STATE. 4F11516
COM X 4F11517
DMWR32 CAD GARBGE RECOMPUTE CK SUM. 4F11518
TIX DMWR32,2,1 X 4F11519
COM X 4F11520
DMWR40 TZE 1TOCS * CK SUM AGREE, GO GET NEXT STATE. 4F11521
TIX DMWR23,1,1 CK SUM FAILED, TRY UP TO 5 TIMES. 4F11522
CLA DMWR89 SET MONITOR TO RETURN TO THIS 4F11523
STO STATEA PROGRAM INSTEAD OF TO STATE A. 4F11524
TXL DMWR80,4,3 TEST FOR STATE A IN PROGRESS. 4F11525
TSX DIAG,4 * STATE A CANNOT BE WRITTEN ON DRUM1.4F11526
DMWR80 TXL DMWR82,4,2 TEST FOR STATE D IN PROGRESS. 4F11527
RTB 1 SPACE OVER STATE C RECORD. 4F11528
RTB 1 SPACE OVER STATE B RECORD. 4F11529
RTB 1 SPACE OVER STATE A RECORD. 4F11530
TSX DIAG,4 * STATE D CANNOT BE WRITTEN ON DRUM2.4F11531
DMWR82 TXL DMWR84,4,1 TEST FOR SET B IN PROGRESS. 4F11532
RTB 1 SPACE OVER STATE A RECORD. 4F11533
TSX DIAG,4 * STATE B CANNOT BE WRITTEN ON DRUM3.4F11534
DMWR84 RTB 1 SPACE OVER STATE B RECORD. 4F11535
RTB 1 SPACE OVER STATE A RECORD. 4F11536
TSX DIAG,4 * STATE C CANNOT BE WRITTEN ON DRUM4.4F11537
DMWR88 LXA L(0),4 SET IR4 TO 0 TO CAUSE DIAGNOSTIC TO4F11538
TRA DIAG * PRINT END LINE AND STOP 4F11539
DMWR99 TSX CA100,4 * GO TO SUBROUTINE TO LOAD FT REGION.4F11540
TRA CA010 * GO BEGIN STATE A OF SECTION ONE. 4F11541
REM END OF INITIALIZATION / PART 2. 4F11542
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11543
REM 4F11544
REM PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION= 4F11545
GARBGE BSS 1 ERASEABLE STORAGE. 4F11546
CHECK PZE ,,** SAVING CELL FOR LENGTH OF STATE. 4F11547
CLDR07 PZE 4,,2048 CONSTANT FOR CLEARING DRUMS. 4F11548
CLDR08 PZE 0 CONSTANT FOR CLEARING DRUMS. 4F11549
DMWR89 TRA DMWR88 CONSTANT FOR ERROR ROUTINE. 4F11550
DMWR98 PZE DMWR99 CONSTANT FOR ADDRESS MODIFICATION. 4F11551
REM END OF INITIALIZATION / PART 3. 4F11552
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11553
REM 4F11554
REM 4F11555
REM SECTION 1 / STATEA = 4F11556
REM 704 FORTRAN MASTER RECORD CARD / STATE A = F0190000. 4F11557
ORG 0 4F115571
PZE ORGA,,DMWR09 4F115572
PZE ENDA-1 4F115573
REM 4F11558
REM NAME FUNCTION 4F11559
REM PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS= 4F11560
REM CA000 ASSEMBLE STATEMENT. 4F11561
REM CD000 SCAN FOR HOLLERITH AND ILLEGAL CHS.4F11562
REM CB000 CLASSIFY=ARITHMETIC/NON-ARITHMETIC.4F11563
REM CC000 CLASSIFY=WHICH NON-ARITHMETIC. 4F11564
REM PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS. 4F11565
REM C0100 DO. 4F11566
REM C0200 GO TO. 4F11567
REM C0300 IF. 4F11568
REM C0400 IF (SENSE SWITCH. 4F11569
REM C0500 IF (SENSE LIGHT. 4F11570
REM C0600 IF DIVIDE CHECK. 4F11571
REM C0700 IF AC OVERFLOW. 4F11572
REM C0800 IF MQ OVERFLOW. 4F11573
REM C0900 PAUSE. 4F11574
REM C1000 ASSIGN. 4F11575
REM C1100 SENSE LIGHT. 4F11576
REM C1200 DIMENSION. 4F11577
REM C1300 STOP. 4F11578
REM C1400 FREQUENCY. 4F11579
REM C1500 EQUIVALENCE. 4F11580
REM C1600 CONTINUE. 4F11581
REM C3000(C3500) SUBROUTINE / FUNCTION. 4F11582
REM C3100 COMMON. 4F11583
REM C3200 RETURN. 4F11584
REM C3300 CALL. 4F11585
REM C3400 END. 4F11586
REM PART 3 / PROCESS INPUT-OUTPUT STATEMENTS= 4F11587
REM RDC READ CARD 4F11588
REM RIT READ INPUT TAPE. 4F11589
REM RDP PRINT. 4F11590
REM WOT WRITE OUTPUT TAPE. 4F11591
REM PDC PUNCH. 4F11592
REM WBT WRITE TAPE. 4F11593
REM RBT READ TAPE. 4F11594
REM WRD WRITE DRUM. 4F11595
REM RDD READ DRUM. 4F11596
REM EFT END FILE. 4F11597
REM RWN REWIND. 4F11598
REM BSP BACKSPACE. 4F11599
REM FOR FORMAT. 4F11600
REM RSC RESET AND SCAN. 4F11601
REM LISTR CONTROL FOR LIST SCAN. 4F11602
REM LPR LEFT PARENTHESES IN LIST SCAN. 4F11603
REM EOS EQUAL SIGN IN LIST SCAN. 4F11604
REM SPCTR CONTROL FOR SPECIFICATION SCAN. 4F11605
REM SPC SUBSCRIPT SPECIFICATIONS. 4F11606
REM RPR RIGHT PARENTHESIS IN LIST SCAN. 4F11607
REM CMA COMMA IN LIST SCAN. 4F11608
REM EMK ENDMARK IN LIST SCAN. 4F11609
REM PART 4 / SUBROUTINES USED BY STATE A= 4F11610
REM BEG(TYP),4 BEGIN SCAN AND TYPE TEST. 4F11611
REM BEGTR CONTROL FOR BEGINNING SCAN. 4F11612
REM BRW,4 BINARY READ OR WRITE COMPILER. 4F11613
REM BSS,2 COMPILES= IFN BSS 0. 4F11614
REM CA100,4 READ SOURCE PROGRAM TAPE. 4F11615
REM CC500,4 SCAN DICTIONARY. 4F11616
REM ETM(LTM)SW,4 IF SW=NOP, COMPILES ETM(LTM). SL=0.4F11617
REM IFFIX,1 SETS UP FORVAR OR FORVAL ENTRY. 4F11618
REM IN(OUT)PUT,2 COMPILES CAL *, AND XIT (LEV). 4F11619
REM LIB,1 MAKES CLOSUB ENTRY, COMPILES CIT. 4F11620
REM VRA(VRD),4 MAKES FORVAR, FIXCON, CIT ENTRIES. 4F11621
REM PART 5 / CONSTANTS AND VARIABLES USED BY STATE A. 4F11622
REM DIC DICTIONARY. 4F11623
REM T TRANSFER TABLE. 4F11624
REM 4F11625
REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING= 4F11626
REM 4F11627
REM ** IN ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION 4F11628
REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 4F11629
REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 4F11630
REM THIS LOGICAL BLOCK OR SUBROUTINE. 4F11631
REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 4F11632
REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). 4F11633
REM 4F11634
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11635
REM 4F11636
REM STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS= 4F11637
ORGA ORG 1824 4F11638
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11639
REM 4F11640
REM CA000/ CALLS=CA100,SR6DC1,TET00,DIAG. 4F11641
REM CA000 ASSEMBLES STATEMENT IN THE F-REGION AND ASSIGNS AN IFN.4F11642
CA010 LXD ENDWRD,4 IF THE FINAL STATEMENT HAS BEEN 4F11643
TXL DIAG,4,0 * PROCESSED, THE GO CALL DIAGNOSTIC. 4F11644
LXD EIFNO,1 KEEP INTERAL FORMULA NUMBER 4F11645
TXI CA013,1,1 (DECR PART OF EIFNO) 4F11646
CA013 SXD EIFNO,1 UP TO DATE BY ADDING 1. 4F11647
CAL FT OBTAIN HOLLERITH CODED 5-DIGIT 4F11648
ARS 6 EXTERNAL FORMULA NO IN ACC. 4F11649
SLW F-1 AND RETAIN IN F-01. 4F11650
LXD DCF,1 INITIALIZE INDEX A TO COMPL OF F. 4F11651
CA018 LXA L(11),2 SET UP LOOP FOR 11 CYCLES. 4F11652
CA019 LDQ FT+12,2 MOVE WORD FROM REGION FT 4F11653
STQ 0,1 TO REGION F. 4F11654
TIX CA020,1,1 KEEP F-REGION ADDRESS UP-TO-DATE. 4F11655
CA020 TIX CA019,2,1 TEST END OF LOOP. 4F11656
TSX CA100,4 * GO READ NEXT NON-BLANK CARD. 4F11657
CAL FT TEST RIGHTMOST CHARACTER OF 4F11658
ANA L(63) FIRST WORD FOR CONTINUATION MARK, 4F11659
TZE CA021 IF ZERO OR BLANK, 4F11660
SUB ABLANK DISCONTINUE READING, 4F11661
TNZ CA018 OTHERWISE CONTINUE. 4F11662
CA021 CLA BLANKS BEGIN SCANNING REGION F BACKWARDS 4F11663
CA022 CAS -1,1 TO FIND FIRST NON BLANK WORD. 4F11664
TRA CA023 NOT BLANK. 4F11665
TXI CA022,1,1 BLANK, SO CONTINUE SCAN. 4F11666
CA023 LDQ 36ONES PLACE BINARY ONES IN FIRST WORD 4F11667
STQ 0,1 FOLLOWING RIGHTMOST NONBLANK WORD. 4F11668
CAL F-1 PICK UP EXTERNAL FORMULA NUMBER AND4F11669
CAS 5BLANS COMPARE WITH /0 /. 4F11670
TRA CA015 NOT COMPARE. 4F11671
TRA CD000 * TAKE EXTFORMNO, IF ANY AND 4F11672
CA015 LRS 35 GO TO CONVERSION SUBROUTINE AND 4F11673
TSX SR6DC1,1 * RETURN HERE WITH RESULT IN ACC. 4F11674
STA EIFNO STORE RESULT IN ADDRESS OF EIFNO. 4F11675
TSX TET00,1 * GO TO PROGRAM TET TO ENTER EIFNO 4F11676
PZE 0 INTO TABLE TEIFNO (TABLE O). 4F11677
REM END OF PROGRAM CA000. 4F11678
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11679
REM 4F11680
REM CD000/ CALLS=C0190X,C0190,DIAG. 4F11681
REM CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS. 4F11682
CD000 TSX C0190X,4 * SET SCAN TO PICK UP 1ST CHARACTER. 4F11683
CD001 TSX CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11684
CAS COMMA SCAN 4F11685
TXI CD002,0 FOR 4F11686
TXI CD003,0 HOLLERITH 4F11687
CD002 SUB OPEN SPECIFICATION 4F11688
TNZ CD001 WHICH 4F11689
CD003 TSX CD900,1 * CAN BE= 4F11690
SUB L(10) , N H 4F11691
TPL CD001 OR = ( N H. 4F11692
CD004 TSX CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11693
CAS L(9) CONTINUE SCAN. 4F11694
TXI CD005,0 N 4F11695
TXI CD004,0 IS 4F11696
TXI CD004,0 A 4F11697
CD005 CAS L(H) FIXED 4F11698
TXI CD001+1,0 POINT 4F11699
TXI CD700,0 INTEGER. 4F11700
TXI CD001+1,0 X 4F11701
CD700 TSX C0190,4 * GO GET NEXT NONBLANK CHARACTER, 4F11702
CAS ENDMK AND IF ENDMARK, 4F11703
TXI CD701,0 THEN SKIP 4F11704
TXI CC000,0 * TO NON-ARITHMETIC CLASSIFICATION. 4F11705
CD701 TSX CD600,1 * SINCE HOLLERITH HAS BEEN FOUND, 4F11706
TXI CD700,0 THEN $ IS LEGAL IN FORMAT TEST. 4F11707
CD900 TSX C0190,4 * OBTAIN NEXT NONBLANK CHARACTER, 4F11708
CAS ENDMK AND IF NOT 4F11709
TXI CD800,0 ENDMARK, THEN SKIP 4F11710
TXI CB000,0 * EXIT TO ARITH/NON-ARITH SCAN. 4F11711
CD800 CAS SPECOP CHECK FOR $ 4F11712
TXI CD601,0 WHICH, UNLESS HOLERITH, IS AN 4F11713
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11714
CD600 CAS PM CHECK FOR RECORD MARK 4F11715
TRA 1,1 WHICH IS AN 4F11716
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11717
CD601 CAS CHAR3 CHECK FOR MINUS ZERO 4F11718
TRA 1,1 WHICH IS AN 4F11719
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11720
CAS CHAR2 CHECK FOR PLUS ZERO 4F11721
TRA 1,1 WHICH IS AN 4F11722
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11723
CAS MINUS CHECK FOR MINUS SIGN 4F11724
TRA 1,1 WHICH IS AN 4F11725
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11726
SUB TEN CHECK FOR TEN 4F11727
TNZ 1,1 WHICH IS AN 4F11728
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11729
REM END OF PROGRAM CD000. 4F11730
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11731
REM 4F11732
REM CB000/ CALLS=C0190X,C0190,DIAG. 4F11733
REM CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC. 4F11734
CB000 LXA L(1),1 SET XR TO COUNT PARENTHESES. 4F11735
TSX C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11736
CB001 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. 4F11737
CAS AEQUAL IF AN EQUAL SIGN, 4F11738
TXI CB005,0 THEN 4F11739
TXI CB200,0 GO TEST PAREN-COUNT. 4F11740
CB005 CAS ALPAR IF A LEFT PARENTHESIS, 4F11741
TXI CB006,0 THEN 4F11742
TXI CB001,1,1 UPDATE PAREN-COUNT BY 1. 4F11743
CB006 CAS ARPAR IF A RIGHT PARENTHESIS, 4F11744
TXI CB007,0 THEN 4F11745
TXI CB500,0 GO TEST PAREN-COUNT. 4F11746
CB007 SUB ENDMK IF NOT ENDMARK, THEN 4F11747
TNZ CB001 GO EXAMINE NEXT CHARACTER. 4F11748
TXI CC000,0 * OTHERWISE, GO TO DIC LOOK-UP. 4F11749
CB200 TIX CC000,1,1 * IF EQUAL WAS NOT WITHIN PARENS, 4F11750
CB201 TSX C0190,4 * THEN EXAMINE NEXT CHARACTER. 4F11751
CAS ALPAR IF LEFT PARENTHESIS, 4F11752
TXI CB205,0 THEN 4F11753
TXI ARITH,0 * THIS IS AN ARITHMETIC FORMULA. 4F11754
CB205 CAS ACOMMA IF A COMMA, 4F11755
TXI CB206,0 THEN 4F11756
TXI CC000,0 * GO TO NON-ARITHMETIC DIC LOOK-UP. 4F11757
CB206 SUB ENDMK IF NOT ENDMARK, THEN 4F11758
TNZ CB201 GO EXAMINE NEXT CHARACTER. 4F11759
TXI ARITH,0 * THIS IS AN ARITHMETIC FORMULA. 4F11760
CB500 TIX CB001,1,1 IF PAREN-COUNT DOES NOT BALANCE, 4F11761
TSX DIAG,4 * ERROR-GO TO DIAGNOSTIC ROUTINE. 4F11762
REM END OF PROGRAM CB000. 4F11763
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11764
REM 4F11765
REM CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00. 4F11766
REM CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITHMETIC. 4F11767
CC000 STZ 2G SET DICTIONARY WORD TAG, AND 4F11768
LXA L(0),3 CHARACTER COUNT AND ENTRY COUNT. 4F11769
CC001 TSX C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11770
TSX CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11771
CAS ENDMK TEST FOR CONSECUTIVE ENDMARKS. 4F11772
TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11773
TSX DIAG,4 * ERROR = NOT FOUND IN DICTIONARY. 4F11774
TXI CC004,4 GO BEGIN COMARISION. 4F11775
CC002 TSX CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11776
CAS ENDMK TEST FOR END OF DIC ENTRY. 4F11777
TXI ERR77P,0 * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11778
TXI CC007,0 IF END OF ENTRY, LOOK NO FURTHER. 4F11779
CC004 STO 1C OTHERWISE, SAVE CHARACTER 4F11780
STQ 1C+1 AND REMAINDER OF DICTIOANRY WORD. 4F11781
TSX C0190,4 * GO GET NEXT FORMULA CHARACTER, 4F11782
LDQ 1C+1 AND RESTORE DICTIONARY WORD. 4F11783
SUB 1C IF CHARCATERS ARE EQUAL, 4F11784
TZE CC002 THEN GO COMPARE NEXT CHARACTER. 4F11785
CC005 TSX CC500,4 * OTHERWISE, EXAMINE NEXT DIC CHAR. 4F11786
SUB ENDMK CONTINUE UNTIL AN ENDMARK IS 4F11787
TNZ CC005 FOUND, THEN 4F11788
TXI CC001,1,-1 COUNT ENTRY, AND BEGIN AGAIN. 4F11789
CC007 CLA T,1 IF THE CURRENT STATEMENT IS 4F11790
TPL T,1 OF THE NON-EXCUTABLE TYPE, 4F11791
SXD 1C+2,1 THEN 4F11792
TSX TET00,1 * GO ENTER EIFNO IN THE 4F11793
PZE 14 NONEXC TABLE. 4F11794
LXD 1C+2,1 AND THEN 4F11795
CC008 TRA T,1 * TAKE INDICATED TRANSFER. 4F11796
REM END OF PROGRAM CC000. 4F11797
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11798
REM 4F11799
REM STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS= 4F11800
REM 4F11801
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11802
REM 4F11803
REM C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00. 4F11804
REM C0100 PROCESSES DO STATEMENTS. 4F11805
C0100 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F11806
TSX C0190,4 * OBTAIN 1ST NON-BLANK CHARACTER 4F11807
TSX TESTI0,4 * WHICH SHOULD BE NUMERIC. 4F11808
TSX C0180,2 * OBTAIN IN 1G THE BIN EQUIV OF BETA.4F11809
STO 2G SAVE THE 1ST CHAR OF SUBSCRIPT. 4F11810
CLA 1G TAKE CONVERTED RESULT FOR BETA 4F11811
STA 1C AND STORE IN ADDR OF 1C. 4F11812
CLA 2G 1C IS NOW COMPETE EXCEPT FOR TAG. 4F11813
TSX C0160,2 * OBTAIN IN 1G THE SUBSCRIPT. 4F11814
CLA 1G STORE SUBSCRIPT 4F11815
STO 1C+1 IN 1C+1. 4F11816
TSX C0150,2 * OBTIAN IN 1G THE PROPER N1. 4F11817
CLA 1G STORE N1 4F11818
STO 1C+2 IN 1C+2. 4F11819
CAL I OBTAIN I IN LOGICAL ACC AND 4F11820
ARS 18 STORE IN POS 18 OF 1C 4F11821
ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11822
TSX C0150,2 * OBTAIN IN 1G THE PROPER N2. 4F11823
TSX TESTA0,4 * TEST THE AC FOR COMMA OR ENDMARK. 4F11824
TNZ C0113 IF ENDMARK, THEN 4F11825
RQL 31 CREATE ONE IN MQ FOR N3 4F11826
STQ RESIDU AND PLACE IN RESIDU. 4F11827
C0113 CLA 1G STORE N2 4F11828
STO 1C+3 IN 1C+3. 4F11829
CAL I OBTAIN I IN LOG ACC AND 4F11830
ARS 19 STORE IN POS 19 OF 1C 4F11831
ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11832
TSX C0150,2 * OBTAIN IN 1G THE PROPER N3. 4F11833
TSX TESTD0,4 * THE AC SHOULD CONTIAN AN ENDMARK. 4F11834
CLA 1G STORE N3 4F11835
STO 1C+4 IN 1C+4. 4F11836
CAL I OBTAIN I IN LOG ACC AND 4F11837
ARS 20 STORE IN POS 20 OF 1C 4F11838
ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11839
TSX TET00,1 * GO TO TET PROGRAM TO ENTER 4F11840
PZE 1 1C,1C+1,..1C+4 IN TDO TABLE 1. 4F11841
TXI CA010,0 * EXTI TO PROCESS NEXT STATEMENT. 4F11842
REM END OF PROGRAM C0100. 4F11843
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11844
REM 4F11845
REM C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160, 4F11846
REM CIT00,SS000(CSA000). 4F11847
REM C0200 PROCESSES GO TO STATEMENTS. 4F11848
C0200 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C 4F11849
STO 1C+2 AND IN 1C+2. 4F11850
TSX C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER 4F11851
CAS L(9) AND COMPARE IT WITH 9. 4F11852
TXI C0205,0 IF NON-NUMERIC, GO COMPARE WITH (. 4F11853
NOP IF NUMERIC, THEN 4F11854
TSX C0180,2 * OBTAIN IN 1G THE BINARY EQUV BETA. 4F11855
TSX TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK. 4F11856
CLA 1G STORE BETA IN 1C+1 TO CONSTRUCT 4F11857
STO 1C+1 THE 2ND WORD OF TIFGO TABLE ENTRY. 4F11858
TXI C0202,0 GO TO ENTER 1C,1C+1 INTO TIFGO. 4F11859
C0205 CAS ALPAR TEST CHARACTER FOR ALPHABETIC. 4F11860
TXI C0210,0 IF NOT ALPHABETIC, THEN 4F11861
TXI C0212,0 THIS IS TYPE= GO TO ( ), I. 4F11862
C0210 TSX C0160,2 * TYPE= GO TO N,(),SO OBTAIN IN 1G N 4F11863
TSX TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. 4F11864
CLA 1G SAVE THE SYMBOL N IN 1C+3 4F11865
STO 1C+3 FOR COMPILED INSTRUCTION. 4F11866
TSX C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER, 4F11867
TSX TESTE0,4 * WHICH SHOULD BE A LPARAN. 4F11868
CLA L(1) PREPARE TO SET ADDRESS PART OF 1C 4F11869
TRA C0213 TO 1 TO INDICATE CLASS OF TRANSFER.4F11870
C0212 CLA L(2) PREPARE TO SET ADDR OF 1C TO 2. 4F11871
C0213 STA 1C STORE 1 OR 2 IN ADDR OF 1C. 4F11872
LXD CTRAD,2 OBTAIN 250-(NO. TRAD ENTRIES), AND 4F11873
PXD ,2 PLACE IN THE DECREMENT OF THE AC 4F11874
STO 1C+1 AND STORE IN 1C+1. 4F11875
C0215 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHAR. 4F11876
TSX C0180,2 * OBTAIN IN 1G THE BIN EQU OF BETA. 4F11877
STO 2G SAVE CHAR IN ACC. 4F11878
TSX TET00,1 * GO TO ENTER 1G 4F11879
PZE 3 INTO TRAD TABLE (TABLE 3). 4F11880
LXD CTRAD,2 REDUCE COUNTER 4F11881
TIX C0216,2,1 CTRAD 4F11882
C0216 SXD CTRAD,2 BY 1. 4F11883
CLA 2G RESTORE CHAR TO ACC. 4F11884
TSX TESTB0,4 * TEST FOR COMMA OR RPAREN. 4F11885
TNZ C0215 IF RIGHT PARENTHESIS, THEN 4F11886
CLA CTRAD OBTAIN IN ADDR OF ACC 250-NO. OF 4F11887
ARS 18 ENTRIES IN TRAD TABLE,AND STORE 4F11888
STA 1C+1 IN ADDR OF 1C+1. 4F11889
CLA 1C OBTAIN 1C IN ACC 4F11890
LBT AND TEST LOW ORDER BIT. 4F11891
TRA C0220 THIS IS A TYPE GO TO (),I FORMULA. 4F11892
TSX C0190,4 * OBTAIN NEXT NB CHAR AND 4F11893
TSX TESTD0,4 * TEST FOR ENDMK. 4F11894
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F11895
PZE 1C+2 WORD 1--DECR= INTFORMNN (LOCATION) 4F11896
PZE L(TRA) WORD 2--TRA00P (OP AND DECR) 4F11897
PZE 1C+3 WORD 3--VARIABLE N (ADDRESS) 4F11898
PZE L(0) WORD 4--00000 (REL ADDR AND TAG). 4F11899
TRA C0202 GO TO ENTER 1C,1C+1 INTO TIFGO. 4F11900
C0220 TSX C0190,4 * EXAMINE NEXT NB CHARACTER, 4F11901
TSX TESTG0,4 * WHICH SHOULD BE A COMMA. 4F11902
TSX C0190,4 * OBTAIN IN ACC NEXT NB CHAR, AND 4F11903
TSX C0160,2 * OBTAIN IN 1G THE FXF-PT. VARIABLE. 4F11904
TSX TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F11905
CLA L(1) PREPARE PROPER FORM OF SUBSCRIPT 4F11906
STO E+3 COMBINATION AS 4F11907
STO DIMCTR INPUT TO SUBSCRIPT ANALYSIS= 4F11908
CLA 1G E+3 = 1ST COEFFICIENT. 4F11909
STO E+4 E+4 = 1ST SUBSCRIPT VARIABLE, 4F11910
STZ E+9 E+9 = ADDEND OF SUBSCRIPT, 4F11911
TSX CSA000,4 * DIMCTR = DIMENSION OF VARIABLE. 4F11912
CLA E OUTPUT FROM CSA IS FOUND IN 4F11913
ARS 24 E = I--TAUTAG (GENERAL TAG) 1-11. 4F11914
STO 2G ADJUST AND SAVE FOR COMP. INSTR. 4F11915
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F11916
PZE 1C+2 WORD 1--DECR-INTFORMNO(LOCATION) 4F11917
PZE L(TRA) WORD 2--TRA000(OP AND DECR) 4F11918
PZE L(0) WORD 3--000000(ADDRESS) 4F11919
PZE 2G WORD 4--ADDR = TAUTAG FOR I 4F11920
REM C0200= ENTRY POINT USED BY C0400,C1000. 4F11921
C0202 TSX TET00,1 * GO TO TET TO ENTER 1C AND 1C+1 4F11922
PZE 2 INTO TIFGO TABLE (TABLE 2). 4F11923
CTRAD TXI CA010,0,250 * EXIT TO PROCESS NEXT STATEMENT. 4F11924
REM END OF PROGRAM C0200. 4F11925
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11926
REM 4F11927
REM C0300/ CALLS=-C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00, 4F11928
REM STATEB. 4F11929
REM C0300 PROCESSES IF STATEMENTS. 4F11930
C0300 LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F11931
PXD ,4 NUMBER IN THE DECREMENT OF 1C 4F11932
SSM WITH SIGN SET TO MINUS 4F11933
STO 1C FOR FUTURE TIFGO ENTRY. 4F11934
TSX C0190X,4 * SET CHCTR AND FWA TO BEGIN SCAN. 4F11935
TSX C0190,4 * OBTAIN IN AC THE 1ST NB CHAR (I). 4F11936
LDQ L(X) REPLACW THE CHARACTER I 4F11937
TSX C0390,4 * WITH THE CHARACTER X. 4F11938
LDQ L(10) REPALCE THE CHARACTER F 4F11939
TSX C0390,4 * WITH THE CHARACTER 001010. 4F11940
TSX TESTE0,4 * IF NOT LPAREN -- THEN ERROR. 4F11941
LDQ AEQUAL REPLACE THE CHARACTER LPARAN 4F11942
TSX C0390,4 * WITH THE CHARACTER EQUAL. 4F11943
LXA L(1),2 SET XR2 FOR COUNTING PARENTHESES. 4F11944
TRA *+2 4F11945
C0302 TSX C0190,4 * MAKE SURE THAT NEXT NB CHARACTER 4F11946
CAS ENDMK IS NOT AN ENDMARK. 4F11947
TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11948
TSX DIAG,4 * PROGRAM ERROR, GO TO DIAGNOSTIC. 4F11949
CAS ALPAR IF IT IS A LPAREN, 4F11950
TXI C0303,0 THEN ADD 1 TO PAREN COUNT, AND 4F11951
TXI C0302,2,1 GO EXAMINE NEXT CHARACTER. 4F11952
C0303 SUB ARPAR IF IT IS A RPAREN, 4F11953
TNZ C0302 THE TEST PAREN COUNT, AND IF IT 4F11954
TIX C0302,2,1 CAN NOT BE REDUCED,MATE IS FOUND. 4F11955
LDQ ENDMK SO REPLACE THE CHARACTER RPAREN 4F11956
TSX C0390,4 * WITH THE CHARACTER ENDMK. 4F11957
TSX C0180,2 * BINARY EQUIVALENT OF BETA 1. 4F11958
TSX TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.4F11959
CLA 1G MOVE BETA1 4F11960
STA 1C TO ADDRESS OF 1C. 4F11961
TSX C0190,4 * AND PROCEED TO FORM 4F11962
TSX C0180,2 * THE BINARY EQUIVALENT OF BETA 2. 4F11963
TSX TESTG0,4 * THIS SHOULD BE FOLLWED BY A COMMA. 4F11964
CLA 1G MOVE BETA2 4F11965
ALS 18 TO DECR PART 4F11966
STO 1C+1 OF 1C+1. 4F11967
TSX C0190,4 * AND PROCEED TO FORM 4F11968
TSX C0180,2 * THE BINARY EQUIVALENT OF BETA 3. 4F11969
TSX TESTD0,4 * THIS SHOULD BE FOLLOWED BY ENDMARK.4F11970
CLA 1G MOVE BETA3 4F11971
STA 1C+1 TO ADDRESS OF 1C+1. 4F11972
TXI ARITH,0 * EXIT TO ARITH FOR FINAL PROCESSING.4F11973
REM END OF PROGRAM C0300. 4F11974
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11975
REM 4F11976
REM C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200. 4F11977
REM C0400 PROCESSES IF (SENSE SWITCH STATEMENTS. 4F11978
C0400 CLA L(112) FOR SENSE SWITCH 4F11979
STO 1H SET 1H TO 112, AND PREPARE TO 4F11980
CLA L(PSE) SET 2H TO PSE. 4F11981
REM C0401= ENTRY POINT USED BY C0500. 4F11982
C0401 STO 2H SET 2H FOR SENSE SWITCH OR LIGHT. 4F11983
TSX C0190,4 * PROCEED TO FORM THE BINARY 4F11984
TSX C0180,2 * EQUIVALENT OF SW OR SL NUMBER. 4F11985
TSX TESTF0,4 * THIS SHOULD BE FOLLOWED BY RPAREN. 4F11986
CLA L(3) STORE 3 4F11987
STO 1C IN ADDRESS OF 1C. 4F11988
CLA 1G ADD THE PROPER INCREMENT TO THE 4F11989
ADD 1H NUMBER OF SENSE SWITCH OR LIGHT, 4F11990
ALS 18 AND ADJUST TO THE DECREMENT. 4F11991
REM C0402= ENTRY POINT USED BY C0600. 4F11992
C0402 STO 1C+3 SET 1C+3 FOR CIT ENTRY. 4F11993
LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F11994
PXD ,4 NUMBER IN THE DECREMENT OF 4F11995
STD 1C 1C FOR FUTURE TIFGO ENTRY, AND 4F11996
STO 1C+2 1C+2 FOR FUTURE CIT ENTRY. 4F11997
TSX C0190,4 * PROCEED TO FORM THE BINARY 4F11998
TSX C0180,2 * EQUIVALENT OF BETA 1, 4F11999
TSX TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. 4F12000
CLA 1G BRING UP, 4F12001
ALS 18 ADJUST AND 4F12002
STO 1C+1 STORE BETA1 IN DECR OF 1C+1. 4F12003
TSX C0190,4 * PROCEED TO FORM THE BINARY 4F12004
TSX C0180,2 * EQUIVALENT OF BETA 2, 4F12005
TSX TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F12006
CLA 1G BRING UP AND 4F12007
STA 1C+1 STORE BETA2 IN ADDR OF 1C+1. 4F12008
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12009
PZE 1C+2 WORD1--DECR = INTFORMNO (LOCATION) 4F12010
PZE 2H WORD2--PSE,MSE,DCT,TOV,OR TQO. 4F12011
PZE L(0) WORD3--000000 (ADDRESS) 4F12012
PZE 1C+3 WORD4--DECR=SS OR SL NO., OR 0000004F12013
TXI C0202,0 * MAKE TIFGO ENTRY, AND RETURN TO CA.4F12014
REM END OF PROGRAM C0400. 4F12015
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12016
REM 4F12017
REM C0500/ USES=C0400. 4F12018
REM C0500 PROCESSES IF (SENSE LIGHT STATMENTS. 4F12019
C0500 CLA L(96) STORE 96 IN 4F12020
STO 1H 1H AND 4F12021
CLA L(MSE) OBTAIN (MSE000) IN ACC. 4F12022
TRA C0401 * AND CONTINUE BY USING PROGRAM C04. 4F12023
REM END OF PROGRAM C0500. 4F12024
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12025
REM 4F12026
REM C0600/ USES=C0400. 4F12027
REM C0600 PROCESSES IF DIVIDE CHECK STATEMENTS. 4F12028
C0600 CLA L(DCT) STORE (DCT000) 4F12029
STO 2H IN 2H 4F12030
CLA L(4) AND PICK UP 4 TO SET 1C. 4F12031
REM C0601= ENTRY POINT USED BY C0700. 4F12032
C0601 STO 1C SET 1C FOR FUTURE TIFGO ENTRY. 4F12033
PXD ,0 CLEAR THE AC, 4F12034
TRA C0402 * AND CONTINUE BY USING PROGRAM C04. 4F12035
REM END OF PROGRAM C0600. 4F12036
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12037
REM 4F12038
REM C0700/ USES C0600. 4F12039
REM C0700 PROCESSES IF AC OVERFLOW STATEMENTS. 4F12040
C0700 CLA L(TOV) PICKUP TOV000 TO SET 2H. 4F12041
REM C0701= ENTRY POINT USED BY C0800. 4F12042
C0701 STO 2H SET 2H FOR FUTURE CIT ENTRY. 4F12043
CLA L(5) PICKUP 5 TO SET 1C, AND 4F12044
TRA C0601 * CONTINUE BY USING PROGRAM C06. 4F12045
REM END OF PROGRAM C0700. 4F12046
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12047
REM 4F12048
REM C0800/ USES=C0700. 4F12049
REM C0800 PROCESSES IF MQ OVERFLOW STATEMENTS. 4F12050
C0800 CLA L(TQO) PICKUP TQO000 TO SET 2H, 4F12051
TRA C0701 * AND CONTINUE BY USING PROGRAM C07. 4F12052
REM END OF PROGRAM C0800. 4F12053
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12054
REM 4F12055
REM C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300. 4F12056
REM C0900 PROCESSES PAUSE STATEMENTS. 4F12057
C0900 LXD C090X,2 SET XR2 FOR EXIT TO CA000. 4F12058
REM C0901= ENTRY POINT USED BY C1300. 4F12059
C0901 STZ 1G CLEAR 1G. 4F12060
C0902 TSX C0190,4 * TEST NEXT NON-BLANK CHARACTER 4F12061
CAS ENDMK FOR END OF STATEMENT MARK. 4F12062
TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F12063
C090X TXI C0903,0,-CA010+1 IF NOT END OF STATEMENT, THEN 4F12064
ADD 1G ADD 1G TO DIGIT, 4F12065
ALS 3 MULTIPLY BY 8. 4F12066
STO 1G AND STORE BACK IN 1G. 4F12067
TXI C0902,0 CONTINUE UNTIL END OF STATEMENT. 4F12068
C0903 CLA 1G THEN PLACE OCTAL ALPHA 4F12069
ALS 15 IN THE DECREMENT 4F12070
STO 1C OF 1C FOR FUTURE CIT ENTRY. 4F12071
LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F12072
PXD ,4 NUMBER IN THE DECREMENT 4F12073
STO 1C+1 OF 1C+1,WITH ZEROS ELSEWHERE. 4F12074
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12075
PZE 1C+1 WORD1--DECR = INTFORMNO (LOCATION) 4F12076
PZE L(HPR) WORD2--HPR000 (OP AND DECR) 4F12077
PZE L(0) WORD3--000000 (ADDRESS) 4F12078
PZE 1C WORD4--DECR = ALPHA, REST ZEROS. 4F12079
TRA 1,2 * EXIT TO CA000, OR TO C1300. 4F12080
REM END OF PROGRAM C0900. 4F12081
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12082
REM 4F12083
REM C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0190,TEST..4F12084
REM CIT00. 4F12085
REM C1000 PROCESSES ASSIGN STATEMENTS. 4F12086
C1000 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C 4F12087
STO 1C+2 AND 1C+2,WITH ZEROS ELSEWHERE. 4F12088
CLA L(6) STORE 6 IN 4F12089
STA 1C ADDRESS OF 1C. 4F12090
TSX C0180X,2 * GO FORM BINARY EQUIV OF ALPHA. 4F12091
SUB L(T) IF NEXT CHARACTER IS NOT T, THEN 4F12093
TZE *+2 THIS IS AN 4F12094
TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12095
TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER 4F12096
SUB L(O) AND IF IT IS NOT 0, THEN 4F12097
TNZ *-3 ERROR, GO TO DIAGNOSTIC. 4F12098
CLA 1G PUT BIN EQUIV OF ALPHA 4F12099
STO 1C+1 IN ADDRESS OF 1C+1. 4F12100
TSX C0190,4 * PROCEED TO ASSEMBLE IN 1G 4F12101
TSX C0160,2 * THE SYMBOL N. 4F12102
TSX TESTD0,4 * THE NEXT NB CHAR SHOULD BE ENDMK. 4F12103
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12104
PZE 1C+2 WORD1--DECR = INTFORMNO (LOCATION) 4F12105
PZE L(CLA) WORD2--CLA000 (OP AND DECR) 4F12106
PZE L(0) WORD3--000000 (ADDRESS) 4F12107
PZE L(0) WORD4--000000 (RELADDR AND TAG). 4F12108
TSX CIT00,4 * STORE SECOND COMPILED INSTRUCTION= 4F12109
PZE L(0) WORD1--000000 (ALL ZEROS) 4F12110
PZE L(STO) WORD2--STO000 (OP AND DECR) 4F12111
PZE 1G WORD3--SYMBOL N (ADDRESS) 4F12112
PZE L(0) WORD4--000000 (REL ADDR AND TAG). 4F12113
TRA C0202 * CONTINUE BY USING PROGRAM C02. 4F12114
REM END OF PROGRAM C1000. 4F12115
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12116
REM 4F12117
REM C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00. 4F12118
REM C1100 PROCESSES SENSE LIGHT STATMENTS. 4F12119
C1100 TSX C0180X,2 * GO FORM BINARY EQUIV OF SL NUMBER. 4F12120
TSX TESTD0,4 * THE NEXT NB CHARACTER SHD BE ENDMK.4F12122
CLA 1G STORE SENSE LIGHT NUMBER 4F12123
ADD L(96) PLUS 96 4F12124
ALS 18 IN DECR 4F12125
STO 1G OF 1G. 4F12126
TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F12127
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY. 4F12128
PZE 1C WORD1--DECR = INTFORMNO (LOCATION) 4F12129
PZE L(PSE) WORD2--PSE000 (OP AND DECREMENT) 4F12130
PZE L(0) WORD3--000000 (ADDRESS PART) 4F12131
PZE 1G WORD4--DECR = 96+ALPHA,REST ZEROS. 4F12132
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12133
REM END OF PROGRAM C1100. 4F12134
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12135
REM 4F12136
REM C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS. 4F12137
REM C1200 PROCESSES DIMENSION STATEMENTS. 4F12138
C1200 TSX C0190,4 * PROCEED TO ASSEMBLE IN 1G 4F12139
TSX C0160,2 * THE VARIABLE SYMBOL. 4F12140
TSX TESTE0,4 * NEXT NB CHARACTER SHOULD BE LPAREN.4F12141
CLA 1G PUT VARIABLE SYMBOL 4F12142
STO 1C IN 1C. 4F12143
STO E+2 ALSO IN E+2. THEN 4F12144
TSX DIM1SR,4 * GO SEARCH DIM1 TABLE. 4F12145
TRA C1280 THEN IF NOT 4F12146
TRA C1299 FOUND, 4F12147
C1280 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F12148
TRA C1281 THEN IF NOT 4F12149
TRA C1299 FOUND, 4F12150
C1281 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. 4F12151
TRA C1282 DO NOT CONTUINUE IF 4F12152
C1299 TSX DIAG,4 * VARIABLE PREVIOUSLY APPEARED. 4F12153
C1282 TSX C0180X,2 * GO FORM BINARY EQUIV OF D1. 4F12154
SUB CLOS IF NOT 1 DIMENSION, 4F12155
TZE C1210 THEN 4F12156
CLA 1G PUT D1 4F12157
ALS 18 IN DECR 4F12158
STO 1C+1 OF 1C+1. 4F12159
TSX C0180X,2 * GO FORM BINARY EQUIV OF D2. 4F12160
SUB CLOS IF NOT 2 DIMENSION, 4F12163
TZE C1220 THEN 4F12164
CLA 1G PUT D2 4F12165
STA 1C+1 IN ADDRESS OF 1C+1. 4F12166
TSX C0180X,2 * GO FORM BINARY EQUIV OF D3. 4F12168
SUB CLOS IF MORE THAN 3 DIMENSIONS, 4F12169
TZE *+2 THIS IS AN 4F12170
TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12171
CLA 1G IF 3 DIMENSION, PUT D3 4F12172
STO 1C+2 IN 1C+2, AND 4F12173
TSX DIM3IX,4 * GO MAKE DIM3 ENTRY. 4F12174
TXI C1201,0 GO TO TEST FOR END OF STATEMENT. 4F12175
C1210 CLA 1G IF 1 DIMENSION, PUT D1 4F12176
STO 1C+1 IN 1C+1, AND 4F12177
TSX DIM1IX,4 * GO MAKE DIM1 ENTRY. THEN 4F12178
TXI C1201,0 GO TO TEST FOR END OF STATEMENT. 4F12179
C1220 CLA 1G IF 2 DIMENSIONS, PUT D2 IN 4F12180
STA 1C+1 ADDRESS PART OF 1C+1. AND 4F12181
TSX DIM2IX,4 * GO MAKE DIM2 ENTRY. THEN 4F12182
C1201 TSX C0190,4 * OBTAIN NB CHAR FOLLOWING RPAREN. 4F12183
TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12184
TNZ C1200 IF CHARACTER IS ENDMAKR, THEN 4F12185
TXI CA010,0 * EXIT TO PROCESS NEXT STATMENT. 4F12186
REM END OF PROGRAM C1200. 4F12187
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12188
REM 4F12189
REM C1300/ CALLS=C0901,TET00,CIT00. 4F12190
REM C1300 PROCESSES STOP STATEMENTS. 4F12191
C1300 TSX TET00,1 * GO MAKE EIFNO ENTRY 4F12192
PZE 15 IN TSTOP TABLE. 4F12193
TSX C0901,2 * USE C0900 TO BEGIN PROCESSING. 4F12194
TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= 4F12195
PZE L(0) WORD1--ALL ZEROS 4F12196
PZE L(TRA) WORD2--TRA000 (OP+DECR) 4F12197
PZE 1C+1 WORD3--DECR = INTFORMNO (SYMBOL) 4F12198
PZE L(0) WORD4--ZEROS (REL ADDR AND TAG) 4F12199
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12200
REM END OF PROGRAM C1300. 4F12201
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12202
REM 4F12203
REM C1400/ CALLS=C0190,C0180,TEST..,TET00. 4F12204
REM C1400 PROCESS FREQUENCY STATEMENTS. 4F12205
C1400 TSX C0180X,2 * GO FORM BINARY EQUIV OF EFN. 4F12206
TSX TESTE0,4 * CHARACTER SHOULD BE A LPAREN. 4F12208
CLS 1G CHANGE SIGN OF SYMBOL 4F12209
STO 1G TO MINUS. 4F12210
TSX TET00,1 * GO TO PROGRAM TET TO ENTER 4F12211
PZE 7 4F12212
C1401 TSX C0180X,2 * GO FORM BINARY EQUIV OF M(1). 4F12213
STO 1C SAVE CHAR IN ACC. 4F12215
TSX TET00,1 * GO TO PROGRAM TET TO ENTER M(1) 4F12216
PZE 7 INTO TABLE FRET (TABLE7), AND 4F12217
CLA 1C RESTORE CHAR IN ACC, AND 4F12218
TSX TESTB0,4 * TEST FOR , OR ). 4F12219
TNZ C1401 IF RIGHT PARENTHESIS, THEN 4F12220
TSX C0190,4 * OBTAIN IN ACC NEXT NBCHAR, AND 4F12221
TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12222
TNZ C1400 IF ENDMAKE, THIS STATEMENT IS DONE.4F12223
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12224
REM END OF PROGRAM C1400. 4F12225
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12226
REM 4F12227
REM C1500/ CALLS=C0190,TEST..,C0160,C0180,TET00. 4F12228
REM C1500 PROCESSES EQUIVALENCE STATEMENTS. 4F12229
C1500 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC. 4F12230
TSX TESTE0,4 * CHARACTER SHOULD BE A LPARAN. 4F12231
C1501 CLA L(1) INITIALIZE 1C 4F12232
STO 1C+1 TO 1. 4F12233
TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC AND 4F12234
TSX C0160,2 * OBTAIN IN 1G THE SYMBOL V. 4F12235
LDQ 1G MOVE V 4F12236
STQ 1C INTO 1C. 4F12237
CAS ALPAR EXAMINE CHARACTER LEFT IN THE AC, 4F12238
TXI C1503,0 AND IF 4F12239
TXI C1502,0 CHARACTER IS A LEFT PARENTHESIS, 4F12240
TIX C1503,0 THEN 4F12241
C1502 TSX C0180X,2 * GO FORM BINARY EQUIV OF N. 4F12242
TSX TESTF0,4 * 1ST NON-NUMERIC SHOULD BE A RPAREN.4F12244
CLA 1G PUT BIN EQUIV OF N 4F12245
STO 1C+1 IN 1C+1. 4F12246
TSX C0190,4 * OBTAIN NEXT NBCHAR IN AC, AND 4F12247
C1503 TSX TESTB0,4 * TEST FOR COMMA OR RPAREN. 4F12248
TZE C1504 IF COMMA, THEN 4F12249
TSX TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL 4F12250
PZE 8 AND N IN EQUIT (TABLE 8), AND 4F12251
TXI C1501,0 RETURN TO CONTINUE PROCESSING X. 4F12252
C1504 CLS 1C+1 MAKE SIGN OF N MINUS SINCE 4F12253
STO 1C+1 THIS IS LAST ITEM. 4F12254
TSX TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL 4F12255
PZE 8 AND N IN EQUIT (TABLE 8), AND 4F12256
TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC, AND 4F12257
TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12258
TNZ C1500 IF ENDMARK, THEN 4F12259
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12260
REM END OF PROGRAM C1500. 4F12261
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12262
REM 4F12263
REM C1600/ CALLS=C0190,TEST..,GIF,BSS. 4F12264
REM C1600 PROCESSES CONTINUE STATEMENTS. 4F12265
C1600 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC. 4F12266
TSX TESTD0,4 * CHARACTER SHOULD BE AN ENDMARK. 4F12267
TSX GIF,4 * GET INTERNAL FORMULA NUMBER, AND 4F12268
TSX BSS,2 * GO COMPILE= IFN BSS 0. 4F12269
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12270
REM END OF PROGRAM C1500. 4F12271
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12272
REM 4F12273
REM C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX. 4F12274
REM C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS. 4F12275
C3500 CAL TXHOP 4F12276
STP C3003 4F12277
C3000 LXD EIFNO,4 EXAMINE INTERNAL FORMULA NO., AND 4F12278
TXL *+2,4,1 IF NOT THE 1ST STATEMENT, THEN 4F12279
TSX DIAG,4 * ERROR - GO TO DIAGNOSTIC. 4F12280
CLA ARGCNT SET ARGCNT TO INDICATE TO LATER 4F12281
SSP RETURN THAT THERE WAS A PRECEEDING 4F12282
STO ARGCNT SUBROUTINE OR FUNCTION STATEMENT. 4F12283
TSX C0190,4 * IF 1ST CHARACTER OF NAME IS 4F12284
TSX TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12285
TSX C0160,2 * ASSEMBLE NAME IN 1G. 4F12286
TSX TESTC0,4 * NEXT CHAR SHD BE LPAREN OR ENDMARK.4F12287
C3003 TXL *+3,0 4F12288
CLA 1G 4F12289
STO FSNAME 4F12290
TSX SUBX00,4 * FILL OUT NAME WITH BLANKS. 4F12291
TSX TET00,1 * GO ENTER NAME 4F12292
PZE 11 IN SUBDEF TABLE. 4F12293
LXD EIFNO,4 PLACE 4F12294
PXD ,4 INTERNAL FORMULA NUMBER 4F12295
STO G IN G. 4F12296
TXI C3002,0 GO TEST FOR END OF STATEMENT. 4F12297
C3001 ADD ENDMK IF NOT ENDMARK, RESTOERE CHARACTER 4F12298
TSX TESTH0,4 * WHICH SHOULD BE NON-NUMERIC 4F12299
STO FIRSTC 1ST CHARACTER OF ARGUMENT. 4F12300
TSX C0160,2 * ASSEMBLE ARGUMENT IN 1G. 4F12301
TSX TESTB0,4 * NEXT CHAR SHD BE COMMA OR RPARAN. 4F12302
CLA 1G MOVE ARGUMENT 4F12303
STO G+1 INTO G+1. 4F12304
TSX TESTFX,1 * GO TEST FOR FIXED OR FLOATING PT. 4F12305
TXI C3004,0 IF FLOATING PT., SKIP FORVAL ENTRY.4F12306
TSX TET00,1 * IF FIXED POINT, GO MAKE ENTRY 4F12307
PZE 6 IN FORVAL TABLE. 4F12308
C3004 TSX TET00,1 * IN BOTH CASES, MAKE ENTRIES IN 4F12309
PZE 11 SUBDEF TABLE. 4F12310
CLA ARGCNT UPDATE 4F12311
ADD D1 ARGUMENT COUNT 4F12312
STO ARGCNT BY 1. AND 4F12313
C3002 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. 4F12314
SUB ENDMK IF NOT ENDMARK, THEN 4F12315
TNZ C3001 GO PROCESS NEXT ARGUMENT. 4F12316
TXI CA010,0 * OTHERWISE, EXIT TO CA000. 4F12317
REM END OF PROGRAM C3000. 4F12318
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12319
REM 4F12320
REM C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00. 4F12321
REM C3100 PROCESSES COMMON STATEMENTS. 4F12322
C3100 TSX C0190,4 * GET FIRST NON-BLANK CHAR OF SYMBOL 4F12323
TSX TESTH0,4 * WHICH SHOULD BE NON-NUMERIC. 4F12324
TSX C0160,2 * ASSEMBLE SYMBOL IN 1G, AND TEST 4F12325
TSX TESTA0,4 * NEXT CHARACTER FOR COMMA OR ENDMK. 4F12326
PAX ,4 SAVE RESULT OF TEST IN XR4, AND 4F12327
TSX TET00,1 * GO ENTER THIS SYMBOL 4F12328
PZE 12 IN COMMON TABLE. 4F12329
CLA SBDFCN ANY ENTRIES IN SUBDEF 4F123291
TZE C3101 INDICATE THIS IS NOT A 4F123292
CLA 2E18 MAIN PROGRAM. SINCE THIS 4F123293
STO G IS A COMMON 4F123294
CAL 1G STATEMENT WHICH 4F123296
SLW G+1 APPEARS IN A SUBPROGRAM 4F123297
ARS 30 ENTER ANY 4F123298
TSX TESTFX+1,1 * FIXED POINT 4F123299
TRA C3101 VARIABLES 4F12330
TSX TET00,1 * IN 4F123301
PZE 6 FORVAL TABLE. 4F123302
C3101 TXH C3100,4,0 IF CHARACTER WAS COMMA, REPEAT. 4F123303
TXI CA010,0 * IF ENDMK, EXIT TO CA000. 4F12331
REM END OF PROGRAM C3100. 4F12332
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12333
REM 4F12334
REM C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF). 4F12335
REM C3200 PROCESSES RETURN STATEMENTS. 4F12336
C3200 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F12337
TSX TESTD0,4 * WHICH SHOULD BE AN ENDMARK. 4F12338
TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F12339
TSX JIF,4 * SET SL TO ALPHA+1. 4F12340
CLA ARGCNT TEST ARGCNT FOR PRECEEDING 4F12341
TPL *+2 SUBROUTINE - IF NONE, THEN 4F12342
TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12343
CLA FSNAME 4F12344
TZE *+7 4F12345
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12346
PZE 1C WORD1--0(IFN)000 4F12347
PZE L(CLA) WORD2--CLA000 4F12348
PZE FSNAME WORD3--NAME OF FUNCTION 4F12349
PZE L(0) WORD4--000000 4F12350
STZ 1C CLEAR 1C. 4F12351
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12352
PZE 1C WORD1--0(IFN)000 4F12353
PZE L(LXD) WORD2--LXD000 4F12354
PZE DOLSGN WORD3--$ 4F12355
PZE L(1) WORD4--000001 4F12356
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12357
PZE L(0) WORD1--000000 4F12358
PZE L(LXD) WORD2--LXD000 4F12359
PZE DOLSGN WORD3--$ 4F12360
PZE ABTAG2 WORD4--001002 4F12361
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12362
PZE L(0) WORD1--000000 4F12363
PZE L(QXD) WORD2--QXD000 4F12364
PZE DOLSGN WORD3--$ 4F12365
PZE ABTAG3 WORD4--002000 4F12366
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12367
PZE SL WORD1--0(IFN+1)000 4F12368
PZE L(QPR) WORD2--QPR000 4F12369
PZE L(0) WORD3--000000 4F12370
PZE ARGCNT WORD4--0(N+1)004 4F12371
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12372
PZE L(0) WORD1--000000 4F12373
PZE L(TRA) WORD2--TRA000 4F12374
PZE SL WORD3--0(IFN+1)000 4F12375
PZE L(0) WORD4--000000 4F12376
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12377
REM END OF PROGRAM C3200. 4F12378
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12379
REM 4F12380
REM C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00. 4F12381
REM C3300 PROCESSES CALL STATEMENTS. 4F12382
C3300 TSX C0190,4 * IF 1ST CHARACTER OF NAME IS 4F12383
TSX TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12384
TSX C0160,2 * COLLECT THE REST OF THE NAME, WHICH4F12385
TSX TESTC0,4 * SHD BE FOLLOWED BY LPAREN OR ENDMK.4F12386
TZE C3301 IF LPAREN, THEN CHANGE CALL TO A 4F12387
TSX C0190X,4 * PSEUDO-ARITHMETIC FORMULA (Z10=). 4F12388
TSX C0190,4 * PICKUP THE CHARACTER C, 4F12389
LDQ L(Z) AND 4F12390
TSX C0390,4 * REPLACE C WITH Z. 4F12391
LDQ L(10) AND 4F12392
TSX C0390,4 * REPLACE A WITH TEN. 4F12393
LDQ EQUAL AND 4F12394
TSX C0390,4 * REPLACE FIRST L WITH =. 4F12395
LDQ BLANK AND 4F12396
TSX C0390,4 * REPLACE SECOND L WITH BLANK. 4F12397
CLA EIFNO PUT 1ST IFN OF THIS CAL IN CALLNM 4F12398
ARS 18 FOR LATER TABLE ENTRY FO 4F12399
STA CALLNM FIRST / LAST NUMBERS OF CALLS. 4F12400
TXI ARITH,0 * THEN EXIT TO ARITH TO PROCESS. 4F12401
C3301 TSX SUBX00,4 * IF THERE ARE NO ARGUMENTS, THEN 4F12402
CLA 1G AFTER COMPLETING NAME WITH BLANKS, 4F12403
STO G MOVE IT INTO G, AND 4F12404
TSX TET00,1 * GO ENTER NAME 4F12405
PZE 9 INTO CLOSUB TABLE. 4F12406
TSX GETIFN,4 * PUT INTERNAL FORMULA NUMBER IN 1C. 4F12407
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12408
PZE 1C WORD1--0(IFN)000 4F12409
PZE L(SXD) WORD2--SXD000 4F12410
PZE X( WORD3--700000 4F12411
PZE L(4) WORD4--000004 4F12412
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12413
PZE L(0) WORD1--000000 4F12414
PZE L(TSX) WORD2--TSX000 4F12415
PZE 1G WORD3--(NAME) 4F12416
PZE L(4) WORD4--000004 4F12417
TSX FLTR00,4 * GO MAKE FLOW TRACING INSTRUCTIONS. 4F12418
PZE L(0) WORD1--000000 4F12419
PZE L(LXD) WORD2--LXD000 4F12420
PZE X( WORD3--700000 4F12421
PZE L(4) WORD4--000004 4F12422
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12423
REM END OF PROGRAM C3300. 4F12424
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12425
REM 4F12426
REM C3400/ CALLS=C0190,DIAG,TEST... 4F12427
REM C3400 PROCESSES END STATEMENTS. 4F12428
C3400 LXA L(5),2 PREPARE TO SET 5 SS SIMULATORS. 4F12429
C3405 TSX C0190,4 * PICKUP CONSTANT, 4F12430
CAS L(2) WHICH SHOULD BE 0,1, OR 2. 4F12431
TSX DIAG,4 * OTHERWISE, GO TO THE DIAGNOSTIC. 4F12432
TXI C3410,0 SIMULATOR IS PRESET TO 2. 4F12433
STO ENDI1+5,2 IF 0 OR 1, SET PROPER SIMULATOR. 4F12434
C3410 TSX C0190,4 * SKIP NEXT NON-BLANK CHARACTER, AND 4F12435
TIX C3405,2,1 REPEAT PROCESS FOR 5 CONSTANTS. 4F12436
TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F12437
TSX TESTD0,4 * WHICH SHOULD BE AN ENDMK. 4F12438
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12439
REM END OF PROGRAM C3400. 4F12440
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12441
REM 4F12442
REM STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS= 4F12443
REM 4F12444
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12445
REM 4F12446
REM RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF. 4F12447
REM RDC PROCESSES READ STATEMENTS. 4F12448
RDC CLA A81 SET THE ADDRESS FIELD OF 4F12449
STA ENT ENT (NTR000) TO 81. 4F12450
TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12451
CLA CSH PICKUP (CSH) TO 4F12452
REM TSC= ENTRY POINT USED BY RIT. 4F12453
TSC STO TSA SET TSA. 4F12454
CAL RTN MOVE (RTN) 4F12455
SLW END INTO END. 4F12456
CLA DBC PICKUP (DBC) TO 4F12457
REM TTC= ENTRY POINT USED BY RDP. 4F12458
TTC STO TTA SET TTA. 4F12459
TSX BEG,4 * CONVERT CONSTANT FORMULA NUMBER. 4F12460
TSX DIAG,4 * ATTEMPT TO USE VARIABLE FORMAT NO. 4F12461
TNZ 4,4 GO TO THE DIAGNOSTIC, IF THERE WAS 4F12462
TSX DIAG,4 * NO FORMAT NUMBER GIVEN. 4F12463
STA SET MOVE BINARY FORMAT NUMBER INTO SET.4F12464
CAL NTR MOVE NTR000 4F12465
SLW OP INTO OP. 4F12466
CAL TXLOP SET OP-SWITCHES. 4F12467
STP ETMSW ETMSW AND LTMSW, 4F12468
STP LTMSW TO NO TRANSFER CASE. 4F12469
TSX ETMSW,4 * GO COMPILE ETM. 4F12470
TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F12471
PZE L(0) WORD1--000000 4F12472
PZE CAL WORD2--CAL000 4F12473
PZE TTA WORD3--(DBC) OR (BDC) 4F12474
PZE L(0) WORD4--000000 4F12475
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12476
PZE L(0) WORD1--000000 4F12477
PZE SLW WORD2--SLW000 4F12478
PZE L(0) WORD3--000000 4F12479
PZE D1 WORD4--001000 4F12480
TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F12481
PZE L(0) WORD1--000000 4F12482
PZE CAL WORD2--CAL000 4F12483
PZE TSA WORD3--(CSH) OR (TSH) 4F12484
PZE L(0) WORD4--000000 4F12485
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12486
PZE TL WORD1--0(IFN)0(248) 4F12487
PZE ENT WORD2--NTR0(81, OR UNIT, OR 00) 4F12488
PZE SET WORD3--800(FORMAT NUMBER) 4F12489
PZE L(0) WORD4--000000 4F12490
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12491
REM BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD. 4F12492
BXT TXI RSC,0 * EXIT TO SCAN LIST, IF THERE IS ONE.4F12493
REM END OF PROGRAM RDC. 4F12494
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12495
REM 4F12496
REM RIT/ CALLS=INPUT,BEG,VRD. USES=RDC. 4F12497
REM RIT PROCESSES READ INPUT TAPE STATEMENTS. 4F12498
RIT TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12499
TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12500
TSX VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F12501
STA ENT IF CONSTANT, SET ENT= NTRO(UNIT). 4F12502
CLA TSH PICKUP (TSH) TO SET TSA, AND 4F12503
TXI TSC,0 * CONTINUE BY USING PROGRAM RDC. 4F12504
REM END OF PROGRAM RIT. 4F12505
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12506
REM 4F12507
REM RDP/ CALLS=OUTPUT. USES=RDC. 4F12508
REM RDP PROCESSES PRINT STATEMENTS. 4F12509
RDP PXD ,0 RESET ENT 4F12510
STA ENT TO NTR000. 4F12511
TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12512
CLA SPH PICKUP (SPH), AND 4F12513
REM TSD = ENTRY POINT USED BY WOT, PDC. 4F12514
TSD STO TSA SET TSA. 4F12515
CAL FIL MOVE (FIL) 4F12516
SLW END INTO END. 4F12517
CLA BDC PICKUP (BDC) TO SET TTA, AND 4F12518
TXI TTC,0 * CONTINUE BY USING PROGRAM RDC. 4F12519
REM END OF PROGRAM RDP, 4F12520
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12521
REM 4F12522
REM WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP. 4F12523
REM PROCESSES WRITE OUTPUT TAPE STATEMENTS. 4F12524
WOT TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12525
TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12526
TSX VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F12527
STA ENT IF CONSTANT, SET ENT= NTRO(UNIT). 4F12528
CLA STH PICKUP (STH) TO SET TSA, AND 4F12529
TXI TSD,0 * CONTINUE BY USING PROGRAM RDP. 4F12530
REM END OF PROGRAM WOT. 4F12531
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12532
REM 4F12533
REM PDC/ CALLS=OUTPUT. USES=RDP. 4F12534
REM PROCESSES PUNCH STATEMENTS. 4F12535
PDC PXD ,0 RESET ENT 4F12536
STA ENT TO NTR000. 4F12537
TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12538
CLA SCH PICKUP (SCH) TO SET TSA. AND 4F12539
TXI TSD,0 * CONTINUE BY USING PROGRAM RDP. 4F12540
REM END OF PROGRAM PDC. 4F12541
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12542
REM 4F12543
REM WBT/ CALLS=OUTPUT,BRW,CIT, 4F12544
REM WBT PROCESSES WRITE TAPE STATEMENTS, 4F12545
WBT CAL WTB MOVE WTB000 4F12546
SLW OP INTO OP. 4F12547
TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12548
CAL BTA PICKUP BINARY TAPE ADDRESS, AND 4F12549
TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12550
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12551
PZE L(0) WORD1-000000 4F12552
PZE CPY WORD2-CPY000 4F12553
PZE ZER WORD3-600000 4F12554
PZE D2 WORD4-002000 4F12555
TXI BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE,4F12556
REM END OF PROGRAM WBT, 4F12557
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12558
REM 4F12559
REM RBT/ CALLS=INPUT,BRW,CIT, 4F12560
REM RBT PROCESSES READ TAPE STATEMENTS. 4F12561
RBT CAL RTB MOVE RTB000 4F12562
SLW OP INT OP. 4F12563
TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12564
CAL BTA PICKUP BINARY TAPE ADDRESS, AND 4F12565
TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12566
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12567
PZE L(0) WORD1-000000 4F12568
PZE CPY WORD2-CPY000 4F12569
PZE DMP WORD3-100000 4F12570
PZE L(0) WORD4-000000 4F12571
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12572
PZE L(0) WORD1-000000 4F12573
PZE XIT WORD2-XIT000 4F12574
PZE 15P WORD3-*00000 4F12575
PZE D3CN WORD4-003000 4F12576
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12577
PZE L(0) WORD1-000000 4F12578
PZE HPR WORD2-HPR000 4F12579
PZE L(0) WORD3-000000 4F12580
PZE L(0) WORD4-000000 4F12581
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12582
PZE L(0) WORD1-000000 4F12583
PZE XIT WORD2-XIT000 4F12584
PZE TL WORD3-0(IFN)0(248) 4F12585
PZE L(0) WORD4-000000 4F12586
TXI BXT,0 * EXIT TO SCAN LIST, IF THERE IS 0N4F12587
REM END OF PROGRAM RBT. 4F12588
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12589
REM 4F12590
REM WRD/ CALLS=OUTPUT,BRW,CIT, 4F12591
REM WRD PROCESSES WRITE DRUM STATEMENTS. 4F12592
WRD TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12593
CAL WDR PICKUP WDR000, AND 4F12594
REM XDR= ENTRY POINT USED BY RDD. 4F12595
XDR SLW OP SET OP. 4F12596
CAL BDA PICKUP BINARY DRUM ADDRESS, AND 4F12597
TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12598
CAL PXD MOVE PXD000 4F12599
SLW OP INTO OP. 4F12600
PXD ,0 CLEAR THE AC AND 4F12601
TSX BRW,4 * COMPILE INSTRS TO SET DRUM LOC. 4F12602
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12603
PZE L(0) WORD1--000000 4F12604
PZE LDA WORD2--LDA000 4F12605
PZE TL WORD3--0(IFN)0(248) 4F12606
PZE L(0) WORD4--000000 4F12607
TXI BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE.4F12608
REM END OF PROGRAM WRD. 4F12609
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12610
REM 4F12611
REM RDD/ CALLS=INPUT. USES=WRD, 4F12612
REM RDD PROCESSES READ DRUM STATEMENTS. 4F12613
RDD TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12614
CAL RDR PICKUP RDR000 TO SET OP, AND 4F12615
TXI XDR,0 * CONTINUE BY USING PROGRAM WRD. 4F12616
REM END OF PROGRAM RDD. 4F12617
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12618
REM 4F12619
REM EFT/ CALLS=GIF,BEG,VRAX,CIT, 4F12620
REM EFT PROCESSES WRITE END OF FILE STATEMENTS. 4F12621
EFT CAL WEF PICKUP WEF000, AND 4F12622
REM TPO= ENTRY POINT USED BY RWN, BSP, 4F12623
TPO SLW OP SET OP. 4F12624
CAL BTA MOVE BINARY TAPE ADDRESS 4F12625
SLW CON INTO CON. 4F12626
TSX GIF,4 * GET IFN INTO SL AND TL, 4F12627
CLA L(SL) RESET TPOA ADDRESS 4F12628
STA TPOA TO SL. 4F12629
TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12630
TSX VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS. 4F12631
ALS 18 IF CONSTANT, ADJUST AND 4F12632
STO RA PLACE IN THE DECREMENT OF RA. 4F12633
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12634
TPOA PZE SL WORD1--0(IFN)000 OR 0(IFN)0(248) 4F12635
PZE OP WORD2--(WEF,REW,OR BSP)000 4F12636
PZE L(0) WORD3--000000 4F12637
PZE RA WORD4--0(CON)000 OR 000000 4F12638
TXI FINI,0 * GO RESET BXT, AND TEST FOR EFN. 4F12639
REM END OF PROGRAM EFT. 4F12640
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12641
REM 4F12642
REM RWN/ USES=EFT, 4F12643
REM RWN PROCESSES REWIND TAPE STATEMENTS. 4F12644
RWN CAL REW PICKUP REW000 TO SET OP, AND 4F12645
TXI TPO,0 * CONTINUE BY USING PROGRAM EFT. 4F12646
REM END OF PROGRAM RWN. 4F12647
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12648
REM 4F12649
REM BSP/ USES=EFT, 4F12650
REM BSP PROCESSES BACKSPACE TAPE STATEMENTS. 4F12651
BSP CAL BST PICKUP BST000 TO SET OP, AND 4F12652
TXI TPO,0 * CONTINUE BY USING PROGRAM EFT, 4F12653
REM END OF PROGRAM BSP. 4F12654
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12655
REM FOR/ CALLS=TET00, 4F12657
REM FOR PROCESSES FORMAT STATEMENTS. 4F12658
FOR CAL EIFNO MOVE EXTERNAL FORMULA NUMBER 4F12659
STA SET INTO THE ADDRESS OF SET, 4F12660
CAL SET AND MOVE SET (8000(EFN)) 4F12661
SLW G INTO G. 4F12662
LXD CHCTR,1 SET XR1 = CHARACTER COUNT. 4F12663
LXD FWA,2 SET XR2 = -(CURRENT F-WORD ADDR), 4F12664
TXL NFFW,1,1 UNLESS POSITIONED AT THE 4F12665
TXI *+1,1,-1 BEGINNING OF A FORMAT WORD, 4F12666
LDQ RESIDU THEN PICKUP AND 4F12667
CAL BLANKS PRECEED WITH BLANKS ANY 4F12668
NFC LGL 6 CHARACTERS 4F12669
TIX NFC,1,1 REMAINING IN THE MO, AND 4F12670
NFW SLW G+1 MOVE FORMAT WORDS INTO G+1. 4F12671
TSX TET00,1 * GO ENTER THEN IN 4F12672
PZE 10 THE FORMAT TABLE. 4F12673
CAL G+1 WHEN THE 4F12674
ANA ENDMK END OF STATEMENT MARK 4F12675
SUB ENDMK HAS BEEN ENTERED. 4F12676
TZE CA010 * EXIT TO PROCESS NEXT STATEMENT. 4F12677
STZ G PRECEED ALL BUT 1ST ENTRY WITH 0. 4F12678
NFFW CAL 0,2 PICKUP NEXT FORMAT WORD, 4F12679
TXI NFW,2,-1 UPDATE SCAN INDEX, AND CONTINUE. 4F12680
REM END OF PROGRAM FOR. 4F12681
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12682
REM 4F12683
REM RSC/ CALLS=C0190,DIAG, 4F12684
REM RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS 4F12685
REM FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN 4F12686
REM COMMON. THEN A TAGGED EXIT IS MADE THROUGH THE BLOCK OF 4F12687
REM CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT. 4F12688
REM RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC. 4F12689
RSC CAL FLINE RESET TEMPORARY 4F12690
STA TLINE TABLE LINE COUNTER. 4F12691
STZ DOLEV CLEAR DO LEVEL COUNTER. 4F12692
STZ GTAG CLEAR GENERALIZED TAG. 4F12693
REM LSC = ENTRY POINT FROM SPC. 4F12694
LSC CAL LISTR SET CONTROL TRANSFER 4F12695
REM CXS = ENTRY POINT FROM EOS, BEG. 4F12696
CXS STA CEXIT FOR LIST SCAN. 4F12697
REM NXS = ENTRY POINT FROM LPR, SPC, CMA. 4F12698
NXS LXA L(6),2 RESET SYMBOL CHARACTER COUNT 4F12699
SXD CSJ,2 AND SHIFT COUNT. 4F12700
STZ SYM CLEAR SYMBOL WORKING STORAGE. 4F12701
REM NXC = ENTRY POINT FROM CMA. 4F12702
NXC TSX C0190,4 * OBTAIN NEXT NB CHARACTER IN THE AC. 4F12703
CLOAD LXA CTESTX,4 SET XR4 TO PICK CONTROL CHARACTERS. 4F12704
CCOMP CAS CTEST,4 COMPARE CHARACTER WITH CONSTANTS. 4F12705
TXL BUILD,0 IF EQUALITY IS FOUND ON SOME 4F12706
CEXIT TRA **,4 * CONTROL CHAR, EXIT TO TRA LIST. 4F12707
TIX CCOMP,4,1 CONTINUE THROUGH PUNCTUATION. 4F12708
BUILD LXD CSJ,4 BUILD A 4F12709
STO CHR,4 SYMBOL 4F12710
TNX LCT,4,1 COMPOSED OF 4F12711
ALS 36,2 SIX OR LESS CHARACTERS. 4F12712
CSZ SXD CSJ,4 SAVE SYMBOL CHARACTER COUNT, 4F12713
ORS SYM ALSO, SAVE EACH 4F12714
TXI NXC,2,6 CHARACTER SEPARATELY. 4F12715
LCT TXL LCS,2,36 GO TO DIAGNOSTIC IF 4F12716
TSX DIAG,4 * MORE THAN 6 CHARACTERS IN SYMBOL, 4F12717
LCS TXI CSZ,4,-1 ADJUST COUNT, AND CONTINUE SCAN. 4F12718
REM END OF PROGRAM RSC. 4F12719
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12720
REM 4F12721
REM LISTR/ CONTROL TRANSFERS FOR LIST SCAN= 4F12722
TXI EMK,0 * ENDMARK 4F12723
TXI LPR,0 * ( 4F12724
TXI CMA,0 * , 4F12725
TXI RPR,0 * ) 4F12726
TXI EQS,0 * * 4F12727
TXI ILC,0 - (ILLEGAL CHARACTER IN I/O LIST). 4F12728
ILC TSX DIAG,4 * / (ILLEGAL CHARACTER IN I/O LIST). 4F12729
TXI ILC,0 . (ILLEGAL CHARACTER IN I/O LIST). 4F12730
TXI ILC,0 + (ILLEGAL CHARACTER IN I/O LIST). 4F12731
TXI ILC,0 * (ILLEGAL CHARACTER IN I/O LIST). 4F12732
LISTR PZE LISTR INDEXING ADDRESS FOR ABOVE LIST. 4F12733
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12734
REM 4F12735
REM LPR/ CALLS=TYP,SS000,RA000,C0190,TEST,.,LTMSW,CIT,JIF,DIAG, 4F12736
REM BSS. USES=CMA,RSC, 4F12737
REM LPR * ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN. 4F12738
LPR CAL SYM TEST FOR SUBSCRIPT OR DO NEST. 4F12739
TZE LPRD IF SUBSCRIPT, THEN 4F12740
TSX TYP,4 * IF VARIABLE SYMBOL CONTAINS LESS 4F12741
TRA 3,4 THAN 6 CHARACTERS, ADD A BLANK, 4F12742
TXI ERRC,0 * ON CONSTANT RETURN, GO TO DIAG, 4F12743
CAL SYM MOVE SYMBOL 4F12744
SLW E+2 INTO E+2, AND 4F12745
SLW SA COMPILE SYMBOLIC ADDRESS, 4F12746
TSX SS000,4 * GO SCAN AND PROCESS SUBSCRIPT. 4F12747
TSX RA000,4 * THEN GO COMPUTE RELATIVE ADDRESS. 4F12748
TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER 4F12749
CAS CLOS 4F12750
TRA *+5 4F12751
TRA *+2 4F12752
TRA *+3 4F12753
STZ DOLEV 4F12754
TSX C0190,4 4F12755
TSX TESTA0,4 * FOR EITHER COMMA OR ENDMARK. 4F12756
TXI CMA7,0 * AND CONTINUE BY USING PROGRAM CMA. 4F12757
LPRD CAL DOLEV IF THE BEGINNING OF A DO NEST, 4F12758
TZE LPR3 AND DOLEV IS NOT ZERO, THEN 4F12759
LXA DOLEV,4 TEST FOR NULL FORMULA. 4F12760
TXL LPRE,4,0 IF NULL, GO ESTABLISH POSITION. 4F12761
TSX LTMSW,4 * OTHERWISE, COMPILE LTM, AND 4F12762
TXI LPR4,0 AND GO JUMP IFN. 4F12763
LPRE CAL SL IF C(SL) DO NOT = 0, 4F12764
TZE *+2 THEN 4F12765
TSX BSS,2 * GO COMPILE= IFN BSS 0, 4F12766
LPR4 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12767
LPR3 LXD DOLEV,4 INCREASE THE C(DOLEV D) 4F12768
TXI LPR1,4,1 BY 1, AND 4F12769
LPR1 PXD ,4 SET THE C(DOLEV A) 4F12770
SLW DOLEV TO ZERO, 4F12771
CAL TLINE NOTE AT 4F12772
STA LPR2 THIS LEVEL 4F12773
STO DOLEV,4 THE LOCATION IN TLDO 4F12774
ADD L(5) OF THIS DO FORMULA 4F12775
STA TLINE AND INCREASE LINE IN TLINE. 4F12776
CLS TL MOVE -(0(IFN)0(248)) INTO THE 4F12777
LPR2 STO ** LOCATION WORD OF CURRENT TEMP DO. 4F12778
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12779
LXD DOLEV,4 IF 3 OR FEWER LEVELS IN LIST DO, 4F12780
TXL NXS,4,3 * RETURN TO LIST SCAN. 4F12781
TSX DIAG,4 * OTHERWISE, GO TO DIAGNOSTIC 4F12782
REM END OF PROGRAM LPR. 4F12783
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12784
REM 4F12785
REM EQS/ CALLS=DIAG, USES=RSC 4F12786
REM EQS = ENTRY POINT WHEN EQUAL SIGN IS MET IN LIST CAN, 4F12787
EQS LXD DOLEV,4 TEST THE LEGALITY OF EQUAL SIGN, 4F12788
TXH EQS2,4,0 AND GO TO DIAG ON THE ATTEMPT TO 4F12789
TSX DIAG,4 * SPECIFY SUBSCRIPT RANGE WITHOUT (. 4F12790
EQS2 CAL DOLEV,4 INITIALIZE SPECIFICATION 4F12791
STA SPC2 OF GENERATED DO FORMULA 4F12792
STA SPC5 AT CURRENT LEVEL. 4F12793
ADD L(1) PREPARE TO ENTER FORMULA NUMBERS 4F12794
STA EQS1 IN LOCATION WORD*SUBSCRIPT IN 4F12795
ADD L(4) SYMBOL WORD, AND SUBSCRIPT SPECS 4F12796
STA SPC3 IN TEMPDO ENTRY. 4F12797
LXA L(3),4 PREPARE TO COUNT THE 4F12798
SXD NSJ,4 NUMBER OF SPECIFICATIONS. 4F12799
CAL SYM OBTAIN SUBSCRIPT 4F12800
TXH EQS1,2,36 FOR THIS DO, AND 4F12801
CAL BLANK STORE IN PROPER 4F12802
ALS 36,2 LINE OF TEMPORARY 4F12803
ORA SYM LIST DO TABLE. 4F12804
EQS1 SLW ** (SUBSCRIPT SYMBOL WORD) 4F12805
CAL SPCTR SET CONTROL LOOP FOR 4F12806
NSJ TXI CXS,0,** * EXIT TO SPECIFICATION 4F12807
REM END OF PROGRAM EQS. 4F12608
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12809
REM 4F12810
REM SPCTR/ CONTROL TRANSFERS FOR SPECIFICATION SCAN= 4F12811
TSX DIAG,4 * E (ILLEGAL IN CONTROL FOR LIST DO). 4F12812
ICC TSX DIAG,4 * ( (ILLEGAL IN CONTROL FOR LIST DO). 4F12813
TXI SPC,0 * , 4F12814
TXI SPCX,0 * ) 4F12815
TXI ICC,0 = (ILLEGAL IN CONTROL FOR LIST DO). 4F12816
TXI ICC,0 - (ILLEGAL IN CONTROL FOR LIST DO). 4F12817
TXI ICC,0 / (ILLEGAL IN CONTROL FOR LIST DO). 4F12818
TXI ICC,0 . (ILLEGAL IN CONTROL FOR LIST DO). 4F12819
TXI ICC,0 + (ILLEGAL IN CONTROL FOR LIST DO). 4F12820
TXI ICC,0 * (ILLEGAL IN CONTROL FOR LIST DO). 4F12821
SPCTR PZE SPCTR INDEXING ADDRESS FOR ABOVE LIST. 4F12822
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12823
REM 4F12824
REM SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=R5C 4F12825
REM SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN. 4F12826
SPCX CAL SPC1 PREPARE FOR END OF SPECIFICATION. 4F12827
STO SPC1 SET SPC1 OP-SWITCH TO NOP CASE. 4F12828
REM SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATION SCAN. 4F12829
SPC TSX TYP,4 * GO TEST TYPE OF SUBSCRIPT SPEC. 4F12830
TXI SPCS,0 IF FIXED POINT CONSTANT, 4F12831
LXD NSJ,4 SET C(XR4) = SPECIFICATION COUNT, 4F12832
TXI SPC3,0 AND GO ENTER CONSTANT IN TABLE. 4F12833
SPCS LXD NSJ,4 OTHERWISE, SET SPEC COUNT AND 4F12834
CAL TAG4 IF VARIABLE, NOTE BY 4F12835
ARS 3,4 PLACING BIT IN TAG FIELD 4F12636
SPC2 ORS ** OF TABLE ENTRY. 4F12837
CAL SYM PICKUP VARIABLE SYMBOL AND 4F12838
SPC3 SLW **,4 ENTER N SUB J IN TABLE. 4F12839
TNX SPC4,4,1 REDUCE J. 4F12840
SXD NSJ,4 SAVE SPEC COUNT, AND 4F12841
SPC1 TXL NXS,0 * EXIT TO SCAN, IF SWITCH IS TXL. 4F12842
CAL L(1) SET N SUB 3 = 1 IF NOT 4F12843
TXI SPC3,0 OTHERWISE SPECIFIED. 4F12844
SPC4 CLS SPC1 RESTORE SPC1 EXIT. 4F12845
STO SPC1 (3 SPECS HAVE BEEN TREATED) 4F12846
CAL EIFNO ALSO RESTORE INTERNAL FORMULA NO. 4F12847
ARS 18 (PUT BETA IN TEMPDO TABLE) 4F12848
REM SPC5 = ENTRY POINT USED BY RPR. 4F12849
SPC5 STA ** SET BETA EQUAL TO IFNO. 4F12850
LXA DOLEV,4 EXAMINE DOLEV ADDRESS FOR ZERO TO 4F12851
TXL SPCR,4,0 TEST NEED FOR LTM, JLF AFTER ). 4F12352
TSX LTMSW,4 * GO COMPILE LTM. 4F12853
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12654
SPCR LXD DOLEV,4 DECREASE DOLEV D 4F12855
TXI SPC6,4,-1 BY 1, AND INDICATE A TREATED LEVEL. 4F12656
SPC6 PXD ,4 IF NOT ZERO, 4F12857
SLW DOLEV THEN ALL LEVELS ARE NOT TREATED. 4F12858
TXH LSC,4,0 * RETURN TO SCAN NEXT LEVEL. 4F12659
CLA TLINE IF LEVEL IS ZERO 4F12860
STA SPC7 ENTER GENERATED 4F12861
FLINE PAX TLDOS,2 DO FORMULAS IN TDO BY 4F12862
TXI *+1,2,-TLDOS SUBROUTINE TET. 4F12663
SPC9 LXA L(5),4 (MOVE EACH 4F12864
SPC7 CLA **,2 TEMPDO TABLE ENTRY 4F12865
STO 1C+5,4 INTO 1C...1C+4, 4F12866
TNX SPC8,2,1 AND THEN 4F12867
TIX SPC7,4,1 WHEN DONE, 4F12868
SPC8 LXA 1C,4 TEST TO SKIP 4F12869
TXL SPCT,4,0 NULL DO, 4F12870
TSX TET00,1 * GO MAKE AN ENTRY 4F12871
PZE 1 IN TDO TABLE.)AND WHEN THE WHOLE 4F12872
SPCT TXH SPC9,2,1 DO NEST HAS BEEN ENTERED, 4F12873
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12874
RESET TXI RSC,0 * THEN EXIT TO CONTINUE LIST SCAN. 4F12875
REM END OF PROGRAM SPC, 4F12876
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12877
REM 4F12878
REM RPR/ CALLS=DIAG,USES=CMA,SPC 4F12879
REM RPR = ENTRY POINT WHEN RPAREN IS MET IN LIST SCAN. 4F12880
RPR LXD DOLEV,4 TEST LEGALITY OF ), 4F12881
TXH RPS,4,0 IF THERE ARE TOO MANY I IN LIST, 4F12882
TSX DIAG,4 * GO TO THE DIAGNOSTIC 4F12883
RPS CAL DOLEV,4 NULLIFY DO AT CURRENT LEVEL. 4F12884
STA SPC5 SET SPC5 ADDRESS, 4F12885
CLA RPA SET CMA3 SWITCH TO RETURN TO 4F12886
STA CMA3 RPT, AND IF ANY CHARACTERS 4F12887
TXH CMA1,2,6 * WERE COLLECTED, EXIT TO CMA. 4F12888
REM RPT = REENTRY POINT USED BY CMA. 4F12889
RPT CLA SPC1 RESET CMA3 SWITCH 4F12890
STA CMA3 TO NXS, 4F12891
RPA PXD RPT,0 CLEAR THE AC AND 4F12892
TXI SPC5,0 * CONTINUE BY USING PROGRAM SPC. 4F12893
REM END OF PROGRAM RPR. 4F12894
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12895
REM 4F12896
REM CMA/ CALLS=TYP,DIAG,ETMSW,DIM.SR,IFFIX,TET00,DRTABS,JIF,CIT, 4F12897
REM LTMSW. USES=RSC 4F12898
REM CMA = ENTRY POINT WHEN COMMA IS MET IN LIST SCAN. 4F12899
CMA TXL NXC,2,6 * IF NOTHING COLLECTED, RETURN -SCAN. 4F12900
REM CMA1 = ENTRY POINT USED BY EMK. 4F12901
CMA1 TSX TYP,4 * TYPE TEST FOR NON-SUBSCR. VAR. 4F12902
TRA 3,4 ILLEGAL USE OF CONSTANT IN LIST, 4F12903
ERRC TSX DIAG,4 * GO TO THE DIAGNOSTIC 4F12904
CAL SYM MOVE VARIABLE SYMBOL 4F12905
CMA4 SLW SA INTO SA. AND 4F12906
REM CMA7 = ENTRY POINT USED BY LPR. 4F12907
CMA7 LXA DOLEV,4 IF DOLEV ADDRESS = 0, AND IF 4F12908
TXH CMA6,4,0 ETMSW IS SET TO TXH (NOP CASE), 4F12909
TSX ETMSW,4 * GO COMPILE ETM, AND CLEAR SL. 4F12910
CMA6 CAL DOLEV IN ANY CASE, 4F12911
ADD L(1) UPDATE DOLEV ADDRESS 4F12912
STO DOLEV BY 1, AND THEN 4F12913
CLA GTAG SET GENERALIZED TAG* 4F12914
STO RA (RELATIVE ADDRESS) 4F12915
TZE DIMSR IF THIS VARIABLE HAS A SUBSCRIPT, 4F12916
CLA EPS AND IF SUBSCRIPT 4F12917
TNZ CMA5 IS A CONSTANT, 4F12918
STA RA THEN CLEAR THE ADDRESS OF RA. 4F12919
TXI CMA5,0 THEN GO MAKE CIT ENTRY. 4F12920
DIMSR CAL SA IF THIS VARIABLE 4F12921
SLW E+2 DOES NOT HAVE A SUBSCRIPT, THEN 4F12922
RD1 TSX DIM1SR,4 * GO SEARCH DIM1 TABLE, 4F12923
TXI RD2,0 IF FOUND, THEN 4F12924
CS1 CLA D12 PICKUP DIMENSION 1 4F12925
TXI DVS,0 AND GO TEST SIZE. OTHERWISE, 4F12926
RD2 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F12927
TXI RD3,0 AND IF FOUND, 4F12928
CS2 LDQ D12 PICKUP 4F12929
STZ N2 DIMENSION 1 AND 4F12930
SLQ N2 DIMENSION 2 4F12931
LGL 18 AND MULTIPLY 4F12932
MPY N2 THEM TOGETHER. 4F12933
ARS 1 THEN 4F12934
TXI DVS,0 GO TEST THE PRODUCT. OTHERWISE, 4F12935
RD3 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. 4F12936
TXI NODIM,0 AND IF FOUND, 4F12937
CS3 LDQ D12 PICKUP 4F12938
STZ N2 DIMENSION 1, 4F12939
SLQ N2 DIMENSION 2, 4F12940
LGL 18 AND DIMENSION 3. 4F12941
MPY N2 MULTIPLY 4F12942
LRS 18 THEM TOGETHER, 4F12943
MPY D3 AND IF 4F12944
LLS 17 THEIR 4F12945
DVS SUB L(1) PRODUCT IS 4F12946
TZE NODIM GREATER THAN 1, THEN 4F12947
ALS 18 PLACE DIMENSION-1 IN THE 4F12948
STO G DECREMENT OF G, AND 4F12949
TSX FXCNIX,4 * GO ENTER IN FIXCON, AND GET TAG. 4F12950
ALS 18 ADJUST, AND STORE TAG IN THE 4F12951
STD RAT DECREMENT OF RAT. THEN 4F12952
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12953
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12954
PZE SL WORD1--0(IFN)000 4F12955
PZE LXD WORD2--LXD000 4F12956
PZE 2P WORD3--200000 4F12957
PZE RAT WORD4--0(FIXCON TAG)008 4F12958
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12959
TSX ETMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F12960
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12961
PZE SL WORD1--0(IFN)000 OR 000000 4F12962
PZE OP WORD2--(OPERATION CODE) 4F12963
PZE SA WORD3--(SYMBOLIC ADDRESS) 4F12964
PZE ST WORD4--000008 4F12965
STZ SL CLEAR SL, AND 4F12966
TSX LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F12967
TSX GIF,4 * GET IFN IN SL AND TL. 4F12968
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12969
PZE L(0) WORD1--000000 4F12970
PZE TIX WORD2--TIX001 4F12971
PZE SL WORD3--0(IFN)000 4F12972
PZE ST WORD4--000008 4F12973
STZ SL CLEAR SL, AND 4F12974
TSX ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0. 4F12975
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12976
PZE L(0) WORD1--000000 4F12977
PZE DED WORD2--DED000 4F12978
PZE L(0) WORD3--000000 4F12979
PZE ST WORD4--000008 4F12980
TXI CMA5,0 IF THE PRODUCT OF DIMENSIONS IS 4F12981
NODIM TSX IFFIX,1 * LESS THAN 2, TEST TYPE OF VARIABLE, 4F12982
TXI CMA5,0 AND IF FIXED POINT, 4F12983
TSX TET00,1 * GO ENTER VARIABLE IN 4F12984
INOUT PZE ** EITHER FORVAL OR FORVAR TABLE. 4F12985
CMA5 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12986
PZE SL WORD1--0(IFN)000 OR 000000 4F12987
PZE OP WORD2--NTR000 OR CPY000 4F12988
PZE SA WORD3--(SYMBOL) 4F12989
PZE RA WORD4--(RELATIVE ADDRESS) 4F12990
STZ SL CLEAR SL, AND 4F12991
STZ GTAG CLEAR GTAG. THEN TAKE EXIT 4F12992
CMA3 TXI NXS,0 * SWITCH TO RPT OR NXS, 4F12993
REM END OF PROGRAM CMA. 4F12994
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12995
REM 4F12996
REM EMK/ CALLS=DIAG,LTMSW,JIF,CIT,LIB,TET00, USES=CMA, 4F12997
REM EMK = ENTRY POINT WHEN AN ENDMARK IS MET IN LIST SCAN. 4F12998
EMK TXH CMA1,2,6 * IF NO CHARACTERS REMAIN, THEN 4F12999
LXD DOLEV,4 CHECK THE NUMBER OF PARENTHESES. 4F13000
TXL FIN,4,0 IF THERE ARE TOO MANY LPARENS, 4F13001
TSX DIAG,4 * GO TO THE DIAGNOSTIC OTHERWISE, 4F13002
FIN TSX LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F13003
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F13004
REM LAST = ENTRY POINT SET BY BXT SWITCH. 4F13005
LAST TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13006
PZE SL WORD1--0(IFN)000 4F13007
PZE CAL WORD2--CAL000 4F13008
PZE 15P WORD3--*00000 4F13009
PZE L(0) WORD4--000000 4F13010
TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F13011
PZE L(0) WORD1--000000 4F13012
PZE XIT WORD2--XIT000 4F13013
PZE END WORD3--(RTN) OR (FIL) 4F13014
PZE L(0) WORD4--000000 4F13015
REM FINI = ENTRY POINT USED BY EFT. 4F13016
FINI CLA RESET RESET BXT SWITCH 4F13017
STA BXT TO RSC. 4F13018
CLA F-1 TEST FOR AN EXTERNAL 4F13019
SUB 5BLANS STATEMENT NUMBER, AND IF NONE, 4F13020
TZE CA010 * EXIT TO PROCESS NEXT STATEMENT. 4F13021
CAL MINUS0 OTHERWISE, SET THE SIGN 4F13022
ORS EIFNO OF EIFNO TO MINUS, AND 4F13023
TSX TET00,1 * GO ENTER -(EIFNO) 4F13024
PZE 0 IN THE TEIFNO TABLE. 4F13025
CAL EIFNO THEN RESTORE 4F13026
STO EIFNO EIFNO, AND 4F13027
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F13028
REM END OF PROGRAM EMK. 4F13029
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13030
REM 4F13031
REM STATEA/ 4-SUBROUTINES USED BY STATE A= 4F13032
REM
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM 4F13033
REM BEG(TYP),4/ CALLS=DIAG. USES RSC. 4F13034
REM BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT, 4F13035
BEG SXD BEX,4 SAVE C(XR4) FOR RETURN, 4F13036
CAL BEGTR SET CONTROL TRANSFER 4F13037
BEX TXI CXS,0,** * AND GO EXECUTE BEGINNING SCAN. 4F13038
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13039
REM 4F13040
REM BEGTR/ CONTROL TRANSFERS FOR BEGINNING SCAN= 4F13041
TXI NLS,0 * ENDMARK (NO LIST SCAN) 4F13042
IBC TSX DIAG,4 * ( (ILLEGAL CHARACTER IN I/O SETUP).4F13043
TXI CMB,0 * , 4F13044
TXI IBC,0 ) (ILLEGAL CHARACTER IN I/O SETUP).4F13045
TXI IBC,0 = (ILLEGAL CHARACTER IN I/O SETUP).4F13046
TXI IBC,0 - (ILLEGAL CHARACTER IN I/O SETUP).4F13047
TXI IBC,0 / (ILLEGAL CHARACTER IN I/O SETUP).4F13048
TXI IBC,0 . (ILLEGAL CHARACTER IN I/O SETUP).4F13049
TXI IBC,0 + (ILLEGAL CHARACTER IN I/O SETUP).4F13050
TXI IBC,0 * (ILLEGAL CHARACTER IN I/O SETUP).4F13051
BEGTR PZE BEGTR INDEXING ADDRESS FOR ABOVE LIST. 4F13052
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13053
REM 4F13054
REM NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN. 4F13055
NLS CLA NLA IF ENDMARK IS MET, 4F13056
STA BXT SET BXT SWITCH TO LAST. 4F13057
REM CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN. 4F13058
CMB LXD BEX,4 RESTORE THE C(XR4), AND 4F13059
REM TYP = ENTRY POINT USED BY LPR,SPC,CMA, 4F13060
TYP CLA CHR-6 TEST FIRST CHARACTER 4F13061
SUB PLUS FOR VARIABLE 4F13062
TMI ABS OR CONSTANT. 4F13063
TXH SMB,2,36 IF VARIABLE. 4F13064
CAL BLANK ADD A BLANK 4F13065
ALS 36,2 IF SYMBOL CONTAINS 4F13066
ORS SYM LESS THAN 6 CHARACTERS, AND 4F13067
SMB TRA 1,4 * TAKE VARIABLE EXIT TO CALLER. 4F13068
ABS LXA L(5),2 IF CONSTANT* 4F13069
CLA CHR-1,2 THEN 4F13070
STO BIN CONVERT 4F13071
CSJ TXL INT,2,** BCD 4F13072
ALS 2 DIGITS 4F13073
ADD BIN TO THEIR 4F13074
ALS 1 BINARY 4F13075
ADD CHR,2 EQUIVALENT, 4F13076
TXI CSJ-1,2,-1 AND WHEN DONE, 4F13077
INT TRA 2,4 * TAKE CONSTANT EXIT TO CALLER. 4F13078
REM END OF PROGRAM BEG(TYP), 4F13079
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13080
REM 4F13081
REM BRW,4/ CALLS=JIF,BEG,VRA,CIT, CALLERS=WBT,RBT,WRD, 4F13082
BRW SXD XRW,4 SAVE THE C(XR4), AND 4F13083
SLW CON SET CON = 0 OR ,,144 OR ,,192, 4F13084
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F13085
TSX BEG,4 * GO SCAN AND TEST TYPE OF SYMBOL. 4F13086
TSX VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F13087
ALS 18 IF CONSTANT, ADJUST CONVERTED 4F13088
STO RA NUMBER, AND SET RA. 4F13089
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13090
PZE TL WORD1--0(IFN)0(248) 4F13091
PZE OP WORD2--(WTB,RBT,WRD,RDD)000 4F13092
PZE L(0) WORD3--000000 4F13093
PZE RA WORD4--000000 OR 0(UNIT)000 4F13094
CAL CPY MOVE CPY000 4F13095
SLW OP INTO OP. 4F13096
CAL TXLOP SET OP-SWITCHES, 4F13097
STP ETMSW ETMSW AND LTMSW, 4F13098
STP LTMSW TO THE TRA CASE. 4F13099
CAL RTN MOVE (RTN) 4F13100
SLW END INTO END. 4F13101
STZ SL CLEAR SL, 4F13102
LXD XRW,4 RESTORE THE C(XR4), AND 4F13103
TRA 1,4 * EXIT TO CALLER. 4F13104
REM END OF PROGRAM BRW. 4F13105
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13106
REM 4F13107
REM BSS,2/ CALLS=CIT00, CALLERS=LPR,C1600, 4F13108
REM BSS COMPILES= IFN BSS 0. 4F13109
BSS TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= 4F13110
PZE SL WORD1--0(IFN)000 4F13111
PZE L(BSS) WORD2--BSS000 4F13112
PZE L(0) WORD3--000000 4F13113
PZE L(0) WORD4--000000 4F13114
TRA 1,2 * EXIT TO CALLER+1. 4F13115
REM END OF PROGRAM BSS, 4F13116
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13117
REM 4F13118
REM CA100,4 / CALLS=DIAG, CALLER=CA000, 4F13119
REM CA100 READS NEXT SOURCE PROGRAM CARD (1 TAPE RECORD), 4F13120
CA100 LXA TERC,2 PREPARE TO COUNT 4F13121
SXD 1G,2 TAPE READING ERRORS. 4F13122
RTT TURN OFF TAPE CHECK INDICATOR. 4F13123
NOP PROCEED TO NEXT INSTRUCTION. 4F13124
CA101 RDS 130 SELECT SOURCE TAPE FOR READING, 4F13125
LXA L(12),2 INITIALIZE INDEX B FOR 12 CYCLES OF4F13126
REM COPY LOOP. 4F13127
CA102 CPY FT+12,2 COPY INTO FT REGION 4F13128
TRA CA103 NEXT SOURCE PROGRAM CARD. 4F13129
TRA CA120 END OF FILE, GO FINISH LAST STATEM.4F13130
CA130 LXD 1G,2 TEST TAPE ERROR COUNTER 4F13131
TIX CA131,2,1 BY TRYING TO REDUCE BY 1. 4F13132
TSX DIAG,4 * FAILED 5 TIMES IN READING TAPE 2. 4F13133
CA131 SXD 1G,2 SAVE REDUCED VALUE IN COUNTER, 4F13134
BST 130 BACKSPACE FORMULA TAPE, 4F13135
TRA CA101 AND GO BACK TO READ AGAIN. 4F13136
CA103 TIX CA102,2,1 TEST EXIT FROM LOOP. 4F13137
IOD DELAY UNTIL TAPE DISCONNECTS. 4F13138
RTT CHECK READING OF TAPE. 4F13139
TXI CA130,0 IF INCORRECT, GO CHECK ERROR COUNT,4F13140
LXA L(12),2 PREPARE TO SCAN 12 WORDS OF CARD. 4F13141
CA112 CLA BLANKS TEST 4F13142
SUB FT+12,2 FOR 4F13143
TNZ CA113 BLANK 4F13144
TIX CA112,2,1 CARD. 4F13145
TRA CA100 IF BLANK, GO TO READ NEXT CARD. 4F13146
CA113 CAL FT IF NOT BLANK, 4F13147
ARS 30 EXAMINE FIRST 4F13148
SUB L(C) CHARACTER TO 4F13149
TZE CA100 TEST FOR COMMENT CARD. 4F13150
TRA 1,4 * EXIT IF NEITHER BLANK NOR COMMENT, 4F13151
CA120 STZ FT INDICATE THAT FINAL 4F13152
SXD ENDWRD,0 STATEMENT HAS BEEN READ IN. 4F13153
TRA 1,4 * EXIT TO MAIN ROUTINE TO FINISH. 4F13154
REM END OF PROGRAM CA100. 4F13155
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13156
REM 4F13157
REM CC500,4/ CALLER=CC000, 4F13156
REM CC500 BRINGS NEXT CHARACTER OF DICTIONARY INTO AC(30-35), 4F13159
CC500 PXD ,0 CLEAR THE AC 4F13160
TIX CC502,2,1 IF NO DICTIONARY CHARACTERS 4F13161
LXD 2G,2 REMAIN IN THE MO, THEN 4F13162
LDQ DIC,2 REFILL WITH NEXT DICTIONARY WORD, 4F13163
TXI CC501,2,-1 RESET THE 4F13164
CC501 SXD 2G,2 DICTIONARY WORD TAG, AND 4F13165
LXA L(6),2 SET THE CHARACTER COUNT = 6. 4F13166
CC502 LGL 6 SHIFT CHAR INTO AC(30-35), 4F13167
TRA 1,4 * AND RETURN TO CALLER. 4F13168
REM END OF PROGRAM CC500. 4F13169
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13170
REM 4F13171
REM ETMSW(LTMSW)*4/ CALLS=CIT, CALLERS=RDC,LPR,SPC,CMA,EMK, 4F13172
REM ETMSW = ENTRY POINT USED BY RDC,CMA. 4F13173
ETMSW TXL NOTTM,0 SWITCH (TXL=TRA, TXH=NOP), 4F13174
CAL ETM PICKUP ETM00, AND 4F13175
XR4X TXI SETOP,0,** GO SET OP. 4F13176
REM LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK, 4F13177
LTMSW TXL NOTTM,0 SWITCH (TXL=TRA, TXH=NOP), 4F13178
CAL LTM PICKUP LTM000, AND 4F13179
SETOP SLW TOP SET TOP. 4F13160
SXD XR4X,4 SAVE THE C(XR4), AND 4F13161
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13182
PZE SL WORD1--0(IFN)000 4F13183
PZE TOP WORD2--ETM000 OR LTM000 4F13184
PZE L(0) WORD3--000000 4F13165
PZE L(0) WORD4--000000 4F13186
STZ SL CLEAR SL, 4F13187
LXD XR4X,4 RESTORE THE C(XR4), AND 4F13188
NOTTM TRA 1,4 * EXIT TO CALLER. 4F13189
REM END OF PROGRAM ETMSW(LTMSW). 4F13190
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13191
REM 4F13192
REM IFFIX,1/ USES=TESTFX, CALLERS=CMA,VRA(VRD), 4F13193
IFFIX CAL EIFNO SET 4F13194
STZ G G TO 4F13195
STD G (0(IFN)000), 4F13196
CAL SYM MOVE SYMBOL 4F13197
SLW G+1 INTO G+1. 4F13198
CAL CHR-6 PICKUP 1ST CHARACTER OF SYMBOL, AND4F13199
TXI TESTFX+1,0 * GO TEST FOR FIXED OR FLOATING PT. 4F13200
REM END OF PROGRAM IFFIX. 4F13201
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13202
REM 4F13203
REM INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB, 4F13204
REM CALLERS =RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD. 4F13205
REM INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD, 4F13206
INPUT CLA L(6) PICKUP 6 TO 4F13207
TXI OUTPUT+1 GO SET INOUT FOR FORVAL ENTRY. 4F13208
REM OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD. 4F13209
OUTPUT CLA L(5) PICKUP 5 TO 4F13210
STO INOUT SET INOUT FOR FORVAR ENTRY. 4F13211
TSX GIF,4 * SET SL = IFN,000. 4F13212
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13213
PZE SL WORD1--0(IFN)000 4F13214
PZE CAL WORD2--CAL000 4F13215
PZE 15P WORD3--*00000 4F13216
PZE L(0) WORD4--000000 4F13217
TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F13218
PZE L(0) WORD1--000000 4F13219
PZE XIT WORD2--XIT000 4F13220
PZE LEV WORD3--(LEV) 4F13221
PZE L(0) WORD4--000000 4F13222
STZ SL CLEAR SL, AND 4F13223
TRA 1,2 * EXIT TO CALLER. 4F13224
REM END OF PROGRAM INPUT(OUTPUT), 4F13225
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13226
REM 4F13227
REM LIB,1/ CALLS=TET00,CIT, CALLERS=RDC,EMK,INPUT(OUTPUT), 4F13228
LIB CAL 3,4 MOVE NAME OF SUBROUTINE, 4F13229
STA LIC ADDRESS OF WHICH 4F13230
LIC CAL ** IS IN WORD3 OF CALLING SEQ, 4F13231
SLW G INTO G, AND 4F13232
TSX TET00,1 * GO ENTER IN THE 4F13233
PZE 9 CLOSUB TABLE. 4F13234
TXI CIT,0 * MAKE CIT ENTRY, AND EXIT TO CALLER.4F13235
REM END OF PROGRAM LIB. 4F13236
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13237
REM 4F13238
REM VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF, 4F13239
REM CALLERS =RIT,WOT,EFT, 4F13240
REM VRA = ENTRY POINT USED BY EFT. 4F13241
VRA CLA L(TL) RESET TPOA ADDRESS 4F13242
STA TPOA TO TL. 4F13243
CAL TXLOP PREPARE TO SET OP-SWITCH TO TRA. 4F13244
TXI VRD1,4,-1 SET RETURN TO TSX+2, AND GO SET OP.4F13245
REM VRD = ENTRY POINT USED BY RIT,WOT, 4F13246
VRD CLA TXLOP PREPARE TO SET OP-SWITCH TO NOP. 4F13247
VRD1 STP VRX SET VRX OP-SWITCH. 4F13248
SXD VRX,4 SAVE THE C(XR4) FOR RETURN. 4F13249
TSX IFFIX,1 * SET UP IFN AND SYMBOL FOR FORVAR. 4F13250
TSX DIAG,4 * ILLEGAL USE OF FLOATING VARIABLE. 4F13251
TSX TET00,1 * IF SYMBOL IS FXD-PT, GO MAKE 4F13252
PZE 5 ENTRY IN FORVAR TABLE. 4F13253
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13254
PZE SL WORD1-0(IFN)000 4F13255
PZE CAL WORD2-CAL000 4F13256
PZE SYM WORD3-(FXD-PT SYMBOL) 4F13257
PZE L(0) WORD4-000000 4F13258
VRX TXH VDA,0,** SWITCH ITXL=TRA, TXH=NOP), 4F13259
CAL STD PICKUP STD000, AND 4F13260
XRW TXI RVX,0,** GO SET TOP. 4F13261
VDA CLA CON IF CON 4F13262
TZE SDA IS NOT ZERO, 4F13263
STO G THEN 4F13264
TSX FXCNIX,4 * ENTER CON IN FIXCON,AND GET TAG, 4F13265
ALS 18 ADJUST TAG, AND 4F13266
STO RA SET RA. 4F13267
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY. 4F13268
PZE L(0) WORD1-000000 4F13269
PZE ADD WORD2-ADD000 4F13270
PZE 2P WORD3-200000 4F13271
PZE RA WORD4-(FIXCON TAG) 4F13272
SDA TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13273
PZE L(0) WORD1-000000 4F13274
PZE ARS WORD2-ARSOOO 4F13275
PZE L(0) WORD3-000000 4F13276
PZE D18 WORD4-0(18)000 4F13277
CAL STA PICKUP STAOOO, AND 4F13278
RVX SLW TOP SET TOP TO STA OR STD. 4F13279
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL, 4F13280
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13281
PZE L(0) WORD1- 00600 4F13282
PZE TOP WORD2-STA000 OR STD000 4F13283
PZE TL WORD3-0(IFN)000 4F13264
PZE L(0) WORD4-000000 4F13285
NLA PXD LAST,0 CLEAR THE AC 4F13286
LXD VRX,4 RESTORE THE C(XR4), AND 4F13287
TRA 1,4 * EXIT TO CALLER. 4F13288
REM END OF PROGRAM VRA(VRD), 4F13289
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13290
REM 4F13291
REM STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A= 4F13292
REM 4F13293
BCD BCD 1BCD000 CONSTANT USED BY IOT. 4F13294
BST BCD 1BST000 CONSTANT USED BY IOT. 4F13295
ETM BCD 1ETM000 CONSTANT USED BY IOT, 4F13296
LTM BCD 1LTM000 CONSTANT USED BY IOT. 4F13297
NTR BCD 1NTR000 CONSTANT USED BY IOT. 4F13298
RDR BCD 1RDR000 CONSTANT USED BY IOT. 4F13299
REW BCD 1REW000 CONSTANT USED BY IOT. 4F13300
RTB BCD 1RTB000 CONSTANT USED BY IOT. 4F13301
SLW BCD 1SLW000 CONSTANT USED BY IOT. 4F13302
STD BCD 1STD000 CONSTANT USED BY IOT. 4F13303
WDR BCD 1WDR000 CONSTANT USED BY IOT. 4F13304
WEF BCD 1WEF000 CONSTANT USED BY IOT. 4F13305
WTB BCD 1WTB000 CONSTANT USED BY IOT. 4F13306
XIT BCD 1XIT000 CONSTANT USED BY IOT. 4F13307
BDC BCD 1(BDC) CONSTANT USED BY IOT. 4F13308
CSH BCD 1(CSH) CONSTANT USED BY IOT. 4F13309
DBC BCD 1(DBC) CONSTANT USED BY IOT. 4F13310
FIL BCD 1(FIL) CONSTANT USED BY IOT. 4F13311
LEV BCD 1(LEV) CONSTANT USED BY IOT. 4F13312
RTN BCD 1(RTN) CONSTANT USED BY IOT. 4F13313
SCH BCD 1(SCH) CONSTANT USED BY IOT. 4F13314
SPH BCD 1(SPH) CONSTANT USED BY IOT. 4F13315
STH BCD 1(STH) CONSTANT USED BY IOT. 4F13316
TSH BCD 1(TSH) CONSTANT USED BY IOT. 4F13317
REM 4F13318
CON BSS 1 VARIABLE USED BY IOT. 4F13319
END PZE ** VARIABLE USED BY IOT. 4F13320
TOP BSS 1 VARIABLE USED BY IOT. 4F13322
TSA PZE ** VARIABLE USED BY IOT. 4F13323
TTA PZE ** VARIABLE USED BY IOT. 4F13324
REM 4F13325
REM DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500).4F13326
DIC OCT 244677274663 DO-GOT 4F13327
OCT -67731267462 O-IF(S 4F13328
OCT 254562256266 ENSESW 4F13329
OCT 316323307731 ITCH-I 4F13330
OCT 267462254562 F(SENS 4F13331
OCT 254331273063 ELIGHT 4F13332
OCT -373126243165 -IFDIV 4F13333
OCT 312425233025 IDECHE 4F13334
OCT 234277312621 CK-IFA 4F13335
OCT 232364446443 CCUMUL 4F13336
OCT 216346514665 ATOROV 4F13337
OCT 255126434666 ERFLOW 4F13338
OCT -373126506446 -IFQUO 4F13339
OCT -233125456346 TIENTO 4F13340
OCT -252551264346 VERFLO 4F13341
OCT -267731267721 W-IF-A 4F13342
OCT -226231274577 SSIGN- 4F13343
OCT -226346477747 STOP-P 4F13344
OCT 216462257762 AUSE-S 4F13345
OCT 254562254331 ENSELI 4F13346
OCT 273063772431 GHT-DI 4F13347
OCT -42545623146 MENSIO 4F13348
OCT -57725506431 N-EQUI 4F13349
OCT -252143254523 VALENC 4F13350
OCT 257726512550 E-FREQ 4F13351
OCT -242545237077 UENCY- 4F13352
OCT 234645633145 CONTIN 4F13353
OCT -242577512521 UE-REA 4F13354
OCT 246321472577 DTAPE- 4F13355
OCT -112521243145 READIN 4F13356
OCT -76463632147 PUTTAP 4F13357
OCT 257751252124 E-READ 4F13358
OCT 245164447751 DRUM-R 4F13359
OCT 252124776651 EAD-WR 4F13360
OCT 316325632147 ITETAP 4F13361
OCT 257766513163 E-WRIT 4F13362
OCT 254664634764 EOUTPU 4F13363
OCT -236321472577 TTAPE- 4F13364
OCT -265131632524 WRITED 4F13365
OCT -116444774751 RUM-PR 4F13366
OCT 314563774764 INT-PU 4F13367
OCT -52330775125 NCH-RE 4F13368
OCT -263145247722 WIND-B 4F13369
OCT 212342624721 ACKSPA 4F13370
OCT 232577254524 CE-END 4F13371
OCT 263143257726 FILE-F 4F13372
OCT -65144216377 ORMAT- 4F13373
OCT -226422514664 SUBROU 4F13374
OCT -233145257723 TINE-C 4F13375
OCT -064444464577 OMMON- 4F13376
OCT -112563645145 RETURN 4F13377
OCT -372321434377 -CALL- 4F13378
OCT 254524747726 END(-F 4F13379
OCT -244523633146 UNCTIO 4F13360
OCT -057777777777 N----- 4F13361
BSS 10 4F133815
REM END OF DICTIONARY. 4F13382
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13383
REM 4F13384
REM T/ TRANSFER TABLE IUSED BY CC000), 4F13385
T TXI C0100,0 DO, 4F13386
TXI C0200,0 GO TO. 4F13387
TXI C0400,0 IF ISENSE SWITCH. 4F13388
TXI C0500,0 IF (SENSE LIGHT. 4F13389
TXI C0600,0 IF DIVIDE CHECK. 4F13390
TXI C0700,0 IF AC OVERFLOW, 4F13391
TXI C0800,0 IF MO OVERFLOW. 4F13392
TXI C0300,0 IF. 4F13393
TXI C1000,0 A5SIGN. 4F13394
TXI C1300,0 STOP. 4F13395
TXI C0900,0 PAUSE. 4F13396
TXI C1100,0 SENSE LIGHT, 4F13397
TXL C1200,0 DIMENSION* 4F13398
TXL C1500,0 EOUIVALENCE. 4F13399
TXL C1400,0 FREOUENCY, 4F13400
TXI C1600,0 CONTINUE. 4F13401
TXI RBT,0 READ TAPE. 4F13402
TXI RIT,0 READ INPUT TAPE. 4F13403
TXI RDD,0 READ DRUM. 4F13404
TXI RDC,0 READ CARD. 4F13405
TXI WBT,0 WRITE TAPE. 4F13406
TXI WOT,0 WRITE OUTPUT TAPE. 4F13407
TXI WRD,0 WRITE DRUM, 4F13408
TXI RDP,0 PRINT. 4F13409
TXI PDC,0 PUNCH. 4F13410
TXI RWN,0 REWIND. 4F13411
TXI BSP,0 BACKSPACE. 4F13412
TXI EFT,0 END FILE. 4F13413
TXL FOR,0 FORMAT. 4F13414
TXL C3000,0 SUBROUTINE. 4F13415
TXL C3100,0 COMMON. 4F13416
TXI C3200,0 RETURN. 4F13417
TXI C3300,0 CALL. 4F13418
TXL C3400,0 END. 4F13419
TXL C3500,0 FUNCTION. 4F13420
BSS 10 4F134205
REM END OF TRANSFER TABLE. 4F13421
ENDADR BSS 0 4F134215
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13422
REM 4F13423
ENDA ORG 3783 4F13424
BIN BSS 1 VARIABLE USED BY IOT. 4F13425
CHR BES 6 VARIABLE USED BY IOT. 4F13426
BSS 50 PARAMETERS FOR TLDOS TABLE -IOT. 4F13427
DOLEV BSS 1 PARAMETERS FOR TLDOS TABLE -IOT. 4F13428
OP BSS 1 VARIABLE USED BY IOT. 4F13429
RA BSS 1 VARIABLE USED BY IOT. 4F13430
SA BSS 1 VARIABLE USED BY IOT. 4F13431
SYM BSS 1 VARIABLE USED BY IOT. 4F13432
TLDOS BSS 250 DO TABLE USED BY IOT. 4F13433
REM END OF WORKING STORAGE USED BY STATEA. 4F13434
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13435
REM 4F13436
REM END OF THE NON-ARITHMETIC PART OF SECTION ONE. 4F13437
REM 4F13438
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13439
REM 4F13440
REM ARITHMETIC / STATE B= 4F13441
REM 704 FORTRAN MASTER RECORD CARD / STATE B = F0180000. 4F13442
ORG 0 4F134421
PZE ORGB,,DMWR06 4F134422
PZE ENDB-1 4F134423
REM 4F13443
ORGB ORG 1824 4F13444
REM 4F13445
REM THIS IS A RECODED VERSION OF STATE B OF SECTION ONE, 704 4F13446
REM FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL 4F13447
REM ANALYSIS HAS BEEN FOLDED OVER. 4F13440
REM 4F13449
REM STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS. 4F13450
REM THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS 4F13451
REM IN THE F REGION OF COMMON AND IS IN BCD. 4F13452
REM EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD 4F13453
REM ( HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN 4F13454
REM TABLES AND GIVEN AN INTERNAL VARIABLE NAME. 4F13455
REM LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT4F13456
REM WHERE AN ELEMENT IS DEFINED AS A VARIABLE, FUNCTION NAME OR (4F13457
REM AND THE OPERATOR WHICH PRECEDES IT. 4F13458
SLF 4F13459
CLA SIG1ST 4F13460
STO SIG1IX-3 4F13461
STZ ARGCTR CLEAR 4F13462
STZ CHSAVE X 4F13463
STZ 3LBAR X 4F13464
STZ NBAR X 4F13465
STZ CBAR X 4F13466
STZ ABAR X 4F13467
STZ FSTYPE X 4F13468
LXD 1BAR,4 SET NBAR=-1 4F13469
SXD NBAR,4 X 4F13470
CAL E( SET ARERAS - E( 4F13471
SLW ARERAS X 4F13472
TSX C0190X,4 SET FWA --F AND CHCTR - 0 4F13473
CAL TXHOP SET SWITCHES FOR LEFT SCAN. 4F13474
STP MS093 X 4F13475
STP MS310 X 4F13476
STP MS321 X 4F13477
MS010 CAL ADPLUS SET OP TO ADDITION 4F13478
MS030 SLW E+1 X 4F13479
STZ FNBITS CLEAR FUNCTION NAME INDICATOR 4F13480
STZ FNCTR CLEAR FUNCTION ARG COUNTER. 4F13481
STZ G CLEAR RECEIVING CELL. 4F13482
CLS L(0) SET E = -0 4F13483
STO E X 4F13484
LXA L(6),2 SET IR2 FOR SIX CHARS. 4F13485
MS040 CAL CHSAVE CHAR IN CHSAVE, IF ANY, TO AC. 4F13486
TNZ MS041 X 4F13467
TSX C0190,4 CHSAVE EMPTY, GET NEXT CHAR. 4F13488
MS041 CAS L(9) IS CHAR. NUMERIC 4F13489
TRA MS050 N/, TAKE TRA 4F13490
MS4007 TXH CM4100,0 4F13491
TSX ROYCNV,4 X 4F13492
TRA HOLL RETURN 1, THIS WAS HOLLERITH. 4F13493
TRA LATXH THIS WAS FIXED OR FLOATING CONSTANT. 4F13494
MS050 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13495
MS051 CAS CTEST,4 4F13496
TRA MS052 X 4F13497
TRA MS090 CHAR IS SOME PUNCTUATION. 4F13498
MS052 TIX MS051,4,1 X 4F13499
MS060 ALS 36,2 POSITION CHAR FOR BUILDING SYMBOL. 4F13500
ORS G ADD CHAR TO THOSE IN G. 4F13501
TXI MS061,2,6 UPDATE POSITIONING TAG. 4F13502
MS061 TSX C0190,4 GET NEXT CHAR. 4F13503
MS070 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13504
MS071 CAS CTEST,4 X 4F13505
TRA MS072 X 4F13506
TRA MS091 CHAR IS SOME PUNCTUATION. 4F13507
MS072 TIX MS071,4,1 X 4F13508
TXL MS060,2,18 IF THIS IS CHAR I, 2 /R 3 GO BUILD G. 4F13509
CAS L(F) IS THIS AN F ENDING FUNCTION NAME. 4F13510
TRA MS073 X 4F13511
TRA MS080 MAYBE, GO LOOK AT NEXT CHAR. 4F13512
MS073 TXL MS060,2,36 TEST FOR UNDER 7 CHARS. 4F13513
MS074 TSX DIAG,4 BUILD G, 7TH CHAR IS ERROR. 4F13514
MS080 TSX C0190,4 GET NEXT CHAR. 4F13515
CAS OPEN TEST FOR (. 4F13516
TRA MS081 X 4F13517
TRA MS092 YES, THIS IS A FUNCTION NAME. 4F13518
MS081 STO FIRSTC NO, SAVE CURRENT CHAR. 4F13519
CAL L(F) ADD F TO CONTENTS OF G, 4F13520
ALS 36,2 X 4F13521
ORS G X 4F13522
TXH MS074,2,36 TEST FOR 7TH CHAR, YES IS ERROR, 4F13523
CLA FIRSTC RESTORE CURRENT CHAR. 4F13524
TXI MS070,2,6 UPDATE POSITIONING TAG, 4F13525
MS090 STZ CHSAVE CLEAR 4F13526
TRA TRBLKA,4 4F13527
MS091 SLW CHSAVE OP IS IN NEXT ELEMENT, SAVE, 4F13528
CAL BLANK ADD BLANK TO CHARS IN G. 4F13529
ALS 36,2 X 4F13530
ORS G X 4F13531
LDQ G MOVE G TO E+2 AND TO G+1, 4F13532
STQ E+2 X 4F13533
STQ G+1 X 4F13534
TRA TRBLKB,4 NOW BRANCH TO INDIVIDUAL ROUTINE 4F13535
MS092 PXD ,0 CLEAR 4F13536
LDQ BLANKS ADD BLANKS TO SUBROUTINE NAME IN G. 4F13537
LGL 42,2 X 4F13538
ORA G X 4F13539
SLW G X 4F13540
SLW E+2 MOVE FUNCTION NAME TO E+2. 4F13541
MS093 *** MS335,0 TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE. 4F13542
LXD BK,4 THIS IS ARITH FUNCTION STATEMENT. 4F13543
SLW FORSUB,4 ENTER FUNCTION NAME IN FORSUB TABLE. 4F13544
CAL EIFNO ENTER INTERNAL FORMULA NO IN FORSUB. 4F13545
ANA MASK1 X 4F13546
STO FORSUB+1,4 X 4F13547
TXI FS010,4,-2 UPDATE COUNT OF ENTRIES IN FORSUB. 4F13548
FS010 SXD BK,4 X 4F13549
FS020 TSX C0190,4 GET FIRST CHAR OF ARGUMENT. 4F13550
CAS EQUAL TEST FOR EQUAL, 4F13551
TRA FS030 X 4F13552
TRA MS322 GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+24F13553
FS030 CAS L(9) TEST FOR ILLEGAL ARGUMENT, 4F13554
TRA FS040 LEGAL, CONTINUE 4F13555
MS9002 TXH CM4200,0 4F13556
TSX DIAG,4 BEGINS NUMERIC, ERROR, 4F13557
FS040 TSX C0160,2 COLLECT ARGUMENT NAME IN 1G, 4F13558
TSX TESTB0,4 TEST CHAR FOLLOWING ARG FOR , OR) 4F13559
LXD ARGCTR,2 GET COUNT OF ARGUMENTS 4F13560
LDQ 1G ENTER ARGUMENT NAME IN ARGREG TABLE. 4F13561
STQ ARGREG,2 X 4F13562
TXI FS050,2,-1 UPDATE COUNT OF ARGUMENTS. 4F13563
FS050 SXD ARGCTR,2 4F13464
TXH FS020,2,-50 TEST FOR ARGREG TABLE OVERFLOW, 4F13565
TSX DIAG,4 YES, ERROR. 4F13566
MS200 TSX DECPNT,4 CONVERT BCD NUMBER TO BINARY 4F13567
TSX DIAG,4 HOLLERITH RETURN, ERROR. 4F13568
TRA LATXH FLOATING POINT CONSTANT RETURN. 4F13569
MS210 SLN 1 TURN , LITE 0N. 4F13570
LXD 3LBAR,1 PERFORM LEVEL ANALYSIS FOR , 4F13571
LXD ABAR,4 4F13572
CLS ALPHA-4,4 4F13573
STO LAMBDA,1 4F13574
CAL ADSPOP 4F13575
SLW LAMBDA+1,1 4F13576
CLA NBAR 4F13577
ARS 18 4F13578
STO LAMBDA+2,1 4F13579
TXI MS211,1,-3 4F13580
MS211 SXD 3LBAR,1 4F13581
LXD NBAR,1 4F13582
SXD CBAR,1 4F13583
TXI MS212,1,-1 4F13584
MS212 SXD NBAR,1 4F13585
TXI MS213,4,3 4F13586
MS213 SXD ABAR,4 4F13587
TRA MS010 4F13588
MS220 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOR ) 4F13589
CLA ALPHA-4,4 4F13590
PAX ,1 4F13591
SXD CBAR,1 4F13592
TXI MS221,4,4 4F13593
MS221 SXD ABAR,4 4F13594
TRA MS020 4F13595
MS230 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOE ENDMK, 4F13596
TXI MS231,4,3 4F13597
MS231 TXL MS232,4,0 FINISHED, HAS LEVEL BEEN REDUCED TO ZERO, 4F13598
TSX DIAG,4 NO, ERROR. 4F13599
MS232 LXD ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT 4F13600
TXL STATEC,4,0 4F13601
CAL FSTYPE YES, UPDATE FUNCTION TYPE AND 4F13602
ADD L(1) COMPLETE FORSUB ENTRY BY ASSIGNING 4F13603
LXD BK,1 TYPE NUMBER. 4F13604
STA FORSUB-1,1 X 4F13605
ORS ARERAS ALSO SAVE FOR LATER REFERENCE. 4F13606
TRA STATEC 4F13607
TRA MS230 ENDMK 4F13608
TRA MS260 ( 4F13609
TRA MS210 , 4F13610
TRA MS220 ) 4F13611
MSERR= TSX DIAG,4 = 4F13612
TRA MS250 - 4F13613
TRA MS250 / 4F13614
TRA MS200 , 4F13615
TRA MS250 + 4F13616
MS240 ALS 30 * SAVE * 4F13617
TRBLKA BSS 0 4F13618
SLW E+1 X 4F13619
TSX C0190,4 GET NEXT CHAR. 4F13620
CAS STAR IS IT * 4F13621
TRA MS041 X 4F13622
TRA MS241 YES, THIS WAS ** 4F13623
TRA MS041 NO, GO COMPARE TO OTHER PUNCTUATION. 4F13624
MS241 CAL STRSTR REPLACE * WITH ** 4F13625
TRA MS251 X 4F13626
MS250 ALS 30 POSITION CHAR WHICH IS + OR - OR / 4F13627
MS251 SLW E+1 PUT CURRENT OP IN E+1. 4F13628
TRA MS040 NOW GO COLLECT SYMBOL, 4F13629
MS260 ALS 30 ( TO SYMBOL WORD 4F13630
SLW E+2 X 4F13631
TRA LATXL GO PERFORM LEVEL ANALYSIS FOR ( 4F13632
TRA MS300 ENDMK 4F13633
TRA MS320 ( 4F13634
TRA MS300 , 4F13635
TRA MS300 ) 4F13636
TRA MS310 = 4F13637
TRA MS300 - 4F13638
TRA MS300 / 4F13639
TSX DIAG,4 . 4F13640
TRA MS300 + 4F13641
MS300 PXD ,0 * CLEAR 4F13642
TRBLKB BSS 0 BASE ADDRESS FOR TAGGED TRANSFER. 4F13643
LGL 6 GET FIRST CHAR OF SYMBOL. 4F13644
TSX TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT. 4F13645
TRA LATXL FLOATING, GO PERFORM LEVEL ANALYSIS. 4F13646
CAL EIFNO FIXED, PREPARE FORVAR ENTRY. 4F13647
ANA MASK1 X 4F13648
SLW G X 4F13649
TSX TET00,1 MAKE FORVAR ENTRY. 4F13650
5 X 4F13651
PXD ,0 4F13652
LDQ LEFT+2 4F13653
LGL 12 4F13654
SUB CALLER 4F13655
TNZ LATXL 4F13656
TSX TET00,1 4F13657
6 4F13658
TRA LATXL GO PERFORM LEVEL ANALYSIS. 4F13659
MS320 STZ CHSAVE CLEAR CELL FOR 0P. 4F13660
MS321 *** MS330,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN. 4F13661
TSX SS000X,4 GO PROCESS SUBSCRIPT COMBINATION 4F13662
TSX C0190,4 GET NEXT CHAR. 4F13663
SUB EQUAL TEST FOR EQUAL SIGN. 4F13664
TNZ MSERR= NO, ERROR. 4F13665
MS322 LXA L(3),4 MOVE CONTENTS OF E WORDS TO LEFT WORDS. 4F13666
MS323 LDQ E+3,4 X 4F13667
STQ LEFT+3,4 X 4F13668
TIX MS323,4,1 X 4F13669
MS311 CAL TXLOP SET SWITCHES FOR RIGHT SIDE SCAN. 4F13670
STP MS093 X 4F13671
STP MS310 X 4F13672
STP MS321 X 4F13673
SLN 1 TURN = OR ) LITE 0N. 4F13674
TRA MS010 GO SCAN NEXT ELEMENT. 4F13675
MS310 *** MSERR=,0 TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. 4F13676
STZ CHSAVE CLEAR 4F13677
PXD ,0 CLEAR AC 4F136775
LGL 6 GET FIRST CHAR OF SYMBOL. 4F13678
TSX TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT 4F13679
TRA MS322 FLOATING, 4F13680
CAL EIFNO FIXED, PREPARE FORVAL ENTRY. 4F13681
ANA MASK1 X 4F13682
SLW G X 4F13683
TSX TET00,1 MAKE FORVAL ENTRY. 4F13684
6 X 4F13685
TRA MS322 4F13686
MS330 TSX DIM1SR,4 SEARCH FOR THIS NAME IN THE DIM1, DIM2, 4F13687
TRA MS331 AND DIM3 TABLES. IF IT IS FOUND IN ONE OF 4F13688
TRA MS333 THESE TABLES IT IS A SUBSCRIPTED VARIABLE 4F13689
MS331 TSX DIM2SR,4 OF THAT NUMBER OF DIMENSIONS, IF IT IS NOT 4F13690
TRA MS332 FOUND IN ANY DIMENSION TABLE THEN IT IS 4F13691
TRA MS333 ASSUMED TO BE THE NAME OF A FORTRAN II 4F13692
MS332 TSX DIM3SR,4 SUBROUTINE OR FUNCTION COMPILED SEPARATELY.4F13693
TRA MS334 X 4F13694
MS333 TSX SS000X,4 GO PROCESS SUBSCRIPT COMBINATIONS 4F13695
TRA LATXH GO PERFORM LEVEL ANALYSIS. 4F13696
MS334 CAL FNIND NOT FOUND, TREAT AS FUNCTION NAME. 4F13697
SLW FNBITS X 4F13698
PXD ,0 X 4F13699
LDQ BLANKS COMPLETE NAME WITH BLANKS. 4F13700
LGL 42,2 X 4F13701
ORS G X 4F13702
ORS E+2 X 4F13703
TSX TET00,1 ENTER NAME IN CLOSUB TABLE. 4F13704
9 X 4F13705
MS335 SLN 2 TURN FUNCTION LITE 0N. 4F13706
TRA LATXL GO PERFORM LEVEL ANALYSIS. 4F13707
HOLL STZ CHSAVE CLEAR CHSAVE 4F13708
CAL HOLCNT GET CURRENT H(+I WORD 4F13709
SLW E+2 4F13710
LXA N,2 GET NUMBER OF CHARACTERS IN THIS ARG 4F13711
LXD CHCTR,4 GET CURRENT RESIDUE CHAR COUNT 4F13712
LDQ RESIDU GET CURRENT RESIDU WORD 4F13713
C3351 LXA L(6),1 SET TO COLLECT SIX CHARS 4F13714
PXD 0,0 CLEAR AC 4F13715
C3352 TNX C3354,4,1 TEST FOR NO MORE CHARS IN RESIDU 4F13716
C33525 LGL 6 GET NEXT CHAR 4F13717
SLW 1G STORE WORD 4F13718
ANA ENDMK BLANK ALL EXCEPT CURRENT CHAR 4F13719
SUB ENDMK TEST FOR INTERNAL ENDMK 4F13720
TNZ C3353 4F13721
TSX DIAG,4 YES, ERROR, GO TO DIAGNOSTIC. 4F13722
C3353 CAL 1G RETREIVE WORD 4F13723
TNX C3358,2,1 TEST FOR ALL CHARS COLLECTED 4F13724
TNX C3356,1,1 TEST FOR SIX CHARS COLLECTED 4F13725
TRA C3352 NOT SIX CHARS YET, CONTINUE C0LLECTING4F13726
C3354 LXD FWA,4 LOAD MQ WITH NEXT F REGION WORD 4F13727
LDQ 0,4 4F13728
TXI C3355,4,-1 UPDATE FWA 4F13729
C3355 SXD FWA,4 4F13730
LXA L(6),4 RESET MQ CHAR COUNT TO SIX 4F13731
TRA C33525 CONTINUE COLLECTING 4F13732
C3356 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13733
C3357 TXI C3351,0,** RETURN TO CONTINUE COLLECTING 4F13734
C3358 STQ RESIDU UPDATE RESIDU 4F13735
SXD CHCTR,4 UPDATE CHCTR 4F13736
TNX C3360,1,1 TEST FOR SIX CHARS IN AC DEC IR1 4F13737
LDQ BLANKS NOT SIX CHARS, PREPARE TO ADD BLANKS 4F13738
C3359 LGL 6 ADD BLANKS 4F13739
TIX C3359,1,1 4F13740
C3360 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13741
CAL ALL1 GET WORD OF ONES 4F13742
TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13743
REM LEVEL ANALYSIS 4F13744
LATXL CAL TXLOP 4F13745
TRA LATXL+3 4F13746
LATXH CAL TXHOP 4F13747
STP CM4105 4F13748
LA0000 LXA L(0),A 4F13749
CLA E+2 4F13750
SLT 2 IS THIS A FUNCTION NAME 4F13751
TRA LA0000+36 NO 4F13752
SLN 2 YES - TURN F LITE BACK ON 4F13753
LXD BK,C IS FORSUB EMPTY 4F13754
TXL LA0000+13,C,0 YES. GO SET FS BITS TO 0 4F13755
SXD LA0000+12,C 4F13756
CAS FORSUB,A SEARCH FN NAME IN FORSUB 4F13757
TXI LA0000+12,A,-2 4F13758
TRA LA0000+15 4F13759
TXI LA0000+12,A,-2 4F13760
TXH LA0000+8,A,0 4F13761
STZ FSBITS SET FSBITS TO 0 4F13762
TRA LA0000+25 4F13763
CAL FORSUB+1,A FN NAME IN FORSUB 4F13764
ANA MASK2 EXTRACT TYPE NUMBER 4F13765
LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F13766
TXL LA0000+22,C,0 NO 4F13767
CAS FSTYPE YES - UPDATE FS TYPE 4F13768
STA FSTYPE 4F13769
TXH 0,0 4F13770
ALS 7 4F13771
ORA FSIND 4F13772
SLW FSBITS 4F13773
LXD 3LBAR,A LOAD LA COUNTERS 4F13774
LXD NBAR,B 4F13775
LXD ABAR,C 4F13776
TXL LA0003,A,0 4F13777
TXH LA0001,A,-1200 4F13778
TSX DIAG,4 ERROR..LAMBDA TABLE EXCEEDED. 4F13779
LA0001 TXH LA0002,B,-301 4F13780
TSX DIAG,4 ERROR.,BETA TABLE EXCEEDED 4F13781
LA0002 TXL LA0003,C,0 4F13782
TXH LA0003,C,-139 4F13783
TSX DIAG,4 ERROR..ALPHA TABLE EXCEEDED 4F13784
LXD ARGCTR,C VARIABLE OR ( 4F13785
TXL LA0000+13,C,0 NOT AN FS - GO SET FS BITS TO 0 4F13786
SXD LA0000+43,C FUNCTION STATEMENT 4F13787
CAS ARGREG,A SEARCH FREE VARIABLE TABLE 4F13788
TXI LA0000+43,A,-1 4F13789
TRA MS1018 4F13790
TXI LA0000+43,A,-1 4F13791
TXH LA0000+39,A,0 4F13792
TRA LA0000+13 NOT PRESENT - GO SET FSBITS TO 0 4F13793
MS1018 PXD 0,A PRESENT - STORE TYPE IN FSBITS 4F13794
ARS 11 4F13795
TRA LA0000+23 4F13796
LA0003 CLA MS9002 4F13797
STA LA4320 4F13798
PXD 0,0 4F13799
LDQ E+2 4F13800
STQ LAMBDA+11,A 4F13601
STQ LAMBDA+8,A 4F13802
STQ LAMBDA+5,A 4F13803
LGL 6 4F13804
STO FIRSTC 4F13805
SUB OPEN 4F13606
TZE LA003 4F13807
CLA MS4007 4F13808
SLT 2 4F13809
TRA LA002 4F13810
SLN 2 4F13811
CLA FINI03 4F13812
LA002 STA LA4320 4F13813
LA003 CLA E 4F13814
STO LAMBDA+9,A 4F13815
STO LAMBDA+6,A 4F13816
STO LAMBDA+3,A 4F13817
CAL ADSPOP 4F13818
SLW LAMBDA+13,A 4F13819
SLW LAMBDA+10,A 4F13820
SLW LAMBDA+7,A 4F13821
PXD ,0 4F13822
LDQ E+1 4F13823
STQ LAMBDA+1,A 4F13824
LGL 6 4F13825
CAS STAR 4F13826
TRA LA0015 / SIGN 4F13827
TRA LA0010 , OR ,, SIGN 4F13828
SLT 2 + OR - SIGN 4F13829
TRA LA0044 4F13830
TXI MS1033,B,-3 -N TO -(N+3) 4F13831
MS1033 PXD ,B 4F13832
ARS 18 4F13833
STO LAMBDA+14,A STO (N+3) IN LAMBDA+3 (L+4)+2 4F13834
TXI FINI03,B,1 -(N+3) TO - (N+2) 4F13835
FINI03 PXD CM4300,B 4F13836
ARS 18 4F13837
SSM 4F13838
STO LAMBDA+12,A STO -(N+2) IN LAMBDA+3 (L+4) 4F13839
LA0041 SLT 1 4F13840
TXI L43130,B,1 UNARY... -(N+2) TO -(N+1) 4F13841
TXI L13130,B,1 BINARY... -(N+2) TO - (N+1) 4F13842
LA0044 CLA FIRSTC 4F13843
CAS OPEN EXAMINE SYMBOL 4F13844
TRA LA0050 4F13845
TXI LA0058,B,-3 -N TO -(N+3) 4F13846
LA0050 SLT 1 4F13847
TXI LA4000,B,-1 UNARY... -NTO -(N+1) 4F13848
TXI LA1000,B,-1 BINARY... -N TO -(N+1) 4F13849
LA0058 PXD ,B 4F13850
ARS 18 4F13851
STO LAMBDA+11,A STO S(N+3) IN LAMBDA +3(L+3)+2 4F13852
ADD L(1) FORM -(N+2) IN ADD (ACC) 4F13853
TXI LA0041,2,1 4F13854
LA0010 TQP LA0015 GO TO * ROUTINE 4F13855
SLT 2 ** 4F13856
TRA LA0072 4F13857
TXI L23000,B,-1 -N TO -(N+1) 4F13858
LA0072 CLA FIRSTC 4F13859
SUB OPEN 4F13860
TNZ LA2000 4F13861
TXI L22000,B,-1 -N TO -(N+1) 4F13862
LA0015 SLT 2 * OR / 4F13863
TRA LA0021 4F13864
TXI L33000,B,-2 -N TO -(N+2) 4F13865
LA0021 CLA FIRSTC 4F13866
CAS OPEN 4F13867
TXI LA3000,B,-1 4F13868
TXI L32000,B,-2 -N TO -N(+2) 4F13869
TXI LA3000,B,-1 4F13870
L13130 SLW ALPHA+3,C STO -(N+2) IN ALPHA+A+3 4F13871
CLS L(0) 4F13872
STO LAMBDA+9,A STO -0 IN LAMBDA +3(L+3) 4F13873
SLN 1 4F13874
LA1000 CLS CBAR 4F13875
ARS 18 4F13876
SLW ALPHA,C STO -C IN ALPHA+A 4F13877
TXI LA1040,C,-3 -A TO - (A+3) 4F13878
LA1040 SXD ABAR,C 4F13879
TRA LA4010 4F13880
L22000 PXD ,B 4F13881
ARS 18 4F13882
STO LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2 4F13883
ADD L(1) 4F13884
TXI L23130,B,1 -(N+1) TO -N 4F13885
L23000 PXD ,B 4F13886
ARS 18 4F13887
STO LAMBDA+8,A STO S(N+1) IN LAMBDA+3(L+2)+2 4F13888
ADD L(1) 4F13889
SSM 4F13890
TXI L23090,B,1 -(N+1) TO -N 4F13891
L23090 STO LAMBDA+6,A STO -N IN LAMBDA+3(L+2) 4F13892
L23130 SLW ALPHA,C STO -N IN ALPHA +A 4F13893
CLS L(0) 4F13894
STO LAMBDA+3,A STO -0 IN LAMBDA+3(L+11 4F13895
SLN 1 4F13896
LA2000 CLS ALPHA-1,C 4F13897
STO LAMBDA,A STO C(ALPHA+A-1) IN LAMBDA+3L 4F13898
CLA NBAR 4F13899
TXI LA4180,A,6 4F13900
L43130 SLW ALPHA,C STO -(N+2) IN ALPHA+A 4F13901
CLS L(0) 4F13902
STO LAMBDA+9,A STO -0 IN LAMBDA+3(L+3) 4F13903
SLN 1 4F13904
LA4000 CLS ALPHA-3,C 4F13905
LA4010 STO LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L 4F13906
CLS NBAR 4F13907
ARS 18 4F13908
SLW ALPHA-2,C STO-N IN ALPHA+A-2 4F13909
SLW LAMBDA+2,A STO S(N) IN LAMBDA+3L+2 4F13910
STO LAMBDA+3,A STO -N IN LAMBOA+3(L+1) 4F13911
PXD ,B 4F13912
ARS 18 4F13913
STO LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2 4F13914
STO ALPHA-1,C STO-(N+1) IN ALPHA+A-1 4F13915
SSM 4F13916
STO LAMBDA+6,A STO -(N+1) IN LAMBDA+3(L+2) 4F13917
TXI LA4150,B,-1 -(N+1) TO -(N+2) 4F13918
LA4150 CAL ADSTAR 4F13919
SLW LAMBDA+4,A STO * IN LAMBDA+3(L+1)+1 4F13920
LA4170 PXD ,B 4F13921
LA4180 ARS 18 ' 4F13922
STO LAMBDA+8,A STOS(N+2) IN LAMBDA+3(L+2)+2 4F13923
ORS LAMBDA+9,A STO -(N+2) IN LAMBDA+3(L+3) 4F13924
CAL STRSTR 4F13925
SLW LAMBDA+7,A STO SPOP IN LAMBDA+3(L+2)+1 4F13926
CAL ADSPOP 4F13927
ORA FSBITS 4F13928
ORA FNBITS 4F13929
SLW LAMBDA+10,A STO SPOP IN LAMBDA+3(L+3)+1 4F13930
LA4320 TXI **,A,-9 4F13931
L32000 PXD ,B 4F13932
ARS 18 4F13933
STO LAMBDA+8,A STO 5(N+2) IN LAMBDA+3(L+2)+2 4F13934
ADD L(1) 4F13935
TXI L33130,B,1 -(N+2) TO -(N+1) 4F13936
L33000 PXD ,B 4F13937
ARS 18 4F13938
STO LAMBDA+11,A STO S(N+2) IN LAMBDA+3(L+3)+2 4F13939
ADD L(1) 4F13940
SSM 4F13941
TXI L33090,B,1 -(N+2) TO -(N+1) 4F13942
L33090 STO LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3) 4F13943
L33130 SLW ALPHA,C STO -(N+1) IN ALPHA+A 4F13944
CLS L(0) 4F13945
STO LAMBDA+6,A 4F13946
SLN 1 4F13947
LA3000 CLS ALPHA-2,C 4F13948
STO LAMBDA,A STO C(ALPHA+A-2) IN LAMBDA+3L 4F13949
CLS NBAR 4F13950
ARS 18 4F13951
SLW ALPHA-1,C STO -N IN ALPHA+A-1 4F13952
SLW LAMBDA+2,A STO S(N) IN LAMBDA+3L+2 4F13953
STO LAMBDA+3,A STO -N IN LAMBDA+3(L+1) 4F13954
TXI LA4170,A,3 4F13955
CM4100 TXI CM4101,A,-3 LA COUNTER MODIFICATION ROUTINES 4F13956
CM4101 SXD 3LBAR,A 4F13957
CM4102 SXD CBAR,B 4F13958
TXI CM4104,B,-1 4F13959
CM4104 SXD NBAR,B 4F13960
CM4105 *** MS010,0 4F13961
MS020 CAL ADSTAR 4F13962
TRA MS030 4F13963
CM4200 TXI CM4201,A,-3 4F13964
CM4201 SXD 3LBAR,A 4F13965
TXI CM4303,C,-1 4F13966
CM4300 TXI CM4301,A,-6 4F13967
CM4301 SXD 3LBAR,A 4F13968
TXI CM4303,C,-1 4F13969
CM4303 SXD ABAR,C 4F13970
TXI CM4102,B,-1 4F13971
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13972
REM 4F13973
REM CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE 4F13974
C3390 SXD C3357,1 SAVE CALLING IR 4F13975
SLW 1G MOVE WORD TO BE ENTERED TO 1G 4F13976
TSX TET00,1 GO TO ENTER WORD IN HOLARG TABLE 4F13977
13 4F13978
CLA HOLCNT 4F13979
ADD L(1) UPDATE HOLCNT 4F13980
STO HOLCNT 4F13981
LXD C3357,1 RELOAD CALLING IR 4F13982
TRA 1,1 RETURN TO CALLER+1 4F13983
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13984
REM 4F13985
REM PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN 4F13986
REM SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B. 4F13987
SS000X SXD SSIR4,4 SAVE CALLING TAG. 4F13988
TSX SS000,4 GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE. 4F13989
TSX RA000,4 GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.4F13990
CAL GTAG 4F13991
ANA MASK1 4F13992
SLW E+11 4F13993
TSX SIG1IX,4 GO ENTER THIS RELATIVE ADDRESS IN SIGMA1. 4F13994
ALS 15 POSITION SIGMA TAG. 4F13995
ORS E ADD SIGMA TAG TO I-TAU TAGS IN E. 4F13996
LXD SSIR4,4 RELOAD CALLING TAG. 4F13997
TRA 1,4 RETURN TO CALLER +1. 4F13998
REM 4F13999
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14000
REM 4F14001
REM ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG. 4F14002
REM ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION 4F14003
REM ARITHMETIC. 4F14004
REM ROYCNV=ENTRY POINT FOR FIXED OR FLOATING POINT INTEGERS, 4F14005
ROYCNV STO N SAVE DECIMAL DIGIT IN N. 4F14006
SXD EXIT,4 SAVE C(XR4) FOR RETURN. 4F14007
STZ DOE CLEAR DOE (IMPLICIT EXPONENT). 4F14008
CLA CM1 PICK UP SWITCH CONTROL. 4F14009
EXIT TXI IN2,0,** AND GO SET SWITCH. 4F14010
REM DECPNT=ENTRY POINT FOR FLOATING POINT FRACTIONS. 4F14011
DECPNT STZ N CLEAR N (NO INTEGER). 4F14012
SXD EXIT,4 SAVE C(XR4) FOR RETURN. 4F14013
STZ DOE CLEAR DOE (IMPLICIT EXPONENT). 4F14014
NC7 CAL CM1 PICK UP SWITCH CONTROL. 4F14015
IN2 STP CM2 SET SWITCHES CM2, AND 4F14016
STP CM3 CM3. 4F14017
TOV NC5 TURN OFF OV TRIGGER. 4F14018
NC5 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14019
SLW CHSAVE SAVE IT FOR STATE B, AND THEN 4F14020
CAS L(H) COMPARE IT WITH H. 4F14021
TXI NC1,0 IF H, GO TO HEXIT, 4F14022
SSIR4 TXI HEXIT,0 IF NOT H, CONTINUE 4F14023
NC1 CAS TEN AND COMPARE WITH TEN. 4F14024
CM1 TXL NC2,0 CHAR EXCEEDS IO, SO IS NON-NUMERIC. 4F14025
PXD ,0 CLEAR THE AC (MACHINE ERROR). 4F14026
STO H CHARACTER IS NUMERIC SO HOLD IT. 4F14027
CLA N MULTIPLY THE PREVIOUS 4F14028
ALS 2 PARTIAL RESULT (OR ZERO) 4F14029
ADD N BY 10, 4F14030
ALS 1 AND ADD IN 4F14031
ADD H THE CURRENT DIGIT. 4F14032
CM2 TXH NC3,0 SWITCH (NO TRANSFER IF INTEGER). 4F14033
TOV NC4 TEST OVERFLOW, AND 4F14034
STO N IF NONE, SAVE NEW PARTIAL RESULT. 4F14035
TXI NC5,0 THEN GO PICK UP NEXT CHARACTER. 4F14036
NC2 CAS POINT COMPARE NON-NUMERIC WITH A POINT. 4F14037
TXI CM3,0 IF GREATER THAN 27, GO OUT. 4F14038
TXI NC7,0 IF POINT, GO BACK AND SET SWITCH. 4F14039
CAS L(E) IF LESS THAN 27, COMPARE WITH E. 4F14040
TXI CM3,0 IF GREATER THAN 21, GO OUT. 4F14041
TXI EC1,0 IF E, GO TO EXPONENT ROUTINE. 4F14042
CM3 TXH FN4,0 SWITCH (NO TRANSFER IF INTEGER). 4F14043
CLA N PICK UP CONVERTED CONSTANT, AND 4F14044
MS9506 ALS 18 STORE IN THE 4F14045
STO G DECREMENT OF G, AND 4F14046
TSX FXCNIX,4 * GO MAKE FIXCON ENTRY. 4F14047
ORA FIXVAR CREATE INTERNAL FXD-PT VARIABLE,AND 4F14048
TXI EXITR,0 GO TAKE EXITR. 4F14049
NC3 TOV NC8 IF THERE WAS NO OVERFLOW, 4F14050
STO N SAVE PARTIAL RESULT, AND 4F14051
CLS L(1) SUBTRACT 1 FROM DOE 4F14052
NC9 ADD DOE TO ADJUST EXPONENT 4F14053
STO DOE IN FINAL RESULT. 4F14054
NC8 TXI NC5,0 THEN GO PICK UP NEXT CHARACTER. 4F14055
NC4 CLA L(1) ADD 1 TO DOE , 4F14056
TXI NC9,0 IF THERE WAS INTEGER OVERFLOW. 4F14057
EC1 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14058
SLW CHSAVE SAVE IT FOR STATE B, AND 4F14059
STZ EKE CLEAR EKE (EXPLICIT EXPONENT). 4F14060
CAS 11Z COMPARE CHARACTER WITH A DASH. 4F14061
TXI FN5,0 IF GREATER THAN 32, GO OUT. 4F14062
TXI EC3,0 IF A DASH, SET EKE MINUS. 4F14063
CAS 12Z IF LESS THAN 32, COMPARE WITH PLUS. 4F14064
TXI FN5,0 IF GREATER THAN 16, GO OUT. 4F14065
TXI EC6,0 IF PLUS, GO EXAMINE NEXT CHAR. 4F14066
CAS MINUS IF LESS THAN 16,COMPARE WITH MINUS. 4F14067
TXI FN5,0 IF GREATER THAN 12, GO OUT. 4F14068
EC3 CLS EKE IF MINUS, SET EKE TO -0. 4F14069
CAS TEN COMPARE WITH TEN. 4F14070
TXI FN5,0 IF NON-NUMERIC, GO EXAMINE NEXT CH. 4F14071
EC4 PXD ,0 CLEAR ACC, 4F14072
EC5 STO EKE SAVE PARTIAL RESULT(OR 0)IN EKE. 4F14073
EC6 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14074
SLW CHSAVE SAVE IT FOR STATE B, 4F14075
CAS TEN AND COMPARE WITH TEN. 4F14076
TXI FN5,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC. 4F14077
PXD ,0 CLEAR THE AC (MACHINE ERROR). 4F14078
STO H CHARACTER IS NUMERIC, SO HOLD IT. 4F14079
CLA EKE MULTIPLY THE PREVIOUS 4F14080
ALS 2 PARTIAL RESULT (OR ZERO) 4F14081
ADD EKE BY 10, 4F14082
ALS 1 AND ADD IN 4F14083
ACL H THE CURRENT DIGIT. 4F14084
TXI EC5,0 CONTINUE UNTIL NON-NUMERIC IS MET. 4F14085
FN5 CLA EKE COMBINE EXPLICIT EXPONENT 4F14086
ADD DOE WITH IMPLICIT EXPONENT, 4F14087
STO DOE AND SAVE IN DOE. 4F14088
FN4 CLA N IF N CONTAINS ZERO, TAKE 4F14089
TZE MS9500 FLO PT CONSTANT RETURN. 4F14090
STA K1 PUT INTEGER INTO FLO PT WORD, 4F14091
ARS 15 ADJUST, AND 4F14092
TZE FN1 IF MORE THAN 15 BITS IN LENGTH 4F14093
ORA K2 AFFIX CORRECT EXPONENT. 4F14094
FN1 FAD K1 THEN FLOATING ADD THE RESULT 4F14095
RQL 8 OF INTEGER CONVERSION, AND 4F14096
RND ROUND --TO OBTAIN 4F14097
ORA K3 NORMALIZED RESULT. 4F14098
LXA DOE,1 EXAMINE THE C(DOE), AND 4F14099
TXL MS9500,1,0 IF ZERO, TAKE FLO PT RETURN. 4F14100
TXL FN2,1,50 IF GREATER THAN 50, THEN 4F14101
TXI CER,0 ERROR. -GO TO DIAGNOSTIC 4F14102
FN2 LDQ DOE DETERMINE WHETHER INTEGER WAS 4F14103
TQP FN3 TO THE RIGHT OR TO THE LEFT OF DP, 4F14104
FDP TAB,1 IF TO THE RIGHT, DIVIDE BY A 4F14105
STQ N SUITABLE CONSTANT 4F14106
CLA N TO ADJUST RESULT 4F14107
ACL K4 AND TEST FOR OUT OF RANGE. 4F14108
PBT IF P=I, SKIP TO ARITH RETURN. 4F14109
TXI CER,0 ERROR. --GO TO DIAGNOSTIC 4F14110
MS9500 STO G STORE IN G, AND 4F14111
TSX FLCNIX,4 * GO MAKE FLOCON ENTRY. 4F14112
ORA FLOVAR CREATE INTERNAL FLO-PT VARIABLE, 4F14113
EXITR SLW E+2 SAVE VARIABLE IN E+2, 4F14114
LXD EXIT,4 RESTORE THE C(XR4), AND 4F14115
TRA 2,4 * RETURN TO MAIN ROUTINE. 4F14116
FN3 STO N IF INTEGER WAS SITUATED 4F14117
LDQ N TO THE LEFT OF THE DECIMAL POINT, 4F14118
FMP TAB,1 MULTIPLY BY A SUITABLE 4F14119
ACL K5 CONSTANT TO ADJUST AND TEST RANGE. 4F14120
PBT IF P=I, SKIP TO ERROR, 4F14121
TXI MS9500,0 RETURN TO ARITHMETIC ROUTINE, 4F14122
CER TSX DIAG,4 * CONVERSION ERROR, GO TO DIAGNOSTIC. 4F14123
HEXIT LXD EXIT,4 RESTORE THE C(XR4), AND 4F14124
TRA 1,4 * RETURN TO MAIN ROUTINE. 4F14125
REM 4F14126
K1 OCT 233000000000 CONSTANT USED BY ROYCNV. 4F14127
K2 OCT 252000000000 CONSTANT USED BY ROYCNV. 4F14128
K3 OCT 400000000 CONSTANT USED BY ROYCNV. 4F14129
K4 OCT 335000000000 CONSTANT USED BY ROYCNV. 4F14130
K5 OCT 43000000000 CONSTANT USED BY ROYCNV. 4F14131
L(E) BCD 100000E CONSTANT USED BY ROYCNV. 4F14132
REM 4F14133
OCT 375536246150 48-TABLE USED BY ROYCNV. 4F14134
OCT 372430204754 47-TABLE USED BY ROYCNV. 4F14135
OCT 366700324573 46-TABLE USED BY ROYCNV. 4F14136
OCT 363546566774 45-TABLE USED BY ROYCNV. 4F14137
OCT 360436770626 44-TABLE USED BY ROYCNV. 4F14138
OCT 354713132675 43-TABLE USED BY ROYCNV. 4F14139
OCT 351557257061 42-TABLE USED BY ROYCNV. 4F14140
OCT 346445677215 41-TABLE USED BY ROYCNV. 4F14141
OCT 342726145174 40-TABLE USED BY ROYCNV. 4F14142
OCT 337570120775 39-TABLE USED BY ROYCNV. 4F14143
OCT 334454732312 38-TABLE USED BY ROYCNV. 4F14144
OCT 330741367020 37-TABLE USED BY ROYCNV, 4F14145
OCT 325601137163 36-TABLE USED BY ROYCNV. 4F14146
OCT 322464114134 35-TABLE USED BY ROYCNV. 4F14147
OCT 316755023372 34-TABLE USED BY ROYCNV. 4F14148
OCT 313612334310 33-TABLE USED BY ROYCNV. 4F14149
OCT 310473426555 32-TABLE USED BY ROYCNV. 4F14150
OCT 304770675742 31-TABLE USED BY ROYCNV. 4F14151
OCT 301623713116 30-TABLE USED BY ROYCNV. 4F14152
OCT 276503074076 29-TABLE USED BY ROYCNV. 4F14153
OCT 273402374713 28-TABLE USED BY ROYCNV. 4F14154
OCT 267635456171 27-TABLE USED BY ROYCNV. 4F14155
OCT 264512676456 26-TABLE USED BY ROYCNV. 4F14156
OCT 261410545213 25-TABLE USED BY ROYCNV. 4F14157
OCT 255647410337 24-TABLE USED BY ROYCNV. 4F14158
OCT 252522640262 23-TABLE USED BY ROYCNV. 4F14159
OCT 247417031702 22-TABLE USED BY ROYCNV. 4F14160
OCT 243661534466 21-TABLE USED BY ROYCNV. 4F14161
OCT 240532743536 20-TABLE USED BY ROYCNV. 4F14162
OCT 235425434430 19-TABLE USED BY ROYCNV. 4F14163
OCT 231674055530 18-TABLE USED BY ROYCNV. 4F14164
OCT 226543212741 17-TABLE USED BY ROYCNV. 4F14165
OCT 223434157116 16-TABLE USED BY ROYCNV. 4F14166
OCT 217706576512 15-TABLE USED BY ROYCNV. 4F14167
OCT 214553630410 14-TABLE USED BY ROYCNV. 4F14168
OCT 211443023471 13-TABLE USED BY ROYCNV. 4F14169
OCT 205721522451 12-TABLE USED BY ROYCNV. 4F14170
OCT 202564416672 11-TABLE USED BY ROYCNV. 4F14171
OCT 177452013710 10-TABLE USED BY ROYCNV. 4F14172
OCT 173734654500 09-TABLE USED BY ROYCNV. 4F14173
OCT 170575360400 08-TABLE USED BY ROYCNV. 4F14174
OCT 165461132000 07-TABLE USED BY ROYCNV. 4F14175
OCT 161750220000 06-TABLE USED BY ROYCNV. 4F14176
OCT 156606500000 05-TABLE USED BY ROYCNV. 4F14177
OCT 153470400000 04-TABLE USED BY ROYCNV. 4F14178
OCT 147764000000 03-TABLE USED BY ROYCNV. 4F14179
OCT 144620000000 02-TABLE USED BY ROYCNV. 4F14180
OCT 141500000000 01-TABLE USED BY ROYCNV. 4F14181
TAB OCT 136400000000 00-TABLE USED BY ROYCNV. 4F14182
REM END OF PROGRAM ROYCNV. 4F14183
REM ****************************** *4F14184
REM 4F14185
SIG1ST PZE SIGMA1+2,,1 4F14186
ENDBDR BSS 0 4F141865
REM 4F14187
ENDB ORG 2701 4F14188
ARGREG BSS 50 4F14189
CBAR BSS 1 4F14190
ABAR BSS 1 4F14191
FSTYPE BSS 1 4F14192
FSBITS BSS 1 4F14193
FNBITS BSS 1 4F14194
FNCTR BSS 1 4F14195
ALPHA BSS 139 4F14196
LAMBDA BSS 1200 4F14197
REM END OF ARITHMETIC / STATE B. 4F14198
REM ****************************** *4F14199
REM 4F14200
REM ARITHMETIC / STATE C= 4F14201
REM 704 FORTRAN MASTER RECORD CARD / STATE C = F0170000. 4F14202
ORG 0 4F142021
PZE ORGC,,DMWR03 4F142022
PZE ENDC-1 4F142023
REM 4F14203
REM STATE C. PERFORMS OPTIMIZATION ON LAMBDA TABLE, 4F14204
REM 4F14205
ORGC ORG 1824 4F14206
R00000 LDQ L(0) CLEAR MQ 4F14207
LXD NBAR,A LDXA WITH -N 4F14208
SXD R00700,A 4F14209
SXD R05200,A 4F14210
SXD AS0800,A 4F14211
SXD AS2900,A 4F14212
LXA L(0),7 CLEAR XA,XB,XC, 4F14213
R00500 STQ BETA,B 4F14214
TXI R00700,B,-1 4F14215
R00700 TXH R00500,B,0 4F14216
CLA 3LBAR 4F14217
STD R01700 4F14218
STD R06200 4F14219
R01000 CLA LAMBDA,A ADD INTO GAMMA COUNTERS 4F14220
PAX 0,B 4F14221
CLA BETA,B 4F14222
ADD BETAD1 (-3)*2**18+(-3) 4F14223
STD BETA,B 4F14224
STA BETA,B 4F14225
TXI R01700,A,-3 4F14226
R01700 TXH R01000,A,0 -3L IN XA AT END 4F14227
R01800 TXH R04200,A,-6 EXIT FROM SINGLE ELEMENT REDUCTION 4F14228
CLA LAMBDA-3,A 4F14229
PAX 0,B 4F14230
CLA BETA,B 4F14231
SUB BETAD1 4F14232
TZE R02600 4F14233
TXI R01800,A,3 4F14234
R02600 LDQ LAMBDA-2,A SINGLE ELEMENT 4F14235
LGL 6 EXAMINE OPERATION 4F14236
SUB 11Z 4F14237
TNZ R03200 4F14238
TXI R01800,A,3 4F14239
R03200 CAL MASK1 SINGLE ELEMENT, NON-UNARY OP 4F14240
ANS LAMBDA-3,A EXTRACT TAGS AND STORE BACK 4F14241
CLA LAMBDA-6,A 4F14242
ORA LAMBDA-3,A 4F14243
SLW LAMBDA-6,A 4F14244
CAL LAMBDA-2,A EXTRACT FS BITS AND STORE BACK 4F14245
ANA MASK5 4F14246
ORS LAMBDA-5,A 4F14247
CAL LAMBDA-1,A STORE BACK SYMBOL 4F14248
SLW LAMBDA-4,A 4F14249
STZ BETA,3 REDUCE GAMMA COUNT TO 0 4F14250
STZ LAMBDA-3,A CLEAR TAG WORD 4F14251
TXI R01800,A,3 RESUME SCAN-BACK 4F14252
R04200 STZ G 4F14253
LXA L(0),7 CLEAR XA,XB,XC 4F14254
R04500 CLA BETA,B SET ORIGINS OF SCRIPL TABLE 4F14255
TZE R05100 4F14256
LDQ G 4F14257
SLQ BETA,B 4F14258
ADD G 4F14259
STD G 4F14260
R05100 TXI R05200,B,-1 4F14261
R05200 TXH R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END 4F14262
R05300 CAL LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE 4F14263
TZE R06100 4F14264
SLW LAMBDA,C 4F14265
CLA LAMBDA+1,A 4F14266
STO LAMBDA+1,C 4F14267
CLA LAMBDA+2,A 4F14268
STO LAMBDA+2,C 4F14269
TXI R06100,C,-3 4F14270
R06100 TXI R06200,A,-3 4F14271
R06200 TXH R05300,A,0 4F14272
SXD R07800,C -3P IN XC AT END 4F14273
SXD CS0760,C 4F14274
LXA L(0),A 4F14275
R06400 CLA LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE 4F14276
PAX 0,B IN SCRIPL TABLE 4F14277
CLA BETA,B 4F14278
PDX 0,C 4F14279
CLA LAMBDA,A 4F14260
STO SCRIPL,C 4F14281
CLA LAMBDA+1,A 4F14282
STO SCRIPL+1,C 4F14283
CLA LAMBDA+2,A 4F14284
STO SCRIPL+2,C 4F14265
TXI R07500,C,-3 4F14286
R07500 PXD 0,C 4F14287
STD BETA,B 4F14288
TXI R07800,A,-3 4F14289
R07800 TXH R06400,A,0 -3P IN XA AT END 4F14290
CS0000 LDQ L(0) ELIMINATE COMMON SEGMENTS 4F14291
CS0010 CAL SCRIPL-3,A 4F14292
TZE CS0080 ERASED SEGMENT - CONTINUE BACK-SCAN 4F14293
CS0030 PAX 0,B 4F14294
TXL CS0660,B,0 EXIT FROM CS ROUTINE 4F14295
STA CS0030 4F14296
CLA BETA,B 4F14297
CS0060 PAX 0,C 4F14298
TXL CS0090,C,-6 AT LEAST TWO ELEMENTS 4F14299
CS0080 TXI CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT 4F14300
CS0090 SXD CS0470,A SAVE XA 4F14301
SXD LENGTH,C SAVE XC, CONTAINING LENGTH OF SEGMENT 4F14302
CS0100 TXL CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT 4F14303
TXI CS0120,A,3 4F14304
CS0120 TXI CS0100,C,3 4F14305
CS0130 CAL SCRIPL-3,A 4F14306
TNZ CS0151 4F14307
TXI CS0130,A,3 ERASED SEGMENT 4F14308
CS0151 PAX 0,B 4F14309
TXL CS0610,B,0 GO ON TO NEXT SEGMENT 4F14310
STA CS0060 4F14311
CLA BETA,B 4F14312
PAX 0,C 4F14313
PXD 0,C 4F14314
SUB LENGTH 4F14315
TNZ CS0100 NOT SAME LENGTH SEGMENT-CONTINUE SEARCH 4F14316
LXD CS0470,B SAME LENGTH SEGMENT 4F14317
SXD CS0600,A 4F14318
CS0250 TXL CS0430,C,0 MATCHING SEGMENTS 4F14319
CLA SCRIPL-1,B 4F14320
SUB SCRIPL-1,A 4F14321
TNZ CS0100 4F14322
CAL SCRIPL-3,B SYMBOLS MATCH 4F14323
ANA MASK1 4F14324
SLW G 4F14325
CAL SCRIPL-3,A 4F14326
ANA MASK1 4F14327
COM 4F14328
ACL G 4F14329
COM 4F14330
TNZ CS0100 4F14331
CLA SCRIPL-2,B TAGS MATCH 4F14332
ARS 6 4F14333
ALS 6 4F14334
SUB SCRIPL-2,A 4F14335
TNZ CS0100 4F14336
TXI CS0360,A,3 OPS MATCH 4F14337
CS0360 TXI CS0370,B,3 4F14338
CS0370 TXI CS0250,C,3 4F14339
CS0430 CAL SCRIPL,A MATCHING SEGMENTS 4F14340
ANA MASK2 SEARCH FOR REFERENCES 4F14341
CS0450 CAS SCRIPL-1,A 4F14342
TXI CS0450,A,3 4F14343
CS0470 TXI CS0490,0,0 4F14344
TXI CS0450,A,3 4F14345
CS0490 CLA CS0030 CHANGE REFERENCE 4F14346
STA SCRIPL-1,A 4F14347
LXD LENGTH,C 4F14348
LXD CS0600,A 4F14349
CS0530 TXL CS0570,C,0 ERASE DUPLICATE SEGMENT 4F14350
STQ SCRIPL-3,A 4F14351
TXI CS0560,A,3 4F14352
CS0560 TXI CS0530,C,3 4F14353
CS0570 LXA CS0060,C 4F14354
STQ BETA,C 4F14355
CAL 11Z STORE CS BIT 4F14356
ORS SCRIPL+1,B 4F14357
CS0600 TXI CS0130,0,0 4F14358
CS0610 LXD CS0470,A 4F14359
LXD LENGTH,C 4F14360
CS0630 TXL CS0010,C,0 4F14361
TXI CS0650,A,3 4F14362
CS0650 TXI CS0630,C,3 4F14363
CS0660 LXA L(0),5 STRING BEADS... COMPRESS SCRIPL TABLE 4F14364
CS0670 CAL SCRIPL,A 4F14365
TZE CS0750 4F14366
SLW SCRIPL,C 4F14367
CLA SCRIPL+1,A 4F14368
STO SCRIPL+1,C 4F14369
CLA SCRIPL+2,A 4F14370
STO SCRIPL+2,C 4F14371
TXI CS0750,C,-3 4F14372
CS0750 TXI CS0760,A,-3 4F14373
CS0760 TXH CS0670,A,0 4F14374
SXD PM0080,C -3Q IN XC AT END 4F14375
SXD AS1800,C 4F14376
SXD AS3600,C 4F14377
PM0000 SLF TURN OFF ALL SENSE LITES 4F14378
LXA L(0),A PERMUTE * AND / 4F14379
PM0010 CLA SCRIPL,A 4F14380
PAX 0,B 4F14381
CLA BETA,B 4F14382
PAX 0,C LDXC WITH SEGMENT LENGTH 4F14383
SXD PM0070,C 4F14384
TXL PM0100,C,-9 4F14385
PM0070 TXI PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO * 4F14386
PM0080 TXL AS0000,A,0 EXIT FROM PERMUTATION ROUTINE 4F14387
TRA PM0010 4F14388
PM0100 LDQ SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3 4F14389
PXD 0,0 4F14390
LGL 6 4F14391
SUB STAR 4F14392
TNZ PM0070 4F14393
TQP PM0170 4F14394
TRA PM0070 4F14395
PM0170 SXD PM0260,C 4F14396
SXD PM0400,C 4F14397
SXD PM0680,C 4F14398
LXA L(0),C LDXC WITH 0 4F14399
TXI PM0240,A,-3 4F14400
PM0240 SLN 3 TURN * LITE ON 4F14401
PM0250 TXI PM0260,C,-3 4F14402
PM0260 TXL PM0790,C,0 EXIT 4F14403
SXD PM0340,C 4F14404
LXD PM0290,B 4F14405
PM0290 TXI PM0300,3,0 XA TO XA AND XB 4F14406
PM0300 PXD 0,0 4F14407
LDQ SCRIPL+1,A 4F14408
LGL 6 4F14409
CAS SLASH 4F14410
FEXUB HTR 0,0,7 4F14411
PM0340 TXL PM0640,0,0 / SIGN 4F14412
SLT 3 * SIGN... IS * LITE ON 4F14413
TXI PM0240,A,-3 NO 4F14414
TXI PM0390,B,-3 YES - SEARCH FOR / SIGN 4F14415
PM0390 TXI PM0400,C,-3 4F14416
PM0400 TXL PM0770,C,0 EXIT 4F14417
PXD 0,0 4F14418
LDQ SCRIPL+1,B 4F14419
LGL 6 4F14420
SUB SLASH 4F14421
TZE PM0480 4F14422
TXI PM0390,B,-3 4F14423
PM0480 CLA SCRIPL,A PERMUTE TAG WORDS 4F14424
LDQ SCRIPL,B 4F14425
STQ SCRIPL,A 4F14426
STO SCRIPL,B 4F14427
CLA SCRIPL+1,A PERMUTE OP WORDS 4F14428
LDQ SCRIPL+1,B 4F14429
STQ SCRIPL+1,A 4F14430
STO SCRIPL+1,B 4F14431
CLA SCRIPL+2,A PERMUTE SYMBOL WORDS 4F14432
LDQ SCRIPL+2,B 4F14433
STQ SCRIPL+2,A 4F14434
STO SCRIPL+2,B 4F14435
LXD PM0340,C 4F14436
TXI PM0250,A,-3 RESUME SEGMENT SCAN 4F14437
PM0640 SLT 3 / SIGN... IS * LITE ON 4F14438
PM0650 TXI PM0670,B,-3 NO 4F14439
TXI PM0250,A,-3 4F14440
PM0670 TXI PM0680,C,-3 4F14441
PM0680 TXL PM0770,C,0 4F14442
PXD 0,0 4F14443
LDQ SCRIPL+1,B 4F14444
LGL 6 4F14445
SUB SLASH 4F14446
TZE PM0650 4F14447
SLN 3 TURN * LITE ON 4F14448
TRA PM0480 4F14449
PM0770 LXD PM0780,A 4F14450
PM0780 TXI PM0790,3,0 XB TO XA,XB 4F14451
PM0790 PXD 0,0 4F14452
LDQ SCRIPL-2,A 4F14453
LGL 6 4F14454
SUB SLASH 4F14455
TZE PM0080 ... / - EXIT FROM SEGMENT SCAN 4F14456
PXD 0,0 4F14457
LDQ SCRIPL-5,A 4F14458
LGL 6 4F14459
SUB SLASH 4F14460
TZE PM0080 ... / * - EXIT FROM SEGMENT SCAN 4F14461
CLA SCRIPL-3,A ... ** 4F14462
STO E 4F14463
CLA SCRIPL-2,A 4F14464
STO E+1 4F14465
CLA SCRIPL-1,A 4F14466
STO E+2 4F14467
TXI PM0980,A,3 4F14468
PM0980 TXI PM0990,C,3 4F14469
PM0990 TXL PM1070,C,0 FINIS 4F14470
CLA SCRIPL-3,A 4F14471
STO SCRIPL,A 4F14472
CLA SCRIPL-2,A 4F14473
STO SCRIPL+1,A 4F14474
CLA SCRIPL-1,A 4F14475
STO SCRIPL+2,A 4F14476
TXI PM0980,A,3 4F14477
PM1070 CLA E 4F14478
STO SCRIPL,A 4F14479
CLA E+1 4F14480
STO SCRIPL+1,A 4F14481
CLA E+2 4F14482
STO SCRIPL+2,A 4F14483
CAL SCRIPL+4,A PRESERVE CS BIT 4F14484
ANA 11Z 4F14485
ORS SCRIPL+1,A 4F14486
TRA PM0070 4F14487
AS0000 LXA L(0),7 RENUMBER SEGMENT OF SCRIPL 4F14488
AS0100 CLA BETA,B 4F14489
TZE AS0700 4F14490
PXD 0,C 4F14491
ARS 18 4F14492
STA BETA,B 4F14493
TXI AS0700,C,-1 4F14494
AS0700 TXI AS0800,B,-1 4F14495
AS0800 TXH AS0100,B,0 4F14496
AS0900 CLA SCRIPL,A 4F14497
PAX 0,B 4F14498
CLA BETA,B 4F14499
STA SCRIPL,A 4F14500
LDQ SCRIPL+2,A 4F14501
LGL 1 4F14502
LBT 4F14503
TQP AS2000 4F14504
TXI AS1800,A,-3 4F14505
AS1800 TXH AS0900,A,0 4F14506
TRA AS2500 4F14507
AS2000 LGL 35 4F14508
PAX 0,B 4F14509
CLA BETA,B 4F14510
STA SCRIPL+2,A 4F14511
TXI AS1800,A,-3 4F14512
AS2500 LXA L(0),3 LDXA,XB WITH 0 4F14513
LDQ L(0) CLEAR MQ 4F14514
AS2700 STO BETA,B RECLEAR BETA TABLE 4F14515
TXI AS2900,B,-1 4F14516
AS2900 TXH AS2700,B,0 4F14517
AS3000 CLA SCRIPL,A ADD INTO GAMMA COUNTERS 4F14518
PAX 0,B 4F14519
CLA BETA,B 4F14520
ADD BETAD2 3*2**18+(-3) 4F14521
STD BETA,B 4F14522
STA BETA,B 4F14523
TXI AS3600,A,-3 4F14524
AS3600 TXH AS3000,A,0 -30 IN XA AT END 4F14525
SXD 3QBAR,A -30 TO 3QBAR = 3LBAR 4F14526
CCS000 CAL SCRIPL-3,A ELIMINATE COMMON SUBEXPRESSIONS 4F14527
PAX 0,B LOAD XB WITH S(1) 4F14528
TXL CCS240,B,0 EXIT AT S(O) 4F14529
CAL BETA,B OBTAIN LENGTH OF S(I) 4F14530
STD CCS060 AND BACK UP TO 4F14531
CCS060 TXI CCS070,A,0 BEGINNING OF CURRENT SEGMENT 4F14532
CCS070 CAL SCRIPL+1,A OBTAIN OP1 (S(I)) 4F14533
ANA 11Z EXTRACT CS-BIT 4F14534
TZE CCS000 CONTINUE TO S(I-1) 4F14535
PXD 0,B 4F14536
ARS 18 4F14537
LXA L(0),C TO S(I) 4F14538
LXD CCS140,B AND KEEP COUNT OF SAME 4F14539
CCS140 TXI CCS150,3,0 XA TO XA,XB 4F14540
CCS150 TXL CCS200,B,0 SEARCH-UP FINISHED, EXAMINE COUNT 4F14541
CAS SCRIPL-1,B 4F14542
TXI CCS150,B,3 CONTINUE SEARCH 4F14543
TXI CCS190,C,1 RAISE REF COUNTER AND 4F14544
CCS190 TXI CCS150,B,3 CONTINUE SEARCH 4F14545
CCS200 TXH CCS000,C,1 MULTIPLE REFERENCE 4F14546
CAL MASK4 SINGLE REFERENCE - SO SET 4F14547
ANS SCRIPL+1,A OP1(S(I))3O TO O, AND 4F14548
TRA CCS000 CONTINUE FOR S(I-1) 4F14549
CCS240 LXD AS3600,A -3Q TO XA 4F14550
PL0000 TXL LK0000,A,0 GO TO LINKAGE 4F14551
CLA SCRIPL-3,A 4F14552
PAX 0,B 4F14553
CAL BETA,B 4F14554
PAX 0,C 4F14555
STD PL0060 4F14556
PL0060 TXI PL0070,A,0 SET XA TO BEGINNING OF S(I) 4F14557
PL0070 PXD 0,0 4F14558
LDQ SCRIPL+1,A OBTAIN 4F14559
LGL 6 AND 4F14560
CAS SPECOP EXAMINE OP1 (S(I)) 4F14561
TRA PL0680 4F14562
TRA PL0460 4F14563
PL0130 PXD 0,0 0P1 (S(I)) IS +, - OR * 4F14564
LDQ SCRIPL+2,A OBTAIN 4F14565
LGL 1 AND 4F14566
LBT EXAMINE SYM1 (S(I)) 4F14567
TQP PL0300 4F14568
LGL 5 EX (IN)TERNAL VARIABLE 4F14569
PL0135 CAS L(H) IS SYM1 (S(I)) FIX OR FLO PT 4F14570
CAS L(O) 4F14571
TRA PL0240 FLO PT... SET 0P1 (S(I)) 32 = 1 4F14572
TRA PL0240 FLO PT... DITTO 4F14573
TRA PL0000 FIX PT... OP1 (S(I)) 32 = 0 4F14574
PL0240 CAL L(8) SET OP1 (S(I)) 32 = 1 4F14575
PL0250 ORS SCRIPL+1,A 4F14576
PL0260 TXI PL0000,0,0 CONTINUE SCAN 4F14577
PL0300 LXD PL0310,B SYM1 (S(I)) = SOME S(J) 4F14578
PL0310 TXI PL0320,3,0 XA TO XA,XB 4F14579
PL0320 SXD PL0330,C 4F14580
PL0330 TXI PL0340,B,0 4F14581
PL0340 CAL SCRIPL,B 4F14582
PAX 0,C 4F14583
ANA MASK2 4F14584
SUB SCRIPL+2,A 4F14585
TZE PL0420 4F14586
CLA BETA,C 4F14587
PAX 0,C 4F14588
TRA PL0320 4F14589
PL0420 CAL SCRIPL+1,B SYM1(S(I)) = S(J) 4F14590
ANA L(8) EXTRACT OP1 (S(J)) 32 AND GO 4F14591
TRA PL0250 SET OP1 (S(I)) 32 = OP1 (S(J)) 32 4F14592
PL0460 LGL 7 OP1 (S(I)) IS SPOP 4F14593
TQP PL0465 4F14594
PL0461 LDQ SCRIPL+2,A FS NAME - 4F14595
PXD 0,0 EXAMINE SUM1 (S(I)) S,1-5 4F14596
LGL 6 4F14597
SUB L(X) 4F14598
TNZ PL0240 FLO PT... GO SET OP1 (S(I)) 32 = 1 4F14599
TRA PL0000 FIX PT ... OP1 (S(I)) 32 = 0 4F14600
PL0465 LBT 4F14601
TRA PL0470 4F14602
LDQ SCRIPL+2,A 4F14603
PXD ,0 4F14604
LGL 6 4F14605
TRA PL0135 4F14606
PL0470 CLA SCRIPL+2,A NOT AN FS NAME 4F14607
LXA L(0),B 4F14608
PL0480 CAS OPSUB,B 4F14609
TXI PL0520,B,-1 4F14610
TRA PL0650 4F14611
TXI PL0520,B,-1 4F14612
PL0520 TXH PL0480,B,-20 4F14613
STO G 4F14614
SXD PL0260,A 4F14615
TSX TET00,A 4F14616
HTR 9 4F14617
LXD PL0260,A 4F14618
TRA PL0461 4F14619
PL0650 CAL L(4) SET OP1 (S(I)) 33 =I 4F14620
ORS SCRIPL+1,A 4F14621
TRA PL0461 4F14622
PL0680 TQP PL0130 4F14623
PXD 0,0 OP1 (S(I) IS ** 4F14624
LDQ SCRIPL+2,A OBTAIN AND 4F14625
LGL 1 EXAMINE 4F14626
LBT SYM1 (S(I)) 4F14627
TQP PL1000 4F14628
LGL 5 EX (IN)TERNAL VARIABLE 4F14629
CAS L(H) IS OT FIX OR FLO PT 4F14630
CAS L(O) 4F14631
TRA PL0800 4F14632
TRA PL0800 4F14633
TRA PL0830 FIX PT 4F14634
PL0800 CAL L(8) FLO PT... SET OP1 (S(I)) 32 = 1 4F14635
PL0820 ORS SCRIPL+1,A 4F14636
PL0830 PXD 0,0 4F14637
LDQ SCRIPL+5,A OBTAIN 4F14638
LGL 1 AND 4F14639
LBT EXAMINE 4F14640
TQP PL1200 SYM2 (S(I)) 4F14641
LGL 5 4F14642
CAS L(H) 4F14643
CAS L(O) 4F14644
TRA PL0940 SYM2 (S(I)) IS FLO PT, SO GO 4F14645
TRA PL0940 SET OP2 (S(I)) 32 = 1 4F14646
PL0850 PXD 0,0 SYM2(S(I)) IS FIX PT 4F14647
LGL 6 4F14648
SUB OPEN 4F14649
TNZ PL0000 SYM2 (S(I)) IS EXTERNAL 4F14650
LGL 25 SYM2 (S(I)) IS INTERNAL (AND FIX PT) 4F14651
ADD PL0880 4F14652
STA PL0850 4F14653
RDR FXCODR 4F14654
LDA PL0850 4F14655
CPY G 4F14656
CPY G+1 4F14657
CLA G 4F14658
CAS G+1 4F14659
TRA *+2 GO TO THE DIAGNOSTIC 4F14660
TRA PL1570 4F14661
TSX DIAG,4 * GO TO THE DIAGNOSTIC 4F14662
PL1570 TZE PL0000 EXP IS 0, SO OP1 (S(I)) 33 = 0 4F14663
CAS FEXUB 4F14664
PL0880 TXH FIXCON,0,0 EXP NOT LESS THAN 7, SO 4F14665
TRA PL0000 OP1 (S(I)) 33 = 0 4F14666
STO SCRIPL+5,A EXP LESS THAN 7, SO STORE EXP 4F14667
CAL L(4) AS SYM2 (S(I)) AND SET 4F14668
ORS SCRIPL+1,A OP1 (S(I)) 33 = 1 4F14669
TRA PL0000 4F14670
PL0940 CAL L(8) SYM2 (S(I)) IS FLO PT 4F14671
ORS SCRIPL+4,A SET OP2 (S(I)) 32 = 1 4F14672
TRA PL0000 4F14673
PL1000 LXD PL1010,B SYM1 (S(I)) IS SOME S(J) 4F14674
PL1010 TXI PL1020,3,0 XA TO XA,XB 4F14675
PL1020 SXD PL1030,C 4F14676
PL1030 TXI PL1040,B,0 4F14677
PL1040 CAL SCRIPL,B 4F14678
PAX 0,C 4F14679
ANA MASK2 4F14680
SUB SCRIPL+2,A 4F14681
TZE PL1130 4F14682
CLA BETA,C 4F14683
PAX 0,C 4F14684
TRA PL1020 4F14685
PL1130 CAL SCRIPL+1,B 4F14686
ANA L(8) 4F14687
TRA PL0820 4F14688
PL1200 LXD PL1210,B SYM2 (S(I)) = SOME S(K) 4F14689
PL1210 TXI PL1220,3,0 XA TO XA,XB 4F14690
PL1220 LXD PL1330,C LKXC WITH -6 4F14691
PL1230 SXD PL1240,C 4F14692
PL1240 TXI PL1250,B,0 4F14693
PL1250 CAL SCRIPL,B 4F14694
PAX 0,C 4F14695
ANA MASK2 4F14696
SUB SCRIPL+5,A 4F14697
TZE PL1340 SYM2(S(I)) = S(K) 4F14698
CLA BETA,C 4F14699
PAX 0,C 4F14700
PL1330 TXI PL1230,0,-6 4F14701
PL1340 CAL SCRIPL+1,B SET OP2(S(I)) 32 = 0P1 (S(K)) 32 4F14702
ANA L(8) 4F14703
ORS SCRIPL+4,A 4F14704
TRA PL0000 RESUME SCAN 4F14705
LK0000 LXD AS3600,A -3Q TO XA 4F14706
LK0030 CAL SCRIPL-3,A 4F14707
PAX 0,B S(I) TO XB 4F14708
TXL LK1610,8,0 EXIT UPON ENCOUNTERING S(0) 4F14709
LDQ SCRIPL-2,A PLACE LAST OP OP S(I) IN MQ 4F14710
CLA BETA,B 4F14711
STD LK0110 4F14712
LK0110 TXI LK0120,A,0 MOVE XA TO BEGINNING OF S(I) 4F14713
LK0120 LXD LK0130,C 4F14714
LK0130 TXI LK0140,5,0 XA TO XA,XC 4F14715
LK0140 SXD AS3600,A 4F14716
CLA BETA-1,B 4F14717
PDX 0,B LENGTH OF S(I-1) TO XB 4F14718
SXD LK0180,B 4F14719
LK0180 TXI LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1) 4F14720
LK0190 TQP LK1200 S(I) TYPE AC 4F14721
RQL 1 4F14722
TQP LK1200 S(I) TYPE AC 4F14723
CAL 12Z S(I) RESULTS IN MQ (TYPE MQ) 4F14724
ORS SCRIPL+1,A SET OP1 (S(I)) 31 = 1 4F14725
PXD 0,0 4F14726
LDQ SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ 4F14727
LGL 6 4F14728
CAS SPECOP 4F14729
TRA LK0320 4F14730
TRA LK0950 4F14731
TRA LK0030 S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0 4F14732
LK0320 TQP LK0570 4F14733
LGL 27 S(I)TYPE MQ, OP1(S(I-1) = ** 4F14734
CAL SCRIPL,A 4F14735
ANA MASK2 EXTRACT S(I) IN ACC 4F14736
TQP LK0480 OP1 (S(I-1)) 33 = 0 4F14737
SUB SCRIPL+2,C OP1 (S(I-1)) 33 = 1, OPEN ** SUBROUTINE. 4F14738
TNZ LK0030 SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0 4F14739
CAL L(3) S(I) = SYM1 (S(I-1)), SO 4F14740
LK0430 ORS SCRIPL+1,C 4F14741
LK0440 CAL BIT29 4F14742
ORS SCRIPL+1,A 4F14743
TRA LK0030 OP1 (S(I-1)) = 0, CLOSED ** SUBROUTINES 4F14744
LK0480 SUB SCRIPL+5,C 4F14745
TNZ LK0030 SET OPKS(I))29=OPKS(I-1))35=0 4F14746
CAL L(1) S(I) = SYM2 (S(I-1)), SO 4F14747
ORS SCRIPL+4,C SET OP2 (S(I-1)) 35 = 1 4F14748
TRA LK0440 4F14749
LK0570 PXD 0,0 S(I) TYPE MO, OP1 (S(I-1)) = * 4F14750
LDQ SCRIPL+4,C PLACE PO2 (S(I-1)) IN MQ 4F14751
LGL 6 IS OP2 (S(I-1)) = * 4F14752
SUB STAR 4F14753
TNZ LK0030 NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =04F14754
CAL L(2) YES 4F14755
ORS SCRIPL+1,C SET OP1(S(I-1))34=1 4F14756
LK0630 CAL SCRIPL,A 4F14757
ANA MASK2 SEARCH FOR S(I) IN S(I-1) 4F14758
LK0650 TXL LK0000,B,0 NOT FOUND AT ALL 4F14759
CAS SCRIPL-1,A 4F14760
TXI LK0700,A,3 4F14761
TRA LK0710 4F14762
TXI LK0700,A,3 NOT FOUND - CONTINUE SEARCH 4F14763
LK0700 TXI LK0650,B,-3 4F14764
LK0710 LDQ SCRIPL-2,A S(I) IS SYMJ (S(I-1)) 4F14765
RQL 1 IS OPJ (S(I-1)) = * 4F14766
TQP LK0750 4F14767
TXI LK0700,A,3 NO... CONTINUE SEARCH 4F14768
LK0750 CLA SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJ(S(I-1)) 4F14769
LDQ SCRIPL-3,A EXCHANGE 4F14770
STO SCRIPL-3,A TAG 4F14771
STQ SCRIPL,C WORDS 4F14772
CAL SCRIPL+1,C PLACE OP1 (S(I-1)) IN ACC 4F14773
LDQ SCRIPL-2,A PLACE OPJ (S(I-1)) IN MQ 4F14774
SLW SCRIPL-2,A EXCHANGE 4F14775
STQ SCRIPL+1,C OP 4F14776
ANA MASK2 WORDS AND 4F14777
ORS SCRIPL+1,C SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33 4F14778
CLA SCRIPL+2,C THEN 4F14779
LDQ SCRIPL-1,A EXCHANGE 4F14780
STO SCRIPL-1,A SYMBOL 4F14781
STQ SCRIPL+2,C WORDS 4F14762
LXD AS3600,A RESTORE XA 4F14783
LK0900 CAL L(1) AND 4F14784
TRA LK0430 4F14785
LK0950 RQL 27 S(I) TYPE MQ, OP1 (S(I-1)) = SPOP 4F14786
CAL SCRIPL,A 4F14787
ANA MASK2 EXTRACT S(I) IN ACC 4F14788
TQP LK1050 OP1 (S(I-1)) 33 = 0 (CLOSED 5UBROUTINE) 4F14789
TXH LK0030,B,6 OPEN MULTIV... SET OP1 (S(I)) 29 = 0 4F14790
SUB SCRIPL+5,C OPEN UNIV... IS S(I) = SUM2 (S(I-1)) 4F14791
TNZ LK0030 N0... SET 0P1 (S(I))29 = OP2 (S(I-1))35 =0 4F14792
CAL L(3) AND 4F14793
ORS SCRIPL+4,C SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1 4F14794
TRA LK0440 4F14795
LK1050 RQL 15 4F14796
TQP LK1100 TEST OP1(S(I-1))12 4F14797
TRA LK0030 FN-NAME 4F14798
LK1100 TXL LK0030,B,6 CLOSED UNIV. SBRTN 4F14799
SUB SCRIPL+8,C CLOSED MULTIV. SBRTN 4F14800
TNZ LK0030 S(I) NOT = SYM3 (S (I-1)) 4F14801
CAL L(1) S(I) = SYM3 (S(I-1)), SO 4F14802
ORS SCRIPL+7,C SET OP3 (S(1-1)135 = 1 4F14803
TRA LK0440 4F14804
LK1200 PXD 0,0 S(I) TYPE AC 4F14805
LDQ SCRIPL+1,C PLACE OP1 (S(I-1)) IN MO 4F14806
LGL 6 4F14807
CAS SPECOP 4F14808
TRA LK1340 4F14809
TRA LK1470 4F14810
CAL SCRIPL,A S(I) TYPE AC OP1 (S(I-1)) = + OR - 4F14811
ANA MASK2 SEARCH FOR S(I) IN S(I-1) 4F14812
LK1280 TXL LK0000,B,0 NOT FOUND AT ALL 4F14813
CAS SCRIPL-1,A 4F14814
TXI LK1330,A,3 4F14815
TRA LK0750 S(I) = SOME SYMJ (S(I-1))... GO PERMUTE 4F14816
TXI LK1330,A,3 NOT FOUND... CONTINUE SEARCH 4F14817
LK1330 TXI LK1280,B,-3 4F14818
LK1340 TQP LK1410 4F14819
CAL SCRIPL,A S(I) TYPE AC OP1 (S(I-1)) = ** 4F14820
ANA MASK2 4F14821
SUB SCRIPL+2,C IS S(I) = SYM1 (S(I-1)) 4F14822
TNZ LK0030 NO 4F14823
TRA LK0900 YES 4F14824
LK1410 PXD 0,0 S(I) TYPE AC OP1 (S(I-1)) = * 4F14825
LDQ SCRIPL+4,C 4F14826
LGL 6 IS OP2 (S(I-1)) = 1 4F14827
SUB SLASH 4F14828
TZE LK0630 YES 4F14829
CAL L(2) NO 4F14830
ORS SCRIPL+1,C SET OP1 (S(I-1)) 34 = 1 4F14831
TRA LK0000 4F14832
LK1470 RQL 27 S(I) TYPE AC OP1 (S(I-1)) = SPOP 4F14833
CAL SCRIPL,A 4F14834
ANA MASK2 EXTRACT S(I) IN ACC 4F14835
TQP LK1530 4F14836
TXH LK0030,B,6 OPEN MULTIV. 4F14837
LK1520 TRA LK0480 4F14838
LK1530 RQL 15 4F14839
TQP LK0480 4F14840
TRA LK0030 FN-NAME 4F14841
LK1610 LXD BETA,B IS S(0) A SINGLE ELEMENT 4F14842
PXD 0,0 4F14843
LDQ SCRIPL-2,A 4F14844
TXH LK1780,B,3 NO 4F14645
LGL 6 YES 4F14846
SUB 11Z IS OP (S(0)) = + OR - 4F14847
TZE LKK000 OP (S(0)) = - 4F14648
CAL SCRIPL+2 OP (S(0)) = + 4F14849
ANA MASK1 DOES SYM (S(0)) = S(1) 4F14850
TNZ LKK000 NO 4F14851
CAL SCRIPL+4 YES - PLACE OP1 (S(I)) IN ACC 4F14852
ANA 12Z 4F14853
TZE LKK000 OP1 (S(1)) 31 = 0 4F14854
ORS SCRIPL+1 SET OP (S(0)) 31 = 1 4F14855
ALS 2 4F14856
ORS SCRIPL+4 SET OP1 (S(1)) 29 = 1 4F14857
ARS 6 4F14658
TRA LK1820 4F14859
LK1780 TQP LKK000 S(0) TYPE AC 4F14860
RQL 1 4F14861
TQP LKK000 S(0) TYPE AC 4F14862
CAL 12Z S(0) TYPE MQ, SO 4F14863
LK1820 ORS SCRIPL+1 4F14864
LKK000 LXD 3QBAR,5 -3Q TO XA,XC 4F14865
CAL SCRIPL-3,C 4F14866
PAX 0,8 4F14867
CLA BETA,B 4F14868
STD LKK050 4F14869
LKK050 TXI LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT 4F14870
LKK060 PXD 0,0 4F14871
LDQ SCRIPL+1,C PLACE OP1 OF LAST SEGMENT IN MQ 4F14872
LGL 6 4F14873
SUB STAR 4F14874
TNZ PC0000 4F14875
TQP LKK130 4F14876
TRA PC0000 4F14877
LKK130 LDQ SCRIPL+4,C OP1 OF LAST SEGMENT IS * 4F14878
LGL 2 4F14879
LBT 4F14880
ORS SCRIPL+1,C OP2 IS *, SO SET OP1 (S(L)) 34 = 1 4F14881
PC0000 LXD ARGCTR,C IS THIS AN FS 4F14882
TXH PC0030,C,0 4F14883
TXI PC0040,C,1 NO 4F14884
PC0030 LXA L(0),C YES 4F14885
PC0040 CAL SCRIPL-3,A 4F14886
PAX 0,B 4F14887
TXL PC0190,B,0 EXIT AT S(0) 4F14888
CLA BETA,B 4F14889
STD PC0100 4F14890
PC0100 TXI PC0110,A,0 4F14891
PC0110 LDQ SCRIPL+1,A PLACE OP1 (S(1)) IN MQ 4F14892
LGL 30 4F14893
LBT 4F14894
PC0140 TXI PC0160,0,300 4F14895
TQP PC0040 OP1 (S(1)) 29= 1 AND OP1 (S(1)) 30 = 0 4F14896
PC0160 PXD 0,C OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1 4F14897
STD BETA,B STORE ERAS. REL, ADD. COUNT IN BETA, 4F14898
TXI PC0040,C,1 AND UPDATE FOR NEXT SEGMENT 4F14899
PC0190 LXD PC0140,B 4F14900
PC0200 CLA BETA+300,B 4F14901
STO CPBETA+300,B 4F14902
TIX PC0200,B,1 4F14903
TRA STATED GO FETCH STATE D 4F14904
REM ******* *********************** * 4F14905
REM 4F14906
REM DICTIONARY OF OPEN SUBROUTINES FOLLOWS 4F14907
OPSUB OCT 672122626060 XABS 4F14908
OCT 212262606060 ABS 4F14909
OCT 673145636060 XINT 4F14910
OCT 314563606060 INT 4F14911
OCT 674446246060 XMOD 4F14912
OCT 444624606060 MOD 4F14913
OCT 674421670060 XMAXO 4F14914
OCT 442167016060 MAX1 4F14915
OCT 674421670160 XMAX1 4F14916
OCT 442167006060 MAXO 4F14917
OCT 674431450060 XMINO 4F14918
OCT 443145016060 MIN1 4F14919
OCT 674431450160 XMIN1 4F14920
OCT 443145006060 MIN0 4F14921
OCT 264346216360 FLOAT 4F14922
OCT 672631676060 XFIX 4F14923
OCT 623127456060 SIGN 4F14924
OCT 676231274560 XSIGN 4F14925
OCT 672431446060 XDIM 4F14926
OCT 243144606060 DIM 4F14927
BSS 10 4F14928
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14929
ENDCDR BSS 0 4F149295
REM 4F14930
ENDC ORG 2596 4F14931
BETA BSS 300 4F14932
REM END OF ARITHMETIC / STATE C* 4F14933
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14934
REM 4F14935
REM ARITHMETIC / STATE D= 4F14936
REM 704 FORTRAN MASTER RECORD CARD / STATE D = F0160000. 4F14937
ORG 0 4F149371
PZE ORGD,,CLDR00 4F149372
PZE ENDD-1 4F149373
REM 4F14938
ORGD ORG 1824 4F14939
MC0000 LXD 3QBAR,A MODE CHECKING ROUTINE 4F14940
SXD MC0420,A 4F14941
LXA L(0),A 4F14942
MC0030 SXD XASAVE,A 4F14943
CAL SCRIPL,A 4F14944
MC0050 PAX ,2 S(1) TO XB 4F14945
CLA CPBETA,B 4F14946
MC0070 PAX TAU2,B 4F14947
SXD MC0410,B 4F14948
SXD MC0460,B 4F14949
TXH MC0410,B,-6 SINGLE ELEMENT - GO ONTO S(I+1) 4F14950
SLF TURN OFF ALL SENSE LITES 4F14951
PXD 0,0 CLEAR ACC 4F14952
LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ 4F14953
LGL 6 4F14954
CAS SPECOP 4F14955
TQP MC0180 4F14956
XASAVE TXI MC0410,0,0 4F14957
MC0180 LGL 26 OP1 (S(I)) = +, - OR * 4F14958
TQP MC0210 FIX PT 4F14959
SLN 1 FLO PT 4F14960
MC0210 PXD 0,0 4F14961
LDQ SCRIPL+2,A PLACE SYMJ (S(I)) IN MQ - J = I,... 4F14962
LGL 1 4F14963
LBT 4F14964
TQP MC0440 4F14965
LGL 5 SYMJ (S(I)) IS A VARIABLE 4F14966
CAS L(H) 4F14967
CAS L(O) 4F14968
XBSAVE TXI MC0340,0,0 FLO PT 4F14969
TRA MC0340 FLO PT 4F14970
MC0310 SLT 1 SYMJ (S(I)) IS A FIX PT VARIABLE 4F14971
TXI MC0380,B,3 OK 4F14972
TSX DIAG,4 ERROR.. FLO PT LITE ON 4F14973
MC0340 SLT 1 SYMJ(S(I)) IS A FLO PT VARIABLE 4F14974
TSX DIAG,4 ERROR.. FLO PT LITE OFF 4F14975
SLN 1 RESTORE FLO PT LITE 4F14976
TXI MC0380,B,3 4F14977
MC0380 TXL MC0400,B,0 FINISHED WITH S(I) 4F14978
TXI MC0210,A,-3 CONTINUE SCANNING S(I). J TO J+1 4F14979
MC0400 LXD XASAVE,A GO TO S(I+1) 4F14980
MC0410 TXI MC0420,A,0 4F14981
MC0420 TXH MC0030,A,0 4F14982
TRA CP0000 EXIT TO COMPILER 4F14983
MC0440 SXD XBSAVE,B SYMJ (S(ITT = SAME S(K) 4F14984
LXD XASAVE,C 4F14985
MC0460 TXI MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1) 4F14986
MC0470 CAL SCRIPL,C 4F14987
ANA MASK2 EXTRACT S(K) IN ACC 4F14988
CAS SCRIPL+2,A AND COMPARE WITH SYMJ (S(I)) 4F14989
TRA MC0520 4F14990
TRA MC0570 4F14991
MC0520 PAX SIGMA1,B S(K) TO XB 4F14992
CLA CPBETA,B 4F14993
MC0540 PAX TAU1,B 4F14994
SXD MC0560,B 4F14995
MC0560 TXI MC0470,C,0 4F14996
MC0570 LXD XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K 4F14997
CAL SCRIPL+1,C PLACE OP1 (S(K)) IN ACC 4F14998
ARS 3 4F14999
LBT 4F15000
TRA MC0310 S(K) IS FIX PT 4F15001
TRA MC0340 S(K) IS FLO PT 4F15002
REM 4F15003
CP0000 SLF TURN OFF ALL SENSE LITES 4F15004
STZ FNSW 4F15005
LXD ARGCTR,C IS THIS AN FS STATEMENT 4F15006
TXL CP0090,C,0 NO 4F15007
TSX CIT00,C YES - COMPILE FOUR 36 - BIT 4F15008
HTR ALL1 STRINGS IN 1 AS A PRELUDE TO 4F15009
HTR ALL1 FS STATEMENT COMPILATION 4F15010
HTR ALL1 4F15011
HTR ALL1 4F15012
CP0090 CAL EIFNO 4F15013
ANA MASK1 4F15014
SLW CW STO INT. FORM. NO. IN DEC FIELD OF CW. 4F15015
LXD 3QBAR,A -30 TO XA 4F15016
CP0130 CLA SCRIPL-3,A EXTRACT CURRENT S(I) 4F15017
CP0140 PAX ,2 4F15018
CLA CPBETA,B 4F15019
STD PHI(I) STO ERAS. REL. ADD. IN PHI (I) 4F15020
ANA MASK2 4F15021
CP0180 PAX TAU3,B 4F15022
SXD CP0400,B 4F15023
COM 4F15024
ADD L(1) 4F15025
ALS 18 4F15026
STD CP0240 4F15027
CP0240 TXI CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I) 4F15028
CP0250 SXD 3QBAR,A 4F15029
LDQ SCRIPL+1,A EXAMINE OP1 (S(I)) 29,30,31,32 4F15030
LGL 30 4F15031
LBT 4F15032
TRA CP0310 OP1 (S(I)) 29 = 0 4F15033
TQP CP0370 OP1 (S(I)) 30 = 0 4F15034
CP0310 SLN 1 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO 4F15035
RQL 1 SET STORE LITE 4F15036
TQP CP0350 OP1 (S(I)) 31 = 0, SO SET STO LITE 4F15037
SLN 2 OP1 (S(I)) 31 = 1, SO SET STQ LITE 4F15038
CP0350 RQL 1 4F15039
TRA CP0380 4F15040
CP0370 RQL 2 4F15041
CP0380 TQP CP0420 TEST OP1 (S(I)) 32 4F15042
SLT 4 OP1 (S(I)) 32 = 1, SO SET FLPTSW 4F15043
CP0400 TXH 0,0,0 4F15044
TRA CP0430 4F15045
CP0420 SLN 4 OP1 (S(I)) 32 = 0, SO SET FXPTSW 4F15046
CP0430 PXD 0,0 4F15047
LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ 4F15048
LGL 6 4F15049
CAS SPECOP 4F15050
TXI CP0960,0,0 4F15051
TXI CP2040,A,-3 4F15052
SUB 11Z 4F15053
TZE CP0760 4F15054
LGL 29 OP1 (S(I)) = + 4F15055
TQP CP1130 OP1 (S(I)) 35 = 0 4F15056
CP0540 LXD CP0400,B OP1 (S(I)) 35 = 1 4F15057
TXI CP0560,B,3 4F15058
CP0560 TXL ES0000,B,0 GO TO END-OF-SEGMENT SBRTN 4F15059
SXD CP0400,B 4F15060
TXI CP0590,A,-3 4F15061
CP0590 PXD 0,0 4F15062
LDQ SCRIPL+1,A PLACE OPJ (S(I)) IN MQ 4F15063
LGL 6 4F15064
CAS STAR 4F15065
TRA CP1200 OPJ (S(I)) = / 4F15066
TRA CP1720 OPJ (S(I)) = * 4F15067
SUB 11Z 4F15068
TZE CP0880 OPJ (S(I)) = - 4F15069
CAL L(FAD) OPJ (S(I)) = + 4F15070
SLT 4 4F15071
TRA CP0740 4F15072
SLN 4 FIX PT. RESTORE FXPTSW 4F15073
CAL L(ADD) 4F15074
CP0740 SLW CW+1 4F15075
TRA CP1690 4F15076
CP0760 LGL 29 0P1 (S(I)) = - 4F15077
TQP CP0850 4F15078
CAL L(CHS) 0P1 (S(I)) 35 = 1, SO 4F15079
SLW CW+1 COMPILE CHS FOR 1ST ELEMENT 4F15080
STZ CW+2 4F15081
STZ CW+3 4F15082
TSX COMP,B 4F15083
TRA CP0540 4F15064
CP0850 CAL L(CLS) 0P1 (S(I)) 35 = O, SO 4F15085
SLW CW+1 COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT 4F15086
TRA CP1150 4F15087
CP0880 CAL L(FSB) OPJ (S(I)) = - 4F15088
SLT 4 4F15089
TRA CP0940 4F15090
SLN 4 FIX PT. RESTORE FXPTSW 4F15091
CAL L(SUB) 4F15092
CP0940 SLW CW+1 4F15093
TRA CP1690 4F15094
CP0960 TQP CP0980 4F15095
TRA CP4140 4F15096
CP0980 LGL 29 0P1 (S(I)) = * 4F15097
SLN 3 TURN LITE 3 ON 4F15098
LBT TEST 0P1 (S(I)) 34 4F15099
TRA CP1050 0P1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON 4F15100
SLT 3 0P1 (S(I)) 34 = 1, SO TURN LITE 3 OFF 4F15101
TXH 0,0,0 4F15102
CP1050 TQP CP1070 4F15103
TRA CP0540 0P1 (S(I)) 35 = 1, SO GO MODIFY J 4F15104
CP1070 CAL L(LDQ) 0P1 (S(I)) 35 = 0 4F15105
SLT 3 4F15106
TRA CP1140 ELI (S(II) TO MQ 4F15107
SLN 3 ELI (S(II) TO ACC 4F15108
CP1130 CAL L(CLA) 4F15109
CP1140 SLW CW+1 4F15110
CP1150 TSX AC0000,C ADDRESS COMPILE SYM1 (S(I)) 4F15111
TSX COMP,B 4F15112
STZ CW RESET CW 4F15113
TRA CP0540 GO MODIFY J 4F15114
CP1200 SLT 3 OPJ (S(I)) = / 4F15115
TRA CP1330 4F15116
SLT 4 PREDECESSOR IN ACC 4F15117
TRA CP1670 FLO PT. 4F15118
SLN 4 FIX PT. RESTORE FXPTSW 4F15119
TSX CIT00,C COMPILE LRS 35 4F15120
HTR L(0) 4F15121
HTR L(LRS) 4F15122
HTR L(0) 4F15123
HTR DEC35 4F15124
TRA CP1450 4F15125
CP1330 SLT 4 PREDECESSOR IN MQ 4F15126
TRA CP1570 AND SEGMENT IS 4F15127
SLN 4 FIX PT. RESTORE FXPTSW 4F15128
CP1450 CLA L(DVP) 4F15129
STO CW+1 4F15130
TSX AC0000,C ADDRESS COMPILE SYMJ (S(I)) 4F15131
TSX COMP,B COMPILE DVP SYMJ (S(I)) 4F15132
TSX CIT00,C COMPILE CLM 4F15133
HTR L(0) 4F15134
HTR L(CLM) 4F15135
HTR L(0) 4F15136
HTR L(0) 4F15137
TSX CIT00,C COMPILE LLS 18 4F15138
HTR L(0) 4F15139
HTR L(LLS) 4F15140
HTR L(0) 4F15141
HTR DEC18 4F15142
TRA CP0540 GO MODIFY J 4F15143
CP1570 CLA L(STQ) PREDECESSOR IN MQ 4F15144
STO CW+1 AND SEGMENT IS FLO PT 4F15145
CLA X( 4F15146
STO CW+2 4F15147
STZ CW+3 4F15148
TSX COMP,B COMPILE STO 700000 4F15149
CLA L(CLA) 4F15150
STO CW+1 4F15151
TSX COMP,B COMPILE CLA 700000 4F15152
CP1670 CLA L(FDP) 4F15153
STO CW+1 COMPILE FOP SYMJ (S(I)) 4F15154
CP1690 TSX AC0000,C ADDRESS COMPILE SYMJ (S(I)) 4F15155
TSX COMP,B 4F15156
TRA CP0540 GO MODIFY J 4F15157
CP1720 SLT 3 OPJ(S(I))=* 4F15158
TRA CP1840 4F15159
CLA L(STO) PREDECESSOR IN ACC 4F15160
STO CW+1 4F15161
CLA X( 4F15162
STO CW+2 4F15163
STZ CW+3 4F15164
TSX COMP,B COMPILE STO 700000 4F15165
CLA L(LDQ) 4F15166
STO CW+1 4F15167
TSX COMP,B COMPILE LDQ 700000 4F15168
CP1840 SLN 3 TURN LATE 3 ON 4F15169
TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) 4F15170
SLT 4 4F15171
TRA CP2000 4F15172
SLN 4 FIX PT. RESTORE FXPTSW 4F15173
CLA L(MPY) 4F15174
STO CW+1 4F15175
TSX COMP,B COMPILE MPY SYMJ(S(I)) 4F15176
TSX CIT00,C COMPILE ALS 17 4F15177
HTR L(0) 4F15178
HTR L(ALS) 4F15179
HTR L(0) 4F15180
HTR DEC17 4F15181
TRA CP0540 GO MODIFY J 4F15182
CP2000 CLA L(FMP) FLO PT. 4F15183
STO CW+1 4F15184
TSX COMP,B COMPILE FMP SYMJ(S(I)) 4F15185
TRA CP0540 GO MODIFY J. 4F15186
CP2040 LGL 7 OPI(S(I))=SPOP 4F15187
LBT TEST OP1(S(I))12 4F15188
TQP CP2650 LIB OR OPEN FUNCTION 4F15189
TQP CP5000 FN-FUNCTION 4F15190
PXD 0,0 FS-FUNCTION 4F15191
LLS 15 PUT TYPE NO IN ADD(ACC) 4F15192
ORA P( FORM 4...TYPE NO. 4F15193
SLW ARGORG AND STO IN ARGORG 4F15194
ANA MASK2 4F15195
ORA X( FORM 7...TYPE NO. 4F15196
SLW XRSAVE AND STO IN XRSAVE 4F15197
CLA SCRIPL+1,A 4F15198
LBT EXAMINE OP2(S(I))35 4F15199
TRA CP2150 1ST ARG STORED 4F15200
CP2100 TSX CIT00,C 1ST ARG IN ACC 4F15201
HTR L(0) COMPILE STO 4...TYPE NO. + 0 4F15202
HTR L(STO) 4F15203
HTR ARGORG 4F15204
HTR L(0) 4F15205
TXI CP2200,A,-3 GO ON TO OP3(S(I)) 4F15206
CP2150 CAL L(CLA) 4F15207
SLW CW+1 4F15208
TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15209
TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15210
TRA CP2100 4F15211
CP2200 STZ CW RESET CW 4F15212
LXD CP0400,B 4F15213
TXI CP2230,B,3 4F15214
CP2230 TXH CP2500,B,-6 FINISHED WITH S(I) 4F15215
SXD CP0400,B 4F15216
CLA SCRIPL+1,A 4F15217
LBT EXAMINE OP3(S(I))35 4F15218
TRA CP2300 2ND ARG STORED 4F15219
CP2250 TSX CIT00,C 2ND ARG IN MQ 4F15220
HTR L(0) COMPILE STO 4...TYPE NO, + 1 4F15221
HTR L(STQ) 4F15222
HTR ARGORG 4F15223
HTR 2E18 4F15224
TXI CP2350,A,-3 GO ON TO SYM4(S(I)) 4F15225
CP2300 CAL L(LDQ) 4F15226
SLW CW+1 4F15227
TSX AC0000,C ADDRESS COMPILE SYM3(S(I)) 4F15228
TSX COMP,B COMPILE LDQ SYM3(S(I)) 4F15229
TRA CP2250 4F15230
CP2350 CLA DECMI2 INITIALIZE DEC(P(CNTR) TO 2 4F15231
SLW P(CNTR 4F15232
CP2370 LXD CP0400,B 4F15233
TXI CP2390,B,3 4F15234
CP2390 TXH CP2500,B,-6 FINISHED WITH S(I) 4F15235
SXD CP0400,B 4F15236
CAL L(CLA) 4F15237
SLW CW+1 4F15236
TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)), J=4,... 4F15239
TSX COMP,B COMPILE CLA SYMJ(S(I)), J=4,... 4F15240
TSX CIT00,C COMPILE STO 4...TYPE NO, + J-2, J=4,... 4F15241
HTR L(0) 4F15242
HTR L(STO) 4F15243
HTR ARGORG 4F15244
HTR P(CNTR 4F15245
CLA P(CNTR UPDATE P(CNTR 4F15246
ADD 2E18 4F15247
STO P(CNTR 4F15248
TXI CP2370,A,-3 4F15249
CP2500 LXD 3QBAR,A FINISHED WITH S(I) 4F15250
CAL L(SXD) 4F15251
SLW CW+1 4F15252
CAL XRSAVE 4F15253
SLW CW+2 4F15254
CAL L(4) 4F15255
SLW CW+3 4F15256
TSX COMP,B COMPILE SXD 7...TYPE NO. , 4 4F15257
CAL L(TSX) 4F15258
SLW CW+1 4F15259
CAL SCRIPL+2,A 4F15260
SLW CW+2 4F15261
TSX COMP,B COMPILE TSX SYMI(S(I)),4 4F15262
CAL L(LXD) 4F15263
SLW CW+1 4F15264
CAL XRSAVE 4F15265
SLW CW+2 4F15266
TRA CP6000 4F15267
CP5830 TXI ES0000,0,0 4F15268
REM 4F15269
CP2650 LGL 20 TEST OPI(S(I))33 4F15270
TQP CP3060 0... LIB. SBRTN 4F15271
CLS CW 1... OPEN SBRTN 4F15272
STO CW CW TO -CW 4F15273
CLA SCRIPL-1,A 4F15274
STO CW+2 4F15275
TSX COMP,B COMPILE FUNCTION NAME 4F15276
STZ CW RESET CW 4F15277
LXD CP0400,B 4F15278
TXL CP2930,B,-9 4F15279
CAL ALL1 OPEN UNIVARIATE FUNCTION 4F15280
SLW CW 4F15281
CLA SCRIPL+1,A 4F15282
LBT EXAMINE OP2(S(I))35 4F15283
TRA CP2900 0... ARG STORED 4F15284
ARS 1 1... ARG NOT STORED 4F15285
LDQ ADPLUS 4F15286
LBT 4F15287
TRA CP2860 4F15286
LDQ ADSTAR 4F15289
CP2860 STQ CW+2 4F15290
STZ CW+3 4F15291
CP2880 TSX COMP,B COMPILE ACC OR MQ INDICATOR 4F15292
STZ CW RESET CW 4F15293
TRA ES0000 4F15294
CP2900 TSX AC0000,C ADDRESS COMPILE SYM2(S(II) 4F15295
TRA CP2880 GO COMPILE SYM2(S(I)) 4F15296
CP2930 TSX AC0000,C OPEN MULTIVARIATE FUNCTION 4F15297
LXD CP0400,B 4F15298
TXI CP2960,B,3 4F15299
CP2960 TXH CP3000,B,-6 4F15300
SXD CP0400,B 4F15301
TSX COMP,B COMPILE SYMJ(S(I)) 4F15302
TXI CP2930,A,-3 4F15303
CP3000 CAL ALL1 4F15304
SLW CW 4F15305
TSX COMP,B COMPILE LAST ARGUMENT NAME 4F15306
STZ CW RESET CW 4F15307
TRA ES0000 GO TO END-OF-SEGMENT SBRTN 4F15308
CP3060 TXL CP3350,B,-9 4F15309
CLA SCRIPL+1,A CLOSED UNIVARIATE FUNCTION 4F15310
LBT EXAMINE OP2(S(I))35 4F15311
TRA CP3280 0... ARG STORED 4F15312
CP3100 CLA L(SXD) 1... ARG IN ACC 4F15313
STO CW+1 4F15314
CLA X( 4F15315
STO CW+2 4F15316
CLA L(4) 4F15317
STO CW+3 4F15318
TSX COMP,B COMPILE SXD7...0,4 4F15319
CLA L(TSX) 4F15320
STO CW+1 4F15321
CLA SCRIPL-1,A 4F15322
STO CW+2 4F15323
TSX COMP,B COMPILE TSX SYMI(S(I)),4 4F15324
TRA CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15325
CP3280 CLA L(CLA) 4F15331
STO CW+1 4F15332
TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15333
TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15334
STZ CW RESET CW 4F15335
TRA CP3100 GO COMPILE SXD,TSX,LXD SEQUENCE 4F15336
CP3350 TXL CP3560,B,-12 4F15337
CLA SCRIPL+1,A CLOSED BIVARIATE FUNCTION 4F15338
LBT EXAMINE OP2(S(I))35 4F15339
TRA CP3450 0... ARG1 STORED 4F15340
CP3390 CLA L(LDQ) 1... ARG1 IN ACC 4F15341
STO CW+1 4F15342
TXI CP3420,A,-3 4F15343
CP3420 TSX AC0000,C ADDRESS COMPILE SYM3(S(I)) 4F15344
TSX COMP,B COMPILE LDQ SYM3(S(I)) 4F15345
TXI CP3100,A,3 GO COMPILE SXD,TSX,LXD SEQUENCE 4F15346
CP3450 CLA SCRIPL+4,A 4F15347
LBT EXAMINE OP3(S(I))35 4F15348
TRA CP3490 0... ARG2 STORED 4F15349
TRA CP3280 1... ARG2 IN MO 4F15350
CP3490 CLA L(CLA) 4F15351
STO CW+1 4F15352
TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15353
TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15354
STZ CW REST CW 4F15355
TRA CP3390 GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE 4F15356
CP3560 CLA SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION 4F15357
LBT EXAMINE OP2(S(II)35 4F15358
TXI CP3820,A,-6 0... ARG1 STORED 4F15359
TXI CP3600,A,-6 1... ARG1 IN ACC 4F15360
CP3600 CLA DECMI2 4F15361
STO P(CNTR INITIALIZE P(CNTR TO -2 4F15362
CP3620 CLA L(LDQ) 4F15363
STO CW+1 4F15364
TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,... 4F15365
TSX COMP,B COMPILE LDQ SYMJ(S(I)) 4F15366
CLA L(STQ) 4F15367
STO CW+1 4F15368
CLA P( 4F15369
STO CW+2 4F15370
CLA P(CNTR 4F15371
STO CW+3 4F15372
SUB 2E18 4F15373
STO P(CNTR 4F15374
TSX COMP,B COMPILE STQ 4...0-(J-2) 4F15375
LXD CP0400,B 4F15376
TXI CP3770,B,3 4F15377
CP3770 TXL CP3800,B,-12 4F15378
LXD 3QBAR,A FINISHED WITH ARG VECTOR 4F15379
TXI CP3390,A,-3 4F15380
CP3800 SXD CP0400,B 4F15381
TXI CP3620,A,-3 GO PICK UP NEXT ARG. 4F15382
CP3820 CLA SCRIPL-2,A 4F15383
LBT EXAMINE OP3(S(I))35 4F15384
TXI CP4070,A,6 0... ARG2 STORED 4F15385
CLA DECMI2 1... ARG2 IN MQ 4F15386
STO P(CNTR 4F15387
CP3870 CLA L(CLA) 4F15388
STO CW+1 4F15389
TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,... 4F15390
TSX COMP,B COMPILE CLA SYMJ(S(I)) 4F15391
CLA L(STO) 4F15392
STO CW+1 4F15393
CLA P( 4F15394
STO CW+2 4F15395
CLA P(CNTR 4F15396
STO CW+3 4F15397
SUB 2E18 4F15398
STO P(CNTR 4F15399
TSX COMP,B COMPILE STO 4...0-(J-2) 4F15400
LXD CP0400,B 4F15401
TXI CP4020,B,3 4F15402
CP4020 TXL CP4050,B,-12 4F15403
LXD 3QBAR,A FINISHED WITH ARG VECTOR 4F15404
TXI CP3280,A,-3 4F15405
CP4050 SXD CP0400,B 4F15406
TXI CP3870,A,-3 GO PICK UP NEXT ARG 4F15407
CP4070 CLA L(CLA) 4F15408
STO CW+1 4F15409
TSX AC0000,C ADDRESS COMPILE SYM2(S(II) 4F15410
TSX COMP,B COMPILE CLASYM2(S(I)) 4F15411
STZ CW RESET CW 4F15412
TXI CP3600,A,-6 4F15413
CP4140 LGL 27 OP1(S(I))=** 4F15414
TQP CP4410 CLOSED SBRTN SINCE OP1(S(I))33=0 4F15415
LBT OPEN SBRTN SINCE OP1(S(I))33=1 4F15416
TRA CP4200 BASE FIX PT SINCE OP1(S(1))32=0 4F15417
CLA STRSTR BASE FLO PT SINCE OP1(S(1))32=1 4F15418
TRA CP4210 4F15419
CP4200 CLA ADSTAR 4F15420
CP4210 STO CW+1 4F15421
LGL 2 EXAMINE OP1(S(I))35 4F15422
TQP CP4310 0... BASE STORED 4F15423
LDQ ADSTAR 1... BASE NOT STORED 4F15424
LBT EXAMINE OP1(S(I)34 4F15425
LDQ ADPLUS 0... BASE IN ACC 4F15426
STQ CW+2 1...BASE IN MQ 4F15427
STZ CW+3 4F15428
TRA CP4320 4F15429
CP4310 TSX AC0000,C ADDRESS COMPILE SYMI(S(I)) 4F15430
CP4320 CLS CW 4F15431
STO CW CW TO -CW 4F15432
TSX COMP,B COMPILE BASE 4F15433
STZ CW RESET CW 4F15434
CLA SCRIPL+5,A 4F15435
STO CW+2 4F15436
TSX COMP,B COMPILE FIX PT CONSTANT EXPONENT 4F15437
STZ CW+1 RESET CW+1 4F15438
TRA ES0000 4F15439
CP4410 LGL 3 CLOSED EXP. SBRTN 4F15440
LBT EXAMINE OP1(S(I))35 4F15441
TRA CP4860 0... BASE STORED 4F15442
CP4440 CLA L(LDQ) 1... BASE IN ACC. 4F15443
STO CW+1 4F15444
TXI CP4470,A,-3 4F15445
CP4470 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15446
TSX COMP,B COMPILE LDQ SYM2 (S(I)) 4F15447
CP4490 CLA L(SXD) 4F15448
STO CW+1 4F15449
CLA X( 4F15450
STO CW+2 4F15451
CLA L(4) 4F15452
STO CW+3 4F15453
TSX COMP,B COMPILE SXD 7...0.4 4F15454
CLA L(TSX) 4F15455
STO CW+1 4F15456
CLA SCRIPL+1,A 4F15457
ARS 3 4F15458
LBT EXAMINE OP2(S(I))32 4F15459
TXI CP4660,A,3 O... 4F15460
CLA FLFL 1... FLO**FLO 4F15461
LDQ SCRIPL-2,A EXAMINE OPI(S(I)I32 TO CHECK 4F15462
RQL 32 FOR MIXED EXPONENTIAL EXPRESSION 4F15463
TQP MC0310+2 ERROR FIX PT BASE, FLOAT EXP. 4F15464
TRA CP4730 4F15465
CP4660 LDQ SCRIPL+1,A 4F15466
RQL 32 EXAMINE OP1(S(I))32 4F15467
CLA FXFX 4F15468
TQP CP4730 0...FX**FX 4F15469
CLA FLFX 1... FL**FX 4F15470
CP4730 STO CW+2 4F15471
STO G 4F15472
TSX COMP,B COMPILE TSX FXFX/FLEX/FLFL,4 4F15473
TSX TET00,A 4F15474
HTR 9 4F15475
TRA CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15476
CP4860 CLA L(CLA) 4F15462
STO CW+1 4F15483
TSX AC0000,C ADDRESS COMPILE SYM1(S(I)) 4F15484
TSX COMP,B COMPILE CLA SYMI(S(I)) 4F15485
STZ CW 4F15486
CLA SCRIPL+4,A 4F15487
LBT EXAMINE OP2*S(I))35 4F15488
TXI CP4440,0,0 0...EXP STORED 4F15489
TXI CP4490,A,-3 1... EXP IN MQ 4F15490
REM 4F15491
CP5000 CLA EIFNO FN FUNCTION 4F15492
ADD 2E18 UPDATE EIFNO 4F15493
STO EIFNO AND 4F15494
STO FNSW SET FN SWITCH 4F15495
STD 1C KEEP 1C UPDATED FOR PENDING TIFGO ENTRY, 4F15496
LXA L(1),C INITIALIZE 5TAIX TO 1 4F15497
CP5050 CLA SCRIPL,A EXAMIN TAGJ(S(I)), J=2,... 4F15498
TMI CP5180 NONSUBSCRIPTED 4F15499
SXD CP5830,B SUBSCRIPTED-IS THERE A GENERAL TAG 4F15500
SXD STACTR,C 4F15501
TSX AC0000,C 4F15502
CAL TAGPRT 4F15503
TNZ CP5220 GENERAL TAG PRESENT 4F15504
CAL CW+3 NO GENERAL TAG PRESENT,SO PLACE 4F15505
ARS 11 RELATIVE ADDRESS IN OPJ(S(I))14-28 AND 4F15506
ORA NGTBIT SET OPJ(S(I))10=I FROM NGTBIT 4F15507
ORS SCRIPL+1,A 4F15508
CP5160 LXD STACTR,C 4F15509
LXD CP5830,B 4F15510
CP5180 TXI CP5190,B,3 4F15511
CP5190 TXH CP5460,B,-6 FINISHED WITH PRELUDE,IF ANY 4F15512
TXI CP5210,C,1 NOT FINISHED-STAIX=STAIX+1 4F15513
CP5210 TXI CP5050,A,-3 GO ON TO NEXT ARGUMENT 4F15514
CP5220 CAL L(PXD) 4F15515
SLW CW+1 4F15516
TSX COMP,B COMPILE PXD SYMJ(S(I)), TAGJ(S(I)) 4F15517
STZ CW RESET CW 4F15518
TSX CIT00,C COMPILE ARS 18 4F15519
HTR L(0) 4F15520
HTR L(ARS) 4F15521
HTR L(0) 4F15522
HTR DEC18 4F15523
TSX CIT00,C COMPILE ADD *-2 4F15524
HTR L(0) 4F15525
HTR L(ADD) 4F15526
HTR PROCTR 4F15527
HTR DECMI2 4F15528
CAL L(STA) 4F15529
SLW CW+1 4F15530
CAL EIFNO 4F15531
ANA MASK1 4F15532
SLW CW+2 4F15533
LXD STACTR,C 4F15534
PXD 0,C 4F15535
SLW CW+3 4F15536
TSX COMP,B COMPILE STA IFN+STAIX 4F15537
TXI CP5160,0,0 GO ON TO NEXT ARGUMENT,IF ANY 4F15538
CP5460 LXD 3QBAR,A 4F15539
CAL L(SXD) 4F15540
SLW CW+1 4F15541
CAL X( 4F15542
SLW CW+2 4F15543
CAL L(4) 4F15544
SLW CW+3 4F15545
TSX COMP,B COMPILE SXD 7,4 4F15546
CAL EIFNO 4F15547
ANA MASK1 4F15548
SLW CW 4F15549
CAL L(TSX) 4F15550
SLW CW+1 4F15551
CAL SCRIPL+2,A 4F15552
SLW CW+2 4F15553
TSX COMP,B COMPILE TSX SYMI(S(I)),4 4F15554
STZ CW RESET CW 4F15555
TXI CP5680,A,-3 POSITION XA TO SYM2(S(I)) 4F15556
CP5680 CLA SCRIPL,A 4F15557
TPL CP5700 4F15558
TSX AC0000,C NONSUBSCRIPTED 4F15559
STACTR TXI CP5720,0,0 4F15560
CP5700 LDQ SCRIPL+1,A SUBSCRIPTED 4F15561
LGL 11 4F15562
LBT 4F15563
LDQ L(0) GENERAL TAG PRESENT 4F15564
STQ CW+3 NO GENERAL TAG PRESENT 4F15565
CAL SCRIPL+2,A 4F15566
SLW CW+2 4F15567
CP5720 TSX COMP,B COMPILE TSX SYMJ(S(I)) , J=2,,., 4F15568
LXD CP0400,B 4F15569
TXI CP5750,B,3 4F15570
CP5750 TXH CP5780,B,-6 FINISHED SCANNING 4F15571
SXD CP0400,B 4F15572
TXI CP5680,A,-3 4F15573
CP5780 TSX FLTR00,4 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15574
HTR L(0) 4F15575
HTR L(LXD) 4F15576
HTR X( 4F15577
HTR L(4) 4F15578
ES0000 LXD 3QBAR,A -3Q TO XA 4F15579
SLT 1 4F15580
TRA CP0130 GO TO NEXT SEGMENT 4F15581
CAL SCRIPL,A 4F15582
ANA MASK2 4F15583
TZE ES0160 4F15584
CLA ARERAS S(I) NOT = S(O) 4F15585
STO CW+2 4F15586
CLA PHI(I) 4F15587
STO CW+3 4F15588
CLA L(STQ) 4F15589
SLT 2 4F15590
CLA L(STO) 4F15591
STO CW+1 4F15592
TSX COMP,B COMPILE STO/STQ 1... TYPE NO + PHI(I) 4F15593
TRA CP0130 GO TO NEXT SEGMENT 4F15594
ES0160 LDQ LEFT+2 S(I)=S(O) 4F15595
LGL 12 4F15596
CAS IFSYM IS THIS AN IF STATEMENT 4F15597
TRA ES0200 4F15598
TRA ES1500 4F15599
ES0200 CAS CALLER IS THIS A CALL STATEMENT 4F15600
TRA ES0210 4F15601
TRA ES1520 4F15602
ES0210 CAS SAPSYM 4F15603
TRA ES0220 4F15604
TRA ES1710 4F15605
ES0220 ARS 6 4F15606
LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F15607
TXH ES1300,C,0 YES 4F15608
CAS L(H) NOT A FUNCTION STATEMENT 4F15609
CAS L(O) 4F15610
TRA ES0300 4F15611
TRA ES0300 4F15612
SLT 4 4F15613
TRA ES0870 4F15614
ES0710 CLA L(STQ) FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT 4F15615
SLT 2 4F15616
ES0730 CLA L(STO) 4F15617
STO CW+1 4F15618
CLA LEFT 4F15619
STO TAGWRD 4F15620
CLA LEFT+1 4F15621
STO OPWORD 4F15622
CLA LEFT+2 4F15623
STO SYMWRD 4F15624
TSX AC0060,C ADDRESS COMPILE VARIABLE ON LEFT 4F15625
TSX COMP,B COMPILE STO/STQ LEFT+2 4F15626
TRA ES1590 EXIT TO FETCH STATE A 4F15627
ES0870 SLT 2 FX PT ON LEFT, FLO PT ON RIGHT 4F15628
TRA ES0990 4F15629
CLA L(STQ) RESULT ON RIGHT APPEARS IN MQ 4F15630
STO CW+1 4F15631
CLA X( 4F15632
STO CW+2 4F15633
STZ CW+3 4F15634
TSX COMP,B COMPILE STQ 700000 4F15635
CLA L(CLA) 4F15636
STO CW+1 4F15637
TSX COMP,B COMPILE CLA 700000 4F15638
ES0990 TSX CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN 4F15639
HTR L(0) RESULT ON RIGHT IS IN ACC. 4F15640
HTR L(UFA) 4F15641
HTR O( 4F15642
HTR L(0) 4F15643
TSX CIT00,C 4F15644
HTR L(0) 4F15645
HTR L(LRS) 4F15646
HTR L(0) 4F15647
HTR L(0) 4F15648
TSX CIT00,C 4F15649
HTR L(0) 4F15650
HTR L(ANA) 4F15651
HTR O( 4F15652
HTR 2E18 4F15653
TSX CIT00,C 4F15654
HTR L(0) 4F15655
HTR L(LLS) 4F15656
HTR L(0) 4F15657
HTR L(0) 4F15658
TSX CIT00,C 4F15659
HTR L(0) 4F15660
HTR L(ALS) 4F15661
HTR L(0) 4F15662
HTR DEC18 4F15663
TRA ES0610 4F15664
ES0300 SLT 4 4F15665
TRA ES0710 4F15666
ES0320 SLT 2 FLO PT ON LEFT, FX PT ON RIGHT 4F15667
TRA ES0440 4F15668
CLA L(STQ) RESULT ON RIGHT APPEARS IN MO 4F15669
STO CW+1 4F15670
CLA X( 4F15671
STO CW+2 4F15672
STZ CW+3 4F15673
TSX COMP,B COMPILE STQ 700000 4F15674
CLA L(CLA) 4F15675
STO CW+1 4F15676
TSX COMP,B COMPILE CLA 700000 4F15677
ES0440 TSX CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN 4F15678
HTR L(0) RESULT ON RIGHT IS IN ACC 4F15679
HTR L(LRS) 4F15680
HTR L(0) 4F15681
HTR DEC18 4F15682
TSX CIT00,C 4F15683
HTR L(0) 4F15684
HTR L(ORA) 4F15685
HTR O( 4F15686
HTR L(0) 4F15687
TSX CIT00,C 4F15688
HTR L(0) 4F15689
HTR L(FAD) 4F15690
HTR O( 4F15691
HTR L(0) 4F15692
ES0610 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F15693
TXL ES0730,C,0 NO 4F15694
ES0630 CLA L(TRA) YES 4F15695
STO CW+1 4F15696
STZ CW+2 4F15697
CAL 2E18 4F15698
ORA L(4) 4F15699
SLW CW+3 4F15700
TSX COMP,B COMPILE TRA 1,4 4F15701
TRA ES1590 EXIT TO FETCH STATE A 4F15702
ES1300 SUB L(X) 4F15703
TZE ES1360 4F15704
SLT 4 4F15705
TRA ES1380 4F15706
TRA ES0320 4F15707
ES1360 SLT 4 4F15708
TRA ES0870 4F15709
ES1380 SLT 2 4F15710
TRA ES0630 4F15711
CLA L(STQ) 4F15712
STO CW+1 4F15713
CLA X( 4F15714
STO CW+2 4F15715
STZ CW+3 4F15716
TSX COMP,B COMPILE STQ 700000 4F15717
CLA L(CLA) 4F15718
STO CW+1 4F15719
TSX COMP,B COMPILE CLA 700000 4F15720
TRA ES0630 4F15721
ES1500 TSX TET00,1 * GO TO PROGRAM TET TO ENTER 1C,1C+1 4F15722
PZE 2 INTO TIFGO TABLE (TABLE 2), 4F15723
TRA ES1530 4F15724
ES1520 LXD EIFNO,4 4F15725
SXD CALLNM,4 PREPARE ENTRY FOR TABLE OF CALL FIRST AND 4F15726
TSX TET00,1 LAST IFN NUMBERS, 4F15727
16 4F15728
ES1530 SLT 2 4F15729
TRA ES1590 EXIT TO FETCH STATE A 4F15730
TSX CIT00,C COMPILE LLS 37 4F15731
L(0) 4F15732
L(STQ) 4F15733
X( 4F15734
L(0) 4F15735
TSX CIT00,4 4F15736
L(0) 4F15737
L(CLA) 4F15738
X( 4F15739
L(0) 4F15740
ES1590 CLA FNSW 4F15741
TZE MTR000 4F15742
CLA F-1 4F15743
SUB 5BLANS 4F15744
TZE MTR000 4F15745
CLS EIFNO 4F15746
STO EIFNO 4F15747
TSX TET00,A 4F15748
HTR 0 4F15749
CLS EIFNO 4F15750
STO EIFNO 4F15751
TRA MTR000 4F15752
ES1710 LXD BBOX,B 4F15753
CLA OPNWRD 4F15754
STO CIB-3,B 4F15755
TRA MTR000 4F15756
REM 4F15757
COMP TSX CIT00,C 4F15758
HTR CW 4F15759
HTR CW+1 4F15760
HTR CW+2 4F15761
HTR CW+3 4F15762
TRA 1,B 4F15763
REM 4F15764
AC0000 CLA SCRIPL,A 4F15765
STO TAGWRD 4F15766
CLA SCRIPL+1,A 4F15767
STO OPWORD 4F15768
CLA SCRIPL+2,A 4F15769
STO SYMWRD 4F15770
AC0060 CAL TAGWRD 4F15771
ANA MASK1 EXTRACT TAGS IN ACC. 4F15772
PBT 4F15773
TRA AC0540 4F15774
PXD 0,0 NON-SUBSCRIPTED SYMBOL 4F15775
LDQ SYMWRD 4F15776
LGL 1 4F15777
LBT 4F15778
TQP AC0460 SYMBOL IS SOME S(K) 4F15779
LGL 11 NON-SUBSCRIPTED EX/INTERNAL VARIABLE 4F15760
SUB L(A() IS THIS A FLO PT CONSTANT 4F15781
TZE AC0410 YES 4F15782
ADD L(A() NO 4F15783
SUB L(I() IS THIS A FIX PT CONSTANT 4F15784
TZE AC0390 YES 4F15785
ADD L(I() NO 4F15786
SUB L(H() IS THIS A HOLLERITH FIELD 4F15787
TZE AC0350 YES 4F15788
LDQ OPWORD NON-SUBSCRIPTED EXTERNAL VARIABLE 4F15789
LGL 13 IS THIS A FREE VARIABLE 4F15790
TQP AC0340 NO 4F15791
LLS 15 YES 4F15792
COM 4F15793
SUB L(1) 4F15794
PAX 0,B 4F15795
PXD 0,8 4F15796
SLW CW+3 STORE ARGUMENT BUFFER RELATIVE ADDRESS 4F15797
LXD BK,B 4F15798
CAL FORSUB-1,B 4F15799
ANA MASK2 EXTRACT FUNCTION STATEMENT TYPE 4F15600
ORA P( 4F15801
AC0320 SLW CW+2 4F15802
TRA 1,C RETURN 4F15803
AC0340 STZ CW+3 NON-SUBSCRIPTED, REAL VARIABLE 4F15804
CAL SYMWRD 4F15805
TRA AC0320 4F15806
AC0350 CAL H( 4F15807
TRA AC0420 4F15808
AC0390 CLA I( FIX PT INTERNAL VARIABLE 4F15809
TRA AC0420 4F15810
AC0410 CLA A( FLO PT INTERNAL VARIABLE 4F15811
AC0420 STO CW+2 4F15812
RQL 6 4F15813
STQ CW+3 4F15814
TRA 1,C RETURN 4F15815
AC0460 LGL 35 SYMBOL IS SOME S(K) 4F15616
TDRADD PAX 0,B 4F15817
CAL CPBETA,6 4F15618
ANA MASK1 EXTRACT PHI(K) 4F15819
SLW CW+3 4F15820
CAL ARERAS 4F15621
TRA AC0320 4F15822
AC0540 SLW TAGWRD SUBSCRIPTED VARIABLE 4F15823
LDQ TAGWRD 4F15824
PXD ,0 CLEAR AC. 4F15825
LGL 12 I-TAU TAGS TO AC 4F15826
SLW CW+3 STORE FOR NEXT CIT ENTRY. 4F15827
TQP *+3 4F15828
STZ CW+3 4F15829
CAL 2E18 REPLACE NULL TAG, 4F15830
SLW TAGPRT SAVE FOR LATER USE. 4F15831
LGL 1 4F15832
PXD ,0 CLEAR AC 4F15833
LGL 8 FORM TWICE SIGMA TAG. 4F15834
ALS 1 4F15835
ADM SIG1IX-2 FORM BASE OF TABLE + SIGMA TAG. 4F15836
STA SDRADD 4F15837
SDRADD PXD **,0 4F15838
RDR 2 4F15839
LDA SDRADD 4F15840
CAD DUMP 4F15841
COM 4F15842
CAD DUMP 4F15843
COM 4F15844
TZE *+2 CHECK SUM TEST, 4F15845
TSX DIAG,4 ERROR SIGMA1 CKSUM FAILS 4F15846
CAL DUMP 4F15847
ORS CW+3 ADD RELATIVE ADDRESS TO I-TAU TAG. 4F15848
CLA SYMWRD MOVE VARIABLE NAME FOR NEXT CIT ENTRY. 4F15849
STO CW+2 4F15850
TRA 1,4 RETURN TO CALLER 4F15851
REM 4F158511
CP6000 TSX FLTR00,4 COMPILE FLOW TRACE INFORMATION AND THEN 4F158512
CW COMPILE LXD 7(TYPE =*4 4F158513
CW+1 4F158514
CW+2 4F158515
CW+3 4F158516
TRA ES0000 4F158517
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15852
ENDDDR BSS 0 4F158525
REM 4F15853
ENDD ORG 3184 4F15854
FNSW BSS 1 4F15855
P(CNTR BSS 1 4F15856
ARGORG BSS 1 4F15857
XRSAVE BSS 1 4F15858
CW BSS 4 4F15859
TAGWRD BSS 1 4F15860
OPWORD BSS 1 4F15861
SYMWRD BSS 1 4F15862
TAGPRT BSS 1 4F15863
CPBETA BSS 300 4F15864
SCRIPL BSS 600 4F15865
REM END OF ARITHMETIC / STATE D. 4F15866
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15867
REM 4F15868
REM SYNONYMS USED BY SECTION ONE. 4F15869
1E SYN ERASE COMMON WORKING STORAGE. 4F15870
1TOCS SYN 4 ENTRY TO SYSTEM TAPE MONITOR. 4F15871
2E SYN ERASE+1 COMMON WORKING STORAGE. 4F15872
2P SYN I( 4F15873
36ONES SYN ALL1 4F15874
3E SYN ERASE+2 COMMON WORKING STORAGE. 4F15875
3QBAR SYN 3LBAR 4F15876
4E SYN ERASE+3 COMMON WORKING STORAGE. 4F15877
A EQU 1 4F15878
ABLANK SYN BLANK 4F15879
ACOMMA SYN COMMA 4F15880
ADD SYN L(ADD) 4F15881
AEQUAL SYN EQUAL 4F15882
ALPAR SYN OPEN 4F15883
ARITH SYN STATEB 4F15884
ARPAR SYN CLOS 4F15885
ARS SYN L(ARS) 4F15886
B EQU 2 4F15887
C EQU 4 4F15888
CAL SYN L(CAL) 4F15889
CIT SYN CIT00 4F15890
CITMQR SYN E1C ERASABLE STORAGE. 4F15891
CITTAP SYN 147 COMPILED INSTRUCTION TAPE, 4F15892
CITXR1 SYN ERASE+1 ERASABLE STORAGE. 4F15893
CITXR2 SYN ERASE+2 ERASABLE STORAGE. 4F15894
CPY SYN L(CPY) 4F15895
D1 SYN 2E18 4F15896
D12 SYN ERASE+1 COMMON WORKING STORAGE. 4F15897
D18 SYN DEC18 4F15898
D3 SYN ERASE+2 COMMON WORKING STORAGE. 4F15899
DED SYN L(DED) 4F15900
DEL(A) SYN 0 DRUM ORIGIN FOR STATE A, 4F15901
DEL(B) SYN 1160 DRUM ORIGIN FOR STATE B. 4F15902
DEL(C) SYN 1275 DRUM ORIGIN FOR STATE C. 4F15903
DEL(D) SYN 722 DRUM ORIGIN FOR STATE D. 4F15904
DIM1 SYN 0200 DRUM TABLE ORIGIN -DRTABS,DIM.SR, 4F15905
DIM2 SYN 0500 DRUM TABLE ORIGIN -DRTABS,DIM,SR. 4F15906
DIM3 SYN 0800 DRUM TABLE ORIGIN -DRTABS,DIM,SR. 4F15907
DIMCTR SYN ERASE COMMON WORKING STORAGE. 4F15908
DMP SYN E( 4F15909
DOE SYN ERASE COMMON WORKING STORAGE. 4F15910
DRCKSM SYN ERASE+3 COMMON WORKING STORAGE. 4F15911
DRMADR SYN ERASE+4 ERASABLE STORAGE. 4F15912
DRMERC SYN L(5) NUMBER OF DRUM READING ATTEMPTS. 4F15913
DRSYM SYN ERASE COMMON WORKING STORAGE. 4F15914
E1TDR SYN ERASE COMMON WORKING STORAGE. 4F15915
E2C SYN ERASE+1 COMMON WORKING STORAGE. 4F15916
E2TDR SYN ERASE+1 COMMON WORKING STORAGE. 4F15917
E3C SYN ERASE+2 COMMON WORKING STORAGE. 4F15918
E3TDR SYN ERASE+2 COMMON WORKING STORAGE. 4F15919
EKE SYN ERASE+1 COMMON WORKING STORAGE. 4F15920
ENOND SYN ERASE+3 COMMON WORKING STORAGE. 4F15921
FEOD SYN ERASE+4 COMMON WORKING STORAGE. 4F15922
FIXCON SYN 0002 DRUM TABLE ORIGIN -DRTABS, 4F15923
FLOCON SYN 202 DRUM TABLE ORIGIN -DRTABS. 4F15924
FXCODR SYN 2 4F15925
H SYN ERASE+2 COMMON WORKING STORAGE. 4F15926
H( SYN ADSPOP 4F15927
HPR SYN L(HPR) 4F15928
LDA SYN L(LDA) 4F15929
LXD SYN L(LXD) 4F15930
L(10) SYN TEN 4F15931
L(11) SYN EQUAL 4F15932
L(12) SYN MINUS 4F15933
L(1D) SYN 2E18 4F15934
L(63) SYN ENDMK 4F15935
MEMORG SYN 1824 MEMORY ORIGIN FOR ALL STATES. 4F15936
MSK SYN MASK2 4F15937
MTR000 SYN STATEA 4F15938
MTR300 SYN MTR3 4F15942
N SYN ERASE+3 COMMON WORKING STORAGE. 4F15943
PLUS SYN 12Z 4F15945
PXD SYN L(PXD) 4F15946
RAXR4 SYN ERASE COMMON WORKING STORAGE. 4F15947
SIGMA1 SYN 0662 DRUM TABLE ORIGIN -DRTABS. 4F15948
SR6WRK SYN ERASE+1 ERASABLE STORAGE. 4F15949
ST SYN L(8) 4F15950
STA SYN L(STA) 4F15951
STCKSM SYN ERASE+4 COMMON WORKING STORAGE, 4F15952
TABTAP SYN 148 TABLE TAPE. 4F15953
TAG4 SYN 2E17 4F15954
TAU1 SYN 0000 DRUM TABLE ORIGIN -DRTABS. 4F15955
TAU2 SYN 0300 DRUM TABLE ORIGIN -DRTABS. 4F15956
TAU3 SYN 0750 DRUM TABLE ORIGIN -DRTA8S. 4F15957
TERC SYN L(5) TAPE ERROR COUNTER. 4F15958
TETMQR SYN ERASE+3 ERASABLE STORAGE, 4F15959
TETWRK SYN ERASE+2 ERASABLE STORAGE. 4F15960
TETXR2 SYN ERASE ERASABLE STORAGE. 4F15961
TETXR4 SYN ERASE+1 ERASABLE STORAGE. 4F15962
TIX SYN L(TIX) 4F15963
ZER SYN O( 4F15964
.. EQU 0 4F15965
REM END OF SYNONYMS USED BY SECTION ONE. 4F15966
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15967
REM 4F15968
REM END OF SECTION ONE. 4F15969
END 4F15970
REM 704 FORTRAN MASTER RECORD CARD / DIAGNOSTIC = F0200000. 4F1D0010
REM ----------FILE: 147.PNG-----------------------------INCLUDE PREV LINE
ORG 0 4F1D0020
PZE DIAG,,DIAG 4F1D0030
PZE 8191 4F1D0040
REM 704 FORTRAN TWO, SECTION ONE DIAGNOSTIC RECORD F020. 4F1D0050
REM 4F1D0060
REM THIS RECORD IS CALLED IN FROM TAPE ONCE FOR EACH ERROR IN 4F1D0070
REM SECTION ONE AND ONCE AT THE END OF SECTION ONE, 4F1D0080
REM 4F1D0090
DIAG ORG 1824+4096 MOD 4K OR 8K MACHINE SIZE 4F1D0100
A EQU 1 4F1D0110
B EQU 2 4F1D0120
C EQU 4 4F1D0130
EXITX EQU 32767 4F1D0140
EDIT TXH ERENT,C,0 IF IR4 IS ZERO THIS IS THE END OF SEC ONE. 4F1D0150
CLA 16 IF NON ZERO IT IS AN ERROR CALL, 4F1D0160
ANA L(4)D IF IT IS THE END OF SEC ONE WERE THERE ANY 4F1D0170
TZE 4 ERRORS DURING SECTION ONE ( INDICATED BY 4F1D0180
TSX PRINT,C 4F1D0190
HTR STOP,0,XCOM 4F1D0200
TSX PRINT,C BIT IN WORD 20 OCTAL), IF THERE WERE NO 4F1D0210
PZE RESTR,0,RESTR+1 ERRORS GO TO SEC ONE PRIME. IF THERE WERE 4F1D0220
LXA DCELL1,4 GET INDICATOR OF SOURCE PROGRAM ERRORS. 4F1D0230
TXH SOURCE,4,0 TEST IF ANY OF ERROR WERE SOURCE. 4F1D0240
LXA L(8),4 NONE WERE, SO BACKSPACE TAPE 1 TO MACHINE 4F1D0250
BST 1 ERROR RECORD. 4F1D0260
TIX *-1,4,1 4F1D0270
TRA 4 NOW GO TO 1 TO CS FOR MACHINE ERROR RECORD.4F1D0280
SOURCE LXA L(12),4 SOME SOURCE PROGRAM ERRORS, RECOMPILATION 4F1D0290
BST 1 MEANINGLESS. BACKSPACE TAPE 1 TO SOURCE 4F1D0300
TIX *-1,4,1 PROGRAM ERROR RECORD. 4F1D0310
TRA 4 NOW GO TO 1 TO CS FOR THIS RECORD. 4F1D0320
BSS 10 EXPANSION AREA. FOR PESSIMISM... 4F1D0330
REM NUMBERS OF MACHINE ERROR CALL FROM SECTION ONE, 4F1D0340
MACERR BCD 1002034 4F1D0350
BCD 1002062 4F1D0360
BCD 1002266 4F1D0370
BCD 1002433 4F1D0380
BCD 1002434 4F1D0390
BCD 1002435 4F1D0400
BCD 1002436 4F1D0410
BCD 1002523 4F1D0420
BCD 1002565 4F1D0430
BCD 1003272 4F1D0440
BCD 1003561 4F1D0450
BCD 1005715 4F1D0460
BCD 1004347 4F1D0470
BCD 1005233 4F1D0480
BCD 1000553 4F1D0490
BCD 1000560 4F1D0500
BCD 1000563 4F1D0510
BCD 1000566 4F1D0520
BCD 1010534
BCD 1012750
BSS 18 MORE PESSIMISM...
COUNT 20 4F1D0540
REM 4F1D0550
REM THIS IS AN ERROR CALL. 4F1D0560
ERENT PXD 0,C 4F1D0570
COM CONSTRUCT OCTAL STOP 4F1D0580
ADD L(1)D 4F1D0590
PDX 0,B 4F1D0600
PXD 0,B 4F1D0610
LRS 35 4F1D0620
LXD L(6)D,B 4F1D0630
ALS ALS 3 4F1D0640
LGL 3 4F1D0650
TIX ALS,B,1 4F1D0660
STO NUMB 4F1D0670
LXA L(0),1 SET TO SEARCH TABLE OF NUMBERS OF MACHINE 4F1D0680
LXA COUNT,2 ERRORS, 4F1D0690
CAS MACERR,1 COMPARE EACH ENTRY IN TABLE TO OCTAL 4F1D0700
TXI *+3,1,1 NUMBER IN AC 4F1D0710
TRA *+4 EXIT IF FOUND. 4F1D0720
TXI *+1,1,1 4F1D0730
TIX *-4,2,1 CONTINUE. 4F1D0740
STA DCELL1 SET INDICATOR TO NON-ZERO FOR SOURCE ERROR 4F1D0750
LXA L(0),3 4F1D0760
CLA XXX CONSTRUCT CALLING SEQUENCE WORD FOR 4F1D0770
ONE CAS TABLE,A PRINTING COMMENT 4F1D0780
TRA TWO 4F1D0790
TRA FOUR 4F1D0800
TWO TXI THREE,A,-1 4F1D0810
THREE TXH ONE,A,0 4F1D0820
CLA NUMB 4F1D0830
STO XCOM 4F1D0840
CAL XKEY 4F1D0850
TRA EIGHT 4F1D0860
FOUR TXH FIVE,B,0 4F1D0870
SUB TABLE+1,A 4F1D0880
TZE SEVEN 4F1D0890
CLA NUMB 4F1D0900
SUB TABLE+1,A 4F1D0910
TZE NINE 4F1D0920
CLA XXX 4F1D0930
TRA TWO 4F1D0940
NINE TXI FIVE,A,-1 4F1D0950
FIVE PXD 0,A 4F1D0960
COM 4F1D0970
ADD L(1)D 4F1D0980
PDX 0,C 4F1D0990
PXD 0,C 4F1D1000
ADD TABAD 4F1D1010
TXH SIX,B,0 4F1D1020
ARS 18 4F1D1030
STO KEY 4F1D1040
CLA XXX 4F1D1050
TXI THREE,B,1 4F1D1060
SIX ORA KEY 4F1D1070
TRA EIGHT 4F1D1080
SEVEN CLA NUMB 4F1D1090
STO XCOM 4F1D1100
CLA XKEY 4F1D1110
EIGHT STO COMM 4F1D1120
CLA F-1 4F1D1130
STO F-2 4F1D1140
CLA BLANK 4F1D1150
STO F-1 4F1D1160
LXD L(X)D,A CONSTRUCT CALLING SEQUENCE WORD 4F1D1170
CLA ONES 4F1D1180
STA05 CAS F+111,A 4F1D1190
TRA STA10 4F1D1200
TRA STA20 4F1D1210
STA10 TIX STA05,A,1 4F1D1220
LXD L(0),A 4F1D1230
STA20 PXD 0,A 4F1D1240
STO SES 4F1D1250
CLA L(X)D 4F1D1260
SUB SES 4F1D1270
ADD FORG 4F1D1280
STO SES 4F1D1290
CLA FORG 4F1D1300
ARS 18 4F1D1310
ORA SES 4F1D1320
STO STATE 4F1D1330
CLA 16 WAS THERE A PREVIOUS ERROR CALL 4F1D1340
ANA L(4)D 4F1D1350
TNZ PROG 4F1D1360
CLA L(4)D NO, MAKE ERROR CALL INDICATION 4F1D1370
ORS 16 4F1D1380
TSX PRINT,C AND PRINT HEADING 4F1D1390
HTR START,0,STOP 4F1D1400
WPR 4F1D1410
WPR 4F1D1420
WPR 4F1D1430
WPR 4F1D1440
PROG TSX SETNBC,4 4F1D1450
TSX NNBC,4 4F1D1460
TSX NNBC,4 4F1D1470
SUB L(10) 4F1D1480
TNZ EXIT 4F1D1490
TSX SETNBC,4 4F1D1500
TSX NNBC,4 4F1D1510
SUB L(X) 4F1D1520
TNZ CALLBK 4F1D1530
CLA L(I) 4F1D1540
TSX REP,4 4F1D1550
TSX NNBC,4 4F1D1560
CLA L(F) 4F1D1570
TSX REP,4 4F1D1580
TSX NNBC,4 4F1D1590
SUB L(=) 4F1D1600
TNZ EXIT 4F1D1610
CLA L(LP) 4F1D1620
TSX REP,4 4F1D1630
TXE TXL EXIT,1,-110 4F1D1640
TSX NNBC,4 4F1D1650
SUB ENDM 4F1D1660
TNZ TXE 4F1D1670
CLA L(RP) 4F1D1680
TSX REP,4 4F1D1690
TRA EXIT 4F1D1700
CALLBK CLA L(C) CHANGE Z BACK TO C 4F1D1710
TSX REP,4 4F1D1720
TSX NNBC,4 4F1D1730
CLA L(A) CHANGE TEN BACK TO A 4F1D1740
TSX REP,4 4F1D1750
TSX NNBC,4 4F1D1760
CLA L(L) CHANGE EQUAL BACK TO FIRST L 4F1D1770
TSX REP,4 4F1D1780
TIX SECL,2,1 4F1D1790
TXI SECL,1,-1 ADJUST COUNTS FOR NEXT CHAR 4F1D1800
SECL CLA L(L) CHANGE BLANK BACK TO SECOND L 4F1D1810
TSX REP,4 4F1D1620
TRA EXIT 4F1D1830
SETNBC LXD TXI,1 4F1D1840
LXA LGL,2 4F1D1850
LDQ F 4F1D1860
TRA 1,4 4F1D1870
NNBC PXD 4F1D1880
LGL LGL 6 4F1D1890
TIX CAS,2,1 4F1D1900
LDQ F,1 4F1D1910
TXI TXI TXI+1,1,-1 4F1D1920
LXA LGL,2 4F1D1930
CAS CAS BLANKX 4F1D1940
TRA 1,4 4F1D1950
TRA NNBC 4F1D1960
TRA 1,4 4F1D1970
REP STQ ES1 4F1D1980
SXD ES2,2 4F1D1990
SXD ES3,1 4F1D2000
LRS 35 4F1D2010
CAL ENDM 4F1D2020
TXL TXL TXL+2,2,5 4F1D2030
TXI TXL+4,1,1 4F1D2040
LGL 6 4F1D2050
TIX TIX TIX-1,2,1 4F1D2060
COM 4F1D2070
ANS F-1,1 4F1D2080
LGL 36 4F1D2090
ORS F-1,1 4F1D2100
LXD ES3,1 4F1D2110
LXD ES2,2 4F1D2120
LDQ ES1 4F1D2130
TRA 1,4 4F1D2140
L(I) BCD 100000I 4F1D2150
L(F) BCD 100000F 4F1D2160
L(=) BCD 100000= 4F1D2170
L(LP) BCD 100000( 4F1D2180
L(RP) BCD 100000) 4F1D2190
BLANKX BCD 100000 4F1D2200
L(X) BCD 100000X 4F1D2210
L(C) BCD 100000C 4F1D2220
L(A) BCD 100000A 4F1D2230
L(L) BCD 100000L 4F1D2240
L(8) 8 4F1D2250
L(10) OCT 12 4F1D2260
L(12) 12 4F1D2270
ENDM OCT 77 4F1D2280
ES1 HTR 4F1D2290
ES2 HTR 4F1D2300
ES3 HTR 4F1D2310
SECND TSX PRINT,C PRINT STATEMENT 4F1D2320
STATE HTR 4F1D2330
TSX PRINT,C PRINT COMMENT 4F1D2340
COMM HTR 4F1D2350
WPR 4F1D2360
WPR 4F1D2370
BST BST 1 TAPE 4F1D2380
TRA MON AND RETURN TO SEC ONE MONITOR 4F1D2390
L(1)D OCT 1000000 4F1D2400
L(4)D OCT 4000000 4F1D2410
L(6)D OCT 6000000 4F1D2420
L(0) HTR 4F1D2430
ONES OCT 777777777777 4F1D2440
XXX BCD 1XXXXXX 4F1D2450
HALT OCT 77777 4F1D2460
L(X)D OCT 161000000 4F1D2470
TABAD HTR 0,0,TABLE 4F1D2480
FORG HTR 0,0,F-2 4F1D2490
RESTR BCD 11 4F1D2500
BLANK BCD 1 4F1D2510
XKEY HTR XCOM,0,XXCOM 4F1D2520
NUMB HTR 4F1D2530
KEY HTR 4F1D2540
SES HTR 4F1D2550
START BCD 71 4F1D2560
BCD 6FORTRAN DIAGNOSTIC PROGRAM RESULTS 4F1D2570
STOP BCD 70 4F1D2580
BCD 6END OF DIAGNOSTIC PROGRAM RESULTS 4F1D2590
XCOM HTR 4F1D2600
BCD THIS ERROR IS NOT LISTED IN THE DIAGNOSTIC PROGRAM ERR 4F1D2610
BCD 2OR LIST. 4F1D2620
XXCOM BSS 0 4F1D2630
PRINT BSS 0 4F1D2640
RAN CLA 1,4 4F1D2650
STA RNA 4F1D2660
ARS 18 4F1D2670
STO RNB 4F1D2680
SXD RNC,4 4F1D2690
RN40 CLA RNA 4F1D2700
ADD RND 4F1D2710
CAS RNB 4F1D2720
NOP 4F1D2730
TRA RN50 4F1D2740
ALS 18 4F1D2750
ADD RNA 4F1D2760
STO RAN10 4F1D2770
TSX WOT,C 4F1D2780
RAN10 HTR 4F1D2790
CLA RAN10 4F1D2800
ARS 18 4F1D2610
SUB RNE 4F1D2820
STA RN20 4F1D2830
SUB RNE 4F1D2840
STA RN30 4F1D2850
STA RNA 4F1D2860
CLA BLNKS 4F1D2870
RN20 STO 4F1D2880
RN30 STO 4F1D2890
TRA RN40 4F1D2900
RN50 CLA RNB 4F1D2910
ALS 18 4F1D2920
ADD RNA 4F1D2930
STO RN60 4F1D2940
TSX WOT,C 4F1D2950
RN60 HTR 4F1D2960
LXD RNC,C 4F1D2970
TRA 2,C 4F1D2980
RNA HTR 4F1D2990
RNB HTR 4F1D3000
RNC HTR 4F1D3010
RND HTR 20 4F1D3020
RNE HTR 1 4F1D3030
WOT SXD X1,1 4F1D3040
SXD X2,2 4F1D3050
CLA 1,4 PRINT ROUTINE 4F1D3060
STA T5 X 4F1D3070
STD X4 X 4F1D3080
ARS 18 X 4F1D3090
ADD X4 X 4F1D3100
STA PR2 X 4F1D3110
STA CI9 X 4F1D3120
SUB 1,4 B-A+1 IN AC 4F1D3130
TZE 2,4 4F1D3140
TMI 2,4 4F1D3150
SXD X4,4 4F1D3160
L11 PAX 11,4 4F1D3170
SXD PR6,4 4F1D3180
CAL WP INITIALIZE SWITCH 4F1D3190
STO WP X 4F1D3200
PR6 TXH T4 4F1D3210
T4 WPR 4F1D3220
Z2 TXL S3 4F1D3230
OZ2 TXL 4F1D3240
SP4 SPR 4 4F1D3250
TXL RPR+2 4F1D3260
S3 CLS WP SET SWITCH FOR MASKING 4F1D3270
STO WP CHARACTER FROM TYPE WHEEL 1 4F1D3280
T5 CAL * OBTAIN FIRST CHARACTER 4F1D3290
ARS 30 X 4F1D3300
TZE SP4 DOUBLE SPACE IF ZERO 4F1D3310
CAS YZONE TEST FOR SPACE SUPPRESS 4F1D3320
TXL BK NO 4F1D3330
TXL RPR+1 SUPPRESS SPACE 4F1D3340
BK CAS BNK TEST FOR BLANK 4F1D3350
TXL DIGF NO 4F1D3360
TXL RPR+2 BLANK 4F1D3370
DIGF SPR 10 SET CHANNEL SKIP 4F1D3380
ANA MK MASK OUT ZONE 4F1D3390
MK PAX 15,1 OBTAIN SPR COMBINATION 4F1D3400
TXI N2,1,1 X 4F1D3410
N2 TNX N3,1,8 X 4F1D3420
SPR 8 X 4F1D3430
N3 TNX N4,1,4 X 4F1D3440
SPR 4 X 4F1D3450
N4 TNX N5,1,2 X 4F1D3460
SPR 2 X 4F1D3470
N5 TNX RPR,1,1 X 4F1D3480
SPR 1 X 4F1D3490
RPR WPR 4F1D3500
SPR 5 SUPPRESS SPACE 4F1D3510
CLA BLNKS FIND LAST NON-BLANK GROUP 4F1D3520
LXD CI4,4 X 4F1D3530
PR2 CAS 0,4 X 4F1D3540
TXI PR1,4,-1 X 4F1D3550
TXI PR2,4,1 X 4F1D3560
TXI PR1,4,-1 X 4F1D3570
PR1 SXD CI6,4 STORE END TEST 4F1D3560
SXD CI8,4 X 4F1D3590
SXD PR8,4 X 4F1D3600
SXD WP4,4 X 4F1D3610
LXD PR6,4 X 4F1D3620
PR8 TNX PR5,4 4F1D3630
TXL PR3,4,12 4F1D3640
SPR 8 FIRST CYCLE 4F1D3650
PR3 LXD PR6,4 INITIALIZE GROUP COUNT 4F1D3660
PR5 LXA PR7,2 INITIALIZE LEFT SETUP 4F1D3670
LXD YZ1,1 CLEAR CARD IMAGE 4F1D3680
PR7 PXD X 4F1D3690
PR4 SLW LT,1 X 4F1D3700
SLW RT,1 X 4F1D3710
TIX PR4,1,1 X 4F1D3720
CIR CAL COL1 INITIALIZE COLUMN INDICATOR 4F1D3730
CI2 SLW COL X 4F1D3740
CI9 LDQ 0,4 OBTAIN GROUP 4F1D3750
SXD OZ2,4 STORE GROUP COUNT 4F1D3760
LXA Q6,4 SET CHARACTER COUNT 4F1D3770
CI1 PXD 4F1D3780
Q6 LGL 6 4F1D3790
PAX 0,1 4F1D3800
CAL COL POSITION COLUMN INDICATOR 4F1D3810
ARS 6,4 X 4F1D3820
TIX YZ1,1,16 TEST FOR DIGIT 4F1D3830
TXH YZ2,1,15 TEST FOR Y-ZONE 4F1D3840
CI5 ORS D,3 STORE DIGIT 4F1D3850
CI4 TIX CI1,4,1 COUNT CHARACTERS 4F1D3860
CI3 ARS 1 SHIFT AND TEST COLUMN 4F1D3870
LXD OZ2,4 RESTORE GROUP COUNT 4F1D3880
TXI CI6,4,-1 COUNT GROUPS 4F1D3890
CI6 TXL CI7,4 TEST FOR LAST NON-BLANK GROUP 4F1D3900
TNZ CI2 TEST FOR END OF ROW 4F1D3910
CI7 CAL 8.3,2 FORM TRUE 8,4 4F1D3920
ORS D-8,2 AND 3 ROWS AND 4F1D3930
ORS D-3,2 MOVE 8,4 AND 8.3 4F1D3940
SLW 8.2,2 ROWS 4F1D3950
CAL 8.4,2 FORM TRUE 8,4 4F1D3960
ORS D-8,2 X 4F1D3970
ORS D-4,2 X 4F1D3980
SLW 8.3,2 X 4F1D3990
CI8 TXL WP,4 TEST FOR END 4F1D4000
TXH WP,2,15 TEST FOR RIGHT HALF 4F1D4010
TXI CIR,2,16 INITIALIZE RIGHT HALF 4F1D4020
YZ1 TIX XZ1,1,16 TEST FOR 16/CH/32 4F1D4030
TXH XZ2,1,15 TEST FOR X-ZONE 4F1D4040
ORS D,3 STORE DIGIT 4F1D4050
YZ2 ORS Y,2 STORE Y-ZONE 4F1D4060
TIX CI1,4,1 COUNT CHARACTERS 4F1D4070
X1 TXL CI3 OBTAIN NEXT GROUP 4F1D4080
XZ1 TIX OZ1,1,16 TEST FOR 32/CH/48 4F1D4090
TXH CI4,1,15 TEST FOR BLANK 4F1D4100
ORS D,3 STORE DIGIT 4F1D4110
XZ2 ORS X,2 STORE X-ZONE 4F1D4120
TIX CI1,4,1 COUNT CHARACTERS 4F1D4130
X2 TXL CI3 OBTAIN NEXT GROUP 4F1D4140
OZ1 ORS Z,2 STORE 0-ZONE 4F1D4150
ORS D,3 STORE DIGIT 4F1D4160
TIX CI1,4,1 COUNT CHARACTERS 4F1D4170
TXL CI3 4F1D4180
WP TXH WP9 INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL 4F1D4190
TXL WP7 NO PROGRAM 4F1D4200
WP9 LXD WP2,1 MASK OUT FIRST COL, OF CARD IMAGE 4F1D4210
CAL MK2 X 4F1D4220
ANS ANS LT,1 X 4F1D4230
TIX ANS,1,1 X 4F1D4240
WP7 LXD Z2,1 COPY LOOP 4F1D4250
CRAN CPY LT-12,1 4F1D4260
CPY RT-12,1 X 4F1D4270
TXI T2,1,-1 4F1D4280
T2 TXH CRAN,1,-12 4F1D4290
CAL WP RESET SWITCH FOR SECOND CYCLE 4F1D4300
STO WP X 4F1D4310
WP4 TXH WP5,4 4F1D4320
LXD X1,1 NO, RELOAD INDEX REGISTERS AND RETURN 4F1D4330
LXD X2,2 X 4F1D4340
WT2 LXD X4,4 X 4F1D4350
L2 TRA 2,4 X 4F1D4360
RPR2 WPR 4F1D4370
TXL PR2-2 4F1D4380
WP5 WPR 4F1D4390
SPR 9 SECOND CYCLE 4F1D4400
WP2 TXL PR5,0,12 CONVERT REST OF LINE 4F1D4410
BLNKS BCD 1 4F1D4420
X4 HTR 4F1D4430
YZONE OCT 20 4F1D4440
BNK OCT 60 4F1D4450
MK2 OCT 377777777777 4F1D4460
COL1 MZE 4F1D4470
COL BSS 1 4F1D4460
RT BES 16 4F1D4490
8.5 BSS 1 4F1D4500
8.4 BSS 1 4F1D4510
8.3 BSS 1 4F1D4520
8.2 BSS 1 4F1D4530
D BES 9 4F1D4540
Z BSS 1 4F1D4550
X BSS 1 4F1D4560
Y BSS 1 4F1D4570
LT SYN Y+1 4F1D4580
8.4L SYN LT-14 4F1D4590
8.4R SYN RT-14 4F1D4600
BSS 27 4F1D4610
EXIT SYN SECND 4F1D4620
REM ADDRESS REQUIRED FROM SECTION ONE.......... 4F1D4630
F SYN 618 ADDRESS OF 1ST WORD OF F REGION 4F1D4640
MON SYN 1282 ADDRESS OF ENTRY TO MONITOR FOR A 4F1D4650
DCELL1 SYN 1271 4F1D4660
REM 4F1D4670
REM 4F1D4680
REM TABLE OF DIAGNOSTIC COMMENTS, SECTION ONE OF 704 FORTRAN II. 4F1D4690
REM 4F1D4700
REM 4F1D4710
REM COMMON 4F1D4720
REM 4F1D4730
TABLE BSS 0 4F1D4740
BCD XXXXXX000001 DIM3 TABLE EXCEEDED, THE NUMBER OF 3-DIMEN4F1D4750
BCD SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4760
BCD 1S 9O. 4F1D4770
REM 4F1D4780
BCD XXXXXX000002 DIM2 TABLE EXCEEDED, THE NUMBER OF 2-DIMEN4F1D4790
BCD SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4800
BCD 1S 100. 4F1D4810
REM 4F1D4820
BCD XXXXXX000003 DIM1 TABLE EXCEEDED. THE NUMBER OF 1-DIMEN4F1D4830
BCD SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4840
BCD 1S 100, 4F1D4850
REM 4F1D4860
BCD XXXXXX000004 SIGMA TABLE EXCEEDED. MORE THAN 30 DIFFERE4F1D4870
BCD NT RELATIVE ADDRESSES RESULTING FROM THE ADDENDS IN SUBSCRIP4F1D4880
BCD TS OF THIS STATEMENT. (SIGN CONSIDERED, ONE RELATIVE ADDRESS4F1D4890
BCD 3OF 0 ASSUMMED) 4F1D4900
REM 4F1D4910
BCD XXXXXX000005 TAU3 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D4920
BCD RENT 3-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 75 FOR THI4F1D4930
BCD 2S PROGRAM. 4F1D4940
REM 4F1D4950
BCD XXXXXX000006 TAU2 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D4960
BCD RENT 2-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 90 FOR THI4F1D4970
BCD 2S PROGRAM. 4F1D4980
REM 4F1D4990
BCD XXXXXX000O07 TAU1 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D5000
BCD RENT 1-DIMENSI0NAL SUBSCRIPT COMBINATIONS EXCEEDS 100 FOR TH4F1D5010
BCD 2IS PROGRAM. 4F1D5020
REM 4F1D5030
BCD XXXXXX000010 FLOCON TABLE EXCEEDED. MORE THAT 450 DIFFE4F1D5040
BCD RENT FLOATING POINT CONSTANTS IN THIS PROBLEM. (SIGN NOT CONS4F1D5050
BCD 2IDERED) 4F1D5060
REM 4F1D5070
BCD XXXXXX000011 FIXCON TABLE EXCEEDED. MORE THAN 100 DIFFE4F1D5080
BCD RENT FIXED POINT CONSTANTS IN THIS PROGRAM. (SIGN NOT CONSID4F1D5090
BCD 1ERED) 4F1D5100
REM 4F1D5110
BCD XXXXXX001635 MORE THAN SIX CHARACTERS IN SOME SYMBOL.4F1D5120
REM 4F1D5130
BCD XXXXXX001643 ILLEGAL PUNCTUATION IN THIS STATEMENT.4F1D5140
REM 4F1D5150
BCD XXXXXX002034 MACHINE ERROR. CAS CONTRADICTS PREVIOUS TL4F1D5160
BCD 1Q. 4F1D5170
REM 4F1D5180
BCD XXXXXX002062 REPEATED CHECK SUM ERROR IN READING DRUM 34F1D5190
BCD 1. 4F1D5200
REM 4F1D5210
BCD XXXXXX002266 MACHINE ERROR. INDEX FAILURE. 4F1D5220
REM 4F1D5230
BCD XXXXXX002433 REPEATED FAILURE IN READING STATE C FROM D4F1D5240
BCD 2RUM 4. 4F1D5250
REM 4F1D5260
BCD XXXXXX002434 REPEATED FAILURE IN READING STATE B FROM D4F1D5270
BCD 2RUM 3. 4F1D5280
REM 4F1D5290
BCD XXXXXX002435 REPEATED FAILURE IN READING STATE D FROM D4F1D5300
BCD 2RUM 2. 4F1D5310
REM 4F1D5320
BCD XXXXXX002436 REPEATED FAILURE IN READING STATE A FROM D4F1D5330
BCD 2RUM 1. 4F1D5340
REM 4F1D5350
BCD XXXXXX002523 MACHINE ERROR. INDEX FAILURE. 4F1D5360
REM 4F1D5370
BCD XXXXXX002565 REPEATED CHECK SUM ERROR IN READING TABLES4F1D5380
BCD 4FROM DRUM 2, 3 OR 4, 4F1D5390
REM 4F1D5400
BCD XXXXXX002577 NON-NUMERIC CHARACTER IN NUMERIC FIELD OR 4F1D5410
BCD 8POSSIBLE MISSING PUNCTUATION BETWEEN FIELDS. 4F1D5420
REM 4F1D5430
BCD XXXXXX002656 A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5440
REM 4F1D5450
BCD XXXXXX002666 A SUBSCRIPT HAS A DOUBLE MULTIPLIER. 4F1D5460
REM 4F1D5470
BCD XXXXXX002673 A SUBSCRIPT MULTIPLIER IS NOT A CONSTANT. 4F1D5480
REM 4F1D5490
BCD XXXXXX002720 MORE THAN SIX CHARACTERS IN A SYMBOL WITHI4F1D5500
BCD 8N A SUBSCRIPT OR POSSIBLE MISSING PUNCTUATION. 4F1D5510
REM 4F1D5520
BCD XXXXX002722 THERE IS AN ILLEGAL CHARACTER IN SOME SUBS4F1D5530
BCD 2SCRIPT. 4F1D5540
REM 4F1D5550
BCD XXXXXX002741 A SUBSCRIPT HAS A DOUBLE ADDEND. 4F1D5560
REM 4F1D5570
BCD XXXXXX002744 A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5580
REM 4F1D5590
BCD XXXXXX002764 A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5600
REM 4F1D5610
BCD XXXXXX003023 A SUBSCRIPT ADDEND IS NOT A CONSTANT. 4F1D5620
REM 4F1D5630
BCD XXXXXX003026 THERE IS A PARENTHESIS MISSING IN SOME SUB4F1D5640
BCD 4SCRIPT COMBINATION. 4F1D5650
REM 4F1D5660
BCD XXXXXX003064 A 3 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D5670
BCD 7NOT HAVE A DIMENSION STATEMENT ENTRY. 4F1D5680
REM 4F1D5690
BCD XXXXXX003151 A 2 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D5700
BCD 7NOT HAVE A DIMENSION STATEMENT ENTRY. 4F1D5710
REM 4F1D5720
BCD XXXXXX003254 PROGRAM EXPECTS COMMA OR END OF STATEMENT.4F1D5730
REM 4F1D5740
BCD XXXXXX003262 PROGRAM EXPECTS COMMA OR RIGHT PARENTHESIS4F1D5750
BCD 1. 4F1D5760
REM 4F1D5770
BCD XXXXXX003270 PROGRAM EXPECTS LEFT PARENTHESIS OR END OF4F1D5780
BCD 2 STATEMENT. 4F1D5790
REM 4F1D5800
BCD XXXXXX003272 MACHINE ERROR. AC GREATER THAN OCTAL 77. 4F1D5810
REM 4F1D5820
BCD 9XXXXXX003274 PROGRAM EXPECTS END OF STATEMENTS 4F1D5830
REM 4F1D5840
BCD 9XXXXXX003300 PROGRAM EXPECTS LEFT PARENTHESIS. 4F1D5850
REM 4F1D5860
BCD 9XXXXXX003304 PROGRAM EXPECTS RIGHT PARENTHESIS. 4F1D5870
REM 4F1D5880
BCD 7XXXXXX003310 PROGRAM EXPECTS COMMA. 4F1D5690
REM 4F1D5900
BCD XXXXXX003314 SYMBOL BEGINS NUMERIC WHICH IS ILLEGAL IN 4F1D5910
BCD 3THIS CONTEXT. 4F1D5920
BCD XXXXXX003316 SYMBOL BEGINS NON-NUMERIC WHICH IS ILLEGAL4F1D5940
BCD 3 IN THIS CONTEXT. 4F1D5950
REM 4F1D5960
REM STATE A 4F1D5970
REM 4F1D5980
BCD XXXXXX003542 THE CHARACTER $ OCCURS IN THIS STATEMENT 4F1D5990
BCD 8 SOMEWHERE OTHER THAN IN HOLLERITH TEXT. 4F1D6000
REM 4F1D6010
BCD XXXXXX003545 THE ILLEGAL CHARACTER (0-8-2 PUNCH) OCC4F1D6020
BCD 4URS INTHIS STATEMENT. 4F1D6030
REM 4F1D6040
BCD XXXXXX003550 THE ILLEGAL CHARACTER -0 (11-8-2 PUNCH) O 4F1D6050
BCD 4CCURS IN THIS STATEMENTS. 4F1D6060
REM 4F1D6070
BCD XXXXXX003553 THE ILLEGAL CHARACTER +0 112-6-2 PUNCH) 0 4F1D6080
BCD 4CCURS IN THIS STATEMENT. 4F1D6090
REM 4F1D6100
BCD XXXXXX003556 THE ILLEGAL CHARACTER - (8-4 PUNCH) OCCUR 4F1D6110
BCD 4S IN THIS STATEMENT. 4F1D6120
REM 4F1D6130
BCD XXXXXX003561 THE NON BCD CHARACTER 001010 HAS BEEN RE 4F1D6140
BCD 8AD FROM TAPE WHILE PROCESSING THIS STATEMENT. 4F1D6150
REM 4F1D6160
BCD 8XXXXXX003615 TOO MANY RIGHT PARENTHESIS. 4F1D6170
REM 4F1D6180
BCD XXXXXX003624 NON-ARITHMETIC STATEMENT OF A TYPE WHICH I4F1D6190
BCD 4S NOT IN DICTIONARY. 4F1D6200
REM 4F1D6210
BCD XXXXXX004055 TOO FEW RIGHT PARENTHESES. 4F1D6220
REM 4F104230
BCD 7XXXXXX004225 PROGRAM EXPECTS TO . 4F1D6240
REM 4F106250
BCD XXXXXX004304 A VARIABLE IN THIS LIST APPEARED PREVIOUSL4F1D6260
BCD 5Y IN ADIMENSION STATEMENT. 4F1D6270
REM 4F1D6280
BCD XXXXXX004323 MORE THAN 3 DIMENSIONS OR MISSING RIGHT PA4F1D6290
BCD 2RENTHESIS. 4F1D6300
REM 4F1D6310
BCD XXXXXX004444 A SUBROUTINE OR FUNCTION STATEMENT APPEARS4F1D6320
BCD LATER THAN THE FIRST STATEMENT OF THE PROGRAM. PROBABLY ATTE4F1D6330
BCD MPT TOBATCH COMPILE WITHOUT SENSE SWITCH 6 DOWN. 4F1D6340
REM 4F1D6350
BCD XXXXXX004544 A RETURN STATEMENT HAS OCCURRED IN A PROGR4F1D6360
BCD AM NOTDEFINED TO BE A SUBROUTINE OR FUNCTION SUBPROGRAM. 4F1D6370
REM 4F1D6380
BCD XXXXXX004663 SENSE SWITCH SETTING OTHER THAN 0,1 OR 2 4F1D6390
BCD 7OR MORE THAN 5 SETTINGS OR WRONG FORMAT. 4F1D6400
REM 4F1D6410
BCD 8XXXXXX004705 VARIABLE FORMAT NUMBER. 4F1D6420
REM 4F1D6430
BCD 6XXXXXX004707 NO FORMAT NUMBER. 4F1D6440
REM 4F1D6450
BCD XXXXXX005170 MORE THAN SIX CHARACTERS IN SOME SYMBOL. 4F1D6460
REM 4F1D6470
BCD XXXXXX005200 ILLEGAL CHARACTER IN THIS LIST. 4F1D6480
REM 4F1D6490
BCD XXXXXX005260 MORE THAN THREE LEVELS IN THIS LIST (NESTE4F1D6500
BCD 30 PARENTHESIS). 4F1D6510
REM 4F1D6520
BCD XXXXXX005263 ATTEMPT TO SPECIFY SUBSCRIPT RANGE WITHO 4F1D6530
BCD 4UT USEOF PARENTHESIS. 4F1D6540
REM 4F1D6550
BCD XXXXXX005305 INCOMPLETE STATEMENT OR INCOMPLETE CLOSURE4F1D6560
BCD 3OF PARENTHESIS. 4F1D6570
REM 4F1D6580
BCD XXXXXX005306 ILLEGAL CHARACTER IN D0 SPECIFICATION IN L4F1D6590
BCD 1IST, 4F1D6600
REM 4F1D6610
BCD 8XXXXXX005401 TOO MANY RIGHT PARENTHESIS. 4F1D6620
REM 4F1D6630
BCD 6XXXXXX005416 CONSTANT IN LIST. 4F1D6640
REM 4F1D6650
BCD 8XXXXXX005552 TOO MANY LEFT PARENTHESIS. 4F1D6660
REM 4F1D6670
BCD XXXXXX005607 ILLEGAL CHARACTER IN THIS STATEMENT. 4F1D6680
REM 4F1D6690
BCD XXXXXX005715 A TAPE CHECK HAS OCCURRED THREE TIMES IN A4F1D6700
BCD TTEMPTING TO READ A RECORD OF THE SOURCE PROGRAM FROM TAPE 24F1D6710
BCD . ATTEMPT TO READ ABANDONED. THE STATEMENT INVOLVED IS NOT P4F1D6720
BCD ROCESSED. IF THE RECORD WAS NOT THE LAST RECORD OF A STATEME4F1D6730
BCD NT THEFOLLOWING DIAGNOSTIC COMMENT IS MEANINGLESS AND WAS C 4F1D6740
BCD AUSED BY AN ATTEMPT TO PROCESS A PARTIAL STATEMENT. 4F1D6750
REM 4F1D6760
BCD XXXXXX006042 ILLEGAL USE OF FLOATING POINT VARIABLE. 4F1D6770
REM 4F1D6780
REM STATE B 4F1D6790
REM 4F1D6800
BCD 8XXXXXX003527 TOO MANY CHARACTERS IN SYMBOL, 4F1D6810
REM 4F1D6820
BCD 8XXXXXX003602 ILLEGAL USE OF . CHARACTER. 4F1D6830
REM 4F1D6840
BCD 7XXXXXX003613 ARGREG SIZE EXCEEDED. 4F1D6850
REM 4F1D6860
BCD XXXXXX003615 ILLEGAL USE OF HOLLERITH SPECIFICATION. 4F1D6870
REM 4F1D6880
BCD 8XXXXXX003654 NON-ZERO LEVEL REDUCTION. 4F1D6890
REM 4F1D6900
BCD 8XXXXXX003671 ILLEGAL USE OF = SIGN. 4F1D6910
REM 4F1D6920
BCD 8XXXXXX003724 ILLEGAL USE OF . SIGN, 4F1D6930
REM 4F1D6940
BCD XXXXXX004046 THE NUMERIC CONTROL OF A HOLLERITH TEXT IS4F1D6950
BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H. 4F1D6960
REM 4F1D6970
BCD 8XXXXXX004136 LAMBDA TABLE SIZE EXCEEDED, 4F1D6980
REM 4F1D6990
BCD 6XXXXXX004140 BETA TABLE SIZE EXCEEDED. 4F1D7000
REM 4F1D7010
BCD 8XXXXXXG04143 ALPHA TABLE SIZE EXCEEDED, 4F1D7020
REM 4F1D7030
BCD XXXXXX0C4647 FLOATING POINT CONSTANT OUTSIDE RANGE OF M4F1D7040
BCD 2ACHINE. 4F1D7050
REM 4F1D7060
REM STATE C 4F1D7070
REM 4F1D7080
BCD XXXXXX004347 CHECK SUM ERROR IN READING FIXED POINT CON4F1D7090
BCD 3STANT FROM DRUM 2. 4F1D7100
REM 4F1D7110
REM STATE D 4F1D7120
REM 4F1D7130
BCD 6XXXXXX003501 MIXED EXPRESSION. 4F1D7140
REM 4F1D7150
BCD 6XXXXXX003503 MIXED EXPRESSION 4F1D7160
REM 4F1D7170
BCD XXXXXXOO5233 CHECK SUM ERROR IN READING SIGMA TABLE ENT
BCD 3RY FROM DRUM 2.
REM
REM LOCATIONS OF STAE B,C,D CALLS IN 8K SECTION ONE.
REM
BCD 8XXXXXX006412 TOO MANY CHARACTERS IN SYMBOL.
REM
BCD 8XXXXXXOO6465 ILLEGAL USE OF . CHARACTER,
REM
BCD 7XXXXXX006476 ARGREG SIZE EXCEEDED.
REM
BCD XXXXXX006500 ILLEGAL USE OF HOLLERITH SPECIFICATION.
REM
BCD 8XXXXXX006537 NON-ZERO LEVEL REDUCTION.
REM
BCD 8XXXXXX006554 ILLEGAL USE OF = SIGN.
REM
BCD 8XXXXXX006554 ILLEGAL USE OF . SIGN,
REM
BCD XXXXXX006731 THE NUMERIC CONTROL OF A HOLLERITH TEXT IS
REM
BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H.
REM
BCD 8XXXXXX007021 LAMBDA TABLE SIZE EXCEEDED.
REM
BCD 6XXXXXX007023 BETA TABLE SIZE EXCEEDED.
REM
BCD 8XXXXXX007026 ALPHA TABLE SIZE EXCEEDED.
REM
BCD XXXXXX007532 FLOATING POINT CONSTANT OUTSIDE RANGE OF M
REM
BCD 2ACHINE.
REM
BCD XXXXXX010534 CHECK SUM ERROR TN READING FIXED POINT CON
BCD 3STANT FROM DRUM 2.
REM
BCD 6XXXXXX011216 MIXED EXPRESSION.
REM
BCD 6XXXXXX011220 MIXED EXPRESSION
REM
BCD XXXXXX012750 CHECK SUM ERROR IN READING SIGMA TABLE ENT
BCD 3RY FROM DRUM 2.
REM
REM 4F1D7200
REM 4F1D7210
REM 1NITALIZATION RECORD F015. 4F1D7220
REM 4F1D7230
BCD XXXXXX000553 FIVE CONSECUTIVE FAILURES IN ATTEMPTING T04F1D7240
BCD 7 WRITESTATE A OF SECTION ONE ON DRUM 1. 4F1D7250
REM 4F1D7260
BCD XXXXXX000560 FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7270
BCD 7 WRITESTATE D OF SECTION ONE ON DRUM 2. 4F1D7280
REM 4F1D7290
BCD XXXXXX000563 FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7300
BCD 7 WRITESTATE B OF SECTION ONE ON DRUM 3, 4F1D7310
REM 4F1D7320
BCD XXXXXX000566 FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7330
BCD 7 WRITESTATE C OF SECTION ONE ON DRUM 4, 4F1D7340
REM 4F1D7350
BCD 2XXXXXXXXXXXX 4F1D7360
END 4F1D7370
REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME PART A = F0220000, F1P00010
REM ----------FILE: 185.PNG-----------------------------BEFORE LINE ABOVE
ORG 0 F1P00020
PZE ORG1PA,,ORG1PA F1P00030
PZE END1PA-1 F1P00040
REM F1P00050
REM THIS IS PART A OF 2 PARTS OF SECTION ONE PRIME F1P00060
REM F1P00070
ORG1PA ORG 614 F1P00080
NOP TO PERMIT STOP FOR TESTING RUNS, F1P00090
PARTA WEF 4 F1P00100
REM TABLE SAVING PROGRAM F1P00110
REM WRITE FIXCON WORD COUNT ON DRUM F1P00120
WRS 194 F1P00130
CLA FXCNIX-3 F1P00140
ARS 17 F1P00150
STO WORKCL F1P00160
CPY WORKCL F1P00170
CPY WORKCL F1P00180
REM PROGRAM FOR SAVING COMPAIL TABLE F1P00190
LXD BBOX,2 F1P00200
TXH A1PTS,2,0 F1P00210
TSX DIAG,4 STOP FOR NO INSTRUCTIONS COMPILED F1P00220
A1PTS WRS 147 F1P00230
LXA L(0),1 SAVE F1P00240
AA3PTS CPY CIB,1 CIT F1P00250
TXI AA1PTS,1,-1 BUFFER F1P00260
AA1PTS TXI AA2PTS,2,1 F1P00270
AA2PTS TXH AA3PTS,2,0 F1P00280
WEF 147 F1P00290
REW 147 F1P00300
A5PTS RTT TURN OFF TAPE CHECK F1P00310
NOP INDICATOR AND LIGHTS F1P00320
LXA L(4),1 F1P00330
LXA L(0),4 F1P00340
A14PTS RDS 147 F1P00350
A6PTS CPY COMP,4 COPY A RECORD OF COMPILED F1P00360
TXI A6PTS,4,-1 INSTRUCTIONS INTO STORAGE F1P00370
TRA A10PTS EOF F1P00380
WRS 219 EOR F1P00390
RTT F1P00400
TRA A11PTS TAPE CHECK ON F1P00410
WRS 146 F1P00420
CLA CMPREC COUNT EACH F1P00430
ADD L(1) COMPAIL F1P00440
STO CMPREC RECORD F1P00450
LXA L(2),1 F1P00460
LXA L(0),2 TRANSFER RECORD F1P00470
A9PTS CPY COMP,2 FROM STORAGE F1P00480
TXI A7PTS,2,-1 TO TAPE 2 F1P00490
A7PTS TXI A8PTS,4,1 F1P00500
A8PTS TXH A9PTS,4,0 F1P00510
TRA A14PTS F1P00520
A11PTS BST 147,0,1 PREPARE TO READ RECORD AGAIN F1P00530
TIX A14PTS-1,1,1 TEST FOR 2 TAPE CHECKS, F1P00540
TSX DIAG,4 STOP FOR 5TH READ CHECK F1P00550
A10PTS WEF 146 END OF COMPAIL ON TAPE 2 F1P00560
WRS 146 F1P00570
CPY CMPREC F1P00580
REM PROGRAM TO SAVE FORSUB TABLE F1P00590
LXD BK,1 F1P00600
TXL WEF,1,0 TEST FOR EMPTY TABLE F1P00610
LXA L(0),2 F1P00620
CPY FORSUB,2 F1P00630
TXI A15PTS,2,-1 F1P00640
A15PTS TXI A15PTS+1,1,1 F1P00650
TXH A15PTS-2,1,0 F1P00660
WEF WEF 146 F1P00670
REM PROGRAM FOR SAVING FLOCON TABLE F1P00680
FL00 LXD FLCNIX-3,4 (N) F1P00690
PXD 0,4 F1P00700
ARS 18 F1P00710
STO FLSIZE LOAD FLSIZE WITH N F1P00720
TXL FL09,4,0 IS TABLE EMPTY F1P00730
CAL MSK F1P00740
ANS FLCNIX-2 F1P00750
ANS FLCNIX-3 F1P00760
CLA FLCNIX-3 GET NUMBER OF WORDS IN FLOCON INCLUDING CK SUMS F1P00770
SUB FLCNIX-2 F1P00780
STA FL04 SAVE L F1P00790
FL01 LXA L(5),2 SET TO TRY FIVE TIMES IF CK SUM FAILS F1P00800
FL02 LXA FL04,4 (L) F1P00810
RDR 2 F1P00820
LDA FLCNIX-2 F1P00830
FL03 CPY OTA+450,4 COPY FLOCON FROM DRUM F1P00840
TIX FL03,4,1 F1P00850
FL04 PXD **,0 F1P00860
LXA FL04,4 COMPUTE CK SUM OF ENTRIES VERSUS CK SUM OF CK F1P00870
LXA L(50),1 SUMS. TABLE IS OF FORM A CK SUM FOR FIFTY WORDS F1P00880
FL05 ACL OTA+450,4 FOLLOWED BY THE FIFTY WORDS F1P00890
COM F1P00900
TNX ERROR,4,1 F1P00910
FL06 ACL OTA+450,4 F1P00920
TNX FL07,4,1 FINAL ENRTY , GET OUT OF CK SUM LOOP F1P00930
TIX FL06,1,1 F1P00940
COM F1P00950
TXI FL05,1,49 F1P00960
FL07 COM F1P00970
TZE FL08 TEST CK SUM F1P00980
TIX FL02,2,1 CK SUM FAILED, TRY AGAIN F1P00990
TSX DIAG,4 CK SUM FAILED FIVE TIMES F1P01000
FL08 LXA FL04,4 (L) F1P01010
FL09 WTB 2 F1P01020
CPY FLSIZE F1P01030
TXL PROFOR,4,0 IS FLOCON EMPTY F1P01040
LXA L(50),1 F1P01050
FL10 TNX ERROR,4,1 F1P01060
FL11 CPY OTA+450,4 F1P01070
TNX PROFOR,4,1 FINISHED, GET OUT OF LOOP F1P01080
TIX FL11,1,1 F1P01090
TXI FL10,1,49 F1P01100
ERROR TSX DIAG,4 INDEX RAN OUT AT CK SUM F1P01110
REM ROUTINE TO PROCESS FORMAT TABLE F1P01120
PROFOR TSX TAP00,1 F1P01130
HTR 10 F1P01140
OTA F1P01150
TSX WAT00,1 F1P01160
HTR 10 F1P01170
OTA F1P01180
REM ROUTINE TO CONVERT DIM TABLES TO SIZ TABLE. F1P01190
ADD00 LXD DIM1IX-3,4 ENTRY COUNT F1P01200
TXL ADD07,4,0 TABLE EMPTY F1P01210
ADD01 LXA L(5),2 F1P01220
ADD02 RDR 3 F1P01230
LXA L(0),1 F1P01240
LDA ORGDM1 F1P01250
PXD 0,0 F1P01260
ADD03 CPY OTA,1 COPY NAME F1P01270
CPY OTA+1,1 COPY N1 F1P01280
TXI ADD04,1,-2 F1P01290
ADD04 CAD GARBGE COPY AND SUM CK SUMS F1P01300
TIX ADD03,4,1 F1P01310
COM F1P01320
LXD DIM1IX-3,4 F1P01330
LXA L(0),1 F1P01340
ADD05 ACL OTA,1 SUM ENTRIES F1P01350
ACL OTA+1,1 F1P01360
TXI ADD06,1,-2 F1P01370
ADD06 TIX ADD05,4,1 F1P01380
COM F1P01390
TZE ADD08 F1P01400
LXD DIM1IX-3,4 CHECK SUM ERROR, TRY AGAIN F1P01410
TIX ADD02,2,1 F1P01420
TSX DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM F1P01430
ADD07 LXA L(0),1 F1P01440
ADD08 SXD NEWBAS,1 F1P01450
REM NOW READ DIM2 TABLE F1P01460
LXD DIM2IX-3,4 F1P01470
TXL ADD18,4,0 TABLE EMPTY F1P01480
ADD09 LXA L(5),2 F1P01490
ADD10 RDR 3 F1P01500
LXD NEWBAS,1 F1P01510
LDA ORGDM2 F1P01520
PXD 0,0 F1P01530
ADD11 CPY OTA,1 COPY NAME F1P01540
CPY OTA+1,1 COPY N1 N2 F1P01550
TXI ADD12,1,-2 F1P01560
ADD12 CAD GARBGE COPY AND SUM CK SUMS F1P01570
TIX ADD11,4,1 F1P01580
COM F1P01590
LXD DIM2IX-3,4 F1P01600
LXD NEWBAS,1 F1P01610
ADD13 ACL OTA,1 F1P01620
ACL OTA+1,1 F1P01630
TXI ADD14,1,-2 F1P01640
ADD14 TIX ADD13,4,1 F1P01650
COM F1P01660
TZE ADD15 F1P01670
LXD DIM2IX-3,4 CK SUM ERROR TRY AGAIN F1P01680
TIX ADD10,2,1 F1P01690
TSX DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM F1P01700
ADD15 LXD DIM2IX-3,4 F1P01710
LXD NEWBAS,1 F1P01720
STZ WORKCL F1P01730
ADD16 CLA OTA+1,1 F1P01740
STA WORKCL F1P01750
LRS 53 F1P01760
MPY WORKCL N1*N2 F1P01770
STQ OTA+1,1 F1P01780
TXI ADD17,1,-2 F1P01790
ADD17 TIX ADD16,4,1 F1P01600
SXD NEWBAS,1 UPDATE NEWBAS FOR DIM3 ROUTINE F1P01810
REM NOW READ DIM3 TABLE. F1P01820
ADD18 LXD DIM3IX-3,4 F1P01830
TXL ADD28,4,0 DIM3 TABLE EMPTY F1P01840
ADD19 LXA L(5),2 F1P01850
ADD20 RDR 3 F1P01860
LXD NEWBAS,1 F1P01870
LDA ORGDM3 F1P01680
PXD 0,0 F1P01890
ADD21 CPY OTA,1 F1P01900
CPY OTA+1,1 F1P01910
CPY BUFFER,4 F1P01920
TXI ADD22,1,-2 F1P01930
ADD22 CAD GARBGE F1P01940
TIX ADD21,4,1 F1P01950
COM F1P01960
LXD DIM3IX-3,4 F1P01970
LXD NEWBAS,1 F1P01980
ADD23 ACL OTA,1 F1P01990
ACL OTA+1,1 F1P02000
ACL BUFFER,4 F1P02010
TXI ADD24,1,-2 F1P02020
ADD24 TIX ADD23,4,1 F1P02030
COM F1P02040
TZE ADD25 F1P02050
LXD DIM3IX-3,4 F1P02060
TIX ADD20,2,1 CK SUM FAILED TRY AGAIN F1P02070
TSX DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM F1P02080
ADD25 LXD DIM3IX-3,4 F1P02090
LXD NEWBAS,1 F1P02100
ADD26 CLA OTA+1,1 F1P02110
STZ WORKCL F1P02120
STA WORKCL F1P02130
LRS 53 F1P02140
MPY WORKCL N1*N2 F1P02150
MPY BUFFER,4 N3*(N1*N2) F1P02160
STQ OTA+1,1 F1P02170
TXI ADD27,1,-2 F1P02160
ADD27 TIX ADD26,4,1 F1P02190
NOP NOT USED. F1P02200
NOP NOT USED. F1P02210
REM NOW WRITE SIZ TABLE ON TAPE 2. F1P02220
ADD28 PXD 0,1 F1P02230
COM F1P02240
ADD DECR1 F1P02250
PDX 0,4 F1P02260
PXD 0,4 F1P02270
ARS 18 F1P02280
STO WORKCL F1P02290
ADD L(1) F1P02300
PAX 0,1 F1P02310
LXA L(0),2 F1P02320
PXD 0,0 F1P02330
ADD33 ACL OTA,2 COMPUTE CK SUM FOR SIZ TABLE F1P02340
TXI ADD32,2,-1 F1P02350
ADD32 TIX ADD33,4,1 F1P02360
SLW OTA,2 F1P02370
CLA DMASK F1P02380
ANS EIFNO F1P02390
WTB 2 F1P02400
CPY EIFNO F1P02410
CPY WORKCL F1P02420
TXL ADD31,1,1 F1P02430
LXA L(0),2 F1P02440
ADD29 CPY OTA,2 F1P02450
TXI ADD30,2,-1 F1P02460
ADD30 TIX ADD29,1,1 F1P02470
ADD31 WEF 2 F1P02480
WTB 2 WRITE SENSE SWITCH SETTINGS AS RE- F1P02490
LXA L(5),1 CORD ONE, FILE FIVE, TAPE TWO F1P02500
X0010 CPY ENDI1+5,1 F1P02510
TIX X0010,1,1 F1P02520
TSX TAP00,1 ASSEMBLE AND WRITE SUBDEF TABLE F1P02530
11 F1P02540
OTA F1P02550
TSX WAT00,1 F1P02560
11 F1P02570
OTA F1P02580
TSX TAP00,1 ASSEMBLE AND WRITE COMMON TABLE F1P02590
12 F1P02600
OTA F1P02610
TSX WAT00,1 F1P02620
12 F1P02630
OTA F1P02640
TSX TAP00,1 ASSEMBLE AND WRITE TABLE OF HOLLERITH ARGS F1P02650
13 F1P02660
OTA F1P02670
TSX WAT00,1 F1P02680
13 F1P02690
OTA F1P02700
TSX TAP00,1 ASSEMBLE TEIFNO FROM TAPE 4 F1P02710
HTR 0 F1P02720
HTR OTA F1P02730
STZ PAT15 INSURE DECREMENT IS CLEAR F1P02740
LXD OTA-1,4 LENGTH OF TEIFNO INTO I.R.4 F1P02750
TXL WRITE,4,1 IS TEIFNO EMPTY OR IS THERE A SINGLE ENTRY F1P02760
LXD PAT13,1 INITIALIZE I.R. TO STEP THROUGH TABLE F1P02770
SXD PAT14,4 SAVE WORD COUNT F1P02780
ISPLUS LXD PAT14,4 REINTIALIZE FOR FURTHER SEARCHING F1P02790
NEXT CLA OTA,1 PICK UP NEXT ENTRY IN TEIFNO F1P02800
TPL MASK HAS THIS BEEN PROCESSED F1P02810
SLW OTA,1 F1P02820
TXI ISTHRU,1,-1 NO, SET I.R. TO LOOK AT NEXT ENTRY F1P02830
ISTHRU TIX NEXT,4,1 HAVE ALL ENTRIES BEEN EXAMINED F1P02840
TRA WRITE YES, FINISHED F1P02850
MASK STA PAT15 STORE COMPERAND F1P02860
TXI RECOMP,1,-1 SET I.R.S TO START COMPARISON F1P02870
RECOMP PXD 0,1 F1P02880
PDX 0,2 F1P02890
TNX WRITE,4,1 HAVE ALL ENTRIES BEEN EXAMINED F1P02900
SXD PAT14,4 SAVE NUMBER OF ENTRIES YET TO BE TREATED F1P02910
PAT16 CLA OTA,2 PICK UP ENTRY TO BE COMPARED F1P02920
TMI NODUP NO SEARCH NECESSARY IF NEGATIVE F1P02930
ANA PAT11 ISOLATE EXTERNAL FORMULA NUMBER F1P02940
CAS PAT15 COMPARE TO REMAINING ENTRIES F1P02950
TRA NODUP NO DUPLICATE F1P02960
TRA PAT9 DUPLICATE F1P02970
NODUP TXI PAT8,2,-1 NO DUPLICATE, SET I.R. TO OBTAIN NEXT ENTRYF1P02980
REM FOR COMPARISON F1P02990
PAT8 TIX PAT16,4,1 HAVE ALL ENTRIES BEEN COMPARED F1P03000
TRA ISPLUS YES F1P03010
PAT9 CLA OTA,2 FLAG DUPLICATE ENTRY NEGATIVE F1P03020
SSM F1P03030
STO OTA,2 F1P03040
CLS OTA-1,1 F1P03050
STO OTA-1,1 F1P03060
TRA ISPLUS F1P03070
WRITE TSX WAT00,1 WRITE TEIFNO ON TAPE F1P03080
HTR 0 F1P03090
OTA F1P03100
TSX TAP00,1 ASSEMBLE TIFGO F1P03110
HTR 2 F1P03120
L(2TA) HTR 2TA F1P03130
REM START PROGRAM FOR MODIFICATION OF TIFGO WITH TEIFNO F1P03140
MFGTP CLA 2TA-1 GET NUMBER OF WORDS IN 2TA. F1P03150
TZE WFG00 EXIT FOR NO ENTRIES IN TABLE, F1P03160
PDX 0,2 SET INDEX B TO NUMBER OF WORDS, F1P03170
ARS 18 COMPUTE F1P03180
ADD L(2TA) 2TA F1P03190
STA MFG00 PLUS F1P03200
STA MFG03 NUMBER F1P03210
STA MFG05 OF F1P03220
STA MFG08 WORDS F1P03230
STA MFG09 IN F1P03240
STA MFG12 2TA F1P03250
STA MFG18 AND F1P03260
STA MFG20 INITIALIZE ADDRESSES F1P03270
CLA OTA-1 GET NUM WORDS IN OTA F1P03280
TNZ MFGOK TABLE EXISTS F1P03290
TRA TEIFER STOP FOR NO TABLE IN OTA F1P03300
MFGOK ARS 18 NUMBER WORDS PUT IN AC ADDRESS F1P03310
ADD L(OTA) ADD OTA ORIGIN F1P03320
STA MFG01 INITIALIZE ADDRESSES WITH F1P03330
STA MFG02 OTA + NUM WORDS F1P03340
STA MFG06 F1P03350
STA MFG07 F1P03360
STA MFG10 F1P03370
STA MFG11 F1P03380
STA MFG17 F1P03390
STA MFG19 F1P03400
MFG00 CLA 0,2 ADDR IS 2TA + NUM WORDS IN 2TA. (1) F1P03410
TPL MFG14 SIGN IS PLUS. F1P03420
STA E3 SAVE A1. F1P03430
LXD OTA-1,4 SET INDEX C TO NUM WORDS IN OTA.(2) F1P03440
MFG01 CLA 0,4 AL PRIME AND AL GO TO AC. F1P03450
ANA MSK ERASE AL PRIME IN AC. F1P03460
SUB E3 COMPARE TEIFNO ARGUMENT WITH A1. F1P03470
TZE MFG02 AL EQUALS ARGUMENT. F1P03480
TIX MFG01,4,1 COMP AL VS NEXT TEIFNO ENTRY. (3A1)F1P03490
CLA PAT13 F1P03500
TRA MFG03 F1P03510
MFG02 CLA 0,4 A1 PRIME AND A1L GO TO AC. F1P03520
ARS 18 A1 PRIME GOES TO ADDRESS OF AC F1P03530
MFG03 STA 0,2 (I) A1 PRIME REPLACES A1 F1P03540
MFG04 TXI MFG05,2,-1 TAKE WORD 2 OF TIFGO ENTRY F1P03550
MFG05 CLA 0,2 (1). AC DECK IS A2, ADDR IS A3 F1P03560
STA E3 SAVE A3 F1P03570
LXD OTA-1,4 (2) F1P03580
MFG06 CLA 0,4 A3 PRIME AND A3 GO TO AC F1P03590
ANA MSK ERASE A3 PRIME IN AC F1P03600
SUB E3 COMPARE TEIFNO ARGUMENT WITH A3 F1P03610
TZE MFG07 A3 EQUALS ARGUMENT F1P03620
TIX MFG06,4,1 (3A3) F1P03630
CLA PAT13 F1P03640
TRA MFG08 F1P03650
MFG07 CLA 0,4 A3 PRIME AND A3 GO TO AC F1P03660
ARS 18 A3 PRIME GOES TO ADDR OF AC F1P03670
MFG08 STA 0,2 (1). A3 PRIME REPLACES A3 F1P03680
MFG09 CLA 0,2 (1). A2 AND A3 PRIME GO TO AC F1P03690
ARS 18 A2 GOES TO ADDR OF AC F1P03700
STA E3 SAVE A2 F1P03710
LXD OTA-1,4 (2) F1P03720
MFG10 CLA 0,4 A2 PRIME AND A2 GO TO AC F1P03730
ANA MSK ERASE A2 PRIME IN AC F1P03740
SUB E3 COMPARE TEIFNO ARGUMENT WITH A2 F1P03750
TZE MFG11 A2 EQUALS ARGUMENT F1P03760
TIX MFG10,4,1 (3A2) F1P03770
CLA PAT13 F1P03780
TRA MFG12 F1P03790
MFG11 CLA 0,4 A2 PRIME AND A2 GO TO AC F1P03800
MFG12 STD 0,2 (1) A2 PRIME REPLACES A2 F1P03810
TIX MFG00,2,1 TAKE FIRST WORD OF NEXT 2TA ENTRY F1P03820
MFG13 TIX MFG13-1,2,1 TAKE SECOND WORD OF 2TA ENTRY F1P03830
TRA WFG00 EXIT TO TAPE WRITING PROGRAM F1P03840
MFG14 PAX 0,4 INTEGER N GOES TO INDEX C F1P03850
TRA MFG14+9,4 F1P03860
TRA MFG13 N EQUALS 7 NO MODIFICATION F1P03670
TRA MFG15 N EQUALS 6 F1P03880
TRA MFG04 N EQUALS 5 F1P03890
TRA MFG04 N EQUALS 4 F1P03900
TRA MFG04 N EQUALS 3 F1P03910
TRA MFG13 N EQUALS 2 NO MODIFICATION F1P03920
TRA MFG13 N EQUALS 1 NO MODIFICATION F1P03930
TRA MFG15 N EQUALS 0 F1P03940
MFG15 TXI MFG16,2,-1 TAKE WORD 2 OF 2TA ENTRY F1P03950
MFG16 LXD OTA-1,4 (2) F1P03960
MFG17 CLA 0,4 K PRIME AND K GO TO AC F1P03970
ANA MSK ERASE K PRIME F1P03980
MFG18 SUB 0,2 (1). COMPARE K WITH TEIFNO ARGUMENTF1P03990
TZE MFG19 K EQUALS ARGUMENT F1P04000
TIX MFG17,4,1 (3K) F1P04010
CLA PAT13 F1P04020
TRA MFG20 F1P04030
MFG19 CLA 0,4 K PRIME AND K GO TO AC F1P04040
ARS 18 K PRIME GOES TO ADDRESS OF AC F1P04050
MFG20 STA 0,2 (1). K PRIME REPLACES K F1P04060
TIX MFG00,2,1 TAKE FIRST WORD OF NEXT 2TA ENTRY F1P04070
WFG00 TSX WAT00,1 WRITE 2TA ON TAPE F1P04080
2 F1P04090
HTR 2TA F1P04100
TSX TAP00,1 ASSEMBLE TRAD F1P04110
HTR 3 F1P04120
L(3TA) HTR 3TA F1P04130
REM PROGRAM FOR MODIFICATION OF TRAD WITH TEIFNO F1P04140
MTRTP CLA 3TA-1 GET NUM OF WORDS IN 3TA F1P04150
TZE WTR00 NO ENTRIES IN TABLE F1P04160
PDX 0,2 NUMBER OF WORDS PUT IN INDEX B F1P04170
ARS 18 RESET ADDRESSES F1P04180
ADD L(3TA) F1P0419O
STA MTR02 F1P04200
STA MTR04 F1P04210
CLA OTA-1 GET NUMBER WORDS IN OTA. F1P04220
TNZ MTROK TABLE EXISTS F1P04230
TRA TEIFER STOP FOR NO TABLE IN OTA F1P04240
MTROK ARS 18 PUT NUMBER WORDS IN AC ADDRESS F1P04250
ADD L(OTA) ADD OTA ORIGIN F1P04260
STA MTR01 INITIALIZE ADDRESS F1P04270
MTR00 LXD OTA-1,4 SET INDEX C TO NUM WORDS IN OTA F1P04280
MTR01 CLA 0,4 A SUB I PRIME AND A SUB I GO TO AC F1P04290
STD E3 SAVE A SUB I PRIME F1P04300
ANA MSK ERASE SUB I PRIME F1P04310
MTR02 SUB 0,2 ADDR IS 3TA + NUM WORDS IN 3TA (1) F1P04320
TZE MTR03 A SUB I EQUALS ARGUMENT F1P04330
TIX MTR01,4,1 A SUB I NOT EQUAL TO ARGUMENT F1P04340
CLA PAT13 F1P04350
TRA MTR04 F1P04360
MTR03 CLA E3 A SUB I PRIME GOES TO AC DECR. F1P04370
ARS 18 A SUB I PRIME GOES TO AC ADDR. F1P04380
MTR04 STA 0,2 (1). A SUB I PRIME REPLACES A SUB IF1P04390
TIX MTR00,2,1 TAKE NEXT WORD OF 3TA F1P04400
WTR00 TSX WAT00,1 ALL WORDS OF 3TA EXAMINED SO F1P04410
3 WRITE 3TA ON TAPE F1P04420
3TA F1P04430
AD000 TSX TAP00,1 ASSEMBLE TDO F1P04440
1 F1P04450
OATDO 1TA ORIGIN OF ASSEMBLED TDO F1P04460
REM PROGRAM FOR MODIFICATION OF TDO WITH TEIFNO F1P04470
MDOTP CLA 1TA-1 GET NUMBER OF WORDS IN ITA F1P04480
TZE WDO00 EXIT FOR NO WORDS IN TABLE F1P04490
PDX 0,2 NUMBER OF WORDS IN ITA PUT IN IRB F1P04500
ARS 18 NUM WORDS PUT IN AC ADDR F1P04510
ADD OATDO ADD ORIGIN OF ASSEMBLED TDO F1P04520
STA MDO00 INITIALIZE ADDRESSES F1P84530
STA MDO06 F1P04540
STA MDO30 F1P04550
CLA OTA-1 GET NUMBER WORDS IN OTA F1P04560
MDOOK ARS 18 PUT NUMBER WORDS IN AC ADDRESS F1P04570
ADD L(OTA) ADD OTA ORIGIN AND F1P04580
STA MDO02 INITIALIZE ADDRESSES F1P04590
STA MDO03 F1P04600
STA MDO04 F1P04610
STA MDO041 F1P04620
MDO00 CLA 0,2 ADDR IS ITA + NUMBER WORDS (1) F1P04630
TPL MDO01 SIGN OF WORD IS PLUS F1P04640
SSP CHANGE SIGN OF WORD IN TABLE F1P04650
MDO30 STO 0,2 F1P04660
TRA MDO07 F1P04670
MDO01 ANA MSK ERASE DECR IN AC F1P04680
STA E1 SAVE BETA F1P04690
LXD OTA-1,4 SET INDEX C TO NUM WORDS IN OTA F1P04700
TXH MDO02,4,0 TEST FOR TEIFNO F1P04710
TRA TEIFER STOP FOR NO TEIFNO F1P04720
MDO02 CLA 0,4 BETA PRIME AND BETA GO TO AC F1P04730
ANA MSK ERASE BETA PRIME F1P04740
SUB E1 BETA COMPARED WITH TABLE ARGUMENT F1P04750
TZE MDO03 BETA EQUALS ARGUMENT F1P04760
TIX MDO02,4,1 BETA NOT EQUAL TO ARGUMENT F1P04770
CLA PAT13 F1P04780
TRA MDO06 F1P04790
MDO03 CLA 0,4 BETA PRIME AND BETA GO TO AC F1P04800
STD E2 SAVE DECR OF FIRST POSSIBILITY F1P04810
TNX MDO08,4,1 SEE IF THERE ARE 2 ENTRIES FOR F1P04820
MDO04 CLA 0,4 ONE ARGUMENT F1P04830
ANA MSK ERASE DECR IN AC F1P04840
SUB E1 F1P04650
TZE MDO041 THERE ARE 2 ENTRIES F1P04860
MDO08 CLA E2 THERE IS ONLY ONE ENTRY F1P04870
TRA MDO05 FOR THIS ARGUMENT F1P04860
MDO041 CLA 0,4 F1P04890
MDO05 ARS 18 F1P04900
MDO06 STA 0,2 (I)* BETA PRIME REPLACES BETA F1P04910
MDO07 TIX MDO00,2,5 TAKE NEXT ENTRY IN ITA F1P04920
WDO00 TSX WAT00,1 WRITE TDO ON TAPE F1P04930
HTR 1 F1P04940
T0T1 HTR 1TA F1P04950
RTB 1 F1P04960
TRA 4 GO TO 1-CS FOR PART B OF ONE PRIME F1P04970
DMASK 0,0,32767 F1P04980
PAT11 OCT 77777 F1P04990
PAT13 HTR 0 F1P05000
PAT14 HTR 0 F1P05010
PAT15 HTR 0 F1P05020
GARBGE BSS 1 F1P05030
WORKCL BSS 1 F1P05040
NEWBAS BSS 1 F1P05050
BUFFER BES 90 F1P05060
E1PTS BSS 1 F1P05070
FLSIZE BSS 1 F1P05080
CMPREC BSS 1 F1P05090
END1PA ORG 1650 F1P05100
1TAM1 BSS 1 NO OF WORDS IN BLOCK F1P05110
1TA BSS 750 BLOCK FOR TABLE ASSEMBLING F1P05120
REM F1P05130
REM F1P05140
REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME PART B = F0240000. F1P05150
ORG 0 F1P05160
PZE ORG1PB,,ORG1PB F1P05170
PZE END1PB F1P05180
REM F1P05190
REM THIS IS PART B OF 2 PARTS OF SECTION ONE PRIME F1P05200
REM F1P05210
ORG1PB ORG 327 F1P05220
NOP TO PERMIT A STOP FOR TESTING USE. F1P05230
TSX TAP00,1 ASSEMBLE FORVAL F1P05240
TNT6 HTR 6 F1P05250
TOT6 HTR 6TA F1P05260
LXD 6TA-1,4 TEST FOR ENTRIES IN FORVAL, IF NONE WRITE F1P05270
TXL CLMD09,4,0 IDENTIFICATION WORD AND ZERO WORD. F1P05280
REM F1P05290
TSX TAP00,1 ASSEMBLE TABLE OF FIRST, LAST FORMULA F1P05300
16 NUMBERS OF CALL STATEMENTS. F1P05310
L16TA 16TA F1P05320
REM F1P05330
LXD 16TA-1,2 TEST FOR ANY ENTRIES IN CALL NUMBER TABLE, F1P05340
TXL CLMD09,2,0 IF NONE WRITE OUT FORVAL TABLE. F1P05350
REM F1P05360
REM THERE ARE ENTRIES IN BOTH FORVAL AND CALL NUMBER TABLES. F1P05370
REM THEREFORE THERE MAY BE SOME NUMBER IN FORVAL WHICH MUST BE F1P05380
REM REPLACED WITH THE LAST NUMBER RELATED TO A CALL STATEMENT. F1P05390
REM THE PROGRAM TO SEARCH AND REPLACE IS BASED UPON THE TWO F1P05400
REM TABLES BEING ORDERED BY MAGNITUDE OF INTERNAL FORMULA F1P05410
REM NUMBERS. THIS PERMITS A SINGLE PASS OVER BOTH, F1P05420
REM F1P05430
STZ WORKCL F1P05440
LXA L(0),1 PREPARE FOR FORWARD SEARCH. F1P05450
LXD 6TA-1,4 NO OF ENTRIES IN FORVAL. F1P05460
PXD ,2 F1P05470
ARS 18 F1P05480
ADD L16TA F1P05490
STA *+1 F1P05500
REM F1P05510
CLMD01 CLA ..,2 GET NEXT ENTRY IN CALL TABLE. F1P05520
STD WORKCL DIVIDE ENTRY INTO FIRST IN AC, LAST IN CS. F1P05530
ANA MSK F1P05540
ALS 18 F1P05550
CLMD02 CAS 6TA,1 COMPARE CALL FIRST IN AC TO NEXT FORVAL. F1P05560
TXI CLMD04,1,-1 CALL GREATER THAN FORVAL F1P05570
TRA CLMD03 CALL EQUAL FORVAL. F1P05580
TIX CLMD01,2,1 GO FOR NEXT CALL ENTRY IF ANY. OTHERWISE F1P05590
TRA CLMD09 GO WRITE FORVAL TABLE. F1P05600
REM F1P05610
CLMD03 CLA WORKCL REPLACE FORMULA NUMBER IN FORVAL WHICH IS F1P05620
STD 6TA,1 FIRST RELATED TO CALL WITH LAST. F1P05630
TXI *+1,1,-1 F1P05640
CLMD04 TIX CLMD02,4,1 GO ON WITH SEARCH IF THERE ARE MORE FORVALSF1P05650
REM IF NOT GO WRITE FORVAL TABLE. F1P05660
REM F1P05670
CLMD09 TSX WAT00,1 F1P05680
HTR 6 FORVAL F1P05690
HTR 6TA ON TAPE F1P05700
CLA 6TA-1 GET NUMBER OF WORDS IN FORVAL F1P05710
TNZ WFD00 TABLE EXISTS F1P05720
TRA A4VAR EXIT 10 ASSEMBLE NEXT TABLE F1P05730
WFD00 WRS 194 PREPARE TO WRITE FORVAL ON DRUM F1P05740
WFD01 PDX 0,1 SET INDEX A TO NUM OF WORDS F1P05750
LXA WFD01,2 SET INDEX B TO ZERO F1P05760
ARS 18 PUT NUM OF WORDS IN AC F1P05770
ADD TOT6 F1P05780
STA WFD04 INITIALIZE F1P05790
STA WFD07 F1P05800
SUB L(1) ADDRESSES F1P05810
STA WFD03 F1P05820
STA WFD06 F1P05830
TXI WFD02,1,-1 SUBTRACT ONE FROM INDEX A F1P05840
WFD02 CLM COMPUTE CHECK SUM F1P05850
WFD03 ACL 0,1 FOR EACH FORVAL F1P05860
WFD04 ACL 0,1 ENTRY AND SAVE IN F1P05870
SLW FRCHS,2 SEPARATE TABLE F1P05880
TXI WFD05,2,-1 F1P05890
WFD05 TIX WFD02,1,2 TEST END OF FORVAL ENTRIES F1P05900
LXA WFD01,2 SET INDEX B TO ZERO F1P05910
LXD 6TA-1,1 F1P05920
LDA DRL02 F1P05930
TXI WFD06,1,-1 F1P05940
WFD06 CPY 0,1 WRITE FORVAL F1P05950
WFD07 CPY 0,1 ENTRY F1P05960
TNX WFD08,1,2 TEST END OF FORVAL ENTRIES F1P05970
CPY FRCHS,2 WRITE CHECK SUM F1P05980
TXI WFD06,2,-1 FOR ABOVE ENTRY F1P05990
WFD08 CPY FRCHS,2 WRITE CHECK SUM FOR LAST ENTRY F1P06000
CPY FRCON WRITE END OF TABLE SIGNAL F1P06010
A4VAR TSX TAP00,1 ASSEMBLE FORVAR. F1P06020
TNT5 HTR 5 F1P06030
HTR 5TA F1P06040
TSX WAT00,1 WRITE FORVAR ON TAPE F1P06050
HTR 5 F1P06060
HTR 5TA F1P06070
TSX TAP00,1 ASSEMBLE FORTAG F1P06080
HTR 4 F1P06090
HTR 4TA F1P06100
TSX WAT00,1 WRITE FORTAG ON TAPE F1P06110
HTR 4 F1P06120
HTR 4TA F1P06130
REM PROGRAM FOR PROCESSING FREQUENCY TABLE. FRET F1P06140
TSX TAP00,1 ASSEMBLE FRET. F1P06150
HTR 7 F1P06160
TOT7 HTR 7TA ORIGIN OF ASSEMBLED FRET, F1P06170
MFRTP CLA 7TA-1 GET NUM OF WORDS IN TABLE F1P06180
TZE WFR00 EXIT FOR EMPTY TABLE F1P06190
PDX 0,2 SET INDEX B TO NUM WORDS IN TABLE F1P06200
ARS 18 PUT NUMBER IN AC ADDRESS AND F1P06210
ADD TOT7 INITIALIZE ADDRESSES F1P06220
STA MFR00 F1P06230
STA MFR03 F1P06240
CLA OTA-1 GET NUMBER OF WORDS IN OTA F1P06250
TNZ MFROK TABLE EXISTS F1P06260
TRA TEIFER STOP FOR NO TABLE IN OTA F1P06270
MFROK ARS 18 PUT NUMBER WORDS IN AC ADDRESS F1P06280
ADD L(OTA) ADD OTA ORIGIN AND F1P06290
STA MFR01 INITIALIZE ADDRESSES F1P06300
STA MFR02 F1P06344
MFR00 CLA 0,2 ADDR IS 7TA + NUMBER OF WORDS F1P06320
TPL MFR04 DO NOT MODIFY THIS WORD F1P06330
STA E10 SAVE ABSOLUTE PART OF WORD F1P06340
LXD OTA-1,1 SET INDEX TO NUM WORDS IN OTA F1P06350
MFR01 CLA 0,1 TEIFNO ARGUMENT IS IN AC. F1P06360
ANA MSK COMPARE WITH 7TA WORD F1P06370
SUB E10 F1P06380
TZE MFR02 MODIFY 7TA WORD F1P06390
TIX MFR01,1,1 GO TO NEXT TEIFNO WORD F1P06400
CLA L(0) NO ENTRY FOUND IN TEIFNO. IGNORE. F1P06410
TRA MFR03 F1P06420
MFR02 CLA OTA,1 TEIFNO WORD GOES TO AC F1P06430
ARS 18 INTERNAL FORMULA NUM IN AC ADDR, F1P06440
MFR03 STA 0,2 INTERNAL FORMULA NUM GOES TO 7TA F1P06450
MFR04 TIX MFR00,2,1 EXAMINE NEXT WORD OF 7TA F1P06460
REM PROGRAM FOR SORTING FRET F1P06470
SFRTP CLA 7TA-1 GET NUMBER OF WORDS IN FRET F1P06480
ARS 18 NUMBER WORDS IN TABLE GO TO AC ADDRF1P06490
ADD TOT7 COMPUTE NUMBER OF WORDS IN TABLE F1P06500
STA SFR01 PLUS ORIGIN OF TABLE AND INITIALIZEF1P06510
STA SFR03 ADDRESSES F1P06520
STA SFR06 F1P06530
STA SFR07 F1P06540
STA SFR11 F1P06550
STA SFR13 F1P06560
STA SFR17 F1P06570
SFR00 CLM SET E12 TO ZERO TO INDICATE F1P06580
STO E12 TABLE IS IN ORDER. F1P06590
LXD 7TA-1,1 SET INDEX A TO NUM OF WORDS IN 7TA F1P06600
SFR01 CLA 0,1 A WORD OF 7TA GOES TO AC. F1P06610
TMI SFR02 COMPARE THIS WORD. IT IS ALPHA ONE F1P06620
TXI SFR01,1,-1 EXAMINE NEXT WORD OF 7TA F1P06630
SFR02 STA E11 SAVE ALPHA ONE FOR COMPARISON F1P06640
SXD A1BOX,1 SAVE INDEX FOR RETURN TO ALPHA ONE F1P06650
TNX SFR21,1,1 EXAMINE NEXT WORD OF 7TA F1P06660
SFR03 CLA 0,1 PUT NEXT WORD OF 7TA IN AC. F1P06670
TMI SFR05 COMPARE THIS WORD. IT IS ALPHA TWO F1P06680
TXL SFR21,1,1 EXIT FOR END OF TABLE F1P06690
TXI SFR03,1,-1 EXAMINE NEXT 7TA WORD F1P06700
SFR05 SSP COMPUTE ALPHA TWO F1P06710
SUB E11 MINUS ALPHA ONE F1P06720
TPL SFR01 ALPHA ONE IS SMALLER F1P06730
CLA L(1) C(E12) NOT ZERO INDICATES TABLE WASF1P06740
STO E12 NOT IN ORDER ON THIS PASS. F1P06750
LXA L(0),4 SET INDEX C TO ZERO TO INDEX OTA F1P06760
SFR06 CLA 0,1 ALPHA TWO GOES TO AC F1P06770
STO OTA,4 SAVE ALPHA TWO F1P06780
TXI SFR07,1,-1 GET NEXT WORD OF ALPHA TWO ENTRY F1P06790
SFR07 CLA 0,1 PUT THIS WORD IN AC F1P06800
TMI SFR10 ALL WORDS OF ALPHA TWO ENTRY SAVED F1P06810
TXI SFR09,4,-1 GO TO NEXT WORD OF OTA F1P06820
SFR09 STO OTA,4 SAVE WORDS OF ALPHA TWO ENTRY F1P06830
TXL SFR10,1,1 ALPHA TWO ENTRY IS END OF TABLE F1P06840
TXI SFR07,1,-1 EXAMINE NEXT WORD OF 7TA F1P06850
SFR10 LXD A1BOX,1 SET INDEX A TO GET ADDR OF ALPHA 1 F1P06860
SFR11 CLA 0,1 ALPHA ONE GOES TO AC F1P06870
TXI SFR12,4,-1 GO TO NEXT WORD OF OTA F1P06880
SFR12 STO OTA,4 SAVE ALPHA ONE F1P06890
SXD A2BOX,4 COMPUTE INDEX FOR F1P06900
CLA A1BOX RETURNING TO ALPHA ONE F1P06910
ADD A2BOX AFTER TRANSPOSING F1P06920
STD A2BOX ALPHA ONE AND ALPHA TWO ENTRIES F1P06930
TXI SFR13,1,-1 EXAMINE NEXT WORD OF 7TA F1P06940
SFR13 CLA 0,1 PUT NEXT WORD IN AC F1P06950
TMI SFR15 FINISHED SAVING ALPHA ONE ENTRY F1P06960
TXI SFR14,4,-1 GO TO NEXT WORD OF OTA F1P06970
SFR14 STO OTA,4 SAVE WORDS OF ALPHA ONE ENTRY F1P06980
TXI SFR13,1,-1 EXAMINE NEXT WORD OF 7TA F1P06990
SFR15 LXD A1BOX,1 SET INDEX A TO GET ADDR OF ALPHA 1 F1P07000
LXA L(0),2 SET INDEX B TO INDEX OTA F1P07010
SFR16 CLA OTA,2 ALPHA ONE ENTRY AND ALPHA TWO ENTRYF1P07020
SFR17 STO 0,1 ARE INTERCHANGED F1P07030
TXI SFR18,2,-1 GO TO NEXT WORD OF OTA F1P07040
SFR18 TNX SFR00,1,1 END OF TABLE EXIT F1P07050
TXL SFR20,4,1 TEST IF OTA IS EMPTIED F1P07060
TXI SFR16,4,1 COUNT WORDS TAKEN FROM OTA F1P07070
SFR20 LXD A2BOX,1 GET OLD ALPHA ONE AS NEW ALPHA ONE F1P07080
TRA SFR01 START OVER WITH NEW ALPHA ONE F1P07090
SFR21 CLA E12 TEST IF TABLE IS IN ORDER F1P07100
TNZ SFR00 EXAMINE TABLE AGAIN F1P07110
REM PROGRAM TO REVERSE FREQUENCIES FOR GO TO VECTOR ENTRIES IN F1P07120
REM TIFGD F1P07130
RFT00 BST 146 MOVE TAPE F1P07140
BST 146 THRU TABLES F1P07150
BST 146 ALREADY WRITTEN F1P07160
BST 146 TO OBTAIN F1P07170
BST 146 TIFGO F1P07180
BST 146 F1P07190
RDS 146 SELECT TAPE FOR READING F1P07200
CLA L(4) PREPARE TO COUNT F1P07210
STO IT1 TWO TAPE TESTS F1P07220
CPY E1RF GET TABLE NUMBER F1P07230
CLA E1RF AND COMPARE WITH F1P07240
SUB TNT2 TABLE CALLED FOR F1P07250
TZE RFT01 TABLE NUMBERS AGREE F1P07260
TSX DIAG,4 STOP FOR TABLE NOT IN RIGHT RECORD F1P07270
RFT01 CPY OTA-1 GET NUMBER OF WORDS F1P07280
CLA OTA-1 IN TAPE RECORD F1P07290
TZE WFR01 EXIT FOR EMPTY TABLE ON TAPE F1P07300
STD RFT05 F1P07310
RTT TURN OFF TAPE F1P07320
NOP CHECK INDICATOR AND LIGHTS F1P07330
RFT02 LXA L(0),2 SET INDEX B TO ZERO F1P07340
RFT03 CPY OTA,2 F1P07350
TXI RFT03,2,-1 COPY LOOP F1P07360
NOP END OF FILE JUMP F1P07370
WRS 219 END OF RECORD. DELAY FOR TAPE TEST F1P07380
RTT TAPE TEST F1P07390
TRA RFT04 TAPE TEST ON F1P07400
TRA RFT07 TAPE TEST OFF F1P07410
RFT04 BST 148 REPEAT RECORD F1P07420
RDS 148 PREPARE TO READ RECORD F1P07430
RFT05 TXI RFT06,2,** COMPENSATE FOR REREADING RECORD F1P07440
RFT06 CLA IT1 COUNT F1P07450
SUB L(1) TWO F1P07460
STO IT1 TAPE TESTS F1P07470
CPY E1RF GET TABLE NUMBER F1P07480
CPY E1RF GET NUMBER OF WORDS IN TABLE F1P07490
TPL RFT02 GO TO READ TAPE F1P07500
TSX DIAG,4 STOP FOR SECOND TAPE TEST F1P07510
RFT07 CLA 7TA-1 COMPUTE TABLE F1P07520
ARS 18 ORIGIN PLUS F1P07530
ADD TOT7 NUMBER OF F1P07540
STA RFT09 WORDS IN F1P07540
STA RFT13 FRET AND F1P07560
STA RFT18 INITIALIZE ADDRESSES F1P07570
CLA OTA-1 GET NUMBER OF WORDS IN TI FGO F1P07580
ARS 18 PUT IN AC AND F1P07590
SUB L(1) SUBTRACT ONE F1P07600
PAX 0,4 SET INDEX C TO THIS NUMBER F1P07610
ADD TOTO ADD ORIGIN OF TIFGO ADD F1P07620
STA RFT08 INITIALIZE ADDRESS F1P07630
CLM F1P07640
SLW E1RFT F1P07650
RFT08 CLA 0,4 GET FIRST WORD OF TIFGO ENTRY F1P07660
STD E1RFT SAVE FORMULA NUMBER F1P07670
TMI RFT09-1 ENTRY IS AN IF(E) F1P07680
ANA MSK ERASE DECREMENT OF AC F1P07690
SUB L(2) TEST FOR GO TO VECTOR ENTRY F1P07700
TNZ RFT20 EXIT FOR ENTRY NOT A GO TO VECTOR F1P07710
LXD 7TA-1,1 SET INDEX A TO NUM OF WORDS IN FRETF1P07720
RFT09 CLA 0,1 GET WORD OF FRET ENTRY F1P07730
TPL RFT10 TEST FOR FIRST WORD OF ENTRY F1P07740
SSP PUT FORMULA NUMBER F1P07750
ALS 18 IN DECREMENT OF AC F1P07760
SUB E1RFT COMPARE FORMULA NUMBERS F1P07770
TZE RFT11 FORMULA NUMBERS MATCH F1P07780
RFT10 TIX RFT09,1,1 TEST END OF FRET F1P07790
TRA RFT20 EXIT FOR END OF FRET F1P07800
RFT11 TNX RFT20,1,1 PREPARE FOR SECOND WORD OF ENTRY F1P07810
RFT12 SXD E2RFT,1 AND SAVE INDEX A FOR RETURN F1P07820
LXA L(0),2 SET INDEX B TO ZERO F1P07830
RFT13 CLA 0,1 GET FREQUENCY PART OF ENTRY F1P07840
TMI RFT15 TEST END OF ENTRY F1P07850
STO FRTS,2 SAVE FREQUENCY F1P07860
TXI RFT14,2,-1 TAKE NEXT FRTS WORD F1P07870
RFT14 TIX RFT13,1,1 TAKE NEXT FRET WORD F1P07880
RFT15 TXL RFT20,2,0 EXIT FOR NO FREQUENCY IN ENTRY F1P07890
LXD E2RFT,1 SET INDEX A TO GET 2ND ENTRY WORD F1P07900
RFT16 TXI RFT17,2,1 GET FREQUENCIES F1P07910
RFT17 CLA FRTS,2 IN REVERSE ORDER F1P07920
RFT18 STO 0,1 AND REPLACE IN FRET ENTRY F1P07930
TXI RFT19,1,-1 TAKE NEXT WORD OF FRET ENTRY F1P07940
RFT19 TXH RFT16,2,0 TEST END OF ENTRY F1P07950
RFT20 TIX RFT08,4,2 TEST END OF TIFGO F1P07960
WFR01 RDS 146 POSITION F1P07970
RDS 146 TAPE F1P07980
RDS 146 FOR F1P07990
RDS 146 WRITING F1P08000
RDS 146 FRET F1P08010
WFR00 TSX WAT00,1 WRITE F1P08020
HTR 7 FRET F1P08030
HTR 7TA ON TAPE F1P08040
TSX TAP00,1 ASSEMBLE EQUIT. F1P08050
8 F1P08060
EQ F1P08070
REM PROGRAM FOR CLASSES OF EQUIVALENCE F1P08080
REM INITIALIZATION OF ADDRESSES AND STORAGE F1P08090
CLEQ CLA EQM1 COMPUTE EO ORIGIN PLUS F1P08100
ARS 18 NUMBER OF WORDS IN TABLE F1P08110
ADD L(EQ) F1P08120
STA B7CLQ F1P08130
STA B8CLQ F1P08140
STA B9CLQ F1P08150
STA B2CLQ F1P08160
STA B11CLQ F1P08170
STA C2CLQ F1P08180
STA C3CLQ F1P08190
STA A10CLQ F1P08200
STA A11CLQ F1P08210
STA A12CLQ F1P08220
STA A13CLQ F1P08230
STA A17CLQ F1P08240
STA C10CLQ F1P08250
OADDR CLM F1P08260
SLW MEEQM1 F1P08270
SLW BOX1 F1P08280
SLW E1CLEQ F1P08290
SLW E2CLEQ F1P08300
SLW E3CLEQ F1P08310
SLW E4CLEQ F1P08320
SLW E5CLEQ F1P08330
LXA OADDR,2 F1P08340
LXD EQM1,4 F1P08350
G2CLQ SLW MEEQ,2 F1P08360
TXI G1CLQ,2,-1 F1P08370
G1CLQ TIX G2CLQ,4,1 F1P08380
CLA DECR1 F1P08390
STO BOX2 F1P08400
REM INITIALIZATION OF AN EQUIVALENCE CLASS F1P08410
BOCLQ LXD EQM1,1 SET INDEX A TO MUM OF WORDS IN EQ F1P08420
TXL OUT,1,0 EXIT FOR EMPTY EQ TABLE F1P08430
LXD BOX2,2 PREPARE TO ENTER F1P06440
TXI B7CLQ,2,-1 A WORD IN MEEQ F1P08450
B7CLQ CLA 0,1 OBTAIN EQ WORD F1P06460
TZE B5CLQ EXIT FOR DELETED EQ SET F1P08470
STO MEEQ,2 SAVE EQ SET IN TABLE MEEQ F1P08480
CLM INDICATE F1P08490
B8CLQ SLW 0,1 DELETED F1P08500
TXI B1CLQ,2,-1 EQ SET F1P08510
B1CLQ TNX 0,1,1 EXIT FOR END OF EQ TABLE F1P08520
B2CLQ CLA 0,1 OBTAIN EQ SUBSCRIPT F1P08530
TMI B4CLQ EXIT FOR END OF EQ SET F1P08540
STO MEEQ,2 SAVE REST OF EQ SET F1P08550
TXI B9CLQ,1,-1 F1P08560
B9CLQ CLA 0,1 OBTAIN EQ SYMBOL F1P08570
TXI B10CLQ,2,-1 F1P08580
B10CLQ STO MEEQ,2 F1P08590
TXI B3CLQ,2,-1 IN TABLE MEEQ F1P08600
B3CLQ TIX B2CLQ,1,1 F1P08610
TRA ** EXIT FOR END OF EQ TABLE F1P08620
B4CLQ SSP SAVE LAST F1P08630
STO MEEQ,2 SUBSCRIPT OF EQ SET F1P08640
SXD BOX2,2 AND ITS MEEQ INDEX F1P08650
TRA C0CLQ GO TO COMPARISON ROUTINE F1P08660
B5CLQ TXI B11CLQ,1,-1 F1P08670
B11CLQ CLA 0,1 LOOP TO F1P08680
TPL B6CLQ GO THROUGH F1P08690
TIX B7CLQ,1,1 DELETED SET F1P08700
B6CLQ TIX B11CLQ,1,2 F1P08710
TRA END EXIT FOR COMPLETELY DELETED EO TABLF1P08720
REM COMPARISON OF MEEQ SYMBOLS WITH EQ SYMBOLS F1P08730
C0CLQ LXD BOX2,2 INITIALIZE TEST F1P06740
SXD C5CLQ,2 FOR END OF MEEO TABLE F1P08750
LXD BOX1,2 SET INDEX B TO GET 1ST SYMB OF MEEQF1P08760
C6CLQ LXD EQ-1,1 PREPARE TO SCAN EQ TABLE F1P08770
C7CLQ SXD E1CLEQ,1 SAVE INDEX OF 1ST WORD OF EQ SET F1P08760
C2CLQ CLA 0,1 OBTAIN EQ WORD F1P08790
TNZ C4CLQ SET NOT DELETED F1P08800
TXI C3CLQ,1,-1 F1P08810
C3CLQ CLA 0,1 LOOP TO GO THRU F1P08820
TMI C1CLQ DELETED SET F1P08830
TIX C3CLQ,1,2 F1P08840
C1CLQ TIX C7CLQ,1,1 EXAMINE NEXT EQ SET F1P08850
TRA C9CLQ EXIT FOR END OF EO TABLE F1P08860
C4CLQ STO E5CLEQ SAVE EQ SYMBOL F1P08870
TXI C10CLQ,1,-1 F1P08880
C10CLQ CLA 0,1 GET EQ SUBSCRIPT F1P08890
TPL C8CLQ NOT END OF EQ SET F1P08900
CLA E5CLEQ GET LAST SYMBOL OF EQ SET F1P08910
SUB MEEQ,2 COMPARE WITH MEEQ SYMBOL F1P08920
TZE A0CLQ MATCH F1P08930
TIX C7CLQ,1,1 NO MATCH F1P08940
TRA C9CLQ F1P08950
C8CLQ CLA E5CLEQ F1P08960
SUB MEEQ,2 F1P08970
TZE A0CLQ F1P08980
TIX C2CLQ,1,1 F1P08990
C9CLQ TXI C5CLQ,2,-2 GET NEXT MEEQ SYMBOL F1P09000
C5CLQ TXH C6CLQ,2,** TEST END OF TABLE MEEQ F1P09010
REM END OF TABLE MEEQ, NO MATCH IN TABLE EQ F1P09020
F2CLQ LXD BOX2,2 INDICATE F1P09030
CLA MEEQ,2 END OF SET F1P09040
SSM IN TABLE F1P09050
STO MEEQ,2 MEEQ F1P09060
TXI F1CLQ,2,-1 INITIALIZE INDEX OF F1P09070
F1CLQ SXD BOX1,2 NEXT SET IN TABLE MEEO AND F1P09080
TRA BOCLQ INITIALIZE THE SET F1P09090
REM MEEQ SYMBOL MATCHES EQ SYMBOL F1P09100
A0CLQ TXI A14CLQ,1,1 F1P09110
A14CLQ SXD A6CLQ,1 SAVE EO INDEX OF MATCHED SYMBOL F1P09120
TIX A1CLQ,1,1 F1P09130
A1CLQ TXI A2CLQ,2,-1 F1P09140
A2CLQ CLA MEEQ,2 F1P09150
STA E2CLEQ SAVE SUBSCRIPT OF MEEQ SYMBOL F1P09160
A10CLQ CLA 0,1 F1P09170
STA E3CLEQ SAVE SUBSCRIPT OF EQ SYMBOL F1P09160
LXD BOX2,2 F1P09190
TXI A16CLQ,2,-1 F1P09200
A16CLQ SXD E1CLQ,2 F1P09210
TXI A15CLQ,2,1 F1P09220
A15CLQ TMI A9CLQ MATCHED SYMBOL IS END OF EQ SET F1P09230
A4CLQ TXI A3CLQ,2,-1 LOOP TO TRANSFER F1P09240
A3CLQ TNX 0,1,1 TO MEEO SYMBOLS OF F1P09250
A11CLQ CLA 0,1 EQ BELOW MATCHED SYMBOL F1P09260
STO MEEQ,2 F1P09270
TNX 0,1,1 F1P09280
TXI A17CLQ,2,-1 F1P09290
A17CLQ CLA 0,1 F1P09300
TMI A5CLQ F1P09310
STO MEEQ,2 F1P09320
TRA A4CLQ F1P09330
A5CLQ STA MEEQ,2 SAVE SBSCR OF LAST SYMBOL OF EQ SETF1P09340
A9CLQ LXD E1CLEQ,1 F1P09350
A6CLQ TXL A8CLQ,1,** EXIT FOR MATCHED SYMBOL REACHED F1P09360
A12CLQ CLA 0,1 LOOP TO TRANSFER F1P09370
TXI A7CLQ,2,-1 TO MEEO SYMBOLS OF F1P09380
A7CLQ STO MEEQ,2 EQ ABOVE MATCHED F1P09390
TXI A6CLQ,1,-1 SYMBOL F1P09400
A8CLQ SXD BOX2,2 F1P09410
SXD D2CLQ,2 F1P09420
SXD D4CLQ,2 F1P09430
LXD E1CLEQ,1 INDICATE F1P09440
CLM DELETED F1P09450
A13CLQ SLW 0,1 EQ SET F1P09460
REM NORMALIZATION OF MEEQ SUBSCRIPTS F1P09470
CLA E3CLEQ GET EQ SUBSCRIPT F1P09480
SUB E2CLEQ COMPARE WITH MEEQ SUBSCRIPT F1P09490
TZE C0CLQ SUBSCRIPTS MATCH F1P09500
STA E4CLEQ F1P09510
TPL E0CLQ F1P09520
REM EQ SUBSCRIPT LESS THAN MEEQ SUBSCRIPT F1P09530
LXD E1CLQ,2 F1P09540
TXI D4CLQ,2,-1 F1P09550
D4CLQ TXL D3CLQ,2,** F1P09560
D1CLQ CLA MEEQ,2 NORMALIZE SUBSCRIPTS F1P09570
ADD E4CLEQ OF NEW SYMBOLS F1P09580
STA MEEQ,2 IN MEEQ SET F1P09590
TXI D2CLQ,2,-2 F1P09600
D2CLQ TXH D1CLQ,2,** F1P09610
D3CLQ CLA MEEQ,2 NORMALIZE SUBSCRIPT F1P09620
ADD E4CLEQ OF LAST NEW SYMBOL F1P09630
STA MEEQ,2 ENTERED IN MEEQ SET F1P09640
TRA C0CLQ GO TO COMPARISON ROUTINE F1P09650
REM EQ SUBSCRIPT GREATER THAN MEEQ SUBSCRIPT F1P09660
E0CLQ LXD BOX1,2 F1P09670
TXI E2CLQ,2,-1 F1P09680
E2CLQ CLA MEEQ,2 NORMALIZE SUBSCRIPTS F1P09690
ADD E4CLEQ OF OLD SYMBOLS F1P09700
STA MEEQ,2 IN MEEQ SET F1P09710
TXI E1CLQ,2,-2 F1P09720
E1CLQ TXH E2CLQ,2,** F1P09730
TRA C0CLQ GO TO COMPARISON ROUTINE F1P09740
END CLA BOX2 COMPUTE F1P09750
COM NUMBER F1P09760
ADD DECR2 OF WORDS F1P09770
PDX 0,2 IN TABLE F1P09780
PXD 0,2 MEEO AND F1P09790
STD MEEQM1 SAVE WITH TABLE F1P09800
REM REDUNDANCY AND INCONSISTENCY TEST OF EQUIVALENCE SENTENCES F1P09810
LXD BOX2,2 INITIALIZATION F1P09820
SXD M11CLQ,2 OF F1P09830
LXA OADDR,2 INDEXING F1P09840
SXD BOX1,2 F1P09850
M6CLQ LXD BOX1,2 OBTAIN F1P09860
CLA MEEQ,2 FIXED F1P09870
STO SMBL SYMBOL F1P09880
TXI M10CLQ,2,-1 AND F1P09890
M10CLQ CLA MEEQ,2 ITS F1P09900
STO SBSCR SUBSCRIPT F1P09910
TXI M1CLQ,2,-1 F1P09920
M1CLQ CLA MEEQ,2 GET CHANGING SYMBOL AND F1P09930
CAS SMBL COMPARE WITH FIXED SYMBOL F1P09940
TRA M2CLQ NO MATCH F1P09950
TRA K1CLQ MATCH F1P09960
M2CLQ TXI M3CLQ,2,-1 HAS END OF CHANGING SYMBOLS F1P09970
M3CLQ CLA MEEQ,2 BEEN REACHED, NO MATCH CASE F1P09980
TMI M4CLQ YES F1P09990
TXI M1CLQ,2,-1 NO F1P10000
M4CLQ SXD M7CLQ,2 F1P10010
M9CLQ LXD BOX1,2 PREPARE TO GET F1P10020
TXI M5CLQ,2,-2 NEXT FIXED F1P10030
M5CLQ SXD BOX1,2 SYMBOL F1P10040
TXI M7CLQ,2,-1 F1P10050
M7CLQ TXH M6CLQ,2,** TEST END OF MEEQ SET F1P10060
M11CLQ TXL CLQOUT,2,0 F1P10070
TXI M8CLQ,2,-1 F1P10080
M8CLQ SXD BOX1,2 F1P10090
TRA M6CLQ F1P10100
K1CLQ TXI K2CLQ,2,-1 GET SUBSCRIPT F1P10110
K2CLQ CLA MEEQ,2 OF CHANGING SYMBOL F1P10120
TMI K4CLQ END OF SET REACHED F1P10130
CAS SBSCR COMPARE SUBSCRIPTS OF MATCHED SYMBLF1P10140
TRA K3CLQ NO MATCH, INCONSISTENT CASE F1P10150
TXI M1CLQ,2,-1 MATCH, REDUNDANT CASE F1P10160
K3CLQ LXD NEWTBL,4 F1P10170
TXH ERSTOR,4,0 F1P10180
CLA FRCON F1P10190
STO MEEQ F1P10200
ERSTOR CLA SMBL F1P10210
STO MEEQ+1,4 F1P10220
TXI SAVIR4,4,-1 F1P10230
SAVIR4 SXD NEWTBL,4 F1P10240
TRA M9CLQ GET NEXT SYMBOL F1P10250
NEWTBL HTR 0 F1P10260
K4CLQ SSP F1P10270
CAS SBSCR F1P10280
TRA K3CLQ F1P10290
TRA M9CLQ F1P10300
TRA K3CLQ F1P10310
CLQOUT LXD NEWTBL,4 F1P10320
TXL OUT,4,0 F1P10330
CLA FRCON F1P10340
STO MEEQ+1,4 F1P10350
OUT TSX WAT00,1 WRITE EQUIT ON TAPE. F1P10360
8 F1P10370
MEEQ F1P10380
TSX TAP00,1 ASSEMBLE TABLE CLOSUB F1P10390
9 F1P10400
TOT9 9TA ORIGIN OF TABLE 9 F1P10410
REM PROGRAM FOR REMOVING DUPLICATE ENTRIES FROM TABLE CLOSUB F1P10420
RDCTP CLA 9TA-1 GET NUMBER OF WORDS IN 9TA F1P10430
TZE REC07 EXIT FOR EMPTY TABLE F1P10440
PDX 0,4 SET INDEX C TO NUM OF WORDS IN 9TA F1P10450
ARS 18 COMPUTE TABLE ORIGIN PLUS F1P10460
ADD TOT9 NUMBER OF WORDS IN TABLE F1P10470
STA REC01 AND INITIALIZE ADDRESS F1P10480
LXD REC03,2 SET INDEX B TO COMP 1 AND F1P10490
SXD REC04,2 SAVE COMP 1 IN DECR OF REC04 F1P10500
REC00 LXA L(0),2 SET INDEX B TO ZERO F1P10510
REC01 CLA 0,4 GET 9TA WORD AND F1P10520
REC02 CAS 9TA,2 COMPARE WITH 9TA WORD F1P10530
TRA REC03 9TA WORDS NOT EQUAL F1P10540
TRA REC06 9TA WORDS ARE EQUAL F1P10550
REC03 TXI REC04,2,-1 TAKE NEXT 9TA WORD F1P10560
REC04 TXH REC02,2,** TEST FOR END OF NEW 9TA TABLE F1P10570
LXD REC04,1 ADD COMP 1 TO DECR OF F1P10580
TXI REC05,1,-1 REC04 TO ACCOUNT FOR F1P10590
REC05 SXD REC04,1 FOLLOWING ENTRY F1P10600
STO 9TA,2 ENTER UNEQUAL 9TA WORD IN TABLE F1P10610
REC06 TIX REC00,4,1 TEST END OF OLD 9TA TABLE F1P10620
LXD REC04,4 GET TWOS COMP OF NUMBER F1P10630
PXD 0,4 OF WORDS ENTERED IN 9TA F1P10640
COM COMPUTE TRUE FIGURE AND F1P10650
ADD L(1) STORE IN 9TA-1 F1P10660
PDX 0,4 F1P10670
SXD 9TA-1,4 F1P10680
REC07 TSX WAT00,1 WRITE MODIFIED F1P10690
HTR 9 TABLE CLOSUB F1P10700
HTR 9TA ON TAPE F1P10710
WEF 146 END OF TAPE TABLES FILE F1P10720
REW 3 F1P10730
CLA WAT99 CHANGE WAT SUB ROUTINE TO WRITE ON TAPE 3 F1P10740
STA WAT09 F1P10750
STA WAT05+2 F1P10760
STA WAT07-1 F1P10770
STA WAT08 F1P10780
CLA WAT05+4 NOP F1P10790
STO WAT04-1 OVER COPY IDENTIFICATION F1P10800
STO WAT04 OVER COPY WORD COUNT F1P10810
STO WAT03-1 OVER STA FOR WORD COUNT F1P10820
CLA TP3TRA F1P10830
STO WAT04+2 F1P10840
TSX TAP00,1 ASSEMBLE NONEXC TABLE F1P10850
14 F1P10860
XTA F1P10870
TSX WAT00,1 WRITE NONEXC TABLE ON TAPE 3 F1P10880
14 F1P10890
XTA F1P10900
TSX TAP00,1 ASSEMBLE TSTOPS TABLE F1P10910
15 F1P10920
XTA F1P10930
TSX WAT00,1 WRITE TSTOPS TABLE AS SECOND RECORD TAPE 3 F1P10940
15 F1P10950
XTA F1P10960
CLA EIFNO F1P10970
ADD DECR1 SET EIFNO TO LAST ADD IN PROBLEM PLUS 1 F1P10980
STO EIFNO F1P10990
CAL DECR2 F1P11000
COM F1P11010
ANS 16 F1P11020
CLA ENDI4 F1P11030
CAS L(1) F1P11040
TRA *+4 F1P11050
CLA DECR2 F1P11060
ORS 16 F1P11070
TRA SPACE F1P11080
PXD ,0 F1P11090
SWT 4 F1P11100
TRA SPACE F1P11110
CLA DECR2 F1P11120
ORS 16 F1P11130
SPACE RTB 1 F1P11140
TRA 4 F1P11150
WAT99 147 ADD OF TAPE 3 IN BINARY MODE F1P11160
REM WORKING STORAGE FOR PROGRAM CLEQ F1P11170
L(EQ) EQ F1P11180
BOX1 F1P11190
BOX2 F1P11200
E1CLEQ F1P11210
E2CLEQ F1P11220
E3CLEQ F1P11230
E4CLEQ F1P11240
E5CLEQ F1P11250
REM WORKING STORAGE FOR PROGRAM AMW F1P11260
E10 F1P11270
E11 AMW2105 F1P11280
A1BOX AMW 2106 F1P11290
A2BOX AMW 2305 F1P11300
IT1 AMW 2510 F1P11310
E1RFT F1P11320
E2RFT F1P11330
END1PB ORG 907 F1P11340
XTAM1 BSS 1 F1P11350
XTA BSS 1500 THIS IS TABLE ASSEMBLY BUFFER OF PART 2 F1P11360
REM F1P11370
REM F1P11380
REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME COMMON = F0210000. F1P11390
ORG 0 F1P11400
PZE ORG1PC,,1TOCS F1P11410
PZE END1PC F1P11420
REM F1P11430
REM COMMON TO SECTION ONE PRIME F1P11440
REM F1P11450
ORG1PC ORG 2408 F1P11460
OTAM1 BSS 1 LOCATION OF NUM OF WORDS IN TEIFNO F1P11470
OTA BSS 1500 BLOCK FOR ASSEMBLED TEIFNO F1P11480
REM TABLE ASSEMBLY PROGRAM F1P11490
TAP00 REW 4 F1P11500
STQ E2A F1P11510
SXD E3A,2 F1P11520
SXD E4A,4 F1P11530
CLA 1,1 GET TABLE NUMBER F1P11540
STA TAP00+6 F1P11550
PAX ,2 F1P11560
ALS 1 F1P11570
ADD 1,1 FORM 3I F1P11580
ADD OAD F1P11590
STA TAP06 F1P11600
STA TAP20 F1P11610
ADD L(2) FORM INTET + 3I +2 F1P11620
STA TAP01 F1P11630
STA TAP05 F1P11640
CLA MWN+10,2 F1P11650
PAX ,2 TABLE MAXIMUM F1P11660
SXD TAP081,2 F1P11670
SXD OVTEST,2 F1P11680
LXA L(0),2 F1P11690
TAP01 LXA **,4 NO OF BLOCKS OF THIS TABLE ON TAPE 4 F1P11700
CLA 2,1 F1P11710
STA TAP03 F1P11720
STA TAP08 F1P11730
SUB L(1) F1P11740
STA TAP11 F1P11750
STA TAP12 F1P11760
TXL TAP05,4,0 TEST FOR NO TAPE RECORDS F1P11770
TAP20 CLA ** F1P11780
STD TAP14+1 F1P11790
RTT TURN OFF INDICATOR F1P11600
TXH 0,0,0 F1P11810
TAP02 IOD F1P11820
RTT TEST INDICATOR F1P11830
TXI TAP14,4,1 ON F1P11840
CLA L(4) OFF F1P11850
STO E5A F1P11860
READ4 RTB 4 F1P11870
CPY E1A COPY IDENTIFICATION F1P11880
TRA TAP025 F1P11890
TSX DIAG,4 EOF MACHINE ERROR F1P11900
TAP025 CLA E1A F1P11910
SUB 1,1 TEST FOR RECORD OF TABLE BEING ASSEMBLED F1P11920
TNZ READ4 F1P11930
TAP03 CPY **,2 F1P11940
TXI OVTEST,2,-1 F1P11950
TSX DIAG,4 EOF MACHINE ERROR F1P11960
TIX TAP02,4,1 F1P11970
TAP04 IOD F1P11980
RTT F1P11990
TRA TAP14 F1P12000
TAP05 CLA ** F1P12010
ARS 18 F1P12020
TZE TAP11 F1P12030
PAX ,4 F1P12040
TAP06 ADD ** F1P12050
STA TAP07 F1P12060
TAP07 CLA **,4 F1P12070
TAP08 STO **,2 F1P12080
TXI TAP081,2,-1 F1P12090
TAP081 TXL OVFLOW,2,** F1P12100
TAP09 TIX TAP07,4,1 F1P12110
TAP11 STZ ** F1P12120
PXD ,2 F1P12130
TZE TAP13 F1P12140
ARS 18 F1P12150
COM F1P12160
ADD L(1) F1P12170
PAX ,2 F1P12180
TAP12 SXD **,2 F1P12190
TAP13 LDQ E2A F1P12200
LXD E3A,2 F1P12210
LXD E4A,4 F1P12220
TRA 3,1 RETURN TO CALLER F1P12230
OVTEST TXH TAP03,2,** F1P12240
OVFLOW TSX DIAG,4 BUFFER AREA EXCEEDED F1P12250
TAP14 BST 4 F1P12260
TXI TAP14+2,2,** F1P12270
CLA E5A F1P12280
SUB L(1) F1P12290
STO E5A F1P12300
TNZ READ4 F1P12310
TSX DIAG,4 THREE FAILURES IN READING A RECORD FROM T4 F1P12320
OAD INTET F1P12330
BSS 3 F1P12340
REM MAXIMUM NUMBER OF WORDS ALLOWED IN VARIOUS TABLES F1P12350
-100 FMTEFN, TABLE 17 F1P12360
-100 CALLFN, TABLE 16 F1P12370
-300 TSTOPS, TABLE 15 F1P12380
-750 NONEXC, TABLE 14 F1P12390
-900 HOLARG, TABLE 13 F1P12400
-600 COMMON, TABLE 12 F1P12410
-900 SUBDEF, TABLE 11 F1P12420
MWN -1430 FORMAT, TABLE 10 F1P12430
-1500 CLOSUB, TABLE 9 F1P12440
-1500 EQUIT, TABLE 8 F1P12450
-750 FRET, TABLE 7 F1P12460
-1000 FORVAL, TABLE 6 F1P12470
-1500 FORVAR, TABLE 5 F1P12480
-1500 FORTAG, TABLE 4 F1P12490
-250 TRAD, TABLE 3 F1P12500
-600 TIFGO TABLE 2 F1P12510
-750 TDO, TABLE 1 F1P12520
-750 TEIFNO, TABLE 0 F1P12530
REM F1P12540
REM PROGRAM FOR WRITING AN ASSEMBLED TABLE ON TAPE F1P12550
WAT00 SXD E1W,2 START PROGRAM WAT F1P12560
CLA L(4) PREPARE TO COUNT F1P12570
STO E2W TWO TAPE TESTS F1P12580
WAT09 WRS 146 PREPARE TO WRITE ON TAPE 2 F1P12590
CLA 2,1 COMPUTE LOCATION OF NUMBER OF WORDSF1P12600
SUB L(1) IN TABLE AND INITIALIZE ADDRESSES F1P12610
STA WAT03 F1P12620
STA WAT04 F1P12630
WAT03 CLA ** ADDRESS IS NTA-1 F1P12640
ARS 18 NUMBER OF WORDS IN TABLE PUT IN F1P12650
PAX 0,2 INDEX B F1P12660
ADD 2,1 RESET ADDRESS F1P12670
STA WAT05 F1P12680
CPY 1,1 IDENTIFY TABLE ON TAPE F1P12690
WAT04 CPY ** NUM OF WORDS IN TABLE PUT ON TAPE F1P12700
SUB 2,1 F1P12710
TZE WAT06 NO ENTRIES IN TABLE F1P12720
WAT05 CPY 0,2 ADDR IS NTA + NUM WORDS IN NTA F1P12730
TIX WAT05,2,1 COPY LOOP F1P12740
BST 146 F1P12750
RTT F1P12760
NOP F1P12770
RDS 146 F1P12780
WAT07 CPY E2A F1P12790
TRA WAT07 F1P12800
NOP E O R F1P12810
WRS 219 E O F F1P12820
RTT F1P12830
TRA WAT10 TAPE CHECK ON F1P12840
TRA WAT06 TAPE CHECK OFF F1P12850
WAT10 CLA E2W F1P12860
SUB L(1) F1P12870
STO E2W F1P12880
TPL WAT08 F1P12890
TSX DIAG,4 STOP FOR THIRD TAPE CHECK F1P12900
WAT08 BST 146 F1P12910
TRA WAT09 F1P12920
CPY L(0) F1P12930
WAT06 LXD E1W,2 RESTORE INDEX B F1P12940
TRA 3,1 RETURN TO MAIN PROGRAM F1P12950
REM F1P12960
E1W F1P12970
E2W F1P12980
L(0) 0 F1P12990
L(1) 1 F1P13000
L(2) 2 F1P13010
L(3) 3 F1P13020
L(4) 4 F1P13030
L(5) 5 F1P13040
L(8) 8 F1P13050
L(50) 50 F1P13060
DECR1 0,0,1 F1P13070
DECR2 0,0,2 F1P13080
MSK OCT 77777 AMWO5O3 F1P13090
FRCON OCT 377777777777 35 ONES. AMW 1318 F1P13100
DRL02 202 LOCATION OF FIRST WORD ON DRUM F1P13110
TNT2 2 F1P13120
E3 NON ERASABLE 0416 TO 0908 F1P13130
E4 F1P13140
L(0TA) OTA F1P13150
TEIFER TSX DIAG,4 F1P13160
TP3TRA TZE WAT06-1 F1P13170
E1A BSS 1 F1P13180
E2A BSS 1 F1P13190
E3A BSS 1 F1P13200
E4A BSS 1 F1P13210
E5A BSS 1 F1P13220
E1 SYN E4 F1P13230
E2 SYN E3 F1P13240
TAPOO SYN TAP00 F1P13250
WATOO SYN WAT00 F1P13260
L(OTA) SYN L(0TA) F1P13270
DIAG SYN 4 F1P13280
COMP SYN 1TA F1P13290
2TA SYN 1TA F1P13300
3TA SYN 1TA F1P13310
TOTO SYN L(OTA) F1P13320
EQM1 SYN OTA-1 F1P13330
EQ SYN OTA F1P13340
4TA SYN XTA F1P13350
5TA SYN XTA F1P13360
6TA SYN XTA F1P13370
7TA SYN XTA F1P13380
9TA SYN XTA F1P13390
MEEQM1 SYN XTA-1 F1P13400
MEEQ SYN XTA F1P13410
FRTS SYN XTA+750 F1P13420
FRCHS SYN XTA+1000 F1P13430
E12 SYN E3 F1P13440
E1RF SYN E4 F1P13450
SMBL SYN E1CLEQ F1P13460
SBSCR SYN E2CLEQ F1P13470
16TA SYN 6TA+1000 F1P13480
1TOCS SYN 4 F1P13490
REM F1P13500
REM THE FOLLOWING SYN CARDS ARE FOR PARAMETERS IN THE CARRY OVER F1P13510
REM FROM SECTION ONE TO SECTION ONE PRIME. F1P13520
EIFNO SYN 24 F1P13530
ENDI1 SYN 25 F1P13540
ENDI4 SYN 28 F1P13550
INTET SYN 210 F1P13560
FXCNIX SYN 271 F1P13570
FLCNIX SYN 276 F1P13580
ORGDM1 SYN 299 F1P13590
DIM1IX SYN 301 F1P13600
ORGDM2 SYN 304 F1P13610
DIM2IX SYN 306 F1P13620
ORGDM3 SYN 309 F1P13630
DIM3IX SYN 311 F1P13640
BK SYN 312 F1P13650
FORSUB SYN 313 F1P13660
BBOX SYN 415 F1P13670
CIB SYN 416 F1P13680
END1PC BSS 0 F1P13690
END F1P13700
ORG 25
ERLIST SYN 32767
TABLE SYN ERLIST-100
TRADT SYN ERLIST-1250
BETA SYN ERLIST-1251
TIFGOT SYN ERLIST-1252
ALPHA SYN ERLIST-1252
NONEXT SYN ERLIST-1852
REW 2
REW 3
LXA IR2,4
RDFILE RTD 2 WILL READ ANY KIND OF END FILE MARK
CPY 0
TRA RDFILE
TIX RDFILE,4,1 SPACE OVER 2 FILES AND OVER 1ST RECORD OF
RTB 2 3RD FILE
NOP
LXA IR4,1
CP CPY TABLE+1,1
TXI CP,1,1
TRA831 START AGAIN, CANNOT GET END FILE
TIX FORSUB,1,1 DROP COUNT OF 2ND FILE
OVER RTB 2 SPACE OVER END FILE AFTER FORSUB
RTB 2 SPACE OVER FLOCON
RTB 2 SPACE OVER FORMAT
RDREC LXA IR4,1
RTB 2
CPY IDENT
CPY WDCONT
COPY CPY TABLE,1 ALTERNATE FOR READING TRAD CPY TRAD,2
CPTXI TXI COPY,1,1 TIX COPYAA,1,1
COPYAA TXI COPY,4,-1
PXD 0,1
RDA TRA PTCH NOP GOES HERE AFTER SIZ TABLES ARE READ
SUBWDS SUB WDCONT
RDAAB TZE SIZ TZE IDNTFY REPLACES THIS AFTER SIZ TABLES READ
LXD BST,4
TXL TRY,4,14
LDQ IDENT
BADWC TSX ERROR,4
TRA DIAGND
TRY TXI RDSXD,4,1
RDSXD SXD BST,4
BST 2
TRA RDREC
IDNTFY STZ BST FORMAT SIZE AND ALL TAPE TABLES HAVE
LXA TAPTAB,2 IDENTIFICATION WORD AS FIRST WORD OF
CLA IDENT TAPE RECORD, NOT INCLUDED IN WORD
CAS CAS TAPTAB,2 COUNT
TRA NEXT
TRA HAVE
NEXT TIX CAS,2,2
LXD BSTA,4 BACK SPACE RECORD AND TRY AGAIN 15 TIMES
TXL TRYA,4,14 IF NECESSARY
LDQ IDENT
NOIDEN TSX ERROR,4
TRA DIAGND
TRYA TXI IDNSXD,4,1
IDNSXD SXD BSTA,4
BST 2
TRA RDREC
HAVE STZ BSTA
CLA TAPTAB+1,2
STA TRA
TRA TRA 0
NOTIFG RTB 2 IF NO TIFGO ENTRY, IGNORE TRAD ENTRY
TRA RDREC
FORSUB TIX SAVEA,1,2
LXA IR4,1
SAVEA SXD TXLA,1
LXA IR4,1
LDQA LDQ TABLE,1
TSXA TSX CHECKA,4
TXI TXLA,1,2
TXLA TXL LDQA,1,0
TRA OVER
SIZ TXL SETRD,1,0 IF NO ENTRIES, GET NEXT TAPE RECORDS
TIX SAVEB,1,2 REDUCE WORD COUNT FOR END OF ENTRIES TEST
LXA IR4,1 IF TOO SMALL, SET TO ZERO
SAVEB SXD TXLB,1
LXA IR4,1 START AT FIRST ENTRY, THAT IS IR IS ZERO
LDQB LDQ TABLE,1
TSXB TSX CHECKA,4
TXI TXLB,1,2 GET NEXT 2 WORD ENTRY
TXLB TXL LDQB,1,0
SETRD RTB 2 SPACE OVER GAP AT END OF 4TH FILE
RTB 2 SPACE OVER 5 WORD END RECORD
CLA AFTRSZ
STA RDAAB
CLA NOP
STO RDA RESET TEST AT END OF READ LOOP
TRA RDREC
SUBARG TXL RDREC,1,0 INITIALIZATION OF END ENTRIES TEST
TIX SAVEC,1,1
LXA IR4,1
SAVEC SXD TXLC,1
LXA IR4,1
LDQC LDQ TABLE,1
TSXC TSX CHECKA,4
TXI TXLC,1,1 1 WORD ENTRIES
TXLC TXL LDQC,1,0
TRA RDREC
UPPER TXL UPPRTB,1,0 INITIALIZE END OF ENTRIES TEST
TIX SAVED,1,1
LXA IR4,1
SAVED SXD TXLD,1
LXA IR4,1
LDQD LDQ TABLE,1
TSXD TSX CHECKA,4
TXI TXLD,1,1 1 WORD ENTRIES
TXLD TXL LDQD,1,0
UPPRTB RTB 2 NO SCAN OF HOLARG RECORD
TRA RDREC
TEIFNO TXL RDREC,1,0 INITIALIZE END OF ENTRIES TEST
TIX SAVEE,1,1
LXA IR4,1
SAVEE SXD TXLE,1
LXA IR4,1
CLAE CLA TABLE,1 MINUS ENTRY MEANS BETA IS
TPL TSTE DUPLICATED IN SOURCE PROGRAM
LDQ TABLE,1
TSXE TSX ERROR,4
TSTE TXI TXLE,1,1
TXLE TXL CLAE,1,0
CLA ADTIFG
STA COPY
TRA RDREC
TIFGO TXL PATIF,1,0 IF NO ENTRIES, IGNORE TRAD IDENTIFICATION
TIX SAVEF,1,2
LXA IR4,1
SAVEF SXD TXLF,1
CLA ADTRAD SET READ LOOP TO READ TRAD
STO COPY UPWARDS IN MEMORY. BUT
CLA CPTRAD KEEP TRACK OF WORD COUNT
STA CPTXI AS USUAL
LXA IR4,4
TRA RDREC
TRAD CLA ADTABL RESTORE COPY LOOP
STO COPY
CLA COPYAA
STA CPTXI
TXI SXDG,4,-1
SXDG SXD BETANB,4 SAVE NUMBER OF ENTRIES IN BETA TABLE
CLA 24 ADD ONE TO LAST TEIFNO
NOP GET LAST TEIFNO
ARS 18
STZ BETA
STA BETA
RTB 3
LXA IR4,2 READ IN TABLE OF NON EXECUTABLE
CPNON CPY 0 STATEMENTS AND SAVE
LXD 0,4 DECREMENT OF TABLE IN
TRA PXDH ADDRESS OF MEMORY
TRA SAVXNB
PXDH PXD 0,4
ARS 18
STO NONEXT,2
TXI CPNON,2,1
SAVXNB TIX SAVEH,2,1 SET END OF ENTRIES TEST
LXA IR4,2
SAVEH SXD TXLH,2 SET END OF ENTRIES TEST
LXA IR4,1
CLAF CLA TIFGOT,1 SAVE ALPHA IN CASE OF ERROR, AND
ARS 18 ALSO TO PUT IN ALPHA TABLE AT
STA ALFA END OF PROCESSING EACH KIND OF TIFGO
CLA TIFGOT,1 DETERMINE KIND OF ENTRY
TMI TIFMI
PAX 0,2
TXL TIFZRO,2,0
TXL TIFGO1,2,1
TXL TIFGO2,2,2
TXL TIFGO3,2,3
TXL TIFGO4,2,4
TXL TIFGO5,2,5
TXL TIFGO6,2,6
LDQ TIFGOT,1 NOT IDENTIFYABLE, SAVE IN ERROR
WHATIF TSX ERROR,4 TABLE, BUT PUT ALPHA IN TABLE ANYWAY
NXTIFG LXD ALFANB,4 STORE ALPHA IN TABLE
CLA ALFA
STO ALPHA,4
TXI FSAVE,4,1
FSAVE SXD ALFANB,4
RETIF6 TXI TXLF,1,2 TYPE 6 TIFGO ENTRIES DO NOT GO IN
TXLF TXL CLAF,1,0 ALPHA TABLE
TRA STOPS WHEN TIFGO FINISHED, READ IN STOPS
TIFMI ANA ADDMSK
TNZ SAVEB1 IF BETA IS ZERO, THERE WAS NO ENTRY
MINB1 TSX NOBETA,4 CORRESPONDING TO IT IN COL 1 TO 5 OF
TRA NOWB2 SOURCE PROGRAM, SKIP REST OF PROCESSING
SAVEB1 TSX ISNONX,4 IF BETA IS NOT EXECUTABLE, DO NOT PUT IN
TMI NOWB2 BETA TABLE
TSX MORBTS,4
NOWB2 CLA TIFGOT-1,1
ARS 18
ANA ADDMSK
TNZ SAVEB2
MINB2 TSX NOBETA,4
TRA NOWB3
SAVEB2 TSX ISNONX,4
TMI NOWB3
TSX MORBTS,4
NOWB3 CLA TIFGOT-1,1
ANA ADDMSK
TNZ SAVEB3
MINB3 TSX NOBETA,4
TRA ALFAD1
SAVEB3 TSX ISNONX,4
TMI ALFAD1
TSX MORBTS,4
ALFAD1 CLA DECTRE
STD ALFA
TRA NXTIFG
TIFZRO CLA TIFGOT-1,1
ANA ADDMSK
TNZ TIFOB
TSXTFO TSX NOBETA,4
TRA NEXTI KEEP TRACK OF NUMBER OF BETAS
TIFOB TSX ISNONX,4
TMI NEXTI
TSX MORBTS,4
NEXTI CLA TIFGOT-1,1 DO NOT PUT IN ALPHA TABLE IF
PDX 0,4 ENTRY BY IRV FOR SAP INSTRUCTIONS
TXH RETIF6,4,0
CLA DECONE
STD ALFA
TRA NXTIFG
TIFGO1 STZ TRADNB
CLAJ CLA TIFGOT-1,1 PREPARE TO READ RELATED TRAD ENTRIES
PDX 0,2
ALS 18
STD TXHJ
MORTR CLA TRADT+250,2
TNZ TRADX1
BTIFG1 TSX NOBETA,4
TRA ADDJ
TRADX1 TSX ISNONX,4 IF TRAD IS NON EXECUTABLE, MAKE ENTRY
TPL ADDJ FAIL ANY ALPHA PLUS 1 SEARCH LATER ON
CLA DECONE BY PUTING NUMBER IN DECFIELD
STD TRADT+250,2 BUT KEEP TRACK OF NUMBER OF BRANCHES GIVEN
ADDJ CLA TRADNB
ADD DECONE
STO TRADNB
TXI TXHJ,2,-1
TXHJ TXH MORTR,2,0
CLA TRADNB
STD ALFA
TRA NXTIFG
TIFGO2 STZ TRADNB
CLAK CLA TIFGOT-1,1
PDX 0,2
ALS 18
STD TXHK
MORTRD CLA TRADT+250,2
TNZ TRADX2
BTIFG2 TSX NOBETA,4
TRA ADDK
TRADX2 TSX ISNONX,4
TPL ADDK
CLA DECONE
STD TRADT+250,2
ADDK CLA TRADNB
ADD DECONE
STO TRADNB
TXI TXHK,2,-1
TXHK TXH MORTRD,2,0
CLA TRADNB
STD ALFA
TRA NXTIFG
TIFGO3 CLA TIFGOT-1,1
ARS 18
ANA ADDMSK
TNZ TIF3B1
B1TIF3 TSX NOBETA,4
TRA NEXTL
TIF3B1 TSX ISNONX,4
TMI NEXTL
TSX MORBTS,4
NEXTL CLA TIFGOT-1*,1
ANA ADDMSK
TNZ TIF3B2
B2TIF3 TSX NOBETA,4
TRA ADDL
TIF3B2 TSX ISNONX,4
TMI ADDL
TSX MORBTS,4
ADDL CLA DECTWO
STD ALFA
TRA NXTIFG
TIFGO4 CLA TIFGOT-1,1
ARS 18
ANA ADDMSK
TNZ TIF4B1
B1TIF4 TSX NOBETA,4
TRA NEXTM
TIF4B1 TSX ISNONX,4
TMI NEXTM
TSX MORBTS,4
NEXTM CLA TIFGOT-1,1
ANA ADDMSK
TNZ TIF4B2
B2TIF4 TSX NOBETA,4
TRA ADDM
TIF4B2 TSX ISNONX,4
TMI ADDM
TSX MORBTS,4
ADDM CLA DECTWO
STD ALFA
TRA NXTIFG
TIFGO5 CLA TIFGOT-1,1
ARS 18
ANA ADDMSK
TNZ TIF5B1
B1TIF5 TSX NOBETA,4
TRA NEXTN
TIF5B1 TSX ISNONX,4
TMI NEXTN
TSX MORBTS,4
NEXTN CLA TIFGOT-1,1
ANA ADDMSK
TNZ TIF5B2
B2TIF5 TSX NOBETA,4
TRA ADDN
TIF5B2 TSX ISNONX,4
TMI ADDN
TSX MORBTS,4
ADDN CLA DECTWO
STD ALFA
TRA NXTIFG
TIFGO6 CLA TIFGOT-1,1
ANA ADDMSK
TNZ RETIF6
TIF6B TSX NOBETA,4
TRA RETIF6
STOPS RTB 3
LXD ALFANB,1 LOAD NUMBER ALREADY IN ALPHA TABLE
CPSTOP CPY 0 READ TABLE OF STOPS INTO REST OF
LXD 0,4 ALPHA TABLE, PUT DECREMENT OF
TRA PDXP TAPE TABLE INTO ADDRESS OF MEMORY
TRA TIXP
PDXP PXD 0,4
ARS 18
STO ALPHA,1
TXI CPSTOP,1,1
TIXP TIX NEXTP,1,1
LXA IR4,1
NEXTP SXD ENDALF,1
SXD ALFANB,1
SXD FRETST,1
CLA CHNONX RESET ISNONX ROUTINE SO IT IS
STA YESNOX MERELY INFORMATIVE AND DOES NOT
LXA IR4,1 MAKE ENTRIES IN ERROR TABLE
CLAQ CLA ALPHA,1
QADD TRA PAQADD
ADDQ STZ ALFA
STA ALFA
LXA IR4,2
NXTBTA CLA BETA,2
CAS ALFA
TRA NEXTQ
TRA NXTALF
NEXTQ TXI BETANB,2,-1
BETANB TXH NXTBTA,2,0
CLA ALFA
TSX ISNONX,4 IF ALPHA PLUS 1 IN NONX, THEN LOOK IN BETA
TMI ALAND1 TABLE FOR ALPHA +2 ETC
NOTRA TSX NOBETA,4 NOT EITHER TABLE, PART OF PROG NOT ENTERED
NXTALF TXI ENDALF,1,1
ENDALF TXL CLAQ,1,0
TRA RDREC
ALAND1 CLA ALFA
TRA QADD
TDO TXL SPACES,1,0
TIX SAVES,1,5 INITIALIZE END OF ENTRIES TEST
LXA IR4,1
SAVES SXD TXLS,1
LXA IR4,1
CLADO CLA TABLE,1
ANA TAGMSK SAVE TAG FIELD FOR PROCESSING N1,N2,N3
ALS 18
STP DOTAG
CLA TABLE,1 SAVE ALPHA IN CASE OF ERROR
ARS 18
STA ALFA
CLA TABLE,1
ANA ADDMSK
TNZ BINTIF
DONOBT TSX NOBETA,4
TRA DOALF
BINTIF LXA IR4,2 IS BETA IN DO TABLE A CONDITIONAL
STO DOBETA TRANSFER, THAT IS, IS IT IN ALPHA TABLE
SCLA CLA ALPHA,2
ANA ADDMSK MASK OUT NUMBER OF BRANCHES
CAS DOBETA
TRA TIXS
TRA CONBET THIS IS AN ERROR
TIXS TXI ALFANB,2,1
ALFANB TXL SCLA,2,0
CLA DOBETA
TSX ISNONX,4
TPL DOALF IF BETA IN TO IS NON EXECUTABLE THIS
DOBTNX TSX NOBETA,4
TSX ADOB,4
DOALF CLA ALFA
ANA ADDMSK CLEAR ANY HASH LEFT FROM ERROR RECODING
ADD ADDONE
TSX ISNONX,4 IF ALPHA PLUS 1 IS NON EXECUTABLE
TPL DOSYMB THIS IS ERROR
DOALNX TSX NOBETA,4
TSX ADOB,4
DOSYMB LDQ TABLE-1,1 DOES SYMBOL CONTAIN ANY ILLEGAL
PUNSYM TSX CHECKA,4 PUNCTUATION
TPL IJKSYM
TSX ADOB,4
IJKSYM TSX CHECKB,4 DOES SYMBOL BEGIN WITH IJKLM OR N
TPL NL
TSX ADOB,4
NL CAL DOTAG
PBT
TRA N2+1 NO
LDQ TABLE-2,1 YES
PUNN1 TSX CHECKA,4
TPL IJKN1
TSX ADOB,4
IJKN1 TSX CHECKB,4
TPL N2
TSX ADOB,4
N2 CAL DOTAG
ALS 1
PBT
TRA N3
LDQ TABLE-3,1
PUNN2 TSX CHECKA,4
TPL IJKN2
TSX ADOB,4
IJKN2 TSX CHECKB,4
TPL N3
TSX ADOB,4
N3 CAL DOTAG
ALS 2
PBT
TRA NXTDO
LDQ TABLE-4,1
PUNN3 TSX CHECKA,4
TPL IJKN3
TSX ADOB,4
IJKN3 TSX CHECKB,4
TPL NXTDO
TSX ADOB,4
NXTDO TXI TXLS,1,5
TXLS TXL CLADO,1,0
SPACES RTB 2 SPACE OVER FORVAL
RTB 2 SPACE OVER FORVAR
RTB 2 SPACE OVER FORTAG
TRA RDREC
CONBET TSX NOBETA,4
TSX ADOB,4
TRA DOALF AND TEST ALPHA
FRET TXL RDREC,1,2 GO THRO THIS TABLE FROM LAST TO FIRST
NEXTT LXA IR4,2
CLAT CLA TABLE+1,1
TMI NEWFRT
TXI TNEXT,2,1
TNEXT TIX CLAT,1,1 WILL NOT FAIL BEFORE THE TMI
NEWFRT SXD FRETNB,2 SAVE NUMBER OF FREQUENCIES
ANA ADDMSK
STO ALFA FREQUENCY OF BETA IS IGNORED BY
TNZ BRANCH FORTRAN IF NO CORRESPONDING BETA IN
TRA NXTFRT COLUMN 1 TO 5 OF SOURCE PROGRAM
BRANCH LXA IR4,4
TCLAT CLA ALPHA,4
ANA ADDMSK
CAS ALFA
TRA TIXT
TRA HAVALF
TIXT TXI FRETST,4,1
FRETST TXL TCLAT,4,0 SET AT END OF READING IN STOP TABLE
TRA NXTFRT
HAVALF CLA ALPHA,4 THE ONLY TIME A FREQUENCY STATEMENT CAN
ANA DECMSK LOUSE UP THE OBJECT PROGRAM IS WHEN
SUB FRETNB THERE ARE MORE FREQUENCIES GIVEN THAN
TPL NXTFRT BRANCHES.
FRETIF TSX NOBETA,4
NXTFRT TIX NEXTT,1,1
TRA RDREC
EQUIV CLA TABLE FIRST WORD IN TABLE WILL BE 35 ONES
SUB MSK35 IF THERE HAVE BEEN INCONSISTANT
TNZ DIAGND
LXA IR4,1
NXTEQV CLA TABLE-1,1
SUB MSK35 LAST INCONSISTANCY IS FOLLOWED BY
TZE DIAGND ANOTHER WORD OF ONES
LDQ TABLE-1,1
NOTEQV TSX ERROR,4
TXI NXTEQV,1,1
DIAGND CLA ERNBR
TZE SPACE2 IF NO ERROR, READ IN SECTION II
STO 24 SAVE FOR BIG D
CLA TW13 PUT RECORD NUMBER IN 2 FOR PRINT OUT
STO 2
LXA IR4,2
DIAGRD RTD 1 SPACE OVER REST OF SYSTEM IN FORTRAN
CPY 0
TRA DIAGRD
TXI TST2FL,2,1
TST2FL TXL DIAGRD,2,1
RTB 1 END FILE SKIP, START TO READ BIG D
LXA IR4,1
DCPY CPY 25,1
TXI DCPY,1,-1
NOP
BIGD TSX 26,4
REW NOP REPLACED BY SPACE2 AT 1263. WAS REWIND
NOP
REM ENTER WITH AC ZERO. EXIT WITH TSX FROM TABLE
REM WHICH HAS MISSING BETA, IN DEC OF AC AND
REM ALPHA IN ADDRESS OF AC.
NOBETA SXD ALFA,4
TSX SAVALF,4
LXD ALFA,4
TRA 1,4
REM ENTER WITH HASH IN AC. EXIT WITH CONTENTS OF ALPHA IN AC
SAVALF SXD ERAS,4
LXD ERNBR,4
CLA ALFA
STO ERLIST,4
TXI NEXTA,4,1 SAME RETURN AS ERROR ROUTINE.
REM ENTER WITH MQ=BCD SYMBOL OR HASH,0, ALPHA
REM MAKES 2 WORD ENTRY IN ERROR LIST
REM 1...KIND OF ERROR,0, TABLE IN WHICH ERROR FOUND
REM 2...CONTENTS OF MQ
REM EXIT AC HASH, MQ NOT CHANGED
ERROR PXD 0,4 PUT TSX FROM SECTION SCANNING
LXD ERNBR,4 FOR ERROR, IN DEC OF 1ST WORD
STD ERAS
STD ERLIST,4
CLA IR4 PUT TSX FROM DABLE IN WHI+H
ARS 18 ERROR WAS FOUND, IN ADDR. OF 1ST WORD
STA ERLIST,4
STQ ERLIST-1,4 PUT MQ IN 2ND WORD
TXI NEXTA,4,2
NEXTA SXD ERNBR,4
LXD ERAS,4
TRA 1,4
REM ENTER WITH AC ALL ZERO, EXCEPT ADDRESS WHICH HAS BETA
REM FROM TIFGO OR TDO, OR ALPHA+1 FROM SAME. EXIT SAME, EXCEPT
REM WHERE MATCH IS FOUND, THEN AC HAS HASH
ISNONX SXD IR4,4 ERROR WILL RECORD WHICH TABLE WAS SCANNED
TRA PATS2
CASH CAS NONEXT,2
TRA NEXTH
YESNOX TRA NONEXB THIS WILL BE CHANGED TO BYPASS ERROR WHEN
NEXTH TXI TXLH,2,1 SCANNING BETA TABLE
TXLH TXL CASH,2,0
TRA PATRE2
NONEXB ALS 18 ERROR, SAVE BETA AND ALPHA IN LIST
STD ALFA
LDQ ALFA
TSXH TSX ERROR,4
INFORM LXD IR4,4
SSM SET RETURN TO SHOW ERROR
TRA PATRE2
REM ENTER WITH HASH IN AC MQ HAS BCD SYMBOL. EXIT WITH HASH IN
REM AC AMD MQ, SYMBOL IS STORED IN NAME. DC IS MINUS ONLY WHEN
REM ILLEGAL CHARACTER PRESENT
CHECKA STQ NAME
SXD IR4,4
SXD IR2,2
SXD IR1,1
LXD SYMBL,1 6 INTO IR1
NXTNAM LXA SYMBL,2 10 INTO IR2
PXD 0,0 CLEAR AC AND COMPARE NEXT BCD
LGL 6 CHARACTER WITH TABLE OF ILLEGAL SYMBOLS
ACAS CAS SYMBL,2
TRA ATIX
TRA WRONG
ATIX TIX ACAS,2,1 GET NEXT ILLEGAL SYMBOL FOR COMPARISON
TIX NXTNAM,1,1 GET NEXT BCD CHARACTER FOR COMPARISON
RETNA LXD IR4,4
LXD IR2,2
LXD IR1,1
TRA 1,4
WRONG LDQ NAME
CHATSX TSX ERROR,4
SSM SIGNAL THAT ERROR HAS BEEN PICKED UP
TRA RETNA
REM ENTER WITH HASH IN AC + MQ, EXIT SAME EXCEPT WHERE NO MATCH
REM THEN MINUS
CHECKB LDQ NAME
SXD IR4,4
LXA IJK,4
PXD 0,0
LGL 6
BCAS CAS IJK,4
TRA BTIX
TRA RETNB
BTIX TIX BCAS,4,1
LDQ NAME
CHBTSX TSX ERROR,4
SSM
RETNB LXD IR4,4
TRA 1,4
REM ENTER WITH BETA FROM TIFGO ENTRIES WHICH ARE MINUS OR HAVE 0,
REM 3,4,5 OR 6 IN ADDRESS OF 1ST WORD. TIFGO 1 AND 2 ARE ALREADY
REM IN BETA TABLE. EXIT WITH SAME.
MORBTS SXD ERAS,4
LXD BETANB,4
STOBET STO BETA,4
TXI STBET,4,-1
STBET SXD BETANB,4
SXD BETANB,4
LXD ERAS,4
TRA 1,4
ADOB SXD ERAS,4
LXD ERNBR,4
CLA TABLE,1
STO ERLIST,4
CLA TABLE-1,1
STO ERLIST-1,4
TXI NEXTA,4,2
IR1 HTR
IR2 HTR 2
IR4 HTR 0
ADDONE HTR 1
DECONE HTR 0,0,1
DECTWO HTR 0,0,2
DECTRE HTR 0,0,3
ADDMSK OCT 000000077777
TAGMSK OCT 000000700000
DECMSK OCT 077777000000
MSK35 OCT 377777777777
ADTABL CPY TABLE,1
ADTIFG HTR TIFGOT
ADTRAD CPY TRADT,4
CPTRAD HTR COPYAA
CHNONX HTR INFORM
ALFA
TW13 HTR 213
TRADNB
ERNBR
IDENT
WDCONT
NAME
ERAS
XERAS
BST STORE NUMBER OF TIMES WORD COUNT WRONG
BSTA DITTO IDENTIFICATION
DOTAG
DOBETA
NOP NOP
FRETNB
BCD 100000I
BCD 100000K
BCD 100000J
BCD 100000L
BCD 100000M
BCD 100000N
IJK HTR 6,0,0
BCD 100000+
OCT 000000000014 OTHER MINUS SIGN
BCD 100000
BCD 100000/
BCD 100000$
BCD 100000(
BCD 100000)
BCD 100000=
BCD 100000,
BCD 100000.
BCD 100000*
SYMBL HTR 11,0,6
AFTRSZ HTR IDNTFY
OCT 000000000013
HTR SUBARG
OCT 000000000014
HTR UPPER
OCT 000000000000
HTR TEIFNO
OCT 000000000002
HTR TIFGO
OCT 000000000003
HTR TRAD
OCT 000000000001
HTR TDO
OCT 000000000007
HTR FRET
OCT 000000000010
HTR EQUIV
TAPTAB HTR 16
PTCH TIX SZW,1,1 SIZ TABLE HAS CHECK SUM ENTRY NOT
SZW PXD 0,1 NOT INCLUDED IN WORD COUNT
ARS 18
TRA SUBWDS
PATIF CLA ADTABL
STO COPY
TRA NOTIFG
SPACE2 RTB 2
RTB 2
IOD
RTT
NOP
TRA 4
PAQADD TZE NXTALF
ADD ADDONE
TRA ADDQ
PATS2 SXD PATERA,2
LXA IR4,2
TRA CASH
PATRE2 LXD PATERA,2
TRA 1,4
PATERA
END
REM BLOCK ONE OF SECTION TWO.
REM BLOCK ONE OF SECTION TWO.
REM MASTER RECORD CARD = FN027 F2100000
REM BLOCK ONE OF SECTION TWO PERFORMS THE F2100001
REM PRELIMINARY DO NEST STRUCTURE ANALYSIS F2100002
REM REQUIRED FOR THE SUCCEEDING BLOCKS. IT AXSIGNS F2100003
REM LEVEL NUMBERS AND THE P0SSIBILITY OF CARRY. F2100004
REM TRANSFERS OUT OF THE RANGE OF DOS ARE NOTED AND ENTERED F2100005
REM INTO TABLE TRALEV. IF THERE IS A VARIABLE F2100006
REM PARAMETER OF A DO ITS HIGHEST LEVEL OF DEFINITION F2100007
REM IS ASSIGNED. F2100008
REM FINALLY, A SEARCH IS MADE T0 DETERMINE F2100009
REM WHETHER A DO INDEX COUNTER IS F2100010
REM NECESSARY T0 KEEP CURRENT THE VALUES F2100011
REM OF THE DO INDEX. F2100012
ORG 25 F2100015
DOTAG BSS 1 F2100017
BSS 1349 F2100020
DOTAGZ BSS 1 F2100030
TIFGO BSS 1 F2100040
BSS 599 F2100050
TIFZ BSS 1 F2100060
TRAD BSS 1 F2100070
BSS 249 F2100080
TRADZ BSS 1 F2100090
TRALEV BSS 1 F2100100
BSS 599 F2100110
TLTZ BSS 1 F2100120
ORG 1376 F2100130
FORVAL BSS 1 F2100140
BSS 999 F2100150
4VALZ BSS 1 F2100160
ORG 1376 F2100170
FORVAR BSS 1 F2100180
BSS 1499 F2100190
4VARZ BSS 1 F2100200
ORG 476 F2100210
FORTAG BSS 1 F2100211
BSS 1499 F2100230
FORTZ BSS 1 F2100240
REM PROGRAM C ONSTANTS F2100250
ORG 2876 F2100260
L(0) 0,0,0 F2100270
L(1) 0,0,1 F2100280
L(2) 0,0,2 F2100290
L(3) 0,0,3 F2100300
L(4) 0,0,4 F2100310
L(5) 0,0,5 F2100320
L(6) 0,0,6 F2100330
L(9) 0,0,9 F2100340
L(600) 0,0,600 F2100350
L(1000 0,0,1000 F2100360
L(1350 0,0,1350 F2100370
L(1500 0,0,1500 F2100380
L(MZ) MZE F2100390
BITONE OCT 200000000000 F2100400
BITTWO OCT 100000000000 F2100410
DECADD OCT 77777077777 F2100420
DECMSK OCT 77777000000 F2100430
TAGMSK OCT 700000 F2100440
ADDMSK OCT 77777 F2100450
NCMSK OCT -377777477777 F2100460
CR1 OCT 100000 F2100470
CR2 OCT 200000 F2100480
REM BEGIN BLO CK ONE. F2100490
TAP00 REW 148 F2100500
REW 147 F2100510
RTT F2100520
NOP F2100530
BST TTAPE POSITION TAPE TWO F2100540
LXD L(9),1 FOR READING IN TAPE F2100550
TAP10 BST TTAPE TABLES F2100560
TIX TAP10,1,1 F2100570
PSE 96 ALL LIGHTS OFF F2100580
PSE 98 TRALEV LIGHT 98 ON F2100590
LXD L(2),2 READ F2100600
CLA TIFAD IN F2100610
TSX RTAPE,4 TIEFGO F2100620
SXD TIFGO-1,1 SAVE NEXT UNUSED INDEX F2100630
LXD L(3),2 READ F2100640
CLA TRADAD IN F2100650
TSX RTAPE,4 TRAD F2100660
SXD TRAD-1,1 SAVE NEXT UNUSED INDEX F2100670
LXD L(1),2 READ F2100680
CLA DOAD IN F2100690
TSX RTAPE,4 TDO WITH DOTAG FORMAT F2100700
SXD DOTAG-1,1 SAVE NEXT UNUSED INDEX F2100710
TXL MR00,1,1349 TEST FOR EMPTY DOTAG F2100720
PSE 99 DOTAG EMPTY F2100730
TRA TS4VAL F2100740
REM MR00 COMPUTES LEVEL, X, CARRY BITS. F2100750
MR00 LXD DOTAG-1,1 INITIALIZE TEST F2100760
SXD MR70,1 INSTRUCTION. F2100770
LXD L(1350,1 INITIALIZE XRA TO MAX DOTAG. F2100780
MR05 CLA L(1) INITIALIZE LEVEL TO ONE F2100790
MR10 PDX 0,2 PUT LEVEL IN XRB F2100800
STO DOTAGZ+5,1 STORE LEVEL IN L WORD F2100810
CLA DOTAGZ,1 INSPECT TAG OF FIRST WORD) F2100820
SXD MR14,4 F2100830
PAX 0,4 F2100840
STD MR12 F2100850
MR12 TXH MR15,4 F2100860
TRA ERBETA BETA LESS THAN OR EQUAL TO ALPHA F2100871
MR14 HTR F2100880
MR15 LXD MR14,4 F2100890
ANA TAGMSK IF ZERO( TRA TO MR20) F2100900
TZE MR20 IF NOT ZERO( PUT BIT F2100910
CLA BITTWO IN L WORD FOR X NOT F2100920
ORS DOTAGZ+5,1 COMPUTABLE AND GO TO F2100930
TRA MR60 END. F2100940
MR20 CLA DOTAGZ+3,1 COMPUTE X AND STORE IN F2100950
SUB DOTAGZ+2,1 L WORD F2100960
ADD DOTAGZ+4,1 F2100970
LRS 35 F2100980
DVH DOTAGZ+4,1 F2100990
MPY DOTAGZ+4,1 F2101000
LLS 35 F2101010
STA DOTAGZ+5,1 F2101020
TXL MR60,2,1 IF L IS ONE( SKIP CARRY TEST) F2101030
CLA DOTAGZ,4 OBTAIN NEXT BACK.SUBNEST F2101040
ARS 15 DO( FIRST WORD. IN-SPECT TAG F2101050
LBT FOR VARIABLE N3) IF NOT. F2101060
TRA MR30 0) VARIABLE( CONTINUE-WITH MR30, F2101070
TRA MR60 1) OTHERWISE GO TO END. F2101080
MR30 CLA DOTAGZ,4 OBTAIN FIRST WORD OF NEXT F2101090
ANA DECADD BACK SUBNEST DO, REMOVE F2101100
ADD L(1) TAG, AND ADD ONE TO ALPHA. F2101110
SUB DOTAGZ,1 SUB FIRST WORD CURRENT DO. F2101120
TNZ MR40 (TAG IS ZERO). IF RESULT IS F2101130
CLA CR1 ZERO, CARRY IS TYPE ONE, F2101140
TRA MR50 IF NOT ZERO, CARRY IS TYPE F2101150
MR40 CLA CR2 TWO. INDICATE TYPE IN F2101160
MR50 ORS DOTAGZ+5,1 L WORD OF CURRENT DA. F2101170
MR60 PXD 0,1 MAKE CURRENT.DO NEXT BACK F2101180
PDX 0,4 SUBNEST DO. F2101190
TXI MR70,1,-9 TAKE NEXT DO IN DOTAG. F2101200
MR70 TXL ERTST,1,0 NO MORE DOS, EXIT TO TEST IF ERRORS F2101211
CLA DOTAGZ,1 OBTAIN FIRST WORD NEW DO. F2101220
ANA ADDMSK OBTAIN BETA F2101230
STO MRES AND SAVE F2101240
MR75 CLA DOTAGZ,4 OBTAIN BETA OF XRC DO, F2101250
ANA ADDMSK AND SUBTRCT NEW BETA.. F2101260
STO MRES1 F2101270
SUB MRES IF NOT NEGATIVE, XRC DD F2101280
TMI MR80 CONTAINS NEW DO. OTHERWISE, TRA F2101290
CLA DOTAGZ+5,4 XRC DO CONTAINS NEW DO, F2101300
ANA DECMSK OBTAIN LEVEL OF XRC DO, F2101310
ADD L(1) ADD ONE, STORE IN L. F2101320
TRA MR10 GO TO MR10 F2101330
MR80 CLA DOTAGZ,1 F2101340
ANA DECMSK F2101350
ARS 18 F2101360
CAS MRES1 F2101370
TRA MR85 ALPHA(XRA) GREATER THAN BETA(XRC) F2101380
TRA ERLIST EQUALITY F2101391
TRA ERLIST LESS THAN F2101401
MR85 CLA DOTAGZ+5,4 F2101410
PDX 0,2 NEWDO. IF XRL DO IS OF F2101420
TXL MR05,2,1 LEVEL ONE, START NEW NEST F2101430
TXI MR75,4,9 BY TRA TO MR05. ELSE TRA MR75, F2101440
MRES HTR ES F2101450
MRES1 HTR F2101460
REM FLOW, TRANSFER ANALYS1S, F2101470
FLOW LXD TIFGO-1,4 TEST FOR EMPTY TIFGO F2101480
TXH SV00,4,599 F2101490
LXD DOTAG-1,1 INITIALIZE F2101500
SXD FLO30,1 TEST F2101510
SXD FLO60,4 INSTRUCTIONS F2101520
SXD ADL60,1 F2101530
SXD INC40,1 F2101540
SXD RNC70,1 F2101550
LXA TLT50,1 INITIALIZE TRALEV F2101560
SXD TLT50,1 INDEX VALUE F2101570
FLO10 LXD L(600),4 INIT1ALIZE F2101580
SXD TIFX,4 CURRENT TIFGO INDEX F2101590
LXD L(1350,1 INITIALIZE XRA, DOTAG INDEX F2101600
FLO15 CLA DOTAGZ+5,1 OBTAIN LEVEL OF DO F2101610
PDX 0,2 AND F2101620
TXL FLO40,2,1 TRA IF LEVEL ONE. IF NOT F2101630
FLO20 TXI FLO30,1,-9 LEVEL ONE, FIND NEXT F2101640
FLO30 TXH FLO15,1 LEVEL ONE, IF ANY. F2101650
TRA FLOEND F2101660
FLO40 SXD BNX,1 SAVE BEGINNING 0O NEST INDEX. F2101670
CLA DOTAGZ,1 INITIALIZE F2101680
PAX 0,2 BEGINNING OF NEST F2101690
ANA DECMSK AND F2101700
STO BNA END OF NEST F2101710
PXD 0,2 ADDRESSES F2101720
STO ENA F2101730
LXD TIFX,4 OBTAIN CURRENT T1FGO INDEX F2101740
FLO50 CLA TIFZ,4 AND SEARCH FOR TIFGO F2101750
ANA DECMSK ENTRY IN NEST. F2101760
CAS BNA COMPARE WITH BNA F2101770
TRA FLO70 GREATER THAN OR EQUAL TO F2101780
TSX DIAG,4 BNA, MAY BE IN NEST. ERROR. GO TO DIAGNOSTIC. F2101795
FLO55 TXI FLO60,4,-2 LESS THAN BNA, GO BACK F2101800
FLO60 TXH FLO50,4 FOR NEXT TIFGO ENTRY, F2101810
TRA FLOEND IF ANY. IF NONE, EXIT F2101820
FLO65 LXD BNX,1 F2101830
TRA FLO20 F2101840
FLO70 SXD TIFX,4 SAVE CURRENT TIFGO INDEX F2101850
CAS ENA COMPARE G AND ENA F2101860
TRA FLO65 G GREATER, GO BACK FOR NEXT NEST. F2101870
NOP G EQUAL TO F2101880
STO G OR LESS THAN G, SAVE G. F2101890
CLA TIFZ,4 TEST FOR THREE ADDRESS IF. F2101900
TMI FLO75 USE ADDRESS TO DETERMINE F2101910
PAX 0,2 WHETHER OR NOT THIS IS AN F2101920
TXL FLO75,2,5 ASSIGN FORMULA. IF IT IS, F2101930
TXL FLO55,2,6 IGNORE, TAKE NEXT TIFGO ENTRY F2101940
TXL FLO75,2,7 TEST FOR ADD. GREATER THAN F2101950
TSX DIAG,4 SEVEN. ERROr. GO TO DIAGN0STIC. F2101965
FLO75 CLA G OBTAIN G F2101970
LXD BNX,1 OBTAIN CURRENT NEST INDEX F2101980
TSX ADLOC,4 OBTAIN XDG AND LDG F2101990
CLA BITONE PUT BIT IN DOTAG FOR TRA F2102000
ORS DOTAGZ+6,1 IN IMMEDIATE RANGE. F2102010
PXD 0,1 SAVE F2102020
STO XDG XDG F2102030
PXD 0,2 AND F2102040
STO LDG LDG F2102050
CLS G LIST MINUS G F2102060
TSX TLT00,4 IN TRALEV BUFFER. F2102070
LXD TIFX,4 OBTAIN FIRST WORD OF F2102080
CLA TIFZ,4 TIFGO ENTRY F2102090
TMI 3ADIF TRA IF 3ADIF F2102100
PAX 0,2 PUT ADDRESS IN XRB F2102110
FLO80 TRA FLO80+8,2 INDEXED TRA, F2102120
TSX DIAG,4 7, R0YS TRA. ERROR, GO TO DIAGNOSTIC. F2102135
TSX DIAG,4 6, ASSIGN FORMULA ERROR. GO TO DIAGNOSTIC. F2102145
TRA 2ADIF 5, 2 ADDRESS TYPE F2102150
TRA 2ADIF 4, 2 ADIF F2102160
TRA 2ADIF 3, 2ADIF F2102170
TRA GOTOVN 2 VECTOR TYPE TRA F2102180
TRA GOTOVN 1 GO TO N (ASSIGN) F2102190
TRA GOTOK 0 GO TO CONSTANT F2102200
FLO90 LXD TIFX,4 GO BACK FOR NEXT F2102210
TXI FLO60,4,-2 TIFGO ENTRY, F2102220
FLOEND LXD TLT50,1 TEST IF ANY TRALEV ENTRIES F2102230
TXH SV00,1,599 F2102240
TSX TLT20,4 IF SO, GO TO WRITE ROUTINE F2102250
TRA SV00 F2102260
REM CONTROL ROUTINES F2102270
3ADIF ANA ADDMSK THE FOLLOWING ROUTINES F2102280
ALS 18 ARRANGE TO PROCESS ALL OF F2102290
TSX FA000,4 THE ADDRESSES ASSOCIATED F2102300
LXD TIFX,4 WITH THE TIFGO ENTRY, F2102310
2ADIF CLA TIFZ+1,4 ONE AT A TIME. F2102320
ANA DECMSK WHEN ALL ADDRESSES F2102330
TSX FA000,4 ARE PR0CESSED, F2102340
LXD TIFX,4 CONTR0L IS RETURED TO F2102350
GOTOK CLA TIFZ+1,4 FLO90 FOR NEXT F2102360
ANA ADDMSK TIFGO ENTRY. F2102370
ALS 18 F2102380
TSX FA000,4 F2102390
TRA FLO90 F2102400
GOTOVN CLA TIFZ+1,4 FOR GOTOV TRANSFERS, F2102410
PAX 0,4 USE WORD TWO F2102420
SXD GTV20,4 FOR INDEXING F2102430
PDX 0,4 VALUES NECESSARY F2102440
TRA GTV20 F2102450
GTV10 CLA TRADZ,4 TO GET ADDRESSES F2102460
ALS 18 FR0M TABLE TRAD. F2102470
SXD GTV30,4 FOR GOTON (ASSIGN) TYPE F2102480
TSX FA000,4 TRANSFERS, ALL ADDRESSES F2102490
LXD GTV30,4 MUST BE PROCESSED EVEN F2102500
TXI GTV20,4,-1 THOUGH THEY ARE ON SAME F2102510
GTV20 TXH GTV10,4 LEVEL BECAUSE OF F2102520
GTV30 TXL FLO90,0 CARRY RESTRICTIONS. F2102530
REM ANALYSIS OF ADDRESS F2102540
FA000 SXD RS60,4 SAVE TSX SET F2102550
STO A SAVE ADDRESS F2102560
LXD BNX,1 OBTAIN F2102570
TSX ADLOC,4 INDEX OF DO CONTAINING F2102580
PXD 0,1 ADDRESS AND LEVEL OF F2102590
STO XDA THAT DO. F2102600
PXD 0,2 SAVE IN F2102610
STO LDA XDA AND LDA. F2102620
TXL FA010,2,20 TEST LEVEL F2102630
TSX DIAG,4 LEV. ADD OF TRA EXCEEDS 20. ERROr. GO TO DIAGNOSTIC. F2102645
FA010 ARS 18 F2102650
STA FA020 TRANSFER F2102660
CAL L(MZ) LEVEL IN F2102670
LXD XDG,1 XDG DO. F2102680
FA020 ARS F2102690
ORS DOTAGZ+7,1 F2102700
CLA LDA LIST F2102710
ARS 18 ADDRESS AND LEVEL F2102720
ADD A IN F2102730
TSX TLT00,4 TLT. CONTINUE WITH RS00 F2102740
REM TRANSFER BIT INSERTION IN DO FORMULA F2102750
RS00 LXD XDG,1 XRA CONTAINS XDG F2102760
LXD LDG,2 XRB CONTAINS LDG F2102770
RS10 PXD 0,2 IF G AND A IN SAME DO, F2102780
SUB LDA EXIT. THIS ROUTINE INSERTS F2102790
TZE INC00 BIT MEANING THERE IS A JUMP F2102800
TPL RS20 OUT OF THE RANGE OF THIS DO. F2102810
TSX DIAG,4 JUMP INTO HIGHER LEVEL. ERROr. GO TO DIAGNOSTIC. F2102825
RS20 CAL L(MZ) F2102830
ORS DOTAGZ+5,1 F2102840
TXL INC00,2,1 FIND NEXT BACK SUBNEST F2102850
RS30 TXI RS40,1,9 DO FORMULA F2102860
RS40 CLA DOTAGZ+5,1 AND RETURN F2102870
STD RS50 TO TEST F2102880
RS50 TXL RS30,2 LEVEL F2102890
PDX 0,2 AT F2102900
RS60 TXL RS10,0 RS10 F2102910
REM INDEXING NO CARRY CONDITION F2102920
INC00 CLA LDA EXIT IF F2102930
TZE RNC00 LDA IS ZERO. F2102940
CLA G PLACE G ANDA F2102950
LDQ A IN F2102960
TLQ INC20 INCX AND INCY SO THAT F2102970
STO INCX INCX IS LESS THAN INCY. F2102980
STQ INCY F2102990
TRA INC30 F2103000
INC20 STQ INCX F2103010
STO INCY F2103020
INC30 LXD XDA,1 INITIALIZE XRA F2103030
INC35 TXI INC40,1,-9 FIND DO OF LEVEL LDA F2103040
INC40 TXL RNC00,1 PLUS ONE. F2103050
CLA DOTAGZ+5,1 F2103060
ANA DECMSK F2103070
SUB LDA F2103080
SUB L(1) F2103090
TZE INC50 DO OF LEVEL LDA PLUS ONE FOUND. F2103100
TPL INC35 LEVEL TO HIGH, GO BACK. F2103110
TRA RNC00 LEVEL TO LOW, DA EXHAUSTED. F2103120
INC50 CLA DOTAGZ,1 OBTAIN BETA OF F2103130
PAX 0,2 THIS DO IN DECREMENT. F2103140
PXD 0,2 F2103150
CAS INCY COMPARE WITH INCY. F2103160
TRA RNC00 GREATER THAN OR EQUAL TO F2103170
TRA RNC00 GREATEST OF G, A, EXIT. F2103180
CAS INCX LESS THAN INCY, COMPARE F2103190
TRA INC60 WITH INCX. GREATER THAN F2103200
TRA INC60 OR EQUAL TO INCX, GO TO INC60. F2103210
TRA INC35 LESS THAN INCX, GET NEXT DO. F2103220
INC60 CAL NCMSK AND OUT CARRY BITS. F2103230
ANS DOTAGZ+5,1 F2103240
TRA INC35 GO BACK FOR NEXT DO. F2103250
INCX HTR ES. F2103260
INCY HTR ES. F2103270
REM RESET NO CARRY CONDITION. NO CARRY TRANSFER LEVEL F2103280
RNC00 CLA LDA EXIT IF LDA IS ZERO F2103290
TZE RNC95 F2103300
CLA LDG EXIT IF F2103310
SUB LDA LDA EQUALS F2103320
TZE RNC95 LDG F2103330
PDX 0,4 INITIALIZE COUNTER XR6 F2103340
LXD XDG,1 INITIALIZE XRA F2103350
CLA LDG AND F2103360
PDX 0,2 XRB. C(ACC) LDG. F2103370
TXI RNC50,2,1 C(XRB) LDG PLUS ONE. F2103380
RNC20 TXI RNC30,1,9 FIND NEXT BACKS F2103390
RNC30 TXH RNC95,1,1350 SUBNESTDO. F2103400
CLA DOTAGZ+5,1 F2103410
STD RNC40 F2103420
RNC40 TXL RNC20,2 F2103430
RNC50 SXD RNC75,1 SAVE XRA F2103440
STD RNC85 SAVE LEVEL OF THIS DO F2103450
PXD 0,2 SAVE LEVEL OF NEXT INNER F2103460
STO RNC90 SUBNEST DO. F2103470
RNC60 TXI RNC70,1,-9 TAKE NEXT DOWN DO IF ANY. F2103480
RNC70 TXL RNC80,1 F2103490
CLA DOTAGZ,1 IF BETA F2103500
ANA ADDMSK OF THIS DO F2103510
ALS 18 IS LESS F2103520
SUB G THAN G, F2103530
TPL RNC80 TEST LEVEL F2103540
CLA DOTAGZ+5,1 TO SEE IF F2103550
ANA DECMSK THIS DO IS OF SAME F2103560
SUB RNC90 LEVEL AS NEXT INNERMOST F2103570
TNZ RNC60 SUBNEST DO. IF NOT, GET NEXT DO. F2103580
CLA DOTAGZ+6,1 IF SO, MAKE NO CARRY F2103590
ANA DECMSK TRANSFER LEVEL OF THIS F2103600
SUB LDA DO EQUAL TO GREATER F2103610
TPL RNC60 OF PREVIOUS VALUE F2103620
CLA LDA AND CURRENT LDA. F2103630
STD DOTAGZ+6,1 F2103640
RNC75 TXL RNC60,0 GO BACK FOR NEXT TEST DO F2103650
RNC80 LXD RNC75,1 GO BACK FOR NEXT SUBNEST DO, F2103660
LXD RNC85,2 IF COUNTER PERMITS. F2103670
TIX RNC20,4,1 OTHERWISE, EXIT. F2103680
RNC85 TXL RNC95,0 F2103690
RNC90 HTR ES F2103700
RNC95 LXD RS60,4 GO BACK TO CONTROL ROUTINE F2103710
TRA 1,4 FOR NEXT ADDRESS. F2103720
REM INDEX AND LEVEL OF ADDRESS F2103730
ADLOC SXD ADL20,4 SAVE TSX SET F2103740
LXD L(0),4 INITIALIZE XRC, F2103750
SXD ADL30,4 AND DEC OF ADL30, PUT ADDRESS F2103760
STO ADL90 IN ADL90. XRA CONTAINS BNX F2103770
ADL10 CLA DOTAGZ,1 OBTAIN FIRST WORD. F2103780
PAX 0,2 SAVE BETA F2103790
ANA DECMSK GET ALPHA ALONE. F2103800
CAS ADL90 COMPARE WITH ADDRESS. IF F2103810
ADL20 TXL ADL70,0 ALPHA NOT LESS THAN ADD, THEN F2103820
ADL30 TXL ADL70,0 ADD IN LAST CHOOSEN DO. F2103830
PXD 0,2 IF ALPHA LESS THAN ADD, F2103840
CAS ADL90 COMPARE WITH BETA. F2103850
NOP IF BETA IS NOT LESS THAN F2103860
TRA ADL40 ADDRESS, THIS DO CONTAINS F2103870
TXH ADL50,4,0 ADDRESS. EXIT IF OUT OF NEST F2103880
TRA ADL70 TO ADL 70. OTHERWISE, GO TO 30 F2103890
ADL40 SXD ADL30,1 IF DO IN THIS NEST, SXD. F2103900
ADL50 TXI ADL60,1,-9 IN ANY CASE, TAKE NEXT DOWN F2103910
ADL60 TXL ADL70,1 DO, IF ANY, F2103920
CLA DOTAGZ+5,1 PUT LEVEL IN XRC. F2103930
PDX 0,4 AND GO BACK FOR TEST F2103940
TXH ADL10,4,1 UNLESS NGW DO HAS LEVEL ONE. F2103950
ADL70 LXD ADL30,3 OBTAIN XDA IN XRA, XRB. F2103960
TXL ADL80,1,0 EXIT IF ZERO. F2103970
CLA DOTAGZ+5,1 IF NOT ZERO, GET LDA IN F2103980
PDX 0,2 XRB, PUT F2103990
ADL80 LXD ADL20,4 TSX SET IN XRC F2104000
TRA 1,4 AND RETURN. F2104010
ADL90 HTR F2104020
REM TRALEV LISTING F2104030
TLT00 LXD TLT50,1 OBTAIN CURRENT TRALEV F2104040
STO TLTZ,1 INDEX. STORE ENTRY. F2104030
TXI TLT10,1,-1 IF TABLE NOW FULL, GO TO F2104060
TLT10 SXD TLT50,1 TAPE WRITING ROUTINE. F2104070
TXL TLT20,1,0 OTHERWISE, SAVE NEW INDEX F2104080
TRA 1,4 AND RETURN. F2104090
TLT20 WRS TLTAPE SELECT TAPE TO WRITE AWAY F2104100
LXD TLT50,1 BUFFER. INITIALIZE XRA F2104110
SXD TLT40,1 AND TEST INSTR. F2104120
MSE 98 TURN OFF TRALEV TAPE EMPTY F2104130
NOP LIGHT F2104140
LXA TLT50,1 RE-INITIALIZE INDEX QUANTITIES F2104150
SXD TLT50,1 F2104160
TLT30 CPY TLTZ,1 COPY BUFFER. F2104170
TXI TLT40,1,-1 F2104180
TLT40 TXH TLT30,1 F2104190
TRA 1,4 RETURN. F2104200
TLT50 HTR 600 BUFFER SIZE F2104210
REM ES FORFLOW F2104220
BNX BSS 1 BEGINNING OF NEST INDEX F2104230
BNA BSS 1 BEGINNING OF NEST ADDRESS F2104240
ENA BSS 1 END OF NEST ADDRESS F2104250
G BSS 1 GAMMA OF SOME TIFGO ENTRY F2104260
XDG BSS 1 INDEX OF DO WITH G IN IMMED. F2104270
LDG BSS 1 RANGE. LEVEL OF XDG. F2104280
A BSS 1 AN ADDRESS TO WHICH G TRANSFERS. F2104290
XDA BSS 1 1NDEX OF DO WITH A IN IMMED. F2104300
LDA BSS 1 RANGE. LEVEL OF XDA. F2104310
TIFX BSS 1 CURRENT TIFGO INDEX. F2104320
REM DO SYMBOL DEFINITION OF VARIABLE RANGES AND INCREMENTS F2104330
SV00 LXD DOTAG-1,1 F2104340
SXD SV80,1 F2104350
SXD SV95,1 F2104360
SXD TRA40,1 F2104370
LXD L(1350,1 INITIALIZE XRA F2104380
SXD SV44,1 SAVE CURRENT DO INDEX F2104390
SV10 SXD SV98,1 SAVE NEST INDEX F2104400
SV20 CLA DOTAGZ,1 OBTAIN FIRST WORD CURRENT F2104410
ANA TAGMSK DO AND INSPECT TAG F2104420
TZE SV90 IF ZERO, GO TO INDEXING F2104430
LXD SV98,4 OTHERWISE, NEST INDEX IN XRC F2104440
SV30 CLA DOTAGZ+1,4 OBTAIN SYM OF XRC, F2104450
LXD L(3),2 INITIALIZE XRB COUNTER F2104460
SV40 CAS DOTAGZ+4,1 AND TEST FOR SYM EQUALS VAR.N. F2104470
SV44 TXL SV50,0 CURRENT DO INDEX STORAGE. F2104480
SV48 TXL SF00,0 INDEX STO OF N IN CUR. DO F2104490
SV50 TXI SV60,1,1 TAKE NEXT.N, COUNT F2104500
SV60 TIX SV40,2,1 IN XRB AND GO BACK. F2104510
SV65 LXD SV44,1 SYM NOT VAR.N., PUT CURRENT F2104520
SV70 TXI SV80,4,-9 DO INDEX IN XRA AND INDEX F2104530
SV80 TXL SV90,4 XRC. IF TABLE ENDS, GO70 SU90. F2104540
CLA DOTAGZ+5,4 OTHERWISE TEST FOR,NEW NEST, F2104550
PDX 0,2 IF NOT NEW NEST, GO BACK TO. F2104560
TXH SV30,2,1 TEST SYM. OTHERWISE. F2104570
SV90 TXI SV95,1,-9 TAKE NEXT DOWN DO F2104580
SV95 TXL TS4VAL,1 POSSIBLE. OTHERWISE, EXIT F2104590
SXD SV44,1 SAVE CURRENT DO INDEX. F2104600
CLA DOTAGZ+5,1 F2104610
PDX 0,2 INSPECT LEVEL. F2104620
TXH SV20,2,1 IF NOT NEW NEST, TRA SV20 F2104630
SV98 TXL SV10,0 1F NEW NEST, SV10 (NEST.INDEX STO.)F2104640
SF00 SXD SV48,1 SAVE INDEX OF N. N CURRENT DO F2104650
SXD SF10,2 SAVE N COUNTER. F2104660
SXD SF15,4 F2104670
PXD 0,4 SAVE INDEX OF SYMBOL DO F2104680
STO SFES1 IN FULL WORD. F2104690
LXD SV44,1 OBTAIN INDEX OF CURRENT DO F2104700
PXD 0,1 IN ACC. AND COMPARE F2104710
CAS SFES1 WITH INDEX OF SYMBOL DO. F2104720
SF10 TXL SF20,0 CURRENT INDEX GREATER. F2104730
TRA SF79 EQUALITY F2104740
PSE 97 SYMBOL INDEX GREATER, F2104750
SF15 TXL SF30,0 TURN ON LIGHT 97. F2104760
SF20 LXD SV44,4 CUR. IND. GREATER, PUT IN XRC F2104770
LXD SFES1,1 SYM. IND. IN XRA. F2104780
MSE 97 LIGHT 97 OFF. F2104790
NOP AT SF30, XRA CONTAIN LEAST F2104800
SF30 PXD 0,4 OF CUR. IND, SYM. IND. XRC F2104810
STO SFES1 CONTAINS GREATER. PUT IN ES. F2104820
SF35 CLA DOTAGZ+5,1 PUT LEVEL OF D(XRA) IN F2104830
PDX 0,2 XRB. HALT IF F2104840
TXH SF40,2,1 LEVEL F2104850
TSX DIAG,4 IS ONE ERROr. GO TO DIAGNOSTIC F2104865
SF40 TXI SF50,1,9 BACK UP IN XRA- F2104870
SF50 TXL SF60,1,1350 HALT IF TOP OD DOTAG F2104880
TSX DIAG,4 PASSED. ERROr. GO TO DIAGNOSTIC F2104893
SF60 CLA DOTAGZ+5,1 THIS ROUTINE, BY RAISING F2104900
STD SF70 XRA, EXITS TO SF80 OR F2104910
SF70 TXL SF40,2 SF90 UPON FINDING A DO F2104920
PXD 0,1 IN THE SUBNEST OF XRA F2104930
CAS SFES1 WHICH IS THE DO OF XRC OR F2104940
TRA SF73 CONTAINS THE DO OF XRC F2104950
TRA SF80 AND CURRENT DO. F2104960
TRA SF35 GO BACK FOR NEXT DO F2104970
SF73 SXD SF76,1 THIS ROUTINE (THROUGH SF76) F2104980
SF74 LXD SF15,1 F2104990
TSX TRA00,4 USES TRA00 F2105000
TZE SFEND F2105010
STO SF78 TO DETERMINE THE F2105020
LXD SF76,1 GREATEST EXIT LEVEL OF F2105030
CLA DOTAGZ+5,1 DEFINITION FROM A F2105040
ANA DECMSK DO SYM NOT IN THE F2105050
CAS SF78 SUBNEST OF A DO WITH F2105060
CLA SF78 VARIABLE NS, BUT IN A F2105070
NOP SUBNEST WHICH HAS A F2105080
SF76 TXL SF90,0 NON EMPTY INTERSECTION F2105090
SF78 HTR WITH THAT SUB NEST. F2105100
SF79 CLA DOTAGZ+5,1 F2105110
ANA DECMSK F2111120
SUB L(1) F2105130
TNZ SF90 F2105140
TRA SFEND F2105150
SF80 MSE 97 EQUALITY, IF SYM DO IS F2105160
TSX DIAG,4 CURRENT DO, ERROr. GO TO DIAGNOSTIC. F2105173
CLA BITONE F2105180
ORS DOTAGZ+5,1 F2105190
CLA DOTAGZ+5,1 OBTAIN LEVEL OF DEFINITION F2105200
ANA DECMSK AND STORE F2105210
SF90 ARS 18 IN ADDRESS PART F2105220
STO SFES1 OF SFESI. F2105230
LXD SV48,1 INDEX OF VAR.N. IN CUR. DO. F2105240
CLA DOTAGZ+8,1 OBTAIN PREVIOUS LEV. DEF. F2105250
ANA ADDMSK AND COMPARE F2105260
CAS SFES1 WITH NEW, F2105270
TRA SFEND EXIT UNLESS F2105280
TRA SFEND NEW LEV. F2105290
CLA SFES1 IS LARGGER, IN WHICH CASE F2105300
STA DOTAGZ+8,1 REPLACE OLD WITH NEW F2105310
LXD SF10,2 OBTAIN N COUNTER IN XRB F2105320
SF92 CLA DOTAGZ+4,1 OBTAIN VAR. N IN ACC. F2105330
TRA SF96 GO TO INDEXING. F2105340
SF94 CAS DOTAGZ+4,1 COMPARE, TO FIND DUPLICATE F2105350
TRA SF96 N S. F2105360
TRA SF99 DUPE FOUND. F2105370
SF96 TXI SF98,1,1 INDEX IN DO FORMULA F2105380
SF98 TIX SF94,2,1 AND IN COUNTER F2105390
TRA SFEND F2105400
SF99 CLA SFES1 REPLACE F2105410
STA DOTAGZ+8,1 OLD LEVEL F2105420
TRA SF92 OF DEFINITION. F2105430
SFEND LXD SF15,4 GO BACK FOR NEXT F2105440
TRA SV65 SYMBOL DO F2105450
SFES1 HTR ES, F2105460
REM GREATEST TRANSFER LEVEL OUT OF DO FORMULA F2105470
TRA00 CLA DOTAGZ+5,1 OBTAIL LEVEL OF DO F2105480
PDX 0,2 USE MAX LEV TWENTY F2105490
TRA10 TXL TRA20,2,20 F2105500
LXD TRA10,2 F2105510
TRA20 SXD TRA50,2 INITIALIZE TEST INSTR. F2105520
PXD 0,2 COMPUTE LEVEL MINUS ONE F2105530
ARS 18 AND INITIALIZE SHIFT INSTR. F2105540
SUB TRAN1 COMPUTE 35 MINUS (L M1NUS F2105530
STA TRA70 ONE) AND F2105560
SUB TRAN2 INITIALIZE F2105570
STA TRA80 SHIFT INSTR. F2105580
PXD 0,0 INITIALIZE F2105590
STO TRAN5 ES LOCATION TO ZERO F2105600
TRA30 CAL DOTAGZ+7,1 OR INTO TRAN5 ALL THE F2105610
ORS TRAN5 T2 WORDS OF THIS DO F2105620
TXI TRA40,1,-9 AND ALL DOS CONTAINED F2105630
TRA40 TXL TRA60,1 BY THIS DO. F2105640
CLA DOTAGZ+5,1 F2105650
PDX 0,2 F2105660
TRA50 TXH TRA30,2 F2105670
TRA60 LDQ TRAN4 PUT MASK IN QUOTIENT F2105680
TRA70 LLS REGISTER, SHIFT COMPUTED F2105690
TRA80 ALS AMOUNTS TO CONSTRUCT F2105700
ANA TRAN5 MASK IN ACC. AND IN F2105710
TZE TRA95 UNION OF T2 WORDS. EXIT IF ZERO. F2105720
STO TRAN5 OBTAIN LOW ORDER BIT F2105730
SUB TRAN1 IN ACC. F2105740
STO TRAN6 F2105750
ORA TRAN5 F2105760
SUB TRAN6 F2105770
LXD L(1),1 F2105780
TRA85 CAS TRATAB+19,1 SEARCH TABLE F2105790
TRA TRA86 TO OBTAIN F2105800
TRA TRA90 LEVEL INTEGER F2105810
TRA86 TXI TRA87,1,1 F2105820
TRA87 TXL TRA85,1,19 F2105830
TSX DIAG,4 ERROr GO TO DIAGNOSTIC. F2103845
TRA90 PXD 0,1 PUT LEVEL IN ACC DECREMENT F2105850
TRA95 TRA 1,4 EXIT. F2105860
TRAN1 HTR 1 F2105870
TRAN2 HTR 35 F2105880
TRAN4 OCT 377777777777 F2105890
TRAN5 HTR F2105900
TRAN6 HTR F2105910
TRATAB OCT 200000 F2105920
OCT 400000 F2105930
OCT 1000000 F2105940
OCT 2000000 F2105950
OCT 4000000 F2105960
OCT 10000000 F2105970
OCT 20000000 F2105980
OCT 40000000 F2105990
OCT 100000000 F2106000
OCT 200000000 F2106010
OCT 400000000 F2106020
OCT 1000000000 F2106030
OCT 2000000000 F2106040
OCT 4000000000 F2106050
OCT 10000000000 F2106060
OCT 20000000000 F2106070
OCT 40000000000 F2106080
OCT 100000000000 F2106090
OCT 200000000000 F2106100
REM FORVAL TABLE SEARCH FOR VARIABLE RANGES AND INCREMENTS F2106110
TS4VAL CLA 4VALAD READ IN F2106120
LXD L(6),2 FORVAL F2106130
TSX RTAPE,4 F2106140
TXL TSV10,1,999 F2106150
PSE 100 IF FORVAL EMPTY, SET F2106160
TRA T190 SENSE LIGHT AND EXTT F2106170
TSV10 SXD TS40,1 INITIALIZE TEST INSTRS. F2106180
SXD TS75,1 F2106190
MSE 99 TEST FOR EMPTY DOTAG F2106200
TRA TSV20 OFF, NOT EMPTY F2106210
PSE 99 ON, DOTAG EMPTY F2106220
TRA T190 EXIT F2106230
TSV20 LXD DOTAG-1,1 DOTAG TEST INITIALIZING F2106240
SXD TS35,1 F2106230
LXD L(1350,1 INITIALIZE XRA F2106260
LXD L(1000,4 AND F2106270
SXD XFOR,4 XFOR. CONTINUE WITH TS00 F2106280
TS00 MSE 97 SENSE LIGHT-97 OFF F2106290
NOP F2106300
TS10 CLA DOTAGZ+5,1 OBTAIN LEVEL OF CURRENT F2106310
PDX 0,2 DO IN XRB. IF L IS ONE, F2106320
TXL TS15,2,1 GO TO NEST PROCEDURE. IF F2106330
MSE 97 L 1S NOT ONE AND LIGHT IS F2106340
TRA TS30,0 OFF, GO TO INNER DO PRECEDURE, F2106350
PSE 97 IF LIGHT IS ON, CONTINUE F2106360
TXI TS35,1,-9 INDEXING FOR NEXT NEST. F2106370
TS15 MSE 97 F2106380
NOP F2106390
CLA DOTAGZ,1 L IS ONE, DO NEST PR0CEDURE. F2106400
PAX 0,2 ESTABLISH BEGINNING OF F2106410
ANA DECMSK NEST ADDRESS BNA, AND F2106420
STO TBNA END OF NEST ADDRESS ENA. F2106430
PXD 0,2 SEARCH IN FORTAG UNTIL F2106440
STO TENA FOR NRS. FOUND GREATER F2106450
LXD XFOR,4 THAN ENA. IF NONE, EXIT F2106460
CLA TBNA FROM ENTIRE ROUTINE. F2106470
TS20 CAS 4VALZ,4 TEST WHETHER FIRST SUCH F2106480
TXI TS40,4,-2 NR. IS IN NEST IF NOT, F2106490
TSX DIAG,4 FIND NEXT NEST. IF SO, (ERROr. GO TO DIAGNOSTIC.)F2106503
SXD XFOR,4 GO TO INDEXING INSTRS. F2106510
CLA TENA FOR NEXT DO. F2106520
SUB 4VALZ,4 F2106530
TPL TS25 F2106540
PSE 97 RECORD NO FORVAL FALLS IN THIS NEST. F2106550
TS25 TXI TS35,1,-9 F2106560
TS30 CLA DOTAGZ,1 INNER DO PROCEDURE. F2106570
ANA TAGMSK TEST FOR NON ZERO TAG, F2106580
TNZ TS50 IN WHICH CASE TRA FOR F2106590
TS33 TXI TS35,1,-9 TABLE SEARCH. OTHERWISE, F2106600
TS35 TXH TS10,1 INDEX FOR NEXT DO, IF POSSIBLE. F2106610
TS38 TXL T190,0 EXIT, STORAGE FOR INDEX CUR. DO. F2106620
TS40 TXH TS20,4 INDEX TEST FOR FORVAL F2106630
TRA T190 EXIT F2106640
TS50 SXD TS38,1 SAVE INDEX OF CURRENT DO F2106650
SXD T110,2 SAVE LEVEL OF CURRENT DO F2106660
LXD XFOR,4 OBTAIN FORVAL INDEX IN XRC F2106670
TS55 LXD L(3),2 PUT THREE IN XRC F2106680
LXD TS38,1 CURRENT DO IN XRA F2106690
CLA TENA TEST FOR END OF NEST F2106700
SUB 4VALZ,4 F2106710
TMI TS33 NOT IN NEST TRA FOR NEXT DO. F2106720
CLA 4VALZ+1,4 IN NEST 0BTAIN FORTAG F2106730
TS60 CAS DOTAGZ+4,1 SYMBOL, COMPARE WITH VAR F2106740
TRA TS65 N SYMBOLS. F2106750
TRA TS80 EQUALITY F2106760
TS65 TXI TS70,1,1 INDEX IN XRA, F2106770
TS70 TIX TS60,2,1 COUNT IN XRB F2106780
TXI TS75,4,-2 TAKE NEXT FORTAG ENTRY, F2106790
TS75 TXH TS55,4 IF ANY F2106800
LXD TS38,1 RESTORE CURRENT DO INDEX F2106810
TXI TS35,1,-9 AND TRA FOR NEXT DO. F2106820
TS80 SXD T148,2 SAVE VAR. N. COUNTER. F2106830
SXD T144,1 SAVE COUNTER OF SYM IN DO F2106840
LXD TS38,1 CURRENT DO INDEX IN XRA F2106850
LXD T110,2 CURRENT DO LEVEL IN XRB F2106860
TXI TS85,2,1 ADJUST XRB FOR CURRENT DO TEST. F2106870
TS85 CLA DOTAGZ+5,1 OBTAIN NEXT BACK DO IN F2106880
STD TS90 SUBNEST. ON FIRST TIME F2106890
TS90 TXH T100,2 THROUGH, CURRENT DO IS F2106900
TS92 TXI TS85,1,9 PRODUCED. F2106910
TS94 TIX TS92,2,1 ADJUST LEVEL. F2106920
TSX DIAG,4 IF NOT IN NEST, ERROr. GO TO DIAGNOSTIC. F2106933
T100 CLA DOTAGZ,1 NEXT BACK DO FOUND. F2106940
ANA DECMSK TEST TO SEE IF FORTAG F2106950
SUB 4VALZ,4 FORMULA NR. IS IN THIS F2106960
TPL TS94 DO. IF NOT, GO TO TS94 F2106970
CLA DOTAGZ,1 TO ADJUST LEVEL FOR F2106980
ANA ADDMSK OBTAINING NEW SUBNEST DO. F2106990
ALS 18 F2107000
SUB 4VALZ,4 F2107010
TMI TS94 F2107020
T110 TXL T120,2 DEC CONTAINS CURRENT LEVEL. F2107030
TRA T170 APPARENT DEFINITION OF A VARIABLE N WITHIN F2107044
REM RANGE OF THE DO WITH VARIABLE N. IGNORE AND F2107046
REM GET NEXT FORVAL. F2107047
T120 LXD T144,1 PUT CUR. VAR. DO INDEX IN F2107050
CLA DOTAGZ+8,1 XRA, AND OBTAIN LEV. DEF, F2107060
PAX 0,2 OF VAR. N. F2107070
SXD T130,2 STORE IN DEC OF T130. F2107080
LXD TS90,2 OBTAIN LEVEL OF DO CONTAINING F2107000
T130 TXL T170,2 FURTAG FOR. NR. F2107100
PXD 0,2 CHOOSE LARGER AND PUT IN F2107110
ARS 18 LEV, DEF. FIELD OF CURRENT DO. F2107120
STA DOTAGZ+8,1 IF CHANGE MADE, SAVE F2107130
STO T195 LEVEL, F2107140
LXD T148,2 AND TEST TO SEE IF THIS F2107150
CLA DOTAGZ+4,1 SYMBOL F2107160
TXI T160,1,1 DUPLICATED F2107170
T140 CAS DOTAGZ+4,1 IN DO VAR.N S. F2107180
T144 TXL T150,0 IF SO, REPLACE ITS LEVEL(DEC HAS IX FOR VAR N) F2107100
T148 TXL T180,0 OF DEF BY THIS ( DEC HAS 3,2,1 IF FORVAL F2107200
REM MATCHES VARIABLE N3,N2,N1) F2107201
T150 TXI T160,1,1 NEW LEVEL. F2107210
T160 TIX T140,2,1 F2107220
T170 TXI TS75,4,-2 F2107230
T180 CLA T195 F2107240
STA DOTAGZ+8,1 F2107230
CLA DOTAGZ+4,1 F2107260
TXI T160,1,1 F2107270
T190 TRA RH00 EXIT F2107280
T195 HTR ES F2107290
XFOR HTR FORTAG INDEX F2107300
TBNA HTR ES F2107310
TENA HTR ES F2107320
REM USE OF SYMBOL WITHIN RANGE AS FXD POINT VAR. FORVAR SEARCH. F2107330
RH00 LXD L(5),2 READ IN F2107340
CLA 4VARAD FORVAR F2107350
TSX RTAPE,4 F2107360
TXH RH95,1,1499 EXIT IF FORVAR EMPTY F2107370
MSE 99 TEST FOR EMPTY DOTAG. F2107380
TRA RH05 NOT EMPTY F2107390
PSE 99 EMTPY, RESTORE SENSE LIGHT F2107400
TRA RH95 AND EXIT. F2107410
RH05 SXD RH60,1 FORVAR.TEST F2107420
SXD RH75,1 INIT1ALIZING F2107430
LXD DOTAG-1,1 DOTAG TEST F2107440
SXD RH90,1 INITIALIZING F2107450
LXD L(1500,1 MAX WORDS IN FORVAL F2107460
SXD RHNNX,1 IN NEXT NEST INDEX. F2107470
MSE 97 TURN LIGHT 97 OFF. F2107480
NOP F2107490
LXD L(1350,1 PUT MAX WDS IN DOTAG IN XRA. F2107500
RH10 CLA DOTAGZ,1 OBTAIN FIRST DOTAG WORD. F2107510
PAX 0,2 SEPARATE ALPHA AND BETA, F2107520
ANA DECMSK STORE IN RFIRST AND RLAST F2107530
STO RFIRST F2107540
PXD 0,2 F2107550
STO RLAST F2107560
CLA DOTAGZ+5,1 OBTAIN LEVEL IN XRB. F2107570
PDX 0,2 F2107580
TXH RH30,2,1 TRA IF LEVEL GREATER THAN ONE. F2107590
MSE 97 LEVEL IS ONE, TEST WHETHER, F2107600
TRA RH20 ON LAST LEVEL ONE, FORVAR F2107610
TRA RH95 EXHAUSTED, IF SO, EXIT, F2107620
RH20 LXD RHNNX,4 OTHERWISE, ADJUST FORVAR F2107630
SXD RHCNX,4 1NDEX TO SKIP LAST NEST AREA F2107640
RH30 LXD RHCNX,4 PUT FORVAR INDEX IN XRC F2107650
CLA RFIRST BEGIN SEARCH FOR FIRSTL. F2107660
RH40 CAS 4VARZ,4 FORVAR ENTRY IN RANGE. F2107670
TXI RH60,4,-2 F2107680
TSX DIAG,4 ERROr GO TO DIAGNOSTIC F2107695
SXD RHCNX,4 SAVE INDEX AT THIS POINT, F2107700
RH50 CLA RLAST FOR NEXT DO, AND COMPARE F2107710
CAS 4VARZ,4 FORVAR ENTRY WITH RLAST F2107720
NOP F2107730
TRA RH70 TRA, IN RANGE. F2107740
TRA RH80 TRA, NOT IN RANGE F2107750
RH60 TXH RH40,4 IF NO ENTRIES GREATER F2107760
TRA RH95 THAN RFIRST, EXIT. F2107770
RH70 CLA DOTAGZ+1,1 IN RANGE, COMPARE SYMB0LS F2107780
SUB 4VARZ+1,4 IF EQUAL, PUT BIT IN F2107790
TNZ RH72 DOTAG-ENTRY. F2107800
CLA BITONE F2107810
ORS DOTAGZ+5,1 F2107820
TXH RH85,2,1 F2107830
RH72 TXI RH75,4,-2 INDEX FORVAR AND GO BACK, F2107840
RH75 TXH RH50,4 IF POSSIBLE. OTHERWISE, F2107850
TXH RH85,2,1 TEST LEVEL. IF LEVEL IS F2107860
PSE 97 ONE, ARRANGE TO EXIT WHEN F2107870
TRA RH85 NEXT LEVEL ONE ENCOUNTERED F2107880
RH80 TXH RH85,2,1 N0T IN RANGE, TEST LEVEL F2107890
SXD RHNNX,4 SET NEXT NEST INDEX IF L IS ONE. F2107900
RH85 TXI RH90,1,-9 INDEX IN DOTAG AND GO F2107910
RH90 TXH RH10,1 BACK, IF POSSIBLE. F2107920
RH95 TRA LB00 EXIT F2107930
RHNNX HTR NEXT NGST INDEX F2107940
RHCNX HTR CURRENT NEST INDEX F2107950
RFIRST HTR ALPHA ADDRESS F2107960
RLAST HTR BETA ADDRESS F2107970
REM TAPE READING ROUTINE F2107980
RTAPE STA RT40 INITIALIZE TABLE ADDRESS F2107990
STO RT92 F2108000
SXD RT80,4 SAVEXRC, TSX SET F2108010
PXD 0,2 SAVE XRB, F2108020
ARS 18 TABLE NR, IN ADDRESS. F2108030
STO RT90 F2108040
LXD RTD18,4 INITIALIZE ERROr COUNTER. F2108050
SXD RT73,4 F2108060
RT10 RDS TTAPE SELECT TAPE F2108070
LXD RT92,1 PUT MAX NR WORDS IN XRA F2108080
LXD L(2),4 PUT TWO IN XRC F2108090
RT20 CPY RT95+2,4 COPY FIRST TWO WORDS. F2108100
TRA RT30 INTO E.S. F2108110
TSX DIAG,4 EOF. ERROr. GO TO DIAGNOSTIC F2108125
TSX DIAG,4 EOR ERROR. GO TO DIAGNOSTIC. F2108135
RT30 TIX RT20,4,1 F2108140
TXL RTDO0,2,1 F2108150
RT40 CPY 0,1 COPY TABLE F2108160
TXI RT40,1,-1 COUNT NR. OF WORDS. F2108170
TSX DIAG,4 EOF ERROr. GO TO DIAGNOSTIC. F2108183
RT45 WRS 219 ERROr. GO TO DIAGNOSTIC. F2108183
RTT ERROr TEST F2108190
TRA RT70 ERROr, TRA F2108200
CLA RT90 NO ERROr, F2108220
SUB RT95 TEST TABLE NR. F2108230
TZE RT60 NO ERROr F2108240
TSX DIAG,4 WRONG TABLE 1DENT NR. ERROr. GO TO DIAGNOSTIC. F2108255
RT60 LXD RT80,4 TABLE CORRECT, F2108260
TRA 1,4 RETURN. F2108270
RT70 LXD RT73,4 F2108280
BST TTAPE ERROr, BACKSPACE TAPE F2108290
TNX RT75,4,1 F2108300
SXD RT73,4 COUNT DOWN ERROR COUNTER F2108310
RT73 TXL RT10,0 F2108320
RT75 LDQ RT90 IF FIVE FAILURES, PUT F2108332
TSX DIAG,4 TABLE NR. IN MQ. ERROR. GO TO DIAGNOSTIC. F2108344
RT80 HTR TSX INDEX STORAGE F2108350
RT90 HTR TABLE NR STORAGE, C.S. F2108360
RT92 HTR ADDRESS WORD STORAGE F2108370
RT95 HTR TABLE NR, WD ONE OF TABLE. F2108380
RT96 HTR NR. OF WDS IN DEC. F2108390
RTDO0 PXD 0,0 THIS ROUTINE F2108400
RTD10 LXD RTD18,4 READS IN ONE F2108410
RTD15 CPY DOTAGZ,1 ENTRY FROM F2108420
TXI RTD20,1,-1 TDO, AFTER WHICH F2108430
TSX DIAG,4 FOUR ZERO WORDS =ERROr. GO TO DIAGNOSTIC. F2108445
RTD18 TXL RT45,0,5 ARE STORED,BEFORE F2108450
RTD20 TIX RTD15,4,1 READING IN F2108460
RTD23 TXI RTD25,4,3 THE NEXT ENTRY. F2108470
RTD25 STO DOTAGZ,1 STORE ZERO F2108480
TXI RTD30,1,-1 INDEX F2108490
RTD30 STO DOTAGZ,1 AND REPEAT. F2108500
TXI RTD35,1,-1 WHEN DOTAG F2108510
RTD35 STO DOTAGZ,1 ENTRY IS F2108520
TXI RTD40,1,-1 COMPLETE, F2108530
RTD40 STO DOTAGZ,1 TRA F2108540
TXI RTD10,1,-1 TO RTD10 F2108550
DOAD HTR DOTAGZ,0,1350 ADDRESS PART CONTAINS F2108560
4VALAD HTR 4VALZ,0,1000 ADDRESS OF LAST WORD IN F2108570
TIFAD HTR TIFZ,0,600 TABLE PLUS ONE. F2108580
TRADAD HTR TRADZ,0,250 DEC CONTAINS MAX NR OF F2108590
4VARAD HTR 4VARZ,0,1500 WRDS. F2108600
4TAGAD HTR FORTZ,0,1500 F2108610
REM TRANSFER IN EXTENDED RANGE BIT. F2108620
LB00 MSE 99 TEST FOR EMPTY DOTAG F2108630
TRA LB02 OFF, NOT EMPTY F2108640
PSE 99 ON, EMPTY, RESET LIGHT F2108650
TRA EB00 AND EX1T F2108660
LB02 LXD DOTAG-1,1 OBTAIN NEXT UNUSED INDEX F2108670
LB05 TXL LB60,0 TRA TO ADJUST FOR LAST DO. F2108680
LB10 CLA DOTAGZ+6,1 OBTAIN T1 WORD. F2108690
TMI LB60 TEST SIGN, TRA IF NEG. F2108700
ANA BITONE TEST FOR TRA IN IMMED. RANGE. F2108710
TZE LB60 IF NONE,TRA. F2108720
SXD LB05,1 SAVE XRA F2108730
CLA DOTAGZ+5,1 PUT LEVEL F2108740
PDX 0,2 IN XRB F2108750
LB20 CAL LMSK OR IN F2108760
ORS DOTAGZ+6,1 MSK F2108770
TXL LB50,2,1 EXIT IF LEVEL ONE. F2108780
LB25 TXI LB30,1,9 FIND NEXT BACK F2108790
LB30 CLA DOTAGZ+5,1 SUBNEST DO, F2108800
STD LB40 F2108810
LB40 TXL LB25,2 F2108820
PDX 0,2 SAVE NEW LEVEL IN XRB. F2108830
CLA DOTAGZ+6,1 TEST SIGN OF WORD T1. F2108840
TPL LB20 IF PLUS GO TO PUT IN MSK. F2108850
LB50 LXD LB05,1 IF NOT, FIND NEXT DO F2108860
LB60 TXI LB70,1,9 IN MAIN PASS. F2108870
LB70 TXL LB10,1,1350 EB00 FOLLOWS F2108880
REM END OF BLOCK ROUTINE F2108890
EB00 REW 147 REWIND DOTAG TAPE F2108900
MSE 99 TEST FOR EMPTY DQTAG F2108910
TRA EB10 OFF, NOT EMPTY F2108920
PSE 99 ON, EMPTY, RESTORE AND TRA. F2108930
TRA EB50 F2108940
EB10 LXD DOTAG-1,1 INITIALIZE TEST INSTR. F2108950
SXD EB40,1 AND F2108960
LXD L(1350,1 XRA F2108970
EB20 LXD L(9),4 WRITE F2108980
CLA DOTAGZ+5,1 DOTAG F2108990
PDX 0,2 ON F2109000
TXH EB30,2,1 TAPE F2109010
WRS 147 ONE F2109020
EB30 CPY DOTAGZ,1 NEST F2109030
TXI EB40,1,-1 PER F2109040
EB40 TXL EB50,1 RECORD F2109050
TIX EB30,4,1 F2109060
TRA EB20 F2109070
EB50 WEF 147 WRITE END OF FILE F2109080
EB60 LXD L(4),2 READ F2109090
CLA 4TAGAD IN F2109100
TSX RTAPE,4 FORTAG. F2109110
SXD FORTAG-1,1 SET SENSE LIGHT 97 F2109120
MSE 97 ON IF FORTAG F2109130
NOP EMPTY, OFF IF F2109140
TXL EB70,1,1499 FORTAG F2109150
PSE 97 NOT EMPTY. F2109160
EB70 RDS TTAPE MOVE TTAPE PAST F2109170
CPY EB80 END OF FILE MARK. F2109180
TRA EB70 F2109190
TRA EB90 EOF F2109200
TSX DIAG,4 SHOULD NOT BE EOR HERE. ERROr. GO TO DIAGNOSTIC. F2III215
EB80 HTR ES F2109220
EB90 MSE 98 IS TRALEV TALBE EMPTY F2109230
TRA EB95 F2109240
WRS TLTAPE ON, EMPTY. F2109250
CPY L(0) F2109260
CPY L(0) F2109270
PSE 98 F2109280
EB95 WEF TLTAPE TRALEV TAPE F2109290
RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2109295
TRA ONETCS GO TO ONE TO CS ( MONITOR). F2109296
ERLIST SXD ERIR2,2 SAVE X R B F2109311
LXD ERNBR,2 GET ERROr NUMBER F2109321
CLA DOTAGZ,4 SAVE ALPHA DO BETA F2109331
STO LIST,2 IN LIST F2109141
CLA DOTAGZ+1,4 AND SYMBOL F2109351
STO LIST-1,2 F2109361
CLA DOTAGZ,1 SAVE OTHER ALPHA DO BETA F2109371
STO LIST-2,2 F2109181
CLA DOTAGZ+1,1 AND SYMBOL F2109391
STO LIST-3,2 F2102401
TXI ERNXT,2,4 F2109411
ERNXT SXD ERNBR,2 F2109421
LXD ERIR2,2 F2109431
TRA MR60 F2109441
ERIR2 F2109451
ERNBR F2109461
ERBETA SXD ERIR2,2 SAVE ALPHA DO BETA F2109471
LXD ERNBR,2 WHERE ALPHA F2109481
STZ LIST,2 IS GREATER THAN F2109491
CLA DOTAGZ,1 ITS BETA F2109501
STO LIST-1,2 F2109511
CLA DOTAGZ+1,1 F2109521
STO LIST-2,2 F2109531
TXI ERNX,2,3 F2109541
ERNX SXD ERNBR,2 F2109551
LXD ERIR2,2 F2109561
TRA MR15 F2109571
ERTST LXD ERNBR,2 F2109581
TXL FLOW,2,0 F2109591
TSX 4,4 F2109601
LIST SYN 32767 F2109611
ONETCS EQU 4 F2109710
DIAG EQU 4 F2109711
LMSK SYN L(MZ) F2109712
TTAPE EQU 146 F2109722
TLTAPE EQU 148 F2109732
END END OF BLOCK 1 F2109742
REM BLOCK TWO OF SECTION TWO.
REM MASTER RECORD CARD = FN034 F2200004
REM BLOCK 2 OF SECTION 2 PERFORMS SUBSCRIPT ANALYSIS FOR THOSE F2200006
REM SUBSCRIPT COMBINATIONS WHICH HAVE SUBSCRIPTS F2200010
REM SOME OR ALL OF WHICH ARE UNDER CONTROL OF THEIR RESPECTIVE F2200020
REM DOS. THERE ARE TWO MACHINE STATES, ONE F2200030
REM OF WHICH IS RESERVED EXCLUSIVELY F2200040
REM FOR THOSE SUBSCRIPT COMBINATIONS F2200050
REM SOME SUBSCRIPT ELEMENT/S OF WHICH ARE F2200060
REM NOT UNDER CONTROL OF A DO (RELATIVE F2200070
REM CONSTANT). F2200080
ORG 25 F2200090
DOTAG BSS 1 F2200100
BSS 449 F2200110
DOTAGZ BSS 1 F2200120
FORTAG BSS 1 F2200140
BSS 1499 F2200150
FORTZ BSS 1 F2200160
ORG 1976 F2200170
DOREC BSS 1 (INIT ZERO) F2200180
BSS 1 F2200190
ATSW BSS 1 ADDED TAG SWITCH. EQ 1 IF PROC ADDED TAGS(INITOF2200200
NEWTAG BSS 1 (INIT 4000M0DS, FIRSTTAG) F2200210
XC BSS 1 IX CURRENT DO. F2200220
LC BSS 1 LEV CURRENT DO F2200230
ALPHA BSS 1 ALPHA CURRENT DO F2200240
BETA BSS 1 BETA CURRENT DO F2200250
TAG BSS 1 TAG CURRENT TAG IN ROUTINE TAG F2200260
TS BSS 1 TAG, EITHER FORTAG OR NEW TAG NAME OF CURRENT F2200270
TAG1 BSS 1 4TH WD OF TAGTAG F2200280
GR0UP BSS 1 GROUP NR. IN DEC F2200290
C1 BSS 1 COEFF 1ST SYMB (HERE T0 D2 BELOW, INIT 0,SUBCOMF2200300
S1 BSS 1 SUBSCR 1ST SYMB F2200310
C2 BSS 1 COEFF 2ND SYMB F2200320
S2 BSS 1 SUBSC 2ND F2200330
C3 BSS 1 COEFF 3RD F2200340
S3 BSS 1 SUBSC 3RD F2200350
D1 BSS 1 DIMENSION 1ST F2200360
D2 BSS 1 DIM 2ND F2200370
X1 BSS 1 IX DO MATHCHING 1ST SYMB.) (HERE TO CARWRD F2200380
L1 BSS 1 LEV DO MATCHING 1ST SYMB BELOW, INIT 0,IDENTF2200390
X2 BSS 1 IX DO MATHCING 2ND SYMB F2200400
L2 BSS 1 LEV DO MATCHING 2ND F2200410
X3 BSS 1 IX DO MATCHING 3RD F2200420
L3 BSS 1 LEV DO MATCHING 3RD F2200430
XL BSS 1 IX LOWEST LEVEL DOSUB F2200440
LL BSS 1 LEV LOWEST LEVEL DOSUB F2200450
NRSUBS BSS 1 NR. SUBSCRIPTS IN SUBSCR COMBINATION F2200460
NRRC BSS 1 NR. RELCONS IN SUBSCR COMBINATION F2200470
NRDS BSS 1 NR DOSUBS IN S.C. F2200480
DORC BSS 1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DORC F2200490
RCSUBS BSS 1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 RELCONF2200500
DOSUBS BSS 1 BIT POS 15,16,17 EQ 1 IF CORRES X1,X2,X3 DOSUB F2200510
DELTA BSS 1 F2200520
RCDUP BSS 1 BIT POS 15,16,17,EQ1 FOR CORRES DUPE RELCONS F2200530
DUPES BSS 1 BIT POS 15,16,17 EQ 1 FOR CORRES DUPE DOSUBS F2200540
RSYM1 BSS 1 -- F2200550
RSYM2 BSS 1 F2200560
CARWRD BSS 1 BIT 11 IF LEFT TYPE 1 CARRY, 12 LEFT TYPE 2, F2200570
REM 13 CENTER TYPE 1, 14 CENTER TYPE 2. F2200571
REM S SET NEG IF COUNTER AND TEST FOUND F2200572
TL1 BSS 1 F2200580
TL2 BSS 1 F2200590
A BSS 1 F2200600
B BSS 1 F2200610
NEXTA BSS 1 F2200620
LASTB BSS 1 F2200630
REBITS BSS 1 F2200640
TRABIT BSS 1 F2200650
LOWP0S BSS 1 5,3,1 1F LL SUBSCR IS X1,X2,X3 RESPECT. (ID) F2200660
L(0) 0,0,0 F2200670
L(1) 0,0,1 F2200680
L(2) 0,0,2 F2200690
L(3) 0,0,3 F2200711
L(4) 0,0,4 F2200710
L(5) 0,0,5 F2200720
L(6) 0,0,6 F2200730
L(20) 0,0,20 F2200740
L(36) 0,0,36 F2200750
L(60) 0,0,60 F2200760
L(450) 0,0,450 F2200770
L(1500 0,0,1500 F2200780
L(1)A 1 F2200790
L(2)A 2 F2200800
L(4)A 4 F2200810
L(MZ) MZE F2200820
35ONES OCT 377777777777 F2200830
DECMSK OCT 77777000000 F2200840
ADDMSK OCT 77777 F2200850
CR1 OCT 100000000 BIT 11 F2200860
CR2 OCT 40000000 BIT 12 F2200870
CARMSK OCT 300000 BITS 19,20 (CARRY BITS OF DOTAG, WD 6) F2200880
FRSTAG OCT 4000 F2200890
BITONE OCT 200000000000 F220090D
BITTWO OCT 100000000000 F2200910
2BITS OCT -200000000000 S AND 1 BIT F2200920
BIT18 OCT 400000 F2200930
BIT19 OCT 200000 F2200940
BIT20 OCT 100000 F2200950
ADTXX 100 DEC CONTAINS (FROM)HERE TO NAMXX BELOW, F2200960
RESXX 300 IX VALUE FOR NEXT (DEC INiT SET TO-ADD) F2200970
TAGXX 80 TABLE ENTRY. F2200980
NAMXX 100 F2200990
BEGIN REW DOTAPE REWIND DOTAG TAPE F2201000
LXD L(5),1 INITIALIZE F2201010
BEG10 CLA LADDIN+5,1 DRUM PROGRAM F2201020
ANA ADDMSK ADDRESSES F2201030
STO LADDS+5,1
TIX BEG10,1,1 F2201040
CLA L(0) , , F2201050
STO DOREC F2201060
RTT TURN F2201070
NOP LIGHT OFF F2201080
LXD L(0),6 TEST FOR EMPTY F2201090
MSE 100 FORVAL F2201110
LXD L(1),4 OFF, NOT EMPTY F2201120
SXD END80,4 ON, EMPTY F2201130
MSE 99 TEST FOR F2201140
LXD L(1),2 EMPTY DOTAG F2201150
SXD END85,2 SAVE TABLE INFO 1N END PROG. F2201160
TXL END,2,0 IF DOTAG EMPTY, GO TO END. F2201170
LXD FORTAG-1,1 INITIALIZE F2201170
SXD TINF30,1 FORTAG F2201180
SXD TAG20,1 TEST F2201190
SXD TAG90,1 INSTRUCTIONS. F2201200
PAT01 CLA FRSTAG INITIALIZE NEW TAG NAME BASE F2201220
STO NEWTAG F2201230
TRA NEST F2201240
END WEF ATAPE WEF ON TAGTAG TAPE F2201250
WRS 195 MAKE END OF DRUMTAG TABLE ENTRY. F2201260
LDA LADDS+4 F2201270
CPY 35ONES F2201280
CPY 35ONES F2201290
LXD L(5),1 F2201300
END10 WRS 219 DELAY. F2201310
WRS ADRUM WRITE. F2201320
CLA LADDIN+5,1 ALL F2201330
SUB L(2)A DRUM F2201340
STA END90 TABLE F2201350
CLA LADDIN+5,1 WORD F2201360
ANA ADDMSK COUNTS F2201370
SUB LADDS+5,1 IN F2201380
SSP FIRST F2201390
STO END95 TWO F2201400
LDA END90 WORDS F2201410
CPY END95 PRECEDING F2201420
CPY END95 EACH TABLE . (TSXCOM, TRASTO, NAMKEY, F2201430
TIX END10,1,1 CHATAG, DRMTAG) F2201440
PSE 96 RESTORE SENSE LIGHTS F2201450
LXD END80,1 SL 100 ON, FORVAL EMPTY F2201450
TXH END20,1,0 SL 99 ON, DOTAG EMPTY, F2201470
PSE 100 F2201480
END20 LXD END85,1 F2201490
TXH END30,1,0 F2201500
PSE 99 F2201510
END30 WEF TAPE2 WRITE EOF AFTER DONEST RECORDS F2201520
WRS TAPE2 F2201530
CPY DOREC MAKE AN EXTRA FILE WITH F2201540
CPY DOREC DONEST RECORD COUNT. F2201550
WEF TAPE2 F2201560
CLA LADDS+1 TRASTO CARRYOVER TO BLOCK 3 F2201570
STO 4093 F2201580
CLA LADDS TSXCOM CARRYOVER TO BLOCK 3. F2201590
STO 4094 F2201600
CLA LADDS+2 NAMKEY (OR NAME) CARRYOVER TO BLOCK 3, F2201610
STO 4095 F2201620
TRA NORMRT F2201635
END80 HTR ES. (DEC HAS 1 IF FORVAL NOT EMPTY) F2201640
END85 HTR FOR (DEC HAS 1 IF DOTAG NOT EMPTY) F2201650
END90 HTR END F2201670
END95 HTR PROGRAM. F2201680
NEST LXD L(0),1 READ F2201690
NEST10 RDS DOTAPE ONE F2201700
LXD L(450),2 NEST OF DO FORMULAS F2201710
NEST20 CPY DOTAGZ,2 FROM F2201720
TXI NEST60,2,-1 DOTAPE. F2201730
TRA END IF EOF, GO TO ROUTINE END. F2201740
NEST30 CLA L(0) INITIALIZING INSTRUCTIONS. F2201750
STO ATSW F2201760
SXD XC,2 PUT C(XRB) IN XC F2201780
SXD DOTAG-1,2 INITIALIZE F2201790
SXD NEST95,2 DECS F2201800
SXD TRAW20,2 THAT F2201810
SXD TRAW50,2 TEST F2201820
SXD SPC040,2 END OF F2201830
SXD SPC090,2 DONEST. F2201840
LXA ADTXX,4 INIT F2201850
SXD ADTXX,4 DECS F2201860
LXA RESXX,4 FROM F2201870
SXD RESXX,4 ADDRESSES. F2201880
LXA TAGXX,4 F2201890
SXD TAGXX,4 F2201900
LXA NAMXX,4 F2201910
SXD NAMXX,4 F2201920
WRS 219 MAKE F2201930
RTT RTT F2201940
TRA NEST35 TEST F2201950
TRA DOFOR IF NO ERROR, GO TO DOFOR. F2201960
NEST35 TXI NEST40,1,1 IF ERROR, . F2201970
NEST40 TXH NEST50,1,4 TRY 4 TIMES MORE FOR F2201985
BST DOTAPE CORRECT READ. F2201990
TRA NEST10 AFTER FIFTH INCORRECT READ, F2202002
NEST50 TSX DIAG,4 ERROR. GO TO DIAGNOSTIC F2202015
NEST60 TXH NEST20,2,0 INDEX COPY. IF DOTAG F2202020
CPY NEST70 STORAGE FULL, AND MORE F2202030
TSX DIAG,4 NEST ENTRIES REMAIN. ERROR. GO TO DIAGNOSTIC. F2202045
TSX DIAG,4 INCORRECT EOF. ERROR. GO TO DIAGNOSTIC. F2202055
TRA NEST30 NO ENTRIES LEFT, GO TO NEST30). F2202060
NEST70 HTR E.S. F2202070
NESTEN LXD L(4),2 PUT END OF NEST INDICATION F2202080
CLA 35ONES IN TAGTAG, CONSISTING OF F2202090
NEST80 STO E1+4,2 FOUR WORDS OF 35 ONES. F2202100
TIX NEST80,2,1 F2202120
TSX TAGENT,4 ENTER IN TAGTAG AND F2202130
TSX TETAPE,2 WRITE BUFFER ON TAPE. F2202140
CLA L(1)
STO ATSW SET ADDED TAG SWITCH F2202150
TSX DRMENT,4 AND GO TO DRMENT TO F2202160
LXD NAMXX,1 PROCESS ADDED TAGS F2202170
REM SXD NEST84,1 TO DRUM TABLE NAME F2202190
SXD NEST84,1 TO DRUM TABLE NAME F2202190
LXA NAMXX,1 ALL ENTRIES F2202200
NEST81 TXL NEST84,0 IN CORE TABLE NAME F2202210
NEST82 CLA NAMZ,1 F2202210
STO E1 F2202220
CLA NAMZ+1,1 F2202230
STO E2 F2202240
CLA NAMKEY F2202250
SXD NEST81,1 F2202260
TSX LIST,4 F2202270
LXD NEST81,1 F2202280
TXI NEST84,1,-2 F2202290
NEST84 TXH NEST82,1 F2202300
LXD ADTXX,1 TRANSFER F2202310
SXD NEST88,1 TO DRUM TABLE NAME F2202320
LXA ADTXX,1 ALL ENTRIESP F2202340
NEST85 TXL NEST88,0 IN CORE TABLE ADTAG F2202340
NEST86 CLA ADTAGZ+1,1 EXCEPT F2202360
TMI NEST87 RESET F2202370
STO E2 ENTRIES F2202380
CLA ADTAGZ,1 F2202380
STO E1 F2202390
PDX 0,2 F2202400
CLA DOTAGZ,2 F2202410
STD E1 F2202420
SXD NEST85,1 F2202430
CLA NAMKEY F2202440
TSX LIST,4 F2202450
LXD NEST85,1 F2202460
NEST87 TXI NEST88,1,-2 F2202470
NEST88 TXH NEST86,1 F2202480
NST100 LXD DOTAG-1,1 F2202490
TRA NST120 F2202500
NST110 CLA DOTAGZ+8,1 DOES BIT 20 WD 9 OF THIS DOTAG F2202510
ANA BBIT EQ 1. F2202530
TZE NST120 AND F2202530
CLA DOTAGZ-1,1 DOES BIT 18 WD 9 OF PRIOR DOTAG F2202550
ANA ABIT EQ 1. F2202550
TNZ NST120 F2202560
CLA ADDMSK YES. ERASE DEC WD 9 F2202570
ANS DOTAGZ+8,1 OF PRIOR DOTAG. F2202580
NST120 TXI NST130,1,9 F2202590
NST130 TXL NST110,1,441 F2202610
CLA DOREC WRITE F2202620
ADD L(1) DOTAG F2202630
STO DOREC ON F2202640
WRS TAPE2 TAPE TWO. F2202660
LXD L(450),1 COUNT NR. F2202670
NEST90 CPY DOTAGZ,1 OF NESTS. F2202680
TXI NEST95,1,-1 IN DOREC. F2202700
NEST95 TXH NEST90,1 (DEC HAS DOTAG IX) F2202710
TRA NEST RETURN FOR NEXT NEST, F2202720
DOFOR LXD XC,1 OBTAIN F2202730
TXI DOF10,1,9 NEXT BACK DO, F2202740
DOF10 TXH NESTEN,1,450 IF ANY. F2202750
TSX DOINFO,4 USE DOINFO F2202760
TRA TAG00 AND GO TO TAG00 ROUT1NE. F2202770
DOFEND LXD XC,1 IS A COUNTER F2202780
CLA DOTAGZ+8,1 F2202790
ANA BIT19 F2202800
TZE MAKESC F2202810
CAL DOTAGZ+5,1 NECESSARY BECAUSE OF F2202820
ANA 2BITS TRANSFERS OR COMPUTATION WITH F2202830
TNZ DOF15 SYMBOL. F2202840
CLA BIT20 TEST FOR F2202850
ANA DOTAGZ+6,1 DELTA TWO F2202860
TZE DOF20 INSERT F2202870
DOF15 CLA DOTAGZ+6,1 HAS A COUNTER BEEN F2202880
ANA BITTWO FOUND. F2202890
TNZ DOF40 IF NOT, F2202900
TRA MAKESC MAKE ONE. (RETURN IS TO DOF40) F2202910
DOF20 CLA DOTAGZ+5,1 IF NO COUNTER NECESSARY, F2202920
ANA SUBBIT HAS SYM OCCURRED WITH F2202930
TZE DOF30 RECON NOT AS TYPE ONE F2202940
CLA DOTAGZ+8,1 CARRY. IF SO, HAS A F2202950
PDX 0,2 TEST BEEN FOUND. F2202960
TXH DOF40,2,0 IF NOT, F2202970
TRA MAKESC MAKE A COUNTER (RETURN IS T0 DOF40)F2202980
DOF30 CLA DOTAGZ+8,1 IF SYM HAS NOT OCCURRED WITH F2202990
ARS 12 RELCON OR IN SUCH OCCURRENCES F2203000
PDX 0,2 WAS ALWAYS A TYPE ONE F2203010
TXL DOF40,2,11 CARRY, IS CURRECT TEST F2203020
CLA BBIT F2203030
ORS DOTAGZ+8,1 F2203040
DOF40 CLA DOF50 MADE. TAKE SIGN AND F2203030
ANS DOTAGZ+8,1 TEST TABLE INTEGER OUT F2203060
TRA DOFOR OF TEST WORD AND EXIT. F2203070
DOF50 OCT 7777777777 F2203080
MAKESC CLA L(4) INITIALIZE F2203090
STO DOSUBS DOSUBS AND OTHER LOCATIONS F2203100
CLA L(0) USED IN 1NS00. F2203110
STO RCSUBS F2203120
STO DORC F2203130
STO C1 F2203140
STO CARWRD F2203150
CLA NEWTAG GET A NAME F2203160
STO TS FOR THIS F2203170
ADD L(1)A SUBSCRIPT AND F2203180
STO NEWTAG UP DATE NEWTAG. F2203190
TSX 1NS00,4 USE 1NS00 FOR TEST INF0,LIST. F2203200
CLA L(6) SET UP TAG TAG F2203210
ORA L(4)A ENTRY F2203220
ORA CARWRD F2203230
SLW E4 F2203240
CLA TS F2203250
STO E3 F2203270
CLA L(0) F2203280
STO E2 F2203290
CLA XC F2203300
ARS 18 F2203310
ORA ALPHA F2203320
STO E1 F2203340
TSX TAGENT,4 ENTER INTO TAGTAG. F2203350
LXD XC,1 F2203360
CLA ABIT F2203370
ORS DOTAGZ+8,1 F2203380
TRA DOF40 RETURN F2203390
DOINFO CLA DOTAGZ,1 FOR THE DO FORMULA WHOSE F2203400
PAX 0,2 INDEX IS IN XRA, F2203410
ANA DECMSK ESTABLISH F2203420
STO ALPHA ALPHA,BETA,XC,XL F2203430
PXD 0,2 F2203440
STO BETA F2203450
PXD 0,1 F2203460
STO XC F2203470
CLA DOTAGZ+5,1 F2203480
ANA DECMSK F2203490
STO LC F2203500
TRA 1,4 F2203510
TAG00 LXD L(1500,1 THIS ROUTINE F2203520
TRA TAG20 SELECTS EVERY TAG F2203530
TAG05 CLA FORTZ,1 IN THE RANGE OF THE F2203540
ANA DECMSK CURRENT DO WHICH F2203550
CAS ALPHA CONTAINS THE SUBSCRIPT F2203560
TRA TAG30 SYMBOL OF THE CURRENT F2203570
TSX DIAG,4 DO, AND WHICH HAS NOT (ERROR. GO TO DIAGNOSTIC.)F2203585
TAG10 TXI TAG20,1,-1 PREVIOUSLY BEEN F2203590
TAG20 TXH TAG05,1 PROCESSED, AND (DEC HAS FORTAG IX) F2203600
TRA DOFEND COMPLETELY PROCESSES F2203610
TAG25 LXD TAG40,1 THE TAG. THE RETURN F2203620
TRA TAG10 IS TO DOFEND F2203630
TAG30 CAS BETA COMPARE WITH BETA. F2203640
TAG40 TXL DOFEND,0 RANGE FINISHED. (DEC HAS CURR FORTAG IX) F2203650
NOP IF ENTRY IS NEGATIVE, F2203660
CLA FORTZ,1 THEN IT HAS ALREADY F2203670
TMI TAG10 BEEN PROCESSED. F2203680
ANA ADDMSK STORE F2203690
STO TAG IN TAG, F2203710
SXD TAG40,1 AND SAVE INDEX. F2203720
TSX SUBCOM,4 OBTAIN SUB. COM. F2203730
NOP F2203745
TSX IDENT,4 USE IDENT. F2203750
TRA TAG25 SC. NOT WANTED. F2203760
TSX NAME,4 SC. TO BE PROCESSED. USE NAME. F2203770
TSX BRANCH,4 F2203780
TSX SCEND,4 F2203800
TSX TAGENT,4 F2203810
TAG50 LXD L(5),2 F2203820
TAG52 CLA X1+5,2 ENTER BIT 18 WD 9 F2203830
TZE TAG58 OF MATCHING DOTAG F2203840
PDX 0,1 IF 1ST SUBSCR OR F2203850
TXH TAG56,2,4 IF THERE IS NO F2203860
CLA CR1 TYPE 1 CARRY INTO F2203870
TXH TAG54,2,2 THE 2ND AND 3RD F2203880
ARS 2 SUBSCRS RESPECTIVELY, F2203890
TAG54 ANA CARWRD F2203910
TNZ TAG58 F2203910
TAG56 CLA ABIT ENTER BIT 18 WD 9. F2203920
ORS DOTAGZ+8,1 F2203940
TAG58 TIX TAG52,2,2 F2203950
LXD L(5),4 TAG 60 SEQUENCE CONCERNS F2203960
TAG60 CLA X1+5,4 TESTS AND ADDED TAGS. F2203970
TZE TAG68 FOR EACH INDEXED SUBSCRIPT, F2203980
PDX 0,1 DETERMINE F IRST WHETHER F2203990
CLA RCSUBS OR NOT IT F2204000
ORA DORC OCCURS WITH F2204010
TZE TAG66 A RELCON F2204020
TXL TAG64,4,1 IF SO, PUT IN F2204030
CLA CR1 SUBBIT MEANING A TEST F2204040
TXH TAG62,4,3 IS NEEDED UNLESS F2204050
ARS 2 THE 1ST AND 2ND. F2204070
TAG62 ANA CARWRD SUBSCR PROMOTE A F2204070
TNZ TAG68 TYPE ONE CARRY (LEFT F2204080
TAG64 CLA SUBBIT OR CENTER RESPECTIVELY) F2204090
ORS DOTAGZ+5,1 IS F2204100
TAG65 TXL TAG68,0 NEEDED. F2204110
TAG66 CLA BIT19 F2204120
ORS DOTAGZ+8,1 F2204130
CLA DOTAGZ+5,1 IF THE SUBSCRIPT DOES NOT OCCUR F2204140
ANA 2BITS WITH A RELCON, DETERMINE WHETHER OR F2204160
TNZ TAG68 NOT A COUNTER hAS ALREAD Y BEEN REQUESTED. F2204170
SXD TAG65,4 IF SO TAKE NEXT INDEDEX SUBSCR. REQUESTED. F2204180
TSX TEST,2 IF NOT, USE ROUTINE TEST. F2204190
LXD TAG65,4 THEN TAKE NEXT INDEXED SUBSCRIPT. F2204200
TAG68 TIX TAG60,4,2 F2204220
TAG70 LXD TAG40,1 SET ALL OCCURRANCES F2204230
TAG72 CLA FORTZ,1 OF THIS TAG, IN FORTAG, F2204240
ANA DECMSK IN THE RANGE OF THIS F2204240
CAS BETA DO, NEGATIVE. F2204250
TAG75 TXL TAG25,0 F2204260
NOP F2204270
CLA FORTZ,1 F2204280
ANA ADDMSK F2204290
SUB TAG F2204300
TNZ TAG80 F2204310
CAL L(MZ) F2204320
ORS FORTZ,1 F2204330
TAG80 TXI TAG90,1,-1 F2204340
TAG90 TXH TAG72,1 . (DEC HAS FORTAG IX) F2204380
TRA TAG25 RETURN FOR NEXT TAG. F2204370
REM THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE F2204380
REM CORRESPONDING SUBSCRIPT COMPINATION FROM THE TAU F2204390
REM DRUM AND P0SITIONS IT IN PROPER FORMAT IN STORAGE. F2204400
SUBCOM SXD SUB085,4 SAVE LINKAGE INDEX. F2204410
LXD SUBORG,1 INITIALIZE ERROR COUNTER F2204420
SUB010 RDS TAUDRM SELECT TAU DRUM. F2204430
LXD SUBORG+2,4 INITIALIZE F2204440
PXD 0,0 SUBSCRIPT COMBINATION F2204450
SUB020 STO C1+8,4 SPACE F2204460
TIX SUB020,4,1 TO ZERO. F2204470
CLA TAG COMPUTE F2204480
LRS 9 DRUM F2204490
PAX 0,6 ADDRESS. F2204500
PXD 0,0 TAU ONE ADD. IS ORG+3TAU. F2204510
LLS 9 TAU TWO ADD. IS ORG+5TAU. F2204520
STO SUBES1 TAU THREE ADD. IS ORG+7TAU F2204530
ALS 1 STORE F2204540
STO SUBES2 ADDRESS F2204550
CLA SUBORG+3,4 IN SUBES1 F2204560
ADD SUBES1 FOR LDA F2204570
SUB030 ADD SUBES2 INSTRUCTION. F2204580
TIX SUB030,4,1 F2204590
STA SUBES1 F2204600
LDA SUBES1 COPY SUB. COMB. F2204610
CPY C1 TAU ONE, TWO, THREE F2204620
TXL SUB040,2,2 F2204630
CPY C3 TAU 3 F2204640
SUB040 CPY S1 TAU 1,2,3 F2204650
TXL SUB060,2,1 F2204660
CPY S2 TAU 2,3 F2204670
TXL SUB050,2,2 F2204680
CPY S3 TAU 3 F2204690
SUB050 CPY D1 TAU 2,3 F2204700
SUB060 CPY SUBES1 TAU 1,2,3 F2204710
LXD SUBORG,4 COMPUTE CHECK SUM F2204720
CAL C1 AND COMPARE WITH F2204730
SUB070 ACL C1+7,4 ENTRY CHECK SUM. F2204740
TIX SUB070,4,1 THREE ATTEMPTS ARE MADE F2204750
SLW SUBES2 T0 READ SC CORRECTLY. F2204760
CLA SUBES2 IF ERROR STILL PRESENT, F2204770
SUB SUBES1 COMPLETE ROUTINE, MAKE.ERROR RET. F2204780
TZE SUB075 CHECK SUMS AGREE, TRA. F2204790
TIX SUB010,1,1 CHECK SUMS DISAGREE F2204805
PAT03 TSX DIAG,4 IN READING TAU FROM DRUM. ERROR. GO TO DIAGNOSTIC. F2204815
SUB075 LXD SUBORG+1,4 REARRANGE C1,C2,D1,D2, F2204820
SUB080 CLA C1+7,4 TO COMPLY WITH CORE F2204830
PAX 0,2 STORAGE FORMAT. F2204840
ANA DECMSK F2204850
STO C1+7,4 F2204860
PXD 0,2 F2204870
TNX SUB090,4,6 F2204880
STO C2 F2204890
SUB085 TXL SUB080,0 F2204900
SUB090 STO D2 F2204910
LXD SUB085,4 RESTORE LTNKAGE INDEX, F2204920
NOP F2204935
TRA 2,4 A NORMAL RETURN. F2204940
SUB100 NOP F2204955
SUBORG OCT 6001356 DEC. IS 6, ADD. IS ORG. TAU 3 F2204960
OCT 7000454 DEC. IS 7, ADD. IS ORG. TAU 2 F2204970
OCT 10000000 DEC. IS 8, ADD. IS ORG. TAU 1 F2204980
SUBES1 HTR E.S. F2204990
SUBES2 HTR E.S. F2205000
REM SCEND COLLECTS TAGTAG ENTRY AND MAKES TABLE ENTRY F2205010
SCEND CLA GR0UP ALL OF SCEND IS CONCERNED F2205020
STO TAG1 WITH GENERATING THE F2205030
CLA DOSUBS TAGTAG ENTRY FROM ITS F2205040
ORA DUPES F2205050
ARS 18 VARIOUS COMPONENTS. F2205060
ORS TAG1 F2205070
CLA RCSUBS F2205079
ORA DORC F2205080
ARS 15 F22D5100
ORS TAG1 F2205110
CLA DUPES F2205120
ARS 9 F2205130
ORS TAG1 F2205140
CAL CARWRD F2205150
ORS TAG1 F2205160
LXD L(5),1 F2205170
SCE010 CLA L(1) F2205180
CAS C1+5,1 GENERATES THE THREE BIT F2205190
TRA SCE020 TAG SHOWING WHICH F2205200
TRA SCE020 COEFFICIENTS ARE GREATER F2205210
PXD 0,1 THAN ONE. F2205220
TXL SCE015,1,1 F2205230
SUB L(1) F2205240
SCE015 ARS 6 F2205250
ORS TAG1 F2205260
SCE020 TIX SCE010,1,2 F2205270
CLA TAG1 TAG1 IS NOW COMPLETE. F2205280
STO E4 CONSTRUCT THE TAGTAG F2205290
CLA TAG ENTRY F2205300
ALS 18 F2205310
ADD TS F2205320
STO E3 F2205330
CLA X3 F2205340
ARS 18 F2205350
ADD X2 F2205360
STO E2 F2205370
CLA X1 F2205380
ARS 18 F2205390
ADD ALPHA F2205400
STO E1 F2205410
TRA 1,4 F2205420
TEST CLA DOTAGZ+8,1 IF A SUFFICIENTLY GOOD F2205430
TMI 1,2 TEST PREVIOUSLY FOUND, EXIT. F2205440
TIX TEST10,4,1 XRC CONTAINS 5,3,1, F2205450
TEST10 PXD 0,4 DEPENDING ON P0SITION NR F2205460
ALS 3 1,2,3. CONSTRUCT A F2205470
ORA GR0UP TABLE SEARCH MASK IN F2205480
TXL TEST20,4,1 WHICH THE FORTH OCTAL F2205490
STO TEST85 DIGIT IS THE CARRY BIT F2205500
CLA CARWRD INF0. FOR THE POSITION F2205510
ALS 5,4 BEING CONSIDERED THE F2205520
ANA TEST90 FIFTH OCTAL DIGIT IS THE F2205530
ORA TEST85 POSITION BIT, AND THE F2205540
TEST20 LXD TEST35,4 SIXTH OCTAL DIGIT F2205550
TEST30 CAS TESTAB+15,4 IS THE GROUP NUMBER. F2205560
TXI TEST40,4,-1 SEARCH TESTAB FOR F2205570
TEST35 TXL TEST50,0,15 ENTRY AND CONSIDER F2205580
TXI TEST40,4,-1 C(XRC) AFTER SEARCH, IF F2205590
TEST40 TXH TEST30,4,0 ENTRY NOT FOUND C(XRC)=0. F2205600
TEST50 SXD TEST60,4 COMPARE THIS INTEGER F2205610
CLA DOTAGZ+8,1 WITH PREVIOUS.INTEGER, F2205620
PDX 0,4 IF ANY, IF NEW NR. IS LESS F2205630
TXL TEST75,4,0 THAN OLD, USE NEW TAG F2205640
ARS 12 FOR TEST. OTHERWISE F2205650
PDX 0,4 USE OLD TAG. F2205660
TEST60 TXL TEST80,4 (DEC HAS TEST TAB NR. FOR THIS S C.) F2205670
TEST70 CLA TEST95 IF THE NEW TAG IS F2205680
ANS DOTAGZ+8,1 USED, AND C(XRC) F2115690
TEST75 LXD TEST60,4 AFTER SEARCH WAS ZERO, F2205700
PXD 0,4 SET DOTAGZ+8 WORD F2205710
ARS 6 NEGATIVE. F2205720
ORA TS F2205730
ALS 18 F2205740
ORS DOTAGZ+8,1 F2205750
TXH TEST80,4,0 F2205760
CAL L(MZ) F2205770
ORS DOTAGZ+8,1 F2205780
TEST80 TRA 1,2 F2205790
TEST85 HTR STORAGE FOR COMPOSED TST WORD. F2205800
TEST90 OCT 300000000 BITS 10, 11 )-. - -. F2205810
TEST95 OCT 777777 F2205820
TESTAB OCT 241000000 FIRST SIGNIF DIGIT CONTAINS F2205830
OCT 221000000 A TWO IF TYPE ONE CARRY , F2205840
OCT 244000000 ONE IF TYPE TWO FROM LEFT OR F2205850
OCT 222000000 CENTER. (4TH OCT DIG). NEXT F2205860
OCT 141000000 HAS 4 IF POSIT OF SUBSC IS F2205870
OCT 121000000 LEFT, 2 IF CENTER, 0 IF RIGHT F2205880
OCT 144000000 (5TH OCT DIGIT). FINAL DIG HAS F2205890
OCT 122000000 GR0UP NR. (6TH OCT DIG). F2205900
OCT 45000000 F2205910
OCT 41000000 F2205920
OCT 21000000 F2205930
OCT 44000000 F2205940
OCT 22000000 F2205950
OCT 43000000 F2205960
OCT 23000000 F2205970
CARRY SXD CAR05,4 SAVE LINKAGE F2205980
CLA X1+4,2 PUT LEFT INDEX F2205990
PDX 0,1 IN XRA F2206000
CLA X1+6,2 PUT RIGHT INDEX F2206010
PDX 0,4 IN XRC F2206020
CLA DOTAGZ+5,1 TEST LEFS SUB. DO F2206030
ANA CARMSK CARRY BITS. F2206040
TZE CAR30 EXIT IF NO CARRY. F2206050
CLA DOTAGZ+6,1 COMPARE F2206060
ANA DECMSK NO CARRY TRA LEVEL F2206070
CAS LL AND LOW LEVEL. F2206080
TRA CAR30 EXIT F2206090
CAR05 TXL CAR30,0 F2206100
CLA DOTAGZ+5,1 COMPUTE FOR LEFT F2206110
ANA ADDMSK SUBSCRIPT THE QUANTITY F2206120
STO CAR40 C*X (COEF. TIMES ADDED F2206130
LDQ CAR40 VALUE). F2206140
MPY C1+4,2 COMPUTE FOR RIGHT F2206150
STQ CAR40 SUBSCRIPT THE QUANTITY F2206160
LDQ D1 C*N3*D(L) (O0EF.TIMES F2206170
TXH CAR10,2,2 INCREMENT TIMES DIM. OF F2206180
LDQ D2 LEFT SUBSCR1PT. F2206190
CAR10 MPY DOTAGZ+4,4 IF THESE QUANTIT1ES F2206200
MPY C1+6,2 ARE UNEQUAL, F2206210
ALS 17 EXIT F2206220
SUB CAR40 F2206230
TNZ CAR30 OBTAIN LEFT F2206240
CLA DOTAGZ+5,1 SUB. DOTAG F2206250
ANA CARMSK CARRY BITS AGAIN. F2206260
ARS 15 TEST FOR F2206270
LBT CARRY TYPE 0NE F2206280
TRA CAR15 OR CARRY TYPE F2206290
CLA CR1 TWO. F2206300
TRA CAR20 OBTAIN PROPER F2206310
CAR15 CLA CR2 TAGTAG CARRY BIT, F2206320
CAR20 TXH CAR25,2,2 SHIFT IF NECESSARY FOR F2206330
ARS 2 CENTER SUB. AND F2206340
CAR25 ORS CARWRD PLACE IN CARWRD. F2206350
CAR30 LXD CAR05,4 EXIT F2206I60
TRA 1,4 F2206370
CAR40 HTR E.S. F2206380
LIST SXD LIST40,4 SAVE LINKAGE F2206400
PDX 0,1 PUT INDEX QUANTITY IN XRA F2206410
PAX 0,6 PUT NR. OF WDS IN XRB,XRC. F2206420
ADD LIST50 COMPUTE NR, OF WRDS F2206430
STA LIST30 PLUS ORIGIN EI AND F2206440
STA LIST20 INITIALIZE ADDRESSES. F22064S0
CLA LADDIN+5,1 TEST F2206460
ARS 18 FOR F2206470
SUB LADDS+5,1 FULL F2206480
TNZ LIST10 TABLE. F2206490
TSX BURNCE,4 DRUM OVERFLOW, GO SAVE IRA BEFORE DIAG. F2206505
LIST10 PXD 0,0 ZERO IN ACC. F2206510
LIST20 ACL 0,2 COMPUTE F2206520
TIX LIST20,2,1 ENTRY F2206530
WRS ADRUM SELECT DRUMF F2206535
SLW LIST60 CHECK SUM. F2206540
LDA LADDS+5,1 COPY F2206550
LIST30 CPY 0,4 ENTRY F2206560
TIX LIST30,4,1 AND F2206570
CPY LIST60 CHECK SUM. F2206580
CLA LADDS+5,1 COMPUTE F2206590
ADD TSXC0M+5,1 NEXT F2206600
ADD L(1)A ENTRY F2206610
ANA ADDMSK ADDRESS. F2206620
STO LADDS+5,1 F2206630
LXD LIST40,4 EXIT F2206640
TRA 1,4 F2206650
LIST40 HTR E.S. F2206660
LIST50 HTR E1 L(E1) F2206670
LIST60 HTR E.S. F2206680
REM F0UR WORD ENTRY BLOCK F2206690
E1 HTR F2206700
E2 HTR F2206710
E3 HTR F2206720
E4 HTR F2206730
REM FIVE KEY WORDS, C(DEC)=INDEX QUANTITIES, C(ADD)=NR. OF WORDS.F2206740
TSXC0M HTR 2,0,5 ACC KEY WORD WHEN TSX TO LIST. F2206750
TRASTO HTR 3,0,4 (ADD DOES NOT INCL CHECK SUM) F2206760
NAMKEY HTR 2,0,3 F2206770
CHATAG HTR 2,0,2 F2206780
DRMTAG HTR 4,0,1 (ADTAG) F2206790
REM FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART. F2206800
LADDS HTR TSXC0M - ADD OF LADDIN - LAST PLUS 1 F2206810
HTR TRASTO F2206820
HTR NAMKEY F2206830
HTR CHATAG F2206840
HTR DRMTAG F2206850
REM FIVE WORDS, C(ADD)=ORIGIN, C(DEC)=LAST TABLE LOC. PLUS ONE F2206860
LADDIN HTR 706,0,1006 TSXCOM F2206870
HTR 304,0,704 TRASTO F2206880
HTR 1008,0,1458 NAMKEY F2206890
HTR 2,0,302 CHATAG F2206900
HTR 1460,0,1960 DRMTAG F2206910
BRANCH SXD BRA45,4 IF THERE ARE RELCONS F2206920
CLA NRRC (NOT DORC) IN THE SC, F2206930
TZE BRA10 USE F2206940
TSX RELCON,4 RELCON. F2206950
BRA10 LXD NRDS,1 THIS ROUTINE F2206960
TXH BRA30,1,1 CONDENSES F2206970
BRA20 TSX 1NS00,4 DUPLICATE F2206980
TRA BRA90 SUBSCRIPTS F2206990
BRA30 TXH BRA50,1,2 AND F2207000
CLA DUPES TRANSFERS F2207010
TNZ BRA20 TO F2207020
BRA40 TSX 2NS00,4 ROUTINES F2207030
BRA45 TXL BRA90,0 1NS00, 2NS00, 3NS00 F2207040
BRA50 LXD DUPES,4 AFTER F2207050
TXH BRA20,4,6 PROCESSING, F2207060
TXL BRA80,4,0 RETURN F2207070
TXH BRA60,4,5 IS TO F2207080
TXL BRA60,4,3 DRMENT OR F2207090
CLA L(3) TAG00 F2207100
TRA BRA70 F2207110
BRA60 CLA L(5) F2207120
BRA70 STO DOSUBS F2207130
TRA BRA40 F2207140
BRA80 TSX 3NS00,4 F2207150
BRA90 LXD BRA45,4 F2207160
TRA 1,4 F2207170
RSR SXD RSR20,4 SAVE LINKAGE F2207180
SXD RSR30,1 SAVE INDEX F2207190
CLA DOTAGZ+6,1 HAS COUNTER ADJUSTMENT F2207200
ANA BIT18 INSTRUCTION BEEN ENTERED. F2207210
TNZ RSR10 IF SO, GO TO RSR10 F2207220
CLA BIT18 IF NOT, ENTER IN F2207230
ORS DOTAGZ+6,1 TRASTO AN ENTRY TO CAUSE F2207240
CLA DOTAGZ,1 THE COUNTER TO BE F2207250
SSM F2207260
STO E1 DECREASED BY N1, WHICH F2207270
CLA DOTAGZ+5,1 WILL MAKE IT USEFUL AS F2207280
ANA DECMSK AS A RESET SUB. COMB. F2207290
ARS 18 F2207300
STO E2 F2207310
CLA DOTAGZ+8,1 F2207320
ANA DECMSK F2207330
ORA DOTAGZ+2,1 F2207340
STO E3 F2207350
CLA TRASTO F2207360
TSX LIST,4 F2207370
RSR10 LXD RSR30,1 ENTER IN TRASTO F2207380
CLA DOTAGZ+8,1 AN ENTRY T0 CAUSE F2207390
ANA DECMSK THE TAG UNDER F2207400
ORA TS CONSIDERATION F2207410
SSM F2207420
STO E3 TO BE RESET F2207430
CLA TL2 BY THE ADJUSTED F2207440
ARS 18 COUNTER AT THE F2207450
ORA TL1 PROPER TIMES. F2207460
STO E2 F2207470
CLA DOTAGZ,1 F2207480
STO E1 F2207490
CLA TRASTO F2207500
TSX LIST,4 F2207510
LXD RSR20,4 F2207520
TRA 1,4 F2207530
RSR20 HTR F2207540
RSR30 HTR F2207550
DRMENT SXD DRM05,4 THIS ROUTINE F2207560
LXD ADTXX,2 PROCESSES THE F2207570
SXD DRM20,2 ADDED TAG TABLE F2207580
LXA ADTXX,2 F2207590
DRM05 TXL DRM20,0 F2207600
DRM10 CLA ADTAGZ,2 OBTAIN FIRST ENTRY WORD. F2207610
PDX 0,1 PUT INDEX IN XRA. F2207620
ANA ADDMSK STORE TAG F2207630
STO TAG IN TAG F2207640
STO TS AND TS F2207650
PXD 0,1 PUT INDEX F2207660
STO XC IN XC F2207670
SXD DRM30,2 SAVE INDEX B. F2207680
CLA ADTAGZ+1,2 OBTAIN WORD TWO. F2207690
TMI DRM40 TRA IF RESET ENTRY. F2207700
STO TS SAVE NAME IN TS. F2207710
TSX DOINFO,4 USE DOINFO F2207720
TSX SUBCOM,4 AND F2207730
NOP OTHER F2207745
TSX IDENT,4 ROUTINES F2207750
TSX DIAG,4 IN ORDER TO (ERROR. GO TO DIAGNOSTIC.)F2207765
TSX BRANCH,4 PROCESS F2207770
TSX SCEND,4 ENTRY. F2207780
CLA DRMTAG F2207790
TSX LIST,4 ENTER RESULT IN DRMTAG. F2207800
DRM15 LXD DRM30,2 F2207810
TXI DRM20,2,-2 F2207820
DRM20 TXH DRM10,2 F2207830
LXD DRM05,4 F2207840
TRA 1,4 F2207850
DRM30 HTR F2207860
DRM40 PAX 0,4 FOR RESET ENTRY, F2207870
ANA DECMSK INITIALIZE CELLS F2207880
STO TL1 USED IN RSR ROUTINE. F2207890
PXD 0,4 F2207900
STO TL2 F2207910
TSX RSR,4 F2207920
TRA DRM15 TRA FOR NEXT ENTRY. F2207930
REM SUBROUTINE TAGADD F2207940
TAGADD TXH TAGAD1,2,0 C(IRB) EQ 1 IF NORMAL ADTAG F2207950
PXD 0,1 F2207960
TAGAD1 LXD ADTXX,1 F2207970
TXL TAGAD6,1,0 F2207980
TXH TAGAD8,2,0 XRB=1,NORMAL ADDED TAG F2207990
ADD TAG F2208000
STO ADTAGZ,1 F2208010
CLA NEWTAG F2208020
LDQ NEWTAG F2208030
STO ADTAGZ+1,1 F2208040
ADD L(1)A F2208050
STO NEWTAG F2208060
TXI TAGAD2,1,-2 F2208070
TAGAD2 SXD ADTXX,1 F2208080
TAGAD3 TRA 1,4 F2208088
TAGAD6 TSX DIAG,4 TABLE WILL NOT HOLD ENTRY. ERROR. GO TO DIAGNOSTIC. F2208093
TAGAD8 STO ADTAGZ,1 F2208110
STQ ADTAGZ+1,1 F2208120
TXI TAGAD2,1,-2 F2208130
REM SUBROUTINE SPC000 F2208140
SPC000 SXD SPC115,1 SAVE INDEX OF DO TO BE SEARCHED. F2208150
SXD SPC060,2 SAVE TINFOR,LIST INDICATOR F2208160
SXD SPC105,4 SAVE TSX INDEX. F2208170
STO SPCKEY SAVE LIST KEY WORD F2208180
CLA DOTAGZ+5,1 OBTAIN L WORD F2208190
STD SPC050 INITIALIZE TEST INSTR. F2208200
CLA DOTAGZ,1 OBTAIN ALPHABETA WRD, F2208210
PAX 0,2 SAVE BETA, F2208220
ANA DECMSK OBTAIN ALPHA ALONE F2208230
STO NEXTA STO IN NEXTA F2208240
STO A AND STORE IN A. F2208250
PXD 0,2 PUT BETA IN LASTB AND F2208260
STO LASTB BETING SEARCH FOR R2 F2208270
SPC010 LXD SPC115,1 OBTAIN CURRENT INDEX AND F2208280
SPC020 TXI SPC040,1,-9 GO DOWN ONE DO,IF POSSIBLE,ELSE F2208290
SPC040 TXL SPC110,1 GO TO SET UP LAST INTERVAL. F2208300
CLA DOTAGZ+5,1 TEST WHETHER OR NOT THIS DO F2208310
PDX 0,2 IS IN RANGE OF R1(DXL) F2208320
SPC050 TXL SPC110,2 IF NOT,EXIT FOR LAST 1NTERVAL, F2208330
CLA DOTAGZ+1,1 IF IN R1,IS THIS DO TO BE F2208340
SUB RSYM1 SKIPPED. IF NOT,GO BACK TO F2208350
TZE SPC053 GET NEXT DO. F2208360
CLA DOTAGZ+1,1 F2208370
SUB RSYM2 F2208380
TNZ SPC020 F2208390
SPC053 CLA DOTAGZ,1 R2 FOUND,ARRANGE TO SKIP THIS F2208400
PAX 0,2 INTERVAL. USE ALPHA OF R2 F2208410
ANA DECMSK AS B,PUT BETA OF R2 IN F2208420
STO B NEXTA. F2208430
PXD 0,2 DO FORMULAS WITHIN R2 ARE F2208440
STO NEXTA ACCOUNTED FOR AFTER SEARCH. F2208450
SXD SPC115,1 SAVE INDEX OF R2. F2208460
SPC055 LXD SPC060,2 PUT TINFOR, LIST IND. IN XRB F2208470
SPC058 CLA A FOR F2208480
SUB B NON EMPTY F2208490
TZE SPC065 INTERVALS, F2208500
TXL SPCTIN,2,1 GO TO ARRANGE TINFOR SEARCH, OR F2208510
SPC060 TXL SPCSTO,0 TRA TO USE LIST. F2208520
SPC065 LXD SPC060,2 RETURN HERE,TEST TINFOR F2208530
TXL SPC120,2,0 LIST IND. IF ZERO, EXIT. F2208540
SPC070 LXD SPC115,1 TO SET UP NEXT INTERVAL, F2208550
CLA DOTAGZ+5,1 OBTAIN INDEX OF LAST R2 AND F2208560
STD SPC100 STEP DOWN IN DOTAG BY USUAL F2208570
SPC080 TXI SPC090,1,-9 PROCEDURE UNTIL SOME DO IS F2208580
SPC090 TXL SPC110,1 FOUND NOT IN R2,OR UNTIL F2208590
CLA DOTAGZ+5,1 DOTAG EXHAUSTED. IF DO FOUND F2208600
PDX 0,2 NOT IN R2,SET A AND GO TO TEST F2208610
SPC100 TXH SPC080,2 IF THIS DO IS IN R1. F2208620
CLA NEXTA IF IT IS,NEWR2 WILL BE FOUND F2208630
STO A OR EXIT MADE T0 SPC110. F2208640
SPC105 TXL SPC050,0 F2208650
SPC110 CLA NEXTA THIS IS SETUP FOR LAST F2208660
STO A INTERVAL. FOR A,USE F2208670
CLA LASTB CONTENTS OF NEXTA. FOR B, F2208680
STO B USE BETA OF R1,FOUND IN F2208690
LXD SPC060,2 LASTB. OBTAIN TINFOR,STOTAG F2208700
CLA L(0) IND,AND SET LOCATION OF F2208710
STD SPC060 INDICATOR TO ZERO. GO TO F2208720
SPC115 TXL SPC058,0 TINFOR OR TRASTO. F2208730
SPC120 LXD SPC105,4 EXIT,ALL STORES DONE,OR, F2208740
TRA 1,4 SEARCH MADE,T NOT FOUND. F2208750
SPC130 LXD SPC105,4 EXIT,T FOUND F2208760
TRA 2,4 IN SOME INTERVAL F2208770
SPCTIN TSX TINFXX,4 GO TO SEARCH FORTAG F2208780
TRA SPC130 T FOUND F2208790
TRA SPC065 T NOT FOUND F2208800
SPCSTO CLA B FOR TRASTO,E2 AND E3 ARE F2208810
ARS 18 ALREADY SET UP. COLLECT F2208820
ADD A A AND B INTO E1 WORD, F2208830
STO E1 PUT TRASTO INDICATOR IN F2208840
CLA SPCKEY ACC. AND F2208850
TSX LIST,4 TSX TO LISTING ROUTINE. F2208860
TRA SPC065 ON RETURN,GO TO TEST FINISH. F2208870
SPCKEY HTR STORAGE FOR TABLEKEY F2208880
REM SUBROUTINES TINFOR AND TINFXX F2208890
TINFOR CLA DOTAGZ,1 C(XRA)=INDEX OF DR TO BE F2208900
PAX 0,1 SEARCHED, SEPARATE ALPHA F2208910
ANA DECMSK AND BETA F22D8920
STO A AND STORE IN A F2208930
PXD 0,1 F2208940
STO B B F2208950
TINFXX LXD L(1500,1 PUT MAX FORTAG INDEX IN XRA F2208960
TINF10 CLA FORTZ,1 OBTAIN FORTAG ENTRY F2208970
ANA DECMSK RETAIN FORMULA NUMBER ONLY F2208980
CAS A COMPARE ALPHA AND FORMULA NR. F2208990
TRA TINF40 FOR. NR. GREATER THAN ALPHA. TRA. F2209000
NOP C(A) MAY BE SOME BETA FROM SPC F2209010
TINF20 TXI TINF30,1,-1 FOR.NR. LESS THAN ALPHA. GO F2209020
REM BACK FOR NEXT FORTAG ENTRY F2209030
TINF30 TXH TINF10,1 IF POSSIBLE. OTHERWISE, F2209040
TRA 2,4 RETURN T0 CALLING INSTR PLUS TWO. F2209050
TINF40 CAS B COMPARE FOR. NR. WITH BETA F2209060
TRA 2,4 FOR. NR. GREATER THAN BETA,EXIT, F2209070
NOP FOR. NR. EQUAL TO OR F2209080
CLA FORTZ,1 LESS THAN BETA,OBTAIN FORTAG F2209090
TPL TINF20 TAG AND COMPARE WITH SEARCH TAG. F2209100
ANA ADDMSK I.F. NOT EQUAL,GO BACK FOR NEXT TAGF2209110
SUB TAG F2209120
TNZ TINF20 IF EQUAL,RETURN TO CALLING F2209130
TRA 1,4 F2209140
REM INSTR PLUS ONE. XRA CONTAINS INDEX IN FORTAG OF FIRST TAG F2209150
REM FOUND F2209160
REM SUBROUTINE TRAWRD F2209170
TRAWRD SXD TRAW65,4 F2209180
CLA L(0) F2209190
STO TRABIT F2209200
CLA DOTAGZ+5,1 F2209210
STD TRAW30 F2209220
TRAW10 CLA DOTAGZ+7,1 OBTAIN T2 WORD F2209230
ORS TRABIT OR INTO TRABIT F2209240
TXI TRAW20,1,-9 TAKE NEXT DO F2209250
TRAW20 TXL TRAW70,1 IF NONE, EXIT. (DEC HAS DOTAG IX) F2209260
CLA DOTAGZ+5,1 OBTAIN L WORD F2209270
PDX 0,4 PUT L IN XRC. F2209280
TRAW30 TXL TRAW70,4 EXIT IF DO IS NOT IN RANGE R1 F2209290
TXL TRAW10,2,1 IF COMPLETE TEST,G0 BACK F2209300
TRAW35 CLA DOTAGZ+1,1 IF INCOMPLETE TEST,IS THIS A F2209310
SUB RSYM2 DO TO BE SKIPPED F2209320
TNZ TRAW10 IF NOT, GO 8ACK F2209330
CLA DOTAGZ+5,1 THIS DO IS TO BE SKIPPED F2209340
STD TRAW60 PUT LEVEL OF THIS DO IN TEST INSTR.F2209350
TRAW40 TXI TRAW50,1,-9 TAKE NEXT DO IF ANY F2209360
TRAW50 TXL TRAW70,1 IF NOT, EXIT. OTHERWISE, (DEC.HAS DOTAG IX) F2209370
CLA DOTAGZ+5,1 OBTAIN L WORD F2209380
PDX 0,4 PUT L IN XRC F2209390
TRAW60 TXH TRAW40,4 IF DO IS IN RANGE OF R2,GO BACK F2209400
TRAW65 TXL TRAW30,0 OTHERWISE,GO TO TRAW30 F2209410
TRAW70 LXD TRAW65,4 F2209420
CLA L(36) OBTAIN 36 IN DECREMENT F2209430
SUB TL2 36-TL2 F2209440
ARS 18 IN ADDRESS F2209450
STA TRAW90 INITIALIZE SHIFT F2209460
CLA TL2 OBTAIN TL2 F2209470
SUB TL1 TL2-TL1 F2209480
ARS 18 IN ADDRESS F2209490
STA TRAW80 INITIALIZE SHIFT F2209500
CLA L(0) ACC CONTAINS ZERO F2209510
LDQ 35ONES MQ CONTAINS ALL ONES F2209520
TRAW80 LLS PUT TL2-TL1 ONES-IN-ACC F2209530
TRAW90 ALS POSITION ONES IN ACC F2209540
ANA TRABIT AND IN TRANSFER BITS F2209550
TRA 1,4 GO BACK TO CALLING INSTR PLUS ONE. F2209560
REM SUBROUTINES TAGENT AND TETAPE F2209570
TAGENT LXD TAGXX,1 THIS ROUTINE ENTERS F2209580
TXH TE10,1,0 ONE ENTRY IN TAGZ, F2209590
TSX TETAPE,2 IF POSSIBLE. IF NOT, F2209600
TE10 LXD L(4),2 TRA TO TETAPE. F2209610
TE20 CLA E1+4,2 F2209620
STO TAGZ,1 F2209630
TXI TE30,1,-1 F2209640
TE30 TIX TE20,2,1 F2209650
SXD TAGXX,1 F2209660
TRA 1,4 F2209670
TETAPE WRS ATAPE THIS ROUTINE F2209680
LXD TAGXX,1 ENTERS ALL THE VALID F2209690
SXD TE50,1 ENTRIES IN TAGZ ON F2209700
LXA TAGXX,1 THE TAPE F2209710
TE40 CPY TAGZ,1 THE LAST ENTRY ON TAPE F2209720
TXI TE50,1,-1 AFTER EACH NEST IS F2209730
TE50 TXH TE40,1 AN ENTRY OF 4 WDS OF 35 ONES F2209740
LXA TAGXX,1 F2209750
SXD TAGXX,1 F2209760
TRA 1,2 F2209770
REM ROUTINE RELCON PINGPONGS INSTRUCTIONS F2209780
RELCON LXD L(2),2 INITIALIZE SWITCH F2209790
REL10 LXD L(5),4 INITIALIZE ERROR COUNTER. F2209805
REL20 LXD RELWDS,1 PUT NR OF DRM WDS IN XRA F2209810
RDS PPDRM LOCATE DRUM ADDRESS F2209820
LDA RELDRA+2,2 LOCATE PROPER DRM ADDRESS F2209830
REL30 CPY CORESZ,1 READ STATE B, OR A, INTO F2209840
TIX REL30,1,1 STORAGE F2209850
LXD RELWDS,1 LOAD XRA WITH NR OF DRM WDS F2209860
PXD 0,0 COMPUTE F2209870
REL40 ACL CORESZ,1 CHECK F2209880
TIX REL40,1,1 SUM F2209890
SLW REL80 AND F2209900
CLA REL80 COMPARE. F2209910
SUB RELCS+2,2 IF NOT ZERO, F2209920
TNZ REL70 GO TO ERROR ROUTINE. F2209930
REL50 TXL BRA10,2,1 IF STATE A, RETURN-TO BRANCH. F2209940
REL60 TXL CORES,0 AND TRA TO REL ROUTINE F2209950
RELEND LXD L(1),2 F2209960
TRA REL10 GO TO READ IN STATE A. F2209970
REL70 TIX REL20,4,1 COUNT IN ERROR COUNTER AND RETURN F2209980
TSX DIAG,4 DRUM READ ERROR. GO TO DIAGNOSTIC. F2209995
REL80 HTR E.S. F2210000
RELCS OCT 103075525444 CHECK SUM, STATE B, RELCON F2210014
OCT -246744643200 CHECK SUM STATE A, NORMAL F2210024
RELDRA OCT 1000 DRUM ADDRESS, STATE B. F2210030
OCT 1000000000 NR. WDS, DRUM ADDRESS.STATE A. F2210040
ORG 2934 F2210050
REM MASTER RECORD CARD = FN032 F2210055
IDENT SXD ID075,4 SAVE INDEX F2210060
LXD L(20),1 INITIALIZE IDENT STORAGE. F2210070
CLA L(0) TO ZERO F2210080
STO IDES F2210090
ID010 STO X1+20,1 F2210100
TIX ID010,1,1 F2210110
CLA 35ONES INITIALIZE F2210120
STO LL LOW LEVEL F2210130
LXD L(0),2 COUNT THE SUBSCRIPT F2210140
LXD L(5),4 SYMBOLS. F2210150
ID020 CLA S1+5,4 STORE COUNT IN F2210160
TZE ID030 NRSUBS, AND ALSO IN F2210170
TXI ID030,2,1 NRRC, WHICH IS THE. F2210180
ID030 TIX ID020,4,2 COUNT OF REL. CON. F2210190
PXD 0,2 SUBSCRIPTS. DO SUBS ARE F2210200
STO NRRC SUBTRACTED OUT LATER. F2210210
STO NRSUBS F2210220
LXD XC,1 COMPARE EACH SYMBOL F2210230
LXD LC,2 IN THE SUB. COMB. WITH F2210240
PSE TL THE SYMBOL OF EACH F2210250
ID050 CLA DOTAGZ+1,1 DO IN THE SUB NEST. F2210260
LXD L(5),4 WHEN EQUALITY IS F2210270
ID060 CAS S1+5,4 FOUND, GO TO ID120. F2210280
TRA ID070 IF THE CURRENT DO F2210290
TRA ID120 SYMBOL IS NOT FOUND, F2210300
ID070 TIX ID060,4,2 MAKE EXIT FROM ID410 F2210310
MSE TL F2210320
TRA ID080 F2210330
ID075 TXL ID410,0 F2210340
ID080 TXL ID150,2,1 THESE INSTRUCTIONS F2210350
ID090 TXI ID100,1,9 FIND THE NEXT BACK F2210360
ID100 CLA DOTAGZ+5,1 SUB NEST DO FORMULA, F2210370
STD ID110 AND RETURN CONTROL F2210380
ID110 TXL ID090,2 TO ID050. F2210390
PDX 0,2 F2210400
TRA ID050 F2210410
ID120 MSE TL TURN OFF TEST LIGHT F2210420
NOP AND F2210430
PXD 0,1 ESTABLISH F2210440
STO X1+5,4 INDEX F2210450
PXD 0,2 AND F2210460
STO L1+5,4 LEVEL FOR THIS SUBSCRIPT. F2210470
CLA NRRC SUBTRACT ONE FROM F2210480
SUB L(1) NRRC. THIS WORD F2210490
STO NRRC CONTAINS INITIALLY F2210500
TZE ID150 THE NUMBER OF F2210510
CLA DOTAGZ+1,1 SUBSCRIPTS IN THE F2210520
TRA ID070 COMBINATION. F2210530
ID150 IOD THIS - EDRECN0 FN 265001 P463 F2210540
CLA X1 ROUTINE FN265002 F2210550
LDQ X2 LOOKS FOR THE F2210560
TLQ PT041 OUTERM0ST F2210570
CLA X2 DOTAG F2210580
PT041 LDQ X3 OF A F2210590
TLQ PT042 SUBSCRIPT F2210600
CLA X3 COMBINATION. F2210610
PT042 STO PT043 F2210620
LXD L(6),4 F2210630
LXD L(3),3 F2210640
TRA ID160 RETURN F2210650
PT043 HTR F2210660
ID160 CLA S1+3,1 WHICH CAN BE ASSIGNED F2210670
TZE ID170 HAVE BEEN ASSIGNED. F2210680
SUB S1+5,2 THIS F2210690
TNZ ID170 ROUTINE F2210700
PXD 0,4 MAKES UP THE F2210710
ORS DUPES DUPLICATE F2210720
ID170 TIX ID180,4,1 SUBSCRIPT F2210730
ID180 TIX ID160,2,2 WORD. F2210740
TIX ID190,4,1 F2210750
ID190 TIX ID160,1,2 F2210760
LXD NRRC,2 IF THERE IS MORE F2210770
TXL ID300,2,0 THAN ONE RELCON, F2210780
TXL ID195,2,1 AND IF THERE ARE F2210790
CLA DUPES DUPLICATES, THEN THE F2210800
STO RCDUP RELCONS ARE DUPLICATES. F2210810
CLA L(0) OTHERWISE, THE DOSUBS F2210820
STO DUPES ARE DUPLICATES. F2210830
ID195 LXD L(5),4 IF THERE ARE RELCONS, F2210840
ID200 CLA L1+5,4 THERE ARE NOT MORE F2210850
TNZ ID210 THAN TWO. F2210860
CLA S1+5,4 PUT THEIR SYMBOLS F2210870
TZE ID210 IN PSYM1 AND RSYM2, F2210880
PXD 0,4 AND PUT BITS IN THE F2210890
TXL ID205,4,1 PROPER POSITIONS OF F2210900
SUB L(1) RCSUBS. F2210910
ID205 ORS RCSUBS F2210920
CLA S1+5,4 F2210930
TNX ID220,2,1 F2210940
STO RSYM2 F2210950
ID210 TIX ID200,4,2 F2210960
TRA ID300 F2210970
ID220 STO RSYM1 F2210980
ID300 LXD L(5),4 FOR ALL DO SUBS, F2210990
ID310 CLA X1+5,4 SELECT THE F2211000
TZE ID340 MAXIMUM OF ALL F2211010
PDX 0,1 VARAIBLE N LEVEL F2211020
LXD L(3),2 OF DEFINITION F2211030
ID320 CLA DOTAGZ+6,1 QUANTITIES. F2211040
ANA ADDMSK F2211050
ALS 18 F2211060
CAS IDES F2211070
STO IDES F2211080
NOP F2211090
TIX ID330,1,1 F2211100
ID330 TIX ID320,2,1 F2211110
ID340 TIX ID310,4,2 F2211120
LXD L(5),4 COMPARE THIS MAXIMUM F2211130
LXD L(0),2 F2211140
ID350 CLA L1+5,4 WITH EACH SUBSCRIPT F2211150
TZE ID380 LEVEL, THOSE SUBSCRIPT F2211160
CAS IDES LEVELS LESS THAN OR F2211170
TRA ID370 EQUAL T0 THE MAXIMUN F2211180
NOP LEVEL OF DEFINITION F2211190
PXD 0,4 QUANTITY WILL BE TREATED F2211200
TXL ID360,4,1 AS REL. CONS. F2211210
SUB L(1) INDICATE THIS CONDITION F2211220
ID360 ORS DORC IN THE DORC WORD. F2211230
CLA X1+5,4 F2211240
PDX 0,1 F2211250
CLA BITONE MAKE INDICATION FOR STORED COUNTER F2211260
ORS DOTAGZ+5,1 FOR THIS DORC. F2211270
PXD 0,0 CLEAR X(N) AND L(N) F2211280
STO L1+5,4 SINCE THEY ARE NO L0NGER DOSUBS. F2211290
STO X1+5,4 F2211300
TRA ID380 F2211310
ID370 CAS LL FOR TRUE DO SUBS. F2211320
TRA ID372 ESTABLISH LOW LEVEL F2211330
TRA ID372 AND LOW INDEX. LOW F2211340
STO LL LEVEL WORD WAS F2211350
CLA X1+5,4 INITIALIZED TO F2211360
STO XL 35ONES. F2211370
SXD LOWP0S,4 F2211380
ID372 PXD 0,4 PUT BITS IN F2211390
TXL ID375,4,1 PROPER POSITIONS F2211400
SUB L(1) OF DOSUBS F2211410
ID375 ORS DOSUBS WORD F2211420
TXI ID380,2,1 F2211430
ID380 TIX ID350,4,2 F2211440
PXD 0,2 F2211450
STO NRDS CHECK TO SEE THAT F2211460
TNZ ID385 AT LEAST ONE SUBSCR IS A DOSUB F2211472
TSX DIAG,4 NO DOSUB WAS PRECLUDED. ERROR. GO TO DIAGNOSTIC F2211485
ID385 LXD NRRC,2 THESE INSTRUCTIONS F2211490
TXL ID400,2,0 COMPUTE DELTA. F2211500
LXD L(1),4 IF ONE DISTINCT DOSUB, F2211510
CLA RCDUP ONE DISTINCT RELCON, F2211520
TNZ ID395 DELTA IS ONE. F2211530
CLA DUPES IF TWO DISTINCT DOSUBS, F2211540
TNZ ID395 ONE RELCON, DELTA IS TWO. F2211550
TXL ID390,2,1 IF ONE DOSUB, TWO F2211560
TXI ID395,4,2 DISTINCT RELCONS, F2211570
ID390 LXD NRDS,2 DELTA IS THREE. F2211580
TXL ID395,2,1 FOR ALL OTHER CASES, F2211590
TXI ID395,4,1 DELTA IS ZERO. F2211600
ID395 PXD 0,4 F2211610
STO DELTA F2211620
ID400 LXD ID075,4 EXIT, F2211630
TRA 2,4 SUBCOM USED. F2211640
ID410 LXD ID075,4 EXIT, F2211650
TRA 1,4 SUBCOMB NOT USED. F2211660
IDES HTR F2211670
NAME SXD NAM10,4 - SAVE LINKAGE F2211680
CLA TAG PUT TAU IN TS, F2211690
PAT05 STO TS P463 F2211700
LXD PT043,1 F2211710
RET01 TSX TINFOR,4 SEARCH RANGE OF XL F2211720
TRA NAM20 (FOUND) FOR NEGATICE TAG. F2211730
NAM10 TXL NAM50 NOT FOUND F2211740
NAM20 CLA NEWTAG OBTAIN F2211750
STO TS NEW F2211760
ADD L(1)A NAME F2211770
STO NEWTAG F2211780
LXD XC,1 ARRANGE F2211790
CLA DOTAGZ,1 ENTRY BLOCK F2211800
STO E1 FOR CHATAG F2211810
CLA TAG ENTRY. F2211820
ALS 18 F2211830
ADD TS F2211840
STO E2 F2211850
CLA CHATAG F2211860
LXD NRRC,4 USE LIST OR SPC000, F2211870
TXH NAM30,4,0 DEPENDING UPON F2211880
TSX LIST,4 WHETHER OR NOT F2211890
TRA NAM40 WORD NRRC IS ZERO. I.E., ARE THERE RELCONS. F2211900
NAM30 LXD L(2),2 NO TINFOR SEARCH REQUIRED. F2211910
TSX SPC000,4 F2211920
NAM40 LXD NAMXX,1 ENTER F2211930
TXH NAM44,1,0 ALPHA, F2211940
TSX DIAG,4 TAG, (NAME TABLE FULL. ERROR. GO TO DIAGNOSTIC.)F2211955
NAM44 CLA ALPHA AND F2211960
ORA TAG NAME F2211970
STO NAMZ,1 IN F2211980
CLA TS NAME F2211990
STO NAMZ+1,1 TABLE F2212000
TXI NAM48,1,-2 F2212010
NAM48 SXD NAMXX,1 F2212020
NAM50 LXD NAM10,4 EXIT F2212030
TRA 1,4 F2212040
REM 1NS00 PROCESSES SC CONTAINING ONE DISTINCT INDEXED SUBSCRIPT.F2212050
1NS00 SXD 1NS20,4 SAVE LINKAGE F2212060
LXD XC,1 F2212070
CLA BITTWO IF A COUNTER HAS F2212080
ANA DOTAGZ+6,1 BEEN FOUND, F2212090
TNZ 1NS10 GO TO 1NS10 F2212100
LXD DOSUBS,4 SKIP TO 1NS10 F2212110
TXL 1NS10,4,3 IF NOT FIRST POSITION. F2212120
TXH 1NS10,4,4 F2212130
CLA RCSUBS IF ANY RELCONS, F2212140
ORA DORC GO TO 1NS10 F2212150
TNZ 1NS10 F2212160
LXD C1,4 IF C1 IS NOT ONE, F2212170
TXH 1NS10,4,1 GO TO 1NS10 F2212180
CLA ADDMSK THIS SUB. COMB. WILL SERVE F2212190
ANS DOTAGZ+8,1 AS COUNTER AND TEST, ENTER IN F2212200
CLA TS DOTAGZ+8. F2212210
ALS 18 INDICATE F2212220
ORA L(MZ) BEST TEST F2212230
ORS DOTAGZ+8,1 FOUND. F2212240
CLA BITTWO INDICATE COUNTER FOUND. F2212250
ORS DOTAGZ+6,1 F2212260
CAL L(MZ) SET CARWRD NEGATIVE. F2212270
ORS CARWRD TEST BITONE OF L WORD. F2212280
CLA BITONE IF ONE, SKIP TRASTO F2212290
ANA DOTAGZ+5,1 TEST. F2212300
TNZ 1NS10 F2212310
1NS05 CLA DOTAGZ+5,1 TEST TO SEE IF TRANSFER F2212320
TPL 1NS10 STORE NECESSARY. F2212330
CLA DOTAGZ,1 MAKE TRASTO ENTRY F2212340
STO E1 TO STORE COUNTER F2212350
CLA DOTAGZ+1,1 IN LOCATION OF SYMBOL. F2212360
STO E2 F2212370
CLA LC F2212380
ORA TS F2212390
STO E3 F2212400
CLA TRASTO F2212410
TSX LIST,4 F2212420
1NS10 CLA L(6) ENTER F2212430
STO GR0UP GROUP NR. F2212440
LXD 1NS20,4 AND EXIT. F2212450
TRA 1,4 F2212460
1NS20 HTR F2212470
REM 2NS00 ROUTINE PROCESSES SC WITH TWO DISTINCT INDEXED F2212480
REM SUBSCRIPTS, F2212490
2NS00 SXD 2NS25,4 SAVE LINKAAGE F2212500
2NS10 LXD DOSUBS,1 2NS10 T0 2NS80 DETERMINE THE F2212510
LXD L(2),2 GROUP NR AND CARRY BITS F2212520
CLA L1 FOR THE SL. F2212530
TXH 2NS20,1,3 F2212540
CLA L2 F2212550
2NS20 TXL 2NS30,1,5 F2212560
SUB L2 F2212570
2NS25 TXL 2NS40,0 F2212580
2NS30 SUB L3 F2212590
2NS40 TMI 2NS70 F2212600
SUB L(1) F2212610
TNZ 2NS60 F2212620
TXL 2NS50,1,3 F2212630
TXL 2NS60,1,5 F2212640
TXI 2NS50,2,2 F2212650
2NS50 LXD DUPES,4 THIS DUPE TEST IS AN ADJUSTMENT F2212660
TXH 2NS60,4,0 FOR DUPLICATES IN A REDUCED F2212670
TSX CARRY,4 3NS CASE. F2212680
2NS60 CLA L(1) F2212690
2NS65 TXL 2NS80,0 F2212700
2NS70 CLA L(6) F2212710
2NS80 STO GR0UP F2212720
PDX 0,4 F2212730
LXD DOSUBS,2 THIS ROUTINE,TO 2NS90, F2212740
CLA L1 PREPARES A TRAWRD CALLING F2212750
TXH 2NS82,2,3 SEQUENCE TO DETERMINE F2212760
CLA L2 WHETHER OR NOT RESETTING F2212770
2NS82 TXL 2NS84,2,5 IS NECESSARY F2212780
LDQ L2 F2212790
TRA 2NS86 F2212800
2NS84 LDQ L3 F2212810
2NS86 TXL 2NS88,4,1 TEST GROUP F2212820
STO TL1 F2212830
STQ TL2 F2212840
LXD X3,1 F2212850
CLA L(1) F2212860
TXL 2NS90,2,5 F2212870
LXD X2,1 F2212880
CLA L(2) F2212890
TRA 2NS90 F2212900
2NS88 STO TL2 F2212910
STQ TL1 F2212920
LXD X1,1 F2212930
CLA L(4) F2212940
TXH 2NS90,2,3 F2212950
LXD X2,1 F2212960
CLA L(2) F2212970
2NS90 STO REBITS 2NS90 SEQ. SINGLE REBITS F2212980
ANA DUPES ARE PART OF THE TAG OF THE F2212990
TZE 2NS91 RESETTING SC,IT MUST BE F2213000
CLA REBITS ADJUSTED FOR DUPE RESETS. F2213010
ORA DUPES F2213020
STO REBITS F2213030
2NS91 SXD 2NS65,1 F2213040
LXD L(1),2 F2213050
TSX TRAWRD,4 TEST FOR TANSFER BITS. F2213060
TZE 2NSEND RESETTING NOT NECESSARY IF F2213070
LXD REBITS,2 TRAWRD RESULT ZERO. IF F2213080
LXD 2NS65,1 RESETTING NECESSARY, EXECUTE F2213090
TSX RESET,4 RESET ROUTINE AND F2213100
2NSEND LXD 2NS25,4 EXIT F2213110
TRA 1,4 F2213120
REM 3NS00 ROUTINE PROCESSES SC WITH THREE DISTINCT INDEXED F2213130
REM SUBSCRIPTS. F2213140
3NS00 SXD 3GRP15,4 SAVE LINKAGE F2213150
REM THIS ROUTINE DETERMINES GROUP NUMBER FOR 3NS NO DUPE SC F2213160
LXD L(0),2 PUT ZERO IN XRB F2213170
CLA L3 OBTAIN L3 F2213180
CAS L2 COMPARE WITH L2 F2213190
TXI 3GRP10,2,4 L3 GREATER THAN L2 F2213200
TSX DIAG,4 N0 DUPES. ERROR. GO TO DIAGNOSTIC. F2213215
3GRP10 CAS L1 L3 LESS THAN L2,COMPARE L3,L1 F2213220
3GRP15 TXL 3GRP20,0 L3 GREATER THAN L1 F2213230
TSX DIAG,4 N0 DUPES. ERROR. GO TO DIAGNOSTIC. F2213243
TXI 3GRP20,2,1 L3 LESS THAN L1 F2213250
3GRP20 CLA L2 OBTAIN L2 F2213260
SUB L1 SUBTRACT L1 F2213270
TMI 3GRP30 TRA IF L2 LESS THAN L1 F2213280
TXI 3GRP30,2,2 L2 GREATER THAN L1 F2213290
3GRP30 PXD 0,2 PUT GROUP NUMBER IN ACC DEC. F2213300
STO GR0UP OR INTO TAG 1 F2213310
CLA L1 OBTAIN L1 F2213320
SUB L(1) L1 LESS 1 F2213330
SUB L2 L1 LESS 1 LESS L2 F2213340
TNZ 3GRP40 NOT ZERO,NO CARRY,TRA F2213350
LXD L(4),2 SET XRB F2213360
TSX CARRY,4 AND TSX TO CARRY F2213370
3GRP40 CLA L2 RE-ENTRY,OBTAIN L2 F2213380
SUB L(1) L2 LESS 1 F2213390
SUB L3 L2 LESS 1 LESS L3 F2213400
TNZ 3GRP50 NOT ZERO,NO CARRY,TRA F2213410
LXD L(2),2 SET XRB F2213420
TSX CARRY,4 AND TSX TO CARRY F2213430
3GRP50 LXD L(0),6 THE FOLLOWING ROUTINE, F2213440
LXD GR0UP,1 THROUGH 3GRP72, COMPUTES F2213450
3GRP55 TRA 3GRP55+7,1 QUANTITIES FOR XRB, XRC. F2213460
TXI 3GRP65,2,2 GROUP IS SIX F2213470
TXI 3GRP65,4,4 FIVE F2213480
TXI 3GRP65,2,4 FOUR F2213490
TXI 3GRP60,6,2 THREE F2213500
TXI 3GRP65,4,2 TWO F2213510
TXI 3GRP60,4,4 ONE F2213520
3GRP60 TXI 3GRP65,2,2 F2213530
3GRP65 CLA X1+4,4 F2213540
STO INX F2213550
CLA X1+5,4 F2213560
STO INL F2213570
CLA X1+4,2 F2213580
STO MIDX F2213590
CLA X1+5,2 F2213600
STO MIDL F2213610
TXH 3GRP70,4,0 THE QUANTIT1ES IN XRB. F2213620
TXI 3GRP70,4,1 XRC, ARE ZERO, TWO, OR F2213630
3GRP70 SXD INP,4 FOUR, ADJUSTED TO ONE, F2213640
TXH 3GRP72,2,0 TWO, FOUR, TO INDICATE THE F2213630
TXI 3GRP72,2,1 POSITION OF THE SUBCCRIPT F2213660
3GRP72 SXD MIDP,2 BEING RESET, STORE IN INP, MIDP. F2213670
LXD L(4),4 THIS LOOP IS EXECUTED TWICE. F2213680
3GRP75 CLA INX+4,4 OBTAIN INNER INDEX OF PAIR F2213690
PDX 0,1 IN XRA F2213700
CLA INL+4,4 OBTAIN INNER LEVEL OF PAIR F2213710
STO TL2 TL2 F2213718
CLA LL OBTAIN LOWER LEVEL IN F2213720
STO TL1 TL1 F2213740
LXD L(1),2 PUT ONE IN XRB, F2213750
SXD 3GRP80,4 SAVE XRC, F2213760
TSX TRAWRD,4 AND USE TRAWRD. F2213770
LXD 3GRP80,4 RESTORE XRC, F2213780
TZE 3GRP77 GO TO INDEXING IF ZERO. F2213790
CLA INP+4,4 TRAWRD RESULT NOT ZERO. F2213800
PDX 0,2 PREPARE T0 F2213810
CLA INX+4,4 USE RESET F2213820
PDX 0,1 F2213830
SXD 3GRP80,4 SAVE XRC, F2213840
TSX RESET,4 GO TO RESET, F2213850
LXD 3GRP80,4 RESTR0E XRC, F2213860
3GRP77 TIX 3GRP75,4,2 INDEX AND GO BACK, F2213870
TRA 3NSEND OR EXIT F2213880
INP HTR POSITION OF INNER SUB. F2213890
3GRP80 HTR F2213900
MIDP HTR POSITION OF MIDDLE SUB. F2213910
INX HTR INDEX INNER LEVEL SUBSCRIPT F2213920
INL HTR LEVEL INNER LEVEL SUBSCRIPT F2213930
MIDX HTR INDEX MIDDLE LEVEL SUBSCRIPT F2213940
MIDL HTR LEVEL MIDDLE LEVEL SUBSCRIPT F2213950
3NSEND LXD 3GRP15,4 F2213960
TRA 1,4 F2213970
RESET SXD RES45,4 SAVE LINKAGE F2213980
PXD 0,2 SAVE F2213990
STO RES300 PREFIX (REBITS) F2214000
PXD 0,1 SAVE INDEX F2214010
STO RES310 OF RESET F2214020
CLA C3 OBTAIN C3 IN F2214030
ARS 18 ADDRESS PART. F2214040
RES05 TRA RES05+7,2 INDEXED T RANSFER, C(XRB)=C(REBITS)F2214050
TRA RES50 C(XRB)=110 F2214060
TRA RES30 C(XRB)=101 F2214070
TRA RES40 C(XRB)=100 F2214080
TRA RES20 C(XRB)=011 F2214090
TRA RES50 C(XRB)= 010 F2214100
RES10 STO E2 C(XRB)=001 F2214110
CLA D2 THESE INSTRUCTIONS, THROUGH F2214120
ARS 18 RES60, COMPUTE THE F2214130
ADD D1 CHARACTERISTIC WORDS OF THE F2214140
TRA RES60 SUBSCRIPT COMBINATION. F2214150
RES20 ADD C2 F2214160
TRA RES10 F2214170
RES30 ADD C1 F2214180
TRA RES10 F2214190
RES40 CLA C1 F2214200
STO E2 F2214210
CLA L(0) F2214220
RES45 TXL RES60,0 F2214230
RES50 CLA C2 F2214240
ARS 18 F2214250
TXL RES55,2,2 F2214260
ADD C1 F2214270
RES55 STO E2 F2214280
CLA D1 F2214290
RES60 STO E3 F2214300
TXH RES65,2,4 IF PREFIX IS 1,0,0, F2214310
TXH RES400,2,3 T RA TO RES400 F2214320
RES65 LXD RESXX,1 SEARCH F2214330
SXD RES75,1 RETAB F2214340
LXA RESXX,1 FOR F2214350
TRA RES75 SAME F2214360
RES70 CLA RETABZ,1 INDEX. F2214370
ANA DECMSK F2214380
CAS RES310 F2214390
TXI RES75,1,-3 F2214400
TRA RES80 INDEX FOUND, GO TO RES80 F2214410
RES73 TXI RES75,1,-3 F2214420
RES75 TXH RES70,1 F2214430
TRA RES85 NOT FOUND, GO TO RES85 F2214440
RES80 CLA RETABZ,1 COMPARE PREFIX OF F2214450
ANA RES320 RETAB ENTRY F2214460
ALS 6 WITH CURRENT F2214470
SUB RES300 PREFIX. IF NOT EQUAL, F2214480
TNZ RES73 CONTINUE RETAB SEARCH. F2214490
CLA RETABZ+1,1 IF EQUAL, COMPARE F2214500
SUB E2 C HARACTERISTIC WORDS. F2214510
TNZ RES73 IF F2214520
CLA RETABZ+2,1 NOT F2214530
SUB E3 F2214540
TNZ RES73 EQUAL, CONTINUE SEARCH. F2214550
CLA RETABZ,1 IF EQUAL, F2214560
ANA ADDMSK USE RESET TAG ALREADY F2214570
STO RES330 ENTERED. SAVE NAME. F2214580
TRA RES200 TRA T0 RES200 F2214590
RES85 CLA RES300 NO USABLE ENTRY FOUND. F2214600
ARS 6 MAKE F2214610
ORA TAG NEW F2214620
STO RES330 F2214630
ORA RES310 ENTRY F2214640
LXD RESXX,1 IN F2214650
TXH RES87,1,0 RETAB. F2214660
TSX DIAG,4 RETAB TABLE FULL. ERROR. GO TO DIAGNOSTIC. F2214675
RES87 STO RETABZ,1 F2214680
CLA E2 F2214690
STO RETABZ+1,1 F2214700
CLA E3 F2214710
STO RETABZ+2,1 F2214720
TXI RES88,1,-3 ADJUST IN DEX. F2214730
RES88 SXD RESXX,1 F2214740
CLA RES310 MAKE E2 WORD F2214750
TXH RES96,2,5 FOR DRUMTAG OR F2214760
TXH RES94,2,4 TAGTAG ENTRY F2214770
TXH RES92,2,3 F2214780
TXH RES90,2,2 F2214790
TXH RES96,2,1 F2214800
ARS 18 F2214810
TRA RES96 F2214820
RES90 ARS 18 F2214830
ADD RES310 F2214840
TRA RES96 F2214850
RES92 CLA L(0) F2214860
RES94 ARS 18 F2214870
RES96 STO E2 F2214880
CLA RES310 MAKE F2214890
ARS 18 E1 WORD F2214900
TXH RES98,2,3 F2214910
CLA L(0) F2214920
RES98 STO E1 F2214930
LXD RES310,1 F2214940
CLA DOTAGZ,1 F2214950
ANA DECMSK F2214960
ORS E1 F2214970
CLA RES330 MAKE F2214980
STO E3 E3 WORD F2214990
CLA L(6) MAKE F2215000
STO E4 E4 F2215010
CLA RES300 WORD F2215020
ARS 18 F2215030
ORS E4 F2215040
TXL RES110,2,2 F2215050
TXL RES100,2,3 F2215060
TXL RES110,2,4 F2215070
RES100 ALS 9 F2215080
ORS E4 F2215090
RES110 CLA L(0) THESE INSTRUCTIONS, F2215100
STO RES340 T0 RES170, DETERMINE F2215110
LXD L(5),4 WHICH COEFFICIENTS F2215120
RES120 CLA C1+5,4 ARE GREATER THAN F2215130
SUB L(1) ONE AND PLACE F2215140
TZE RES140 THIS INFO IN F2215150
TIX RES130,4,1 E4(TAG1). F2215160
RES130 PXD 0,4 F2215170
ORS RES340 F2215180
TXI RES140,4,1 F2215190
RES140 TIX RES120,4,2 F2215200
CLA RES340 F2215210
ANA RES300 F2215220
ARS 6 F2215230
ORS E4 F2215240
CLA DRMTAG DRUM TAG ENTRY F2215250
TSX LIST,4 OR F2215260
TRA RES200 TAGTAG F2215270
RES180 TSX TAGENT,4 ENTRY. F2215280
RES200 LXD RES310,1 MAKE F2215290
CLA DOTAGZ,1 PROPER F2215300
STO E1 TRASTO F2215310
CLA TL2 ENTRY F2215320
ARS 18 F2215330
ADD TL1 F2215340
STO E2 F2215350
CLA RES330 F2215360
ALS 18 F2215370
ADD TS F2215380
SSM F2215390
STO E3 F2215400
CLA TRASTO F2215410
TSX LIST,4 F2215420
RES210 LXD RES45,4 EXIT. F2215430
TRA 1,4 F2215440
RES300 HTR PREFIX STORAGE F2215450
RES310 HTR INDEX STORAGE F2215460
RES320 OCT 70000 PREFIX MASK F2215470
RES330 HTR RESET NAME STORAGE F2215480
RES340 HTR E.S. F2215490
RES400 CLA E2 TEST FOR COEFFICIENT F2215500
SUB L(1) EQUAL TO ONE. F2215510
TNZ RES65 IF NOT, PROCESS NORMALLY F2215520
CLA DOTAGZ,1 THROUGH RESET. F2215530
ARS 17 TEST FOR CONSTANT N1. F2215540
LBT IF VARIABLE, NORMAL PROCESSING. F2215550
TRA RES410 0 F2215560
TRA RES65 1 F2215570
RES410 CLA DOTAGZ+6,1 HAS COUNTER BEEN FOUND. F2215580
ANA BITTWO F2215590
TNZ RES420 IF SO, GO TO RES420 F2215600
CLA TL2 IF NOT, MAKE ENTRY F2215610
ARS 18 IN ADDED TAG TABLE F2215620
ORA TL1 FOR PROCESSING INTO F2215630
SSM DRUM TAG AFTER NEST F2215640
LRS 35 ANALYSIS. F2215650
PXD 0,1 F2215660
ORA TS F2215670
LXD L(1),2 F2215680
TSX TAGADD,4 F2215690
TRA RES210 TRA TO EXIT F2215700
RES420 TSX RSR,4 COUNTER FOUND, USE RSR. F2215710
TRA RES210 TRA T0 EXIT F2215720
REM THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST DIAGNOSTIC RECORD. F2215725
NORMRT RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE. F2215726
TRA ONETCS GO TO ONE TO CS ( MONITOR) F2215727
BSS 80 F2215730
TAGZ BSS 1 F2215740
BSS 99 F2215750
ADTAGZ BSS 1 F2215760
BSS 99 F2215770
NAMZ BSS 1 F2215780
BSS 299 F2215790
RETABZ BSS 1 F2215800
REM MASTER RECORD CARD = FN030 F2215805
REM TMIS ROUTINE PROCESSES SINGLE RELATIVE CONSTANTS F2215810
REM AND, FOR SC WITH TWO RC SUBS, DOES ALL PROCESSING F2215820
REM EXCEPT WHERE THERE IS A POSSIBLE MULTIPLE DEFINITION, F2215830
REM AT WHICH POINT IT CALLS ON 2R0000. F2215840
ORG IDENT STATE B F2215850
CORES LXD DOTAG-1,1 F2215860
SXD DSDR20,1 F2215870
SXD DSD118,1 F2215880
SXD DSD145,1 F2215890
SXD 2R0020,1 F2215900
DSDR00 MSE 100 F2215910
NOP F2215920
LXD XC,1 PUT INDEX OF DC IN XRA F2215930
LXD DELTA,4 PUT DELTA IN XRC F2215940
CLA LC INITIALIZE END OF F2215950
STD DSDR30 DC TEST INSTR F2215960
DSDR10 TXI DSDR20,1,-9 TAKE NEXT DOWN DO,IF POSSIBLE F2215970
DSDR20 TXL DSD100,1 EXIT IF DOTAG EXHAUSTED. F2215980
CLA DOTAGZ+5,1 OBTAIN LEVEL OF THIS DO IN F2215990
PDX 0,2 XRB,COMPARE W1TH LEVEL OF F2216000
DSDR30 TXL DSD100,2 D6 AND EXIT IF NOT IN DC. F2216010
CLA DOTAGZ+1,1 OBTAIN SYMBOL OF THIS DO F2216020
SUB RSYM1 COMPARE WITH (FIRST) R SYM. F2216030
TZE DSDR50 IF THIS DO IS DR1,TRA. F2216040
TXL DSDR10,4,2 IF NOT DR1,GO BACK,UNLESS DELTA3 F2216050
CLA DOTAGZ+1,1 OBTAIN SYMBOL AGAIN F2216060
SUB RSYM2 AND COMPARE WITH RSYM2 F2216070
TNZ DSDR10 IF NOT RSYM1 OR RSYM2,G0 BACK F2216080
CLA RSYM2 IF DO SYM IS RSYM2, F2216090
LDQ RSYM1 SWITCH RSYM1 AND RSYM2 F2216100
STO RSYM1 TO MAKE BUCKET LABLES F2216110
STQ RSYM2 AGREE WITH ORDER OF DO FORMULAS F2216120
DSDR50 SXD XR1,1 SAVE F2216130
PXD 0,2 INDEX OF R1 F2216140
STO LR1 AND LEVEL OF R1 F2216150
STO TL2 INITIALIZE TRAWRD TL2 F2216160
CLA LL INITIALIZE TRAWRD TL1 F2216170
STO TL1 PREPARE F2216180
LXD L(1),2 TRAWRD C(XRB) F2216190
TXL DSDR55,4,2 F2216200
LXD L(2),2 F2216210
DSDR55 TSX TRAWRD,4 GO TO TRAWRD AND F2216220
STO D2D1 SAVE IF NOT ZERO F2216230
LXD DELTA,4 RETURN HERE F2216240
TXH DSDR85,4,2 TRANSFER IF DELTA IS THREE F2216250
TZE DSDR20 RETURN IF RESULT ZERO F2216260
SXD DSDR95,1 F2216270
TXL DSDR65,4,1 TR IF DELTA=1 F2216280
CLA L(36) FOR DELTA=2,SEPARATE F2216290
SUB LC TRAWRD RESULTS. F2216300
ARS 18 F2216310
STA DSDR60 F2216320
LDQ L(0) F2216330
CLA D2D1 F2216340
DSDR60 LRS F2216350
TZE DSDR62 IF TRANSFERS EXIST DC T0 DL, F2216360
PSE 100 SET SENSE SWITCH F2216370
DSDR62 STQ D2D1 F2216380
CLA D2D1 F2216390
TZE DSDR80 IF NO TRANSFERS DR TO DC,EXIT F2216400
DSDR65 CLA ATSW TEST ADDED TAG SWITCH F2216410
TNZ DSDR80 IF ADDED DELTA TWO, SKIP INSERT F2216420
LXD XR1,1 IS TAG IN DR1 F2216430
TSX TINFOR,4 GO TO TINFOR AND RETURN F2216440
TRA DSDR70 FOUND F2216450
LXD L(0),2 NOT FOUND F2216460
LXD XR1,1 F2216470
TSX TAGADD,4 INSERT TAG IN R1,RETURN F2216480
STQ TR1 HERE AND STORE NAME IN TR1 F2216490
TRA DSDR75 F2216500
DSDR70 LXD XR1,1 FIND NAME OF TAG IN R1 F2216510
CLA DOTAGZ,1 F2216520
ANA DECMSK F2216530
ADD TAG F2216540
TSX GETNAM,4 F2216550
STO TR1 F2216560
DSDR75 LXD XR1,1 LIST STORES F2216570
LXD L(0),2 F2216580
TSX STORES,4 F2216590
DSDR80 LXD DSDR95,1 F2216600
LXD DELTA,4 F2216610
TRA DSDR20 F2216620
DSDR85 TZE 2R0000 GO TO R2 SEARCH IF NO TRA R1 TO D6 F2216630
LXD XR1,1 IF TRA R1 TO DC, F2216640
LXD L(1),2 USE SPC000 TO LOOK FOR F2216630
TSX SPC000,4 TAG IN R1 F2216660
TRA DSDR87 NOT FOUND,GO TO DSDR87 F2216670
LXD XR1,1 FOUND,USE SUBROUTINE F2216680
CLA DOTAGZ,1 GETNAM TO DETERMINE LABLE F2216690
ANA DECMSK OF TAG IN R1 F2216700
ADD TAG F2216710
TSX GETNAM,4 F2216720
STO TR1 PUT NAME IN TR1 F2216730
TRA DSDR89 F2216740
DSDR87 LXD XR1,1 USE TAGADD TO INSERT F2216750
LXD L(0),2 TAG IN R1 F2216760
TSX TAGADD,4 F2216770
STQ TR1 PUT NAME IN TR1 F2216780
LXD XL,1 F2216790
CLA BIT20 F2216800
ORS DOTAGZ+6,1 F2216810
DSDR89 LXD XR1,1 LIST STORES F2216820
LXD L(1),2 F2216830
TSX STORES,4 F2216840
DSDR90 TRA 2R0000 GO TO R2 ROUTINE AND F2216850
DSDR92 LXD DELTA,4 RETURN HERE F2216860
DSDR95 TXL DSDR20,0 NEXT R1. DEC CONTAINS XNEXTR1 F2216870
DSD100 TXL DSD200,4,1 TRA IF DELTA IS 1 F2216880
TXH DSD200,4,2 TRA IF DELTA IS 3 F2216890
MSE 100 DELTA IS 2,TEST D3D1 SWITCH F2216900
TRA DSD110 LIGHT OFF F2216910
TRA DSD170 LIGHT ON F2216920
DSD110 LXD XL,1 OBTAIN INDEX OF DL IN XRA F2216930
CLA DOTAGZ+5,1 OBTAIN LEVEL OF DL F2216940
STD DSD120 AND STORE IN TEST INSTR. F2216950
DSD115 TXI DSD118,1,-9 TAKE NEXT DOWN DO IF POSSIBLE F2216960
DSD118 TXL DSD200,1 OTHERWISE,EXIT, F2216970
CLA DOTAGZ+5,1 OBTAIN LEVEL OF THIS DO F2216980
PDX 0,2 AND TEST WHETHER THIS DO IS F2216990
DSD120 TXL DSD200,2 IN DL. IF NOT,EXIT. F2217000
PXD 0,1 IF IN DL, F2217010
SUB XC IF THIS DO D6. F2217020
TZE DSD130 IF SO,TRA. F2217030
CLA DOTAGZ+1,1 IF NOT,IS THIS DO A DR. F2217040
SUB RSYM1 F2217050
TZE DSD160 IF SO,TRA, F2217060
TRA DSD115 IF NOT,GO BACK TO GET NEXT DO F2217070
DSD130 SXD DSD150,2 IF DO IS DC, F2217080
DSD140 TXI DSD145,1,-9 F2217090
DSD145 TXL DSD200,1 F2217100
CLA DOTAGZ+5,1 IS NEW IN DL. F2217110
PDX 0,2 IF SO,GO BACK TO STEP DOWN F2217120
DSD150 TXL DSD120,2 AGAIN IN DC. IF NOT IN F2217130
TRA DSD140 DC, GO TO TEST IF IN DL F2217140
DSD160 PXD 0,2 INITIALIZE F2217150
STO TL2 TL2 TO LEVEL OF DR F2217160
CLA LL PUT LEVEL OF DL F2217170
STO TL1 IN TL1 F2217180
LXD L(1),2 PUT 1 IN XRB F2217190
TSX TRAWRD,4 AND GO TO TRAWRD. F2217200
TZE DSD118 IF RESUTL ZERO,GO BACK F2217210
DSD170 LXD XL,2 F2217220
CLA BITONE F2217230
ORS DOTAGZ+5,2 F2217240
LXD LOWP0S,2 F2217250
CLA L(0) F2217260
STO X1+5,2 F2217270
STO X1+6,2 F2217280
TIX DSD175,2,1 F2217290
DSD175 PXD 0,2 F2217300
ORS DORC F2217310
COM F2217320
ANS DOSUBS F2217330
CLA XC F2217340
STO XL F2217350
CLA LC F2217360
STO LL F2217370
CLA L(1) F2217380
STO NRDS F2217390
STO DELTA F2217400
DSD200 TRA DS4VAL F2217410
REM RELCON DELTA THREE SECOND LEVEL DEFINITION. F2217420
2R0000 LXD XR1,1 PUT INDEX OF R1 IN XRA F2217430
CLA LR1 OBTAIN LEVEL OF R1 F2217440
STD 2R0030 INITIALIZE TEST INSTR. F2217450
2R0010 TXI 2R0020,1,-9 TAKE NEXT DOWN DO IF POSSIBLE F2217460
2R0020 TXL DSDR92,1 EXIT IF PARTLY FULL DOTAG EXHAUSTEDF2217470
CLA DOTAGZ+5,1 OBTAIN LEVEL OF DO F2217480
PDX 0,2 PUT IN XRB AND COMPARE WITH F2217490
2R0030 TXL DSDR92,2 LR1,EXIT IF NEW DO NOT IN XR1. F2217500
CLA DOTAGZ+1,1 OBTAIN SYMBOL OF NEW DO, F2217510
SUB RSYM2 COMPARE WITH RSYM2. F2217520
TNZ 2R0010 IF NOT RSYM2,G0 BACK. F2217530
SXD XR2,1 SAVE INDEX F2217540
PXD 0,2 AND LEVEL F2217550
STO LR2 OF R2. F2217560
STO TL2 PREPARE FOR TSX TO TRAWRD. F2217570
CLA LC TO TEST FOR TRANSFERS F2217580
STO TL1 FROM R2 TO DS. F2217590
LXD L(1),2 F2217600
TSX TRAWRD,4 IF NO TRANSFERS,GO BACK F2217610
TZE 2R0020 FOR NEXT DO. F2217620
SXD 2R0065,1 F2217630
STO D3D2 TEMPORARY STORAGE F2217640
CLA L(36) PUT 36 IN ACC F2217650
SUB LR1 SUB LEVEL OF R1, F2217660
ARS 18 SHIFT RESULT AND F2217670
STA 2R0050 F2217680
LDQ L(0) PUT ZERO IN MQ, F2217690
CLA D3D2 OBTAIN TRAWRD RESULT, F2217700
2R0050 LRS PERFORM SEPARATION F2217710
STO D3D1 AND SAVE F2217720
STQ D3D2 RESULTS. F2217730
CLA D3D1 IF D3D1 IS ZERO,THEN D3D2 F2217740
TNZ 2R0060 IS NOT ZERO F2217750
CLA D2D1 IF D2D1 IS ZERO, F2217760
TZE 2R0200 TR TO GET NEX DO F2217770
2R0060 LXD XR2,1 SEARCH FOR TAG F2217780
TSX TINFOR,4 IN R2 F2217790
TRA 2R0080 FOUN0,TR TO OBTAIN NAME F2217800
LXD XR2,1 NOT FOUND, LOOK FOR DELTA TWO F2217810
TSX ADDSER,4 INSERT IN ADDED TAG TABLE. F2217820
2R0065 TXL 2R0090,0 FOUND,NAME IN ACC. F2217830
LXD XR2,1 NOT FOUND F2217840
LXD L(0),2 ADD TAG F2217850
TSX TAGADD,4 IN TABLE OF ADDED TAGES F2217860
STQ TR2 PUT NAME IN TR2 F2217870
TRA 2R0100 F2217880
2R0080 LXD XR2,1 SEARCH F2217890
CLA DOTAGZ,1 FOR F2217900
ANA DECMSK NAME F2217910
ADD TAG F2217920
TSX GETNAM,4 F2217930
2R0090 STO TR2 PUT NAME IN TR2 F2217940
2R0100 CLA D3D1 LIST STORES IF ANY TR, F1I17950
TZE 2R0150 FOR TRANSFERS, F2217960
LXD XR2,1 D3D1 F2217970
LXD L(2),2 F2217980
TSX STORES,4 F2217990
2R0150 CLA D3D2 TEST TR F2218000
TZE 2R0200 D3D2 F2218010
CLA D2D1 TEST TR F2218020
TZE 2R0200 D2D1 F2218030
LXD XR2,1 LIST STORES F2218040
TSX STORXX,4 F2218050
2R0200 LXD 2R0065,1 RETURN FOR F2218060
TRA 2R0020 NEXT R2 F2218070
REM DRUM SEARCH OF FORVAL F2218080
DS4VAL LXD END80,1 OBTAIN FORVAL EMPTY INDICATOR, F2218090
TXL DS4V20,1,0 EXIT IF FORVAL EMPTY F2218100
CLA TAG PRESET WORD E2 FOR LIST F2218110
ALS 18 ROUTINE,TAU TAG AND NAME F2218120
ADD TS F2218130
STO E2 F2218140
MSE 100 LIGHT 100 OFF F2218150
NOP F2218160
CLA ALPHA THESE INSTRUCTIONS SET UP F2218170
STO A FOR DRUM SEARCH. F2218180
CLA BETA F2218190
ADD L(1)A F2218200
STO B F2218210
CLA 4VALAD OBTAIN LOCATION FO FIRST F2218220
STO FORAD FORVAL DRUM ENTRY,STORE IN F2218230
LXD L(0),1 LDA ADDRESS. PUT ZERO F2218240
TSX FSXX,4 IN XRA AND GO TO F2218250
LXD DELTA,4 SEARCH ROUTINE. UPON RETURN, F2218260
TXH DS4V20,4,2 ECIT UNLESS DELTA IS 2, F2218270
TXL DS4V20,4,1 IN WHICH CASE,CONTINUE, F2218280
PSE 100 TURN INDICATOR LIGHT ON F2218290
CLA B THE FOLLOWING INSTR, F2218300
STO NEXTA SET UP TWO ADDITIONAL F2218310
CLA A RANGES FOR SEARCHING, F2218320
STO B THOSE FORMULAS OUTSIDE F2218330
LXD XL,2 OF DC BUT WITHIN DL. F2218340
CLA DOTAGZ,2 IN THESE SPECIAL RANGES F2218350
PAX 0,2 AS SOON AS ONE ENTRY IS F2218360
ANA DECMSK FOUND IN EITHER RANGE, F2218370
STO A TO BE DONE. F2218380
PXD 0,2 F2218390
ADD L(1)A F2218400
STO LASTB F2218410
CLA A F2218420
ADD L(1) F2218430
SUB B F2218440
TZE DS4V10 IF THIS RANGE IS EMPTY, F2218450
CLA 4VALAD SKIP SEARCH. F2218460
STO FORAD F2218470
LXD L(0),1 F2218480
TSX FSXX,4 GO TO SEARCH ROUTINE F2218490
DS4V10 CLA NEXTA A AND B FOR SECOND F2218500
STO A SPECIAL RANGE. F2218510
CLA LASTB F2218520
STO B F2218530
SUB A F2218540
TZE DS4V20 F2218550
PSE 100 F2218560
CLA 4VALAD F2218570
STO FORAD F2218580
LXD L(0),1 F2218590
TSX FSXX,4 F2218600
DS4V20 TRA RELEND EXIT F2218610
FSXX SXD FS28,4 SAVE TSX INDEX F2218620
FS00 CLA L(5) INITIALIZE F2218632
STD 4VLHL8 ERROR COUNTER F2218640
FS05 RDS 194 F2218650
LXD BS71,2 F2218660
LDA FORAD FIND FIRST OR NEXT ADDRESS F2218670
CLA A IN FORVAL,PUT A IN ACC. F2218680
FS10 CPY BLOCK COPY FORMULA NR. F2218690
TLQ FS30 A GREATER THAN FOR.NR.,TRA. F2218700
CPY BLOCK+1 A LESS,COPY BALANCE OF F2218710
CLA B ENTRY,PUT B IN ACC, F2218720
CPY BLOCK+2 ADJUST XRA FOR THIS F2218730
TXI FS20,1,3 ENTRY. F2218740
FS20 CPY BLOCK+60,2 COPY NEXT FOR. NR. F2218750
TLQ FS40 B GREAT THAN FOR. NR.,TRA. F2218760
FS25 SUB BLOCK TEST FIRST ENTRY. F2218770
TPL FS50 B GREATER THAN F,TRA F2218780
FS28 TXL BS99,0 B LESS THAN F,EXIT F2218790
FS30 CPY BLOCK+1 COPY BALANCE OF ENTRY,GO F2218800
CPY BLOCK+2 BACK IF POSSIBLE T0 CONTINUE F2218810
TXI FS10,1,3 SEARCH FOR BEGINNING OF RANGE, F2218820
FS40 CPY BLOCK+61,2 THIS ENTRY IS IN RANGE, F2218830
CPY BLOCK+62,2 CONTINUE READING IN ENTRIES F2218840
TIX FS20,2,3 UNTIL BLOCK FULL OR RANGE F2218850
LXD L(0),2 EXCEEDED. F2218860
TRA FS25 F2218870
FS50 SXD CS20,2 F2218880
SXD BS40,2 F2218890
SXD BS25,1 F2218900
CS00 LXD L(60),2 THIS ROUTINE COMPUTES F2218910
CS10 CAL BLOCK+60,2 THE CHECK SUMS OF THE F2218920
ACL BLOCK+61,2 ENTRIES AND COMPARES F2218930
SLW 4VALES F2218940
CLA 4VALES THEM WITH THE GIVEN CHECK F2218950
SUB BLOCK+62,2 SUMS. F2218960
TNZ 4VLHLT TRA TO EXIT IF BAD ENTRY. F2218970
TXI CS20,2,-3 F2218980
CS20 TXH CS10,2 CONTINUE WITH BS00 F2218990
BS00 CLA RSYM1 THIS ROUTINE SEARCHES F2219000
LXD DELTA,4 THE STORAGE BLOCK FOR F2219010
BS10 LXD L(60),2 RSYM1,AND RSYM2 IF DELTA F2219020
BS20 CAS BLOCK+61,2 IS THREE. F2219030
BS25 TXL BS30,0 F2219040
TRA BS60 EQUALITY F UND,TRA. F2219050
BS30 TXI BS40,2,-3 RE-ENTRY F2219060
BS40 TXH BS20,2 F2219070
BS50 TXL BS70,4,2 F2219080
LXD L(0),4 F2219090
CLA RSYM2 F2219100
TRA BS10 F2219110
BS60 MSE 100 TEST TO SEE IF F2219120
TRA BS80 NORMAL SEARCH,OR IF F2219130
TRA BS90 SPECIAL CASE OF DELTA TWO. F2219140
BS70 LXD BS40,2 BLOCK SEARCH DONE. IF BLOCK F2219150
TXH BS99,2,0 WAS NOT FULL,EXIT. F2219160
LXD BS25,1 OTHERWISE,PREPARE TO CONTINUE F2219170
BS71 TXI BS72,1,57 SEARCH,IF MORE ENTRIES IN FORVAL. F2219180
BS72 TXH BS99,1,1499 F2219190
PXD 0,1 AND COMPUTE F2219200
ARS 18 NEW FORVAL F2219210
ADD 4VALAD ADDRESS F2219220
STO FORAD F2219230
BS78 TXL FS00,0 GO BACK TO CONTINUE SEARCH F2219240
BS80 STO 4VALES RSYM FOUND,ARRANGE TO F2219250
LXD XL,1 SAVE INDEXED SUBSCRIPTS. F2219260
CLA BITONE F2219270
ORS DOTAGZ+5,1 F2219280
LXD XC,1 F2219290
ORS DOTAGZ+5,1 RSYM FOUND,E2 PREVIOUSLY F2219300
CLA BLOCK+60,2 PREPARED,NOW PREPARE F2219310
STO E1 E1,SAVE ACC,XR8,XRC, F2219320
CLA TSXC0M AND LIST. F2219330
SXD BS85,2 AFTER LISTING, F2219340
SXD BS78,4 RESTORE ACC,XR8,XRC F2219330
TSX LIST,4 AND RETURN TO CONTINUE F2219360
LXD BS85,2 SEARCH. F2219370
LXD BS78,4 F2219380
CLA 4VALES F2219390
BS85 TXL BS30 F2219400
BS90 LXD XL,2 SPECIAL CASE,DELTA TWO, F2219410
CLA BITONE PUT IN BIT TO SAVE SL F2219420
ORS DOTAGZ+5,2 F2219430
LXD LOWP0S,2 OBTAIN INDEX QUANTITY 1, 3, 5. F2219440
CLA L(0) FOR XL, F2219450
STO X1+5,2 SET PROPER X AND L TO ZERO, F2219460
STO X1+6,2 F2219470
TIX BS91,2,1 ADJUST 1,3,5 TO 1,2,4, F2219480
BS91 PXD 0,2 PUT IN ACC F2219490
BS92 ORS DORC AND PUT BIT IN DORC F2219500
COM REMOVE BIT F2219510
ANS DOSUBS FROM DOSUBS F2219520
CLA XC F2219530
STO XL F2219540
CLA LC F2219550
STO LL F2219560
CLA L(1) F2219570
STO NRDS F2219580
STO DELTA F2219590
TRA DS4V20 EXIT F2219600
BS99 LXD FS28,4 EXIT FROM FSXX ENTRY F2219610
TRA 1,4 F2219620
4VLHLT LXD 4VLHL8,2 IF THERE IS AN ERROR IN THE F2219630
TIX 4VLHL4,2,1 CHECK SUM ROUTINE,THE BLOCK F2219640
4VLHL2 TSX DIAG,4 WILL BE REREAD 5 TIMES. (ERROR. GO TO DIAGNOSTIC.)F2219655
4VLHL4 SXD 4VLHL8,2 BEFORE THE MACHINE STOPS. F2219660
4VLHL8 TXL FS05,0 F2219670
FORAD HTR DRUM ADDRESS FOR LDA INSTR. F2219680
4VALAD HTR 202 F2219690
4VALES HTR E.S. F2219700
XR1 F2219710
LR1 F2219720
XR2 F2219730
LR2 F2219740
D2D1 F2219750
D3D1 F2219760
D3D2 F2219770
TR1 F2219780
TR2 F2219790
REM SUBROUTINE GETNAM F2219800
GETNAM LXD NAMXX,1 THIS ROUTINE SEARCHES F2219810
SXD GETN20,1 TABLE NAMZ FOR THE NAME F2219820
LXA NAMXX,1 OF TAU TAG IN A PARTICULAR F2219830
TRA GETN20 F2219840
GETN05 CAS NAMZ,1 DO FORMULA. F2219850
TRA GETN10 F2219860
TRA GETN30 F2219870
GETN10 TXI GETN20,1,-2 F2219880
GETN20 TXH GETN05,1 F2219890
ANA ADDMSK F2219900
TRA 1,4 F2219910
GETN30 CLA NAMZ+1,1 F2219920
TRA 1,4 F2219930
REM SUBROUTINE ADDSER F2219940
ADDSER PXD 0,1 F2219950
ADD TAG F2219960
LXD ADTXX,1 PREPARE XRA AND DEC 0 F2219970
SXD ADS030,1 ADS030 FOR TABLE SEARCH. F2219980
LXA ADTXX,1 F2219990
TRA ADS030 TRA FOR EMPTY TABLE TEST F2220000
ADS010 CAS ADTAGZ,1 F2220010
TRA ADS020, F2220020
TRA ADS040 FIRST WORD FOUND F2220030
ADS020 TXI ADS030,1,-2 F2220040
ADS030 TXH ADS010,1 F2220050
TRA 2,4 NOT FOUND F2220060
ADS040 CLA ADTAGZ+1,1 F2220070
ADS050 TRA 1,4 F2220080
REM SUBROUTINES STORES AND STORXX F2220090
STORES SXD STO40,4 THIS ROUTINE PREPARES F2220100
CLA LR1 AN ENTRY FOR TABLE TRASTO F2220110
ARS 18 AND USES LIST TO ENTERS F2220120
ADD LC THE ENTRY ON THE PROPER F2220130
STO E2 DRUM TABLE. IF SPC000 F2220140
CLA TR1 IS USED BY THE ROUTINE, F2220150
TXL STO20,2,1 MANY ENTRIES MAY BE MADE F2220160
CLA TR2 IN TRA STO. F2220170
STO20 ALS 18 IF DELTA EQUALS ONE OR TWO, F2220180
ADD TS THIS ROUTINE IS ENTERED F2220190
STO E3 THROUGH STORES WITH C(XRB) F2220200
TXL STO35,2,0 ZERO. IF DELTA IS THREE F2220210
TXL STO50,2,1 AND WE ARE WORKING ON F2220220
TRA STO35 TRANSFERS DR2 TO DS THEN F2220230
STORXX SXD STO40,4 STORES ENTRY IS USED WITH F2220240
CLA LR2 C(XRB)=2 F2220250
ARS 18 1F DELTA=3,TRA DR1 TO DS, F2220260
ADD LR1 STORES ENTRY IS USED WITH F2220270
STO E2 C(XRB)=1 F2220280
CLA TR2 IF DELTA=3,TRA DR2 TO DR1, F2220290
ALS 18 ENTRY STORXX IS USED. F2220300
ADD TR1 C(XRB) NOT USED. F2220310
STO E3 LIST ROUTINE IS.USED IN F2220320
REM EVERY CASE,MAKING ONE F2220330
REM TRASTO ENTRY,EXCEPT FOR F2220340
REM CASE DELTA=3,TRA DR1 TO DS, F2220350
REM C(XRB)=1,WHEN SPC000 IS USED. F2220360
STO35 CLA DOTAGZ,1 LIST ROUTINE USED F2220370
STO E1 F2220380
CLA TRASTO F2220390
TSX LIST,4 F2220400
STO40 TXL ST100,0 F2220410
STO50 LXD L(2),2 SPC000 USED. F2220420
CLA TRASTO F2220430
TSX SPC000,4 F2220440
ST100 LXD STO40,4 EXIT F2220450
TRA 1,4 F2220760
BLOCK BSS 60 F2220470
ORG 4056 F2220480
REM MASTER RECORD CARD = FN029 F2220485
PP0NG LXD PG80,2 ROUTINE PPONG SETS UP DRUM ONE FOR F2220490
TRA PG10 PING-PONGING. F2220300
LXD PG70,2 F2220510
PG10 LXD PG90,4 F2220520
PG15 WRS 193 F2220530
LXD PG95,1 F2220540
LDA PG60+2,2 F2220550
PG20 CPY CORESZ,1 F2220560
TIX PG20,1,1 F2220570
WRS 219 F2220580
RDS 193 F2220590
LXD PG95,1 F2220600
LDA PG60+2,2 F2220610
PG30 CPY CORES,1 F2220620
TIX PG30,1,1 F2220630
LXD PG95,1 F2220640
PXD 0,0 PG40-1 F2220630
PG40 ACL CORES,1 F2220660
TIX PG40,1,1 F2220670
SLW PG99 F2220680
CLA PG99 F2220690
SUB PG50+2,2 F2220700
TZE NORMRP F2220715
TIX PG15,4,1 F2220720
TSX DIAG,4 DRUM READ ERROR. GO TO DIAGNOSTIC. F2220735
NORMRP RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE. F2220736
TRA ONETCS GO TO ONE TO CS (MONITOR)= F2220737
PG50 OCT 103075525444 CHECK SUM, STATE B, RELCON F2220744
OCT -246744643200 CHECK SUM STATE A, NORMAL F2220754
PG60 OCT 1000 F2220760
OCT F2220770
PG70 OCT 1000000 F2220780
PG80 OCT 2000000 F2220790
PG90 OCT 5000000 F2220805
PG95 OCT 1000000000 F2220810
PG99 HTR F2220820
BURNCE SXD T0P,1 DRUM OVERFLOW F2220825
TRA DIAG ERROR PROCEDURE. F2220826
T0P EQU 32767 F2220827
TAPE2 EQU 146 F2220830
DOTAPE EQU 147 F2220840
ATAPE EQU 148 F2220850
PPDRM EQU 193 F2220860
ADRUM EQU 195 F2220870
TAUDRM EQU 196 F2220880
TL EQU 97 F2220890
RELWDS SYN RELDRA+1 F2220900
ABIT SYN BIT18 F2220910
BBIT SYN BIT20 F2220920
SUBBIT SYN BIT18 F2220930
CORESZ SYN CORES+512 F2220940
ONETCS EQU 4 F2220945
DIAG EQU 4 F2220946
END F2220950
REM BLOCK THREE OF SECTION TWO.
REM MASTER RECORD CARD = FN036 F2300004
REM BLOCK 3 DOES SUBSCRIPT ANALYSIS FOR F2300006
REM THOSE SUBSCRIPT COMBINATIONS NO SUBSCRIPT F2300010
REM ELEMENT OF WHICH IS UNDER CONTROL OF F2300020
REM A DO (PURE RELATIVE CONSTANTS). TWO F2300030
REM TYPES OF TSXCOM TABLE ENTRIES ARE MADE IN ROUTINE FOUND F2300040
REM WHICH WILL INDICATE TO SUCCEEDING BLOCKS THE NECESSITY TO F2300050
REM COMPILE EITHER DIRECT LXDS OF INDEX REG VALUES OR TSXS TO F2300060
REM SUBROUTINES TO COMPUTE THOSE INDEX REG VALUES. FOUR-TYPES OF F2300070
REM TRASTO TABLE ENTRIES ARE MADE WHICH WILL INDICATE THAT F2300080
REM CERTAIN INDEXING INSTRUCTIONS SH0ULD BE COMPILED ACCOMPANYINGF2300000
REM THE TRANSFERS OUT OF THE RANGE OF DOS WHICH DEFINE VALUES F2300100
REM OF THE SUBSCRIPTS IN QUESTION. FINALLY, TSXCOM ENTRIES AND F2300110
REM TABLE IRV ENTRIES ARE SORTED AND WRITTEN ON-DRUM. ROUTINES F2300120
REM ENCOUNTERED IN BLOCK 2 WILL BE RECOGNIZED IN THIS BLOCK 3 - F2300130
REM SUBCOM, TRAWORD, SPC, TINFOR, LIST. F2300140
ORG 25 F2300150
NAME BSS 1 TABLE STORAGE F2300160
BSS 449 F2300170
NAMZ BSS 1 F2300180
FORTAG BSS 1 F2300190
BSS 1499 F2300200
FORTZ BSS 1 F2300210
FORVAL BSS 1 F2300220
BSS 1499 F2300230
4VALZ BSS 1 F2300240
ORG 25 F2300250
TCOM BSS 1 F2300260
BSS 749 F2300270
TCOMZ BSS 1 F2311280
ORG 1977 F2300290
DOTAG BSS 1 F2300300
BSS 1349 F2300310
DOTAGZ BSS 1 F2300320
BSS 149 F2300330
IRVZ BSS 1 F2300340
TAG BSS 1 ADDRESS HAS FORTAG IX CURRENT F2300350
TS BSS 1 NEW NAME F2300360
TAGIND BSS 1 ONE IF SOLITARY SUB COEFF ONE, OTHERWISE ZERO F2300370
DELTA BSS 1 COUNT OF NO OF SYMBOLS IN SUB COMB F2300380
RSYM1 BSS 1 WORKING SYMBOL ONE F2300390
RSYM2 BSS 1 WORKING SYM8OL TWO F2300400
RSYM3 BSS 1 WORKING SYMBOL THREE F2300410
C1 BSS 1 COEFF FIRST SYMBOL F2300420
S1 BSS 1 FIRST SYMBOL F2300430
C2 BSS 1 COEFF 2ND SYMBOL F2300440
S2 BSS 1 2ND SYMBOL F2300450
C3 BSS 1 COEFF 3RD SYMBOL F2300460
S3 BSS 1 3RD SYMBOL F2300470
D1 BSS 1 DIM 1ST SYM, IF TWO-DIMENSIONAL F2300480
D2 BSS 1 DIM 2ND SYM, IF THREE-DIMENSIONAL F2300490
TL2 BSS 1 LEVEL DOTAG MATCHING SUBXCRIPT SYMBOL F2300500
XR1 BSS 1 IX DOTAG MATCHING FIRST SUB SYMBOL (RSYM1) F2300510
LR1 BSS 1 LEV DOTAG MATCHING 1ST SUB SYMB (RSYM1) F2300520
NEXTR1 BSS 1 IX LAST DOTAG OF NEST SEARCHED IN TRAWRD 1ST LVF2300530
XR2 BSS 1 IX DOTAG MATCHING 2ND SUB SYMB (RSYM2) F2300540
LR2 BSS 1 LEV DOTAG MATCHING 2ND SUB SYMB (RSYM2) F2300550
NEXTR2 BSS 1 IX LAST DO OF NEST SRCHD IN TRAWORD ON 2ND LEV F2300560
XR3 BSS 1 1X DOTAG MATCHING THIRD SUB SYM8 (RSYM3) F2300570
NEXTR3 BSS 1 IX LAST DO OF NEST SRCHD IN TRWRD ON 3RD LEVEL F2300580
SKIP BSS 1 SKIP, ZERO OR 1 F2300590
TRABIT BSS 1 TRAWORD TEMP STORAGE F2300600
NEXTA BSS 1 INTERMEDIATE UPPER LIMIT OF RANGE F2300610
LASTB BSS 1 INTERHEDIATE LOWER LIMIT OF RANGE F2300620
A BSS 1 UPPER LIMIT OF RANGE F2300630
B BSS 1 LOWER LIMIT OF RANGE F2300640
IRVXX BSS 1 CURRENT TABLE IRV I.R. VALUE F2300650
L(0) 0,0,0 F2300660
L(1) 0,0,1 F2300670
L(2) 0,0,2 F2300680
L(3) 0,0,3 F2300690
L(6) 0,0,6 F2300700
L(36) 0,0,36 F2300710
L(1350 0,0,1350 F2300720
L(1500 0,0,1500 F2300730
L(1)A OCT 1 F2300740
L(MZ) MZE F2300750
BITONE OCT 200000000000 F2300760
BIT18 OCT 400000 F2300770
34ONES OCT 177777777777 F2300780
35ONES OCT 377777777777 F2300790
ADDMSK OCT 77777 F2300800
DECMSK OCT 77777000000 F2300810
PREMSK OCT -200000000000 F2300820
DRMADD 202 DRUM ORIGIN OF FORVAL TABLE F2300830
NAMORG 1008 DRUM ORIGIN OF NAME TABLE F2300840
NAMAD NAME CORE ORIGIN OF NAME TABLE F2300850
NAMAX 0,0,450 MAXIMUM WORDS IN NAME TABLE F2300860
IRVORG 1304 DRUM ORIGIN OF WD COUNT TABLE IRV F2300870
IRVAD IRV CORE ORIGIN OF IRV TABLE F2300880
IRVMAX 0,0,150 MAXIMUM WORDS IN IRV TABLE F2300890
TCOMOR 704 DRUM ORIGIN OF WD COUNT, TABLE TCOM F2300900
TSXORG 706 DRUM ORIGIN OF TSXCOM TABLE F2300910
TCOMAD TCOM CORE ORIGIN OF TCOM TABLE F2300920
TCOMAX 0,0,750 F2300930
BLOCK3 CLA 4094 TSXCOM CARRYOYER FROM BLOCK TWO F2300940
STO LADDS EQUAL TO LAST TABLE ENTRY PLUS ONE. F2300950
CLA 4093 TRASTO CARRYOVER FROM BLOCK TWO F2300960
STO LADDS+1 EQUAL TO LAST TABLE ENTRY PLUS ONE. F2300970
CLA IRVMAX INITIALIZE IRVXX. F2300980
STO IRVXX EQUAL TO ETC. F2300990
LXD FORTAG-1,1 IF FORTAG EMPTY, F2301000
TXH NORMRT,1,1499 NORM RET MONITOR. GO TO SPACE TAPE 1. F2301015
NAMRD LXD L(6),2 INITIALIZE EERROR COUNTER. F2301022
NAM10 CLA 4095 OBTAIN NAME ADDRESS CARRYOVER FROM BLOCK 2 F2301030
SUB NAMORG FROM BLOCK TWO, F2301040
PAX 0,1 F2301050
TXL NAM95,1,0 IF NO TABLE NAME, GO TO READ IN FORVAL. F2301060
RDS ADRUM READ IN TABLE NAME. F2301070
ADD NAMAD ADD CORE ORG TABLE NAME T0 COMP TERMINUS AND F2301080
STA NAM60 STORE IN COPY ADDRESS. F2301090
PXD 0,1 F2301100
SSM F2301110
ADD NAMAX DIFF BETWEEN MAX NO ENTRIES AND ACTUAL Nl. F2301120
STO NAME-1 F2301130
LDA NAMORG DRUM lRG F2301140
NAM60 CPY 0,1 F2301150
TIX NAM60,1,1 F2301160
LXD NAME-1,1 F2301170
SXD NAM80,1 F2301180
LXD NAMAX,1 F2301190
NAM70 CAL NAMZ,1 COMPUTE CHECK SUM F2301200
ACL NAMZ+1,1 FOR F2301210
SLW NAMES1 EACH F2301220
CLA NAMES1 TABLE ENTRY, F2301230
SUB NAMZ+2,1 AND COMPARE F2301240
TNZ NAM90 SAME. F2301250
TXI NAM80,1,-3 F2301260
NAM80 TXH NAM70,1 F2301270
TRA BEGIN TABLE NAME ALL IN. F2301280
NAM90 TIX NAM10,2,1 F2301290
TSX DIAG,4 DRUM READ NAME TABLE. ERROR. GO TO DIAGNOSTIC. F2301305
NAM95 CLA NAMAX TABLE NAME EMPTY. F2301310
STO NAME-1 F2301320
TRA BEGIN F2301330
NAMES1 HTR TEMP STORAGE F2301340
BEGIN MSE LIGHT TEST FOR EHPTY FORVAL F2301350
TRA CPYLP F2301360
PSE LIGHT IF EMPTY, F2301370
TRA NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1 F2301385
CPYLP LXD L(6),2 READ IN FORVAL F2301392
RDSDRM RDS BDRUM F2301400
CLA 34ONES PUT DRUM MARK IN ACC. F2301410
LDA DRMADD F2301420
LXD L(1500,1 F2301430
CPYONE CPY 4VALZ,1 PULL IN FIRST WORD OF FORVAL. F2301440
TLQ CPYTWO TEST FOR DRUM MARK. F2301430
TRA CHKSUM F2301460
CPYTWO CPY 4VALZ+1,1 PULL IN 2ND WORD OF FORVAL, F2301470
CPY 4VALZ+2,1 AND CHECK SUM. F2301480
TIX CPYONE,1,3 F2301490
LXD L(0),1 F2301500
CHKSUM SXD FORVAL-1,1 COMPUTE AND F2301510
SXD NEXT,1 COMPARE F2301520
LXD L(1500,1 CHECK F2301530
CSLOOP CAL 4VALZ,1 SUMS. F2301540
ACL 4VALZ+1,1 F2301550
SLW COMCS F2301560
CLA COMCS F2301570
SUB 4VALZ+2,1 F2301580
TNZ ERROR F2301590
TXI NEXT,1,-3 F2301600
NEXT TXH CSLOOP,1 F2301610
TRA 2WDDO FORVAL ALL IN. F2301620
ERROR TIX RDSDRM,2,1 F2301630
TSX DIAG,4 DRUM REAAD FORVAL TABLE. ERROR. GO TO DIAGNOSTIC. F2301645
COMCS HTR F2301650
2WDDO LXD L(6),4 ERROR COUNTER. F2301662
2WDO5 REW TAPE3 PREPARE TO READ IN DOTAG. F2301670
LXD L(300),1 F2301680
MSE 99 TEST FOR EMPTY DOTAG. F2301690
TRA 2WD10 F2301700
PSE 99 F2301710
TRA 2WD70 F2301720
2WD10 RTT F2301730
NOP F2301740
2WD20 RDS TAPE3 PULL F2301750
2WD30 LXD L(7),2 IN F2301760
CPY DOZ,1 DOTAG F2301770
TRA 2WD40 BUT F2301780
TRA 2WD70 ONLY F2301790
TRA 2WD20 THE F2301800
2WD40 CPY DOZ+1,1 FIRST F2301810
TRA 2WD50 TWO F2301820
TSX DIAG,4 WORDS ERROR. GO TO DIAGNOSTIC. F2301835
TSX DIAG,4 OF ERROR. GO TO DIAGNOSTIC. F2301845
2WD50 CPY ESXX EACH F2301850
TRA 2WD60 TABLE F2301860
TSX DIAG,4 ENTRY. ERROR. GO TO DIAGNOSTIC. F2301875
TSX DIAG,4 ERROR. GO TO DIAGNOSTIC. F2301885
2WD60 TIX 2WD50,2,1 F2301890
TXI 2WD30,1,-2 F2301900
2WD70 SXD DOZ,1 F2301910
WRS 219 F2301920
RTT F2301930
TRA 2WD80 READ ERROR. F2301940
TRA NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1 F2301955
2WD80 TIX 2WDO5,4,1 F2301960
TSX DIAG,4 TAPE 3 READING DOTAG, ERROR. GO TO DIAGNOSTIC. F2301975
L(300) 0,0,300 F2301980
L(7) 0,0,7 F2301990
ESXX HTR TEMP STORAGE. F2302000
REM MASTER RECORD CARD = FN037 F2302005
ORG 3980 F2302010
BURNCE SXD T0P,1 DRUM 0VERFLOW F2302011
TRA DIAG ERROR PROCEDURE F2302012
REM THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST THE DIAGNOSTIC REC. F2302016
NORMRT RDS 145 SKIP OVER DIAGNOSTIC RECORD 0O SYSTEM TAPE. F2302017
TRA ONETCS GO TO ONE TO CS (MONITOR) F2302018
LIST SXD LIST40,4 SAVE LINKAGE F2302030
PDX 0,1 PUT INDEX QUANTITY IN XRA F2302040
PAX 0,6 PUT NR. OF WDS IN XRB,XRC. F2302050
ADD LIST50 COMPUTE NR. OF WRDS F2302060
STA LIST30 PLUS ORIGIN E1 AND F2302070
STA LIST20 INITIALIZE ADDRESSES, F2302080
CLA LADDIN+5,1 TEST F2302090
ARS 18 FOR F2302100
SUB LADDS+5,1 FULL F2302110
TNZ LIST10 TABLE. F2302120
TSX BURNCE,4 DRUM 0VERFLOW, GO SAVE IRA BEFORE DIAG. F2302135
LIST10 PXD 0,0 ZERO IN ACC. . F2302140
LIST20 ACL 0,2 COMPUTE F2302150
TIX LIST20,2,1 ENTRY F2302160
WRS ADRUM SELECT DRUM. F2302165
SLW LIST60 CHECK SUM. F2302170
LDA LADDS+5,1 COPY F2302180
LIST30 CPY 0,4 ENTRY F2302190
TIX LIST30,4,1 AND F2302200
CPY LIST60 CHECK SUM. F2302210
CLA LADDS+5,1 COMPUTE F2302220
ADD TSXCOM+5,1 NEXT F2302230
ADD L(1)A ENTRY F2302240
ANA ADDMSK ADDRESS. F2302250
STO LADDS+5,1 F2302260
LXD LIST40,4 EXIT F2302270
TRA 1,4 F2302280
LIST40 HTR E.S. F2302290
LIST50 HTR E1 L(E1) F2302300
LIST60 HTR E.S. F2302310
REM FOUR WORD ENTRY BLOCK F2302320
E1 HTR F2302330
E2 HTR F2302340
E3 HTR F2302350
E4 HTR F2302360
REM FIVE KEY WORDS, C(DEC)=INDEX QUANTITIES, C(ADD)=NR. OF WORDS.F2302370
TSXCOM HTR 2,0,5 F2302380
TRASTO HTR 3,0,4 F2302390
NAMKEY HTR 2,0,3 F2302400
CHATAG HTR 2,0,2 F2122410
DRMTAG HTR 4,0,1 F2302420
REM FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART. F2302430
LADDS HTR TSXCOM F2302440
HTR TRASTO F2302450
HTR NAMKEY F2302460
HTR CHATAG F2302470
HTR DRMTAG F2302480
REM FIVE WORDS, C(ADD)=ORIGIN,C(DEC)=LAST TABLE L.C. PLUS ONE F2302490
LADDIN HTR 706,0,1456 TSXCOMP F2302500
HTR 304,0,704 TRASTO F2302510
HTR 1008,0,1458 NAMKEY F2302520
HTR 2,0,302 CHATAG F2302530
HTR 1460,0,1960 DRMTAG F2302540
REM THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE F2302550
REM CORRESP0NDING SUBSCRIPT COMPINATION FROM THE TAU F2302560
REM DRUM AND POSITIONS IT IN PROPER FORMAT IN STORAGE. F2302570
SUBCOM SXD SUB085,4 SAVE LINKAGE INDX. F2302580
LXD SUBORG,1 INITIALIZE ERROR COUTNER. F2302590
SUB010 RDS TAUDRM SELECT TAU DRUM. F2302600
LXD SUBORG+2,4 INITIALIZE F2302610
PXD 0,0 SUBSCRIPT COMBINATION F2302620
SUB020 STO C1+8,4 SPACE F2302630
TIX SUB020,4,1 T0 ZERO. F2302640
CLA TAG COMPUTE F2302650
LRS 9 DRUM F2302660
PAX 0,6 ADDRESS. F2302670
PXD 0,0 TAU ONE ADD. IS ORG+3TAU. F2302680
LLS 9 TAU TWO ADD. IS ORG+5TAU. F2302690
STO SUBES1 TAU THREE ADD. IS ORG+7TAU. F2302700
ALS 1 STORE F2302710
STO SUBES2 ADDRESS F2302720
CLA SUBORG+3,4 IN SUBES1 F2302730
ADD SUBES1 FOR LDA F2302740
SUB030 ADD SUBES2 INSTRUCTION. F2302750
TIX SUB030,4,1 F2302760
STA SUBES1 F2302770
LDA SUBES1 COPY SUB. COMB. F2302780
CPY C1 TAU ONE, TWO, THREE F2302790
TXL SUB040,2,2 F2302800
CPY C3 TAU 3 F2302810
SUB040 CPY S1 TAU 1,2,3 F2302820
TXL SUB060,2,1 F2302830
CPY S2 TAU2,3 F2302840
TXL SUB050,2,2 F2302850
CPY S3 TAU 3 F2302860
SUB050 CPY D1 TAU 2,3 F2302870
SUB060 CPY SUBES1 TAU 1,2,3 F2302880
LXD SUBORG,4 COMPUT CHECK SUM F2302890
CAL C1 AND COMPARE WITH F2302900
SUB070 ACL C1+7,4 ENTRY CHECK CUM. F2302910
TIX SUB070,4,1 THREE ATTMPTS ARE MADE F2302920
SLW SUBES2 T0 READ SC CORRECTLY. F2302930
CLA SUBES2 IF ERROR STILL PRESENT, F2302940
SUB SUBES1 COMPLETE ROUTINE, MAKE ERROR RET. F2302950
TZE SUB075 CHECK SUMS AGREE, TRA. F2302960
TIX SUB010,1,1 CHECK SUMS DISAGREE, F2302972
TSX DIAG,4 IN READING TAU FROM DRUM, ERROR. GO TO DIAGNOSTIC. F2302983
SUB075 LXD SUBORG+1,4 REARRANGE C1, C2, D1, D2, F2302990
SUB080 CLA C1+7,4 TO COMPLY WITH CORE F2303000
PAX 0,2 STORAGE FORMAT. F2303010
ANA DECMSK F2303020
STO C1+7,4 F2303030
PXD 0,2 F2303040
TNX SUB090,4,6 F2303050
STO C2 F2303060
SUB085 TXL SUB080,0 F2303070
SUB090 STO D2 F2303080
LXD SUB085,4 RESTORE LINKAGE INDEX, F2303090
NOP F2303102
TRA 1,4 F2303110
SUB100 NOP F2303122
SUBORG OCT 000006001356 F2303130
OCT 7000454 DEC. IS 7, ADD. IS ORG. TAU 2 F2303140
OCT 10000000 DEC. IS 8, ADD. IS ORG. TAU 1 F2303150
SUBES1 HTR E.S. F2303160
SUBES2 HTR E.S. F2303170
ORG 3537 F2303180
REM MASTER RECORD CARD = FN039 F2303185
BL3A LXD FORTAG-1,1 IF FORTAG F2303190
TXH NORMRT,1,1499 IS EMPTY, NORM RET MONITOR. GO SPACE TP 1. F2303205
MSE LIGHT IF FORVAL IS EMPTY, F2303210
TRA INIT F2303220
TRA NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1 F2303235
INIT LXD FORVAL-1,1 INITIALIZE F2303240
SXD TAB60,1 . F2303250
LXD FORTAG-1,1 . F2303260
SXD VAL80,1 . F2303270
SXD VAL95,1 . F2303280
LXD DOZ,1 . F2303290
SXD IND20,1 . F2303300
VALTAG LXD L(1500,1 THIS PROGRAM F2303310
VAL10 CLA FORTZ,1 MAKES A F2303320
TMI VAL90 PASS OVER F2303330
ANA BITONE FORTAG, AND F2303340
TNZ VAL90 FOR EACH NON-NEGATIVE (NOT TRREATED IN BL 2) F2303350
CLA FORTZ,1 TAG WITH BITONE EQUAL F2303360
ANA ADDMSK TO ZERO, (NOT YET TREATED HERE) F2303370
STO TAG OBTAINS THE CORRESP0ND1NG SUBSCRIPT F2303380
SXD SAVEA,1 COMPINATION FROM THE F2303390
TSX SUBCOM,4 TAU TABLE DRUM. F2303400
LXD L(3),4 F2303410
PXD 0,0 F2303420
VAL20 STO RSYM1+3,4 INITIALIZE WITH ZEROES. F2303430
TIX VAL20,4,1 F2303440
LXD L(6),1 THIS ROUTINE STORES F2303450
LXD L(3),2 THE SYMBOLS AS FOLLOWS F2303460
VAL30 CLA S1+6,1 LEFTMOST IN RSYM1, F2303470
TZE VAL40 NEXT SYMBOL IN RSYM2, F2303480
STO RSYM1+3,2 RIGHTMOST IN RSYM3. F2303490
TXI VAL40,2,-1 IF THERE ARE NOT THREE F2303500
VAL40 TIX VAL30,1,2 SYMBOLS IN THE SC, THEN F2303510
PXD 0,2 THE RSYM LOCATIONS ARE F2303520
SSM SET TO ZERO. F2303530
ADD L(3) DELTA IS THE SYMBOL COUNT. F2303540
TZE VAL60 SUBSCRIPT IS CONSTANT, NO SYMBOLS. F2303550
STO DELTA F2303560
LXD L(0),4 LOCATION TAGIND IS SET F2303570
SUB L(1) TO ZERO, UNLESS THE SC F2303580
TNZ VAL50 HAS THE FOLLOWING F2303590
CLA S1 CHARACTERISTICS F2303600
TZE VAL50 ONE SYMBOL F2303610
LXD C1,1 IN LEFTMOST POSITION F2303620
TXH VAL50,1,1 WITH COEFFICIENT EQUAL F2303630
LXD L(1),4 TO ONE F2303640
VAL50 SXD TAGIND,4 F2303650
SAVEA TXL TABSER,0 GO TO PROCESSING ROUTINE. (DEC HAS FORTAG IX) F2303660
VAL60 LXD SAVEA,1 RETURN FROM PROCESSING F2303670
CLA FORTZ,1 ROUTINE. FOR THIS TAG, F2303680
TMI VAL70 AND ALL TAGS EQUAL TO F2303690
ANA BITONE THIS TAG, SET FORTAG F2303700
TNZ VAL70 ENTRY BIT ONE EQUAL F2303710
CLA FORTZ,1 TO ONE. F2303720
ANA ADDMSK F2303730
SUB TAG F2303740
TNZ VAL70 F2303750
CLA BITONE F2303760
ORS FORTZ,1 F2303770
VAL70 TXI VAL80,1,-1 F2303780
VAL80 TXH VAL60+1,1 IF FORTAG DONE, (DEC HAS FORTAGIX) F2303790
LXD SAVEA,1 GO BACK F2303800
VAL90 TXI VAL95,1,-1 FOR NEXT TAG F2303810
VAL95 TXH VAL10,1 IF ANY (DEC HAS FORTAGIX) F2303820
TRA NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1 F2303835
TABSER LXD L(1500,1 SEARCH F2303840
SXD TAB40,2 (6 - 2X NO SUB SYMBOLS - VAL40) F2303850
TAB10 LXD L(3),2 FORVAL F2303860
CLA 4VALZ+1,1 FOR AN F2303870
TAB20 CAS RSYM1+3,2 OCCURRANCE F2303880
TRA TAB30 OF ANY SYMBOL F2303890
TRA FOUND IN THIS SC. F2303900
TAB30 TXI TAB40,2,-1 F2303910
TAB40 TXH TAB20,2 ( DEC LOADED FROM TABSER + 1) F2303920
TAB50 TXI TAB60,1,-3 F2303930
TAB60 TXH TAB10,1 (DEC HAS FORVALIX) F2303940
TRA VAL60 F2303950
FOUND SXD FND10,1 IF SYMBOL FOUND, F2303960
LXD TAGIND,4 MAKE NORMAL OR SPECIAL F2303970
CLA 4VALZ,1 ENTRY IN TSXCOM, DEPENDING F2303980
TXH FND20,4,0 ON TAGIND. (UNLESS SEE SUBRT INDO) F2303990
STO FORNR F2304000
TSX INDO,4 F2304010
TRA FND40 INDO RETURN IF FRVL ALPH IN RANGE MTCHNG DOTAG F2304020
LXD FND10,1 RETURN FROM INDO WHEN NOT SO. F2304030
CLA 4VALZ,1 F2304040
STO E1 SPECIAL ENTRY IF TAGIND F2304050
CLA TAG NOT ZERO F2304060
ALS 18 F2304070
ORA TAG F2304080
FND10 TXL FND30,0 (DEC HAS FORTAG IX) F2304090
FND20 ORA TAG SET UP E BLOCK WHEN TAGIND EQUAL 1 F2304100
STO E1 F2304110
CLA RSYM1 TAG SYMBOL F2304120
FND30 STO E2 F2304130
CLA TSXCOM TSXCOM KEY F2304140
TSX LIST,4 F2304150
FND40 LXD FND10,1 F2304160
TRA TAB50 CONTINUE SEARCH F2304170
REM SUBRT INDO.... THIS ROUTINE DETERMINES WHETHER THE FORVAL F2304180
REM WHICH HAS BEEN FOUND TO HATCH A SUBSCRIPT FALLS WITHIN RANGE F2304190
REM OF A DO WHICH IN TURN MATCHES THE FORAVAL. IF SO A RETURN IS F2304200
REM MADE AND TSXCOM ENTRY FOR THIS FORVAL ALPHA IS OMMITTED. F2304210
INDO LXD IND60,1 F1004220
TRA IND20 . F1004230
IND10 CLA DOZ,1 OBTAIN FIRST WORD DOTAG. F2304240
PAX 0,2 DOTAGS BETA. F2304250
ANA DECMSK DOTAGS ALPHA F2304260
CAS FORNR AGAINST FORVAL ALPHA. F2304270
TRA 2,4 OUTSIDE RANGE . RETURN. F2304280
TSX DIAG,4 FORVAL ALPHA EQ DO ALPHA. ERROR. GO TO DIAGNOSTIC. F2304295
PXD 0,2 F2304300
CAS FORNR DOTAGS BETA AGAINST FORVAL ALPHA. F2304310
TRA IND30 FORVAL WITHIN RANGE F2304320
TRA IND30 OF DOTAG. F2304330
TXI IND20,1,-2 F2304340
IND20 TXH IND10,1 F2304350
TRA 2,4 DOTAG EXHAUSTED, RETURN. F2304360
IND30 LXD L(3),2 F2304370
CLA DOZ+1,1 FN EDIT CORR CD NR. F2304384
IND40 CAS RSYM1+3,2 DOES DOTAG SYMBOL EQUAL F2304390
TRA IND50 FORVAL SYMBOL (WHICH HAS BEEN FOUND F2304400
TRA 1,4 T0 EQUAL SUBSCRIPT). IF SO, RETURN. F2304410
IND50 TIX IND40,2,1 F2304420
TXI IND20,1,-2 F2304430
FORNR HTR STORAGE FOR FIRST WD FORVAL (ALPHA) F2304440
IND60 0,0,300 F2304450
DO BSS 1 F2304460
BSS 299 F2304470
DOZ BSS 1 F2304480
ORG 3537 F2304490
REM MASTER RECORD CARD = FN041 F2304495
BL3B LXD FORTAG-1,1 FORTAG EMPTY F2304500
TXH NORMRT,1,1499 NORM RET MONITOR. GO TO SPACE TAPE 1. F2304515
MSE 99 TEST FOR EMPTY DOTAG F2304520
TRA RDOTAG OFF F2304530
PSE 99 ON, EMPTY F2304540
TRA NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1 F2304555
RDOTAG LXD L(6),6 INITIALIZE ERROR COUNTERS. F2304562
RDP0S BST TAPE2 POSITION TAPE 2 FOR DOTAG F2304570
BST TAPE2 F2304580
RDS TAPE2 F2304590
CPY RDES1 F2304600
CPY RDES2 F2304610
CPY F2304620
TSX DIAG,4 ERROR. GO TO DIAGNOSTIC. F2304635
TSX DIAG,4 ERROR. GO TO DIAGNOSTIC. F2304645
RDREC CLA RDES1 F2304650
SUB RDES2 F2304660
TZE RDBACK F2304670
TIX RDP0S+1,4,1 ERROR - REREAD F2304680
TSX DIAG,4 ERROR. GO TO DIAGNOSTIC. F2304695
RDBACK LXD RDES1,1 NO RECORDS F2304700
TXI RDBST,1,2 F2304710
RDBST BST TAPE2 8ACKSPACE DESIGNATED NO RECORDS F2304720
TIX RDBST,1,1 F2304730
LXD L(1350,1 MAX SIZE DOTAG F2304740
RDRDS RDS TAPE2 F2304750
RDCPY CPY DOTAGZ,1 READ IN DOTAG F2304760
TXI RDCPY,1,-1 F2304770
TRA RDEOF F2304780
TRA RDRDS F2304790
RDEOF SXD DOTAG-1,1 DOTAG INDEX(1350-NO DOTAG ENTRIES) F2304800
RDS TAPE2 SPACE TAPE. F2304810
RDS TAPE2 F2304820
WRS 219 F2304830
RTT F2304840
TRA RDER ON F2304850
TRA DOPASS F2304860
RDER TIX RDP0S,2,1 TRY TWICE MORE. F2304870
TSX DIAG,4 TAPE 2, READING DOTAG. ERROR. GO TO DIAGNOSTIC. F2304885
RDES1 HTR RECORD COUNT F2304890
RDES2 HTR RECORD COUNT F2304900
DOPASS LXD DOTAG-1,1 DOTAG INDEX. F2304910
SXD SYM40,1 INITIALIZE. F2304920
SXD SYM130,1 . F2304930
SXD SYM220,1 . F2304940
SXD TRAW20,1 . F2304950
SXD TRAW50,1 . F2304960
SXD SPC040,1 . F2304970
SXD SPC090,1 . F2304980
LXD NAME-1,1 . F2304990
SXD GETN20,1 . F2305000
REM THIS ROUTINEMAKES A PASS OVER FORTAG AND FOR EACH NON- F2305010
REM NEGATIVE TAG, OBTAINS THE CORRESPONDING SUBSCRIPT COMPINATIONF2305020
REM FROM THE TAU DRUM. THE SYMBOLS ARE PUT INTO THE LOCATIONS F2305030
REM RSYM1, RSYM2, RSYM3, AND LOCATION TAGIND IS INIT1ALIZED. F2305040
REM CONTROL THEN GOES TO ROUTINE SYMONE. UPON RETURN, THIS ENTRY F2305050
REM IN FORTAG AND ALL OTHER N0N- NEGATIVE ENTRIES CONTAINING F2305060
REM THIS TAG ARE SET NEGATIVE. F2305070
TAGPAS LXD FORTAG-1,1 F2305080
SXD TINF30,1 F2305090
SXD TAGP80,1 F2305100
SXD TAGP98,1 F2305110
LXD L(1500,1 F2305120
TAGP10 CLA FORTZ,1 F2305130
TMI TAGP94 IF NEG, GET NEXT FORTAG F2305140
ANA ADDMSK TAG F2305150
STO TAG F2305160
SXD TAGX,1 SAVE CURRENT FORTAG IX F2305170
TSX SUBCOM,4 OBTAIN AND DISPERSE THE TAU TABLES. F2305180
LXD L(3),4 F2305190
PXD 0,0 F2305200
TAGP20 STO RSYM1+3,4 INITIALIZE RSYM LOCATIONS WITH ZERO. F2305210
TIX TAGP20,4,1 F2305220
LXD L(6),1 F2305230
LXD L(3),2 F2305240
LXD L(0),4 F2305250
TAGP30 CLA S1+6,1 GET SYMBOL F2305260
TZE TAGP40 IF ZERO, GET NEXT SYMBOL F2305270
TXH TAGP34,2,2 AT RSYM2 AND RSYM3 PASS, F2305280
CAS RSYM1 CHECK FOR DUPLICATE SYMBOLS. F2305290
TRA TAGP32 F2305300
TXI TAGP40,4,1 SYMBOL DUPLICATES RSYM1. F2305310
TAGP32 CAS RSYM2 F2305320
TRA TAGP34 F2305330
TXI TAGP40,4,1 SYMBOL DUPLICATES RSYM2. F2305340
TAGP34 STO RSYM1+3,2 F2305350
TXI TAGP40,2,-1 BUMP DELTA COUNTER. F2305360
TAGP40 TIX TAGP30,1,2 F2305370
PXD 0,2 COMPUTE F2305380
SSM DELTA AS NO F2305390
ADD L(3) OF DISTINCT SYMBOLS. F2305400
TZE TAGP50 CONSTANT SUBSCRIPT. F2305410
STO DELTA F2305420
LXD L(0),2 F2305430
TXH TAGP45,4,0 IF DUPES, SET TAGIND TO ZERO F2305440
SUB L(1) F2305450
TNZ TAGP45 IF DELTA OTHER THAN ONE, SET TAGIND TO ZERO F2303460
CLA S1 F2305470
TZE TAGP45 IF SUBSCRIPT CONSTANT, SET TAGIND TO ZERO F2305480
LXD C1,1 IF COEFF OTHER THAN 1 SET TAGIND TO ZERO F2305490
TXH TAGP45,1,1 F2305500
LXD L(1),2 OTHERWISE SET TAGIND TO ONE. F2305510
TAGP45 SXD TAGIND,2 F2305520
TRA SYMONE GO TO ANALYZE DONESTI F2305530
TAGP50 LXD TAGX,1 IF ANY . F2305540
TAGP60 CLA FORTZ,1 OF THE AS YET UNTREATED F2305550
TMI TAGP70 FORTAGS F2305560
ANA ADDMSK ARE F2305570
SUB TAG THE SAME AS THAT TAG F2305580
TNZ TAGP70 JUST TREATED, F2305590
CAL L(MZ) SET THEM F2305600
ORS FORTZ,1 MINUS. F2305610
TAGP70 TXI TAGP80,1,-1 F2305620
TAGP80 TXH TAGP60,1 ( DEC HAS FORTAG IX) F2305630
TAGP90 LXD TAGX,1 F2305640
TAGP94 TXI TAGP98,1,-1 IF ALL OF FORTAG F2305650
TAGP98 TXH TAGP10,1 HAS BEEN COMPLETED, (DEC HAS FORTAG IX) F2305660
TAGX TXL NORMRT,0 NORMAL RET MONITOR. (DEC HAS CURR FORTAG IX) F2305675
REM ROUTINE SYMONE FINDS DOFORMULAS DEFINING SOME SYMBOL IN THIS F2305680
REM SC. IT USES TRAWRD TO DETERMINE WHETHER OR NOT ROUTINE F2305690
REM PROCESS SHOULD BE USED. F2305700
REM IF MORE THAN ONE SYMBOL, IT THEN USES ROUTINE SYM2. F2305710
SYMONE LXD L(1350,1 F2305720
SYM10 LXD L(3),2 F2305730
CLA DOTAGZ+1,1 GET NEXT DOTAG SYMBOL. F2305740
SYM20 CAS RSYM1+3,2 IS IT SAME AS SUBSCRIPT SYMBOL. F2305750
TRA SYM30 F2305760
TRA SYM50 YES F2305770
SYM30 TIX SYM20,2,1 F2305780
TXI SYM40,1,-9 F2305790
SYM40 TXH SYM10,1 END OF DOTAG, RETURN. F2305800
TRA TAGP50 F2305810
SYM50 CLA RSYM1 INTERCHANGE THE F2305820
LDQ RSYM1+3,2 MATCHING SUBSCRIPT F2305830
STO RSYM1+3,2 SYMBOL WITH F2305840
STQ RSYM1 RSYM1. F2305850
CLA DOTAGZ+5,1 F2305860
ANA DECMSK STORE LEVEL F2305870
STO LR1 OF F2305880
STO TL2 DOTAG F2305890
SXD XR1,1 THIS DOTAG IS R1. F2305900
LXD DELTA,4 IF DELTA IS F2305910
LXD L(1),2 ONE, THEN F2305920
TXL SYM60,4,1 NO TRAWORD SKIP. F2305930
LXD L(2),2 OTHERWISE, TRAWORD SKIP, F2305940
SYM60 TSX TRAWRD,4 F2305950
SXD NEXTR1,1 SAVE INDEX LAST DOTAG HANDLED. F2305960
TZE SYM70 ARE THERE TRANSFERS OUT(TRABITS). F2305970
LXD XR1,1 YES. LOAD I.R. FOR MATCHING DOTAG. F2305980
LXD L(1),2 A ONE TELLS PROCESS THAT F2305990
TSX PROCES,4 CALLER WAS SYMONE. (B). F2306000
SYM70 LXD DELTA,4 NO TRANSFERS OUT (TRABITS) F2306010
TXL SYM80,4,1 IF DELTA IS GREATER THAN ONE, THEN F2306020
LXD XR1,1 LOAD INDEX REG FOR MATCHING DOTAG, F2306030
LXD LR1,2 AND LEVEL AND F2306040
TRA SYM2 GO TO SECOND LEVEL SEARCH. F2306050
SYM80 LXD NEXTR1,1 DELTA IS ONE, F2306060
TRA SYM40 CONTINUE FIRST LEVEL SEARCH. F2306070
REM ROUTINE SYMTWO MAKES A SECOND LEVEL SEARCH AMONG THOSE DOS F2306080
REM NESTED WITHIN THE DO MATCHING RSYM1. USES PROCESS ROUTINE F2306090
REM IF NECESSARY, AND ROUTINE SYM3 IF NECESSARY. F2306100
SYM2 SXD SYM100,2 INITIALIZE LEVEL TEST F2306110
TRA SYM120 F2306120
SYM90 CLA DOTAGZ+5,1 GET LEVEL OF F2306130
PDX 0,2 NEW DOTAG AND F2306140
SYM100 TXL SYM40,2 TEST AGAINST LEVEL OF R1 AND F2306150
CLA DOTAGZ+1,1 IF WITHIN RANGE OF R1, F2306160
CAS RSYM2 TEST MATCH DOTAG SYMBOl AGAINST RSYM2. F2306170
TRA SYM110 F2306180
TRA SYM150 MATCHES . GO TO TREAT R2. F2306190
SYM110 SUB RSYM3 DOESNT MATCH RSYM2, TRY RSYM3. F2306200
TZE SYM140 F2306210
SYM120 TXI SYM130,1,-9 GET NEXT DOTAG F2306220
SYM130 TXH SYM90,1 (DEC CONTAINS DOTAG IX) F2306230
TRA SYM40 IF END OF DOTAG, EXIT. F2306240
SYM140 CLA RSYM2 DOTAG SYMBOL MATCHES RSYM3 - F2306250
LDQ RSYM3 INTERCHANGE F2306260
STO RSYM3 RSYM2 AND F2306270
STQ RSYM2 RSYM3. F2306280
SYM150 SXD XR2,1 THIS DOTAG IS R2 F2306290
SXD LR2,2 SAVE ITS LEVEL . F2306300
LXD L(1),2 IF DELTA IS F2306310
LXD DELTA,4 TWO OR ONE, THEN F2306320
TXL SYM160,4,2 N0 TRAWORD SKIP. F2306330
LXD L(2),2 OTHERWISE TRAWORD SKIP. F2306340
SYM160 TSX TRAWRD,4 F2306350
SXD NEXTR2,1 SAVE INDEX LAST DOTAG HANDLED. F2306360
TZE SYM170 ARE THERE TRANSFERS OUT (TRABITS) F2306370
LXD XR2,1 YES. LOAD IX REG FOR MATCHING DOTAG. F2306380
LXD L(2),2 A TWO TELLS PROCESS THAT F2306390
TSX PROCES,4 CALLER WAS SYM2. (2). F2306400
SYM170 LXD DELTA,4 O0 TRANSFERS OUT (TRABITS) F2306410
TXL SYM180,4,2 IF DELTA IS 3 , THEN F2306420
LXD XR2,1 LOAD INDEX REG FOR MATCHING DOTAG. F2306430
LXD LR2,2 AND LEVEL AND F2306440
TRA SYM3 GO TO THRID LEVEL SEARCH F2306450
SYM180 LXD NEXTR2,1 DELTA IS LESS THAN-THREE, F2306460
TRA SYM130 CONTINUE SECOND LEVEL SEARCH. F2306470
REM ROUTINE SYM3 MAKES A THIRD LEVEL SEARCH OF DOTAG AMONG THOSEF2306480
REM DOS NESTED WITHIN THE DO MATCHING RSYM2, USES PROCESS IF F2306490
REM NECESSARY, AND THEN RETURNS TO SYM2. F2306500
SYM3 SXD SYM200,2 INITIALIZE WITH LEVEL.OF R2. F2306510
TRA SYM210 F2306520
SYM190 CLA DOTAGZ+5,1 OBTAIN LEVEL F2306530
PDX 0,2 OF CURRENT DOTAG AND IF IT IS F2306540
SYM200 TXL SYM130,2 OUTSIDE RANGE OF R2, EXIT. (DEC HAS LEVEL R2) F2306550
CLA DOTAGZ+1,1 OTHERWISE CHECK FOR IDENTIRY F2306560
SUB RSYM3 WITH THIRD FORTAG SYMBOL. F2306570
TZE SYM230 IF IDENTITY, GO TO ANALYZE . OTHERWISE, F2306580
SYM210 TXI SYM220,1,-9 GET NEXT DOTAG. F2306590
SYM220 TXH SYM190,1 IF END OF DOTAG, (DEC HAS DOTAG IX) F2306600
TRA SYM130 EXIT FROM THIRD LEVEL SEARCH F2306610
SYM230 SXD XR3,1 SAVE IX OF MATCHING DO F2306620
LXD L(1),2 NO TRAWORD SKIP. F2306630
TSX TRAWRD,4 GO TO HUNT TRANSFERS-OUT. F2306640
TZE SYM220 IF NO TRNSFRS OUT-(TRABITS) RETURN TO SRCH F2306650
SXD NEXTR3,1 TRNSFRS OUT. SAVE IX LAST DO HANDLED IN TRAWORDF2306660
LXD XR3,1 F2306670
LXD L(3),2 THREE TELLS PROCESS THAT CALLER WAS SYM3 F2306680
TSX PROCES,4 F2306690
LXD NEXTR3,1 GET IX NEXT DOTAG AND F2306700
TRA SYM220 CONTINUE THIRD LEVEL SEARCH. F2306710
REM ROUTINE PROCESS DETERHINES WHETHER OR NOT THERE EXISTS A F2306720
REM TAG IDENTICAL TO THE CURRENT RELCON TAG AND WHETHER ITS F2306730
REM TAG NAME HAS BEEN CHANGED. THE SEARCH FOR THIS IDENTICAL TAG F2306740
REM IS MADE THRU APPROPRIATE RANGES OF THAT DO WHOSE SYMBOl HAS F23067S0
REM BEEN FOUND TO MATCH ONE OF THE RELCON SYMBOLS. TRASTO ENTRIESF2306760
REM ARE ENTERED DEPENDING UPON WHICH OF THOSE CONDITIONS HOLDS. F2306770
PROCES SXD DOX,1 SAVE DOTAG IX F2306780
SXD SYMLNK,4 AND CALLER F2306790
SXD PR10,2 AND INITIALIZE WITH B. F2306800
LXD DELTA,2 F2306810
LXD L(0),4 F2306820
PR10 TXH PR20,2 DOES DELTA EXCEED B. (DEC HAS B) F2306830
LXD L(1),4 IF NOT, THEN NO SKIP. OTHERWISE, F2306840
PR20 SXD SKIP,4 SXIP IF C(SKIP)=0. F2306850
LXD TAGIND,4 TRA IF SPECIAL CASE, I.E., MOST SIMPLE F2306860
TXH PRSPEC,4,0 (TAGIND NOT ZERO) F2306870
CLA DOTAGZ,1 SEARCH TABLE NAME F2306880
ANA DECMSK GET RSYM1 DOTAG ALPHA IN DEC F2306890
ADD TAG AND FORTAG IN ADDRESS. F2306900
GETNAM LXD NAMAX,1 LOAD MAX NO NAME TABLE WORDS F2306910
TRA GETN20 F2306920
GETN05 CAS NAMZ,1 DOES THE DOTAG ALPHA AND FORTAG INDEX OF THE F2306930
TRA GETN10 FIRST WORD OF NAME TABLE MATCH THOSE ABOVE. F2306940
TRA GETN30 YES. F2306950
GETN10 TXI GETN20,1,-3 NO, GET NEXT NAME TABLE. F2306960
GETN20 TXH GETN05,1 IS NAME TABLE EXHAUSTED (DEC HAS NAME IX) F2306970
DOX TXL PR25,0 YES, NOT NOT FOUND. ( DEC HAS IX MATCHING DOTAGF2306980
GETN30 CLA NAMZ+1,1 FOUND. OBTAIN NEW TAG NAME F2306990
STO TS AND SAVE IT. F2307000
SYMLNK TXL PR80,0 F2307010
PR25 LXD SKIP,4 NOT FOUND IN NAME TABLE, F2307020
LXD DOX,1 SEARCH FORTAG F2307030
TXH PR30,4,0 IN PROPER RANGE. F2307040
LXD L(1),2 INDICATE TINFOR SEARCH REQUIRED F2307050
TSX SPC000,4 F2307060
TRA PR40 NOT FOUND F2307070
TRA PR90 T FOUND F2307080
PR30 TSX TINFOR,4 F2307090
TRA PR90 FOUND, GO TO EXIT. F2307100
PR40 LXD L(0),2 T NOT FOUND, MAKE TYPE 6 F2307110
TSX TRAENT,4 TRASTO ENTRY F2307120
REM MAKE ENTRY IN TABLE IRV F2307130
PR60 LXD IRVXX,1 GET IX FOR ENTRY IN TABLE IRV. F2307140
TXH PR70,1,0 F2307150
TSX DIAG,4 TABLE IRV FULL. ERROR. GO TO DIAGNOSTIC. F2307165
PR70 CLA TAG PLACE TAG IN F2307170
ALS 18 DECREMENT AND F2307180
ADD TAG ADDRESS AND F2307190
STO IRVZ,1 STORE ENTRY IN TABLE IRV F2307200
TXI PR75,1,-1 BUMP IRV TABLE INDEX AND F2307210
PR75 SXD IRVXX,1 SAVE IT FOR NEXT ENTRY. F2307220
TRA PR90 F2307230
PR80 LXD L(1),2 MAKE TYPE ONE TRASTO ENTRY F2307240
TSX TRAENT,4 F2307250
PR90 LXD SYMLNK,4 RESTORE INDEX REG F2307260
TRA 1,4 AND RETURN T0 CALLER F2307270
REM ROUTINE PERSPEC IS FOR THE SPECIAL CASE OF A SINGLE SUBSCRIPTF2307280
REM RELCON WITH NO COEFFICIENT (TAGIND EQUALS ONE) F2307290
PRSPEC CLA DOTAGZ+8,1 IF DOTAGS F2307300
ARS 18 TEST NAME F2307310
SUB TAG IS SAME AS F2307320
TNZ PR100 CURRENT FORTAG F2307330
CLA BIT18 AND IF F2307340
ANA DOTAGZ+6,1 THERE IS A F2307350
TZE PR90 F2307360
LXD L(3),2 MAKE A TYPE 5 TRASTO ENTRY F2307370
TSX TRAENT,4 F2307380
TRA PR90 F2307390
PR100 TSX TINFOR,4 LOOK FOR ALREADY PROCESSED IDENT FORTAG. F2307400
TRA PR90 FOUND. F2307410
LXD L(2),2 NOT FOUND, MAKE A TYPE 1 TRASTO F2307420
TSX TRAENT,4 ENTRY F2307430
TRA PR90 F2307440
REM MAKE A TRASTO ENTRY. TRASTO TYPE ONE ENTRY IS MADE WHEN F2307450
REM B IS ONE OR TWO, TYPE FIVE ENTRY WHEN B IS THREE, AND TYPE F2307460
REM SIX TRASTO ENTRY WHEN B IS ZERO. F2307470
TRAENT SXD TE70,4 F2307480
LXD DOX,1 F2307490
CLA DOTAGZ,1 GET DOTAGS ALPHA AND BETA F2307300
TXL TE10,2,2 WHERE B IS 3 (TYPE5) F2307510
SSM SET E1 NEG. F2307520
TE10 STO E1 AND STORE IN E1. F2307530
CLA TL2 GET LEVEL OF DOTAG F2307540
ARS 18 INTO ADDRESS AND F2307550
TXH TE20,2,0 WHERE B ZERO (TYPE 6), F2307560
SSM SET NEG AND F2307570
TE20 STO E2 PUT IT INTO E2. F2307580
TXL TE40,2,1 WHERE B 2OR3 (TYPE 1 OR 5), F2307590
CLA DOTAGZ+8,1 PREPARE DOTAGS F2307600
ANA DECMSK TEST NAME . F2307610
TXH TE30,2,2 IF B 2 (TYPE 1) F2307620
ORA TAG PREPARE FORTAG INDEX AND F2307630
TRA TE60 GO TO STORE IN E3. F2307640
TE30 ORA DOTAGZ+2,1 WHERE B IS 3, (TYPE 3) PREPARE DOTAGS F2307650
TRA TE50 PARAMETER N1. F2307660
TE40 CLA TAG WHERE B ZERO OR 1 (TYPE 1), GET FORTAG F2307670
TXL TE50,2,0 AND WHEN ONE, F2307680
ALS 18 PUT IN DEC WITH F2307690
ADD TS NEW TAG NAME IN ADDRESS. F2307700
TRA TE60 F2307710
TE50 SSM SET MINUS FOR B ZERO OR 3 (TYPE 6OR5) F2307720
TE60 STO E3 AND STORE IN E3, FINALLY. F2307730
CAL TRASTO GET TRASTO KEY WORD. F2307740
LXD L(2),2 INDICATE TINFOR SEARCH NOT REQUIRED F2307750
LXD SKIP,4 F2307760
TXH TE80,4,0 IF SKIP IS 1 (DELTA GREATER THEN B), F2307770
TSX SPC000,4 GO TO SPC. F2307780
TE70 TXL TE90,0 (DEC SAVES TSXLINK) F2307790
TE80 TSX LIST,4 GO TO LIST KF SKIP IS ZERO. F2307800
TE90 LXD TE70,4 RETURN FROM LIST. F2307810
TRA 1,4 RETURN TO CALLER. F2307820
REM SUBROUTINE SPC000 F2307830
SPC000 SXD SPC115,1 SAVE INDEX OF DO TO BE SEARCHED. F2307840
SXD SPC060,2 SAVE TINFOR, LIST INDICATOR F2307850
SXD SPC105,4 SAVE TSX INDEX. F2307860
STO SPCKEY SAVE LIST KEY WORD F2307870
CLA DOTAGZ+5,1 OBTAIN L WORD F2307880
STD SPC050 INITIALIZE TEST INSTR. F2307890
CLA DOTAGZ,1 OBTAIN ALPHABETA WRD, F2307900
PAX 0,2 SAVE BETA, F2307910
ANA DECMSK OBTA1N ALPHA ALONE F2307920
STO NEXTA STO IN NEXTA F2307930
STO A AND STORE IN A. F2307940
PXD 0,2 PUT BETA IN LASTB AND F2307950
STO LASTB BEGIN SEARCH FOR R2 F2307960
SPC010 LXD SPC115,1 OBTAIN CURRENT INDEX AND F2307970
SPC020 TXI SPC040,1,-9 GO DOWN ONE DO, IF POSSIBLE, ELSE F2307980
SPC040 TXL SPC110,1 GO TO SET UP LAST INTERVAL. (DEC HAS DOTAG IX) F2307990
CLA DOTAGZ+5,1 TEST WHETHER OR NOT THIS DO F2308000
PDX 0,2 IS IN RANGE OF R1(DXL) F2308010
SPC050 TXL SPC110,2 IF NOT, EXIT FOR LAST INTRVL. (DEC LEV DO) F2308020
CLA DOTAGZ+1,1 IF IN R1, IS THIS DO T0 BE F2308030
SUB RSYM3 SKIPPED. IF NOT, GO BACK TO F2308040
TZE SPC053 GET NEXT DO. F2308050
CLA DOTAGZ+1,1 F2308060
SUB RSYM2 F2308070
TNZ SPC020 F2308080
SPC053 CLA DOTAGZ,1 R2 FOUND, ARRANGE T0 SKIP THIS F2308090
PAX 0,2 INTERVAL. USE ALPHA OF R2 F2308100
ANA DECMSK AS B, PUT BETA OF R2 IN F2308110
STO B NEXTA. F2308120
PXD 0,2 DO FORMULAS WITHIN R2 ARE F2308130
STO NEXTA ACCOUNTED FOR AFTER SEARCH. F2308140
SXD SPC115,1 SAVE INDEX OF R2. F2308150
SPC055 LXD SPC060,2 PUT TINFOR, LIST IND. IN XRB F2308160
SPC058 CLA A FOR F2308170
SUB B NON EMPTY F2308180
TZE SPC065 INTERVALS, F2308190
TXL SPCTIN,2,1 GO TO ARRANGE TINFOR SEARCH, OR F2308200
SPC060 TXL SPCST0,0 TRA TO USE LIST. (DEC HAS TINFOR SEARCH INDIC) F2308210
SPC065 LXD SPC060,2 RETURN HERE, TEST TINFOR F2308220
TXL SPC120,2,0 LIST IND. IF ZERO, EXIT. F2308230
SPC070 LXD SPC115,1 TO SET UP NEXT INTERVAL, F2308240
CLA DOTAGZ+5,1 OBTAIN INDEX OF LAST R2 AND F2308250
STD SPC100 STEP DOWN IN DOTAG BY USUAL F2308260
SPC080 TXI SPC090,1,-9 PROCEDURE UNTIL SOME DO IS F2308270
SPC090 TXL SPC110,1 FOUND NOT IN R2, OR UNTIL (DEC HAS DOTAG TX) F2308280
CLA DOTAGZ+5,1 DOTAG EXHAUSTED. IF DO FOUND F2308290
PDX 0,2 NOT IN R2, SET A AND GO TO TEST F2308300
SPC100 TXH SPC080,2 IF THIS DO IS IN R1. (DEC HAS LEV LAST R2 DO) F2308310
CLA NEXTA IF IT IS, NEWR2 WILL BE FOUND F2308320
STO A OR EXIT MADE TO SPC110. F2308330
SPC105 TXL SPC050,0 F2308340
SPC110 CLA NEXTA THIS IS SETUP FOR LAST F2308350
STO A INTERVAL. FOR A, USE F2308360
CLA LASTB CONTENTS OF NEXTA. FOR B, F2308370
STO B USE BETA OF R1, FOUND IN F2308380
LXD SPC060,2 LASTB. OBTAIN TINFOR, STOTAG F2308390
CLA L(0) IND, AND SET LOCATION OF F2308400
STD SPC060 INDICATOR T0 ZERO. GO TO F2308410
SPC115 TXL SPC058,0 TINFOR OR TRASTO. (DEC HAS DOTAG IX) F2308420
SPC120 LXD SPC105,4 EXIT, ALL STORES DONE, OR, F2308430
TRA 1,4 SEARCH MADE, T NOT FOUND. F2308440
SPC130 LXD SPC105,4 EXIT,T FOUND F2308450
TRA 2,4 IN SOME INTERVAL F2308460
SPCTIN TSX TINFXX,4 GO TO SEARCH FORTAG F2308470
TRA SPC130 T FOUND F2308480
TRA SPC065 T NOT FOUND F2308490
SPCST0 CLA B FOR TRASTO, E2 AND E3 ARE F2308500
ARS 18 ALREADY SET UP, COLLECT F2308510
ADD A A AND B INTO E1 WORD, F2308520
STO E1 PUT TRASTO INDICATOR IN F2308530
CLA SPCKEY ACC. AND F2308540
TSX LIST,4 TSX TO LISTING ROUTINE. F2308550
TRA SPC065 ON RETURN, GO TO TEST FINISH. F2308560
SPCKEY HTR STORAGE FOR TABLEKEY F2308570
REM SUBROUTINE TRAWRD F2308580
TRAWRD SXD TRAW65,4 F2308590
CLA L(0) F2308600
STO TRABIT INITIALIZE. F2308610
CLA DOTAGZ+5,1 LEVEL OF DOTAG F2308620
STD TRAW30 F2308630
TRAW10 CAL DOTAGZ+7,1 OBTAIN T2 WORD. F2308640
ORS TRABIT OR INTO TRABIT F2308650
TXI TRAW20,1,-9 TAKE NEXT DO F2308660
TRAW20 TXL TRAW70,1 IF NONE, EXIT (DEC HAS DOTAG IX) F2308670
CLA DOTAGZ+5,1 OBTAIN L WORD F2308680
PDX 0,4 PUT L IN XRC. F2308690
TRAW30 TXL TRAW70,4 EXIT IF DO IS NOT INRANGE R1 (DEC HAS LEV DO) F2308700
TXL TRAW10,2,1 IF COMPLETE TEST, GO BACK (NO TRAWORD SKIP) F2308710
TRAW35 CLA DOTAGZ+1,1 IF INCOMPLETE TEST, IS THIS A F2308720
SUB RSYM2 DO TO BE SKIPPED F2308730
TZE TRAW38 IF SO, GO TO TRAW38 F2308740
CLA DOTAGZ+1,1 TEST RSYM3 F2308750
SUB RSYM3 IF NO SKIP F2308760
TNZ TRAW10 GO BACK. F2308770
TRAW38 CLA DOTAGZ+5,1 THIS DO IS TO BE SKIPPED. F2308780
STD TRAW60 PUT LEVEL OF THIS DO IN TEST INSTR, F2308790
TRAW40 TXI TRAW50,1,-9 TAKE NEXT DO IF ANY F2308800
TRAW50 TXL TRAW70,1 IF NOT, EXIT. OTHERWISE, (DEC HAS DO IX) F2308810
CLA DOTAGZ+5,1 OBTAIN L WORD F2308820
PDX 0,4 PUT L IN XRC F2308830
TRAW60 TXH TRAW40,4 IF DO IS IN RANGE OF R2, GO BACK. F2308840
TRAW65 TXL TRAW30,0 OTHERWISE, GO TO TRAW30 F2308850
TRAW70 LXD TRAW65,4 F2308860
CLA L(36) OBTAIN 36 IN DECREMENT F2308870
SUB TL2 36-TL2 (LEVEL OF DOTAG) F2308880
ARS 18 IN ADDRESS F23A1190
STA TRAW90 INITIALIZE SHIFT F2308900
CLA TL2 OBTAIN TL2 F2308910
ARS 18 IN ADDRESS F2308920
STA TRAW80 INITIALIZE SHIFT F2308930
CLA L(0) ACC CONTAINS ZERO F2308940
LDQ 35ONES MQ CONTAINS ALL ONES F2308950
TRAW80 LLS PUT TL2 ONES IN ACC (LEV. DOTAG) F2308960
TRAW90 ALS POSITION ONES IN ACC F2308970
ANA TRABIT AND IN TRANSFER BITS F2308980
TRA 1,4 GO BACK TO CALLING INSTR PLUS ONE. F2308990
REM SUBROUTINES TINFOR AND TINFXX F2309000
TINFOR CLA DOTAGZ,1 C(XRA)=INDEX OF DO TO BE F2309010
PAX 0,1 SEARCHED. SEPARATE ALPHA F2309020
ANA DECMSK AND BETA F2309030
STO A AND STORE IN A F2309040
PXD 0,1 F2309050
STO B B F2309060
TINFXX LXD L(1500,1 PUT MAX FORTAG INDEX IN XRA F2309070
TINF10 CLA FORTZ,1 OBTAIN FORTAG ENTRY F2309080
ANA DECMSK RETAIN FORMULA NUMBER 0NLY F2309090
CAS A COMPARE ALPHA AND FORMULA NR. F2309100
TRA TINF40 FOR, NR. GREATER THAN ALPHA. TRA. F2309110
NOP C(A) MAY BE SOME BETA FROM SPC, HENCE, NO HALT.F2309120
TINF20 TXI TINF30,1,-1 FOR. NR. LESS THAN ALPHA. GO F2309130
REM BACK FOR NEXT FORTAG ENTRY F2309140
TINF30 TXH TINF10,1 IF POSSIBLE. OTHERWISE, (DEC HAS FORTAG IX) F2309150
TRA 2,4 RETURN TO CALLING INSTR PLUS TWO. F2309160
TINF40 CAS B COMPARE FOR, NR. WITH BETA F2309170
TRA 2,4 FOR. NR. GREATER THAN BETA, EXIT. F2309180
NOP FOR. NR. EQUAL TO OR F2309190
CLA FORTZ,1 LESS THAN BETA, OBTAIN FORTAG F2309200
TPL TINF20 TAG AND COMPARE WITH SEARCH TAG. F2309210
ANA ADDMSK I.F. NOT EQUAL, GO BACK FOR NEXT TAG F2309220
SUB TAG F2309230
TNZ TINF20 IF EQUAL, RETURN TO CALLING F2309240
TRA 1,4 INSTR PLUS ONE. XRA CONTAINS IX IN FORTAG OF F2309250
REM FIRST TAG FOUND F2309260
ORG 3537 F2309270
REM MASTER RECORD CARD = FN043 F2309275
BL3C LXD FORTAG-1,1 IF FORTAG IS EMPTY, F2309280
TXH WRTIRV,1,1499 GO TO WRITE IRV F2309290
REM READ IN TSXCOM F2309300
RDTSX LXD L(6),4 INITIALIZE ERROR COUNTER F2309312
RTSX10 CLA LADDS COMPUTE NUMBER F2309320
SUB TSXORG OF TSXCOM ENTRIES F2309330
PAX 0,1 AND F2309340
SXD TCOM-1,1 SAVE. F2309350
TZE RTSX60 IF EMPTY, GO TO EXIT. F2309360
ADD TCOMAD OTHERWISE, COMPUTE TERMINAL CORE ADDRESS F2309370
STA RTSX20 AND INITIALIZE CPY ADDRESS THEREWITH. F2309380
RDS 195 DRUM 3 F2309390
LDA TSXORG ORIG OF TSXCOM TABLES ON DRUM F2309400
RTSX20 CPY 0,1 READ TSXCOM (ADD HAS TERM CORE ADD TSXCOMP F2309410
TIX RTSX20,1,1 TABLES . F2309420
LXD TCOM-1,1 COMPUTE F2309430
PXD 0,1 NUMBER OF F2309440
SSM UNFILLED TSXCOM TABLE F2309450
ADD TCOMAX SPACES, F2309460
STO TCOM-1 SAVE, F2309470
STD RTSX30 AND INITIALIZE. F2309480
LXD TCOMAX,1 COMPUTE F2309490
RTSX25 CAL TCOMZ,1 CHECK F2309500
ACL TCOMZ+1,1 SUM FOR EACH TABLE ENTRY F2309510
SLW RTSX40 AND COMPARE F2309520
CLA RTSX40 AGAINST F2309530
SUB TCOMZ+2,1 GIVEN SUM. F2309540
NOP F2309550
TNZ RTSX50 ERROR. F2309560
TXI RTSX30,1,-3 F2309570
RTSX30 TXH RTSX25,1 IF COMPLETE, (DEC HAS UNUSED TSXCOM BUFFER) F2309580
TRA SORT GO TO SORT. F2309590
RTSX40 HTR F2309600
RTSX50 TIX RTSX10,4,1 GO BACK TO REREAD F2309610
TSX DIAG,4 READING TSXCOM FROM DRUM3. ERROR. GO TO DIAGNOSTIC. F2309625
RTSX60 CLA TCOMAX IF TSXCOM EMPTY PUT MAX N0 F2309630
STO TCOM-1 TSXCOM ENTRIES IN KEY WORD AND F2309640
TRA IRVSRT EXIT. F2309650
REM SORT TSXCOM F2309660
SORT MSE LIGHT TURN OFF LIGHT F2309670
NOP F2309680
LXD TCOM-1,1 INITIALIZE F2309690
TXI SORT10,1,3 F2309700
SORT10 TXH MAKIRV,1,747 IS THERE ONLY ONE ENTRY IN TSXCOM. F2309710
SXD SORT80,1 INITIALIZE F2309720
SORT20 LXD TCOMAX,1 F2309730
SORT30 CLA TCOMZ,1 OBTAIN FIRST WORD, FIRST ENTRY TSXCOM (ALPHA) F2309740
CAS TCOMZ+3,1 COMPARE IT AGAINST SECOND ENTRY F2309750
TRA SORT50 OUT OF ORDER , REARRANGE TOTAL TSXCOM ENTRY. F2309760
TRA SORT40 IN ORDER BY FIRST WORDS. GO CHECK 2ND WORDS. F2309770
TRA SORT70 ENTRIES IN ORDER, IGNORE. F2309780
SORT40 CLA TCOMZ+1,1 ALRIGHT- FIRST WORDS IN ORDER BUT F2309790
CAS TCOMZ+4,1 HOW DO THEIR 2ND WORDS COMPARE. F2309800
TRA SORT60 IF OUT OF ORDER, GO TO REARRANGE. F2309810
TRA SORT70 IF EQUAL OR F2309820
TRA SORT70 IF IN ORDER, IGNORE. F2309830
SORT50 CLA TCOMZ,1 FIRST ENTRY GREATER, OUT OF ORDER 1ST WORDS. F2309840
LDQ TCOMZ+3,1 INTERCHANGE THE FIRST WORDS F2309850
STO TCOMZ+3,1 OF THE F2309860
STQ TCOMZ,1 TWO ENTRIES. F2309870
SORT60 CLA TCOMZ+1,1 INTERCHANGE F2309880
LDQ TCOMZ+4,1 THE F2309890
STO TCOMZ+4,1 SECOND F2309900
STQ TCOMZ+1,1 AND F2309910
CLA TCOMZ+2,1 THIRD F2309920
LDQ TCOMZ+5,1 WORDS F2309930
STO TCOMZ+5,1 OF THE F2309940
STQ TCOMZ+2,1 TWO ENTRIES. F2309930
PSE LIGHT INDICATE OUT OF ORDER ENTRY HAS BEEN FOUND. F2309960
SORT70 TXI SORT80,1,-3 BUMP FOR NEXT COMPAR1S0N. F2309970
SORT80 TXH SORT30,1 IS PASS COMPLETE. (DEC HAS UNUSED TSXCOM BUFF+3F2309980
MSE LIGHT YES. WAS OUT OF ORDER ENTRY APPREHENDED . F2309990
TRA REMOVE NO. GO TO MAKIRV. F2310000
LXD SORT80,1 YES. NUMBER OF COMPARISONS F2310010
TXI SORT90,1,3 MADE IS DECREASED BY ONE F2310020
SORT90 SXD SORT80,1 ON EACH PASS. F2310030
TRA SORT20 F2310040
REM BUILD UP TABLE IRV FROM TSXCOM F2310050
MAKIRV LXD IRVXX,2 (IX VALUE FOR NEXT IRV ENTRY) F2310060
LXD TCOM-1,1 F2310070
SXD MAK50,1 F2310080
LXD TCOMAX,1 F2310090
MAK10 CAL TCOMZ+1,1 GET SECOND WORD OF TSXCOMP F2310100
ANA PREMSK PULL OUT PREFIX. F2310110
TNZ MAK40 IS ANYTHING THERE. F2310120
CLA TCOMZ+1,1 F2310130
TXH MAK20,2,0 F2310140
TSX DIAG,4 TABLE IRV BUFFER FULL, ERROR. GO TO DIAGNOSTIC. F2310155
MAK20 STO IRVZ,2 STORE IRV. F2310160
TXI MAK40,2,-1 F2310170
MAK40 TXI MAK50,1,-3 F2310180
MAK50 TXH MAK10,1 IS TSXCOM TABLE EXHAUST (DEC HAS UNUSED TSXCOM)F2310190
MAK60 SXD IRVXX,2 YES. SAVE INDICATION OF SIZE OF IRV. F2310200
REM SORT TABLE IRV. F2310210
IRVSRT LXD IRVXX,1 F2310220
TXI IRVS10,1,1 F2310230
IRVS10 TXH WRTTSX,1,149 IS THERE BUT ONE ENTRY IN IRV. F2310240
SXD IRVS50,1 F2310250
MSE LIGHT TURN OFF LITE. F2310260
NOP F2310270
IRVS20 LXD IRVMAX,1 INITIALIZE F2310280
IRVS30 CLA IRVZ,1 GET FIRST IRV ENTRY AND F2310290
CAS IRVZ+1,1 COMPARE AGAINST ITS NEIGHBOR. F2310300
TRA IRVS60 OUT OF ORDER. GO TO REARRANGE. F2310310
NOP F2310320
IRVS40 TXI IRVS50,1,-1 BUMP FOR NEXT COMPARIS0N F2310330
IRVS50 TXH IRVS30,1 IS PASS COMPLETE (DEC HAS IRV INDEX) F2310340
MSE LIGHT YES . WAS OUT OF ORDER NABBED. F2310350
TRA DELETE NO. SORT COMPLETE. F2310360
TRA IRVS20 YES. MAKE ANOTHER PASS. F2310370
IRVS60 LDQ IRVZ+1,1 REARRANGE F2310380
STO IRVZ+1,1 THE OUT OF ORDER F2310390
STQ IRVZ,1 IRV ENTRIES AND F2310400
PSE LIGHT INDICATE SAME. F2310410
TRA IRVS40 F2310420
REM DELETE DUPE ENTRIES FROM TABLE IRV F2310430
DELETE LXD IRVXX,1 F2310440
SXD DEL30,1 INITIALIZE F2310450
LXD IRVMAX,3 INITIALIZE CANDIDATE IR AND STANDARD IR F2310460
TIX DEL10,2,1 BUMP CANDIDATE IR. F2310470
DEL10 CLA IRVZ,2 GET CANDIDATE. F2310480
CAS IRVZ,1 COMPARE AGAINST STANDARD. F2310490
TRA DEL40 CANDIDATE DOES NOT MATCH STANDARD. F2310500
TRA DEL20 CAND MATCHES STAND. IGNORE ITS REINSTATEMENT. F2310510
TSX DIAG,4 IRV UNORDERED DESPITE SORT. ERROR. GO TO DIAGNOSTIC. F2310523
DEL20 TXI DEL30,2,-1 BUMP FOR NEXT CANDIDATE. F2310530
DEL30 TXH DEL10,2 IS IT END OF PASS. (DEC HAS IRV INDEX) F2310540
TXI DEL35,1,-1 YES. BUMP STANDARD IR. F2310550
DEL35 SXD IRVXX,1 SAVE NEW EDITED-IRV TABLE-SIZE INDICATION. F2310560
TRA WRTTSX F2310570
DEL40 STO IRVZ+1,1 NOT DUPE, PUT CANDIDATE BACK. F2310580
TXI DEL20,1,-1 AND INSTALL IT AS STANDARD. F2310590
REM WRITE EDITED TSXCOM TABLE ON DRUM F2310600
WRTTSX WRS ADRUM F2310610
LXD TCOM-1,1 INITIALIZE F2310620
SXD WTSX30,1 F2310630
LXD TCOMAX,1 F2310640
PXD 0,0 F2310650
LXD L(0),2 F2310660
TRA WTSX30 F2310670
WTSX10 ACL TCOMZ,1 COMPUTE F2310680
ACL TCOMZ+1,1 CHECK SUM OF ALL ENTRIES F2310690
TXI WTSX20,1,-3 F2310700
WTSX20 TXI WTSX30,2,2 F2310710
WTSX30 TXH WTSX10,1 IS THAT ALL OF TSXCOM. (DEC HAS TSXCOM LIMIT) F2310720
SLW WTSX60 STORE CHECK SUM. F2310730
LXD TCOM-1,1 COMPUTE F2310740
PXD 0,1 NUM8ER F2310750
SSM OF F2310760
ADD TCOMAX TSXCOM F2310770
PDX 0,1 ENTRIES. F2310780
ARS 18 COMPUTE CORE F2310790
ADD TCOMAD TERMINUS F2310800
STA WTSX40 AND INITIALIZE CPY ADDRESS FOR FIRST WORD, F2310810
ADD L(1)A FOR SECOND F2310820
STA WTSX50 WORD. F2310830
PXD 0,2 F2310840
STO TCOM-1 NOW CONTAINS NO OF TSXCOM ENTRIES MINUS C.S. F2310850
LDA TCOMOR F2310860
CPY TCOM-1 CPY WORD COUNT F2310870
CPY TCOM-1 ONTO DRUM F2310880
TXL WRTIRV,2,0 IF EMPTY, EXIT. F2310890
WTSX40 CPY 0,1 WRITE TSXCOM ENTRIES F2310900
WTSX50 CPY 0,1 ONTO DRUM F2310910
TIX WTSX40,1,3 F2310920
CPY WTSX60 CHECKSUM F2310930
CPY WTSX60 F2310940
TRA WRTIRV F2310950
WTSX60 HTR C.S. STORAGE F2310960
REM WRITE EDITED TABLE IRV ON DRUM F2310970
WRTIRV WRS ADRUM F2310980
LXD IRVXX,1 F2310990
SXD WIRV20,1 INITIALIZE TEST INSTR. F2311000
PXD 0,0 F2311010
LXD IRVMAX,1 F2311020
WIRV10 ACL IRVZ,1 COMPUTE CHECK SUM. F2311030
TXI WIRV20,1,-1 F2311040
WIRV20 TXH WIRV10,1 IS IRV DONE FOR. (DEC HAS IRV IX) F2311050
SLW WIRV40 YES. SAVE C.S. F2311060
LXD IRVXX,1 COMPUTE F2311070
PXD 0,1 NUMBER F2311080
SSM OF F2311090
ADD IRVMAX IRV ENTRIES F2311100
STO IRVXX AND SAVE. F2311110
PDX 0,1 COMPUTE F2311120
ARS 18 CORE TERMINUS F2311130
ADD IRVAD OF IRV. F2311140
STA WIRV30 INITIALIZE CPY. F2311150
LDA IRVORG F2311160
CPY IRVXX WRITE WORD F2311170
CPY IRVXX COUNT. F2311180
TXL END,1,0 EXIT IF IRV EMPTY. F2311190
WIRV30 CPY 0,1 WRITE IRV. F2311200
TIX WIRV30,1,1 F2311210
CPY WIRV40 WRITE F2311220
CPY WIRV40 CHECK SUM. F2311230
TRA END F2311240
WIRV40 HTR C.S. STORAGE F2311250
END WRS 195 WRITE NR OF WDS IN TRASTO ON DRUM. F2311260
CLA LADDS+1 ORIGIN PLUS NR OF WDS IN TRASTO F2311270
SUB L(304A LESS ORIGIN OF TRASTO F2311280
STO ENDES F2311290
LDA L(302A F2311300
CPY ENDES F2311310
CPY ENDES F2311320
TRA NORMRT NORM RET MONITOR. GO TO SPACE TAPE 1 F2311335
ENDES HTR F2311340
L(302A HTR 302 F2311350
L(304A HTR 304 F2311360
T0P EQU 32767 F2311365
TAUDRM EQU 196 F2311370
ADRUM EQU 195 F2311380
BDRUM EQU 194 F2311390
TAPE2 EQU 146 F2311400
TAPE3 EQU 147 F2311410
LIGHT EQU 100 IF FORVAL EMPTY, LIGHT ON. F2311420
REMOVE SYN MAKIRV F2311430
IRV SYN DOTAGZ F2311440
ONETCS EQU 4 F2311445
DIAG EQU 4 F2311446
END F2311450
REM BLOCK FOUR OF SECTION TWO.
REM MASTER RECORD CARD = FN045 F2400000
REM BLOCK 4 F2400005
REM THIS PART COMPILES THE SUBROUTINES WHICH COMPUTE F2400010
REM INDEX LOAD VALUES FOR PURE RELCONS. F2400020
REM THE LOAD VALUE FOR SUBSCRIPTS (C1I,C2J,C3K) IS F2400030
REM (C1I-1)+(C2D1J-D1)+(C3D1D2K-D1D2)+1 F2400040
REM TABLE IRV, PRODUCED BY BLOCK 3, GIVES A LIST OF THE F2400050
REM SUBROUTINES REQUIRED. F2400060
ORG 24 F2400070
CIB BSS 100 F2400080
WRKSC BSS 8 F2400090
BOB BSS 152 F2400100
OR000 BSS 28 F2400110
ORG 296 F2400120
OR012 OCT 010000000001 F2400130
OR013 OCT 060000000003 F2400140
ORG 302 F2400150
OR018 OCT 010000000002 F2400160
ORG 310 F2400170
OR026 OCT 010000000003 F2400180
HTR 0 F2400190
START1 CLA L(1) SAVE STATUS OF SENSE-LIGHT3 F2400200
MSE 99 SO THAT IT CAN BE USED F2400210
TRA START IN THIS BLOCK. F2400220
STO SENSE1 F2400230
START TSX RDRM,4 READ TABLE IRV (BOB ALSO) F2400240
TRA FINISH+9 RETURN HERE IF NO ENTRIES. F2400250
LXD 1CNT,1 LOAD IRA WITH NO. OF IRV ENTRIES F2400260
TSX INITFX,4 FORM END TEST FOR FIXC0O SEARCH F2400270
LXD L(0),2 BEGIN WITH FIRST TABLE BOB ENTRY. F2400280
REPETE CLA BOB,2 SELECT TABLE IRV ENTRY. F2400290
STA NAME1 PUT SUBCOM NAME IN NAME 1. F2400300
ARS 18 PUT TAU REFERENCE F2400310
STA TAG1 IN TAG1. F2400320
ENTRY SXD BX,2 F2400330
SXD AX,1 F2400340
TSX SUBCOM,4 READ TAU ENTRY FROM DRUM. F2400350
TSX COMPIL,4 COMPILE SUBROUTINE FRO COMPUTING F2400360
LXD BX,2 LOAD VALUE. F2400370
LXD AX,1 F2400380
TXI TEST,2,-1 STEP DOWN COUNT THROUGH TABLE IRV. F2400390
TEST TNX FINISH,1,1 END OF TABLE IRV. F2400400
CLA BOB,2 REDUNDANT. F2400410
TSX LINKTR,4 COMPILE SUBROUTINE RETURN. F2400420
TRA REPETE F2400430
STA TAG2 THE INSTRUCTIONS FROM HERE F2400440
SUB TAG1 THROUGH F2400450
TZE EQUAL TRA ENTRY F2400460
TSX LINKTR,4 ARE F2400470
CLA TAG2 REDUNDANT. F2400480
STO TAG1 F2400490
TRA ENTRY F2400500
EQUAL TSX STOTP,4 F2400510
TRA TEST-1 F2400520
FINISH TSX LINKTR,4 FORM LAST SUBROUTINE RETURN, F2400530
CLA FC08+1 FIXCON WORD COUNT F2400540
WRS 194 F2400550
ANA DECMSK ADJUST F1XCON WDRDCT F2400560
ADD L1DEC F2400570
ARS 17 WRITE FIXCON WORDCT AND F2400580
STO AD1 ITS CHECKSUM ON DRUM, IN F2400590
CPY AD1 ITS ORIGINAL POSITION, AT THE F2400600
CPY AD1 BEGINNING. F2400610
TSX CITSP,4 WRITE CIT BUFFER ON TAPE F2400620
WEF 146 WRITE E.O.F. ONCIT TAPE F2400630
WRS 146 F2400640
CPY RECCNT WRITE CIT RECORDCOUNT AND F2400650
CPY RECCNT CHECKSUM ON CIT TAPE F2400660
WEF 146 WRITE E.O.F. ON CIT TAPE. F2400670
LXA RECCNT,1 BACKSPACE CIT TAPE F2400680
TXI BST,1,3 UNTIL 1ST CIT RECORD F2400690
BST BST 146 THAT THIS BLOCK COMPILED. F2400700
TIX BST,1,1 F2400710
PSE 96 TURN OFF ALL SENSE LIGHTS. F2400720
CLA SENSE1 RESET LIGHT 3 T0OTHE STATUS F2400730
TZE END IT HELD BEFORE THE F2400740
PSE 99 COMMENCEMENT OF THIS BLOCK. F2400750
END RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE
TRA 4
COMPIL SXD 1XB0X,1 F2400770
SXD 2XB0X,2 F2400780
SXD LINK1,4 SAVE LINKAGE F2400790
PSE 96 TURN ALL SENSE LIGHTS OFF F2400800
TSX COSE,4 OBTAIN NAME OF IOEFF. IN FIXCON. F2400810
CLA L(CLA) F2400820
STO CIL01 THIS ROUTINE COMPILES F2400830
CLA OR000+13 THE INSTRUCTION F2400840
ANA 6ONES F2400850
STO CIL02 CLA 6)+3, F2400860
CLA L(3) WITH ZERO TAG, F2400870
ALS 18 F2400880
STO CIL03 TOGETHER WITH A SYMBOLIC F2400890
CLA NAME1 LOCATION OF F2400900
ORA BCD10 F2400910
STOLOC STO CIL00 10)+NAME1 F240A920
TSX CIT,4 ENTER INSTR. IN CIT F2400930
CLA L(STO) F2400940
STO CIL01 THIS ROUTINE COMPILES THE F2400950
CLA OR000+26 INSTRUCTION. F2400960
PAX 0,1 F2400970
ANA 6ONES STO 1)+3 F2400980
SXD CIL03,1 THESE COMPILED INSTR. PLACE F2400990
STO CIL02 1 IN ERASABLE STORAGE F2401000
PXD 0 F2401010
STO CIL00 F2401020
TSX CIT,4 ENTER INSTR. IN CIT F2401030
CLA WRKSC+1 TEST 1ST SUBSCRIPT SYMBOL F2401040
TZE S2 NO SYMBOL PRESENT F2401050
STO OR000+1 SAVE S1 FOR LXC ROUTINE F2401060
LXA L(4),1 INDEX FOR NO. OF COMPILED INSTR. F2401070
MSE 97 DOES 1ST COEFF EXCEED 1 F2401080
TRA COMP20 NO F2401090
TXI COMP30,1,2 YES. 6 INSTR. TO BE COMPILED F2401100
COMP20 CLA KLX02 NO. COMPILE INSTR TO COMPUTE F2401110
TRA COMP30+1 S1-1+(1 ALREADY IN ERASABLE) F2401120
COMP30 CLA KLX021 YES. COMPILE C1A1-1 F2401130
TSX LXC,4 +(1 AREADY IN ERASABLE) F2401140
S2 CLA WRKSC+3 F2401150
TZE S3 TRA IF NO 2ND SUBSC, SYMBOL F2401160
STO OR000+4 SAVE S2 FOR LXC ROUTINE. F2401170
CLA WRKSC+6 OBTAIN SYMBOLIC ADDRESS F2401180
TSX FIXCON,4 OF D1 IN FIXCON TABLE F2401190
STO OR000+7 AND STORE FOR LXC ROUTINE. F2401200
LXA L(6),1 6 INSTR. TO BE COMPILED F2401210
MSE 98 IS COEFF. C2 GREATER THAN 1, F2401220
TRA COMP40 NO. COMPILE D1*S2-D1+ F2401230
CLA KLX03 YES. 8 INSTR. COMPILED TO F2401240
TXI COMP40+1,1,2 COMPUTE D1*S2*C3-D1+ F2401250
COMP40 CLA KLX031 F2401260
TSX LXC,4 + THAT ALREADY COMPUTED. F2401270
S3 CLA WRKSC+5 TEST FOR 3RD SUBSCRIPT F2401280
TZE COMP55 SYMBOL. F2401290
STO OR000+21 STORE FOR LXC ROUTINE. F2401300
LDQ WRKSC+6 COMPUTE D1*D2, F2401310
MPY WRKSC+7 AND OBTAIN F2401320
ALS 17 NAME FOR THIS CONSTANT FROM F2401330
TSX FIXCON,4 FIXCON, AND STORE FOR F2401340
STO OR000+24 LXC ROUTINE. F2401350
LXA L(6),1 6 INSTR. TO BE COMPILED F2401360
MSE 99 IS 3RD COEFF GREATER THAN 1. F2401370
TRA COMP50 NO. COMPILE D1D2*S3-D1D2+ F2401380
CLA KLX05 YES, COMPILE D1D2*C3S3-D1D2+ F2401390
TXI COMP50+1,1,2 F2401400
COMP50 CLA KLX051 F2401410
TSX LXC,4 + THAT ALREADY COMPUTED. F2401420
COMP55 LXD BBOX,4 F2401430
TXI COMP55+2,4,4 STEP UP CIT BUFFER COUNT F2401440
SXD BBOX,4 F2401450
TSX STOTP,4 COMPILE INSTRUCTION TO STORE F2401460
LXD 1XB0X,1 LOADING VALUE FOR SUBSCRIPT COMB. F2401470
LXD 1XB0X,2 F2401480
LXD LINK1,4 F2401490
TRA 1,4 RETURN F2401500
STOTP SXD LINK2,4 ROUTINE COMPILES THE INSTR. F2401510
CLA L(0) TO STORE THE RESULTS OF F2401520
STO CIL00 THE SUBROUTINE COMPILATION IN F2401530
STO CIL03 THE TAG NAME. F2401540
CLA L(STO) THIS INSTRUCTION IS F2401550
STO CIL01 F2401560
CLA NAME1 STO 12)+ NAME1 F2401570
ORA BCD14 F2401580
STO CIL02 F2401590
TSX CIT,4 ENTER IN CIT TABLE F2401600
LXD LINK2,4 F2401610
TRA 1,4 RETURN F2401620
REM ROUTINE FORMS END TEST FOR FIXCON SEARCH ROUTINE F2401630
INITFX LXA L(5),2 LOAD READING ERROR COUNTER. F2401640
C1 RDS 194 . F2401650
CPY 1CNT READ FIXCON WD.CT F2401660
CPY 2CNT AND ITS CHECKSUM F2401670
CLA 1CNT F2401680
SUB 2CNT TEST FOR READING ERROR. F2401690
TNZ C6 ERROR. F2401700
CLA 1CNT IS FIXCON EMPTY. F2401710
TZE C4 YES F2401720
SUB L(2) F2401730
ALS 17 STORE END TEST IN F2401740
C2 STD FC08+1 FIXCON SEARCH ROUTINE F2401750
TRA 1,4 RETURN TO MAIN ROUTINE. F2401760
C4 RDS 194 FIXCON IS EMPTY. F2401770
CPY L(0) SET FIRST FOUR LOCATIONS F2401780
CPY L(0) TO F2401790
CPY L(0) ZERO. F2401800
CPY L(0) F2401810
TRA C2 STORE ZERO AS END TEST F2401820
C6 TIX C1,2,1 ERROR. TRY TO READ 3 TIMES. F2401830
TSX DIAG,4 DRUM 2 READING ERROR FIVE TIMES. F2401840
LINKTR CLA L(0) F2401850
STO CIL00 THIS ROUTINE COMPILES F2401860
STO CIL02 INSTRUCTION FOR RETURN F2401870
CLA L(TRA) TO THE FORTRAN MASTER F2401880
STO CIL01 ROUTINE. F2401890
CLA RELTG TRA1,4 F2401900
STO CIL03 F2401910
SXD LINK1,4 F2401920
TSX CIT,4 FENTER IN CIT TABLE. F2401930
LXD LINK1,4 F2401940
TRA 1,4 RETURN F2401950
L(TRA) BCD 1TRA000 F2401960
RELTG OCT 000001000004 F2401970
REM ROUTINE READS AND CHECKS TABLE IRV (ALSO CALLED BOB) F2401980
RDRM LXA L(5),1 LOAD ERROR COUNTER. F2401990
SXD LINK1,4 SAVE ENTRY PT. F2402000
RDS RDS 195 F2402010
LXA L(152), 2 F2402020
LDA L1304 DRUM ADDRESS OF TABLE IS 1304 F2402030
CPY 1CNT READ WD. CT. OF TABLE. F2402040
CPY 2CNT READ WD. CT. CHECKSUM. F2402050
CPY CPY BOB+152,2 READ 150 TABLE ENTRIES. F2402060
TIX CPY,2,1 F2402070
CLA 1CNT DOES WD. CT AGREE F2402080
SUB 2CNT WITH ITS CHECKSUM. F2402090
TNZ EROR NO. ERROR. F2402100
LXD 1CNT,2 YES. F2402110
TXH PROCED,2,0 IS TABLE EMPTY. F2402120
LXD LINK1,4 YES. RETURN TO F2402130
TRA 1,4 MAIN ROUTINE. F2402140
PROCED PXD 0 TABLE IRV IS NOT EMPTY, F2402150
PDX 0,4 INITIALISE IRC TO ZERO. F2402160
ACCSUH ACL BOB,4 FORM LOGICAL CHECKSUM OF F2402170
TXI TIX,4,-1 ENTRIES F2402180
TIX TIX ACCSUH,2,1 F2402190
SLW LOGWD F2402200
CLA LOGWD COMPUTED CHECKSUM. F2402210
SUB BOB,4 DRUM CHECKSUM FOLLOWS LAST ENTRY. F2402220
TNZ EROR NOT EQUAL F2402230
LXD LINK1,4 DRUM READ CORRECTLY. F2402240
TRA 2,4 RETURN F2402250
EROR TIX RDS,1,1 TRY TO READ THREE MORE TIMES. F2402260
TSX DIAG,4 DRUM 3 READING ERROR FIVE TIMES. F2402270
1CNT HTR F2402280
2CNT HTR F2402290
LOGWD HTR F2402300
LINK1 HTR F2402310
L(152) HTR 152 LENGTH OF TABLE IRV, WD. CT., CHECKSUMS F2402320
L1304 HTR 1304 ORG OF WD. CT OF TABLE IRV F2402330
REM ROUT1NE WRITES CIT BUFFER 0N TAPE ,IF FULL, THEN ENTERS F2402340
REM NEW CIT INTO BUFFER. F2402350
CIT SXD E2C,1 F2402360
SXD E3C,2 F2402370
LXD BBOX,2 COMPLEMENT OF CURRENT BUFFER CT. F2402380
TXH CIT04,2,-100 BUFFER NEITHER FULL NOR ZERO F2402390
CITSP LXD BBOX,2 F2402400
TXL CIT04,2,0 TRA IF BUFFER CT ZERO F2402410
CLA RECCNT BUFFER IS ALREADY FULL. F2402420
ADD L(1) UPDATE CIT RECORD COUNT. F2402430
STO RECCNT F2402440
WRS 146 F2402450
LXA L(0),1 WRITE CIT BUFFER ON TAPE. F2402460
CIT01 CPY CIB,1 F2402470
TXI CIT02,1,-1 F2402480
CIT02 TXI CIT03,2,1 STEP BUFFER COUNT BACK TO ZERO F2402490
CIT03 TXH CIT01,2,1 TEST FOR BUFFER END F2402500
CIT04 LXA L(4),1 F2402510
CIT05 CLA CIL00+4,1 STORE 4WD CIT IN 8UFFER. F2402520
STO CIB,2 F2402530
TXI CIT07,2,-1 UPDATE CIT BUFFER COUNT F2402540
CIT07 TIX CIT05,1,1 F2402550
SXD BBOX,2 SAVE CIT BUFFER COUNT F2402560
LXD E2C,1 F2402570
LXD E3C,2 RELOAD INDEX REGS, F2402580
TRA 1,4 RETURN F2402590
BBOX HTR 0 CIT BUFFER CT. INITIALLY ZERO F2402600
E2C HTR F2402610
E3C HTR F2402620
CIL00 BSS 1 SYMBOLIC LOCN OF CIT F2402630
CIL01 BSS 1 OP.DAND DEC. OF CIT. F2402640
CIL02 BSS 1 SYMBOLIC ADDRESS OF CIT F2402650
CIL03 BSS 1 REL. ADDRESS AND TAG. F2402660
REM REQUIRED FIXCON IS IN ACC. WHEN THIS-ROUTINE IS F2402670
REM BEGUN. THE FIXCON TABLE IS SEARCHED AND IF FIXCON IS F2402680
REM NOT ALREADY THERE, IT IS ENTERED IN THE TABLE. F2402690
REM (SEARCH IS MADE IN TWO PASSES, ONE FOR EVEN ENTRIES, ONE F2402700
REM FOR ODD, FOR TIMING PURPOSES.)EXIT WITH NAME OF ENTRY IN ACC F2402710
FIXCON SXD FC29,1 F2402720
SXD FC18,2 F2402730
SXD FC34,4 F2402740
STO ERDRM1 SAVE FIXCON. F2402750
LXA L(5),4 INITIALIZE DRUM ERROR COUNTER. F2402760
FC02 CLA ORIGIN INITIALISE AD1 T0 SELECT 1ST ENTRY F2402770
STO AD1 AND ODD NUMBERED ENTRIES. F2402780
LXA L(0),1 INITIALISE COUNT THROUGH TABLE F2402790
LXA L(2),2 INITIALISES FOR TWO FIXCON PASSES F2402800
FC04 CLA ERDRM1 REQD. FIXCON F2402810
RDS 194 READ NEXT FIXCON ENTRY F2402820
LDA AD1 F2402830
FC08 CPY CPYWD1 F2402840
TXH FC24+1,1 DECR IS WD.CT OF FIXCON TABLE (INITFX) F2402850
CPY CPYWD2 READ CHECKSUM OF ENTRY F2402860
TLQ FC30 TRA IF ENTRY DOES NOT MATCH FIXCON F2402870
CPY ERDRM FALSE COPY. F2402880
CAS CPYWD2 COMPARE WITH CHECKSUM. F2402890
TSX DIAG,4 OBVIATED BY TLQ. F2402900
FC18 TXL FC60,0 SAVED IRB IN DECR. MATCH FOUND. F2402910
FC20 CPY ERDRM FALSE COPY, NO MATCH F2402920
FC24 TXI FC08,1,2 INCREASE COUNT OF WORDS TESTED. F2402930
TNX FC40,2,1 BOTH PASSES ARE COMPLETED. F2402940
CLA AD1 ADJUST DRUM ADDRESS F2402950
ADD L(2) TO TEST EVEN NUMBERED ENTRIES F2402960
STO AD1 F2402970
FC28 LXA L(1),1 INITIALISE COUNT THROUGH TABLE F2402980
FC29 TXL FC04,0 TRA TO MAKE 2ND PASS. SAVED IRA IN DEC F2402990
FC30 CPY ERDRM FALSE COPY. F2403000
FC34 TXL FC20,0 DECR, CONTAINS ROUTINE LINKAGE. F2403010
FC40 STO CPYWD1 SEARCH COMPLETED. NO MATCH. F2403020
LXD FC08+1,1 F2403030
TXI FC42,1,1 INCREASE FIXCON WD. COUNT AND F2403040
FC42 SXD FC08+1,1 STORE AS NEW TEST. F2403050
PXD 0,1 FORM NEW ADDRESS F2403060
ARS 17 FOR F2403070
ADD ORIGIN DRUM WRITING. F2403080
STO AD1 F2403090
WRS 194 F2403100
LDA AD1 WRITE NEW FIXCON AND F2403110
CPY CPYWD1 ITS CHECKSUM ON DRUM. F2403120
CPY CPYWD1 F2403130
FC50 PXD 0,1 FORM NAME OF CONSTANT F2403140
ARS 18 IN ACC. NAME CONSISTS OF F2403150
ORA BCD2 2 IN DEC.=2) FOR FIXCON TABLE, F2403160
LXD FC29,1 AND ENTRY NO WITHIN TABLE, F2403170
LXD FC18,2 IN ADDRESS. F2403180
LXD FC34,4 RESTORE INDEX. F2403190
TRA 1,4 RETURN. F2403200
FC60 CLA CPYWD1 MATCH FOUND. TEST DRUM READ. F2403210
SUB CPYWD2 F2403220
TZE FC50 DRUM READ CQRRECTLY. F2403230
TIX FC02,4,1 ERROR. TRY 3 TIMES. F2403240
STOPFC TSX DIAG,4 DRUM 2 READING ERROR FIVE TIMES. F2403250
ORIGIN HTR 2 DRUM ORIGIN OF FIXCON TABLE. F2403260
REM THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE CORR. F2403270
REM SUBSCR. COMBINATION FROM THE APPROPRIATE TAU TABLE F2403280
REM AND STORES IN P0SITION C1,S1,C2,S2,S3,S3,D1,D2. F2403290
SUBCOM SXD SUB085,4 SAVE S.R. LINKAGE F2403300
LXA L(5),1 INITIALIZE DRUM ERROR COUNTER. F2403310
STO SUBTAG STORE TAU TAG NAME. F2403320
SUB010 RDS 196 SELECT TAU DRUM F2403330
LXD SUBORG+2,4 INITIALIZE SUBSCRIPT COMBINATION F2403340
PXD 0 WORKING SPACE F2403350
SUB020 STO WRKSC+8,4 TO ZERO. F2403360
TIX SUB020,4,1 F2403370
CLA SUBTAG THESE INSTRUCTIONS PLACE F2403380
LRS 9 TAU TABLE REQUIRED F2403390
PAX 0,6 (1,2 OR 3) IN IRB AND IRC. F2403400
PXD 0 F2403410
LLS 9 STORE ENTRY NUMBER F2403420
STO SUBES1 WITHIN APPROPRIATE TAU TABLE. F2403430
ALS 1 F2403440
STO SUBES2 STORE TWICE TAU ENTRY NO. F2403450
CLA SUBORG+3,4 SELECT APPROPRIATE TAU ORIGIN. F2403460
ADD SUBES1 FORM DRUM ADDRESS, WHICH EQUALS F2403470
SUB030 ADD SUBES2 TAU ORIGIN + ENTRY N/.* F2403480
TIX SUB030,4,1 NUMBER OF WORDS PER ENTRY F2403490
STA SUBES1 (3 FOR TAU1,5 FOR TAU2,7 FORTAU3) F2403500
LDA SUBES1 SELECT TAU ENTRY. F2403510
CPY WRKSC DECR. C1, ADDR, C2 F2403520
TXL SUB040,2,2 F2403530
CPY WRKSC+4 FOR TAU 3, ADDR. C3. F2403540
SUB040 CPY WRKSC+1 S1 F2403550
TXL SUB060,2,1 F2403560
CPY WRKSC+3 FOR TAU2 AND3, S2. F2403570
TXL SUB050,2,2 F2403580
CPY WRKSC+5 FOR TAU3, S0, ALS0 F2403590
SUB050 CPY WRKSC+6 ADDRESS D2,0ECR.D1 F2403600
SUB060 CPY SUBES1 CHECKSUM. F2403610
LXD SUBORG,4 F2403620
CAL WRKSC COMPUTE F2403630
SUB070 ACL WRKSC+7,4 CHECKSUM. F2403640
TIX SUB070,4,1 F2403650
SLW SUBES2 F2403660
CLA SUBES2 TEST FOR F2403670
SUB SUBES1 READING ERROR. F2403680
TZE SUB075 TRA. IF CORRECT F2403690
TIX SUB010,1,1 IF ERROR, TRY FOUR MORE TIMES. F2403700
SUB075 LXD SUBORG+1,4 - F2403720
SUB080 CLA WRKSC+7,4 REARRANGE WORDS WRKSC F2403730
PAX 0,2 AND WRKSC+6, IN TURN, WHICH F2403740
ANA DECMSK CONTAIN C1 AND C2,D1AND D2. F2403750
STO WRKSC+7,4 NONBCD CHARACTERS F2403760
PXD 0,2 ARE STORED IN DECREMENT F2403770
TNX SUB090,4,6 AND ORDER OF ITEMS IS NOW F2403780
STO WRKSC+2 C1,S1,C2,S2,C3,S3,D1,D2. F2403790
SUB085 TXL SUB080,0 F2403800
SUB090 STO WRKSC+7 F2403810
LXD SUB085,4 RESTORE LINKAGE INDEX F2403820
TXL SUB100+1,1,1 TRA IF READING ERROR. F2403830
SUB100 TRA 1,4 RETURN F2403840
TSX DIAG,4 DRUM 4 READING ERROR 5 TIMES. F2403850
SUBORG OCT 000006001356 DECR. IS 6, ADDR. IS ORG TAU3 F2403860
OCT 000007000454 DECR. IS 7, ADDR IS ORG TAU2 F2403870
OCT 000010000000 DECR IS 8, ADDR IS ORG TAU1. F2403880
SUBES1 HTR ERASABLE ST, FOR DRUM ADDR. F2403890
SUBES2 HTR ERASABLE ST, FO DRUM CHECK1 F2403900
SUBTAG HTR F2403910
REM COSE ROUTINE FORMS NAME OF EACH NONTRIVIAL COEFF. IN FIXCON F2403920
REM TABLE, AND SETS SENSE LIGHTS ACCORDINGLY. F2403930
COSE LXA L(6),1 INDEX TO SELECT SUBSCRIPTS IN TURN F2403940
LXA L(3),2 INITIALISE SENSE LT. SELECTION. F2403950
SXD LINKC,4 F2403960
COSE5 CLA WRKSC+6,1 SELECT A S.C. COEFF. F2403970
TZE COSE08 TRA IF NO SUBSC. IN THIS DIMENSION F2403980
SUB L1DEC F2403990
TZE COSE08 TRA IF COEFF. IS ONE. F2404000
PSE 100,2 SET CORRESPONDING SENSE LIGHT. F2404010
CLA WRKSC+6,1 ENTER COEFF IN FIXCON IF F2404020
TSX FIXCON,4 NOT ALREADY THERE. F2404030
STO OR000+12,2 STORE NAME OF FIXCON ENTRY. F2404040
COSE08 TIX COSE10,1,2 F2404050
COSE10 TIX COSE5,2,1 REPEAT FOR ALL SUBSCRIPTS. F2404060
LXD LINKC,4 F2404070
TRA 1,4 RETURN F2404080
REM ROUTINE COMPILES SETS OF INSTRUCTIONS, GIVEN STARTING LOCN. F2404090
REM OF APPROPRIATE SKELETON IN ACC., AND NO. OF INSTR. IN IRA F2404100
LXC SXD LXC19,4 F2404110
STO ERLXC SAVE LOCATION OF INSTR. SKELETON. F2404120
PXD 0,1 NO. OF INST TO BE COMPILED. F2404130
ARS 18 F2404140
ADD ERLXC FORM ADDRESS WHICH GIVES F2404150
STA LXC10 APPROPRIATE SKELETAL WORDS. F2404160
LXC08 CLA L(0) SET CIT SYMBOLIC LOCN. TO ZERO F2404170
STO CIL00 F2404180
LXC10 LDQ 0,1 SELECT NEXT SKELETAL WORD. F2404190
LLS 0 FOR COMPILATION. SET SIGN IN AC. F2404200
LGL 18 BCD. OPERATION IS IN DECREMENT. F2404210
STQ CIL01 STORE OPERATION F2404220
TMI LXC20 CIT IS SHIFT TYPE INSTRUCTIQN. F2404230
STA LXC15 CIT IS SYMBOLIC ADDRESS TYPE. F2404240
LXC15 CLA ADDR. IS LOCATION OF SYMBOLIC ADDRESS F2404250
STO CIL02 OF CIT. F2404260
CLA L(0) F2404270
STO CIL03 SET CIT TAG TO ZERO. F2404280
CAL CIL02 TEST FOR A COT F2404290
ANA 6ONES SYMBOLIC ADDRESS OF THE TYPE F2404300
TZE LXC30 1)+3 OR6)+2 ERASABLE F2404310
ANA BIT01 STORAGE F2404320
TNZ LXC30 NO F2404330
CAL CIL02 YES. SEPARATE ADDRESS LEAVING THE F2404340
ALS 18 CLASS OF SYMBOLS IN SYMBOLIC F2404350
STD CIL03 ADDRESS POSN. ALONE, AND F2404360
CAL 6ONES PLACING ADDEND IN REL. ADDRESS F2404370
ANS CIL02 POSITION. F2404380
LXC19 TXL LXC30,0 UNCOND. TRANSFER LINKAGE INDECR. F2404390
LXC20 ALS 18 CIT IS SHIFT TYPE INSTRUCTION F2404400
ANA DECMSK I.E. ABSOLUTE ADDRESS ONLY, F2404410
STO CIL03 STORE ADDRESS IN CIT REL. ADDRESS. F2404420
CLA L(0) STORE ZERO AS F2404430
STO CIL02 SYMBOLIC ADDRESS. F2404440
LXC30 TSX CIT,4 MAKE CIT ENTRY. F2404450
TIX LXC08,1,1 RETURN FOR NEXT SKELETON INST. F2404460
LXD LXC19,4 SKELET0N COMPLETED. F2404470
TRA 1,4 RETURN. F2404480
LX100 HTR 14545,2,OR000+13 CLA. THESE WORDS F2404490
HTR 11494,6,OR000+26 STO. CONSTITUTE THE F2404500
LX102 HTR 14545,2,OR000+1 CLA. CODING F2404510
HTR 11538,6,OR000+13 SUB. SKELETONS, F2404520
HTR 5396,2,OR000+26 ADD. AND ARE F2404530
HTR 11494,6,OR000+26 SO0. CALLED UPON F2404540
LX105 HTR 13608,4,OR000+1 LDQ. BY THE LXC F2404550
HTR 18936,4,OR000+9 MPY. ACCORDING F2404560
TNX 6386,2,17 ALS. TO THE F2404570
HTR 11538,6,OR000+13 SUB. DIFFERENT F2404580
HTR 5396,2,OR000+26 ADD. COMPUTATIONS F2404590
HTR 11494,6,OR000+26 STO. REQUIRED. F2404600
LX110 HTR 13608,4,OR000+4 LDQ. F2404610
HTR 18936,4,OR000+7 MPY. THE TAG AND F2404620
TNX 6386,2,17 ALS. ADDRESS ARE F2404630
HTR 11538,6,OR000+7 SUB. THE BCD F2404640
HTR 5396,2,OR000+26 ADD. EQUIVALENTS OF F2404630
HTR 11494,6,OR000+26 STO. THE CIT F2404660
LX116 HTR 13608,4,OR000+4 LDQ. INSTRUCTIONS. F2404670
HTR 18936,4,OR000+10 MPY. THE SYMBOLIC F2404680
TNX 14962,4,18 LRS. DECREMENTS ARE F2404690
HTR 18936,4,OR000+7 MPY. THE LOCATIONS F2404700
TNX 6386,2,17 ALS. OF THE F2404710
HTR 11538,6,OR000+7 SUB. ADDRESSES IN F2404720
HTR 5396,2,OR000+26 ADD. THE CIT F2404730
HTR 11494,6,OR000+26 STO. F2404740
LX124 HTR 13608,4,OR000+21 LDQ. THE NEGATIVE F2404750
HTR 18936,4,OR000+24 MPY. PREFIX INDICATES F2404760
TNX 6386,2,17 ALS. A PURELY F2404770
HTR 11538,6,OR000+24 SUB. ABSOLUTE ADDRESS F2404780
HTR 5396,2,OR000+26 ADD. F2404790
HTR 11494,6,OR000+26 STO. F2404800
LX130 HTR 13608,4,OR000+21 LDQ. F2404810
HTR 18936,4,OR000+11 MPY. F2404820
TNX 14962,4,18 LRS. F2404830
HTR 18936,4,OR000+24 MPY. F2404840
TNX 6386,2,17 ALS. F2404850
HTR 11538,6,OR000+24 SUB. F2404860
HTR 5396,2,OR000+26 ADD. F2404870
HTR 11494,6,OR000+26 STO. F2404880
NAME1 HTR F2404890
TAG1 HTR F2404900
TAG2 HTR F2404910
RECCNT HTR F2404920
AD1 HTR F2404930
1XB0X HTR F2404940
2XB0X HTR F2404950
LINK2 HTR F2404960
ERDRM HTR F2404970
ERDRM1 HTR F2404980
CPYWD1 HTR F2404990
CPYWD2 HTR F2405000
LINKC HTR F2405010
ERLXC HTR F2405020
AX HTR F2405030
BX HTR F2405040
SENSE1 HTR F2405050
BCD2 OCT 020000000000 F2405060
BCD14 OCT 140000000000 F2405070
BCD10 OCT 120000000000 F2405080
L1DEC OCT 000001000000 F2405090
6ONES OCT 770000000000 F2405100
BIT01 OCT 600000000000 F2405110
DECMSK OCT 077777000000 F2405120
L(STO) BCD 1STO000 F2405130
L(CLA) BCD 1CLA000 F2405140
L(0) HTR 0 F2405150
L(1) HTR 1 F2405160
L(2) HTR 2 F2405170
L(3) HTR 3 F2405180
L(4) HTR 4 F2405190
L(5) HTR 5 F2405193
L(6) HTR 6 F2405200
KLX02 HTR LX102 SKELETON KEYS F2405210
KLX021 HTR LX105 FOR LXC ROUTINE. F2405220
KLX03 HTR LX116 F2405230
KLX031 HTR LX110 F2405240
KLX05 HTR LX130 F2405250
KLX051 HTR LX124 F2405260
OR012 SYN OR000+12 F2405270
OR013 SYN OR000+13 F2405280
OR018 SYN OR000+18 F2405290
OR026 SYN OR000+26 F2405300
DIAG EQU 4 F2405305
END F2405310
REM FORTRAN 2*****BLOCK 5 OF SECTION 2***************************F2500000
REM BLOCK 5 OF SECTION 2 USES INFORMATION GENERATED BY BLOCKS F2500030
REM 1,2, AND 3 TO COMPILE ALL DO LOOP INDEXING INSTRUCTIONS. F2500040
REM DECREMENTS ARE COMPUTED, AND WHEN NECESSARY OPEN SUBROUTINES F2500050
REM ARE COMPILED TO COMPUTE THESE DECREMENTS AT OBJECT PROGRAM F2500060
REM TIME. AT THE END OF BLOCK 5 THESE INSTRUCTIONSlARE ON TAPE F2500070
REM 3 IN SEMI-INVERTED ORDER. BLOCK 6 INVERTS THE DOFILE INTO ITF2S00080
REM PROPER ORDER ONTO TAPE 4 F2500090
REM F2500100
REM F2500110
REM MASTER RECORD CARD = FN047 F2500120
REM BEGIN INITIALIZATION F2500130
REM THE INITIALIZATION RECORD IS THE FIRST RECORD 0B BLOCK 5 READF2500140
REM IN BY MONITOR. IT POSITIONS THE INPUT TAPES 2 AND 4 AND F2300130
REM REWINDS THE OUTPUT TAPE 3.IT READS THE NEXT RECORD (THE ALPHAF2300160
REM STATE) INTO CORES THEN WRITES IT ON DRUM 2. THEN IT READS F2500170
REM IN THE NEXT RECORD(COMMON + THE BETA STATE), AND WRITES THE BF2500180
REM BETA STATE ON DRUM 1. IT READS THE ADTAG TABLE FROM DRUM 2 IF2500190
REM FIXCON IS CHECKED8 AND INITIALIZED IF NECESSARY. IF THERE AREF2500200
REM ANY DOS CONTROL IS PASSED TO MAN. IF THERE ARE NO DOS THE NEF2500210
REM NEXT RECORD, WHICH IS BLOCK 6, IS READ IN. F2500220
ORG 24 F2500230
AINIT LXA L5,1 INITIALIZE ERROR COUNTER, F2500240
BST 146 POSITION TAPE 2 F2500250
BST 146 TO READ DOTAG F2500260
A1 RDS 146 F2500270
CPY CPYWD3 DO TAG REC COUNT F2500280
CPY CPYWD3 DO TAG REC COUNT F2500290
WRS 219 F2500300
RTT F2500310
TRA A3I ERROR F2500320
LXD CPYWD3,1 F2500330
TXL A2,1,0 F2500340
TXI A2,1,2 F2500350
A2 BST 146 BACKSPACE T0 BEGINNING F2500360
TIX A2,1,1 OF DOTAG RECORDS F2500370
REW 147 REWIND OUTPUT TAPE F2500380
REW 148 REWIND TAGTAG TAPE F2500390
A3 RDS 148 F2500400
CPY CPYWD3 TAGTAG RECORD COUNT F2500410
TRA A3 F2500420
RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2500430
TRA 4 E.D.F. READ IN NEXT BLOCK OF INST. F2500440
REM THE ALPHA STATE IS NOW IN CORES. CONTROL PASSES TO C. F2500450
TRA A3 E.O.R. F2500460
A3I TNX A4,1,1 READING F2500470
BST 146 ERROR F2500480
TRA A1 ROUTINE F2500490
A4 TSX DIAG,4 TAPE 2 HAS GOTTEN AN ERROR CHECK 5 TIMES. F2500500
C LXA L0,2 F2500510
TSX BINIT,4 WRITE BLOCK A ON DRUM F2500520
RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2300530
TRA 4 READ NEXT RECORD F2500540
REM COMMON AND BETA STATE ARE NOW IN CORES, CONTROL IS PASSED TOF2500550
REM THE FOLLOWING INSTRUCTION. F2500560
LXA L1,2 F2500570
TSX BINIT,4 PLACE BLOCK B ON DRUM F2500580
TSX ADTGDM,4 READ ADTAG ENTRIES F2500590
LXA L5,1 INITIALIZE ERROR COUNTER. F2500600
C1 RDS 194 SELECT FIXCON DRUM. F2500610
CPY CPYWD3 WORD COUNT OF FIXCON F2500620
CPY CPYWD4 F2500630
CLA CPYWD3 F2500640
SUB CPYWD4 F2500650
TNZ C6 ERROR IN DRUM READING F2500660
CLA CPYWD3 F2500670
TZE C4 NO ENTR1ES IN FIXCON F2500680
SUB L2 F2500690
ALS 17 F2500700
C2 STD FC08+1 STORE WORD COUNT IN F2500710
CLA L(1) DECREMENT OF FC08-1 F2500720
STO SWICH2 SET SWITCH 2 TO 1 F2500730
MSE 99 F2500740
TRA MAN IF NO DOTAGS, F2500750
PSE 99 TRA MONITOR F2500760
RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2500770
TRA 4 OTHERWISE TRA MAN. F2500780
C4 WRS 194 F2500790
CPY L0 NO ENTRIES, WRITE F2500800
CPY L0 ZEROS IN FIRST FOUR F2500810
CPY L0 LOCATIONS OF DRUM 3 F2500820
CPY L0 F2500830
TRA C2 F2500840
C6 TIX C1,1,1 DRUM 2 READING ERROR ROUTINE. F2500850
TSX DIAG,4 DRUM 2 READING ERROR 5 TIMES. F2500860
CPYWD3 HTR F2500870
CPYWD4 HTR F2500880
L1 HTR 1 F2500890
L2 HTR 2 F2500900
L3 HTR 3 F2500910
L5 HTR 5 F2500920
REM ************************************************************ F2300930
REM BINIT WRITES A SELECTED STATE, ALPHA OR BETA, ON DRUM2 OR 1 F2500940
REM RESPECTIVELY, F2500930
BINIT CLA L0 F2500960
LXA L1000,1 FORM CHECK SUM FOR F2500970
B1 ACL RTXAC+1000,1 PROGRAM ON DRUM. F2500980
TIX B1,1,1 F2500990
SLW CPYWD3 F2501000
LXA L1000,1 F2501010
WRS 194,2 WRITE 1000 WORDS OF F2501020
LDA L1000 PROGRAM ONTO DRUM F2501030
CPY CPYWD3 F2501040
B2 CPY RTXAC+1000,1 F2501050
TIX B2,1,1 F2501060
TRA 1,4
L0 HTR 14 F2501070
L1000 HTR 1000 F2501080
REM **00 F2501090
REM ************************************************************ F2506930
REM ADTGDM READS THE ADTAG TABLE FROM DRUM 3 INTO CORES. F2506940
ADTGDM CLA L(0) INITIALIZE ERROR INDICATOR F2506950
STO ERORBX F2506960
ADTG05 LXA LZEKMX,2 CHECK SUM AREA F2506970
LXA LADMX,1 ADTAG AREA F2501100
RDS 195 F2501110
LDA DRADSI READ ADTEG TABLE F2501120
ADTG10 CPY ADTGMX,1 ADDRESS IS ORIGIN - MAX WORDS F2501130
CLA ALLONE FENCE FOR TABLE END F2501140
CPY ADTGMX+1,1 F2501150
SUB ADTGMX,1 F2501160
CPY ADTGMX+2,1 F2501170
TZE ADTG30 END OF TABLE. F2501180
CPY ADTGMX+3,1 F2501190
TXI ADTG20,1,-4 F2501200
ADTG20 CPY ZEKSUM,2 CHECK SUM FOR DRMTAG. F2501210
TXI ADTG10,2,-1 F2501220
ADTG30 SXD ADTG38,1 MAX CURRENT TABLE SIZE. F2501230
SXD ADTGS1,1 F2501240
TXH ADTG38+1,1,399 RETURN IF TABLE DEPLETED. F2501250
LXA LADMX,1 START TO CHECK F2501260
LXA LZEKMX,2 ALL CHECK SUMS. F2501270
ADTG32 CAL ADTGMX,1 F2501280
ACL ADTGMX+1,1 F2501290
ACL ADTGMX+2,1 F2501300
ACL ADTGMX+3,1 F2501310
SLW CPYWD3 F2501320
CLA CPYWD3 F2501330
SUB ZEKSUM,2 F2501340
TNZ EROR F2501350
TXI ADTG34,1,-4 F2501360
ADTG34 TXI ADTG38,2,-1 F2501370
ADTG38 TXH ADTG32,1 TEST FOR END OF TABLE. F2501380
TRA 1,4 END OF TABLE, READ CORRECTLY. F2501390
EROR CLA ERORBX IF ERROR IN A CHECK THE F2501400
ADD L(1) ENTIRE TABLE IS RE-READ. F2501410
STO ERORBX THIS IS DONE FOUR TIMES AFTER F2501420
SUB L5 THE FIRST READING OF THE TABLE. F2501430
TNZ ADTG05 F2501440
STOP TSX DIAG,4 DRUM 3 READING ERROR 5 TIMES. F2501450
DRADSI OCT 2664 DRMTG ORIGIN. F2501460
REM ************************************************************ F2301470
REM ************************************************************ F2301480
REM F2301490
REM F2301500
REM MASTER RECORD CARD = FN051 F2501505
REM BEGIN COMMON AND BETA STATES F2501510
REM **********************************************************F2301520
ORG 24 BEGIN BLOCK 5 COMMON F2501530
REM F2501540
CIB BSS 100 F2501550
DOTAG BSS 450 F2501560
TGTG BSS 672 F2501570
OMXTGA BSS 200 F2501580
ADTG BSS 404 F2501590
OADTGA BSS 100 F2501600
WRKSC BSS 8 F2501610
TAG1 F2501620
TAG2 F2501630
TAG21 F2501640
TAG22 F2501650
TAG3 BSS 1 F2501660
TAG4 BSS 1 F2501670
REM MAN CONSTITUTES THE MAIN LINEAR FLOW THROUGH BLOCK 5. A F2501680
REM SUBROUTINE PICKS A DO BETA OR ALPHA, AND THEN CONTROL IS PASSF2501690
REM ED TO THE PROPER STATE, (BETA OR ALPHA), TO COMPILE ALL THE F2501700
REM INDEXING INSTRUCTIONS FOR THAT PART OF THAT DO. CONTROL IS F2501710
REM RETURNED TO MAN. THIS PROCESS IS REPEATED UNTIL ALL ALPHAS F2501720
REM AND BETAS IN A NEST HAVE BEEN TREATED. THE WHOLE PROCEDURE IF2501730
REM IS REPEATED FOR EACH NEST AND THEN CONTROL IS PASSED TO BLOCKF2501740
REM SIX. F2501750
REM ************************************************************ F2501760
MAN TSX TDOTG,4 READ ONE NEST OF DOTAG F2501770
TRA MAN70 END OF PROBLEM F2501780
SXD DOGS60,2 INIT. DECREMENT OF TEST. F2501790
SXD MAN05,2 F2501800
LXA LMXDTG,2 F2501810
CAL T1MSK MASK FOR T1 WORD OF DOTAG F2501820
MAN03 ANS DOTAGZ+6,2 T1 WORD MUST HAVE F2501830
TXI MAN05,2,-9 SOME BITS REM0VED FOR F2501840
MAN05 TXH MAN03,2 SXD LOCATION F2501830
TSX TTG,4 READ NEST OF TAGTAGS F2501860
SXD FIND10,2 SAVE COUNT OF TAGTAGS IN NEST F2501870
CLA L(0) ZERO. F2501880
LXA LHXTGA,2 INITIALIZE APPENDED TGTG F2501890
MAN06 STO MXTGA,2 TO. F2501900
TIX MAN06,2,1 ZERO. F2501910
LXA LZEKMX,2 INITIALIZE APPENDED ADTAG F2501920
STO STO ADTGA,2 TO F2501930
TIX STO,2,1 ZERO F2501940
MAN10 CLA L(0) INITIALIZE F2501950
STO BB0X INDICATORS F2501960
STO DOIND F2501970
STO DOIND1 F2501980
STO SWICH1 F2501990
CLA ALLONE INITIALIZE F2502000
STO VCTR INSTRUCTION COUNTER F2502010
MAN20 CLA L(1) F2502020
STO LOCIND F2502030
TSX DOGS,4 SELECT BOR A F2502040
TRA MAN50 NEST COMPLETELY ANALYZED F2502050
CLA SWICH1 IS APPROPR1ATE F2502060
CAS SWICH2 CODING IN CORES F2502070
TRA MAN35 NO F2502080
TRA MAN40 YES F2502090
MAN35 TSX ABDRM,4 NO. READ STATE FROM DRUM F2502100
CLA SWICH1 F2502110
STO SWICH2 F2502120
MAN40 LXD DOIND,2 F2502130
CLA DOTAGZ,2 F2502140
STD A SAVE A F2502150
PAX 0,1 F2502160
SXD B,1 CURRENT DO F2502170
MAN45 PDX 0,1 F2502180
PXD 0,1 ACCUMULATOR, LEAVING BETA F2502190
TSX RTXAC,4 F2502200
TRA MAN20 BACK T0 DOGS F2502210
MAN50 TSX CITSP,4 WRITE CIT BUFFER ON TAPE F2502220
WRS 147 F2502230
CPY L(0) END OF RECORD INDIC F2502240
CPY L(0) F2502250
CPY L(0) F2502260
CPY L(0) F2502270
TRA MAN F2502280
MAN70 WEF 147 END OF FILE FOR DO FILE F2502290
WRS 193 F2502300
LDA AD202 F2502310
CPY DRADS2 F2502320
CPY DRADS2 F2502330
WRS 193 F2502340
CPY DRADS3 F2502350
CPY DRADS3 F2502360
WRS 194 F2502370
CLA FC08+1 F2502380
ANA DECMSK F2502390
ADD L1DEC F2502400
ARS 17 F2502410
STO AD1 F2502420
CPY AD1 F2502430
CPY AD1 F2502440
PSE 96 F2502450
RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2502460
TRA 4 EXIT BLOCK 5. F2502470
REM ************************************************************ F2502412
REM ABDRM IS CALLED BY MAN TO WRITE THE PROPEER DRUM STATE8 ALPHAF2502400
REM OR BETA, INTO CORES WHEN NECESSARY. F2502500
ABDRM SXD ERORBX,4 STORE LINKAGE F2ZA1510
LXA SWICH1,4 F2502520
LXA L(5),2 INITIALIZE DRUM READING ERROR COUNTER. F2502530
PGPG4 RDS 194,4 F2502540
LXA BLKSZE,1 = OF INST PLUS CHECK SUM F2502550
LDA ABDRMA+1,4 F2502560
CPY CHEKSM F2502570
PGPG8 CPY RTXAC+1000,1 F2502580
TIX PGPG8,1,1 F2502590
CLA L(0) F2502600
LXA BLKSZE,1 F2502610
PGPG10 ACL RTXAC+1000,1 F2502620
TIX PGPG10,1,1 F2502630
SLW ERAB F2502640
CLA CHEKSM F2502650
SUB ERAB F2502660
TZE PGPG14 F2502670
TIX PGPG4,2,1 READING ERROR TRY AGAIN 4 TIMES, F2502680
TXL PGPG12,4,0 WHICH DRUM. F2502690
TSX DIAG,4 DRUM 1 READ INCORRECTLY 5 TIMES. F2502700
PGPG12 TSX DIAG,4 DRUM 2 READ INCORRECTLY 5 TIMES. F2502710
PGPG14 LXD ERORBX,4 F2502720
TRA 1,4 F2502730
REM ************************************************************ F2502740
TDOTG LXA L(5),1 S CALLED BY MAN TO READ IN A NEST OF DOTAG ENTRIES. F2502750
TDOTG1 LXA LMXDTG,2 F2502770
RDS 146 LOC. OF DOTAGZ F2502780
TDOTG4 CPY DOTAGZ,2 F2502790
TXI TDOTG4,2,-1 F2502800
TRA 1,4 EF END OF PROBLEM F2502810
WRS 219 F2502820
RTT F2502830
TRA TDOTG5 ERROR F2502840
TRA 2,4 RECORD CORRECTLY READ F2502850
TDOTG5 BST 146 BACKSPACE AND REPEAT F2502860
TIX TDOTG1,1,1 IF NOT YET READ 3 TIMES F2502870
TSX DIAG,4 TAPE 4 READ INCORRECTLY 5 TIMES. F2502880
REM ************************************************************ F2502890
REM TTG IS CALLED BY MAN TO READ IN A NEST OF TAGTAG ENTRIES F2502900
TTG LXA LMXTG,2 LOCATION OF MAX TAP TABLE SIZE F2502910
TTG01 LXA L(5),1 INITIALIZE TAPE ERROR COUNTER. F2502920
TTG02 RDS 148 F2502930
SXD TTG10,2 FOR ERROR BACKUP IN READING F2502940
TTG05 CPY MXTGTG,2 F2502950
TRA TTG06 F2502960
TSX DIAG,4 FALXE END OF FILE ON TAPE 4. F2502970
TRA TTG07 END OF RECORD, CORRECT-EXIT. F2502980
TTG06 TIX TTG05,2,1 F2502990
TSX DIAG,4 BUFFFR EXCEEDED. F2503000
TTG07 WRS 219 F2503010
RTT F2503020
TTG10 TXL TTG16 ERROR IN READING F2503030
TXI TTG11,2,4 FIRST WORD LAST ENTRY F2503040
TTG11 CLA MXTGTG,2 FOR NEST END TEST F2503050
SUB ALLONE END OF NEST INDICATOR F2503060
TTG13 TZE 1,4 END OF NEST F2503070
TIX TTG01,2,4 F2503080
TTG16 LXD TTG10,2 TAPE ERROR ROUTINE , LOAD F2503090
BST 148 TAG TABLE INDEX AND RETRY F2503100
TIX TTG02,1,1 UP T0 5 TIMES. F2503110
TSX DIAG,4 TAPE 4 READ INCORRECTLY 5 TIMES F2503120
REM ************************************************************ F2503130
REM DOGS IS CALLED BY MAN TD SELECT AN ALPHA OR BETA TO BE PRO F2503140
REM CESSED BY THE APPROPRIATE STATE (ALPHA OR BETA). F2503150
DOGS CLA L(0) INITIALIZING TO ZERO F2503160
STO A ALL CALLS REQUIRED FOR F2503170
STO B COMPARISON FOR EACH DO F2503180
STO SWICH F2503190
STO TEBBOX F2503200
LXD DOIND1,1 IF LEVEL OF LAST F2503210
TXL DOGS20,1 F2503220
CLA SWICH1 F2503230
TNZ DOGS20 F2503240
CLA DOTAGZ+5,1 ANALYZED DOTAG ENTRY F2503250
PDX 0,1 IS ONE THEN THE NEST F2503260
TXH DOGS20,1,1 HAS BEEN COMPLETELY F2503270
TRA 1,4 ANALYZED. IF NOT F2503280
DOGS20 LXA LMXDTG,1 START SCAN AT FIRST ENTRY F2503290
DOGS22 CLA SWICH F2503300
TNZ DOGS25 B PORTION UNDER CONSIDERATION F2503310
CLA DOTAGZ,1 A PORTION UNDER CONSIDERATION F2503320
ANA BIT1 F2503330
TNZ DOGS50 CONTINUE, ALREADY ANALYZED F2503340
CLA DOTAGZ,1 SETS UP A PORTION OF F2503350
PDX 0,2 DO FOR COMPARISON F2503360
SXD B,2 PUT A OF DO IN INDICATOR B F2503370
TRA DOGS30 PROCEED T/ COMPARIS0N F2503380
DOGS25 CLA DOTAGZ,1 B PORTION UNDER CONSIDERATION F2503390
ANA BIT2 MASK T0 INDICATE LOOKED AT F2503400
TNZ DOGS50 ALREADY ANALYZED, CONTINUE F2503410
CLA DOTAGZ,1 SET UP A IN F2503420
PDX 0,2 B WORD FOR COMPARISON F2503430
SXD A,2 F2503440
PAX 0,2 F2503450
SXD B,2 F2503460
DOGS30 CLA B F2503470
CAS TEBBOX F2503480
TRA DOGS45 T-B1 STORE B IN TEB8OX F2503490
TRA DOGS40 T=B1 COMPARE AS F2503500
TRA DOGS50 T-B1 CONTINUE F2503510
DOGS40 CLA TEABOX COMPARE AS F2503520
CAS A F2503530
TRA DOGS50 T-A CONTINUE F2503540
TSX DIAG,4 T=A, ERROR. F2503550
DOGS45 CLA A T-A STORE B IN TRBBOX F2503560
STO TEABOX F2503570
CLA B F2503580
STO TEBBOX F2503590
SXD DOIND1,1 RECORD THE DO POSITION F2503600
CLA SWICH RECORD SWITCH F2503610
STO SWICH1 F2503620
DOGS50 CLA SWICH REVERSE SWITCH FOR F2503630
SUB L(1) EITHER B OF SAME DO OR F2503640
SSP A OF NEXT DO F2503650
STO SWICH F2503660
TNZ DOGS60 TESTS A,B STATUS IF A F2503670
TXI DOGS60,1,-9 LOWERS INDEX FOR NEXT DO F2503680
DOGS60 TXH DOGS22,1 F2503690
LXD DOIND1,1 END OF SCAN F2503700
SXD DOIND,1 DO INDICATOR SET F2503710
LXA SWICH1,2 F2503720
CLA BIT1 ORDER TO PLACE BIT IN F2503730
TXL DOGS70,2,0 A OR B USED F2503740
ARS 1 INDICATOR POSITION F2503750
DOGS70 ORS DOTAGZ,1 F2503760
TRA 2,4 EXIT AFTER FINDING DO F2503770
REM *************************************************************F2503780
REM SCAN SCANS TAGTAG FOR THE FIRST ENTRY THAT IS MODIFIED BY A DF2503790
REM DO WHOSE ALLPHA IS LESS THAT THE CURRENT DOTAG BETA. F2503800
REM THIS TAG IS CALLED RTXTGX. F2503810
SCAN LXA LMXTG,1 COMPARE B WITH DOFOR F2503820
SCAN05 CLA B DOTAG A OF EACH TAGTAG F2503830
CAS MXTGTG,1 ENTRY IN NEST F2503840
TXI SCAN10,1,4 SEARCH COMPLETED. F2503850
TSX DIAG,4 EQUALITY IMPOSSIBLE. F2503860
TXI SCAN05,1,-4 G LESS THAN A. F2503870
SCAN10 TRA 1,4 F2503880
REM *************************************************************F2503890
REM FIND, BEGINNING WITH RTXTGX, SEARCHES FOR A TAGTAG ENTRY MODIF2503900
REM F1ED BY THE CURRENT DO. F2503910
FIND SXD FIND22,4 F2503920
LXD XTG,1 F2503930
FINDO4 TXI FIND10,1,-4 BUMP TO NEXT TGTG ENTRY. F2503940
FIND10 TXH FIND20,1 DECREMENT CONTAINS TGTG COUNT. F2503950
LXD FIND22,4 F2503960
TRA 1,4 END OF TGTG TABLE AND DO. F2503970
FIND20 CLA A COMPARE DOTAGA WITH F2503980
CAS MXTGTG,1 TGTG DOFOR DOTAG A. F2503990
TRA FIND10+1 END OF DO. F2504000
NOP F2504010
TSX TGFM,4 F2504020
TSX ISC,4 F2504030
FIND22 TXL FINDO4,0 POSIND=3 IF LEFTMmST SYMBmL. F2504040
PXD 0,2 2IF CENTER. F2504050
ARS 18 1 IF RIGHTMOST. F2504060
STO POSIND F2504070
LXD FIND22,4 F3504080
TRA 2,4 SUCCESSFUL SEARCH. F2504090
REM *************************************************************F2504100
REM ISC IS CALLED BY FIND TO TEST FOR MODIFICATION. F2504110
ISC LXA L(1),2 COMPARE SUBSCRIPT F2504120
CLA DOIND WITH THE INDEX F2504130
SUB TAG2+3,2 OF THE CURRENT DO. F2504140
TZE 2,4 CURRENT DO MODIFIES THIS TAG. F2504150
TXI ISC+5,2,1 TRY NEXT LEFT F2504160
TXL ISC+1,2,3 SUBSCRIPT. F2504170
TRA 1,4 NO MODIFICATION, ERROR RETURN. F2504180
REM *************************************************************F2504190
REM TGFM TAKES A TAG ENTRY AND STORES ITS INFORMATION INTO F2504200
REM WORKING TGTG. F2504210
TGFM CLA MXTGTG,1 F2504220
STD TAG1 IN WORKING TGTG. F2504230
PAX 0,2 A, X1, X2, X3, TG, TG1. F2504240
SXD TAG2,2 F2504250
CLA MXTGTG+1,1 F2504260
STD TAG2+1 F2504270
PAX 0,2 F2504280
SXD TAG2+2,2 F2504290
CLA MXTGTG+2,1 F2504300
STO TAG3 F2504310
CLA MXTGTG+3,1 F2504320
STO TAG4 F2504330
TRA 1,4 F2504340
REM *************************************************************F2504350
REM ENTR SIMJLATES A TAU ENTRY AND SPREADS IS INTO WORKING TAG--(F2504360
ENTR LXD DOIND,2 SYMBOL OF DO IS F2504370
CLA DOTAGZ+1,2 PLACED IN WRKSC F2504380
STO WRKSC+1 AND COEF. IS SET F2504390
CLA L1DEC =1. THIS SIMULATES F2504400
STO WRKSC A TAU TABLE ENTRY. F2504410
TRA 1,4 F2504420
REM *************************************************************F2504430
REM SUBCOM SPREADS A TAU ENTRY INTO WORKING TAG F2504440
SUBCOM SXD SUB085,4 SAVE LINKAGE. F2504450
LXA L(5),1 F2504460
STO SUBTAG F2504470
SUB010 RDS 196 SELECT TAU DRUM. F2504480
LXD SUBORG+2,4 INITIALIZE F2504490
PXD 0,0 SUBSCRIPT COMBINATION F2504500
SUB020 STO WRKSC+8,4 TO ZERO. F2504510
TIX SUB020,4,1 F2504520
CLA SUBTAG F2504530
LRS 9 F2504540
PAX 0,6 TAU 1,2, OR 3 F2504550
PXD 0,0 TAU 1 ADD. IS ORG+3TAU. F2504560
LLS 9 TAU2 ADD. IS ORG+5TAU. F2504570
STO SUBES1 TAU THREE ADD. IS ORG+7TAU. F2504580
ALS 1 STORE F2504590
STO SUBES2 ADRRESS F2504600
CLA SUBORG+3,4 F2504610
ADD SUBES1 FOR LDA F2504620
SUB030 ADD SUBES2 INSTRUCTION F2504630
TIX SUB030,4,1 F2504640
STA SUBES1 ACTUAL DRUM ADDRESS. F2504650
LDA SUBES1 COPY SUB. COMBINATION F2504660
CPY WRKSC WD1 IS C1 AND C2. F2504670
TXL SUB040,2,2 1 AND 2 DIM SKIP WD5. F2504680
CPY WRKSC+4 WD5 IS C3. F2504690
SUB040 CPY WRKSC+1 WD2 IS S1, F2504700
TXL SUB060,2,1 1 DIM., SKIP WDS 4,6,7. F2504710
CPY WRKSC+3 WD4 IS S2. F2504720
TXL SUB050,2,2 1 AND 2 DIM SKIP WD 6 F2504730
CPY WRKSC+5 WD6 IS S3. F2504740
SUB050 CPY WRKSC+6 WD7 IS DIMENSI0N F2504750
SUB060 CPY SUBES1 CHECK-SUM INTO-SUBES1. F2504760
LXD SUBORG,4 COMPUTE CHECK-SUM. F2504770
CAL WRKSC F2504780
SUB070 ACL WRKSC+7,4 F2504790
TIX SUB070,4,1 3 ATTEMPTS ARE MADE F2504800
SLW SUBES2 TO READ SC CORRECTLY, F2504810
CLA SUBES2 IF ERROR STILL PRESENT, F2504820
SUB SUBES1 COMPLETE ROUTINE, RETURN. F2504830
TZE SUB075 CHECK SUMS AGREE, TRA. F2504840
TIX SUB010,1,1 ERROR, TRY UP TO 5 TIMES. F2504850
TSX DIAG,4 DRUM 4 READING ERROR 5 TIMES. F2504860
SUB075 LXD SUBORG+1,4 REARRANGE C1,C2,D1, AND D2. F2504870
SUB080 CLA WRKSC+7,4 F2504880
PAX 0,2 C2 INTO XB. F2504890
ANA DECMSK F2504900
STO WRKSC+7,4 WD1 DECREMENT IS C1) F2504910
PXD 0,2 WD7 DECREMENT IS D1. F2504920
TNX SUB090,4,6 F2504930
STO WRKSC+2 F2504940
SUB085 TXL SUB080,0 F2504950
SUB090 STO WRKSC+7 WD8 DECREMENT IS D2. F2504960
LXD SUB085,4 RESTORE LINKAGE INDEX. F2504970
SUB100 TRA 1,4 F2504980
SUBORG OCT 000006001356 DECREMENT IS 6, ADD. IS ORG. TAU3. F2504990
OCT 000007000454 DECREMENT IS 7, ADD. IS ORG. TAU2 F2505000
OCT 000010000000 DECREMENT IS 8, ADD. IS ORG. TAU1 F2505010
SUBES1 HTR F2505020
SUBES2 HTR F2505030
SUBTAG F2505040
REM *************************************************************F2505050
REM LOC0 ASSIGNS A RELATIVE LOCATION (INSTRUCTION NUMBER), AND UPF2505060
REM DATES A COUNTER FOR THE NEXT ASSIGNMENT. F2505070
LOC0 CLA LOCIND F2505080
TZE 1,2 LOCATION ALREADY ASS1GNED. F2505090
CLA L(0) IF LOCIND GREATER F2505100
STO LOCIND F2505110
CLA CIL00 TO ZERO. F2505120
TNZ 1,2 IF CIL00 HAS NOT BEEN F2505130
CLA VCTR F2505140
STO CIL00 UPDATE VCTR. F2505150
ADD L(8) F2505160
STO VCTR - F2505170
TRA 1,2 START COMPARING BUFFER F2505180
REM *************************************************************F2505190
REM CIT ENTERS A COMPILED INSTRUCTION INTO THE COMPILED INSTRUCTIF2505200
REM ION BUFFER. IF THE BUFFER IS FULL, CITSP (WHICH IS PART OF CF2505210
REM CIT) WRITES IT ONTO TAPE 3. F2505220
CIT SXD E2C,1 SIZE T0 CURRENT WORD COUNT. F2505230
SXD E3C,2 F2505240
TSX LOC0,2 F2505250
LXD BB0X,2 COMP OF CURRENT WORD COUNT. F2505260
TXH CIT04,2,-100 IF BUFFER INITIALLY F2505270
CITSP LXD BB0X,2 F2505280
TXL CIT04,2,0 WRITE F2505290
WRS 147 BUFFER F2505300
LXA L(0),1 0N TAPE 3. F2505310
CIT01 CPY CIB,1 COPY LOOP. F2505320
TXI CIT02,1,-1 F2505330
CIT02 TXI CIT03,2,1 DROP WORD COUNT. F2505340
CIT03 TXH CIT01,2,1 TEST FOR BUFFER DNE. F2505350
CIT04 LXA L(4),1 PROCEED TO NEW F2505360
CIT05 CLA CIL00+4,1 INST INTO BUFFER. F2505370
STO CIB,2 F2505380
TXI CIT07,2,-1 KEEP WORD COUNT UPDATED. F2505390
CIT07 TIX CIT05,1,1 F2505400
SXD BB0X,2 SAVE CURRENT WD CT, F2505410
LXD E2C,1 F2505420
LXD E3C,2 F2505430
TRA 1,4 F2505440
REM *************************************************************F2505430
REM SCLMN1 ISOLATES THE INNERMOST DOTAG CONTROLLING A GIVEN TAG F2505460
SCLMN1 LXD TAG2,1 S1 INDEX QUANTITY. F2505470
LXD TAG2+1,2 S2 INDEX QUANTITY. F2505480
SXD SCLMN2,2 THIS ROUTINE F2505490
SCLMN2 TXH SCLMN3,1 COMPARES SIZES F2505500
LXD SCLMN2,1 OF THE INDEX F2505510
SCLMN3 LXD TAG2+2,2 QUANTITIES OF F2505520
SXD SCLMN4,2 EACH SUBSCRIPT IN A TAG. F2505530
SCLMN4 TXH SCLMN5,1 LARGEST 2.X. QUANTITY F2505540
LXD SCLMN4,1 IS FOUND AND LEFT IN F2505550
SCLMN5 PXD 0,1 ACC FOR COMPARISON WITH DOIND. F2505560
TRA 1,4 F2505570
REM *************************************************************F2505580
REM TELC MONITORS THE COMPUTING OF THE LOAD PORTION OF THE TEST F2505590
REM DECREMENT. F2505600
TELC LXA L(3),1 F2505610
CLA L(0) F2505620
STO ERTX01 F2505630
SXD LINKC,4 F2505640
TELC05 CLA TAG2+3,1 SEQUENCE. PUT S IN XB T0 PREPARE F2505650
PDX 0,2 FOR CN1IJ ROUTINE. F2505660
TXL TELC10-2,2,0 NO S, GO TO NEXT S. F2505670
TSX CN1IJ,4 COMPUTE (CN1-1)IJ-ETC. F2505680
ADD ERTX01 . F2505690
STO ERTX01 (C1N1)+(C2N1-1)D1+(C3N1-1)D1D2. F2505700
TELC10 TIX TELC05,1,1 GO TO NEXT S FOR CN1IJ ROUTINE. F2505710
LXD LINKC,4 F2505720
TRA 1,4 F2505730
REM *************************************************************F2505740
REM CN1IJ COMPUTES THE LOAD VALUE FOR A GIVEN SUBSCRIPT IN A F2505750
REM SUBSCRIPT COMBINATION. (C1N1-1), OR (C2N1-1)D1 F2505760
CN1IJ LDQ DOTAGZ+2,2 N2 INTO MQ. F2505770
LLS 18 F2505790
TXL CN1IJ2,1,2 S2 OR S3, TRANSFER. F2505800
MPY WRKSC S1, F2505810
SUB L(2) F2505820
TRA CN1IJ8 F2505830
CN1IJ2 TXL CN1IJ4,1,1 DIVIDE BY 2 AND RETURN. F2505840
MPY WRKSC+2 S2 F2505850
SUB L(2) COMPUTE F2505860
LRS 18 (2C2N1-2)D1D2 THEN F2505870
MPY WRKSC+6 GO TO CN1IJ8 TO DIVIDE F2505880
TRA CN1IJ8 BY 2 AND RETURN. F2505890
CN1IJ4 MPY WRKSC+4 S3, F2505900
SUB L(2) COMPUTE F2505910
LRS 18 (2C3N1-2)D1D2 THEN F2505920
MPY WRKSC+6 GO TO CN1IJ8 TO DIVIDE F2505930
LRS 18 DIVIDE BY 2 AND F2505940
MPY WRKSC+7 RETURN. F2503950
CN1IJ8 ARS 1 DIVIDE BY 2, RESULT IS (C1N1-1) F2505960
TRA 1,4 OR (C2N1-1)D1 OR (C3N1-1)D1D2 F2505970
REM *************************************************************F2505980
REM CXIJ COMPUTES GN3X. WHEN THE ROUTINE CXIJ+2 IS CALLED, F2505990
REM GQ IS COMPUTED, Q BEING WHATEVER PARAMETER IS LEFT IN THE ACCF2506000
REM BY THE CALLER. . F2506010
CXIJ CLA DOTAGZ+5,2 F2506020
ANA ADMSK ISOLATE X QUANTITY. F2506030
STO ERTX03 F2506040
TXH CXIJ+6,1,1 S2 OR S1. F2506050
LDQ WRKSC+4 S3, LOAD C3. F2506060
TRA CXIJ2 F2506070
TXL CXIJ1,1,2 S2. F2506080
LDQ WRKSC S1, LOAD C1. F2506090
TRA CXIJ2 F2506100
CXIJ1 LDQ WRKSC+2 S2, LOAD C2. F2506110
CXIJ2 MPY ERTX03 F2506120
TXH CXIJ4,1,2 IF S1, FINISHED. F2506130
LRS 18 F2506140
MPY WRKSC+6 CX TIMES D1. F2506150
TXH CXIJ4,1,1 IF S2, FINISHED. F2506160
LRS 18 F2506170
MPY WRKSC+7 CXD1 TIMES D2. F2506180
CXIJ4 LLS 17 F2506190
TRA 1,4 IN ACC. AND RETURN. F2506200
REM *************************************************************F2506210
REM CSXD COMPILES AN SXD INSTRUCTION WHERE THE ADDRESS IS NOT YETF2306220
REM KNOWN, BUT IS KNOWN T0 BE THE TEST FOR A GIVEN DO. THE F2506230
REM ADDRESS WORD IS FILLED IN WITH THAT DOTAG ALPHA-BETA AND THE F2306240
REM LOCATION OF THE SXD IS STORED IN THAT DQTAG SO THAT A TABLE (F2506250
REM (SXDTX) MAY BE MADE FOR REFERENCE BY SECTION 3 T0 FILL IN THEF2506260
REM PROPER ADDRESS DURING MERGE. F2506270
CSXD SXD ERTX01,4 ROUTINE FOR F2506280
TSX CILV,4 COMPILING AN F2506290
CLA L(0) SXD INSTRUCTION F2506300
STO CIL03 WHERE THE F2506310
STO CIL02 F2506320
LXD BLKNUM,4 F2506330
TXL CSXD4,4,2 BLOCKS B,C. F2506340
LXD TAG21,4 BLOCKS D,E, LOAD S2 INDEX. F2506350
TRA CSXD4+1 F2506360
CSXD4 LXD TAG2,4 BLOCKS B,C, LOAD S1 INDEX. F2506370
CLA DOTAGZ,4 FOR BLOCKS B,C, FILL IN F2506380
ANA N0PRET SYMBOLIC ADDRESS OF SXD F2506390
STO CIL02 FROM WD1 OF S1 DOTAG. F2506400
CLA TAG3 NOT KNOWN. F2506410
STA CIL03 F2506420
CLA L(SXD) F2506430
STO CIL01 F2506440
TSX CIT,4 F2506450
LXD ERTX01,4 F2506460
TRA 1,4 F2506470
REM *************************************************************F2506480
REM ADTGSE FINDS A VALID DRMTG (ADTAG) ENTRY FOR CONSIDERATION F2506490
REM AND SPREADS IT INTO WORKING TAG (WRKSC). F2506500
ADTGSE LXD XTG,1 F2506510
ADTGS TXI ADTGS+1,1,-4 F2506520
SXD XTG,1 F2506530
ADTGS1 TXH ADTGS5,1 F2506540
TRA 1,4 END OF TABLE. F2506550
ADTGS5 CLA ADTGMX,1 COMPARE ADTG DDA WITH F2506560
ANA DECMSK DOTAG A AND B UNTIL F2506570
CAS A WE FIND AN ADTAG F2506580
TRA ADTGS4 MODIFIED BY A DO THAT F2506590
TRA ADTGS4 IS WITHIN THE RANGE F2506600
TRA ADTGS OF THE CURRENT DO F2506610
ADTGS4 CAS B F2506620
TRA ADTGS NOT IN RANGE, SELECT NEXT F2506630
TSX DIAG,4 EQUALITY IMPOSSIBLE. F2506640
CLA ADTGMX,1 IN RANGE, FILL F2506650
PDX 0,2 OUT WORKING TAG. F2506660
SXD TAG1,2 DDA IN TAG1 DECREMENT. F2506670
PAX 0,2 F2506680
SXD TAG2,2 S1 INDEX IN TAG2. F2506690
CLA ADTGMX+1,1 F2506700
PDX 0,2 F2506710
SXD TAG2+1,2 S2 INDEX IN TAG2+1. F2506720
PAX 0,2 F2506730
SXD TAG2+2,2 S3 INDEX IN TAG2+2. F2506740
CLA ADTGMX+2,1 F2506750
STO TAG3 TAG NAME IN TAG3. F2506760
CLA ADTGMX+3,1 F2506770
STO TAG4 ADTG WD4 IN TAG4. F2506780
ADTGS8 LXA L(1),2 INIT FOR POSING. F2506790
CLA TAG2+3,2 F2506800
SUB DOIND TEST FOR MODIFICATION, F2506810
TZE 2,4 PROPER ENTRY FOUND. F2506820
TXH ADTGS,2,2 NOT MOD BY DO, TAKE NEXT SUBSCRIPT F2506830
TXI ADTGS8+1,2,1 ADTG NOT MOD BY DO, TAKE NEXT ADTG. F2506840
REM *************************************************************F2506830
REM N1STET ISOLATES VARIABLE N1 BITS FOR A TAG AND ORS THEM TO LF2506860
REM LAST 3 BITS OF THE WORD N1SBX. F2506870
N1STET CLA TAG4 F2506880
ARS 3 ONE BIT F2506890
ANA L(7) IS STORED IN N1SBX. F2506900
ALS 3 F2506910
STO N1SBX F2506920
LXA L(3),1 F2506980
N1S02 CLA TAG2+3,1 A CONATAINS POSIND. F2506990
PDX 0,2 F2507000
TXL N1S05,2 NO TAG FOR THIS POS. F2507010
CLA DOTAGZ,2 ISOLATE F2507020
ARS 15 VARIABLE F2507030
ANA L(4) N1 F2507040
ARS 3,1 BIT. F2507050
ORS N1SBX OR N1BIT TO N1SBX. F2507060
N1S05 TIX N1S02,1,1 REPEAT FOR NEXT RIGHT S. F2507070
CLA N1SBX F2507080
TRA 1,4 F2507090
REM *************************************************************F2507100
REM FIXCON SCANS THE FIXCON DRUM TABLE FOR A DESIRED SYMBOL FOR AF2507110
REM FIXED POINT CONSTANT. IF THE DESIRED FIXCON IS NOT THERE A SF2507120
REM SYMBOL IS CREATED FOR IT AND AN ENTRY IS MADE. F2507130
FIXCON SXD FC29,1 SAVE F2507140
SXD FC18,2 INDEX F2507150
SXD FC34,4 REGISTERS. F2507160
STO ERDRM1 F2507170
LXA L(5),4 F2507180
FC02 CLA ORIGIN FIXCON TABLE ORIGIN. F2507190
STO AD1 F2507200
LXA L(0),1 INITIALIZE WORD COUNT TEST INDICATOR. F2507210
LXA L(2),2 INITIALIZE INDICATOR FOR TWO PASSES. F2507220
FC04 CLA ERDRM1 COMPARISON WORD IN ACCUMULATOR. F2507230
RDS 194 FIXCON TABLE F2507240
LDA AD1 ON DRUM 3. F2507250
FC08 CPY CPYWD1 ENTRY FROM TABLE. F2507260
TXH FC24+1,1 DECREMENT CONTAINS WORD COUNT. F2507270
CPY CPYWD2 CHECK SUM. F2507280
TLQ FC30 ENTRY LESS THAN COMPARISON WORD. F2507290
CPY ERDRM SKIP EVEN ENTRIES FOR 2ND PASS. F2507300
CAS CPYWD2 COMPARE ENTRY WITH COMPARISON WORD. F2507310
TSX DIAG,4 TLQOBVIATES THIS PATH. F2507320
FC18 TXL FC60,0 EQUALITY SEARCH ENDED. F2507330
FC20 CPY ERDRM SKIP EVEN ENTRIES FOR 2ND PASS. F2507340
FC24 TXI FC08,1,2 BUMP WORD COUNT TEST INDICATOR F2507330
TNX FC40,2,1 TEST FOR PASS CONDITION. F2507360
CLA AD1 INITIALIZE ORIGIN DRUM F2507370
ADD L(2) ADDRESS FOR 2ND PASS F2507380
STO AD1 (EVEN ENTRIES) F2507390
FC28 LXA L(1),1 SET ENTRY NUMBER FOR SECOND PASS. F2507400
FC29 TXL FC04,0 RETURN TO FC04 FOR SECOND PASS. F2507410
FC30 CPY ERDRM F2507420
FC34 TXL FC20,0 F2507430
FC40 STO CPYWD1 SEARCH ENDED, ENTRY NOT FOUND. F2507440
LXD FC08+1,1 F2507450
TXI FC42,1,1 WORD COUNT, F2507460
FC42 SXD FC08+1,1 NEW TEST VALUE (WORD COUNT). F2507470
PXD 0,1 WORD COUNT F2507480
ARS 17 PLUS F2507490
ADD ORIGIN ORIGIN EQUALS F2507500
STO AD1 NEW ADDRESS FOR DRUM WRITING. F2507510
WRS 194 SELECT F2507520
LDA AD1 DRUM AND F2507530
CPY CPYWD1 WRITE NEW CONSTANT F2507540
CPY CPYWD1 AND CHECK SUM ON DRUM. F2507550
FC50 PXD 0,1 PLACE NAME OF CONSTANT F2507560
ARS 18 IN ACCUMULATOR, RESTORE X REGISTERS, F2507570
ORA BCD2 AND RETURN F2507580
LXD FC29,1 TO F2507590
LXD FC18,2 MAIN F2507600
LXD FC34,4 F2507610
TRA 1,4 ROUTINE. F2507620
FC60 CLA CPYWD1 TEST DRUM READING F2507630
SUB CPYWD2 F2507640
TZE FC50 DRUM READ CORRECTLY. F2507650
TIX FC02,4,1 RETURN FOR 1ST-PASS. F2507660
STOPFC TSX DIAG,4 DRUM 4 READING ERROR 5 TIMES. F2507670
ORIGIN HTR 2 F2507680
REM *************************************************************F2507690
REM OP2 IS CALLED BY THE ALPHA STATE TO TEST FOR OPTIMIZATION IN F2507700
REM THE COMILATION OF LOAD VALUE COMPUTATION. IT OPTIMIZES WHEN F2507710
REM (CN1-1)=0 OR IS COMPUTABLE AT EXECUTIVE TIME. F2507720
0P2 CLA 32766,4 F2507730
STA RETURN LINKAGE. F2507740
CLA TAG2+3,1 IF S IS NOT F2507750
PDX 0,2 DEFINED BY A DO, F2507760
TXH 0P2P,2,0 F2507770
TRA 1,4 F2507780
0P2P CLA DOTAGZ+2,2 IF NOT DEFINED BY F2507790
ANA 6ONES F2507800
TNZ 1,4 RETURN TO MAIN ROUTINE. F2507810
CLA DOTAGZ+2,2 IF CONSTANT, COMPUTE F2507820
TSX CN1IJ,4 F2507830
TZE RETURN RETURN AND CONSIDER S2. F2507840
ALS 18 OTHERWISE COMPUTE F2507850
TXL 0P2P1,1,2 F2507860
ADD L1DEC TO (CN1-1). F2507870
0P2P1 TSX FIXCON,4 F2507880
TXL 0P2P2,1,2 F2507890
STO OR000+1 F2507900
TIX AC050,1,1 F2507910
0P2P2 PAX 0,1 F2507920
ANA 6ONES ASSIGN FIXCON SYMBOL F2507930
STO CIL02 CHECK SUBSCRIPT. IF F2507940
PXD 0,1 S1, TRA RETURN (3RD) OTHERWISE F2507930
STO CIL03 COMPILE ADD L(SYMBOl). F2507960
CLA L(ADD) STO 1)+3. F2507970
STO CIL01 F2507980
CLA L(0) F2507990
STO CIL00 F2508000
LXD BB0X,1 F2508010
TXI 0P24,1,4 F2508020
0P24 SXD BB0X,1 F2508030
TSX CIT,4 F2508040
CLA L(STO) F2508050
STO CIL01 F2508060
CLA L3DEC F2508070
STO CIL03 F2508080
CLA OR000+26 F2508090
ANA 6ONES F2508100
STO CIL02 F2508110
TSX CIT,4 F2508120
RETURN TRA 0 ADDRESS MODIFIED, F2508130
REM *************************************************************F2508140
REM OP3 TESTS FOR VARIABLE NS AND IF CONSTANT COMPILES A F2508150
REM CLA L(N2-N1), OR IF VARIABLE CLA L(N2)....SUBL(N1), F2508160
OP3 SXD EROP3,4 F2508170
CLA DOTAGZ,2 ARE ALL F2508180
ARS 15 N PARAMETERS F2508190
ANA L(7) CONSTANT. F2508200
TNZ OP31 NO, OP31. F2508210
CLA DOTAGZ+3,2 YES, F2508220
SUB DOTAGZ+2,2 FORM F2508230
ALS 18 N2-N1, F2508240
TSX FIXCON,4 OBTAIN FIXCON SYMBOL F2508250
PAX 0,4 COMPILE F2508260
ANA 6ONES CLA F2508270
STO CIL02 L(N2-N1) F2508280
PXD 0,4 AND F2508290
STO CIL03 RETURN F2508300
CLA L(CLA) TO F2508310
STO CIL01 THE F2508320
CLA L(0) CALLER. F2508330
STO CIL00 ZERO LOCATION. F2508340
TSX CIT,4 F2508350
LXD EROP3,4 F2508360
TRA 1,4 F2508370
OP31 ARS 1 F2508380
LBT F2508390
TRA OP32 F2508400
CLA DOTAGZ+3,2 N2 VARIABLE, F2508410
STO CIL02 COMPILE F2506420
CLA L(0) CLA L(N2). F2508430
STO CIL03 F2508440
TRA OP33 F2506450
OP32 CLA DOTAGZ+3,2 F2508460
ALS 18 F2508470
TSX FIXCON,4 F2508480
PAX 0,4 F2508490
ANA 6ONES F2508500
STO CIL02 F2508510
PXD 0,4 F2508520
STO CIL03 F2508530
OP33 CLA L(0) F2508540
STO CIL00 F2508550
CLA L(CLA) F2508560
STO CIL01 F2508570
TSX CIT,4 F2508580
CLA DOTAGZ,2 F2508590
ARS 17 F2508600
LBT F2508610
TRA OP34 F2508620
CLA DOTAGZ+2,2 N1IS VARIABLE, F2508630
STO CIL02 PREPARE TO F2508640
CLA L(0) COMPILE F2508650
STO CIL03 SUBL(N1). F2508660
TRA OP35 F2508670
OP34 CLA DOTAGZ+2,2 N1 CONSTANT, F2508680
ALS 18 OBTAIN F2508690
TSX FIXCON,4 FIXCON SYMBOL F2508700
PAX 0,4 FOR N1 F2508710
ANA 6ONES AND PREPARE F2508720
STO CIL02 TO COMPILE F2508730
SXD CIL03,4 SUB L(N1). F2508740
OP35 CLA L(SUB) COMPILE F2508750
STO CIL01 SUB F2508760
TSX CIT,4 L(N1) F2508770
LXD EROP3,4 . F2508780
TRA 1,4 F2508790
EROP3 F2508800
ER0P OCT 100 F2508810
REM *************************************************************F2508820
L(TXI) BCD 1TXI000 F2508830
L(PXD) BCD 1PXD000 F2508840
L(STO) BCD 1STO000 F2508850
L(SXD) BCD 1SXD000 F2508860
L(TIX) BCD 1TIX000 F2508870
L(TXL) BCD 1TXL000 F2508880
L(DED) BCD 1DED000 F2508890
L(LXD) BCD 1LXD000 F2508900
L(STD) BCD 1STD000 F2508910
L(CLA) BCD 1CLA000 F2508920
L(ADD) BCD 1ADD000 F2508930
L(SUB) BCD 1SUB000 F2508940
L(BSS) BCD 1BSS000 F2508950
LMXDTG 450 F2508960
MAXLOC OCT 400 F2508970
L1DEC OCT 1000000 F2508980
DRADS1 OCT 2664 F2508990
DRADS2 204 F2509000
DRADS3 2 F2509010
AD202 202 F2509020
L(17) 17 F2509030
L(OR0) OR000 F2509040
ESTORE HTR 0 F2509050
N0PRET OCT 077777077777 F2509050
ABDRMA DEC 1000 F2509070
BLKSZE DEC 1000 F2509080
MINUS1 OCT 77776 F2509090
L3DEC OCT 000003000000 F2509100
L(7) 7 F2509110
BCD15 OCT 170000000000 F2509120
BCD0 OCT 060000000002 F2509130
BCD2 OCT 020000000000 F2509140
BIT01 OCT 600000000000 F2509150
T1MSK OCT 700000077777 F2509160
6ONES OCT 770000000000 F2509170
TETMSK OCT 007777000000 F2509180
L(6) 6 F2509190
L(24) 24 F2509200
L(8) 8 F2509210
L(K1) OCT 10 F2509220
L4DEC OCT 000004000000 F2509230
INST20 ADTGA F2509240
INST22 MXTGA F2509250
INST24 RTX160 F2509260
INST26 RTX184 F2509270
INST30 RTX264 F2509280
INST32 RTX226 F2509290
LMXTG 672 F2509300
LHXTGA 200 F2509310
ALLONE OCT 377777777777 F2509320
LZEKMX 100 F2509330
LADMX 400 F2509340
L(1) 1 F2509350
L(2) 2 F2509360
L(4) 4 F2509370
L(3) 3 F2509380
L(5) 5 F250939D
L(0) 0 F2509411
L(10) 10 F2509410
L(16) 16 F2509420
BIT1 PTW 0 F2509430
BIT2 PON 0 F2509440
BIT8 OCT 002000000000 F2509450
ADMSK OCT 77777 F2509460
DECMSK OCT 077777000000 F2509470
SMSK F2509480
SMSK1 OCT 760 F2509490
SMSK2 OCT 774 F2509500
SMSK3 OCT 763 F2509510
SMSK4 OCT 773 F2509520
BITMSK OCT 20 F2509530
OCT 10 F2509540
0PMSK OCT 74030 F2509550
11BITS OCT 3777 F2509560
BIT20 OCT 100000 F2509570
36ONES OCT 777777777777 F2509580
INST2 LXA L(4),1 F2509590
INST3 LXA L(2),1 F2509600
INST4 TRA AC224 F2509610
INST5 TRA AC228 F2509620
INST8 AC244 F2509630
INST10 ADTGA F2509640
INST11 AC010 F2509650
INST12 MXTGA F2509660
INST13 TRA AC155 F2509670
INST14 TSX CIL03I,4 F2509680
6ONESR OCT 77 F2509690
6T017 OCT 007777000000 F2509700
24T035 OCT 7777 F2509710
BB0X HTR F2509720
E2C HTR F2509730
E3C HTR F2509740
CIL00 BSS 1 F2509750
CIL01 BSS 1 F2509760
CIL02 BSS 1 F2509770
CIL03 BSS 1 F2509780
ERTGA BSS 1 F2509790
CHEKSM BSS 1 F2509800
TETTG BSS 1 F2509810
SWICH2 BSS 1 F2509820
ERLXC BSS 1 F2509830
AX BSS 1 F2509840
RELC0 BSS 1 F2509850
WRKTGA BSS 1 F2509860
N3X BSS 1 F2509870
XX BSS 1 F2509880
AD1 BSS 1 F2509890
AD2 BSS 1 F2509900
ADTGX BSS 1 F2509910
WRKRXT BSS 1 F2509920
TETTGX BSS 1 F2509930
RTXTGX BSS 1 F2509940
LOCIND BSS 1 F2509950
ERORBX BSS 1 F2509960
A BSS 1 F2509970
B BSS 1 F2509980
SWICH BSS 1 F2509990
TEBBOX BSS 1 F2510000
DOIND BSS 1 F2510010
DOIND1 BSS 1 F2510020
TEABOX BSS 1 F2510030
SWICH1 BSS 1 F2510040
N3IND BSS 1 F2510050
N1N2N3 BSS 1 F2510060
LINKC BSS 1 F2510070
XTG BSS 1 F2510080
POSIND BSS 1 F2510090
ER40 BSS 1 F2510100
ER41 BSS 1 F2510110
ARG BSS 1 F2510120
VCTR BSS 1 F2510130
ERTX01 BSS 1 F2510140
ERTX02 BSS 1 F2510150
ERTX03 BSS 1 F2510160
BLKNUM BSS 1 F2510170
SXDTXZ BSS 1 F2510180
OREDO BSS 1 F2510190
DEFDO BSS 1 F2510200
N1SBX BSS 1 F2510210
TETLOC BSS 1 F2510220
REM *************************************************************F2510230
REM BEGIN BETA STAGE F2510240
REM THE BETA STATE IS CALLED BY MAN TO COMPUTE AND COMPILE F2510250
REM INCREMENTING, TESTING, AND RESETTING INSTRUCTIONS FOR A GIVE F2510260
REM DO. F2510270
RTX SXD RTX024,4 F2510280
LXD VCTR,1 VARIABLE CTR. LAST BETA. F2510290
LXD DOIND,2 NEW DO F2510300
CLA DOTAGZ,2 ALPHA BETA WORD OF DO. F2510310
PAX 0,2 PLACE B IN X. F2510320
SXD RTX04,2 F2510330
RTX04 TXL RTX05,1 IS THIS THE FIRST BETA, F2510340
PXD 0,2 F2510350
ADD L(K1) FIRST B. SET F2510360
STO VCTR VCTR AND F2510370
CLA ALLONE INITIALIZE F2510380
STO CIL00 CIL BUFFER F2510390
STO CIL01 TO ALL ONES. F2510400
STO CIL02 F2510410
STO CIL03 F2510420
TSX CITSP,4 USE SPECIAL CIT ENTRY. F2510430
RTX05 CLA L(0) INITIALIZE THE TEST TAG F2510440
STO TETTGX INDEX FOR THIS DO TO ZERO. F2510450
STO XTG F2510460
STO RTXTGX F2510470
STO ADTGX F2510480
TSX N3BIT,4 ISOLATE N3 BIT OF DOTAG F2510490
TSX SCAN,4 F2510500
RTXIN1 SXD RTXTGX,1 STORE FIRST TTG FOR TX CYCLE. F2510510
SXD XTG,1 ENTRY THAT LIES BETWEEN A AND B F2510520
RTX06 TSX FIND,4 F2510530
TRA RTX180 END OF DO, START DMTG CYCLE. F2510540
SXD XTG,1 SC MODIFIED BY DO, STORE. F2510550
TSX TETG,4 PLACE TEST BITS IN TAG WORD. F2510560
TSX PRES,4 F2510570
REM AT THE END OF THIS ROUTINE THE BLO0K INDICATION IS IN XB. F2510580
TXH RTX160,2,4 BLOCK F, NO INSTRUCTIONS, GET NEW TAG. F2510590
TXH RTX70,2,0 BLOCK DIFFERENT FROM A OR F, F2510600
CLA N3IND BLOcK EQUALSA. F2510610
TNZ RTX68 DECREMENT OF RXA IS VARIABLE . F2510620
RTX020 LXD TAG3,1 DECREMENT IS CONSTANT. F2510630
TXH RTX50,1,0 TEST FOR INSERTED COUNTER. F2510640
CLA TAG3 OR RESET TAG. F2510650
LRS 11 F2510660
LBT F2510670
RTX024 TXL RTX30,0 RESET F2510680
TRA RTX34 COUNTER. F2510690
RTX30 CLA TAG3 IF RESET TAG, PUT TAG F2510700
ANA 11BITS NAME IN ACCUMULATOR AND F2510710
TRA RTX51 GO TO SUBCOM. F2510720
RTX34 TSX ENTR,4 IF COUNTER, MAKE F2510730
TRA RTX52 ARTIFICIAL ENTRY IN WRKSC. F2510740
RTX50 PXD 0,1 CURRENT TAG. F2510750
ARS 18 GET TAG NAME F2510760
RTX51 TSX SUBCOM,4 LAY OUT TAU ENTRY. F2510770
RTX52 CLA L(TXI) COMPILE F2510780
STO CIL01 TXI F2510790
LXA POSIND,1 PREPARE FOR F2510800
LXD DOIND,2 EXIT-ROUTINE. F2510810
TSX CN3IJ,4 ROUTINE COMPUTES DECREMENT N3G F2510820
STO ERTX01 AND STORES IN ERTX01. F2510830
LXA POSIND,1 F2510830
CLA TAG4 . TEST FOR DUPLICATE F2510840
LRS 12 SUBSCRIPTS AND COMPUTE F2510850
LLS 4,1 DECREMENT FOR THEM. F2510870
LBT TEST ON S1,S2, OR S3 FOR DUPES. F2510880
TRA RTX66 NO DUPLICATES FOR THIS SUBSCRIPT. F2510890
ARS 1 F2510900
LBT TEST FOR S1 OR S2 DUPES F2510910
TXI RTX62+3,1,2 DUPES ARE 1,3 ON TRANSFER F2510920
TXI RTX61,1,1 F2510930
RTX61 STO ERTX02 STORE STATUS OF ACCUMULATOR. DUPES ARE F2510940
TSX CN3IJ,4 1,2 OR 2,3 OR 1,2,3. F2510950
LXA POSIND,1 COMPUTE DECREMENT ADJUSTMENT F2510960
ADD ERTX01 FOR NEXT LEFT SUBSCR1PT. F2510970
STO ERTX01 REPLACE ADJUSTED DECREMENT IN ERTX01. F2510980
RTX62 TXI RTX62+1,1,2 F2510990
TXH RTX66,1,3 NOT 3RD SUBSCRIPT CASE, F2511000
CLA ERTX02 LOW ORDER BIT IS SUBSCRIPT LEFT OF DOSUB. F2511010
ARS 1 F2511020
LBT TEST FOR S1 DUPE. F2511030
TRA RTX66 F2511040
LXD DOIND,2 F2511050
TSX CN3IJ,4 COMPUTE DECREMENT ADJUSTMENT FOR S1 F2511060
ADD ERTX01 IN 1,2,3 AND 1,3 CASES. F2511070
STO ERTX01 FINAL DECREMENT ADJUSTMENT. F2511080
RTX66 CLA ERTX01 F2511090
STA CIL01 AFTER DECREMENT IS COMPUTED, FILL F2511100
TSX CIL023,4 OUT-4 WORDS OF F2511110
TSX CIT,4 COMPILED INSTRUCTION.P F2511120
TRA RTX69 AND CONTINUE. F2511130
RTX68 TSX CILV,4 DECREMENT IS VARIABLE. ASSIGN LOCATION. F2511140
CLA CIL00 PREPARE VCTR LOCATION F2511150
ANA ADMSK FOR TGA ROUTINE. F2511160
TSX TGA,4 PLACE LOCATION IN APPENDED TAGTAG WORD F2511170
TSX CIL23,4 AND THEN FILL OUT F2511180
CLA L(TXI) REMAINING WORDS OF F2511190
STO CIL01 COMPILED INSTRUCTION F2511200
TSX CIT,4 COMPILER ROUTINE. F2511210
RTX69 CLA TAG4 TEST FOR SYM8OL F2511220
TPL RTX160 INDICATION F2511230
LXD DOIND,2 FORVAR F2511240
CLA DOTAGZ+5,2 OCCURRANCE. F2511250
ANA BIT1 F2511260
TZE RTX160 NO FORVAR, CONTINUE. F2511270
CLA L(0) FORVAR EXISTS. F2511280
STO CIL00 F2511290
CLA TAG3 COMPILE F2511300
ANA ADMSK STORE F2511310
STO CIL03 INSTRUCTION F2511320
CLA L(SXD) FOR F2511330
STO CIL01 FORVAR OCCURRANCE. F2511340
LXD DOIND,2 F2511350
CLA DOTAGZ+1,2 PUT FORVAR SUBSCRIPT F2511360
STO CIL02 IN RELATIVE ADDRESS F2511370
TSX CIT,4 WORD FOR SXD INSTRUCTION. F2511380
TRA RTX160 F2511390
RTX70 TXH RTX90,2,1 BLOCK IS B,C,D QR E. F2511400
SXD BLKNUM,2 F2511410
LXD TAG2,2 BLOCK B FIRST DETERMINE F2511420
TSX NBITS,4 IF DECREMENT IS VARIABLE F2511430
ADD N3IND F2511440
TNZ RTX80 DECREMENT IS VARIABLE. F2511450
CLA TAG3 DECREMENT IS CONSTANT. F2511460
ARS 18 F2511470
TSX SUBCOM,4 LAY OUT TAU INTO WRKSC. F2511480
LXD DOIND,2 PREPARE FOR F2511490
LXA POSIND,1 EXIT ROUTINE. F2511500
TSX CN3IJ,4 COMPUTE N3G AND F2511510
STO ERTX01 STORE IN ERTX01. F2511520
LXD TAG2,2 F2511530
LXA POSIND,1 MOVE POSIND T0 LEFT SUB F2511540
TXI RTX72,1,1 AND COMPUTE XN3G F2511550
RTX72 TSX CXIJ,4 FOR LEFT SUB WHICH IS TEST. F2511560
SUB L(1) F2511570
STO ERTX02 F2511580
ADD ERTX01 ADDN3G FOR THIS SUBSCRIPT F2511590
STO ERTX01 RESULT IS TXI DECREMENT. F2511600
TSX EDCB,4 COMPILE TXI SXD TIX. F2511610
TRA RTX160 CHECK BEST TEST. F2511620
RTX80 TSX BCDE,4 BLOCK B IS VARIABLE. F2511630
TRA RTX160 F2511640
RTX90 TXH RTX110,2,2 BLOCK IS C,D, OR E. F2511650
SXD BLKNUM,2 BLOCK IS C, PUT IN XB. F2511660
LXD TAG2,2 ISOLATE F2511670
TSX NBITS,4 NBITS INTO N1N2N3. F2511680
ADD N3IND F2511690
TNZ RTX100 DECREMENT IS VARIABLE, TSX BCDE. F2511700
CLA TAG3 DECREMENT IS CONSTANT. F2511710
ARS 18 LAY OUT TAU F2511720
TSX SUBCOM,4 ENTRY INTO WRKSC. F2511730
LXD TAG2,2 COMPUTE F2511740
LXA L(3),1 XN3G-1 F2511750
RTX91 TSX CXIJ,4 FOR F2511760
SUB L(1) LEFT F2511770
STO ERTX02 SUBSCRIPT. F2511780
LXA POSIND,1 THEN COMPUTE N3G F2511790
TSX CN3IJ,4 FOR RIGHT F2511800
ADD ERTX02 SUBSCRIPT. F2511810
STO ERTX01 RESULT IS ERTX01. F2511820
CLA TAG4 F2511830
ARS 9 TEST FOR DUPES. F2511840
LBT F2511850
TRA RTX95 NO DOSUB DUPE. F2511860
LXA POSIND,1 DOSUB IS DUPE. F2511870
TXI RTX93,1,1 COMPUTE ADJUSTMENT F2511880
RTX93 TSX CN3IJ,4 FOR DECREMENT AND F2511890
ADD ERTX01 STORE IN ERTX01. F2511900
STO ERTX01 XN3G(L) + N3G(R) + N3G(C) - 1) F2511910
RTX95 TSX EDCB,4 COMPILE TXI SXD TIX. F2511920
TRA RTX160 F2511930
RTX100 TSX BCDE,4 BLOCK DECREMENT IS VARIABLE. F2511940
TRA RTX160 F2511950
RTX110 TXH RTX140,2,3 D OR E. F2511960
SXD BLKNUM,2 STORE BLOCK NUMBER D. F2511970
LXD TAG2+1,2 BLOCK D CONSIDERED. F2511980
TSX NBITS,4 ISOLATE NBITS F2511990
ADD N3IND CHECK FOR VARIABLE DECREMENT. F2512000
TNZ RTX130 DECREMENT IS VARIABLE. F2512010
CLA TAG3 DECREMENT IS CONSTANT. F2512020
ARS 18 SET UP TAG F2512030
ANA 11BITS NAME AND F2512040
TSX SUBCOM,4 LAY OUT TAU ENTRY.P F2512050
LXD TAG2+1,2 CONSIDER CENTER SUBSCRIPT F2512060
LXA L(2),1 FOR EXIT ROUTINE. F2512070
TSX CXIJ,4 COMPUTE XN3G FOR F2512080
STO ERTX02 CENTER SUBSCRIPT. F2512090
LXA POSIND,1 PREPARE DOSUB SUBSCRIPT F2512100
LXD DOIND,2 FOR CN3IJROUTINE. F2512110
TSX CN3IJ,4 COMPUTE N3G FOR F2512120
STO ERTX01 DOSUB SUBSCRIPT. F2512130
CLA TAG4 TEST F2512140
ARS 9 FOR F2512150
ANA L(7) DUPES, F2512160
TZE RTX126 NORMAL BLOCK D, NO DUPES. F2512170
LBT F2512180
TRA RTX118 XX0 BLOCK D, OR 0XX. F2512190
LXA POSIND,1 X0X BLOCK D. F2512200
TXI RTX114,1,2 SWITCH RIGHT OR LEFT POSIND. F2512210
RTX114 TSX CN3IJ,4 COMPUTE N3G F2512220
ADD ERTX01 DECREMENT ADJUSTMENT F2512230
STO ERTX01 FOR X0X F2512240
TRA RTX126 DUPES. F2512250
RTX118 LXD TAG2+1,2 COMPUTE XN3G F2512260
LXA L(3),1 DECREMENT F2512270
RTX122 TSX CXIJ,4 ADJUSTMENT F2512280
ADD ERTX02 FOR CENTER F2512290
STO ERTX02 SUBSCRIPT. F2512300
RTX126 CLA ERTX02 SUB1 AND F2512310
SUB L(1) ADD ERTX01 F2512320
STO ERTX02 AND ERTX02 F2512330
ADD ERTX01 YIELDING TXI F2512340
STO ERTX01 DECREMENT. F2512350
TSX EDCB,4 COMPILE TXI SXD TIX. F2512360
TRA RTX160 END CHECK FOR TEST TAG. F2512370
RTX130 TSX BCDE,4 BLOCK D IS VARIABLE. F2512380
TRA RTX160 F2512390
RTX140 SXD BLKNUM,2 BLOCK E F2512400
LXD TAG2,2 PUT N BITS FOR S1 F2512410
TSX NBITS,4 PLACE N BITS PLUS F2512420
ADD N3IND N3IND FOR S1 F2512430
STO ERTX01 AND S2 INTO ERTX01 F2512440
LXD TAG2+1,2 FOR VARIABLE DECREMENT F2512450
TSX NBITS,4 TEST. 1F SUM IS NOT ZERO, F2512460
ADD ERTX01 THEN THE DECREMENT IS VARIABLE. F2512470
TNZ RTX154 DECREMENT IS VARIABLE. F2512480
CLA TAG3 CONSTANT CASE, LAY F2512490
ARS 18 OUT TAU ENTRY INTO F2512500
TSX SUBCOM,4 WRKSC. F2512510
LXD TAG2+1,2 SET UP CENTER SUBSCRIPT F2512520
LXA L(2),1 FOR EXIT ROUTINE, F2512530
TSX CXIJ,4 COMPUTE XN3G FOR CENTER. F2512540
SUB L(1) STORE SN3G-1 F2512550
STO ERTX02 IN ERTX02. F2512560
LXA POSIND,1 COMPUTE N3G F2512570
LXD DOIND,2 FOR RIGHT F2512580
TSX CN3IJ,4 SUBSCRIPT (DOSUB). F2512590
ADD ERTX02 PUT FIRST TXI DECREMENT F2512600
STO ERTX01 IN ERTX01. F2512610
TSX EDCB,4 COMPILES FIRST F2512620
LXD TAG2,2 THREE OF BLOCK E. F2512630
LXA POSIND,1 COMPUTE XN3G FOR F2512640
TXI RTX150,1,2 LEFT SUBSCRIPT. F2512650
RTX150 TSX CXIJ,4 IN ORDER TO CMPILE 2ND F2512660
SUB L(1) TXI SXD TIX IN F2512670
STO ERTX01 BLOCK E, THE BLOCK F2512680
STO ERTX02 NUMBER IS SET TO F2512690
LXD BLKNUM,4 APPEAR LIKE BLOCK C SO F2512700
TIX RTX152,4,2 THATTHE SXD LOCATION IS STORED F2512710
RTX152 SXD BLKNUM,4 PROPERLY INTO DOTAG. F2512720
TSX EDCB,4 COMPILE 2ND TXI SXD TIX. F2512730
TRA RTX160 F2512740
RTX154 TSX BCDE,4 E IS VARIABLE. THIS TAKES F2512750
TSX CILV,4 CARE OF FIRST 3 INSTRUCTIONS.P F2512760
TSX CIL23,4 THE REMAINING THREE ARE F2512770
CLA L(TXI) F2512780
STO CIL01 NOW COMPILED. F2512790
TSX CIT,4 F2512800
LXD BLKNUM,4 CHANGE BLKNUM F2512810
RTX157 TIX RTX157,4,2 FROM E F2512820
SXD BLKNUM,4 TO C AND F2512830
TSX CSXD,4 TSX CSXD. F2512840
LXD BLKNUM,4 F2512850
TXI RTX157+5,4,2 F2512860
SXD BLKNUM,4 F2512870
LXD TAG2,2 PLACE LOCATION OF SXD F2512880
CLA CIL00 INSTRUCTION IN PROPER DOTAG ENTRY F2512890
ANA ADMSK AND POSITION. (LEFT SUB DO). F2512900
ALS 12 F2512910
ORS DOTAGZ+6,2 F2512920
TSX CILV,4 GENERATE AND F2512930
TSX CIL23,4 F2512940
CLA L(TIX) COMPILE REMAINING INSTRC. F2512950
STO CIL01 F2512960
TSX CIT,4 PUT INTO BUFFER. F2512970
RTX160 LXD DOIND,2 FINDING S.C, WHICH F2512980
CLA DOTAGZ+8,2 HAS AN S THAT IS THE TEST. F2512990
ANA TETMSK F2513000
STO ERTX01 TEST NAME. F2513010
CLA TAG3 COMPARE TAG NAME F2513020
ALS 18 WITH BEST TEST F2513030
ANA DECMSK OF CURRENT DO. F2513040
SUB ERTX01 IF THIS TAG IS F2513050
TNZ RTX164 BEST TEST, F2513060
CLA XTG STORE ITS INDEX F2513070
STO TETTGX IN TETTGX, F2513080
RTX164 TRA RTX06 GO TO FIND FOR NEXT TAG. F2513090
RTX180 CLA INST26 RTX184 LOCATION. F2513100
STA RTX69+1 RESET AT END OF ROUTINE. F2513110
LXA LADMX,4 PREPARE FOR ADTAG TXI. F2513120
TXI RTX180+4,4,4 F2513130
SXD XTG,4 F2513140
CLA INST20 ADTGA LOCATION, F2513150
STA TGA8 F2513160
RTX184 TSX ADTGSE,4 SEARCH FOR ADTAG. F2513170
TRA RTX192 END OF TABLE, START TX PHASE. F2513180
PXD 0,2 ENTRY FOUND, CONTINUE ADTG CYCLE. F2513190
ARS 18 POSIND IN ADDRESS. F2513200
STO POSIND F2513210
CLA TAG4 LOOK AT F2513220
ARS 21 CARRY BITS. F2513230
TXH RTX190,2,2 S1, BLOCK A. F2513240
TXL RTX188,2,1 S3 F2513250
ARS 2 S2 F2513260
RTX188 ANA L(3) F2513270
TNZ RTX184 CARRY T1 OR T2 BLOCK F. F2513280
RTX190 CLA N3IND F2513290
TZE RTX020 DECREMENT IS CONSTANT. F2513300
TSX CILV,4 DECREMENT IS VARIABLE. F2513310
CLA CIL00 INSTRUCTION IS COMPILED F2513320
ANA ADMSK AND ENTRY IS MADE F2513330
TSX TGA,4 IN APPENDED DRM TG WORD, F2513340
TSX CIL23,4 F2513350
CLA L(TXI) COMPILE F2513360
STO CIL01 TXI AND PUT F2513370
TSX CIT,4 IN CIB, F2513380
TRA RTX184 GET NEW ADTAG. F2513390
RTX192 CLA INST24 RESET MODIFIED F2513400
STA RTX69+1 ADDRESSES FOR F2513410
CLA INST22 TXI CYCLE. F2513420
STA TGA8 F2513430
RTX195 LXD TETTGX,1 DETERMINE IF THIS DO HAS A TEST. F2513440
TXH RTX197,1,0 THIS DO HAS A TEST. F2513450
RTX196 LXD DOIND,2 THIS DO HAS NO TEST. THIS INFORMATION F2513460
CLA DOTAGZ,2 IS ENTERED IN A DRUM TABLE. F2513470
ALS 4 ELIMINATE BITS F2513480
ARS 4 INSERTED BY DOGS. F2513490
STO SXDTXZ ENTER F2513500
WRS 193 DOTAG F2513510
LDA DRADS3 WORD F2513520
CPY SXDTXZ ONE F2513530
CPY SXDTXZ INTO F2513540
CLA DRADS3 DOCAR F2513550
ADD L(2) DRUM. F2513560
STO DRADS3 TABLE. F2513570
TRA RTX280 F2513580
RTX197 PSE 096 CLEAR SENSE LIGHTS. F2513590
TSX TGFM,4 FILL OUT TAG WORDS. F2513600
TSX ISC,4 FIND DOSUB. F2513610
TSX DIAG,4 SC NOT MODIFIED BY CURRENT DO. F2313620
PXD 0,2 FORM F2513630
ARS 18 POSITION F2513640
STO POSIND INDICATOR. F2513650
TSX CILV,4 OBTAIN LOCATION FOR TEST, F2513660
LXD DOIND,2 ISOLATE F2513670
TSX NBITS,4 NBITS. F2513680
STO N1N2N3 F2513690
CLA DOTAGZ+3,2 F2513700
ANA 6ONES F2513710
TNZ RTX210 N2 IS VARIABLE F2513720
LXA POSIND,1 F2513730
RTX198 TNX RTX200,1,1 IS POSITION S3. F2513740
CLA TAG4 CHECK FOR DORC. F2513750
ANA BITMSK+2,1 F2513760
STO N1SBX N1 BIT. F2513770
TSX N1S02,4 F2513780
TNZ RTX210 TXL VARIABLE DECREMENT, F2513790
RTX200 LXD TAG3,1 F2513800
TXH RTX201,1,0 F2513810
TSX ENTR,4 NOT NORMAL TAG, LAY OUT SIMULATED F2513820
TRA RTX202 TAU ENTRY INTO WRKSC. F2513830
RTX201 CLA TAG3 PREPARE FOR F2513840
ARS 18 SUBCOM ROUTINE. F2513850
TSX SUBCOM,4 LAY OUT TAU ENTRY. F2513860
RTX202 LXD DOIND,2 PREPARE FOR AND CALL CXIJ F2513870
LXA POSIND,1 ROUTINE T0 COMPUTE XGN3. F2513880
CLA DOTAGZ+3,2 PTCH06 CALLS TELC ROUTINE F2513890
TSX CXIJ+2,4 F2513900
TNX RTX204,1,1 F2513910
TSX TELC+2,4 COMPUTES LOAD VALUE FOR F2513920
CLA ERTX01 DEC, STORES IN ERTX01. F2513930
RTX204 STO CIL01 FINAL TXL DECREHENT. F2513940
CAL L(TXL) F2513950
ORS CIL01 F2513960
TSX CILNAM,4 ENTER TAG NAME IN CIL03. F2513970
CLA A ALPHA PLUS ONE IS F2513980
ADD L1DEC ENTERED AS THE SYMBOLIC F2513990
STO CIL02 ADDRESS. F2514000
TSX CIT,4 ENTER TXL IN BUFFER, F2514010
CLA L(0) ELIMINATE VARIABLE INDICATOR BIT. F2514020
TRA RTX214 F2514030
RTX210 CLA L(TXL) COMPILE INSTRUCTION FOR VARIABLE DECREMENT.F2514040
STO CIL01 F2514050
TSX CILNAM,4 ENTER TAG NAME. F2514060
CLA A ALPHA PLUS ONE IS F2514070
ADD L1DEC ENTERED AS THE F2514080
STO CIL02 SYMBOLIC ADDRESS, F2514090
TSX CIT,4 ENTER COMPILED TXL IN BUFFER. F2514100
CLA BIT20 TEST VAR1ABLE INDICATOR. F2514110
RTX214 LXD DOIND,2 ENTERONE IN BIT 20 IF F2514120
ORS DOTAGZ+8,2 VARIABLE DECREMENT. F2514130
CLA CIL00 STORE LOCATION F2514140
ALS 24 OF F2514150
ORS DOTAGZ+6,2 TEST. F2514160
PSE 097 SET SENSE INDICATOR SO F2514170
RTX222 LXD RTXTGX,1 START SCAN FOR TIXING, F2514180
SXD XTG,1 F2514190
RTX226 TSX FIND,4 FIND VALID TAG. FILL TAG WORDS. F2514200
TRA RTX260 END OF DO. F2514210
SXD XTG,1 PRESERVE X OF TAG UNDER CONDSIDERATION. F2514220
RTX228 TSX SCLMN1,4 COMPARE LARGEST S INDES F2514230
SUB DOIND WITH INDEX OF THE DO. F2514240
TZE RTX234 DO IS OUTER, OBTAIN TAG. F2514250
LXD TAG3,2 F2514260
TXH RTX229,2,0 CURRENT TAG VALID, FILL OUT WRKSC. F2514270
CLA TAG3 NEW TAG, DETERMINE F2514280
ARS 11 IF TAU ENTRY F2514290
LBT EXISTS. F2514300
TRA RTX229+5 NO,TSX ENTR. F2514310
CLA TAG3 YES, TSX F2514320
TRA RTX229+2 SUBCOM. F2514330
RTX229 CLA TAG3 CURRENT TAG F2514340
ARS 18 VALID. F2514350
ANA 11BITS FILL OUT F2514360
TSX SUBCOM,4 WRKSC AND F2514370
TRA RTX230 CONTINUE. F2514380
TSX ENTR,4 ARTIFICIAL WRKSC ENTRY, F2514390
RTX230 LXA POSIND,4 F2514400
TIX CLA,4,1 MOVE RIGHT ONE POSITION. F2514410
TRA RTX232 POSITION IS RIGHT, IGNORE CARRY, F2514420
CLA CLA TAG4 POSITION IS LEFT OR CENTER, F2514430
ARS 1 OR TYPE 1 AND 2 F2514440
ORA TAG4 CARRY BITS FOR LEFT F2514450
TXL ARS,4,1 AND CENTER POSITIONS. F2514460
ARS 23 S2 CARRY BIT IN POSITION 35, F2514470
TRA LBT F2514480
ARS ARS 21 S3 CARRY BIT IN POSITION 35 F2514490
LBT LBT TEST FOR DOSUB CARRY BIT. F2514500
TRA RTX232 NO CARRY, CONTINUE. F2514510
CLA TETTGX CARRY, SEE IF THIS F2514520
SUB XTG TAG IS BEST TEST. F2514530
TNZ RTX254 NO, GET NEXT TAG. F2514540
RTX232 CLA L(TIX) COMPILE TIX INSTRUCTION. F2514550
STO CIL01 F2514560
CLA N1N2N3 TEST FOR VARIABLE DECREMENT, F2514570
TZE RTX238 DECREMENT IS CONSTANT. F2514580
MSE 097 DECREMENT IS VARIABLE8 TURN OFF. F2514590
NOP LIGHT INDICATION FIRST F2514600
TSX CILV,4 TIX AFTER TXL AND ASSIGN F2514610
TSX CIL23,4 LOCATION. F2514620
CLA CIL00 WHEN DECREMENT IS VARIABLE, LOCATION F2514630
ANA ADMSK MUST BE STORED IN TGA WORD F2514640
TSX TGAT,4 FOR SXD ADDRESS IS OBJECT TIME. F2514650
TRA RTX250 NOW PERFORM COMPILING. F2514660
RTX234 CLA L(DED) COMPILE OP WHICH INDICATES F2514670
STO CIL01 SC IS DEAD. F2514680
TRA RTX242 ASSIGN LOCATION IF NECESSARY. F2514690
RTX238 LXA POSIND,1 DECREMENT IS CONSTANT. F2514700
LXD DOIND,2 TEST FOR DUPLICATES F2514710
TSX CXIJ,4 AND COMPUTE ACCORDINGLY F2514720
STO ERTX01 XN3G IN ERTX01. F2514730
LDQ TAG4 TEST F2514740
LLS 27,1 FOR. F2514750
LBT DUPES. F2514760
TRA RTX240 NO DUPES F2514770
RTX239 TXI RTX239+1,1,1 DUPES EXIST F2514780
LDQ TAG4 TEST DUPE F2514790
LLS 27,1 BITS OF POSITIONS F2514800
LBT TO THE LEFT OF DOSUB F2514810
TRA RTX239 UNTIL THAT POSITION IS F2514820
TSX CXIJ,4 IN XA, THEN CALLCXIJ F2514830
ADD ERTX01 AND COMPUTE AND ADD F2514840
STO ERTX01 DECREMENT ADJUSTMENT F2514850
RTX240 CLA ERTX01 PUT COMPUTED DE EREMTN F2514860
STA CIL01 IN CIL01 WORD. F2514870
RTX242 MSE 097 A LOC MUST BE ASSIGNED IF F2514880
TRA RTX246 F2514890
TSX CILV,4 THIS IS FIRST TIX AFTER F2514900
TSX CIL23,4 TEST. F2514910
TRA RTX250 F2514920
RTX246 TSX CIL023,4 F2514930
RTX250 TSX CIT,4 COMPILE INST. F2514940
RTX254 TRA RTX226 RETURN FOR NEXT TG F2514950
RTX260 LXA LADMX,4 START DRMTG SEARCH AND F2514960
TXI RTX260+2,4,4 F2514970
SXD XTG,4 COMPIL1NG F2514980
RTX264 TSX ADTGSE,4 FIND VALID TAG, FILL OUT TAG WDS. F2514990
TRA RTX270 END OF TABLE F2515000
PXD 0,2 STORE POSITION F2515010
ARS 18 OF DOSUB F2515020
STO POSIND IN POSIND. F2515030
CLA INST30 MODIFY TGTG F2515040
STA RTX254 TIX COMPIL1NG F2515050
CLA INST20 ROUTINE TO F2515060
STA TGA8 F2515070
TRA RTX228 AND EXECUTE. F2515080
RTX270 CLA INST32 ADTG PORTION FINISHED. F2515090
STA RTX254 REMODIFY TIX COMPILING F2513100
CLA INST22 ROUTINE FOR TGTGS. F2515110
STA TGA8 END OF BETA CYCLE8 RETURN TO 1 PLUS F2513120
RTX280 LXD RTX024,4 LOCATION OF THE INSTRUCTION F2515130
TRA 1,4 CALLING RTX. F2513140
REM *************************************************************F2515130
REM CILV IS CALLED WHEN AN INSTRUCTION NUMBER IS NEEDED FOR A C0MF2515160
REM PILED BETA STATE INSTRUCTION. F2515170
CILV CLA VCTR THIS ROUTINE UPDATES F2515180
STO CIL00 VCTR AND F2515190
ADD L(8) STORE IT INTO CIL00 F2515200
STO VCTR IT IS CALLED WHEN F2515210
ANA ADMSK WE NEED A LOCATION F2515220
SUB MAXLOC FOR A COMPILED F2515230
TZE CILV1 INSTRUCTION. F2515240
TRA 1,4 F2515250
CILV1 TSX DIAG,4 TOO MANY INSTRUCTION NUMBERS. F2515260
REM *************************************************************F2515270
REM N3BIT PLACES THE VARIABLE N3 BIT OF A DO IN THE WORK N3IND. F2513280
N3BIT LXD DOIND,2 THIS ROUTIN E ISOLATES F2515290
CLA DOTAGZ,2 THE N3 BIT SO THAT F2515300
ARS 15 IT CAN BE EASILY TESTED. F2515310
ANA L(1) F2515320
STO N3IND F2515330
TRA 1,4 RETURN F2515340
REM TETG DETERMINES FOR WHICH DOS A GIVEN TAG IS A TEST. THIS F2515330
REM INFORMATION IS RECORDED IN TAG4. F2515360
TETG CLA TAG3 ISOLATE F2515370
ANA ADMSK TAG NAME. F2515380
STO ER40 F2515390
CLA TAG4 ISOLATE DUPES INDICATORS F2515400
ARS 9 F2515410
ANA L(7) IF THERE ARE DUPES F2515420
STO ER41 THIS INSURES THAT TEST BITS F2515430
SUB L(1) ARE ENTERED ONLY FOR F2515440
ANS ER41 RIGHTMOST DUPE. F2515450
LXA L(3),1 F2515460
CLA TAG2+3,1 SELECT DOTAG WHICH F2515470
TZE TETG5 CONTR0LS THIS F2515480
PDX 0,2 SUBSCRIPT. F2515400
CLA DOTAGZ+8,2 F2515S00
ANA TETMSK ISOLATE TEST NAME F2515510
ARS 18 OF THIS SUBSCRIPT. F2515520
SUB ER40 DOES TEST NAME EQUAL TAG NAME, F2515530
TNZ TETG5 NO, GO TO NEXT SUBSCRIPT. F2515540
LDQ ER41 TEST NAME EQUALS TAG NAHE, F2515550
LLS 36,1 SEE IF THIS SUBSCRIPT F2515560
LBT IS A LEFT DUPE. F2515570
TRA TETG3 NOT A LEFT DUPE, ENTER TEST BIT. F251S580
TRA TETG5 LEFT DUPE, IGNORE. F2515590
TETG3 CLA BIT1 ENTER TEST BIT F2515600
ARS 10,1 FOR THIS F2515610
ORS TAG4 SUBSCRIPT. F2515620
TETG5 TIX TETG+10,1,1 DEAL WITH NEXT SUBSCRIPT, F2515630
TRA 1,4 F2515640
REM *************************************************************F2515650
REM PRES DETERMINES THE TXI BLOCK NUMBER FOR A GIVEN TAG AND PUTSF2515660
REM IT IN INDEX REGISTER B. F2515670
PRES CLA TAG4 FIRST THE TEST F2515680
LRS 26 BITS ARE ISOLATED - F2515690
ALS 33 AND STORED. F2515700
STO ER40 TEST BITS 1,2. F2515710
LLS 5 THEN THE GROUP NO. F2515720
ALS 20 IS LEFT F2515730
ORA TAG4 IN THE MQ WHILE THE F2515740
ARS 21 CARRY BITS ARE ORED F2515750
ANA L(5) AND STORED. F2515760
STO ER41 CARRY BITS 101. F2515770
LLS 5 THE GR0UP NO. IS THEN F2515780
ORA POSIND SHIFTED TO BE COMBINED F2515790
LDQ ER40 WITH THE POS. THE TEST F2515800
LLS 1 BITS ARE SEPARATED SO THAT F2515810
ALS 1 THEY CAN OR PROPERLY WITH F2515820
LLS 2 CARRY BITS LT, LC, CT, CC. F2515830
ORA ER41 THIS RESULTS IN THE MASK F2515840
STO ARG USED FOR TABLE SEARCH. F2515850
SXD ER40,4 F2515860
LXA L(1),1 THIS BLOCK REPRESENTS F2515870
TXI PRES10,1,34 SETS OF CALLING SEQUENCES TO F2515880
PRES10 SXD S3,1 SEARCH ROUTINE. MASK IS F2515890
TXI PRES20,1,10 STORED AND BLOCK TEST F2515900
PRES20 CLA SMSK1 INDEX DECREMENT IS STORED. F2515910
STO SMSK FIRST 11 ENTRIES ARE F2515920
TSX SEARCH,4 SFARCHED. THEN 12,12,4. F2515930
CLA SMSK2 RETURN TO ROUTINE F2515940
STO SMSK AFTER SEARCHING LAST F2515950
TIX PRES30,1,12 BLOCK INDICATES AN ERROR. F2515960
PRES30 SXD S3,1 F2515970
TXI PRES40,1,12 F2515980
PRES40 TSX SEARCH,4 F2515990
CLA SMSK4 F2516000
STO SMSK F2516010
TIX PRES50,1,16 F2516020
PRES50 SXD S3,1 F2516030
TXI PRES60,1,16 F2516040
PRES60 TSX SEARCH,4 F2516050
CLA SMSK3 F2516060
STO SMSK F2516070
TIX PRES70,1,6 F2516080
PRES70 SXD S3,1 F2516090
TXI PRES80,1,6 F2516100
PRES80 TSX SEARCH,4 F2516110
ERROR TSX DIAG,4 ALL SEARCHES FAILED. F2516120
REM *************************************************************F2516130
REM SEARCH IS CALLED BY PRES TO COMPARE CONSTANTS IN THE RX TABLEF2516140
REM AGAINST VARIOUS PERMUTATIONS OF AN ARGUMENT WORD. A MATCHINGF2516150
REM COMPARISON MEANS THE CONSTANT WILL YIELD THE CORRECT BLOCK NUF2316160
REM NUMBER. F2516170
SEARCH CLA RXTA+45,1 F2516180
ARS 3 THIS ROUTINE TAKES F2516190
STO WRKRXT THE ARGUMENT MASK, EDITS F2516200
CLA ARG IT AND THEN SEARCHES F2516210
ANA SMSK PRESCR1BED BLOCKS OF F2516220
SUB WRKRXT THE RX TABLE. -F2516230
TZE S8 SUCCESSFUL SEARCH. F2516240
TIX S3,1,1 INDEX FOR NEXT ENTRY, F2516250
S3 TXH SEARCH,1 TEST FOR END OF BLOCK, F2516260
TRA 1,4 F2516270
S8 CLA RXTA+45,1 TABLE ENTRY CONTAINS F2516280
ANA L(7) BLOCK NOS. 0-5 WHICH F2516290
PAX 0,2 CORRESPOND TO BLOCKS F2516300
LXD ER40,4 A-F. F2516310
TRA 1,4 F2516320
RXTA OCT 6600 6L, 760 MASK F2516330
OCT 6400 6C F2516340
OCT 6200 6R F2516350
OCT 5600 5L F2516360
OCT 4600 4L F2516370
OCT 4200 4R F2516380
OCT 3600 3L F2516390
OCT 3400 3C F2516400
OCT 2400 2C F2516410
OCT 1600 1L F2516420
OCT 5501 5C, 774 MASK F2516430
OCT 5400 5C F2516440
OCT 5302 5R F2516450
OCT 5200 5R F2516460
OCT 4541 4C F2516470
OCT 4501 4C F2516480
OCT 4445 4C F2516490
OCT 4400 4C F2516500
OCT 1541 1C F2516510
OCT 1501 1C F2516520
OCT 1445 1C F2516530
OCT 1400 1C F2516540
OCT 1215 1R, 773 MASK F2516550
OCT 1200 1R F2516560
OCT 2723 2L F2516570
OCT 2733 2L F2516580
OCT 2623 2L F2516590
OCT 2633 2L F25166D0
OCT 3324 3R F2516610
OCT 3302 3R F2516620
OCT 3223 3R F2516630
OCT 3200 3R F2516640
OCT 1334 1R F2516650
OCT 1324 1R F2516660
OCT 1315 1R F2516670
OCT 1302 1R F2516680
OCT 1233 1R F2516690
OCT 1223 1R F2516700
OCT 2600 2L, 763 MASK F2516710
OCT 2610 2L F2516720
OCT 2233 2R F2516730
OCT 2223 2R F2516740
OCT 2215 2R F2516750
OCT 2200 2R F2516760
REM *************************************************************F2516770
REM CN3IJ COMPUTES THE INDEX INCREMENTING VALUE FOR EACH PASS THRF2516780
REM THROUGH A DO LOOP. THIS IS THE NORHAL TXI DECREMENT. F2516790
CN3IJ LDQ DOTAGZ+4,2 COMPUTES DECREMENT AND F2516800
LLS 18 LEAVES IT IN ACCUMULATOR. F2516810
TXH CN3IJ5,1,2 IF POSIND=3, S1 POS. F2516820
MPY WRKSC+6 D1N3 FOR S2 OR S3. F2516830
LRS 18 F2516840
TXH CN3IJ5,1,1 POSIND=2 S2 POS. F2516850
MPY WRKSC+7 D2D1N3 FOR S3. F2516860
LRS 18 F2516870
CN3IJ5 PXD 0,1 PLACE TWICE F2516880
ALS 1 POSIND IN F2516890
PDX 0,1 INDEX REGISTER. F2516900
MPY WRKSC+6,1 CN3D1D2 OR CN3D1 OR CN3. F2516910
ARS 1 F2516920
TRA 1,4 RESULT IS N3G. F2516930
REM *************************************************************F2516940
REM CIL023 FILLS OUT THE LOCATION, ADDRESS, AND TAG NAME WORDS FOF2516950
REM FOR NON-LOCATION COMPILED INSTRUCTIONS ADDRESSING THE FOLLOWIF2516960
REM ING INSTRUCTIONS F2516970
CIL023 CLA L(0) ROUTINE PLACES SPECIAL F2516980
STO CIL00 F2516990
CLA L1DEC SYMBOL FOR ADDRESS F2517000
STO CIL03 F2517010
CLA BCD15 AND INITIALIZES LOC. WORD F2517020
STO CIL02 AND PLACES TAG IN F2517030
CLA TAG3 TAG WD. THIS IS DOEN F2517040
STA CIL03 FOR INST. OF K DECREMENT. F2517050
TRA 1,4 ). F2517060
REM *************************************************************F2517070
REM TGA MAKES AN ENTRY IN APPENDED TAGTAG SHOWING THE LOCATION OFF2317080
REM A GIVEN VARIABLE DECREMENT TXI OR TIX. FOR REFERENCE BY THE F2517090
REM ALPHA STATE WHEN COMPILING CECREMENT INITIALIZATION F2517100
REM INSTRUCTIONS. F2517110
TGA ALS 18 FOR RX LOC. F2517120
TGAT ARS 3 FOR TX LOC, DIV VCTOR BY 8. F2517130
STO ERTGA F2517140
LXA POSIND,1 F2517150
CLA XTG CALCULATES X LOC OF TTGA. F2517160
ARS 2 INDEX QUANTITY FOR TTGA IS F2517170
PDX 0,2 ONE FOURTH THAT FOR TTG. F2517180
CLA ERTGA F2517190
TGA5 TIX TGA10,1,1 SHIFT LEFT FOR S1 OR S2 F2517200
TGA8 ORS MXTGA,2 ADDRESS IS ORIGIN PLUS MAX F2517210
TRA 1,4 ADD TG WD. LINKAGE TRANSFER. F2517220
TGA10 ALS 6 F2517230
TRA TGA5 F2517240
REM *************************************************************F23172S0
REM EDCB COMPILES TXI-SXD-TIX INSTRUCTIONS AND STORES THE SXD LOCF2517260
REM ATION FOR BLOCKS B,C,D, OR E WHEN THE DECREMENTS ARE CONSTANTF2517270
REM AND KNOWN. F2517280
EDCB SXD EDCB5,4 COMPILES TXI SXD TIX F2517290
CLA L(TXI) INSTRUCTIONS WHEN F2517300
STO CIL01 DECREMENTS ARE KN0WN, F2517310
CLA ERTX01 ASSUMES DECREMENTS TO F2517320
STA CIL01 BE IN ERTX01 AND F2517330
TSX CIL023,4 ERTX02, F2517340
TSX CIT,4 COMPILE TXI INSTRUCITON. F2517350
TSX CSXD,4 COMPILE SXD SKELETON. F2517360
CLA CIL00 F2517370
ANA ADMSK F2517380
ALS 12 BELOW, PLACE SXD LOC. INTO F2517390
LXD BLKNUM,4 DOTAG WORD 7. APPROPRIATE F2517400
TXH EDCB10,4,2 BITS DEPEND ON BLOCK NOS. F2517410
LXD TAG2,2 BLOCKS D, E SHIFT LEFT 12. F2517420
TXH EDCB5,4,1 BLOCKS C, B USE S1 DOTAG. F2517430
ALS 6 BLOCK C, SHIFT LEFT 12. F2517440
EDCB5 TXL EDCB20,0 BLOCK B, SHIGT LEFT 18. F2517450
EDCB10 LXD TAG2+1,2 BLOCK D,E USE S2 DOTAG. F2517460
EDCB20 ORS DOTAGZ+6,2 PLACE LOC. INTO WD 7. F2517470
CLA L(TIX) COMPILE F2517480
STO CIL01 TIX. F2517490
CLA ERTX02 COMPILE F2517500
STA CIL01 TIX DECREMENT, F2517510
TSX CIL023,4 F2517520
TSX CIT,4 F2517530
LXD EDCB5,4 F2517540
TRA 1,4 F2517550
REM *************************************************************F2517560
REM BCDE COMPILES TXI-SXD-TIX INSTRUCTIONS AND MAKES PROPER TABLEF2517570
REM ENTRIES IN DOTAG AND TGA WHEN BLOCK B,C,D, OR E IS VARIABLE. F2517580
BCDE SXD BCDE2,4 F2517590
TSX CILV,4 OBTAIN LOC. FOR FIRST INST. F2517600
CLA CIL00 MAKE LOCATION ENTRY INTO F2517610
ANA ADMSK APPENDED TAG WORD. F2517620
TSX TGA,4 F2517630
CLA L(TXI) PLACE OPERATION IN F2517640
STO CIL01 COMPILED INSTRUCTIN, F2517650
TSX CIL23,4 FILL OUT REMAINING WORDS. F2517660
TSX CIT,4 F2517670
TSX CSXD,4 F2517680
LXD BLKNUM,2 F2517690
TXL BCDE5,2,2 TEST FOR BLOCKS B OR C. F2517700
CLA CIL00 BLOCK D OR E. F2517710
LXD TAG2+1,1 PLACE LOC. OF SXD INST. F2517720
ANA ADMSK INTO DOTAG ENTRY FOR F2517730
ALS 12 CENTER SUBSCRIPT. F2517740
ORS DOTAGZ+6,1 F2517750
BCDE2 TXL BCDE9,0 BLOCKS D,E CONTINUE. F2517760
BCDE5 CLA CIL00 BLOCK B OR C . F2517770
LXD TAG2,1 PLACE LOC. FOR SXD OF F2517780
ANA ADMSK REMAINING TWO BLOCKS. F2517790
ALS 12 DISTINGUISH BETWEEN BLOCK B, C. F2517800
TXH BCDE8,2,1 F2517810
ALS 6 F2517820
BCDE8 ORS DOTAGZ+6,1 F2517830
BCDE9 PXD 0,2 BLOCK NUMBER MUST BE F2517840
ALS 14 STORED IN PROPER POS. F2517850
LXA POSIND,1 OF TAG 4 WORD. F2517860
TXL BCDE10-1,1,1 F2517870
TXL BCDE10,1,2 IF POSITION IS LEFT, F2517880
CAL BIT8 PLACE A ONE IN BIT 7 OF TAG4 F2517890
TRA BCDE10 TO INDICATE BLOCK D SPECIAL. F2517900
ARS 3 F2517910
BCDE10 LXD XTG,2 F2517920
ORS MXTGTG+3,2 F2517930
TSX CILV,4 OBTAIN LOC. FOR THIRD F2517940
CLA L(TIX) INST. AND OPERATION PART F2517950
STO CIL01 FOR 2ND WORD. F2517960
TSX CIL23,4 FILL OUT REMAINING WORDS. F2517970
TSX CIT,4 F2517980
LXD BCDE2,4 F2517990
TRA 1,4 F2518000
REM *************************************************************F2518010
REM NBITS ISOLATES THE VARIABLE PARAMETER BITS FOR A GIVEN DOTAG.F2518020
NBITS CLA DOTAGZ,2 ROUTINE FOR ISOLATING F2518030
ARS 15 THE N BITS OF A DO. F2518040
ANA L(7) F2518050
STO N1N2N3 F2518060
TRA 1,4 F2518070
REM *************************************************************F2518080
REM CIL23 FILLS OUT THE ADDRESS AND TAG NAME WORDS FOR A COMPILEDF2518090
REM INSTRUCTION WHEN THE ADDRESS IS TO BE THE NEXT SEQUENTIAL INSF2518100
REM TRUCTION AND THE LOCATION WORD IS FILLED ELSEWHERE. F2518110
CIL23 CLA CIL00 THIS ROUTINE PLACES TAG IN F2518120
STO CIL02 TAG WD. OF CIL03 AN0 1 F2518130
CLA TAG3 IN DECREMENT FOR THE F2518140
ANA ADMSK RELATIVE PART, F2518150
ORA L1DEC PLACES THE LOCATION IN F2518160
STO CIL03 THE ADDRESS WORD CIL02 . F2518170
TRA 1,4 F2518180
REM *************************************************************F2518190
REM CILNAM ENTERS ONLY THE TAG NAME. F2518200
CILNAM CLA TAG3 THIS ROUTINE F2518210
ANA ADMSK ENTERS THE F2518220
STO CIL03 TAG NAME F2518230
TRA 1,4 IN CIL. F2518240
REM *************************************************************F2518250
REM F2518260
REM F2518270
REM MASTER RECORD CARD = FN049 F2518275
REM BEGIN ALPHA STATE F2518280
REM THE ALPHA STATE, AC, IS CALLED BY MAN T0 COMPILE ALL INITIALIF2518290
REM ZATION AND LOAD INSTRUCTIONS WHEN AN ALPH OF A DO IS UNDER CF2518300
REM CONSIDERATION. F2518310
ORG RTX F2518320
AC SXD AC248,4 STORE LINKAGE F2518330
STO VCTR DOTAG ALPHA IS LOCATION. F2518340
CLA DOTAGZ+6,2 PLACE F2518350
ARS 27 .- SXD LOCATION F2518360
ANA 6ONESR IN F2518370
ALS 3 CIL00 AND F2518380
ADD B TXL LOCATION F2518390
STO CIL00 IN F2518400
CLA DOTAGZ,2 ERTX01 FOR F2518410
ANA N0PRET F2518420
STO SXDTXZ F2518430
WRS 193 OF SXDTX TABLE F2518440
CAL SXDTXZ MAKE F2518450
ACL CIL00 SXDTX F2518460
SLW ERTX01 TABLE F2518470
LDA DRADS2 ENTRY F2518480
CPY SXDTXZ ON F2518490
CPY CIL00 DRUM 1. F2518500
CPY ERTX01 F2518510
CLA DRADS2 RESET DRUM F2518520
ADD L(3) ADDRESS FOR F2518530
STO DRADS2 NEXT ENTRY. F2518540
AC05 CLA ALLONE INITIALIZE CIL WORDS F2518550
STO CIL00 TO ALL ONES AND F2518560
STO CIL01 PUT F2518570
STO CIL02 INTO CIT F2518580
STO CIL03 AS FIRST ALPHA STAGE F2518590
TSX CITSP,4 ENTRY. F2518600
TSX SCAN,4 SCAN AND FIND PICK F2518610
SXD RTXTGX,1 F2518620
SXD XTG,1 BY A DO WITHIN ALPHA F2518630
AC010 TSX FIND,4 AND BETA. F2518640
TRA AC240+1 END OF DO FOR DOTAG. F2518650
SXD XTG,1 STORE TGTG INDEX IN XTG. F2518660
AC014 TSX SCLMN1,4 OBTAIN X FOR MINLEV OF S.C F2518670
LXD XTG,1 SET UP FOR FIND ROUTINE. F2518680
SUB DOIND TEST TO SEE IF THIS IS F2518690
AC016 TNZ AC010 THE OUTERMOST DO. F2518700
LXD TAG3,1 IF IT IS PROCEED TO F2518710
TXH AC018,1,0 COMPILE PROPER INST. F2518720
CLA TAG3 - NO CURRENT TG, USE NEW TG. F2518730
ARS 11 CHECK RESET TAG BIT F2518740
LBT OR INSERTED COUNTER. F2518750
TRA AC016I RESET TYPE ENTRY, USE NEW TAG F2518760
TSX ENTR,4 CTR. TYPE ENTRY, SIMULATE F2518770
TRA AC020 WRKSC AND CONTINUE F2518780
AC016I CLA TAG3 RESET TYPE ENTRY F2518790
ANA 11BITS LAY OUT TAU ENTRIES F2518800
TSX SUBCOM,4 F2518810
TRA AC021 DECRENENT AND CONTINUE F2518820
AC018 CLA TAG3 CURRENT TAG VALID, LAY F2518830
ARS 18 OUT TAU DNTRIES INTO F2518840
AC019 TSX SUBCOM,4 WRKSC AND CONTINUE F2518850
AC020 TSX N1STET,4 F2518860
CLA N1SBX VALUE IS CONSTANT F2518870
TNZ AC030 VARIABLE, TRA AC030. F2518880
TSX TELC,4 COMPUTE LOAD F2518890
CLA ERTX01 VALUE F2518900
ALS 18 AND PLACE F2518910
ADD L1DEC IN F2518920
TSX FIXCON,4 FIXCON. F2518930
STO CIL02 FIXCON LOCATION SYMBOL. F2518940
TRA AC022 CONTINUE. F2518950
AC021 CLA BCD0 F2518960
STO CIL02 LXD ADDRESS T0 BCD ZERO. F2518970
AC022 CLA L(LXD) F2518980
STO CIL01 LXD F2518990
TSX CIL03I,4 FILL OUT LOCATION AND TG WORDS. F2519000
CLA CIL02 PLACE LXD ADDRESS F2519010
STO OR000+27 IN OR0 TABLE. F2519020
PAX 0,4 RELATIVE PART OF FIXCON NAME F2519030
ANA 6ONES F2519040
STO CIL02 ADDRESS. F2519050
SXD CIL03,4 RELATIVE ADDRESS. F2519060
CLA LOCIND TEST LOCATION INDICATOR. F2519070
TZE AC024 F2519080
SUB L(1) F2519090
STO LOCIND A LOCATION MUST BE F2519100
CLA A ASSIGNED FOR 1ST LXD F2519110
STO CIL00 COMPILED FOR AN ALPHA. F2519120
AC024 TSX CIT,4 PUT IN DOFILE. F2519130
NOP F2519140
AC030 CLA TAG4 VARIABLE CASE, THE BITS FOR F2519150
ARS 3 DEFINING A SUB BY A DO OR F2519160
ANA L(7) A RELCON OR BOTH ARE F2519170
STO RELC0 ISOLATED IN 3 SEPARATE F2519180
CLA TAG4 WORDS, DEFDQ, RELCO, AND F2519190
ANA L(7) ORDEDO. F2519200
STO DEFDO F2519210
ORA RELC0 F2519220
STO OREDO F2519230
CLA N1SBX IF CONSTANT LOAD, F2519240
TZE AC100+2 TRA AC100+2. F2519250
CLA L(2) 1F VARIABLE LOAD, FILL F2519260
TSX BITP,4 OR0 TABLE. F2519270
TRA AC040 S1 NOT DEFINED. F2519280
STO OR000+1 S1 DEFINED. STO SYMBOL IN OR0+1. F2519290
AC040 CLA L(1) REPEAT FOR F2519300
TSX BITP,4 S2. F2519310
TRA AC046 S2 NOT DEFINED. F2519320
STO OR000+4 S2 DEFINED. PUT SUBSCRIPT F2519330
CLA WRKSC+6 SYMBOL IN OR0+4 AND F2519340
TSX FIXCON,4 D1 SYMBOL F2519350
STO OR000+7 IN OR0+7. F2519360
AC046 CLA L(0) REPEAT FOR F2519370
TSX BITP,4 F2519380
TRA AC048 S3 NOT DEFINED. F2519390
STO OR000+21 S3 DEFINED. PUT SUBSCRIPT F2519400
LDQ WRKSC+6 SYMBOL IN OR0+21 F2519410
MPY WRKSC+7 AND F2519420
ALS 17 PUT F2519430
TSX FIXCON,4 D1D2 IN F2519440
STO OR000+24 OR0+24. F2519450
CLA WRKSC+6 F2519460
TSX FIXCON,4 OBTAIN SYMBOL FOR D1 F2519470
STO OR000+7 AND STORE IN OR0+7, F2519480
PSE 96 TURN OFF SENSE LIGHTS. F2519490
AC048 TSX COSE,4 TEST COEFFS GREATER THAN 1. F2519500
CLA 0PMSK F2519510
ANA TAG4 COEFS, 011 RELCONS, 100 CUPE. F2519520
TNZ AC049 SOME OF ABOVE EXIST. F2519530
LXD TAG21,1 NONE OF ABOVE EXIST, F2519540
TXL AC048+7,1,0 IF S2 DEF BY DO, F2519550
CAL DOTAGZ+2,1 ISOLATE N1. F2519560
LXD TAG22,1 IF S3 DEF BY DO, F2519570
TXL AC048+10,1,0 OR N1S OF S2 AND S3. F2519580
ORA DOTAGZ+2,1 IF EITHER N1 IS GREATER F2519590
SUB L(1) THAN 1, RETURN. F2519600
TZE AC048I IS S1 IS F2519610
TPL AC049 DEFINED BY A DO, F2519620
AC048I LXD TAG2,1 IS/LATE N1. F2519630
TXL AC048I+4,1,0 IF NOT ISOLATE F2519640
CLA DOTAGZ+2,1 S1 (BCD). F2519650
TRA AC048I+5 F2519660
CLA WRKSC+1 F2519670
STO CIL02 STO S1 OR N1 SYMBOl. F2519680
TSX CIL03I,4 FILL OUT F2519690
CLA L(LXD) COMPILED INSTRUCTION F2519700
STO CIL01 WORDS AND CONTINUE F2519710
TRA AC100-1 T0 INIT PORTION, F2519720
AC049 LXA L(2),1 F2519730
CLA OREDO IS LEFT SUB A RELCON, F2519740
ANA L(4) DORC, OR DOSUB. F2519750
TZE AC049A NO, COMPILE CLA, SUB. F2519760
LXD TAG2,2 YES, IS IT A DOSUB. F2519770
TXL AC049B,2,0 NO. F2519780
CLA DOTAGZ+2,2 YES, IS N1(S1)=1. F2519790
SUB L(1) F2519800
TNZ AC049B NO. F2519810
AC049A CLA KLX01 F2519820
TSX LXC,4 COMPILE CLA, SUB. F2519830
AC049B CLA OREDO F2519840
ARS 2 DEFINITION. F2519850
LBT OF S1. F2519860
TRA AC064 S1 IS NOT DEF., TAKE S2. F2519870
LXA L(3),1 S1 DEFINED, GO TO F2519880
TSX 0P2,4 OPTIMIZING ROUTINE. F2519890
LXA L(2),1 AT LEAST 4 COMP INST. F2519900
MSE 97 TEST ON COEF F2519910
TRA AC050 GREATER THAN 1, F2519920
TXI AC050I,1,2 F2519930
AC050 CLA KLX02 L(LXI02) F2519940
TRA AC050I+1 F2519950
AC050I CLA KLX02I L(LXI03) F2519960
TSX LXC,4 COMPILER. F2519970
AC064 CLA OREDO F2519980
ARS 1 S2 F2519990
LBT DEFINED. F2520000
TRA AC080 S2 NOT DEFINED. S3. F2520010
LXA L(2),1 CALL OP2 ROUTINE F2520020
TSX 0P2,4 TO OPTIMIZE. F2520030
LXA L(6),1 COUNTER FOR COMPILING F2520040
MSE 98 IS COEF GREATER THAN 1, F2520050
TRA AC068 NO F2520060
CLA KLX03 YES. F2520070
TXI AC068+1,1,2 INCREMENT COMPILING COUNTER. F2520080
AC068 CLA KLX03I F2520090
TSX LXC,4 COMPILE S2 LOAD VALUE. F2520100
AC080 CLA OREDO F2520110
LBT F2520120
TRA AC096 S3 NOT DEFINED, EXIT. F2520130
LXA L(1),1 CALL OP2 ROUTINE F2520140
TSX 0P2,4 FOR OPTIMIZATION F2520150
LXA L(6),1 COMPILING COUNTER. F2520160
MSE 99 TEST FOR COEF GREATER THAN 1. F2520170
TRA AC084 NONE. F2520180
CLA KLX05 C3 GREATER THAN 1, COMPILE F2520190
TXI AC084+1,1,2 KLX05 BLOCK. F2520200
AC084 CLA KLX05I C3=1, COMPILE KLX05I F2520210
TSX LXC,4 BLOCK. F2520220
AC096 TSX CIL03I,4 COMPILE F2520230
CLA L(LXD) LXD. F2520240
STO CIL01 F2520250
CLA OR000+26 ERASABLE OBJECT TIME SYMBOl. F2520260
PAX 0,1 F2520270
ANA 6ONES F2520280
SXD CIL03,1 F2520290
STO CIL02 F2520300
TSX CIT,4 PUT IN BUFFER. F2520310
AC100 CLA OR000+26 F2520320
STO OR000+27 F2520330
LXA L(3),1 PREPARE TO F2520340
AC109 SXD AX,1 CHECK FOR F2520350
CLA TAG2+3,1 DUPES. F2520360
PDX 0,2 SAVE INDEX OF S. F2520370
TXL AC160,2,0 POS. NOT M0D. BY DO. F2520380
AC110 TNX AC116,1,1 F2520390
CAS TAG2+3,1 SKIP DUPES F2520400
TRA AC110 EXCEPT F2520410
TRA AC160 RIGHTMOST. F2520420
TRA AC110 F2520430
AC116 CLA DOTAGZ+8,2 ISOLATE F2520440
ANA 6T017 NAME OF TEST F2520450
STO TETTG FOR THIS DO F2520460
CLA TAG3 AND F2520470
ANA 24T035 COMPARE F2520480
ALS 18 WITH F2520490
CAS TETTG CURRENT TAG. F2520500
TRA AC160 NOT A TEST TAG. F2520510
TRA AC120 THIS IS A TEST TAG. F2520520
TRA AC160 NOT A TEST TAG. F2520530
AC120 CLA DOTAGZ+3,2 THIS IS TEST TAG, F2520540
ANA 6ONES 18 N2 CONSTANT. F2520550
TNZ AC128 F2520560
CLA DOTAGZ+8,2 IF RIGHT TEST HAS VARIABLE DECREMENT F2520570
ANA BIT20 GO TO AC138 +4 F2520580
TZE AC138 INSTEAD OF F2520590
TRA AC138+4 F2520600
AC128 CLA DOTAGZ+3,2 F2520610
STO CIL02 PUT N2 WORD AS F2520620
CLA L(0) SYMBOLIC ADDRESS AND F2520630
STO CIL03 ZERO AS THE F2520640
TRA AC140 RELATIVE ADDRESS. F2520650
AC138 LDQ DOTAGZ+6,2 CONSTANT N2 CASE. F2520660
RQL 9 IS TEST F2520670
LGL 12 MODIFIED. F2520680
TZE AC160 NO, TAKE NEXT SUB. F2520690
CLA DOTAGZ+3,2 YES, ISOLATE N2. F2520700
LXD AX,1 F2520710
TSX CXIJ+2,4 IF POSITION IS F2520720
TNX AC139,1,1 F2520730
STO ESTORE F2520740
CLA DOTAGZ+8,2 DOES TEST F2520750
ANA BIT20 HAVE VARIABLE DECREMENT. F2520760
TNZ AC139-1 F2520770
CLA ESTORE F2520780
TSX TELC+2,4 F2520790
TRA AC139 F2520800
CLA ESTORE F2520810
AC139 ALS 18 F2520820
TSX FIXCON,4 ASSIGN SYMBOL FOR F2520830
PAX 0,1 LOAD PORTION F2520840
ANA 6ONES AND COMPILE F2520850
STO CIL02 CLAL(GN2 + LOAD PORT.) F2520860
CLA L(0) F2520870
STO CIL03 F2520880
SXD CIL03,1 F2520890
TRA AC144 F2520900
AC140 CLA L(1) F2520910
LXD AX,1 COMPUTE G AND DETERMINE F2520920
TSX CXIJ+2,4 IF GREATER THAN ONE, F2520930
SUB L(1) F2520940
TNZ AC146 F2520950
AC144 CLA L(CLA) G = 1, F2520960
STO CIL01 COMPILE F2520970
CLA L(0) CLA N2, FOLLOWED F2520980
STO CIL00 LATER BY STD. F2520990
TSX CIT,4 F2521000
TRA AC150 F2521010
AC146 ADD L(1) G GREATER THAN 1, F2521020
ALS 18 COMPILE F2521030
TSX FIXCON,4 LDQ, MPY, ALS. F2521040
STO OR000+9 F2521050
CLA CIL02 F2521060
STO OR000+1 F2521070
CLA KLX02I F2521080
LXA L(3),1 F2521090
TSX LXC,4 F2521100
AC150 LXD AX,1 F2521110
CLA TAG3,1 F2521120
PDX 0,2 F2521130
CLA DOTAGZ+8,2 F2521140
ANA BIT20 F2521150
LXD AX,2 F2521160
TZE AC157 F2521170
TNX AC157,2,1 F2521180
LXA L(1),1 F2521190
CLA KLX01I F2521200
TSX LXC,4 F2521210
CLA INST13 F2521220
STO AC096 F2521230
TSX COSE,4 F2521240
LXD AX,2 F2521250
TXL AC080,2,2 F2521260
TRA AC064 F2521270
AC155 CLA INST14 F2521280
STO AC096 F2521290
LXD AX,2 F2521300
LXD BB0X,4 F2521310
TXI AC155+5,4,4 F2521320
SXD BB0X,4 F2521330
AC157 TSX TESTL0,4 F2521340
CLA TETLOC IN TETL0. F2521350
STO CIL02 COMPILE F2521360
CLA L(STD) STD TETL0 F2521370
STO CIL01 AND RETURN TO F2521380
SXD CIL00 AC160 TO F2521390
SXD CIL03 CONSIDER NEXT F2521400
TSX CIT,4 SUB OF TAG. F2521410
AC160 LXD AX,1 F2521420
TIX AC109,1,1 REDUCE POS. CTR. F2521430
CLA TAG4 CHECK SUSBIT F2521440
TPL AC165 FOR FORVAR. F2521450
LXD DOIND,2 FORVAR, IS IT F2521460
CLA DOTAGZ+5,2 WITHIN THE CURRENT DO. F2521470
ANA BIT1 F2521480
TZE AC165 NO, AC165. F2521490
CLA L(0) YES, F2521500
STO CIL02 COMPILE F2521510
TSX CIL03I,4 INSTRUCTIONS F2521520
CLA L(PXD) TO F2521530
STO CIL01 STORE F2521540
TSX CIT,4 THE F2521550
CLA DOTAGZ+1,2 VALUE F2521560
STO CIL02 OF F2521570
CLA L(STO) THE F2521580
STO CIL01 SUBSCRIPT F2521590
PXD 0,0 INTO F2521600
STO CIL03 ITS F2521610
TSX CIT,4 SYMBOL. F2521620
AC165 CLA XTG START SCANNING F2521630
ARS 2 TGA FOR LOCATIONS F2521640
PDX 0,1 INDICATING VARIABLE F2521650
CAL MXTGA,1 DECREMENTS OF TXI F2521660
SLW WRKTGA AND TIX INSTRUCTIONS- F2521670
TZE AC240 NONE, AC240. F2521680
LXA L(3),1 YES, ISOLATE F2521690
AC166 SXD AX,1 APP. TGTG AND F2521700
CAL WRKTGA CHECK FOR F2521710
ARS 18 LOCATIONS F2521720
AC168 TNX AC170,1,1 OF TXI F2521730
ARS 6 INSTRUCTIONS F2521740
TRA AC168 WITH VARIABLE F2521750
AC170 ANA 6ONESR DECREMENTS. F2521760
TZE AC190 NONE, AC190. F2521770
ALS 3 STORE F2521780
STO TETLOC LOC. OF TXI. F2521790
LXA L(0),4 F2521800
LXD AX,1 IS F2521810
CLA TAG4 POSITION F2521820
TXL AC173,1,2 F2521830
ANA BIT8 POSITION IS S1, IS F2521840
AC171 TNZ AC172 THIS BLOCK D SPECIAL. F2521850
CLA TAG4 NO, BLOCK A. F2521860
TRA AC176 TSX AOR0 F2521870
AC172 LDQ WRKSC+2 TES, SET UP F2521880
MPY WRKSC+6 CID1 AS G F2521890
ALS 17 FOR XX POSITION. F2521900
STO OR000+20 C1 IS G FOR F2521910
CLA WRKSC N3X POSITION. F2521920
STO OR000+19 PREPARE TO F2521930
LXA L(3),1 CALL PC ROUTINE F2521940
SXD N3X,1 TO COMPILE F2521950
LXA L(2),1 INITIALIZATION F2521960
SXD XX,1 INSTRUCTIONS F2521970
TSX PC,4 FOR BLOCK D SPECIAL. F2521980
TRA AC190 F2521990
AC173 TXL AC174,1,1 IS POSITION S3) F2522000
ARS 3 ISOLATE BLKNUM F2522010
AC174 ARS 29 FROM TAG4 AND F2522020
ANA L(7) CALLPROPER ROUTINE F2522030
PAX 0,4 TO COMPILE INITIALIZATION F2522040
AC176 TXH AC176+3,4,0 INSTRUCTIONS FOR THAT BLOCK. F2522050
TSX AOR0,4 BLOCK A F2522060
TRA AC190 F2522070
TXH AC178,4,1 F2522080
TSX BOR0,4 BLOCK B F2522090
TRA AC190 F2522100
AC178 TXH AC182,4,2 F2522110
TSX COR0,4 BLOCK C F2522120
TRA AC190 F2522130
AC182 TXH AC186,4,3 F2522140
TSX DORO,4 BLOCK D. F2522150
TRA AC190 F2522160
AC186 TSX EOR0,4 BLOCK E. F2522170
TRA AC190 F2522180
AC190 LXD AX,1 IF ALL SUBS HAVE NOT BEEN F2522190
TIX AC166,1,1 CONSIDERED FOR TXIS, TAKE NEXT RT. F2522200
LXA L(3),1 THIS REPRESENTS END OF F2522210
AC200 SXD AX,1 TXI PHASE, START TIX. F2522220
CLA WRKTGA ISOLATE APP. TGTG ENTRY. F2522230
AC210 TNX AC214+1,1,1 F2522240
ARS 6 F2522250
AC214 TRA AC210 F2522260
ANA 6ONESR F2522270
TZE AC236 IS THERE A TIX VAR. DEC. LOC. F2522280
ALS 3 YES, STORE TIX REL, LOC. F2522290
STO TETLOC IN TETLOC WORD. F2522300
LXD AX,1 F2522310
CLA TAG2+3,1 ISOLATE F2522320
PDX 0,2 N3 FOR F2522330
ACI21 CLA DOTAGZ+4,2 THIS DO. F2522340
SUB L(1) DOES N3 = 1. F2522350
TZE AC220+2 F2522360
TSX XOR0,4 NO, PLACE N SYMBOlS F2522370
LXA L(6),1 IN APPROP. OR0 LOCS F2522380
LXD AX,2 AND COMPUTE F2522390
AC220 CLA KTX00+3,2 X QUANTITY F2522400
TSX LXC,4 ON O.C. LEVEL. F2522410
LXD AX,1 F2522420
CLA INST4 TRA AC224. MODIFY ADR0 F2522430
STO AOR030 ROUTINE T0 COMPUTE G. F2522440
CLA INST5 TRAAC228. F2522450
STO AOR040 F2522460
TSX AOR0,4 COMPUTE G, PUT IN OR0+19. F2522470
AC224 TRA AC230 G1 = 1. F2522480
AC228 LXD AX,1 G1 NOT = 1, F2522490
CLA TAG2+3,1 COMPILE INSTRUCTIONS F2522500
PDX 0,2 TO COMPUTE AND INIT1ALIZE F2522510
CLA DOTAGZ+4,2 TIX DECREMENT. F2522520
SUB L(1) F2522530
TNZ AC228I N3 NOT = 1. F2522540
CLA DOTAGZ+2,2 N3 = 1, DOES F2522550
SUB L(1) N1 = 1. F2522560
TNZ ACI22 N1 NOT = 1. F2522570
CLA DOTAGZ+3,2 N3, N1=1. F2522580
STO OR000 G GREATER THAN 1, F2522590
CLA K1AOR0 F2522600
LXA L(4),1 F2522610
TSX LXC,4 F2522620
TRA AC234 EXIT TIX INITIAL1ZATION. F2522630
ACI22 TSX OP3,4 N3= 1, N1 NOT = 1, F2522640
CLA L(ADD) COMPILE F2522650
STO CIL01 TIX F2522660
CLA OR000+13 INITIALIZATION F2522670
PAX 0,1 GROUP F2522680
ANA 6ONES FOR F2522690
STO CIL02 THIS F2522700
SXD CIL03,1 CASE. F2522710
TSX CIT,4 F2522720
CLA L(STO) F2522730
STO CIL01 F2522740
CLA L(0) F2522750
STO CIL03 F2522760
CLA OR000+26 ERASEABLE STORAGE F2522770
PAX 0,4 SYMBOL FOR ADDRESS. F2522780
ANA 6ONES F2522790
STO CIL02 F2522800
SXD CIL03,4 F2522810
TSX CIT,4 F2522820
CLA OR000+26 PLACE ERASEABLE SYMBOl F2522830
STO OR000 IN OR000 FOR LXC BLOCK. F2522840
LXA L(4),1 F2522850
CLA K1AOR0 F2522860
TSX LXC,4 F2522870
TRA AC234 EXIT TIX INITIALIZATION, F2522880
AC228I LXA L(4),1 F2522890
CLA LTX040 COMPILE TIX INITIAL1ZATION F2522900
TSX LXC,4 GROUP FOR THIS CASE. F2522910
TRA AC234 EXIT TIX INITIALIZATION. F2522920
AC230 LXD AX,1 G=1, F2522930
CLA TAG2+3,1 DOES F2522940
PDX 0,2 N3 = 1. F2522950
CLA DOTAGZ+4,2 F2522960
SUB L(1) F2522970
TNZ AC230I NO. F2522980
CLA DOTAGZ+2,2 YES, DOES N1= 1. F2522990
SUB L(1) F252300D
TNZ ACI23 NO. F2523010
CLA DOTAGZ+3,2 G,N3,N1 = 1, F2523020
STO OR000 COMPILE TIX F2523030
CLA K2AOR0 INITIALIZATION F2523040
LXA L(2),1 FOR THIS F2523050
TSX LXC,4 CASE. F2523060
TRA AC234 EXIT TIX INITIALIZATION. F2523070
ACI23 TSX OP3,4 N3=1, N1 NOT = 1. F2523080
CLA L(ADD) COMPILE F2523090
STO CIL01 TIX F2523100
CLA OR000+13 INITIALIZATION F2523110
PAX 0,1 FOR F2523120
ANA 6ONES THIS F2523130
STO CIL02 CASE. F2523140
SXD CIL03,1 F2523150
TSX CIT,4 F2523160
CLA K3AOR0 F2523170
LXA L(1),1 F2523180
TSX LXC,4 F2523190
TRA AC234 EXIT TIX INITIALIZATION. F2523200
AC230I LXA L(2),1 G =1, N3 NOT = 1. F2523210
CLA LTX042 F2523220
TSX LXC,4 THIS CASE. F2523230
AC234 CLA INST3 RESET MODIFIED AOR0. F2523240
STO AOR030 LXC L(4),1. F2523250
CLA INST2 F2523260
STO AOR040 LXD L(2),1. F2523270
AC236 LXD AX,1 F2523280
TIX AC200,1,1 F2523290
AC240 TRA AC010 F2523300
LXA LADMX,2 START ADTG COMPILING. F2523310
TXI AC240+3,2,4 F2523320
SXD XTG,2 F2523330
CLA INST8 L(TRA AC244). F2523340
STA AC240 MODIFY RETURN FOR ADTG ENTRY. F2523350
STA AC016 F2523360
CLA INST10 F2523370
STA AC165+3 F2523380
AC244 TSX ADTGSE,4 FIND VALID ADTG ENTRY. F2523390
TRA AC250 END OF TABLE , GET NEXT DO. F2523400
AC248 TXL AC014,0 VALID ENTRY, CONTINUE AC CYCLE. F2523410
AC250 CLA INST11 REINITIALIZE F2523420
STA AC240 INSTRUCTIONS F2523430
STA AC016 MODIFIED F2523440
CLA INST12 FOR DMTAG F2523450
STA AC165+3 CYCLE, F2523460
CLA LOCIND COMPILE AT LEAST F2523470
TZE AC260 A BSS INST SO F2523480
CLA A THAT TRA INST F2523490
STO CIL00 WILL FUNCTION F2523500
CLA L(0) PROPERLY. F2523510
STO CIL02 F2523520
STO CIL03 F2523530
CLA L(BSS) F2523540
STO CIL01 F2523550
TSX CIT,4 F2523560
AC260 LXD AC248,4 END OF F2523570
TRA 1,4 ALPAHA CYCLE. F2523580
REM *************************************************************F2523590
REM CDOR0 TAKES COEF. AND DIM. AND FILLS OUT OR0. F2523600
CDOR0 SXD CDOR01,4 F2523610
LXD AX,2 F2523620
MSE 100 F2523630
CDOR01 TXH CDOR01+1,0 WHICH SUB IS IT. F2523640
TXL CDOR03,2,2 S2 OR S3, TRA. F2523650
CLA WRKSC S1, F2523660
SUB L1DEC IS C1 GREATER THAN1. F2523670
TZE 1,4 C1=1, RETURN. F2523680
PSE 100 C1 NOT = 1, TURN 0N F2523690
CLA WRKSC SENSE LIGHT , ISOLATE C1. F2523700
TRA CDOR07+1 F2523710
CDOR03 LDQ WRKSC+6 ISOLATE D1. F2523720
TXL CDOR05,2,1 WHICH SUBlISkIT. F2523730
MPY WRKSC+2 S2, FORM C2D1. F2523740
TRA CDOR07 F2523750
CDOR05 MPY WRKSC+4 S3, FORM F2523760
LRS 18 C3D1D2. F2523770
MPY WRKSC+7 F2523780
CDOR07 ALS 17 ASSIGN SYMBOl F2523790
TSX FIXCON,4 FOR G AND PUT F2523800
STO OR000+19 IN OR0 + 19. F2523810
LXD CDOR01,4 RESTORE LINKAGE, F2523820
LXD AX,2 PUT AX POSITION IN F2523830
TRA 1,4 I.R. B AND RETURN. F2523840
REM *************************************************************F2523850
REM AOR0, BOR0, COR0, DOR0, AND EOR0 ARE CALLED T0 MAKE APPROPRIAF2523860
REM COMPILING TABLE (OR0) ENTRIES AND TO CALLL ROUTINES TO MAKE F2523870
REM COMPUTATIONS AND COMPILE INSTRUCTIQNS TO INTIALIZE VARIABLE DF2523880
REM DECREMENTS FOR BLOCKS A, B, C, D, AND E RESPECTIVELY. F2523890
AOR0 SXD AOR05,4 F2523900
CLA TAG2+3,1 LOCATION IS F2523910
PDX 0,2 SPECIFIED IN OR0 +14 F2523920
CLA DOTAGZ,2 BY COMBINING TETLOC F2523930
ANA ADMSK WITH PROPER BETA. F2523940
ALS 18 F2523950
ORA TETLOC F2523960
STO OR000+14 F2523970
CLA DOTAGZ+4,2 F2523980
STO OR000 F2523990
LXD AX,1 F2524000
TXL AOR010,1,2 S2 OR S3. F2524010
CLA WRKSC S1 , IS F2524020
SUB L1DEC C1=1. F2524030
TZE AOR030 YES F2524040
ADD L1DEC NO, ASSIGN F2524050
TSX FIXCON,4 SYMBOl FOR C1. F2524060
STO OR000+19 F2524070
AOR05 TXL AOR040,0 F2524080
AOR010 TXL AOR020,1,1 IS SUB S2. F2524090
LDQ WRKSC+2 YES, FOR C2D1. F2524100
MPY WRKSC+6 IF S2 IS A F2524110
ALS 17 DUPE, ADD C1. F2524120
STO ERAOR0 F2524130
LDQ TAG4 F2524140
LLS 25 F2524150
LBT F1I24160
TRA AOR014 NO DUPES. F2524170
CLA WRKSC F2524180
ADD ERAOR0 F2524190
STO ERAOR0 F2524200
AOR014 CLA ERAOR0 CONTAINS C2D1, ETC. F2524210
TSX FIXCON,4 ASSIGN SYMBOL FOR F2524220
STO OR000+19 G AND PUT IN OR0+19 F2524230
TRA AOR040 F2524240
AOR020 LDQ WRKSC+4 S3, FORM F2524250
MPY WRKSC+6 C3D1D2. F2524260
LRS 18 F2524270
MPY WRKSC+7 F2524280
ALS 17 F2524290
STO ERAOR0 F2524300
LDQ TAG4 CHECK DUPES F2524310
LLS 26 AND MAKE G F2524320
LBT ADJUSTMENTS F2524330
TRA AOR024 ACCORDINGLY. F2524340
ARS 1 F2524350
LBT F2524360
TRA AOR022 F2524370
LDQ WRKSC+2 F2524380
MPY WRKSC+6 F2524390
ALS 17 F2524400
ADD ERAOR0 F2524410
STO ERAOR0 F2524420
AOR022 CLA TAG4 F2524430
ARS 11 F2524440
LBT F2524450
TRA AOR024 F2524460
CLA WRKSC F2524470
ADD ERAOR0 F2524480
STO ERAOR0 F2524490
AOR024 CLA ERAOR0 F2524500
TSX FIXCON,4 ASSIGN SYMBOL FOR F2524510
STO OR000+19 G FOR S3. F2524520
TRA AOR040 F2524530
AOR030 LXA L(2),1 SUB IS S1, C1=1, F2524540
CLA K2AOR0 COMPILE CLA, STD. F2524550
TSX LXC,4 F2524560
TRA AOR050 F2524570
AOR040 LXA L(4),1 COMPILE LDQ,MPY, STD. F2524580
CLA K1AOR0 F2524590
TSX LXC,4 F2524600
AOR050 LXD AOR05,4 RESTORE LINKAGE. F2524610
TRA 1,4 F2524620
REM *************************************************************F2324630
BOR0 SXD LINKC,4 FOR B BLOCK F2524640
LDQ WRKSC+2 COMPUTE G AS F2524650
MPY WRKSC+6 C2D1. PLACE F2524660
ALS 17 THIS AND C1 F2524670
STO OR000+19 IN OR0. F2524680
CLA WRKSC F2524690
STO OR000+20 F2524700
LXA L(2),1 INITIALIZE N3X F2524710
SXD N3X,1 POS. TO S2. F2524720
LXA L(3),1 INITIALIZE XX F2524730
SXD XX,1 POS. TO S1. F2524740
TSX PC,4 F2524750
LXD LINKC,4 F2524760
TRA 1,4 F2524770
REM *************************************************************F2524780
COR0 SXD COR005,4 F2524790
LDQ WRKSC+6 FORM C3D1D2 AND F2524800
MPY WRKSC+7 STORE-IN F2524810
LRS 18 OR0+19 F2524820
MPY WRKSC+4 FOR USE BY F2524830
ALS 17 PC IN COMPUTING F2524840
STO OR000+19 BLOCK C DECREMENTS. F2524850
CLA TAG4 TEST F2524860
ARS 9 FOR F2524870
LBT DUPES. F2524880
COR005 TXL COR010,0 NO DUPES. F2524890
LDQ WRKSC+6 IF DUPES, FORM F2524900
MPY WRKSC+2 C2D1, ADD TO F2524910
ALS 17 OR0+19 , AND STORE F2524920
ADD OR000+19 IN OR0+19 FOR F2524930
STO OR000+19 USE BY PC. F2524940
COR010 LXA L(1),1 SET N3X POSITION F2524950
SXD N3X,1 TO S3, F2524960
LXA L(3),1 XX POSITION TO S1 F2524970
SXD XX,1 AND CALL PC TO COMPUTE F2524980
TSX PC,4 AND COMPILE BLKC INIT. F2524990
LXD COR005,4 RESTORE LINKAGE AND F2525000
TRA 1,4 RETURN TO MAIN ROUTINE. F2525010
REM *************************************************************F2525020
DORO SXD DOR05,4 BLOCK D NORMAL. F2525030
LDQ WRKSC+4 COMPUTES C3D1D2, G1 F2525040
MPY WRKSC+6 AND C2D1, G2 IF DUP. F2525050
LRS 18 EXIST IN THE CASE F2525060
MPY WRKSC+7 110 C1 ADDED TO G2. F2525070
ALS 17 IN THE CASE 101 F2525080
STO OR000+19 C1 ADDED TO G1. F2525090
LDQ WRKSC+2 F2525100
MPY WRKSC+6 F2525110
ALS 17 F2525120
STO OR000+20 F2525130
CLA TAG4 F2525140
ARS 9 F2525150
ANA L(7) F2525160
TZE DOR020 F2525170
LBT F2525180
DOR05 TXL DOR010,0 F2525190
CLA WRKSC F2525200
ADD OR000+19 F2525210
STO OR000+19 F2525220
TRA DOR020 FC52523D
DOR010 CLA WRKSC F2525240
ADD OR000+20 F2525250
STO OR000+20 F2525260
DOR020 LXA L(1),1 SET N3X POS. TO S3, F2525270
SXD N3X,1 F2525280
LXA L(2),1 XX POS. TO S2. F2525290
SXD XX,1 F2525300
TSX PC,4 MAKE COMPUTATIONS AND COMPILE F2525310
LXD DOR05,4 INSTRUCTIONS TO INIT. VAR. F2525320
TRA 1,4 BLOCK D DECREMENTS, F2525330
REM *************************************************************F2525340
EOR0 SXD EOR006,4 F2525350
TSX DORO,4 COMP. INSTR. FOR 1ST TXI-SXD-TIX. F2525360
CLA OR000+15 UPDATE F2525370
ADD L(8) TXI RELATIVE F2525380
STO OR000+14 INSTRUCTION NUM8ER. F2525390
ADD L(16) UPDATE TIX RELATIVE F2525400
STO OR000+15 INSTRUCTION NUMBER. F2525410
LXA L(3),1 SEE IF F2525420
CLA TAG2+3,1 X FOR F2525430
PDX 0,2 XX POSITION F2525440
CLA DOTAGZ+5,2 IS F2525450
ANA BIT2 COMPUTABLE. F2525460
TZE EOR006-1 X COMPUTABLE. F2525470
CLA DOTAGZ+4,2 X NOT COMPUTABLE, F2525480
SUB L(1) IS N3=1. F2525490
TNZ EOR006-1 N3 NOT =1. F2525500
CLA DOTAGZ+2,2 N3=1, IS F2525510
SUB L(1) N1 = 1. F2525520
TNZ EOR02 N1 NOT = 1. F2525530
CLA WRKSC N3,NU = 1, F2525540
SUB L1DEC DOES C1=1. F2525550
TNZ EOR01 NO. F2525560
CLA DOTAGZ+3,2 N3, N1, C1 = 1 . F2525570
TRA EOR022 ISOLATE N2 SYMBOL. F2525580
EOR01 CLA DOTAGZ+3,2 ISOLATE F2525590
STO OR000 N2 SYMBOL. F2525600
CLA WRKSC ASSIGN SYMBOL F2525610
TSX FIXCON,4 FOR C1, AND F2525620
STO OR000+19 COMPILE LDQ L(N2), F2525630
CLA K1AOR0 MPY L(C1), ARS 17. F2525640
LXA L(3),1 F2525650
TSX LXC,4 F2525660
EOR03 LXA L(1),1 COMPILE F2525670
CLA LXCIE1 SUB L(1), F2525680
TSX LXC,4 F2525690
TXI EOR03+4,1,1 COMPILE F2525700
CLA LXCEIP STD L(TIX), STD L(TXI). F2525710
TSX LXC,4 F2525720
TRA EOR018+3 F2525730
EOR02 TSX OP3,4 COMPILE CLA (N2 - N1) F2525740
CLA WRKSC OR CLA N2, SUB N1. F2525750
SUB L1DEC DOES C1=1. F2525760
TZE EOR03 UES, EOR03. F2525770
CLA L(ADD) NO, COMPILE F2525780
STO CIL01 ADD L(1), F2525790
CLA OR000+13 STO 1)+3, F2525800
PAX 0,4 F2525810
ANA 6ONES MPY L(C1., F2525820
STO CIL02 ALS 17, F2525830
SXD CIL03,4 STO 1)+3, F2525840
TSX CIT,4 AND GO TO F2525850
CLA L(STO) EOR03. F2525860
STO CIL01 F2525870
CLA OR000+26 F2525880
STO OR000+1 F2525890
PAX 0,4 F2525900
ANA 6ONES F2525910
STO CIL02 F2525920
SXD CIL03,4 F2525930
TSX CIT,4 FIXCON SYMBOL F2525940
CLA WRKSC FOR C1. F2525950
TSX FIXCON,4 F2525960
STO OR000+9 F2525970
CLA KLX02I F2525980
LXA L(4),1 F2525990
TSX LXC,4 F2526000
TRA EOR03 F2526010
TSX PXOR0,4 C1 GREATER THAN 1. F2526020
EOR006 TXL EOR008,0 F2526030
TRA EOR020 X CONSTANT, EOR020. F2526040
EOR008 LXA L(6),1 X NOT CONST., F2526050
CLA WRKSC COMPILE F2526060
SUB L1DEC INSTRUCTIONS F2526070
TZE EOR015 TO COMPUTE F2526080
TXI EOR010,1,2 XGN3. F2526090
EOR010 CLA WRKSC F2526100
TSX FIXCON,4 F2526110
STO OR000+9 F2526120
EOR015 CLA LXCI F2526130
TSX LXC,4 F2526140
EOR018 LXA L(4),1 COMPILE LLS, SUB, F2526150
CLA LXCIE STD,STD. F2526160
TSX LXC,4 F2526170
LXD EOR006,4 F2526180
TRA 1,4 F2526190
EOR020 LRS 35 F2526200
NOP F2526210
MPY WRKSC F2526220
ALS 17 F2526230
NOP F2526240
TSX FIXCON,4 F2526250
EOR022 STO OR000+20 PUT SYMB0L IN F2526260
LXA L(1),1 OR0+20 AND C0MPILE F2526270
CLA LXCIEP CLA (SYMB0L), F2526280
TSX LXC,4 F2526290
TRA EOR03 F2526300
REM *************************************************************F2526310
REM PC IS A SUBROUTINE CALLED BY AOR0, BOR0, ETC. T0 HAKE C0MPUTAF2526320
REM TIONS AND T0 CALL C0MPILING ROUTINES FOR TXI DECREMENT INTIAF2526330
REM LIZATION. F2526340
PC SXD PC04,4 F2526350
LXD N3X,1 F2526360
CLA TAG2+3,1 F2526370
PDX 0,2 F2526380
CLA DOTAGZ,2 F2526390
ANA ADMSK FORM LOCATION F2526400
ALS 18 WORDS AND PUT F2526410
ORA TETLOC IN OR0+14 F2526420
STO OR000+14 AND OR0+15. F2526430
ADD L(16) F2526440
STO OR000+15 F2526450
CLA DOTAGZ,2 IS N3 FOR THIS DO F2526460
ARS 15 VARIABLE. F2526470
LBT F2526480
PC04 TXL PC10,0 NO, PC10. F2526490
CLA DOTAGZ+4,2 YES, F2526500
STO OR000 COMPILE F2526510
CLA OR000+19 LDQ L(G), (N3X POS,), F2526520
TSX FIXCON,4 MPY N3, (N3X POS.), F2526530
STO OR000+19 ALS 17, F2526540
LXA L(4),1 STO C(OR0+12) F2526550
CLA K1BOR0 F2526560
TSX LXC,4 F2526570
TRA PC20 F2526580
PC10 LDQ DOTAGZ+4,2 N3 C0NSTANT, PUT F2526590
MPY OR000+19 N3G SYMBOL IN F2526600
LLS 35 OR0+19 F2526610
TSX FIXCON,4 F2526620
STO OR000+19 F2526630
PC20 LXD XX,1 ISOLATE N3 FOR F2526640
PCI CLA TAG2+3,1 XX POSITION F2526650
PDX 0,2 F2526660
CLA DOTAGZ+4,2 DOES N3 = 1. F2526670
SUB L(1) F2526680
TNZ PC21 NO, PC22. F2526690
CLA DOTAGZ+5,2 YES, IS X CONST. F2526700
ANA BIT2 F2526710
TZE PC21 YES, PC21. F2526720
TXL PCI31,1,2 NO, IS POS. S2. F2526730
CLA DOTAGZ+2,2 NO, IS N1 = 1. F2526740
SUB L(1) F2526750
TNZ PCI22 NO, PCI22. F2526760
CLA DOTAGZ+3,2 YES, DOES C1 = 1, F2526770
STO OR000+1 F2526780
CLA WRKSC F2526790
SUB L1DEC F2526800
TNZ PCI21 NO, PCI21. F2526810
LXA L(1),1 YES, COMPILE F2526820
CLA KLX02 CLA N1, F2526830
TSX LXC,4 SUBL(1), AND F2526840
TRA PCI33 F2526850
PCI21 CLA WRKSC F2526860
TSX FIXCON,4 COMPILE F2526870
STO OR000+9 LDQ L(N2) F2526880
CLA KLX02I MPY LC1) F2526890
LXA L(4),1 ALS 17 F2526900
TSX LXC,4 STO 1) +3. F2526910
TRA PC60 F2526920
PCI22 TSX OP3,4 COMPILE CLA L(N2-N1) F2526930
CLA WRKSC F2526940
SUB L1DEC IS C1 = 1. F2526950
TZE PC60 YES, PC 60. F2526960
CLA WRKSC NO, OBTAIN F2526970
TSX FIXCON,4 SYMBOL FOR F2526980
STO OR000+9 C1 AND F2526990
PCI22R CLA L(ADD) COMPILE F2527000
STO CIL01 ADD L(1) F2527010
CLA OR000+13 STO 1) +3 F2527020
PAX 0,1 LDQ 1) +3 F2527030
SXD CIL03,1 MPY L(G) F2527040
ANA 6ONES ALS17 F2527050
STO CIL02 STD 1) +3 F2527060
TSX CIT,4 SUB L(1), F2527070
CLA L(STO) THEN GO F2527080
STO CIL01 TO PC60. F2527090
CLA OR000+26 F2527100
STO OR000+1 F2527110
PAX 0,4 F2527120
ANA 6ONES F2527130
STO CIL02 F2527140
SXD CIL03,4 F2527150
TSX CIT,4 F2527160
LXA L(4),1 F2527170
CLA KLX02I F2527180
TSX LXC,4 F2527190
TRA PCI33 F2527200
PCI31 CLA OR000+20 XX POS 2 , X VAR., N3 = 1, F2527210
TSX FIXCON,4 ASSIGN SYMBOL FOR G F2527220
STO OR000+9 AND PUT IN OR0+9 F2527230
CLA DOTAGZ+2,2 IS N1 = 1 F2527240
SUB L(1) F2527250
TZE PCI32 YES, PCI32. F2527260
TSX OP3,4 NO, COMPILE CLA (N2-N1) F2527270
TRA PCI22R OR CLA N2, SUB N1. F2527280
PCI32 CLA DOTAGZ+3,2 COMPILE F2527290
STO OR000+1 LDQ N2, F2527300
LXA L(4),1 MPY G, F2527310
CLA KLX02I ALS 17, F2527320
TSX LXC,4 STO1)+3, F2527330
PCI33 LXA L(1),1 F2527340
CLA LXCI61 F2527350
TSX LXC,4 F2527360
TRA PC60 F2527370
PC21 TSX PXOR0,4 IS X CONSTANT. F2527380
TRA PC22 NO, PC22. F2527390
TRA PC50 YES. PC50, F2527400
PC22 LXD XX,1 X NOT CONSTANT, F2527410
TXL PC40,1,2 IS POSITION S1. F2527420
LXA L(6),1 TES, COMPILE F2527430
CLA WRKSC INSTRUCTIONS F2527440
SUB L1DEC TO COMPUTE F2527450
TZE PC30 N3X-1, AND F2527460
TXI PC25,1,2 TO TO PC60, F2527470
PC25 ADD L1DEC F2527480
TSX FIXCON,4 F2527490
STO OR000+9 F2527500
PC30 CLA LXCI F2527510
TSX LXC,4 F2527520
LXA L(2),1 F2527530
CLA LXCI6 F2527540
TSX LXC,4 F2527550
TRA PC60 F2527560
PC40 CLA OR000+20 POS, IS S2, F2527570
TSX FIXCON,4 COMPILE INSTRUCTIONS F2527580
STO OR000+20 TO COMPUT N3X-1 AND F2527590
LXA L(10),1 GO TO PC60. F2527600
CLA LX2CI F2527610
TSX LXC,4 F2527620
TRA PC60 F2527630
PC50 LRS 35 X IS CONSTANT, F2527640
MPY OR000+20 FORM GN3X-1 FOR F2527650
ALS 17 XX POS. AND COMPILE F2527660
SUB L1DEC F2527670
TSX FIXCON,4 F2527680
STO OR000+20 F2527690
LXA L(1),1 F2527700
CLA XK F2527710
TSX LXC,4 F2527720
PC60 LXD N3X,1 F2527730
CLA TAG2+3,1 IS F2527740
PDX 0,2 N3 F2527750
LXA L(3),1 OF F2527760
CLA DOTAGZ,2 CURRENT F2527770
ARS 15 DO F2527780
LBT VARIABLE. F2527790
TRA PC61 CONSTANT, PC61. F2527800
CLA LXCI8 VARIABLE, COMPILE F2527810
PC62 TSX LXC,4 STD, ADD N3G, STD. F2527820
LXD PC04,4 F2527830
TRA 1,4 F2527840
PC61 CLA LXCI8P CONSTANT. COMPILE F2527850
TRA PC62 STO, ADD C(OR0+12), STD. F2527860
REM *************************************************************F2527870
REM CIL03I FILLS OUT LOCATION AND TAG NAME WORDS FOR COMPILED INSF2527880
REM TRUCTIONS WITHOUT LOCATIONS. F2527890
CIL03I CLA L(0) PLACE 0 IN LOCATION F2527900
STO CIL00 WORD AND TAG IN F2527910
CLA TAG3 TAG WORD OF COMPILED F2527920
ANA ADMSK INSTRUCGIN. F2527930
STO CIL03 F2527940
TRA 1,4 F2527950
REM *************************************************************F2527960
REM BITP CHECKS SUBSCRIPTS FOR DEFINITION. IF DEFINED BY RELCON F2327970
REM OR DOSUB IT OBTAINS OBJECT PROGRAM SYMBOLS FOR N1 OR S1 RESPEF2327980
REM CTIVELY. F2527990
BITP STA BITP14 F2528000
STA BITP02 INITIALIZE SHIFTS, F2528010
STA BITP04 STORE LINKAGE F2528020
PAX 0,2 AND PLACE 0,1,2 IN F2528030
ALS 1 XB FOR S3, S2, AND F2528040
PAX 0,1 S1 RESPECTIVELY, F2528050
SXD BITP25,4 F2528060
CLA OREDO CHECK TO SEE IT F2528070
BITP02 ARS DEFINED BY DO, RELCON, F2528080
LBT OR DORC. RETURN AS NOT F2528090
TRA 1,4 DEFINED IF NOT DEFINED. F2528100
CLA DEFDO DEFINED. CHECK T0 SEE F2528110
BITP04 ARS IF DEFINED BY DO, F2528120
LBT F2528130
TRA BITP30 DEFINED AS RELCON. F2528140
CLA TAG2+2,2 DEFINED BY DO, CHECK F2528150
PDX 0,2 TO SEE IF N1 IS F2528160
BITP10 CLA N1SBX VARIABLE. IF SO, RETURN F2528170
TXH 64,0,7 AS UNDEFINED. F2528180
BITP14 ARS IF NOT, F2528190
LBT CONTINUE. F2528200
TRA BITP02+2 SYMBOl HAS VARIABLE N1. F2528210
BITP20 CLA DOTAGZ+2,2 DOSUB, N2. F2528220
BITP25 TXL BITP40,0 SUBMLEFT IN ACC. F2528230
BITP30 CLA WRKSC+5,1 RELCON S SYMBOL FROM WRKSC. F2528240
BITP40 LXD BITP25,4 RESTORE LINKAGE F2528250
TRA 2,4 SYMBOL IN ACC. F2528260
REM *************************************************************F2528270
REM COSE TESTS COEFFICIENTS AND OBTAINS OBJECT PROGRAM SYMBOLS FRF2528280
REM TH0SE GREATER THAN 1 F2528290
COSE LXA L(6),1 COEFFICIENT INDEX. F2528300
LXA L(3),2 SENSE LIGHT INDEX. F2528310
SXD LINKC,4 STORE LINKAGE. F2528320
COSE5 CLA WRKSC+6,1 ISOLATE COEFFIEIENT, F2528330
TZE COSE08 NO SUB FOR THIS DIM. F2528340
SUB L1DEC F2528350
TZE COSE08 C=1, CHECK NEXT C. F2528360
PSE 100,2 C NOT = 1, SENSE LIGHT. F2528370
CLA WRKSC+6,1 ASS1GN FIXCON SYMBOL F2528380
TSX FIXCON,4 FOR C NOT = 1. STORE IN F2528390
STO OR000+12,2 OR0+910, OR 11. F2528400
COSE08 TIX COSE10,1,2 BUMP COEF. INDEX. F2528410
COSE10 TIX COSE5,2,1 BUMP S.6. TEST AND LOOP, F2528420
LXD LINKC,4 RESTORE LINKAGE F2528430
TRA 1,4 AND RETURN. F2528440
REM *************************************************************F2528450
REM TESTL0 OBTAINS THE TEST LOCATION TO BE THE SYMBOLIC ADDRESS OF2528460
REM OF THE STD INITIALIZING INSTRUCT10N, F2528470
TESTL0 CLA TAG2+3,2 INITIALIZE INDEX F2528480
PDX 0,2 FOR TEST DOTAG. F2528490
CLA L(0) ISOLATE F2528500
LDQ DOTAGZ+6,2 SXD F2528510
RQL 3 LOCATION F2528520
LGL 6 AND PUT F2528530
ALS 3 IN TETLOC F2528540
STO TETLOC ADDRESS F2528550
CLA DOTAGZ,2 PUT TXL F2528560
ANA ADMSK LOCATION F2528570
ALS 18 IN TETLOC F2528580
ORS TETLOC DECREMENT. F2528590
TRA 1,4 F2528600
REM *************************************************************F2528610
REM PREFACE TO OR0 EXAMINES VARIABLIITY OF X QUANTITY. F2528620
PXOR0 CLA TAG2+3,1 IF X IS F2528630
PDX 0,2 CONSTANT IT IS F2528640
CLA DOTAGZ+5,2 LEFT IN THE F2528650
ANA BIT2 DECREMENT OF F2528660
TNZ XOR0 ACC. F2528670
CLA DOTAGZ+5,2 F2528680
ANA ADMSK F2528690
ALS 18 F2528700
TRA 2,4 F2528710
REM *************************************************************F2528720
REM XOR0 FILLS OUT OR0 FOR N1, N2, N3, GIVEN DO IN B AND POS IN AF2528730
XOR0 SXD XOR032,4 F2528740
CLA DOTAGZ,2 F2528750
ARS 15 F2528760
ANA L(7) F2528770
STO N1N2N3 F2528780
CLA L(OR0) ORIGIN OF OR0 TABLE. F2528790
ADD L(4) CALCULATES ADDRESS F2528800
TXH XOR010,1,2 FOR STORING INTO F2528810
ADD L(3) OR0 TABLE. F2528820
XOR010 TXH XOR020,1,1 F2528830
ADD L(17) F2528840
XOR020 STA XOR036 STORE ADRS FOR NS. F2528850
LXA L(3),1 F2528860
XOR030 LDQ N1N2N3 F2528870
RQL 36,1 F2528880
CLA DOTAGZ+2,2 F2528890
TQP XOR034 N IS CONSTANT. F2528900
XOR032 TXL XOR036,0 N IS VARIABLE F2528910
XOR034 ALS 18 F2528920
TSX FIXCON,4 F2528930
XOR036 STO 0,1 F2528940
TIX XOR040,2,1 F2528950
XOR040 TIX XOR030,1,1 F2528960
STO OR000 F2528970
LXD XOR032,4 F2528980
TRA 1,4 F2528990
REM *************************************************************F2529000
REM THIS ROUTINE EXAMINES A BLOCK OF CONSTANTS AND COMPILES ONE IF2529010
REM INSTRUCTION FOR EACH. THE CALLER INDICATES THE FIRST CONSTANF2529020
REM BY A REFERENCE IN THE ACCUMULATOR, AND INDICATES THE NUMBER OF2529030
REM OF INSTRUCTIONS IN INDEX REGISTER A. F2529040
LXC SXD LXC19,4 F2529050
STO ERLXC F2529060
PXD 0,1 F2529070
ARS 18 F2529080
ADD ERLXC F2529090
STA LXC10 F2529100
CLA LOCIND TEST TO SEE IF F2529110
TZE LXC08 THIS IS THE FIRST F2529120
SUB L(1) LXD COMPILED. IF SO, F2529130
STO LOCIND PLACE A IN F2529140
LXD DOIND,2 DECREMENT F2529150
CLA DOTAGZ,2 OF LOCATION WORD F2529160
ANA DECMSK FOR FIRST COMPILED F2529170
STO CIL00 INSTRUCTION. F2529180
TRA LXC10 F2529190
LXC08 CLA L(0) F2529200
STO CIL00 F2529210
LXC10 LDQ 0,1 SKELETAL INSTRUCTION. F2529220
LLS 0 F2529230
LGL 18 F2529240
STQ CIL01 COMPILE OP. WORD. F2529250
TMI LXC20 F2529260
STA LXC15 SYMBOL.ADDR, TYPE INSTRUCTION, F2529270
LXC15 CLA F2529280
STO CIL02 SYMBOLIC ADDRESS. F2529290
CLA L(0) RELATIVE F2529300
STO CIL03 ADDRESS. F2529310
CAL CIL02 TEST CIL02 F2529320
ANA 6ONES WORD. F2529330
TZE LXC30 FIRST CHARACTER IS ZERO. F2529340
ANA BIT01 F2529350
TNZ LXC30 FIRST CHARACTER ALPHABETIC. F2529360
CAL CIL02 FIRST CHARACTER NUMBERIC, F2529370
ALS 18 PLACE REIGHT HALF OF CIL02 F2529380
STD CIL03 IN CIL03, LEFT HALF F2529390
CAL 6ONES IN CIL02. F2529400
ANS CIL02 F2529410
LXC19 TXL LXC30,0 SHIF TYPE INSTRUCTION, F2529420
LXC20 ALS 18 F2529430
ANA DECMSK F2529440
STO CIL03 F2529450
CLA L(0) F2529460
STO CIL02 F2529470
LXC30 TSX CIT,4 F2529480
TIX LXC08,1,1 COUNT COMPILED INSTR. IN BLK. F2529490
LXD LXC19,4 F2529500
TRA 1,4 F2529510
REM *************************************************************F2529520
KLX01 LXI00 F2529530
KLX01I LXI00+1 F2529540
KLX02I LXI05 F2529550
KLX02 LXI02 F2529560
KLX03 LXI16 F2529570
KLX05 LXI30 F2529580
KLX03I LXI10 F2529590
KLX05I LXI24 F2529600
K1AOR0 A1C00 F2529610
KIAOR0 A1C01 F2529620
K2AOR0 A1000 F2529630
K3AOR0 A1001 F2529640
KTX00 TXC00 F2529650
TXC08 F2529660
TXC18 F2529670
KTX04 TXC30 F2529680
KTX03 TXC31 F2529690
LTX040 TX040 F2529700
LTX042 TX042 F2529710
LXCI XCI F2529720
LXCI6 XCI6 F2529730
LXCIE XCIE F2529740
LXCIE1 XCIE+1 F2529750
LXCIEP XCIEP F2529760
LXCEIP XCEIP F2529770
XK XKI F2529780
K1BOR0 L(BIC) F2529790
LX2CI X2CI F2529800
LXCI61 XCI6+1 F2529810
LXCI8 XCI8 F2529820
LXI00 14545,2,OR000+13 CLA F2529830
11494,6,OR000+26 STO F2529840
LXI02 14545,2,OR000+1 CLA F2529850
11494,6,OR000+26 STO F2529860
LXI05 13608,4,OR000+1 LDQ F2529870
18936,4,OR000+9 MPY F2529880
TNX 6386,2,17 ALS 17 F2529890
11494,6,OR000+26 STO F2529900
LXI10 13608,4,OR000+4 LDQ F2529910
18936,4,OR000+7 MPY F2529920
TNX 6386,2,17 ALS 17 F2529930
11538,6,OR000+7 SUB F2529940
5396,2,OR000+26 ADD F2529950
11494,6,OR000+26 STO F2529960
LXI16 13608,4,OR000+4 LDQ F2529970
18936,4,OR000+10 MPY F2529980
TNX 14962,4,18 LRS F2529990
18936,4,OR000+7 MPY F2530000
TNX 6386,2,17 ALS F2530010
11538,6,OR000+7 SUB F2530020
5396,2,OR000+26 ADD F2530030
11494,6,OR000+26 STO F2530040
LXI24 13608,4,OR000+21 L0Q F2530050
18936,4,OR000+24 MPY F2530060
TNX 6386,2,17 ALS F2530070
11538,6,OR000+24 SUB F2530080
5396,2,OR000+26 ADD F2530090
11494,6,OR000+26 STO F2530100
LXI30 13608,4,OR000+21 LDQ F2530110
18936,4,OR000+11 MPY F2530120
TNX 14962,4,18 LRS F2530130
18936,4,OR000+24 MPY F2530140
TNX 6386,2,17 ALS F2530150
11538,6,OR000+24 SUB F2530160
5396,2,OR000+26 ADD F2530170
11494,6,OR000+26 STO F2530180
L(BIC) 13608,4,OR000+19 LDQ F2530190
18936,4,OR000 MPY F2530200
TNX 6386,2,17 ALS F2530210
11494,6,OR000+12 STO F2530220
XCI 14545,2,OR000+2 CLA F2530230
11538,6,OR000+1 SUB F2530240
5396,2,OR000+3 ADD F2530250
TNX 14962,4,35 LRS F2530260
19815,2,OR000+3 DVP F2530270
18936,4,OR000+3 MPY F2530280
TNX 14962,4,18 LRS F2530290
18936,4,OR000+9 MPY F2530300
XCI6 TNX 14578,4,35 LLS F2530310
11538,6,OR000+13 SUB F2530320
XCI8 11476,6,OR000+15 STD F2530330
5396,2,OR000+12 ADD F2530340
11476,6,OR000+14 STD F2530350
A1C00 13608,4,OR000 LDQ F2530360
A1C01 18936,4,OR000+19 MPY F2530370
TNX 6386,2,17 ALS F2530380
11476,6,OR000+14 STD F2530390
A1000 14545,2,OR000 CLA F2530400
A1001 11476,6,OR000+14 STD F2530410
TXC00 14545,2,OR000+2 CLA F2530420
11538,6,OR000+1 SUB F2530430
5396,2,OR000+3 ADD F2530470
TNX 14962,4,35 LRS F2530450
19815,2,OR000+3 DVP F25F0460
18936,4,OR000+3 MPY F2530470
TXC08 14545,2,OR000+5 CLA F2530480
11538,6,OR000+4 SUB F2530490
5396,2,OR000+6 ADD F2530500
TNX 14962,4,35 LRS F2530510
19815,2,OR000+6 DVP F2530520
18936,4,OR000+6 MPY F2530530
TXC18 14545,2,OR000+22 CLA F2530540
11538,6,OR000+21 SUB F2530550
5396,2,OR000+23 ADD F2530560
TNX 14962,4,35 LRS F2530570
19815,2,OR000+23 DVP F2530580
18936,4,OR000+23 MPY F2530590
TNX 14962,4,18 LRS F2530600
18936,4,OR000+7 MPY F2530610
TNX 14962,4,18 LRS F2530620
18936,4,OR000+8 MPY F2530630
TNX 14962,4,18 LRS F2530640
18936,4,OR000+11 MPY F2530650
TXC30 TNX 14578,4,35 LLS F2530660
TXC31 5396,2,OR000+27 ADD F2530670
11538,6,OR000+13 SUB F2530680
TX040 TNX 14962,4,18 LRS F2530690
18936,4,OR000+19 MPY F2530700
TX042 TNX 14578,4,35 LLS F2530710
11476,6,OR000+14 STD F2530720
X2CI 14545,2,OR000+5 CLA F2530730
11538,6,OR000+4 SUB F2530740
5396,2,OR000+6 ADD F2530750
TNX 14962,4,35 LRS F2530760
19815,2,OR000+6 DVP F2530770
18936,4,OR000+6 MPY F2530780
TNX 14962,4,18 LRS F2530790
18936,4,OR000+20 MPY F2530800
TNX 14578,4,35 LLS F2530810
11538,6,OR000+13 SUB F2530820
XKI 14545,2,OR000+20 CLA F2530830
XCIE TNX 14578,4,35 LLS F2530840
11538,6,OR000+13 SUB F2530850
11476,6,OR000+15 STD F2530860
11476,6,OR000+14 STD F2530870
XCI8P 11476,6,OR000+15 STD F2530880
5396,2,OR000+19 ADD F2530890
11476,6,OR000+14 STD F2530900
LXCI8P XCI8P F2530910
XCIEP 14545,2,OR000+20 CLA F2530920
XCEIP 11476,6,OR000+15 STD F2530930
11476,6,OR000+14 STD F2530940
REM *************************************************************F2530950
OR000 BSS 12 F2530960
OR012 OCT 010000000001 F2530970
OCT 060000000003 F2530980
OR014 BSS 12 F2530990
OR026 OCT 010000000003 1)+3 SYMBOL. F2531000
REM *************************************************************F2531010
REM F2531020
REM *************************************************************F2531030
REM SYNONYMS F2531040
ZEKSUM SYN TGTG+100 F2531050
TAG21 SYN TAG2+1 F2531060
TAG22 SYN TAG2+2 F2531070
RTXAC SYN RTX F2531080
RTXAC SYN AC F2531090
ERAOR0 SYN ERTX01 F2531100
CPYWD1 SYN ER40 F2531110
CPYWD2 SYN ER41 F2531120
ERDRM1 SYN ARG F2531130
ERDRM1 SYN ARG F2531140
ERDRM SYN ERTX02 F2531150
ERAB SYN ERTGA F2531160
ADTGA SYN OADTGA+100 F2531170
ADTGMX SYN ADTG+400 F2531180
DOTAGZ SYN DOTAG+450 F2531190
OR012 SYN OR000+12 F2531200
OR013 SYN OR000+13 F2531210
OR018 SYN OR000+18 F2531220
OR026 SYN OR000+26 F2531230
MXTGTG SYN TGTG+672 F2531240
MXTGA SYN OMXTGA+200 F2531250
DIAG EQU 4 F2531260
END F2531270
REM BLOCK SIX OF SECTION TWO.
REM MASTER RECORD CARD = FN053 F2600010
REM DOFILE INVERSI0N ROUTINE--BLOCK 6 F2600020
ORG 24 ORIGIN FOR DFI INSTRUCTIONS. F2600030
DFI01 REW 148 REWIND OUTPUT TAPE 4 F2600040
REW 147 AND INPUT TAPE 3 F2600050
DFI02 RDS 148 SPACE F2600060
CPY ERAS OVER F2600070
TRA DFI02 FIRST FILE F2600080
TRA DFI03 OF OUTPUT TAPE F2600090
TSX DIAG,4 FALSE END OF RECORD. F2600100
DFI03 MSE 99 TEST SENSE LIGHT 3 FOR EMPTY INPUT F2600110
TRA DFI05 NOT EMPTY F2600120
PSE 98 TURN ON SENSE LIGHT 2, EMPTY OUTPUT. F2600130
DFI04 WEF 148 WRITE END OF FILE ON OUTPUT TAPE. F2600140
TRA EXIT EXIT FROM DFI ROUTINE. F2600150
DFI05 LXA L(0),1 INITIALIZE TO BEGIN READING INTO N F2600160
MSE 99 TURN OFF F2600170
NOP SENSE LIGHT 3 F2600180
RTT TURN OFF F2600190
NOP TAPE CHECK INDICATOR F2600200
DFI10 LXA L(5),2 INITIALIZE TAPE ERROR COUNTER F2600210
SXD ERAS,1 SAVE INDEX 1 IN CAS OF REREAD F2600220
DFI11 RDS 147 PREPARE TO READ INPUT TAPE F2600230
DFI12 CPY NOR,1 COPY FIRST OF FOUR WORDS F2600240
TRA DFI13 F2600250
TRA DFI04 END OF FILE--GO TO EXIT F2600260
TRA DFI20 END OF RECORD//GO TO REDUND TEST F2600270
DFI13 CPY NOR+1,1 COPY SECOND OF FOUR WORDS F2600280
TRA DFI14 F2600290
TSX DIAG,4 FLASE END OF FILE. F2600300
TSX DIAG,4 FALSE END OF RECORD. F2600310
DFI14 CPY NOR+2,1 COPY THIRD OF FOUR WORDS F2600320
TRA DFI15 F2600330
TSX DIAG,4 FLASE END OF FILE. F2600340
TSX DIAG,4 FALSE END OF RECORD. F2600I50
DFI15 CPY NOR+3,1 COPY FOURTH OF FOUR WORDS F2600360
TRA DFI16 F2600370
TSX DIAG,4 FLASE END OF FILE. F2600380
TSX DIAG,4 FALSE END OF RECORD. F2600390
DFI16 CLA NOR+1,1 F2600400
TZE DFI30 2ND WORD ZERO MEANS END OF NEST F2600410
SUB ALLONE 2ND WORD ALL ONES F2600420
TZE DFI19 MEANS BEGINNING OF BLOCK F2600430
MSE 99 WAS PREVIOUS FOUR WORDS BEG OF BLOCK F2600440
TRA DFI17 NO, LEAVE FIRST WORD PLUS F2600450
CAL L(M0) MAKE SIGN OF F2600460
ORS NOR,1 FIRST WORD MINUS F2600470
DFI17 TXI DFI18,1,-4 INDEX BY 4 FOR NEXT 4 WORDS F2600480
DFI18 TXH DFI12,1,-3904 TEST AND CONTINUE NEXT 4 WORDS F2600490
TSX DIAG,4 NOR BUFFER SIZE EXCEEDED. F2600500
DFI19 PSE 99 TURN ON BEGIN OF BLOCK IND F2600510
TRA DFI12 CONTINUE NEXT FOUR WORDS F2600520
DFI20 WRS 219 DELAY UNTIL TAPE DISCONNECTS F2600530
RTT TEST TAPE CHECK F2600540
TRA DFI21 ERROR F2600550
TRA DFI10 IF NO ERROR RETRN TO READ NEXT RECORD F2600560
DFI21 TIX DFI22,2,1 REDUCE ERROR COUNTER BY 1 F2600570
TSX DIAG,4 TAPE CHECK. TRIED 5 TIMES. F2600580
DFI22 BST 147 RESTORE TAPE POSITION F2600590
LXD ERAS,1 AND INDEX 1 F2600600
TRA DFI11 FOR ANOTHER TRY F2600610
DFI30 CPY ERAS CHECK THAT END OF RECORD F2600620
TSX DIAG,4 HAS BEEN REACHED---END OF NEST. F2600630
TSX DIAG,4 RECORD IS ONLY FOUR WORDS. F2600640
WRS 219 DELAY UNTIL TAPE DISCONNECTSP F2600650
RTT TEST TAPE CHECK F2600660
TRA DFI40 ERROR F2600670
TRA DFI50 PROCEED TO PROCESS THIS NEST F2600680
DFI40 TIX DFI22,2,1 REDUCE ERROR COUNT BY 1 AND RETRY F2600690
TSX DIAG,4 TAPE CHECK. TRIED 5 TIMES. F2600700
DFI50 SXD DFI55,1 STORE INDEX FOR END OF BLOCK TEST F2600710
DFI51 TXI DFI52,1,4 F2600720
DFI52 CLA NOR,1 SCAN UP EVERY FOURTH WORD F2600730
TPL DFI51 TO TEST FOR,MINUS F2600740
SXD ERAS,1 SAVE FOR NEXT END OF BLOCK TEST F2600750
CLS NOR,1 RESTORE PLUS SIGN TO F2600760
STO NOR,1 FIRST WORD OF BLOCK F2600770
DFI53 WRS 148 SELECT OUTPUT TAPE F2600780
LXA L(100),2 PREPARE FOR NEXT 100 WORDS F2600790
DFI54 CPY NOR,1 WRITE BLOCK IN F2600800
TXI DFI55,1,-1 FORWARD DIRECTION F2600810
DFI55 TXL DFI60,1 UNTIL END OF BLOCK F2600820
TIX DFI54,2,1 IF WORDS IN RECORD F2600830
TRA DFI53 START ANOTHER RECORDEACHED 0 F2600840
DFI60 LXD ERAS,1 IF INDEX 1 HAS NOT REACHED 0 F2600850
TXH DFI50,1,0 PROCESS NEXT BLOCK F2600860
TRA DFI05 RETURN TO PROCESS NEXT NEST F2600870
EXIT RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE.F2600880
TRA 4
REM CONSTANTS AND ERAS STORAGE FOR DFI F2600900
L(0) 0 F2600910
L(5) 5 F2600920
ALLONE OCT 377777777777 F2600930
L(M0) MZE 0 - F2600940
L(100) 100 F2600950
ERAS BSS 1 F2600960
ORG 128 ORIGIN FOR NOR F2600970
NOR BSS 3904 F2600980
DIAG EQU 4 F2600990
END F2601000
ORG 3641
REM MASTER RECORD CARD = FN055
REM ROUTINE TO HANDLE ADDITIONAL SU8ROUTINES IF DESIRED F3B12180
TIX M13505,4,1 COMPARE M1D FOR-PRESENT SUBROUTINES F3B12190
LXD L(0),4 COMPARE ADD IT, 0PEN SUBS, IN M1D2S F3B12200
0P1 CAS M1D2,4 WITH CURRENT NAME. F3B12210
TXI 0P2,4,-1 NOT FOUND, GET NEXT M1D2 ENTRY F3B12220
TRA 0P3 FOUND F3B12230
TXI 0P2,4,-1 NOT FOUND, GET NEXT M1D2 ENTRY F3B12240
0P2 TXH 0P1,4,M1D2L TEST FOR END OF M1D2. F3B12250
TSX 4,4 CURRENT SUB NOT IN M1D2 F3B12260
0P3 SXD CCELL,4 SAVE 1RC FOR LATER BRANCH OF SAME INST. F3B12270
TXI 0P3+2,1,-2 INDEX TO GET NEXT 4 WORD INSTR. F3B12280
TSX TEST,4 TEST FOR END OF CUR. COMPAIL REC. F3B12290
LXD CCELL,4 GO TO THE COMPILER FOR PART, SUBROUTINE F3B12300
0P4 TRA 0P4+1,4 COMPAIL INSTRUCTION F3B12310
TRA XDIM OPEN SUB IS XDIM F3B12320
TRA DIM OPEN SUB IS DIM F3B12330
HTR SPACE FOR BRANCHING T0 10 ADDITIONAL F3B12340
HTR OPEN SU8ROUTINES THE LIST OF TRANSFERS F3B12350
HTR TO ADDITIONAL 0PEN SUBS MUST BE ORDER- F3B12360
HTR ED IN THE SAME WAY AS THE ADDITIONAL 0PEN F3B12370
HTR SUB NAMES ARE ORDERED IN THE-DICTION- F3B12380
HTR ARY M1D2. F3B12390
HTR F3B12400
HTR F3B12410
HTR F3B12420
HTR F3B12430
REM THE DICTIONARY FOR ADDITIONAL OPEN SUBROUTINES, AND F3B12440
REM CONSTANTS USED IN THE DISCRIMINATION PROCEDURE. F3B12450
M1D2 BCD 1XDIM 0PEN SUB XDIM F3B12460
BCD 1DIM 0PEN SUB DIM F3B12470
HTR SPACE FOR ADDING 10 ADDITIONAL 0PEN SUBS. F3B12480
HTR F3B12490
HTR F3B12500
HTR F3B12510
HTR F3B12520
HTR F3B12530
HTR F3B12540
HTR F3B12550
HTR F3B12560
HTR F3B12570
REM FOUR SUBROUTINES USED IN COMPILING OPEN SUBROUTINES F3B12580
REM 1.TEST F3B12590
TEST SXD C,4 SAVE LINKAGE F3B12600
PXD 0,1 COMPARE CURRENT VALUE OF IR1 WITH F3B12610
CAS M1ALWN 2S COMPL. OF WORD COUNT. F3B12620
TRA 1,4 .. F3B12630
TSX M10210,4 CURRENT RECORD EXHAUSTED F3B12640
TSX 4,4 STOP. NO OF WDS. IN CUR REC EXCEEDS WD. F3B12650
REM COUNT F3B12660
LXD C,4 RESTORE LINKAGE F3B12670
TRA 1,4 RETURN F3B12680
REM 2 TEARG1. ROUTINE TO DET. IF TOO FEW ARGS SPECIFIED F3B12690
TEARG1 CLA AIL,1 TEST FOR ALL ONES IN 1ST WD OF CUR. INSTR F3B12700
SUB ALLONE F3B12710
TZE ERROR1 ALL ONES. GO TO PROPER STOP F3B12720
TRA 1,4 NOT ALL ONES. RETURN F3B12730
REM 3 TEARG2. ROUTINE TO DET. IF TOO MANY ARGS. SPECIFIED F3B12740
TEARG2 CLA AIL,1 TEST FOR ALL ONES IN TST WORD OF F3B12750
TRA SUBPAT F3B12760
ARGTAG CLA AIL+2,1 PLACE SUMB ADDRESS OF CURRENT ARG F3B12770
STO M1CW+2 IN M1CW+2 F3B12780
CLA AIL+3,1 PLACE RELATIVE ADD. AND TAG OF CUR F3B12790
STO M1CW+3 RENT ARG. IN M1CW+3 F3B12800
ANA TGMSK TEST FOR TAG F3B12810
TZE 1,4 NO TAG. RETURN F3B12820
SXD C,4 ARG TAGGED. SAVE LINKAGE F3B12830
MSE 99 TEST FOR END OF CHTAG TABLE F3B12840
TSX M12500,4 CHTAG TABLE NOT EXHAUSTED. F3B12850
PSE 99 END OF CHTAG TABLE. RESTORE IN F3B12860
LXD C,4 DICATOR AND LINKAGE F3B12870
TRA 1,4 RETURN F3B12880
REM THE ROUTINE FOR COMPILING THE 0PEN SUBROUTINES DIMAND XDIM F3B12890
XDIM PSE 100 TURN ON SENSE LIGHT 100 FOR XDIM F3B12900
DIM TSX TEARG1,4 TEST NO. OF ARGS SPECIFIED F3B12910
TSX ARGTAG,4 TEST WHETHER FIRST ARG. IS TAGGED F3B12920
TXI O1,1,-4 INDEX COMPAIL RECORD TO BEG. OF NEXT REC. F3B12930
O1 TSX TEST,4 TEST FOR END OF CURRENT AIL RECORD F3B12940
TSX TEARG2,4 TEST NO. OF ARGS. SPECIFIED F3B12950
TSX CIT00,4 COMPILE FIRST INST. FOR DIM AND XDIM F3B12960
HTR M1CW LOCATION (1ST WD) F3B12970
HTR L(CLA) CLA(2ND WD.) F3B12980
HTR M1CW+2 FIRST ARG (3RD WD) F3B12990
HTR M1CW+3 REL. ADD END TAG OF 1ST ARG (4TH WD) F3B13000
TSX ARGTAG,4 TEST WHETHER 2ND. ARG TAGGED ETC. F3B13010
CAL L(SUB) PREPARE OP. WD (2ND WD) OF 2ND AIL F3B13020
MSE 100 ENTRY. OP. IS SUB. FOR XDIM F3B13030
CAL L(FSB) FSB FOR DIM F3B13040
SLW M1CW+1 F3B13050
TSX CIT00,4 COMPILE 2ND INST FOR DIM OR XDIH F3B13060
HTR L(0) 0 (1ST WD) F3B13070
HTR M1CW+1 SUB(XDIH), FSB(DIM) (2ND. WD) F3B13080
HTR M1CW+2 2ND. ARG (3RD WD) F3B13090
HTR M1CW+3 REL. ADD AND TAG OF 2ND ARG (4TH WD) F3B13100
TSX CIT00,4 COMPILE 3RD INST FOR DIM AND XDIM F3B13110
HTR L(0) 0(1ST WD) F3B13120
HTR L(TPL) TPL(2ND WD) F3B13130
HTR L(017) 0CT. 17 IN BITS S-5 F3B13140
HTR L(2D) REL. ADD 2, TAG 0 (4TH WD) F3B13150
TSX CIT00,4 COMPILE LAST INST FOR DIH AND XD)M F3B13160
HTR L(0) 0 (1STWD) F3B13170
HTR L(PXD) PXD (2ND WD) F3B13180
HTR L(0) 0 (3RD WD) F3B13190
HTR L(0) 0 (4TH WD) F3B13200
TXI RESUME,1,-4 INDEX CUR AIL RECORD TO BEGINNING F3B13210
REM OF NEXT 4WD INST AND RETURN TO MAIN PROG F3B13220
REM CONSTANTS AND ERASIBLE STORAGE FOR FOUR F3B13230
REM SUBROUTINES USED IN COMPILING OPEN SUBROUTINES F3B13240
C HTR F3B13250
M1D2L EQU -2 THE 2S COMPL OF THE LENGTH OF F3B13260
REM M1D2. THIS CARD HUST BE CHANGED WHEN F3B13270
REM ADDITIONS TO M1D2 ARE MADE F3B13280
L(0) SYN 1144 F3B13290
M13505 SYN 710 F3B13291
CCELL SYN 1226 F3B13292
M1ALWN SYN 1221 F3B13293
M10210 SYN 225 F3B13294
AIL SYN 1239 F3B13295
ALLONE SYN 1161 F3B13300
ERROR1 SYN 1133 F3B13301
ERROR2 SYN 1139 F3B13302
M1CW SYN 1234 F3B13303
TGMSK SYN 1159 F3B13304
M12500 SYN 526 F3B13305
REM CONSTANS USED IN COMPILING THE OPEN SUBRTNS. XDIM AND DIM F3B13310
CIT00 SYN 455 F3B13320
L(CLA) SYN 1165 F3B13330
L(SUB) BCD 1SUB000 F3B13340
L(FSB) BCD 1FSB000 F3B13350
L(TPL) BCD 1TPL000 F3B13360
L(PXD) BCD 1PXD000 F3B13370
L(017) SYN 1189 F3B13380
L(2D) SYN 1151 F3B13390
RESUME SYN 508 F3B13400
SUBPAT SUB ALLONE F3B13401
TZE 1,4 F3B13402
TRA ERROR2 F3B13403
R00M HTR SPACE FROM ROOM MAY BE USED FOR ADD. OPEN SUB. COMPILATION F3B13414
END 3641
REM MASTER RECORD CARD = FN056
REM THE FOLLOWING PROGRAM CONSTITUTES THE FIRST SECTION OF THE F3B00010
REM MERGE. IT PERFORMS THE INITIAL MERGE OF THE AIL FILE AND THE F3B00020
REM DO FILE OF COMPILED INSTRUCTIONS. IN ADDITION TO MERGING F3B00030
REM THESE TWO FILES, IT INSERTS THE ARITHMETIC OPEN SUBROUTINES F3B00040
REM IN THEIR CORRECT P0SITION IN THE FILE OF COMPILED INSTRUCT- F3B00050
REM IONS AND EFFECTS APPROPRIATE GENERALIZED TAG CHANGES IN AIL F3B00060
REM FILE INSTRUCTIONS F3B00070
ORG 24 F3B00080
REM TAPE P0SITIONING T0 READ FORTAG INTO CORE STORAGE F3B00090
LXA M1ECTR,1 LOAD 5 INTO IRA TP RD ERROR CTR. F3B00100
M10000 RDS 146 READ BINARY TAPE 2 WITH FORTAG TBL F3B00110
CPY ERAS THE 7TH RECORD OF 5TH FILE WHICH IS F3B00120
TSX M10043,2 THE TAPE TABLES HAVING 11 RECORDS. F3B00130
NOP M10000 TAPE 2 STANDS AT DOTAGB RECORD F3B00140
LXD ERAS,1 COUNT FILE. TAPE 2 BACKSPACED NO. F3B00150
TXI M10010,1,7 RECORDS IN DOTAGB PLUS 7 T0 START FORTAG, F3B00160
M10010 BST 146 F3B00170
TIX M10010,1,1 F3B00180
REM READ FORTAG INTO CORE STORAGE F3B00190
RTT TURN-OFF TAPE INDICATOR, F3B00200
NOP IF 0O. F3B00210
LXA M1ECTR,1 LOAD 5 INTO IRA TP RD ERROR CTR. F3B00220
M10020 RDS 146 READ TAPE 2 P0SITIONED AT FORTAG TBL F3B00230
CPY FORTAG-1 AND TEST FIRST WORD TO GUARANTEE F3B00240
CLA FORTAG-1 BEGINNING OF FORTAG TABLE. F3B00250
SUB M1CON+4 FORTAG IS TABLE NO. 4. F3B00260
TZE M10030 TABLE NO. IS FIRST WORD OF TAPE TABLES. F3B00270
TSX 4,4 WRONG TABLE. IS NOT FORTAG. F3B00280
M10030 CPY FORTAG-1 READ 2ND FORTAG TABLE WORD AND TEST F3B00290
CLA FORTAG-1 THERE ARE FORTAG ENTRIES. F3B00300
TZE M10040 FORTAG TABLE ENTRIES ARE 1 WORD. F3B00310
LXA M1CON,2 LOAD 0 INTO INDEX REG. B. F3B00320
M10035 CPY FORTAG,2 READ 3RD AND SUCCEEDING WORDS F3B00330
TXI M10035,2,-1 OF FORTAG INTO CONSEC, LOCATIONS. F3B00340
TSX 4,4 EOF SKIP. FORTAG NOT LAST REC. OF FILE. F3B00350
M10040 TSX M10043,2 TEST IF TAPE READ CORRECTLY. F3B00360
NOP M10020 RE-READ TAPE LOCATION. F3B00370
TRA M10050 CONTINUE IN MAIN PROGRAM. F3B00380
M10043 WRS 219 DELAY 704 FOR RTT TEST. F3B00390
RTT F3B00400
TRA M10045 TO TAPE READ ERROR ROUTINE. F3B00410
TRA 2,2 TAPE 2 READ CORRECTLY. RETURN MAIN RTN, F3B00420
M10045 CLA 1,2 TAPE READ ERROR RTN. INITIALIZE F3B00430
STA M10048 TIX ADDRESS TO RETURN TO PROPER F3B00440
BST 146 RE-READ TAPE LOCATION. F3B00450
M10048 TIX 0,1,1 F3B00460
TSX 4,4 BINARY READ 5 TIMES UNSUCCESSFULLY F3B00470
REM POSITIONING OF TAPE 2, TAPE 3, TAPE 4, TO READ COMPAIL F3B00480
REM WRITE MERGE 1, AND READ DO FILE, RESP. F3B00490
M10050 REW 147 REWIND TAPE 3 TO WRITE MERGE 1. F3B00500
REW 148 REWIND TAPE 4 FOR COMPDO FILE. F3B00510
RDS 148 SPACE OVER TRALEV THE 1ST FILE ON F3B00520
M10055 CPY ERAS TAPE 4 T0 GET T0 FIRST RECORD F3800530
TRA M10055 OF COMPDO FILE. F3B00540
TRA M10060 END OF TRALEV FILE. F3800550
TRA M10055-1 SPACE 0VER NEXT TRALEV RECORD. F3B00560
M10060 LXA M1CON,2 LOAD 0 INTO IRB. F3B00570
TXI M10060+2,2,17 F3B00580
BST 146 BACKSPACE BINARY TAPE 2 BY F3B00590
TIX M10060+2,2,1 13 RECORDS TO POSITIDN TAPE 2 F3B00600
LXA M1ECTR,1 TO READ COMPAIL RECORD COUNT FILE. F3B00610
M10063 RDS 146 F3B00620
CPY ERAS F3B00630
TSX M10043,2 F3B00640
NOP M10063 BACKSPACE TAPE 2 OVER COMPAIL F3B00650
LXA ERAS,2 RECORD COUNT, A EOF MARK, AND F3B00660
TXI M10070,2,2 OVER COMPAIL RECORDS F3B00670
M10070 BST 146 TO POSITION TAPE 2 TO FIRST F3B00680
TIX M10070,2,1 RECORD OF COMPAIL FILE. F3B00690
MSE 97 TURN-OFF SENSE LIGHTS 1,3, AND 4. F3B00700
NOP SENSE LIGHT 2 USED BY SEC. 2 F3B00710
MSE 99 TO INDICATE TO SEC. 3 THERE F3B00720
NOP ARE NO COMPDO INSTR IF F3B00730
MSE 100 LIGHT 2 IS ON. F3B00740
NOP F3B00750
REM CHANGE TAG TABLE EDIT F3B00760
PEC00 LXA M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR. F3B00770
PEC01 RDS 195 UNEDITED CHTG TABLE ON L0G OR 3. F3B00780
LDA M1CON 0=DR ORG UCHTG - 2 F3B00790
CPY ERAS TABLE LENGTH TO ERAS F3B00800
CPY ERAS+1 CHECK SUM INTO ERAS+1. F3B00810
CAL ERAS CHECK DRUM READ F3B00820
SUB ERAS+1 TEST IF TABLE LENGTH READ F3B00830
TZE PEC02 CORRECTLY FROM DRUM 3. F3B00840
TIX PEC01,4,1 READ DRUM 5 TIMES IF LENGTH WRONG. F3B00850
TSX 4,4 DRUM READ 5 TIMES UNSUCCESSFULLY. F3B00860
PEC02 LXA M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR. F3B00870
PEC03 CLA ERAS TEST IF THERE ARE ANY ENTRIES F3B00880
TZE PEC20 IN CHG TAG TABLE. F3B00890
PAX 0,3 UNEDITED TABLE LENGTH TO IRA, IRB F3B00900
SUB PEC05 COMPUTE CORE ADDRESS INTO WHICH F3B00910
STA PEC04 CHG TAG TABLE ENTRIES TO BE F3B00920
RDS 195 READ PLUS TABLE LENGTH FOR TIX OPER. F3B00930
LDA M1CON+2 DRUM READ ADDRESS OF 2. F3B00940
PEC04 CPY 0,1 READ CHG TAG TABLE INTO UCHTG BLOCK F3B00950
TIX PEC04,1,1 F3B00960
LXA M1CON,1 LOAD 0 INTO IRA. F3B00970
PEC05 CAL UCHTG,1 UNEDITED CHG TAG TABLE ENTRIES CONSIST F3B00980
ACL UCHTG+1,1 OF 3 WORDS. TEST LOG SUM OF F3B00990
SUB UCHTG+2,1 2 WORDS EQUALS DRUM CHECK F3B01000
TZE PEC06 SUM FOR THE ENTRY. F3B01010
TIX PEC03,4,1 DRUM READ ERROR. TRY 5 TIMES. F3B01020
TSX 4,4 DRUM READ 5 TIMES UNSUCCESSFULLT. F3B01030
PEC06 TXI PEC07,1,-3 MODIFY TABLE ADDR FOR NEXT 3 WORDS. F3B01040
PEC07 TIX PEC05,2,3 TEST FOR END CHG TAG BLOCK F3B01050
REM BEGIN EDIT OF UCHTG F3B01060
PEC10 LXA M1CON,3 LOAD 0 INTO IRA, IRB F3B01070
CLA ERAS+1 PUT UCHTG TABLE LENGTH IN ADDRESS AND F3B01080
ORA FORTAG-1 FORTAG TABLE LENGTH IN DECREMENT F3B01090
COM 0 PORTIONS OF ACCUM. F3B01100
ADD M1CON+18 OBTAIN 25 COMP OF FORTAG F3B01110
STD PEC16 LENGTH AND UCHTG LENGTH AND F3B01120
ALS 18 STORE IN DEC OF TEST INST. F3B01130
STD PEC14 F3B01140
PEC11 CLA FORTAG,1 SUCCESSIVE DUPLICATES IN F3B01150
CAS FORTAG+1,1 FORTAG TABLE NOT COMPARED TO F3B01160
TRA PEC12 UCHTG TABLE ENTRIES. F3801170
TXI PEC11,1,-1 IRA KEEPS TRACK OF FORTAG ENTRIES. F3B01180
PEC12 ALS 18 IRC KEEPS TRACK OF UCHTG ENTRIES. F3B01190
STO ERAS MOVE TAG OF CURRENT FORTAG ENTRY F3B01200
LXA M1CON,4 INTO DECREMENT AND COMPARE WITH F3B01210
PEC13 CLA UCHTG+1,4 TAG1 IN DECREMENT OF UCHTG F3B01220
ANA M1CON+13 ENTRIES. IF TAGS ARE EQUAL, F3B01230
CAS ERAS TEST FORTAG INTERNAL F3B01240
TXI PEC14,4,-3 FORMULA LIES WITHIN RANGE F3B01250
TRA PEC30 GIVEN IN FIRST WORD F3B01260
TXI PEC14,4,-3 OF UCHTG ENTRY. F3B01270
PEC14 TXH PEC13,4 2S COMP OF UCHTG LENGTH IN DECREMENT. F3B01280
PEC15 TXI PEC16,1,-1 END OF UCHTG TABLE. F3B01290
PEC16 TXH PEC11,1 2S COMP OF FORTAG LENGTH IN DECREMENT. F3B01300
REM END OF EDIT, COMPUTE CHTGE2 F3B01310
PEC17 PXD 0,2 END OF FORTAG TABLE. F3B01320
STO CHTGL SAVE VALUE OF IRB FROM F3B01330
CLA M1CON EDIT CHG TAG TABLE ROUTINE F3B01340
STO CHTGE1 AS TABLE LENGTH CONTROL F3B01350
LXA M1CON,4 WORD FOR CHANGE TAG TABLE F3B01360
CLA CHTG,4 SEARCH ROUTINE AT M12500. F3B01370
STO CHTGFN CALCULATE NUMBER OF ENTRIES F3B01380
PEC18 TXI PEC18+1,4,-2 IN EDITED CHG TAG TABLE WITH F3B01390
PXD 0,4 SAME INTERNAL FORMULA F3B01400
SUB CHTGL NUMBER AND RECORD IN F3B01410
TZE PEC19 CONTR0L WORDS CHTGE1 AND CHTGE2 F3B01420
CLA CHTG,4 TO PREVENT SEARCHING ENTIRE F3B01430
SUB CHTGFN EDITED CHG TAG TABLE IN F3B01440
TZE PEC18 SEARCH AT M12500. F3B01450
PEC19 PXD 0,4 F3B01460
STO CHTGE2 F3B01470
TRA RSTO00 F3B01480
REM ROUTINE FOR EMPTY UCHTG TABLE F3B01490
PEC20 CLA M1CON PLACE ZEROS INTO 3 CONTROL F3B01500
STO CHTGL WORDS FOR CHANGE TAG TABLE SEARCH F3B01510
STO CHTGE1 ROUTINE TO INDICATE NO ENTRIES F3801520
STO CHTGE2 IN EDITED CHG TAG TABLE. F3801530
PSE 99 SENSE LIGHT 3 TURNED ON TO INDICATE F3B01540
TRA RSTO00 NO ENTRIES IN EDITED CHG TAG TABLE F3B01550
REM SEARCH FOR INT FMLA NO OF CUR. FORTAG ENTRY IN UCHTG F3B01560
PEC30 CLA FORTAG,1 TAG OF FORTAG ENTRY EQUAL F3B01570
ANA M1CON+13 TO TAG1 OF UCHTG ENTRY. F3B01580
STO COMBOX TEST FORTAG INTERNAL FORMULA F3B01590
CLA UCHTG,4 NUMBER LIES WITHIN RANGE F3B01600
ANA M1CON+13 GIVEN IN FIRST WORD OF UCHTG F3B01610
CAS COMBOX ENTRY. IF RANGE CONDITION IS F3B01620
TXI PEC14,4,-3 SATISFIED, PRODUCE ENTRY F3B01630
TXI PEC14,4,-3 FOR EDITED CHG TAG TABLE. F3B01640
CLA UCHTG,4 EDITED CHG TAG ENTRY CONSISTS F3B01650
ALS 22 OF 2 WORDS. FIRST WORD HAS F3B01660
ARS 4 INTERNAL FORMULA NUMBER F3B01670
CAS COMBOX IN DECREMENT AND ZEROS IN F3B01680
TRA PEC31 ADDRESS. SECOND WORD HAS F3B01690
TRA PEC31 TAG1 IN DECREMENT AND TAG2 F3B01700
TXI PEC14,4,-3 IN ADDRESS TAKEN FROM 2ND F3801710
PEC31 CLA COMBOX WORD OF UCHTG ENTRY. CONTINUE F3B01720
STO CHTG,2 WITH FORTAG AND UCHTG TAG F3B01730
CLA UCHTG+1,4 COMPARIS0N LOOP UNTIL FORTAG F3B01740
STO CHTG+1,2 TABLE EXHAUSTED. F3B01750
TXI PEC32,2,-2 F3B01760
PEC32 TXH PEC15,2,-602 CHTG BLOCK EXCEEDS ALLOCATED 600 WORDS F3B01770
TSX 4,4 CHTG BLOCK EXCEEDS ALLOCATED 600 WORDS. F3B01780
REM SXTX TABLE READ ROUTINE F3B01790
RSTO00 MSE 98 TEST IF DO FILE EMPTY. F3B01800
TRA RSTO05-1 SENSE LIGHT 2 ON INDICATES F3801810
TRA M10200 NO SXTX ENTRIES. F3B01820
LXA M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR. F3B01830
RSTO05 RDS 193 SXDTX TABLE 0N LOGICAL DRUM 1, F3B01840
LDA M1CON+19 STARTING AT LOCATION 202 F3B01850
CPY ERAS 1ST WORD IS ORIGIN + 2+ TAB LENGTH. F3801860
CPY ERAS+1 2ND DR WD IS CK SUM FOR 1ST WD. F3801870
CAL ERAS SXDTX TABLE ENTRY HAS 3 WORDS. F3801880
SUB ERAS+1 THIRD WORD IS CHECK SUM. F3B01890
TZE RSTO20 TEST THAT FIRST 2 WORDS OFF F3801900
TIX RSTO05,4,1 DRUM READ CORRECTLY. F3801910
TSX 4,4 DRUM READ 5 TIMES UNSUCCESSFULLY. F3B01920
RSTO20 LXA M1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR F3801930
RSTO21 CLA ERAS SUBTRACT ORIGIN+2 FROM FIRST F3B01040
SUB M1CON+20 WORD TO GET SXDTX TABLE LENGTH. F3801950
TNZ RSTO30 F3801960
STO SXTXL STORE 0 AS SXDTX LENGTH IF NO F3801970
TRA M10200 ENTRIES AND GO TO READ AIL RTN. F3801980
RSTO30 STO SXTXL STORE SXDTX LENGTH AND LOAD F3B01990
PAX 0,3 SXDTX LENGTH INTO IRA, IRB. F3802000
SUB RSTO40+3 CALC. ADDRESS TO READ IN SXTX TABLE. F3802010
STA RSTO40 INITIAL WORD OF TABLE IS F3B02020
STA M10305 FORTAG + 300. INITIALIZE F3802030
STA M10310+1 ADDRESSES FOR SXTX TABLE SEARCH. F3802040
RDS 193 READ SXTX ENTRIES FROM F3802050
LDA M1CON+20 DRUM 1, LOC. 204. F3B02060
RSTO40 CPY 0,2 CPY LOOP F3B02070
TIX RSTO40,2,1 SXTX TABLE LENGTH IN IRB. F3802080
LXA M1CON,2 F3B02090
CAL SXTX,2 TEST LOGICAL SUM OF 1ST TWO F3802100
ACL SXTX+1,2 WORDS EQUAL CHECK SUM IN 3RD F3802110
SUB SXTX+2,2 WORD FOR EACH SXTX ENTRY. F3802120
TZE RSTO60 PROGRAM AUT0MATICALLY TRIES F3B02130
TIX RSTO21,4,1 RE-READING DRUM 3 TIMES IF ERROR. F3802140
TSX 4,4 DRUM READ 5 TIMES UNSUCCESSFULLY. F3B02150
RSTO60 TXI RSTO60+1,2,-3 F3B02160
TIX RSTO40+3,1,3 SXTX TABLE LENGTH IN 1RA, F3B02170
TRA M10200 SXTX TABLE IN CORES SUCCESSFULLY. F3B02180
REM READ AIL, READ DO ROUTINES F3B02190
M10200 LXA M1CON,4 0 IN IRC WHEN SKIPPING CL0SED SRTNS. F3B02200
M10210 CLA M1CON+1 STORE 1 IN M1TRC, TP 2. F3B02210
STO M1TRC READ ERROR COUNTER. F3B02220
M10220 RDS 146 READ 1 RECORD OF AIL, THE 2ND F3B02230
LXA M1CON,1 FILE ON TP 2 ALREADY POSITIONED. F3B02240
M10230 CPY AIL,1 AIL REC. READ OVER FORTAG FILE. F3B02250
TXI M10230,1,-1 IRA GIVES POSITION IN AIL RECORD. F3B02260
TRA M10800 END OF AIL FILE. F3B02270
WRS 219 END OF AIL RECORD. F3B02280
RTT F3B02290
TRA M10700 REDUNDANCY WHEN READING TP 2. F3B02300
M10240 SXD M1ALWN,1 STORE 2S COMPL AIL WORD COUNT F3B02310
LXA M1CON,1 IN CURRENT AIL REC, USUALLY 100 F3B02320
PXD 0,4 RD RTN ENTRY VIA TSX F3B02330
TZE PAT1 ROUTINE TO SKIP OVER FORTRAN FUNCTIONS F3B02340
RET1 TRA 2,4 IRC VALUE SET BY TSX RETURN F FCN TEST F3B02350
PAT1 CAL AIL,1 A FORTRAN FCN, A CLOSED SUBRTN, F3B02360
ANA AIL+1,1 IS IDENTIFIED BY 4 WORDS F3B02370
ANA AIL+2,1 FILLED WITH 1 BITS. F3B02380
ANA AIL+3,1 TEST IF AIL ENTRY IS ALL 1 BITS, F3B02390
SLW ERAS INDICATES SUCCEEDING ENTRIES F3B02400
CLA ERAS BEL0NG T0 A FORTRAN FCN AND F3B02410
SUB M1CON+17 ARE SKIPPED OVER HERE. F3B02420
TNZ PAT5 AIL ENTRY NOT A FORTRAN FCN. F3B02430
CLA M1CON+6 AIL ENTRY IS A FORTRAN FCN. F3B02770
STD PAT5+1 STORE 1 IN DECRE. F FCN EXISTS. F3B02450
TXI OUT34,1,-4 TO TEST IF LAST AIL INSTR OF BUFFER. F3B02460
PAT2 PXD 0,1 COMPARE NO. CURRENT WORD OF F3B02470
CAS M1ALWN AIL REC WITH AIL REC COUNT F3B02480
TRA PAT3 TO TEST IF LAST INSTR IN REC. F3B02490
TSX M10210,4 READ NEXT AIL RECORD. F3B02500
TSX 4,4 WD COUNT-NOT EQUAL TO REC COUNT F3B02510
PAT3 CLA AIL,1 TEST IF 0PEN SUBRTN END, F3B02520
TNZ PAT4 BY 1S IN FIRST WORD OF ENTRY. F3B02530
TXI PAT2,1,-4 0S IN IST WORD INDICATES F FCN ENTRY F3B02540
PAT4 SUB M1CON+17 -377777777777. F3B02550
TNZ PAT5 IST DESIRED AIL ENTRY FOUND F3B02560
CAL AIL,1 TEST IF CURRENT ENTRY F3B02570
ANA AIL+1,1 AN OPEN SUBRTN END OR F3B02580
TRA OUT24 ANOTHER FORTRAN FCN. F3B02590
PAT5 LXA M1CON,4 F3B02600
TXL M10250 UNCON. TR TO READ IN DO RECORD. F3B02610
OUT24 ANA AIL+2,1 CONTINUATION OF TEST IF F3B02620
ANA AIL+3,1 CURRENT ENTRY F FCN OR F3B02630
COM OPEN SUBRTN ENTRY. F3B02640
ANA M1CON+17 -377777777777. F3B02650
TZE PAT2-1 ENTRY INDICATES F FCN. F3B02660
TXI PAT2,1,-4 OPEN SUBRTN END. F3B02670
OUT34 PXD 0,1 COMPARE NO. CURRENT WORD OF F3B02680
CAS M1ALWN AIL REC WITH AIL REC COUNT F3B02690
TRA OUT43 TO TEST IF LAST INSTR IN RECORD. F3B02700
OUT41 TSX M10210,4 READ NEXT AIL RECORD. F3B02710
TSX 4,4 WORD COUNT EXCEEDS TOTAL COUNT IN REC. F3B02720
OUT43 TXI PAT2,1,-4 ADD 4 IRA, AT LEAST 1 INSTR IN ROUTINE F3B02730
M10250 CLA M1CON+1 STORE 1 IN M1TRC, TP 2 F3B02740
STO M1TRC READ ERROR COUNTER. F3B02750
M10260 RDS 148 READ 1 RECORD OF DO, THE 1ST F3B02760
LXA M1CON,2 FILE ON TP 2 ALREADY POSITIONED. F3B02770
M10270 CPY DO,2 DO REC. READ 100 WDS BEYOND AIL. F3B02780
TXI M10270,2,-1 IRB GIVES P0SITION IN DO RECORD. F3B02790
TRA M10850 TO END OF DO FILE RTN. F3B02800
WRS 219 TO END OF DO RECORD RTN. F3B02810
RTT IF DO FILE EMPTY, NO SXTX TABLE MADE. F3B02820
TRA M10750 REDUNDANCY WHEN READING TP 2. F3B02830
SXD M1DOWN,2 STORE 2S COMPL DO WORD COUNT. F3B02840
CLA SXTXL TEST IF SXDTX TABLE EMPTY F3B02850
TNZ M10285-2 FROM STORED TABLE LENGTH. F3B02860
LXA M1CON,2 NO SXTX ENTRIES, GO TO AIL AND DO F3B02870
TRA M10290 COMPILATION ROUTINES. F3B02880
SXD CBOX,4 SAVE IRC FOR TSX TEST F3B02890
TXI M10285,2,4 ADD 4 IRB GET 1ST WD LAST DO INSTR. F3B02900
M10285 CLA DO+1,2 TEST CURRENT DO INST AN SXD F3B02910
SUB M1ABC+25 BY EXAMINING 2ND WORD OF INSTR. F3B02920
TZE M10300 CURRENT INSTR IS SXD. F3B02930
TXH M10285-1,2,0 IRB ZERO HEANS ALL DO ENTRIES F3B02940
LXD CBOX,4 IN BLOCK EXAMINED FOR SXD. F3B02950
M10290 PXD 0,4 IRC NOT ZERO AFTER 1ST DO REC F3B02960
TZE M10295 IN CORES. IRC PERMITS RE-ENTRY F3B02970
TRA 2,4 VIA TSX TO DO + AIL CMP RTN F3B02980
M10295 MSE 97 TEST IF END AIL FILE. F3B02990
TRA M11010 TO COMPARE AIL + DO FMLA NOS. F3B03000
PSE 97 SENSE LIGHT 1 ON IF AIL EOF. F3B03010
TRA M11030 TO COMPILE DO INSTR. F3B03020
M10300 CLA DO+2,2 SEARCH SXTX TABLE FOR ENTRY F3B03030
STO SXLOC EQUAL TO ADDR PORTION GIVEN IN F3B03040
LXA SXTXL,4 3RD WD CURRENT SXD DO INSTR. F3B03050
M10305 CLA 0,4 ADDR SXTX ORGIN PLUS LENGTH F3B03060
SUB SXLOC F3B03070
TZE M10310 SXTX ENTRY CORR TO SXD FOUND. F3B03080
TIX M10305,4,3 F3B03090
TRA M10285+3 NO SXTX ENTRY CORR TO SXD FOUND. F3B03100
M10310 TIX M10310+1,4,1 ROUTINE PUT 2ND WORD SXTX F3B03110
CLA 0,4 TABLE ENTRY INTO ADDRESS WD F3B03120
STO DO+2,2 CURRENT SXD DO INSTR. F3B03130
CLA M1CON CHANGE SXD FMLA NO. TO F3B03140
STO DO,2 ZEROS IN DO RECORD BUFFER. F3B03150
TRA M10285+3 TO CONTINUE SXD SEARCH OF DO REC. F3B03160
REM ERROR ROUTINES, END OF FILE ROUTINES F3B03170
M10700 CLA M1TRC REDUNDANCY CHECK READING F3B03180
SUB M1ECTR AIL RECORD. TEST IF F3B03190
TZE M1EATC TAPE 2 READ ALREADY 5 F3B03200
ADD M1ECTR+1 TIMES. IF NOT, INCREASE F3B03210
STO M1TRC COUNT BY 1 IN TAPE READ F3B03220
M10705 BST 146 COUNTER AND READ AIL F3B03230
TRA M10220 RECORD AGAIN. F3B03240
M1EATC TSX 4,4 AIL REC. READ 5 TIMES UNSUCCESSFULLY. F3B03250
M10750 CLA M1TRC REDUNDANCY CHECK READING F3B03260
SUB M1ECTR DO RECORD. TEST IF F3B03270
TZE M1EDTC TAPE 2 READ ALREADY 5 F3B03280
ADD M1ECTR+1 TIMES. IF NOT, INCREASE F3B03290
STO M1TRC COUNT BY 1 IN TAPE READ F3B03300
M10755 BST 148 COUNTER AND READ DO F3B03310
TRA M10260 RECORD AGAIN F3B03320
M1EDTC TSX 4,4 DO REC. READ 5 TIMES UNSUCCESSFULLY, F3B03330
M10800 PSE 97 END OF FILE FOR AIL ROUTINE. F3B03340
MSE 98 TURN SENSE LIGHT 1 ON FOR AIL F3B03350
TRA M10810 EOF AND TEST IF ENTRIES IN SXTX TBL F3B03360
PSE 98 BY LIGHT 2 ON. F3B03370
TRA M10900 TO WR 0N TP 3 INSTR IN BUFFER. F3B03380
M10810 PXD 0,4 IRC ZERO IF DO FILE NOT READ YET. F3B03390
TZE M10250 T0 READ DO FILE RECORD. F3B03400
TRA M11030 T0 COMPILE DO INSTRUCTIONS. F3B03410
M10850 PSE 98 END OF FILE FOR DO ROUTINE. F3B03420
MSE 97 TURN SENSE LIGHT 2 ON FOR D0 F3B03430
TRA M12000 EOF AND TEST IF AIL AT EOF. F3B03440
PSE 97 F3B03450
TRA M10900 F3B03460
REM M1 TERMINAL ROUTINE F3B03470
M10900 WRS 147 ROUTINE WR ON TP 3 INSTR REMAINING F3B03480
LXD BB0X,2 IN CIB BUFFER FROM CIT. F3B03490
PSE 96 TURN-OFF ALL SENSE LIGHTS. F3B03500
M10910 CPY CIB,1 F3B03510
TXI M10920,1,-1 F3B03520
M10920 TXI M10920+1,2,1 IRB 2S COMP NO WORDS CIB BUFFER. F3B03530
TXH M10910,2,1 F3B03540
M10930 WEF 147 WR FORTRAN FCNS 2ND FILE TP 3. F3B03550
PAT10 LXD PAT5+1,2 WRITE FORTRAN FCNS AS 2ND FILE ON TAPE 3. F3B03560
TXH PAT12,2,0 1 IN DECREMENT IF F FCNS IN AIL FILE. F3B03570
PAT11 WEF 147 WR 2ND TAPE MARK ON TP 3 FOR MERGE 1 END. F3B03580
RTB 1 SPACE OVER DIAGNOSTIC RECORD. F3B03590
TRA 4 TO READ IN MERGE 2. F3B03600
PAT12 SXD M1ECTR+2,1 F3B03610
SXD M1ECTR+3,2 F3B03620
LXA M1ECTR,1 LOAD 5 INTO IRC TP RD ERROR CTR. F3B03630
RDS 146 READ AIL RECORD COUNT, THE F3B03640
CPY ERAS NEXT FILE AFTER AIL EOF F3B03650
TSX M10043,2 TO BACKSPACE TP 2 TO F3B03660
NOP PAT12+3 START OF AIL FILE TO GET F3B03670
LXD M1ECTR+2,1 F FCNS AT BEGINNING OF COMPAIL FILE. F3B03680
LXD M1ECTR+3,2 F3B03690
LXA ERAS,2 F3B03700
TXI PAT13,2,2 F3B03710
PAT13 BST 146 F3B03720
TIX PAT13,2,1 F3B03730
PSE 98 PUT LIGHT 2 ON FOR D0 EOF. F3B03740
PSE 99 PUT LIGHT 3 ON FOR NO CHTG TBL. F3B03750
CLA M1CON INITIALIZE BBOX WITH 0. BBOX F3B03760
STO BB0X KEEPS COUNT OF RECORDS IN CIB BUFFER. F3B03770
TSX M10210,4 TO READ AIL FILE FOR FORTRAN FCNS. F3B03780
NOP NOP NEEDED FOR ROUTINE AT RET1. F3B03790
PAT14 CAL AIL,1 TEST FOR FORTRAN FCN. AIL F3B03800
ANA AIL+1,1 WORD ALL ONES IF A FORTRAN FCN. F3B03810
ANA AIL+2,1 F3B03820
ANA AIL+3,1 F3B03830
SLW ERAS F3B03840
CLA ERAS F3B03850
SUB M1CON+17 F3B03860
TNZ OUT ENTRY IS NOT A FORTRAN FCN. F3B03870
PAT15 TXI PAT15+1,1,-4 F3B03880
PXD 0,1 TEST IF LAST WORD OF F3B03890
CAS M1ALWN AIL BUFFER. F3B03900
TRA M12000 TO AIL COMPILATION ROUT1NE. F3B03910
PAT16 TSX M10210,4 TO READ NEXT AIL ENTRY. F3B03920
TSX 4,4 NO. OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F3B03930
TRA M12000 TO AIL COMPILATION ROUTINE. F3B03940
OUT TXI OUT1,2,-1 MAKE IRB VALUE ZERO. F3B039S0
OUT1 SXD PAT5+1,2 DECREMENT ZERO MEANS NO FORTRAN FCNS. F3B03960
OUT13 RDS 146 SPACE OVER REMAINING F3B03970
OUT14 CPY ERAS AIL ENTRIES WHICH ARE F3B03980
TRA OUT14 NOT FORTRAN FCNS TO POSITION F3B03990
TRA OUT22 TAPE 2 AT END OF AIL FILE. F3B04000
TRA OUT13 F3B04010
OUT22 LXA M1CON,1 F3B04020
TRA M10900 TO WR ANY F FCN ENTRIES IN CIB BUFFER. F3B04030
REM COMPAIL INSTR USUALLY MERGED AHEAD OF COMPDO INSTR IF BOTH F3B04040
REM HAVE SAME FMLA NO, EXCEPT FOR READ AND WRITE,WHEN DO PRECEDESF3804030
REM THE AIL FOR TIMING REASONS. FMLA NO. DECREMENT PART HERE. F3B04060
REM COMPARISON OF AIL AND DO FMLA NOS AND F3B04070
REM COMPILATION OF DO INSTRUCTIONS F3B04080
M11010 CLA DO,2 COMPARE AIL AND DO INTERNAL F3B04090
STD M1DOFN FORMULA NOS. F3B04100
M11015 TSX ERR2,4 TEST FOR FORTRAN FCNS. F3B04110
ANA M1CON+13 +077777000000. F3B04120
CAS M1DOFN COMPARE AIL AND F3B04130
TRA M11030 AIL FMLA NO GREATER DO NO. F3B04140
TRA M11070 AIL FMLA NO. EQUALS DO NO. F3B04150
TRA M12000 AIL FMLA NO. LESS DO NO. F3B04160
M11030 LXA M1CON+4,4 COMPILE DO INSTR BY F3B04170
M11031 CLA DO,2 GATHERING 4 WORDS FROM F3B04180
STO M1CW+4,4 DO REC BUFFER AND PLACING F3B04190
TXI M11035,2,-1 THEM IN CALLING SEQ LOCATIONS. F3B04200
M11035 TIX M11031,4,1 F3B04210
TSX CIT00,4 TO CIT COMPILING ROUTINE. F3B04220
HTR M1CW CALLING SEQ FOR LOCATIONS F3B04230
HTR M1CW+1 OF 4 COMPILED WORDS. F3B04240
HTR M1CW+2 F3B04250
HTR M1CW+3 F3B04260
PXD 0,2 TEST IF END OF CUR DO REC F3B04270
CAS M1DOWN BY COMPARING CURRENT DO WD F3B04280
TRA M11055 P0SITION WITH TOTAL DO F3B04290
TSX M10250,4 REC WORD COUNT. F3B04300
TSX 4,4 NO OF WORDS NOT A MULTIPLE OF 4 F3B04310
M11055 MSE 97 END OF AIL FILE IF LIGHT 1 ON, F3B04320
TRA M11060 F3B04330
PSE 97 AIL AT EOF. CONTINUE F3B04340
TRA M11030 COMPILING DO INSTR. F3B04350
M11060 CLA DO,2 GET NEXT DO INST SAME BLOCK F3B04360
ANA M1CON+13 AS PREVIOUS ONE. F3B04370
CAS M1DOFN AIL AND DO FMLA NOS IN DECREMENTS. F3B04380
TRA M11010 DO FMLA NO. GREATER AIL NO. F3B04390
NOP DO FMLA NO. EQUALS AIL NO. F3B04400
TRA M11030 DO FMLA NO. LESS AIL NO. F3B04410
M11070 TXI M11070+1,1,-1 F3B04420
CLA AIL,1 TEST IF CURRENT AIL OPER RDS F3B04430
SUB M1ABC+17 F3B04440
TZE M11080 F3B04450
CLA AIL,1 TEST IF CURRENT AIL OPER WRS F3B04460
SUB M1ABC+26 F3B04470
TZE M11080 F3B04480
TXI M12000,1,1 RESTORE IRA CURRENT AIL VALUE. F3B04490
M11080 TXI ERR3,1,1 T0 TEST IF SPACING TAPE. F3B04500
ERR3 CLA DO,2 TEST IF BOTH AIL AND DO HAVE SAME FORMULA NO.F3B04510
ANA M1CON+14 DETERMINE IF DO OR AIL INSTR COMPILED FIRST. F3B04520
TZE RET2 LXD BEFORE RDS HAS ZERO LOCATION. F3B04530
TRA M12000 TO COMPILE AIL INSTRUCTION. F3B04540
RET2 CLA M1CON+16 INCREASE AIL 1ST WD ADDRESS F3B04550
ORS AIL,1 FOR SEC. 4 PURP0SES. F3B04560
TRA M11030 T0 COMPILE DO INSTR. F3B04570
REM COMPILING ROUTINE,CIT00 F3B04580
CIT00 STQ E1C E1C CELL FOR SAVING MQ. F3B04590
SXD E2C,1 E2C CELL FOR SAVING IRA. F3B04600
SXD E3C,2 E3C CELL FOR SAVING IRB. F3B04610
LXD BB0X,2 2S COMP NO. ALREADY IN BLOCK. F3B04620
TXH CIT04,2,-100 TR NO. WDS IN BLOCK LESS 100. F3B04630
TXL CIT04,2,0 TR NO. WDS IN BLOCK EQUALS 0. F3B04640
WRS 147 WRITE-OUT BLOCK OF 100 F3B04650
LXA M1CON,1 WORDS WHICH MAKE UP F3B04660
CIT01 CPY CIB,1 25 COMPILED INSTR. ON TP 3. F3B04670
TXI CIT02,1,-1 F3B04680
CIT02 TXI CIT03,2,1 WRITING OF CIB BUFFER F3B04690
CIT03 TXH CIT01,2,1 FINISHED WHEN IRB IS 0. F3B04700
CIT04 LXA M1CON+4,1 ROUTINE TO PLACE 4 WORDS F3B04710
CLA M1CON+1 OF COMPILED INSTR IN CIB F3B04720
STA CIT05 BUFFER OF 100 WORDS, F3B04730
CIT05 CLA 0,4 IRC CONTAINS 2S COMP LOC OF F3B04740
STA CIT06 CALLING SEQ LESS 1, F3B04750
CIT06 CLA INSTR ADDRESS SEQUENT1ALLY F3B04760
STO CIB,2 M1CW, M1CW+1, M1CW+2 F3B04770
CLA CIT05 AND M1CW+3. F3B04780
ADD M1CON+1 F3B04790
STA CIT05 F3804800
TXI CIT07,2,-1 F3B04810
CIT07 TIX CIT05,1,1 IRA LOADED WITH 4. F3B04820
SXD BB0X,2 2S COMPL NO. WORDS ALREADY IN BLOCK. F3B04830
LDQ E1C RESTORE MQ, IRA, IRB. F3B04840
LXD E2C,1 IRA GIVES AIL REC POSITION. F3804850
LXD E3C,2 IRB GIVES DO REC POSITION. F3B04860
TRA 5,4 RETURN TO TSX ADDR PLUS 5. F3B04870
ERR2 CLA AIL,1 TEST IF FORTRAN FCN DEFINED IN MIDDLE OF F3B04880
CAS M1CON+17 PROGRAM, BY FIRST INSTR WORD ALL ONES. F3B04890
TRA 1,4 RETURN TO NEXT INSTR. OF MAIN PROGRAM. F3804900
TSX 4,4 FORTRAN FUNCTION IN MIDDLE OF PROGRAM F3804910
ERROR3 TSX 4,4 WORD ALL 1S COMPARED HIGH TO AC WITH ALL 1S F3804920
REM COMPILATION OF AIL INSTRUCTIONS F3804930
M12000 TSX ERR2,4 TEST 1ST AIL WORD ALL ONES. F3B04940
STD M1ALFN SAVE FMLA NO. 1ST INSTR ARITH BLOCK, F3B04950
M12005 TMI M13000 MINUS MEANS OPEN SU8ROUTINE. F3804960
LXA M1CON+4,4 COMPILE AIL INST BY F3B04970
M12010 CLA AIL,1 MOVING 4 WORDS OF INSTR F3B04980
STO M1CW+4,4 INTO COMPILED WORD 8UFFER. F3804990
TXI M12020,1,-1 F3B05000
M12020 TIX M12010,4,1 F3805010
M12021 CLA M1CW+3 TEST IF TAGGED INSTR, BITS 24-26. F3B05020
M12022 ANA M1CON+15 1,2 OR 3 GIVEN IN TAG. ONE F3B05030
TZE M12030 DIM TAGS NOT CHANGED. F3805040
MSE 99 SENSE LIGHT 3 ON IF NO F3805050
TSX M12500,4 ENTRIES IN EDITED CHANGE F3805060
PSE 99 TAG TABLE. F3B05070
M12030 TSX CIT00,4 TO CIT COMPILING IF TAG UNCHANGED. F3805080
HTR M1CW CALLING SEQ FOR LOCATIONS F3B05090
HTR M1CW+1 OF 4 COMPILED WORDS. F3B05100
HTR M1CW+2 F3B05110
HTR M1CW+3 F3B05120
M12035 PXD 0,1 TEST IF END OF CUR AIL REC F3B05130
CAS M1ALWN BY COMPAR1NG CURRENT AIL WD F3B05140
TRA M12040 POSITION WITH TOTAL AIL F3805150
TSX M10210,4 REC WORD COUNT. F3B05160
TSX 4,4 NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F380S170
M12040 CLA AIL,1 NEXT AIL INST SAME BLOCK AS F3B05180
ANA M1CON+13 PREVI0US ONE. +077777000000. F3B05190
CAS M1ALFN F3B05200
TRA M12050 NEXT AIL FMLA NO. GR THAN PREV. F3B09210
NOP F3B03220
CLA AIL,1 TEST IF OPEN SRTN. IF NOT, F3805230
TRA M12005 COMPILE AIL INSTR F3B05240
M12050 MSE 98 END OF DO FILE IF LIGHT 2 ON, F3B03250
TRA M11015 TO CMP AIL AND DO FMLA NOS. F3B05260
PSE 98 F3B05270
TXH M12000,2,1 IN THE MAIN MERGE IF IRB F3B03280
TXL M12000,2,0 ANY VALUE EXCEPT 1. F3805290
TRA PAT14 TO TEST FOR FORTRAN FCN. F3B05300
REM CHANGE TAG TABLE SEARCH F3805310
M12500 CLA M1CW+3 SYMBOLIC TAG IN BINARY BITS F3805320
STA TAGB0X 24-35 4TH WD COMPILED INSTR. F3805330
SXD CBOX,4 IRC HAS TSX RTN ADDR TO M12030. F3B05340
M12503 LXD CHTGE1,4 F3B05350
CLA CHTG,4 CMP INT FMLA NO CUR AIL INSTR F3B05360
CAS M1ALFN WITH CUR CHTG TABLE BLOCK. F3805370
TRA M12510 CHTG FMLA NO GREATER AIL NO. F3805380
TRA M12515 CHTG FMLA NO EQUALS AIL NO, F3B05390
TRA M12540 CHTG FMLA NO LESS AIL NO. F3B05400
M12510 LXD CBOX,4 IRC HAS TSX RTN ADDR TO F3B05410
TRA 2,4 AIL COMP AT M12030. F3B05420
M12515 CLA CHTGE2 SEARCH CUR CHTG BLOCK FOR F3B05430
STD M12530+1 CUR AIL INST TAG F3B05440
M12520 TXI M12520+1,4,-1 F3B05450
CLA CHTG,4 GET TAG1 FROM 2ND WORD OF F3B05460
LRS 18 CHTG TABLE. F3B05470
SUB TAGB0X TAG BOX HAS AIL TAG IN ADDR. F3B05480
TNZ M12530 CHTG TAG AND AIL TAG DIFFERENT. F3B05490
LLS 18 CHTG AND AIL TAGS SAME, SO F3B05500
STA M1CW+3 REPLACE CUR AIL TAG WITH CHTG T2. F3B05510
TRA M12510 RTN VIA TSX TO AIL COMP AT M12030. F3B05520
M12530 TXI M12530+1,4,-1 IRC ENDS CHTG BLOCK SAME FMLA NO. F3B05530
TXH M12520,4 DECREMENT IS CHTGE2 VALUE. F3B05540
TRA M12510 F3B05550
M12540 CLA CHTGE2 UPDATE CHTGE1. CHTGE1 HAS IRC F3B05560
STO CHTGE1 VALUE T0 GET 1ST ENTRY OF F3805570
SUB CHTGL CHTG BLOCK ALL SAME FMLA NO. F3B05580
TNZ M12550 CHTGL HAS 2S COMP NO WDS CHTG TABLE. F3B05590
PSE 99 SENSE LIGHT 3 ON MEANS CHTG F3B05600
TRA M12510 EMPTY OR EXHAUSTED. F3B05610
M12550 LXD CHTGE1,4 COMPUTE NEW CHTGE2. CHTGE2 IS F3B05620
CLA CHTG,4 DECREMENT VALUE IN M12530 TO F3B05630
STO CHTGFN INDICATE LAST ENTRY IN CHTG F3B05640
M12555 TXI M12555+1,4,-2 BLOCK ALL WITH SAME FMLA NO. F3B05650
PXD 0,4 THIS OBVIATES SEARCHING ENTIRE F3B05660
SUB CHTGL CHTG TABLE WHEN TESTING AIL F3B05670
TZE M12570 INSTR FOR CHANGING ITS TAG. F3B05680
CLA CHTG,4 ROUTINE ENTERED WHEN AIL F3B05690
SUB CHTGFN FMLA NO. GREATER THAN CHTG F3B05700
TZE M12555 FMLA, SO MUST UPDATE CHTGE1 F3B05710
M12570 SXD CHTGE2,4 AND CHTGE2 TO GET NEXT ENTRY, F3B05720
TRA M12503 TO CMP AIL AND CHTG FMLA NOS. F3B05730
REM EXPONENTIAL OPEN SUBROUTINES F3B05740
M13000 CHS CHANGE MINUS SIGN OF F3B05750
STO M1CW INT FMLA NO, IF ANY, TO H1CW F3B05760
TXI M13005,1,-1 DECREASE COUNT IN IR1 F3B05770
M13005 CLA AIL,1 SECOND WORD F3B05780
SUB M1ABC+18 FIXED EXP, FLOATING EXP OR SPECIAL OP F3B05790
TZE M13020 FIXED EXPONENT F3B05800
ADD M1ABC+19 TEST FOR FLOATING POINT F3B05810
TZE M13020+1 IF NEITHER, THEN NOT EXPONENTIAL F3B05820
TXI M13500,1,-1 DETERMINATION OF SPECIAL 0P. F3B05830
M13020 PSE 100 FIXED EXP. LITE 100 ON F3B05840
TXI M13020+2,1,-1 3RD WORD F3B05850
CLA AIL,1 INFO ON LOC OF ARG F3B05860
STO M1CW+2 TO M1CW+2 F3B05870
M13025 TXI M13025+1,1,-1 F3B05880
CLA AIL,1 REL ADD AND TAG, IF ANY. F3B05890
STO M1CW+3 TO M1CW+3 F3B05900
M13030 TXI M13030+1,1,-1 DECREASE BY 1 F3B05910
PXD 0,1 TEST FOR END OF CUR AIL REC F3B05920
CAS M1ALWN 2S COMPLIMENT OF NUMBER OF WORDS F3B05930
TRA M13040 OF CURRENT AIL RECORD F3B05940
TSX M10210,4 BACK TO READ NEXT AIL RECORD F3B05950
TSX 4,4 NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F3B05960
M13040 TXI M13040+1,1,-2 DECREASE BY 2 F3B05970
CLA M1CW+2 LOCATION OF ARGUMENT F3B05980
SUB M1ABC+20 SUBTRACT A PLUS SIGN F3B05990
TZE M13200 ARG IN AC F3B06000
CLA M1CW+2 LOCATION AGAIN F3B06010
SUB M1ABC+18 SUBTRACT ASTERISK F3B06020
TZE M13250 ARG IN MQ F3B06030
REM ARGUMENT STORED, FIXED OR FLOATING F3B06040
CLA AIL,1 VALUE OF EXPONENT, 3RD WORD F3B06050
SUB M1CON+6 OF SECOND AIL ENTRY F3B06060
TNZ M13060 EXP GREATER THAN 1 F3B06070
CLA M1ABC EXP EQUALS 1, COMPILE A CLA INSTR F3B06080
STO M1CW+1 AND PLACE IT IN OP CODE F3B06090
MSE 100 TURN OFF SENSE LIGHT, ADJUST F3B06100
NOP COUNT FOR NEXT AIL ENTRY, AND F3B06110
TXI M12021,1,-2 TRANSFER BACK FOR CHTG SEARCH F3B06120
M13060 CLA M1CW+3 EXPONENT GREATER THAN 1 F3B06130
ANA M1CON+15 TEST IF TAG NEEDS CHANGING F3B06140
TZE M13070 ARG TAGGED F3B06150
MSE 99 END OF CHTG TABLE F3B06160
TSX M12500,4 TRANSFER BACK T0 CHTG TABLE F3B06170
PSE 99 SEARCH F3B06180
M13070 TSX CIT00,4 COMPILE FIRST INST F3B06190
HTR M1CW LOCATION OF INTERNAL FORMULA NO F3B06200
HTR M1ABC+1 LOCATION OF LDQ INSTRUCTION F3B06210
HTR M1CW+2 LOCATION OF ARGUMENT F3B06220
HTR M1CW+3 TAG F3B06230
M13080 CLA AIL,1 VALUE OF EXPONENT F3B06240
SUB M1CON+7 SUBTRACT 2 F3B06250
TZE M13115 EXPONENT EQUAL TO 2 F3B06260
STD CCOUNT EXP-2 TO COUNT F3B06270
MSE 100 ARG FIXED OR FLOATING F3B06280
TRA M13300 FLOATING ARGUMENT F3B06290
PSE 100 F3B06300
REM FIXED ARGUMENT, STORED, IN AC, INMQ, EXP GREATER THAN 2 F3B06310
M13090 TSX CIT00,4 COMPILE INSTRUCTIONS FOR FIXED ARG. F3B06320
HTR M1CON FOR THE EXPON. F3B06330
HTR M1ABC+2 ENTIAL ROUTINE. THE LOCATION F3B06340
HTR M1CW+2 OF THE ARGUMENT HAS ALREADY F3B06350
HTR M1CW+3 BEEN CONSIDERED, AND TH LOOP F3B06360
TSX CIT00,4 WILL COMPILE N-2 PAIRS OF F3B06370
HTR M1CON MPY AND LRS INSTRUCTIONS F3B06380
HTR M1ABC+3 F3B06390
HTR M1CON F3B06400
HTR M1CON+11 F3B06410
LXD CCOUNT,4 LOAD EXPONENT -2 IN IR 4 AND F3B06420
M13110 TXI M13110+1,4,-1 COMPILE N-2 PAIRS OF INSTRUCTIONS F3B06430
SXD CCOUNT,4 RESTORE CCOUNT DURING LOOP F3B06440
TXH M13090,4 F3B06450
M13115 MSE 100 ARG FIXED OR FL0ATING F3B06460
TRA M13330 FLOATING ARGUMENT F3B06470
TSX CIT00,4 COMPILE LAST 2 INST FOR F3B06480
HTR M1CON EXP GREATER OR EQUAL 2, IN WHICH F3B06490
HTR M1ABC+2 CASE WE MUST COMPILE ONLY ONE F3B06500
HTR M1CW+2 PAIR OF INSTRUCTIONS F3B06510
HTR M1CW+3 F3B06520
TSX CIT00,4 F3B06530
HTR M1CON F3B06540
HTR M1ABC+4 F3B06550
HTR M1CON F3B06560
HTR M1CON+10 F3B06570
TXI M12035,1,-2 BACK T0 CONTINUE AIL ROUTINES F3B06580
REM ARG IN AC, FIXED OR FLOATING F3B06590
M13200 CLA AIL,1 TEST TO SEE IF EXPONENT F3B06600
SUB M1CON+6 EQUALS 1, IF YES, TRANSFER F3B06610
TNZ M13210 BACK TO PICK UP NEXT RECORD F3B06620
MSE 100 IF NO, CONTINUE TO F3B06630
NOP COMPILE PROPER INSTRUCTIONS F3B06640
TXI M12035,1,-2 F3B06650
M13210 CLA M1ABC+21 EXP GREATER THAN 1,0 F3B06660
STO M1CW+2 STORE VALUE OF EXPONENT IN INSTR. AREA F3B06670
TSX CIT00,4 COMPILE FIRST INST F3B06680
HTR M1CW CALLING SEQUENCE FOR ARG- F3B06690
HTR M1ABC+5 UMENT IN ACC, COMPILE F3B06700
HTR M1CW+2 A STO INSTRUCTION, AND CONTINUE F3B06710
HTR M1CW+3 AS IF IT WERE STORED INITIALLY F3B06720
TRA M13070 F3B06730
REM ARG IN MQ, FIXED OR FL0ATING F3B06740
M13250 CLA AIL,1 VALUE OF EXPONENT AND TEST TO F3806750
SUB M1CON+6 SEE IF EXPONENT = 1, IF IT IS F3B06760
TNZ M13265 EQUAL TO ONE, WE KNOW THAT F3B06770
TSX CIT00,4 THE VALUE OF THE F3B06780
HTR M1CW ARGUMENT IS RETAINED AS THE F3B06790
HTR M1ABC+13 ANSWER. F3B06800
HTR M1CON F3B06810
HTR M1CON F3B06820
TSX CIT00,4 F3B06830
HTR M1CON F3B06840
HTR M1ABC+6 F3B06850
HTR M1CON F3B06860
HTR M1CON+12 F3B06870
MSE 100 TURN OF SENSE LIGHT F3B06880
NOP F3B06890
TXI M12035,1,-2 BACK T0 AIL ROUTINE F3B06900
M13265 CLA M1ABC+21 EXP GREATER 1, F3B06910
STO M1CW+2 PLACE 010000000000IN LOCATION POS. F3B06920
TSX CIT00,4 COMPILE FIRST INST F3B06930
HTR M1CW ZERO F3B06940
HTR M1ABC+7 COMPILE A STQ INSTRUCTION F3B06950
HTR M1CW+2 AND THEN TRANSFER TO DETER- F3B06960
HTR M1CW+3 MINE THE VALUE OF THE F3B06970
TRA M13080 EXPONENT, F3B06980
REM FLOATING ARG, STORE0, IN AC, IN MQ, EXP GREATER 2 F3B06990
M13300 TSX CIT00,4 F3B07000
HTR M1CON INST COMPILING LOOP FOR FL0ATING F3B07010
HTR M1ABC+8 ARGUMENT, COMPILE A FMP F3B07020
HTR M1CW+2 INSTRUCTION, AND A LRS INSTR- F3B07030
HTR M1CW+3 UCTION. F3B07040
TSX CIT00,4 F3B07050
HTR M1CON ZERO, FOR INTERNAL FMLA. NO. F3B07060
HTR M1ABC+3 F3B07070
HTR M1CON PLACE 43 INDECREMENT OF F3B07080
HTR M1CON+12 RELATIVE ADDRESS. F3B07090
LXD CCOUNT,4 LOAD N-2 IN IR 4 F3B07100
M13320 TXI M13320+1,4,-1 DECREASE COUNT BY 1 F3B07110
SXD CCOUNT,4 REPLACE CCOUNT F3B07120
TXH M13300,4 BACK TO COMILE N-2 PRS. OF INST. F3B07130
M13330 TSX CIT00,4 COMPILE LAST INST FOR F3B07140
HTR M1CON EXP GREATER OR EQUAL 2 F3B07150
HTR M1ABC+8 F3B07160
HTR M1CW+2 F3B07170
HTR M1CW+3 F3B07180
TXI M12035,1,-2 BACK TO STANDARD AIL ROUTINE F3B07190
M13500 LXD M1CON+11,4 SPECIAL OPS. LOAD COUNT OF 22 IN IR 4 F3B07200
CLA AIL,1 COMPARE SPECIAL OP. FUNCTION NAME F3B07210
M13503 CAS M1D+18,4 IS THIRD WORD OF 1ST AIL ENTRY F3807220
TRA 0P1-2 NEW ROUTINE HANDLING ADD. SUBROUTINES F3B07230
TRA M13510 INCONSTANT AREA F3807240
TRA 0P1-2 NEW ROUTINE HANDLING ADD. SUBROUTINES F3B07250
M13510 SXD CCELL,4 IRC TO CCELL F3B07260
TXI M13510+2,1,-2 DECREASE CONTENTS OF IR 1 BY 2 F3B07270
PXD 0,1 END OF AIL REC F3B07280
CAS M1ALWN 2 IS COMP, OF NO. OF WORDS OF CUR- F3B07290
TRA M13520 RENT AIL RECORD F3B07300
TSX M10210,4 TO GET NEXT AIL RECORD F3B07310
TSX 4,4 NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F3B07320
M13520 LXD CCELL,4 F3B07330
M13525 TRA M13525+19,4 CHOOSE APPROPRIATE SPECIAL OP BRANCH F3B07340
TXI M13550,1,-2 (XABS) F3807350
TXI M13550,1,-2 (ABS) F3B07360
TXI M13600,1,-2 (XINT) F3B07370
TXI M13595,1,-2 (INT) F3B07380
TXI M13600,1,-2 (XFIX) F3B07390
TXI M13900,1,-2 (FLDAT) F3B07400
TXI M13680,1,-2 (XMOD) F3B07410
TXI M13681,1,-2 (MOD) F3B07420
TXI M13681,1,-2 (XSIGN) F3B07430
TXI M13681,1,-2 (SIGN) F3807440
TXI M13681,1,-2 (XMAX0 ) F3B07450
TXI M13681,1,-2 (MAX1 0 F3B07460
TXI M13680,1,-2 (XMAX1B) F3B07470
TXI M13680,1,-2 (MAX0B) F3B07480
TXI M13681,1,-2 (XMIN0B) F3807490
TXI M13681,1,-2 (MIN1B0) F3807500
TXI M13680,1,-2 (XMIN1B) F3B07510
TXI M13680,1,-2 (MINOB0) F3B07520
REM XABS, ABS BRANCH F3B07530
M13550 TSX ERROR1+1,4 INFO ON LOC OF ARG, CHECK FOR ALL 1S F3B07540
STO M1CW+2 TO M1CW+2 F3B07550
TXI M13555,1,-1 INCREMENT IR 1. . F3B07560
M13555 CLA AIL,1 REL ADD AND TAG, IF ANY, F3B07570
STO M1CW+3 TO M1CW+3 F3B07580
CLA M1CW+2 LOCATION OF ARGUMENT F3B07590
SUB M1ABC+20 SUBTRACT PLUS SIGN F3B07600
TZE M13575 ARG IN AC F3B07610
CLA M1CW+2 LOCATION OF ARGUMENT F3B07620
SUB M1ABC+18 ONE ASTERISK F3B07630
TZE M13580 ARG IN MQ F3B07640
REM ARG STORED F3B07650
CLA M1CW+3 RELATIVE ADDRESS AND TAG (IF ANY) F3B07660
ANA M1CON+15 ARG TAGGED, F3B07670
TZE M13570 ARG NOT TAGGED F3B07680
MSE 99 END OF CHTG TABLE F3B07690
TSX M12500,4 CHANGE TAG TABLE SEARCH F3B07700
PSE 99 F3B07710
M13570 TSX CIT00,4 COMPILE FIRST INST F3B07720
HTR M1CW INTERNAL FMLA NO. F3B07730
HTR M1ABC COMPILE ACLA INSTRUCTION F3B07740
HTR M1CW+2 F3B07750
HTR M1CW+3 F3B07760
REM ARG IN AC,(STORED) F3B07770
M13575 TSX CIT00,4 COMPILE FIRST (SECOND) INST F3B07780
HTR M1CON ZERO F3B07790
HTR M1ABC+9 SSP F3B07800
HTR M1CON ZERO F3B07810
HTR M1CON ZERO F3B07820
TXI M12035,1,-1 AIL ROUTINE F3B07830
REM ARG IN MQ F3B07840
M13580 CLA M1ABC+21 010000000000 F3B07850
STO M1CW+2 LOCATION OF ARG F3B07860
TSX CIT00,4 COMPILE FIRST INST F3B07870
HTR M1CW INT. FMLA NO. F3B07880
HTR M1ABC+7 STQ F3B07890
HTR M1CW+2 F3B07900
HTR M1CW+3 F3B07910
TRA M13570 COMPILE INSTRUCTION AS IF STORED F3B07920
REM XFIX, XINT, INT BRANCH F3B07930
M13595 PSE 100 FLOATING PT F3B07940
M13600 TSX ERROR1+1,4 INFO ON LOC OF ARG F3B07950
STO M1CW+2 TO M1CW+2 F3B07960
TXI M13605,1,-1 F3B07970
M13605 CLA AIL,1 REL ADD AND TAG, IF ANY, F3B07980
STO M1CW+3 TO M1CW+3 F3807990
CLA M1CW+2 LOCATION OF ARG. F3B08000
SUB M1ABC+20 PLUS SIGN F3B08010
TZE M13630 ARG IN AC F3B08020
CLA M1CW+2 LOCATION OF ARG. F3B08030
SUB M1ABC+18 ASTERISK F3B08040
TZE M13670 ARG IN MQ F3B08050
REM ARG STORED F3B08060
CLA M1CW+3 4TH WORD F3B08070
ANA M1CON+15 ARG TAGGED F3B08080
TZE M13620 NOT TAGGED F3808090
MSE 99 END OF CHTG TABLE F3808100
TSX M12500,4 CHTG TABLE SEARCH F3808110
PSE 99 F3B08120
M13620 TSX CIT00,4 COMPILE FIRST INST F3B08130
HTR M1CW INT. FMLA NO. IF ANY. F3B08140
HTR M1ABC CLA INSTRUCTION F3808150
HTR M1CW+2 F3808160
HTR M1CW+3 F3B08170
REM ARG IN AC(STORED) F3B08180
M13630 TSX CIT00,4 COMPILE FIRST (SECOND) INST F3808190
HTR M1CON ZERO F3808200
HTR M1ABC+10 UFA OP CODE F3B08210
HTR M1ABC+22 060000000000 F3808220
HTR M1CON ZERO F3808230
MSE 100 TEST FOR FL0ATING PT. F3808240
TRA M13640 XINT F3808250
TRA M13660 INT F3808260
REM XFIX, XINT, ARG STORED, IN AC, IN MQ F3808270
M13640 TSX CIT00,4 COMPILE 4 INST F3808280
HTR M1CON ZERO F3B08290
HTR M1ABC+3 LRS INSTRUCTION F3B08300
HTR M1CON ZERO F3808310
HTR M1CON ZERO F3B08320
TSX CIT00,4 F3808330
HTR M1CON F3B08340
HTR M1ABC+11 ANA F3B08350
HTR M1ABC+22 060000000000 F3808360
HTR M1CON+6 F3B08370
TSX CIT00,4 +000001000000 F3B08380
HTR M1CON F3B08390
HTR M1ABC+6 LLS F3B08400
HTR M1CON F3B08410
HTR M1CON F3808420
TSX CIT00,4 F3B08430
HTR M1CON F3B08440
HTR M1ABC+4 ALS F3B08430
HTR M1CON F3B08450
HTR M1CON+11 +000022000000 F3808470
TXI M12035,1,-1 CONTINUE WITH ROUTINE F3B08480
REM INT, ARG STORED, IN AC, IN MQ F3B08490
M13660 TSX CIT00,4 COMPILE 1 INST F3B08500
HTR M1CON F3B085I0
HTR M1ABC+12 FAD F3B08520
HTR M1ABC+22 060000000000 F3B08530
HTR M1CON ZERO F3B08540
TXI M12035,1,-1 CONTINUE WITH AIL ROUTINE F3B08550
REM XFIX, XINT, INT, ARG IN MQ F3B08560
M13670 CLA M1ABC+21 COMPILE FIRST INST F3B08570
STO M1CW+2 010000000000 F3B08580
TSX CIT00,4 F3B08590
HTR M1CW INT, FMLA NO. F3B08600
HTR M1ABC+7 STQ F3B08610
HTR M1CW+2 F3B08620
HTR M1CW+3 F3B08630
TRA M13620 TRANSFER TO CONTINUE AS STORED F3B08640
REM ALL MUTIVARIATE FUNCTIONS F3B08650
M13680 PSE 100 PLACE SENSE SW. ON FOR FIXPT, F3B08660
M13681 CLA AIL-2,1 TEST INTERNAL FORMULA NO, F3B08670
SUB M1CON+17 -377777777777, SHOULD BE AT F3B08680
TZE ERROR1 LEAST TWO ARGUMENTS FOR MULTIVARIATE FCNS. F3B08690
CLA AIL,1 LOCATION OF ARGUMENT F3B08700
RET3 STO M1CW+2 LOCATION OF ARGUMENT F3B08710
TXI M13685,1,-1 ADJUST COUNT IN IR 1, F3B08720
M13685 CLA AIL,1 REL ADD + TAG OF F3B08730
STO M1CW+3 FIRST ARG TO M1CW+3 F3B08740
TXI M13690,1,-1 F3B08750
M13690 PXD 0,1 END OF AIL REC F3B08760
CAS M1ALWN 2S COMPLIMENT OF NO. OF WORDS F3B08770
TRA M13700 IN AIL RECORD F3B08780
TSX M10210,4 BRING IN NEXT AIL REC. F3B08790
TSX 4,4 N0 OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F3B08800
M13700 CLA M1CW+3 REL. ADDRESS + TAG, IF ANY F3B08810
ANA M1CON+15 +000000002000 F3B08820
TZE M13710 FIRST ARG TAGGED F3B08830
MSE 99 END OF CHTG TABLE F3B08840
TSX M12500,4 CHTG TABLE SEARCH F3B08850
PSE 99 F3B08860
M13710 CLA M1CON+9 SIGN, MODULO OR MAX, MIN F3B08870
CAS CCELL COMPARE TO 10 F3B08880
NOP F3B08890
TRA M13770 MAX OR MIN BRANCH F3B08900
CLA M1CON+5 SIGN OR MODULO, +000012000000 F3B08910
CAS CCELL F3B08920
NOP F3B08930
TRA M13950 SIGN BRANCH F3B08940
MSE 100 XMOD OR MOD F3B08950
TRA M13735 FL0ATING PT., MOD BRANCH F3B08960
REM XM0D BRANCH F3B08970
TSX CIT00,4 COMPILE 3 INST, FOR MULTIVARIATE F3B08980
HTR M1CW XMOD. F3B08990
HTR M1ABC+13 CLM F3B09000
HTR M1CON F3B09010
HTR M1CON F3B09020
TSX CIT00,4 F3B09030
HTR M1CON F3B09040
HTR M1ABC+1 LDQ F3B09050
HTR M1CW+2 A F3B09060
HTR M1CW+3 F3B09070
TSX CIT00,4 F3B09080
HTR M1CON F3B09090
HTR M1ABC+6 LLS F3B09100
HTR M1CON F3B09110
HTR M1CON F3B09120
CLA M1CON ZERO, T0 REPLACE 1,S. F3B09130
STO M1CW INTERNAL FMLA NO. F3B09140
CLA M1ABC+14 DVP OP CODE F3B09150
STO M1CW+1 F3B09160
TXI M13725,1,-2 DECREASE IR 1 BY 2 F3B09170
M13725 TSX ERROR1+1,4 CHECK FOR END OF CALLING SEQUENCE F3B09180
STO M1CW+2 SYMBOLIC ADDRESS OF 2ND ARGUM. F3B09190
TXI M13730,1,-1 F3B09200
M13730 CLA AIL,1 REL ADD AND TAG 0, F3B09210
STO M1CW+3 SECOND ARG TO M1CW+3 F3B09220
TXI M12022,1,-1 BACK T0 END OF AIL ROUTINE F3B09230
REM MOD BRANCH F3B09240
M13735 TSX CIT00,4 COMPILE FIRST INST F3B09250
HTR M1CW F3B09260
HTR M1ABC+27 CLS A F3B09270
HTR M1CW+2 F3B09280
HTR M1CW+3 F3B09290
CLA M1CW+2 SAVE FIRST ARG IN 3RD WORD F3B09300
STO 3WD F3B09310
CLA M1CW+3 SAVE REL ADD AND TAG IN 4WD F3B09320
STO 4WD F3B09330
TXI M13741,1,-2 F3B09340
M13741 TSX ERROR1+1,4 CHECK THAT NEXT WORD IS LAST ARG. F3B09350
STO M1CW+2 SYMBOLIC AD OF 2ND ARG. F3B09360
TXI M13745,1,-1 F3B09370
M13745 CLA AIL,1 REL ADD AND TAG OF F3B09380
STO M1CW+3 SECOND ARG T0 M1CW+3 F3B09390
ANA M1CON+15 TEST IF TAGGED F3B09400
TZE M13755 SECOND ARG TAGGED F3B09410
MSE 99 END OF CHTG TABLE F3B09420
TSX M12500,4 BACK TO AIL ROUTINE F3B09430
PSE 99 F3B09440
M13755 TSX CIT00,4 COMPILE LAST 9 INSTS F3B09450
HTR M1CON F3B09460
HTR M1ABC+15 FDP B F3B09470
HTR M1CW+2 F3B09480
HTR M1CW+3 F3B09490
TSX CIT00,4 F3B09500
HTR M1CON F3B09510
HTR M1ABC+7 STQ F3B09520
HTR M1ABC+21 010000000000 F3B09530
HTR M1CON F3B09540
TSX CIT00,4 F3B09550
HTR M1CON F3B07560
HTR M1ABC CLA F3B09570
HTR M1ABC+21 010000000000 F3B09580
HTR M1CON F3B09590
TSX CIT00,4 F3B09600
HTR M1CON F3B09610
HTR M1ABC+10 UFA F3B09620
HTR M1ABC+22 060000000000 F3B09630
HTR M1CON F3B09640
TSX CIT00,4 F3B09650
HTR M1CON F3B09660
HTR M1ABC+12 FAD F3B09670
HTR M1ABC+22 060000000000 F3B09680
HTR M1CON F3B09690
TSX CIT00,4 F3B09700
HTR M1CON F3B09710
HTR M1ABC+5 STO F3B09720
HTR M1ABC+21 060000000000 F3B09730
HTR M1CON F3B09740
TSX CIT00,4 F3B09750
HTR M1CON F3B09760
HTR M1ABC+1 LDQ F3B09770
HTR M1ABC+21 060000000000 F3B09780
HTR M1CON F3B09790
TSX CIT00,4 F3B09800
HTR M1CON F3B09810
HTR M1ABC+8 FMP F3B09820
HTR M1CW+2 B F3B09830
HTR M1CW+3 F3B09840
TSX CIT00,4 F3B09850
HTR M1CON F3B09860
HTR M1ABC+12 FAD F3B09870
HTR 3WD A F3B09880
HTR 4WD F3B09890
TXI M12035,1,-1 AIL ROUTINE F3B09900
REM MAX, MIN BRANCH F3B09910
M13770 CLA M1CON+8 +000004000000 F3B09920
CAS CCELL FOR MIN BRANCH F3B09930
NOP F3B09940
TRA M13855 MIN BRANCH F3B09950
REM ALL MAX ROUTINES F3B09960
TSX CIT00,4 COMPILE FIRST INST F3B09970
HTR M1CW F3B09980
HTR M1ABC CLA A1 F3B09990
HTR M1CW+2 SYMBOlIC ADDRESS OF FIRST ARGUHENT F3B10000
HTR M1CW+3 RELATIVE ADDRESS + TAG, IF ANY F3B10010
M13780 CLA AIL,1 END MARK, IF ANY, TO ENDT, THIS WILL F3B10020
STO ENDT BE ALL 1S IF END. F3B10030
TXI M13785,1,-2 F3B10040
M13785 CLA AIL,1 SYMBOLIC ADDRESS OF ITH ARG, I EQUAL 2,...,N F3B10050
STO M1CW+2 TO M1CW+2 F3B10060
TXI M13790,1,-1 F3B10070
M13790 CLA AIL,1 REL ADD AND TAG OF F3B10080
STO M1CW+3 ITH ARG T0 M1CW+3 F3B10090
ANA M1CON+15 TEST IF ITHARGUMENT TAGGED F3B10100
TZE M13800 ITH ARG NOT TAGGED F3B10110
MSE 99 END OF CHTG TABLE F3B10120
TSX M12500,4 CHTG TABLE SEARCH F3B10)30
PSE 99 F3B10140
M13800 CLA M1CON+8 000004000000 F3B10150
CAS CCELL COMPARE FOR MINIMUM BR. F3B10160
NOP F3B10170
TRA M13860 MIN BRANCH F3B10180
TSX CIT00,4 COMPILE 3 INSTRUCTIONS FOR F3B10190
HTR M1CON ITH ARG F3810200
HTR M1ABC+1 LDQ F3B10210
HTR M1CW+2 ITH ARGUMENT I=2....,N F3B10220
HTR M1CW+3 F3B10230
TSX CIT00,4 F3B10240
HTR M1CON F3B10250
HTR M1ABC+16 TLQ F3810260
HTR M1ABC+24 +170000000000 F3B10270
HTR M1CON+7 +000002000000 F3810280
TSX CIT00,4 F3B10290
HTR M1CON F3B10300
HTR M1ABC CLA AI F3B10310
HTR M1CW+2 F3B10320
HTR M1CW+3 F3B10330
CLA ENDT I=N F3B10340
SUB M1CON+17 -377777777777 F3B10350
TZE M13830 LAST ARGUMENT F3B10360
TXI M13820,1,-1 F3B10370
M13820 PXD 0,1 END OF AIL REC F3B10380
CAS M1ALWN 2S COMPL. OF NO. OF WORS OF AIL REC F3810390
TRA M13780 TO COMPILE INSTR. FOR ALL ARGUMENTS F3810400
TSX M10210,4 PACK TO READ NEXT AIL RECORD F3810410
TSX 4,4 NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F3810420
TRA M13780 F3810430
M13830 MSE 100 TEST FOR FIXED PT AND TURN OFF SW. F3B10440
TXI M12035,1,-1 OUT FOR XMAX0, MAX1, XMIN0, MIN1 F3810450
CLA CCELL NO. OF FUNCTION FIXED MAX. F3810460
ARS 18 F3B10470
LBT TEST FOR FLOATING MAX OR MIN F3B10480
TRA M13630 XMAX1, XMIN1, FIXED MIX OR MIN F3810490
TSX CIT00,4 COMPILE LAST 3 INSTRUCTIONS F3B10500
HTR M1CON FOR MAX0, MIN0 F3810510
HTR M1ABC+3 LRS F3B10520
HTR M1CON F3810530
HTR M1CON+11 18 F3B10540
TSX CIT00,4 F3B10550
HTR M1CON F3B10560
HTR M1ABC+23 ORA F3B10570
HTR M1ABC+22 06000D000000 F3B10580
HTR M1CON F3810590
TSX CIT00,4 F3B10600
HTR M1CON F3810610
HTR M1ABC+12 FAD F3B10620
HTR M1ABC+22 060000000000 F3B10630
HTR M1CON F3810640
TXI M12035,1,-1 BACK TO END OF AIL ROUTINE F3B10650
REM ALL MIN ROUTINE COMPILE FIRST INST F3B10660
M13855 TSX CIT00,4 COMPILE FIRST INST F3B10670
HTR M1CW F3810680
HTR M1ABC+1 LDQ A1 F3B10690
HTR M1CW+2 F3810700
HTR M1CW+3 F3B10710
TRA M13780 TO STORE NEEDED INFORMATION F3810720
M13860 TSX CIT00,4 COMPILE 3 INST FOR F3B10730
HTR M1CON ITH ARG F3B10740
HTR M1ABC CLA A2....N F3B10750
HTR M1CW+2 F3810760
HTR M1CW+3 F3810770
TSX CIT00,4 F3810780
HTR M1CON F3B10790
HTR M1ABC+16 TLQ F3B10800
HTR M1ABC+24 +000002000000 F3B10810
HTR M1CON+7 +170000000000 F3B10820
TSX CIT00,4 F3B10830
HTR M1CON F3810840
HTR M1ABC+1 LDQ A2....N F3B10850
HTR M1CW+2 F3B10860
HTR M1CW+3 F3B10870
CLA ENDT I=N F3B10880
SUB M1CON+17 -377777777777 F3B10890
TZE M13880 LAST ARGUMENT F3B10900
TXI M13820,1,-1 TO TEST IF END OF AIL RECORD F3B10910
M13880 TSX CIT00,4 COMPILE TWO INST. F3B10920
HTR M1CON F3B10930
HTR M1ABC+7 STQ F3B10940
HTR M1ABC+21 010000000000 F3B10950
HTR M1CON F3B10960
TSX CIT00,4 F3B10970
HTR M1CON F3B10980
HTR M1ABC CLA F3B10990
HTR M1ABC+21 010000000000 F3B11000
HTR M1CON F3B11010
TRA M13830 TEST SW, 4 AND GO TO VARIOUS ROUTES F3B11020
REM FLOAT BRANCH F3B11030
M13900 TSX ERROR1+1,4 TO TEST IF ONLY ONE ARGUMENT F3B11040
STO M1CW+2 SYMBOLIC LOCATION OF ARGUMENT F3B11050
TXI M13905,1,-1 F3B11060
M13905 CLA AIL,1 REL ADD AND TAG, IF ANY, F3B11070
STO M1CW+3 TO M1CW+3 F3B11080
CLA M1CW+2 F3B11090
SUB M1ABC+20 PLUS SIGN F3B11100
TZE M13915 ARG IN AC F3B11110
CLA M1CW+2 F3B11120
SUB M1ABC+18 ASTERISK F3B11130
TZE M13920 ARG IN MQ F3B11140
CLA M1CW+3 RELATIVE ADDRESS AND TAG, IF ANY F3B11150
ANA M1CON+15 F3B11160
TZE M13910 ARG NOT TAGGED F3811170
MSE 99 F3B11190
TSX M12500,4 CHTG TABLE SEARCH F3B11190
PSE 99 F3B11200
M13910 TSX CIT00,4 F3B11210
HTR M1CW F3B11220
HTR M1ABC CLA A F3B11230
HTR M1CW+2 F3811240
HTR M1CW+3 F3811250
REM ARG IN AC (STORED) F3B11260
M13915 TRA M13830+6 TO COMILE 3 INSTR. AS MAX OR MIN F3B11270
REM ARG IN MQ F3B11280
M13920 CLA M1ABC+21 010000000000 F3B11290
STO M1CW+2 SYMBOLIC LOCATION F3B11300
TSX CIT00,4 F3B11320
HTR M1CW F3B11330
HTR M1ABC+7 STQ F3B11340
HTR M1CW+2 F3B11350
HTR M1CW+3 F3B11360
TRA M13910 TO COMPILE A CLA INSTRUCTION F3B11370
REM XSIGN, SIGN BRANCH F3B11380
M13950 TSX CIT00,4 F3B11390
HTR M1CW F3B11400
HTR M1ABC CLA A1 F3B11410
HTR M1CW+2 F3B11420
HTR M1CW+3 F3B11430
TXI M13955,1,-2 DECREASE IR 1 BY -2 F3B11440
M13955 TSX ERROR1+1,4 TEST IF ONLY 2 ARGUMENTS F3B11450
STO M1CW+2 SYMBOLIC ADDRESS. F3B11460
TXI M13960,1,-1 F3B11470
M13960 CLA AIL,1 REL ADD AND TAG, IF ANY, TO F3B11480
STO M1CW+3 M1CW+3 F3B11490
ANA M1CON+15 ARG TAGGED F3B11500
TZE M13965 ARG NOT TAGGED F3B11510
MSE 99 F3B11520
TSX M12500,4 BACK T0 CHTG TABLE SEARCH F3B11530
PSE 99 F3B11540
M13965 TSX CIT00,4 F3B11550
HTR M1CON F3B11560
HTR M1ABC+1 LDQ A2 F3B11570
HTR M1CW+2 F3B11580
HTR M1CW+3 F3B11590
TSX CIT00,4 F3B11600
HTR M1CON F3B11610
HTR M1ABC+6 LLS F3B11620
HTR M1CON F3B11630
HTR M1CON F3B11640
TXI M12035,1,-1 AIL ROUTINE F3B11650
ERROR1 TSX 4,4 A MULT1 VARIATE FN. HAS ONLY 1 VARIABLE F3B11660
ERR1 CLA AIL-2,1 INT. FORMULA NO. OF ARGURMENT F3B11670
SUB M1CON+17 -377777777777 F3B11680
TNZ ERROR2 SHOULD BE ALL 1S, FOR PARTICULAR ROUTINE F3B11690
CLA AIL,1 LOCATION OF ARGUMENT F3B11700
TRA 1,4 BACK TO CONTINUE F3B11710
ERROR2 TSX 4,4 A UNIVARIATE OR 2VAR. ROUTINE NOT CORRECT F3B11720
M1ECTR DEC 5,6,0,0 F3B11730
M1CON DEC 0,1,2,3,4,10B17,1B17,2B17,4B17,8B17,17B17,18B17,35B17 F3B11740
OCT 77777000000,77777,2000,370,777777777777,1000001,312,314 F3B11750
M1ABC BCD 7CLA000LDQ000MPY000LRS000ALS000STO000LLS000 F3B11760
BCD 7STQ00OFMP000SSP000UFA000ANA00OFAD000CLM000 F3B11770
BCD 7DVP00OFDP000TLQ000RTB000*000000*0000+00000 F3B11780
BCD 3100000600000ORA000 F3B11790
OCT 170000000000 F3B11800
BCD 3SXD000WTB000CLS000 F3B11810
M1D BCD 7XABS ABS XINT INT XFIX FLOAT XMOD F3B11820
BCD 4MOD XSIGN SIGN XMAX0 F3B11830
BCD 7MAX1 XMAX1 MAX0 XMIN0 MIN1 XMIN1 MIN0 F3B11840
COMBOX TAG OR 1NT FMLA NO OF FORTAG ENTRY DURING CHTG EDIT F3B11850
CHTGL 2S COMP OF NO OF WORDS IN CHTG TABLE F3B11860
CHTGE1 2S COMP OF CUR. ENTRY POINT IN CHTG TABLE F3B11870
CHTGE2 2S COMP OF NEXT ENTRY POINT IN CHTG TABLE F3B11880
CHTGFN INT FMLA NO APPEARING IN CURRENT CHTG TABLE BLOCK F3B11890
SXTXL LENGTH OF SXTX TABLE F3B11900
SXLOC LOCATION WORD OF CURRENT DO INST F3B11910
CBOX IRC DURING CHTG TABLE SEARCH, SXTX TABLE SEARCH F3B11920
TAGB0X TAG OF CUR AIL INST DURING CHTG TABLE SEARCH F3B11930
M1DOWN 2S COMP OF N0 OF WORDS IN CUR DO REC F3B11940
M1ALWN 2S COMP OF N0 OF WORDS IN CUR AIL REC F3B11950
M1TRC NO OF REC READS F3B11960
M1DOFN INT FMLA NO OF CUR BLOCK OF DO INST F3B11970
M1ALFN INT FMLA NO OF CUR BLOCK OF AIL INST F3B11980
CCOUNT COUNT NO OF PAIRS OF MPY,LRS INST FOR EXP ROUTINE F3B11990
CCELL IND SPECIAL OP ROUTINE F3B12000
ENDT IND APPEARANCE OF END MARK IN MAX,MIN ROUTINES F3B12010
E1C CELL FOR SAVING MQ F3B12020
E2C CELL FOR SAVING IRA F3B12030
E3C CELL FOR SAVING IRB F3B12040
BB0X 2S COMP OF NO OF WORDS ALREADY ENTERED IN BLOCK F3B12050
3WD TEHP STORAGE FOR THID WD OF COMPILED INST F3B12060
4WD TEHP STORAGE FORF0URTH WD OF COMPILED INST F3B12070
M1CW BSS 4 FOUR WORD INST SPACE FOR COMPILING F3B12080
PZE LENGTH OF FORTAG TABLE F3B12090
FORTAG BSS 1500 AIL,DO,CIB LATER SHARE THIS BLOCK F3B12100
UCHTG BSS 300 F3B12110
ERAS BSS 2 ORIGEN + SXTX LENGTH, SXTX, CHTG LENGTH F3B12120
CHTG BSS 600 F3B12130
AIL SYN FORTAG F3B12140
DO SYN FORTAG+100 F3B12150
CIB SYN FORTAG+200 F3B12160
SXTX SYN FORTAG+300 F3B12170
0P1 SYN 3643
END 24 F3B13420
REM MASTER RECORD CARD = FN058
REM THE FOLLOWING PROGRAM CONSTITUTES THE SECOND SECTION OF THE F3B00010
REM MERGE. IT PREPARES THE TIFGO FILE OF COMPILED INSTRUCTIONS F3B00020
REM - I.E., THE INSTRUCTIONS WHICH ARE NEEDED TO COMPLETE THE F3800030
REM TRANSLATION OF CONTR0L FORMULAS AS WELL AS THOSE WHICH BECOMEF3B00040
REM NECESSARY AS A RESULT OF THE INTERRELATION BETWEEN CONTROL F3B00050
REM FORMULAS AND DO FORMULAS - FOR LATER MERGING WITH THE FILE OFF3B00060
REM INSTRUCTIONS CREATED IN THE FIRST SECTION OF THE MERGE F3B00070
ORG 24 F3B00080
REM POSITIONING OF TAPE 2, TAPE 3, TAPE 4 F3B00090
M20000 LXA M2CON,4 PLACE A ZERO IN IR 4 F3B00100
CDR1 TXI M20000+2,4,11 ADD 13 FOR SPACING TAPE TO TIFGO TABLE F3B00110
RDS 146 POSITION TAPE 2 TO TIFGO TABLE, BY SPACING F3B00120
TIX M20000+2,4,1 OVER 7 RECORDS F3B00130
REW 147 REWIND TAPE 3 F3B00140
REW 148 REWIN0 TAPE 4 F3B00150
REM PROGRAM TO READ TRASTO FROM DRUM F3B00160
LXA M2ECTR,4 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B00170
RDRA2 RDR 3 SELECT DRUM 3 F3B00180
LDA O456 LOCATE DRUM ADDRESS OF TRASTO F3B00190
CPY TRSWC WORD COUNT F3B00200
CPY WCCHS CHECK SUM F3B00210
CLA TRSWC DOES WORD COUNT AGREE F3B00220
SUB WCCHS WITH ITS CHECK SUM F3B00230
TZE RDRA1 YES F3B00240
TIX RDRA2,4,1 NO, TRY 4 MORE TIMES F3B00250
TSX 4,4 WORD COUNT MOT EQUAL TO CHECK SUM F3B00260
RDRA1 CLA TRSWC ARE THERE ENTRIES IN TRASTO F3B00270
TZE RTT00 NO F3B00280
ADD ORTRST INITIAL LOCATION OF TRASTO WORK AREA F3B00290
STA RDRB1 INITIALIZE ADDRESSES OF CPY INSTR. F3B00300
STA RDRB2 F3B00310
STA RDRB5 F3B00320
LXA M2ECTR,4 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B00330
RDRA3 RDR 3 SELECT DRUM 3 F3B00340
LXA TRSWC,1 PLACE WORD COUNT IN IR 1 F3B00350
LDA O460 INITIAL DRUM ADDRESS F3B00360
RDRB1 CPY 0,1 AND COPY ALL OF THE TRASTO F3B00370
TIX RDRB1,1,1 ENTRIES. F3B00380
CLM CLEAR ACC. F3B00390
LXA TRSWC,1 NEW WORD COUNT IN IR 1 F3B00400
RDRB3 TXL RDRB4,1,0 CHECK COUNT DURING LOOP F3B00410
LXA L(3),2 PLACE COUNT OF 3 IN IR 2 IN ORDER TO F3B00420
RDRB2 ACL 0,1 ADD LOGICALLY EVERYTHREE TRASTO F3B00430
TNX RDRB4,1,1 WORDS, COUNT ALL ENTRIES F3B00440
TIX RDRB2,2,1 IR 2 USED TO COUNT EVERY THREE F3B00450
TXI RDRB3,1,-1 WORDS, SKIP OVER 4TH WORD. F3B00460
RDRB4 SLW CHS1 AFTER ALL WORDS ARE COUNTED F3B00470
CLM CLEAR ACC F3B00480
LXA TRSWC,1 WORD COUNT OF TRASTO ENTRIES F3B00490
TXI RDRB5,1,-3 ADD OLD CHECKS SUMS, AND F3B00500
RDRB5 ACL 0,1 ACCUMULATE SUM LOGICALLY F3B00510
TIX RDRB5,1,4 F3B00520
SLW CHS2 F3B00530
CLA CHS1 COMPUTED CHECK SUM. F3B00540
SUB CHS2 DO CHECK SUMS MATCH F3B00550
TZE STRS YES F3B00560
TIX RDRA3,4,1 IF THE SUMS DONT AGREE, TRY 4 MORE TIMES F3B00570
COR3 TSX 4,4 CHECK SUMS INCORRECT AFTER 5 TRIES F3B00580
REM PROGRAM TO SORT TRASTO ENTRIES BY TYPE F3B00590
STRS CLA TRSWC INITIALIZATION OF ALL MODIFIED ADDRESSES F3B00600
ADD TRSORG F3B00610
STA A4 F3B00620
STA A1 F3B00630
STA A3 F3B00640
STA B1 F3B00650
STA B5 F3B00660
STA C3 F3B00670
STA D2 F3B00680
STA D3 F3B00690
STA E2 F3B00700
STA E4 F3B00710
STA F3 F3B00720
SXD 1BOX,0 CLEAR DECREMENT OF WORK AREA F3B00730
SXD 2BOX,0 F3B00740
SXD 3BOX,0 F3B00750
SXD 4BOX,0 F3B00760
SXD 5BOX,0 F3B00770
SXD 6BOX,0 F3B00780
LXA TRSWC,1 WORD COUNT IN IR 1 F3B00790
TXI A4,1,-2 F3B00800
A4 CLA 0,1 OBTAIN WORD 3, AND SEPARATE TYPES F3B00810
TMI D1 ENTRY IS TYPE 4,5 OR 6, 3RD WD, MINUS F3B00820
REM ENTRY IS TYPE 1, 2, OR 3 F3B00830
TXI A1,1,2 RESTORE LOOP COUNT F3B00840
A1 CLA 0,1 OBTAIN WORD 1 F3B00850
TPL B2 ENTRY IS TYPE 1 OR 2 P3B0D890
REM ENTRY IS TYPE 3 F3B00870
LXA L(4),4 MINUS IN FIRST AND THIRD WDS. F3B00880
LXD 3BOX,2 PLACE A COUNT OF 4 IN IR 4, F3B00890
A3 CAL 0,1 CLEAR IR 2, AND GET 1ST WD. IN ACC F3B00900
SLW TYPE3,2 PLACE IN PROPER MEMORY LOC. F3B00910
TXI A2,2,-1 SUB. 1 FROM IR 2, LOOP BACK F3B00920
A2 SXD 3BOX,2 TO GET 4 WORDS IN PROPER LOC. F3B00930
TNX PACK,1,1 EXIT FOR END OF TRASTO F3B00940
TIX A3,4,1 F3B00950
TXI A4,1,-2 PICK UP NEXT TRASTO ENTRY F3B00960
REM ENTRY IS TYPE 1 OR 2 F3B00970
B2 TXI B1,1,-1 F3B00980
B1 CAL 0,1 OBTAIN WORD 2 F3B00990
ANA MASK EXAMINE PREFIX, IF TYPE 2 HAS MINUS SIGN F3B01000
TZE C1 ENTRY IS TYPE 1 F3B01010
REM ENTRY IS TYPE 2 F3B01020
TXI B3,1,1 RESTORE COUNT TO GET WORD 1 F3B01030
B3 LXA L(4),4 COUNT 4 IN IR 4 F3B01040
LXD 2BOX,2 CLEAR IR 2 F3B01050
B5 CAL 0,1 1ST WORD F3B01060
SLW TYPE2,2 PROPER OUTPUT AREA F3B01070
TXI B4,2,-1 DECREASE COUNT IN IR 2 BY -1 F3B01080
B4 SXD 2BOX,2 PLACE COUNT IN PROPER PLACE F3B01090
TNX PACK,1,1 EXIT F3B01100
TIX B5,4,1 F3B01110
TXI A4,1,-2 TRANSFER BACK TO SORT NEXT ENTRY F3B01120
REM ENTRY IS TYPE 1 F3B01130
C1 TXI C2,1,1 RESTORE COUNT TO GET WD 1. F3B01140
C2 LXA L(4),4 F3B01150
LXD 1BOX,2 F3B01160
C3 CAL 0,1 F3B01170
SLW TYPE1,2 STORE IN PROPER MEMORY P0SITION F3B01180
TXI C4,2,-1 F3B01190
C4 SXD 1BOX,2 SAVE COUNT OF TYPE 1 ENTRY F3B01200
TNX PACK,1,1 EXIT F3B01210
TIX C3,4,1 F3B01220
TXI A4,1,-2 BACK FOR NEXT ENTRY F3B01230
REM ENTRY IS TYPE 4, 5 OR 6 F3B01240
D1 TXI D2,1,2 F3B01250
D2 CLA 0,1 OBTAIN WORD 1 F3B01260
TPL E1 ENTRY IS TYPE 4 OR 6 F3B01270
REM ENTRY IS TYPE 5 F3B01280
LXA L(4),4 F3B01290
LXD 5BOX,2 COUNT OF ENTRIES FOR TYPE 5 F3B01300
D3 CAL 0,1 F3B01310
SLW TYPE5,2 STORE IN PROPER MEMORY POS. F3B01320
TXI D4,2,-1 F3B01330
D4 SXD 5BOX,2 SAVE COUNT FOR TYPE 1 ENTRY F3B01340
TNX PACK,1,1 EXIT F3B01350
TIX D3,4,1 F3B01360
TXI A4,1,-2 OBTAIN NEXT TRASTO ENTRY F3B01370
REM ENTRY IS TYPE 4 OR 6 F3B01380
E1 TXI E2,1,-1 F3B01390
E2 CAL 0,1 OBTAIN WORD 2 F3B01400
ANA MASK TEST IF MINUS F3B01410
TZE F1 ENTRY IS TYPE 4 F3B01420
REM ENTRY IS TYPE 6 F3B01430
TXI E3,1,1 RESTORE COUNT TO GET WORD 1 F3B01440
E3 LXA L(4),4 F3B01450
LXD 6BOX,2 F2B01460
E4 CAL 0,1 F3B01470
SLW TYPE6,2 STORE IN PROPER MEMORY POS F3B01480
TXI E5,2,-1 F3B01490
E5 SXD 6BOX,2 SAVE COUNT FOR TYPE 6 ENTRY F3B01500
TNX PACK,1,1 EXIT F3B01510
TIX E4,4,1 F3B01520
TXI A4,1,-2 OBTAIN NEXT TRASTO ENTRY F3B01530
REM ENTRY IS TYPE 4 F3B01540
F1 TXI F2,1,1 F3B01550
F2 LXA L(4),4 F3B01560
LXD 4BOX,2 F3B01570
F3 CAL 0,1 F3B01580
SLW TYPE4,2 STORE IN PROPER MEMORY POS F3B01590
TXI F4,2,-1 F3B01600
F4 SXD 4BOX,2 SAVE COUNT FOR TYPE 4 ENTRY F3B01610
TNX PACK,1,1 EXIT F3B01620
TIX F3,4,1 F3B01630
TXI A4,1,-2 OBTAIN NEXT TRASTO ENTRIES F3B01640
REM TYPE 2 TO TRASTO F3B01650
PACK LXD 1BOX,1 PACK TRASTO ENTRIES T0 GETHER F3B01660
LXD 2BOX,4 IN MEMORY IN ORDER OF TYPES 1 THRU F3B01670
TXL H5,4,0 6. F3B01680
LXD L(0),2 F3B01690
G4 CAL TYPE2,2 F3B01700
SLW TYPE1,1 F3801710
TXI G1,1,-1 F3B01720
G1 TXI G2,2,-1 F3801730
G2 TXI G3,4,1 F3B01740
G3 TXH G4,4,0 INDEX C REDUCES T0 ZERO F3B01750
REM TYPE 3 TO TRASTO F3B01760
H5 LXD 3BOX,2 F3B01770
TXL I5,2,0 F3B01780
H4 CAL TYPE3,4 F3B01790
SLW TYPE1,1 F3B01800
TXI H1,1,-1 F3B01810
H1 TXI H2,4,-1 F3B01820
H2 TXI H3,2,1 F3B01830
H3 TXH H4,2,0 F3B01840
REM TYPE 4 TO TRASTO F3B01850
I5 LXD 4BOX,4 F3801860
TXL J5,4,0 - F3B01870
I4 CAL TYPE4,2 F3B01880
SLW TYPE1,1 F3B01890
TXI I1,1,-1 F3B01900
I1 TXI I2,2,-1 F3B01910
I2 TXI I3,4,1 F3B01920
I3 TXH I4,4,0 F3B01930
REM TYPE 5 TO TRASTO F3B01940
J5 LXD 5BOX,2 F3D01950
TXL K5,2,0 F3B01960
J4 CAL TYPE5,4 F3B01970
SLW TYPE1,1 F3B01980
TXI J1,1,-1 F3B01990
J1 TXI J2,4,-1 F3B02000
J2 TXI J3,2,1 F3B02010
J3 TXH J4,2,0 F3B02020
REM TYPE 6 TO TRASTO F3B02030
K5 LXD 6BOX,4 F3B02040
TXL CALL,4,0 F3B02050
K4 CAL TYPE6,2 F3B02060
SLW TYPE1,1 F3B02070
TXI K1,1,-1 F3B02080
K1 TXI K2,2,-1 F3B02090
K2 TXI K3,4,1 F3B02100
K3 TXH K4,4,0 F3B02110
REM PROGRAM TO READ TIFGO TABLE F3B02120
RTT00 RTT TURN OFF TAPE CHECK INDICATOR AND LITES F3B02130
CALL SYN RTT00 F3B02140
NOP F3B02150
LXA M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02160
RTTD3 RTB 2 SELECT TAPE 2 T0 READ TIFGO F3B02170
CPY TIFGO-1 F3B02180
CLA TIFGO-1 IDENTIFICATION FOR TIFGO TABLE F3B02190
SUB L(2) IS TABLE CALLED FOR F3B02200
TZE RTTD1 YES F3B02210
TSX 4,4 NOT TIFGO FILE F3B02220
RTTD1 CPY TIFGO-1 GET WORD COUNT F3B02230
LXA L(0),1 F3B02240
CLA TIFGO-1 TEST WD. COUNT F3B02250
TZE RTTD5 NO TIFGO ENTRIES F3B02260
RTTD2 CPY TIFGO,1 COPY F3B02270
TXI RTTD2,1,-1 LOOP F3B02280
TSX 4,4 EOF INCORRECT F3B02290
IOD EOR F3B02300
RTTD5 RTT IS TAPE CHECK ON F3B02310
TRA RTTD4 YES F3B02320
SXD TIFGO-1,1 NO F3B02330
TRA RTTE1 TO READ TRAD TABLE F3B02340
RTTD4 BST 2 F3B02350
TIX RTTD3,2,1 F3B02360
COR4 TSX 4,4 ERROR READING TIFGO TABLE AFTER 5 TRIES F3B02370
REM PROGRAM T0 READ TRAD TABLE F3B02380
RTTE1 LXA M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02390
RTTE5 RTB 2 READ TRAD TABLE FROM TAPE 2 F3B02400
CPY TRAD-1 IDENTIFICATION NUMBER F3B02410
CLA TRAD-1 F3B02420
SUB L(3) IS TABLE CALLED FOR F3B02430
TZE RTTE2 YES F3B02440
TSX 4,4 TRAD TABLE NOT CALLED FOR F3B02450
RTTE2 CPY TRAD-1 GET WORD COUNT F3B02460
CLA TRAD-1 TEST WORD COUNT FOR NUMBER OF ENTRIES F3B02470
TZE RTTE6 F3B02480
LXA L(0),1 F3B02490
RTTE3 CPY TRAD,1 COPY TRAD ENTRIES AND GET 2S COMP. F3B02500
TXI RTTE3,1,-1 OF NUMBER OF ENTRIES. F3B02510
TSX 4,4 EOF INCORRECT F3B02520
IOD EOR F3B02530
RTTE6 RTT IS TAPE CHECK ON F3B02540
TRA RTTE4 YES F3B02550
TRA RTTC0 NO F3B02560
RTTE4 BST 2 ERROR ROUTINE FOR READING TRAD F3B02570
TIX RTTE5,2,1 ENTRIES F3B02580
COR5 TSX 4,4 AFTER 5 TRIES F3B02590
REM PROGRAM T0 READ TRALEV F3B02600
RTTC0 CLM CLEAR ACCUMULATOR F3B02610
SLW TRALEV-1 SET WORD PRECEDING ENTRIES T0 ZERO F3B02620
RTTC4 LXA M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02630
RTTC2 RTB 4 READ TRALEV ENTRIES FROM TP. 4 F3B02640
CPY TRALEV IDENTIFICATION F3B02650
RTT IS TAPE CHECK ON F3B02660
TRA RTTC1 YES F3B02670
TRA RTTC3 NO F3B02680
RTTC1 BST 4 ERROR ROUTINE FOR READING TRALEV F3B02690
TIX RTTC2,2,1 F3B02700
COR6 TSX 4,4 AFTER 5 TRIES F3B02710
RTTC3 CLA TRALEV IS TRALEV EMPTY F3B02720
TZE OUT YES F3B02730
LXA M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02740
RTTA3 LXD M2CON+9,1 RESET IR 1 T0 ALL ONES F3B02750
RTTA1 CPY TRALEV,1 COPY LOOP. ADD COUNT TO READ ADDRESS F3B02760
TXI RTTA1,1,-1 F3B02770
TSX 4,4 EOF INCORRECT F3B02780
IOD EOR F3B02790
RTT IS TAPE CHECK ON F3B02800
TRA RTTA2 YES F3B02810
TRA RTTB1 NO F3B02820
RTTA2 BST 4 BACKSPACE TAPE 4 F3B02830
RTB 4 READ AGAIN F3B02840
CPY TRALEV GET WORD COUNT F3B02850
TIX RTTA3,2,1 TRY AGAIN T0 READ IN ENTRIES F3B02860
COR7 TSX 4,4 ERROR READING TAPE 4 F3B02870
RTTB1 SXD RTTB4,1 SAVE WORD COUNT OF FIRST RECORD, 2S COMP, F3B02880
LXA M2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02890
RTTB5 RTB 4 F3B02900
LXD RTTB4,1 REPLACE COUNT IN IR 1 OF FIRST RECORD F3B02910
RTTB2 CPY TRALEV,1 COPY SECOND RECORD ETC, IN PROPER PLACE F3B02920
TXI RTTB2,1,-1 SUBTRACT 1 FROM COUNT F3B02930
TRA RTTB6 EOF F3B02940
IOD EOR F3B02950
RTT IS TAPE CHECK ON F3B02960
RTTB4 TXL RTTB3,1 YES, COMPARE TO WORD COUNT OF FIRST F3B02970
TRA RTTB6 RECORD, NO. F3B02980
RTTB3 BST 4 F3B02990
TIX RTTB5,2,1 F3B03000
COR8 TSX 4,4 ERROR TRYING T0 READ TRALEV FROM TAPE 4 F3B03010
RTTB6 SXD TRALEV-1,1 SAVE TRALEV WORD COUNT F3B03020
OUT CLA TRSWC TIFGO WORD COUNT. F3BD3030
COM F3B03040
ADD M2CON+1 2S COMPLIMENT OF WORD COUNT F3B03050
PAX 0,1 IN IR 1 F3B03060
SXD CTRSWC,1 SAVE WORD COUNT F3B03070
LXD M2CON+16,1 PLACE 5 IN IR 1 F3B03080
RDS RDS 146 MOVE UP TAPE 2, 3 FILES TO TIFGO F3B03090
CPY CPY M2CW+4 FILE F3B03100
TRA CPY F3B03110
TRA TIX END OF RECORD F3B03120
TRA RDS F3B03130
TIX TIX RDS,1,1 F3B03140
REW REW 148 TAPE.4 REWOUND F3B03150
CLM SET ACC. TO ZERO F3B03160
SLW TIFFN REPLACE INDEX COUNTERS F3B03170
SLW CTRAST CELLS TO ZEROS F3B03180
SLW ETRAL F3B03190
SLW LEVN0 F3B03200
SLW CBOX F3B03210
SLW BBOX F3B03220
SLW L0X F3B03230
SLW ASN0 F3B03240
SLW EASC0 F3B03250
SLW ETRAST F3B03260
SLW NETRAL F3B03270
SLW TFRC0 F3B03280
LXA M2CON,1 INITIALIZE IR 1 TO ZERO F3B03290
REM M2 MAIN PROGRAM- TIFGO FMLA NO NOT IN F3B03300
REM TRALEV F3B03310
M21000 PXD 0,1 TEST T0 SEE IF AT END OF TIFGO F3B03320
SUB TIFGO-1 N0. OF TIFGO ENTRIES F3B03330
TZE M21900 END OF TIFGO F3B03340
CLA TIFGO,1 FIRST WD. OF TIFGO ENTRY, F3B03350
STD TIFFN SAVE INTERNAL FMLA. NO. F3B03360
TMI M21010 SIGNIFIES AN IF F3B03370
ANA M2CON+10 TEST DIFFERTENT TYPES F3B03380
SUB M2CON+4 F3B03390
TZE M21600 TIFGO ENTRY AN ASSIGN F3B03400
M21010 CLA ETRAL DETERMINE CURRENT TIFGO ENTRY F3B03410
SUB TRALEV-1 FOR CORRESPONDING TRALEV ENTRY F3B03420
TZE M21020 END OF TRALEV F3B03430
LXD ETRAL,2 IR 2, CURRENT TRALEV ENTRY F3B03440
CLA TRALEV,2 TRALEV, FMLA WD. F3B03450
ADD TIFFN TIFGO FMLA NO. F3803460
TZE M22000 T1FG0 ENTRY IN TRALEV F3B03470
M21020 CLA TIFGO,1 F3B03480
TMI M21800 TIFGO ENTRY AN IF(E) F3B03490
ANA M2CON+10 F3B03500
TZE M21030 TIFGO ENTRY A GO TO A F3B03510
CAS M2CON+3 F3B03520
TXI M21500,1,-1 TIFGO ENTRY AN IF OVERFLOW F3B03530
TXI M21400,1,-1 TIFGO ENTRY AN IF DIVCK F3B03540
CAS M2CON+2 F3B03550
TXI M21300,1,-1 TIFGO ENTRY AN IF SENSE F3B03560
TXI M21100,1,-1 TIFGO ENTRY A GO TO (A),1 F3B03570
TXI M21000,1,-2 TIFGO ENTRY A GO TO N(A) F3B03580
REM TIFGO ENTRY A GO TO A F3B03590
M21030 TXI M21030+1,1,-1 F3B03600
CLA TIFGO,1 2ND WORD BETA IN ADDRESS F3B03610
ALS 18 SHIFT TO DECREMENT F3B03620
STO M2CW+2 3RD WD OF INSTRUCTION AREA F3B03630
TSX CIT200,4 COMPILE INSTRUCTION F3B03640
HTR TIFFN ALPHA F3B03650
HTR M2ABC TRA F3B03660
HTR M2CW+2 BETA F3B03670
HTR M2CON 0 F3B03680
TXI M21000,1,-1 F3B03690
REM TIFGO ENTRY A GO TO (A),I F3B03700
M21100 CLA TIFGO,1 2ND WORD OF TIFGO ENTRY F3B03710
PAX 0,2 CTRAD U IN IR 2 F3B03720
SXD L0X,2 SAVE CTRAD U IN INDEX CELL DECR. F3B03730
ANA M2CON+9 SAVE CTRAD 1 IN ACCUMULATOR F3B03740
ADD M2CON+7 ADD ONE, CTRAD 1+I F3803750
SUB L0X CTRAD U F3B03760
STO M2CW+3 4TH WD OF INSTRUCTION F3B03770
M21110 TSX CIT200,4 COMP1LE F3B03780
HTR TIFFN ALPHA F3B03790
HTR M2CON ZERO F3B03800
HTR TIFFN ALPHA F3B03810
HTR M2CW+3 NO. OF TRAD ENTRUES CTRAD 1+1-CTRAD 2 F3B03820
TXI M21120,2,1 STEP UP COUNT TO NEXT TRAD ENTRY F3B03830
M21120 CLA TIFGO,1 2ND WORD OF TIFGO ENTRY F3B03840
STD M21140 STORE IN TXL INSTRUCTION F3B03850
M21125 CLA TRAD+250,2 BRING IN NEXT TRAD ENTRY F3B03860
ALS 18 PUT BETA1 IN DECREMENT F3B03870
STO M2CW+2 3RD WD. OF CIT F3B03880
TSX CIT200,4 COMPILE F3B03890
HTR M2CON ZERO F3B03900
HTR M2ABC TRA F3B03910
HTR M2CW+2 TRAD BI F3B03920
HTR M2CON ZERO F3B03930
TXI M21140,2,1 STEP UP TRAD ENTRY F3B03940
M21140 TXL M21125,2 TEST IF LAST TRAD ENTRY, NO F3B03950
TXI M21000,1,-1 BACK TO NEXT TIFGO. F3B03960
REM TIFGO ENTRY AN IF SENSE F3B03970
M21300 TSX CIT200,4 COMPILE F3B03980
HTR TIFFN ALPHA F3B03990
HTR M2CON ZERO F3B04000
HTR M2CON ZERO F3B04010
HTR M2CON ZERO F3B04020
CLA TIFGO,1 2ND. WORD OF TIFGO ENTRY F3B04030
ANA M2CON+10 SAVE ADDRESS, BETA 2 F3B04040
ALS 18 SHIFT TO DECREMENT F3B04050
LXA M2CON+2,2 LOAD 2 IN IR 2, 2 SETS OF 1NSTRUCTION F3B04060
M21310 STO M2CW+2 STORE BETA 2 IN 3RD WD. F3B04070
TSX CIT200,4 COMPILE F3B04080
HTR M2CON ZERO F3B04090
HTR M2ABC TRA F3B04100
HTR M2CW+2 BETA 2, BETA 1 F38D411D
HTR M2CON ZERO F3B04120
CLA TIFGO,1 2ND WORD F3B04130
ANA M2CON+9 SAVE DECREMENT F3B04140
TIX M21310,2,1 COMPILE SECOND TRA F3B04150
TXI M21000,1,-1 BACK T0 OBTAIN NEXT TIFGO F3B04160
REM TIFGO ENTRY AN IF DIV CK F3B04170
M21400 TSX CIT200,4 COMPILE F3B04180
HTR TIFFN ALPHA F3B04190
HTR M2CON ZERO F3B04200
HTR M2CON ZERO F3B04210
HTR M2CON ZERO F3B04220
CLA TIFGO,1 2ND WORD OF TIFGO ENTRY F3B04230
ANA M2CON+9 SAVE DECREMENT F3B04240
LXA M2CON+2,2 COUNT OF 2 IN IR 2 F3B04250
M21410 STO M2CW+2 COMPILE F3B04260
TSX CIT200,4 COMPILE F3B04270
HTR M2CON ZERO F3B04280
HTR M2ABC TRA F3B04290
HTR M2CW+2 BETA1, F3B04300
HTR M2CON ZERO F3B04310
CLA TIFGO,1 2ND WORD F3B04320
ANA M2CON+10 SAVE BETA 2 F3B04330
ALS 18 PLACE IN DECREMENT F3B04340
TIX M21410,2,1 COMPILE 2ND TRA INSTR, F3B04350
TXI M21000,1,-1 BACK TO GET NEXT TIFGO F3B04360
REM TIFGO ENTRY AN IF OVERFLOW F3B04370
M21500 CLA TIFGO,1 2ND WORD 0F TIFGO ENTRY F3B04380
ANA M2CON+9 SAVE DECREMENT F3B04390
STO M2CW+2 3RD WORD, BETA 1 F3B04400
TSX CIT200,4 COMPILE F3B04410
HTR TIFFN ALPHA F3B04420
HTR M2CON ZERO F3B04430
HTR M2CW+2 BETA 1 F3B04440
HTR M2CON ZERO F3B04450
CLA TIFGO,1 2ND WORD OF TIFGO ENTRY F3B04460
ANA M2CON+10 SAVE BETA 2 F3B04470
ALS 18 SHIFT TO DECREMENT F3B04480
STO M2CW+2 3RD WORD OF COMPILED INSTRUCTIONS F3B04490
M21515 TSX CIT200,4 COMPILE F3B04500
HTR M2CON ZERO F3B04510
HTR M2ABC TRA F3B04520
HTR M2CW+2 BETA 2 F3B04530
HTR M2CON ZERO F3B04540
TXI M21000,1,-1 BACK TO NEXT TIFGO ENTRY F3B04550
REM TIFGO ENTRY AN IF (E) F3B04560
M21800 ANA M2CON+10 SAVE ADDRESS OF 1ST WD, BETA 1 F3B04570
ALS 18 PLACE IN DECREMENT F3B04580
STO M2CW+2 3RD WORD OF CIT F3B04590
TSX CIT200,4 COMPILE F3B04600
HTR TIFFN ALPHA F3B04610
HTR M2CON ZERO F3B04620
HTR M2CON ZERO F3B04630
HTR M2CON ZERO F3B04640
TXI M21810,1,-1 STEP COUNT FOR 2ND TIFGO WORD F3B04650
M21810 CLA TIFGO,1 2ND WD. OF TIFGO ENTRY F3B04660
ANA M2CON+9 SAVE DECREMENT BETA 2 F3804670
STO M2CW+4 5TH WD. F3B04680
CLA TIFFN ALPHA F3B04690
ORA M2CON+5 10(8) INSTR. NO. WITHIN INTERNAL FMLANO. F3B04700
STO M2CW INTERNAL FMLA NO. F3B04710
TSX CIT200,4 COMPILE F3B04720
HTR M2CW F3B04730
HTR M2ABC+1 TZE F3B04740
HTR M2CW+4 BETA 2 C(M2CW+4) F3B04750
HTR M2CON ZERO F3B04760
CLA TIFGO,1 2ND WORD 0F TIFGO ENTRY F3B04770
ANA M2CON+10 SAVE ADDRESS, BETA 3 F3B04780
ALS 18 SHIFT TO DECREMENT F3B04790
STO M2CW+4 STORE BETA 3 F3B04800
TSX CIT200,4 COMPILE F3B04810
HTR M2CON ZERO F3804820
HTR M2ABC+2 TPL F3B04830
HTR M2CW+4 BETA 3 C(M2CW+4) F3B04840
HTR M2CON ZERO F3B04850
TRA M21515 TR. TO COMPILE TRA TO BETA 1 F3B04860
REM TIFGO ENTRY AN ASSIGN F3B04870
M21600 CLA ASN0 CURRENT ASSIGN NO. F3B04880
STO M2CW+3 4TH WORD OF CIT F3B04890
ADD M2CON+7 +000001000000 F3B04900
STO ASN0 REPLACE ASSIGN NO. F3B04910
TSX CIT200,4 COMPILE F3B04920
HTR TIFFN ALPHA F3B04930
HTR M2CON ZERO F3B04940
HTR M2CON+11 +030000000000 F3B04950
HTR M2CW+3 CURRENT ASSIGN NO. F3B04960
M21610 TXI M21610+1,1,-1 F3B04970
CLA TIFGO,1 2ND WD. OF TIFGO ENTRY F3B04980
ALS 18 PLACE BETA IN DECREMENT F3B04990
LXD EASC0,2 CURRENT ASC0 ENTRY PT. IN IR 2 F3B05000
STO ASC0,2 STORE BETA IN PROPER ASC0 LOC F3B05010
TXI M21620,2,-1 STEP COUNT FOR NEXT ASC0 ENTRY F3B05020
M21620 SXD EASC0,2 PT. AND STORE F3B03030
TXI M21000,1,-1 BACK FOR NEXT TIFGO F3B05040
REM M2 TERMINAL ROUTINE F3B05050
M21900 LXD BBOX,2 2S COMPL. OF NO OF WDS IN BLOCK F3B05060
LXD TFRC0,4 F3B05070
TXI M21900+3,4,3 STEP UP BLOCK COUNT BY 3 F3B05080
TXL M21920,2,0 TEST IF AT END OF BLOCK F3B05090
WRS 146 SELECT TAPE 2 F3B05100
TXI M21910-1,4,1 STEPUP IR 4 BY 1 F3B05110
LXD M2CON,1 ZEROS IN IR 1 F3B05120
M21910 CPY CIB2,1 WRITE REMAINING CITS F3B05130
TXI M21910+2,1,-1 DECREASE COUNT IN IR 1 F3B05140
TXI M21910+3,2,1 INCREASE COUNT IN IR 2 F3B05150
TXH M21910,2,1 TEST 1F AT END F3B05160
M21920 WEF 146 WRITE END OF FILE F3B05170
BST 146 F3B05180
TIX M21920+1,4,1 F3B05190
M21925 RDS 146 POSITION TAPE 2 AT BEGINNING F3B05200
CPY M2CW+4 OF TIFGO FILE F3B05210
TRA M21925+1 BACK TO READ LOOP F3B05220
TRA M22000-2 F3B05230
TRA M21925 F3B05240
RTB 1 F3B05250
TRA 4 F3B05260
REM M2-MAIN PROGRAM-TIFGO FMLA NO IN F3B05270
REM TRALEV F3B05280
M22000 TXI M22000+1,2,-1 UPDATE TRALEV ENTRY F3B05290
SXD ETRAL,2 POINT, SAVE IN PROPER CELL F3B05300
LXD M2CON,2 RESET IR 2 WITH ZERO F3B05310
TSX M22700,4 TRASTO FMLA NO SEARCH, M2 SUBROUTINE F3B05320
TRA M22006 CUR TIFGO FMLA NO NOT IN TRASTO F3B05330
TRA M22015 CUR TIFGO FMLA NO IN TRASTO F3B05340
M22006 LXD ETRAL,2 2S COMPL. 0F TRALEV ENTRY PT. COUNT F3B053S0
CLA TRALEV,2 TRALEV ENTRY F3B05360
TMI M22013 IS IT START OF NEXT ENTRY 2 F3B05370
PXD 0,2 TRALEV ENTRY PT CT. IN ACC F3B05380
SUB TRALEV-1 TRALEV WORD COUNT F3B05390
TZE M22013 IS IT END OF TRALEV TABLE, YES F3B05400
TXI M22006+1,2,-1 NO, UPDATE TRALEV TABLE F3B05410
M22013 SXD ETRAL,2 START OF NEXT ENTRY, SAVE COUNT F3B05420
TRA M21020 OF TRALEV, BACK TO COMPILE INSTR. F3B05430
M22015 SXD ETRAST,2 SAVE TRASTO ENTRY PT. F3B05440
CLA M2CON INITIALIZE ADDC0 F3B05450
STO ADDCO F3B05460
CLA TIFGO,1 OBTAIN TIFGO TYPE, TRANSFER TO ROUTINES F3B05470
TMI M22600 IF(E) F3B05480
ANA M2CON+10 F3B05490
TZE M22020 GO TO A F3B05500
CAS M2CON+3 F3B05510
TXI M22500,1,-1 IF OVERFLOW F3B05520
TXI M22400,1,-1 IF DIV CK F3B05530
CAS M2CON+2 F3B05540
TXI M22300,1,-1 IF SENSE F3B05550
TXI M22200,1,-1 GO TO (A),1 F3B05560
TXI M22100,1,-1 GO TO N (A) F3B05570
REM TIFGO ENTRY A GO TO A F3B05580
M22020 CLA TIFFN CURRENT TIFGO FMLA NO. F3B05590
PAT1 STO M2CW F3B05600
PAT2 CLA M2CON+5 +10,INCREMENT F3B05610
PAT3 STO CLOC FOR LOC WD OF 1ST INSTR OF TRASTO BLOCK F3B05620
M22022 TSX M22750,4 TRASTO LEV.NO.SEARCH F3B05630
TSX M22800,4 CUR.TIFGO LEV.NO.IN TRASTO F3B05640
LXD CTRAST,2 CUR.TIFGO NO.NOT IN TRASTO F3B05630
M22025 TXI M22025+1,2,-4 UP0ATE TRASTO ENTRY POINT F3B05660
TSX M22700,4 TRASTO FMLA NO SEARCH F3B05670
TRA M22035 TIFGO FMLA NO.NOT AGAIN FOUND F3B05680
CLA ADDCO TIFGO FMLA NO AGAIN FOUND F3B05600
TZE M22022 TIFGO ENTRY NOT YET FOUND IN TRASTO F3B05700
CLA M2CON TIFGO ENTRY ALREADY FOUND IN TRASTO F3B05710
STO M2CW ADJUST LOCATION WORD TO ZERO F3B05720
TRA M22022 BACK TO LEVEL NO. SEARCH F3B05730
M22035 CLA ADDCO NO. OF TIMES TIFGO ENTRY APPEARS IN TRASTO F3B05740
TZE M22040 TIFGO ENTRY NEVER FOUND IN TRASTO F3B0S730
CLA M2CON+13 TIFGO ENTRY FOUND IN TRASTO F3B05760
STO M2CW +170000000000 , NEW. LOC. WORD F3B05770
M22040 CLA TIFGO+1,1 TIFGO BETA F3B05780
ALS 18 PUT INTO DECREMENT F3B05790
STO M2CW+2 3RD WORD F3B05800
TSX CIT200,4 COMPILE FINAL INSTRUCTION F3B05810
HTR M2CW 17(8) F3B05820
HTR M2ABC TRA F3B05830
HTR M2CW+2 BETA F3B05840
HTR M2CON ZERO F3B05850
LXD ETRAL,2 UPDATE TRALEV ENTRY POINT F3B05860
M22050 TXI M22050+1,2,-1 F3B05870
SXD ETRAL,2 UPDATE TRALEV TO NEXT ENTRY F3B05880
TXI M21000,1,-2 BACK TO TEST AGAIN. F3B05890
REM TIFGO ENTRY A GO TO N (A) F3B05900
M22100 CLA TIFFN CURRENT TIFGO ALPHA F3B05910
CHS MAKE LOCATION WORD POSITIVE F3B05920
PAT5 STO M2CW F3B05930
PAT6 CLA M2CON+5 +10 F3B05940
PAT7 STO CLOC SAVE INCREMENT F3B05930
M22105 TSX M22750,4 TRASTO LEV NO SEARCH F3B05960
TSX M22800,4 CUR TIFGO LEV NO.IN TRASTO F3B05970
LXD CTRAST,2 CUR TIFGQ LEV NO NOT IN TRASTO F3B05980
M22110 TXI M22110+1,2,-4 UPDATE TRASTO ENTRY POINT F3B05990
TSX M22700,4 TRASTO FMLA NO SEARCH F3B06000
TRA M22120 TIFGO FMLA NO.NOT AGAIN FOUND F3B06010
CLA ADDCO TIFGO FMLA NO.AGAIN FOUND F3B06020
TZE M22105 TIFGO ENTRY NOT YET FOUND IN TRASTO F3B06030
CLA M2CON T1FG0 ENTRY ALREADY FOUND IN TRASTO F3B06040
STO M2CW ADJUST LOCATION WROD TO ZERO F3B06030
TRA M22105 BACK TO LEVEL NO. SEARCH F3806060
M22120 LXD ETRAL,2 UPDATE TRALEV ENTRY POINT F3B06070
CLA TRALEV,2 BEGINNING OF TRALEV BLOCK F3B06080
TMI M22130 F3B06090
PXD 0,2 TEST IF END OF TRALEV F3B06100
SUB TRALEV-1 F3B06110
TZE M22130 F3B06120
TXI M22120+1,2,-1 SPACE OVER TO NEXT ENTRY F3806130
M22130 SXD ETRAL,2 F3B06140
TXI M21000,1,-1 F3B061S0
REM TIFGO ENTRY A GO TO (A),1 F3B06160
M22200 CLA TIFGO,1 COMPUTE N+1 (CTRAD1- CTRAD2+1) F3806170
PAX 0,2 STORE IN M2CW+3 F3B06180
SXD L0X,2 STORE COMPILING FIRST F3B06100
ANA M2CON+9 INSTRUCTION F3806200
ADD M2CON+7 F3B06210
SUB L0X F3806220
STO M2CW+3 F3806230
COM COMPUTE 2S COMP OF F3B06240
ADD M2CON+8 N-1 IN ORDER TO F3806230
STD M22220 OBTAIN TRALEV ENTRY F3B06260
LXD ETRAL,2 POINT FOR LAST ADDRESS F3B06270
SXD M22240+1,2 F3B06280
SXD M22275+1,2 F3806290
M22220 TXI M22220+1,2 F3806300
SXD NETRAL,2 TRALEV. ENTRY PT. FOR LAST ADDRESS F3B06310
SXD ETRAL,2 CURRENT TRALEV ENTRY PT. F3806320
TSX CIT200,4 COMPILE FIRST INSTRUCTION F3B06330
HTR TIFFN ALPHA F3806340
HTR M2CON ZERO F3B06350
HTR TIFFN ALPHA F3B06360
HTR M2CW+3 NO. OF ADDRESS IN TRAD F3B06370
M22225 TSX M22750,4 TRASTO LEVEL NO SEARCH F3B06380
TSX M23000,4 COR TIFGO LEV NO IN TRASTO F3B06390
LXD CTRAST,2 CUR TIFGO LEV NO NOT IN TRASTO F3806400
M22230 TXI M22230+1,2,-4 UPDATE TRASTD ENTRY POINT F3B06410
TSX M22700,4 TRASTO FMLA NO.SEARCH F3B06420
TSX M23050,4 TIFGO FMLA NO.NOT AGAIN FOUND F3B06430
TRA M22225 TIFGO FMLA NO AGAIN FOUND F3B06440
M22233 CLA ETRAST RESET CTRAST CELL FOR F3B06430
STO CTRAST TRASTO LEV NO SEARCH F3B06460
LXD ETRAL,2 UPDATE TRALEV ENTRY POINT F3B06470
TXI M22240-1,2,1 F3B06480
SXD ETRAL,2 F3B06490
M22240 TXL M22240+2,2,0 F3B06500
TXL M22225,2 F3B06510
CLA ADDCO F3B06520
TZE M22275+2 TIFGO ENTRY NEVER FOUND IN TRASTO F3B06530
LXD NETRAL,2 RESET ETRAL FOR SECOND F3B06540
SXD ETRAL,2 PASS THROUGH TRASTO F3B06550
CLA M2CON+5 1NITIALIZE LOCATION F3B06560
STO CLOC COUNTER F3B06570
STO M2CW SET LOCATION WORD FOR FIRST F3B06580
M22245 CLA TIFFN TRASTO INSERT F3B06590
ORS M2CW F3B06600
CLA M2CON INITIALIZE ADDC0 FOR F3B06610
STO ADDCO TRASTO LEV.NO.SEARCH AND TRANSFER TO PERFORM F3B06620
M22250 TSX M22750,4 TRASTO LEV.NO.SEARCH F3B06630
TSX M22800,4 CUR TIFGO LEV NO FOUND F3B06640
LXD CTRAST,2 CUR TIFGO NO.NOT FOUND F3B06650
M22255 TXI M22255+1,2,-4 UPDATE TRASTO ENTRY POINT F3B06660
TSX M22700,4 TRASTO FMLA NO.SEARCH F3B06670
TRA M22263 TIFGO FMLA NO.NOT AGAIN FOUND F3B06680
CLA ADDCO TIFGO FMLA NO.AGAIN FOUND F3B06690
TZE M22250 CUR TIFGO ADD NOT YET FOUND IN TRASTO F3B06700
CLA M2CON CURT1FG0 ADD ALREADY FOUND IN TRASTO F3B06710
STO M2CW ADJUST LOCATION WORD F3B06720
TRA M22250 F3B06730
M22263 CLA ADDCO F3B06740
TZE M22270 CUR. TIFGO NEVER FQUND IN TRASTO F3B06750
TSX M23075,4 CUR. TIFGO ADD. FOUND IN.TRASTO F3B06760
CLA CLOC UPDATE LOCATION WORD FOR NEXT ENTRY F3B06770
ADD M2CON+5 BLOCK OF TRASTO UNSERTS F3B06780
STO CLOC F3B06790
STO M2CW F3B06800
M22270 CLA ETRAST RESET CTRAST FOR TRASTO F3B06810
STO CTRAST LEV. Ni. SEARCH F3B06820
LXD ETRAL,2 UPDATE TRALEV ENTRT PiINT F3B06830
TXI M22275-1,2,1 F3B06840
SXD ETRAL,2 F3B06850
M22275 TXL M22275+2,2,0 F3B06860
TXL M22245,2 F3B06870
LXD NETRAL,2 UPDATE TRALEV ENTRY POINT F3806880
TXI M22280,2,-1 FOR NEXT TIFGO ENTRY F3B06890
M22280 SXD ETRAL,2 F3B06900
TXI M21000,1,-1 BACK TO NEXT TIFGO F3B06910
REM TIFGO ENTRY AN IF SENSE F3B06920
M22300 LXD ETRAL,2 UPDATE TRALEV F3B06930
SXD M22240+1,2 F3B06940
SXD M22275+1,2 F3B06950
M22303 TXI M22303+1,2,-1 F3B06960
SXD NETRAL,2 F3B06970
SXD ETRAL,2 F3B06980
TSX CIT200,4 COMPILE INFO. INSTRUCTION F3B06990
HTR TIFFN ALPHA F3B07000
HTR M2CON ZERO F3B07010
HTR M2CON ZERO F3B07020
HTR M2CON ZERO F3B07030
TRA M22225 TRASTO LEVEL NO. SEARCH F3B07040
REM TIFGO ENTRY AN IF DIV CK F3B07050
M22400 LXD ETRAL,2 UPDATE TRALEV F3B07060
TXI M22400+2,2,-2 F3B07070
SXD M22425+1,2 F3B07080
SXD M22465+1,2 F3B07090
TSX CIT200,4 COMPILE INFO. INSTRUCTION F3B07100
HTR TIFFN ALPHA F3B07110
HTR M2CON ZERO F3B07120
HTR M2CON ZERO F3B07130
HTR M2CON ZERO F3B07140
M22410 TSX M22750,4 TRASTO LEVEL NO SEARCH F3B07150
TSX M23000,4 CUR. TIFGO LEVEL NO. IN TRASTO F3B07160
LXD CTRAST,2 CUR. TIFGO LEVEL NO. NOT IN TRASTO F3B07170
M22415 TXI M22415+1,2,-4 UPDATE TRASTO ENTRY POINT F3B07180
TSX M22700,4 TRASTO FMLA. NO. SEARCH F3B07190
TSX M23050,4 TIFGO FMLA. NO NOT AGAIN FOUND F3B07200
TRA M22410 TIFGO FMLA. NO. AGAIN FOUND F3B07210
M22420 CLA ETRAST RESET CTRAST CELL FOR F3B07220
STO CTRAST TRASTO LEVEL NO. SEARCH F3B07230
LXD ETRAL,2 UPDATE TRALEV ENTRY POINT F3B07240
TXI M22425,2,-1 F3B07250
M22425 SXD ETRAL,2 F3B07260
TXH M22410,2 F3B07270
CLA ADDCO F3B07280
TZE M22465+2 TIFGO ENTRY NEVER FOUND IN TRASTO F3B07290
TXI M22430,2,2 RESET ETRAL FOR SECOND F3B07300
M22430 SXD ETRAL,2 PASS THROUGH TREASTO F3B07310
CLA M2CON+5 INITIALIZE LOCATION F3B07320
STO CLOC COUNTER F3B07330
STO M2CW SET LOCATION WORD FOR F3B07340
M22435 CLA TIFFN FIRST TRASTO INSERT F3B07330
ORS M2CW F3B07360
CLA M2CON INITIALIZE ADDC0 FOR F3B07370
STO ADDCO TRASTO LEV NO SEARCH F3B07380
M22440 TSX M22750,4 TRASTO LEV NO SEARCH F3B07390
TSX M22800,4 CUR TIFGO LEV NO FOUND IN TRASTO F3B07400
LXD CTRAST,2 CUR TIFGO LEV NO NOT FOUND IN TRASTO F3B07410
M22445 TXI M22445+1,2,-4 UPDATE TRASTO ENTRY POINT F3807420
TSX M22700,4 TRASTO FMLA NO SEARCH F3B07430
TRA M22455 TIFGO FMLA NO NOT AGAIN FOUND F3B07440
CLA ADDCO TIFGO FMLA NO AGAIN FOUND F3B07450
TZE M22440 CUR TIFGO ADD NOT YET FOUND IN TRASTOF3807460
CLA M2CON CUR TIFGO ENTRY ALREADY FOUND IN TRASF3B07470
STO M2CW ADJUST LOCATION WORD F3B07480
TRA M22440 TRASTO LEV. NO, SEARCH F3B07490
M22455 CLA ADDCO F3B07500
TZE M22460 CUR TIFGO ADD NEVER FOUND IN TRASTO F3807510
TSX M23075,4 CUR TIFG0 ADD FOUND IN TRASTO F3B07520
CLA CLOC UPDATE LOCATION WORD FOR F3B07530
ADD M2CON+5 NEXT BLOCK OF TRASTO INSERTS F3B07540
STO CLOC F3B07550
STO M2CW F3B07560
M22460 CLA ETRAST RESET CTRAST FOR TRASTO LEV F3B07570
STO CTRAST NO SEARCH F3B07580
LXD ETRAL,2 UPDATE TRALEV ENTRY F3B07590
TXI M22465,2,-1 POINT F3B07600
M22465 SXD ETRAL,2 F3B07610
TXH M22435,2 TEST END OF TRALEV ENTRIES . F3B07620
TXI M21000,1,-1 NEXT TIFGO. F3B07630
REM TIFGO ENTRY AN IF OVERFLOW F3B07640
M22500 LXD ETRAL,2 INITIALIZE AND RECORD END OF F3B07650
TXI M22500+2,2,-2 TRALEV ENTRY F3B07660
SXD M22425+1,2 F3B07670
SXD M22465+1,2 F3B07680
M22505 TSX M22750,4 TRASTO LEV NO SEARCH F3B07690
COR12 TSX M23025,4 F3B07700
LXD CTRAST,2 CUR TIFGO LEV NO NOT IN TRASTO F3B07710
M22510 TXI M22510+1,2,-4 UPDATE TRASTO ENTRY POINT F3B07720
TSX M22700,4 TRASTO FMLA NO SEARCH F3B07730
TSX M23060,4 TRASTO FMLA NO NOT AGAIN FOUND F3B07740
TRA M22505 TRASTO FMLA NO AGAIN FOUND F3B07750
TRA M22420 CONTINUE AS IN DVCH. F3B07760
REM TIFGO ENTRY AN IF (E) F3B07770
M22600 LXD ETRAL,2 PERMUTE WDS. OF THIS TRALEV ENTRY F3B07780
CLA TRALEV,2 SO THAT F3B07790
STO SAVE A1, A2, A3, BECOMES A2, A3, A1 F3B07800
CLA TRALEV+1,2 A2 FIRST F3B07810
STO TRALEV,2 F3B07820
CLA TRALEV+2,2 A3 SECOND F3B07830
STO TRALEV+1,2 F3B07840
CLA SAVE A1 THIRD F3B07850
STO TRALEV+2,2 F3B07860
M22610 TXI M22610+1,2,-3 F3B07870
SXD M22465+1,2 F3B07880
TSX CIT200,4 COMPILE INFO INSTRUCTION F3B07890
HTR TIFFN ALPHA F3B07900
HTR M2CON ZERO F3B07910
HTR M2CON ZERO F3B07920
HTR M2CON ZERO F3B07930
M22620 TSX M22750,4 TRASTQ LEV NO SEARCH F3B07940
TSX M23035,4 CUR TIFGO LEV NO FOUND IN TRASTO F3B07930
LXD CTRAST,2 CUR TIFGO LEV NO NOT FOUND IN TRASTO F3B07960
M22625 TXI M22625+1,2,-4 UPDATE TRASTO ENTRY POINT F3B07970
TSX M22700,4 TRASTO FMLA NO SEARCH F3B07980
TSX M23065,4 TRASTO FMLA NO NOT AGAIN FOUND F3B07990
TRA M22620 TRASTO FMLA NO AGAIN FOUND F3B08000
M22630 CLA ETRAST RESET CTRAST CELL FOR F3B08010
STO CTRAST TRASTO LEV NO SEARCH F3B08020
LXD ETRAL,2 UPDATE TRALEV F3B08030
TXI M22635,2,-1 ENTRY POINT F3B08040
M22635 SXD ETRAL,2 F3B08050
M22640 TSX M22750,4 TRASTO LEVEL NO SEARCH F3B08060
TSX M23040,4 CUR TIFGO LEV NO FOUND IN TRASTO F3B08070
LXD CTRAST,4 CUR TIFGO LEV N0 NOT FOUND IN TRASTO F3B08080
TXI M22645,2,-4 UPDATE TRASTO ENTRY POINT F3B08090
M22645 TSX M22700,4 TRASTO FMLA NO SEARCH F3B08100
TSX M23070,4 TIFGO FMLA NO NOT AGAIN FOUND F3B08110
TRA M22640 TIFGO FMLA NO AGAIN FOUND F3B08120
M22650 CLA ETRAST RESET CTRAST CELL FOR F3B08130
STO CTRAST TRASTO LEV NO SEARCH F3B08140
LXD ETRAL,2 F3B08150
TXI M22655,2,-1 UPDATE TRALEV F3B08160
M22655 SXD ETRAL,2 ENTRY POINT F3B08170
CLA ADDCO SET ADDC0 FOR F3B08180
ADD M2CON+5 TRA ADDRESS F3B08190
STO ADDCO F3B08200
M22660 TSX M22750,4 TRASTQ LEV NO SEARCH F3B08210
TSX M23000,4 CUR TIFGO LEV NO FOUND IN TRASTO F3B08220
LXD CTRAST,2 CUR TIFGO LEV NO NOT FOUND IN TRASTO F3808230
TXI M22663,2,-4 UPDATE TRASTO ENTRY POINT F3B08240
M22663 TSX M22700,4 TRASTO FMLA NO SEARCH F3B08250
TSX M23050,4 TIFGO FMLA NO NOT AGAIN FOUND F3B08260
TRA M22660 TIFO FMLA NO AGAIN FOUND F3B08270
LXD ETRAL,2 F3B08280
TXI M22670,2,-1 UPDATE TRALEV ENTRY POINT F3B08290
M22670 SXD ETRAL,2 FOR NEXT TIFGO ENTRY F3B08300
CLA ADDCO F3B08310
SUB M2CON+5 F3B08320
COR13 TZE M21030-1 F3B08330
TXI M22675,2,3 RESET ETRAL FOR F3B08340
M22675 SXD ETRAL,2 SECOND PASS THROUGH TRASTO F3B08350
CLA ETRAST RESET CTRAST FOR SECOND F3B08360
STO CTRAST PASS THROUGH TRASTO F3B08370
CLA M2CON+6 INITIALIZE LOCATION F3B08380
TXI M22435-2,1,-1 F3B08390
REM M2 CLOSED SUBROUTINES F3B08400
REM TRASTO FMLA NO SEARCH F3B08410
M22700 PXD 0,2 PLACE COUNT 0F TRALEV ENTRY IN AC. F3B08420
SUB TRASTO-1 TRASTO WORD COUNT F3B08430
TZE 1,4 EQUAL. TR BACK F3B08440
CLA TRASTO,2 TRASTO ENTRY F3B08450
ANA M2CON+10 SAVE DECREMENT F3B08460
ALS 18 SHIFT B TO DECREMENT PORTION F3B08470
CAS TIFFN CURRENT TIFGO FMLA. NO. F3B08480
TRA M22710 TRASTO GREATER THAN TIFGO F3B08490
TRA M22715 TRASTO EQUAL TO TIFGO FMLA NO F3B08500
TXI M22700,2,-4 TRAS TO LESS THAN TIFGO, BACK TO BRING NEXT F3B08510
M22710 CLA TRASTO,2 TRASTO ENTRY F3B08520
ANA M2CON+9 MASK OUT ADDRESS F3B08530
CAS TIFFN INTERNAL FORMULA NO. ALPHA F3B08540
TXI M22700,2,-4 TRASTO F3B08550
TXI M22700,2,-4 F3B08560
M22715 SXD CTRAST,2 F3B08570
TRA 2,4 TRASTO NOT FOUND F3B08580
REM TRASTO LEVEL NO SEARCH F3B08590
M22750 SXD CBOX,4 TR COUNT STORED FOR LINKAGE F3B08600
LXD ETRAL,2 CURRENT TRALEV ENTRY PT. IN IR 2 F3B08610
CLA TRALEV,2 LOAD TRALEV WORD F3B08620
STA LEVN0 CURRENT LEVEL NO. F3B08630
LXD CTRAST,2 CURRENT TRASTO ENTRY PT. F3B08640
CLA TWOL TWOS COMPLIMENT OF NO OF WDS. IN DEC. FIELD F3808630
TZE M22770 TYPE 2 F3B08660
CLA CTRAST CURRENT TRASTO ENTRY PT. F3B08670
TNZ M22760 F3B08680
CLA ONEL TYPE 1 F3B08690
TZE M22787 F3B08700
TRA M22770 F3B08710
M22760 CLA ONEL TEST TYPE 1 F3B08720
TNZ M22767 F3808730
M22762 ADD TWOL NO. OF TYPE 2 F3B08740
PDX 0,4 F3B08750
PXD 0,4 F3B08760
CAS CTRAST COMPARE F3B08770
TRA M22770 F3B08780
TRA M22770 F3B08790
TRA M22787 F3B08800
M22767 CAS CTRAST F3B08810
TRA M22762 F3B08820
TRA M22762 F3B08830
M22770 CLA TRASTO+1,2 LEVEL NOS. F3B08840
ANA M2CON+10 SAVE ADDRESS, TEST UPPER LEVEL F3B08850
CAS LEVN0 COMPARE TO CURRENT TIFGO LEVEL NO, F3808860
TRA M22777 LESS THAN F3B08870
TRA M22795 F3B08880
TRA M22795 F3B08890
M22777 CLA TRASTO+1,2 LEVEL NOS. F3B08900
ANA M2CON+9 SAVE DECREMENT F3B08910
ARS 18 - PLACE IN ADDRESS F3B08920
CAS LEVN0 CURRENT TIFGO LEVEL NO. F3B08930
TRA M22795 EXIT, NOT FOUND F3B08940
TRA M22783 EQUAL TO OR GREATER THAN F3B08930
M22783 CLA ADDCO NO. OF TIMES TIFGO APPEARS F3808960
ADD M2CON+5 ADD 10(8) INCREMENT F3B08970
STO ADDCO RESTORE F3B08980
LXD CBOX,4 RESTORE LINKAGE, LEVEL NO. F3B08990
TRA 1,4 FOUND. F3B09000
M22787 CLA TRASTO+2,2 TAGS, WORD 3, TYPE 2 LEVEL NO. F3B09010
ANA M2CON+9 SAVE DECREMENT F3B09020
ARS 18 SHIFT TO ADDRESS F3B09030
CAS LEVN0 COMPARE LEVEL NO. F3B09040
TRA M22783 F3B09050
TRA M22795 F3809060
M22795 LXD CBOX,4 F3B09070
TRA 2,4 NOT FOUND, BACK TO MAIN ROUTINE F3B09080
REM INDEXING INSTRUCTION COMPILER F3B09090
M22800 SXD CBOX,4 SAVE COUNT IN 4 FOR LINKAGE F3B09100
LXD M2CON,2 PLACE ZERO IN IR 2 F3B09110
CLA CTRAST CURRENT TRASTO ENTRY POINT F3B09120
TNZ M22810 F3B09130
M22805 CLA ONEL,2 LENGTH OF TYPE 1 ENTRY ETC. F3B09140
TNZ M22819,2 ENTRIES EXIST F3B09150
TXI M22805,2,-1 GET NEXT TYPE ENTRY F3B09160
M22810 CLA M2CON ZERO IN ACC. F3B09170
ADD ONEL,2 LENGTH OF TYPE 1 ENTRY ETC F3B09180
PDX 0,4 PLACE THIS RESULT INIR 4 F3B09190
PXD 0,4 PUT BACK IN ACC., CLEARING ADDRESS F3B09200
TZE M22813 F3B09210
SUB CTRAST CURRENT TRASTO ENTRY POINT F3B09220
TMI M22819,2 PROPER TYPE F3B09230
ADD CTRAST F3B09240
M22813 TXI M22810+1,2,-1 SORT ACCORDING TO TYPE F3B09250
M22819 TRA M22825 TYPE I INSERTS F3B09260
TRA M22850 TYPE II INSERTS F3B09270
TRA M22875 TYPE III INSERTS F3B09280
TRA M22900 TYPE IV INSERTS F3B09290
TRA M22925 TYPE V INSERTS F3B09300
TRA M22950 TYPE VI INSERTS F3B09310
M22825 LXD CTRAST,2 TYPE I INSERTS F3B09320
CLA TRASTO+2,2 3RD WRD 0F TRASTO ENTRY F3B09330
LRS 18 ADDRESS PORTION IN MQ F3B09340
STO M2CW+3 DECREMENT, T1, IN 4TH WORD F3B09350
CAL M2CON+12 +140000000000 F3B09360
SLW M2CW+2 SYMBOLIC ADDRESS F3B09370
LLS 18 PUT BACK T2 IN ACC F3B09380
ORS M2CW+2 PUT 1N ADDRESS PART OF 3RD WD F3B09390
TSX CIT200,4 COMPILE INSTRUCTIONS F3B09400
HTR M2CW INT. FMLA NO. IF ANY F3B09410
HTR M2ABC+3 SXD F3B09420
HTR M2CW+2 +140000000000, T2 F3B09430
HTR M2CW+3 T1 F3B09440
STO M2CW+3 PUT T2 IN 4TH WRD. F3B09450
TSX CIT200,4 COMPILE F3B09460
HTR M2CON ZERO F3B09470
HTR M2ABC+4 LXD F3B09480
HTR M2CW+2 14(8),T2 F3B09490
HTR M2CW+3 T2 F3B09500
M22848 LXD CBOX,4 RESTORE LINKAGE F3B09510
TRA 1,4 BACK TO MAIN ROUTINE F3B09520
M22850 LXD CTRAST,2 TYPE II INSERTS F3B09530
CAL TRASTO+1,2 2ND WORD OF TRASTO ENTRY F3B09540
SLW M2CW+2 SAVE IN 3RD WORD FOR COMPILER F3B09550
CAL TRASTO+2,2 3RD WD OF ENTRY F3B09560
ANA M2CON+10 SAVE ADDRESS F3B09570
SLW M2CW+3 STORE IN 4TH WD F3B09580
TSX CIT200,4 COMPILER F3B09590
HTR M2CW INTERNAL FMLA NO., IF ANY F3B09600
HTR M2ABC+5 PXD F3B09610
HTR M2CON ZERO F3B09620
HTR M2CW+3 ZERO,T1 F3B09630
TSX CIT200,4 COMPILER F3B09640
HTR M2CON ZERO F3B09650
HTR M2ABC+6 STO F3B09660
HTR M2CW+2 S(BCD) F3B09670
HTR M2CON ZERO F3B09680
TRA M22848 TO RESTORE LINKAGE F3B09690
M22875 LXD CTRAST,2 TYPE III INSERTS F3B09700
CLA TRASTO+2,2 3RD WRD OF TRASTO ENTRY F3B09710
LRS 18 SHIFT N T0 MG F3B09720
ADD M2CON+7 1 T0 ADDRESS FOR SIGN F3B09730
STO M2CW+3 4TH WORD F3B09740
CLM CLEAR ACC F3B09750
LLS 18 PUT N BACK IN ACC. F3B09760
COM COMPLIMENT F3B09770
ADD M2CON+1 ADD ONE, 2 S COMPLIMENT F3B09780
ANA M2CON+10 SAVE ADDRESS F3B09790
STO M2CW+1 2ND WORD OF COMPILER F3B09800
CAL M2ABC+7 TXI F3B09810
ORS M2CW+1 IN DECREMENT F3B09820
TSX CIT200,4 COMPILER F3B09830
HTR M2CW F3B09840
HTR M2CW+1 TXI, N(COMP) F3B09850
HTR M2CON+13 +170000000000 F3B09860
HTR M2CW+3 1, F3B09870
TRA M22848 RESTORE LINKAGE F3B09880
M22900 LXD CTRAST,2 TYPE IV INSERT F3B09890
CLA TRASTO+2,2 3RD WRD 0F TRASTO ENTRY F3B09900
CHS CHANGE SIGN TO PLUS F3B09910
LRS 18 T1, T0 ADDRESS. T2 TO M2 F3B09920
COR14 NOP F3B09930
PAT9 STO M2CW+3 F3B09940
PAT10 CLA CLOC INCREMENT FOR LOC WD OF 1ST ENTRY F3B09950
PAT11 ADD M2CON+5 ADD 10 F3B09960
PAT12 STO CLOC RESTORE WITH NEW INCREMENT F3B09970
PAT13 STO M2CW+2 ALS 0 PLACE IN 3RD WD OF COMPILER F3B09980
PAT14 CLA TRSWC WORD COUNT F3B09990
PAT15 ORS M2CW+2 SAVE IN DECREMENT OF 3RD WD F3B10000
RET3 TSX CIT200,4 COMPILER F3B10010
HTR M2CW F3B10020
HTR M2ABC+3 SXD F3B10030
COR16 HTR M2CW+2 WORD COUNT, INCREMENTED LOC WD F3B10040
HTR M2CW+3 T1 F3B10050
CLA TRASTO+2,2 3RD WORD OF TRASTO ENTRY F3B10060
ANA M2CON+10 SAVE ADDRESS F3B10070
ADD M2CON+7 1 TO ADDRESS FOR C F3B10080
STO M2CW+3 4TH WORD F3B10090
TSX CIT200,4 COMPILER F3B10100
COR17 HTR M2CW+2 LOC WORD F3B10110
HTR M2ABC+8 TIX F3B10120
HTR M2CON+13 17(8) F3B10130
HTR M2CW+3 1T2 F3B10140
TRA M22848 BACK TO RESTORE LINKAGE F3B10150
M22925 LXD CTRAST,2 TYPE V INSERTS F3B10160
CLA TRASTO+2,2 3RD WORD F3B10170
CHS CHANGE SIGN TO PLUS F3B10180
LRS 18 SHIFT T TO ADDRESS, N TO MQ F3B10190
ADD M2CON+7 1 FOR SIGN F3B10200
STO M2CW+3 4TH WRD. FOR COMPILER F3B10210
CAL M2ABC+7 TXI F3B10220
ARS 18 SHIFT TO ADDRESS PORTION F3B10230
LLS 18 CONTENTS OF MQ F3B10240
SLW M2CW+1 1 TXI, N F3B10250
TSX CIT200,4 COMPILER F3B10260
HTR M2CW F3B10270
HTR M2CW+1 TXI, N F3B10280
HTR M2CON+13 17(8) F3B10290
HTR M2CW+3 1,T F3B10300
TRA M22848 RESTORE LINKAGE F3B10310
M22950 LXD CTRAST,2 TYPE VI INSERTS F3B10320
CLA TRASTO+2,2 3RD WORD 0F TRASTO ENTRY F3B10330
CHS F3B10340
ORA M2CON+14 +120000000000 F3B10350
STO M2CW+2 3RD WD OF COMPILER F3B10360
CLA M2CON+3 +000000000004 F3B10370
COR18 ORA COR28 +000004 F3B10380
STO M2CW+4 5TH WORD F3B10390
TSX CIT200,4 COMPILER F3B10400
HTR M2CW F3B10410
HTR M2ABC+3 SXD F3B10420
HTR M2CON+15 60000000000 F3B10430
HTR M2CW+4 4,4 F3B10440
TSX CIT200,4 COMPILER F3B10450
HTR M2CON ZERO F3B10460
HTR M2ABC+9 TSX F3B10470
HTR M2CW+2 12(8),T F3B10480
HTR M2CON+3 ZERO,4 F3B10490
CLS TRASTO+2,2 3RD WORD F3B10500
STO M2CW+3 4TH WD OF COMPILER F3B10510
ORA M2CON+12 14 IN DECREMENT F3B10520
STO M2CW+2 3RD WD, SAVE T F3B10530
TSX CIT200,4 COMPILER F3B10540
HTR M2CON ZERO F3B10550
HTR M2ABC+4 LXP F3B10560
HTR M2CW+2 14(8),T F3B10570
HTR M2CW+3 ZERO,T F3B10580
TSX CIT200,4 COMPILER F3B10590
HTR M2CON ZERO F3B10600
HTR M2ABC+10 LXD F3B10610
HTR M2CON+15 6(8) F3B10620
HTR M2CW+4 5 4 F3B10630
TRA M22848 BACK TO RESTORE LINKAGE F3B10640
REM INITIAL TRANSFER COMPILERS FOR TIFGO ENTRIES F3B10650
REM WHEN A TRASTO ENTRY IS ASSOCIATED WITH F3B10660
REM THE TRANSFER ADDRESS F3B10670
REM TRANSFER WITH LOCATION 0 F3B10680
M23000 SXD ADD6+3,4 SAVE CONTENTS 0F IR4 FOR LINKAGE F3B10690
CLA TIFFN CURRENT TIF60 FMLA. NO. IN DECR. F3B10700
STO M2CW+2 3RD WORD F3B10710
CLA ADDCO 8 TIMES N0, 0F TIMES ADDRESS )S IN TRASTO F3B10720
ORS M2CW+2 PLACE IN ADDRESS F3B10730
TSX CIT200,4 COMPILER F3B10740
HTR M2CON ZERO F3B10750
HTR M2ABC TRA F3B10760
HTR M2CW+2 TIFEN, ADDC0 F3B10770
HTR M2CON ZERO F3B10780
COR20 TRA PAT17 F3B10790
TRA 6,4 BACK TO MAIN ROUTINE F3B10800
REM INFO INSTRUCTION FOR IF OVERFLOW F3B10810
M23025 SXD ADD6+3,4 SAVE LINKAGE F3B10820
CLA TIFFN TIFGO FMLA NO. F3B10830
STO M2CW+2 3RD WD. F3B10840
CLA ADDCO COUNT F3B10850
ORS M2CW+2 ADDRESS F3B10860
TSX CIT200,4 COMPILER F3B10870
HTR TIFFN TIFGO FMLA NO. F3B10880
HTR M2CON ZERO F3B10890
HTR M2CW+2 TIFFN, ADDC0 F3B10900
HTR M2CON F3B10910
COR22 TRA PAT17 F3B10920
TRA 6,4 F3B10930
REM TRANSFER ON ZERO WITH LOCATION FMLA NO + 8 F3B10940
M23035 SXD ADD6+3,4 F3B10950
CLA TIFFN F3B10960
STO M2CW INT.FMLA NO F3B10970
STO M2CW+2 3RD WD F3B10980
CLA ADDCO COUNT F3B10990
ORS M2CW ADDRESS OF FIRST WD. F3B1100D
ADD M2CON+5 ADD 10 F3B11010
ORS M2CW+2 ADD 10 TO COUNT F3B11020
TSX CIT200,4 COMPILER F3B11030
HTR M2CW INT FMLAN0, ADDC0 F3B11040
HTR M2ABC+1 TZE F3B11050
HTR M2CW+2 INT. FMLA NO., ADDC0+10 F3B11060
HTR M2CON ZERO F3B11070
COR24 TRA PAT17 F3B11080
TRA 6,4 F3B11090
REM TRANSFER ON PLUS WITH LOCATION 0 F3B11100
M23040 SXD ADD6+3,4 SAVE LINKAGE F3B11110
CLA TIFFN TIFGO INT. FMLA NO. F3B11120
STO M2CW+2 3RD WD F3B11130
CLA ADDCO F3B11140
ADD M2CON+5 10 TO ADDC0 F3B11150
ORS M2CW+2 IN ADDRESS OF 3RD WD F3B11160
TSX CIT200,4 COMPILER F3B11170
HTR M2CON ZERO F3B11180
HTR M2ABC+2 TPL F3B11190
HTR M2CW+2 TIFFN, ADDC0+10 F3B11200
HTR M2CON ZERO F3B11210
COR26 TRA PAT17 F3B11220
TRA 6,4 F3B11230
REM INITIAL TRANSFER COMPILERS FOR TIFGO F3B11240
REM ENTRIES WHEN THERE IS NO TRASTO ENTRY F3B11250
REM FOR THE TRANSFER ADDRESS F3B11260
REM TRANSFER WITH LOCATION 0 F3B11270
M23050 SXD CBOX,4 SAVE LINKAGE F3B11280
LXD ETRAL,2 IN IRZ CURRENT TRALEV ENTRY PT, F3B11290
CLA TRALEV,2 CURRENT TRALEV ENTRY F3B11300
ANA M2CON+9 SAVE DECREMENT, OF TRAVEV ENTRY F3B11310
STO M2CW+2 SRD WORD F3B11320
TSX CIT200,4 COMPILER F3B11330
HTR M2CON ZERO F3B11340
HTR M2ABC TRA F3B11350
HTR M2CW+2 AI F3B11360
HTR M2CON ZERO F3B11370
LXD CBOX,4 RESTORE LINKAGE F3B11380
TRA 2,4 F3B11390
REM INFO INSTRUCTION FOR IF OVERFLOW F3B11400
M23060 SXD CBOX,4 SAVE LINKAGE F3B11410
LXD ETRAL,2 CURRENT TRALEV ENTRY DT. F3B11420
CLA TRALEV,2 TRALEV ENTRY F3B11430
ANA M2CON+9 SAVE DECREMENT F3B11440
STO M2CW+2 3RD WD F3B114S0
TSX CIT200,4 COMPILER F3B11460
HTR TIFFN TIFGO INT. FMLA NO F3B11470
HTR M2CON ZERO F3B11480
HTR M2CW+2 AI F3B11490
HTR M2CON ZERO F3B11500
LXD CBOX,4 RESTORE LINKAGE F3B11510
TRA 2,4 F3B11520
REM TRANSFER ON ZERO WITH LOCATION FMLA NO + 8 F3B11530
M23065 SXD CBOX,4 SAVE LINKAGE F3B11540
LXD ETRAL,2 CURRENT TRALEV ENTRY PT F3B11550
CLA TRALEV,2 SAVE DECREMENT OF TRALEV F3B11560
ANA M2CON+9 ENTRY F3B11570
STO M2CW+2 F3B11580
CLA TIFFN TIFGO FMLA NO. F3B11590
STO M2CW F3B11600
CLA M2CON+5 10 (8) F3B11610
ORS M2CW ADD TO ADDRESS F3B11620
TSX CIT200,4 F3B11630
HTR M2CW T1FFN+10(8) F3B11640
HTR M2ABC+1 TZE F3B11650
HTR M2CW+2 AI F3B11660
HTR M2CON ZERO F3B11670
LXD CBOX,4 F3B11680
TRA 2,4 F3B11690
REM TRANSFER ON PLUS WITH LOCATION 0 F3B11700
M23070 SXD CBOX,4 SAVE LINKAGE F3B11710
LXD ETRAL,2 F3B11720
CLA TRALEV,2 F3B11730
ANA M2CON+9 DECREMENT OF TRALEV ENTRY F3B11740
STO M2CW+2 F3B11750
TSX CIT200,4 F3B11760
HTR M2CON ZERO F3B11770
HTR M2ABC+2 TPL F3B11780
HTR M2CW+2 AI F3B11790
HTR M2CON ZERO F3B11800
LXD CBOX,4 F3B11810
TRA 2,4 F3B11820
REM FINAL TRANSFER COMPILER FOR TIFGO F3B11830
REM ENTRIES WHEN A TRASTO ENTRY IS ASSOCIATED F3B11840
REM WITH THE TRANSFER ADDRESS F3B11850
M23075 SXD CBOX,4 SAVE LINKAGE F3B11860
LXD ETRAL,2 F3B11870
CLA TRALEV,2 F3B11880
ANA M2CON+9 SAVE DECREMENT OF TRALEV F3B11890
STO M2CW+2 ENTRY F3B11900
TSX CIT200,4 F3B11910
HTR M2CON+13 +170000000000 F3B11920
HTR M2ABC TRA F3B11930
HTR M2CW+2 AI F3B11940
HTR M2CON ZERO F3B11950
LXD CBOX,4 F3B11960
TRA 1,4 F3B11970
REM M2 COMPILER CIT200 F3B11980
CIT200 STO E1C2 SAVE AC F3B11990
STQ E2C2 SAVE MQ F3B12000
SXD E3C2,1 SAVE IR 1 F3B12010
SXD E4C2,2 SAVE IR 2 F3B12020
LXD BBOX,2 2 S COMP. OF NO. OF WDS. IN BLOCK F3B12030
TXH CIT204,2,-100 COMPARE TO 100. F3B12040
TXL CIT204,2,0 LAST ENTRY F3B12050
WRS 146 SELECT TAPE 2 F3B12060
CLA TFRC0 TIFGO FILE REC. COUNT F3B12070
ADD M2CON+7 ADD 1 TO DECREMENT F3B12080
STO TFRC0 TIFGO FILE REC. COUNT F3B12090
LXA M2CON,1 ZERO IN IR 1 F3B12100
CIT201 CPY CIB2,1 OUTPUT AREA F3B12110
TXI CIT202,1,-1 SET COUNT FOR NEXT WORD F3B12120
CIT202 TXI CIT203,2,1 SET UP COUNT OF BLOCK F3B12130
CIT203 TXH CIT201,2,1 BACK T0 CONTINUE WRITING F3B12140
CIT204 LXA M2CON+3,1 COUNT 0F 4 IN IR 1 F3B12150
CLA M2CON+1 1 IN ACC F3B12160
STA CIT205 TO GET NEXT ENTRY F3B12170
CIT205 CLA 0,4 ADDRESS OF NEXT ENTRY F3B12180
STA CIT206 F3B12190
CIT206 CLA NEXT ENTRY F3B12200
STO CIB2,2 OUTPUT AREA F3B12210
CLA CIT205 ADDRESS F3B12220
ADD M2CON+1 ONE F3B12230
STA CIT205 RESTORE ADDRESS F3B12240
TXI CIT207,2,-1 DECREASE BLOCK COUNT F3B12250
CIT207 TIX CIT205,1,1 GET NEXT ENTRY F3BI2260
SXD BBOX,2 SAVE COUNT F3B12270
CLA E1C2 RESTORE AC F3B12280
LDQ E2C2 RESTORE MQ F3B12290
LXD E3C2,1 RESTORE IR 1 F3B12300
LXD E4C2,2 RESTORE IR 2 F3B12310
TRA 5,4 BACK TO MAIN ROUTINE F3B12320
ADD1 SXD ADD4,4 SAVE LINKAGE F3B12330
ADD2 LXD CTRAST,2 CURRENT TRASTO ENTRY POINT F3B12340
CLA TRASTO+2,2 3RD WD OF TRASTO ENTRY F3B12330
TPL ADD3 SORT OUT TYPES 1,2,3 F3B12360
CLA TRASTO+1,2 TYPES 4,5,6. TEST 2ND WD F3B12370
TMI ADD3 TYPE 2 F3B12380
CLA TRASTO,2 1ST WORD F3B12390
TMI ADD3 TYPE 3 F3B12400
CLA ADDCO COUNT TIMES 8 F3B12410
ADD M2CON+5 ADD ONE F3B12420
STO ADDCO RESTORE NEW COUNT F3B12430
ADD3 TXI ADD3+1,2,-4 SKIP TO NEXT ENTRY F3B12440
TSX M22700,4 TRASTO FMLA NO SEARCH F3B12450
TRA ADD5 F3B12460
TSX M22750,4 TRASTO LEVEL NO SEA RCH F3B12470
ADD4 TXL ADD6,0 F3B12480
LXD CTRAST,2 END F3B12490
TXI ADD3+1,2,-4 BACK FOR NEXT ENTRY F3B12500
ADD5 LXD ADD4,4 F3B12510
TRA 1,4 BACK TO MAIN ROUTINE, VIA PAT 18 F3B12520
ADD6 CLA ADDCO F3B12530
SUB M2CON+5 F3B12540
STO ADDCO F3B12550
TXL ADD2,0 F3B12560
PAT17 TSX ADD1,4 F3B12570
PAT18 LXD ADD6+3,4 F3B12580
PAT19 TRA 6,4 F3B12590
M2CON DEC 0,1,2,4,6,8,16,1B17,3B17 F3B12600
OCT 77777000000,77777,50000000000,140000000000 F3B12610
COR27 OCT 170000000000,120000000000,60000000000,3000000 F3B12620
M2ABC BCD 6TRA000TZE000TPL000SXD000LXP000PXD000 F3B12630
BCD 5STO000TXI000TIX000TSX000LXD000 F3B12640
M2ECTR DEC 5 F3B12650
L(0) SYN M2CON F3B12660
L(2) SYN M2CON+2 F3B12670
L(4) SYN M2CON+3 F3B12680
L(3) DEC 3 F3B12690
CBOX SYN L(3) IRC STORED IN DECR FIELD FOR ALL CLSD SUBROUTINE LINKAGEF3B12700
O456 OCT 456 F3B12710
L0X SYN O456 LOWER INDEX FOR TRAD IN DECR FIELD F3B12720
TRSORG TRASTO F3B12730
ORTRST SYN TRSORG F3B12740
ADDCO SYN TRSORG 8 TIMES THE NUM OF TIMES THE CURRENT ADDRESS OF THE F3B127S0
REM CURRENT TIFGO ENTRY APPEARS IN TRASTO, IN ADDR FIELD F3B12760
COR28 OCT 4000000 F3B12770
MASK OCT -200000000000 F3B12780
O460 OCT 460 F3B12790
1BOX F3B12800
2BOX F3B12810
3BOX F3B12820
4BOX F3B12830
5BOX F3B12840
6BOX F3B12850
ONEL SYN 1BOX TWOS COMPS F3B12860
TWOL SYN ONEL+1 OF THE LENGTHS F3B12870
THREEL SYN ONEL+2 OF VARIOUS TYPES F3B12880
F0URL SYN ONEL+3 OF ENTRY BLOCKS F3B12890
FIVEL SYN ONEL+4 IN TRASTO F3B12900
SIXL SYN ONEL+5 IN DECREMENT FIELD F3B12910
TRSWC WORD COUNT F3B12920
TIFFN SYN TRSWC CURRENT TIFGO FMLA NUM IN DEC FIELD F3B12930
WCCHS F3B12940
CTRAST SYN WCCHS CURRENT TRASTO ENTRY POINT IN DEC FIELD (TWOS COMP) F3B12950
CHS1 F3B12960
ETRAL SYN CHS1 CURRENT TRALEV ENTRY POINT IN DEC FIELD (TWOS COMP) F3B12970
CHS2 F3B12980
LEVN0 SYN CHS2 LEVEL NUM OF CURRENT ADDR OF CURR TIFGO ENTRY IN ADDRESSF3B12990
E1C2 CELL FOR SAVING AC F3B13000
E2C2 CELL FOR SAVING MQ F3B13010
E3C2 CELL FOR SAVING IRA IN DEC FIELD F3B13020
E4C2 CELL FOR SAVING IRB IN DEC FIELD F3B13030
BBOX TWOS COMP OF NO OF WDS ALREADY ENTERED IN BLOCK F3B13040
ETRAST TRASTO ENTRY POINT FOR INITIAL TIFGO FMLA NO MATCH IN DEC F3B13050
NETRAL TRALEV ENTRY POINT FOR LAST ADD IN DEC FIELD(TWOS COMP) F3B13060
CLOC INCREMENT FOR LOC WD OF FIRST INST IN CUR BLOCK F3B13070
REM 0F TRASTO INSERTIONS (IN ADDR FIELD) F3B13080
SAVE TEHP STORAGE FOR FIRST TRALEV ENTRY FOR IF (E) F3B13090
M2CW BSS 5 FOUR WORD INSTRUCTION STORAGE F3B13100
CTRSWC F3B13110
TRASTO BSS 400 F3B13120
TYPE1 SYN TRASTO F3B13130
TYPE2 BSS 400 F3B13140
TYPE3 BSS 400 F3B13150
TYPE4 BSS 400 F3B13160
TYPE5 BSS 400 F3B13170
TYPE6 BSS 400 F3B13180
TRALEV SYN TYPE2+1 F3B13190
TIFGO SYN TYPE2+1202 F3B13200
CIB2 SYN TYPE2+1802 F3B13210
TRAD SYN CIB2+101 F3B13220
ORG 3794 F3B13230
TFRC0 BSS 1 F3B13240
EASC0 BSS 1 CURRENT ASC0 ENTRY POINT IN DECR FIELD (TWOS COMP) F3B13250
ASN0 BSS 1 ONE LESS THAN CUR ASSIGN NUM IN DEC FIELD F3B13260
ASC0 BSS 300 F3B13270
END 24 F3B13280
REM MASTER RECORD CARD = FN060
REM THE FOLLOWING PROGRAM CONSTITUTES THE FINAL SECTION OF THE F3B00010
REM MERGE. IT MERGES THE FILE 0F INSTRUCTIONS PREPARED BY THE F3B00020
REM FIRST SECTION WITH THE FILE PREPARED BY THE SECOND SECTION. F3B00030
REM IN ADDITION TO MERGING THESE TWO FILES, IT INSERTS IN THEIR F3B00040
REM PROPER P0SITION THE INDEXING INSTRUCTIONS NECESSITATED BY THEF3B000S0
REM APPEARANCE 0F RELATIVE CONSTANTS. F3B00060
ORG 24 F3B00070
REM READ TSXCOM INTO HIGH SPEED STORAGE F3B00080
M30000 LXA M3ECTR,4 ERORR COUNT IN IR 4 F3B00090
RDS 195 SELECT DRUM 3 F3B00100
LDA L(704) DRUM ADDRESS F3B00110
CPY TSXCOM-2 WORD COUNT OF TSXCOM TABLE F3B00120
CPY TSXCOM-1 CHECK SUM OF WORD COUNT F3B00130
CLA TSXCOM-2 WD. COUNT F3B00140
SUB TSXCOM-1 CHECK SUM F3B00150
TZE M30010 EQUAL F3B00160
TIX M30000+1,4 NOT EQUAL, TRY 4 MORE TIMES F3B00170
TSX 4,4 WORD COUNT NOT EQUAL TO CHECK SUM F3B00180
M30010 LXA M3ECTR,4 ERROR COUNT IN IR4 F3B00190
CLA TSXCOM-2 WORD COUNT F3B00200
ARS 18 PLACE IN ADDRESS F3B00210
TZE M30050 NO TSX INSTRUCTION F3B00220
PAX 0,3 PLACE WORD COUNT IN IR 1 AND 2 F3B00230
ADD L(1) ADD ONE TO WORD COUNT F3B00240
ADD M30025 INIT1AL ADDRESS F3B00250
STA M30020 F3B00260
RDS 195 SELECT DRUM 3 F3B00270
LDA L(706) DRUM ADDRESS F3B00280
TXI M30020,1,1 INCCREMENT 8B 1 F3B00290
M30020 CPY 0,1 TSXCOM TABLE INTO STOORAGE F3B00300
TIX M30020,1,1 COPY LOOP F3B00310
LXA L(0),1 F3B00320
CAL L(0) ZEROS IN ACC. F3B00330
M30025 ACL TSXCOM,1 COMPUTE NEW CHECK SUMS AND COMPARE F3B00340
TXI M30025+2,1,-1 TO GIVEN CHECK SUM F3B00350
TIX M30025,2,1 F3B00360
SXD TSXCOM-1,1 F3B00370
SLW TSXCOM-2 F3B00380
CLA TSXCOM-2 F3B00390
SUB TSXCOM,1 F3B00400
TZE M30050 END. CHECK SUMS AGREE F3B00410
TIX M30010+1,4,1 NOT EQUAL) BACK TO TRY 4 MORE T IMES F3B00420
TSX 4,4 READ DRUM 3 MORE TIMES F3B00430
M30050 TRA TSXPT1 F3B00440
REM PROGRAM FOR PART 3 OF MERGE F3B00450
TSX READTF,C INITIALIZE TIFGO FILE BUFFER F3B00460
TSX READFF,C FIRST FILE BUFFERS F3B00470
MSE 98 IS TIFGO FILE USED UP F3B00480
TRA C4 NO F3B00490
TRA G1 YES, GO TO END 0F TIFGO ROUTINE F3B00500
C4 CLA 3794 TIFGO RECORD COUNT F3B00510
ADD L(1D) ADD ONE TO DECREMENT F3B00520
STO 3794 NEW TIFGO RECORD COUNT F3B00530
C6 CLA FFLBUF,A OBTAIN ALPHA FOR NEXT CIT IN IST FILE BUFFER F3B00340
STD FFLCFN F3B00550
CLA TFGBUF,B OBTAIN FOR NEXT CIT AND SAVE IN F3B00560
ANA MASK TIFGO BUFFER F3B00570
STD TFGCFN F3B00580
CAS FFLCFN COMPARE FIRST FILE T0 TIFGO FILE F3B00590
TRA E1 ALPHA LESS THAN BETA F3B00600
TRA J1 ALPHA EQUALS BETA F3B00610
REM ALPHA GREATER THAN BETA F3B00620
C5 LXA L(4),C COMPILE THIS TIFGO FILE INSTRUCTION F3B00630
C2 CLA TFGBUF,B SET UP FOR WORDS F3B00640
STO TFGCOM+4,C F3B00650
TXI C1,B,-1 F3B00660
C1 TIX C2,C,1 F3B00670
TSX CIT00,C COMPILER F3B00680
HTR TFGCOM F3B00690
HTR TFGCOM+1 F3B00700
HTR TFGCOM+2 F3B00710
HTR TFGCOM+3 F3B00720
PXD 0,B COMPARE WORD COUNT F3B00730
CAS TFGWC WITH BUFFER SIZE F3B00740
TRA C7 WORD COUNT LESS THAN BUFFER SSIZE F3B00750
TRA C3 WC EQUALS BS F3B00760
TSX 4,4 WORD COUNT INCORRECT F3B00770
C3 TSX READTF,C READ TIFGO FILE INTO BUFFER F3B00780
MSE 98 IS TIFGO FILE USED UP F3B00790
TRA C7 NO TEST LOCATION WD OF NEXT ENTRY F3B00800
TRA G1 YES GO TO END OF TIFGO F1LE ROUTINE F3B00810
C7 CLA TFGBUF,B WORD COUNT LESS THAN BUFFER SIZE F3B00820
ANA 2BIT IS LOCATION WORD SPECIAL F3B00830
TNZ C5 YES BACK TO COMPILE NEXT ENTRY F3B00840
CLA TFGBUF,B NO F3B00850
ANA MASK DOES NEXT INSTRUCTION IN TIFGO FILE F3B00860
CAS TFGCFN BELONG TO CURRENT COMPILED BLOCK F3B00870
TRA C6 NO F3B00880
NOP YES F3B00890
TRA C5 YES F3B00900
REM END OF TIFGO FILE RDUTINE F3B00910
G1 MSE 97 IS FIRST FILE USED UP. TEST SWITCH F3B00920
TRA G2 NO F3B00930
TRA OUT YES GO TO TERMINAL ROUT INE F3B00940
G2 CLA FFLBUF,A ENTRY IN FIRST FILE BUFFER F3B00950
STD FFLCFN STORE INTERNAL FORMULA NO. FOR ENTRY F3B00960
G5 LXA L(4),C COMPILE F3B00970
G4 CLA FFLBUF,A FIRST F3B00980
STO FFLCOM+4,C FILE F3B00990
TXI G3,A,-1 INSTRUCTION F3B01000
G3 TIX G4,C,1 F3B01010
TSX CIT00,C COMPILER F3B01020
HTR FFLCOM F3B01030
HTR FFLCOM+1 F3B01040
HTR FFLCOM+2 F3B01050
HTR FFLCOM+3 F3B01060
PXD 0,A COMPARE WORD COUNT WITH BUFFER SIZE F3B01070
CAS FFLWC TO TEST IF FIRST FILE IS NOW EMPPTY F3B01080
TRA G8 WORD COUNT LES THAN BUFFER SIZE F3B01090
TRA G7 WC EQUALS BS F3B01100
TSX 4,4 WORD COUNT INCORRECT F3B01110
G7 TSX READFF,C F3B01120
MSE 97 TEST IF FIRST FILE IS USED UP F3B01130
TRA G8 NO F3B01140
TSX M31000,C YES, GO TO TSX COM TABLE SEARCH F3B01150
TRA OUT TERMINAL ROUTINE F3B01160
G8 CLA FFLBUF,A TEST IF NEXT FIRST FILE ENTRY F3B01170
TZE G5 BELONGS TOSAME BLOCK OF INSTRUCTIQNS F3B01180
TSX M31000,C NO F3B01190
G9 CLA FFLBUF,A TEST IF NEXT FIRST FILE ALPHA F3B01200
ANA MASK IS GREATER THAN PREVIOUS ONE F3B01210
CAS FFLCFN INTERNAL FORMULA NUMBER F3B01220
TRA G2 YES, BACK TO COMPILE NEXT INSTRUCTION F3B01230
NOP F3B01240
LXA L(4),C NO, COMPILE THIS INSTRUCTION F3B01230
G10 CLA FFLBUF,A ENTRY IN FIRST FILE BUFFER, SET F3B01260
STO FFLCOM+4,C UP FOUR WORDS OF ENTRY F3B01270
TXI G11,A,-1 STEP UP IR COUNTS F3B01280
G11 TIX G10,C,1 F3B01290
TSX CIT00,C COMPILER F3B01300
HTR FFLCOM F3B01310
HTR FFLCOM+1 F3B01320
HTR FFLCOM+2 F3B01330
HTR FFLCOM+3 F3B01340
PXD 0,A TEST IF FIRS T FILE BUFFER F3B01350
CAS FFLWC IS EMPTY F3B01360
TRA G9 NO F3B01370
TRA G12 YES F3B01380
TSX 4,4 WORD COUNT INCORRECT F3B01390
G12 TSX READFF,C READ IN TO REFILL BUFFER F3B01400
MSE 97 TEST IF AT END OF FIRST FILE F3B01410
TRA G9 F3B01420
TRA OUT TERMINAL ROUTINE F3B01430
REM ALPHA LESS THAN BETA F3B01440
E1 LXA L(4),C COMPILE F3B01450
E3 CLA FFLBUF,A FIRST F3B01460
STO FFLCOM+4,C FILE F3B01470
TXI E2,A,-1 INSTRUCTION SET UP F0UR WORDS F3B01480
E2 TIX E3,C,1 F3B01490
TSX CIT00,C COMPILER F3B01500
HTR FFLCOM F3B01510
HTR FFLCOM+1 F3B01520
HTR FFLCOM+2 F3B01530
HTR FFLCOM+3 F3B01540
PXD 0,A COMPARE WORD COUNT F3B01550
CAS FFLWC WITH BUFFER SIZE F3B01560
TRA F1 WC LESS THAN BS F3B01570
TRA E4 WC EQUALS BS F3B01580
TSX 4,4 WORD COUNT INCORRECT F3B01590
E4 TSX READFF,C READ FIRST FILE F3B01600
MSE 97 IS FIRST FILE USED UP F3B01610
TRA F1 NO F3B01620
TRA H1 YES F3B01630
F1 CLA FFLBUF,A DOES NEXT INSTRUCTION IN F3B01640
TZE E1 FIRST FILE HAVE ZERO LOC WORD F3B01650
TSX M31000,C TSX COM TABLE SEARCH F3B01660
F2 CLA FFLBUF,A TEST KF PRESENT ALPHA IS F3B01670
ANA MASK GREATER THAN ALPHA OF F3B01680
CAS FFLCFN PREVIOUS CIT F3B01690
TRA C6 NEXT INTERNAL FORMULA NO. F3B01700
NOP F3B01710
LXA L(4),C F3B01720
F3 CLA FFLBUF,A PREPARE TO COMPILE THIS INSTRUCTION F3B01730
STO FFLCOM+4,C SET UP FOUR WORDS F3B01740
TXI F4,A,-1 F3B01750
F4 TIX F3,C,1 F3B01760
TSX CIT00,C COMPILER F3B01770
HTR FFLCOM F3B01780
HTR FFLCOM+1 F3B01790
HTR FFLCOM+2 F3B01800
HTR FFLCOM+3 F3B01810
PXD 0,A COUNT OF POSITION OM FIRST FILE F3B01820
CAS FFLWC TEST IF FIRST FILE BUFFER F3B01830
TRA F2 IS EMPTY F3B01840
TRA F5 NO, GET NEXT CIT ENTRY F3B01850
TSX 4,4 WORD COUNT INCORRECT F3B01860
F5 TSX READFF,C READ FIRST FILE F3B01870
MSE 97 TEST IF AT END OF FIRST FILE F3B01880
TRA F2 BACK TO GET NEXT FIRST FILE ENTRY F3B01890
TRA H0 F3B01900
REM END OF FIRST FILE ROUTINE F3B01910
H1 TSX M31000,C READ TIFGO FILE F3B01920
H0 MSE 98 END OF TIFGO FILE F3B01930
TRA H2 NO F3B01940
TRA OUT YES, TO TERMINAL ROUTINE F3B01950
H2 LXA L(4),C COMPILE F3B01960
H4 CLA TFGBUF,B TIFGO F3B01970
STO TFGCOM+4,C FILE F3B01980
TXI H3,B,-1 INSTRUCTION F3B01990
H3 TIX H4,C,1 F3B02000
TSX CIT00,C COMPILER F3B02010
HTR TFGCOM F3B02020
HTR TFGCOM+1 F3B02030
HTR TFGCOM+2 F3B02040
HTR TFGCOM+3 F3B02050
PXD 0,B COMPARE WORD COUNT F3B02060
CAS TFGWC WITH BUFFER SIZE F3B02070
TRA H2 WC LESS THAN BS F3B02080
TRA H5 WC EQUALS BS F3B02090
TSX 4,4 WORD COUNT INCORRECT F3B02100
H5 TSX READTF,C BUFFER NOW EMPTY, READ NEXT BLOCK F3B02110
TRA H0 F3B02120
REM ALPHA EQUALS BETA F3B02130
J1 CLA TFGBUF,B TEST IF LOC. WORD OF TIFGO FILE IS F3B02140
TPL L1 MINUS NO F3B02150
REM BETA IS MINUS , YES F3B02160
SSP F3B02170
STO TFGBUF,B SAVE LOCATION WORD F3B02180
ADD L(370) 370(8) TO LOC. WORD OF FIRST FILE F3B02190
STO FFLBUF,A SAVE NEW LOCATION F3B02200
J4 LXA L(4),C COMPILE F3B02210
J3 CLA TFGBUF,B TIFGO F3B02220
STO TFGCOM+4,C FILE F3B02230
TXI J2,B,-1 INSTRUCTION F3B02240
J2 TIX J3,C,1 RESET IR 4 F3B02250
TSX CIT00,C COMPILER F3B02260
HTR TFGCOM F3B02270
HTR TFGCOM+1 F3802280
HTR TFGCOM+2 F3B02290
HTR TFGCOM+3 F3B02300
PXD 0,B COMPARE WORD COUNT F3B02310
CAS TFGWC WITH BUFFER S1ZE F3B02320
TRA K3 WC LESS THAN BS F3B02330
TRA K1 WC EQUALS BS F3B02340
TSX 4,4 WORD COUNT INCORRECT F3B02350
K1 TSX READTF,C F3B02360
MSE 98 IS TIFGO FILE USED UP F3B02370
TRA K3 NO F3B02380
TRA G1 YES F3B02390
K3 CLA TFGBUF,B DOES NEXT INSTRUCTION IN F3B02400
ANA MASK TIFGO FILE BELONG TO CURRENT F3B02410
CAS TFGCFN COMPILED BLOCK F3B02420
TRA E1 NO F3B02430
NOP YES F3B02440
TRA J4 YES F3B02450
REM BETA IS PLUS F3B02460
L1 LXA L(4),C OR TIFGO FILE F3B02470
L2 CAL TFGBUF,B WITH FIRST FILE F3B02480
ORS FFLBUF,A INSTRUCTION F3B02490
TXI L8,A,-1 RESET IR COUNTS F3B02500
L8 TXI L3,B,-1 F3B02510
L3 TIX L2,C,1 F3B02520
TXI L5,A,4 F3B02530
L5 LXA L(4),C COMPILE F3B02540
L7 CLA FFLBUF,A FIRST F3B02530
STO FFLCOM+4,C FILE F3B02560
TXI L6,A,-1 INSTRUCTION F3B02570
L6 TIX L7,C,1 F3B02580
TSX CIT00,C F3B02590
HTR FFLCOM F3B02600
HTR FFLCOM+1 F3B02610
HTR FFLCOM+2 F3B02620
HTR FFLCOM+3 F3B02630
PXD 0,A COMPARE WORD COUNT F3B02640
CAS FFLWC WITH BUFFER SIZE F3B02650
TRA M3 WC LESS THAN BS F3B02660
TRA M1 WC EQUALS BS F3B02670
TSX 4,4 WORD COUNT INCORRECT F3B02680
M1 TSX READFF,C F3B02690
MSE 97 IS FIRST FILE USED UP F3B02700
TRA M3 NO F3B02710
COR1 TRA H3+6 F3B02720
M3 CLA FFLBUF,A DOES NEXT INSTRUCTION IN F3B02730
ANA MASK FIRST FILE BELONG TO CURRENT F3B02740
CAS FFLCFN COMPILED BLOCK F3B02750
TRA M4 NO F3B02760
NOP YES F3B02770
TRA L5 YES F3B02780
M4 PXD 0,2 TEST IF TIFGO FILE BUFFER IS EMPTY F3B02790
CAS TFGWC F3B02800
TRA C7 F3B02810
TRA C3 F3B02820
TSX 4,4 WORD COUNT INCORRECT F3B02830
REM M3 TERMINAL ROUTINE F3B02840
OUT LXD BBOX,1 2S C OMPLIMENT OF NO. OF WORDS F3B02850
PAT1 CLA CIB-3,1 ENTERED IN BLICK F3B02860
PAT2 SUB L(TRA) TEST IF TRA INSTRUCTION F3B02870
PAT3 TZE RTN YES F3B02880
COR2 TRA PAT4 NO F3B02890
RET1 SXD N2,1 SAVE INDEX REG. NO. IN COMPARE INSTR. F3B02900
LXA L(0),1 INITIALIZE IR 1 T0 1 F3B02910
N1 CPY CIB,1 REMAINDER OF F3B02920
TXI N2,1,-1 INSTRUCTIONS IN BUFFER F3B02930
N2 TXH N1,1 TEST IF AT END OF BUFFER F3B02940
WEF 4 YES, WRITE END OF FILE F3B02950
M32000 LXD 3794,4 WRITE DO FILE C + FORTRAN FUNCTION FILE AS 2ND FILE F3B02960
TXI M32005,4,3 POSITION TAPE 2 T0 READ DO FILE C F3B02970
M32005 BST 146 F3B02980
TIX M32005,4,1 F3B02990
RDS 146 READ DO FILE C INTO STORAGE F3B03000
CPY 3795 F3B03010
LXA 3795,4 WORD COUNT F3B03020
TXI BST,4,4 F3B03030
BST BST 146 BACK T0 FIRST WD. F3B03040
TIX BST,4,1 F3B03050
RDS 146 PAST IDENTIFICATION COUNT F3B03060
RDS 146 WORD COUNT F3B030T0
WRS 148 ZERO ON TAPE 4 F3B03080
CPY L(0) F3B03090
CLA L(0) RESTORE BBOX TO ZERO F3B03100
STO BBOX F3B03110
PSE 96 TURN OFF ALL SENSE SWITCHES F3B03120
READ TSX READTF,4 TREAD TIFGO FILE F3B03130
MSE 98 TEST IF AT END OF TIFGO FILE F3B03140
TRA COMP NO F3B03150
TRA FREAD YES F3B03160
COMP LXA L(4),4 4 IN IR 4 F3B03170
CLA TFGBUF,2 SET UP FOUR WORDS FOR COMPILATION F3B03180
STO TFGCOM+4,4 F3B03190
TXI COMP1,2,-1 F3B03200
COMP1 TIX COMP+1,4,1 F3B03210
TSX CIT00,4 COMPILER F3B03220
HTR TFGCOM F3B03230
HTR TFGCOM+1 F3B03240
HTR TFGCOM+2 F3B03250
HTR TFGCOM+3 F3B03260
PXD 0,2 COUNT OF TIFGO F3B03270
CAS TFGWC COMPARE TO CURRENT FMLA. NO. F3B03280
TRA COMP LESS THAN, COMPILE ENTRIESP F3B03290
TRA READ EQUAL TO. READ NEXT ENTRY F3B03300
TSX 4,4 WORD COUNT INCORRECT F3B03310
FREAD TSX READFF,4 READ FIRST FILE F3B03320
MSE 97 TEST IF AT END OF FIRST FILE F3B03330
TRA FCOMP NO F3B03340
TRA WRITE YES F3B03350
FCOMP LXA L(4),4 SET UP COUNT AND F0UR WORSD OF ENTRY F3B03360
CLA FFLBUF,1 F3B03370
STO FFLCOM+4,4 F3B03380
TXI FCOMP1,1,-1 F3B03390
FCOMP1 TIX FCOMP+1,4,1 F3B03400
TSX CIT00,4 COMPILER F3B03410
HTR FFLCOM F3B03420
HTR FFLCOM+1 F3B03430
HTR FFLCOM+2 F3B03440
HTR FFLCOM+3 F3B03450
PXD 0,1 CHECK WORD COUNT F3B03460
CAS FFLWC AND COMPARE TO FIRST FILE WORD COUNT F3B03470
TRA FCOMP F3B03480
TRA FREAD F3B03490
TSX 4,4 WORD COUNT INCORRECT F3B03500
WRITE LXD BBOX,1 TWOS COMPLIMENT OF NO. OF ENTRIES F3B03510
TXL WRITE2+1,1,0 F3B03520
WRS 148 SELECT TAPE 4 F3B03530
SXD WRITE2,1 F3B03540
LXA L(0),1 F3B03550
WRITE1 CPY CIB,1 REMAINDER OF BUFFER ONTO TAPE 4 F3B03560
TXI WRITE2,1,-1 F3B03570
WRITE2 TXH WRITE1,1 F3B03580
WEF 148 F3B03590
LXA 3795,4 F3B03600
TXI P0S,4,3 F3B03610
P0S BST 146 BACKSPACE OVER DO FILE C F3B03620
TIX P0S,4,1 F3B03630
M32010 RDS 146 WRITE ASC0 0VER DO FILE C ON TAPE 2 F3B03640
RDS 146 . F3B03650
WRS 146 SELECT TAPE 2 F3B03660
CPY 3796 COPY ASC0 OVER DOFILE C F3B03670
CLA 3796 F3B03680
TZE M32030-1 NO ASC0 ENTRIES F3B03690
PDX 0,1 NUMBER OF ASC0 ENTRIES IN IR 1 F3803700
ARS 18 SHIFT WORD COUNT F3B03710
ADD M32020 INITIAL ADDRESS F3B03720
STA M32020 INITIALIZE COPY ADDRESS F3803730
M32020 CPY 3797,1 ASC0 TABLR F3B03740
TIX M32020,1,1 F3B03750
WEF 146 END OF FILE AFTER ASC0 TABLE F3B03760
M32030 LXA M3ECTR,4 ERROR COUNT F3B03770
RDS 194 READ FIXCON INTO STORAGE F3B03780
CPY FIXCON-2 DRUM CHECK SUM CHCHECKING F3B03790
CPY FIXCON-1 F3B03800
CLA FIXCON-2 WORD COUNT F3B03810
SUB FIXCON-1 CHECK SUM F3B03820
TZE M32040 CORRECTP F3B03830
TIX M32030+1,4,1 TRY 4 MORE TIMES F3B03840
TSX 4,4 WORD COUNT INCORRECT F3B03850
M32040 LXA M3ECTR,4 ERROR COUNT F3B03860
CLA FIXCON-2 WORD COUNT F3B03870
TZE M32065 NO FIXCON ENTRIES F3B03880
PAX 0,3 INITIALIZE WORD COUNT F3B03890
ADD M32055 INITIAL ADDRESS F3B03900
STA M32050 F3B03910
RDS 194 F3B03920
LDA L(2) READ DRUM 2 FOR FIXCON TABLE F3B03930
M32050 CPY 0,1 F3B03940
TIX M32050,1,1 F3B03950
LXA L(0),1 SET IR 1 TO ZERO F3B03960
M32055 CLA FIXCON,1 FIRST ENTRY F3B03970
SUB FIXCON+1,1 CHECK SUM F3B03980
TZE M32060 CORRECT F3B03990
TIX M32040+1,4,1 TRY 4 MORE TIMES F3B04000
TSX 4,4 WORD COUNT INCORRECT F3B04010
M32060 TXI M32060+1,1,-2 SKIP OVER CHECK SUM F3B04020
TIX M32055,2,2 NEXT ENTRY F3B04030
SXD M32070+2,1 END OF TABLE COUNT F3B04040
LXA L(0),2 RESET IR 2 TO ZERO F3B04050
M32065 WRS 146 WRITE FIXCON ON TAPE 2 F3B04060
CLA FIXCON-2 F3B04070
ARS 1 SET UP FIX CON ENTRIES WHITHOUT F3B04080
STO FIXCON-2 CHECK SUMS FOR WRITING OUT ON TAPE 2 F3B04090
CPY FIXCON-2 F3B04100
TZE M32075 NO FIXCON ENTRY F3B04110
M32070 CPY FIXCON,2 F3B04120
TXI M32070+2,2,-2 F3B04130
TXH M32070,2 F3B04140
M32075 WEF 146 WRITE END OF FILE AFTER FIXCON F3B04150
LXA L(4),4 F3B04160
BST 146 BACKSPACE TAPE 2 FOR SECTION 4 F3B04170
TIX M32075+2,4,1 F3B04180
PSE 96 TURN OFF ALL SENSE SWITCHES F3B04190
RTB 1 F3B04200
TRA 4 F3B04210
REM M3 CLOSED SU8ROUTINES F3B04220
REM SUBROUTINE FOR READING A RECORD OF TIFGO FILE F3804230
READTF SXD E3M3,A SAVE LINKAGE IN IR 1 F3B04240
LXA M3ECTR,1 ERROR COUNT F3B04250
M3B3 RDS 146 TAPE 2 TO READ TIFGO FILE F3B04260
LXA L(0),B RESET IR2 TO ZERO F3B04270
M3B1 CPY TFGBUF,B COPY TIFGO FILE FROM TAPE INTO BUFFER F3B04280
TXI M3B1,B,-1 SET UP COUNT F3B04290
TRA M3B4 EOF F3B04300
WRS 219 EOR) ON TAPE 3 F3B04310
RTT IS TAPE CHECK INDICATOR ON F3B04320
TRA M3B2 YES F3B04330
SXD TFGWC,B NO F3B04340
LXA L(0),B RESET INDEX OF TIFGO BUFFER F3B04350
LXD E3M3,A RESTORE INDEX OF FIRST FILE BUFFER F3B04360
TRA 1,C EXIR. BACK TO MAIN ROUTINE F3B04370
M3B2 BST 146 F3B04380
TIX M3B3,A,1 ERROR ROUTINE F3B04390
TSX 4,4 ERROR READING TAPE 2. TIFGO FILE F3B04400
M3B4 PSE 98 INDICATE END OF TIFGO FILE F3B04410
LXD E3M3,A RESTORE INDEX OF FIRST FILE BUFFER F3B04420
TRA 1,C TRANSFER TO MAIN ROUTINE F3B04430
REM SU8ROUTINE FOR READING A RECORD OF FIRST FILE F3B04440
READFF SXD E2M3,B SAVE COUNT IN IR 2 FOR LINKAGE F3B04450
LXA M3ECTR,B ERROR COUNT F3B04460
M3A3 RDS 147 READ FIRST FILE FROM TAPE 3 F3B04470
LXA L(0),A INITIALIZE IR1 TO ZERO F3B04480
M3A1 CPY FFLBUF,A COPY FIRST FILE INTO BUFFER F3B04490
TXI M3A1,A,-1 F3B04500
TRA M3A4 EOF F3B04510
WRS 219 EOR DELAY 704 TO MAKE TAPE TEST F3B04520
RTT F3B04530
TRA M3A2 ERROR ROUTINE F3B04540
SXD FFLWC,A SAVE LOCAT0N WORD OF FIRST FILE F3B04550
LXA L(0),A RESET INDEX OF FIRST F1LE BUFFER F3B04560
LXD E2M3,B RESTORE INDEX OF TIFGO FILE BUFFER F3B04570
TRA 1,C F3B04580
M3A2 BST 147 BACKSPACE TAPE 3 TO TRY AGAIN F3B04590
TIX M3A3,B,1 F3B04600
TSX 4,4 ERROR READING FIRST FILE FROM TAPE 3 F3B04610
M3A4 PSE 97 INDICATE END DF FIRST FILE F3B04620
LXD E2M3,B RESTORE INDEX OF TIFGO FILE BUFFER F3B04630
TRA 1,C F3B04640
REM TSXCOM TABLE SEARCH F3B04650
M31000 SXD E3M3,1 SAVE LINKAGE OF FIRST FILE BUFFER F3B04660
SXD E2M3,4 SAVE LINKAGE FROMT TSX INSTR. F3B04670
STZ DUP REINITIALIZE HTE INSTR. F3B04680
M31005 CLA TSXCOM-2 TEST WORD COUNT OF CHECK SUM F3B04690
SUB TSXCOM-1 F3B04700
TZE M31080 CHECK SUM EQUALS WORD COUNT F3B04710
LXD TSXCOM-2,1 WORD COUNT IN IR1 F3B04720
CLA TSXCOM,1 FIRST ENTRY F3B04730
ANA MASK SAVE DECREMENT, INTERNAL FMLA. NO. F3B04740
SUB FFLCFN FIRST FILE LOCATION NO. F3B04750
TNZ M31080 NOT EQUAL. NO TSXCOM ENTRY F3B04760
REM CUR FIRST FILE FMLA NO APPEARS IN TSXCOM F3B04770
M31015 CAL TSXCOM+1,1 F3B04780
ANA PMASK SAVE SIGN OF SECOND WD. OF ENTRY F3B04700
CQR3 TZE CIT07+6 TYPE 1 ENTRY NEGATIVE F3B04800
CLA TSXCOM,1 TYPE 2 ENTRY F3B04810
ANA AMASK SAVE ADDRESS AND STORE IN F3B04820
STO FFLCOM+3 4TH WORD OF FIRST FILE COMPILER F3B04830
CLA TSXCOM+1,1 SECOND WORD OF ENTRY F3B04840
STO FFLCOM+2 3RD. WORD OF COMPILER F3B04850
TSX CIT00,4 COMPILE INSTRUCTION-4 F3B04860
HTR L(0) ZERO F3B04870
HTR L(LXD) LXD INSTRUCTION F3B04880
HTR FFLCOM+2 F3B04890
HTR FFLCOM+3 F3B04900
TXI M31030,1,-2 STEP UP COUNT FOR NEXT TSXCOM ENTRY F3B04910
M31030 SXD TSXCOM-2,1 SAVE NEW WORD COUNT F3B04920
TRA M31005 BACK TO SEARCH REMAING ENTRIES F3B04930
M31035 TSX CIT00,4 TYPE I ENTRY F3B04940
HTR L(0) ZERO F3B04950
HTR L(SXD) SXD F3B04960
HTR L(6H) +060000000000 F3B04970
HTR L(5.4) 000004000004 F3B04980
CLA TSXCOM+1,1 SECOND WORD OF ENTRY F3B04990
ANA AMASK SAVE ADDRESS F3805000
ORA L(10H) ADD 120000000000 F3B05010
STO FFLCOM+2 IN 3RD. WORD OF COMPILER F3B05020
TSX CIT00,4 FOR NEXT INSTRUCTION F3B05030
HTR L(0) ZERO F3B05040
HTR L(TSX) TSX F3B05050
HTR FFLCOM+2 12(8) PLUS ADDRESS F3805060
HTR L(4) +000000000004 F3B05070
M31050 CLA TSXCOM+1,1 SECOND WORD F3B05080
ANA AMASK SAVE ADDRESS F3B05000
STO FFLCOM+3 STORE IN 4TH. WORD OF COMPILED INSTR. F3805100
ORA L(12H) ADD 12(8) AND DTORE IN 3RD. F3B05110
STO FFLCOM+2 WORD OF INSTRUCTION IN COMPILER F3805120
TSX CIT00,4 F3B05130
HTR L(0) ZERO F3B05140
HTR L(LXP) LXP F3B05150
HTR FFLCOM+2 12(8) PLUS ADDDRESS F3B05160
HTR FFLCOM+3 ADDRESS F3B05170
TXI M31063-1,1,-2 RESET IR1 FOR NEXT ENTRY F3B05180
SXD TSXCOM-2,1 SAVE WORD COUNT F3B05190
M31063 TSX CIT00,4 COMPILE INSTRUCTION F3B05200
HTR L(0) ZERO000000000 F3B05210
HTR L(LXD) LXD F3B05220
HTR L(6H) +060000000000 F3B05230
HTR L(5.4) 000004000004 F3B05240
TRA M31005 CONT1 UE TABLE SEARCH F3B05230
M31080 LXD E3M3,1 END OF TSXCOM TABLE SEARCH F3B05260
LXD E2M3,4 RESTORE IR COUNTS FROM LINKAGE F3805270
TRA 1,4 AND GO BACK TO MAIN ROUTINE F3805280
REM COMPILING ROUTINE,CIT00 F3B05290
CIT00 STQ E1C SAVE CONTENTS OF MQ F3B05300
SXD E2C,1 SAVE CONTENTS OF IR1 F3B03310
SXD E3C,2 SAVE CONTENTS OF IR12 F3B05320
LXD BBOX,2 2S COMPLIMENT OF NO. OF WORDS OF ENTRY F3B05330
TXH CIT04,2,-100 TEST IF LESS THAN 100 AND GREATER F3B05340
TXL CIT04,2,0 THAN ZERO . IF SO. COMPILE INSTRUCTION F3B033S0
WRS 148 F3B05360
LXA M1CON,1 SET COUNT IN IR 1 T0 ZERO F3B05370
CIT01 CPY CIB,1 REFILL BUFFER F3B05380
TXI CIT02,1,-1 RESET COUNTS FOR FIRST ENTRY IN BUFFER F3B05390
CIT02 TXI CIT03,2,1 F3B05400
CIT03 TXH CIT01,2,1 F3B05410
CIT04 LXA M1CON+4,1 COUNT OF 4 IN IR1 F3B05420
CLA M1CON+1 F3B05430
STA CIT05 F3B05440
CIT05 CLA 0,4 LINKAGE FROM MAIN ROUTINE PLUS 1 F3B05430
STA CIT06 F3B05460
CIT06 CLA FIRST PARAMETER. 2ND.) 3RD.) AND4TH. F3B03470
STO CIB,2 AND STORE IN PROPER OUTPUT AREA F3B05480
CLA CIT05 F3B05490
ADD M1CON+1 F3B05500
STA CIT05 TO GET NEXT WORD F3B05310
TXI CIT07,2,-1 DECREASE COUNT IN IR1 AND 2 BY ONE F3B05520
CIT07 TIX CIT05,1,1 F3B05530
SXD BBOX,2 SAVE COUNT OF CIB BUFFER F3B05540
LDQ E1C REDTORE MQ F3B05550
LXD E2C,1 RESTORE IR 1 F3B05560
LXD E3C,2 RESTORE IR2 F3B05570
TRA 3,4 BACK TO MAIN ROUTINE F3B05580
CLA TSXCOM+1,1 F3B05590
CAS DUP F3B05600
TRA DIF F3B05610
TXI M31030,1,-2 F3B05620
DIF STO DUP F3B05630
TRA M31035 F3B05640
DUP HTR F3B05650
PAT4 TSX CIT00,4 COMPILER FOR LOAD BUTTON SEQUENCE F3B05660
PAT5 HTR ZERO F3B05670
PAT6 HTR L(RCD) RCD F3B05680
PAT7 HTR ZERO F3B05690
PAT8 HTR ZERO F3B05700
PAT9 TSX CIT00,4 COMPILE INSTRUCTION F3B05710
PAT10 HTR ZERO F3B05720
PAT11 HTR L(CPY) CPY F3B05730
PAT12 HTR ZERO F3B05740
PAT13 HTR ZERO F3B05750
PAT14 TSX CIT00,4 F3B05760
PAT15 HTR ZERO F3B05770
PAT16 HTR L(XIT) XIT F3B05780
PAT17 HTR L(15H) +170000000000 F3B05790
PAT18 HTR L(2D) 000002000000 F3B05800
PAT19 TSX CIT00,4 F3B05810
PAT20 HTR ZERO F3B05820
PAT21 HTR L(HPR) HPR F3B05830
PAT22 HTR ZERO F3B05840
PAT23 HTR L(7M) 7 PLUS LOC. NO. OF RCD INSTR. F3B05850
PAT24 TSX CIT00,4 F3B05860
PAT25 HTR ZERO F3B05870
PAT26 HTR L(CPY) CPY F3B05880
PAT27 HTR ZERO F3B05890
PAT28 HTR ONED 000000000001 F3B03900
PAT29 TSX CIT00,4 F3B05910
PAT30 HTR ZERO F3B05920
PAT31 HTR L(XIT) XIT F3B05930
PAT32 HTR ZERO F3B05940
PAT33 HTR ZERO F3B05950
PAT34 TSX CIT00,4 F3B05960
PAT35 HTR L(LOC) +003777000370 F3B05970
PAT36 HTR L(HPR) HPR F3B05980
PAT37 HTR ZERO F3B05990
PAT38 HTR L(1.7) 000001000007 F3B06000
PAT39 TSX CIT00,4 F3B06010
PAT40 HTR ZERO F3B06020
PAT41 HTR L(TRA) TRA TO FINAL HALT F3B06030
PAT42 HTR L(LOC) F3B06040
PAT43 HTR ZERO F3B06050
PAT44 LXD BBOX,1 RESTORE COUNT IN IR1 F3B06060
RTN WRS 148 F3B06070
PAT46 TRA RET1 BACK TO COMPLETE TERMINAL ROUTINE F3B06080
REM WORKING STORAGE AND CONSTANTS F3B06090
A EQU 1 F3B06100
B EQU 2 F3B06110
C EQU 4 F3B06120
L(0) DEC 0 F3B06130
M1CON SYN L(0) F3B06140
L(1) DEC 1 F3B06150
L(2) DEC 2 F3B06160
L(3) DEC 3 F3B06170
L(4) DEC 4 F3B06180
L(8) DEC 8 F3B06190
L(704) DEC 704 F3B06200
L(706) DEC 706 F3B06210
L(1D) DEC 1B17 F3B06220
L(6H) OCT 60000000000 F3B06230
L(10H) OCT 120000000000 F3B06240
L(12H) OCT 140000000000 F3B06250
L(5.4) OCT 4000004 F3B06260
L(LXD) BCD 1LXD000 F3B06270
L(SXD) BCD 1SXD000 F3B06280
L(TSX) BCD 1TSX000 F3B06290
L(LXP) BCD 1LXP000 F3B06300
MASK OCT 77777000000 F3B06310
AMASK OCT 77777 F3B06320
2BIT OCT 100000000000 F3B06330
PMASK OCT 700000000000 F3806340
L(RCD) BCD 1RCD000 F3B06330
L(CPY) BCD 1CPY000 F3B06360
L(XIT) BCD 1XIT000 F3806370
L(HPR) BCD 1HPR000 F3B06380
L(TRA) BCD 1TRA000 F3B06300
L(15H) OCT 170000000000 F3B06400
L(LOC) OCT 3777000370 F3B06410
ZERO PZE F3B06420
ONED DEC 1B17 F3B06430
L(2D) DEC 2B17 F3B06440
L(7M) DEC 7 F3B06450
L(1.7) OCT 1000007 F3B06460
M3ECTR DEC 5 F3B06470
L(370) OCT 370 F3B06475
E1C CELL FOR SAVING MQ F3B06480
E2C CELL FOR SAVING IRA F3B06490
E3C CELL FOR SAVING IRB F3B06500
BBOX 2S COMP OF NO OF WORDS ALREADY ENTERED IN BLOCK F3B06510
E2M3 F3B06520
E3M3 F3B06530
REM SENSE LITE 98 ON FOR END OF TIFGO FILE F3B06540
TFGWC TIFGO WORD COUNT F3B06530
TFGCFN CURRENT FORMULA NUM FOR TIFGO INSTRUCTION F3806560
TFGCOM BSS 4 TIFGO COMPILER F3806570
REM SENSE LITE 97 ON FOR END OF FIRST FILE F3B06580
FFLWC FIRST FILE WORD COUNT F3B06590
FFLCFN CURRENT FORMULA NUM FOR FIRST FILE INSTR F3B06600
FFLCOM BSS 4 FIRST FILE COMPILER F3B06610
PZE F3B06620
PZE F3B06630
TSXCOM BSS 502 F3B06640
FIXCON SYN TSXCOM F3B06650
TFGBUF BSS 100 TIFGO BUFFER F3B06660
FFLBUF BSS 100 FIRST FILE BUFFER F3B06670
CIB BSS 100 F3B06680
ORG 1467 F3B06681
TSXPT1 SLW TSXCOM-2 F3B06682
TSX READTF,4 F3B06683
TSX READFF,4 F3B06684
MSE 97 F3B06685
TRA TSXPT2 F3B06686
PSE 97 F3B06687
TRA M30050+3 F3B06688
TSXPT2 CLA TSXCOM F3B06689
CAS FFLBUF F3B06690
TRA M30050+3 F3B06691
TRA M30050+3 F3B06692
CLA TSXCOM F3B06693
STD FFLCFN F3B06694
TSX M31000,4 F3B06695
TRA M30050+3 F3B06696
END 24 F3B06700
REM 704 FORTRAN II, 4-1-6-2 SYSTEM F4400010
REM SECTION 4 - FLOW ANALYSIS F4400020
REM ROBERT C. BRILL - NOVEMBER 13, 1958 F4400030
REM F4400040
REM NOTE - THIS LISTING CORRESP0NDS TO THE FORTRAN II 4-1-6-2 F4400050
REM SYSTEM TAPE. TO MAKE IT CORRESP0ND TO THE 8-1-6-2 SYSTEM F4400060
REM TAPE MAKE THE FOLLOWING CHANGES IN THIS LISTING. F4400070
REM IN RECORD F0730000, LOCATI0N 77, CHANGE F4400080
REM 000674000000 TO 003140000000 F4400090
REM IN RECORD F0730000, LOCATI0N 632, CHANGE F4400100
REM 000000000215 TO 000000001037 F4400110
REM F4400120
REM F4400130
REM DEFINITI0N STATEMENTS F4400140
BBBB.J SYN 141 THESE FIRST TWO DEFINITI0NS MAKE F4400150
BBSIZE SYN 444 THE PROGRAM COMPATIBLE WITH F4400160
REM SECTI0N 5 (TAG ANALYSIS). THEIRF4400170
REM VALUES ARE THOSE OF PREDL (BLOCKF4400180
REM LENGTH OF PRED TABLE) AND 6*BBBLF4400190
REM (BLOCK LENGTH OF BB TABLE) RES- F4400200
REM PECT1VELY, AS GIVEN IN THE F4400210
REM SECTI0N 5 LISTING. F4400220
NOINS SYN 2200 BLOCK LENGTH OF COMPILED F4400230
REM INSTRUCTION TABLE (CIT)-PART 1 F4400240
ZINSTM SYN 300 SAME AS PREVIOUS - PART 2 F4400230
ZINSTR SYN 100 SAME AS PREVIOUS - PART 6 F4400260
ZBB SYN 700 LENGTH OF BB LIST F4400270
ZTIFRD SYN 200 8LOCK LENGTH OF TIFRD F4400280
XFRET= SYN 1000 TABLE LENGTH AND DRUM ADD FOR FRET F4400290
ZFRET= SYN 250 BLOCK LENGTH OF FRET F4400300
XSET SYN 400 LENGTH OF SET TABLE F4400310
ZSET SYN 200 BLOCK LENGTH OF SET TABLE F4400320
ZNLIST SYN 25 LENGTH 0F NLIST F4400330
XTRA SYN 2800 LENGTH 0F TRA TABLE F4400340
ZTRA SYN 700 BLOCK LENGTH OF TRA TA8LE F4400350
ZTAG SYN 15 BLOCK LENGTH OF TAGLIST h F4400360
XXXXXX SYN 0 THE APPEARANCE OF THIS SYMBOL IN F4400370
REM THE LISTING INDICATES THAT ITS F4400380
REM VALUE IS SET BY THE PROGRAM. F4400390
RDFORT SYN 4 A TSX RDFORT,4 CALLS IN THE DIAG- F4400400
REM NOSTIC ROUTINE. A RDS SYSTAP F4400410
REM FOLL0WED BY A TRA RDFORT CALLS F4400420
REM IN THE NEXT RECORD OF THE F4400430
REM FORTRAN PROGRAM. F4400440
BBOX.= SYN 4092 THE FOLL0WING ARE THE ADDRESSES F4400450
DOBOX= SYN 4093 OF SPECIAL COUNTERS F4400460
SSBOX= SYN 4094 F4400470
TTBOX= SYN 4095 F4400480
SUCCBX SYN 4093 F4400490
PREDBX SYN 4094 F4400500
BBTBOX SYN 4095 F4400510
SYSTAP SYN 145 FORTRAN SYSTEM TAPE (LOGICAL 1) F4400520
TBLTAP SYN 146 TIFGO, TRAD, FRET, AND DOTAG F4400530
REM TAPE (LOGICAL 2) F4400540
TAGTAP SYN 147 TAGLIST TAPE (LOGICAL 3) F4400550
BLT SYN 147 BBLIST TAPE (LOGICAL 3) F4400560
INSTTP SYN 148 CIT TAPE (L0GICAL 4) F4400370
TIFDRM SYN 193 TIFRD DRUM (L0GICAL 1) F4400380
DOCRDR SYN 193 DOCARE DRUM (LOGICAL 1) F4400300
DODRUM SYN 193 DOLIST DRUM (LOGICAL 1) F4400600
TRADRM SYN 193 INITIAL TRA TABLE DRUM (LOGICAL 1) F4400610
FRTDRM SYN 194 FRET DRUM (LOGICAL 2) F4400620
BBLDRM SYN 195 BBLIST DRUM (LOGICAL 3) F4400630
SETDRM SYN 195 SET DRUM (LOGICAL 3) F4400640
TIFADD SYN 1000 DRUM ADDRESS FOR TIFRD F4400630
DOADDR SYN 1720 DRUM ADDRESS FOR DO LIST F4400660
BBLADD SYN 1200 DRUM ADDRESS FOR BB LIST F4400670
FRTADD SYN 1000 DRUM ADDRESS FOR FRET F4400680
SETADD SYN 701 DRUM ADDRESS FOR SET TABLE F4400690
BBLIST SYN 4091 THE FOLLOWING ARE THE BASE F4400700
DOLIST SYN BBLIST-ZBB+1 ADDRESSES OF ALL TABLES F4400710
INST.A SYN DOLIST-300 F4400720
TIFRD SYN DOLIST-300 F4400730
TRAD.= SYN TIFRD-1100 F4400740
FRET.= SYN DOLIST-301 F4400750
DVFQ.= SYN FRET.= F4400760
DOTAG SYN DVFQ.=-301-600 F4400770
DOCARE SYN DOTAG F4400780
TRA..M SYN DOLIST-300 F4400790
SET..M SYN TRA..M-ZTRA-4 F4400800
TIFRDM SYN SET..M-200 F4400810
INST.M SYN TIFRDM-201 F4400820
SETLOC SYN BBLIST+1 F4400830
TRATBL SYN BBLIST F4400840
BBTABL SYN TRATBL-2800 F4400850
FIXDOS SYN BBTABL+1 F4400860
NLIST SYN BBTABL-ZBB-3 F4400870
FRET SYN NLIST-26 F4400880
SETTAB SYN NLIST-25-1 F4400890
SNSLT SYN NLIST+100 F4400900
DOBLOK SYN BBTABL-ZBB+1 F4400910
LCNTR SYN DOBLOK-300-1 F4400920
TAG SYN BBLIST-ZBB+1 F4400930
INST.R SYN TAG-15-1 F4400940
BBTAGS SYN INST.R-100 F4400950
INSTA SYN INST.A F4400960
INSTM SYN INST.M F4400970
INSTR SYN INST.R F4400980
PRED SYN TRATBL F4400990
SETM SYN SET..M F4401000
TRAM SYN TRA..M F4401010
BGINS SYN INSTA-NOINS END OF INST. BLOCK (PART 1) F4401020
FRETN= SYN FRET.=-1000 BEGINNING OF FRET (PART 1) F4401030
NDTRA SYN TRAM-700 END OF TRA TABLE BLOCK (PART 2) F4401040
NDINS SYN INSTM-300 END OF INST. BLOCK (PART 2) F4401030
NTIFR SYN TIFRDM-200 EN0 OF TIFRD 8LOCK (PART 2) F4401060
NDSET SYN SETLOC-ZSET END OF SET BLOCK (PART 3) F4401070
REM F4401080
REM F4401090
REM SECTION 4 - PART 1 OF 6 F4410010
REM F4410020
REM FORTRAN EDITOR INFORMATION F4410030
REM MASTER RECORD CARD = F0620000 F4410040
REM ENTRY POINT = 112 F4410050
REM FIRST LOCATION = 30 F4410060
REM LAST LOCATION = 1327 F4410070
REM F4410080
REM F4410090
ORG 24 F4410100
REM CONSTANTS AND VARIABLES (THE 1ST THREE REMAIN IN CORES F4410110
REM THROUGHOUT SECTION 4.) F4410120
ERRBX DEC 0 COUNTER FOR READING ERRORS F4410130
LA1 DEC 1 F4410140
MINUS4 DEC -4 F4410150
L0...= DEC 0 F4410160
L5...= DEC 5 F4410170
TIFLAB DEC 2 F4410180
TRALAB DEC 3 F4410190
FRELAB DEC 7 F4410200
LD1..= HTR 0,0,1 F4410210
LZTIF= ZTIFRD F4410220
LZTF2= ZTIFRD+2 F4410230
LAZFT= ZFRET= F4410240
LAFT2= ZFRET=+2 F4410250
LZTR4= ZTRA+4 F4410260
FRETY= FRTADD DRUM ADDRESS FOR FRET F4410270
Y TIFADD DRUM ADDRESS FOR TIFRD F4410280
LXFRT= 0,0,XFRET= F4410290
OCTAL OCT 170000000000 F4410300
ENDMK= OCT 377777777777 F4410310
TAGMRK OCT 700000 F4410320
OPMSK= OCT 77777000000 F4410330
PSEMK= OCT 60000000 F4410340
PSTMK= OCT 70000000 F4410350
TGMSK= OCT 777777 F4410360
NMASK= OCT -300000000000 F4410370
1STLT= OCT -370000000000 F4410380
1STT.= OCT -230000000000 F4410390
LNOP.= NOP PROGRAM CONSTANT F4410400
LTRA.= OCT 35121000000 TRA F4410410
OCT 1146000000 TSX-TRA F4410420
OCT 454000000 TXL-TSX F4410430
LTROP= OCT 162000000 TZE-TXL F4410440
OCT 42363000000 DCT F4410450
OCT -24000000000 RTT-DCT F4410460
OCT 27642000000 MSE-RTT F4410470
LPCOP= OCT 30000000000 PSE-MSE F4410480
LTPL.= OCT 34743000000 F4410490
LTRAA TRA AA+1 F4410500
LOUT TRA STTIF= F4410510
LBEG TRA BEGCLA F4410520
LXRDN TRA AA+1 F4410530
LMPY TRA MPY F4410540
LSTQ TRA STQDTG F4410550
CONSTA OCT 2000000000 F4410560
CNST2A TIX CLAB,1,0 F4410570
ERAS1= F4410580
ERAS2= F4410590
ERAS3= F4410600
FRTBX= SYN ERAS3= F4410610
OPCD F4410620
DVFQB= HTR 0,0,1 F4410630
REM F4410640
REM THIS SCANS THE COMPILED INSTRUCTIONS AND COMPILES A LIST F4410650
REM KNOWN AS BBLIST OF THE COMPILED INSTRUCTION NUMBER OF THE F4410660
REM FIRST INSTRUCTION OF EACH BASIC BLOCK OF THE OBJECT PROGRAM. F4410670
PASS1 REW INSTTP F4410680
CLA ENDMK= F4410690
STO BBLIST STORE MARK FOR END OF B B LIST F4410700
PXD F4410710
STO BBOX.= F4410720
STO DOBOX= F4410730
STO SSBOX= F4410740
STO TTBOX= F4410750
CLA LBEG F4410760
STA XRDIN SET EXIT ADDRESS F4410770
TRA RDINSA TRANSFER TO ROUTINE TO READ IN 1ST F4410780
REM BLOCK OF COMPILED INSTRUCTIONS F4410790
BEGCLA CLA LXRDN RESTORE USUAL EXIT ADDRESS F4410800
STA XRDIN F4410810
LXA LA1,2 INITIALIZE INDEX REGISTERS F4410820
LXA LA1,1 F4410830
LD12.= TXI LD12.=+1,1,12 F4410840
CLA INST.A,1 PUT INSTRUCTION NUMBER OF FIRST F4410850
TSX STB,4 INSTRUCTION IN BBLIST F4410860
AA TIX RDINSA,1,NOINS TEST FOR END OF INSTRUCTION BLOCK F4410870
CLA INST.A,1 IF THERE IS NO LOCATION SYMBOL, F4410880
TZE OTHER THIS INST. NEED NOT BE CONSIDEREDF4410890
CAL INST.A-1,1 F4410900
STD OPCD F4410910
ANA 1STLT= IF FIRST LETTER IS A T,GO TO TRCS F4410920
SLW ERAS1= F4410930
CLA ERAS1= F4410940
SUB 1STT.= F4410950
TZE TRCS F4410960
CLA OPCD F4410970
LXD LD4..=,4 FOUR INTO INDEX REGISTER C F4410980
PSUB SUB LPCOP=+1,4 LOOK FOR A TEST INSTRUCTION F4410990
TZE PTRA+1,4 THIS IS A TEST F4411000
TIX PSUB,4,1 F4411010
OTHER TXI AA,1,4 NO TRANSFER EXISTS F4411020
TRA TSTCS DCT F4411030
TRA TSTCS RTT F4411040
TRA TSTCS MSE F4411050
PTRA TRA PSECS PSE F4411060
TRCS CLA OPCD FIND WHAT KIND OF TRANSFER THIS IS F4411070
LXD LD4..=,4 FOUR INTO INDEX REGISTER C F4411080
P2SUB SUB LTROP=+1,4 F4411090
TZE P2TRA+1,4 HAVE FOUND TYPE OF TRANSFER F4411100
TIX P2SUB,4,1 NOT FOUND YET F4411110
CLA INST.A-2,1 IS THIS A TRANSFER WITH A SYMBOLIC F4411120
SUB OCTAL ADDRESS = SPECIAL MARK F4411130
TZE OTHER YES,IGNORE AS NOT REAL TRANSFER F4411140
CLA INST.A,1 F4411150
SUB INST.A-2,1 F4411160
TZE OTHER F4411170
2WYTR CLA INSTA-2,1 IS A CONDITONAL TRANSFER, PUT ITS F4411180
TSX STB,4 ADDRESS AND THE ADDRESS OF THE F4411190
CLA INST.A-6,1 NEXT INSTRUCTION IN THE BASIC F4411200
TSX STB,4 BLOCK LIST F4411210
TXI AA,1,8 LOOK AT NEXT INSTRUCTION F4411220
TRA TRACSA TRA IS THE OPERATION CODE F4411230
TRA OTHER TSX F4411240
TRA DOCSA TXL F4411250
P2TRA TRA IF3CSA TZE F4411260
TRACSA CLA INSTA-3,1 IS INSTRUCTION TAGGED F4411270
ANA TGMSK= F4411280
TNZ GOTOVA YES,IS A GO TO VECTOR F4411290
CAL INST.A-2,1 TEST FOR A GO TO N F4411300
ANA NMASK= IS ADDRESS IN N-BLOCK F4411310
TNZ OTHER YES,THIS IS A GO TO N,IGNORE NOW F4411320
CLA INST.A-2,1 NOT TAGGED,IS A STRAIGHT TRANSFER F4411330
TSX STB,4 STORE ADDRESS IN BASIC BLOCK LIST F4411340
TXI AA,1,4 LOOK AT NEXT INSTRUCTION F4411350
GOTOVA CLA INST.A-3,1 THIS IS A GO TO VECTOR F4411360
PDX 0,4 F4411370
SELF1 TIX SELF1+1,4,1 PUT NUMBER OF BRANCHES INTO IR C F4411380
LD4..= TXI 4TIX,1,4 SET FOR NEXT INSTRUCTION F4411390
4TIX TIX RDIN,1,NOINS READ IN MORE INSTRUCTIONS IF NEEDEDF4411400
CLA INST.A-2,1 GET ADDRESS OF THIS INSTRUCTION F4411410
SXD ERAS2=,4 SAVE IN0EX REGISTER C F4411420
TSX STB,4 PUT ADDRESS IN BASIC BLOCK LIST F4411430
LXD ERAS2=,4 RESTORE INDEX REGISTER C F4411440
TIX LD4..=,4,1 HAVE ALL BRANCHES BEEN DONE F4411450
TXI AA,1,4 YES,LOOK AT NEXT INSTRUCTION F4411460
DOCSA LXD DOBOX=,4 THIS IS THE END OF A DO F4411470
SELF2 TXI SELF2+1,4,2 SET DOLIST ADORESS FOR NEXT ENTRY F4411480
CLA INST.A,1 PUT LOCA,ION OF TRANSFER AND F4411490
STO DOLIST+1,4 ADDRESS 0F TRANSFER INTO 0O LIST F4411500
CLA INST.A-2,1 F4411510
STO DOLIST,4 F4411520
SXD DOBOX=,4 STORE DO LIST ADDRESS F4411530
TSX STB,4 PUT ADDRESS OF TRA BACK IN TRA TABLF4411540
CLA INST.A-4,1 F4411550
TSX STB,4 PUT LOC OF NEXT INST. IN TRA F4411560
TXI AA,1,4 LOOK AT NEXT INST. F4411570
IF3CSA CLA INST.A-5,1 THIS INSTRUCTION IS A TZE F4411580
ANA OPMSK= F4411590
SUB LTPL.= IS IT FOLLOWED BY BOTH A TPL AND F4411600
TNZ 2WYTR A TRA, IF NOT, TREAT IT AS A F4411610
CLA INST.A-9,1 TWO-WAY TRANSFER F4411620
ANA OPMSK= F4411630
SUB LTRA.= F4411640
TNZ 2WYTR F4411650
CLA INST.A-2,1 PUT ADDRESSES OF THE THREE BRANCHESF4411660
TSX STB,4 INTO THE BASIC BLOCK LIST F4411670
CLA INST.A-6,1 F4411680
TSX STB,4 F4411690
CLA INST.A-10,1 F4411700
TSX STB,4 F4411710
TXI AA,1,12 LOOK AT INSTRUCTION AFTER THESE 3. F4411720
PSECS CLA INSTA-3,1 INSTRUCTION IS A PSE F4411730
ANA PSTMK= F4411740
SUB PSEMK= F4411750
TNZ OTHER NOT A SKIP, LOOK AT NEXT INST. F4411760
TSTCS CLA INSTA-5,1 THIS IS A TEST INSTRUCTION F4411770
ANA OPMSK= IS IT FOLLOWED BY A TRA F4411780
SUB LTRA.= F4411790
TNZ OTHER NO,GO TO NEXT INSTRUCTION F4411800
CLA INST.A-6,1 YES, IS USED FOR SKIPPING F4411810
TSX STB,4 F4411820
CLA INST.A-9,1 IS TEST INSTRUCTION FOLLOWED BY F4411830
ANA OPMSK= TWO TRAS F4411840
SUB LTRA.= F4411850
TNZ SLOC NO, STORE LOCATION OF 2ND INST. F4411860
CLA INST.A-10,1 YES,STORE ADDRESS OF 2ND TRA F4411870
TSX STB,4 F4411880
TXI AA,1,12 DO INSTRUCTION AFTER 2ND TRA NEXT F4411890
SLOC CLA INSTA-8,1 STORE LOCATION OF 2ND INSTRUCTION F4411900
TSX STB,4 AFTER TEST F4411910
TXI AA,1,8 LOOK AT 2ND INSTRUCTION AFTER TEST F4411920
REM F4411930
REM THIS ROUTINE READS A BLOCK OF COMPILED INSTRUCTIONS INTO F4411940
REM STORAGE FROM TAPE 4, FILE 1. F4411950
RDIN CLA LNOP.= STORE EXIT ADDRESS FROM RDINS F4411960
STO XRDIN F4411970
RDINSA CLA MINUS4 INITIALIZE ERROR BOX F4411980
STO ERRBX F4411990
RDSEL RDS INSTTP SELECT INSTRUCTION TAPE F4412000
SXD ERAS1=,1 F4412010
LXD LD12.=,1 F4412020
RCLA CLA BGINS,1 MOVE EXTRA INSTRUCTIONS F4412030
STO INST.A,1 F4412040
TIX RCLA,1,1 F4412050
SXD ERAS2=,1 SAVE INDEX IN CASE OF ERROR F4412060
RCPY CPY INSTA-12,1 READ IN BLOCK OF INSTRUCTIONS F4412070
TXI RCPY,1,1 F4412080
TXI RDEND,1,-1 END OF FILE F4412090
TPTST WRS 219 TEST FOR TAPE ERROR F4412100
RTT F4412110
TRA RDERR ERROR F4412120
CLA MINUS4 INITIALIZE ERROR BOX F4412130
STO ERRBX F4412140
LNOINS TXH XRDIN-1,1,NOINS END OF RECORD--SEE IF IT IS END OF F4412150
RDS INSTTP BLOCK GOING INTO STORAGE F4412160
TRA RCPY-1 READ NEXT BLOCK F4412170
RDEND PXD 0,1 STORE NUMBER OF REMAINING INSTRUC- F4412180
ADD LD12.= TIONS FOR TEST F4412190
STD AA F4412200
CLA LOUT STORE FINAL EXIT ADDRESS. F4412210
STA AA F4412220
LXD ERAS1=,1 NO ERROR,RESTORE INDEX REGISTER F4412230
XRDIN TRA AA+1 RETURN TO MAIN ROUTINE F4412240
RDIN2 CLA LTRAA RESTORE USUAL EXIT ADDRESS IN RDINSF4412250
STO XRDIN F4412260
TRA 4TIX+1 RETURN TO MAIN ROUTINE F4412270
RDERR CLA ERRBX F4412280
SKIP1 TMI SKIP1+2 HAVE 5 TRIES AT READING BEEN MADE F4412290
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4412300
ADD LA1 NO, TRY READING AGAIN F4412310
STO ERRBX F4412320
BST INSTTP F4412330
LXD ERAS2=,1 RESET INDEX REGISTER F4412340
TRA LNOINS+1 AND TRY TO READ AGAIN F4412350
REM F4412360
REM THIS ROUTINE STORES,IN OR0ER AND ELIMINATING DUPLICATIONS, F4412370
REM THE COMPILED INSTRUCTION NUMBER OF THE BEGINNING OF EACH F4412380
REM BASIC BLOCK F4412390
STB STO ERAS3= F4412400
SXD ERAS1=,1 F4412410
PXD 0,2 F4412420
STD BTXH F4412430
STD BTXL F4412440
STD PLACEA F4412450
ARS 1 F4412460
FAD L0...= F4412470
ARS 27 F4412480
SUB LD1..= F4412490
STA ARS F4412500
CLA CONSTA F4412510
ARS ARS F4412520
LDQ CNST2A F4412530
PDX 0,1 F4412540
ARSB ARS 1 F4412550
STD TXIBB F4412560
STD TIXBB F4412570
CLA ERAS3= F4412580
PLACEA TXH TIXBB,1,XXXXXX F4412590
CAS BBLIST+1,1 F4412600
TXIBB TXI CLAB,1 F4412610
TRA BOUT F4412620
TIXBB TIX CLAB,1 F4412630
CLAB CLA TIXBB F4412640
TLQ ARSB F4412650
CLA ERAS3= X WAS NOT FOUND, ENTER IT F4412660
TXH BTSX,2,ZBB-1 TEST FOR OVERFLOW OF BBLIST F4412670
LDQ BBLIST+1,1 F4412680
TLQ TXI2 F4412690
TRA BLDQ+1 F4412700
TXI2 TXI BLDQ,1,1 F4412710
BLDQ LDQ BBLIST+1,1 X SHOULD BE ENTERED HERE, SAVE NEXTF4412720
STO BBLIST+1,1 ENTRY AND STORE X F4412730
TXI BTXH,1,1 IS THIS LAST ENTRY IN TABLE. F4412740
BTXH TXH BSTQ,1 YES, TRANSFER F4412750
CLA BBLIST+1,1 NO, SHIFT NEXT ENTRY F4412760
STQ BBLIST+1,1 F4412770
TXI BTXL,1,1 F4412780
BTXL TXL BLDQ,1 IS THIS LAST ENTRY IN TABLE F4412790
STO BBLIST+1,1 YES, STORE LAST ENTRY F4412800
TXI BOUT,2,1 F4412810
BSTQ STQ BBLIST+1,1 STORE LAST ENTRY F4412820
TXI BOUT,2,1 F4412830
BOUT LXD ERAS1=,1 RESTORE INDEX REGISTER F4412840
TRA 1,4 TRANSFER BACK. F4412850
BTSX TSX RDFORT,4 BBLIST IS FULL WITHOUT THIS ENTRY F4412860
REM F4412670
REM THIS ROUTINE READS TIFGO FROM TAPE 2, FILE 5, RECORD 6, F4412880
REM ELIMINATING UNWANTED PARTS OF TIFGO. F4412890
STTIF= CLA MINUS4 INITIALIZE ERROR BOX F4412900
STO ERRBX F4412910
BST TBLTAP POSITION TAPE4TO READ TIFGO F4412920
BST TBLTAP F4412930
RDS TBLTAP F4412940
CPY ERAS1= GET NO. OF RECORDS IN DOTAG F4412950
LXD ERAS1=,1 BACKSPACE OVER COUNT, END FILE, F4412960
TXITF TXI TXITF+1,1,12 IXTAG, END FILE, 9 TABLES F4412970
BSTA BST TBLTAP F4412980
SELF3 TIX SELF3-1,1,1 F4412990
RDS TBLTAP F4413000
CPY ERAS2= COPY TABLE NUMBER F4413010
CPY ERAS1= COPY NO OF WORDS IN TABLE F4413020
CPYTF CPY TIFRD,1 COPY WORD 0F TIFGO F4413030
TRA CLATFA REGULAR EXIT FROM COPY F4413040
TSX RDFORT,4 END OF FILE SHOULD NOT OCCUR F4413050
TXI CHECK,1,-1 END OF RECORD - GIVE RTT, SET INDEXF4413060
CLATFA CLA TIFRD,1 LOOK AT THIS WORD OF TIFGO F4413070
TMI CPYTF-1 -,MEANS AN IF, GIVE 2ND COPY,IGNOREF4413080
ANA TGMSK= IS THIS A GO TO N ENTRY F4413090
SUB LA1 F4413100
CPY TIFRD-1,1 COPY SECOND WORD OF ENTRY F4413110
TZE GOTONA THIS IS A GO TO N ENTRY F4413120
SUB L5...= NOT A GO TO N--IS IT AN ASSIGN F4413130
TNZ CPYTF NO, LOOK AT NEXT ENTRY, DONT SAVE F4413140
ASSN TXI CPYTF,1,2 AN ASSIGN,KEEP ENTRY IN TIFRD F4413150
GOTONA CLA TIFRD-1,1 A GO TO N, SAVE ENTRY AND ALSO F4413160
STD ERAS1= LEAVE ENOUGH SPACE FOR CORRES- F4413170
PAX 0,4 PONDING ENTRIES IN TRAD F4413180
PXD 0,4 F4413190
SUB ERAS1= F4413200
SELF4 STD SELF4+1 F4413210
TXI ASSN,1,XXXXXX LOOK AT NEXT ENTRY IN TIFRD F4413220
CHECK IOD TEST FOR TAPE ERROR F4413230
RTT F4413240
TRA ERRORA ERROR F4413250
CLA ERAS2= CHECK FOR POSITIONING OF TAPE F4413260
SUB TIFLAB F4413270
TNZ BADPOS F4413280
PXD 0,1 SAVE LENGTH OF TABLE FOR TESTS F4413290
STD ABOX F4413300
ARS 18 F4413310
STO ERAS2= F4413320
TNZ RDTRAD-2 TIFGO IS NOT EMPTY F4413330
RDS6 RDS TBLTAP F4413340
TXI RDS6+2,2,-1 NO ENTRIES IN TIFGO-SKIP PROCESSINGF4413850
SXD BBOX.=,2 F4413360
TRA LXA6 F4413370
ERRORA CLA ERRBX F4413380
SKIP2 TMI SKIP2+2 HAVE 5 TRIES AT READING BEEN MADE F4413390
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4413400
ADD LA1 NO, TRY READING AGAIN F4413410
STO ERRBX F4413420
LXD LD1..=,1 RESET INDEX REGISTER F4413430
TRA BSTA F4413440
BADPOS TSX RDFORT,4 TAPE POSITIONED INCORRECTLY F4413450
REM F4413460
REM THIS ROUTINE READS TRAD FROM TAPE 2, FILE 5, RECORD 7, AND F4413470
REM ENTERS ALL WORDS OF TRAD INTO THE BASIC BLOCK LIST. F4413480
CLA MINUS4 INITIALIZE ERROR BOX F4413490
STO ERRBX F4413500
RDTRAD LXA LA1,1 SET INDEX F4413510
RDS TBLTAP F4413520
CPY ERAS1= COPY TABLE NUMBER F4413530
CPY TRAD.=+1,1 COPY NUMBER OF WORDS AND TABLE F4413540
SELF5 TXI SELF5-1,1,-1 COPY NEXT WORD F4413550
TSX RDFORT,4 END OF FILE SHOULD NOT OCCUR F4413560
IOD END OF RECORD--TEST FOR ERROR F4413570
RTT F4413580
TRA ERR2TD ERROR F4413590
CLA ERAS1= CHECK FOR POSITIONING OF TAPE F4413600
SUB TRALAB F4413610
TNZ BADPOS F4413620
TXLTRD TXL TXITRD,1,0 ALL OF TRAD NOW IN BASIC BLOCK LISTF4413630
CLA TRAD.=,1 NO ERROR--ENTER IN BASIC BLOCK LISTF4413640
ALS 18 SHIFT WORD OF TRAO F4413650
STO TRAD.=,1 F4413660
TSX STB,4 F4413670
TXI TXLTRD,1,1 SET FOR NEXT WORD IN TRAD F4413680
ERR2TD CLA ERRBX F4413690
SKIP3 TMI SKIP3+2 HAVE 5 TRIES AT READING BEEN MADE F4413700
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4413710
ADD LA1 NO, TRY READING AGAIN F4413720
STO ERRBX F4413730
BST TBLTAP F4413740
TRA RDTRAD F4413750
TXITRD TXI TXITRD+1,2,-1 F4413760
SXD BBOX.=,2 SAVE LENGTH OF BB TABLE F4413770
REM F4413780
REM THIS COMBINES TIFGO AND TRAD INTO TIFRD F4413790
CMBNE LXA LA1,1 COMBINE TRAD WITH TIFGO F4413800
CLATF CLA TIFRD,1 LOOK FOR A GO TO N ENTRY IN TIFRD F4413810
ANA TGMSK= F4413820
SUB LA1 F4413830
TZE GOTN2 F4413840
TXI ABOX,1,2 F4413850
ABOX TNX CLATF,1 IS THIS END OF TIFRD F4413860
TRA CLAER YES, STORE TIFRD ON DRUM F4413870
GOTN2 CLA TIFRD-1,1 GO TO N, PUT IN ENTRIES FROM TRAD F4413880
PDX 0,2 SET INDEX FOR FIRST WORD F4413890
ALS 18 F4413900
STD TXH STORE INDEX FOR LAST WORD F4413910
CLATR CLA TRAD.=+251,2 STORE WORD FROM TRAD INTO TIFRD F4413920
SSM F4413930
STO TIFRD-2,1 F4413940
TXI TXIA,2,-1 SET INDEX FOR TRAD F4413950
TXIA TXI TXH,1,1 SET INDEX FOR TIFRD F4413960
TXH TXH CLATR,2 CHECK FOR LAST WORD FOR THIS GO TO F4413970
TXI ABOX,1,2 SET FOR NEXT ENTRY IN TIFRD F4413980
REM F4413990
REM THIS ROUTINE WRITES TIFRD ON DRUM 1 IN BLOCKS OF 200 WORDS. F4414000
CLAER CLA ERAS2= HOW MANY WORDS ARE LEFT TO COPY F4414010
TMI RFRET NONE F4414020
SUB LZTIF= F4414030
TMI TMI LXA6 ONLY A PARTIAL BLOCK F4414040
LXA LZTIF=,1 FULL F4414050
STO ERAS2= STORE NO OF WORDS LEFT AFTER THIS F4414060
WRSTIF WRS TIFDRM F4414070
PXD 0,1 PUT LENGTH OF BLOCK IN ACCUMULATOR F4414080
STO ERAS3= AND IN ERAS3= F4414090
ACLF ACL TIFRD,1 COMPUTE CHECKSUM F4414100
TIX ACLF,1,1 F4414110
SLW ERAS1= STORE CHECK SUM F4414120
LDA Y LOCATE DRUM ADDRESS F4414130
LXD ERAS3=,1 SET INDEX F4414140
CPY ERAS3= COPY NO OF WORDS IN BLOCK F4414150
CPY7FT CPY TIFRD,1 COPY TABLE F4414160
SELF9 TIX SELF9-1,1,1 F4414170
CPY ERAS1= COPY CHECK SUM F4414180
CAL ACLF SET ADDRESSES FOR COMPUTING F4414190
SUB LZTIF= CHECK SUM AND COPY F4414200
STA6 STA ACLF F4414210
STA CPY7FT F4414220
CLA Y SET DRUM ADDRESS F4414230
ADD LZTF2= F4414240
STA Y F4414250
TRA CLAER DO NEXT BLOCK F4414260
LXA6 LXA ERAS2=,1 PUT LENGTH IN INDEX F4414270
CLS L0...= PUT MINUS IN ERAS2= AS LENGTH LEFT F4414280
STO ERAS2= F4414290
TRA WRSTIF TRA TO WRITE BLOCK AND COMPUTE CKSMF4414300
REM F4414310
REM THIS ROUTINE READS FRET FROM TAPE 2, FILE 5, RECORD 12, AND F4414320
REM CHANGES FREQUENCIES TO PROBABILITIES. F4414330
RFRET CLA MINUS4 INITIALIZE ERROR BOX F4414340
STO ERRBX F4414350
LXA L5...=,4 SPACE TO FRET F4414360
RDSFTP RDS TBLTAP F4414370
TIX RDSFTP,4,1 F4414380
CPY ERAS2= COPY TABLE NUMBER F4414390
RDINF CPY ERAS1= COPY NUMBER OF WORDS IN TABLE F4414400
LXD ERAS1=,2 PUT NUMBER OF WORDS INTO INDEX B F4414410
TXL EMPTY,2,0 F4414420
LXA LA1,1 INITIALIZE INDEX REGISTERS A AND C F4414430
LXD LXFRT=,4 F4414440
CPYF CPY FRET.=,4 COPY WORDS INTO STORAGE F4414450
CLA FRET.=,4 IS THIS WORD THE FORMULA NUMBER OF F4414460
TMI TNX A NEW ENTRY--YES, TRANSFER F4414470
ADD ADD FRET.=-1,4 NO, ADD THIS FREQUENCY TO PREVIOUS F4414480
STO FRET.=,4 SUM TO GET CUMULATIVE FREQUENCY F4414490
TNX ALDNE,2,1 IS TABLE ALL COPIED F4414500
TXI CPYF,4,-1 NO,COPY NEXT WORD F4414510
TNX TNX ERRFN,2,1 THIS IS FORM. NO,--SHOUL0NT END TABF4414520
SELF10 TXI SELF10+1,4,-1 INDEX PLACE IN STORAGE F4414530
CPY3FT CPY FRET.=,4 COPY FIRST FREQUENCY IN ENTRY F4414540
TNX DOEND,2,1 TEST FOR END OF TABLE ON TAPE F4414550
SELF11 TXI SELF11+1,4,-1 INDEX PLACE IN STORAGE F4414560
CPY FRET.=,4 COPY NEXT WORD-- IS IT NEXT FREQ ORF4414570
CLA FRET.=,4 IS IT NEW FORMULA NUMBER F4414580
TPL ADD NEXT FREQUENCY,GO TO ADD F4414590
DOCSFT CLA FRET.=-2,4 NEW FORMULA NUMBER,ENTRY JUST F4414600
STO DVFQ.=,1 COPIED WAS FOR A DO, MOVE TO F4414610
CLA FRET.=-1,4 DVFQ F4414620
STO DVFQ.=-1,1 F4414630
TXI CLAFT,1,2 INDEX POSITION IN DVFQ TABLE F4414640
CLAFT CLA FRET.=,4 PUT NEW FORMULA INTO FRET IN PLACE F4414650
STO FRET.=-2,4 OF ENTRY JUST MOVED F4414660
TNX ERRFN,2,1 THIS SHOULD BE END ONLY IF WAS DOCSF4414670
TXI CPY3FT,4,1 COPY NEXT WORD F4414680
DOEND CLA ADD+2 THIS DO ENTRY IS END OF TABLE F4414690
STA CLAFT+2 RESTORE ADDRESS F4414700
TRA DOCSFT ERROR EXIT F4414710
ERRFN TSX RDFORT,4 THE TAPE RECORD ENDS WITH A FORMULAF4414720
CLA TNX NUMBER WITH NO FREQUENCIES F4414730
STA CLAFT+2 RESTORE ADDRESS F4414740
ERRORF CLA ERRBX F4414750
SKIP4 TMI SKIP4+2 HAVE 5 TRIES AT READING BEEN MADE F4414760
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4414770
ADD LA1 NO, TRY READING AGAIN F4414780
STO ERRBX F4414790
BST TBLTAP F4414800
RDS TBLTAP SET TO READ FRET AGAIN. F4414810
TRA RDSFTP+2 TRY AGAIN F4414820
ALDNE IOD F4414830
RTT TEST FOR TAPE ERROR F4414840
TRA ERRORF ERROR F4414850
CLA ERAS2= CHECK FOR POSITIONING OF TAPE F4414860
SUB FRELAB F4414870
TNZ BADPOS F4414880
TXI CONTN,4,-1 F4414890
CONTN SXD DVFTST,1 SAVE LENGTH OF DVFQ TABLE F4414900
SXD FRTBX=,4 SAVE LENGTH OF FRET TABLE IN STOR. F4414910
TXI CLA1,4,1 F4414920
CLA1 CLA FRET.=,4 TAKE TOTAL FREQ OF ENTRY (LAST WD) F4414930
STO ERAS1= STORE AS DIVISOR F4414940
CLA ENDMK= STORE HIGHEST NO AS TOTAL PROB. F4414950
STO FRET.=,4 F4414960
TXI CLAD,4,1 INDEX PLACE IN FRET F4414970
CLAD CLA FRET.=,4 LOOK AT NEXT WORD F4414980
TMI NEWFM FORMULA NUMBER--END OF THIS ENTRY F4414990
LDQ L0...= ANOTHER CUMULATIVE FREQUENCY F4415000
DVP ERAS1= DIVIDE BY TOTAL FREQUENCY TO GET F4415010
DCT CUMULATIVE PROBABILITY F4415020
LDQ ENDMK= F4415030
STQ FRET.=,4 F4415040
TXI CLAD,4,1 LOOK AT NEXT WORD F4415050
NEWFM TXI NEWFM+1,4,1 IS THIS END OF TABLE F4415060
TNX CLA1,4,XFRET= NO--LOOK AT NEXT ENTRY F4415070
REM F4415080
REM THIS ROUTINE WRITES FRET ON DRUM 2 IN BLOCKS OF 250 WORDS F4415090
DONE CLS FRTBX= F4415100
ADD LXFRT= F4415110
PDX 0,4 PUT NO. OF WORDS IN FRET INTO INDEXF4415120
LZFRT= TNX LSTBLK,4,ZFRET= IS THERE ONLY A PARTIAL BLOCK LEFT F4415130
LXD LZFRT=,3 NO, FULL BLOCK--SET INDEX REGS. F4415140
CLA LAZFT= GET LENGTH OF BLOCK F4415150
ADM ADM ACLA SET ADDRESSES FOR BLOCK F4415160
STA ACLA F4415170
STA CPYFT F4415180
WRS FRTDRM SELECT DRUM F4415190
PXD 0,2 F4415200
STO ERAS2= STORE LENGTH OF BLOCK F4415210
ACLA ACL FRETN=,2 FIND CHECKSUM F4415220
TIX ACLA,2,1 F4415230
SLW ERAS1= STORE CHECKSUM F4415240
LDA FRETY= F4415250
CPY ERAS2= COPY NO OF WORDS IN BLOCK F4415260
CPYFT CPY FRETN=,1 COPY BLOCK F4415270
TIX CPYFT,1,1 F4415280
CPY ERAS1= COPY CHECK SUM F4415290
TXH OUTA,4,XFRET= IS THIS END OF TABLE F4415300
CLA FRETY= NO,SET DRUM ADDRESS FOR NEXT BLOCK F4415310
ADD LAFT2= F4415320
STA FRETY= F4415330
TRA LZFRT= DO NEXT BLOCK F4415340
LSTBLK PXD 0,4 ONLY A PARTIAL BLOCK LEFT F4415350
PDX 0,3 LENGTH OF BLOCK INTO INDICES F4415360
ARS 18 F4415370
TXI ADM,4,XFRET= F4415380
EMPTY WRS FRTDRM F4415390
LDA FRETY= F4415400
OUTA CPY L0...= F4415410
REW INSTTP REWIND COMPILED INSTRUCTION TAPE F4415420
REM F4415430
REM THIS ROUTINE SORTS THE LIST OF TXL INSTRUCTIONS BY ADDRESS F4415440
SRTDO LXD DOBOX=,1 PUT TOTAL LNGTH OF DOLIST IN ERAS2=F4415450
TXL CLTRA=-3,1,0 IF NO DOS, OMIT ROUTINES WITH DOS F4415460
SXD ERAS2=,1 F4415470
CLADO CLA DOLIST,1 TAKE LAST ENTRY NOT ALREADY SORTED F4415480
LDQ DOLIST+1,1 PUT ADDRESS IN AC, LOC IN MQ F4415490
TXLDO TXL STOREA,1,2 IS THERE ANOTHER ENTRY TO BE F4415580
REM COMPARED F4415510
CAS DOLIST+2,1 YES, COMPARE ADDRESSES F4415520
TXI TXLDO,1,-2 STORED ADDRESS SMALLER, LOOK AT F4415530
REM NEXT WORD F4415540
TRA COMPR ADDRESSES ARE EQUAL, COMPARE LOCATNF4415550
STO ERAS1= STORED ADDRESS LARGER, EXCHANGE F4415560
CLA DOLIST+3,1 ENTRIES F4415570
STQDO STQ DOLIST+3,1 F4415580
LDQ ERAS1= F4415590
STO ERAS1= F4415600
CLA DOLIST+2,1 F4415610
STQ DOLIST+2,1 F4415620
LDQ ERAS1= F4415630
TXI TXLDO,1,-2 F4415640
COMPR STO ERAS1= ADDRESSES EQUAL,COMPARE LOCATIONS F4415650
CLA DOLIST+3,1 F4415660
TLQ CLA2 STORED LARGER,DO NOT EXCHANGE F4415670
TRA STQDO STORED LOC SMALLER, EXCHANGE F4415680
CLA2 CLA ERAS1= RESTORE ACCUMULATOR F4415690
TXI TXLDO,1,-2 F4415700
STOREA LXD ERAS2=,1 NOW HAVE HIGHEST OF ENTRIES NOT F4415710
STO DOLIST,1 PREVIOUSLY SORTED, STORE JUST F4415720
STQ DOLIST+1,1 BEFORE THOSE ALREADY SORTED AND F4415730
SELF13 TXI SELF13+1,1,-2 SET INDEX TO AVOID THIS ENTRY ASF4415740
SXD ERAS2=,1 ALREADY SORTED, LOOK FOR HIGHESTF4415750
TXH CLADO,1,2 ENTRY OF THOSE NOT YET SORTED. F4415760
REM TABLE IS ENTIRELY SORTED NOW. F4415770
REM F4415780
REM THIS ROUTINE REPLACES THE INSTRUCTION NUMBERS IN THE DO LIST F4415790
REM BY BASIC BLOCK NUMBERS F4415800
LXA L0...=,2 INITIALIZE INDEX REGISTERS F4415810
CLA DOBOX= PUT NUMBER OF WORDS IN LIST INTO F4415820
STD TIXDO DECREMENT OF TIX FOR COMPARISON F4415830
LXA LA1,1 F4415840
TIXDO TIX RDDOT,1 HAVE ALL ENTRIES BEEN DONE F4415850
CLA DOLIST-1,1 ADD INST NO TO BE CHANGED (ADDR) F4415860
LDQ CAS BBLIST,2 COMPARE TO INST NO OF BEG OF BB F4415870
TXI LDQ,2,1 BEG BB LESS, TRY NEXT F4415880
TRA LDQ+4 BEG. B.B. EQUAL,FOUND F4415890
TXI LDQ+4,2,-1 BEG B B GREATER, PREVIOUS BB IS IT F4415900
LOQP4 PXD 0,2 PUT B B NO IN DECREMENT F4415910
STO DOLIST-1,1 REPLACE INSTR NO IN DO LIST F4415920
CLA DOLIST,1 ADD INSTR NO OF LOC OF TXL F4415930
CAS BBLIST,2 COMPARE TO BB OF ADDR FIRST F4415940
SELF14 TXI SELF14-1,2,1 TOO SMALL--TRY NEXT F4415950
SELF15 TRA SELF15+2 EQUAL--FOUND F4415960
SELF16 TXI SELF16+1,2,-1 TOO LARGE, WAS ONE PREVIOUS F4415970
CASP4 PXD 0,2 PUT BB NO INTO DOLIST IN PLACE OF F4415980
STO DOLIST,1 INSTRUCTION NUMBER F4415990
CLA DOLIST-1,1 PUT BB NO OF ADDRESS OF THIS DO F4416000
PDX 0,2 INTO IR B TO START COMPARISON F4416010
TXI TIXDO,1,2 DO NEXT ENTRY F4416020
REM F4416030
REM THIS ROUTINE READS DOCARE FROM DRUM 1 F4416040
RDDOT CLA MINUS4 INITIALIZE ERROR BOX F4416050
STO ERRBX F4416060
RDSDOT RDS DOCRDR SELECT DOCARE DRUM F4416070
LXA L0...=,1 ZERO INTO I.R.A F4416080
CPY ERAS1= F4416090
LXA ERAS1=,4 F4416100
CPY ERAS2= F4416110
TNX CLAE,4,2 TEST FOR EMPTY TABLE F4416120
CPYDOT CPY DOCARE,1 COPY TABLE F4416130
SELF17 TXI SELF17+1,1,1 F4416140
CPY DOCARE+101,1 COPY CHECKSUMS F4416150
TIX CPYDOT,4,2 TEST FOR END F4416160
SXD ERAS3=,1 SAVE INDEX F4416170
LXD ERAS3=,2 F4416180
CAL ERAS1= F4416190
ACL DOCARE+1,1 F4416200
SELF18 TIX SELF18-1,1,1 SUM ENTRIES F4416210
SLW ERAS1= F4416220
CAL ERAS2= F4416230
ACLB ACL DOCARE+101,2 SUM CHECKS F4416240
TIX ACLB,2,1 F4416250
SLW ERAS2= F4416260
CHSMCR CLA ERAS2= F4416270
SUB ERAS1= F4416280
TZE RDDTG NO ERROR-DO NEXT PART OF PROGRAM F4416290
CLA ERRBX F4416300
SKIP5 TMI SKIP5+2 HAVE 5 TRIES AT READING BEEN MADE F4416310
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4416320
ADD LA1 NO, TRY READING AGAIN F4416330
STO ERRBX F4416340
TRA RDSDOT F4416350
CLAE STZ ERAS3= SET SIGNAL FOR EMPTY DOCARE F4416360
TRA CHSMCR F4416370
REM F4416380
REM THIS ROUTINE READS DOTAG FROM TAPE 2, FILE 6, AND CONDENSES F4416390
REM IT F4416400
RDDTG RDS TBLTAP F4416410
RDS TBLTAP F4416420
RDS TBLTAP F4416430
CLA MINUS4 INITIALIZE ERROR BOX F4416440
STO ERRBX F4416450
LXD OPMSK=,1 COMPLEMENT OF ONE INTO IR A F4416460
RDSDTG RDS TBLTAP F4416470
CPY1D CPY DOTAG,1 COPY RECORD SAVING ONLY THOSE F4416480
TRA CPY2D PARTS TO BE USED F4416490
TRA NTRDO= END OF FILE--ALL COPIED F4416500
TRA TESTDT END OF RECORD--TEST FOR ERROR F4416510
CPY2D CPY ERAS1= F4416520
CPY ERAS1= F4416530
CPY ERAS1= F4416540
CPY DOTAG+1,1 F4416550
CPY DOTAG+2,1 F4416560
CPY DOTAG+3,1 F4416570
CPY ERAS1= F4416580
CPY ERAS1= F4416590
TXI CPY1D,1,-4 SET FOR NEXT ENTRY F4416600
TESTDT RTT 4 TEST REDUNDANCY F4416610
TRA ERR2DT F4416620
SXD DTGBX,1 SAVE LENGTH OF TABLE SO FAR F4416630
TRA RDSDTG COPY NEXT RECORD F4416640
ERR2DT CLA ERRBX F4416650
SKIP6 TMI SKIP6+2 HAVE 5 TRIES AT READING BEEN MADE F4416660
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4416670
ADD LA1 NO, TRY READING AGAIN F4416680
STO ERRBX F4416690
BST TBLTAP F4416700
LXD DTGBX,1 SET INDEX TO READ LAST RECORD AGAINF4416710
TRA RDSDTG F4416720
REM F4416730
REM THIS ROUTINE PUTS INFORMATION FROM DOTAG AND DVFQ INTO DOLISTF4416740
NTRDO= LXD OPMSK=,1 C0MPLEMENT OF ONE INTO I R A F4416750
LXA LA1,2 ONE INTO IR B F4416760
LXA L0...=,4 ZERO INTO INDEX C F4416770
CLA DTGBX F4416780
STD DTGBX2 PUT LENGTH OF DOTAG IN FOR TEST F4416790
PXD F4416800
STO ERAS1= F4416810
STO ERAS2= CLEAR ERAS1= AND ERAS2= F4416820
TRA NXTDO+2 F4416830
NXTDO TXI NXTDO+1,2,2 F4416840
TXI DTGBX,1,-4 SET FOR NEXT ENTRY F4416850
DTGBX TXL CLTRA=,1,-1 IS DOTAG FINISHED--IF SO EXIT F4416860
CLADT CLA DOTAG+3,1 LOOK FOR INDICAT1ON OF AN IF F4416870
TPL STF+2 TRANSFER IF DO HAS NO IF F4416880
STF CLA TAGMRK STORE IF INDICATION IN DOLIST F4416890
ORS DOLIST-1,2 F4416900
CLA DOTAG,1 F4416910
ANA TAGMRK LOOK FOR INDICATION OF VARIABLE F4416920
REM NO 0F TIMES IN LOOP F4416930
TNZ VRBLN VARIABLE,GET FROM DVFQ F4416940
CLA DOTAG+2,1 GET (N2-N1+N3) AND PUT IN MQ F4416950
STA ERAS1= F4416960
PXD CLEAR ACCUMULATOR F4416970
LDQ ERAS1= DIVIDE (N2-N1+N3) BY N3 TO GET F4416980
DVP DOTAG+1,1 NUMBER OF TIMES IN DO LOOP F4416990
DCT F4417000
TSX RDFORT,4 BAD DIVIDE F4417010
STQDTG STQ ERAS1= F4417020
CLA ERAS1= SHIFT TO AC F4417030
STA DOLIST,2 TEST FOR END F4417040
NDDOT LXD ERAS3=,4 F4417050
CLA DOTAG+4,1 DOES NEXT ENTRY IN DOTAG CORRESPONDF4417060
DDCAS CAS DOCARE+1,4 TO A TXL F4417070
TRA DDTIX F4417080
TXI DTGBX2,1,-4 NO-SET FOR NEXT ENTRY AND SAME TXL F4417090
DDTIX TIX DDCAS,4,1 F4417100
TRA NXTDO YES-LOOK AT NEXT TXL AND NEXT ENTRYF4417110
DTGBX2 TXL CLTRA=,1 TEST FOR END F4417120
CLA DOTAG,1 DOES THIS ENTRY HAVE A VARIABLE NO.F4417130
ANA TAGMRK OF TIMES IN LOOP F4417140
TNZ VBLN2 YES,GET NO. FROM DVFQ F4417150
CLA DOTAG+2,1 NO,GET N2-N1+N3 F4417160
STA ERAS2= AND PUT IN MQ F4417170
PXD 0,0 CLEAR AC F4417180
LDQ ERAS2= DIV N2-N1+N3 BY N3 TO GET NO. OF F4417190
DVP DOTAG+1,1 TIMES IN THIS DO F4417200
DCT F4417210
TSX RDFORT,4 BAD DIVIDE F4417220
MPY MPY ERAS1= F4417230
TRA STQDTG F4417240
VBLN2 CLA LMPY SET EXIT ADDRESS F4417250
TRA VRBLN+1 F4417260
VRBLN CLA LSTQ SET EXIT ADDRESS F4417270
STA EXIT F4417280
CLA DOTAG,1 GET FORMULA NUMBER OF DO F4417290
ARS 18 F4417300
SSM F4417310
LXD DVFQB=,4 F4417320
DVFTST TXH LDQ5,4 TEST FOR END OF DVFQ F4417330
CAS DVFQ.=,4 COMPARE TO FORMULA NO. IN DVFQ F4417340
TXI DVFTST,4,2 DVFQ TOO SMALL, TRY NEXT F4417350
TXI ENTER,4,2 EQUAL--SET INDEX FOR NEXT SEARCH F4417360
LDQ5 LDQ L5...= FREQ NOT IN DVFQ, TAKE 5 AS FREQ F4417370
TRA ENTER+1 F4417380
ENTER LDQ DVFQ.=+1,4 F4417390
SXD DVFQB=,4 F4417400
EXIT TRA RETURN TO MAIN PART OF THIS ROUTINEF4417410
LXD LD4..=,4 READ DOTAG F4417420
RDSP RDS TBLTAP FIND BEGINNING OF DOTAG F4417430
TIX RDSP,4,1 F4417440
REM F4417450
REM THIS ROUTINE CLEARS THE TRANSFER TABLE AND PRESETS ALL F4417460
REM COUNTERS TO ZERO F4417470
CLTRA= LDQ LA1 F4417480
PXD 0,0 F4417490
STO NLIST-1 STORE ENDMARK FOR N-LIST F4417500
LXA LZTR4=,1 F4417510
STO TRAM+1,1 F4417520
STQ TRAM,1 F4417530
SELF26 TIX SELF26-2,1,2 F4417540
LXD DOBOX=,1 F4417550
CLA OPMSK= F4417560
STO DOLIST-1,1 STORE ENDMARK FOR DOLIST F4417570
RDS SYSTAP F4417580
STZ NLIST CLEAR DUMMY SENSE LIGHTS. F4417590
STZ NLIST+1 F4417600
STZ NLIST+2 F4417610
STZ NLIST+3 F4417620
TRA RDFORT F4417630
REM F4417640
REM F4417650
REM SECTION 4 - PART 2 OF 6 (1ST RECORD OF 2) F4420010
REM F4420020
REM FORTRAN EDITOR INFORMATION F4420030
REM MASTER RECORD CARD = F0640000 F4420040
REM ENTRY POINT = 4 (CONTROL GOES BACK TO FORTRAN LOADER - F4420050
REM 1 TO CS - IN ORDER TO READ IN NEXT RECORD)F4420060
REM FIRST LOCATION = 33 F4420070
REM LAST LOCATION = 1104 F4420080
REM F4420090
ORG 27 F4420100
REM CONSTANTS AND VARIABLES F4420110
L0M HTR 0 F4420120
L6M HTR 6 F4420130
LD1M HTR 0,0,1 F4420140
LD3 HTR 0,0,3 F4420150
LD7M HTR 0,0,7 F4420160
SETYM SETADD DRUM ADDRESS FOR SET TABLE F4420170
TIFY TIFADD DRUM ADDRESS FOR TIFRD F4420180
LZSET1 ZSET+1 F4420190
LZTIF2 ZTIFRD+2 F4420200
LXTRA 0,0,XTRA F4420210
LZTRA 0,0,ZTRA F4420220
LXSET 0,0,XSET F4420230
LZSET 0,0,ZSET F4420240
LNLST 0,0,-NLIST ADDRESS OF N F4420250
LDSAN 0,0,-NLIST-4 ADDRESS OF SENSE LIGHT F4420260
LFXDN RDTIF-1 LAST LOCATION IN FIXDO LIST F4420270
LCOUT TRA OUTB TRANSFER TO EXIT ROUTINE F4420280
TRNOM TRA NOMOR F4420290
CNST2M TIX C3CLA,4,0 TO TEXT FOR END OF LOOKUP F4420300
CONSTM OCT 2000000000 F4420310
ADRMK OCT 77777 F4420320
DECMKM OCT 77777000000 F4420330
PFXMKM OCT -300000000000 F4420340
IFMSK OCT 700000 F4420350
XXPSX OCT 770000000 F4420360
XX14X OCT 140000000 F4420370
XX16X OCT 160000000 F4420380
XX360 OCT 360000000 F4420390
FSTLT OCT -370000000000 F4420400
FSTT OCT -230000000000 F4420410
0CTALM OCT 170000000000 F4420420
ENDMKM OCT 377777777777 F4420430
GTNCD OCT -100000000000 F4420440
CRTCD OCT 300000000000 F4420450
LPSE OCT 76225000000 F4420460
LTPL OCT 34743000000 F4420470
LTRA OCT 35121000000 TRA F4420480
OCT 1622000000 TXL-TRA F4420490
LTROP OCT -372000000 TTR-TXL F4420500
OCT 35121000000 TRA F4420510
OCT 41104000000 PSE-TRA F4420520
OCT -33642000000 DCT-PSE F4420530
OCT -24000000000 RTT-DCT F4420540
OCT 27642000000 MSE-RTT F4420550
OCT -7100000000 TZE-MSE F4420560
OCT -32154000000 HPR-TZE F4420570
LNTOP OCT 31316000000 TSX-HPR F4420580
SBOX OCT 1000000 F4420590
SPBOX OCT -1000000 F4420600
TBOX OCT 1000000 F4420610
TPBOX OCT -1000000 F4420620
PBOX 0,0,ZTIFRD+2 F4420630
BBOX F4420640
MBOX 0 F4420650
ACBOX 0 F4420660
OUTBX 0 F4420670
ENTBX 0 F4420680
XBOX SAVE POWER OF 2 F4420690
ERAS1M 0 F4420700
ERAS2M 0 F4420710
ERAS3M F4420720
REM F4420730
REM THIS ROUTINE COMPLETES THE ANALYSIS OF THE COMPILED F4420740
REM INSTRUCTIONS USING THE BASIC BLOCK LIST, THE DO LIST, AND F4420750
REM TIFRD. IT COMPILES THE TABLES OF SETS AND TRANSFERS USED IN F4420760
REM THE SIMULATION PROGRAM. F4420770
BEGBB TXI BEGBB+1,2,1 SET FOR NEXT BASIC BLOCK F4420780
CLA SBOX F4420790
ADD SPBOX F4420800
ARS 18 PUT SET TABLE ADDRESS INTO BB TABLEF4420810
ADD TBOX F4420820
ADD TPBOX F4420830
STO BBTABL,2 PUT TRA TABLE ADDRESS INTO BB TABLEF4420840
LXD TBOX,4 F4420850
TNX FNDAS,4,ZTRA IS BLOCK OF TRA TABLE FULL F4420860
SXD TBOX,4 SAVE NEW INDEX FOR TRA F4420870
TSX WRTRA,4 WRITE TRA BLOCK ON DRUM F4420880
FNDAS TNX 2FNDS,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED F4420890
TSX RDINSM,4 YES, READ IN NEXT BLOCK F4420900
2FNDS CLA INSTM,1 IF THERE IS NO LOCATI0N SYMBOL, F4420910
TZE TR3S+1 THIS CANT BE A SET OR AN ENDING F4420920
REM OTHER THAN A CERTAINTY CASE F4420930
LXD PBOX,4 CHANGE, LOOK AT ASSIGN ENTRY F4420940
2TNX TNX BADD,4,ZTIFRD IS BLOCK OF TIFRD ALL USED F4420950
SXD PBOX,4 YES, READ IN MORE F4420960
TSX RDTIF,4 F4420970
LXD PBOX,4 F4420980
CLA INST.M,1 COMPARE FORMULA NO. TO ASSIGN F4420990
BADD ADD L6M LIST. F4421000
SUB TIFRDM,4 F4421010
TZE ASNCS F4421020
2CLA CLA INSTM-1,1 NOT AN ASSIGN F4421030
ANA DECMKM TEST FOR A SET SENSE LIGHT F4421040
SUB LPSE F4421050
TNZ TSTTR NOT A PSE, LOOK FOR A TRANSFER F4421060
CLA INST.M-3,1 LOOK AT ADDRESS OF PSE FOR SET F4421070
ANA XXPSX F4421080
SUB XX14X F4421090
TZE STSLT IT IS A SET SENSE LIGHT F4421100
CLA INSTM-4,1 NOT A SET SENSE LIGHT, SEE IF NEXT F4421110
SUB BBLIST-1,2 INSTRUCTION STARTS A BB F4421120
TZE CRTCS YES, IS A CERTAINTY CASE F4421130
TRA IF2PS NO, IS A PSE CASE. F4421140
STSLT LXD SBOX,4 LOAD INDEX FOR SET TABLE F4421150
TNX 3CLA,4,ZSET IF SET BLOCK IS FULL, PUT ON DRUM F4421160
SXD SBOX,4 SAVE INDEX F4421170
TSX WRSET,4 GO TO DRUM ROUTINE F4421180
LXD SBOX,4 RESTORE INDEX F4421190
3CLA CLA INSTM-3,1 LOOK AT RELATIVE ADDRESS OF PSE F4421200
ANA LD7M FIND NO OF SENSE LIGHT F4421210
TZE SLSOF IF ZERO TURN ALL LIGHTS OFF F4421220
ADD LDSAN NOT ZERO, ADD ADDRESS OF FIRST F4421230
ADD LA1 ADD ONE FOR SENSE LIGHT ON F4421240
STO SET..M,4 STORE SET ENTRY F4421250
TXI TR3S,4,1 INDEX FOR NEXT SET ENTRY F4421260
SLSOF SXD BBOX,2 SAVE INDEX B F4421270
LXD LD4,2 F4421280
CLA LDSAN PUT ENTRIES IN SET TABLE TO TURN F4421290
3ADD ADD LD1M OFF ALL SENSE LIGHTS F4421300
TNX 4STO,4,ZSET IS BLOCK OF SETS FULL F4421310
SXD SBOX,4 YES, SAVE INDEX C F4421320
TSX WRSET,4 WRITE BLOCK ON DRUM F4421330
LXD SBOX,4 RESTORE INDEX C F4421340
4STO STO SETM,4 F4421350
TXI 3TIX,4,1 SET FOR NEXT ENTRY IN TABLE F4421360
3TIX TIX 3ADD,2,1 ARE ALL SETS DONE F4421370
LXD BBOX,2 YES, RESTORE INDEX B F4421380
TR3S SXD SBOX,4 STORE SET TABLE INDEX F4421390
CLA INST.M-4,1 TEST THIS FOR END OF A BASIC BLOCK F4421400
SUB BBLIST-1,2 (CANT BE A TRANSFER, SKIP, ETC.) F4421410
TZE CRTCS END OF BB MUST BE A CERTAINTY CASE F4421420
TXFAS TXI FNDAS,1,4 NOT END OF BB, LOOK AT NEXT INSTR. F4421430
ASNCS SXD PBOX,4 SAVE INDEX FOR TIFRD F4421440
CLA INST.M-6,1 PUT ADDRESS (=N) OF STA INTO AC F4421450
TSX SRCHN,4 SEARCH N-LIST FOR N F4421460
ADD LNLST PUT INDEX FOR N IN SET TABLE F4421470
LXD SBOX,4 PUT SET TABLE ADDRESS INTO INDEX F4421480
TNX 4STD,4,ZSET IS SET BLOCK FULL F4421490
SXD SBOX,4 YES,SAVE INDEX F4421500
TSX WRSET,4 PUT BLOCK ON DRUM F4421510
LXD SBOX,4 RESTORE INDEX F4421520
4STD STO SETM,4 STORE ADDRESS OF N BEING SET F4421530
SXD SBOX,4 SAVE INDEX F4421540
LXD PBOX,4 SET FOR TIFRD F4421550
CLA TIFRDM-1,4 GET VALUE TO ASSIGN TO N FROM TIFRDF4421560
ALS 18 F4421570
LD2 TXI LD2+1,4,2 SET INDEX FOR NEXT ENTRY IN TIFRD F4421580
SXD PBOX,4 SAVE TIFRD INDEX F4421590
TSX FNDBB,4 CHANGE VALUE FOR N TO BASIC BLOCK F4421600
LXD SBOX,4 NUMBER, PUT SET ADDRESS IN INDEXF4421610
ARS 18 AND PUT VALUE N IS TO BE GIVEN F4421620
STA SET..M,4 INTO TABLE ENTRY F4421630
TXI 4TXII,4,1 SET INDEX FOR NEXT ENTRY IN TABLE F4421640
4TXII TXI TR3S,1,4 SINCE THIS INSTRUCTION IS A CLA ANDF4421650
REM IS FOLL0WED BY A STA, IT CANNOT F4421660
REM BE THE END OF A BASIC BLOCK. F4421670
REM ALSO THE STA CANNOT BE AN F4421680
REM ASSIGN, PSE, TRANSFER, OR SKIP. F4421690
REM IT CAN ONLY BE A CERTAINTY CASE F4421700
REM OR INNOCUOUS. F4421710
TSTTR CLA INSTM-4,1 IS THIS LAST INSTRUCTION IN A BB F4421720
SUB BBLIST-1,2 F4421730
TZE ENDBB YES,LOOK FOR TYPE OF ENDING F4421740
LXD LD8,4 NO, CHECK FOR ENDING OF GROUP OF F4421750
CAL INST.M-1,1 INSTRUCTIONS F4421760
ANA DECMKM LOOK AT OP CODE F4421770
SUBP SUB LNTOP+1,4 COMPARE TO OP CODES OF POSSIBLE F4421780
TZE TRTIN+1,4 ENDINGS--TRANSFER WHEN FOUND F4421790
TIX SUBP,4,1 TRY NEXT POSSIBILITY F4421800
CAL INST.M-1,1 NOT FOUND--LOOK FOR A CONDITIONAL F4421810
6ANA ANA FSTLT TRANSFER F4421820
SLW ERAS1M F4421830
CLA ERAS1M F4421840
SUB FSTT F4421850
TZE CNDTR IS A CONDITIONAL TRANSFER F4421860
LD4 TXI FNDAS,1,4 NOT AN END OF BB, LOOK AT NEXT INSTF4421870
TRA GOTOVM TRA IS THE OPERATI0N CODE F4421880
TRA IF2PS PSE F4421690
TRA IF2CS DCT F4421900
TRA IF2CS RTT F4421910
TRA MSECSM MSE F4421920
TRA IF3CSM TZE F4421930
TRA HPRCS HPR F4421940
TRTIN TXI FNDAS,1,4 TSX IS OP CODE F4421950
TRA TRACSM TRA IS THE OPERATION CODE F4421960
TRA DOCSM TXL F4421970
TRTTR TRA TRACSM+3 TTR F4421980
ENDBB LXD LD3,4 SET INDEX F4421990
CLA INST.M-1,1 THIS INST ENDS A BASIC BLOCK--LOOK F4422000
ANA DECMKM AT OP CODE FOR TYPE OF ENDING F4422010
6SUB SUB LTROP+1,4 C0MPARE TO POSSIBLE OP CODE F4422020
TZE TRTTR+1,4 TRANSFER IF FOUND F4422030
TIX 6SUB,4,1 TRY NEXT POSSIBILITY F4422040
CRTCS TSX ENTB2,4 NOT A CONDITIONAL TRANSFER--IT IS F4422050
REM A CERTAINTY CASE DUE TO AN ENTRYF4422060
6CLA CAL CRTCD PUT CERTAINTY CODE IN BB TABLE F4422070
STP BBTABL,2 F4422080
TXI BEGBB,1,4 LOOK AT NEXT INSTR--BEG OF A BB. F4422090
TRACSM CAL INSTM-2,1 OP CODE IS TRA--SEE IF ADDRESS IS F4422100
ANA PFXMKM IN PROGRAM(UNCONDITIONAL TRA) ORF4422110
TNZ GOTONM IN N LIST (GO TO N) F4422120
CLA INST.M-2,1 GET INSTR OF ADDRESS F4422130
TSX ENTRB,4 ENTER IN TRA TABLE F4422140
CAL CRTCD STORE CERTAINTY CODE IN BB TABLE F4422150
STP BBTABL,2 F4422160
TXI BEGBB,1,4 LOOK AT NEXT INST.--NEW B.B. F4422170
GOTONM CAL GTNCD IS A GO TO N F4422180
STP BBTABL,2 STORE GO TO N CODE IN BB TABLE F4422190
CLA INST.M-2,1 PUT N INTO AC F4422200
TSX SRCHN,4 FIND LOCATION 0F N IN N-LIST F4422210
LXD TBOX,4 F4422220
STD TRA..M,4 PUT N-LIST ADDRESS IN TRA TABLE F4422230
LXD PBOX,4 PUT TIFRD ADDRESS INTO INDEX F4422240
7TNX TNX BCLA,4,ZTIFRD IS TIFRD BLOCK USED F4422250
SXD PBOX,4 YES, SAVE INDEX F4422260
TSX RDTIF,4 READ IN NEXT BLOCK 0F TIFRD F4422270
LXD PBOX,4 RESTORE INDEX F4422280
BCLA CLA INSTM,1 COMPARE FORMULA NUMBER OF INSTR. TOF4422290
ANA DECMKM THAT OF NEXT ENTRY IN TIFRD F4422300
ADD LA1 F4422310
SUB TIFRDM,4 F4422320
8ATZE TZE 8TXI ENTRY FOUND F4422330
TSX RDFORT,4 NO ENTRY FOUND IN TIFRD FOR GO TO NF4422340
8TXI TXI 8TXI+1,4,2 SET FOR N-WORDS IN TIFRD F4422350
8TNX TNX 8CLA,4,ZTIFRD SEE IF TIFRD BLOCK IS ALL USED F4422360
SXD PBOX,4 YES SAVE INDEX F4422370
TSX RDTIF,4 READ IN NEXT BLOCK F4422380
LXD PBOX,4 RESTORE INDEX F4422390
8CLA CLA TIFRDM,4 GET NEXT VALUE ON N FROM TIFRD F4422400
TPL 8ATRB PLUS INDICATES NO MORE VALUES FOR NF4422410
SSP ELIMINATE MINUS SIGN F4422420
SXD PBOX,4 SAVE TIFRD INDEX F4422430
LXD TBOX,4 GET TRA TABLE INDEX F4422440
TNX 8ATSX,4,ZTRA IS BLOCK OF TRA TABLE FULL F4422450
SXD TBOX,4 YES SAVE INDEX F4422460
TSX WRTRA,4 WRITE BLOCK ON DRUM F4422470
8ATSX TSX ENTRB,4 ENTER TRANSFER IN TRA TABLE F4422480
LXD PBOX,4 RESTORE INDEX FOR TIFRD F4422490
TXI 8TXI+1,4,1 SET FOR NEXT WORD F4422500
8ATRB SXD PBOX,4 SAVE TIFRD INDEX F4422510
TXI BEGBB,1,4 SET FOR NEXT INSTR AND NEXT BB. F4422520
DOCSM CLA INSTM-2,1 THIS IS A DO CASE F4422530
TSX ENTRB,4 ENTER ADDRESS OF TRA BACK F4422540
TSX ENTB2,4 ENTER TRA TO NEXT INSTR F4422550
SXD BBOX,2 SAVE INDEX F4422560
LXD LD1M,2 LOOK AT DOLIST ENTRY FOR F4422570
LXD TBOX,4 THIS DO F4422580
9CLAT CLA DOLIST,2 COMPARE LOCATION IN DO LIST TO F4422590
ANA DECMKM THIS BASIC BLOCK F4422600
SUB BBOX F4422610
TZE CLAR F4422620
TXI 9CLAT,2,2 NOT FOUND--TRY NEXT F4422630
CLAR CLA DOLIST-1,2 LOOK AT ADDRESS WORD IN DO LIST F4422640
ANA IFMSK SEE IF DO HAS AN IF F4422650
TZE DONOIF NO IF--TRANSFER F4422660
CLA DOLIST,2 DO WITH IF-PUT LOOP COUNT IN F4422670
ALS 18 TRANSFER TABLE F4422680
DWFCD STD TRAM+4,4 F4422690
CAL DWFCD GET CODE FOR DO WITH IF F4422700
DOLXD LXD BBOX,2 RESTORE INDEX FOR BB TABLE F4422710
STP BBTABL,2 STORE CODE FOR ENDING IN BB TABLE F4422720
TXI BEGBB,1,4 DO NEXT INSTR.--NEXT BASIC BLOCK F4422730
DONOIF CAL DONOIF GET CODE FOR DO WITHOUT IF F4422740
TRA DOLXD STORE CODE IN B B TABLE F4422750
CNDTR CLA INSTM-2,1 THE OP CODE IS A CONDITIONAL TRA F4422760
SUB 0CTALM SEE IF THIS IS A REAL TRANSFER F4422770
TZE TXFAS NO-- IT IS NOT ANYTHING F4422780
CLA INST.M,1 F4422790
SUB INST.M-2,1 F4422800
TZE TXFAS F4422810
CLA INST.M-2,1 PUT ADDRESS OF TRA IN TRA TABLE F4422820
TSX ENTRB,4 F4422830
CLA INST.M-6,1 PUT NEXT TRA ADDRESS IN TRA TABLE F4422840
TSX ENTRB,4 F4422850
CLA INST.M,1 F4422860
11LXD LXD TBOX,4 F4422870
STD TRA..M+4,4 F4422880
11CAL CAL PBYCDM PUT PROBABILITY CODE IN BB TABLE F4422690
STP BBTABL,2 F4422900
CLA LD2 PUT NO. OF CASES (=2) IN TRA TABLE F4422910
STD TRA..M+2,4 F4422920
SXD TBOX,4 SAVE TRA INDEX F4422930
TXI BEGBB,1,8 DO NEXT INSTRUCTION F4422940
GOTOVM CLA INSTM-3,1 THIS IS A GO TO VECTOR F4422950
PDX 0,4 F4422960
TIX OK,4,1 CHECK NO. OF BRANCHES F4422970
TSX RDFORT,4 NONE, PART OF PROGRAM NOT F4422980
REM TRANSFERED TO F4422990
OK TXH ONEVCT+1,4,1 TEST FOR ONLY 0OE BRANCH F4423000
ONEVCT TXI TRACSM+3,1,4 ONLY ONE BRANCH--A CERTAINTY CASE F4423010
PXD 0,4 MORE THAN ONE--STANDARD CASE F4423020
LXD TBOX,4 SET INDEX FOR TRA TABLE ADDRESS F4423030
STD TRA..M-2,4 PUT NO. INTO TRA TABLE F4423040
STD MBOX SAVE NO. TO TEST IF VECTOR IS DONE F4423050
CAL PBYCDM F4423060
STP BBTABL,2 PUT PROBABILITY CODE IN BB TABLE F4423070
CLA INST.M,1 F4423080
STD TRA..M,4 PUT FORMULA NUMBER INT0 TRA TABLE F4423090
13TIX TNX 13CLA,1,ZINSTM IS BLOCK OF INSTRUCTIONS ALL USED F4423100
TSX RDINSM,4 READ IN NEXT BLOCK F4423110
13CLA CLA INSTM-6,1 ENTER ADDRESS OF ONE TRANSFER F4423120
TSX ENTRB,4 INTO TRA TABLE. F4423130
LXD MBOX,4 HAVE ALL BRANCHES OF VECTOR BEEN F4423140
PBYCDM TIX 13SXD,4,1 ENTERED F4423150
13ON TXI BEGBB,1,8 YES, GO TO NEXT BB--NEXT INST. F4423160
13SXD SXD MBOX,4 NO,SAVE COUNT AND ENTER NEXT F4423170
LXD TBOX,4 PUT TRA TABLE ADDRESS IN INDEX F4423180
STPCD TNX 13TXIM,4,ZTRA HAS THIS BLOCK OF TRA BEEN FILLED F4423190
SXD TBOX,4 YES,SAVE TRA INDEX F4423200
TSX WRTRA,4 WRITE BLOCK OF TRA ON DRUM F4423210
13TXIM TXI 13TIX,1,4 SET INST. INDEX AND DO NEXT BRANCH F4423220
IF2PS CLA INSTM-3,1 THIS IS A PSE, LOOK AT ADDRESS TO F4423230
ANA XXPSX SEE IF IT IS 164-166 F4423240
SUB XX16X F4423250
TZE PSTCS YES, IT IS A TEST F4423260
CLA INST.M-3,1 F4423270
ANA DECMKM NO, SEE IF ADDR IS 360 F4423280
SUB XX360 F4423290
TNZ TXFAS NO,THIS IS NOT A BB END F4423300
PSTCS CAL PBYCDM THIS IS A PSE TEST INSTRUCTION F4423310
STP BBTABL,2 PUT PROBABILITY CODE IN BB TABLE F4423320
LXD TBOX,4 SET INDEX FOR TRA TABLE ADDRESS F4423330
CLA INST.M,1 PUT FORMULA NUMBER IN TRA TABLE F4423340
STD TRA..M,4 F4423350
CLA LD2 PUT NO. OF CASES(=2) IN TRA TABLE F4423360
STD TRA..M-2,4 F4423370
SNSCS CLA INSTM-10,1 PUT ADDRESS FOR ON INTO TRA TABLE F4423380
TSX ENTRB,4 F4423390
CLA INST.M-6,1 PUT OFF ADDRESS INTO TRA TABLE F4423400
TSX ENTRB,4 F4423410
MSECD TXI BEGBB,1,12 DO NEXT BB. F4423420
MSECSM CAL MSECD THIS IS A MSE TEST F4423430
STP BBTABL,2 STORE MSE CODE IN BBTABL F4423440
CLA INST.M-3,1 LOOK AT ADDRESS OF MSE F4423450
LXD TBOX,4 SET INDEX FOR TRA TABLE F4423460
STD TRA..M,4 PUT NO. OF SENSE LIGHT IN TRA TABLEF4423470
TRA SNSCS PUT ADDRESSES IN TRA TABLE F4423480
IF2CS CAL PBYCDM THIS IS A TWO-WAY TEST INSTRUCTION F4423490
STP BBTABL,2 PUT PROBABILITY CODE IN BB TABLE F4423500
LXD TBOX,4 SET INDEX FOR TRA TABLE F4423510
CLA INST.M,1 PUT FORMULA NUMBER IN TRA TABLE F4423520
STD TRA..M,4 F4423530
CLA LD2 PUT NO OF CASES (=2) IN TRA TABLE F4423540
STD TRA..M-2,4 F4423550
CLA INST.M-6,1 PUT ADDRESSES IN TRA TABLE F4423560
TSX ENTRB,4 =ON- ADDRESS F4423570
CLA INST.M-10,1 -OFF - ADDRESS F4423580
TSX ENTRB,4 F4423590
LD12M TXI BEGBB,1,12 DO NEXT BB F4423600
IF3CSM CLA INST.M-5,1 THIS IS A TZE, NOT END OF A BB. F4423610
ANA DECMKM CHECK TO SEE IF IT IS FOLLOWED BY AF4423620
SUB LTPL TPL AND A TRA, IF NOT THERE HAS F4423630
TZE 16CLA BEEN AN ERROR F4423640
IFTSX TSX RDFORT,4 ERROR F4423650
16CLA CLA INSTM-9,1 CHECK FOR TRA F4423660
ANA DECMKM F4423670
SUB LTRA F4423680
TNZ IFTSX ERROR F4423690
16CAL CAL PBYCDM NO ERROR F4423700
STP BBTABL,2 PUT PROBABILITY CODE IN BB TABLE F4423710
LXD TBOX,4 SET INDEX FOR TRA TABLE F4423720
CLA INST.M,1 PUT FORMULA NO. IN TRA TABLE F4423730
STD TRA..M,4 F4423740
CLA LD3 PUT N0. OF CASES (=3) IN TRA TABLE F4423750
STD TRA..M-2,4 F4423760
CLA INST.M-6,1 PUT ADDRESSES OF BRANCHES INTO F4423770
TSX ENTRB,4 TRA TABLE F4423780
CLA INST.M-2,1 F4423790
TSX ENTRB,4 F4423800
CLA INST.M-10,1 F4423810
TSX ENTRB,4 F4423820
TXI BEGBB,1,12 DO NEXT BB. F4423830
HPRCS CAL INSTM-5,1 TEST FOR PAUSE(INNOCUOUS) OR A STOPF4423840
ANA DECMKM F4423850
SUB LTRA IS HPR FOLLOWED BY TRA F4423860
TNZ LD4 NO-IGNORE-- IS A PAUSE F4423870
CLA INST.M-6,1 DOES TRA GO BACK TO HPR F4423880
SUB INST.M,1 F4423890
TNZ LD4 NO-- HPR IS A PAUSE--IGNORE F4423900
CAL STPCD THIS IS A STOP--PUT STOP CODE IN F4423910
STP BBTABL,2 BB TABLE AND NO ENTRY IN TRATBL F4423920
LD8 TXI BEGBB,1,8 DO NEXT BASIC BLOCK F4423930
OUTB SXD BBOX,2 SAVE LENGTH OF BB TABLE F4423940
CLS C5STD GET ADDRESS IN FXDO LIST F44.3950
SUB LA1 F4423960
STA STOREB F4423970
STOREB STO XXXXXX F4423980
CLA BBTABL,2 LOOK AT LAST ENTRY IN BB TABLE F4423990
STD TTBOX= PUT LENGTH OF TRA TABLE IN TTBOX F4424000
ALS 18 F4424010
STD SSBOX= PUT LENGTH OF SET TABLE IN SS BOX F4424020
PXD 0,0 F4424030
STO BBTABL-1,2 F4424040
TSX WRTRA,4 WRITE LAST BLOCK OF TRAS ON DRUM F4424050
TSX WRSET,4 WRITE LAST BLOCK OF SETS ON DRUM F4424060
RDS SYSTAP F4424070
TRA RDFORT DO NEXT BLOCK OF PROGRAM F4424080
REM F4424090
REM THIS ROUTINE SEARCHES THE N-LIST FOR THE N IN THE AC, ENTERS F4424100
REM IT IF IT IS NOT ALREADY ENTERED AND RETURNS TO THE LOCATION F4424110
REM FOLLOWING THE TSX WITH THE INDEX FOR N IN THE DECREMENT OF F4424120
REM THE ACCUMULATOR F4424130
SRCHN SXD ERAS1M,4 SAVE INDEX TO RETURN F4424140
LXD LD1M,4 SET INDEX F4424150
STO ACBOX SAVE AC F4424160
CLANN CLA NLIST,4 LOOK AT ENTRY IN N-LIST F4424170
TZE ENTRN END OF LIST REACHED, N NOT FOUND F4424180
SUB ACBOX COMPARE TO N TO BE FOUND F4424190
TZE NFOUN N HAS BEEN FOUND F4424200
TXI CLANN,4,1 NOT FOUND YET, TRY NEXT ENTRY F4424210
ENTRN TNX C1CLA,4,ZNLIST TEST FOR OVERFLOW OF N-LIST F4424220
TSX RDFORT,4 N-LIST HAS OVERFLOWED F4424230
C1CLA CLA ACBOX STORE N IN N-LIST F4424240
STO NLIST,4 F4424250
PXD STORE ZERO IN LOCATION AFTER LAST F4424260
STO NLIST-1,4 ENTRY IN N-LIST F4424270
NFOUN PXD 0,4 PUT INDEX FOR N INTO AC F4424280
LXD ERAS1M,4 RESTORE INDEX FOR TRA BACK F4424290
TRA 1,4 TRANSFER BACK F4424300
REM F4424310
REM THIS ROUTINE TAKES THE COMPILED INSTRUCTION NUMBER IN THE F4424320
REM ACCUMULATOR, TRANSLATES IT TO A BASIC BLOCK NUMBER, ENTERS F4424330
REM THE BASIC BLOCK NUMBER IN THE TRANSFER TABLE, TESTS FOR A F4424340
REM TRANSFER TO THE BEGINNING OF A 0O WITH AN IF. IT RETURNS TO F4424350
REM THE LOCATION FOLLOWING THE TSX TO IT. F4424360
ENTRB SXD ENTBX,4 SAVE INDEX F4424370
TSX FNDBB,4 CHANGE INSTRUCTION NUMBER TO BB NO.F4424380
LXD TBOX,4 F4424390
STD TRA..M-1,4 ENTER IN TRA TABLE F4424400
TXI C2SXD,4,2 SET FOR NEXT ENTRY IN TRA TABLE F4424410
C2SXD SXD TBOX,4 F4424420
LXD ENTBX,4 G0 TO TSTAD WITH ADDRESS SET TO GO F4424430
TRA TSTAD BACK TO MAIN ROUTINE F4424440
REM F4424450
REM THIS ROUTINE ENTERS IN THE TRANSFER TABLE AN0 TESTS A F4424460
REM TRANSFER TO THE INSTRUCTION (AND BASIC BLOCK) IMMEDIATELY F4424470
REM AFTER THE LOCATION OF THE TRANSFER F4424480
ENTB2 SXD ENTBX,4 SAVE INDEX F4424490
PXD 0,2 PUT THIS BASIC BLOCK NO. INTO AC F4424500
ADD LD1M ADD ONE F4424510
TRA ENTRB+2 ENTER AND TEST THIS ADDRESS F4424520
REM F4424530
REM THIS ROUTINE CHANGES COMPILED INSTRUCTION NOS. (IN THE AC) F4424540
REM TO BASIC BLOCK NUMBERSIIN DECREMENT OF THE ACCUMULATOR) BY F4424550
REM OPTIMAL TABLE LOOKUP F4424560
FNDBB STO ACBOX SAVE NUMBER BEING LOOKED FOR F4424570
SXD OUTBX,4 SAVE EXIT INDEX F4424580
LDQ CNST2M SET UP TEST FOR END F4424590
LXD L0M,4 START LOOK UP F4424600
CLA XBOX F4424610
C3ARS ARS 1 F4424620
STD C3TXI F4424630
STD C3TIX F4424640
CLA ACBOX F4424650
PLACEM TXH C3TIX,4 F4424660
CAS BBLIST,4 F4424670
C3TXI TXI C3CLA,4 F4424680
TRA C3FND F4424690
C3TIX TIX C3CLA,4,XXXXXX F4424700
C3CLA CLA C3TIX F4424710
TLQ C3ARS F4424720
TSX RDFORT,4 FL0W ERROR F4424730
C3FND PXD 0,4 F4424740
LXD OUTBX,4 F4424750
TRA 1,4 RETURN F4424760
REM F4424770
REM THIS ROUTINE TESTS FOR A TRANSFER TO THE BEGINNING OF A DO F4424780
REM AND MAKES A SET ENTRY FOR THE DO. F4424790
TSTAD SXD ERAS1M,1 SAVE INDEX REGISTER FOR TRA BACK F4424800
SXD OUTBX,4 F4424810
LXD SBOX,1 F4424820
STO ACBOX SAVE ADDRESS BEING TESTED F4424830
LXD LD1M,4 COMPARE TO DO LIST F4424840
C4CLA CLA ACBOX PUT ADDRESS BEING TESTED INTO AC F4424850
ORA IFMSK WITH AN IF MARK F4424860
C4CAS CAS DOLIST-1,4 COMPARE TO DO LIST F4424870
TXI C4CAS,4,2 ENTRY SMALLER,OR EQUAL BUT W. NO IFF4424880
TRA FXDO ENTRY EQUAL, HAS IF F4424890
SXD SBOX,1 ENTRY LARGER, TEST FINISHED. F4424900
LXD ERAS1M,1 SAVE SET INDEX AN0 RESTORE INDEX F4424910
LXD OUTBX,4 REGISTERS. F4424920
TRA 1,4 RETURN TO MAIN ROUTINE F4424930
FXDO PXD 0,2 SEE IF TRA IS IN OR OUT OF RANGE F4424940
ORA IFMSK OF THIS DO F4424950
SUB DOLIST-1,4 F4424960
TMI C4ENT TR BEFORE BEG OF DO,MAKE SET ENTRY F4424970
PXD 0,2 TR AFTER BEG OF DO, SEE IF IN DO. F4424980
CAS DOLIST,4 COMPARE TO END OF DO. F4424990
TRA C4ENT TR. AFTER DO, ENTER SET F4425000
TXI C4CLA,4,2 TR. AT END OF DO--NO SET F4425010
TXI C4CLA,4,2 TR. IN RANGE OF DO--NO SET F4425020
C4ENT CLA DOLIST,4 ENTER SET FOR DO. F4425030
TNX C4STD,1,ZSET IS BLOCK OF SET TABLE FULL F4425040
TSX WRSET,4 YES, WRITE BLOCK ON DRUM F4425050
C4STD STO SETM,1 STORE BB NO. IN SET TABLE F4425060
CLA LA1 F4425070
STA SETM,1 STORE 1 INTO SET LIST F4425080
CLA C5STD MODIFY ADDRESS IN FIX DO LIST FOR F4425090
ADD LA1 NEXT ENTRY F4425100
STA C5STD F4425110
ANA ADRMK F4425120
SUB LFXDN IS FIXDO LIST FULL F4425130
TMI C5STD-1 NO CONTINUE TESTING F4425140
TSX RDFORT,4 FIXDOS FULL F4425150
PXD 0,1 F4425160
C5STD STO FIXDOS-1 STORE SET ADDRESS IN FIX DO LIST F4425170
C5TXI TXI C5TXI+1,1,1 SET FOR NEXT ENTRY IN SET LIST F4425180
TXI C4CLA,4,2 SET DO LIST INDEX, CONTINUE TEST F4425190
REM F4425200
REM THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INSTRUCTIONS F4425210
REM INTO STORAGE AND SHIFTS THE EXTRA INSTRUCTIONS TO THE F4425220
REM BEGINNING OF THE BLOCK F4425230
RDINSM SXD OUTBX,4 SAVE INDEX FOR RETURN F4425240
CLA MINUS4 INITIALIZE ERROR BOX F4425250
STO ERRBX F4425260
SXD BBOX,2 SAVE INDEX F4425270
LXD LD12M,4 SHIFT EXTRA INSTRUCTIONS FROM END F4425280
D1CLA CLA NDINS,4 OF BLOCK FOR BEGINNING F4425290
STO INST.M,4 F4425300
TIX D1CLA,4,1 IS BLOCK SH1FTED F4425310
D1RDS RDS INSTTP SLLECT 1NSTRUCTION TAPE F4425320
LXD LD3,2 YES, SET INDEX FOR NO. OF RECORDS F4425330
D1CPY CPY INSTM-12,4 COPY BLOCK OF INSTRUCTIONS F4425340
TXI D1CPY,4,1 SET FOR NEXT WORD F4425350
TRA D2END END OF FILE F4425360
TNX D1BCK,2,1 END OF RECORD--IS IT END OF 3RD RECF4425370
RDS INSTTP NO, READ NEXT RECORD. F4425380
TRA D1CPY F4425390
D1BCK WRS 219 TEST EOR TAPE ERROR E4425400
RTT F4425410
TRA INERR ERROR F4425420
TXH D1XX,4,ZINSTM-1 IF 3RD RECORD FULL--NOT END OF F1LEF4425430
D2END PXD 0,4 REACHED END OF INSTRUCTIONS, F4425440
ADD LD8 PUT TEST FOR LAST 1NSTRUCTION F4425450
STD FNDAS INTO MAIN ROUT1NE F4425460
CLA LCOUT PUT ADDRESS OF FINAL EXIT INTO MAINF4425470
STO FNDAS+1 ROUTINE. F4425480
CLA ENDMKM F4425490
STO INST.M-12,4 F4425500
D1XX LXD OUTBX,4 NO ERROR, RESTORE INDEX REGISTERS F4425510
LXD BBOX,2 F4425520
TRA 1,4 RETURN TO MAIN ROUT1NE F4425530
INERR CLA ERRBX F4425540
SKIP7 TMI SKIP7+2 HAVE 5 TRIES AT READING BEEN MADE F4425550
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4425560
ADD LA1 NO, TRY READING AGA1N F4425570
STO ERRBX F4425580
D2BST BST INSTTP BACKSPACE OVER RECOROS JUST REAO F4425590
TXI D2TIX,2,1 F4425600
D2TIX TNX D2BST,2,3 F4425610
TRA D1RDS TAPE BACKSPACED--TRY TO READ AGAIN F4425620
REM F4425630
REM THIS ROUTIRE WRITES A BLOCK OF SETS ON DRUM 3. F4425640
WRSET SXD OUTBX,4 SAVE INDEX FOR RETURN F4425650
STO ACBOX SAVE CONTENTS OF AC F4425660
D7CLA CLA SPBOX SET SP BOX FOR NEXT BLOCK F4425670
ADD LZSET F4425680
STO SPBOX F4425690
SUB LXSET F4425700
TMI STWRS NO OVERFLOW --CONTINLE F4425710
TSX RDFORT,4 SET TABLE HAS OVERFLOWED. F4425720
STWRS WRS SETDRM SELECT DRUM F4425730
PXD 0,0 CLEAR AC F4425740
LXD LZSET,4 SET INDEX FOR COMPUTING CHECKSUM F4425750
D6ACL ACL SETM,4 COMPUTE CHECK SUM F4425760
TIX D6ACL,4,1 F4425770
SLW ERAS1M STORE CHECK SUM F4425780
LDA SETYM LOCATE DRUM ADDRESS F4425790
LXD LZSET,4 SET INOEX EOR COPY1NG F4425800
D6CPY CPY SETM,4 COPY BLOCK F4425810
TIX D6CPY,4,1 F4425820
CPY ERAS1M COPY CHECK SUM F4425830
CLA SETYM SET DRUM ADDRESS FOR NEXT BLOCK F4425840
ADD LZSET1 F4425850
STO SETYM F4425860
LXD OUTBX,4 RESTORE INDEX REGISTER F4425870
CLA ACBOX F4425880
TRA 1,4 F4425890
REM F4425900
REM THIS SETS UP FOR OPTIMAL LOOK UP IN BB LIST F4425910
PASS2 LXD LD12M,1 INITIALIZE INDEX REGISTERS F4425920
1TXI TXI 1TXI+1,1,ZINSTM+1 F4425930
CLA BBOX.= GET LENGTH OF BBLIST F4425940
STD PLACEM PUT LENGTH INTO TEST F4425950
ARS 1 F4425960
FAD L0M FIND LEAST POWER OF 2 NOT LESS THANF4425970
ARS 27 LENGTH OF TABLE F4425980
SUB LD1M F4425990
STA ARSX F4426000
CLA CONSTM F4426010
ARSX ARS F4426020
STO XBOX F4426030
CLA DOBOX= IF THERE ARE NO DOS, DO NOT TEST F4426040
TNZ TRAQ-1 FOR A TRANSFER TO A DO F4426050
CLA FXDO-1 F4426060
STO TSTAD F4426070
LXA ADRMK,2 F4426080
TRAQ TRA BEGBB F4426090
REM F4426100
REM F4426110
REM SECTION 4 - PART 2 QF 6 I2ND RECORD OF 2) F4426120
REM F4426130
REM FORTRAN EDITOR INFORMATION F4426140
REM MASTER RECORD CARD = F0650000 F4426150
REM ENTRY POINT = 1063 (CONTROL GOES TO PREVIOUS RECORD) F4426160
REM FIRST LOCATION = 3064 F4426170
REM LAST LOCATION = 3210 F4426180
REM F4426190
REM F4426200
ORG 1588 F4426210
REM THIS ROUIINE READS A BLOCK OF TIFRD INTO CORE STORAGE FROM F4426220
REM DRUM 1. F4426230
RDTIF SXD OUTBX,4 SAVE INDEX FOR RETURN F4426240
SXD ERAS1M,2 SAVE INDEX F4426250
CLA MINUS4 INITIALIZE ERROR BOX F4426260
STO ERRBX F4426270
CLA NTIFR-1 MOVE EXTRA WORD FROM END OF BLOCK F4426280
STO TIFRDM-1 TO BEGINNING F4426290
TFRDS RDS TIFDRM SELECT DRUM F4426300
LDA TIFY LOCATE DRUM ADDRESS F4426310
CPY ERAS2M COPY LENGTH OF BLOCK F4426320
LXD ERAS2M,6 SET INDEX FOR COUNT F4426330
D2CPY CPY TIFRDM-1,4 READ IN BLOCK OF TIFRD F4426340
TIX D2CPY,4,1 TEST FOR END OF BLOCK F4426350
CPY ERAS3M COPY CHECK SUM F4426360
CAL ERAS2M F4426370
TZE LSTBLT TIFGO IS EMPTY F4426380
D3ACL ACL TIFRDM-1,2 COMPUTE CHECKSUM F4426390
TIX D3ACL,2,1 F4426400
SLW ACBOX F4426410
CLA ACBOX F4426420
SUB ERAS3M C0MPARE CHECK SUMS F4426430
TNZ TFERR NOT EQUAL,ERROR F4426440
LXD ERAS2M,4 WAS THIS A FULL BLOCK F4426450
TNX LSTBLT,4,ZTIFRD-1 NO--WAS LAST BLOCK F4426460
CLA TIFY THIS WAS A FULL BLOCK, SET DRUM F4426470
ADD LZTIF2 ADDRESS FOR NEXT BLOCK F4426480
STA TIFY F4426490
TFLXD LXD ERAS1M,2 RESTORE INDEX REGISTER F4426500
LXD OUTBX,4 F4426510
TRA 1,4 RETURN TO MAIN ROUT1NE F4426520
LSTBLT CLA TRNOM END OF TIFGO--PREVENT FURTHER F4426530
STO RDTIF+1 ATTEMPTS TO READ IN F4426540
CLA ERAS2M PUT NUMBER OF WORDS IN THIS BLOCK F4426550
ADD LD1M INTO COMPARISONS F4426560
STD 2TNX F4426570
STD 7TNX F4426580
STD 8TNX F4426590
TRA TFLXD RESTORE INDEX REGISTERS AND EXIT. F4426600
NOMOR CLA TRTSX TIFRD IS ALL USED - STORE A TSX F4426610
STO RDTIF F4426620
CLA TR2CL F4426630
STO 2TNX-1 F4426640
LXD PBOX,4 F4426650
STZ TIFRDM,4 F4426660
TRA TFLXD+1 F4426670
TR2CL TRA 2CLA F4426680
TFERR CLA ERRBX F4426690
SKIP8 TMI SKIP8+2 HAVE 5 TRIES AT READING BEEN MADE F4426700
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4426710
ADD LA1 NO, TRY READING AGAIN F4426720
STO ERRBX F4426730
TRA TFRDS F4426740
REM F4426750
REM THIS ROUTINE WRITES A BLOCK OF THE TRA TABLE ON THE DRUM F4426760
REM WITH CHECK SUM F4426770
WRTRA SXD OUTBX,4 SAVE INDFX FOR RETURN F4426780
STO ACBOX SAVE CONTENTS OF THE AC F4426790
TRCLA CLA TPBOX SET TP BOX FOR NEXT BLOCK F4426800
ADD LZTRA F4426810
STO TPBOX F4426820
SUB LXTRA F4426830
TMI TRWRS NO OVERFLOW--CONTINUE F4426840
TRTSX TSX RDFORT,4 THE TRA TABLE HAS OVERFLOWED F4426850
TRWRS WRS TRADRM SELECT DRUM F4426860
LXD LZTRA,4 SET INDEX F4426870
PXD 0,0 CLEAR AC F4426880
D4ACL ACL TRAM,4 COMPUTE CHECKSUM F4426890
TIX D4ACL,4,1 F4426900
SLW ERAS1M STORE CHECK SUM F4426910
LXD LZTRA,4 SET INDEX FOR COPYING F4426920
D4CPY CPY TRAM,4 COPY BLOCK F4426930
TIX D4CPY,4,1 F4426940
CPY ERAS1M COPY CHECK SUM F4426950
LXD LD4,4 F4426960
D5CLA CLA NDTRA,4 SHIFT EXTRA ENTRIES FROM THE END F4426970
STO TRA..M,4 TO THE BEGINNING OF BLOCK F4426980
TIX D5CLA,4,1 F4426990
LXD LZTRA,4 SET INDEX F4427000
PXD 0,0 F4427010
LDQ LA1 F4427020
D5ST2 STO TRAM-3,4 INITIALIZE TRA TABLE F4427030
STQ TRA..M-4,4 F4427040
TIX D5ST2,4,2 F4427050
CLA TRWRS SET ADDRESS FOR NEXT BLOCK F4427060
ADD LA1 F4427070
STA TRWRS F4427080
TRLXD LXD OUTBX,4 RESTORE INDEX REGISTERS F4427090
CLA ACBOX RESTORE CONTENTS OF AC F4427100
TRA 1,4 RETURN TO MAIN ROUTINE F4427110
REM F4427120
REM F4427130
REM SECTION 4 - PART 3 OF 6 F4430010
REM F4430020
REM FORTRAN EDITOR INFORMATION F4430030
REM MASTER RECORD CARD = F0670000 F4430040
REM ENTRY POINT = 111 F4430050
REM FIRST LOCATION = 33 F4430060
REM LAST LOCATION = 437 F4430070
REM F4430080
REM F4430090
ORG 27 F4430100
REM CONSTANTS AND VARIABLES F4430110
ZERO 0 F4430120
LD1N 0,0,1 F4430130
LD7N 0,0,-TRATBL+2 F4430140
PBYCDN OCT 200000000000 F4430150
PFXMKN OCT -300000000000 F4430160
ENDMKN OCT 377777777777 F4430170
LAZST ZSET F4430180
LZST1 ZSET+1 F4430190
LZFR1 ZFRET=+2 F4430200
LAZTR ZTRA F4430210
LZSETN 0,0,ZSET F4430220
LZTRAN 0,0,ZTRA F4430230
WSETY SETADD DRUM ADDRESS FOR SET TABLE F4430240
FRETY FRTADD DRUM ADDRESS FOR FRET F4430250
BBLYN BBLADD DRUM ADDRESS FOR BB LIST F4430260
DOYN DOADDR DRUM ADDRESS FOR DO LIST F4430270
TRBCK TRA CLAFN F4430280
LFXST FXSET F4430290
ERAS1N F4430300
ERAS2N F4430310
ERAS3N F4430320
ERAS4N F4430330
ERAS5N F4430340
REM F4430350
REM THIS ROUTINE READS THE SET TABLE FROM DRUM 3. F4430360
RDSET CLA MINUS4 INITIALIZE ERROR BOX F4430370
STO ERRBX F4430380
16WRS RDS SETDRM F4430390
LDA WSETY LOCATE DRUM ADDRESS F4430400
LXD SSBOX=,3 SET INDEX REGISTERS F4430410
16CPY CPY SETTAB+1,1 COPY TABLE F4430420
TIX 16CPY,1,1 F4430430
CPY ERAS1N COPY CHECK SUM F4430440
PXD 0,0 CLEAR AC F4430450
16ACL ACL SETTAB+1,2 COMPUTE CHECK SUM F4430460
TIX 16ACL,2,1 F4430470
SLW ERAS2N STORE CHECK SUM F4430480
CLA ERAS2N COMPARE CHECK SUMS F4430490
SUB ERAS1N F4430500
TZE READ4 IF NO ERROR-READ IN NEXT PROGRAM F4430510
17ERR CLA ERRBX F4430520
SKIP9 TMI SKIP9+2 HAVE 5 TRIES AT READING BEEN MA0E F4430530
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4430540
ADD LA1 NO, TRY READING AGAIN F4430550
STO ERRBX F4430560
TRA 16WRS TRY AGAIN F4430570
READ4 RDS SYSTAP F4430580
TRA RDFORT F4430590
REM F4430600
REM THIS ROUTINE WRITES THE BBLIST ON DRUM 3 F4430610
LXD LXD BBOX.=,3 PUT BASIC BLOCK LIST ON DRUM F4430620
PXD 0,0 F4430630
WRS BBLDRM F4430640
ACL BBLIST,1 COMPUTE CHECK SUM F4430650
SELF30 TIX SELF30-1,1,1 F4430660
ACL BBLIST F4430670
SLW ERAS1N STORE CHECK SUM F4430680
LDA BBLYN F4430690
CPY BBLIST,2 COPY LIST F4430700
SELF31 TIX SELF31-1,2,1 F4430710
CPY BBLIST COPY LAST WORD IN LIST F4430720
CPY ERAS1N COPY CHECK SUM F4430730
REM F4430740
REM THIS ROUTINE WRITES DOLIST ON DRUM 1. F4430750
LXD DOBOX=,3 COPY DO LIST ONTO DRUM F4430760
PXD 0,0 F4430770
WRS DODRUM SELECT DRUM F4430780
2ACL ACL DOLIST,1 COMPUTE CHECK SUM F4430790
TIX 2ACL,1,1 F4430800
SLW ERAS1N STORE CHECK SUM F4430810
LDA DOYN F4430820
2CPY CPY DOLIST,2 COPY TABLE F4430830
TIX 2CPY,2,1 F4430840
CPY ERAS1N COPY CHECK SUM F4430850
REM F4430860
REM THIS READS THE TWO BLOCKS OF THE SET TABLE FROM THE DRUM F4430870
4PXD CLA MINUS4 INITIALIZE ERROR BOX F4430880
STO ERRBX F4430890
4WRS RDS SETDRM F4430900
LDA WSETY F4430910
LXD LZSETN,3 F4430920
4CPY CPY SETLOC,1 COPY BLOCK F4430930
TIX 4CPY,1,1 F4430940
CPY ERAS1N COPY CHECK SUM F4430950
PXD 0,0 CLEAR AC F4430960
4ACL ACL SETLOC,2 COMPUTE CHECKSUM F4430970
TIX 4ACL,2,1 F4430980
SLW ERAS2N F4430990
CLA ERAS2N F4431000
SUB ERAS1N COMPARE CHECK SUMS F4431010
4TZE TZE TESTST F4431020
STERR CLA ERRBX F4431030
SKIP10 TMI SKIP10+2 HAVE 5 TRIES AT READING BEEN MADE F4431040
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4431050
ADD LA1 NO, TRY READING AGAIN F4431060
STO ERRBX F4431070
TRA 4WRS TRY AGAIN TO READ IN F4431080
TESTST CLA SSBOX= IS THERE ANOTHER BLOCK ON DRUM F4431090
SUB LZSETN F4431100
TMI FXSET NO OTHER- F4431110
6SET CLA WSETY ANOTHER BLOCK-SET DRUM ADDRESS F4431120
ADD LZST1 F4431130
STO WSETY F4431140
5CLA CLA 4CPY SET ADDRESSES FOR NEXT BLOCK F4431150
SUB LAZST F4431160
STA 4CPY F4431170
STA 4ACL F4431180
CLA LFXST F4431190
STA 4TZE STORE ADDRESS FOR NEXT ROUTINE F4431200
TRA 4PXD READ IN NEXT BLOCK F4431210
REM F4431220
REM THIS ROUTINE FIXES THE SETS FOR TRANSFERS TO DOS WITH IFS F4431230
FXSET LXA ZERO,1 SET INDEX FOR FIX DO LIST F4431240
CCLA CLA FIXDOS,1 GET ENTRY FROM FIXDO LIST F4431250
TMI WRTST ALL DONE IF MINUS F4431260
PDX 0,4 SET FOR ADDRESS IN SET TABLE F4431270
CLA SETLOC,4 LOOK AT ENTRY IN SET TABLE F4431280
PDX 0,2 SET FOR ADDRESS IN BASIC BLOCK TAB.F4431290
CLA BBTABL,2 GET ADDRESS IN TRA TABLE F4431300
ADD LD7N SET FOR CORE ADDRESS OF COUNTER F4431310
STD SETLOC,4 PUT INTO SET TABLE F4431320
TXI CCLA,1,-1 LOOK AT NEXT ENTRY IN FIXDO LIST F4431330
REM F4431340
REM THIS ROUTINE WRITES THE FINISHED SET TABLE ON THE DRUM F4431350
WRTST LXD SSBOX=,3 SET INDEX REGISTERS F4431360
WRS SETDRM SELECT DRUM F4431370
PXD 0,0 F4431380
7AACL ACL SETLOC,1 COMPUTE CHECK SUM F4431390
TIX 7AACL,1,1 F4431400
SLW ERAS1N STORE CHECK SUM F4431410
LDA WSETY F4431420
7ACPY CPY SETLOC,2 COPY TABLE F4431430
TIX 7ACPY,2,1 F4431440
CPY ERAS1N COPY CHECK SUM F4431450
REM F4431460
REM THIS ROUTINE READS THE TRA TABLE FROM THE DRUM F4431470
RDTRA CLA TTBOX= F4431480
SUB LD1N F4431490
STO ERAS3N INITIALIZE ERAS3N F4431500
8PXD CLA MINUS4 INITIALIZE ERROR BOX F4431510
TRA SKIP11+3 F4431520
8WRS RDS TRADRM F4431530
LXD LZTRAN,3 SET INDICES F4431540
8CPY CPY TRATBL+1,1 COPY BLOCK OF TABLE F4431550
TIX 8CPY,1,1 F4431560
CPY ERAS1N COPY CHECK SUM F4431570
8ACL ACL TRATBL+1,2 F4431580
TIX 8ACL,2,1 F4431590
SLW ERAS2N F4431600
CLA ERAS2N F4431610
SUB ERAS1N COMPARE CHECK SUMS F4431620
TNZ TRERR IF NOT ZERO, HAS BEEN AN ERROR F4431630
CLA ERAS3N PUT NO OF WORDS COPIED IN AC F4431640
SUB LZTRAN ADD BLOCK JUST COPIED F4431650
TMI CLRNS MINUS MEANS ALL D0NE, CLEAR N LIST F4431660
STO ERAS3N STORE NUMBER OF WORDS LEFT TO COPY F4431670
CLA 8WRS NOT FINISHED--SET DRUM NUMBER FOR F4431680
ADD LA1 NEXT BLOCK F4431690
STA 8WRS F4431700
CLA 8CPY SET ADDRESSES FOR NEXT BLOCK F4431710
SUB LAZTR F4431720
STA 8CPY F4431730
STA 8ACL F4431740
TRA 8PXD COPY NEXT BLOCK F4431750
TRERR CLA ERRBX F4431760
SKIP11 TMI SKIP11+2 HAVE 5 TRIES AT READING BEEN MADE F4431770
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4431780
ADD LA1 NO, TRY READING AGAIN F4431790
STO ERRBX F4431800
PXD 0,0 CLEAR AC F4431810
TRA 8WRS TRY AGAIN F4431820
REM F4431830
REM THIS CLEARS THE LOCATION IN THE N-LIST F4431840
CLRNS LDQ ZERO F4431850
LXA LA1,4 F4431860
CLANS CLA NLIST,4 F4431870
TZE 11PXD END OF LIST-DO NEXT ROUTINE F4431880
STQ NLIST,4 STORE ZERO IN N-LIST F4431890
TXI CLANS,4,1 SET FOR NEXT WORD IN LIST F4431900
REM F4431910
REM THIS ROUTINE READS FRET FROM DRUM 2 F4431920
RDFRT SXD ERAS4N,2 SAVE INDEX REGISTERS F4431930
SXD ERAS5N,1 F4431940
11PXD CLA MINUS4 INITIALIZE ERROR BOX F4431950
TRA SKIP12+3 F4431960
11WRS RDS FRTDRM SELECT DRUM F4431970
LDA FRETY LOCATE DRUM ADDRESS F4431980
CPY ERAS2N COPY NO. 0F WORDS IN BLOCK F4431990
LXD ERAS2N,7 SET INDEX REGISTERS F4432000
11CPY CPY FRET,1 COPY BLOCK F4432010
TIX 11CPY,1,1 F4432020
CPY ERAS1N COPY CHECK SUM F4432030
CPY ERAS3N C0PY FIRST WORD OF NEXT BLOCK F4432040
11ACL ACL FRET,2 COMPUTE CHECKSUM F4432050
TIX 11ACL,2,1 F4432060
ACL ERAS2N F4432070
SLW ERAS2N F4432080
TXH 11CLA,4,0 TEST FOR FRET EMPTY F4432090
CLA NOQFD IF EMPTY--PREVENT LOOKING AT IT F4432100
STA 13TXIN-1 F4432110
TRA FXTRA GO TO MAKE UP PROBABILITIES F4432120
11CLA CLA ERAS2N COMPARE CHECKSUMS F4432130
SUB ERAS1N F4432140
TNZ FQERR IF NOT ZERO--HAS BEEN AN ERROR F4432150
12CLA CLA FRETY SET DRUM ADDRESS FOR NEXT BLOCK F4432160
ADD LZFR1 F4432170
STO FRETY F4432180
CLA ERAS3N TEST FOR END OF FRET F4432190
TNZ 12TRA-2 F4432200
CLA SKIP12+1 STORE A TSX TO PREVENT READING F4432210
STO 11PXD+1 IN MORE-THIS IS END OF TABLE F4432220
LXD ERAS5N,1 RESTORE INDEX REGISTERS F4432230
LXD ERAS4N,2 F4432240
12TRA TRA FXTRA GO TO NEXT PART OF PROGRAM F4432250
FQERR CLA ERRBX F4432260
SKIP12 TMI SKIP12+2 HAVE 5 TRIES AT READING BEEN MADE F4432270
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4432280
ADD LA1 NO, TRY READING AGAIN F4432290
STO ERRBX F4432300
PXD 0,0 F4432310
TRA 11WRS TRY AGAIN F4432320
REM F4432330
REM THIS ROUTINE PUTS THE CUMULATIVE PROBABILITIES INTO THE TRA F4432340
REM TABLE FROM THE FREQUENCY TABLE F4432350
FXTRA LXD ZERO,2 SET INDEX REGISTERS F4432360
CLA BBOX.= ADD LENGTH OF TABLE F4432370
SUB LD1N F4432380
STD 13TXH STORE FOR COMPARISON F4432390
13TXH TXH RDSET,2 HAS END OF TABLE BEEN REACHED F4432400
CAL BBTABL,2 LOOK AT ENTRY IN BB TABLE F4432410
PDX 0,1 GET ADDRESS IN TRA TABLE F4432420
ANA PFXMKN LOOK AT C0DE FOR ENDING F4432430
SUB PBYCDN IS IT A PROBABILITY CASE F4432440
TZE CLAT YES, GET PROBABILITIES F4432450
13TXIN TXI 13TXH,2,1 NO, GO TO NEXT BASIC BLOCK F4432460
CLAT CLA FRET,4 IS FORMULA NO. IN TRA TABLE THE F4432470
ALS 18 SAME AS IN FRET(FRET HAS - SIGN)F4432480
ADD TRATBL,1 F4432490
TNZ NOQFD NO, NO FREQUENCY FOUND F4432500
14TIX TNX 14LXD,4,1 SET FOR NEXT WORD F4432510
CLAFN CLA FRET,4 GET PROBABILITY FROM FRET F4432520
TMI 13TXIN MINUS INDICATES NEXT ENTRY IN FRET F4432530
STO TRATBL,1 PUT PROBABILITY IN TRA TABLE F4432540
TXI 14TIX,1,2 SET FOR NEXT ENTRY IN TRA F4432550
14LXD CLA ERAS3N TEST FOR END OF LAST BLOCK F4432560
TNZ 14CLA F4432570
CLA NOQFD END OF TABLE-PREVENT FURTHER F4432580
STA 13TXIN-1 LOOKING AT FRET F4432590
TXI 13TXH,2,1 ALSO END OF ENTRY-LOOK AT NEXT BB. F4432600
14CLA CLA TRBCK END OF BLOCK OF FRET--READ IN NEXT F4432610
STA 12TRA BLOCK, SETTING ADDRESS FOR F4432620
TRA RDFRT RETURN F4432630
NOQFD TMI NTENT FORM. NO. IN FRET IS LARGER, NOT F4432640
REM IN FRET F4432650
TIX CLAQ,4,1 FORM. NO. SMALLER, TRY NEXT ENTRY F4432660
CLAQ CLA FRET,4 LOOK AT NEXT WORD IN FRET F4432670
TMI CLAT+1 - MEANS NEW ENTRY, COMPARE TO TRA F4432680
TIX CLAQ,4,1 KEEP LOOKING FOR BEG. OF NEXT ENTRYF4432690
CLA ERAS3N END OF BLOCK REACHED F4432700
TZE NDTBL TEST FOR END OF TABLE F4432710
CLA CLAQ-1 END OF BLOCK ONLY-STORE RETURN F4432720
STA 12TRA ADDRESS AND GO TO READ F4432730
TRA RDFRT IN NEXT BLOCK F4432740
NDTBL CLA NOQFD END OF TABLE-PREVENT FURTHER F4432750
STA 13TXIN-1 LOOKING AT FRET. F4432760
NTENT CLA TRATBL-2,1 NO ENTRY IN FRET--MAKE UP FREQS F4432770
SXD ERAS1N,4 SAVE FRET ADDRESS F4432780
PDX 0,4 PUT NO. OF BRANCHES IN INDEX F4432790
CLA LD1N PUT TOTAL PROBABILITY IN AC F4432800
LDQ ZERO CLEAR MQ F4432810
DVP TRATBL-2,1 DIVIDE BY NO. OF BRANCHES F4432820
DCT F4432830
TSX RDFORT,4 BAD DIVIDE F4432840
STQ ERAS2N STORE PROBABILITY IN AC F4432850
PXD 0,0 CLEAR AC F4432860
15ADD ADD ERAS2N ADD PROB. OF BRANCH FOR CUMULATING F4432870
STO TRATBL,1 PROBABILITY AND STORE F4432880
TNX 15LXD,4,1 IS THIS BASIC BLOCK DONE F4432890
TXI 15ADD,1,2 NO, DO NEXT BRANCH F4432900
15LXD LXD ERAS1N,4 RESTORE INDEX F4432910
CLA ENDMKN F4432920
STO TRATBL,1 STORE PROBABILITY IN LAST BRANCH F4432930
TXI 13TXH,2,1 DO NEXT BASIC BLOCK. F4432940
REM F4432950
REM F4432960
REM SECTION 4 - PART 4 OF 6 F4440010
REM F4440020
REM FORTRAN EDITOR INFORMATION F4440030
REM MASTER RECORD CARD = F0690000 F4440040
REM ENTRY POINT = 42 F4440050
REM FIRST LOCATION = 33 F4440060
REM LAST LOCATION = 161 F4440070
REM F4440080
REM F4440090
ORG 27 F4440100
REM CONSTANTS AND VARIABLES F4440110
LD1P 0,0,1 F4440120
DECMKP 0,0,-1 F4440130
ADMK -1,0,-1 F4440140
BT2MK OCT 100000000000 F4440150
VISITS HTR 4000 COUNTER FOR NUMBER OF VISITS F4440160
RAND1 OCT 321702174347 F4440170
RAND2 OCT 1 F4440180
REM F4440190
REM THIS ROUTINE SIMULATES THE FLOW OF THE COMPILED PROGRAM, F4440200
REM KEEPING TRACK OF THE NUMBER OF TIMES EACH BRANCH IS TAKEN AT F4440210
REM EACH BRANCH POINT F4440220
SIMUL LXD LA1,1 PUT ZERO IN I R A F4440230
CAL TTBOX= F4440240
ARS 12 NUMBER OF STEPS IS NUMBER OF 2-WORDF4440250
STO VISITS ENTRIES IN TRATBL TIMES 128 F4440260
INTOBB CLA VISITS COUNT NO. OF BASIC BLOCKS VISITED F4440270
SUB LA1 F4440280
TMI READ5 HAVE FINISHED SIMULATION F4440290
STO VISITS F4440300
CLA BBTABL,1 GET ADDRESS OF SETS FOR THIS BB F4440310
ALS 18 F4440320
STD 1TXL F4440330
CLA BBTABL-1,1 GET FIRST ADDRESS OF SETS FOR BB F4440340
PAX 0,2 F4440350
1CLA CLA SETTAB+1,2 LOOK AT ENTRY IN SET TABLE F4440360
1TXL TXL ON,2 NO MORE SETS F4440370
PDX 0,4 PUT ADDRESS INTO INDEX F4440380
ALS 18 F4440390
STD 0,4 DO THE SET F4440400
TXI 1CLA,2,-1 DO NEXT SET F4440410
ON CAL BBTABL,1 F4440420
PDX 0,2 PUT TRATBL ADDRESS IN INDEX F4440430
SUB BT2MK F4440440
TMI DOWIF CODE IS 000, DO WITH IF F4440450
SUB BT2MK F4440460
TMI MSECSE CODE IS 001--MSE CASE F4440470
SUB BT2MK F4440480
TMI PRBYCS CODE IS 010--PROBABILITY F4440490
SUB BT2MK F4440500
TMI ENTERP CODE IS 011--CERTAINTY F4440510
SUB BT2MK F4440520
TMI TROUT CODE IS 100-- DO NO IF F4440530
SUB BT2MK F4440540
TMI GOTONP CODE IS 101-GO TO N CASE F4440550
STOPCS LXD LA1,1 -10 IS A STOP-GO TO BB ZERO F4440560
TRA INTOBB F4440570
GOTONP CLA TRATBL,2 THIS IS A GO TO N--GET ADDRESS OF F4440580
PDX 0,4 N-CELL AND PUT IN INDEX F4440590
CLA BBTABL-1,1 SAVE END OF ENTRY IN TRA TABLE F4440600
STD TXLN F4440610
CLANT CLA TRATBL-1,2 LOOK AT ENTRY IN TRAT F4440620
ANA DECMKP AND OUT ALL BUT VALUE FOR N IN TRATF4440630
SUB NLIST,4 IS THIS ENTRY FOR CURRENT VALUE F4440640
TZE ENTERP YES, ENTER F4440650
TXI TXLN,2,2 NO, LOOK AT NEXT ENTRY IN TRAT F4440660
TXLN TXL CLANT,2 TEST FOR N NOT SET F4440670
CAL BBTABL,1 F4440680
PDX 0,2 F4440690
TRA ENTERP ENTER TRA TO FIRST BRANCH GIVEN F4440700
MSECSE CLA TRATBL,2 THIS IS A MSE--GET ADDRESS OF SENSEF4440710
PDX 0,4 LIGHT CELL AND PUT IN INDEX F4440720
CLA SNSLT,4 IS LIGHT ON OR OFF F4440730
TZE MSETXI OFF--TAKE SECOND BRANCH F4440740
PXD 0,0 ON--TURN OFF, TAKE FIRST BRANCH F4440750
STO SNSLT,4 F4440760
TRA ENTERP ENTER TRANSFER F4440770
MSETXI TXI ENTERP,2,2 ENTER TRANSFER F4440780
DOWIF CLA TRATBL-2,2 THIS IS A DO WITH AN IF F4440790
ADD LD1P ADD ONE T0 LOOP COUNT F4440800
LDQ TRATBL,2 COMPARE TO NO. OF TIMES IN LOOP F4440810
TLQ TROUT TRANSFER OUT--LOOP DONE F4440820
STD TRATBL-2,2 LOOP NOT DONE-STORE NEW COUNT F4440830
TRA ENTERP TAKE TRANSFER BACK F4440840
TROUT TXI ENTERP,2,2 TAKE TRANSFER OUT F4440850
PRBYCS LDQ RAND1 THIS IS A PROBABILITY CASE F4440860
MPY RAND2 GENERATE A RANDOM NUMBER BY F4440870
STQ RAND2 MULTIPLIC. AND SAVE THE RESULT F4440880
COMP CLA TRATBL,2 COMPARE TO CUMULATIVE PROB IN TRA F4440890
TLQ ENTERP FOUND, TAKE TRANSFER F4440900
TXI COMP,2,2 NOT FOUND--LOOK AT NEXT BRANCH F4440910
ENTERP CLA TRATBL-1,2 THIS IS THE BRANCH TO BE TAKEN F4440920
PDX 0,1 PUT NO. OF NEXT BASIC BLOCK IN IR AF4440930
ADD LA1 ADD 1 TO COUNTER FOR THIS TRANSFER F4440940
STA TRATBL-1,2 STORE COUNT F4440950
SUB TRATBL-1,2 TEST FOR OVERFLOW F4440960
TZE INTOBB NO OVERFLOW, DO NEXT BB F4440970
OVRFLO CLA ADMK F4440980
STA TRATBL-1,2 STORE MAXIMUM COUNT F4440990
TRA INTOBB F4441000
READ5 RDS SYSTAP F4441010
TRA RDFORT F4441020
REM F4441030
REM F4441040
REM SECTION 4 - PART 5 OF 6 F4450010
REM F4450020
REM FORTRAN EDITOR INFORMATION F4450030
REM MASTER RECORD CARD = F0710000 F4450040
REM ENTRY POINT = 42 F4450050
REM FIRST LOCATION = 33 F4450060
REM LAST LOCATION = 205 F4450070
REM F4450080
REM F4450090
ORG 27 F4450100
REM CONSTANTS AND VARIABLES F4450110
TGMSK OCT 700000 F4450120
RTMSK OCT 777777 F4450130
CODMK OCT -300000000000 F4450140
DOYY DOADDR F4450150
MPYR1 F4450160
MPYR2 F4450170
BBBOX F4450180
REM F4450190
REM THIS ROUTINE PUTS THE DO LIST INTO STORAGE FROM THE DRUM F4450200
RDDOS CLA MINUS4 INITIALIZE ERROR BOX F4450210
STO ERRBX F4450220
RDSDOL RDS DODRUM F4450230
LXD DOBOX=,3 F4450240
LDA DOYY F4450250
TXL READ6,1,0 IF NO DOS-GO TO TAG PASS F4450260
CPY DOBLOK,1 F4450270
SELF32 TIX SELF32-1,1,1 F4450280
CPY MPYR2 F4450290
PXD F4450300
ACL DOBLOK,2 F4450310
SELF33 TIX SELF33-1,2,1 F4450320
SLW MPYR1 F4450330
CLA MPYR1 F4450340
SUB MPYR2 F4450350
TZE FXDOS F4450360
CLA ERRBX F4450370
SKIP13 TMI SKIP13+2 HAVE 5 TRIES AT READING BEEN MADE F4450380
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4450390
ADD LA1 NO, TRY READING AGAIN F4450400
STO ERRBX F4450410
TRA RDSDOL F4450420
REM F4450430
REM THIS ROUTINE FIXES THE COUNTERS FOR BASIC BLOCKS IN DOS F4450440
REM WITHOUT IFS F4450450
FXDOS PXD F4450460
ZSTO STO LCNTR,2 F4450470
TXH ZLXD,2,150 CLEAR L-C0UNTERS TO INITIALIZE F4450480
TXI ZSTO,2,1 F4450490
ZLXD LXD LA1,4 SET INDEX REGISTER--0 IN IR C F4450500
LXA LA1,2 ONE IN B F4450510
CLA DOBOX= PUT LENGTH OF TNX TABLE IN 9TSTND F4450520
STD 9TSTND F4450530
LOOKDO CLA DOBLOK-1,2 LOOK AT ENTRY IN DO LIST F4450540
ANA TGMSK DOES THIS DO HAVE AN IF F4450550
4TXI TXI 4TXI+1,2,2 SET FOR NEXT ENTRY IN DO LIST F4450560
TNZ 9TSTND DO HAS IF-LOOK AT NEXT F4450570
CLA LA1 NO IF-START FIXING COUNTERS F4450580
STO LCNTR,4 PUT ONE IN COUNTER ZERO F4450590
TXI 4CLA,4,1 F4450600
4CLA CLA DOBLOK+1,2 F4450610
STD BBBOX STORE NO. OF THIS BB. F4450620
CLA DOBLOK+2,2 F4450630
STA LCNTR,4 STORE NO. TIMES IN LOOP IN COUNTERSF4450640
NTHRDO CLA DOBLOK-1,2 IS THERE ANOTHER TXL TO THIS ADDR. F4450650
SUB DOBLOK+1,2 F4450660
TNZ ENDBBQ NO, LOOK AT END OF THIS B.B. F4450670
BEGDO TXI CLANO-1,4,1 YES, INCREASE L BOX BY 1 F4450680
TXI CLANO,2,2 SET FOR NEXT ENTRY IN TNX LIST F4450690
CLANO CLA DOBLOK+2,2 GET NO. OF TIMES IN THIS DO F4450700
STA LCNTR,4 4 F4450710
LDQ LCNTR,4 MULTIPLY NO OF TIMES IN THIS D0 F4450720
MPY LCNTR+1,4 BY NO. OF TIMES IN OUTER DOS F4450730
STQ LCNTR,4 STORE IN COUNTER FOR THIS DO F4450740
TRA NTHRDO SEE IF THERE IS ANOTHER TNX TO THISF4450750
ENDBBQ LXD BBBOX,1 THIS IS END 0F BB IN DO WITHOUT IF F4450760
CLA BBTABL,1 LOOK AT ENTRY ON BB TABLE F4450770
PDX 0,1 GET ADDRESS IN TRA TABLE F4450780
ANA CODMK LOOK AT ENDING CODE F4450790
TZE ENDDO ZERO INDICATES DO ENDING F4450800
CLA TRATBL-1,1 A CERTAINTY CASE--LOOK AT TRATBL F4450810
ANA RTMSK GET COUNTER FROM TRA TABLE F4450820
STO MPYR1 F4450830
LDQ MPYR1 MULTIPLY C0UNTER BY NUMBER OF TIMESF4450840
MPY LCNTR,4 THIS LOOP IS DONE F4450850
STQ MPYR1 F4450860
CLA MPYR1 F4450870
CAS RTMSK TEST FOR COUNTER OVERFLOW F4450880
CLA RTMSK COUNTER HAS OVERFLOWED F4450890
NOP NO OVERFLOW F4450900
STA TRATBL-1,1 PUT ALL ONES IN C0UNTER F4450910
6LXD LXD BBBOX,1 F4450920
TXI NXTBB,1,1 SET FOR NEXT BB--DOES IT BEGIN A DOF4450930
NXTBB PXD 0,1 LOOK AT NEXT BB F4450940
STD BBBOX DOES THIS BB START A DO F4450950
SUB DOBLOK-1,2 COMPARE TO DO LIST F4450960
TZE BEGDO F4450970
TRA ENDBBQ F4450980
ENDDO CLA TRATBL-3,1 THIS IS THE END 0F A DO WITHOUT IF F4450990
ANA RTMSK F4451000
STO MPYR1 F4451010
LDQ MPYR1 MULTIPLY COUNTER BY TOTAL NO OF F4451020
MPY LCNTR,4 TIMES IN LOOP F4451030
STQ MPYR2 STORE NO IN MPYR2 F4451040
LDQ MPYR1 MULTIPLY COUNTER BY NO TIME DO IS F4451050
MPY LCNTR+1,4 STARTED TO GET COUNTER OUT F4451060
STQ MPYR1 F4451070
CLA MPYR1 F4451080
CAS RTMSK TEST FOR COUNTER OVERFLOW F4451090
CLA RTMSK COUNTER HAS OVERFLOWED-USE MAX. NO.F4451100
NOP NO OVERFLOW F4451110
STA TRATBL-3,1 STORE NO TIMES OUT IN COUNTER OUT F4451120
CLS MPYR1 F4451130
ADD MPYR2 F4451140
CAS RTMSK TEST FOR COUNTER OVERFLOW F4451150
CLA RTMSK COUNTER HAS OVERFLOWED-USE MAX. NO.F4451160
NOP NO OVERFLOW F4451170
STA TRATBL-1,1 STORE NO TIMES BACK IN COUNT. BACK F4451180
TXI 9TXL,4,-1 DECREASE LEVEL COUNTER FOR DO DONE F4451190
9TXL TXH 6LXD,4,0 IS THIS THE END OF OUTER DO F4451200
9TSTND TXL LOOKDO,2 YES, IS IT END OF PROBLEM F4451210
READ6 RDS SYSTAP F4451220
TRA RDFORT YES, GO TO NEXT ROUTINE F4451230
REM F4451240
REM F4451250
REM SECTION 4 - PART 6 OF 6 F4460010
REM F4460020
REM FORTRAN EDITOR INFORMATION F4460030
REM MASTER RECORD CARD = F0730000 F4460040
REM ENTRY POINT = 100 F4460050
REM FIRST LOCATION = 33 F4460060
REM LAST LOCATION = 1021 F4460070
REM F4460080
REM F4460090
ORG 27 F4460100
REM CONSTANTS AND VARIABLES F4460110
LOR F4460120
LC1 -1 F4460130
L5 5 F4460140
L6R 6 F4460150
L8 8 F4460160
L2043 2043 F4460170
L2047 2047 F4460180
L2048 2048 F4460190
LD1R 0,0,1 F4460200
STMSK OCT 777770 F4460210
TAGMK OCT 777777 F4460220
TMARK OCT 33000000 F4460230
DECMKR OCT 77777000000 F4460240
MASK OCT 37777037777 F4460250
14ONES OCT 377770000000 F4460260
LZTAG 0,0,ZTAG F4460270
REM OPERATION CODES OF TYPES OF REFERENCES F4460280
OCT 36721000000 LXA F4460290
OCT 36731000000 TXI F4460300
OCT 33167000000 TIX F4460310
OCT 36747000000 LXP F4460320
OCT 42524000000 DED F4460330
OCT 36724000000 LXD F4460340
OCT 72167000000 PAX F4460350
LCOPS OCT 72467000000 PDX F4460360
BBLYR BBLADD F4460370
BBTY F4460380
LA301 WDR 1 F4460390
LTRND TRA NDDR F4460400
ERAS1R F4460410
ERAS2R F4460420
IINBX 1 F4460430
INSX F4460440
TGPBOX MZE 0,0,1 F4460450
BLKNO 0,0,76 F4460460
BLKSIZ LENGTH OF BLOCK TO BE STORED F4460470
LENGTH TOTAL LENGTH OF TABLE LEFT TO STOREF4460480
BLKMAX 0,0,BBSIZE BB BLOCK SIZE IN CS F4460490
REM F4460500
REM THIS ROUTINE ALTERS THE TRATBL INTO SUCC TABLE AND PUTS IT F4460510
REM ON THE DRUM. F4460520
START REW INSTTP F4460530
CLA TTBOX= F4460540
PDX 0,1 PUT LENGTH OF TABLE IN INDEX F4460550
TXH ISPRED,1,0 F4460560
NOPRED STO PREDBX F4460570
STO SUCCBX THERE IS NO PRED TABLE-SPACE OVER F4460660
STA BBTABL-1 F4460590
STA BBTABL F4460600
TRA RDBBL F4460610
ISPRED ARS 19 F4460620
STA TSX+1 STORE LENGTH FOR PUTTING SUCCESSOR F4460630
STA TSX2+1 AND PREDECESSOR TABLES ON DRUM F4460640
1LDQ LDQ PRED+1,1 MOVE SUCCESSOR ADDRESS FROM DECR. F4460650
CLA PRED+1,1 TO ADDRESS PART OF ENTRY WORD F4460660
ALS 3 AND COUNTER FROM ADDRESS TO F4460670
LGL 18 BITS 1-14 F4460680
PBT TEST FOR OVERFLOW F4460690
TRA 1STO NO OVERFLOW F4460700
ORA 14ONES OVERFLOW-ENTER HIGHEST POSSIBLE NO F4460710
1STO STO PRED+2,1 STORE SHIFTED ENTRY F4460720
TIX 1LDQ,1,2 DO NEXT ENTRY F4460730
TSX TSX DRUM.J,4 F4460740
HTR NUMBER OF ENTRIES ON TABLE F4460750
HTR PRED CORE MEMORY ADDRESS OF LAST WORD F4460760
HTR 0 DRUM ADDRESS AUTOMATICALLY SET FOR F4460770
REM NEXT TRY F4460780
CLA TSX+3 F4460790
STO TSX2+3 F4460800
STO SUCCBX F4460810
REM F4460820
REM THIS PUTS THE BASIC BLOCK NUMBER OF THE PREDECESSOR IN THE F4460830
REM TRA TABLE F4460840
CLA BBOX.= F4460850
SUB LD1R F4460860
STD NBOXR F4460870
LXA LOR,2 F4460880
LXD LD1R,1 ONE INTO INDEX A F4460890
CLABB CLA BBTABL-1,2 GET ADDRESS IN TRA TABLE F4460900
STD TXBB F4460910
PXD 0,2 PUT PRED NO IN TRA ENTRY F4460920
ARS 18 F4460930
TXBB TXH NBOXR-1,1 TEST FOR END 0F TABLE F4460940
1STD STA PRED+1,1 F4460950
TXI TXBB,1,2 SET FOR NEXT TRA F4460960
TXI NBOXR,2,1 SET FOR NEXT BASIC BLOCK F4460970
NBOXR TXL CLABB,2 TEST FOR LAST BB F4460980
REM F4460990
REM THIS PART SORTS THE ALTERED SUCCESSOR TABLE INTO THE F4461000
REM PREDECESSOR TABLE F4461010
2TXI TXI 2TXI+1,1,-3 LAST ADDRESS IN PRED INTO I R A F4461020
TXL PRDBB,1,0 TEST FOR ONLY ONE ENTRY IN PRED F4461030
LXABB PXD 0,1 F4461040
PDX 0,2 F4461050
CLA PRED-1,1 TAKE ENTRIES FOR COMPARISON F4461060
LDQ PRED,1 FIND LARGEST ELEMENT LEFT IN TABLE F4461070
2CAS CAS PRED+1,2 F4461080
TRA 2TIX F4461090
TRA 2TIX F4461100
STQ ERAS1R F4461110
LDQ PRED+1,2 EXCHANGE ENTRIES-- STORAGE IS GREATF4461120
STO PRED+1,2 F4461130
CLA ERAS1R F4461140
STQ ERAS1R F4461150
LDQ PRED+2,2 F4461160
STO PRED+2,2 F4461170
CLA ERAS1R F4461180
2TIX TIX 2CAS,2,2 TEST FOR END OF TABLE F4461190
STO PRED-1,1 THIS IS LARGEST ENTRY NOT SORTED F4461200
STQ PRED,1 YET, STORE AND CONTINUE SORT F4461210
TIX LXABB,1,2 HAS ENTIRE TABLE BEEN SORTED YET F4461220
REM F4461230
REM THIS PUTS THE ADORESSES OF ENTRIES IN THE PREDECESSOR TABLE F4461240
REM INTO THE BASIC BLOCK TABLE F4461250
PRDBB LXD BBOX.=,2 PUT LAST BB ADDRESS INTO IR B F4461260
LXD TTBOX=,5 PUT LAST PRED ADDRESS INTO A AND C F4461270
3PXD PXD 0,4 NEW BB F4461280
ARS 18 F4461290
STA BBTABL,2 PUT PRED ADDR IN BB TABLE F4461300
3TXI TXI 3TXI+1,4,-2 SET FOR NEXT ENTRY IN BB TABLE F4461310
TNX 3ENO,2,1 IS THIS THE END OF THE TABLE F4461320
PXD 0,2 PUT NEW BB NO IN AC FOR COMPARISON F4461330
CAS CAS PRED+1,4 COMPARE BB NO IN PRED TABLE TO BB F4461340
TRA 3PXD NO IN AC F4461350
NOP EQUALITY NOT POSSIBLE F4461360
TIX CAS,4,2 F4461370
STA BBTABL-1 PUT ZERO AS PRED FOR BB1 F4461380
3ENO PXD 0,0 PUT ZERO AS PRED ADDR INTO TABLE F4461390
STA BBTABL FOR BB ZERO F4461400
TSX2 TSX DRUM.J,4 PUT PRED TABLE ON DRUM F4461410
HTR F4461420
HTR PRED CORE MEMORY ADDRESS OF LAST WORD F4461430
HTR --DRUM ADDRESS F4461440
CLA TSX2+3 F4461450
STO PREDBX SAVE DRUM ADDRESS F4461460
REM F4461470
REM THIS ROUTINE ADJUSTS THE ADDRESSES IN THE BB TABLE TO F4461480
REM CORRESPOND TO ONE WORD ENTRIES IN THE PREDECESSOR AND F4461490
REM SUCCESSOR TABLES F4461500
SHFTBB LXD BBOX.=,2 SET INDEX F4461510
TXI CAL4,2,1 F4461520
CAL4 CAL BBTABL+1,2 F4461530
ANA MASK F4461540
ARS 1 , F4461550
STD BBTABL+1,2 F4461560
STA BBTABL+1,2 F4461570
TIX CAL4,2,1 F4461580
REM F4461590
REM THIS ROUTINE READS THE BASIC BLOCK LIST FROM THE DRUM F4461600
RDBBL CLA MINUS4 INITIALIZE ERROR BOX F4461610
TRA SKIP14+3 F4461620
BRDS RDS BBLDRM F4461630
LDA BBLYR F4461640
LXD BBOX.=,3 F4461650
BCPY CPY BBLIST,1 F4461660
TIX BCPY,1,1 F4461670
CPY BBLIST F4461680
CPY ERAS1R F4461690
BACL ACL BBLIST,2 F4461700
TIX BACL,2,1 F4461710
ACL BBLIST F4461720
SLW ERAS2R F4461730
CLA ERAS2R F4461740
SUB ERAS1R F4461750
TZE TAGPAS F4461760
CLA ERRBX F4461770
SKIP14 TMI SKIP14+2 HAVE 5 TRIES AT READING BEEN MADE F4461780
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4461790
ADD LA1 NO, TRY READING AGAIN F4461800
STO ERRBX F4461810
PXD F4461820
TRA BRDS F4461830
REM F4461840
REM THIS ROUTINE COMPILES THE LIST OF TAGGED INSTRUCTIONS F4461850
TAGPAS LXA LOR,2 INITIALIZE INDEX REGISTERS F4461860
LXA LA1,4 F4461870
RDINSR CLA MINUS4 INITIALIZE ERROR BOX F4461880
STO ERRBX F4461890
LXA TAGMK,1 F4461900
RDSIN RDS INSTTP F4461910
CPYN CPY INSTR-1,1 COPY BLOCK F4461920
TXI CPYN,1,1 F4461930
TRA OUTR END OF FILE-EXIT F4461940
ENDRC RTT F4461950
TRA ERRORR F4461960
1ALXD SXD LZINS,1 STORE LENGTH OF RECORD TO COMPARE F4461970
LXA LOR,1 CONTINUE TAG PASS F4461980
TRA LZINS+1 F4461990
ERRORR CLA ERRBX F4462000
SKIP15 TMI SKIP15+2 HAVE 5 TRIES AT READING BEEN MADE F4462010
TSX RDFORT,4 YES, GO TO DIAGNOSTIC ROUTINE F4462020
ADD LA1 NO, TRY READING AGAIN F4462030
STO ERRBX F4462040
BST INSTTP F4462050
TRA RDSIN-1 TRY AGAIN TO READ IN RECORD. F4462060
INTBB PXD 0,4 PUT TAG ADDR IN BB LIST F4462070
ADD TGPBOX F4462080
ARS 18 F4462090
ORA TMARK F4462100
STO BBTAGS,2 F4462110
BGTXI TXI BGTXI+1,2,1 F4462120
CAL INST.R-3,1 IS THIS THE INSTRUCTION TAGGED F4462130
ANA STMSK F4462140
TZE TXINS NO F4462150
CLA INST.R-3,1 YES, F4462160
ANA TAGMK F4462170
SSM AND A MINUS FOR 1ST INST IN A BASICF4462180
STO TAG,4 BLOCK INTO TAG LIST F4462190
TSTOP SXD ERAS1R,2 SAVE INDEX F4462200
LXA L8,2 SET FOR A COMPARISON F4462210
CLA INST.R-1,1 COMPARE OP CODE OF INSTRUCTION F4462220
ANA DECMKR F4462230
SUB SUB LCOPS+1,2 OP CODES OF TYPES 0F TAGGED INSTRS F4462240
TZE TROPS+1,2 TRANSFER WHEN FOUND F4462250
ADD LCOPS+1,2 RESTORE ORIGINAL CODE TO AC F4462260
TIX SUB,2,1 TRY NEXT COMPARISON F4462270
LD5 TXI STOCD,2,5 NOT FOUND-IS PASSIVE -WANT 6 IN IRBF4462280
REM GET CODE FOR TYPE OF INSTRUCTION INTO INDEX F4462290
TXI STOCD,2,-7 LXA--INDEX HAS 8, WANT 1 F4462300
TXI STOCD,2,-2 TXI--INDEX HAS 7, WANT 5 F4462310
TXI STOCD,2,-1 TIX--INDEX HAS 6, WANT 5 F4462320
TXI STOCD,2,-3 LXP--INDEX HAS 5, WANT 2 F4462330
TXI STOCD,2,-1 DED--INDEX HAS 4, WANT 3 F4462340
TXI STOCD,2,-2 LXD--INDEX HAS 3, WANT 1 F4462350
TXI STOCD,2,-1 PAX--INDEX HAS 2, WANT 1 F4462360
TROPS TRA STOCD PDX--INDEX HAS 1, WANT 1 F4462370
STOCD PXD 0,2 STORE CODE FOR TYPE OF OPERATION INF4462380
STD TAG,4 TAG LIST F4462390
LXD ERAS1R,2 F4462400
TXI TSTTG,4,1 SET FOR NEXT WORD IN TAG LIST F4462410
TSTTG TNX TXINS,4,ZTAG TEST FOR END OF BLOCK F4462420
WRTAG WRS TAGTAP END OF BLOCK--WRITE ON TAPE F4462430
TGCPY CPY TAG,4 F4462440
TGTXI TXI TGTXI+1,4,1 F4462450
TNX TGCPY,4,ZTAG F4462460
CLA TGPBOX F4462470
ADD LZTAG F4462480
TGSTO STO TGPBOX F4462490
TXINS TXI TXINS+1,1,4 F4462500
LZINS TIX RDINSR,1,ZINSTR F4462510
CLA INSTR,1 IS THIS THE BEG OF A BASIC BLOCK F4462520
SUB BBLIST,2 F4462530
TZE INTBB YES F4462540
CLA INST.R-3,1 NO, IS IT TAGGED F4462550
ANA STMSK F4462560
TZE TXINS NO F4462570
CLA INST.R-3,1 YES F4462580
ANA TAGMK F4462590
TRA TSTOP-1 F4462600
OUTR PXD 0,4 F4462610
ADD TGPBOX F4462620
ARS 18 F4462630
ORA TMARK F4462640
STO BBTAGS,2 F4462650
TXH WRTG2,4,1 F4462660
CLA TGPBOX F4462670
TPL TPL FINAL F4462680
WRTG2 CLA TPL F4462690
STO TGSTO F4462700
LXA LA1,4 F4462710
TRA WRTAG F4462720
FINAL CLA BBOX.= F4462730
ADD LD1R F4462740
STO BBOX.= F4462750
CLA PREDBX F4462760
STO BBTBOX F4462770
CLA DECMKR WANT TXL TO HAVE BLK-1 F4462780
STD TXLBBT LATER F4462790
IOD F4462800
LDQ BLKMAX COMPUTE NO. OF BB IN BLOCK F4462810
PXD F4462820
DVP L6R F4462830
DCT F4462840
TSX RDFORT,4 BAD DIVIDE F4462850
STQ BLKNO F4462860
LDQ BBOX.= F4462870
MPY L6R F4462880
STQ LENGTH STORE TOTAL LNGTH OF TABLE FOR DRUMF4462890
LXD LA1,1 F4462900
NXTBL CLA BBTBOX COMPUTE WRS ADDRESSES F4462910
ANA L2047 F4462920
STA BBTY STORE DRUM ADDRESSES F4462930
CLA BBTBOX F4462940
ARS 11 F4462950
ADD LA301 F4462960
STA WRS1 F4462970
ADD LA1 F4462980
STA NDWRS F4462990
CLA LENGTH F4463000
TZE OUT2 F4463010
TMI OUT2 FORM NEW TABLE LENGTH F4463020
SUB BLKMAX F4463030
STO LENGTH IS THIS A FULL BLOCK F4463040
TMI LSTBLR NO, PUT IN ACTUAL LENGTH F4463050
PXD YES, PUT IN FULL BLOCK LENGTH F4463060
LSTBLR ADD BLKMAX FORM NEXT DRUM ADDRESS F4463070
ARS 18 F4463080
ADD BBTBOX F4463090
ADD LA1 F4463100
STO BBTBOX F4463110
LXA IINBX,4 RESTORE INSTRUCTION REPLACED FOR F4463120
CLA INSX END OF PREVIOUS BLOCK F4463130
STO CPY1A,4 F4463140
CAL TXLBBT COMPUTE NEW TEST DECREMENTS FOR F4463150
ADD BLKNO TESTING END OF BLOCK--THE VALUE F4463160
STD TXLBBT IS THE NUMBER OF THE LAST BASIC F4463170
STD TXL2 BLOCK WHICH WILL FIT IN THIS BLKF4463180
STD TXL3 F4463190
ANA DECMKR F4463200
ADD LD1R IS THIS LARGER THAN THE NUMBER OF F4463210
SUB BBOX.= THE LAST BASIC BLOCK F4463220
TMI COMB NO F4463230
CLA BBOX.= YES, TEST DECREMENT SHOULD BE F4463240
SUB LD1R NUMBER OF LAST BB INSTEAD F4463250
STD TXLBBT F4463260
STD TXL2 F4463270
STD TXL3 F4463280
COMB CLA L2047 F4463290
SUB BBTY SET B FOR TEST FOR END OF DRUM F4463300
PAX 0,2 NUMBER OF WORDS LEFT ON DRUM INTO BF4463310
ADD LA1 F4463320
LRS 35 ARRANGE CONNECTION TO 2ND LOOP F4463330
DVP L6R FIND OUT WHICH OF THE 6 WORDS IN F4463340
REM AN ENTRY WILL OCCUPY THE LAST F4463350
REM POSITION ON THE DRUM F4463360
DCT F4463370
TSX RDFORT,4 BAD DIVIDE F4463380
SUB LA1 F4463390
TMI ZREM BREAK IS BETWEEN ENTRIES (PUT 5 F4463400
REM INTO AC) F4463410
TNZ FREM MORE THAN ONE WORD FITS (LEAVE F4463420
REM NO-I IN AC) F4463430
CLA LC1 EXACTLY 1 WORD FITS (PUT LC1 IN AC)F4463440
FREM ALS 1 GET ADDRESS OF INSTRUCTION TO BE F4463450
COM REPLACED BY TRA TO 2ND LOOP F4463460
STA IINBX SAVE ADDRESS 0F THIS ONE F4463470
LXA IINBX,4 F4463480
LDQ CPY1A,4 REPLACE PROPER INSTRUCTION WITH A F4463490
REM TRANSFER TO TAKE CARE OF END F4463500
REM OF DRUM SITUATION F4463510
CLA LTRND F4463520
STO CPY1A,4 STORE A TRA NDDR F4463530
STQ INSX F4463540
WRS1 WRS SELECT DRUM F4463550
PXD F4463560
TXL LDA1,2,0 INDEX B HAS NO. OF WORDS LEFT ON F4463570
REM DRUM, ONLY 1 WORD FITS ON DRUM F4463580
TNX NOBK,2,6 LESS THAN 6 WORDS FIT F4463590
LDA BBTY MAIN LOOP FOR STORING BB TABLE F4463600
CPY1R CPY BBTABL,1 WRITE SIX WORDS OF ENTRY F4463610
ACL BBTABL,1 F4463620
CPY BBTAGS,1 F4463630
ACL BBTAGS,1 F4463640
CPY LOR F4463650
SLW ERAS1R F4463660
CPY LOR F4463670
TXI CPY5,1,1 INCREASE INDEX OF POSITION IN BBT F4463680
CPY5 CPY LOR F4463690
TNX CPY6C,2,6 TEST FOR NEARING END OF DRUM F4463700
CPY6 CPY LOR (LESS THAN 6 WORDS LEFT) F4463710
TXLBBT TXL CPY1R,1 F4463720
CPY ERAS1R WHOLE BLOCK FITS, COPY CHECKSUM F4463730
TRA NXTBL F4463740
CPY6C CPY LOR F4463750
TXL2 TXL CPY1A,1,XXXXXX F4463760
CPY ERAS1R F4463770
TRA NXTBL F4463780
DUMM HTR USED IN SWITCHING AT END OF BLOCK F4463790
REM ONE OF THE FOLLOWING INSTRUCTIONS IS ALWAYS REPLACED BY F4463800
REM TRANSFER TO SECOND DRUM. F4463810
CPY1A CPY BBTABL,1 F4463820
ACL BBTABL,1 F4463830
CPY2A CPY BBTAGS,1 F4463840
ACL BBTAGS,1 F4463850
CPY3A CPY LOR F4463860
SLW ERAS1R F4463870
CPY4A CPY LOR F4463880
TXI CPY5A,1,1 F4463890
CPY5A CPY LOR F4463900
NOP F4463910
CPY6A CPY LOR F4463920
TXL3 TXL CPY1B,1,XXXXXX F4463930
CPY7A CPY ERAS1R F4463940
TRA NXTBL F4463950
NOBK LDA BBTY F4463960
TRA CPY1A F4463970
NDDR LXA L2048,2 SELECT 2ND DRUM F4463980
NDWRS WRS F4463990
TRA CPY1R,4 F4464000
LDA1 LDA BBTY F4464010
CPY1B CPY BBTABL,1 F4464020
LXD LMLE,4 PRESET RETURN TO MAIN LOOP F4464030
LMLE TXI NDDR,0,-1 F4464040
ZREM CLA L5 IF DRUM ENDS WITH LAST WORD IN AN F4464050
TRA FREM ENTRY F4464060
REM F4464070
REM THIS ROUTINE WRITES BBLIST ON TAPE 3. F4464080
OUT2 WEF BLT F4464090
LXD BBOX.=,1 F4464100
CLA BBOX.= F4464110
ARS 18 F4464120
STO BBOX.= F4464130
LXD WBL2,2 F4464140
WRS BLT F4464150
WBL1 CPY BBOX.=,2 WRITE BB LIST F4464160
WBL2 TXI WBL2+1,2,1 F4464170
TIX WBL1,1,1 F4464180
BST BLT F4464190
BST BLT F4464200
BST BLT F4464210
RDS BLT F4464220
LXA MINUS4,1 MOVES KEYS FOR SECTION 5 IN F4464230
KEYS CLA 4096,1 8-1-4-1 SYSTEM, DOES NOTHING IN F4464240
STO 8192,1 4-1-4-1 SYSTEM. F4464250
TIX KEYS,1,1 F4464260
RDS SYSTAP F4464270
TRA RDFORT F4464280
REM F4464290
REM THIS DRUM SUBROUTINE TRANSFERS A TABLE TO THE DRUM,TABLE IS F4464300
REM BACKWARDS IN CM AND STORED EVERY OTHER WORD. GOES FORWARD ON F4464310
REM DRUM. CALLING SEQUENCE IS, F4464320
REM TSX DRUM,4 F4464330
REM HTR N N IS NUMBER OF ENTRIES IN THE TABLE F4464340
REM HTR A A IS CM ADDRESS OF LAST ENTRY IN F4464350
REM TABLE F4464360
REM HTR D D IS DRUM ADDRESS,0-8191 F4464370
REM UPON RETURN, NEXT AVAILABLE DRUM ADDRESS HAS REPLACED THE F4464380
REM HTR D F4464390
REM A CHECK SUM IS PUT AFTER EVERY B WORDS,SEE THE NEXT CARD. F4464400
REM A MUST BE GREATER THAN 1,N GETS REPLACED BY 0 F4464410
GP1..J HTR BBBB.J ADDRESS HAS B. F4464420
DRUM.J CLA 2,4 SET ADDRESSES DEPENDENT ON INITIAL F4464430
STA G7...J TABLE ADDRESS IN CORES F4464440
STA G22..J F4464450
STA G17..J F4464460
STA G33..J F4464470
SUB TWOA.J F4464480
STA G14..J F4464490
G1...J LXD GK6..J,1 INITIALIZE INDEX 0F POSITION IN F4464500
SXD G8...J,1 TABLE. F4464510
G2...J CLA 1,4 FORM N-B F4464520
SUB GP1..J F4464530
TMI G3...J IS N LARGER THAN B F4464540
STO 1,4 YES STORE NEW N F4464550
CLA GP1..J PREPARE TO TRANSFER B WORDS F4464560
G4...J TZE 4,4 IF NO WORDS LEFT,RETURN F4464570
STO GV2..J F4464580
LXD G8...J,1 CURRENT INDEX TO A F4464590
G5...J TXI G5...J+1,1,2 UP IT,IT LAGS BEHIND F4464600
SXD GV3..J,1 F4464610
ALS 19 F4464620
SUB G8...J THE TXL IS NEGATIVE F4464630
PDX 0,2 F4464640
SXD G8...J,2 SET NEW END TEST F4464650
CLA ZERO.J F4464660
G6...J TXI G6...J+1,1,2 CHECK F4464670
G7...J ACL TABLEJ,1 F4464680
TXH G31..J,2,4093 SUM. F4464690
G8...J TXL G6...J,1,SET..J F4464700
G31..J SLW GV4..J STORE CHECK SUM F4464710
CLA 3,4 SPACE LEFT ON DRUM, NEGATIVE F4464720
ANA GK1..J F4464730
SUB GK2..J F4464740
ADD GV2..J WILL BLOCK FIT F4464750
TMI G9...J F4464760
G20..J STO GV6..J NO,STO. AMOUNT LEFT OVER F4464770
SUB GV2..J F4464780
SSP IN AC IS DRUM SPACE F4464790
STO GV2..J F4464800
ALS 19 F4464810
ADD GV3..J FORM INITIALIZING INDEX F4464820
PDX 0,2 FOR 2ND HALF F4464830
LXD GV3..J,1 LOAD BEFORE STORING BACK F4464840
SXD GV3..J,2 F4464850
G30..J TXI G30..J+1,2,-2 END TEST IS 2 LESS F4464860
SXD G23..J,2 F4464870
CLA GK4..J DRUM SELECTION ROUTINE F4464880
TSX G11..J,2 ALS0 STORES SWITCH F4464890
TRA G15..J F4464900
G24..J CLA 3,4 F4464910
SUB ONEA.J F4464920
STO 3,4 SET BLOCK LENGTH TO NO. OF F4464930
CLA GV6..J WORDS LEFT. F4464940
STO GV2..J F4464950
TRA G10..J F4464960
G9...J ADD ONEA.J DOES SUM CHECK FIT TOO F4464970
TMI G10..J F4464980
G19..J CLA GK3..J NO F4464990
TSX G11..J,2 F4465000
ADD ONEA.J ARRANGE TO PUT CK SUM F4465010
STA G25..J ON NEXT DRUM F4465020
TRA G12..J F4465030
G25..J WRS SET..J F4465040
G26..J CPY GV4..J COPY CHECK SUM. F4465050
TRA G2...J F4465060
G3...J LDQ ZERO.J RECORD THAT THERE ARE NO WORDS LEFTF4465070
CLA 1,4 F4465080
STQ 1,4 F4465090
TRA G4...J F4465100
G10..J CLA G26..J SUM CK. FITS TOO F4465110
TSX G11..J,2 F4465120
G12..J CLA G8...J F4465130
STD G23..J SET END TEST F4465140
LXD GV3..J,1 F4465150
G15..J CLA GV2..J F4465160
LBT IS BLOCK LENGTH ODD F4465170
TRA G13..J NO F4465180
LDQ ONEA.J F4465190
TLQ G32..J IS IT EQUAL TO ONE F4465200
LDA GV5..J YES, TRANSFER THE SINGLE WORD F4465210
G34..J TXI G34..J+1,1,2 F4465220
G33..J CPY TABLEJ,1 F4465230
TRA G18..J F4465240
G32..J LDA GV5..J COPY WORDS 0NTO THE DRUM F4465250
G27..J TXI G27..J+1,1,2 F4465260
G22..J CPY TABLEJ,1 F4465270
G14..J CPY TABLEJ-2,1 F4465280
G16..J TXI G16..J+1,1,4 F4465290
G17..J CPY TABLEJ,1 F4465300
G23..J TXL G14..J,1 F4465310
G18..J CPY GV4..J OR TRA G25 OR TRA G24 F4465320
TRA G2...J F4465330
G13..J LDA GV5..J F4465340
TRA G14..J F4465350
REM F4465360
REM DRUM SELECTION SUBROUTINE,COMPUTES NEW DRUM ADDRESS F4465370
G11..J STO G18..J STORE SWITCH WORD. F4465380
CLA 3,4 PRESERVE DRUM ADDRESS F4465390
STO GV5..J F4465400
ADD GV2..J FORM THE NEW DRUM ADDRESS F4465410
ADD ONEA.J F4465420
STO 3,4 F4465430
CLA GV5..J SELECT THE DRUM F4465440
ARS 11 F4465450
ADD GK5..J F4465460
STO G21..J F4465470
G21..J WRS F4465480
TRA 1,2 F4465490
REM F4465500
REM FOLLOWING ARE THE CONSTANTS USED F4465510
GK1..J 2047 F4465520
GK2..J 2048 F4465530
GK3..J TRA G25..J F4465540
GK4..J TRA G24..J F4465550
ONEA.J 1 F4465560
GK5..J WDR 1 F4465570
TWOA.J 2 F4465580
GK6..J 0,0,-4 F4465590
ZERO.J F4465600
REM VARIABLES OR TEMPORARY STORAGE F4465610
GV2..J LENGTH OF BLOCK F4465620
GV3..J INDEX OF LAST WORD IN BLOCK F4465630
GV4..J SUM CHECK F4465640
GV5..J OLD DRUM ADDRESS F4465650
GV6..J REMAINING BLOCK LENGTH F4465660
TABLEJ SYN 0 F4465670
SET..J SYN 0 F4465680
REM F4465690
REM F4465700
END F4465710
REM 704 FORTRAN II, SECTION V, TAG ANALYS1S, 4-1-6-2 F5G00010
REM DAVID STERNLIGHT I.B.M. WORLD HEADQUARTERS 5 NOV 58. F5G00020
REM INTRODUCTION F5G00030
REM THE GENERAL PHILOSOPHY OF SECTION 5 IS TO REDUCE A PROGRAM F5G00040
REM USING AS MANY INDEX REGISTERS AS NEEDED TO ONE USING 3 INDEX F5G00050
REM REGISTERS IN AS EFFICIENT A MEANS AS POSSIBLE, CALLING ON F5G00060
REM INDEX CELLS WHICH ARE STORAGE LOCATIONS, TO RETAIN DISPLACED F5G00070
REM INFORMATION WHEN THE CONTENTS OF AN INDEX REGISTER MUST BE F5G00080
REM REPLACED. THUS THE INDEX CELLS CORRESPOND TO ORIGINAL INDEX F5G00090
REM REGISTERS USED IN THE FORTRAN OBJECT PROGRAM BEFORE SECIION5.F5G00100
REM THE MAIN PROBLEMS SECTION 5 HANDLES ARE THOSE OF KEEPIRG F5G00110
REM INDEX CELLS UP TO DATE, AND EFFICIENTLY SEEING TO IT THAT THEF5G00120
REM 3 1NDEX REGISTERS CONTAIN THE PROPER 1RFORMATION AT ALL F5G00130
REM TIMES FOR THE CORRECT EXECUTION OF TAGGED INSTRUCTIONS. F5G00140
REM GENERALLY, SECTION 5 COMPILES SX,S WHENEVER AN INDEX CELL F5G00150
REM MUST BE UPDATED SO THAT IF AN INDEX QUANTITY IS NEEDED AND F5G00160
REM NOT PRESENT IN AN INDEX REGISTER, AN LX CAN BE USED WITHOUT F5G00170
REM CONCERN ABOUT WHAT IS WIPED OUT. THE SKILLFUL PLACEMENT OF F5G00180
REM THESE SX,S IS ONE OF THE MAJOR JOBS OF SECTION 5. F5G00190
REM THE PROGRAM IS ANALYZED USING THE CONCEPT OF BASIC BLOCKS, F5G00200
REM PROGRAM UNITS HAVING A SINGLE ENTRY AND EXIT POINT, AS DEFIN-F5G00210
REM ED BY SECTION 4. THE LINKS BETWEEN BASIC BLOCKS ARE LABELED F5G00220
REM BY FREQUENCY IN SECTION 4, BY ACTUAL PROGRAM SIMULATION. F5G00230
REM SECTION 5 ANALYSES THE OBJECT PROGRAM BY START1NG WITH THE F5G00240
REM HIGHEST FREQUENCY LINK BETWEEN BB,S AND EXPANDING OUTWARD F5G00250
REM ALONG PREDECESSOR AND SUCCESSOR BASIC BLOCKS. THE AREA FORM-F5G00260
REM ED IN THIS MANNER IS A PORTION OF THE OBJECT PROGRAM AND IS F5G00270
REM CALLED A LOOPLIST. THIS IS TREATED TO REDUCE THE NUMBER OF F5G00280
REM INDEX REGISTERS TO 3, IS THER CALLED A REGION, AND CAN ENTER F5G00290
REM FUTURE LOOPLISTS. THE LOOPLIST PROCESS IS CONTINUED, F5G00300
REM CONSTANTLY EXPANDING THE TREATED AREA OF THE OBJECT PROGRAM F5G00310
REM BY THE INCLUSION OF ALREADY TREATED REGIONS IN THE CURRENT F5G00320
REM LOOPLIST WHERE APPRORRIATE TO THE FLOW OF THE PROGRAM. THESEF5G00330
REM REGIONS BECOME A PART OF THIS LATEST LOOPLIST,S REGION AT THEF5G00340
REM END OF THE LOOPLIST TREATMENT, FORMING A NEW, SINGLE REGION. F5G00350
REM FINALLY THE ENT1RE PROGRAM HAS BEEN TREATED. A FURTHER PRIN-F5G00360
REM CIPLE USED BY SECT1ON 5 IS TO COMPILE THE UPDAT1NG SX,S AS F5G00370
REM LATE AS POSS1BLE TO TRADE OBJECT PROGRAM SPACE FOR TIME, F5G00380
REM SINCE THE LATER THE SX IS COMPILED, THE LOWER THE FREQUERCY F5G00390
REM OF TRANSFERS BETWEEN BLOCKS, HENCE THE FEWER THE EXECUTIONS F5G00400
REM OF THE SX. F5G00410
REM LPLST IS FORMED IN CORES BV SECTION 5 PART 1. IT SUMMARIZES F5G00420
REM EACH NEW REGION TO BE TREATED. PREFIX CODES ARE 2=OPAQUE F5G00430
REM REGION, 1=TRANSPARENT REGION (AT LEAST ONE INDEX REGISTER F5G00440
REM FREE) AND PREFIX CODE 0=BASIC BLOCKS. THE BB NUMBER F5G00450
REM IS CONTAINED IN THE DECREMENT OR ADDRESS. 77777 INDICATE. F5G00460
REM LPLST ENTRY IS AT END OF REGION OR LPLST EXIT IS AT BEGINNINGF5G00470
REM OF REGION, SPECIFIED BY BB NUMBER. 000000 INDICATES NOTHING F5G00480
REM INTERVENING BETWEEN THAT POINT AND THE NEXT DECREMENT OR F5G00490
REM ADDRESS. A WORD OF FULL BB,ENS, CALLED SENTINEL, TERMINATES F5G00500
REM LPLST. THUS A NEW REGION TO BE TREATED MIGHT HAVE A LPLST F5G00510
REM BEFORE TREATMENT LIKE F5G00520
REM 277777 000014 F5G00530
REM 000023 000000 F5G00540
REM 100026 000033 F5G00550
REM 200003 777777 F5G00560
REM 777777 777777. F5G00570
REM THIS MEANS ENTRY IN OPAQUE REGION ENDING IN BB 14, THEN COMESF5G00580
REM BB23, THEN IMMEDIATELY FOLLOWS A TRANSPARENT REGION FROM F5G00590
REM BB 26 TO BB 33, THEN AN OPAQUE REGION ENTERING AT BB 3, F5G00600
REM TERMINATING THIS LPLST. WHEN TREATED, THIS ENTIRE LPLST F5G00610
REM BECOMES A NEW, SINGLE REGION, ENCOMPASSING THE OLD REGIONS F5G00620
REM AND BB,S IN IT, WHICH WILL DISAPPEAR. F5G00630
REM REG TABLE, IN CORES, HAS 1 WORD PER EXISTING REGION. PREFIX F5G00640
REM INDICATES EXISTENCE IN REGION OF LX,S TO THE IR,S , F5G00650
REM DECREMENT=FIRST BB NO. IN REGION, TAG BITS=EMPTINESS F5G00660
REM THROUGHOUT REGION OF IR,S. F5G00670
REM INPUT TABLES INCLUDE PRED, SUCC, BBB, ALL ON DRUM. F5G00680
REM SUCC IS FIRST DRUM TABLE. IT IS PREPARED BY SECTION 4, F5G00690
REM ORDERED ON BB NUMBER. IT IS PING PONGED BETWEEN DRUM AND F5G00700
REM CORES BY THE SE6 ROUTINE. F5G00710
REM THE WORD FORMAT IS SIGN BIT MADE NEGATIVE BY X89 WHEN A LINK F5G00720
REM IS TREATED. BITS 1-14=FREQUENCY OF LINK, ADDRESS=NO. OF F5G00730
REM SUCCESSOR BASIC BLOCK. F5G00740
REM PRED IS THE SECOND DRUM TABLE. IT IS PREPARED BY SECTION 4. F5G00750
REM PRED IS ORDERED ON BB NUMBER AND PING PONGED BETWEEN DRUM ANDF5G00760
REM CORES BY THE SE5 R0UTINE. F5G00770
REM WORD FORMAT IS SIGN BIT NEGATIVE WHEN LINK TREATED. F5G00780
REM BITS 1-14=FREQUENCY OF LINK. BITS 15-17 CALL FOR LX,S TO F5G00790
REM THE 3 INDEX REGISTERS AND BITS 18-20 CALL FOR SX,S TO APPRO- F5G00800
REM PRIATE INDEX CELLS. THESE SX,S WILL LATER BE COMPILED F5G00810
REM BETWEEN BASIC BLOCKS BY PART 4 OF SECTION 5. THE ADDRESS F5G00820
REM CONTAINS THE NUMBER OF THE PREDECESSOR BASIC BLOCK. F5G00830
REM BBB IS THE THIRD DRUM TABLE, AND IS PREPARED BY SECTION 4. F5G00840
REM THERE IS A 6 WORD ENTRY FOR EACH BB, AND A FINAL DUMMY ENTRY.F5G00850
REM THE SE AND SE1 ROUTINES PING PONG BBB BETWEEN DRUM AND CORES.F5G00860
REM WORD FORMAT FROM SECTION 4. FIRST WORD DECR=STARTING POINT F5G00870
REM IN SUCC, ADDRESS=STARTING POINT IN PRED OF ENTRIES F5G00880
REM REFERRING TO THIS BASIC BLOCK. FIRST WORD PREFIX CONTAINS F5G00890
REM CODE DESCRIBING TYPE OF ENDING BB HAS. CODING IS.... F5G00900
REM 000=DO WITH AN IF, 001=MSE, 010=PROBABILITY BRANCH F5G00910
REM 011=CERTAINTY BRANCH, 100=DO WITHOUT AN IF, 101=GO TO N, F5G00920
REM 110=STOP. SECOND WORD, BITS 12-17=PERMUTATION NUMBERS, F5G00930
REM INITIALIZED TO 33 BY SECTION 4. ADDRESS=ORDINAL NUMBER OF F5G00940
REM FIRST TAGLIST ENTRY BELONGING TO THIS BB. REMAINING WORDS F5G00950
REM INITIALIZED TO ZEROES BY SECTION 4. F5G00960
REM IN SECTION 5 PART 1, FURTHER ENTRIES ARE MADE. SECOND WORD F5G00970
REM BITS S-2 INDICATE IR ACTIVITY IN THIS BB. PERMUTATION NOS. F5G00980
REM MAY UNDERGO CHANGE. WORDS 3-5 RECORD ENTRY AND EXIT CONDS. F5G00990
REM FOR THE 3 INDEX REGISTERS IN THE DECREMENT AND ADDRESS. F5G01000
REM WORD 6 DECR=REGION NUMBER BB CURRENTLY BELONGS TO. F5G01010
REM ADDRESS=NUMBER OF NEXT BB IN REGION. F5G01020
REM STAG IS THE F0URTH DRUM TABLE. INITIALIZED TO ZEROES AT SEC.F5G01030
REM 5 PART 1 START. ONE 4 BIT ENTRY FOR EACH TAGLIST INSTRUCTIONF5G01040
REM IS MADE IN SECTI0N 5 PART 1 AN0 READ IN PART 4. BITS S-8 F5G01050
REM CALL FOR AN SX PRECEDING THE TAGLIST INSTRUCTION, BITS 9-17 F5G01060
REM FOR AN LX FOLLOWING. BITS 18-35 IN PAIRS SPECIFY THE INDEX F5G01070
REM REGISTER TAGLIST INSTRUCTION IS TO USE. THUS PRED RECORDS F5G01080
REM INTER BB LX,S AND SX,S AND STAG RECORDS INTRA-BB LX,S AND F5G01090
REM SX,S. STAG IS HANDLED BY THE SE4 ROUTINE. F5G01100
REM CMTAG, THE CORE BUFFER FOR TAGLIST, HAS THE SAME WORD F5G01110
REM FORMAT, THAT IS, THE DECREMENT CONTAINS THE INSTRUCTION F5G01120
REM CLASS, CODED FROM 0 TO 6, AND THE ADDRESS CONTAINS THE F5G01130
REM SYMBOLIC ADDRESS, AS FOLLOWS, BITS 24-26 CONTAIN TAU 1,2, F5G01140
REM OR 3, AND BITS 27-35 CONTAIN THE NUMBER OF THE ENTRY IN THAT F5G01150
REM TAU TABLE. NOTE THAT IN THE OUTPUT, THE SYMBOLIC ADDRESS OF F5G01160
REM INDEX CELLS IS, TAU 1=G, TAU 2=10, TAU 3=1G, AND THIS F5G01170
REM SYMBOL IS FOLLOWED BY THE NUMBER OF THE ENTRY. THUS A F5G01180
REM TAGLIST ENTRY IN THE ADORESS OF 003005 BECOMES 1G5, THAT IS, F5G01190
REM TAU 3, ENTRY 5. THE INSTRUCTION CLASSES AS FOLLOWS, IN DECRF5G01200
REM L=LXA,LXD,PAX,PDX. 2=LXP. 3=DED. 4 IS UNUSED BUT AVAIL. F5G01210
REM FOR TNX. 5=ACTIVE INSTR LIKE TIX AND TXI. 6=PASSIVE INSTR. F5G01220
REM A PASSIVE INSTR IS A TAGGED INSTR THAT 0OES NOT CHANGE THE F5G01230
REM CONTENTS OF THE INDEX REGISTER. 7=UNUSED BUT AVAIL. FOR TIX.F5G01240
REM WHEN 7 IS USED FOR A TIX, IT REPRESENTS A TIX USED AS A F5G01250
REM TRANSFER, NOT AN ACTIVE TIX. ACTIVE INSTRUCTIONS MAY F5G01260
REM BE RECOGNIZED BY THEIR ADDRESSES, WHICH ARE OF THE FORM *+Q F5G01270
REM WHERE Q IS SOME CONSTANT. F5G01280
REM CORE INFORMATION TRANSFERRED BETWEEN SECTION 4 AND SECTION 5 F5G01290
REM IS IN THE LAST 4 CORE LOCATIONS, CALLED KEYS. F5G01300
REM GIVING DRUM TABLE LENGTHS. TAPE TABLES USED FOR INPUT F5G01310
REM INCLUDE TAGLIST AND CIT. INTERMEDIATE TABLES INCLUDE THE F5G01320
REM ABOVE AND STAG, LPLST, CMTAG, AND REG. CMTAG IS A CORE F5G01330
REM BUFFER FOR TAGLIST. THE DRUM TABLES ALSO APPEAR IN CORE F5G01340
REM IN BUFFER LOADS WHEN THE SOURCE PROGRAM EXCEEDS A CERTAIN F5G01350
REM COMBINATION OF THE FACTORS OF LENGTH AND COMPLEXITY OF F5G01360
REM TRANSFER STRUCTURE. OUTPUT TABLES INCLU0E CIT ON TAPE. F5G01370
REM TAGLIST, ON TAPE 3, IS HANDLED BY THE S4 SUBROUTINE. IT IS AF5G01380
REM SEQUENTIAL LIST OF ALL TAGGED OBJECT PROGRAM INSTRUCTIONS F5G01390
REM RESULTING FROM SECTION 3. EACH ENTRY IS ONE WORD. THE F5G01400
REM PREFIX DESCRIBES THE TYPE OF INSTRUCTION AND THE ADDRESS F5G01410
REM CONTAINS SYMBOLIC INDEX REGISTER,S NAME. F5G01420
REM BY USING LARGER MACHINE SIZE THAN 4K, THE PROGRAM F5G01430
REM TABLE SPACE IN CORE CAN BE INCREASED, PROVIDING FASTER F5G01440
REM COMPILING AND REDUCING THE AMOUNT OF DRUM PING PONGING. F5G01450
REM IN ADDITION, SENSE SWITCH 4, WHEN DOWN, PROVIOES UP TO F5G01460
REM 20 PER CENT FASTER COMPILING ON LARGER SOURCE PROGRAMS, AT F5G01470
REM A NEGLIGIBLE LOSS, IN MOST CASES, IN OBJECT PR0GRAM F5G01480
REM EFFICIENCY. THIS SENSE SWITCH HAS NO EFFECT ON SHORTER F5G01490
REM PROGRAMS. F5G01500
REM IN ORDER TO INCREASE TABLE SPACE AS DESCRIBED ABOVE, F5G01510
REM SECTION IV OF FORTRAN, THE FLOW PASS OF TAG ANALYSIS, MUST F5G01520
REM BE ADJUSTED AS TO LENGTHS OF DRUM TABLE BUFFER LOADS PASSED F5G01530
REM ON TO SECTION V, AND THE POSITION OF INFORMATION AT THE END F5G01540
REM OF CORES , HERE SAID TO BE IN KEYS, MUST BE CHANGED. F5G01550
REM IN SECTION V, MSIZE AS WELL AS OTHER ITEMS SPECIFIED IN F5G01560
REM THE FOLLOWING PARAMETER LIST MUST BE CHANGED. F5G01570
REM 4-1-6-2 PARAMETER LIST F5G01580
MSIZE EQU 4096 4-1-6-2 MEMORY SIZE F5G01590
FP1 EQU 50 4-1-6-2 REG TABLE SIZE F5G01600
S3P1 EQU 30 4-1-6-2 LPLST TABLE SIZE F5G01610
STL EQU 50 4-1-6-2 STAG LENGTH F5G01620
REM FIXED PARAMETER LIST, INDEP. OF CORESIZE F5G01670
KEYS SYN MSIZE-4 CONSTANTS TO RELATE PROGRAM T0 TABLES F5G01680
REM ORDER OF DRUM TABLES IS SUCC STARTING AT ZERO, FOLL0WED BY F5G01690
REM PRED, BBB, AND STAG, WHICH IS FILLED IN BY SECTION V. F5G01700
REM THE ORDER OF INFORMATION IN KEYS IS ... KEYS=NUMBER 0F BBS, F5G01710
REM KEYS+1=START OF PRED, KEYS+2=START OF BBB, AND KEYS+3=STAG. F5G01720
INSTTP EQU 4 COMPILED INST ON TAPE 4 F5G01730
TAPE EQU 3 OUTPUT TAPE IS 3 F5G01740
OTAPE EQU 3 OUTPUT TAPE IS 3 F5G01750
BLT EQU 3 BLOCK LIST ON TAPE 3 F5G01760
ACTPE EQU 2 ASSIGN CONSTANTS ON TAPE 2 F5G01770
RECNO EQU 1 NO OF CIT RECORDS IN AT ONE TIME F5G01780
ZINST EQU RECNO*100 LENGTH 0F INST TABLE F5G01790
LCLST EQU 100 LENGTH 0F OUTPUT BLOCK, COMPILED INSTR F5G01800
NSXD EQU 128 NO. OF SXD CASES IN SXD LIST F5G01810
PTL1 EQU 20 SPACE FOR PATCHES, PART 1 F5G01811
PTL2 EQU 41 SPACE FOR PATCHES, PART 2. F5G01812
PTL3 EQU 42 SPACE FOR PATCHES, PART 3 F5G01813
PTL4 EQU 34 SPACE FOR PATCHES, PART 4. F5G01814
SET EQU 0 INITIAL DRUM ADDRESS F5G01820
K EQU 0 INITIAL DRUM ADDRESS F5G01830
REM EDITOR RECORD NO. 75 F5G01840
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G01850
REM NO DIAGN0STIC CALLER FOLLOWS F5G01870
REM PART 1A F5G01880
REM OPTIMIZE INDEXING EXCEPT FOR PERMUTATION, GO TO N, F5G01890
REM INSTRUCTION COMPILATION. F5G01900
ORG 24 F5G01910
REM ROUTINE T0 TRANSFER NEXT F5G01920
REM PROGRAM PART F5G01930
R RTB 1 SKIP DIAGNOSTIC F5G01940
TRA 4 READ NEXT PROGRAM RECORD F5G01950
REM THE ROUTINES SE, SE1, SE4, SE5, SE6 MANIPULATE DRUM TABLES F5G01960
REM SUCC, PRED, BBB, AND STAG. THEY ARE ENTERED WITH THE WANTED F5G01970
REM ITEM IN THE AC. THEY LOAD IX1 FOR IMMEDIATE REFERENCE TO THEF5G01980
REM STATED ITEM. AFTER SAVING CORES ON THE DRUM WHERE NECESSARY,F5G01990
REM THEY BRING IN THE APPROPRIATE PART OF DRUM TABLES. IF THE F5G02000
REM ITEM IS ALREADY IN CORES, OF COURSE NO SAVING OR DRUM F5G02010
REM MANIPULATION IS NECESSARY. F5G02020
SE4 ALS 18 F5G02030
ANA SEK4 F5G02040
TSX SE21,2 F5G02050
REM PARAMETERS FOR STAG TABLE F5G02060
STAGP HTR 0 N(0) F5G02070
HTR 0 N(1) F5G02080
HTR 0,0,STAGL N(S) F5G02090
HTR 0,0,SET N(L) F5G02100
HTR 1 S F5G02110
HTR SET D(0) F5G02120
HTR STAG A F5G02130
REM PARAMETERS FOR SUCC. TABLE F5G02140
SE6 ANA SEK4 F5G02150
TSX SE21,2 F5G02160
SUCCP HTR 0 N(0) F5G02170
OCT -1 NI1I F5G02180
HTR 0,0,SUCCL N(S) F5G02190
HTR SET N(L) F5G02200
HTR 1 S F5G02210
HTR 0 D(0) F5G02220
HTR SUCC A F5G02230
REM PARAMETERS FOR PRED. TABLE F5G02240
SE5 ALS 18 F5G02250
ANA SEK4 F5G02260
TSX SE21,2 F5G02270
PREDP HTR 0 N(0) F5G02280
OCT -1 N(1) F5G02290
HTR 0,0,PREDL N(S) F5G02300
HTR SET NIL) F5G02310
HTR 1 S F5G02320
HTR SET D(0) F5G02330
HTR PRED A F5G02340
REM PARAMETERS FOR BBB TABLE F5G02350
SE1 ALS 18 BB NO. IN ADDR. F5G02360
SE ANA SEK4 BB NO. IN DECR. F5G02370
TSX SE21,2 F5G02380
BBBP HTR 0 N(0) IN DECR. 1ST BB IN CM F5G02390
OCT -1 N(1) IN DECR,LAST BB IN CM +1 F5G02400
HTR 0,0,BBBL N(S) IN DECR,NO.+ BBS POS. IN CM F5G02410
HTR SET N(L) IN DECR,NO. OF BBS F5G02420
HTR 6 S IN ADDR.,NO. OF WDS PER BB F5G02430
HTR SET D(0) IN ADDR.,INITIAL DRUM ADDR. F5G02440
HTR BBB A IN AOOR.,INITIAL CM ADDR F5G02450
REM 2 ED PARAMETER IS + OR - ACCORDING F5G02460
REM AS CM BLOCK IS FULL OR EMPTY F5G02470
REM SR FOR SHUFFLING TABLES TO AND FROM DRUM F5G02480
SE21 STO SEV2 STJ=S 1TEM NO.,X F5G02490
CAS 2,2 IS N .X CM F5G02500
TXH -,-,- F5G02510
TXL SE42,0,- F5G02520
TRA SE41 POSSIBLY F5G02530
SE42 SXD SEV5,4 NO,STORE RETURN INDEX F5G02540
CLA 2,2 F5G02550
TMI SE35 IS CM BLOCK EMPTY F5G02560
TSX SE22,4 NO,FORM CHECK SUM F5G02570
CLA SE23 F5G02580
STA SE24 STORE F5G02590
CLA SEV3 CHECK F5G02600
SE24 STO SET SUM F5G02610
CLA SEK F5G02620
TSX SE26,4 F5G02630
SE35 CLA ZERO F5G02640
LDQ SEV2 N(0)=(INT. PT. (N/N(S)).N(S) F5G02650
DVP 3,2 F5G02660
MPY 3,2 F5G02670
STQ 1,2 N(1)=MIN (N (0)+N(S),N(L)) F5G02680
CLA 1,2 F5G02690
ADD 3,2 F5G02700
LDQ 4,2 F5G02710
STQ 2,2 F5G02720
TLQ SE36 F5G02730
STO 2,2 F5G02740
SE36 CLA SEK1 TRANSFER IN A F5G02750
TSX SE26,4 BLOCK OF THE TABLE F5G02760
TSX SE22,4 CHECK SUM F5G02770
CLA SE23 COMPARE F5G02780
STA SE37 CHECK F5G02790
SE37 CLA SET SUMS F5G02800
CAS SEV3 F5G02810
SE45 TRA SE43 F5G02820
TRA SE40 AGREE F5G02830
SE43 LXD TPCT,4 REPEAT 5 TIMES F5G02840
TXI SE44,4,1 F5G02850
SE44 SXD TPCT,4 F5G02860
TXL SE36,4,4 TRY AGAIN F5G02870
TSX 4,4 TRIEO 5 TIMES GO TO DIAGNOSTIC F5G02880
REM NOTE ON TH1S 150 STOP. THIS DRUM CHECKSUM STOP MAY BE CAUSEDF5G02890
REM BY MACHINE ERROR. F5G02900
REM IF IX 2 CONTAINS TABLE 1S AND CHECK F5G02910
REM 77744 STAG 40 F5G02920
REM 77732 SUCC 51 ALL F5G02930
REM 77721 PRED 63 OCTAL F5G02940
REM 77707 BBB 75 F5G02950
REM TO SEE IF THE CHECKED LOCATION CONTENTS ARE LESS F5G02960
REM THAN THE CONTENTS OF 306 OCTAL. IF SO, SOURCE PROGRAM, RATH-F5G02970
REM ER THAN MACHINE ERROR IS LIKELY. THE ERROR COULD BE F5G02980
REM A. TRANSFER TO A NON-EXECUTABLE INSTRUCTIOR. F5G02990
REM B. UNREACHABLE EXECUTABLE INSTRUCTION IN PROGRAM. F5G03000
REM C. LAST STATEMENT OF A DO IS A TRANSFER. F5G03010
REM D. INCORRECT NUMBER OF ENTRIES IN A FREQUENCY STATEMENT. F5G03020
TPCT HTR - F5G03030
SE40 SXD TPCT,0 RESET TARECOUNT F5G03040
LXD SEV5,4 RESTORE RETURN INDEX F5G03050
CLA SEV2 GET N AGANIN F5G03060
TRA SE41 F5G03070
REM THE ITEM MIGHT BE IN STORAGE F5G03080
SE41 SUB 1,2 N-N(0) F5G03090
TMI SE42 DOES IT LIE IN STORAGE F5G03100
LRS 35 YES,INDEX= F5G03110
MPY 5,2 COM((N-N(0).S) F5G03120
LLS 17 F5G03130
SUB SEK5 F5G03140
PAX 0,1 F5G03150
TRA 1,4 F5G03160
REM DRUM TRANSFER SUBROUTINE PROPER F5G03170
SE26 SXD SEV4,4 STORE RETURN INDEX ANO ITEM NO. TO BE TRANSFERRED F5G03180
STO SE25 STORE READ-WRITE INDICATOR F5G03190
LDQ 3,2 FORM F5G03200
MPY 5,2 N(S)*S+1 F5G03210
LLS 17 ANO F5G03220
ADD ONEA STORE F5G03230
STO SEV1 IT F5G03240
CLA ZERO FORM F5G03250
LDQ 1,2 ((N(0)/N(S)) F5G03260
DVP 3,2 (N(S)(S+1)) F5G03270
MPY SEV1 F5G03280
STQ SEV1 INITIAL DRUM ADDRESS F5G03290
CLA 6,2 =D(0)+(N0N(S))$(N(S).S=1) F5G03300
ADD SEV1 F5G03310
STO SEV7 SET LDA INSTRUCTIONS F5G03320
ALS 7 COMPUTE THE F5G03330
COM DRUM SELECTION F5G03340
PDX 0,1 INDEX F5G03350
TSX SE25,4 SELECT DRUM F5G03360
CLA 2,2 F5G03370
SUB 1,2 (N(1)-N(0))S F5G03380
LRS 53 INTO MQ F5G03390
MPY 5,2 F5G03400
CLA SEV7 FORM NO. OF F5G03410
ANA SEK2 WORDS LEFT ON F5G03420
SUB SEK3 DRUM GROUP F5G03430
SSP F5G03440
TLQ SE31 MUST BLOCK BE SPLIT F5G03450
PAX 0,4 YES F5G03460
ADD 7,2 SET INDEX AND F5G03470
STA SE27 COMPUTE ADDRESS OF 1ST CPY F5G03480
SUB 7,2 COMPUTE NO. F5G03490
STQ SEV1 OF WORDS IN F5G03500
SUB SEV1 2 ED TRANSFER F5G03510
SUB ONEA F5G03520
SSP F5G03530
STO SEV1 F5G03540
ADD SE27 F5G03550
STA SE29 SET 2 ED CPY F5G03560
SE28 LDA SEV7 F5G03570
SE27 CPY SET,4 TRANSFER F5G03580
TIX SE27,4,1 1ST BLOCK OF WORDS F5G03590
TIX SE30,1,1 DECREASE C(1) BY 1 F5G03600
SE30 TSX SE25,4 SELECT DRUM F5G03610
LXA SEV1,4 F5G03620
SE29 CPY SET,4 TRANSFER F5G03630
TIX SE29,4,1 2 EDBLOCK F5G03640
SE34 LXD SEV4,4 F5G03650
TRA 1,4 RETURN F5G03660
SE31 LLS 35 (N(1)-N(0)).S+1 F5G03670
ADD ONEA WORDS ARE TO F5G03680
PAX 0,4 BE TRANSFERED F5G03690
ADD 7,2 F5G03700
STA SE32 F5G03710
SE33 LDA SEV7 F5G03720
SE32 CPY SET,4 F5G03730
TIX SE32,4,1 F5G03740
TRA SE34 F5G03750
SE25 RDS 192,1 (OR WRS) DRUM F5G03760
TRA 1,4 SELECTION SUBROUTINE. F5G03770
REM CHECK SUM SUBROUTINL F5G03780
SE22 CLA 2,2 F5G03790
SUB 1,2 COMPUTE F5G03800
LRS 35 (N(1)-N(0)).S F5G03810
MPY 5,2 THE NUMBER OF WORDS F5G03820
LLS 17 TO BE SUM F5G03830
PAX 0,1 CHECKED F5G03840
ADD 7,2 C0MPUTE AND STORE F5G03850
REM ADDRESS OF WORD F5G03860
STA SE23 FOLLOWING LAST TABLE WORD. F5G03870
CLA ZERO CLEAR SUM CHECK. F5G03880
SE23 ACL -,1 FORM THE F5G03890
TIX SE23,1,1 SUM CHECK. F5G03900
SLW SEV3 F5G03910
TRA 1,4 F5G03920
SEK WRS 192,1 WRS,192,1 F5G03930
SEK1 RDS 192,1 RDS,192,1 F5G03940
SEK2 HTR 2047 MASK TO EXTRACT LAST 11 BIT F5G03950
SEK3 HTR 2048 2048 IN ADDR. F5G03960
SEK4 HTR 0,0,-1 IN DECR. PART F5G03970
SEK5 HTR 0,1 2 15 F5G03980
SEV1 NS.S+1 TEMP STORAGE F5G03990
SEV2 STORAGE OF N (DECR.) F5G04000
SEV3 STORAGE OF CK SUM. F5G04010
SEV4 RETURN FROM SE 26 F5G04020
SEV5 RETURN FROM SE F5G04030
SEV6 STORE N TO BE TRANSFERRED F5G04040
SEV7 INITIAL DRUM ADDR. F5G04050
ZERO OCT 0 F5G04060
ONEA HTR 1 F5G04070
ONED HTR 0,0,1 F5G04080
REM CONSTANTS USED IN S1 F5G04090
S1K2 HTR 0,0,6 CONSTANT WHICH LOOKS LIKE PASS. REF. F5G04100
S1K3 HTR 8 NO. OF S3 VARIABLES SAVED. F5G04110
C SYN S1K2 F5G04120
S2K1 HTR 0,0,-1 ONES IN DECR. PART. F5G04130
S2K2 HTR 0,0,1 CONST. USED TO TEST FOR LX. F5G04140
S3K1 OCT -377777777777 END LOOP LIST SENTENIAL F5G04150
S3K2 HTR -1,-1,-1 USED FOR CF TO FIND OUT IF THIS IS BB F5G04160
S3K3 HTR 0,0,S3P1 INITIALIZING CONST. FOR LOOP LIST F5G04170
S3K4 OCT 777777 MASK TO EXTRACT LAST 1/2 WORD. F5G04180
S3K5 HTR 0,0,-1 MASK T0 EXTRACT INST. TYPE F5G04190
REM CONSTANTS OF S4 F5G04200
S4K1 CMTL SIZE OF STORAGE FOR TAG TABLE. F5G04210
S4K2 HTR 15 NO OF TAGS PER RECORD. F5G04220
S4K3 HTR CMTAG F5G04230
REM THE L CONSTANTS MUST BE AHEAD OF THOSE FOR S5 F5G04240
LK1 OCT 777776 E,HASH SYMBOL F5G04250
LK2 OCT -200000000000 CONSTANTS FOR EXTRACTING F5G04260
LK3 OCT -300000000000 1ST 2,3 BITS OF WORD RESPT. F5G04270
REM CONSTANTS FOR MATCHING SUBROUTINE F5G04280
S5K1 OCT 777777 PHI,EMPTINESS F5G04290
S5K2 OCT 777775 CONSTANT USEO TO TEST FOR REAL TAGS F5G04300
S5K3 OCT -0 -0 F5G04310
S5K4 HTR 2 +2 F5G04320
S5K5 HTR 3 +3 F5G04330
S5K6 HTR 8 +8 F5G04340
S9K1 HTR 4 +4 F5G04350
S9K2 0,1 MASK FOR PHI DIGIT NO. 1 F5G04360
0,2 MASK FOR PHI DIGIT NO. 2 F5G04370
0,4 MASK FOR PHI DIGIT NO. 3 F5G04380
S9K3 HTR 0,0,3 MASK TO EXTRACT 2 BITS IN DECR. F5G04390
SAK1 4094 CONST USED TO TEST NON EXISTENT BB F5G04400
REM CONSTANTS OF SB F5G04410
SBK1 OCT +001000000000 CONST. USED TO GENERATE SX BIT. AD. F5G04420
SBK2 HTR -1 USED TO EXTRACT ADOR. F5G04430
SBK3 HTR 0,0,4 CONST. TO GENERATE SX BIT FOR TRANSFER F5G04440
SCK1 HTR 0,0,LPLST F5G04450
FK1 OCT 177777077777 TRANSPARANT REGION CONST F5G04460
FK2 OCT 277777077777 OPAQUE REGION CONST F5G04470
FK3 HTR 0,7 MASK T0 EXTRACT TAG. F5G04480
FK4 OCT 177777777777 CONST TO TEST FOR OPAQUE REG. F5G04490
FK5 HTR FP1 LENGTH OF REGION LIST F5G04500
XK3 OCT -0 3 CONSTANTS USED TO F5G04510
OCT 200000000000 CHANGE REGION WDS. F5G04520
OCT 100000000000 TO INDICATE IRS LX E0. F5G04530
XK4 OCT -377776000000 E,HASH SYMBOL,1N LQT HALF F5G04540
XK5 OCT -300000000000 MASK FOR PREFIX F5G04550
XK6 OCT 200000000000 F5G04560
XK9 HTR 9 F5G04570
XK10 SYN XK3 MASK TO EXTRACT 1ST 1N BB FIT. F5G04580
XK11 OCT 1000000 CONST. TO GENERAGE LX BIT. F5G04590
XK12 HTR 0,0,5 4 CONSTS. USED TO TEST FOR ACTIVE F5G04600
XK13 HTR 0,0,4 TNX F5G04610
XK14 HTR 0,0,7 TIX F5G04620
XK15 HTR 0,0,2 LXP F5G04630
XK16 HTR 0,4 CONST. TO GENERATE LX BIT. F5G04640
XK17 PON CONST. TO SEPARATE TYPES F5G04650
XK18 SYN XK4 E IN LEFT HALF WORD. F5G04660
XK19 OCT -377777000000 MASK LEFT HALF WORD. F5G04670
XK20 OCT -377700777777 CONST. TO DELETE PERM. NOS. F5G04680
XK21 HTR 0,0,3 CONST. TO TEST FOR DED INST. F5G04690
XK22 OCT -377777077777 CONST. TO DELETE PHIS. F5G04700
XK23 HTR 0,1 F5G04710
HTR 0,2 F5G04720
HTR 0,4 F5G04730
S1V1 TEMP. STORAGE FOR F5G04740
HTR - F5G04750
HTR - 1ST 9 VARIABLES F5G04760
HTR - IN S3 F5G04770
HTR - F5G04780
HTR - F5G04790
HTR - F5G04800
HTR - F5G04810
S1V3 THE CLA IN S3 F5G04820
S1V4 RETURN INDEX F5G04830
S1V5 (+/-)=DECIDE ON (MOST/LEAST) REPL. I.R. F5G04840
S1V6 TEMP F5G04850
S1V7 STORAGE F5G04860
REM THE IR1,2,3 CELLS SIMULATE OBJECT MACHINE INDEX REGISTERS, F5G04870
REM AND CONTAIN A REAL TAG, THE EMPTY SYMBOL 777777, OR THE HASH F5G04880
REM SYMBOL 777776. (HASH MEANS THE REGISTER IS NOT EMPTY BUT F5G04890
REM ITS CONTENTS HAVE NO VALUE, I.E. LXP COMPILED IN SECTION 3 ORF5G04900
REM DED COMPILED IN SECTION 2. (LXP IS A WARNING THAT ALTHOUGH IRF5G04910
REM IS VALUELESS, IT WILL BE LOADED VERY SOON WITH A NEW VALUE.))F5G04920
IR1 THE 3 I.R.S IN F5G04930
IR2 THE LAST 1/2 OF REGISTER F5G04940
IR3 F5G04950
IRR HOLDS 3,2,1 IF IR1,2,3 SELECTED F5G04960
IND1 + OR - ACCORDING AS IR1 EOUND OR IR1 NOT FOUND F5G04970
IND2 + OR - ACCORDING AS IR2 FOUND OR IR2 NOT FOUND F5G04980
IND3 + OR - ACCORDING AS IR3 FOUND OR IR3 NOT FOUND F5G04990
IN4 +F OR - IF IR HAS OR HASNT BEEN FOUND F5G05000
REM VARIABLES OF S3 SUBROUTINE F5G05010
S3V1 LOCATION OF 1ST TAG IN BB F5G05020
S3V2 TAG COUNTER,IN DECR. PART. F5G05030
S3V3 + NO. OF TAGS LEFT IN BB AFTER T1X,OR- F5G05040
S3V4 LOOP LIST INDEX. F5G05050
1TAG THE TAN-TAG F5G05060
TPE THE TYPE OF INSTR. F5G05070
INTAG TAG + INSTR. TYPE (ENTRY IN TAG LIST) F5G05080
S3V5 LOOP LIST QUANTITY F5G05090
S3V8 RETURN INDEX F5G05100
S3V6 (1ST TAG IN BB-1ST TAG IN C.M.) F5G05110
S3V7 NO. OF WORDS LEFT IN C.M. F5G05120
S3V9 (+/-)= (THIS IS NOT NEW BB/THIS IS NEW BB) F5G05130
REM VARIABLES OF S4 F5G05140
S4V1 LOC OF 1ST TAG IN CMTAG F5G05150
S4V2 LOC OF 1ST TAG IN NEX, RECORD (TAPE POS.) F5G05160
S4V3 (LOC OF LAST TAG)+ 1 F5G05170
REM ABOVE MUST BE SET AT START. F5G05180
S4V4 (LOC. OF 1ST TAG IN BB-POS OF TAPE) F5G05190
REM VARIABLES FOR MATCHING SUBROUTINE S5 F5G05200
IR4 TEMP. STORAGE FOR C (IR1) F5G05210
IR5 TEMP. STORAGE FOR C (IR2) F5G05220
IR6 TEMP. STORAGE FOR C (IR3) F5G05230
ENC COUNTER OF = F5G05240
IRC COUNTER OF = F5G05250
REM THE IN 1,2,3, EN4,5,6 CELLS ARE LOAOED BY THE S5 ROUTINE F5G05260
REM FOR PERMUTATION OF INDEX REGISTER ASSIGIMENT THROUGHOUT AN F5G05270
REM ALREADY TREATED REGION UPON ENTRY TO THIS REGION IN LPLST. F5G05280
REM OPTIMIZED MATCH TO CURRENT CONTENTS OF IR1,2,3 IS SECURED BY F5G05290
REM PERMUTING THE ENTIRE REGION AS NECESSARY. THE IN1,2,3 F5G05300
REM AND EN4,5,6 CELLS LINK THE OUTMODED SYSTEM EN1,2,3, EX1,2,3 F5G05310
REM ACT1,2,3 FOR THIS REGION WITH THE ABSOLUTE SYSTEM IR1,2,3, F5G05320
REM AC1,2,3, LX1,2,3. FOR EXAMPLE EN4 IS 3,2,OR. DEPENDING ON F5G05330
REM WHETHER THE CORRESPONDENT OF EN1 IS IR 1,2,OR 3. INVERSELY, F5G05340
REM IN1 IS 3,2,OR1 FOR THE CORRESPON0ENT OF IR1 EQUAL TO EN1,2,3.F5G05350
IN1 INDEX OF CORRES OF IR1 F5G05360
IN2 INDEX OF CORRES OF IR2 F5G05370
IN3 INDEX OF CORRES OF IR3 F5G05380
EN4 INDEX OF CORRES OF EN1 F5G05390
EN5 INOEX OF CORRE8 OF EN2 F5G05400
EN6 INDEX OF CORRES OF EN3 F5G05410
EN1 THE ENTRANCE REQUIREM F5G05420
EN2 ENTS EN1,ENZ,EN3. F5G05430
EN3 F5G05440
S5V1 TEMP. STORE FOR RETURN INDEX. F5G05450
S5V2 TEMP STORE FOR LOOP LIST QUANT. F5G05460
S9V1 TEMP. STORE FOR BB NO. F5G05470
S9V2 TEMP. STORE FOR RETURN INDEX F5G05480
S9V4 TEMP. STORE FOR REGION WORD. F5G05490
REM VARIABLES OF SA SUBROUTINE (WHICH GETS EXIT CONDTITIONS) F5G05500
SAV1 TEMP STORE FOR PERMUTATION NOS. F5G05510
SAV2 RETURN INDEX. F5G05520
SAV3 TEMP. STORE FOR REGION WORD. F5G05530
REM THE EX1,2,3 CELLS CONTAIN THE EXIT REQUIREMENTS FOR A BB THATF5G05540
REM HAS ALREADY BEEN TREATED. F5G05550
EX1 3 EXIT CONDITIONS F5G05560
EX2 F5G05570
EX3 F5G05580
REM THE ACT 1,2,3 CELLS CONTAIN ACTIVITY OF AN ALREADY TREATED BBF5G05590
ACT1 3 ACTIVE F5G05600
HTR - INDICATORS F5G05610
HTR - F5G05620
REM VARIABLES OF SB F5G05630
SBV1 RETURN INDEX F5G05640
SBV2 TEMP. STORAGE. F5G05650
SBV3 TEMP. STORAGE. F5G05660
SBV4 INDEX OF REGISTER WHICH IS ACTIVE. F5G05670
SBV5 STORAGE FOR PERMUTATION NOS. F5G05680
SCV1 RETURN INDEX F5G05690
SCV2 INDEX OF BB. F5G05700
SCV3 INDEX OF POSITION IN LOOP LIST F5G05710
ACIND + OR - MEANS 2ED OR ACTIVE PASS F5G05720
SDV1 STORE FOR RETURN INDEX. F5G05730
SDV2 INDEX OF ACTIVE I.R. F5G05740
SDV3 THE PERMUTATION NOS. F5G05750
SDV4 TEMP. STORE FOR INDEX OF BB F5G05760
SFV1 ACTIVE INOICATOR FORMED HERE. F5G05770
SFV2 RETURN INOEX. F5G05780
SGV1 RETURN INDEX F5G05790
SGV2 PERMUTED REGION WORD F5G05800
FV1 HIGHEST FREQ. IN REGION (I.C. PRED. TABLE ENTRY) F5G05810
FV2 BB NO. OF BB HAVING HIGHEST FREQ. (ADDR.) F5G05820
FV3 PRED. NO. (I.C. 0TH WORD FROM BB. (ADDR.) F5G05830
FV4 WORD HAVING REGION NO. (5TH BB WORD) F5G05840
FV5 CURRENT BB NO. BEING CONSIDERED. (ADDR.) F5G05850
FV6 RETURN INDEX OF F1,F80 F5G05860
FV7 PRED. NO. BEING CONSIDERED IN B.B. (ADDR.) F5G05870
FV8 FIRST PRED. FROM NEXT B.B. (ADDR.) F5G05880
FV9 0,0,- TEMP STORE FORCURRENT SUCC IN DECR ONLY F5G05890
FV10 0,0,- TEMP STORE IN DECR ONLY, CURRENT SUCC F5G05900
FV101 HIGHEST FREQ. IN BB (PRED. TABLE ENTRY) F5G05910
FV102 BB NO. BEING CONSIDERED. (ADDR.) F5G05920
FV103 PRED. NO. (0TH WORD FROM BB) IADDR.) F5G05930
FV104 WORD HAVING REGION. NO. F5G05940
LPIND + OR - IF IT ISNT OF IS A LOOP F5G05950
LV1 THE CONDITIONS OF THE I.R.S F5G05960
LV2 AT END OF THE F5G05970
LV3 1ST LXING PASS. F5G05980
LV4 THE LO0P LIST QUANTITY F5G05990
LV5 WORD FROM BB WITH PRED. AND SUCC. LOCS F5G06000
REM VARIABLES OF 2ED LXING PASS. F5G06010
REM ACTIVITY. WHEN SIMULATING A NEW BB IN THE 2ND LXING PASS, F5G06020
REM IF AN LX, TXI, OR TIX IS ENCOUNTERED, THE APPROPRIATE INDEX F5G06030
REM REGISTER BECOMES ACTIVE. THIS IS PLUS ACTIVITY. IF THE SAMEF5G06040
REM REGISTER MUST BE DISPLACED IN THE SAME LPLST, SB IS ENTERED F5G06050
REM TO RECORD AN SX NECESSARY. SINCE THE ACTIVITY IS PLUS, THE F5G06060
REM SX WILL BE COMPILED IN STAG IMMEDIATELY AFTER THE ACTIVE F5G06070
REM INSTRUCTION. THIS SX ENDS THE ACTIVITY, COMPLETELY TAKING F5G06080
REM CARE OF THE PROBLEM. AT THE END OF LPLST, IF THE INDEX F5G06090
REM REGISTER IS STILL ACTIVE, OR IF, DURING LPLST, AN ACTIVE F5G06100
REM PEGISTER FALLS OBSOLETE BY A DED OR LXD, THEN ALL THE BLOCKS F5G06110
REM IN WHICH IT IS ACTIVE ARE MARKED BY SC, MAKING THIS ACTIVITY F5G06120
REM MINUS. THIS, UNLIKE PLUS ACTIVITY, CAN NEVER BE ENDED. THE F5G06130
REM APPEARANCE OF A MINUS BB IN A FUTURE LPLST CAUSES THE F5G06140
REM APPROPRIATE AC1,2,OR3 TO CONTAIN MINUS ACTIVITY AND WHENEVER F5G06150
REM THE CORRESPONDING INDEX REGISTER MUST BE DISPLACED, AN SB F5G06160
REM ENTRY WILL CAUSE AN SX TO BE COMPILED IN THE PRED LINK FROM F5G06170
REM THAT BB. THIS POSTPONEMENT OF SX COMPILATION AFTER AN ACTIVEF5G06180
REM INSTRUCTION FOR AS LONG AS POSSIBLE PRODUCES A LARGER NUMBER F5G06190
REM OF SX,S THAN STRICTLY NECESSARY, BUT PLACES THEM IN LOW F5G06200
REM FREQUENCY PATHS, TRADING OBJECT PROGRAM SPACE FOR OBJECT F5G06210
REM PROGRAM TIME. F5G06220
REM THE AC1,2,3 CELLS DESCRIBE THE ACTIVITY STATUS OF IR1,2,3. F5G06230
REM ZERO...NOT ACTIVE, PLUS ACTIVITY...ACTIVE INSTRUCTION IN A F5G06240
REM BB NOT TREATED UNTIL THIS LPLST. AC1,2,3 CONTAINS INFO. F5G06250
REM FOR SB TO MAKE A STAG ENTRY AT THE ACTIVE INSTRUCTION. F5G06260
REM MINUS ACTIVITY...ACTIVE INSTR. IN BB ALREADY IN A REGION. F5G06270
REM AC1,2,3 CONTAINS INFO. FOR SB TO MAKE A PRED ENTRY AT LINK F5G06280
REM OUT OF THE REGION. F5G06290
AC1 3 ACTIVE INDICATORS,+0 MEANS NOT ACTIVE F5G06300
AC2 IF + VE,THEN ACTIVE THING IS INSTR., DECR. IS F5G06310
AC3 LOC. OF BB IN LOOP LIST,ADDR. IS LOC. OF Y-TAG. IF-VE, F5G06320
HTR 0 ACTIVE THING IS TRANSFER, LOC. IN LP LST IN DECR. F5G06330
REM THE LX1,2,3 CELLS CONTAIN THE ENTRANCE REQUIREMENTS FOR A BB.F5G06340
LX1 3 ENTRANCE REQUIREMENTS OF A BB F5G06350
LX2 BUILT UP HERE. +0 MEANS F5G06360
LX3 NO ENTRANCE REQU. DETERMINED. F5G06370
XV1 IN DECR., INDEX OF CURRENT REGION F5G06380
XV2 THE NEW REGION WORD. F5G06390
XV3 THE WORD POSITION IN STAG F5G06400
XV4 THE DIGIT INDEX WITHIN THE WORD. F5G06410
XV5 THE LOCATION OF CURRENT TAG (INSTR.) F5G06420
XV6 NEAR X07,C.F. OF TNX BRANCH,NEAR X85, TAG F5G06430
XV7 X07 TO X09+,INDEX OF BB,NEAR X85,TAG F5G06440
XV8 INDEX OF BB NEAR X33 F5G06450
REM PERMUTATION. WHEN INDEX REGISTER ASSIGNMENTS THROUGHOUT AN F5G06460
REM ALREADY TREATED REGION ARE PERMUTED, STAG, PRED AN0 BBB MUST F5G06470
REM BE UPDATED. INSTEAD, WORD 2 OF BBB CONTAINS PERMUTATION F5G06480
REM NUMBERS THROUGH WHICH THESE TABLES ARE READ, AND UPDATING F5G06490
REM REQUIRES ONLY THESE NUMBERS TO BE CHANGED. IN SECTION 5 PARTF5G06500
REM 2 WHFN THE FINAL CONFIGURATION HAS BEEN REACHED, THE TABLES F5G06510
REM THEMSELVES ARE ACTUALLY UPDATED. , F5G06520
XV9 THE PERMUTATION NOS. F5G06530
XV10 INDEX 0F I.R. IN BB CONSIDERED. F5G06540
XV11 F5G06550
XV12 F5G06560
XV13 INDEX 0F PARTICULAR BB X40 ON F5G06570
XV14 TEMP. STORE FOR 2 INDEXES F5G06580
XV15 WHILE USING SUBROUTINE. F5G06590
XV16 TEMP. STORE FOR PRED.=,X91-2+X90,X92 X97 ON F5G06600
XV17 TEMP. STORE FOR OLD REGION WD.,X74 F5G06610
XV18 IN ADDR.,X111,NO. OF SUCC. WE SEARCH FOR. F5G06620
XV19 TEMP STORE FOR PREVIOUS LPLST QUANTITY F5G06630
XV20 TEMP STORE IN DECR. ONLY F5G06640
XV21 TEMP STORE FOR TAG NEAR X43 F5G06650
XV22 NUMBER OF LAST BB FOR WHICH REGION NO. WAS ADDED F5G06660
XV23 DECR ONLY , TEMP STORE FOR REGION INDEX F5G06670
XV24 0 OR NOT0 IF IS OR ISNT SAME AS 1ST REGION F5G06680
AV1 TEMP. STORE FOR PRED. TABLE ENTRY. F5G06690
AV2 TEMP. STORE FOR INDEX OF I.R. F5G06700
AV3 TEMP. STORE FOR PERM. NOS. F5G06710
REM THE S1 AND S111 ROUTINES SELECT THE MOST (S1) OR THE LEAST F5G06720
REM (S111) REPLACEABLE INDEX REGISTERS BY SCANNING AHEAD F5G06730
REM THROUGH LPLST. THE IR WHOSE CONTENTS ARE REQUIRED AGAIN F5G06740
REM SOONEST (LAST) IS THE LEAST (MOST) REPLACEABLE. THESE F5G06750
REM ROUTINES USE THE S2 SUBROUTINE, WHICH ACTUALLY TRIES TO F5G06760
REM SELECT AN IR. F5G06770
S111 SSM SET INDICATOR TO-MEANING F5G06780
TRA S109 SEARCH FOR LEAST REPLACEABLE I.R. F5G06790
S1 SSP SET INDICATOR TO + MEANING F5G06800
S109 STO S1V5 SEARCH FOR MOST REPLACEABLE I.R. F5G06810
SXD S1V4,4 STORE RETURN INDEX. F5G06820
SSM SET F5G06830
STO IND1 INDICATORS F5G06840
STO IND2 TO F5G06850
STO IND3 NOT F5G06860
STO IN4 FOUND. F5G06870
LXD S123,2 SET TO LOOP FOR EMPTY I.R. F5G06880
S119 LXA S5K5,1 SET COUNT TO 3, N TO 1 F5G06890
S120 CLA IR1+3,1 IS IRN EMPTY OR F5G06900
CAS 0,2 (FILLED WITH HASH) F5G06910
S121 TXL S122,0,-LK1 NO, COM(LOC. OF HASH) IN DECR. F5G06920
TRA S124 YES, F5G06930
S122 TIX S120,1,1 NO,COUNT TO 3,N=N+1 F5G06940
S123 TXH S127,2,-S5K1 HAVE WE L0OKEO FOR HASH F5G06950
LXD S121,2 NO,SET TO LOOP FOR HASH. F5G06960
TRA S119 F5G06970
S124 CLS S1V5 LOOK1NG FOR MOST REPLACEABLE F5G06980
TMI S129 I.R. F5G06990
STO IND1+3,1 NO, RECORD IRN ELIMINATED F5G07000
LDQ IN4 F5G07010
STO IN4 RECORD SOME IR ELIMINATED F5G07020
TQP S128 HAS AN IR BEEN ELIMINATED BEFORE F5G07030
TRA S122 NO, F5G07040
S128 LXA S5K5,1 SET COUNT TO 3,N=1 F5G07050
S126 CLA IND1+3,1 HAS IRN F5G07060
TPL S125 BEEN ELIMINATED F5G07070
S129 SXD IRR,1 NO,SELECT IRN F5G07080
TRA 1,4 AND RETURN. F5G07090
S125 TIX S126,1,1 COUNT TO 3,N=N+1 F5G07100
S130 TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR. F5G07110
S127 CLA S39 F5G07120
STO S1V3 STORE ASIDE F5G07130
LXA S1K3,4 THE F5G07140
S112 CLA S3V1+8,4 STATE F5G07150
STO S1V1+8,4 OF THE F5G07160
TIX S112,4,1 S3 ROUTINE. F5G07170
S11 TSX S3,4 GET NEXT TAG F5G07180
TRA S103 COME HERE IF TAG NOT GOT. F5G07190
CLA S1V1 F5G07200
CAS S3V1 IS THE LOOP COMPLETED F5G07210
TRA S104 NO F5G07220
TRA S135 PERHAPS F5G07230
S104 TSX S2,4 NO F5G07240
TRA S16 COME HERE IF IR DECIDED ON F5G07250
TRA S11 COME HERE IF NOT DECIDED ON F5G07260
S135 CLA S1V1+1 IS THE LOOP COMPLETED F5G07270
CAS S3V2 F5G07280
TRA S104 F5G07290
TRA S102 YES F5G07300
TRA S104 F5G07310
S103 CAS S3K1 IS THIS AN END LOOP LIST F5G07320
TRA S105 NO F5G07330
TRA S101 YES F5G07340
S105 CLA S3V5 GET LOOP LIST QUANTITY AGAIN. F5G07350
CAS S3K2 IS IT A BB F5G07360
NOP NO,IT IS EITHER A TRANSPARENT F5G07370
TRA P001 OR OPAQUE REGION F5G07380
TRA S11 YES F5G07390
P001 CAS S1V1+7 F5G07400
TRA S136 F5G07410
TRA S102 F5G07420
S136 TSX SE,4 GET BB WHICH CONTAINS ENTR. REQU. F5G07430
LDQ S1K2 MAKE THIS LOOK LIKE A F5G07440
STQ TPE PASSIVE REFERENCE. F5G07450
LXA S5K5,4 SET COUNT TO 3. F5G07460
S115 CAL BBB+2,1 PUT THIS TAU TAG F5G07470
ARS 18 IN LOCATION F5G07480
SLW 1TAG TAG F5G07490
SXD S1V6,1 STORE THE F5G07500
SXD S1V7,4 INDEXES. F5G07510
TSX S2,4 TRY TO SELECT AN I.R. F5G07520
TRA S16 COME HERE IF I.R. SELECTED. F5G07530
LXD S1V6,1 AND HERE IF NOT. RESTORE F5G07540
LXD S1V7,4 THE INDEXES. F5G07550
TXI S114,1,-1 DECREASE ENTR. INDEX F5G07560
S114 TIX S115,4,1 COUNT TO 3. F5G07570
TRA S11 F5G07580
S102 CLA IND1 HAS C(IR1) BEEN F5G07590
TPL S13 FOUND (ELIMINATED) F5G07600
S18 LXA S5K5,4 NO,SELECT F5G07610
S15 SXD IRR,4 IR1. F5G07620
S16 LXA S1K3,4 RESTORE S3 (GET NEXT TAG SR) F5G07630
S113 CLA S1V1+8,4 TO STATE F5G07640
STO S3V1+8,4 BEFORE F5G07650
TIX S113,4,1 S1 WAS USED. F5G07660
CLA S1V3 F5G07670
STO S39 F5G07680
TSX S4,4 MAKE SURE SAME TAGS ARE IN CM. F5G07690
LXD S1V4,4 F5G07700
S14 TRA 1,4 RETURN F5G07710
S13 CLA IND2 HAS IR2 BEEN F5G07720
TPL S107 FOUND (ELIMINATED) F5G07730
S108 LXA S5K4,4 NO,SELECT F5G07740
TRA S15 IR2. F5G07750
S107 TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR F5G07760
REM OF SOME KIND. F5G07770
S101 LDQ LPIND IS THIS F5G07780
TQP S102 A LOOP F5G07790
TRA S11 YES F5G07800
S2 CLA 1TAG PUT TAU-TAG IN AC. F5G07610
LXA S5K5,1 SET COUNT TO 3. F5G07820
S22 LDQ IND1+3,1 F5G07830
TQP S21 BEEN FOUND F5G07840
CAS IR1+3,1 NO, IS TAU TAG EQUAL F5G07850
TRA S21 NO,TO C(IRN) F5G07860
TRA S24 YES F5G07870
S21 TIX S22,1,1 NO. F5G07880
TRA 2,4 RETURN TO L(TSX)+2 F5G07890
S24 CLA TPE IS IT A DED, LXP, OR LX CLASS. F5G07900
CAS XK21 IF SO, MAKE P=1, MAKING TEST=TMI S25 F5G07910
ORA S5K3 WHILE IF SO MAKE TEST TPL S25. F5G07920
NOP THUS GO TO S23 AND USE IT IF LXP,DED,LX F5G07930
STP TEST AND TAGS LEFT IN BB AFTER TIX, OR F5G07940
CLS S1V5 IF OTHER AND NO TAGS LEFT IN BB AFTER TIX. F5G07950
TEST TMI S25 THIS MIGHT BE A TPL S25. F5G07960
S23 SXD IRR,1 RECORD IRN INDEX. F5G07970
TRA 1,4 F5G07980
S25 LDQ ZERO RECORD IRN FOUND OR ELIM F5G07990
STQ IND1+3,1 F5G08000
CLS IN4 HAS ONE OTHER I R BEEN F5G08010
TMI S26 (FOUND/ELIM) F5G08020
STO IN4 F5G08030
TRA 2,4 F5G08040
S26 LXA S5K5,1 SEARCH FOR THE F5G08050
S27 CLA IND1+3,1 I.R. WHICH HASNT F5G08060
TMI S23 BEEN (FOUND/ELIM) YET. F5G08070
TIX S27,1,1 F5G08080
TSX 4,4 NOT FOUND, DIAGNOSTIC F5G08090
REM THE S3 SUBROUTINE EXISTS IN FEED TAG OR FEED LPLST STATES. F5G08100
REM IN THE FORMER IT FEEDS THE NEXT ITEM FROM TAGLIST AND TAKES F5G08110
REM THE TAG FEED EXIT. IN THE LATTER IT FEEDS THE NEXT ITEM FROMF5G08120
REM LPLST AND TAKES THE LPLST FEED EXIT. WHEN IT COMES TO A F5G08130
REM LPLST ITEM WHICH IS A BB ANO NOT IN A REGION, IT GOES TO F5G08140
REM FEED TAG STATE AND STAYS THERE UNTIL THE LAST TAGLIST ITEM INF5G08150
REM THAT BB HAS BEEN FED. THEN IT RETURNS TO LPLST FEED. WHEN F5G08160
REM SENTINEL IS FED THE ROUTINE RE-INITIALIZES ITSELF TO THE F5G08170
REM BEGINNING OF LPLST AND STAYS IN FEED LPLST STATE. IT USES F5G08180
REM THE S4 SUBROUTINE FOR HANDLING TAPE 3 DURING TAGLIST FEEDING.F5G08190
S3 LXD S3V2,1 ARE THERE ANY F5G08200
TIX S39,1,1 F5G08210
SXD S3V8,4 NO,STORE RETURN INDEX F5G08220
CLA S3V3 F5G08230
STO S3V9 F5G08240
TPL S300 ARE THERE ANY MORE TAGS IN BB F5G08250
LXD S3V4,1 NO F5G08260
CLA S3V5 WAS THE LAST THING F5G08270
TPL S306 AN END LPLST F5G08280
LXD S3K3,1 YES, RESET LPLST INDEX F5G08290
S306 CLA LPLST+S3P1,1 GET LOOP LIST QUANTITY F5G08300
STO S3V5 QUANTITY. F5G08310
TXI S31,1,-1 F5G08320
S31 SXD S3V4,1 THE INDEX. F5G08330
CAS S3K1 IS THIS END OF LOOP LIST F5G08340
TRA S32 NO, F5G08350
TRA S35 YES, F5G08360
S32 CAS S3K2 F5G08370
NOP NO F5G08380
TRA S305 F5G08390
TRA S34 YES F5G08400
S305 LXD S3V8,4 F5G08410
CLA S3V5 RETURN WITH LOOP F5G08420
S35 TRA 1,4 LIST QUANTITY F5G08430
S34 TSX SE,4 GET INDEX OF BB F5G08440
CLA BBB+1,1 F5G08450
ANA S3K4 GET AND STORE THE F5G08460
S303 STO S3V1 TAG LOCATION. F5G08470
TSX S4,4 GO TO PUT TAG IN CM. F5G08480
STO S3V6 STORE (1ST BB TAG-1ST TAG IN C.M.) F5G08490
SUB S4K1 FORM NO. OF F5G08500
SSP WDS LEFT IN C.M. F5G08510
STO S3V7 F5G08520
CLA S3V5 GET THE F5G08530
ADD ONED LOC. OF 1ST F5G08540
TSX SE,4 TAG IN F5G08550
CLA BBB+1,1 NEXT BB. F5G08560
ANA S3K4 F5G08570
SUB S3V1 IS NO. OF TAGS IN BB LESS F5G08580
CAS S3V7 THAN OR EQUAL TO SPACE IN C.M. F5G08590
TRA S304 F5G08600
TRA S36 YES, F5G08610
TRA S36 YES, F5G08620
S304 SUB S3V7 STORE S EXCESS OF TAGS F5G08630
STO S3V3 F5G08640
CLA S3V7 F5G08650
S302 PAX 0,1 SET COUNT OF NO. OF TAGS. F5G08660
S37 TXI S38,1,1 F5G08670
S38 SXD S3V2,1 F5G08680
ADD S4K3 SET ADDRESS OF F5G08690
ADD S3V6 CLA F5G08700
STA S39 INSTRUCTION. F5G08710
LXD S3V8,4 F5G08720
CLA S3V9 IS THIS A F5G08730
TPL S3 NEW BB F5G08740
CLA S3V5 YES,RETURN WITH F5G08750
TRA 1,4 LOOP LIST QUANTITY. F5G08760
S300 CLA S4V1 NEXT TAG NEEDED HAS F5G08770
ADD S4K1 LOC. (S+1ST TAG IN C.M.) F5G08780
TRA S303 F5G08790
S36 LDQ S3K1 F5G08800
STQ S3V3 F5G08810
TRA S302 F5G08820
S39 CLA -,1 GET TAG WORD F5G08830
SXD S3V2,1 F5G08840
STO INTAG AND F5G08850
ANA S3K4 SEPARATE TYPE F5G08860
STO 1TAG FROM F5G08870
CAL S3K5 TAU-TAG. F5G08880
ANA INTAG F5G08890
STO TPE F5G08900
TRA 2,4 F5G08910
S4 CLA S3V1 FORM (LOC. OF 1ST TAG IN BB F5G08920
SUB S4V1 -LOC. OF 1ST TAG IN CM) F5G08930
TMI S41 IS TAG IN C.M. F5G08940
CAS S4K1 P0SSIBLY,IS IT FOR SURE F5G08950
NOP NO F5G08960
TRA S41 NO F5G08970
TRA 1,4 YES. RETURN. F5G08980
S41 CLA S3V1 NO,FORM (LOC. OF 1ST TAG IN BB F5G08990
SUB S4V2 -POSITION OF TAPE) F5G09000
TMI S42 MUST WE RUN TAPE BACK WORDS F5G09010
STO S4V4 NO, F5G09020
CLA S4V3 CAN ALL THE FOLLOWING TAGS F5G09030
SUB S4V2 BE PUT IN C.M. F5G09040
CAS S4K1 F5G09050
TRA S401 NO F5G09060
TRA S45 YES,GO TO SET COUNT F5G09070
TRA S45 YES,TO NO. OF TAGS IN BB. F5G09080
S401 CLA S4V4 F5G09090
CAS S4K2 IS TAG IN NEXT RECORD F5G09100
NOP NO F5G09110
TRA S47 F5G09120
TRA S44 YES F5G09130
S47 RTB TAPE NO, SPACE FWD 1 REC. F5G09140
CLA S4V2 ADJUST TAPE POSITION F5G09150
ADD S4K2 F5G09160
S43 STO S4V2 F5G09170
TRA S41 F5G09180
S42 BST TAPE ADJUST TAPE POSITION F5G09190
CLA S4V2 AFTER BACKSPACING F5G09200
SUB S4K2 ONE RECORD. F5G09210
TRA S43 F5G09220
S44 CLA S4K1 SET COUNT TO STORAGE SIZE. F5G09230
S45 PAX 0,2 F5G09240
ADD S4K3 SET CPY F5G09250
STA S46 ADDRESS. F5G09260
CLA S4V2 F5G09270
STO S4V1 F5G09280
S49 RTB TAPE F5G09290
SXD S407,2 STORE (2) IN CASE OF TAPE CHECK F5G09300
RTT TURN OFF TAPE F5G09310
NOP CHECK. F5G09320
CLA S4V2 ADJUST F5G09330
ADD S4K2 TAPE F5G09340
STO S4V2 POSITION F5G09350
S46 CPY -,2 F5G09360
S407 TXI S48,0,- VALUE OF (2) STORED HERE F5G09370
TSX 4,4 END OF FILE 0CCURRED,DIAGNOSTIC F5G09380
SXD S405,4 F5G09390
TSX S406,4 CHECK REDUNDANCY BITS F5G09400
LXD S405,4 F5G09410
TRA S49 F5G09420
S48 TIX S46,2,1 C0UNT NO. OF WORDS CPYED. F5G09430
S409 CPY S4V4 COPY OUT TO F5G09440
TRA S409 END OF RECORD. F5G09450
TSX 4,4 ERRONEOUS END OF FILE,DIAGNOSTIC F5G09460
SXD S405,4 CHECK REDUNDANCY BITS F5G09470
TSX S406,4 F5G09480
LXD S405,4 F5G09490
TRA S4 F5G09500
S406 IOD F5G09510
RTT F5G09520
TRA S402 TRY AGAIN F5G09530
SXD TPCT,0 RESETS REPEAT COUNT F5G09540
S404 TRA 1,4 RETURN F5G09550
S402 BST TAPE PREPARE TO READ AGAIN F5G09560
LXD TPCT,2 FIVE TIMES F5G09570
TXI S402A,2,1 F5G09580
S402A SXD TPCT,2 F5G09590
TXL S402B,2,4 GO ON F5G09600
TSX 4,4 NO GOOD,DIAGNOSTIC F5G09610
S402B LXD S407,2 RESET INDEX F5G09620
RTB TAPE F5G09630
LXD S405,4 F5G09640
S405 TXI S46,0,- RETURN ADDR. STORED HERE F5G09650
REM THE S5 SUBROUTINE LOADS EN1,2,3 FROM THE ENTRANCE CONDITIONS F5G09660
REM OF THE ENTRY BB IN A REGION WHEN THE REGION IS ENCOUNTERED F5G09670
REM IN LPLST. IN ADDITION, THE PERMUTATION OF INDEX REGISTERS INF5G09680
REM THE REGION PROVIDING THE BEST MATCH BETWEEN IR1,2,3 AND F5G09690
REM EN1,2,3 IS LEFT IN CELLS IN1,2,3 AND EN4,5,6 BY S5. S5 USES F5G09700
REM S1,S111,S6,S7,S9, AS SUBROUTINES. F5G09710
S5 SXD S5V1,4 STORE RETURN INDEX F5G09720
STO S5V2 STORE LOOP LIST QUANTITY F5G09730
TSX S9,4 GET THE ENTRANCE F5G09740
REM REQUIREMENTS F5G09750
CLA S5K3 F5G09760
LXA S5K6,2 STORE -0S IN THE COUNTER OF PHIS + OF REAL F5G09770
S51 STO ENC+8,2 STORE -0S IN THE F5G09780
TIX S51,2,1 REGISTERS. F5G09790
LXA S5K5,1 SET INDEX FOR EN1,N=1 F5G09800
S54 LXA S5K5,2 SET INDEX FOR IR1, M EQUALS 1 F5G09810
CLA EN1+3,1 F5G09820
CAS S5K1 IS ENN EMPTY F5G09830
TRA S55 NO F5G09840
TRA S58 YES F5G09850
S55 LDQ IN1+3,2 NO F5G09860
TQP S56 IS IRM ASSIGNED F5G09870
CAS IR1+3,2 NO,IS C(ENM)=C(IRM) F5G09880
TRA S56 NO. F5G09890
TRA S59 YES. F5G09900
S56 TIX S55,2,1 NO. THRU WITH IRS F5G09910
S57 TIX S54,1,1 YES. THRU WITH ENS F5G09920
LXA S5K5,2 YES,SET INDEX FOR IR1,M=1 F5G09930
S510 LXA S5K5,1 SET INDEX FOR EN1,N=1 F5G09940
CLA IR1+3,2 F5G09950
CAS S5K1 IS IRM EMPTY F5G09960
TRA S511 NO F5G09970
TRA S513 YES F5G09980
S511 LDQ IN1+3,2 NO F5G09990
TQP S514 IS IRM ASSIGNED F5G10000
CAS S5K2 NO,IS C(IRM)REAL F5G10010
TRA S514 NO, F5G10020
TRA S514 NO, F5G10030
S512 CLA IRC INCREASE REAL F5G10040
ADD ONEA UNASSIGNED TAG F5G10050
STO IRC COUNTER. F5G10060
TRA S514 F5G10070
S513 CLA EN4+3,1 HAS ENN F5G10080
TPL S537 BEEN ASSIGNED F5G10090
LDQ S5K2 NO,IS C(ENN) F5G10100
CLA EN1+3,1 REAL F5G10110
TLQ S537 F5G10120
TSX S6,4 YES,MAKE IRM=ENN F5G10130
TRA S514 F5G10140
S537 TIX S513,1,1 ARE WE THRU WITH EN S F5G10150
S514 TIX S510,2,1 YES, ARE WE THRU WITH IRS F5G10160
CLA ENC YES. F5G10170
TMI S515 ARE THERE NO EMPTY ENS F5G10180
CAS S5K4 HOW MANY EMPTY ENS. F5G10190
TRA S515 3 OR 0 F5G10200
TRA S520 2 EMPTY EN F5G10210
TRA S526 1 EMPTY EN F5G10220
S515 LXA S5K5,1 3 OR 0 EMPTY EN,N=1 F5G10230
S519 LXA S5K5,2 M=1 F5G10240
CLA EN4+3,1 P5G10250
TPL S516 ENN ASSIGNED F5G10260
S518 CLA IN1+3,2 NO,IRM F5G10270
TPL S517 ASSIGNED F5G10280
TSX S6,4 NO,MAKE IRM=IRN F5G10290
TRA S516 F5G10300
S517 TIX S518,2,1 F5G10310
S516 TIX S519,1,1 F5G10320
LXD S5V1,4 F5G10330
TRA 1,4 RETURN F5G10340
S520 CLA IRC F5G10350
CAS S5K4 ARE THERE 3 REAL UNASSNED TAGS IN THE IRS F5G10360
TRA S536 F5G10370
TRA S531 1,NO,GO MATCH EMPTY ENS F5G10380
TRA S531 2,NO. WITH ANY REAL UNASS. IRS F5G10390
S536 TSX S7,4 3, YES, TO COPY IRS, ETC. F5G10400
TSX S1,4 SELECT MOST REPLACEABLE I.R. F5G10410
LXA S5K5,1 F5G10420
TSX S595,4 F5G10430
S521 CLA EN1+3,1 IS EN F5G10440
CAS S5K1 EMPTY F5G10450
TRA S522 NO F5G10460
TIX S521,1,1 INDEX COUNTER OF IR S F5G10470
S522 TSX S6,4 MADE ENN = IRM F5G10480
S529 LXA S5K5,1 F5G10490
S525 CLA IR4+3,1 REPLACE THE IRS F5G10500
STO IR1+3,1 F5G10510
TIX S525,1,1 F5G10520
TRA S515 F5G10530
S526 LDQ IRC FS010540
CLA S5K4 ARE THERE 2 OR 3 REAL F5G10550
TLQ S530 UNASSNEO TAGS F5G10560
TSX S7,4 YES,COPY IRS F5G10570
TSX S111,4 LOOK FOR LEAST REPLACEABLE I.R. F5G10580
TSX S595,4 F5G10590
LXA S5K5,1 ASSIGN THE EMPTY F5G10600
S527 CLA EN1+3,1 EN TO THE IR F5G10610
CAS S5K1 SELECTED F5G10620
TRA S528 F5G10630
TSX S6,4 BY F5G10640
S528 TIX S527,1,1 S111. F5G10650
TRA S529 F5G10660
S530 TQP S531 IS THERE ONE REAL TAG F5G10670
TRA S515 NO,GO MATCH ARBITRARILY. F5G10680
S531 LXA S5K5,1 SET COUNT TO 3,N=1 F5G10690
LXA S5K5,2 SET COUNT TO 3,M=1 F5G10700
S532 CLA EN1+3,1 IS ENN F5G10710
CAS S5K1 EMPTY F5G10720
TRA S533 NO, F5G10730
TRA S534 YES, F5G10740
S533 TIX S532,1,1 NO,THRU WITH ENS F5G10750
TRA S515 YES. F5G10760
S534 CLA IN1+3,2 F5G10770
TPL S535 F5G10780
CLA IR1+3,2 NO F5G10790
CAS S5K2 IS C (IRM) REAL F5G10800
NOP NO F5G10810
TRA S535 F5G10820
TSX S6,4 YES F5G10830
TRA S515 F5G10840
S535 TIX S534,2,1 NO F5G10850
TRA S533 F5G10860
S58 CLA ENC YESENM EMPTY F5G10870
ADD ONEA INCREASE COUNTER F5G10880
STO ENC OF NO. OF EMPTY ENS. F5G10890
TRA S57 F5G10900
S59 TSX S6,4 MAKE IRM=ENN F5G10910
TRA S57 F5G10920
S595 LXD IRR,2 F5G10930
CLA IR1+3,2 F5G10940
CAS S7K1 F5G10950
TRA 1,4 F5G10960
TRA S529 F5G10970
TRA 1,4 F5G10980
S6 PXD 0,1 F5G10990
STO IN1+3,2 F5G11000
PXD 0,2 F5G11010
STO EN4+3,1 F5G11020
TRA 1,4 F5G11030
S7 LXA S5K5,1 SET COUNT TO 3,M=1 F5G11040
S71 CLA IR1+3,1 COPY ASIDE C(IRM) F5G11050
STO IR4+3,1 F5G11060
LDQ IN1+3,1 IRM ASSIGNED F5G11070
TQP S72 F5G11080
CAS S5K2 NO, IS C(IRM) REAL F5G11090
NOP F5G11100
TRA S72 NO F5G11110
TRA S73 YES. F5G11120
S72 CLA S7K1 NO,REPLACE CIIRM) F5G11130
STO IR1+3,1 BY IMPOSSIBLE TAG. F5G11140
S73 TIX S71,1,1 COUNT TO 3,M=M+1 F5G11150
TRA 1,4 RETURN F5G11160
S7K1 OCT 777760 IMPOSSIBLE TAG VALUE. F5G11170
REM THE S9 SUBROUT1NE LOADS EN1,2,3. F5G11180
S9 SXD S9V2,4 STORE RETURN INDEX. F5G11190
TSX SE,4 MAKE SURE BB IS IN C+M+ F5G11200
CLA BBB+5,1 GET AND F5G11210
PDX 0,2 STORE THE F5G11220
CLA REG,2 REGION F5G11230
STO S9V4 WORD+ F5G11240
LXA S5K5,2 SET COUNT TO 3,N=1 F5G11250
CLA BBB+1,1 STORE THE WORD F5G11260
STO S9V1 CONTAINING THE PERMATATION NOS. F5G11270
S92 CLA S9V1 EXTRACT THE N TH F5G11280
ARS 3,2 PERMUTATION NO. F5G11290
ARS 3,2 AND PUT IT F5G11300
ANA S9K3 IN F5G11310
PDX 0,4 INDEX 4. F5G11320
CAL S9V4 IS THIS F5G11330
ANA S9K2+3,4 AN EMPTY F5G11340
TZE S93 I.R. F5G11350
CLA S5K1 YES,STORE EMPTINESS SYMBOL F5G11360
S94 STO EN1+3,4 F5G11370
TXI S91,1,-1 D0WN THE ENTR. INDEX F5G11380
S91 TIX S92,2,1 COUNT TO 3 F5G11390
LXD S9V2,4 F5G11400
TRA 1,4 RETURN F5G11410
S93 CAL BBB+2,1 SET THE F5G11420
ARS 18 ENTRANCE REQUIREMENT. F5G11430
CAS S5K1 IS IT AN EMPTINESS SYMBOL F5G11440
TRA S94 NO, F5G11450
CLA LK1 YES,STORE E,(HASH SYMBOL). F5G11460
TRA S94 NO, F5G11470
REM THE SA SUBROUTINE LOADS EX1,2,3 AND ACT1,2,3 FROM EXIT F5G11480
REM CONDITIONS AND ACTIVITY BITS IPREFIX, WORD 2, BBB) OF THE F5G11490
REM EXIT BB IN A REGION. F5G11500
SA SXD SAV2,4 STORE RETURN INDEX. F5G11510
ANA SBK2 IF THIS IS AN IMPOSSIBLE BB, F5G11520
LDQ SAK1 RETURN AT ONCE, DOING NOTHING F5G11530
TLQ 1,4 F5G11540
TSX SE1,4 MAKE SURE BB IS IN CM. F5G11550
CLA BBB+5,1 GET AND F5G11560
PDX 0,2 STORE F5G11570
CLA REG,2 REGION F5G11580
STO SAV3 WORD. F5G11590
CLA BBB+1,1 GET AND STORE THE F5G11600
STO SAV1 WORD HAVING PERMUTATION NOS. F5G11610
LXA S5K5,2 SET COUNT TO 3,N=N+1 F5G11620
SA1 CAL SAV1 PUT PERMUTATION F5G11630
ARS 3,2 NUMBER F5G11640
ARS 3,2 IN F5G11650
ANA S9K3 INDEX 4 F5G11660
PDX 0,4 F5G11670
CAL SAV3 IS THIS F5G11680
ANA S9K2+3,4 AN EMPTY F5G11690
TZE SA2 EXIT F5G11700
CLA S5K1 YES,STORE EMPTINESS SYMBOL. F5G11710
SA4 STO EX1+3,4 F5G11720
SA5 CAL SAV1 STORE THE F5G11730
ALS 3,2 ACTIVE F5G11740
SLW ACT1+3,4 INDICATOR F5G11750
TXI SA3,1,-1 F5G11760
SA3 TIX SA1,2,1 COUNT TO 3 F5G11770
LXD SAV2,4 F5G11780
TRA 1,4 RETURN F5G11790
SA2 CAL BBB+2,1 F5G11800
ANA S3K4 IS THIS F5G11810
CAS S5K1 AN EMPTY SYMBOL F5G11820
TRA SA4 NO F5G11830
CLA LK1 YES REPLACE BY E. F5G11840
TRA SA4 NO F5G11850
REM THE SB SUBROUTINE ENTERS A BIT IN PRED OR STAG TO REQUEST SX F5G11860
REM COMPILATION. THE APPROPRIATE ACTIVITY CELL AC1,2, OR 3 IS F5G11870
REM EXAMINED. IF IT IS NEGATIVE (ACTIVE INSTRUCTION IN A BB F5G11880
REM ALREADY IN A REGION), THE SX BIT IS PLACED IN PRED IN THE F5G11890
REM LINK OUT OF THE REGION. IF IT IS POSITIVE (ACTIVE INSTRUC. F5G11900
REM IN A BB IN THIS LPLST), THE SX BIT IS PLACED IN THE STAG F5G11910
REM TABLE,AT THE ACTIVE INSTRUCTION. THE APPROPRIATE AC1,2, OR 3F5G11920
REM IS ALSO TURNED OFF BY SB. F5G11930
SB SXD SBV4,1 STORE INDEX OF ACTIVE I.R+ F5G11940
SXD SBV1,4 STORE INDEX OF RETURN, F5G11950
CLA AC1+3,1 IS THE ACTIVE THING F5G11960
TPL SB1 AN INSTRUCTION F5G11970
PDX 0,1 NO F5G11980
CLA LPLST+S3P1,1 GET + STORE F5G11990
CAS S3K2 PRED. BB F5G12000
NOP F5G12010
TRA SB01 F5G12020
ARS 18 NO F5G12030
SB01 STA SBV3 F5G12040
CLA LPLST+S3P1+1,1 F5G12050
CAS S3K1 END LOOP LIST SENTINEL F5G12060
TRA SB7 NO, F5G12070
CLA LPLST YES,SUCCESSOR IS 1ST ENTRY. F5G12080
SB7 TSX SE,4 NO,GET ADDR. OF F5G12090
CLA BBB+1,1 PRED. F5G12100
STO SBV5 STORE PERMUTATION NOS. F5G12110
CLA BBB,1 GET ADDR OF 1ST PRED. F5G12120
SB4 SLW SBV2 F5G12130
TSX SE5,4 F5G12140
CAL PRED,1 F5G12150
ANA SBK2 F5G12160
CAS SBV3 IS THIS THE RIGHT TRANSFER F5G12170
TRA SB2 NO F5G12180
TRA SB5 YES F5G12190
SB2 CLA SBV2 NO TRY NEXT PRED. F5G12200
ADD ONEA F5G12210
TRA SB4 F5G12220
SB5 LXA S5K5,2 F5G12230
SB00 CAL SBV5 SEARCH PERMUTATION F5G12240
ARS 3,2 NOS. FOR THE INDEX F5G12250
ARS 3,2 STORED IN SBV4 F5G12260
ANA S9K3 F5G12270
CAS SBV4 IS THIS PERMUTATION NO. F5G12280
TRA SB8 NO EQUAL TO THE ACTIVE F5G12290
TRA SB9 YES IR F5G12300
SB8 TIX SB00,2,1 NO F5G12310
TSX 4,4 DIAGNOSTIC,ERROR F5G12320
SB9 CLA SBK3 GENERATE NO STORE F5G12330
ARS 3,2 THE F5G12340
ORS PRED,1 SX FIT IN F5G12350
TRA SB6 PRED. TABLE. F5G12360
SB1 ANA S3K4 F5G12370
LRS 35 COMPUTE NO. 0F WORD IN F5G12380
DVP XK9 STAG ANO POSITION OF SX F5G12390
PAX 0,2 FIT IN WORD. F5G12400
CAL SBK1 GENERATE F5G12410
ALS 8,2 THE BIT F5G12420
SLW SBV2 TO F5G12430
REM STORE. F5G12440
LLS 35 GET NO. OF WORD OUT OF MQ. F5G12450
TSX SE4,4 MAKE SURE THE WD IS IN C.M. F5G12460
CAL SBV2 F5G12470
ORS STAG,1 F5G12480
SB6 CLA ZERO SET IR F5G12490
LXD SBV4,1 TO F5G12500
STO AC1+3,1 NOT ACTIVE. F5G12510
LXD SBV1,4 RE- F5G12520
TRA 1,4 TURN F5G12530
REM THE SC SUBR0UTINE HANDLES THE PROBLEM OF AN ACTIVE INDEX F5G12540
REM REGISTER WITH NO SUBSEQUENT LX IN THE PRESENT REGION. THIS F5G12550
REM POSTPONES THE NECESSITY OF AN SX UNTIL A LATER LX IS FOUND. F5G12560
REM THE ACTIVITY IS TRANSFERRED FROM AC1,2,3 TO PREFIX, WORD 2, F5G12570
REM BBB TABLE FOR ALL BB,S DURING WHICH INDEX REGISTER IS ACTIVE.F5G12580
REM THIS PERPETUATION OF ACTIVITY WHEN NOT TURNED OFF DURING THE F5G12590
REM TREATMENT OF THE SAME LPLST IN WHICH IT AROSE IS CALLED MARK-F5G12600
REM ING A SECTION OF LPLST ACTIVE. ALL BB,S BETWEEN THE ORIGIN F5G12610
REM OF THE ACTIVITY AND THE PRESENT POINT OF LPLST WHEN SC IS F5G12620
REM ENTERED ARE MARKED ACTIVE, AND THE DESIGNATED AC1,2,3 IS F5G12630
REM TURNED OFF. SD IS USED AS A SUBR0UTINE, DOING THE ACTUAL F5G12640
REM MARKING OF BB,S ACTIVE. F5G12650
SC CLA AC1+3,1 IS IR F5G12660
TZE 1,4 ACTIVE F5G12670
SXD SCV1,4 YES,STORE RETURN F5G12680
SXD SC9,1 AND INDEX OF ACTIVE I.R+ F5G12690
STD SCV3 STORE INDEX OF LOOP LIST. F5G12700
CLA SCV3 IS THIS THE CURRENT F5G12710
SUB ONED F5G12720
SBM S3V4 IS THIS THE CURRENT LPLST INDEX F5G12730
TNZ SC40 F5G12740
CLA ACIND YES F5G12750
TPL 1,4 IS THIS THE ACTIVE PASS F5G12760
SC40 LXD SCV3,2 YES F5G12770
CLA LPLST+S3P1,2 F5G12780
CAS S3K2 IS 1ST AACTIVE QUANTITY A BB F5G12790
TRA SC02 F5G12800
TRA SC02 NO F5G12810
TRA SC8 YES F5G12620
SC4 SUB ONED IS THIS CURRENT F5G12830
CAS S3V4 LOOP LIST INDEX F5G12840
TRA SC2 N0, F5G12850
TRA SC5 YES, F5G12860
SC2 LXD SCV3,2 NO, F5G12870
CLA LPLST+S3P1,2 F5G12880
CAS S3K1 IS IT END LOOP LIST F5G12890
TRA SC3 N0, F5G12900
TRA SC6 YES, F5G12910
SC3 CAS S3K2 NO,IS IT A BB F5G12920
NOP NO, F5G12930
TRA SC04 F5G12940
TRA SC8 YES, F5G12950
SC04 LXD SC9,2 NO, PUT INDEX OF ACTIVE IR F5G12960
TSX SD,4 IN 2. GO TO RECORD REGION ACTIVE. F5G12970
SC02 CLA SCV3 PREPARE TO GET F5G12980
SUB ONED NEXT F5G12990
SC7 STD SCV3 LOOP LIST QUANTITY. F5G13000
TRA SC4 F5G13010
SC5 LXD SC9,1 F5G13020
CLA ZERO RECORD I.R. NOT F5G13030
STO AC1+3,1 ACTIVE ANYMORE. F5G13040
LXD SCV1,4 F5G13050
TRA 1,4 RETURN. F5G13060
SC6 CLA S3K3 ARRANGE TO GET 1ST LPLST QUANTITY F5G13070
TRA SC7 QUANTITY NEXT. F5G13080
SC8 TSX SE,4 F5G13090
SXD SCV2,1 GET INDEX OF BB F5G13100
SC9 TXI SC01,1,0 INCREASE INDEX BY INDEX 0F OCT. I.R. F5G13110
SC01 CLA BBB+5,1 GET THE F5G13120
ANA S3K4 EXIT CONDITION. F5G13130
LXD SC9,2 IS EXIT COND. SAME F5G13140
CAS IR1+3,2 AS TAG IN ACTIVE I.RH F5G13150
TRA SC02 NO, F5G13160
TRA SC03 YES, F5G13170
TRA SC02 NO, F5G13180
SC03 CAL S5K3 RECORD THAT BB IS F5G13190
ARS 3,2 ACTIVE F5G13200
LXD SCV2,1 WO THIS F5G13210
ORS BBB+1,1 I+R. F5G13220
TRA SC02 F5G13230
SD SXD SDV2,2 F5G13240
SXD SDV1,4 STORE RETURN. F5G13250
TSX SE,4 GET INO=X OF BB F5G13260
CLA BBB+5,1 GET F5G13270
PDX 0,1 REGION F5G13280
CLA REG,1 WORD. F5G13290
TSX SE,4 GET BB INDEX. F5G13300
SD7 SXD SDV4,1 F5G13310
CLA BBB+1,1 STORE F5G13320
STO SDV3 AWAY THE PERMUTATION NOS. F5G13330
LXA S5K5,2 SET COUNT TO 3,N=1 F5G13340
SD3 CAL SDV3 IS F5G13350
ARS 3,2 PERMUTATION NO. F5G13360
ARS 3,2 F5G13370
ANA S9K3 N EQUAL F5G13380
CAS SDV2 TO I.R. INDEX F5G13390
TRA SD1 NO F5G13400
TRA SD4 YES F5G13410
SD1 TXI SD1+1,1,-1 NO F5G13420
S02 TIX SD3,2,1 COUNT TO 3 F5G13430
TSX 4,4 F5G13440
SD4 CAL BBB+2,1 F5G13450
ANA S3K4 IS TAG IN F5G13460
LXD SDV2,4 EXIT CONDITION F5G13470
LXD SDV4,1 SAME AS IN ACTIVE I.R. F5G13480
CAS IR1+3,4 F5G13490
TRA SD5 NO F5G13500
TRA SD9 YES,IS F5G13510
SD5 CAL BBB+5,1 NO THIS LAST F5G13520
ANA SBK2 BB F5G13530
CAS SBK2 IN REGI0N F5G13540
TRA SD6 NO F5G13550
TRA SD8 YES F5G13560
SD6 TSX SE1,4 NO F5G13570
TRA SD7 F5G13580
SD8 LXD SDV1,4 RETURN F5G13590
TRA 1,4 F5G13600
SD9 CAL S5K3 RECORD THIS BB F5G13610
ARS 3,2 ACTIVE F5G13620
ORS BBB+1,1 WO THIS IR F5G13630
TRA SD5 F5G13640
REM THE SF SUBROUTINE FORMS APPRQPRIATE AC1,2,3 ENTRY WHEN AN F5G13650
REM ACTIVE INSTRUCT1ON IS ENCOUNTERED. F5G13660
SF CLA TPE IS THIS F5G13670
CAS S2K2 AN LX F5G13680
TRA SF1 NO, F5G13690
TRA SF4 YES, F5G13700
SF1 CAS XK12 NO,IS IT AN ACTIVE INSTR F5G13710
TRA 1,4 NO RETURN F5G13720
TRA SF4 YES, F5G13730
TRA 1,4 NO F5G13740
SF4 CLA XV5 FORM QUANTITY TO F5G13750
STO SFV1 BE PUT F5G13760
LXD S3V4,2 INTO F5G13770
TXI SF5,2,1 ACTIVE F5G13780
SF5 SXD SFV1,2 INDICATOR F5G13790
TRA 2,4 F5G13800
REM PERMUTE THE PHI AND LX BITS SUBROUTINE F5G13810
REM THE SG SUBROUTINE PERMUTES AS INDICATED BY EN4,5,6 ON A REG F5G13820
REM ENTRY. F5G13830
SG SXD SGV1,4 SAVE RETURN F5G13840
LDQ ONEA SET NEW LX AND PHI BITS TO ONEA F5G13850
STQ SGV2 F5G13860
CLA S3V5 GET INDEX OF REGION WORD F5G13870
TSX SE,4 F5G13880
CLA BBB+5,1 F5G13890
PDX 0,2 F5G13900
LXA S5K5,4 SET COUNT TO 3 F5G13910
SG1 CLA EN4+3,4 FIND INDEX OF IR F5G13920
PDX 0,1 F5G13930
CAL REG,2 PERMUTE THE LX BIT F5G13940
ALS 3,4 F5G13950
ANA S5K3 F5G13960
ARS 3,1 F5G13970
ORS SGV2 F5G13980
CAL REG,2 PERMUTE THE PHI BIT F5G13990
ARS 3,4 F5G14000
ANA XK23 F5G14010
ALS 3,1 F5G14020
ORS SGV2 F5G14030
TIX SG1,4,1 COUNT TO 3 F5G14040
CAL REG,2 F5G14050
ANA SEK4 F5G14060
ORA SGV2 F5G14070
SLW REG,2 F5G14080
LXD SGV1,4 RETURN F5G14090
TRA 1,4 F5G14100
REM THE FI SUBROUTINE FINDS THE HIGHEST FREQUENCY PRED ENTRY FOR F5G14110
REM A GIVEN BB AND STORES IT IN FV 101. F5G14120
F1 SXD FV6,4 STORE RETURN F5G14130
LDQ ZERO SET HIGHEST F5G14140
STQ FV101 FREQ. TO 0. F5G14150
STO FV102 STORE BB NO+ F5G14160
TSX SE1,4 GET INDEX OF BB F5G14170
CLA BBB+5,1 STORE REGION F5G14180
STO FV104 NO. WORD. F5G14190
CAL BBB,1 GET PRED. F5G14200
STA FV7 NO. AND STORE IT F5G14210
CAL FV102 GET AND STORE F5G14220
ADD ONEA FIRST PRED. IN F5G14230
TSX SE1,4 NEXT B.B. F5G14240
CLA BBB,1 F5G14250
STA FV8 F5G14260
CLA FV7 IS THIS PRED. F5G14270
F4 CAS FV8 IN SAME BB F5G14280
TRA F2 F5G14290
TRA F5 NO F5G14300
F2 TSX SE5,4 GET INDEX OF PRED F5G14310
CLA PRED,1 F5G14320
CAS FV101 IS THIS FREQ. GREATER F5G14330
TRA F92 F5G14340
NOP F5G14350
TRA F3 NO F5G14360
F92 STO FV101 STORE NEW MAX. F5G14370
CLA FV7 STORE NEW F5G14380
STO FV103 PRED. NO. F5G14390
F3 CLA FV7 ARRANGE TO F5G14400
ADD ONEA CONSIDER NEXT PRED. F5G14410
STA FV7 F5G14420
TRA F4 F5G14430
F5 LXD FV6,4 F5G14440
TRA 1,4 RETURN F5G14450
REM THE F30 SUBROUTINE FINDS THE HIGHEST FREQUENCY SUCC ENTRY FORF5G14460
REM A GIVEN BB AND STORES IT IN FV 101. F5G14470
F30 SXD FV6,4 F5G14480
LDQ ZERO SET HIGHEST FREQH F5G14490
STQ FV101 TO 0. F5G14500
STO FV102 STORE BB NO. F5G14510
TSX SE,4 F5G14520
CLA BBB+5,1 F5G14530
STO FV104 F5G14540
CAL BBB,1 GET SUCC. NO. F5G14550
STD FV9 AND STORE IT F5G14560
CAL FV102 GET AND STORE F5G14570
ADD ONED SUCC. F5G14580
TSX SE,4 NO. F5G14590
CLA BBB,1 OF 1ST SUCC. F5G14600
STD FV10 IN NEXT BB F5G14610
CLA FV9 F5G14620
F31 CAS FV10 IS SUCC IN SAME BB F5G14630
TRA F32 F5G14640
TRA F34 NO. F5G14650
F32 TSX SE6,4 GET INDEX OF SUCC. F5G14660
CLA SUCC,1 F5G14670
CAS FV101 IS THIS FREQ. GREATER F5G14680
TRA F93 F5G14690
NOP F5G14700
TRA F33 NO F5G14710
F93 STO FV101 STORE NEW MAX. F5G14720
CLA FV9 STORE NEW F5G14730
STO FV103 SUCC. NO. F5G14740
F33 CLA FV9 ARRANGE TO CONSIDER F5G14750
ADD ONED NEXT SUCC. F5G14760
STD FV9 F5G14770
TRA F31 F5G14780
F34 LXD FV6,4 F5G14790
TRA 1,4 RETURN F5G14800
F CLA ZERO SET INDICATOR TO SAY F5G14810
STO LPIND THIS ISNT A LOOP. F5G14820
STO FV1 SET HIGHEST FREQ. TO 0. F5G14830
STO FV5 SET TO CONSIDER 0TH BB F5G14840
F7 CLA FV5 F5G14850
TSX F1,4 FIND MOST FREQ. UNCONSIDERED TRANSFER F5G14860
CLA FV101 IS IT GREATER THAN F5G14870
CAS FV1 PREVIOUS MAXIMUM F5G14880
TRA F85 F5G14890
NOP F5G14900
TRA F6 NO+ F5G14910
F85 STO FV1 REPLACE PREV. MAX. F5G14920
CLA FV102 AND BB NO. F5G14930
STO FV2 F5G14940
CLA FV103 AND PRED. NO. F5G14950
STO FV3 F5G14960
CLA FV104 AND REGION NO. WORD. F5G14970
STO FV4 F5G14980
F6 CLA FV5 ARRANGE TO CONSIDER NEXT F5G14990
ADD ONEA B.B. F5G15000
STO FV5 F5G15010
SUB KEYS F5G15020
ADD ONEA F5G15030
TNZ F7 WAS THIS THE LAST BB F5G15040
F86 DCT YES, IF ANY DIVIDE CHECKS GO F5G15050
TSX 4,4 TO DIAGNOSTIC. F5G15060
CLA FV1 NO DVD CHECKS, WERE THERE ANY F5G15070
TNZ F86A UNCONSIDERED PREDS F5G15080
TRA R NO,CONTINUE PROGRAM, PART I DONE. F5G15090
F86A CLA FV4 YES F5G15100
TZE F9 IS THIS A REGION ALREADY F5G15110
PDX 0,1 YES. F5G15120
CLA REG,1 GET REGION WORD. F5G15130
ANA FK3 F5G15140
TZE F8 IS IT AN OPAQUE REGION F5G15150
CLA FK1 NO,GET TRANSPARENT REGION MARKER. F5G15160
TRA F9 F5G15170
F8 CLA FK2 GET OPAQUE REGION MARKER. F5G15180
F9 STO LPLST+S3P1-2 F5G15190
CLA FV2 STORE THE REGION MARKER F5G15200
ALS 18 AT END OF LPLST. F5G15210
STD LPLST+S3P1-2 F5G15220
CLA S9K3 INITIALIZE THE STORING F5G15230
STD F11 POSITION IN LPLST. F5G15240
F23 CLA FV1 GET INDEX F5G15250
TSX SE1,4 OF BB UP FOR ENTRY. F5G15260
CLA BBB+5,1 IS THIS BB IN F5G15270
TZE F57 A REGION F5G15280
PDX 0,2 YES F5G15290
CLA REG,2 GET AND STORE F5G15300
STO FV4 REGION WORD F5G15310
ANA FK3 F5G15320
TZE F55 IS IT AN OPAQUE REGION F5G15330
LXA S5K4,1 NO, TRANSPARENT F5G15340
F12 CLA LPLST+S3P1,1 F5G15350
TXI F25,1,1 STORE INDEX OF LPLST QUANTITY BEING COMPARED. F5G15360
F25 SXD F18,1 F5G15370
F11 TXH F19,1,K ARE WE THRU WITH COMPARISONS F5G15380
CAS S3K2 NO,IS THIS BB ENTRY F5G15390
NOP F5G15400
TRA F87 F5G15410
TRA F12 YES. F5G15420
F87 TSX SE,4 GET INDEX OF BB F5G15430
CLA BBB+5,1 GET F5G15440
PDX 0,1 REGION F5G15450
CLA REG,1 WORD. F5G15460
LXD F18,1 F5G15470
CAS FV4 IS THIS THE SAME REGION F5G15480
TRA F12 NO F5G15490
TRA F100 F5G15500
TRA F12 NO F5G15510
F100 CLA FV1 PUT EXIT BB NO. F5G15520
STA LPLST+S3P1+1,1 IN TR. REG. QUANTITY F5G15530
F13 TIX F24,1,1 GENERATE INOEX OF LAST THING TO BE MOVED UP. F5G15540
F24 LXD F11,2 GET IN0EX TO GENERATE INDEX OF 1ST THING F5G15550
F43 SXD F18,1 STORE IN0EX OF LAST THING F5G15560
LDQ S3K1 RECORD F5G15570
STQ LPIND LOOP. F5G15580
TIX F14,2,1 GENERATE INDEX OF 1ST THING F5G15590
F14 TSX F15,4 GO TO MOVE LPLST QUANTITIES UP+ F5G15600
TSX F80,4 F5G15610
TRA L TO 1ST LXING PASS. F5G15620
F19 CLA FK1 F5G15630
LXD F11,1 STORE TRANSPARENT F5G15640
STO LPLST+S3P1,1 REGION MARKER F5G15650
CLA FV1 F5G15660
STA LPLST+S3P1,1 F5G15670
TSX SE1,4 FIND BB INDEX. F5G15680
CLA ZERO SET INITIAL MAX F5G15690
STO FV1 FREQ. TO 0+ F5G15700
CLA BBB+5,1 GET THE F5G15710
PDX 0,1 REGION F5G15720
CLA REG,1 WORD F5G15730
ARS 18 F5G15740
F21 TSX F1,4 DETERMINE MOST FREQ. PRED IN BB. F5G15750
CLA FV101 IS IT MORE FREQ. THAN F5G15760
CAS FV1 PREV. MAX. F5G15770
TRA F88 F5G15780
NOP F5G15790
TRA F20 NO. F5G15800
F88 STO FV1 REPLACE PREV. MAX. F5G15810
CLA FV102 AND BB NO. F5G15820
STO FV2 AND F5G15830
CLA FV103 PRED. NO. F5G15840
STO FV3 AND F5G15850
CLA FV104 REGION NO. WORD. F5G15860
STO FV4 F5G15870
F20 CLA FV104 ARRANGE TO CONSIDER THE F5G15880
ANA SBK2 NEXT B.B. IN REGION. F5G15890
CAS SBK2 ARE WE THRU WITH REGION F5G15900
TRA F21 F5G15910
TRA F22 YES F5G15920
TRA F21 F5G15930
F22 CLA FV1 WAS THERE AN UNCONSIDERED F5G15940
TZE F28 PRED F5G15950
CLA FV2 YES,STORE THE F5G15960
LXD F11,1 ENTRY B.B. F5G15970
ALS 18 NO. F5G15980
STD LPLST+S3P1,1 F5G15990
TXI F70,1,1 UP THE STORING INDEX F5G16000
F70 SXD F11,1 F5G16010
TXH F73,1,S3P1 IS LPLST FULL F5G16020
TRA F23 F5G16030
F28 LXD F11,2 F5G16040
F56 LXA S5K4,1 F5G16050
SXD F18,1 F5G16060
TSX F15,4 NONE LPLST UP. F5G16070
CLA LPLST-1 F5G16080
CAS FK4 IS THIS AN OPAQUE REGION F5G16090
NOP F5G16100
TRA F75 TO 2ED LXING PASS. F5G16110
P002 TXH F29,1,2 F5G16120
TRA F75 F5G16130
F73 CLA SEK4 STORE SPECIAL F5G16140
STD LPLST SYMBOL IN DECR. PART OF 1ST LPLST F5G16150
TRA F53 QUANTITY F5G16160
F15 LXD S3K3,1 SET INDEX TO START OF LOOP LIST. F5G16170
F26 CLA LPLST+S3P1,2 MOVE THIS F5G16180
STO LPLST+S3P1,1 ENTRY UP. F5G16190
F18 TXL F17,2,- IN DECR., THE INDEX OF LAST TO BE MOVED. F5G16200
TIX F16,1,1 NO. F5G16210
F16 TIX F26,2,1 ARE WE FINISHED COPYING F5G16220
F17 STO LPLST-1 CASE OF LOOP,STORE PRED. OF 1ST ELEMENT. F5G16230
CLA S3K1 STORE THE END F5G16240
STO LPLST+S3P1+1,1 LO0P LIST QUANTITY. F5G16250
TRA 1,4 F5G16260
F29 SXD F39,1 INITIALIZE STORING LOCATION. F5G16270
F64 CAS S3K2 ISNT OPAQUE REGIONH IS IT BB F5G16280
NOP NO. F5G16290
TRA F89 F5G16300
TRA F44 YES. F5G16310
F89 LDQ ZERO NO, SET INITIAL F5G16320
STQ FV1 FREQ+ TO 0. F5G16330
TSX SE,4 GET F5G16340
CLA BBB+5,1 REGION F5G16350
PDX 0,1 NO. F5G16360
CLA REG,1 GET NO. OF 1ST BB IN REGION F5G16370
F35 TSX F30,4 DETERMINE MOST FREQ SUCC IN BB F5G16380
CLA FV101 IS IT MORE FREQ. THAN F5G16390
CAS FV1 PREV+ MAX F5G16400
TRA F90 F5G16410
NOP YES, F5G16420
TRA F36 NO F5G16430
F90 STO FV1 YES, REPLACE PREV.MAX. F5G16440
CLA FV102 AND BB NO. F5G16450
STO FV2 AND F5G16460
CLA FV103 SUCC. NO+ F5G16470
STO FV3 AND F5G16480
CLA FV104 REGION NO. WORD F5G16490
STO FV4 F5G16500
F36 CLA FV104 ARRANGE TO CONSIDER THE F5G16510
ANA SBK2 NEXT BB IN REGION F5G16520
CAS SBK2 IS II LAST BB IN REGION F5G16530
TRA F94 F5G16540
TRA F37 YES F5G16550
F94 ALS 18 F5G16560
TRA F35 F5G16570
F37 CLA FV1 WAS THERE AN UNCONSIDERED F5G16580
LXD F39,1 SUCC F5G16590
TZE F47 F5G16600
CLA FV2 EXIT BB F5G16610
ARS 18 NO. F5G16620
STA LPLST+S3P1,1 F5G16630
F45 TIX F62,1,1 DOWN THE STORING F5G16640
F62 SXD F39,1 INDEX. F5G16650
CLA FV1 GET INDEX OF F5G16660
TSX SE1,4 BB UP FOR ENTRY. F5G16670
CLA BBB+5,1 IS THIS BB IN F5G16660
TZE F48 A REGION F5G16690
PDX 0,2 YES. F5G16700
CLA REG,2 GET AND F5G16710
STO FV4 STORE REGION WORD. F5G16720
ANA FK3 IS IT IN AN F5G16730
TZE F54 OPAGUE REGION F5G16740
LXD F39,1 NO. F5G16750
CLA FK1 STORE TRANSPARENT REGION F5G16760
STO LPLST+S3P1,1 MARKER F5G16770
CLA FV1 WITH F5G16780
ALS 18 ENTRY F5G16790
STD LPLST+S3P1,1 BB NO. IN DECR. F5G16800
LXD S3K3,2 SET INDEX TO 1ST ELEMENT IN LPLST. F5G16810
F38 CLA LPLST+S3P1,2 F5G16820
CAS S3K2 IS THIS A BB ENTRY F5G16830
NOP F5G16840
TRA F91 F5G16850
TRA F40 YES F5G16860
F91 SXD F18,2 STOREINDEX OF QUANTITYBEING C.F. ED F5G16870
TSX SE1,4 F5G16880
CLA BBB+5,1 GET F5G16890
PDX 0,2 REGION WORD. F5G16900
CLA REG,2 F5G16910
LXD F18,2 GET INDEX OF QUANTITY BEING COMPARED. F5G16920
CAS FV4 IS THIS NAME REGION F5G16930
TRA F40 F5G16940
TRA F41 YES F5G16950
F40 TIX F39,2,1 F5G16960
F39 TXL F42,2,- IS THIS INDEX OF QUANTITY BEING COMPARED F5G16970
TRA F38 NO F5G16980
F41 CLA LPLST+S3P1,2 PUT EXIT BB NO. F5G16990
LXD F39,1 FROM PREVIOUS QUANTITY F5G17000
STA LPLST+S3P1,1 IN THIS LATEST ONE. F5G17010
TRA F43 F5G17020
F42 TXH F63,2,2 IS LPLST FULL F5G17030
F53 CLA S3K1 STORE ENO F5G17040
STO LPLST+S3P1-1 LOOP LIST SENTINEL. F5G17050
TRA F75 GO TO DEAL WITH STRING. F5G17060
F63 CLA LPLST+S3P1,2 F5G17070
TRA F64 F5G17080
F44 TSX F30,4 DETERMINE MOST FREQ. SUCC. IN BB. F5G17090
CLA FV101 STORE THE F5G17100
STO FV1 MOST FREQ. SUCC. AWAY. F5G17110
LXD F39,1 F5G17120
TNZ F45 WAS THERE AN UNCONSIDERED SUCC. F5G17130
F47 CLA S3K1 NO,RECORD AN F5G17140
STO LPLST+S3P1+1,1 END LOOP LIST SENTINEL. F5G17150
TRA F75 F5G17160
F48 LXD F39,1 ENTER BB F5G17170
CLA FV1 NO. AND MARKER F5G17180
ANA SBK2 IN F5G17190
ALS 18 LPLST F5G17200
STO FV4 F5G17210
STO LPLST+S3P1,1 F5G17220
SXD F50,1 F5G17230
LXD S3K3,2 S + TO F5G17240
F51 CLA LPLST+S3P1,2 F5G17250
CAS FV4 IS THIS SAME BB AS NEW ENTRY F5G17260
TRA F49 F5G17270
TRA F43 YES F5G17280
F49 TIX F50,2,1 DECREASE COMPARISON INDEX. F5G17290
F50 TXL F52,2,- IS THIS INDEX OF NEW QUANTITY F5G17300
TRA F51 NO. F5G17310
F52 TXH F63,2,2 IS LPLST FULL F5G17320
TRA F53 YES. F5G17330
F54 LXD F39,1 IS OPAQUE REGION F5G17340
CLA FK2 ENTER OPAQUE F5G17350
STO LPLST+S3P1,1 REGION MARKER F5G17360
CLA FV1 WITH CORRECT F5G17370
ALS 18 ENTRY BB F5G17380
STD LPLST+S3P1,1 NO. F5G17390
TRA F47 F5G17400
F55 LXD F11,2 STORE THE F5G17410
CLA FK2 OPAQUE F5G17420
STO LPLST+S3P1,2 REGION MARKR F5G17430
CLA FV1 WITH F5G17440
STA LPLST+S3P1,2 EXIT BB F5G17450
TRA F56 NO. F5G17460
F57 CLA FV1 PUT THE F5G17470
ANA SBK2 B.B. NO. F5G17480
ALS 18 IN F5G17490
STO FV4 DECR. PART. F5G17500
CLA F11 SET THE END F5G17510
STD F59 TEST. F5G17520
LXA S5K4,1 SET INDEX OF 1ST LPLST TO BE COMPARED F5G17530
F61 CLA LPLST+S3P1,1 F5G17540
TXI F58,1,1 F5G17550
F58 SXD F18,1 F5G17560
F59 TXH F60,1,- WAS THAT THE LAST QUANTITY F5G17570
CAS FV4 IS THIS THE SAME BB. F5G17580
TRA F61 F5G17590
TRA F13 YES F5G17600
TRA F61 F5G17610
F60 LXD F11,1 F5G17620
CLA FV1 STORE THE F5G17630
ANA SBK2 BB F5G17640
ALS 18 MARKER. F5G17650
STO LPLST+S3P1,1 F5G17660
CLA FV1 F5G17670
TSX F1,4 FIND MOST FREQ. PRED. OF BB. F5G17680
CLA FV101 DOES B.B. HAVE F5G17690
STO FV1 UNCONSIDERED PRED. F5G17700
TNZ F71 F5G17710
LXD F11,2 NO,GO TO MOVE LPLST UP. F5G17720
TRA F56 F5G17730
F71 LXD F11,1 F5G17740
TXI F72,1,1 UP THE STORING INDEX F5G17750
F72 SXD F11,1 F5G17760
TXH F53,1,S3P1 IS LPLST FULL F5G17770
TRA F23 NO. F5G17780
F80 LXA FK5,1 FIND F5G17790
F81 CLA REG,1 THE 1ST AVAILABLE REGION F5G17800
TZE F82 POSITION. F5G17810
TIX F81,1,1 F5G17820
TSX 4,4 DIAGNOSTIC, ERROR F5G17830
F82 SXD XV1,1 STORE THE INDEX F5G17840
REM OF THE NEW REGION WORD F5G17850
F83 LDQ ZERO STORE INITIAL F5G17860
STQ XV2 VALUE OF REGION F5G17870
TRA 1,4 F5G17880
F78 TSX SA,4 GET EXIT CONDITIONS OF REGION. F5G17890
LXA S5K5,1 PUT EXIT F5G17900
LDQ ZERO F5G17910
F76 CLA EX1+3,1 CONDITONS F5G17920
STO IR1+3,1 INTO F5G17930
CLA ACT1+3,1 I+R.S F5G17940
STQ AC1+3,1 F5G17950
TPL F77 IS THIS EXIT ACTIVE F5G17960
CLA S3K3 YES,FORM AND F5G17970
SSM STORE ACTIVE F5G17980
STO AC1+3,1 INDICATOR F5G17990
F77 TIX F76,1,1 COUNT TO 3 F5G18000
CLA S3K3 INITIALIZE F5G18010
SUB ONED LOOP LIST F5G18020
STO S3V4 TO ITS F5G18030
STO S3V5 F5G18040
CLA S5K3 2ED F5G16050
STO S3V3 ELEMENT F5G18060
SXD S3V2,0 F5G18070
TRA X32 F5G18080
F75 TSX F80,4 DETERMINE NEW REGION INDEX F5G18090
CLA LPLST IS 1ST F5G18100
LDQ S3K2 ELEMENT OF LPLST A TRANSPARENT F5G18110
TLQ F78 ON OPAQUE REGION F5G18120
LXA S5K5,1 NO,INITIALIZE F5G18130
CLA S5K1 THE F5G18140
F79 STO IR1+3,1 I.R.S F5G18150
TIX F79,1,1 TO EMPTINESS F5G18160
TRA X F5G18170
REM FIRST LXING PASS. F5G18180
L SXD ROT3,0 F5G18190
SXD ROT1,0 F5G18200
INIZ LXA S5K5,1 INITIALIZE F5G18210
CLA S5K1 THE F5G18220
L23 STO IR1+3,1 INDEX REGISTERS F5G18230
TIX L23,1,1 TO EMPTINESS. F5G18240
LDQ S3K3 F5G18250
STQ S3V4 INITIALIZE THE F5G18260
LDQ S5K3 LOOP LIST. F5G18270
STQ S3V3 MAKE SURE THAT THE F5G18280
SXD S3V2,0 F5G18290
1L4 TSX S3,4 GET NEXT TAG. F5G18300
TRA L6 *RETURN HERE IF TAG WASNT GOTTEN. F5G18310
LXA S5K5,1 SET COUNT TO 3,N=1 F5G18320
CLA 1TAG IS CL (TAG) EQUAL F5G18330
L2 CAS IR1+3,1 TO C (IRN) F5G18340
TRA L1 NO. F5G18350
TRA 1L3 YES F5G18360
L1 TIX L2,1,1 NO. COUNT TO 3,N=N+1 F5G18370
CLA TPE IS THIS F5G18380
CAS XK15 AN LXP INSTR. F5G18390
TRA L18 NO, F5G18400
TRA ROT0 YES F5G18410
L18 CAS XK21 NO,IS IT A DED INSTR. F5G18420
TRA L17 NO F5G18430
TRA ROT0 YES F5G18440
TRA L17 F5G18450
ROT0 LXD S3V4,2 F5G18460
TXL 1L4,2,S3P1-2 F5G18470
LXD ROT3,2 F5G18480
TXI ROT1,2,-1 F5G18490
ROT1 TXL 1L4,2,- F5G18500
SXD ROT3,2 F5G18510
LXD ZERO,2 F5G18520
ROT2 CLA LPLST,2 F5G18530
CAS S3K1 F5G18540
ROT3 TXL ROT4,0,- F5G18550
TXL ROT5,0,- F5G18560
ROT4 STO LPLST-1,2 F5G18570
TXI ROT2,2,-1 F5G18580
ROT5 SXD ROT1,2 F5G18590
CLA LPLST-1 F5G18600
STO LPLST-1,2 F5G18610
TRA INIZ F5G18620
L17 TSX S1,4 SELECT MOST REPLACEABLE I.R. F5G18630
LXD IRR,4 PLACE TAU-TAG F5G18640
CLA 1TAG IN APPROPRIATE F5G18650
STO IR1+3,4 I.R. F5G18660
TRA 1L4 F5G18670
1L3 CLA TPE IS THIS AN LXP F5G16680
CAS XK15 F5G18690
TRA 1L19 F5G16700
TRA L5 YES F5G18710
1L19 CAS XK21 IS IT AN DED F5G18720
TRA 1L4 F5G18730
TRA L5 YES. F5G18740
TRA 1L4 F5G18750
L5 CLA LK1 PLACE AN E (HASH F5G18760
STO IR1+3,1 SYMBOL) IN F5G18770
TRA 1L4 RIGHT IR, F5G18780
L6 STO LV4 IS THIS AN END OF LOOP F5G18790
CAS S3K1 LIST SENTINEL F5G18800
TRA L14 NO, F5G18810
TRA L15 YES, F5G18820
L14 CAL LV4 IS F5G18830
ANA LK3 THIS A F5G18840
TZE 1L4 BB F5G18850
CLA LV4 NO,FORM CORRESPONOENCE F5G18860
TSX S5,4 BETWEEN IRS AND ENS F5G18870
CLA LV4 GET + STORE EXIT CONDITIONS F5G18880
TSX SA,4 AND (USELESSLY+ OCTIVE 1NOICATORS. F5G18890
LXA S5K5,1 SET COUNT TO 3,N=1 F5G18900
L11 CLA EN4+3,1 PUT CORRESPONDENCE INDEX F5G18910
PDX 0,2 IN 2. F5G18920
CLA EX1+3,1 IS THIS EXIT CONDITION F5G18930
CAS S5K1 EMPTY F5G18940
TRA L13 NO, F5G18950
TRA P003 F5G18960
L13 STO IR1+3,2 NO,REPLACE C (IR) BY EXIT CONDITION. F5G18970
L10 TIX L11,1,1 COUNT TO 3,N=N+1 F5G18980
TRA 1L4 F5G18990
P003 CLA IR1+3,2 F5G19000
LDQ LK1 F5G19010
TLQ L10 F5G19020
LXA S5K5,4 F5G19030
P003A CAS EX1+3,4 F5G19040
TRA P003B F5G19050
STQ IR1+3,2 F5G19060
P003B TIX P003A,4,1 F5G19070
TRA L10 F5G19080
L15 LXA S5K5,1 COPY ASIDE THE FINAL F5G19090
L16 CLA IR1+3,1 CONTENTS F5G19100
CAS LK1 (IF REAL, OTHERWISE F5G19110
NOP F5G19120
CLA S5K1 SET TO F5G19130
STO IR1+3,1 EMPTY) F5G19140
STO LV1+3,1 OF THE F5G19150
TIX L16,1,1 IRS F5G19160
REM THE SECONO LXING PASS FOLLOWS. F5G19170
REM PRECEEDED BY 1ST LXING PASS F5G19180
X LDQ S3K3 INITIALIZE THE F5G19190
STQ S3V4 LOOP LIST AND F5G19200
LDQ S5K3 MAKE SURE TAG F5G19210
STQ S3V3 LOC. GETS SET. F5G19220
SXD S3V2,1 F5G19230
X21 CLA ZERO SET ACTIVE INDICATORS F5G19240
STO AC1 TO F5G19250
STO AC2 F5G19260
STO AC3 NOT ACTIVE. F5G19270
X32 CLA ZERO SET LX INDICATORS F5G19280
STO LX1 TO F5G19290
STO LX2 NOT F5G19300
STO LX3 LX ED. F5G19310
STO ACIND SET IND. TO SAY THIS IS 2ED LXING PASS F5G19320
X3 TSX S3,4 TRY TO GET NEXT TAG. F5G19330
TRA X13 COME HERE IF TAG NOT GOT. F5G19340
CLA S39 COMPUTE LOCATIONS OF F5G19350
ANA SBK2 THIS TAG=(ADDR. FOLLOWING F5G19360
ADD S4V1 TIX BLACK + L (CM)- F5G19370
SUB S4K3 CMTAG-INDEX OF TAG F5G19380
ALS 18 F5G19390
SBM S3V2 F5G19400
LRS 53 THEN FORM LOC/9 F5G19410
STQ XV5 AND REMAINDER F5G19420
DVP XK9 STORE INTEG. PART F5G19430
STQ XV3 AND REMAINDER. F5G19440
STO XV4 F5G19450
LXA S5K5,1 SET COUNT TO 3,N=1 F5G19460
CLA 1TAG F5G19470
X2 CAS IR1+3,1 IS CONTENTS OF IRN SAME AS 0F TAG F5G19480
TRA X1 NO F5G19490
TRA X7 YES F5G19500
X1 TIX X2,1,1 NO COUNT OT 3,N=N+1 F5G19510
CLA TPE IS THIS AN F5G19520
CAS XK15 LX PRIME F5G19530
TRA X103 NO F5G19540
TRA X8 YES. COMPILE LXD FOR LXP. F5G19550
X103 CAS XK21 IS IT A DED F5G19560
TRA X8 F5G19570
TRA X3 YES F5G19580
X8 TSX S1,4 SELECT MOST REPLACEABLE I.R. F5G19590
LXD IRR,1 PLACE TAU-TAG F5G19600
CLA 1TAG IN SELECTED F5G19610
STO IR1+3,1 I.R. F5G19620
CLA AC1+3,1 IS THIS F5G19630
TZE X4 IR ACTIVE F5G19640
TSX SB,4 YES,RECORD SXD NECESSARY. F5G19650
X4 CLA TPE IS THIS F5G19660
CAS S2K2 AN LX F5G19670
TRA X5 NO F5G19680
TRA X14 YES F5G19690
X5 CAL INTAG IS THIS 1ST INSTR. F5G19700
ANA XK10 IN A BB F5G19710
TNZ X9 F5G19720
CLA XV3 NO, F5G19730
TSX SE4,4 DETERMINE INDEX IN STAG F5G19740
LXA XV4,2 F5G19750
CAL XK11 GENERATE F5G19760
ALS 8,2 LX BIT F5G19770
ORS STAG,1 STORE IN STAG. F5G19780
X14 TSX SF,4 CHECK IF AN ACT1VE INSTR. F5G19790
TRA X01 COME HERE IF NOT ACTIVE F5G19800
LXD IRR,1 ACTIVE-STORE ACTIVE F5G19810
CLA SFV1 INDICATOR F5G19820
STO AC1+3,1 F5G19830
X01 LXD IRR,2 F5G19840
CLA LX1+3,2 WAS AN ENTRANCE REQUIREMENT F5G19850
TNZ X19 BEEN DETERMINED FOR THIS BB. F5G19860
CLA LK1 NO,RECORD HASH F5G19870
STO LX1+3,2 AS ENTRANCE REQUIREMENT F5G19880
X19 CAL S5K3 RECORD THAT THERE IS AN F5G19890
ARS 3,2 LX FOR THIS IR IN F5G19900
ORS XV2 REGION. F5G19910
X02 CLA XV3 RECORD THE F5G19920
TSX SE4,4 SPECIFIC F5G19930
CAL XV4 TAG F5G19940
COM IN F5G19950
PAX 0,2 THE F5G19960
CAL IRR STAG F5G19970
ARS 0,2 TABLE F5G19980
ARS 0,2 F5G19990
ORS STAG,1 F5G20000
TRA X3 F5G20010
X9 LXD S3V4,1 GET F5G20020
TXL XI1+1,1,S3P1-2 F5G20030
CLA LPIND F5G20040
TMI XI1+1 F5G20050
LXD IRR,2 F5G20060
XI1 TRA X16-3 F5G20070
CLA LPLST+S3P1-2,1 AND F5G20080
CAS S3K2 STORE F5G20090
NOP BB F5G20100
TRA X117 F5G20110
ARS 18 PRED F5G20120
X117 STA SBV3 NO. F5G20130
CLA LPLST+S3P1-1,1 F5G20140
TSX SE,4 GET ADDR. OF F5G20150
CLA BBB,1 1ST PRED. F5G20160
X03 SLW SBV2 F5G20170
TSX SE5,4 GET PRED. F5G20180
CAL PRED,1 F5G20190
ANA SBK2 F5G20200
CAS SBV3 IS THIS RIGHT PRED. F5G20210
TRA X04 NO F5G20220
TRA X05 YES F5G20230
X04 CLA SBV2 NO ARRANGE TO F5G20240
ADD ONEA TRY NEXT F5G20250
TRA X03 PRED. F5G20260
X05 LXD IRR,2 PUT LX F5G20270
CAL XK16 BIT INTO F5G20280
ARS 3,2 PRED. F5G20290
ORS PRED,1 TABLE. F5G20300
LXD S3V4,4 F5G20310
ORS LPLST+S3P1-1,4 F5G20320
CLA IR1+3,2 SET ENTR. REQU. F5G20330
STO LX1+3,2 F5G20340
TRA X14 F5G20350
X16 TSX SC,4 RECORD I.R. ACTIVE IN SECTION OF LPLST F5G20360
LDQ LK1 F5G20370
CLA LX1+3,1 HAS THIS F5G20380
TNZ X100 ENTR. REQU. BEEN DETERMINED F5G20390
STQ LX1+3,1 NO,RECORD ENTR. REQU. IS AN E. F5G20400
X100 STQ IR1+3,1 ERASE THIS I.R. F5G20410
CLA ZERO RECORD THAT THIS F5G20420
STO AC1+3,1 I.R. ISNT ACTIVE. F5G20430
TRA X02 F5G20440
X7 SXD IRR,1 F5G20450
CLA TPE IS THIS F5G20460
CAS XK15 AN LXP F5G20470
TRA X104 NO F5G20480
TRA X16 YES. F5G20490
X104 CAS XK21 IS IT A DED F5G20500
TRA X15 F5G20510
TRA X16 YES. F5G20520
X15 TSX SF,4 DETERMINE ACTIVITY. F5G20530
TRA X17 COME HERE IF NOT ACTIVE. F5G20540
LXD IRR,1 F5G20550
TSX SC,4 RECORD PART OF LOOP LIST ACTIVE. F5G20560
CLA SFV1 STORE ACTIVE F5G20570
STO AC1+3,1 INDICATOR. F5G20580
X17 CLA TPE F5G20590
CAS S2K2 IS THIS AN LX F5G20600
TRA X18 F5G20610
TRA X01 YES. F5G20620
X18 LXD IRR,1 F5G20630
CLA LX1+3,1 WAS THIS F5G20640
TNZ X02 I.R. LX ED F5G20650
CLA IR1+3,1 NO,STORE THE TAG F5G20660
STO LX1+3,1 IN TH LX INDICATOR. F5G20670
TRA X02 F5G20680
X22 TSX SE,4 MAKE SURE BB IS IN C+M. F5G20690
LXA S5K5,2 F5G20700
X25 CLA LX1+3,2 F5G20710
TNZ X23 HAS THIS ENTRANCE REQ. BEEN FOUND F5G20720
CLA IR1+3,2 NO,ENTRANCE = EXIT. F5G20730
X23 ALS 18 PUT ENTR. REQ. IN LEFT. F5G20740
ADD IR1+3,2 ADD THE EXIT REQUIREMENTS. F5G20750
SLW BBB+2,1 F5G20760
TXI X24,1,-1 DOWN INDEX OF ENTR-EXIT REQU. F5G20770
X24 TIX X25,2,1 COUNT TO 3 F5G20780
TRA X26 F5G20790
X13 LXD S3V4,1 GET LOOP LIST QUANTITY F5G20800
TXH X26,1,S3P1-2 TRANSFER IF THIS IS 1ST IN LPLST F5G20810
CLA LPLST+S3P1-2,1 OF PREVIOUS QUANTITY F5G20820
STO XV19 F5G20830
LDQ S3K2 WAS IT F5G20840
TLQ X126 A BB F5G20850
ARS 18 YES F5G20860
X126 ANA S3K4 IS THERE F5G20870
LDQ SAK1 F5G20880
TLQ X129 F5G20890
TSX SE1,4 YES, GET EXIT BB F5G20900
CLA BBB,1 WAS THAT BB F5G20910
ARS 33 TERMINATED BY F5G20920
ADD ONEA A F5G20930
TNZ X129 GO TO N F5G20940
LXA S5K5,1 YES, SET COUNT TO 3 F5G20950
X128 CLA AC1+3,1 IS THIS IR F5G20960
TZE X127 ACTIVE F5G20970
TSX SB,4 YES, RECORD SXD NECESSARY F5G20980
X127 TIX X128,1,1 COUNT TO 3 F5G20990
X129 CLA XV19 GET F5G21000
CAS S3K2 F5G21010
NOP NO F5G21020
TRA X26 F5G21030
TRA X22 YES, F5G21040
X26 CLA S3V5 NO F5G21050
CAS S3K1 IS THIS AN END-LOOP-LIST F5G21060
TRA X31 NO F5G21070
TRA X88 YES F5G21080
X31 CAL S3V5 F5G21090
ANA LK3 F5G21100
CAS XK17 WHAT TYPE ENTRY IS THIS F5G21110
TRA X118 F5G21120
TRA X33 TRANSPARENT REGION F5G21130
TRA X32 BB F5G21140
X118 CLA S3V5 OPAQUE REGION F5G21150
TSX SE,4 IS F5G21160
CLA BBB+5,1 THIS F5G21170
STO XV24 F5G21180
STD XV23 THE F5G21190
CLA LPLST SAME F5G21200
LDQ FK4 F5G21210
TLQ X221 F5G21220
TXI X213,0,- F5G21230
X221 TSX SE1,4 REGION F5G21240
CLA BBB+5,1 AS F5G21250
ANA S2K1 AT THE BEGINNING F5G21260
SUB XV23 OF THE F5G21270
STO XV24 STORE IND. OF SAMENESS OF 1ST REGION F5G21280
TZE X61 LPLST F5G21290
X213 CLA S3V5 F5G21300
X57 TSX S5,4 NO,MATCH ENTR. REQU. F5G21310
X63 LXD XV23,1 GET F5G21320
CLA REG,1 REGION WORD F5G21330
TSX SE,4 CST INDEX OF 1ST BB F5G21340
X209 CAL BBB+1,1 GET THE F5G21350
SLW XV9 ORIGINAL PERM. NOS. F5G21360
ANA XK20 STORE WORD TO F5G21370
SLW XV8 CONTAIN NEW PERM. NOS. F5G21380
LXA S5K5,2 SET COUNT TO 3 F5G21390
X210 CAL XV9 GET THE F5G21400
ARS 3,2 F5G21410
ARS 3,2 PERM. NO. AND F5G21420
ANA S9K3 PUT IT F5G21430
PDX 0,4 IN 4. F5G21440
CLA EN4+3,4 GET THE F5G21450
ALS 3,2 CORRESPONDENCE F5G21460
ALS 3,2 OF THE ENTR. REQUIREMENTS F5G21470
ORS XV8 FORM NEW PERM. F5G21480
TIX X210,2,1 F5G21490
CAL XV8 STORE NEW PERM. F5G21500
STD BBB+1,1 NOS. F5G21510
CLA BBB+5,1 IS THIS THE LAST F5G21520
ANA SBK2 BB IN REGION F5G21530
CAS SBK2 F5G21540
TRA X211 NO. F5G21550
TRA X212 YES, DONE F5G21560
X211 TSX SE1,4 ARRANGE TO DO NEXT F5G21570
TRA X209 BB. F5G21580
X212 LXA S5K5,1 SET COUNT TO 3 F5G21590
X60 CLA IN1+3,1 GET INDEX F5G21600
PDX 0,2 OF EN. F5G21610
CLA EN1+3,2 IS C(ENM) F5G21620
CAS IR1+3,1 =C(IRN) F5G21630
TRA X58 F5G21640
TRA X64 YES, F5G21650
X58 CAS S5K2 IS C(ENM) REAL F5G21660
NOP NO, F5G21670
TRA X119 F5G21680
TRA X67 YES, F5G21690
X119 CLA AC1+3,1 NO,IS F5G21700
X102 TZE X59 IRN ACTIVE F5G21710
X65 TSX SB,4 YES,RECORD SXD NECESSARY. F5G21720
X59 TIX X60,1,1 F5G21730
TSX SG,4 PERMUTE REGION WORD F5G21740
X89 CLA LPLST F5G21750
CAS S3K2 IS IT A BB F5G21760
TSX SE1,4 NO F5G21770
TRA X206 F5G21780
TRA X207 F5G21790
X206 CLA BBB+5,1 F5G21800
PDX 0,1 F5G21810
CLA REG,1 FORM NO OF 1ST BB IN REGION F5G21820
X207 STD XV2 F5G21830
LXA S5K5,1 F5G21840
X116 CLA S5K1 F5G21850
CAS IR1+3,1 IS THIS IR EMPTY F5G21860
TRA X115 F5G21870
CAL XK23+3,1 YES, INITIALIZE IR F5G21880
ORS XV2 TO EMRTYNESS F5G21890
X115 TIX X116,1,1 COUNT TO 3 F5G21900
LXD S3K3,2 PREPARE TO SCAN LOOP LIST F5G21910
SXD XV12,2 F5G21920
X79 CLA LPLST+S3P1,2 F5G21930
CAS S3K1 IS THIS END LOOP LIST F5G21940
TRA X120 F5G21950
TRA X81 YES. F5G21960
X120 CAS S3K2 IS IT A BB F5G21970
NOP F5G21980
TRA X121 F5G21990
ARS 18 YES. F5G22000
X121 STA SBV3 STORE EXIT BB NO. F5G22010
CLA LPLST+S3P1+1,2 F5G22020
CAS S3K1 IS NEXT QUANTITY AN END LPLST F5G22030
TRA X107 F5G22040
TRA X114 YES. F5G22050
X107 ARS 18 F5G22060
STA XV18 STORE ENTRY BB NO. F5G22070
ADD ONEA F5G22080
TSX SE1,4 F5G22090
CAL BBB,1 F5G22100
ANA SBK2 F5G22110
STO SBV5 F5G22120
CLA XV18 F5G22130
TSX SE1,4 F5G22140
CLA BBB,1 F5G22150
ANA SBK2 F5G22160
X109 SLW SBV2 F5G22170
TSX SE5,4 F5G22180
CAL PRED,1 F5G22190
ANA SBK2 F5G22200
CAS SBV3 IS THIS THE RIGHT TRANSFER F5G22210
TRA X108 F5G22220
TRA X110 YES F5G22230
X108 CLA SBV2 ARRANGE TO TRY F5G22240
ADD ONEA NEXT PRED. F5G22250
CAS SBV5 IS THIS PRED ENTRY IN SAME BB F5G22260
TRA X109 F5G22270
TRA X222 F5G22280
TRA X109 F5G22290
X110 CLA PRED,1 SET SIGN F5G22300
SSM OF PRED. F5G22310
STO PRED,1 ENTRY NEGATIVE. F5G22320
TRA X108 F5G22330
X222 CLA SBV3 GET INDEX F5G22340
ADD ONEA F5G22350
TSX SE1,4 OF F5G22360
CLA BBB,1 F5G22370
ANA S2K1 F5G22380
STO SBV5 F5G22390
CLA SBV3 F5G22400
TSX SE1,4 F5G22410
CLA BBB,1 F5G22420
ANA S2K1 F5G22430
X112 SLW SBV2 F5G22440
TSX SE6,4 F5G22450
CAL SUCC,1 F5G22460
ANA SBK2 F5G22470
CAS XV18 IS THIS RIGHT SUCC. F5G22480
TRA X111 F5G22490
TRA X113 F5G22500
X111 CLA SBV2 ARRANGE TO TRY NEXT SUCC. F5G22510
ADD ONED F5G22520
CAS SBV5 IS THIS SUCC IN SAME BB F5G22530
TRA X112 F5G22540
TRA X74 F5G22550
TRA X112 F5G22560
X114 CLA LPIND IS THIS F5G22570
TPL X74 A LOOP F5G22580
CLA LPLST YES F5G22590
TRA X107 F5G22600
X113 CLA SUCC,1 SET SIGN F5G22610
SSM OF SUCC+ ENTRY F5G22620
STO SUCC,1 NEGATIVE F5G22630
TRA X111 F5G22640
X74 LXD XV12,2 F5G22650
CLA LPLST+S3P1,2 F5G22660
CAS S3K2 IS IT A BB F5G22670
NOP F5G22680
TRA X122 F5G22690
TRA X80 YES F5G22700
X122 PDX 0,4 F5G22710
TXH X205,4,-2 IS THE DECR. AN IMPOSSIBLE BB F5G22720
ARS 18 F5G22730
X205 TSX SE1,4 F5G22740
CLA BBB+5,1 THE F5G22750
PDX 0,1 REGION F5G22760
CAL REG,1 WORD F5G22770
SLW XV17 F5G22780
TZE X105 HAS THIS REGION ALREADY BEEN RENUMBERED F5G22790
ANA LK3 OR THE LX BITS FOR F5G22800
ORS XV2 OLD REGION IN NEW REGION WORD. F5G22810
CAL XK22 AND THE OLD PHI F5G22820
ORA XV17 BITS F5G22830
ANS XV2 INTO NEW REGION WORD. F5G22840
CLA ZERO CLEAR OLD F5G22850
STO REG,1 REGION WORD. F5G22860
CLA XV17 GET INDEX OF F5G22870
ARS 18 FIRST BB IN REG F5G22880
X75 STA XV22 STOREBB NO. F5G22890
TSX SE1,4 GET INDEX OF BB F5G22900
X101 CLA XV1 STORE THE F5G22910
STD BBB+5,1 NEW REGION NO. F5G22920
CLA BBB+5,1 IS THIS THE F5G22930
ANA SBK2 LAST BB F5G22940
CAS SBK2 OF THE REGION F5G22950
TRA X75 F5G22960
TRA X76 YES. F5G22970
TRA X75 F5G22980
X105 CLA XV22 RECORD THAT PREVIOUSLY F5G22990
TSX SE1,4 NUMBERED BB F5G23000
CLA XK22 WAS LAST F5G23010
STA BBB+5,1 ONE IN NEW REGION. F5G23020
TRA X81 FINISHED RENUMBERING. F5G23030
X80 ARS 18 F5G23040
STA XV22 F5G23050
TSX SE1,4 F5G23060
X76 LXD XV12,2 F5G23070
X140 TXI X140+1,2,-1 F5G23080
SXD XV12,2 F5G23090
X77 CLA LPLST+S3P1,2 F5G23100
CAS S3K1 IS THIS END LOOP LIST F5G23110
X219 TXI X217,0,- SEE X217+2 F5G23120
CLA S5K1 YES F5G23130
X216 STA BBB+5,1 RECORD THE NEXT BB NO. F5G23140
CLA XV1 RECORD THE F5G23150
STD BBB+5,1 NEW REGION F5G23160
TRA X79 NO. F5G23170
X217 LDQ S3K2 F5G23180
TLQ X220 F5G23190
X215 ARS 18 NO F5G23200
X218 TXI X216,0,- F5G23210
X220 SXD X219,2 F5G23220
TSX SE,4 F5G23230
CLA BBB+5,1 F5G23240
PDX 0,1 F5G23250
CLA REG,1 GET REGION WORD F5G23260
STD X218 F5G23270
CLA XV22 F5G23280
TSX SE1,4 F5G23290
CLA X218 F5G23300
LXD X219,2 F5G23310
TXI X215,-,- F5G23320
X81 CLA XV2 F5G23330
ORA ONEA F5G23340
LXD XV1,1 NEW REGION F5G23350
STO REG,1 WORD. F5G23360
TRA F F5G23370
X61 LXA S5K5,1 F5G23380
X62 PXD 0,1 PLACE APPROPRIATE NOS. F5G23390
STD IN1+3,1 IN CORRSEPONDENCE F5G23400
STD EN4+3,1 TABLES F5G23410
TIX X62,1,1 F5G23420
CLA S3V5 F5G23430
TSX S9,4 GET THE ENTRANCE REQUIREMENTS F5G23440
TRA X63 F5G23450
X64 CLA AC1+3,1 IS THIS I.R. F5G23460
TZE X59 ACTIVE F5G23470
LXD S3V4,4 YES. F5G23480
CLA LPLST+S3P1-1,4 GET F5G23490
SXD XV11,1 THE F5G23500
SXD XV12,2 REGION F5G23510
TSX SE,4 WORD F5G23520
CLA BBB+5,1 IN F5G23530
PDX 0,4 THE F5G23540
LDQ REG,4 MQ. F5G23550
LXD XV11,1 HAS THERE F5G23560
LXD XV12,2 F5G23570
RQL 3,2 BEEN AN LX F5G23580
TQP X66 FOR THIS I.R. F5G23590
TRA X65 YES F5G23600
X66 CLA XV24 F5G23610
TNZ X208 IS THIS SAME REG. AS BEGINS STRING F5G23620
CLA LPLST YES F5G23630
TSX SA,4 GET ACTIVE INDS. AT START OF STRING F5G23640
LXD XV11,1 F5G23650
CLA ACT1+3,1 WAS THIS IR ACTIVE AT START F5G23660
TPL X65 F5G23670
X208 LXD S3V4,4 YES, MARK ALL F5G23680
CLA LPLST+S3P1-1,4 BBS IN OPAQUE F5G23690
LXD XV11,2 REGION ACTIVE F5G23700
TSX SD,4 F5G23710
LXD XV11,1 F5G23720
TSX SC,4 MARK SECTION OF LLLST ACTIVE F5G23730
TRA X59 F5G23740
X67 SXD XV11,1 F5G23750
LXD S3V4,1 GET F5G23760
CLA LPLST+S3P1-2,1 PRED+ NO F5G23770
CAS S3K2 IS THIS A BB F5G23780
NOP NO F5G23790
TRA X123 F5G23800
ARS 18 YES,SHIFT BB NO RIGHT. F5G23810
X123 STA SBV3 AND STORE IT F5G23820
CLA LPLST+S3P1-1,1 GET INDEX OF F5G23830
TSX SE,4 THIS BB F5G23840
CLA BBB+1,1 GET TO STORE F5G23850
STO XV9 PREM. NO. F5G23860
CLA BBB,1 GET PRED. NO. F5G23870
X68 SLW SBV2 F5G23880
TSX SE5,4 GET INDEX OF PRED. F5G23890
CAL PRED,1 IS THIS THE F5G23900
ANA SBK2 RIGHT PRED F5G23910
CAS SBV3 F5G23920
TRA X69 F5G23930
TRA X70 YES. F5G23940
X69 CLA SBV2 F5G23950
ADD ONEA F5G23960
TRA X68 F5G23970
X70 LXA S5K5,4 SET COUNT TO 3 F5G23980
X72 CAL XV9 FIND F5G23990
ARS 3,4 THE F5G24000
ARS 3,4 PERM+ NO. F5G24010
ANA S9K3 F5G24020
CAS XV11 IS THIS THE RIGHT I.R. F5G24030
TRA X71 NO, F5G24040
TRA X73 YES, F5G24050
X71 TIX X72,4,1 NO, F5G24060
TSX 4,4 DIAGNOSTIC, ERROR. F5G24070
X73 CAL XK16 RECORD THAT AN F5G24080
ARS 3,4 LX IS F5G24090
ORS PRED,1 NECESSARY. F5G24100
LXD XV11,4 RECORD F5G24110
CAL S5K3 LX F5G24120
ARS 3,4 FOR THIS I.R. F5G24130
ORS XV2 IN THIS REGION. F5G24140
LXD XV11,1 F5G24150
TRA X119 F5G24160
X33 CLA S3V5 F5G24170
TSX S5,4 MATCH ENTRANCE REQU. F5G24180
CLA S3V5 F5G24190
TSX SA,4 GET EXIT COND. F5G24200
CLA S3V5 F5G24210
TSX SE,4 GET INDEX OF F5G24220
CLA BBB+5,1 B.B. F5G24230
PDX 0,1 GET F5G24240
CLA REG,1 REGION F5G24250
TSX SE,4 WORD. F5G24260
X40 SXD XV13,1 GET INDEX OF FIRST BB. F5G24270
CAL BBB+1,1 CLEAR REGISTER TO F5G24280
SLW XV9 CONTAIN PERM. NOS. F5G24290
ANA XK20 GET ORIGINAL PERM. NOS. F5G24300
SLW XV8 F5G24310
LXA S5K5,2 SET COUNT TO 3. F5G24320
X38 CAL XV9 GET THE F5G24330
ARS 3,2 PERM. F5G24340
ARS 3,2 NO. AND F5G24350
ANA S9K3 PUT IT F5G24360
PDX 0,4 IN 4. F5G24370
CLA EN4+3,4 GET THE CORRESPONDENCE F5G24380
ALS 3,2 OF THE ENTR, F5G24390
ALS 3,2 REQUIREMENTS. F5G24400
ORS XV8 FORM NEW PERM. NOS. F5G24410
SXD XV10,1 F5G24420
CLA EN4+3,4 F5G24430
PDX 0,1 GET INDEX OF I.R. F5G24440
CLA EN1+3,4 F5G24450
CAS S5K1 IS ENM EMPTY F5G24460
TRA X34 NO, F5G24470
TRA X41 YES, F5G24480
X34 CAS LK1 NO,IS C(ENM)=E F5G24490
TRA X35 NO, F5G24500
TRA X36 YES, F5G24510
X35 CAS IR1+3,1 C-(ENM)=C(IRN) F5G24520
TRA X36 NO F5G24530
TRA X43 YES F5G24540
X36 LXD XV10,1 NO F5G24550
X42 TXI X42+1,1,-1 F5G24560
X37 TIX X38,2,1 COUNT TO 3 F5G24570
CAL XV8 STORE NEW F5G24580
STD BBB-2,1 PERM. NOS. F5G24590
STP BBB-2,1 AND ACTIVE INDICATORS F5G24600
CLA BBB+2,1 IS THIS F5G24610
ANA SBK2 LAST BB IN REGION F5G24620
CAS SBK2 F5G24630
TRA X39 F5G24640
TRA X45 YES,DONE. F5G24650
X39 TSX SE1,4 GET INDEX OF NEXT B.B. F5G24660
TRA X40 F5G24670
X200 CLA EX1+3,4 IS CONTENTS OF IR F5G24680
LDQ S5K2 AT EXIT F5G24690
TLQ X130 REAL F5G24700
TRA X36 YES F5G24710
X43 CLA ACT1+3,4 F5G24720
PW0 SXD W2+1,1 F5G24730
TPL X200 IS IT ACTIVE AT EXIT F5G24740
X130 CLA AC1+3,1 YES,IS THIS IR ACTIVE F5G24750
TZE X36 F5G24760
CLA IR1+3,1 YES F5G24770
STO XV21 F5G24780
LXD XV10,1 DOES THIS BB CONTAIN THE F5G24790
CLA BBB+2,1 SAME TAG IN THIS P0SITION F5G24800
ANA S5K1 F5G24810
CAS XV21 F5G24820
TRA W0 F5G24830
TRA X44 YES. F5G24840
TRA W0 F5G24850
REM C(XV10)= INDEX OF PARTICULAR F5G24860
REM ENTRANCE REQUIREMENT. F5G24870
X41 CLA IR1+3,1 F5G24880
STO XV6 F5G24890
ALS 18 STORE AWAY THIS F5G24900
ADD IR1+3,1 TAG TEMPORARILY. F5G24910
SLW XV7 F5G24920
CLA IR1+3,1 IS THIS F5G24930
LDQ S5K2 TAG F5G24940
TLQ X201 F5G24950
LXD XV13,1 F5G24960
LXA S5K5,4 SET COUNT TO 3. F5G24970
X85 CAL BBB+2,1 F5G24980
LRS 18 F5G24990
CAS XV6 IS ENTR. REQU. EQUAL TO TAG F5G25000
TRA X82 NO, F5G25010
TRA X86 YES, F5G25020
X82 CLA ZERO NO, F5G25030
LLS 18 F5G25040
CAS XV6 IS TAG EQUAL TO EXIT COND. F5G25050
TRA X83 F5G25060
TRA X87 YES F5G25070
X83 TXI X83+1,1,-1 F5G25080
X84 TIX X85,4,1 COUNT TO 3. F5G25090
X201 CLA XV7 STORE THE F5G25100
LXD XV10,1 NEW ENTRAKCE- F5G25110
STO BBB+2,1 EXIT REQUI. F5G25120
TRA X42 F5G25130
X86 CAL XK18 PUT AN E F5G25140
STD XV7 IN THE ENTR. REQU. F5G25150
STP XV7 F5G25160
TRA X82 F5G25170
X87 CAL XV7 PLACE E F5G25180
ANA XK19 IN F5G25190
ADD LK1 EXIT F5G25200
SLW XV7 REQUIREMENT. F5G25210
TRA X83 F5G25220
X44 CAL S5K3 RECORD THIS F5G25230
ARS 3,2 I.R. F5G25240
ORS XV8 ACTIVE F5G25250
TRA X42 F5G25260
X45 LXA S5K5,2 F5G25270
X56 SXD XV14,2 F5G25280
CLA EN4+3,2 F5G25290
PDX 0,4 GET INDEX F5G25300
SXD SBV4,4 OF I.R. F5G25310
CLA EN1+3,2 F5G25320
CAS S5K1 IS ENM EMPTY F5G25330
TRA X46 F5G25340
TRA X223 F5G25350
X46 CAS LK1 IS THERE HASH IN ENM F5G25360
TRA X134 F5G25370
TRA X55 YES F5G25380
X134 CAS IR1+3,4 DOES CONTENTS OF IR EQUAL CONTENTS OF EN F5G25390
TRA X47 NO F5G25400
TRA X131 YES F5G25410
X47 LXD S3V4,1 GET AND F5G25420
CLA LPLST+S3P1-2,1 STORE PRED. F5G25430
CAS S3K2 BB F5G25440
NOP NO. F5G25450
TRA X124 F5G25460
ARS 18 F5G25470
X124 STA SBV3 F5G25480
CLA LPLST+S3P1-1,1 GET F5G25490
TSX SE,4 BB NO. F5G25500
CLA BBB+1,1 STORE THE F5G25510
STO XV9 PERM. NOS. F5G25520
CLA BBB+5,1 F5G25530
PDX 0,4 F5G25540
LXD XV14,2 F5G25550
CAL S5K3 F5G25560
ARS 3,2 F5G25570
ORS REG,4 F5G25580
CLA BBB,1 GET PRED. NO. F5G25590
X48 SLW SBV2 STORE PRED. NO. F5G25600
TSX SE5,4 OBTAIN PRED. INDEX. F5G25610
CAL PRED,1 IS THIS F5G25620
ANA SBK2 THE CORRECT F5G25630
CAS SBV3 PRED F5G25640
TRA X49 F5G25650
TRA X50 YES. F5G25660
X49 CLA SBV2 ARRANGE TO F5G25670
ADD ONEA TRY NEXT PREDECESSOR. F5G25680
TRA X48 F5G25690
X50 LXA S5K5,4 1 HAS INDEX OF PRED. F5G25700
X52 CAL XV9 EXTRACT F5G25710
ARS 3,4 THE F5G25720
ARS 3,4 PERM. F5G25730
ANA S9K3 NO. F5G25740
CAS SBV4 IS THIS THE PERM. NO. F5G25750
TRA X51 F5G25760
TRA X53 YES. F5G25770
X51 TIX X52,4,1 F5G25780
TSX 4,4 DIAGNOSTIC, ERROR. F5G25790
X53 CAL XK16 GENERATE F5G25800
ARS 3,4 THE LX BIT. F5G25810
ORS PRED,1 INSERT LX BIT. F5G25820
X55 LXD SBV4,1 IS THE F5G25830
CLA AC1+3,1 I.R. F5G25840
TZE X135 ACTIVE F5G25850
TSX SB,4 YES,RECORD SXD NEEDED. F5G25860
X135 LXD XV14,2 REPLACE IR F5G25870
LXD SBV4,4 BY EXIT CONDITIONS F5G25880
CLA EX1+3,2 OF THE F5G25890
STO IR1+3,4 REGION F5G25900
X136 CLA ACT1+3,2 IS IR F5G25910
TPL X54 ACTIVE AT EXIT F5G25920
CLA S3V4 SET F5G25930
SSM ACTIVE F5G25940
SUB ONED INDICATOR F5G25950
STO AC1+3,4 F5G25960
X54 LXD XV14,2 COUNT TO F5G25970
TIX X56,2,1 3 F5G25980
TSX SG,4 PERMUTE REGION WORD F5G25990
CAL REG,2 F5G26000
ANA XK22 F5G26010
SLW REG,2 F5G26020
LXA S5K5,4 F5G26030
XY1 CLA IR1+3,4 F5G26040
SUB S5K1 F5G26050
TNZ XY2 F5G26060
CAL XK23+3,4 F5G26070
ORS REG,2 F5G26080
XY2 TIX XY1,4,1 F5G26090
TRA X3 F5G26100
X223 CLA IR1+3,4 IS CONTENTS OF IR REAL F5G26110
LDQ S5K2 F5G26120
TLQ X54 F5G26130
LXA S5K5,1 YES, SET COUNT TO 3 F5G26140
X225 CAS EX1+3,1 IS CONTENTS SAME AS EXIT CONDITIONS F5G26150
TRA X224 F5G26160
TRA X226 YES F5G26170
X224 TIX X225,1,1 C0UNT TO 3 F5G26180
TRA X54 F5G26190
X226 CLA LK1 REPLACE IR BY E F5G26200
STO IR1+3,4 F5G26210
TRA X54 F5G26220
X131 LDQ EX1+3,2 IS THE EXIT F5G26230
CLA S5K2 CONDITION REAL FOR THIS IR F5G26240
TLQ X132 F5G26250
X133 LXD SBV4,1 NO F5G26260
TSX SC,4 RECORD PART OF LPLST ACTIVE F5G26270
TRA X135 F5G26280
X132 CLA ACT1+3,2 IS THIS IR ACTIVE F5G26290
TPL X135 AT EXIT OF REGION F5G26300
TRA X133 YES F5G26310
X88 CLA LPIND F5G26320
TPL XY3 IS THIS A LOOP F5G26330
CLA LPLST-1 YES F5G26340
CAS S3K2 IS LAST LPLST QUANTITY A BB F5G26350
NOP NO F5G26360
TRA X125 F5G26370
ARS 18 YES F5G26380
X125 STA SBV3 STORE PRED. NO. F5G26390
CLA LPLST F5G26400
TSX SE,4 GET INDEX OF 1ST BB IN LOOP. F5G26410
SXD XV8,1 STORE INDEX OF 1ST BB F5G26420
CLA BBB,1 F5G26430
X91 SLW XV16 STORE PRED. NO. F5G26440
TSX SE5,4 GET INDEX OF PRED. F5G26450
CLA PRED,1 IS F5G26460
ANA SBK2 THIS THE F5G26470
CAS SBV3 RIGHT PRED F5G26480
TRA X90 F5G26490
TRA X92 YES F5G26500
X90 CLA XV16 F5G26510
ADD ONEA F5G26520
TRA X91 F5G26530
XY3 LXA S5K5,1 F5G26540
XY4 TSX SC,4 F5G26550
TIX XY4,1,1 F5G26560
TRA X89 F5G26570
X97 SXD X137,1 F5G26580
CAS IR1+3,1 IS CONTENTS 0F IRN EQUAL TO CONTENTS OF ENM F5G26590
TRA X98 F5G26600
TRA X93 YES F5G26610
X98 CAL S5K3 RECORD LX FOR F5G26620
ARS 3,1 THIS IR IN THIS F5G26630
LXD XV1,1 REGION. F5G26640
ORS REG,1 F5G26650
SXD XV14,4 GET F5G26660
SXD XV15,2 INDEX F5G26670
CLA XV16 OF F5G26680
TSX SE5,4 PRED. F5G26690
LXD XV14,4 F5G26700
LXD XV15,2 F5G26710
CAL XK16 RECORD F5G26720
ARS 3,4 LX F5G26730
ORS PRED,1 NECESSARY. F5G26740
LXD X137,1 F5G26750
X137 TXI X96,0,- F5G26760
X92 LXD XV8,2 F5G26770
LXA S5K5,4 SET COUNT TO 3 F5G26780
CLA BBB+1,2 GET THE WORD WITH F5G26790
STO XV9 PERM. NOS. F5G26800
X95 CAL XV9 GET F5G26810
ARS 3,4 INDEX F5G26820
ARS 3,4 OF F5G26830
ANA S9K3 THE F5G26840
PDX 0,1 I.R. F5G26850
CAL BBB+2,2 GET ENTRANCE F5G26860
ARS 18 REQUIREMENT. F5G26870
CAS S5K2 IS ENM REAL F5G26880
NOP F5G26890
TRA X96 NO F5G26900
TRA X97 YES F5G26910
X96 CLA AC1+3,1 IS IRN F5G26920
TZE X93 ACTIVE F5G26930
SXD XV14,2 YES, F5G26940
SXD XV15,4 F5G26950
TSX SB,4 RECORD SXD NECESSARY. F5G26960
LXD XV14,2 F5G26970
LXD XV15,4 F5G26980
X93 TXI X93+1,2,-1 F5G26990
X94 TIX X95,4,1 COUNT TO 3 F5G27000
REM ACTIVE PASS. F5G27010
REM F0LLOWS 2 ED LXING PASS. F5G27020
LDQ S3K3 INITIALIZE THE F5G27030
STQ S3V4 LOOP LIST F5G27040
LDQ S5K3 AND F5G27050
STQ S3V3 MAKE SURE TAG F5G27060
STQ ACIND SET IND. TO SAY THIS IS ACTIVE PASS F5G27070
SXD S3V2,0 LOCATI0N GETS SET F5G27080
A3 CLA ZERO ARE F5G27090
ADM AC1 THERE F5G27100
ADM AC2 ANY F5G27110
ADM AC3 ACTIVE I.R.S F5G27120
TZE X89 LEFT GO TO RENUMBER. F5G27130
TSX S3,4 YES. TRY TO GET NEXT TAG. F5G27140
TRA A12 COME HERE IF TAG NOT GOT F5G27150
CLA S39 COMPUTE LOCATION OF THIS F5G27160
ANA SBK2 TAG=(ADDR. FOLLOWING F5G27170
ADD S4V1 TIX BLOCK + L(CM)-CM TAG F5G27180
SUB S4K3 - INDEX OF TAG.) F5G27190
ALS 18 F5G27200
SBM S3V2 F5G27210
LRS 53 F5G27220
STQ XV5 F5G27230
DVP XK9 FORM LOC/9 AND F5G27240
STQ XV3 REMAINDER F5G27250
STO XV4 F5G27260
CLA TPE IS THIS F5G27270
CAS S2K2 AN LX F5G27280
TRA A1 F5G27290
TRA A5 YES F5G27300
A1 CAS XK15 IS IT AN LX PRIME F5G27310
TRA A20 F5G27320
TRA A8 YES F5G27330
A20 CAS XK21 IS IT A DED F5G27340
TRA A21 F5G27350
TRA A8 YES. F5G27360
A21 CAS XK12 IS IT AN ACTIVE INSTR. F5G27370
TRA A2 F5G27380
TRA A5 YES. F5G27390
A2 CLA XV3 GET INDEX F5G27400
TSX SE4,4 OF STAG ENTRY. F5G27410
LXA XV4,2 IS THERE F5G27420
CAL STAG,1 AN LX F5G27430
ARS 8,2 IN FRONT F5G27440
ANA XK11 OF F5G27450
CAS XK11 THIS INSTR. F5G27460
TRA A3 F5G27470
TRA A4 YES. F5G27480
TRA A3 F5G27490
A4 CAL XV4 GET F5G27500
COM THE F5G27510
PAX 0,2 S-TAG F5G27520
CAL STAG,1 IN F5G27530
ALS 0,2 DECR. F5G27540
ALS 0,2 PART. F5G27550
ANA S9K3 F5G27560
PDX 0,1 F5G27570
CLA AC1+3,1 IS THE CORRESPONDING F5G27580
TZE A3 I.R. ACTIVE F5G27590
TSX SB,4 YES,RECORD SXD NECESSARY F5G27600
TRA A3 F5G27610
A5 CLA XV3 F5G27620
TSX SE4,4 GET STAG INDEX. F5G27630
CAL XV4 F5G27640
COM IS IT F5G27650
PAX 0,2 TO F5G27660
CAL STAG,1 AN F5G27670
ALS 0,2 F5G27680
ALS 0,2 ACTIVE F5G27690
ANA S9K3 F5G27700
PDX 0,1 IR F5G27710
CLA AC1+3,1 F5G27720
TZE A3 F5G27730
A51 CLA IR1+3,1 IS IT F5G27740
CAS 1TAG SAME TAU-TAG F5G27750
TRA A6 F5G27760
TRA A7 YES F5G27770
A6 TSX SB,4 RECORD SXD NEEDED. F5G27780
TRA A3 F5G27790
A7 TSX SC,4 RECORD CERTAIN PART OF F5G27800
TRA A3 LOOP LIST ACTIVE. F5G27810
A8 CLA XV3 GET F5G27820
TSX SE4,4 THE F5G27830
CAL XV4 F5G27840
COM S-TAG F5G27850
PAX 0,2 OF F5G27860
CAL STAG,1 F5G27870
STO S1V6 F5G27871
ALS 0,2 THIS F5G27880
ALS 0,2 INSTR. F5G27890
ANA S9K3 F5G27900
PDX 0,1 F5G27910
TZE A3 DOES THIS INSTR HAVE AN S-TAG F5G27920
CLA AC1+3,1 YES. F5G27930
TZE A3 IS THIS IR ACTIVE F5G27940
CLA ZERO F5G27941
PXD 0,2 F5G27942
COM F5G27943
PDX 0,4 F5G27944
CLA S1V6 F5G27945
ARS 8,4 F5G27946
ANA ONED F5G27947
TNZ A51 F5G27948
TSX SC,4 YES,RECORD SECTION OF LPLST ACTIVE F5G27950
TRA A3 F5G27960
A12 LXD S3V4,1 GET INDEX OF LPLST QUANTITY F5G27970
CLA LPLST+S3P1-2,1 GET PREVIOUS LPLST QUANTITY F5G27980
STO XV19 F5G27990
LDQ S3K2 WAS IT A F5G28000
TLQ A28 F5G28010
A25 TSX SE,4 YES, WAS THAT F5G26020
CLA BBB,1 BB TERMINATED F5G28030
ARS 33 BY A F5G28040
ADD ONEA GO TO N F5G28050
TNZ A28 F5G28060
LXA S5K5,1 YES F5G28070
A26 CLA AC1+3,1 IS THIS F5G28080
TZE A27 IR ACTIVE F5G28090
TSX SB,4 YES, RECORD SXD NECESSARY F5G28100
A27 TIX A26,1,1 F5G28110
A28 CLA S3V5 F5G28120
LDQ S3K2 IS THIS F5G28130
TLQ A35 ATR. REGION F5G28140
ANA S5K1 NO, BB F5G28150
TZE A3 F5G28160
ALS 3 F5G28170
PDX 0,1 F5G28180
TXL AP1,1,2 F5G28190
TXI AP1,1,-1 F5G28200
AP1 CLA AC1+3,1 F5G28210
TZE A3 F5G28220
TSX SB,4 F5G28230
TRA A3 F5G28240
A35 TSX SE,4 F5G28250
CLA BBB+5,1 F5G28260
PDX 0,2 INDEX OF REGION TO 2 F5G28270
CLA REG,2 GET REGION F5G28280
STO XV19 F5G28290
LXA S5K5,1 F5G28300
A31 CAL XV19 F5G28310
ALS 3,1 F5G28320
PBT IS THERE AN LX F5G28330
TRA A30 FOR THIS IR F5G28340
CLA AC1+3,1 YES F5G28350
TZE A30 IS THIS IR ACTIVE F5G28360
TSX SB,4 YES, RECORD SXD NECESSARY F5G28370
A30 TIX A31,1,1 F5G28380
CLA S3V5 F5G28390
TSX SA,4 GET THE EXIT CONDITIONS F5G28400
LXA S5K5,1 F5G28410
A34 CLA AC1+3,1 F5G28420
TZE A32 IS THIS IR ACTIVE F5G28430
CLA EX1+3,1 YES F5G28440
LDQ S5K2 F5G28450
TLQ A33 IS THE EXIT CONDITION REAL F5G28460
CLA ACT1+3,1 YES F5G28470
TPL A32 IS THE IR ACTIVE AT EXIT F5G28480
A33 SXD XV20,1 YES F5G28490
LXD XV20,2 F5G28500
CLA S3V5 F5G28510
TSX SD,4 RECORD TR. REG. ACTIVE F5G28520
LXD XV20,1 F5G28530
TSX SC,4 RECORD SECTION OF LPLST ACTIVE F5G28540
A32 TIX A34,1,1 COUNT TO 3 F5G28550
TRA A3 F5G28560
QP CLA XK15 F5G28580
ANA 16 F5G28590
ARS 1 F5G28600
STD SE21+2 F5G28610
TZE R F5G28620
LXD PREDP+3,4 F5G28630
CLA BBBP+3 F5G28640
QP0 TXL R,4,0 F5G28650
TXI QP1,4,-1 F5G28660
QP1 SXD SE21+3,4 F5G28670
SUB ONED F5G28680
TSX SE,4 F5G28690
LXD BBBP,4 F5G28700
TXI QP2,4,BBBL-1 F5G28710
QP2 SXD QP4,4 F5G28720
SXD QP5,4 F5G28730
LXA BBB,4 F5G28740
SXD QP8,4 F5G28750
LXD SE21+3,4 F5G28760
QP3 PXD 0,4 F5G28770
TSX SE5+1,4 F5G28780
CLS PRED,1 F5G28790
PAX 0,4 F5G28800
QP4 TXH QP6,4,- F5G28810
TXI QP5,4,BBBL F5G28820
QP5 TXH QP7,4,- F5G28830
QP6 STO PRED,1 F5G28840
QP7 LXD SEV2,4 F5G28850
CLA BBBP F5G28860
QP8 TXL QP0,4,- F5G28870
TXI QP3,4,-1 F5G28880
ORG QP+1 LPLST MUST START AT SAME PLACE AS QP AND OTHERS. F5G28890
REM STORAGE ASSIGNMENT (TABLES) F5G28900
LPLST BSS S3P1 SPACE FOR LOOP LIST TABLE F5G28910
REG BES FP1 SPACE FOR REGION WORDS F5G28920
SPACE EQU MSIZE-5-REG STORAGE SPACE LEFT F5G28930
STAGL SYN STL F5G28940
STAG HTR - F5G28950
HTR - F5G28960
REP 1,49 F5G28970
W0 CLA BBB+2,1 F5G28980
ARS 18 F5G28990
SUB XV21 F5G29000
TZE X42 F5G29010
LXA S5K5,1 F5G29020
LXD XV13,4 F5G29030
W1 CLA BBB+2,4 F5G29040
LRS 18 F5G29050
SUB XV21 F5G29060
TZE W3 F5G29070
CLA ZERO F5G29080
LLS 18 F5G29090
SUB XV21 F5G29100
TZE W3 F5G29110
TXI W2,4,-1 F5G29120
W2 TIX W1,1,1 F5G29130
TXL X36,-,- F5G29140
W3 SXD W4,2 F5G29150
LXD W2+1,1 F5G29160
TSX SB,4 F5G29170
LXD W4,2 F5G29180
W4 TXL X36,-,- F5G29190
BSS PTL1 SPACE FOR PATCHES F5G29200
CMTL SYN 9*SPACE/20/15*15 F5G29210
CMTAG BSS CMTL F5G29220
BBBL SYN 6*SPACE/20/6 F5G29230
BBB BSS BBBL*6+1 F5G29240
PRED SYN BBB+BBBL*6+1 F5G29250
SPAC1 EQU MSIZE-4-PRED F5G29260
PREDL EQU SPAC1/2-1 F5G29270
BSS PREDL+1 F5G29280
SUCCL SYN PREDL F5G29290
SUCC BSS SUCCL+1 F5G29300
REM EDITOR RECORD NO. 76 F5G29310
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G29320
REM DIAGNOSTIC CALLER FOLLOWS F5G29340
REM PART 1B F5G29350
REM INITIALIZATI0N AND PRED LIMIT FOR FAST COMPILING. F5G29360
ORG PRED F5G29370
I LXA FK5,1 CLEAR REG. TABLE F5G29380
DCT CLEAR DIVIDE CHECK LIGHT F5G29390
NOP IN CASE DIVIDE CHECK IS ON F5G29400
CLA ZERO F5G29410
I11 STO REG,1 F5G29420
TIX I11,1,1 F5G29430
PSE 96 TURN OFF SENSE LIGHTS. F5G29440
CLA KEYS+3 INITIALIZE F5G29441
STO STAGP+5 DRUM ADDR. OF STAG F5G29450
CLA KEYS+1 F5G29460
STO PREDP+5 F5G29470
CLA KEYS+2 F5G29480
STO BBBP+5 DRUM ADDR. OF BB.B. F5G29490
CLA KEYS F5G29500
ALS 18 F5G29510
STO BBBP+3 N0. OF BASIC BLOCKS. F5G29520
SUB ONED F5G29530
TSX SE,4 F5G29540
CLA BBB,1 F5G29550
STD SUCCP+3 LOCATION OF LAST SUCC F5G29560
ALS 18 F5G29570
STD PREDP+3 LOCATION OF LAST PRED F5G29580
CLA BBB+1,1 F5G29590
ANA S3K4 F5G29600
STO S4V3 F5G29610
LRS 35 F5G29620
DVP S4K2 COMPUTE F5G29630
STQ IV1 THE F5G29640
TZE I1 LOCATION F5G29650
CLA ONEA WHICH A TAG F5G29660
I1 ADD IV1 WOULD HAVE F5G29670
LRS 35 IF IT F5G29680
MPY S4K2 WERE FIRST IN F5G29690
LLS 35 THE NEXT RECORD. F5G29700
STO S4V2 F5G29710
STO S4V1 F5G29720
CLA BBB+1,1 DETERMINE NO. F5G29730
ANA S3K4 OF ENTRIES IN F5G29740
LRS 35 STAG. F5G29750
DVP XK9 F5G29760
STQ IV1 F5G29770
TZE I10 F5G29780
CLA ONEA F5G29790
I10 ADD IV1 INITIALIZE F5G29800
ALS 18 F5G29810
STO STAGP+3 OF ENTRIES IN STAG F5G29820
LRS 35 COMPUTE F5G29830
DVP STAGP+2 THE F5G29840
TZE I3 DRUM F5G29850
CLA ONEA ADDR. F5G29860
I3 STQ IV2 FOLLOWING F5G29870
ADD IV2 THE F5G29880
ALS 18 F5G29890
ADD STAGP+3 STAG F5G29900
ARS 18 F5G29910
ADD STAGP+5 TABLE. F5G29920
LDQ IK1 F5G29930
TLQ I7 F5G29940
I6 CLA STAGP+1 F5G29950
CAS STAGP+3 ARE WE THRU STORING 0 S F5G29960
TRA I4 F5G29970
TRA I9 F5G29980
I4 STO STAGP SET N(0) TO OLD N(1) F5G29990
ADD STAGP+2 SET N(1) TO MIN (OLD N(1)+N., F5G30000
LDQ STAGP+3 N(L) F5G30010
STQ STAGP+1 F5G30020
TLQ I5 F5G30030
STO STAGP+1 F5G30040
I5 CLA SEK F5G30050
LXA IK2,2 F5G30060
TSX SE26,4 STORE BLOCK OF 0S F5G30070
TRA I6 F5G30080
I7 TSX 4,4 TO DIAGNOSTIC F5G30090
IV1 F5G30100
IV2 F5G30110
IK2 1-STAGP F5G30120
IK1 HTR 8191 F5G30130
I9 TSX S4,4 F5G30140
REW INSTTP REWIND THE COMPILED INST TAPE F5G30150
CLA KEYS+1 F5G30160
TNZ LPLST-1 F5G30170
STO LPIND F5G30180
STO LPLST-1 F5G30190
STO LPLST F5G30200
CLA S3K1 F5G30210
STO LPLST+1 F5G30220
LXD S1K2,4 SKIP DIAGNOSTICS F5G30230
I9A RTB 1 AND ANTIPINGPONG F5G30240
TIX I9A,4,1 SIX RECORDS F5G30250
TRA F75 F5G30260
REM EDITOR RECORD NO. 78 F5G30270
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G30280
REM DIAGNOSTIC CALLER F0LL0WS F5G30300
REM PART 1C F5G30310
REM SUCC LIMIT FOR FAST COMPILING F5G30320
ORG LPLST-1 F5G30330
QS LXD SE21+2,1 F5G30340
TXL F,1,0 F5G30350
LXD SUCCP+3,4 F5G30360
CLA BBBP+3 F5G30370
QS0 TXL F,4,0 F5G30380
TXI QS1,4,-1 F5G30390
QS1 SXD SE21+3,4 F5G30400
SUB ONED F5G30410
TSX SE,4 F5G30420
LXD BBBP,4 F5G30430
TXI QS2,4,BBBL-1 F5G30440
QS2 SXD QS4,4 F5G30450
SXD QS5,4 F5G30460
LXD BBB,4 F5G30470
SXD QS8,4 F5G30480
LXD SE21+3,4 F5G30490
QS3 PXD 0,4 F5G30500
TSX SE6,4 F5G30510
CLS SUCC,1 F5G30520
PAX 0,4 F5G30530
QS4 TXH QS6,4,- F5G30540
TXI QS5,4,BBBL F5G30550
QS5 TXH QS7,4,- F5G30560
QS6 STO SUCC,1 F5G30570
QS7 LXD SEV2,4 F5G30580
CLA BBBP F5G30590
QS8 TXL QS0,4,- F5G30600
TXI QS3,4,-1 F5G30610
REM EDITOR RECORD NO. 80 F5G30620
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G30630
REM DIAGNOSTIC CALLER FOLLOWS F5G30650
REM PART 1D F5G30660
REM PRED UNDO FROM FAST COMPILING F5G30670
ORG LPLST-1 F5G30680
QPU LXD SE21+2,1 F5G30690
TXL R,1,0 F5G30700
LXD PREDP+3,4 F5G30710
CLA BBBP+3 F5G30720
QPU0 TXL R,4,0 F5G30730
TXI QPU1,4,-1 F5G30740
QPU1 SXD SE21+3,4 F5G30750
SUB ONED F5G30760
TSX SE,4 F5G30770
LXD BBBP,4 F5G30780
TXI QPU2,4,BBBL-1 F5G30790
QPU2 SXD QPU4,4 F5G30800
SXD QPU5,4 F5G30810
LXA BBB,4 F5G30820
SXD QPU8,4 F5G30830
LXD SE21+3,4 F5G30840
QPU3 PXD 0,4 F5G30850
TSX SE5+1,4 F5G30860
CLS PRED,1 F5G30870
PAX 0,4 F5G30880
QPU4 TXH QPU6,4,- F5G30890
TXI QPU5,4,BBBL F5G30900
QPU5 TXH QPU7,4,- F5G30910
QPU6 STO PRED,1 F5G30920
QPU7 LXD SEV2,4 F5G30930
CLA BBBP F5G30940
QPU8 TXL QPU0,4,- F5G30950
TXI QPU3,4,-1 F5G30960
REM EDITOR RECORD NO. 82 F5G30970
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G30980
REM DIAGN0STIC CALLER FOLLOWS F5G31000
REM PART 1E F5G31010
REM SUCC UNDO FROM FAST COMPILING F5G31020
ORG LPLST-1 F5G31030
QSU LXD SE21+2,1 F5G31040
TXL F,1,0 F5G31050
LXD SUCCP+3,4 F5G31060
CLA BBBP+3 F5G31070
QSU0 TXL F,4,0 F5G31080
TXI QSU1,4,-1 F5G31090
QSU1 SXD SE21+3,4 F5G31100
SUB ONED F5G31110
TSX SE,4 F5G31120
LXD BBBP,4 F5G31130
TXI QSU2,4,BBBL-1 F5G31140
QSU2 SXD QSU4,4 F5G31150
SXD QSU5,4 F5G31160
LXD BBB,4 F5G31170
SXD QSU8,4 F5G31180
LXD SE21+3,4 F5G31190
QSU3 PXD 0,4 F5G31200
TSX SE6,4 F5G31210
CLS SUCC,1 F5G31220
PAX 0,4 F5G31230
QSU4 TXH QSU6,4,- F5G31240
TXI QSU5,4,BBBL F5G31250
QSU5 TXH QSU7,4,- F5G31260
QSU6 STO SUCC,1 F5G31270
QSU7 LXD SEV2,4 F5G31280
CLA BBBP F5G31290
QSU8 TXL QSU0,4,- F5G31300
TXI QSU3,4,-1 F5G31310
REM EDITOR RECORO NO. 84 F5G31320
REM FOR CONTROL CARD INFORMATION, SEE ENO OF ASSEMBLY. F5G31330
REM DIAGNOSTIC CALLER FOLLOWS F5G31350
REM PART 2 F5G31360
REM PERMUTE RESULTS AND COMBINE BB LIST WITH BB TABLE F5G31370
ORG C F5G31380
BLV09 HTR -1 BB NO. OF LAST GO TO N F5G31390
BL12 RTB BLT FIND THE END OF FILE PRECEEDING BB LIST F5G31400
BL13 CPY BLIST F5G31410
TRA BL12 F5G31420
TRA BL6 F5G31430
TRA BL12 F5G31440
BL6 LXD CON1,2 F5G31450
BL5 RTB BLT F5G31460
LXA CON1,1 F5G31470
BL1 CPY BLIST,1 COPY BB LIST INTO CS F5G31480
TXI BL1,1,-1 F5G31490
CON1 0,0,5 F5G31500
IOD F5G31510
RTT F5G31520
TRA BL4 ERROR F5G31530
CLA KEYS O.K. COMPUTE TEST CONSTANT F5G31540
SUB TWO F5G31550
STO BLV3 F5G31560
CLA ZERO F5G31570
TSX SE4,4 STAG WORD F5G31580
CLA STAG,1 F5G31590
STO BLV07 F5G31600
CLA BLV1 F5G31610
BL3 LDQ BLV3 HAVE WE ALREADY DEALT WITH LAST BB F5G31620
TLQ BL06 YES , GO TO READ IN NEXT PART F5G31630
ADD ONEA F5G31640
TSX SE1,4 GET UNDEX OF NEXT BB F5G31650
CLA BBB+1,1 STORE THE NO. OF THE F5G31660
ANA RMSK FIRST TAG IN F5G31670
STO BLV6 NEXT BB. F5G31680
CLA BBB,1 F5G31690
ANA 2AMSK F5G31700
STO BLV5 STORE AWAY NO. OF U1ST PRED IN NEXT BB. F5G31710
CLA BLV1 F5G31720
TSX SE1,4 F5G31730
LXD BLV2,2 F5G31740
CLA BLIST,2 REPLACE LAST WORD OF BBB ENTRY F5G31750
STO BBB+5,1 BY THE LOCATION FROM THE BB LIST. F5G31760
BL2 TXI BL2+1,2,-1 F5G31770
SXD BLV2,2 F5G31780
CLA BBB+1,1 STORE PERMUTATION NOS. F5G31790
STO BLV7 F5G31800
SXD BLV4,1 F5G31810
CLA BBB+1,1 GET F5G31820
ANA RMSK OF 1ST TAG IN BB F5G31830
SUB BLV6 FORM COUNT OF NO. OF TAGS F5G31840
SUB ONEA F5G31850
PAX 0,2 COUNT OF NO. OF TAGS INTO 2. F5G31860
SXD BLV05,2 STORE COUNT OF NO. OF TAGS F5G31870
CLA BBB,1 F5G31880
ANA 2AMSK F5G31890
BL9 STO BLV01 F5G31900
CAS BLV5 IS THIS PRED IN SAME BB F5G31910
TRA BL7 YES F5G31920
TRA BL01 NO F5G31930
BL7 TSX SE5,4 YES, GET INDEX OF PRED F5G31940
CAL SALM F5G31950
SLW BLV9 F5G31960
CAL PRED,1 F5G31970
SLW BLV8 STODRE OLD PRED WORD F5G31980
ANS BLV9 INT INITIALIZE NEW PRED WORD F5G31990
LXD 2LD3,2 SET COUNT TO 3 F5G32000
BL8 CAL BLV7 PLACE THE F5G32010
ARS 3,2 PERMUTATION NO. F5G32020
ARS 3,2 IN REGISTER 4 F5G32030
ANA 2LD3 F5G32040
PDX 0,4 F5G32050
CAL BLV8 PERMUTE F5G32060
ALS 3,2 THE LXD F5G32070
ANA BITMK AND SXD F5G32080
ARS 3,4 BITS IN THE F5G32090
ORS BLV9 PRED ENTRY F5G32100
TIX BL8,2,1 COUNT TO 3 F5G32110
CLA BLV9 F5G32120
STO PRED,1 STORE PRED ENTRY WITH PERMUTED BITS F5G32130
CLA BLV01 ARRANGE TO CONSIDER F5G32140
ADD ONEA NEXT PRED ENTRY F5G32150
TRA BL9 F5G32160
BL4 BST BLT TAPE CHECK BACKSPACE TAPE F5G32170
TIX BL5,2,1 IRY 5 TIMES F5G32180
TSX 4,4 THEN START DIAGNOSTIC. F5G32190
BL01 LXD BLV05,1 F5G32200
BL03 TNX BL04,1,1 IS THERE ANOTHER TAG IN BB F5G32210
LXD BLV04,2 YES F5G32220
TIX BL02,2,1 HAVE WE EXHAUSTED STAG WORO F5G32230
SXD BLV05,1 YES, STORE COUNT OF NO. OF TAGS F5G32240
LXD BLV08,2 STORE F5G32250
CLA BLV07 OLD PERMUTED F5G32260
STO STAG,2 STAG WORD F5G32270
CLA ZERO F5G32280
STO BLV07 F5G32290
CLA BLV03 GET F5G32300
TSX SE4,4 NEXT F5G32310
SXD BLV08,1 STAG F5G32320
CAL STAG,1 WORD F5G32330
SLW BLV06 STORL STAG WORD F5G32340
ANA LMSK AND F5G32350
SLW BLV07 INITIALIZE NEW STAG WORD F5G32360
CLA BLV03 INCREASE THE F5G32370
ADD ONEA STAG WORD NO. F5G32380
STO BLV03 F5G32390
LXD 2LD9,2 RESET COUNT TO 9 F5G32400
LXD BLV05,1 RESTORE 1 F5G32410
BL02 SXD BLV04,2 STORE COUNTER F5G32420
CAL BLV06 F5G32430
ALS 2 F5G32440
SLW BLV06 F5G32450
ANA 2LD3 EXTRACT TAG F5G32460
PDX 0,4 F5G32470
CAL BLV7 PERMUTE F5G32480
ARS 3,4 F5G32490
ARS 3,4 THE F5G32500
ANA 2LD3 TAG F5G32510
ARS 10,2 F5G32520
ARS 10,2 F5G32530
ORS BLV07 FORM NEW TAG WORD F5G32540
TRA BL03 F5G32550
BL04 LXD BLV4,1 GET INDEX OF BB F5G32560
CLA BBB,1 IS F5G32570
ARS 33 THIS F5G32580
ADD ONEA A GO N F5G32590
TNZ BL07 NO F5G32600
CLA BLV09 YES, STORE BB NO. F5G32610
ALS 18 OF LAST F5G32620
STD BBB+1,1 GO N ENCOUNTERED F5G32630
CLA BLV1 STORE PRESENT F5G32640
STO BLV09 BB NO. F5G32650
BL07 LXD 2LD3,2 SET COUNT TO 3 F5G32660
BL09 CAL BLV7 F5G32670
ARS 3,2 F5G32680
ARS 3,2 GET PERMUTATION NO. F5G32690
ANA 2LD3 F5G32700
PDX 0,4 F5G32710
CLA BBB+2,1 PERMUTE F5G32720
STO EXCO,4 ENTRANCE-EXIT REQUIREMENTS F5G32730
BL08 TXI BL08+1,1,-1 F5G32740
TIX BL09,2,1 COUNT TO 3 F5G32750
LXD 2LD3,2 PLACE PERMUTED F5G32760
BL10 CLA EXCO,2 ENTRANCE-EXIT COND. F5G32770
STO BBB-1,1 BACK IN BB F5G32780
BL11 TXI BL11+1,1,-1 F5G32790
TIX BL10,2,1 COUNT TO 3 F5G32800
BL05 CLA BLV1 PREPARE TO DEAL WITH F5G32810
ADD ONEA WITH NEXT BB F5G32820
STO BLV1 F5G32830
TRA BL3 F5G32840
BL06 TSX SE1,4 PUT EDN MARK INTO THE DUMMEY BB F5G32850
CLA EN2MK F5G32860
STO BBB+5,1 F5G32870
CLA BLV07 STORE F5G32880
LXD BLV08,2 OLD F5G32890
STO STAG,2 STAG WORD F5G32900
TRA R READ NEXT PART F5G32910
2LD3 0,0,3 F5G32920
2LD9 0,0,9 F5G32930
TWO 2 F5G32940
2AMSK -1 ADDRESS MASK F5G32950
RMSK -1,-1 RIGHT HALF MASK F5G32960
SALM OCT -377770077777 MS MASK OUT SXD AND LXD PRED REULTS F5G32970
EN2MK PTH -1,-1,-1 PUT IN LOCATION OF DUMMEY BB F5G32980
BITMK 0,4,4 MASK TO EXTRACT ONE SXD AND LXD BIT F5G32990
LMSK OCT -377777000000 F5G33000
EXCO BES 3 THE ENTRANCE-EXIT CONDITIONS PERMUTED F5G33010
BLV1 BBNO. F5G33020
BLV2 INDEX IN BB LIST F5G33030
BLV3 TEST CONSTANT F5G33040
BLV4 INDEX OF BB F5G33050
BLV5 1ST PRED NO. IN NEXT BB F5G33060
BLV6 UST TAG IN NEXT BB, F5G33070
BLV7 PERMUTTTION NOS. F5G33080
BLV8 OLD PRED ENTRY F5G33090
BLV9 NEW, PERMUTED, PRED ENTRY F5G33100
BLV01 CURRENT PRED. NO. F5G33110
BLV03 NO. OF STAG WORD, INITIALLY ZERO F5G33120
BLV04 COUNTER TO 9, INITIALLY ZERO F5G33130
BLV05 COUNT OF NO. OF TAGS IN BB F5G33140
BLV06 STAG WORD F5G33150
BLV07 NEW, PERMUTED , STAG WORD F5G33160
BLV08 INDEX OF OLD STAG WORD F5G33170
BSS PTL2 SPACE FOR PATCHES F5G33180
BLIST F5G33190
REM EDITOR RECORD NO. 86 F5G33200
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G33210
REM DIAGNOSTIC CALLER FOLLOWS F5G33230
REM PART 3 F5G33240
REM CHANGE LXD AND SXD RESULTS TO BE COMPATIBLE WITH GO TO F5G33250
REM N RESTRICTION. MODIFY ASSIGN CONSTANT TABLE. F5G33260
REM C CONTAINS THE BB NO. OF THE GO TO N F5G33270
ORG C+1 F5G33280
START RTB ACTPE LOCATE THE END OF FILE BEFORE ASSIGN CONSTANTF5G33290
CPY ACV12 F5G33300
TRA START F5G33310
TRA RDIN F5G33320
TRA START F5G33330
ERR BST ACTPE BACKSPACE TAPE TO TRY AGAIN F5G33340
TIX AAC2,2,1 COUNT TO 5 F5G33350
TSX 4,4 TO DIAGNOSTIC F5G33360
RDIN LXD 3LD3,2 F5G33370
AAC2 RTB ACTPE F5G33380
CPY ACV12 COPY THE EXTRA WORD F5G33390
LXA ZERO,1 F5G33400
AAC1 CPY ASCON,1 F5G33410
TXI AAC1,1,-1 F5G33420
TSX 4,4 F5G33430
IOD CHECK REDUNDANCY BITS F5G33440
RTT F5G33450
TRA ERR THERR IS AN ERROR F5G33460
RTB ACTPE F5G33470
RTB ACTPE F5G33480
RTB ACTPE F5G33490
IOD F5G33500
SXD ACV1,1 O.K. STORE RECORD OF NO. OF ENTRIES F5G33510
SXD AC22,1 F5G33520
CLA C F5G33530
AC15 LDQ ACK1 GET BB NO. OF 1ST GO TO N F5G33540
TLQ AC16 WAS THIS THE LAST GO TO N F5G33550
ADD ONEA NO F5G33560
TSX SE1,4 F5G33570
CAL BBB,1 FIND NO. OF 1ST SUCC IN NEXT BB F5G33580
ARS 18 F5G33590
STA ACV3 F5G33600
CLA C F5G33610
TSX SE1,4 F5G33620
CLA ZERO CLEAR THE COMBINED SXDD CASE F5G33630
STO ACV4 F5G33640
CAL BBB,1 FIND THE NO. OF 1ST SUCC IN THIS BB F5G33650
ARS 18 F5G33660
ANA AMSK F5G33670
AC13 STO ACV2 F5G33680
CAS ACV3 IS THIS SUCC IN SAME BB F5G33690
TRA AAC3 YES F5G33700
TRA AC14 NO F5G33710
AAC3 ALS 18 F5G33720
TSX SE6,4 YES GET BB NO. OF SUCESSOR F5G33730
CAL SUCC,1 F5G33740
STA ACV8 F5G33750
ADD ONEA FIN NO. OF 1ST PRED ENTRY NEXT BBB F5G33760
TSX SE1,4 F5G33770
CLA BBB,1 F5G33780
STA ACV6 F5G33790
CLA ZERO F5G33800
STO ACV10 PRESET COMBINED LXD CASE TO 0 F5G33810
CLA ACV8 FIND NO. OF 1ST PRED IN THIS BB F5G33820
TSX SE1,4 F5G33830
CAL BBB,1 F5G33840
ANA AMSK F5G33850
STA ACV9 RECORD 1ST PRED FOR FUTURE USE F5G33860
AC7 STA ACV7 F5G33870
CAS ACV6 IS THIS PRED IN SAME BB F5G33880
TRA AC4 F5G33890
TRA AC8 NO F5G33900
AC4 TSX SE5,4 IS THIS THE TRANSFER FROM CURRENTLY CONSIDEREF5G33910
CAL PRED,1 ED GO TO NP F5G33920
ANA AMSK F5G33930
SUB C F5G33940
TNZ AC5 IF NOT SKIP THE ORING OF SXD CASE F5G33950
CAL PRED,1 OR THE SXD CASE INTO COMBINED SXD CASE F5G33960
ORS ACV4 F5G33970
CAL NTMSK F5G33980
ANS PRED,1 F5G33990
AC5 CAL PRED,1 IS THE BB WHICH IS PREDECESSOR F5G34000
SXD ACV11,1 A GO TO N F5G34010
TSX SE1,4 F5G34020
CLA BBB,1 F5G34030
ARS 33 F5G34040
ADD ONEA F5G34050
TNZ AC6 F5G34060
LXD ACV11,2 YES, OR THE LXD XCASE INTO THE F5G34070
CAL PRED,2 COMBINED LXD CASE F5G34080
ORS ACV10 F5G34090
AC6 CLA ACV7 F5G34100
ADD ONEA F5G34110
TRA AC7 F5G34120
AC8 CAL ACV10 IS THE COMBINED LXD CASE ZERO F5G34130
ANA TMSK F5G34140
TZE AC12 F5G34150
CLA ACV8 NO, HAS THIS BB ALREADY BEEN F5G34160
TSX SE1,4 CONSIDERED F5G34170
LDQ BBB,1 AS A SUCCESSOR TO F5G34180
RQL 20 A GO TO N F5G34190
TQP AC18 F5G34200
TRA AC12 F5G34210
AC18 CLA LT1 F5G34220
ORS BBB,1 RECORD THAT THIS BB HAS BEEN CONSIDERED AS F5G34230
CLA ACV9 ECT..PE PREPARE TO SCAN ALL PRED ENTRYS F5G34240
AC11 STA ACV7 F5G34250
CAS ACV6 IS THIS PRED IN SAME BB F5G34260
TRA AC9 F5G34270
TRA AC19 NO F5G34280
AC9 TSX SE5,4 DETERMINE IF THE BB WHICH F5G34290
SXD ACV11,1 IS THE PREDECESSOR OF THIS ONE F5G34300
CLA PRED,1 IS A GO TO N F5G34310
TSX SE1,4 F5G34320
CLA BBB,1 F5G34330
ARS 33 F5G34340
ADD ONEA F5G34350
TNZ AC10 F5G34360
LXD ACV11,2 IT IS A GO TO N F5G34370
CLA ACV10 REPLACE LXD CASE BY THE F5G34380
ANA TMSK COMBINED LXD CASE F5G34390
ORS PRED,2 F5G34400
AC10 CLA ACV7 ARRANGE TO TREAT NEXT PRED ENTRY F5G34410
ADD ONEA F5G34420
TRA AC11 F5G34430
AC12 CLA ACV2 F5G34440
ADD ONEA ARRANGE TO TREAT NEXT SUCC ENTRY F5G34450
TRA AC13 F5G34460
AC14 CLA C STORE COMBINED F5G34470
TSX SE1,4 SXDCASE IN PREFIX F5G34480
CLA ACV4 OF 2ED WORD OF BBB ENTRY F5G34490
ALS 15 F5G34500
STP BBB+1,1 F5G34510
CLA BBB+1,1 GET NEXT GO TO N NUMBER F5G34520
ARS 18 F5G34530
ANA AMSK F5G34540
STO C F5G34550
TRA AC15 F5G34560
AC16 WTB ACTPE WRITE ASSIGN CONSTANTS BACK ON TAPE F5G34570
LXA ZERO,1 F5G34580
LXD ACV1,2 F5G34590
CPY ACV12 F5G34600
TXL R,2,0 IF NO ASSIGN CONST., GO TO NEXT PART F5G34610
AC17 CPY ASCON,1 F5G34620
TXI ACV1,1,-1 F5G34630
ACV1 TXL R,1,SET F5G34640
TRA AC17 F5G34650
AC19 CLA ACV8 F5G34660
TSX SE1,4 F5G34670
LXA ZERO,2 F5G34680
AC25 CLA BBB+5,1 F5G34690
AC23 CAS ASCON,2 IS THIS ASSIGN CONST. EQUAL TO THE F5G34700
TRA AC20 LOCATION OF 1ST INST IN BB F5G34710
TRA AC24 YES F5G34720
AC20 TXL AC21,2,0 F5G34730
AC22 TXL AC12,2,SET F5G34740
AC21 TXI AC23,2,-1 F5G34750
AC24 CAL ACV10 REPLACE ASSIGN CONST. BY NEW F5G34760
ANA TMSK LOCATION SYMBOL F5G34770
ARS 5 F5G34780
ADD ACV8 F5G34790
ACL LXDC F5G34800
SLW ASCON,2 F5G34810
TRA AC25 F5G34820
AMSK HTR -1 F5G34830
TMSK HTR 0,-1 F5G34840
NTMSK OCT 777770777777 F5G34850
3LD3 0,0,5 F5G34860
LXDC OCT 150000000000 THE NUMBER IDENTIFYING THE LOC. OF AN LXD F5G34870
LT1 HTR 0,1 F5G34880
ACK1 OCT 77776 F5G34890
ACV2 NO. OF CURRENT SUCC. OF THIS BB IN ADDR. F5G34900
ACV3 NO. OF 1ST SUCC IN NEXT BB IN ADDR F5G34910
ACV4 COMBINED SXD CASE LAST OCTAL DIGIT IN DECR F5G34920
ACV5 NO. OF CURRENT PRED IN ADDR F5G34930
ACV6 NO. OF 1ST PRED IN NEXT BB IN ADDR F5G34940
ACV7 MO. OF CURRENT PRED IN THIS BB IN ADDR F5G34950
ACV8 BB NO. OF SUCCESSOR IN ADDR F5G34960
ACV9 NO. OF 1ST PRED IN THE SUCCESSOR BB IN ADDRF5G34970
ACV10 THE COMBINED LXD CASE F5G34980
ACV11 TEMP. STORE FOR PRED TABLE INDEX AT AC5 F5G34990
ACV12 EXTRA WORD FROM ASSIGN CONSTANT RECORD F5G35000
ACV13 TEMP. STORE FOR LOCATION OF 1ST INST. IN BB F5G35010
ASCON BES PTL3 SPACE FOR PATCHES F5G35020
REM EDITOR RECORD NO. 88 F5G35030
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G35040
REM DIAGNOSTIC CALLER FOLLOWS F5G35060
REM PART 4 F5G35070
REM COMPILE INSTRUCTIONS FROM PREVIOUS RESULTS F5G35080
REM CONSTANTS F5G35090
ORG C F5G35100
L3 3 F5G35110
L4 4 F5G35120
L7 7 F5G35130
L19 19 F5G35140
LD1 SYN ONED F5G35150
LD2 0,0,2 F5G35160
LD3 0,0,3 F5G35170
LD4 0,0,4 F5G35180
LD7 0,0,7 F5G35190
LD8 0,0,8 F5G35200
LD9 0,0,9 F5G35210
LD12 0,0,12 F5G35220
LT7 0,7 F5G35230
LM20 -20 F5G35240
LM4 -4 F5G35250
DECMK 0,0,-1 DECREMENT MASK F5G35260
ENDMK PTH -1,-1,-1 F5G35270
ADDMK -1 F5G35280
STMSK OCT 777770 F5G35290
PRMK 0,7,7 MASK FOR PRED RESULTS F5G35300
TAGMK -1,-1 MASK FOR TAU- TAGS F5G35310
LFTMSK MTH 0,0,-1 F5G35320
SMK3 SYN LFTMSK F5G35330
LTPL BCD 1TPL000 F5G35340
LLXP BCD 1LXP000 F5G35350
LSYN BCD 1SYN000 F5G35360
LDED BCD 1DED000 F5G35370
LTRA BCD 1TRA000 F5G35380
LTSX BCD 1TSX000 F5G35390
LBSS BCD 1BSS000 BSS IN BCD. F5G35391
LPSE OCT 76225000000 F5G35400
GSYM OCT 60000000000 GARBAGE SYMBLE F5G35410
T4SYM PZE 4,0,4 TAG 4 AND RELATIVE PART 4 F5G35420
4 4 NUMBERS TO CONVERT S-TAG F5G35430
2 F5G35440
1 F5G35450
VSTAG PZE 0 F5G35460
RECSC HTR RECNO ADDR, NO. OF RECS. BROUGHT IN , C.I.T. F5G35470
LCOUT TRA - TRANSFER TO EXIT ROUTINE F5G35480
OCT 35121000000 TRA OP CODE F5G35490
OCT 41104000000 PSE-TRA F5G35500
OCT -33642000000 DCT-PSE F5G35510
OCT -24000000000 RTT-DCT F5G35520
OCT 27642000000 MSE-RTT F5G35530
OCT -7100000000 TZE-MSE F5G35540
OCT -32154000000 HPR-TZE F5G35550
LNTOP OCT 31316000000 TSX-HPR F5G35560
OCT 35121000000 F5G35570
OCT 1622000000 TXL-TRA F5G35580
OCT -31772000000 HPR-TXL F5G35590
LTROP OCT 31400000000 TTR-HPR F5G35600
FSTLT OCT -370000000000 F5G35610
FSTT OCT -230000000000 F5G35620
PCC OCT 170000000000 MEANS LOCATION OF THIS INST. F5G35630
PFXMK OCT -300000000000 F5G35640
XXPSX OCT 770000000 CONSTANTS TO TEST PSE ADDR. F5G35650
XX16X OCT 160000000 F5G35660
XX360 OCT 360000000 F5G35670
SHK1 OCT 777777 CONST. TO EXTRACT R. HALF WORD F5G35680
SHK2 SYN L4 F5G35690
SIK2 OCT 160000000000 I.D. FOR LOCATION OF SXD F5G35700
SIK3 BCD 1SXD000 SXD IN BCD F5G35710
LSXD SYN SIK3 F5G35720
IDSXD SYN SIK2 F5G35730
SKK1 LCLST F5G35740
SLK1 SYN LTRA TRA IN BCD F5G35750
SMK1 OCT 150000000000 I.D. FOR LOCATI0N OF LX0 F5G35760
SMK2 BCD 1LXD000 LXD IN BCD F5G35770
LLXD SYN SMK2 F5G35780
REM FOR SMK3 SEE LFTMSK F5G35790
SMK4 OCT 140000000000 I.D. FOR TAU-TAG F5G35800
SLK2 SYN SMK1 F5G35810
IDLXD SYN SMK1 F5G35820
IDTAG SYN SMK4 F5G35830
Z1K3 OCT -0 F5G35840
MZE SYN Z1K3 F5G35850
Z2K1 0,0,-2 THE INDEXES NEEDED TO REFER F5G35860
0,0,-6 TO THE BOTTOM POSITIONS F5G35870
0,0,-10 IN LIST1, LIST2, LIST3, RESPT. F5G35880
Z2K2 HTR 3,0,7 NO. OF LISTS, NO. OF CASES F5G35890
CASE HTR 1 F5G35900
2 F5G35910
4 F5G35920
3 F5G35930
5 F5G35940
6 F5G35950
7 F5G35960
Z2K3 OCT 32212110 CONST. TO DETERMINE NO. 1 S IN 3 BITS F5G35970
Z2K4 DEC 3B14 F5G35980
Z2K5 HTR 7 F5G35990
Z4K1 -1 F5G36000
Z4K2 0 INDEX OF ST SXD CASE F5G36010
LNSX0 NSXD*4 NO. OF SXD IN SXD LIST F5G36020
Z7K1 0,0,-8 INDEAXES OF ASSOCIATED SXD CASES F5G36030
0,0,-12 F5G36040
0,0,-16 F5G36050
REM THE DEFINITION OF TEMP. AND VARIABLE STORAGE LOCATIONS F5G36060
BBNO MZE 0,0,1 DECR., CURRENT BB NO. BEING SCANNED F5G36070
NXTLOC LOCATUON OF 1ST INST OF THE BB F5G36080
OUTBX TEMP. STORAGE OF RETURN INDEXES F5G36090
ERRBX ERROR INDICATOR F5G36100
BBOX TEMP. STORE FOR INDEXES, MAINLY 2 F5G36110
BBOX1 ANOTHER OF SAME F5G36120
ABOX TEMP. STORE , INDEX 1 F5G36130
TAG TAU-TAG FROM AN INST. F5G36140
STAGN1 WORD FROM STAG SHIFTED LEFT MULTIPLE OF I F5G36150
STAGN2 SAME WORD SHIFTED BY ONES F5G36160
9CNT COUNT TO 9, 9 TAGS IN STAG WORD F5G36180
STGWD DEC -1 NO. OF STAG ENTRY BEING CONSIDERED F5G36180
TMP10 TEMP. STORE , LASTS ONLY 10 INSTRS. F5G36190
CIND + OR - MEANS IR4 ISNT OR IS NECESSARY F5G36200
CPIND MZE + OR - MEANS COMPILE/DONT COMPILE F5G36210
ARG1 U 1ST ARGUMENT FOR SUBROUTINES F5G36220
MBOX NO. OF TRANSFERS IN GO TO VECTOR F5G36230
SUCNO NO. OF A SUCCESSOR, GOV ROUTINE F5G36240
SXD0 LXD CASE IN DECR., PRED NO. IN ADDR. F5G36250
SXD1 3 TAU TAGS WHICH MUST BE STORED F5G36260
SXD2 FROM IR1,2,3 F5G36270
SXD3 RESPT. F5G36280
SADV1 RETURN INDEX F5G36290
SADV2 LOCATION OF 1ST INST IN SUCCESSOR BB F5G36300
SADV3 NO. OF CURRENT PRED F5G36310
SADV4 NO. OF 1ST PRED IN SUCCESSOR BB F5G36320
SADV5 THE SUCCESSOR BB NO. F5G36330
SHV1 RETURN INDEX F5G36340
SHV2 ENTRY FROM PRED. F5G36350
SIV1 INDEX OF SXD CASE RELATIVE TO SXST F5G36360
SIV2 RETURN INDEX F5G36370
SIV3 LOCATION OF 1ST INST. IN SXD GROUP F5G36380
SIV4 TEMP. STORE F5G36390
SIV5 STORE FOR INDEX OF TAU TAG IN SXD CASE F5G36400
SIV6 STOER FOR THE TAG F5G36410
SJV1 LXD CASE IN DECR. F5G36420
SJV2 RETURN INDEX F5G36430
SJV3 F5G36440
CLST BES LCLST THE NEW LIST OF COMPILED INST. F5G36450
SKV1 0,0,LCLST INDEX FOR NEXT ENTRY IN CLST F5G36460
REM SKV1 COMES ALREADY INITIALIZED F5G36470
SLV1 RETURN INDEX F5G36480
SLV2 LOCATION TO BE ATTACHED TO TRA F5G36490
SLV3 + OR - MEANS ISNT OR IS HANGING TRA0 F5G36500
SMV1 RETURN INDEX F5G36510
SMV2 TAG TO BE COMPILED F5G36520
SMV3 STORE INDEX OF QUANTITY IN LIST F5G36530
SMV4 LOCATION , TEMP. STORE F5G36540
Z1V2 NO. OF 1ST PRED. IN NEXT BB F5G36550
Z1V3 NO. OF PRED BEING CONSIDERED F5G36560
Z1V5 THE CASES F5G36570
Z1V8 THE LOC. OF 1ST PRED IN BB, USED IN Z4 F5G36580
Z2V1 IN DECREMENTS, THE INDEXES F5G36590
THE TOP ENTRIES F5G36600
IN THE 3 LXD LISTS F5G36610
Z2V2 IN ADDR., NO. OF 1S IN DIFFERENCE F5G36620
Z2V3 IN DECR., INDEX OF LIST GIVING MIN. DIFFERENCF5G36630
LIST1 BSS 4 F5G36640
LIST2 BSS 4 F5G36650
LIST3 BSS 4 F5G36660
LLIND BES 3 + OR - MEANS LIST NOT TO BE OR TOBE COMPILED F5G36670
Z4V1 TEMP. STORE , LXD CASE IN ADDR. F5G36680
Z5V1 INDEX IN SYN TABLE F5G36690
Z7V1 INDEX OF LIST F5G36700
Z7V2 + OR - MEANS 1ST OR 2ED TIME THRU F5G36710
NDINS BES 12 BLOCK FOR 3 EXTRA COMPILED INST. F5G36720
INST BES RECNO*100 THE BLOCK FOR 1HE COMPILED INSTR F5G36730
SXST MZE - OR + MEANS NO SEQUENTIAL TRANSFER OR S. T. F5G36740
BSS 3 F5G36750
REM THE SXD INST. ASSOCIATED WITH SEQUENTIAL TRANSFER F5G36760
SXAS0 BSS 4 ASSOCIATED WITH 0 LXD CASE F5G36770
SXAS1 BSS 4 WITH 1ST LXD LIST F5G36780
SXAS2 BSS 4 2ED LIST F5G36790
SXAS3 BSS 4 3RD F5G36800
SXAS BSS 4*NSXD THE LIST OF SXD INST. F5G36810
SYN MZE SYN CARD TABLE STORED BACKWARD F5G36820
REM WHEN ENTERED WITH PRESENT BB NO. IN ADDR OF ARG1 AND BBNO. F5G36830
REM OFA SUCCESSOR BB IN ADDR. OF AC, SAD FIGURES OUT WHAT THE ADF5G36840
REM DRESS OF CORRESPONDING TRANSFER INST. SHOULD BE AND RETURNS F5G36850
REM WITH THE ADDR IN LOGICAL AC F5G36860
SAD SXD SADV1,4 STORE RETURN F5G36870
ANA ADDMK STORE THE SUCC. NO. F5G36880
STO SADV5 F5G36890
TSX SE1,4 F5G36900
CLA BBB+5,1 F5G36910
STO SADV2 F5G36920
CLA BBB,1 F5G36930
ANA ADDMK F5G36940
SLW SADV4 F5G36950
SAD1 SLW SADV3 F5G36960
TSX SE5,4 F5G36970
CLA PRED,1 F5G36980
ANA ADDMK IS THIS THE CORRECT F5G36990
SUB ARG1 PRED ENTRY F5G37000
TZE SAD2 F5G37010
CAL SADV3 NO, TRY NEXT RETURN F5G37020
ADD ONEA F5G37030
TRA SAD1 F5G37040
SAD2 CAL PRED,1 IS THE SXD CASE 0 F5G37050
ANA LD7 F5G37060
TZE SAD3 YES F5G37070
CLA SADV3 NO, FORM THE SYMBOLIC ADDR. F5G37080
SUB SADV4 AS ID FOR SXD PLUS NO. OF PRED WITHIN F5G37090
ALS 10 THE BB * 1024 PLUS BB NO. F5G37100
ADD IDSXD F5G37110
TRA SAD6 F5G37120
SAD3 CLA PRED,1 IS THE LXD CASE ZERO F5G37130
ANA LT7 F5G37140
TZE SAD4 F5G37150
ARS 5 NO, FORM TH SYMBOLIC ADDR. F5G37160
ADD IDLXD AS 1024* LXD CASE PLUS BB NO. PLUS F5G37170
SAD6 ADD SADV5 I. D. FOR AN LXD F5G37180
SAD5 LXD SADV1,4 F5G37190
TRA 1,4 F5G37200
SAD4 CAL SADV2 F5G37210
TRA SAD5 F5G37220
REM THIS ROUTINE COMPILES CURRENT INST) IF INDICATOR IN CPIND F5G37230
REM INDICATES IT SHOULD BE F5G37240
SCMI CLA CPIND SHOULD INST. BE COMPILED F5G37250
TPL SCMI1 F5G37260
SXD TMP10,4 YES, COMPILE THE INST F5G37270
CLA INST,2 F5G37280
TSX SK,4 F5G37290
CLA INST-1,2 F5G37300
TSX SK,4 F5G37310
CLA INST-2,2 F5G37320
TSX SK,4 F5G37330
CLA INST-3,2 F5G37340
TSX SK,4 F5G37350
LXD TMP10,4 F5G37360
SCMI1 SSM F5G37370
STO CPIND RECORD INST SHOULD BE COMPILED F5G37380
TRA 1,4 F5G37390
REM DETERMINE AN SXD CASE SUBROUTINE F5G37400
SH SXD SHV1,4 STORE RETURN F5G37410
LXA SHK2,4 CLEAR F5G37420
LDQ ZERO THE F5G37430
SH1 STQ SXD0+4,4 SXD F5G37440
TIX SH1,4,1 POSITIONS 0-3 F5G37450
STA SXD0 STORE THE PRED NO. F5G37460
TSX SE5,4 GET INDEX OF PRED F5G37470
CLA PRED,1 GET AND F5G37480
STO SHV2 STORE PRED ENTRY F5G37490
TSX SE1,4 GET INDEX OF BBB TABLE ENTRY F5G37500
LXD LD3,4 NO, SET COUNT TO 3 F5G37510
SH2 LDQ SHV2 IS F5G37520
RQL 18,4 SXD REQUIRED F5G37530
TQP SH3 FOR THIS I.R. F5G37540
CLA BBB+2,1 YES, GET AND F5G37550
ANA TAGMK EXTRACT THE F5G37560
STO SXD1+3,4 EXIT CONDITIONS F5G37570
SH3 TXI SH3+1,1,-1 DOWN THE EXIT CONDITIONS F5G37580
TIX SH2,4,1 COUNT TO 3 F5G37590
SH4 CAL SHV2 GET F5G37600
ANA LT7 AND STORE F5G37610
ALS 3 LXD CASE F5G37620
STD SXD0 F5G37630
LXD SHV1,4 F5G37640
TRA 1,4 RETURN F5G37650
REM COMPILE AN SXD CASE SUBROUTINE F5G37660
SI SXD SIV2,4 STORE RETURN F5G37670
SXD SIV1,1 STORE INDEX OF SXD CASE F5G37680
TSX SL1,4 RECORD ANY HANGING TRANSFER F5G37690
CAL BBNO F5G37700
ARS 18 F5G37710
STO SLV2 STORE BB NO. F5G37720
TSX SE1,4 GET INDEX OF BB F5G37730
CLA BBB,1 F5G37740
ANA ADDMK F5G37750
STO SIV4 STORE LOC. OF 1ST PRED IN BB F5G37760
LXD SIV1,1 FORM F5G37770
CLA SXST,1 LOC. OF THIS PRED - F5G37780
ANA ADDMK LOC. OF 1ST PRED IN BB F5G37790
SUB SIV4 F5G37800
ALS 10 F5G37810
ADD SLV2 F5G37820
ADD SIK2 F5G37830
STO SLV2 STORE THE LOC. OF 1ST SXD F5G37840
LXD LD3,2 F5G37850
SI2 CLA SXST+1,1 F5G37860
TZE SI1 IS THIS TAG 0 F5G37870
SXD SIV5,1 NO, PRESERVE IN0EX 1 F5G37880
STO SIV6 PRESERVE THE TAG F5G37890
CLA SLV2 PUT LOCATION WORD ON TAPE F5G37900
TSX SK,4 F5G37910
CLA ZERO AND RESET TO 0 F5G37920
STO SLV2 F5G37930
CLA SIK3 PUT SXD ON TAPE F5G37940
TSX SK,4 F5G37950
CLA SIV6 14*2**-5+TAU-TAG IS F5G37960
ADD SMK4 SYMBOLIC ADDRESS F5G37970
TSX SK,4 F5G37980
CLA VSTAG,2 F5G37990
TSX SK,4 PUT S-TAG ON TAPE F5G38000
LXD SIV5,1 F5G38010
SI1 TXI SI1+1,1,-1 F5G38020
TIX SI2,2,1 COUNT TO 3, FORM N+1 F5G38030
LXD SIV1,1 F5G38040
CLA SXST,1 F5G38050
PDX 0,2 F5G38060
TXL SI3,2,0 IS THE LXD CASE 0 F5G38070
TXL SI4,1,0 NO, IS THIS THE ST POSITION F5G38080
TXH SI6,1,-16-1 IS THIS ASSOCIATED WITH A LIST F5G38090
SI5 ARS 18 NO F5G38100
TSX SL,4 COMPILE A TRA TO LXD CASE F5G38110
LXD SIV2,4 F5G38120
TRA 3,4 RETURN TO LOC. OF TSX + 3 F5G38130
SI3 CLS ONEA RECORD THAT THERE IS F5G38140
STO SLV3 A HANGING TRA TO 0 CASE F5G38150
LXD SIV2,4 F5G38160
TRA 1,4 RETURN TO LOC. OF TSX +1 F5G38170
SI4 STO SXD0 STORE LXD CASE AS ARG FOR SJ F5G38180
TSX SJ,4 IS SXD CASE INST POS. ASSOC. WITH LIST F5G38190
SHOULDENT BE WITH CASE 0 F5G38200
TRA SI6 YES F5G38210
LXD SIV1,1 NO F5G38220
CLA SXST,1 F5G38230
TRA SI5 GO TO COMPILE TRA TO LXD CASE F5G38240
SI6 LXD SIV2,4 RETURN TO 2 FOLL0WING TSX WITH F5G38250
TRA 2,4 INDEX OF TOP QUANTITY IN 1 AND LIST INDEX IN2F5G38260
REM DETERMINE IF THE SXO CASE IS ASSOCIATED WITH AN LXD LIST F5G38270
SJ SXD SJV2,4 F5G38280
CLA SXD0 F5G38290
ANA DECMK F5G38300
STO SJV1 F5G38310
TZE SJ3 IS THIS THE 0 LXD CASE F5G38320
LXD ZERO,4 NO, SET COUNT TO 3, N TO 1 F5G38330
LXD LD3,2 2 HAS THE C0UNTER F5G38340
SJ2 CLA SXAS1,4 F5G38350
TPL SJ1 DOES THE LIST ALREADY HAVE SXD F5G38360
CLA Z2V1+3,2 NO F5G38370
PDX 0,1 GET INDEX OF TOP QUANTITY F5G38380
CLA LIST1,1 F5G38390
ALS 18 F5G38400
SUB SJV1 IS THIS CASE SAME AS CASE HEADUNG LIST N F5G38410
TNZ SJ1 F5G38420
LXD SJV2,4 YES F5G38430
TRA 2,4 RETURN, INDEX OF TOP OF LIST IN 1 F5G38440
SJ1 TXI SJ1+1,4,-1 F5G38450
TIX SJ2,2,1 COUNT TO 3 F5G38460
LXD SJV2,4 F5G38470
TRA 3,4 F5G38480
SJ3 LXD SJV2,4 F5G38490
CLA SXAS0 F5G38500
TPL 3,4 F5G38510
TRA 1,4 F5G38520
REM PUT WORD OF COMPILED INST ON TAPE F5G38530
SK LXD SKV1,1 F5G38540
STO CLST,1 STORE THE WORD IN CLST F5G38550
TIX SK1,1,1 C0UNT NO OF WORDS IS CLST FULL F5G38560
LXA SKK1,1 YES F5G38570
SXD SKV1,1 RESET THE INDEX F5G38580
WTB OTAPE WRITE THE BLOCK ON F5G38590
SK2 CPY CLST,1 THE OUTPUT TAPE F5G38600
TIX SK2,1,1 F5G38610
IOD F5G38620
TRA 1,4 F5G38630
SK1 SXD SKV1,1 STORE INDEX OF NEXT WORD F5G38640
TRA 1,4 F5G38650
REM SUBROUTINE FOR COMPILING TRA TO LXD CASE F5G38660
SL ANA Z2K5 FORM F5G38670
ALS 10 THE F5G38680
ADD SLK2 ADDRESS F5G38690
STO SLV2 OF F5G38700
CLA BBNO THE F5G38710
ANA DECMK F5G38720
ARS 18 TRA IN F5G38730
ORS SLV2 SLV2 F5G38740
SXD SLV1,4 STORE RETURJ F5G38750
SL2 CLA ZERO PUT 0 LOCATION F5G38760
TSX SK,4 ON TAPE F5G38770
CLA LTRA F5G38780
TSX SK,4 PUT SYMB. ADDR. ON TAPE F5G38790
CLA SLV2 F5G38800
TSX SK,4 PUT SYMB. ADDR ON TAPE F5G36810
CLA ZERO F5G38820
TSX SK,4 ANOTHER 0 F5G38830
LXD SLV1,4 F5G38840
TRA 1,4 F5G38850
REM SUBROUTINE FOR PUTTING HANGING TRA 0 0N TAPE F5G38860
SL1 CLA SLV3 F5G38870
TPL 1,4 RETURN IF THERE IS NO HANGING TRA0 F5G38880
SXD SLV1,4 OTHERWISE , STORE RETURN AND F5G38890
CLA BBNO GET F5G38900
TSX SE,4 THE F5G38910
CLA BBB+5,1 SYMBOLIC LOCATION F5G38920
STO SLV2 OF 1ST INST IN BB AND F5G38930
CLA ZERO STORE IN SYNBOLIS ADDR WORD F5G38940
STO SLV3 SET INDICATOR TO SAY NO HANGING TRA F5G38950
TRA SL2 F5G38960
REM COMPILE AN LXD LIST F5G38970
SM CLA LLIND,2 IMMEDIATELY RETURN IF LIST IS F5G38980
TPL 1,4 ALREADY COMPOLED F5G38990
SLW LLIND,2 RECORD LIST ALREADY COMPILED F5G39000
SXD SMV1,4 STORE RETURN F5G39010
CLA Z2K1+3,2 COMPUTE THE F5G39020
SUB ONED INDEX OF SUB BOTTEM F5G39030
STD SM1 POSITION OF LIDT F5G39040
STD SM5 SET END TEST F5G39050
SM6 CLA LIST1,1 F5G39060
TMI SM8 DOES THIS ELEMENT OF LIST REPRESENT AN LXD F5G39070
TXL SM1+1,1,0 F5G39080
SM1 TXL SM10,1,SET YES, IS ELEMENT IN SUB BOTTOM POS. F5G39090
SBM LIST1+1,1 NO F5G39100
SM10 STO SMV2 STORE THE TAG AWAY F5G39110
CLA BBNO FORN F5G39120
ANA DECMK THE F5G39130
LRS 28 LOCATION F5G39140
CLA LIST1,1 F5G39150
LLS 10 F5G39160
ADD SMK1 F5G39170
SXD SMV3,1 STORE INDEX OF LIST QUANTITY F5G39180
STO SMV4 F5G39190
TSX SL1,4 RECORD ANY HANGING TRA0 F5G39200
CLA SMV4 F5G39210
TSX SK,4 COMPILE THE LOCATION F5G39220
CLA SMK2 F5G39230
TSX SK,4 COMPILE LXD F5G39240
CLA BBNO F5G39250
TSX SE,4 FIND INDEX OF BB F5G39260
CLA SMV2 F5G39270
SM3 CAS L4 IS THIS THE CORRECT ENT. REQUIREMENT F5G39280
TRA SM2 F5G39290
TRA SM4 YES F5G39300
SM2 ALS 1 NO, SHIFT IT LEFT ONE F5G39310
TXI SM3,1,-1 AND INDEX TO NEXT ENRR. REQUIREMENT F5G39320
SM4 CAL BBB+2,1 FORM F5G39330
ARS 18 AND COMPILE F5G39340
ADD SMK4 THE F5G39350
TSX SK,4 F5G39360
CLA SMV2 C0MPILE THE TAG F5G39370
TSX SK,4 F5G39380
LXD SMV3,1 IS THE ELEMENT IN SUB BOTTOM POSITION F5G39390
TXL SM5+1,1,0 F5G39400
SM5 TXL SM7,1,SET F5G39410
TXI SM6,1,-1 NO, INDEX TO NEXT LIST POS. F5G39420
SM7 CLS ONEA F5G39430
STO SLV3 RECORD THAT THERE IS HANGING TRA 0 F5G39440
SM9 LXD SMV1,4 F5G39450
TRA 1,4 RETURN F5G39460
SM8 TZE SM7 GO TO RECORD HANGING TRA F5G39470
SSP F5G39480
TSX SL,4 RECORD A TRA TO LXD CASE F5G39490
TRA SM9 F5G39500
REM THE METHODS OF BRINGNNG IN BLOCKS OF COMPILED INST. AND F5G39510
REM CHECKING FOR ENDINGS IS THE SAME AS IN PASS 2 OF FLOW ANAL. F5G39520
FNDAS TNX 2FNDS,2,ZINST IS BLOCK OF INST. ALL USED F5G39530
TSX RDINS,4 YES, READ IN NEXT BLOCK F5G39540
2FNDS CAL INST-3,2 IS THIS INST. TAGGED F5G39550
ANA STMSK F5G39560
TZE CI7A F5G39570
CI4 LXD 9CNT,4 YES F5G39580
TIX CI5,4,1 COUNT TO 9, IS STAG WORD EXHAUSTED F5G39590
SXD BBOX,2 YES, GET ANOTHER F5G39600
CLA STGWD INCREASE THE NO. OF CURRENT STAG WORD F5G39610
ADD ONEA F5G39620
STO STGWD F5G39630
TSX SE4,4 GET INDEX OF NEXT STAG WORD F5G39640
CLA STAG,1 F5G39650
STO STAGN2 GET AND STORE F5G39660
ALS 2 F5G39670
STO STAGN1 THE STAG WORD F5G39680
LXD BBOX,2 RESTORE INDEX REGISER 2 F5G39690
LXD LD9,4 RESET COUNT TO 9 F5G39700
CI5 SXD 9CNT,4 F5G39710
CAL INST-3,2 F5G39720
ANA TAGMK EXTRACT THE TAG F5G39730
STO TAG F5G39740
CAL STAGN1 F5G39750
ANA LD3 EXTRACT THE S-TAG F5G39760
PDX 0,4 F5G39770
CAL VSTAG,4 CONVERT S-TAG TO 1,2, OR 4 F5G39780
STA INST-3,2 REPLACE TAU-TAG BY S-TAG F5G39790
SUB L4 IS THE TAG 4 F5G39800
TNZ CI5A F5G39810
SSM F5G39820
STO CIND YES, RECORD IR 4 NECESSARY F5G39830
CI5A CAL STAGN2 F5G39840
ALS 9 F5G39850
PBT IS AN LXD NECESSARY F5G39860
TRA SKLX NO F5G39870
CLA ZERO YES F5G39880
TSX SK,4 COMPILE LOCATION OF 0 F5G39890
CLA SMK2 COMPILE LXD F5G39900
TSX SK,4 F5G39910
CLA TAG COMPILE THE SYMB. ADDR. OF THE CELL F5G39920
ORA SMK4 F5G39930
TSX SK,4 F5G39940
CLA INST-3,2 COMPILE THE S-TAG F5G39950
ANA ADDMK F5G39960
TSX SK,4 F5G39970
SKLX CAL INST-1,2 F5G39980
ANA LFTMSK F5G39990
SLW TMP10 F5G40000
CLA TMP10 F5G40010
CAS LLXP IS THIS AN LXP F5G40020
TRA CI1 F5G40030
TRA SKLY YES. F5G40031
TRA CI1 F5G40032
SKLY CAL STAGN2 F5G40040
ALS 9 F5G40041
PBT IS LXD NECESSARY. F5G40042
TRA CI3A NO. F5G40043
CLA INST-3,2 YES. IS S-TAG=4. F5G40044
SLW CPIND RECORD DONT COMPILE. F5G40045
ANA ADDMK F5G40046
SUB L4 F5G40047
TNZ CI6 NOT 4. F5G40048
CAL INST-5,2 IS NEXT INSTR F5G40049
ANA LFTMSK F5G40050
SLW TMP10 AN LXD F5G40051
CLA TMP10 F5G40052
SUB LLXD WITH REAL F5G40053
TNZ CI6 IR4. F5G40054
CLA INST-7,2 F5G40055
ANA ADDMK IF SO, F5G40056
SUB L4 F5G40057
TNZ CI6 TURN ON F5G40058
PSE 97 F5G40059
TRA CI6 SENSE LIGHT. F5G40060
CI1 CAS LDED IS IT A DED F5G40061
TRA CI2 F5G40062
TRA CI3A YES F5G40070
CI2 CLA STAGN2 F5G40080
TPL CI6 IS SXD REQUIRED F5G40090
CLA INST,2 NEITHER LXP NOR DED, COMPILE THE F5G40100
TSX SK,4 INST. F5G40110
CLA INST-1,2 F5G40120
TSX SK,4 F5G40130
CLA INST-2,2 F5G40140
TSX SK,4 F5G40150
CLA INST-3,2 F5G40160
TSX SK,4 F5G40170
CLA ZERO YES, COMPILE AN SXD, ZERO LOCATION F5G40180
STO CPIND RECORD THAT THIS INST. SHOULDNT BE CONPILED F5G40190
TSX SK,4 F5G40200
CLA SIK3 SXD IN BCD F5G40210
TSX SK,4 F5G40220
CLA TAG SYMB. ADDR. OF TAU-TAG CELL F5G40230
ORA SMK4 F5G40240
TSX SK,4 F5G40250
CLA INST-3,2 AND TAG WORD F5G40260
ANA ADDMK F5G40270
TSX SK,4 F5G40280
CI6 CAL STAGN1 NO SXD REQUIRED. F5G40290
ALS 2 F5G40300
SLW STAGN1 F5G40310
CAL STAGN2 F5G40320
ALS 1 F5G40330
SLW STAGN2 F5G40340
TRA CKLOC GO TO CHECK FOR ENDINGS F5G40350
CI7 SSM F5G40360
STO CPIND RECODD LATER COMPILING NECESSARY F5G40370
REM NOW THE END OF BB IS CHECKED FOR F5G40380
CKLOC CLA INST,2 IF NO LOCATION SYMBOL , THIS CANT BE F5G40390
TZE TR3S ENSING OTHER THAN CERTAINTY F5G40400
CLA INST-4,2 IS THIS LAST INST IN BB F5G40410
SUB NXTLOC F5G40420
TZE ENDBB YES, LOOK FOR TYPE OF ENDING F5G40430
LXD LD8,4 NO, CHECK FOR ENDING OF GROUP OF INST F5G40440
CAL INST-1,2 F5G40450
ANA DECMK LOOK AT OP CODE F5G40460
SUBP SUB LNTOP+1,4 COMPARE TO OP CODES OF POSSIBLE F5G40470
TZE TRTIN+1,4 ENDINGS TRANSFER WHEN FOUND F5G40480
TIX SUBP,4,1 TRY NEXT POSSIBILITY F5G40490
CAL INST-1,2 NOT FOUND, LOOK FORCONDITIONAL TRANSFER F5G40500
6ANA ANA FSTLT F5G40510
SLW TMP10 F5G40520
CLA TMP10 F5G40530
SUB FSTT F5G40540
TZE TTYPE IS A CONDITIONAL TRANSFER F5G40550
NOEND TSX SCMI,4 NOT AN END OD BB COMPILE INST F5G40560
TXI FNDAS,2,4 IF IT NEEDS TO BE F5G40570
TR3S CLA INST-4,2 IS THIS LAST INST IN BB F5G40580
SUB NXTLOC F5G40590
TZE SEQTR YES F5G40600
TRA NOEND NO F5G40610
REM TRANSFER VECTOR SEE SUBP+1 ABOVE F5G40620
TRA GOTOV TRA IS OP CODE F5G40630
TRA IF2PS PSE F5G40640
TRA IF2CS DCT F5G40650
TRA IF2CS RTT F5G40660
TRA MSECS MSE F5G40670
TRA IF3CS TZE F5G40680
TRA STPCSZ HPR F5G40690
TRTIN TRA NOEND TSX F5G40700
REM THE FOLLOWING IS 4 WORD TRANSFER VECTOR, SEE ENDBB BELOW F5G40710
TRA TRACS TRAIS OP CODE F5G40720
TRA DOCS TXL F5G40730
TRA PAUSE HPR F5G40740
TRTTR TRA TRAC3 TTR F5G40750
ENDBB LXD LD4,4 THIS INST ENDS A BASIC F5G40760
CLA INST-1,2 BLOCK LOOKAT OP CODE F5G40770
ANA DECMK FOR TYPE OF ENDING F5G40780
6SUB SUB LTROP+1,4 F5G40790
TZE TRTTR+1,4 TRANSFER IF IOUND F5G40800
TIX 6SUB,4,1 TRY NEXT POSSIBILITY F5G40810
TRA SEQTR F5G40820
TRACS CAL INST-2,2 OP CODE IS TRA SEE IF ADDRESS F5G40830
ANA PFXMK IS IN PROGRAM UNCONDITITONAL TRANSFER F5G40840
TNZ GOTON IF TRANSFER IT IS A GO TO N F5G40850
TRAC3 SXD BBOX,2 THIS IS GO TO ALPHA F5G40860
CAL BBNO F5G40870
ARS 18 F5G40880
STO ARG1 STORE BBNO AS ARGUMENT OF SAD F5G40890
TSX SE1,4 F5G40900
CAL BBB,1 F5G40910
TSX SE6,4 GET SUCC. TABLE ENTRY F5G40920
CAL SUCC,1 F5G40930
TSX SAD,4 GO TO DETERMINE SYMBOLIC ADDRESS F5G40940
LXD BBOX,2 F5G40950
SLW INST-2,2 TEPLACE SYMBOLIC ADDR. F5G40960
TSX SCMI,4 COMPILE THE INSTR F5G40970
TXI BEGBB,2,4 BEGINNING OF BB, INDEX TO NEXT INSTR F5G40980
GOTON SXD BBOX,2 F5G40990
CLA BBNO F5G41000
TSX SE,4 F5G41010
CLA BBB,1 CHECK TO MAKE SURE THIS IS GO TO N F5G41020
ARS 33 F5G41030
ADD ONEA F5G41040
TZE GON1 F5G41050
TSX 4,4 DIAGNOSTIC THIS ISNT GO N F5G41060
GON1 CAL BBB+1,1 F5G41070
ARS 33 PUT SXD CASE IN TMP10 F5G41080
SLW TMP10 F5G41090
REM NOW ANY SXD BEFIR GO TO N ARE COMPILED F5G41100
LXD LD3,2 F5G41110
GON3 CLA VSTAG,2 DOES THIS THIS IR NEED SXD F5G41120
ANA TMP10 F5G41130
TZE GON2 F5G41140
SXD ABOX,1 YES F5G41150
LDQ ZERO REPLACE LOCATION BY 0 AND F5G41160
LXD BBOX,4 PUT LOCATION ON THE F5G41170
CLA INST,4 SXD INST. F5G41180
STQ INST,4 SXDINST F5G41190
TSX SK,4 F5G41200
CLA LSXD F5G41210
TSX SK,4 F5G41220
LXD ABOX,1 F5G41230
CAL BBB+2,1 F5G41240
ANA TAGMK F5G41250
ORA IDTAG F5G41260
TSX SK,4 F5G41270
CAL TMP10 F5G41280
ANA VSTAG,2 F5G41290
TSX SK,4 F5G41300
LXD ABOX,1 F5G41310
GON2 TXI GON2+1,1,-1 F5G41320
TIX GON3,2,1 F5G41330
LXD BBOX,2 F5G41340
TSX SCMI,4 COMPILE THE INST F5G41350
TXI BEGBB,2,4 F5G41360
DOCS PXD 0,0 F5G41370
STO SXST T RECORD THERE IS SEQUDNTIAL TRANSFER F5G41380
TRA TRAC3 OTHERWISE DO EXACTLY AS FOR TRA TRANSFER F5G41390
PAUSE PXD 0,0 F5G41400
SEQTR SYN PAUSE F5G41410
STO SXST RECORD SEQUENTIAL TRANSFER F5G41420
TSX SCMI,4 F5G41430
TXI BEGBB,2,4 F5G41440
GOTOV TSX SCMI,4 COMPILE INST IF NECESSARY F5G41450
CLA INST-3,2 FIND NO. OF BRANCHES IN VECTOR F5G41460
SUB LD1 F5G41470
STD MBOX F5G41480
CLA BBNO F5G41490
ARS 18 STORE BBNO FOR SAD ROUTINE F5G41500
STO ARG1 F5G41510
GOV4 TXI GOV4+1,2,4 F5G41520
SXD BBOX1,2 F5G41530
TSX SE1,4 F5G41540
CLA BBB,1 F5G41550
SLW SUCNO STORE NO OF 1ST SUCCESSOR F5G41560
LXD BBOX1,2 F5G41570
13TNX TNX GOV1,2,ZINST IS BLOCK OF INST ALL USED F5G41580
TSX RDINS,4 T READ NEXT BLOCK F5G41590
GOV1 SXD BBOX1,2 F5G41600
CAL SUCNO F5G41610
TSX SE6,4 F5G41620
CLA SUCC,1 F5G41630
TSX SAD,4 FINF NEW SYMBOLIC ADDR FOR THIS TRANSFER F5G41640
LXD BBOX1,2 F5G41650
SLW TMP10 STORE SYMBOLIC ADDR. F5G41660
LXD MBOX,4 F5G41670
TIX GOV2,4,1 IS THIS THE LAST TRANSFER F5G41680
CLA INST-2,2 F5G41690
SUB NXTLOC 1ST INST IN NEXT BB, IS IT F5G41700
TZE GOV3 F5G41710
GOV2 CLA TMP10 NO F5G41720
STO INST-2,2 F5G41730
TSX SCMI,4 COMPILE THE INXT F5G41740
GOV3 TXI GOV3+1,2,4 F5G41750
CAL SUCNO F5G41760
ADD ONED F5G41770
SLW SUCNO F5G41780
LXD MBOX,4 F5G41790
GOV5 TXI GOV5+1,4,-1 F5G41800
SXD MBOX,4 F5G41810
TXH 13TNX,4,0 IS THIS LAST TRA OF VECTOR F5G41820
TRA BEGBB YES F5G41830
IF2PS CLA INST-3,2 THIS IS PSE LOOK AT ADDRESS TO F5G41840
ANA XXPSX SEE IF IT IS 164-6 F5G41850
SUB XX16X F5G41860
TZE PSTCS YES, IT IS A TEST F5G41870
CLA INST-3,2 F5G41880
ANA DECMK NO, SEE IF ADDR IS 360 F5G41890
SUB XX360 F5G41900
TNZ NOEND NO, THIS ISNT BB END F5G41910
PSTCS TSX SCMI,4 THIS IS A PSE TEST INST F5G41920
MSECS SYN PSTCS OR AN MSE INST F5G41930
PS1 TXI PS1+1,2,4 INEDX TO CONSIEER 1ST TRANSFER F5G41940
SXD BBOX1,2 F5G41950
CAL BBNO F5G41960
ARS 18 F5G41970
STO ARG1 STORE BBNO AS ARGUMENT FOR SAD F5G41980
TSX SE1,4 F5G41990
CAL BBB,1 F5G42000
STO SUCNO GETNUMBER OF 1ST SUCCESSOR F5G42010
ADD LD1 F5G42020
TSX SE6,4 GET THE SECOND SUCC ENTRY F5G42030
CLA SUCC,1 F5G42040
TSX SAD,4 F5G42050
LXD BBOX1,2 F5G42060
SLW INST-2,2 REPLACE SYMBOLIC ADDRESS F5G42070
TSX SCMI,4 F5G42080
PS2 TXI PS2+1,2,4 INCREASE INSTR INDEX F5G42090
CLA INST-2,2 IS THIS A SEQUENTIAL TRANSFER F5G42100
SUB NXTLOC F5G42110
TZE PS3 YES, SKIP COMPILING THE INST F5G42120
SXD BBOX1,2 NO F5G42130
CLA SUCNO F5G42140
TSX SE6,4 F5G42150
CLA SUCC,1 F5G42160
TSX SAD,4 DETERMINE THE SYMBOLIC ADDRESS F5G42170
LXD BBOX1,2 F5G42180
SLW INST-2,2 REPLACE SYMBOLIC ADDRESS F5G42190
TSX SCMI,4 COMPILE THE INST. F5G42200
TXI BEGBB,2,4 F5G42210
TTYPE CLA INST-2,2 IS THIS TRANSFER TO NEXT INST. F5G42220
CAS INST,2 F5G42230
TRA TTYP1 F5G42240
TRA NOEND YES F5G42250
TTYP1 SUB PCC F5G42260
TZE NOEND YES F5G42270
TRA CNOTR NO, IS CONDITIONAL TRANSFER F5G42280
IF2CS TSX SCMI,4 THIS IS DCT OR RTT F5G42290
RT1 TXI RT1+1,2,4 INDEX TO CONSIDER 1ST TRANSFER F5G42300
CNOTR SXD BBOX1,2 STORE BBNO. AS ARGUMENT F5G42310
CAL BBNO STORE BBNO AS ARGUMENT F5G42320
ARS 18 OF SAD F5G42330
STO ARG1 F5G42340
TSX SE1,4 F5G42350
CAL BBB,1 F5G42360
STO SUCNO F5G42370
TSX SE6,4 GET THE 1ST SUCC ENTRY F5G42380
CLA SUCC,1 F5G42390
TSX SAD,4 F5G42400
LXD BBOX1,2 F5G42410
SLW INST-2,2 REPLACE SYMBOLIC ADDRESS F5G42420
TSX SCMI,4 COMPILE THE INST F5G42430
RT2 TXI RT2+1,2,4 F5G42440
CLA INST-2,2 IS THIS A SEQUENTIAL TRANSFER F5G42450
SUB NXTLOC F5G42460
TZE PS3 YES, SKIP COMPILING THE INST F5G42470
SXD BBOX1,2 F5G42480
CLA SUCNO F5G42490
ADD LD1 F5G42500
TSX SE6,4 F5G42510
CLA SUCC,1 F5G42520
TSX SAD,4 DETERMINE THE SYMBOLIC ADDR F5G42530
LXD BBOX1,2 F5G42540
SLW INST-2,2 F5G42550
TSX SCMI,4 COMPILE THE TRANSFER F5G42560
TXI BEGBB,2,4 F5G42570
IF3CS SXD BBOX1,2 THIS IS A TZE INST I. E. AN IF F5G42580
CAL BBNO F5G42590
ARS 18 STORE BB NO. FOR SUBROUTINE F5G42600
STO ARG1 F5G42610
TSX SE1,4 ARGUMENT F5G42620
CAL BBB,1 F5G42630
STO SUCNO F5G42640
ADD LD1 GET THE SUCC ENTRY F5G42650
TSX SE6,4 FOR THE TZE F5G42660
CLA SUCC,1 F5G42670
TSX SAD,4 F5G42680
LXD BBOX1,2 F5G42690
SLW INST-2,2 REPLACE THE SYMBOLIC ADDREAS F5G42700
TSX SCMI,4 C0MPILE THE TZE F5G42710
IF1 TXI IF1+1,2,4 F5G42720
CAL INST-1,2 CHECK NEXT INST TO SEE F5G42730
ANA LFTMSK IF IT IS TPL F5G42740
SLW TMP10 F5G42750
CLA TMP10 F5G42760
SUB LTPL F5G42770
TZE 16CLA F5G42780
IFHPR TSX 4,4 IF NOT, DIAGNOSTIC F5G42790
16CLA CLA INST-2,2 DOES THIS EXIT GO TO NEXT BB F5G42800
SUB NXTLOC F5G42810
TNZ IF2 F5G42820
CLA INST-6,2 YES, DOES NEXT ONE ALSO F5G42830
SUB NXTLOC F5G42840
TNZ IF2 F5G42850
PXD 0,0 YES, RECORD SEQUENTIAL TRANSFER F5G42860
STO SXST F5G42870
TXI BEGBB,2,8 F5G42880
IF2 SXD BBOX1,2 COMPILE THE TPL F5G42890
CLA SUCNO F5G42900
TSX SE6,4 F5G42910
CLA SUCC,1 F5G42920
TSX SAD,4 FIND AND F5G42930
LXD BBOX1,2 REPLACE F5G42940
SLW INST-2,2 SYMBOLIC ADDRESS F5G42950
TSX SCMI,4 F5G42960
IF3 TXI IF3+1,2,4 F5G42970
CAL INST-1,2 IS THIS TRA F5G42980
ANA LFTMSK F5G42990
SLW TMP10 F5G43000
CLA TMP10 F5G43010
SUB LTRA F5G43020
TNZ IFHPR IF NOT , STOP F5G43030
CLA INST-2,2 YES IT IS IS THIS A F5G43040
SUB NXTLOC SEQUENTIAL TRANSFER F5G43050
TNZ IF4 F5G43060
PS3 PXD 0,0 YES, RECORD THAT F5G43070
STO SXST F5G43080
TXI BEGBB,2,4 F5G43090
IF4 SXD BBOX1,2 CONPILE THE TRA F5G43100
CLA SUCNO F5G43110
ADD LD2 F5G43120
TSX SE6,4 F5G43130
CLA SUCC,1 IF NECESSARY F5G43140
TSX SAD,4 MODIFY THE F5G43150
LXD BBOX1,2 SYMBOLIC F5G43160
SLW INST-2,2 ADDRESS F5G43170
TSX SCMI,4 F5G43180
TXI BEGBB,2,4 F5G43190
STPCSZ CLA INST-5,2 F5G43200
SUB LTRA F5G43210
TNZ NOEND F5G43220
CLA INST,2 F5G43230
SUB INST-6,2 F5G43240
TNZ NOEND F5G43250
STPCS TSX SCMI,4 COMPILE THE TWO INXT F5G43260
STP1 TXI STP1+1,2,4 AND GO TO STAET BB F5G43270
TSX SCMI,4 F5G43280
TXI BEGBB,2,4 F5G43290
REM THIS ROUTINE ELIMINATES EXTRA SXD AND LXD INXT AROUND F5G43300
REM SUBROUTINE CALL SEQUENCES F5G43310
CI7A CAL INST-1,2 IS THIS AN SXD INST F5G43320
ANA LFTMSK F5G43330
SLW TMP10 F5G43340
CLA TMP10 F5G43350
SUB LSXD F5G43360
TNZ CI7C F5G43370
CAL INST-3,2 YES, DOES IT HAVE TAG 4 F5G43380
ANA ADDMK F5G43390
SUB L4 F5G43400
TNZ CI7C F5G43410
CLA CIND YES, IS IR4 NECESSARY F5G43420
TPL DLSXD F5G43430
CAL INST-5,2 YES, IS THE NEXT INST A TSX F5G43440
ANA LFTMSK F5G43450
SLW TMP10 F5G43460
CLA TMP10 F5G43470
SUB LTSX F5G43480
TNZ CI7C F5G43490
CLA INST,2 F5G43500
TSX SK,4 YES, COMPILE AN SXD INSTR , TAG 4, TO F5G43510
CLA LSXD SPECIAL TEMP. STORAGE LOC. F5G43520
TSX SK,4 F5G43530
CLA GSYM F5G43540
TSX SK,4 F5G43550
CLA T4SYM F5G43560
TSX SK,4 F5G43570
CMTSX CLA INST-4,2 COMPILE THE TSX INST F5G43580
CMTS1 TSX SK,4 F5G43590
CLA INST-5,2 F5G43600
TSX SK,4 F5G43610
CLA INST-6,2 F5G43620
TSX SK,4 F5G43630
CLA INST-7,2 F5G43640
TSX SK,4 F5G43650
CI7B TXI FNDAS,2,8 LOOK AT NEXT INST LXF F5G43660
DLSXD CLA INST,2 F5G43670
TSX SK,4 IR4 NOT NECESS. COMPILE BSS 0. F5G43680
CLA LBSS F5G43690
TSX SK,4 F5G43700
CLA ZERO F5G43710
TSX SK,4 F5G43720
CLA ZERO F5G43730
TSX SK,4 F5G43740
TRA CMTSX F5G43750
CI7C CAL INST-1,2 IS THIS AN LXD F5G43770
ANA LFTMSK F5G43780
SLW TMP10 F5G43790
CLA TMP10 F5G43800
SUB LLXD F5G43810
TNZ CI7 NO, GO TO COMPILE THE INST F5G43820
CAL INST-3,2 YES, IS THE TAG 4 F5G43830
ANA ADDMK F5G43840
SUB L4 F5G43850
TNZ CI7 NO, G0 TO C0MPILE THE INST. F5G43860
CLA CIND YES. IS IR4 NECESSARY. F5G43870
TPL CI7E NO, GO TO REPRESS LATER COMPILING OF INST F5G43880
MSE 97 CHECK FOR LXP WHICH WAS LXD-D. F5G43881
TRA CI7C1 NO,SUCH. F5G43882
SSP THERE WAS, SUPPRESS LATER COMPILING F5G43883
TRA CI7E OF INST. F5G43884
CI7C1 CAL INST-5,2 IS FOLLOWING INSTR AN SXD. F5G43885
ANA LFTMSK F5G43900
SLW TMP10 F5G43910
CLA TMP10 F5G43920
SUB LSXD F5G43930
TNZ CI7D F5G43940
CAL INST-7,2 YES, IS THE TAG A 4 F5G43950
ANA ADDMK F5G43960
SUB L4 F5G43970
TNZ CI7D F5G43980
CLA INST-4,2 IS SXD FIRST INSTR F5G43990
SUB NXTLOC OF NEXT BB. F5G44000
TZE CI7D YES, COMPILE LX. F5G44010
TXI FNDAS,2,8 NO--DELETE LX, SX. F5G44020
CI7D CLA ZERO CLMPILE THE LXO WITH GARBAGE F5G44030
TSX SK,4 SYMBOLADDEAA AND TAG 4 F5G44040
CLA LLXD F5G44050
TSX SK,4 F5G44060
CLA GSYM F5G44070
TSX SK,4 F5G44080
CLA T4SYM F5G44090
TSX SK,4 F5G44100
CI7E STO CPIND SURPRESS LATER C0MPILING INST SET + F5G44110
TRA CKLOC F5G44120
CI3A CLA INST-3,2 IS THE S-TAG EQUAL TO 4 F5G44130
SLW CPIND RECORD INST. NOT TO BE COMPILED F5G44140
ANA ADDMK F5G44150
SUB L4 F5G44160
TNZ CI6 F5G44170
PXD 0,0 YES, RECORD IR4 NOT NECESSARY F5G44180
STO CIND F5G44190
TRA CI6 SINCE LXP OR DED, SKIP COMPILING INST. F5G44200
REM THIS R0UTINE READS ANOTHER BLOCK OF COMPILED INST INTO CS F5G44210
REM AND SHIFTS THE EXTRA INST TO THE BEGINNING OF BLOCK F5G44220
RDINS SXD OUTBX,4 SAVE RETURN INDEX F5G44230
CLA L4 SET ERRBX FOR 5 TRIES F5G44240
STO ERRBX F5G44250
SXD BBOX,1 SAVE INDEX 1 F5G44260
LXD LD12,4 SHIFT EXTRA INST FROM END F5G44270
D1CLA CLA NDINS,4 OF BLOCK TO BEGINNING F5G44280
STO INST,4 F5G44290
TIX D1CLA,4,1 IS BLOCK SHIFTED F5G44300
D1RDS RTB INSTTP SELECT INST TAPE F5G44310
LXA RECSC,1 YES, SET INDEX FOR NO. OF RECORDS F5G44320
D1CPY CPY INST-12,4 COPY BLOCK OF INST F5G44330
TXI D1CPY,4,1 SET FOR NEXT WORD F5G44340
TRA D2END END OF FILE F5G44350
TNX D1BCK,1,1 END OF RECORD IS IT END OF LAST RECORD F5G44360
RTB INSTTP NO, READ NEXT RECORD F5G44370
TRA D1CPY F5G44380
D1BCK IOD TEST FOR TAPE ERROR F5G44390
RTT F5G44400
TRA INERR ERROR F5G44410
TXH D1XX,4,ZINST-1 IF 3RD FULL REC. NOT END OF FILE F5G44420
D2END PXD 0,4 REACHED END OF INSTR F5G44430
ADD LD8 PUT TEST FOR LAST INST F5G44440
STD FNDAS INTO MAIN ROUTINE F5G44450
CLA LCOUT PUT ADDR OF FINAL EXIT INTO MAIN F5G44460
STO FNDAS+1 ROUTINE F5G44470
CLA ENDMK F5G44480
STO INST-12,4 F5G44490
D1XX LXD OUTBX,4 NO ERROR, RESTORE INDEX REGISTERS F5G44500
LXD BBOX,1 F5G44510
TRA 1,4 RETURN TO MAIN ROUTINE F5G44520
INERR CLA ERRBX ERROR IN READING IS THIS 1ST TRY F5G44530
TZE HTRD2 TO READ IN F5G44540
SUB ONEA YES, STORE INDICATION AND TRY AGAIN F5G44550
STO ERRBX F5G44560
D2BST BST INSTTP BACKSPACE OVER RECORDS JUST READ F5G44570
TXI D2TIX,1,1 F5G44580
D2TIX TNX D2BST,1,RECNO F5G44590
TRA D1RDS TAPE BACKSPACED TRY AGAIN F5G44600
HTRD2 TSX 4,4 ERROR ON 5TH TRY DIAGNOSTIC F5G44610
PASS2 LXD LD12,2 F5G44620
REW OTAPE F5G44630
1TXI TXI 1TXI+1,2,ZINST+1 F5G44640
REM INITIALIZE FOR START OF BB F5G44650
BEGBB SXD BBOX1,2 STORE INDEX OF POSITION ON ONST TABOE F5G44660
CLA ONED F5G44670
ADD BBNO F5G44680
STO BBNO F5G44690
ARS 18 WAS THIS THE LAST BB F5G44700
SUB KEYS F5G44710
ADD ONEA F5G44720
TZE LSTBB YES, GL GO WRITE PARTIAL BLOLK F5G44730
CLA SXST NO F5G44740
TMI BEGBBY F5G44750
CLA ADDMK F5G44760
STO SXST F5G44770
BEGBBY CLA BBNO F5G44780
TSX SE,4 F5G44790
CAL BBB+2,1 GET ENTRANCE REQUIREMENT F5G44800
ARS 18 FOR IR4 F5G44810
SUB STMSK STORE + OR - IF IR4 F5G44820
STO CIND ISNT OR IS NECESSARY F5G44830
CLA ONEA RECORD THERE ISNT HANGING TRA 0 F5G44840
STO SLV3 F5G44850
CAL BBNO FIND THE 1ST INST IN NEXT F5G44860
ADD ONED F5G44870
TSX SE,4 BB F5G44880
CLA BBB+5,1 F5G44890
STO NXTLOC F5G44900
REM DETERMINE WHICH LXD CASES EXIST , RESULT IN Z1V5 F5G44910
Z1 LDQ ZERO INITIALIZE THE EXISTENCE F5G44920
STQ Z1V5 INDICATOR WORD F5G44930
CLA BBB,1 GET AND STORE NO. OF 1ST PRED IN F5G44940
STA Z1V2 NEXT BB F5G44950
CAL BBNO F5G44960
TSX SE,4 F5G44970
CAL BBB,1 STORE THE NO OF F5G44980
STA Z1V3 1ST PRED IN F5G44990
STA Z1V8 THIS BB F5G45000
CLA Z1V3 F5G45010
Z15 CAS Z1V2 IS THIS PRED IN SAME BB F5G45020
TRA Z12 YES F5G45030
TRA Z2 NO F5G45040
Z12 TSX SE5,4 F5G45050
CLA PRED,1 DETERMINE THE F5G45060
ANA LT7 LXD CASE F5G45070
ALS 3 F5G45080
PDX 0,4 F5G45090
CAL Z1K3 STORE BIT AS INDICATOR F5G45100
ARS 7,4 FOR THIS F5G45110
ORS Z1V5 LXD CASE F5G45120
CLA Z1V3 F5G45130
ADD ONEA ARRANGE TO DEAL WITH NEXT F5G45140
STA Z1V3 PRED F5G45150
TRA Z15 F5G45160
REM THIS OPEN S. R. FORMS THE LXD LISTS FROM TNE INFO LEFT IN F5G45170
REM Z1V5 BY Z1 F5G45180
Z2 LDQ ZERO F5G45190
LXA Z2K2,1 F5G45200
Z21 STQ LLIND,1 SET THE 3 INDEXDS TO THE SUB F5G45210
CLA Z2K1+3,1 BOTTOM POSITIONS F5G45220
SUB ONED IN THE 3 LISTS AND ALL F5G45230
STO Z2V1+3,1 INDICATORS TO SAY COMPILED F5G45240
TIX Z21,1,1 F5G45250
LXD LD12,1 F5G45260
CLA MZE PLACE -0 S IN THE F5G45270
Z28 STO LIST1+12,1 LXD LISTS F5G45280
TIX Z28,1,1 F5G45290
LXD Z2K2,1 SET TO BEGINNING OF CASE LIST F5G45300
Z25 LDQ Z1V5 DID F5G45310
CLA CASE+7,1 THIS F5G45320
PAX 0,2 CASE F5G45330
RQL 7,2 OCCURR F5G45340
TQP Z26 F5G45350
CLA Z2K5 YES, SET NO OF ONES IN F5G45360
STO Z2V2 DIFFERENCE TO HIGH NUMBER F5G45370
LXA Z2K2,2 INITIALIZE TO 1ST LIST F5G45380
Z23 LDQ ZERO IS P004 F5G45390
CLA Z2V1+3,2 F5G45400
R004 PDX 0,4 QUANTITY IN THE LIST F5G45410
CLA LIST1,4 IS THE TOP F5G45420
ANA CASE+7,1 YES, DETERMINE F5G45430
SBM LIST1,4 CONTAINED IN THIS F5G45440
TNZ Z27 CASE F5G45450
CLA CASE+7,1 YES, DETERMINE F5G45460
SUB LIST1,4 THE NO. F5G45470
LRS 21 OF ONES F5G45480
MPY Z2K4 IN THE F5G45490
STA Z22 LOGICAL F5G45500
CLA Z2K3 DIFFERENCE F5G45510
Z22 ARS SET F5G45520
ANA Z2K5 F5G45530
CAS Z2V2 IS THE NUMBER OF ONES IN THE F5G45540
TRA Z27 DIFFERENCE LESS THAN OR EQUAL TO F5G45550
TRA Z27 THE PREVIOUS MINIMUM. NO F5G45560
STO Z2V2 YES, STORE NEW MIN F5G45570
SXD Z2V3,2 STORE INDEX OF LIST OF GIVING NEW MIN F5G45580
Z27 TIX Z23,2,1 COUNT TO 3 LISTS ARE WE THRU F5G45590
LXD Z2V3,2 UES, GET INDEX OF LIST WITH MIN DIFF F5G45600
CLA Z2V1+3,2 STIRE F5G45610
PDX 0,4 THIS F5G45620
CLA CASE+7,1 CASE AT TOP OF F5G45630
Z24 TXI Z24+1,4,1 THAT LIST F5G45640
STO LIST1,4 F5G45650
PXD 0,4 STORE INDEX OF TOP F5G45660
STO Z2V1+3,2 POSITI0N IN THAT LIST F5G45670
CLA MZE STORE INDICATION THAT THE F5G45680
STO LLIND,2 LIST IS TO BE COMPILED F5G45690
Z26 TIX Z25,1,1 COUNT THE 7 CASES F5G45700
REM EXPAND TNE LXD LISTS F5G45710
Z3 CLA Z2K5 IS THE F5G45720
SBM LIST1+2 BOTTOM ENTRY OF F5G45730
TZE Z307 LIST1 A CASE 7 F5G45740
CLA LIST1+2 NO, DO THE BOTTOMS F5G45750
ANA LIST2+2 OF LISTS 1 AND 2 HAVE F5G45760
TZE Z35 A NON ZERO INTERSECTION F5G45770
CAS LIST1+2 YES, DOES INTERSECTION EQUAL 1 F5G45780
TRA Z31 F5G45790
TRA Z33 YES F5G45800
Z31 CAS LIST2+2 IS IT EQUAL TO BOTTOM OF 2 F5G45810
TRA Z32 F5G45820
TRA Z34 YES F5G45830
Z32 STO LIST1+3 STORE INTERSECTION IN SUB1 F5G45840
SSM POSITITON AND -(INTER.) IN F5G45850
STO LIST2+3 SUB2 POS. F5G45860
TRA Z306 F5G45870
Z38 SSM ENTER -INTER1 AND 3 F5G45880
STO LIST3+3 IN SUB3 POS. F5G45890
TRA Z306 F5G45900
Z39 SSM ENTER - INTER 1 AND 3 F5G45910
STO LIST1+3 INSUV1 POS. F5G45920
TRA Z306 F5G45930
Z300 CLA LIST2+2 DO BOTTOM ENTRIES F5G45940
ANA LIST3+2 OF 2 AND 3 HAVE F5G45950
TZE Z306 NONZERO INTERSECTION F5G45960
CAS LIST2+2 YES, IS INTRE 2 AND 3 F5G45970
TRA Z301 F5G45980
TRA Z303 YES F5G45990
Z301 CAS LIST3+2 IS INTERSECTION EQUAL TO BOTTOM OF LIST 3 F5G46000
TRA Z302 F5G46010
TRA Z304 YES F5G46020
Z302 STO LIST3+3 STORE INTER 2 AND 3 IN SUB 3 POS. F5G46030
SSM AND -INTER IN F5G46040
STO LIST2+3 SUB 2 POS. F5G46050
TRA Z306 F5G46060
Z303 SSM ENTER -(INTER 2 AND 3 ) F5G46070
STO LIST3+3 IN SUB 3 POS. F5G46080
TRA Z306 F5G46090
Z33 SSM ENTER -(INTER 1 AND 2 ) F5G46100
STO LIST2+3 IN SUB 2 POS. F5G46110
TRA Z306 F5G46120
Z34 SSM STORE -(INTER 1 AND 2 ) F5G46130
STO LIST1+3 IN SUB 1 POS. F5G46140
TRA Z306 F5G46150
Z35 CLA LIST1+2 DO BOTTOM ENTRIES IN F5G46160
ANA LIST3+2 1 AND 3 HAVE NONZERO F5G46170
TZE Z300 INTERSECTION F5G46180
CAS LIST1+2 YES, IS IT EQUAL TO BOT. 1 F5G46190
TRA Z36 F5G46200
TRA Z38 YES F5G46210
Z36 CAS LIST3+2 TO THE BOTTOM ENTRY IN 3 F5G46220
TRA Z37 F5G46230
TRA Z39 YES F5G46240
Z37 STO LIST3+3 ENTER 1NTLR 1 ANO 3 IN SUB F5G46250
SSM 3 POS. AND -( INTER ) IN F5G46260
STO LIST1+3 SUB1 POS. F5G46270
TRA Z306 F5G46280
Z307 SXD Z2V1,0 CREATE THE LIST F5G46290
CLA L7 F5G46300
STO LIST1 F5G46310
CLA L3 F5G46320
STO LIST1+1 F5G46330
CLA ONEA F5G46340
STO LIST1+2 F5G46350
TRA Z4 F5G46360
Z304 SSM ENTER - INTER 2 AND 3 F5G46370
Z305 STO LIST2+3 INSUB2 POS. F5G46380
Z306 LXD LD3,2 SET COUNT TO 3 F5G46390
LXA ZERO,1 SET TO INSPECT 1ST L1ST F5G46400
Z309 CLA LIST1+2,1 F5G46410
TZE Z308 IS THE BOTTOM ENTRY ZERO F5G46420
SUB ONEA NO F5G46430
ANA LIST1+2,1 DOES IT HAVE TWO ONES F5G46440
TZE Z308 F5G46450
STO TMP10 YES F5G46460
CLA LIST1+3,1 IS THE SUB BOTTOM F5G46470
TNZ Z308 ENTRY ZERO F5G46480
CLA TMP10 YES F5G46490
STO LIST1+3,1 F5G46500
Z308 TXI Z308+1,1,-4 PRERARE FOR NLXT LIST F5G46510
TIX Z309,2,1 COUNT TO 3 F5G46520
CLA Z2K5 F5G46530
SBM LIST1+1 F5G46540
TNZ Z4 F5G46550
CLA LIST1+2 F5G46560
SUB ONEA F5G46570
ANA LIST1+2 F5G46580
TNZ Z4 F5G46590
CLA LIST1+2 F5G46600
STO LIST1+3 F5G46610
CLA Z2K5 F5G46620
SUB LIST1+2 F5G46630
STO LIST1+2 F5G46640
SUB ONEA F5G46650
ANS LIST1+2 F5G46660
CAL LIST1+3 F5G46670
ORS LIST1+2 F5G46680
REM DETECT AND COMPILE ANY SEQUENTIAL TRANSFER F5G46690
Z4 LDQ MZE PUT MINUS ZEROS IN F5G46700
STQ SXAS THE ASSOXIATED F5G46710
LXA L19,4 SXDPOSITIONS F5G46720
Z411 STQ SXST+20,4 F5G46730
TIX Z411,4,1 F5G46740
CLA SXST F5G46750
TMI Z5 IS THERE A SEQUENTIAL TRANSFER F5G46760
CAL BBNO YES F5G46770
ARS 18 F5G46780
SUB ONEA F5G46790
STO TMP10 PUT NO OF PREV. BB IN TMP10 F5G46800
CLA Z1V8 INITIALIZE 1ST PRED NO THIS BB F5G46810
Z49 STO Z1V3 F5G46820
TSX SE5,4 F5G46830
CAL PRED,1 F5G46840
ANA ADDMK IS THIS THE SEQUENTIAL F5G46850
SUB TMP10 TRANSFERS PREO ENTRY F5G46860
TZE Z410 F5G46870
CAL Z1V3 NO, TRY NEXT ONE F5G46880
ADD ONEA F5G46890
TRA Z49 F5G46900
Z410 CLA Z1V3 GET THE PRED NO F5G46910
TSX SH,4 FORM THE SXD CASE F5G46920
CLA SXD1 F5G46930
ADD SXD2 F5G46940
ADD SXD3 F5G46950
TZE Z44 IS THIS A 0 SXD CASE F5G46960
LXA L4,4 ISNT 0 SXD CASL F5G46970
Z41 CLA SXD1+3,4 RECORD SXD CASE F5G46980
STO SXST+4,4 IN POSITION ASSOCIATED F5G46990
TIX Z41,4,1 WITH SEQUENTIAL TRANSFER F5G47000
LXA ZERO,1 COMPILE THE SXD F5G47010
TSX SI,4 INST. WITH F5G47020
TRA Z47 (1) ASSOCIATED SXD WITH 0 LXD CASE F5G47030
Z42 TSX SM,4 (2)ASSOCIATED WITH AN LXD LIST F5G47040
TRA Z47 (3) NOT ASSOCIATED ( TRA COMPILED ) F5G47050
Z44 LXD SXD0,4 F5G47060
TXL Z46,4,0 DOES IT HAVE A 0 LXD CASE F5G47070
PXD 0,4 NO F5G47080
ARS 18 LXD CASE TO AC (ADDR) F5G47090
STO Z4V1 F5G47100
LXD LD3,2 SET COUNT TO 3 , N=1 F5G47110
Z45 CLA Z2V1+3,2 GET INDEX F5G47120
PDX 0,1 OF TOP QUANTITY IN LIST N F5G47130
CLA LIST1,1 IS THE LXD CASE OF THIS SXD F5G47140
SUB Z4V1 CASE THE SAME AS F5G47150
TZE Z42 THE TOP QUANTITY IN LIST N F5G47160
TIX Z45,2,1 NO, COUNT TO 3 F5G47170
CLA Z4V1 COMPILE A F5G47180
TSX SL,4 TRA (LXD ) F5G47190
TRA Z47 F5G47200
Z46 CLS ONEA RECORD THAT THERE F5G47210
Z48 STO SLV3 IS A HANGING TRA 0CASE F5G47220
Z47 SYN Z48+1 F5G47230
REM FORM THE SXD LIST AND THE SYN CARD LIST F5G47240
Z5 CLA ONED SET INDEX IN SYN TABLE F5G47250
STO Z5V1 F5G47260
CLA Z1V8 RESET 1 ST PRED IN BB F5G47270
Z53 STO Z1V3 F5G47280
SUB Z1V2 IS THIS PRED IN SAME BB F5G47290
TZE Z6 NO, ADD FINISHED F5G47300
CLA SXST YES F5G47310
TMI Z51 WAS THERE A SEQUENTIAL TRANSFER F5G47320
ANA ADDMK YES, EXTRACT ADDRESS F5G47330
SUB Z1V3 HAS PRED ALREDY BEEN CONSIDERED F5G47340
TZE Z55 AS A SEQUENTIAL TRANSFER F5G47350
Z51 CLA Z1V3 NO F5G47360
TSX SH,4 GENERATE SXD CASE F5G47370
CLA SXD1 IS THE F5G47380
ADD SXD2 SXD CASE F5G47390
ADD SXD3 ZERO F5G47400
TZE Z55 F5G47410
LXA ZERO,1 NO, PREPARE TO SCAN SXD LIST F5G47420
Z503 CLA SXST,1 IS SUBSXD0 F5G47430
ANA DECMK F5G47440
STO TMP10 F5G47450
CLA SXD0 F5G47460
ANA DECMK F5G47470
SUB TMP10 F5G47480
TNZ Z54 F5G47490
CLA SXST+1,1 THIS SXD CASE F5G47500
SUB SXD1 F5G47510
TNZ Z54 F5G47520
CLA SXST+2,1 SAME AS F5G47530
SUB SXD2 F5G47540
TNZ Z54 F5G47550
CLA SXST+3,1 THE ONE ALREADY F5G47560
SUB SXD3 STORED F5G47570
TNZ Z54 F5G47580
CLA SXST,1 YES, STORE INDICATION F5G47590
LXD Z5V1,2 F5G47600
ANA ADDMK SYN,2 CARD F5G47610
STO SYN,2 IN THE F5G47620
CLA SXD0 SYN F5G47630
ALS 18 LIST F5G47640
STD SYN,2 F5G47650
Z52 TXI Z52+1,2,1 F5G47660
SXD Z5V1,2 F5G47670
Z55 CLA Z1V3 PREPARE TO DEAL WITH NEXT PRED F5G47680
ADD ONEA F5G47690
TRA Z53 F5G47700
Z54 CLA SXST,1 F5G47710
TPL Z502 IS THIS SXD POS. EMPTY F5G47720
LXD LD3,2 YES F5G47730
TXL Z502,1,0 IS THIS ST CASE F5G47740
TXH Z504,1,-4-1 NO, IS THIS 0 LIST CASE F5G47750
TXH Z507,1,-8-1 NO 1ST F5G47760
TXH Z506,1,-12-1 2ED F5G47770
TXH Z505,1,-16-1 3RD F5G47780
TSX Z500,4 ENTER THE SXD CASE IN THE LIST F5G47790
CLA MZE F5G47800
STO SXST+4,1 STORE ENO MARK FOR SYN CAEDS F5G47810
TRA Z55 F5G47820
Z502 TXI Z503,1,-4 EXAMINE NEXT SXD CASE F5G47830
Z504 CAL SXD0 ZERO LIST CASE F5G47840
ANA DECMK IS THE LXD CASE 0 F5G47850
TNZ Z502 F5G47860
TSX Z500,4 YES, ENTER SXD CASE IN F5G47870
TRA Z55 ASSOCIATED POSITION F5G47880
Z505 TIX Z505+1,2,1 GENERATE INDEX OF LIST F5G47890
Z506 TIX Z506+1,2,1 F5G47900
Z507 CAL Z2V1+3,2 IS F5G47910
PDX 0,4 THE F5G47920
CLA SXD0 LXD F5G47930
ARS 18 CASE THE F5G47940
SUB LIST1,4 SAME F5G47950
TNZ Z502 F5G47960
TSX Z500,4 YES F5G47970
TRA Z55 F5G47980
REM SUBROUTINE FOR ENTERING SXD CASE IN SXD LIST F5G47990
Z500 CLA SXD0 F5G48000
STO SXST,1 F5G48010
CLA SXD1 F5G48020
STO SXST+1,1 F5G48030
CLA SXD2 F5G48040
STO SXST+2,1 F5G48050
CLA SXD3 F5G48060
STO SXST+3,1 F5G48070
TRA 1,4 F5G48080
REM COMPILE THE SXD LIST F5G48090
Z6 LXA LM20,1 SET TO START OF SXD LIST F5G48100
Z61 CLA SXST,1 F5G48110
TMI Z7 IS THIS SXD POSITION EMPTY F5G48120
SXD Z6V1,1 NO F5G48130
TSX SI,4 COMPILE THE SXD CASE WITH F5G48140
NOP (1) 0 LXD CASE, OR F5G48150
Z6V1 TXH 0,0,SET (2) THIS RETURN CANT OCCURR F5G48160
LXD Z6V1,1 (3) TRA ALREADY CONPILED F5G48170
TXI Z61,1,-4 F5G48180
REM COMPILE TNE LXD LISTS AND ASSOCIATED SXD S F5G48190
Z7 LXD LD3,2 SET TO BEGIN SCAN OF LISTS F5G48200
Z72 CLA Z2K1+3,2 F5G48210
PDX 0,1 PUT INDEX OF BOTTOM POSITION IN 1 F5G48220
CLA LIST1,1 F5G48230
TMI Z75 YES, IS IT A TRA(0) CASE F5G48240
TZE Z73 IS THE L1ST FILLED F5G48250
CLA LIST1+1,1 PERHAPS, IS IT A FOR SURE F5G48260
TZE Z75 IT IS IF EITHER THE SUB BOTTOM F5G48270
TPL Z75 ENTRY IS -0 OR POS1TIVE F5G48280
CLA Z7V2 F5G48290
TMI Z73 IS THIS 1ST TIME THRU F5G48300
Z76 CLA Z7K1+3,2 YES F5G48310
PDX 0,1 IS THERE ASSOCIATED F5G48320
CLA SXST,1 SXDLIST F5G48330
SXD Z7V1,2 F5G48340
TMI Z74 F5G48350
TSX SI,4 YES, COMPILE SXD CASE F5G48360
TRA Z71 F5G48370
TRA Z77 COMPILE F5G48380
Z71 LXD Z7V1,2 F5G48390
Z73 TIX Z72,2,1 COUNT TO 3 F5G48400
CLS Z7V2 IS THIS 1ST TIME THRU F5G48410
STO Z7V2 F5G48420
TMI Z7 YES, GO BACK CLASXST F5G48430
CLA SXAS0 IS THERE A 0 ASSOCIATED SXD CASE F5G48440
TMI Z8 F5G48450
LXA LM4,1 YES F5G48460
TSX SI,4 COMPILE SXD CASE F5G48470
TRA Z8 F5G48480
TRA Z8 F5G48490
TRA Z8 F5G48500
Z77 LXD Z7V1,2 F5G48510
CLA Z4V1,2 F5G48520
TMI Z74 F5G48530
CLA Z7K1+3,2 F5G48540
PDX 0,1 F5G48550
CLA SXST,1 F5G48560
ARS 18 F5G48570
TSX SL,4 F5G48580
TRA Z71 F5G48590
Z74 CLA Z2V1+3,2 COMPILE THE LXD LIST F5G48600
PDX 0,1 F5G48610
TSX SM,4 F5G48620
TRA Z71 F5G48630
Z75 CLA Z7V2 IS THIS 1ST TIME THRU F5G48640
TMI Z76 NO, 2ED TIME F5G48650
TRA Z73 YES F5G48660
REM COMPILE ANY SYN CARDS F5G48670
Z8 CAL BBNO FORM F5G48680
ARS 18 AND F5G48690
STO TMP10 STORE F5G48700
TSX SE1,4 F5G48710
CAL BBB,1 -(IDSXD)-(BBNO)+(1ST PRED)*2**25 F5G48720
ANA ADDMK F5G48730
ALS 10 F5G48740
SUB TMP10 F5G48750
SUB IDSXD F5G48760
STO TMP10 F5G48770
LXD Z5V1,2 SET TO START OF SYN LIST F5G48780
Z81 TXL Z83,2,1 ARE WE THRU F5G48790
Z82 TIX Z82+1,2,1 DECREASE INDEX F5G48800
CAL SYN,2 F5G48810
ANA DECMK COMPILE THE SYN CARD F5G48820
ARS 8 F5G48830
SUB TMP10 F5G48840
TSX SK,4 F5G48850
CLA LSYN F5G48860
TSX SK,4 F5G48870
CAL SYN,2 F5G48880
ANA ADDMK F5G48890
ALS 10 F5G48900
SUB TMP10 F5G48910
TSX SK,4 F5G48920
CLA ZERO F5G48930
TSX SK,4 F5G48940
TRA Z81 F5G48950
Z83 LXD BBOX1,2 GET INDEX OF COMPILED INDT F5G48960
CLA MZE RECORD NO SEQUENTIAL TRANSFER F5G48970
STO SXST F5G48980
TRA FNDAS F5G48990
REM WRITE TH E LAST BLOCK OF C.I. T. ON TAPE F5G49000
REM AFTER PUTTING RELATIVE CONSTANT ROUT1NES AT END F5G49010
LSTBB RTB INSTTP AN END OF F5G49020
CPY TMP10 FILE SEPARATES RELATIVE CONST. ROUTINES F5G49030
TRA EF3 END FILE ALREADY READ F5G49040
TRA LSTBB READ END FILE F5G49050
TSX 4,4 DIAGNOSTIC, ERROR F5G49060
EF3 LXD LD4,4 TRY 4 TIMES F5G49070
EFRTB LXA ADDMK,3 READ IN NEXT RECORD F5G49080
RTB INSTTP OF RELATIVE CONSTANT SUBROUTINES F5G49090
EFCPY CPY RELSR,1 F5G49100
TXI EFCPY,1,-1 F5G49110
TRA EFREW END OF FILE , END OF INST. F5G49120
IOD F5G49130
RTT F5G49140
TRA EFERR F5G49150
SXD EFTXL,1 STORE END TEST F5G49160
EFTXL TXL EFRTB,2,SET COMPILE THE INSTRUCTIONS F5G49170
CLA RELSR,2 F5G49180
TSX SK,4 F5G49190
TXI EFTXL,2,-1 F5G49200
EFREW REW INSTTP REWIND THE TAPE F5G49210
LXA SKK1,1 SET 1 TO LENGTH OF CS BLOCK F5G49220
LXD SKV1,4 INDEX OF NEXTCLST POSITION F5G49230
SXD LSTXL,4 F5G49240
TXH LSWEF,4,LCLST-1 IS BLOCK EMRTY F5G49250
WTB OTAPE NO, WRITE F5G49260
LSTXL TXL LSWEF,1,- IT ON TAPE F5G49270
CPY CLST,1 F5G49280
TXI LSTXL,1,-1 F5G49290
LSWEF WEF OTAPE WRITE AN END FILE F5G49300
TRA R F5G49310
EFERR BST INSTTP F5G49320
TIX EFRTB,4,1 F5G49330
TSX 4,4 4TH ERROR, TO DIAGNOSTIC F5G49340
BSS PTL4 SPACE FOR PATCHES F5G49350
RELSR START OF REL. CONST. ROUTINES F5G49360
ORG 0 F5G49370
HTR R,0,4 CONTROL CARD PART 1. F5G49371
HTR CMTAG-1 F5G49372
ORG 0 F5G49373
HTR PRED,0,PRED CONTROL CARD PART 1B. F5G49374
HTR I9A+2 F5G49375
ORG 0 F5G49376
HTR QS,0,QS CONTROL CARD, PART 1C. F5G49377
HTR QS8+1 F5G49378
ORG 0 F5G49379
HTR QPU,0,QPU CONTROL CARD, PART 1D. F5G49380
HTR QPU8+1 F5G49381
ORG 0 F5G49382
HTR QSU,0,QSU CONTROL CARD, PART 1E. F5G49383
HTR QSU8+1 F5G49384
ORG 0 F5G49385
HTR BLV09,0,BL12 CONTROL CARD, PART 2. F5G49386
HTR BLIST F5G49387
ORG 0 F5G49388
HTR START,0,START CONTROL CARD, PART 3. F5G49389
HTR ASCON F5G49390
ORG 0 F5G49391
HTR L3,0,PASS2 CONTROL CARD, PART 4. F5G49392
HTR RELSR F5G49393
END PASS2 F5G49394
REM APPLIED PROGRAMMING/ FORTRAN. 704 = EST.NO. 8081, JOB NO. 1.
REM
REM
REM THE FOLLOWING CONVENTIONS ARE USED IN TH1S LISTING=
REM
REM
REM ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION
REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.
REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF
REM THIS L0GICAL BLOCK OR SUBROUTINE.
REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.
REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).
REM
REM
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM
REM 704 FORTRAN 2 / SECTION 5PRIME / A. S. NOBLE, JR. / 12 FEB 58
REM
REM
REM 5PRIME COMPILES ASSIGN CONSTANTS, FIXED POINT CONSTANTS
REM FLOATING POINT CONSTANTS, REGION SIX CONSTANTS AND FORMAT
REM STATEMENTS. THE FOLLOWING TABLES ARE PUT ON DRUMS FOR USE IN
REM THE ASSEMBLY PROGRAM ... SIZ, TEIFNO, EQUIT, CLOSUB, FORSUB.
ORG 24
REM SETCIT/ CALLS=OIAG.
REM SET UP CIT BUFFER, COUNTER, ANO TARE FOR COMPILING.
5PRIME BST CITTAP BACKSPACE CIT TAPE OVER EOF MARK
BST CITTAP AND LAST RECOR0.
LXA TERC,2 SET TAPE ERROR COUNTER FOR 5 TRYS.
RTB CITTAP SELECT CIT TAPE FOR READING.
LXA L(0),1 COPY LAST
CPYCIT CPY CIB,1 CIT RECORD
TXI CPYCIT,1,-1 INTO CIT BUFFER.
TSX DIAG,4 * EOF ERROR - GO TO DIAGNOSTIC.
BST CITTAP REPOSITION CIT TAPE, AND
RTT IF TAPE RECORD
TXI RTTON1,0 WAS READ CORRECTLY,
SXD BBOX,1 SAVE CIT COUNTER,
BBOX TXI 5P1ASC,0,** * AND GO READ ASSIGN CONSTANTS.
RTTON1 TIX CPYCIT-2,2,1 OTHERWISE, GO REREAD RECORD UNLESS
TSX DIAG,4 * 5 ATTEMPTS FAILE0 - GO TO DIAG.
REM END OF PROGRAM SETCIT.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5P1ASC/ CALLS=5PS1R,5PS2C.
REM READ IN AND COMPILE ASSIGN CONSTANTS.
5P1ASC BST TABTAP POSITION TABLE TAPE, AND
TSX 5PS1R,4 * GO READ ASSIGN CONSTANTS.
TXL SETOP,1,0 IF NO ENTRIES, GO SET OP TO OCT.
TSX 5PS2C,4 * GO COMPILE ASSIGN CONSTANTS.
SETOP CLA OCTLOP SET WORD2 OF COMPILED INSTRUCTION
STO WORD2 TO (OCT000) BCD FOR FUTURE USE.
REM END OF PROGRAM 5P1ASC.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5P2FXC/ CALLS=5PS1R,5PS2C.
REM READ IN AND COMPILE FIXCON.
5P2FXC LXA L(3),2 POSITION
BST TABTAP TABLE TAPE
TIX 5P2FXC+1,2,1 TO FIXCON.
TSX 5PS1R,4 * GO READ FIXCON INTO BUFFER.
TXL 5P3F3D,1,0 * IF NO ENTRIES, GO READ IN FORSUB.
CLA FIXSYM SET WORD1 OF COMPILED
STO WORD1 INSTRUCTION TO (200000) BCD.
TSX 5PS2C,4 * GO COMPILE FIXCON ENTRIES.
REM END OF PROGRAM 5P2FXC.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5P3F3D/ CALLS=5PS1R,5PS3D.
REM TRANSFER FORSUB TABLE FROM TAPE 2 TO DRUM 3.
5P3F3D LXA L(5),2 POSITION
BST TABTAP TABLE TAPE
TIX 5P3F3D+1,2,1 TO DO TAG B
RTB TABTAP RECORD COUNT
CPY 5PERAS AND ADD 23
LXD 5PERAS,1 TO THIS TO
TXI BKSPC,1,23 POSITION
BKSPC BST TABTAP TABLE TAPE
TIX BKSPC,1,1 TO FORSUB.
TSX 5PS1R,4 * GO READ FORSUB INTO BUFFER.
STZ WRDCNT IF THERE WERE
TXL EMPTY1,1,0 ENTRIES MADE IN
L(SIX) PXD SIX,1 FORSUB TABLE
COM COMPUTE THE
ADM DECR1 WORD COUNT
STD WRDCNT AND THEN
TSX 5PS3D1,4 * GO WRITE FORSUB ONTO DRUM3.
TXI 5P4FLC,0 * WHEN DONE, GO READ IN FLOCON.
EMPTY1 TSX 5PS3D3,4 * IF FORSUB IS EMPTY, RECORD WRD CNT.
REM END OF PROGRAM 5P3F3D.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5P4FLC/ CALLS=5PS1R,5PS2C.
REM READ IN AND COMPILE FLOCON.
5P4FLC RTB TABTAP FIND
CPY 5PERAS NEXT
TXI 5P4FLC+1,0 END OF FILE
TXI EOFILE,0 ON TABLE TAPE
MINUS5 TXI 5P4FLC,0,-5 TO LOCATE FLOCON.
EOFILE IOD WHEN DONE,
RTT MAKE SURE TAPE CHECK
NOP LIGHT IS TURNED OFF, AND
TSX 5PS1R,4 * GO READ FLOCON INTO BUFFER.
TXL 5P5R6C,1,0 * IF NO ENTRIES, GO COMPILE REGION6.
CLA FLOSYM SET WORD1 OF COMPILED
STO WORD1 INSTRUCTION TO (300000) BCD.
TSX 5PS2C,4 * GO COMPILE FLOCON ENTRIES.
REM END OF PROGRAM 5P4FLC.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5P5R6C/ CALLS=5PS2C.
REM COMPILE REGION-SIX CONSTANTS.
5P5R6C CLA SIXSYM SET WORD1 OF COMPILED
STO WORD1 INSTRUCTION TO (600000) BCD.
CLA L(SIX) SET COMPILING
STA COMP SUBROUTINE (5PS2)
LXD MINUS5,1 TO PICK UP THE FIVE CONSTANTS.
TSX 5PS2C,4 * GO COMPILE REGION-SIX CONSTANTS.
REM END OF PROGRAM 5P5R6C.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5P6FTC/ CALLS=5PS1R,5PS4W.
REM READ IN AND COMPILE FORMAT TABLE.
5P6FTC CLA TXLOP SET OP SWITCH
STP OPSW1 IN READING ROUTINE (5PS1)
CLA L(10) TO TEST FOR CORRECT TABLE NUMBER.
TSX 5PS1R,4 * GO READ IN FORMAT TABLE.
TXLOP TXL 5P7CBW,1,0 * IF NO ENTRIES, GO WRITE OUT CIT.
CLA 4MATOP SET WORD2 OF COMPILED
STO WORD2 INSTRUCTION TO (BCD000) BCD.
LXA L(0),2 MOVE
COMPW1 CLA BUFFER,2 FORMAT
STO WORD1 ENTRY
TXI COMPW3,2,-1 INTO
COMPW3 CLA BUFFER,2 WORD1 AND
STO WORD3 WORD3.
TSX 5PS4W,4 * THEN GO COMPILE FORMAT TABLE.
TXI TESTF,1,2 IF NO ENTRIES REMAIN,
TESTF TXL 5P7CBW,1,0 * THEN GO WRITE OUT CIT BUFFER.
TXI COMPW1,2,-1 OTHERWISE, CONTINUE COMPILING.
REM END OF PROGRAM 5P6FTC.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5P7CBW.
REM TERMINATE COMPILING.
5P7CBW WTB CITTAP WRITE
LXD BBOX,2 THE CONTENTS
SXD TESTC,2 OF THE
LXA L(0),2 CIT BUFFER
WRCIB CPY CIB,2 ONTO
TXI TESTC,2,-1 TAPE3
TESTC TXH WRCIB,2,** FOLLOWED BY
WEF CITTAP AN END OF FILE.
REM END OF PROGRAM 5P7CBW.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5P8S2D/ CALLS=5PS1R,5PS3D.
REM TRANSFER SIZ TABLE FROM TAPE 2 TO DRUM 2.
5P8S2D CAL TXLOP SET OP SWITCH IN 5PS1R
STP OPSW2 TO COPY EIFNO, BUT SKIP TABNO TEST.
TSX 5PS1R,4 * GO READ IN SIZ TABLE + EIFNO.
CLA TABNUM MOVE EIFNO
STO EIFNO INTO PROPER LOCATION.
CLA SETDRM SET DRUM ROUTINE (5PS3D)
SUB L(1) TO WRITE ONTO DRUM2.
STO SETDRM SET DRUM ADDRESS
DRMLOC PXD 1024,0 FOR REMAINING DRUM TABLES
STA DRMLOC TO ZERO.
TXL EMPTY2,1,0 IF THERE WERE ENTRIES MADE
CLA WRDCNT IN SIZ TABLE, PICKUP WRDCNT AND,
TSX 5PS3D2,4 * GO WRITE SIZ ONTO DRUM2.
TXI 5P9T4D,0 * WHEN DONE, GO READ IN TEIFNO.
EMPTY2 TSX 5PS3D3,4 * IF SIZ IS EMPTY, GO RECORD WRD CNT.
REM END OF PROGRAM 5P8S2D.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5P9T4D/ CALLS=5PS1R,5PS3D.
REM TRANSFER TEIFNO TABLE FROM TAPE 2 TO DRUM 4.
5P9T4D LXA L(5),2 MOVE TABLE TAPE
RTB TABTAP OVER END OF FILE AND 1ST FOUR
TIX 5P9T4D+1,2,1 TABLES TO POSITION FOR TEIFNO.
CLA TXLOP SET OP SW1TCH IN 5PS1R
STP OPSW2 TO MAKE TABLE NUMBER TEST.
CLA L(0) PICKUP TEIFNO TABLE NUMBER, AND
TSX 5PS1R,4 * GO READ IN TEIFNO TABLE.
CLA TXLOP SET OP SWITCH IN 5PS3D
STP DRMSW TO WRITE EIFNO ON DRUM.
CLA SETDRM SET DRUM ROUTINE
ADD L(2) TO WRITE ONTO
STO SETDRM DRUM 4.
TXL EMPTY3,1,0 IF THERE WERE ENTRIES MAEEIN TEIFNO
TSX 5PS3D,4 * GO WRITE EIFNO AND TEIFNO ON DRUM4.
TXI 5P10ED,0 * WHEN DONE, GO READ IN EQUIT.
EMPTY3 TSX 5PS3D3,4 * IF TEIFNO IS EMPTY, RECORD WRD CNT.
REM END OF PROGRAM 5P9T4D.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5P10ED/ CALLS=5PS1R,5PS3D.
REM TRANSFER EQU1T TABLE FROM TAPE 2 TO DRUM 1.
5P10ED LXA L(7),1 MOVE TABLE TAPE
RTB TABTAP OVER 7 RECORDS
TIX 5P10ED+1,1,1 TO POSITION FOR EQUIT.
CLA L(8) PICKUP EQUIT TABLE NUMBER, AND
TSX 5PS1R,4 * GO READ IN EQUIT TABLE.
CAL TXLOP SET OP SWITCH IN 5PS3D
STP DRMSW TO SKIP WRIT1NG OF EIFNO.
CLA SETDRM SET DRUM ROUTINE
SUB L(3) TO WRITE ONTO
STO SETDRM DRUM1.
TXL EMPTY4,1,0 IF EQUIT IS EMPTY, RECORD WRDCNT.
LXD WRDCNT,4 OTHERWISE,
LXA L(0),3 COMPUTE A
EQCHS CLM LOG1CAL
CLASS ACL BUFFER,1 CHECK
LDQ BUFFER,1 SUM
STQ NEWEQ,2 FOR
TXI NXT1,1,-1 EACH
NXT1 TXI NXT2,2,-1 EQUIVALENCE
NXT2 ACL BUFFER,1 CLASS
LDQ BUFFER,1 AND
STQ NEWEQ,2 MOVE
TXI NXT3,1,-1 EACH
NXT3 TXI NXT4,2,-1 CLASS
NXT4 TXI NXT5,4,-2 FOLLOWED
NXT5 TQP CLASS BY ITS
L(NEQ) SLW NEWEQ,2 CHECK
TXI NXT6,2,-1 SUM
NXT6 TXH EQCHS,4,1 INTO NEWEQ.
PXD ,2 COMPUTE
COM THE
ADM DECR1 NEW
STD WRDCNT WORDCOUNT
ARS 18 AND
PAX ,1 THE
ADD L(NEQ) NEW
STA CADDRM MEMORY ADDRESS, AND
EMPTY4 TSX 5PS3D3,4 * GO WRITE EQUIT ON DRUM 1.
REM END OF PROGRAM 5P10ED.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5P11CD/ CALLS=5PS1R,5PS3D.
REM TRANSFER CLOSUB TABLE FROM TAPE 2 TO DRUM 3.
5P11CD CLA L(9) PICKUP CLOSUB TABLE NUMBER, AND
TSX 5PS1R,4 * GO READ IN CLOSUB TABLE.
CLA SETDRM SET DRUM ROUTINE
ADD L(2) TO WRITE ONTO
STO SETDRM DRUM3.
TXL EMPTY5,1,0 IF THERE WERE ENTRIES MADEIN CLOSUB
TSX 5PS3D,4 * GO WRITE CLOSUB ONTO DRUM3.
5PXR1 TXI END5P,0,** THEN GO CALL SECTION SIX.
EMPTY5 TSX 5PS3D3,4 * IF CLOSUB IS EMPTY, RECORD WRDCNT.
END5P RTB SYSTAP SPACE OVER DIAGNOSTIC RECORD,
5PXR2 TXI SECSIX,0,** * THEN GO CALL SECTION SIX.
REM END OF PROGRAM 5P11CD.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM END OF PROGRAM 5PRIME.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5PS1R,4/ CALLERS=5P1ASC,5P2FXC,5P3F3D,5P4FLC,5P6FTC,5P8S2D,
REM 5P9T4D,5P10ED,5P11CD. CALLS=DIAG.
REM READ A RECORD FROM TAPE 2.
5PS1R LXA TERC,2 SET TAPE ERROR COUNTER FOR 5 TRYS.
READ RTB TABTAP SELECT TABLE TAPE FOR READING.
OPSW1 TXL SKIP,0 IF OP SWITCH IS SET TO TXH,
CPY TABNUM THEN COPY 1ST WORD INTO TABNUM.
OPSW2 TXH SKIP,0 IF OP SWITCH IS SET TO TXH,
CAS TABNUM THEN COMPARE C(AC) WITH TABNUM=
TXI STOP,0 IF INCORRECT RECORD - GO TO STOP.
5PXR4 TXI SKIP,0,** IF EQUAL - THEN CONTINUE.
STOP TSX DIAG,4 * IF INCORRECT RECORD - GO TO DIAG.
SKIP CPY WRDCNT READ WORD COUNT,
LXA L(0),1 AND THEN READ
COPY CPY BUFFER,1 COMPLETE TABLE
TXI COPY,1,-1 INTO BUFFER.
TSX DIAG,4 * IF END OF FILE -,GO TO DIAGNOSTIC.
IOD WHEN DONE,
RTT IF TAPE RECORD
TXI RTTON,0 WAS READ CORRECTLY,
TRA 1,4 * RETURN TO MAIN ROUTINE.
RTTON BST TABTAP OTHERWISE, BACKSPACE TAPE, AND
TIX READ,2,1 GO REREAD RECORD UNLESS
TSX DIAG,4 * 5 ATTEMPTS FAILED - GO TO DIAG.
REM END OF PROGRAM 5PS1R.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5PS2C,4/ CALLS=5PS4W. CALLERS=5P1ASC,5P2FXC,5P4FLC,5P5R6C.
REM COMPILE 4-WORD INSTRUCTIONS FROM BUFFER ENTRIES.
5PS2C SXD 5PXR4,4 SAVE C(XR4) FOR EXIT.
LXA L(0),2 MOVE
COMP CLA BUFFER,2 ENTRY
STO WORD3 INTO WORD3,
TSX 5PS4W,4 * AND GO COMPILE INSTRUCTION.
TXI TEST,1,1 IF NO ENTRIES REMAIN,
TEST TXL EXIT2,1,0 THEN TAKE EXIT2.
STZ WORD1 SET WORD1 TO ZERO,
TXI COMP,2,-1 AND COMPILE SUCCEEDING ENTRIES.
EXIT2 LXD 5PXR4,4 RESTORE C(XR4), AND
TRA 1,4 * RETURN TO MAIN ROUTINE.
REM END OF PROGRAM 5PS2C.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5PS3D,4/ CALLERS=5P3F3D,5P8S2D,5P9T4D,5P10ED,5P11CD.
REM WRITE TABLE ONTO DRUM FOLLOWED BY CHECKSUM.
5PS3D CLA WRDCNT SET C(XR1)
5PS3D1 ARS 18 EQUAL TO
5PS3D2 PAX BUFFER,1 THE WORD COUNT
ADD 5PS3D2 AND INITIALIZE
STA CADDRM CAD ADDRESS.
5PS3D3 WDR 3 WRITE ONTO
CLM THE DRUM,
LDA DRMLOC ACCORDING TO SWITCH SETTING.
DRMSW TXL DRMSW+3,0 IF OP SWITCH IS TXH,
CPY EIFNO WRITE EIFNO FOLLOWED
CPY EIFNO BY ITS CHECKSUM.
CPY WRDCNT WRITE WORD COUNT FOLLOWED
CPY WRDCNT BY ITS CHECKSUM, AND THEN
TXL EXIT3,1,0 UNLESS THE BUFFER IS EMPTY,
CADDRM CAD **,1 WRITE THE
TIX CADDRM,1,1 CONTENTS OF BUFFER
CPY L(0) ONTO DRUM FOLLOWED
SLW 5PERAS BY ZERO AND THEN
CPY 5PERAS THE LOGICAL CHECKSUM.
EXIT3 TRA 1,4 * RETURN TO MAIN ROUTINE.
REM END OF PROGRAM 5PS3D.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM 5PS4W,4/ CALLERS=5P6FTC,5PS2C.
REM MOVE 4-WORD INSTRUCTION INTO CIB, AND WRITE CIB ONTO TAPE3.
5PS4W SXD 5PXR1,1 SAVE C(XR1) AND
SXD 5PXR2,2 SAVE C(XR2).
LXD BBOX,2 IF THE NUMBER OF
TXH MOVE-1,2,-100 WORDS ENTERED = 100,
WTB CITTAP THEN
LXA L(0),1 WRITE
WRITE CPY CIB,1 THE CONTENTS
TXI TESTB,2,1 OF THE CIT
TESTB TXL MOVE-1,2,0 BUFFER
TXI WRITE,1,-1 ONTO TAPE3.
LXA L(4),1 MOVE
MOVE CLA WORD1+4,1 NEW
STO CIB,2 4 WORD
TXI TESTA,2,-1 INSTRUCTION
TESTA TIX MOVE,1,1 INTO CIT BUFFER.
SXD BBOX,2 ADJUST BUFFER COUNT.
LXD 5PXR1,1 RESTORE C(XR1),
LXD 5PXR2,2 RESTORE C(XR2), AND
TRA 1,4 * EXIT TO MAIN ROUTINE.
REM END DF PROGRAM 5PS4W.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM
REM CONSTANTS USED BY 5 PRIME.
L(0) PZE 0
L(1) PZE 1
L(2) PZE 2
L(3) PZE 3
L(4) PZE 4
L(5) PZE 5
L(7) PZE 7
L(8) PZE 8
L(9) PZE 9
L(10) PZE 10
DECR1 PZE 0,0,1
FIXSYM BCD 1200000
FLOSYM BCD 1300000
SIXSYM BCD 1600000
OCTLOP BCD 1OCT000
4MATOP BCD 1BCD000
SIX OCT 233000000000,77777,0,1000000,0
REM END OF 5 PRIME CONSTANTS.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM WORKING STORAGE USED BY 5 PRIME.
5PERAS BSS 1
WORD1 BCD 1500000
WORD2 BCD 1TRA000
WORD3 BCD 1000000
WORD4 BCD 1000000
CIB BSS 100
EIFNO BSS 1
TABNUM BSS 1
WRDCNT BSS 1
BUFFER BSS 1500
NEWEQ BSS 1500
REM END OF 5 PRIME WORKING STORAGE.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM
REM SYNONYMS USED BY 5 PRIME.
SETDRM SYN 5PS3D3 LOCATION OF WDR INSTRUCTION.
TERC SYN L(5) TAPE ERROR COUNTER.
SYSTAP SYN 1 FORTRAN SYSTEM TAPE.
TABTAP SYN 2 TABLE TAPE.
CITTAP SYN 3 COMPILED INSTRUCTION TAPE.
DIAG SYN 4 DIAGNOSTIC ROUTINE.
SECSIX SYN 4 SECTION SIX = NEXT SECTION.
REM END OF 5 PRIME SYNONYMS.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM
END 5PRIME
REM ************* FORTRAN II SECTION PRE-SIX ********************F6A00010
REM FORTRAN 2 RECORD 92 - PRE-6. F6A00011
REM F6A00012
REM CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL) F6A00013
REM F6A00014
ORG 24 F6A00020
PC1 HTR 0 F6A00030
PC2 HTR 0 F6A00040
PC3 HTR 0 F6A00050
PC4 HTR 0 F6A00060
PC5 HTR 0 F6A00070
PC6 HTR 0 F6A00080
SUBIN HTR 0 F6A00090
REM SECTION PRE 6 F6A00100
REM TRANSFER VECTOR COMPILING F6A00110
ORG 31 F6A00120
START REW 2 F6A00130
REW 3 F6A00140
REW 4 F6A00150
TSX APCH2,4 TO SKIP BCD FILE. F6A00160
P1 RTB 2 ON TAPE 2. F6A00170
CH1 CPY ERAS1 F6A00180
TRA CH1 F6A00190
TRA P2 END OF FILE. F6A00200
TRA P1 END OF REC. F6A00210
P2 TIX P1,2,1 F6A00220
RTB 2 RECORD 3 F6A00230
ARS 255 F6A00240
ARS 255 F6A00250
RTT F6A00260
NOP F6A00270
REM READ TRANSFER VECTOR FROM DRUM 3 F6A00280
LXA P16,2 F6A00290
RDRM RDR 3 F6A00300
MDA PXD F6A00310
LDA MDA F6A00320
CAD TV-2 F6A00330
COM F6A00340
CAD TV-1 F6A00350
COM F6A00360
TZE RDRF F6A00370
TIX RDRM,2,1 F6A00380
TSX 4,4 F6A00390
RDRF LXD TV-2,3 F6A00400
TXL SDF,1 F6A00410
LXA P16,2 F6A00420
RDRM1 RDR 3 F6A00430
FDA PXD 2 F6A00440
LDA FDA F6A00450
CPY CAD TV-2,1 F6A00460
TIX CPY,1,1 F6A00470
CPY SUM F6A00480
COM F6A00490
CAD SUM F6A00500
COM F6A00510
TZE SDF F6A00520
TIX RDRM1,2,1 F6A00530
TSX 4,4 F6A00540
SDF CLA TV-2 WD CT. OF TRANSFER VECTOR. F6A00550
STO PC3 STORE LENGTH IN PROGRAM CARD. F6A00560
TZE NOVC F6A00570
SUB C18 F6A00580
STD P8 F6A00590
LXD C1,5 INITIALIZE TAPE 4 (SETXR1 AND 4=0) F6A00600
P9 CAL TV-3,4 STORAGE. F6A00610
SLW REC-1,1 SELECT NAME AND F6A00620
SLW REC-3,1 COMPILE CIT. F6A00630
STZ REC-4,1 F6A00640
CAL BCD F6A00650
SLW REC-2,1 F6A00660
TXI P7,1,4 F6A00670
P7 TXH WRIT4,1,99 F6A00680
P11 TXI P8,4,1 F6A00690
P8 TXH P10,4,* F6A00700
TRA P9 F6A00710
WRIT4 TSX SUB1,2 WRITE RECORD ON F6A00720
TRA P11 TAPE 4. F6A00730
NOVC LXD C1,1 SETXR1=0 F6A00740
TRA P10 F6A00750
REM SUBDEF COMPILING F6A00760
P10 LXA P16,4 SET READ ERROR COUNTER. F6A00770
TRA P17 F6A00780
P15 BST 2 F6A00790
TIX P17,4,1 F6A00800
TSX 4,4 F6A00810
P16 HPR 5 F6A00820
P17 RTB 2 READ SUBDEF TABLE INTO F6A00830
LXA C2,2 SUB-1,-2,... F6A00840
P18 CPY SUB-2,2 F6A00850
TXI P18,2,1 F6A00860
TRA EOF2 F6A00870
ARS 255 F6A00880
ARS 255 F6A00890
RTT F6A00900
TRA P15 F6A00910
CLA PC3 F6A00920
ARS 18 F6A00930
STO PC6 F6A00940
CAL SUB-2 STORE SUBDEF WORD COUNT. F6A00950
STO SUBIN F6A00960
TZE NOSUB TEST FOR SUBROUTINE. F6A00970
P19 CAL SUB-3 STORE NAME OF SUBROUTINE FOR PROGRAM CARD. F6A00980
SLW PC5 F6A00990
CLA PC6 F6A01000
ADD C1 F6A01010
STO PC6 SET RELATIVE F6A01020
STZ RCT COUNT T0 0. F6A01030
CAL C5 COMPILE CITS. F6A01040
SLW REC-1,1 F6A01050
TSX SUB2,2 COMPLETES CIT ONE. F6A01060
TRA P20 CIT 1 F6A01070
TSX SUB1,2 IF VEC, WRITE OFF TAPE FOUR. F6A01080
P20 STZ REC-1,1 COMPILE CIT, WD1=0, F6A01090
TSX SUB2,2 WD 2=HTR, WD 3=0, WD 4=0. F6A01100
TRA P22 F6A01110
TSX SUB1,2 IF NEC, WRITE OFF TAPE FOUR. F6A01120
P22 STZ REC-1,1 CIT 3 F6A01130
TSX SUB2,2 F6A01140
TRA NAME F6A01150
TSX SUB1,2 F6A01160
COMPX TRA NAME F6A01170
TSX SUB3,2 TO STORE CIT 4 IN TAPE 4 BUFFER. F6A01180
TRA P26 F6A01190
TSX SUB1,2 F6A01200
P26 CAL C9 F6A01210
TSX SUB3,2 TO STORE IN T-4 BUFFER PROLOGUE CIT 5 F6A01220
TRA P28 F6A01230
TSX SUB1,2 F6A01240
P28 CAL C10 TO STORE IN T-4 BUFFER PROLOGUE CIT 6. F6A01250
TSX SUB3,2 F6A01260
TRA P30 F6A01270
TSX SUB1,2 F6A01280
P30 LDQ C1 INIT DELETE F6A01290
STQ DELIN INDICATOR NOT ZERO. F6A01300
CLA SUB-2 COMPUTE TEST F6A01310
ARS 18 ADDRESS FOR END F6A01320
SUB C8 OF ARG LIST. F6A01330
STO ARGCT ARGCT CONTAINS WD CT. OF SUBDEF-1. F6A01340
TZE F1 =0 IF NO ARGUMENTS F6A01350
ADD C11 F6A01360
STA AGTST AGTST CONTAINS NO. OF ARGS-SUB+4 F6A01370
REM FORM ARG ARRAY INDICATOR TABLE F6A01380
A1 CAL C11 INIT ARG LIST, F6A01390
STA A10 SET ADDRESS A10=SUB-4. F6A01400
LXA P16,2 F6A01410
A4 RDR 2 READ SIZE TABLE WORD COUNT. F6A01420
LDA A2 F6A01430
A2 PXD 0 F6A01440
CAD EA1 F6A01450
COM F6A01460
CAD EA2 F6A01470
COM F6A01480
TZE A3 F6A01490
TIX A4,2,1 F6A01500
TSX 4,4 F6A01510
A3 CLA EA1 F6A01520
ARS 1 F6A01530
STO EA1 EA1 NOW CONTAINS NO. OF 2-WORD ENTRIES IN SIZE F6A01540
REM TABLE. F6A01541
A18 LXD C1,2 SET ARRAY IND. TABLE F6A01550
A19 STZ ARIND,2 TO ZERO, F6A01560
TXI A20,2,1 TABLE F6A01570
A20 TXH CH4,2,29 F6A01580
TRA A19 F6A01590
CH4 LXA EA1,2 F6A01600
TXL B1,2,0 TEST FOR NO ARRAYS. F6A01610
SXD IRIST,1 SAVE TAPE 4 INDEX. F6A01620
LXA P16,1 F6A01630
A8 RDR 2 F6A01640
LDA A5 F6A01650
A5 PXD 2 F6A01660
A6 CAD DIM,2 READ SIZ TABLE. F6A01670
CAD EA2 F6A01680
TIX A6,2,1 F6A01690
CPY EA2 F6A01700
COM F6A01710
CAD EA2 F6A01720
COM F6A01730
TZE A7 F6A01740
TIX A8,1,1 F6A01750
TSX 4,4 F6A01760
A7 CLA C13 INIT ARIND TABLE. F6A01770
LXD IRIST,1 F6A01780
STO EA2 F6A01790
CLA C12 F6A01800
STA A14 F6A01810
A9 LXA EA1,2 F6A01820
A10 CLA SUB-4 SELECT ARG. F6A01830
CAS DIM,2 IS ARGUMENT AN ARRAY. F6A01840
TRA A11 F6A01850
TRA A13 YES F6A01860
A11 TIX A10,2,1 F6A01870
A12 CLA ZERO ARG IS NOT ARRAY. SET BIT TO ZERO F6A01880
TRA A14 F6A01890
A13 CLA C14 ARG IS ARRAY, SET BIT TO BE 1. F6A01900
A14 ORS ARIND STORE INSTORE INDICATOR F6A01910
CLA C14 F6A01920
A17 ARS 1 F6A01930
STO C14 F6A01940
CAL EA2 MODIFY ARIND COUNT. F6A01950
SUB C8 F6A01960
STO EA2 F6A01970
TZE A15 WORD FULL TEST. F6A01980
A16 CLA A10 MODIFY ARG F6A01990
SUB C8 LIST ADDRESS. F6A02000
STA A10 F6A02010
SUB AGTST F6A02020
TZE B1 NO MORE ARGUMENTS. F6A02030
TRA A9 F6A02040
A15 CLA C13 F6A02050
STO EA2 F6A02060
CLA A14 F6A02070
ADD C8 F6A02080
STA A14 F6A02090
TRA APCH3+1 F6A02100
B1 SXD IRIST,1 SAVE TAPE 4 INDEX F6A02110
REM FORM OP TABLES FROM SEARCHING CIT F6A02120
STZ TP2CT SET TAPE 2 RECORD COUNT TO ZERO, F6A02130
B3 RTB 2 READY TAPE 2. F6A02140
CH2 CPY EA2 F6A02150
TRA CH2 F6A02160
TRA B2 E0F F6A02170
TRA B3 EOR F6A02180
B2 LXD C1,1 INIT OP BLOCK. SET XR1=0 F6A02190
B8 LXA B5,4 READ TAPE 3 F6A02200
TRA B6 F6A02210
B4 BST 3 F6A02220
TIX B6,4,1 F6A02230
TSX 4,4 F6A02240
B5 HPR 5 F6A02250
B6 RTB 3 SELECT CIT TAPE. F6A02260
LXA C2,2 SETXR2=-1 F6A02270
B7 CPY CIT-2,2 COPY A RECORD OF CIT TAPE INTO CIT-1,-2, F6A02280
TXI B7,2,1 F6A02290
TRA B28 END OF FILE F6A02300
ARS 255 END OF RECORD F6A02310
ARS 255 F6A02320
RTT F6A02330
TRA B4 F6A02340
SXD B27,2 SAVE TAPE 3 RECORD LENGTH(-2) F6A02350
LXD C1,4 INIT TAPE 3 BLOCK. F6A02360
CLA RCT F6A02370
TNZ B9 TRANSFER IF RELATIVE COUNT NOT ZERO. F6A02380
CAL CIT-1 STORE INITIAL F6A02390
SLW SLINT SYM LOCATION. F6A02400
B9 CLA DELIN IS DELINO ZERO. F6A02410
TZE B11 TRANSFER IF YES. F6A02420
CAL CIT-2,4 SELECT CIT. IS OP QPR. F6A02430
ARS 18 F6A02440
CAS QPR F6A02450
TRA B12 F6A02460
TRA B10 EQUAL. OP IS QPR. F6A02470
TRA B12 NOT EQUAL F6A02480
B10 STZ DELIN QPR OP. SET DELETE INDICATOR TO ZERO. F6A02490
B16 CLA RCT F6A02500
ADD C8 INCREMENT RCT BY 1, F6A02510
STO RCT AND GO MODIFY TAPE THREE INDEX. F6A02520
TRA B26 F6A02530
B11 CLA C8 SET DELETE INDIC. EQUAL ONE F6A02540
STO DELIN AND GO MODIFY TAPE 3 IN0EX. F6A02550
TRA B26 F6A02560
EXT21 CLA CIT-4,4 F6A02570
ARS 18 F6A02580
ADD RCT F6A02590
STO RCT F6A02600
TRA B26 F6A02610
BSS BCD 1000BSS F6A02620
B12 CAS BSS OP NOT QPR. TEST FOR BSS OP. F6A02630
TRA EXT20 F6A02640
TRA EXT21 OP EQUAL BSS. F6A02650
EXT20 TRA APCH1 OP NOT QPR NOR BSS. F6A02660
STA B13 INITIALIZE ARGUMENT LIST ADDRESS. F6A02670
B13 CLA SUB-4 SEARCH ARG LIST F6A02680
CAS CIT-3,4 FOR EQUAL SYMBOLIC F6A02690
TRA B15 ADDRESS. F6A02700
TRA B14 EQUAL, GO TO B14 TO COMPILE OP TABLE ENTRY. F6A02710
B15 CLA B13 SYMBOLIC ADDRESS NOT AN ARGUMENT. UPDATE F6A02720
SUB C8 ARGUMENT COUNTER. F6A02730
STA B13 F6A02740
SUB AGTST TEST FOR ALL ARGUMENTS TREATED. F6A02750
TZE B16 NO MORE ARGUMENTS. TRANSFER. F6A02760
TRA B13 GO CHECK AGAINST NEXT ARGUMENT. F6A02770
B14 CLS C11 EQUAL, MUST COMPILE OP TABLE ENTRY. F6A02780
SUB B13 F6A02790
ADD C8 F6A02800
STO ARGNO COMPUTE ADDRESS F6A02810
SUB C8 COMPUTE ADDRESS F6A02820
LRS 35 OF BIT IN ARIND F6A02830
DVH C13 TABLE. F6A02840
STQ ERAS1 F6A02850
STA B18 F6A02860
CLA C12 F6A02870
SUB ERAS1 F6A02880
STA B17 F6A02890
B17 LDQ * TEST FOR ARRAY. F6A02900
B18 LLS * F6A02910
PXD F6A02920
LLS 1 F6A02930
TZE B19 NOT ARRAY. F6A02940
CLA CIT-4,4 ARG IS ARRAY, SO STORE RELATIVE ADDRESS OF F6A02950
STO OP-2,1 CIT AS WORD 2 OF OP TABLE ENTRY. F6A02960
TRA B20 F6A02970
B19 STZ OP-2,1 ARG IS NOT ARRAY. SET WORD 2 OF OP ENTRY=0. F6A02980
B20 CLA ARGNO ASSEMBLE WORD ONE OF OP TABLE ENTRY. F6A02990
ALS 18 F6A03000
ADD RCT F6A03010
STO OP-1,1 F6A03020
TXI B21,1,2 MODIFY TAPE 2 F6A03030
B21 TXH B22,1,289 BLOCK. F6A03040
TRA B16 F6A03050
B22 WTB 2 WRITE OFF F6A03060
LXD C1,1 TAPE 2. F6A03070
B25 CPY OP-1,1 F6A03080
TXI B23,1,1 F6A03090
B23 TXH B24,1,289 F6A03100
TRA B25 F6A03110
B24 LXD C1,1 SET XR1 EQUAL ZERO F6A03120
CLA TP2CT UPDATE TAPE TWO RECORD COUNT. F6A03130
ADD C8 F6A03140
STO TP2CT F6A03150
IOD F6A03160
TRA B16 F6A03170
B26 TXI B27,4,4 MODIFY TAPE 3 BLOCK TO SELECT NEXT CIT (FROM F6A03180
REM TAPE 3). F6A03181
B27 TXH B8,4,* TEST END OF TAPE 3 BLOCK. F6A03190
TRA B9 F6A03200
B28 REW 3 EOF TAPE 3. REWIND TAPE 3. F6A03210
TXH B29,1,0 ANY OP ENTRIES TO BE WRITTEN ON T-2. F6A03220
TRA B34 NO. F6A03230
B29 SXD B31,1 YES, SAVE COUNT OF WORDS TO BE WRITTEN. F6A03240
WTB 2 F6A03250
LXD C9,1 WRITE OFF ON F6A03260
B30 CPY OP,1 TAPE 2. F6A03270
TXI B31,1,1 NECESSARY F6A03280
B31 TXH B35,1,* F6A03290
TRA B30 F6A03300
B34 CLA TP2CT IS RECORD COUNT ZERO. F6A03310
TNZ B36 NO. OKAY 50 TRANSFER TO READ TARE TWO. F6A03320
TSX 4,4 YES, ERROR. F6A03330
B35 CLA TP2CT F6A03340
IOD UPDATE TAPE TWO RECORD COUNT. F6A03350
ADD C8 F6A03360
STO TP2CT F6A03370
B36 WEF 2 WEF TAPE 2. F6A03380
BST 2 F6A03390
LXA TP2CT,1 BACK SPACE TO F6A03400
B37 BST 2 BEGIN OF FILE. F6A03410
TIX B37,1,1 F6A03420
ARS 255 F6A03430
ARS 255 F6A03440
RTT F6A03450
NOP F6A03460
LXD IRIST,1 F6A03470
STZ RCT SET RELATIVE COUNT TO ZERO. F6A03480
CLA C15 F6A03490
STO DELIN SET DELETE INDICATOR TO NOT-ZERO. F6A03500
REA02 LXD ZERO,2 F6A03510
D5 LXA D1,4 SET READ-ERROR COUNTER. F6A03520
TRA D2 F6A03530
D3 BST 2 REA0 TAPE 2 FILE 6 F6A03540
TIX D2,4,1 INTO STORAGE. F6A03550
TSX 4,4 F6A03560
D1 HPR 5 F6A03570
D2 RTB 2 F6A03580
NOP F6A03590
D4 CPY OP-1,2 F6A03600
TXI D4,2,1 F6A03610
TRA D89 E.O.F. F6A03620
ARS 255 F6A03630
ARS 255 F6A03640
RTT F6A03650
TRA D3 F6A03660
TRA D5 F6A03670
D89 STZ EA1 F6A03680
SXD EA1,2 F6A03690
NOP F6A03700
D30 CLA EA1 TEST WD COUNT OF OP TABLE. F6A03710
SUB C21 F6A03720
TMI D6 F6A03730
TSX 4,4 MORE THAN 2000 WORDS IS ERROR. F6A03740
D6 REW 2 REWIND TAPE 2. F6A03750
STZ CONCT SET CONCT EQUAL ZERO F6A03760
CLA C8 INIT. ARG. NUMBER TO ONE. F6A03770
STO ARGNO F6A03780
CLA EA1 F6A03790
SUB C18 SUBTRACT ONE (IN DECREMENT) F6A03800
STD D14 SET END OF 0P BLOCK TEST. (EA1-1) F6A03810
D7 STZ REC-1,1 COMPILE CLA N,4 F6A03820
CAL C16 WHERE N IS THE ARGUMENT NUMBER. F6A03830
SLW REC-2,1 SL=0 F6A03840
CLA ARGNO OP=CLA F6A03850
ALS 18 SA=0 F6A03860
ADD C1 RA=N,4 F6A03870
STO REC-4,1 F6A03880
STZ REC-3,1 F6A03890
TXI D8,1,4 F6A03900
D8 TXH D9,1,99 TEST CIT BLOCK FULL. IF YES, GO WRITE OFF. F6A03910
D10 STZ DELTA SET DELTA ZERO. F6A03920
LXD C1,2 INIT. IR2 TO ZERO. F6A03930
D11 CLA OP-1,2 SELECT OP TABLE ENTRY. F6A03940
ARS 18 F6A03950
CAS ARGNO COMPARE IT WITH ARG NO. F6A03960
TRA D12 F6A03970
TRA D13 EQUAL ARGUMENT, GO COMPILE STORE. F6A03980
D12 TXI D14,2,2 UPDATE OP TABLE COUNTER. F6A03990
D14 TXH D15,2,* TEST FOR END OF OP TABLE. F6A04000
TRA D11 F6A04010
D15 CLA ARGNO MODIFY ARG NUMBER (INCREASE IT BY ONE). F6A04020
ADD C8 F6A04030
STO ARGNO F6A04040
SUB ARGCT TEST END OF ARG. NUMBERS. F6A04050
TMI D7 NO. F6A04060
TZE D7 NO. F6A04070
TRA E1 FINISHED. F6A04080
D9 TSX SUB1,2 WRITE OFF ON F6A04090
TRA D10 TAPE 4. F6A04100
D13 CLA OP-2,2 COMPILE STORE. F6A04110
ARS 18 F6A04120
STO DELDD COMPUTE GAMMA WHICH IS THE AMOUNT NECESSARY TO F6A04130
SUB DELTA ADD T0 GET EFFECTIVE ADDRESS FOR STA. F6A04140
STO GAMMA F6A04150
LDQ DELDD F6A04160
STQ DELTA F6A04170
CLA GAMMA IS INCREMENT ZERO. F6A04180
TZE D25 YES F6A04190
CLA CONCT NO. TEST FOR ANY INCREMENT TABLE. F6A04200
TZE CH6 NO INCREMENT TABLE. F6A04210
ADD C17 YES, THERE IS AN INCREMENT TABLE. F6A04220
SUB C8 SET ADDRESS OF D17=LOCATION OF F6A04230
STA D17 LAST GAMMA STORED. F6A04240
D17 CLA HTAB IS LAST GAMMA F6A04250
SUB GAMMA EQUAL CURRENT GAMMA. F6A04260
TZE EX1 YES, ADDEND ALREADY IN TABLE F6A04270
CLA D17 NO, F6A04280
SUB C8 MODIFY ADDRESS IN HTAB. F6A04290
STA D17 F6A04300
SUB C17 ANY MORE ENTRIES IN HTAB. F6A04310
TPL D17 YES. F6A04320
CH6 CLA C17 NOT IN TABLE. F6A04330
ADD CONCT F6A04340
STA D18 F6A04350
CLA GAMMA F6A04360
D18 STO * SET BY CH6 TO HTAB+CONCT. STORE GAMMA. F6A04370
CLA CONCT UP CONCOUNT BY ONE. F6A04380
ADD C8 F6A04390
STO CONCT F6A04400
D19 STZ REC-1,1 COMPILE ADD. F6A04410
CAL ADD ADD F6A04420
SLW REC-2,1 F6A04430
CAL TABCT F6A04440
SLW REC-3,1 SA=9( F6A04450
CLA CONCT F6A04460
SUB C8 F6A04470
ALS 18 RELATIVE LOCATION OF HTAB CONSTANT. F6A04480
STO REC-4,1 F6A04490
TXI D16,1,4 MODIFY TAPE 4 BLOCK. F6A04500
D16 TXH D20,1,99 TEST TAPE 4 BLOCK FULL. F6A04510
D25 STZ REC-1,1 COMPILE STA, ONE SUCH CIT FOR EACH TIME ARG. F6A04520
CAL STA APPEARS IN OP TABLE. F6A04530
SLW REC-2,1 F6A04540
CAL SLINT TEST INITIAL SYMBOLIC LOCATION. F6A04550
TNZ D21 TRANSFER IF NOT ZERO. F6A04560
CAL C4 ZERO. SET SA EQUAL TO $$000. F6A04570
D21 SLW REC-3,1 F6A04580
LDQ OP-1,2 F6A04590
LLS 18 F6A04600
STQ REC-4,1 F6A04610
TXI D22,1,4 F6A04620
D22 TXH D23,1,99 TEST TAPE 4 BLOCK FULL. F6A04630
D24 TRA D12 NO. F6A04640
D20 SXD IRIST,2 F6A04650
TSX SUB1,2 GO WRITE A CIT RECORD ON TAPE 4. F6A04660
LXD IRIST,2 F6A04670
TRA D25 F6A04680
EX1 CLA D17 ADDEND ALREADY IN TABLE F6A04690
SUB C17 F6A04700
ALS 18 F6A04710
STO REC-4,1 F6A04720
STZ REC-1,1 F6A04730
CAL ADD F6A04740
SLW REC-2,1 F6A04750
CAL TABCT F6A04760
SLW REC-3,1 F6A04770
TXI D16,1,4 F6A04780
D23 SXD IRIST,2 F6A04790
TSX SUB1,2 F6A04800
LXD IRIST,2 F6A04810
TRA D12 F6A04820
E1 LXA E3,2 READ TAPE 3 F6A04830
TRA E4 F6A04840
E2 BST 3 F6A04850
TIX E4,2,1 SET READ ERROR COUNTER. F6A04860
TSX 4,4 F6A04870
E3 HPR 5 F6A04880
E4 RTB 3 READ A RECORD FROM TAPE 3. F6A04890
LXA C2,4 SET COUNTER TO -1, TO READ INTO F6A04900
E5 CPY CIT-2,4 CIT-1,-2,--- F6A04910
TXI E5,4,1 F6A04920
TRA E14 EOF. F6A04930
ARS 255 F6A04940
ARS 255 F6A04950
RTT F6A04960
TRA E2 F6A04970
SXD E8,4 F6A04980
LXD C1,4 F6A04990
CLA ARGCT TEST ARGUMENT COUNT FOR ZERO. F6A05000
TZE E6 YES, TRANSFER. F6A05010
CLA RCT NO, TEST RCT FOR ZERO. F6A05020
TNZ E6 RCT NOT ZERO. F6A05030
CAL SLINT TEST FIRST SUMBOLIC LOC. F6A05040
TNZ E6 TRANSFER IF NOT ZERO. F6A05050
CAL C4 $$ F6A05060
SLW CIT-1 F6A05070
E6 CAL CIT-2,4 F6A05080
ARS 18 IS OP QPR. F6A05090
SUB QPR F6A05100
TZE E9 YES, TRANSFER. F6A05110
ADD QPR F6A05120
SUB QXD IS OP QXD. F6A05130
TZE EX3 YES, TRANSFER. F6A05140
CLA DELIN IS DELETE IND F6A05150
TZE E11 ZERO. TRANSFER IF YES. F6A05160
CAL CIT-2,4 COPY CIT FROM TAPE 3 INTO F6A05170
E10 SLW REC-2,1 TAPE 4 BUFFER. F6A05180
CAL CIT-1,4 BLOCK F6A05190
SLW REC-1,1 F6A05200
CAL CIT-3,4 F6A05210
SLW REC-3,1 F6A05220
CAL CIT-4,4 F6A05230
SLW REC-4,1 F6A05240
CLA RCT ADD TO RCT F6A05250
ADD C8 UPDATE RELATIVE COUNT BY ONE. F6A05260
STO RCT F6A05270
TXI E7,1,4 MODIFY TAPE 4 BUFFER COUNTER. F6A05280
E7 TXH E13,1,99 TEST END OF TAPE 4 BLOCK. F6A05290
E12 TXI E8,4,4 NO, MODIFY TAPE 3 BLOCK COUNTER. F6A05300
E8 TXH E1,4,* TEST ENO OF TAPE 3 BLOCK. F6A05310
TRA E6 NO. F6A05320
E9 STO DELIN QPR. SET DELIN=0. F6A05330
CAL TRA SELECT OP=TRA, F6A05340
EX2 SLW REC-2,1 AND RETURN TO GET REST F6A05350
STZ REC-1,1 OF CIT. F6A05360
TRA E10+3 F6A05370
EX3 CAL LXD OP IS QXD. F6A05380
TRA E10 F6A05390
LXD BCD 1LXD000 F6A05400
QXD BCD 1000QXD F6A05410
E11 CLA C8 DELETE INSTRUCTION. SET DELETE INDICATOR F6A05420
STO DELIN TO NOT ZERO, AND TRANSFER F6A05430
TRA E12 TO TEST TAPE 4 BLOCK FULL. F6A05440
E13 TSX SUB1,2 WRITE OFF ON F6A05450
TRA E12 TAPE 4. F6A05460
E14 CLA CONCT ENO OF TAPE 3. F6A05470
TZE E20 TRANSFER SINCE 9) TABLE NOT NEC. F6A05480
CLA C17 IF NECESSARY F6A05490
STA E17 COMPILE 9) TABLE. F6A05500
STZ EA1 SET EA1=0. F6A05510
CAL TABCT F6A05520
SLW REC-1,1 SL=9) F6A05530
E18 CAL OCT OP=OCT. F6A05540
SLW REC-2,1 F6A05550
E17 CAL * SA=THE NECESSARY CONSTANT. F6A05560
SLW REC-3,1 F6A05570
STZ REC-4,1 RA=0 F6A05580
TXI E15,1,4 MODIFY TAPE 4 BLOCK COUNT. F6A05590
E15 TXH E16,1,99 TEST END OF TAPE 4 BLOCK. F6A05600
E19 CLA E17 TO GET NEXT CONSTANT IN 9) TABLE. F6A05610
SUB C8 F6A05620
STA E17 F6A05630
CLA EA1 INCREASE EA1 BY ONE. F6A05640
ADD C8 F6A05650
STO EA1 F6A05660
SUB CONCT F6A05670
TZE E20 TRANSFER IF ALL NEC 9) TABLE CITS COMPILED. F6A05680
STZ REC-1,1 SET SL=0 F6A05690
TRA E18 AND GO COMPILE REST OF CIT. F6A05700
E16 TSX SUB1,2 F6A05710
TRA E19 F6A05720
E20 TSX APCH2,4 TO SKIP BCD FILE. F6A05730
E21 RTB 2 SKIPPING TO FILE 5. F6A05740
CH3 CPY ERAS1 F6A05750
TRA CH3 F6A05760
TRA E22 END OF FILE. F6A05770
TRA E21 END OF RECORD. F6A05780
E22 TIX E21,2,1 F6A05790
RTB 2 SKIP F1RST 3 RECORDS IN FILE FIVE. F6A05800
RTB 2 F6A05810
RTB 2 F6A05820
ARS 255 F6A05830
ARS 255 F6A05840
RTT F6A05850
NOP F6A05860
LXA E24,2 SET READ ERROR COUNTER. F6A05870
TRA E25 F6A05880
E23 BST 2 F6A05890
TIX E25,2,1 F6A05900
TSX 4,4 F6A05910
E24 HPR 5 F6A05920
E25 RTB 2 READ HOLARG TABLE F6A05930
LXA C2,4 INTO SUB-1,-2,--- F6A05940
E26 CPY SUB-2,4 F6A05950
TXI E26,4,1 F6A05960
TRA EOF3 F6A05970
ARS 255 F6A05980
ARS 255 F6A05990
RTT F6A06000
TRA E23 F6A06010
E27 CLA SUB-2 TEST WORD COUNT OF HOLARG TABLE. F6A06020
TZE E33 EXIT, NO HOLARG. F6A06030
SUB C18 F6A06040
STO EA1 STORE WD. COUNT-1 IN EA1 F6A06050
CLA E27 INITIALIZE ADDRESS FOR SEARCHING HOLARG TABLE. F6A06060
SUB C8 F6A06070
STA E29 F6A06080
STZ EA2 SET EA2=0. F6A06090
CAL C19 SET SL OF FIRST CIT FOR EACH HOLLERITH F6A06100
SLW REC-1,1 ARGUMENT=11. F6A06110
E28 CAL BCD F6A06120
SLW REC-2,1 SET OP=BCD. F6A06130
E29 CLA * (SUB-3 TO START) F6A06140
CAS C20 TEST FOR END OF ARGUMENT. F6A06150
TRA LIB10 NO. F6A06160
TRA LIB12 TRANSFER WHEN CITS FOR A GIVEN ARGUMENT DONE. F6A06170
LIB10 STO REC-3,1 SA=6 CHARACTERS OF THE ARGUMENT. F6A06180
LIB11 STZ REC-4,1 RA=0. F6A06190
TXI E30,1,4 MODIFY TAPE 4 BLOCK COUNT. F6A06200
E30 TXH E31,1,99 TEST TAPE 4 BLOCK FULL. F6A06210
E32 CLA E29 MODIFY ADDRESS IN HOLARG TABLE. F6A06220
SUB C8 F6A06230
STA E29 F6A06240
CLA EA2 INCREMENT COUNT OF WORDS FROM TABLE F6A06250
ADD C18 TREATED BY ONE. F6A06260
STO EA2 F6A06270
SUB EA1 TEST FOR END OF HOLARG TABLE. F6A06280
TZE E40 END. F6A06290
STZ REC-1,1 NO. F6A06300
TRA E28 F6A06310
LIB12 STO REC-3,1 END OF ARGUMENT, COMPILE ENDING CIT F6A06320
CLA OCT (SA=STRING OF 1S) F6A06330
STO REC-2,1 F6A06340
TRA LIB11 F6A06350
E31 TSX SUB1,2 WRITE OFF ON TAPE 4. F6A06360
TRA E32 F6A06370
E33 TXL E35,1,1 MAY NEED TO WRITE OFF 4. F6A06380
TIX CH7,1,1 F6A06390
CH7 SXD E34,1 WRITE OFF ON F6A06400
WTB 4 TAPE 4. F6A06410
LXD C1,1 F6A06420
E36 CPY REC-1,1 F6A06430
TXI E34,1,1 F6A06440
E34 TXH E35,1,* F6A06450
TRA E36 F6A06460
E35 WEF 4 WRITE END OF FILE ON TAPE 4. F6A06470
REW 4 REWIND TAPES 2,3,4 F6A06480
REW 3 AND GO TO LOADER, F6A06490
REW 2 F6A06500
RTB 1 F6A06510
TRA 4 RETURN TO LOADER F6A06520
NOSUB STZ PC5 NOT A SUBROUTINE. SET NAME=0 ON PROGRAM CARD. F6A06530
STZ RCT SET RELATIVE COUNT=0. F6A06540
CLA C8 F6A06550
STO DELIN SET DELIN TO NOT ZERO. F6A06560
STZ CONCT SET CONSTANT COUNT=ZERO. F6A06570
REW 2 REWIND TAPE TWO. F6A06580
STZ ARGCT SET ARGUMENT COUNT=ZERO. F6A06590
TRA E1 GO DEAL WITH TAPE 3 CITS. F6A06600
F1 TRA NOSUB+1 F6A06610
E40 STZ REC-1,1 COMPILE FINAL HOLARG CIT. F6A06620
CAL OCT F6A06630
SLW REC-2,1 F6A06640
CAL C20 F6A06650
SLW REC-3,1 F6A06660
STZ REC-4,1 F6A06670
TXI CH10,1,4 UPOATE T-4 BLOCK C0UNTER. F6A06680
CH10 TRA E33 GO TEST BLOCK FULL. F6A06690
SUB1 WTB 4 WRITE TAPE 4, F6A06700
LXD C1,1 F6A06710
SUBA CPY REC-1,1 F6A06720
TXI SUBB,1,1 F6A06730
SUBB TXH SUBC,1,99 F6A06740
TRA SUBA F6A06750
SUBC IOD F6A06760
LXD C1,1 F6A06770
TRA 1,2 F6A06780
SUB2 CAL C6 COMPILE CITS F6A06790
SLW REC-2,1 OP=HTR F6A06800
STZ REC-3,1 SA=0 F6A06810
STZ REC-4,1 RA=0 F6A06820
TXI SUB2A,1,4 F6A06830
SUB2A TXH SUB2B,1,99 TLST TAPE 4 BLOCK FULL. F6A06840
TRA 1,2 NO. F6A06850
SUB2B TRA 2,2 YES. F6A06860
SUB3 SLW REC-4,1 STORE CIT 4 5 6 F6A06870
CAL C7 F6A06880
SLW REC-2,1 OP=SXD F6A06890
CAL C5 F6A06900
SLW REC-3,1 SA=$0000 F6A06910
STZ REC-1,1 SL=0 F6A06920
TXI SUB3A,1,4 F6A06930
SUB3A TXH SUB3B,1,99 TEST TAPE 4 BLOCK FULL. F6A06940
TRA 1,2 NO. F6A06950
SUB3B TRA 2,2 YES. F6A06960
C1 HTR 4 F6A06970
C2 HTR -1 F6A06980
BCD BCD 1BCD000 F6A06990
C3 HTR 3 F6A07000
C4 BCD 1$$ 000 F6A07010
C5 BCD 1$ 0000 F6A07020
C6 BCD 1HTR000 F6A07030
C7 BCD 1SXD000 F6A07040
C8 HTR 1 F6A07050
C9 OCT 000001000002 F6A07060
C10 OCT 000002000004 F6A07070
C11 CAL SUB-4 F6A07080
C12 HTR ARIND F6A07090
C13 HTR 35 F6A07100
C14 TIX 0,0,0 F6A07110
C15 HTR 5 F6A07120
C16 BCD 1CLA000 F6A07130
C17 CLA HTAB F6A07140
ADD BCD 1ADD000 INITARG F6A07150
QPR BCD 1000QPR F6A07160
AGTST CLA ** F6A07170
ZERO HTR 0 F6A07180
TABCT BCD 1900000 F6A07190
EOF1 TSX 4,4 F6A07200
STA BCD 1STA000 F6A07210
TRA BCD 1TRA000 F6A07220
EOF2 TSX 4,4 F6A07230
C18 OCT 000001000000 F6A07240
C19 OCT 130000000000 F6A07250
C20 OCT 777777777777 F6A07260
C21 OCT 003720000000 (2000 IN DICREMENT) F6A07270
OCT BCD 1OCT000 F6A07280
EOF3 TSX 4,4 F6A07290
EA1 HTR 0 F6A07300
EA2 HTR 0 F6A07310
IRIST HTR 0 F6A07320
SLINT HTR 0 F6A07330
ARGNO HTR 0 F6A07340
ERAS1 HTR 0 F6A07350
RCT HTR 0 F6A07360
DELIN HTR 0 F6A07370
ARGCT HTR 0 F6A07380
TP2CT HTR 0 F6A07390
DELTA HTR 0 F6A07400
CONCT HTR 0 F6A07410
DELDD HTR 0 F6A07420
GAMMA HTR 0 F6A07430
SUM HTR 0 F6A07440
BSS 1 F6A07441
APCH1 CAS SYNOP F6A07442
TRA GOON F6A07443
TRA B26 OP IS SYN. F6A07444
CAS OCTOP F6A07445
TRA GOON F6A07446
TRA B16 OP IS OCT. F6A07447
CAS BCDOP F6A07448
TRA GOON F6A07449
TRA B16 OP IS BCD. F6A07450
GOON CAL C11 F6A07451
TRA EXT20+1 F6A07452
SYNOP OCT 000000627045 F6A07453
OCTOP OCT 000000462363 F6A07454
BCDOP OCT 000000222324 F6A07455
APCH2 RTD 2 SKIP A BCD F1LE. F6A07456
CPY ERAS1 F6A07457
TRA *-1 F6A07458
TRA *+2 END OF FILE F6A07459
TRA APCH2 END OF RECORD F6A07460
LXA C3,2 F6A07461
TRA 1,4 RETURN TO PROGRAM. F6A07462
NAME CAL BCD INSERT CIT 3 PRIME. F6A07463
SLW REC-2,1 F6A07464
CAL PC5 OP=BCD F6A07465
SLW REC-3,1 SA=NAME OF ROUTINE. F6A07466
STZ REC-1,1 F6A07467
STZ REC-4,1 F6A07468
TXI *+1,1,4 F6A07469
TXH *+2,1,99 F6A07470
TRA P24 F6A07471
TSX SUB1,2 F6A07472
P24 CAL C8 F6A07473
TRA COMPX+1 F6A07474
APCH3 TIX 0,0,0 REINITIALIZE C14 F6A07475
CLA APCH3 F6A07476
STO C14 F6A07477
TRA A16 F6A07478
ORG 1230 F6A07480
REC BES 100 F6A07481
CIT BES 100 F6A07482
OP BES 2000 F6A07483
ORG 1430 F6A07490
TV BES 1000 F6A07500
SUB SYN TV F6A07510
ORG 3430 F6A07520
HTAB BSS 300 F6A07530
DIM SYN OP F6A07540
ORG 2730 F6A07550
ARIND BES 30 F6A07560
END F6A07570
REM PST
REM ************* FORTRAN II SECTION SIX ************************F6B00010
REM FORTRAN 2 RECORD 94 - BINARY SEARCH. F6B00011
REM F6B00012
REM CONTROL ENTERS THIS RECORD AT LOCATION 210 (OCTAL) F6B00013
REM F6B00014
ORG 31 F6B00020
SRCH TXI *,2,* OR TXL TDEV,2,0 OR TXH TTIV,2,-2 F6B00030
TQP IFTXH OR TXL TTEV DEPENDING ON TABLE AND F6B00040
TXI LOWER,1,-2 ON DIRECTION OF TABLE. F6B00050
IFTXH TXI RAISE,1,-2 F6B00060
TXI SRCH,2,+8192 FOR A TABLE WITH N F6B00070
TXI SRCH,2,-8192 ENTRIES, THE SEARCH IS F6B00080
TXI SRCH,2,+4096 COMMENCED AT THE 2**XTH F6B00090
TXI SRCH,2,-4096 ENTRY, THE LATTER BEING THE F6B00100
TXI SRCH,2,+2048 LARGEST POWER OF 2 F6B00110
TXI SRCH,2,-2048 LESS THAN N. F6B00120
TXI SRCH,2,+1024 THEN. DEPENDING ON THE RESULTS F6800130
TXI SRCH,2,-1024 OF THE COMPARISON, THE SEARCH F6B00140
TXI SRCH,2,+512 STEPS UP, OR DOWN, BY F6B00150
TXI SRCH,2,-512 2**(X-1), AND MAKES F6B00160
TXI SRCH,2,+256 A NEW COMPARISON WITH THAT F6B00170
TXI SRCH,2,-256 ENTRY F6B00180
TXI SRCH,2,+128 IF THIS STEP OVERREACHES THE F6B00190
TXI SRCH,2,-128 END OF THE TABLE, IT IS TRAPPED F6B00200
TXI SRCH,2,+64 BY THE TXL OR TXH INSTRUCTIONS F6B00210
TXI SRCH,2,-64 IN SRCH F6B00220
TXI SRCH,2,+32 F6B00230
TXI SRCH,2,-32 F6B00240
TXI SRCH,2,+16 F6B00250
TXI SRCH,2,-16 INDEX REGISTER 1, WHICH F6B00260
TXI SRCH,2,+8 CONTAINS 2(X+3) SELECTS THE F6B00270
TXI SRCH,2,-8 APPROPRIATE TXI IN THIS LIST, F6B00280
TXI SRCH,2,+4 TO MAKE THE NEXT LEAP F6B00290
TXI SRCH,2,-4 FORWARDS OR BACKWARDS IN F6B00300
TXI SRCH,2,+2 THE TABLE. F6B00310
TXI SRCH,2,-2 F6B00320
TXI SRCH,2,+1 INDEX REGISTER 2 SELECTS THE F6B00330
TXI SRCH,2,-1 TABLE ENTRY FOR COMPARISON. F6B00340
NOTIN TRA 1,4 END OF SEARCH. F6B00350
TXI NOTIN,2,-1 F6B00360
RAISE TRA RAISE,1 F6B00370
LOWER TRA LOWER,1 F6B00380
STEV LDQ TEVL ENTER HERE TO SEARCH TEV. F6B00390
STQ SRCH TABLE F6B00400
LXA TEVS,1 CONTROLS HOPP1NG WITHIN TEV. F6B00410
LXD TEVS,2 SELECTS ITEM FOR COMPARISON. F6B00420
TTEV CAS TEV,2 F6B00430
TXI RAISE,1,-2 NOT FOUND. CONTINUE SEARCH F6B00440
TRA ATEV FOUND. F6B00450
TXI LOWER,1,-2 NOT FOUND. CONTINUE SEARCH F6B00460
ATEV PXD 0,2 CONTROLS ENTRY POINT OF SEARCH F6B00470
ARS 18 DEC. CONTAINS TABLE LENGTH. F6B00480
ADD LTEV F6B00490
TRA 2,4 F6B00500
TEVS 4,0,**+0 F6B00510
TEVL TXL TTEV,2,**+0 F6B00520
STIV ALS 15 ENTER HERE TO SEARCH TIV. F6B00530
SLW ENTRY F6B00540
SLW ARG F6B00550
LDQ TIVL F6B00560
STQ SRCH F6B00570
LXA TIVS,1 F6B00580
LXD TIVS,2 F6B00590
TTIV CLA TIV,2 F6B00600
STA ARG F6B00610
CAS ARG F6B00620
TXI LOWER,1,-2 F6B00630
TRA ATIV F6B00640
TXI RAISE,1,-2 F6B00650
ATIV CLA TIV,2 RETURN WITH COMPLETE OLD TIV ENTRY F6B00660
TRA 2,4 F6B00670
TIVS 4,0,**-1 F6B00680
TIVL TXH TTIV,2,**-2 F6B00690
SDEV LDQ DEVL ENTER HERE TO SEARCH DEV F6B00700
STQ SRCH TABLE F6B00710
LXA DEVS,1 CONTROLS HOPPING WITHIN DEV F6B00720
LXD DEVS,2 SELECTS THE ITEM FOR COMPARISON. F6B00730
TDEV CAS DEV,2 F6B00740
TXI RAISE,1,-2 NOT FOUND CONTINUE SEARCH F6B00750
TRA ADEV ENTRY FOUND F6B00760
TXI LOWER,1,-2 NOT FOUND. CONTINUE SEARCH. F6B00770
ADEV CLA DEA,2 F6B00780
TRA 3,4 F6B00790
DEVS 4,0,**+0 CONTROLS ENTRY POINT OF SEARCH. F6B00800
DEVL TXL TDEV,2,**+0 CONTAINS TABLE LENGTH F6B00810
DEVA 2,0,**+1 USED BY EDEV FOR MODIFYING DEVS. F6B00820
ARG HTR 0 F6B00830
ENTRY HTR 0 F6B00840
ZERO DEC 0000000000 F6B00850
ONE DEC 0000000001 F6B00860
TWO DEC 0000000002 F6B00870
ADDR HTR -1 F6B00880
EIFN HTR 0 F6B00890
L1 HTR 0 F6B00900
L2 HTR 0 F6B00910
LIFN HTR 0 F6B00920
LCTR HTR -206 F6B00930
LTEV HTR 0 F6B00940
D HTR 0 F6B00950
EA HTR 0 F6B00960
L3 HTR 0 F6B00970
PGBK HTR 0 F6B00980
SW1 HTR 0 F6B00990
SW2 HTR 0 F6B01000
SW3 HTR 0 F6B01010
SW4 HTR 0 F6B01020
SW5 HTR 0 F6B01030
DOLSI OCT 077777077777 F6B01040
ME2 1,0,1 ADDRESS CAN BE CHANGED TO ZERO BY ME1 IN REC.96F6B01050
ORG 136 F6B01060
START LXA ADD5,2 SET DRUM ERROR COUNTER TO 15 F6B01070
ADD6 RDR 4 SELECT DRUM 4. F6B01080
ADD1 PXD NUMBER OF F6B01090
LDA ADD1 ENTRIES IN F6B01100
CPY EIFN EXTERNAL INTERNAL F6B01110
COM FORMULA NOS TABLE. F6B01120
CPY ADD2 F6B01130
COM F6B01140
TZE ADD3 F6B01150
TIX ADD6,2,1 F6B01160
TSX 4,4 F6B01170
ADD2 HTR 0 F6B01180
ADD3 LXD EIFN,1 F6B01190
TXI ADD4,1,1 F6B01200
ADD4 SXD EIFN,1 F6B01210
REW 2 TO F6B01220
B1 TRA BPCH1 GO SKIP BCD FILE F6B01230
B2 RTB 2 POSITION TAPE TWO F6B01240
CH1 CPY ERAS F6B01250
TRA CH1 AT THE BEGINNING OF FILE FIVE. F6B01260
TRA B3 F6B01270
TRA B2 F6B01280
B3 TIX B2,1,1 F6B01290
RTB 2 SELECT TAPE TWO F6B01300
CPY SW1 COPY SENSE SWITCH SETTINGS F6B01310
CPY SW2 I.E. FIRST RECORD OF FILE 5. F6B01320
CPY SW3 F6B01330
CPY SW4 F6B01340
CPY SW5 F6B01350
REW 3 F6B01360
REW 4 F6B01370
RTT F6B01380
NOP F6B01390
RTB 1 F6B01400
TRA 4 TO RETURN CONTROL TO LOADER. F6B01410
ERAS HTR 0 F6B01420
FOUR HTR 4 F6B01430
ADD5 HTR 15 F6B01440
BSS 2 F6B01441
BPCH1 RTD 2 SKIP A BCD FILE. F6B01442
CPY ERAS F6B01443
TRA *-1 F6B01444
TRA PREPR END OF FILE F6B01445
TRA BPCH1 END OF RECORD F6B01445
PREPR LXA LOCV3,1 F6B01447
TRA B2 F6B01448
LOCV3 DEC 3 F6B01449
ORG 768 F6B01450
SOPR BSS 12 F6B01460
SYMOP BES 160 F6B01470
ABSOP BES 160 F6B01480
TIV BSS F6B01490
ORG -3581 F6B01500
ECS BES 300 F6B01501
UPPER BES 600 F6B01510
DEA BES 900 F6B01520
ORG -1781 F6B01530
STS BES 290 F6B01540
I BES 300 F6B01550
L BES 290 F6B01560
DEV BES 900 F6B01570
WST 10,1
END F6B01580
REM AST
REM ************* FORTRAN II SECTION SIX ************************F6C00010
REM FORTRAN 2 RECORD 96 - ASSIGN COMMON F6C00011
REM F6C00012
REM CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL) F6C00013
REM F6C00014
RST 10,1 F6C00015
ME2 SYN 133 F6C00020
ORG 136 F6C00030
REM THIS ROUTINE IS ENTERED AFTER AN UNSUCCESSFUL BINARY SEARCH F6C00031
REM OF DEV. INDEX REGISTER 2 CONTAINS THE RELATIVE POSITI0N IN F6C00032
REM DEV THAT THE NEW, ENTRY SHOULD HAVE. F6C00033
EDEV TXI EDEV0,2,1 SAVE POSITION FOR TEST. F6C00040
EDEV0 SXD EDEV1,2 F6C00050
STO ENTRY SAVE ITEM TO BE ENTERED F6C00060
LXD DEVL,2 F6C00070
TXI EDEV2,2,1 UPDATE LENGTH OF DEV TABLE. F6C00080
EDEV2 SXD DEVL,2 MUST STARTING PT OF NEXT SEARCH BE F6C00090
EDEV3 TXL EDEV1,2,**+0 UPDATED TO NEXT P0WER OF 2. F6C00100
CAL DEVS YES. F6C00110
ADD DEVA UPDATE DEVS F6C00120
SLW DEVS F6C00130
STD DEVA F6C00140
ADD DEVA UPDATE THE EDEV3 TEST TO NEXT F6C00150
STD EDEV3 HIGHER POWER OF 2. F6C00160
EDEV1 TXH EDEV4,2,* DECREMENT CONTAINS NEW POSITION F6C00170
CAL ENTRY OF ENTRY. IF TEST SHOWS THAT ENTRY F6C00180
SLW DEV,2 TO BE MADE ON END OF TABLE, F6C00190
CLA EA DO SO. F6C00200
STO DEA,2 ENTRY IS MADE INTO MIDDLE OF DEV. F6C00210
TRA 1,4 MOVE SUCCEDING ENTRIES DOWN F6C00220
EDEV4 CAL DEV+1,2 UNTIL SPACE IS MADE FOR NEW ENTRY. F6C00230
SLW DEV,2 F6C00240
CAL DEA+1,2 F6C00250
SLW DEA,2 F6C00260
TXI EDEV1,2,-1 F6C00270
REM READ EQUIV SENTENCE FROM DRUM 1 F6C00280
NXT SXD LIB20,2 SAVE XR2 F6C00290
LXA LOC15,2 SET DRUM READ ERROR COUNTER F6C00300
LIB21 RDR 1 F6C00310
LXA ZERO,1 SET XR1=0 F6C00320
LDA ETL TO LOCATE FIRST VARIABLE NAME IN EQUIV. SENT. F6C00330
PXD F6C00340
ECC CAD ECS-1,1 COPY VARIABLE NAME INTO ECS-1 ETC F6C00350
TXI ECI,1,1 F6C00360
ECI CAD I,1 COPY ELEMENT NUMBER INTO I-1 ETC F6C00370
TQP ECC TRANS. TO ECC IF STILL MORE WORDS IN SENT. F6C00380
REM READ IN. F6C00381
CPY CS CHECK SUM TEST. (EACH SENTENCE HAS ITS OWN F6C00390
COM LOGICAL CHECK SUM. F6C00400
ACL CS F6C00410
COM F6C00420
TZE GFI IF CHECK SUM OK, PROCEED TO GFI F6C00430
TIX LIB21,2,1 IF INCORRECT CHECK SUM, TRY AGAIN UNLESS F6C00440
TSX 4,4 ERROR COUNTER EQUALS ONE. F6C00450
GFI SXD N,1 SAVE NO. OF VARIABLE NAMES READ IN SENT. F6C00460
LXD LIB20,2 RESTORE XR2 F6C00470
TRA 1,4 RETURN F6C00480
LIB20 HTR 0 F6C00490
LOC15 HTR 15 F6C00500
REM EQUIV SENTENCE ASSIGNMENT F6C00510
UP02 LXD N,1 N=NO. OF WORDS IN SENTENCE INTO XR1 F6C00520
SXD IR4,4 SAVE XR4 F6C00530
CLS I,1 SELECT MAX1MUM I+/LAST I/INTO AC F6C00540
TNX MAX,1,1 WHERE I IS NUMERIC PART OF EQUIV. COMPARE WITH F6C00550
MIT LDQ I,1 NEXT I F6C00560
TLQ TIN GREATER OF THE TWO IS INTO AC. F6C00570
CLA I,1 F6C00580
TIN TIX MIT,1,1 IF MORE IS TO BE COMPARED, DECREMENT XR1 F6C00590
REM AND REPEAT WITH NEXT I. F6C00591
MAX SLW MAXI STORE MAXIMUM I OF SENTENCE. F6C00600
PXD LET D=L-I, WHERE L IS LENGTH OF ARRAY F6C00610
STO MAXD SET MAXD=0 WHICH CORRESPONDS TO ONE F6C00620
LXD N,1 WD CT. OF SENT. 1NTO XR1. OF THE WORDS IN THE F6C00630
REM SENTENCE. F6C00631
LID CLA ECS,1 BRING A WORD OF SENTENCE INTO AC. F6C00640
LXA VSZ,2 NO. OF ENTRIES IN ARRAY NAME TABLE (FROM SIZE F6C00650
REM TABLE). F6C00651
TXL NSZ,2 IF NO ENTRIES IN SIZE TABLE, GO TO NSZ F6C00660
SSZ CAS STS,2 OTHERWISE, COMPARE A WORD OF EQUIV SENT WITH F6C00670
REM AN ARRAY NAME. F6C00671
TRA TDV F6C00680
TRA SSF IF EQUAL, GO TO SSF TO COMPUTE D. F6C00690
TDV TIX SSZ,2,1 IF NOT EQUAL, DECREMENT ARRAY NAME INDEX AND GOF6C00700
REM AGAIN TO COMPARE. F6C00701
NSZ CLA ONE IF NO WORD IN SENTENCE IS AN ARRAY, F6C00710
TRA LIT SET L=1 AND GO TO LIT TO COMPUTE D. F6C00720
SSF CLA L,2 IF WORD IN SENT.=ARRAY NAME IN SIZE TABLE, CLA F6C00730
REM LENGTH OF THAT ARRAY. F6C00731
LIT SBM I,1 COMPUTE AND STORE D=L-I FOR I CORRESPONDING TO F6C00740
REM WORD F6C00741
STO D IN EQUIVALENCE SENTENCE. F6C00750
LDQ D COMPARE WITH MAXD AND STORE LARGER IN MAXD. F6C00760
CLA MAXD F6C00770
TLQ DEN F6C00780
STQ MAXD GO BACK AND COMPUTE D US1NG NEW I UNTIL ALL F6C00790
DEN TIX LID,1,1 IS CORRESPOND1NG TO WDS IN EQUIV. SENT. ARE F6C00800
CLA LCTR EXHAUSTED. F6C00810
SUB MAXI REDUCE LOCATION COUNTER BY MAX1 F6C00820
STO LCTR F6C00830
LXD N,1 RESET COUNTER FOR WORDS IN EQUIV. SENTENCE. F6C00840
STJ SXD J,1 SAVE CURRENT STATUS OF COUNTER IN DECR. OF J. F6C00850
CLA LCTR COMPUTE ABSOLUTE LOCATION OF WORD IN SENT., F6C00860
ADM I,1 AND SAVE IT IN EA F6C00870
STO EA F6C00880
DES CLA ECS,1 CURRENT WORD OF EQUIV SENTENCE. F6C00890
TSX SDEV,4 SEARCH DEV TABLE F6C00900
TSX EDEV,4 STORE IN DEV TABLE F6C00910
TRA MJC RETURN FROM EDEV. F6C00920
SUB EA RETURN FROM SDEV IF FOUND IN DEV TABLE. DEA F6C00930
TZE MJC CORRESP. TO DEV ENTRY SHOULD EQUAL EA OR ERROR F6C00940
TSX 4,4 F6C00950
MJC LXD J,1 CURRENT STATUS OF EQUIV. WORD COUNTER F6C00960
TIX STJ,1,1 IF MORE WDS IN SENTENCE, REPEAT WITH NEXT WORD F6C00970
CLA LCTR AT END OF SENTENCE, REDUCE LCTR BY MAXD. F6C00980
SUB MAXD F6C00990
STO LCTR F6C01000
LXD IR4,4 F6C01010
UP03 CLA N TO MODIFY DRUM ADDRESS ADD NO. OF WORDS READ F6C01020
REM EQUIVALENCE TABLE. F6C01021
ARS 17 PLUS ONE TO ALLOW FOR CHECK SUM F6C01030
ADD ONE PLUS F6C01040
ADD ETL LAST STARTING DRUM ADDRESS. F6C01050
STO ETL STORE NEW STARTING DRUM ADDRESS IN ETL. F6C01060
LXA ETL,1 TEST FOR END OF EQUIVALENCE TABLE. F6C01070
ECN TXL UP31,1,** WD COUNT OF EQUIV. TABLE IN DECR. F6C01080
TRA 2,4 IS END OF TABLE, GO TO 2,4 F6C01090
UP31 TRA 1,4 IF NOT END OF EQUIV TABLE, GO TO EXIT+1 F6C01100
ETL HTR 0 F6C01110
CS HTR 0 F6C01120
N HTR 0 F6C01130
MAXI HTR 0 F6C01140
MAXD HTR 0 F6C01150
VSZ HTR 0 CONTAINS NO. OF 2-WORD ENTRIES IN SIZ TABLE. F6C01160
J HTR 0 F6C01170
ETN HTR 0 F6C01180
C1 OCT 000001000000 F6C01190
IR4 HTR 0 F6C01200
REM BUILD SYMBOL TABLE FROM COMMON F6C01210
ORG 256 F6C01220
UP12 PXD 4 F6C01230
COM F6C01240
SLW DEV WORD OF 1S INTO DEV. F6C01250
RTB 2 TO SKIP SUBDEF RECORD ON TAPE 2. F6C01260
LXA STP,1 SET TAPE ERROR COUNTER F6C01270
TRA UP15 AND GO TO READ IN COMMON. F6C01280
ERRUP BST 2 TRY TO READ RECORD AGAIN F6C01290
TIX UP15,1,1 UNLESS C0UNTER REDUCED TO 1. F6C01300
TSX 4,4 F6C01310
STP HPR 5 F6C01320
UP15 RTB 2 SELECT TAPE TWO F6C01330
LXD ADDR,4 F6C01340
UP16 CPY UPPER-1,4 READ IN COMMON TABLE. F6C01350
TXI UP16,4,1 F6C01360
TRA EOF END OF FILE IS ERROR HERE F6C01370
ARS 255 F6C01380
ARS 255 F6C01390
RTT F6C01400
TRA ERRUP F6C01410
CLA UPPER-2 STORE WORD COUNT OF COMMON F6C01420
SUB C1 TABLE -1 IN DECR OF UP 18 F6C01430
STD UP18 F6C01440
TRA DSR ERROR F6C01450
EOF TSX 4,4 END OF FILE ERROR F6C01460
DSR LXA LOC15,2 SET DRUM ERROR COUNTER F6C01470
LIB22 RDR 2 F6C01480
LDA DSA SIZE TABLE TEST F6C01490
DSA PXD 0 F6C01500
CAD VSZ READ SIZE TABLE WORD COUNT F6C01510
COM F6C01520
CAD CS F6C01530
COM F6C01540
TZE DTR F6C01550
TIX LIB22,2,1 IF DRUM READ ERROR F6C01560
TSX 4,4 F6C01570
DTR CLA VSZ F6C01580
ARS 1 STORE NO. OF ARRAY NAMES IN SIZE F6C01590
STO VSZ TABLE INTO VSZ F6C01600
DTE LXA VSZ,1 SIZE TABLE TEST F6C01610
TXL ETR,1 IF NO SIZE TABLE, GO ETR F6C01620
LXA LOC15,2 IF SIZE TABLE ENTRIES, SET F6C01630
LIB23 RDR 2 DRUM READ ERROR COUNT AND READ IN SIZE F6C01640
LDA DTA TABLE. F6C01650
DTA PXD 2 F6C01660
DTC CAD STS,1 COPY ARRAY NAME INTO STS,1 F6C01670
CAD L,1 COPY ARRAY LENGTH INTO L,1 F6C01680
TIX DTC,1,1 F6C01690
CPY CS F6C01700
COM F6C01710
CAD CS F6C01720
COM F6C01730
TZE ETR TEST CHECK SUM IF OK, GO TO ETR. F6C01740
TIX LIB23,2,1 CHECK SUM ERROR. F6C01750
TSX 4,4 F6C01760
ETR LXA LOC15,2 F6C01770
LIB24 RDR 1 SELECT DRUM 1. TO SEE IF ANY EQUIV. TABLE. F6C01780
LDA ETA EQUIV TABLE TEST F6C01790
ETA PXD 0 F6C01800
CAD ETN READ WORD COUNT OF EQUIV TABLE INTO ETN F6C01810
COM F6C01820
CAD CS F6C01830
COM F6C01840
TZE ETT IF NO ERROR, GO TO ETT. F6C01850
TIX LIB24,2,1 F6C01860
TSX 4,4 F6C01870
ETT LXD ETN,1 SET XR1 EQUAL WD. CT. OF EQUIV TABLE F6C01880
TXL UP01,1 IF WORD C0UNTER ZERO, TRANSFER F6C01890
SXD ECN,1 IF THERE ARE ENTRIES IN EQUIV, SAVE WD. CT. IN F6C01900
REM ECN. F6C01901
CLA TWO F6C01910
STO ETL SET ETL=2 F6C01920
CLA UPPER-2, IF WORD COUNT OF COMMON TABLE F6C01930
TZE UP25 EQUALS ZERO, GO TO UP 25. IF NOT 0, F6C01940
UP32 TSX NXT,4 READ EQUIV. SENTENCE. F6C01950
TIX CH2,1,1 XR1 CONTAINS NO. OF WOROS READ BY NXT F6C01960
CH2 SXD UP21,1 NO. OF WORDS IN SENTENCE INTO DECR. UP 21 F6C01970
LXD ADDR,1 SET XR1,2=0 F6C01980
UP22 LXD ADDR,2 F6C01990
UP20 CLA ECS-1,1 COMPARE VARIABLE NAME FROM EQUIV SENTENCE F6C02000
CAS UPPER-3,2 WITH WORD IN COMMON F6C02010
TRA UP17 NOT EQUAL F6C02020
TRA UP30 EQUAL. I.E, VARIABLE NAME IS IN COMMON. F6C02030
UP17 TXI UP18,2,1 NOT EQUAL. INCREMENT INDEX REG 2. F6C02040
UP18 TXH UP19,2,* PROCEED TO UP 19 IF ALL WORDS IN COMMON C0MPAREF6C02050
TRA UP20 OTHERWISE COMPARE AGAIN WITH NEXT COMMON WORD F6C02060
UP19 TXI UP21,1,1 END OF COMMON. INCREMENT VARIABLE NAME COUNTER F6C02070
UP21 TXH UP33,1,* IF ALL VARIABLE NAMES IN SENTENCE COMPARED F6C02080
TRA UP22 IF MORE NAMES IN SENTENCE, COMPARE NEXT WORD F6C02090
UP33 TSX UP03,4 MODIFY DRUM ADDRESS AND TEST FOR END OF EQUIV. F6C02100
REM TAB. F6C02101
TRA UP32 RETURN HERE IF NOT END OF EQUIV TABLE TO READ F6C02110
REM NEXT SENTENCE F6C02111
TRA UP01 IF END OF EQUIV TABLE, RETURN HERE F6C02120
UP30 TSX UP02,4 TO ASSIGN EQUIV. SENT, WORD OF WHICH F6C02130
REM APPEARS IN COMMON, TO UPPER MEMORY F6C02131
TRA UP32 RETURN IF NOT END OF EQUIV. TABLE F6C02140
TRA UP01 IF END OF EQUIV TABLE, RETURN HERE F6C02150
REM ASSIGN UPPER MEMORY FOR WORDS IN COMMON BUT NOT IN EQUIV. F6C02151
UP01 LXD ADDR,1 ASSIGN UPPER F6C02160
CLA UPPER-2 XR1 WILL CONATIN COUNT OF COMMON WDS PROCESSED.F6C02170
TZE ME1 TRANSFER OUT TO ME1 IF N0 COMM0N TABLE. F6C02180
SUB C1 IF THERE IS A COMMON TABLE, DECREASE WORD CT. F6C02190
STD UP23 BY 1 AND STORE IN DECR. OF UP 23 F6C02200
CLA LCTR F6C02210
STO EA STORE LOCATION COUNTER IN EA. F6C02220
UP24 CLA UPPER-3,1 A COMMON ENTRY INTO AC. F6C02230
SXD LIB1,1 SAVE COUNT. F6C02240
TSX SDEV,4 SEE IF IN DEV TABLE F6C02250
TSX EDEV,4 TO ENTER COMMON SYMBOL IN DEV TABLE. F6C02260
TRA UP05 RETURN FROM EDEV. GO TO UP05 TO RESET LCTR F6C02270
LXD LIB1,1 RETURN HERE IF LOCATED COMMON WORD IN DEV TABL,F6C02280
TRA UP06 RESTORE XR AND GO TO UP06 TO INCREMENT WD COUNTF6C02290
REM TO DETERMINE WHETHER SYMBOL JUST ENTERED IN DEV IS AN ARRAY. F6C02291
UP05 LXA VSZ,2 IS UPPER SYM F6C02300
LXD LIB1,1 F6C02310
TXL UP07,2 TRANSFER IF NO SIZE TABLE. F6C02320
CLA UPPER-3,1 COMPARE COMMON SYMBOL JUST ENTERED IN DEV TABLEF6C02330
UP08 CAS STS,2 WITH ARRAY NAME FROM SIZE TABLE F6C02340
TRA UP09 F6C02350
TRA UP10 COMMON SYMBOL LOCATED FN SIZE TABLE F6C02360
UP09 TIX UP08,2,1 NOT LOCATED. REPEAT UNTIL COMPARED WITH ALL F6C02370
REM ARRAY NAMES F6C02371
UP07 CLS ONE IF NOT IN SIZE TABLE, REDUCE LCTR BY ONE. I.E. F6C02380
REM NOT AN ARRAY. F6C02381
TRA UP11 F6C02390
UP10 CLS L,2 REDUCE LCTR BY LENGTH OF ARRAY F6C02400
UP11 ADD LCTR REDUCE LCTR F6C02410
STO LCTR F6C02420
STO EA STORE CURRENT LCTR IN EA. F6C02430
UP06 TXI UP23,1,1 REPEAT FOR EACH COMMON ENTRY UNTIL F6C02440
UP23 TXH UP25,1,* ALL ENTRIES IN COMMON TABLE ARE IN DEV F6C02450
TRA UP24 TABLE WITH THEIR ABSOLUTE LOCATIONS IN DEA TABLF6C02460
UP25 RTB 1 GO TO LOADER F6C02470
TRA 4 F6C02480
ME1 STA ME2 STORE ZERO IN ADDRESS OF ME2 AND GO TO F6C02490
TRA UP25 LOADER. F6C02500
IDENT HTR 0 F6C02510
LIB1 HTR 0 F6C02520
END F6C02530
REM AST
REM ************* FORTRAN II SECTION SIX ************************F6D00010
REM FORTRAN 2 RECORD 98 - EOUIV-DIMENSION. F6D00011
REM F6D00012
REM CONTROL ENTERS THIS RECORD AT LOCATION 40O (OCTAL). F6D00013
REM F6D00014
RST 10,1 F6D00015
REM ENTER TRANSFER VECTOR INTO DEV TABLE F6D00020
EDEV SYN 136 F6D00030
NXT SYN 160 F6000040
LOC15 SYN 181 F6000050
UP02 SYN 182 F6D00060
UP03 SYN 232 F6D00070
ETL SYN 241 F6D00000
N SYN 243 F6D00090
VSZ SYN 246 F6D00100
J SYN 247 F6D00110
ETN SYN 248 F6D00120
ORG 256 F6D00130
CLA LCTR SAVE UPPER BREAK F6D00140
STO L3 IN L3 F6D00150
RDR 3 SELECT DRUM 3 F6D00160
A27 PXD 0 F6D00170
LDA A27 LOCATE TRANSFER VECTOR TABLE (CLOSUB) F6D00180
CPY UPPER-2 F6D00190
CPY UPPER-2 LOAD INDEX REG 1 WITH WORD COUNT OF F6D00200
A23 LXD UPPER-2,1 TRANSFER VECTOR TABLE. F6D00210
TXL A28,1 IF NO TRANS VECTOR, GO TO ASSIGN EQUIV AND F6D00220
LXA LOC15,2 DIMENSION STORAGE. F6D00230
X1 RDR 3 IF THERE IS A TRANSFER VECTOR, F6D00240
A29 PXD 2 READ IT INTO UPPER -3 ETC. F6D00250
LDA A29 F6D00260
A30 CAD UPPER-2,1 F6D00270
TIX A30,1,1 F6D00280
CPY SUM F6D00290
COM F6D00300
CAD SUM TO TEST CHECK SUM F6D00310
COM F6D00320
TZE A25 CHECK SUM OKAY. GO TO ENTER TRANS. VECTOR INTO F6D00330
REM DEV TABLE, F6D00331
TIX X1,2,1 IF CHECK SUM ERROR, TRY AGAIN F6D00340
TSX 4,4 F6D00350
A25 CLA UPPER-2 REDUCE WD COUNT OF TRANSFER VECTOR BY ONE F6D00360
SUB C2 AND STORE RESULT IN DECR OF A24. F6D00370
STD A24 F6D00380
LXD ADDR,1 SET COUNTER FOR WORDS PROCESSED TO ZERO. F6D00390
CLA L1 F6D00400
A42 STO EA STORE PROGRAM COUNTER IN EA. F6D00410
CLA UPPER-3,1 SELECT A TRANSFER VECTOR NAME. F6D00420
SXD LIB1,1 F6D00430
TSX SDEV,4 TO SEE IF NAME SELECTED IS IN DEV TABLE. YES, F6D00440
REM ERROR. F6D00441
TSX EDEV,4 ENTER NAME IN DEV TABLE. F6D00450
TRA A40 EXIT FROM EDEV. F6D00460
A41 TSX 4,4 IF NAME LOCATED IN DEV TABLE, ERROR F6D00470
A40 CLA L1 STORE PROGRAM COUNTER IN PROG BREAK. F6D00480
STO L2 F6D00490
ADD ONE INCREASE PROGRAM COUNTER BY 1. F6D00500
STO L1 F6D00510
LXD LIB1,1 F6D00520
TXI A24,1,1 F6D00530
A24 TXH A28,1,* TRANSFER TO ASSIGN EQUIV. IF ALL TRANS VECTOR F6D00540
REM NAMES ENTERED F6D00541
TRA A42 F6D00550
REM ASSIGN EQUIV AOTHERW1SE, SELECT NEST TRANS. VEC. NAME AND F6D00560
REM ENTER IN DEV F6D00561
A28 BST 2 TO POSITION TAPE 2 AT BEGINNING OF SUBDEF TABL F6D00570
BST 2 F6D00580
LXA A1,1 SET READ ERROR COUNTER F6D00590
TRA A2 F6000600
A3 BST 2 READ ERROR PROCE0URE F6D00610
TIX A2,1,1 F6D00620
TSX 4,4 F6D00630
A1 HPR 5 SELECT TAPE TWO F6D00640
A2 RTB 2 TO READ SUB DEF, TABLE. F6D00650
LXD ADDR,4 SET COUNTER=0, F6D00660
A4 CPY UPPER-1,4 ANO READ SUBDEF TABLE. F6D00670
TXI A4,4,1 INTO UPPER-1, ETC, F6D00680
TRA EOF1 END-OF-FILE IS ERROR HERE, F6D00690
ARS 255 F6D00700
ARS 255 F6D00710
RTT F6D00720
TRA A3 IF RTT ERROR. F6D00730
REW 2 WHEN RECORD HAS BEEN READ, REWIND TABLE-TAPE. F6000740
CLA ETN ETN HAS WORD COUNT OF EQUIV. TABLE F6D00750
TZE DIM IF NO EQUIV. ENTRIES, GO TO ASSIGN DIMENSION F6D00760
CLA TWO F6D00770
STO ETL STORE WD CT OF EQUIV TABLE+2 IN ETL F6000780
A5 TSX NXT,4 TO READ AN EQU1V SENTENCE INTO ECS-1,--, I-1,--F6000790
A6 CLA UPPER-2 LEAVES WD CT. OF SENT. IN XR1. F6D00800
SUB C2 TEST WORD COUNT OF SUBDEF TABLE. F6D00810
TZE ME30 IF NO ARGUMENTS, GO TO SEARCH DEV TABLE F6000820
TMI ME30 F6D00830
TIX CH4,1,1 F6D00840
CH4 SXD A14,1 SAVE XR1 IN DECR. OF A14 F6D00850
SUB C2 F6000860
STD A12 F6D00870
LXD ADDR,1 F6D00880
A8 LXD ADDR,2 SET XRS 1+2=0 F6D00890
A9 CLA ECS-1,1 COMPARE A WORD OF EQUIV SENTENCE F6D00900
CAS UPPER-4,2 WITH LIST OF ARGUMENTS IN SUBDEF TABLE. F6D00910
TRA A10 F6D00920
TRA A11 IN SUB DEF TABLE, I.E. EQUIV. VARIABLE IS A SUBF6D00930
REM ROUTINE ARGUMENT F6D00931
A10 TXI A12,2,1 INCREASE ARGUMENT COUNTER AND REPEAT COMPARISONF6000940
A12 TXH DPCH3,2,** F6D00950
TRA A9 F6D00960
A13 TSX SDEV,4 F6D00970
LXD SVIT,1 F6D00980
TXI A14,1,1 F6D00990
TSX UP03,4 IF WORD FOUND IN DEV SEARCH, GO TO MODIFY DRUM F6D01000
REM ADDRESS F6D01001
TRA A5 OF EQUIV TABLE. READ IN NEXT EQUIV. SENTENCE F6D01010
TRA DIM EXIT HERE FROM UP03 IF END OF EQUIV TABLE REACHF6D01020
ME30 CLA ECS-1 SEARCH DEV TABLE FOR AN EQUIV. NAME. F6D01030
TSX SDEV,4 F6D01040
TRA A7 NOT IN DEV TABLE. GO TO ASSIGN EQUIV STORAGE F6D01050
NOP F6D01060
TRA A13+3 RETURNS HERE IF SEARCH SUCCESSFUL F6D01070
A14 TXH A7,1,* (WD COUNT OF SENT. IN DECREMENT). TRANSF. TO A7F6D01080
TRA A8 IF END OF EQUIV SENTENCE. F6D01090
A7 TSX UP02,4 NOT SUB DEF SO NORMAL EQUIV ASSIGNMENT. F6D01100
TRA A5 IF NOT END OF EQUIV TABLE, GO TO READ IN NEXT F6D01110
REM SENTENCE F6D01111
TRA DIM END OF EQUIV. GO TO ASSIGN DIMENSION STORAGE F6D01120
A11 STZ EA EQUIV. VARIABLE IS A SUBROUTINE ARGUMENT F6D01130
LXD N,1 SET COUNTER FOR NO. OF WORDS IN SENT. F6D01140
A21 SXD J,1 SAVE NO. OF WORDS IN EQUIV SENT. F6D01150
CLA ECS,1 STORE EQUIV VARIABLE IN DEV AND F6D01160
TSX SDEV,4 STORE LOCATION AS ZERO. F6D01170
TSX EDEV,4 EQUIV ENTRIES F6D01180
TRA A22 F6D01190
A22 LXD J,1 RESTORE COUNTER FOR NO. OF WDS LEFT IN EQUIV F6D01200
REM SENTENCE. F6D01201
TIX A21,1,1 IF MORE WORDS IN SENT, GO TO STORE LOCATION AS F6D01210
REM ZERO, F6D01211
TSX UP03,4 SENTENCE FINISHED. GO COMPUTE NEW DRUM ADD. + F6D01220
REM TEST FOR END. F6D01221
TRA A5 IF NOT END OF EQUIV TABLE, REPEAT WITH NEXT F6D01230
REM SENTENCE. F6D01231
TRA DIM END OF EQUIV TABLE. F6D01240
REM ADD SYMBOLS FROM DIMENSION SENTENCES F6D01250
DIM LXA VSZ,1 SET COUNTER WITH WD CT OF ARRAY NAME TABLE F6D01260
TXL ENDA,1 IF NO SIZE TABLE, GO TO READ LOADER F6D01270
SZYES TRA DPCH1 F6D01280
STD A18 F6D01290
CLA LCTR STORE LCTR IN EA. F6D01300
SEA STO EA F6D01310
DDS CLA STS,1 F6D01320
SXD N,1 SAVE COUNTER FOR ARRAY NAME TABLE F6D01330
TSX SDEV,4 GO TO SEARCH DEV TABLE FOR ARRAY NAME F6D01340
TRA A15 IF NOT IN TABLE, GO SEE IF THAT ARRAY NAME IS AF6001350
REM SUBROUTINE ARGUMENT F6D01351
NOP 0 F6D01360
LXD N,1 IF IN TABLE, GO TO NEXT ARRAY NAME SEARCH. F6D01370
TIX DDS,1,1 F6D01380
TRA ENDA F6D01390
A15 SXD IR2,2 SAVE XR2 F6D01400
LXD ADDR,2 SET COUNTER=0 F6D01410
TRA DPCH2 F6D01420
A20 CLA STS,1 TO SEE IF ARRAY NAME IS A SUBROUTINE ARG. F6D01430
CAS UPPER-4,2 F6D01440
TRA A16 NOT A SUBROUTINE ARGUMENT F6D01450
TRA A17 IF IT IS A SUB ARG, GO T0 A17 F6D01460
A16 TXI A18,2,1 F6D01470
A18 TXH A19,2,* IF NO MORE ARGU1ENT NAMES TO COMPARE GO T0 A19.F6D01480
TRA A20 F6D01490
A19 LXD IR2,2 ARRAY NAME NOT A SUBROUTINE ARGUMENT F6D01500
TSX EDEV,4 ENTER ARRAY NAME IN DEV TABLE. STORE LOCATION F6D01510
REM IN DEA F6D01511
SLC LXD N,1 RESTORE ARRAY NAME COUNTER. F6D01520
CLA LCTR SUBTRACT LENGTH OF ARRAY FROM LCTR AND STORE INF6D01530
REM LCTR. F6D01531
SUB L,1 F6D01540
STO LCTR F6D01550
TIX SEA,1,1 UPDATE ARRAY NAME TABLE COUNTER AND G0 SEE IF F6D01560
REM IN DEV. F6D01561
TRA ENDA F6D01570
A17 LXD N,1 RESTORE ARRAY NAME COUNTER F6D01580
CLA LCTR F6D01590
TIX SEA,1,1 DECREMENT ARRAY NAME COUNTER F6D01600
TRA ENDA WHEN ALL ARRAY NAMES TREATED, GO TO LOADER. F6D01610
ENDA BSS F6D01620
RTB 1 F6D01630
TRA 4 F6D01640
EOF1 TSX 4,4 F6D01650
SUM HTR 0 F6D01660
C2 OCT 000001000000 F6D01670
LIB1 HTR 0 F6D01680
IR2 HTR 0 F6D01690
DPCH1 CLA UPPER-2 F6D01691
SUB C2 F6D01692
STO HERE F6D01693
SUB C2 F6D01694
TRA SZYES+1 F6D01695
HERE HTR 0 F6D01696
DPCH2 LXD N,1 F6D01700
CLA HERE F6D01701
TPL A20 F6D01702
CLA STS,1 F6D01703
TRA A19 F6D01704
DPCH3 SXD SVIT,1 F6D01705
TRA A13 F6D01706
SVIT HTR 0 F6D01707
END F6D01708
REM ************* FORTRAN II SECTION SIX ************************F6E00010
REM FORTRAN 2 RECORD 100 - COMMON MAPPING. F6E00011
REM F6E00012
REM CONTROL ENTERS THIS RECORD AT LOCATION 210 (OCTAL). F6E00013
REM F6E00014
RST 10,1 F6E00015
REM LIST STORAGE FOR VARIABLES F6E00020
REM APPEARING IN COMMON SENTENCES, F6E00030
REM LOCATIONS IN BOTH DECIMAL ANO OCTAL F6E00040
ME2 SYN 133 F6E00050
ORG 136 F6E00060
REW 2 REWIND TAPE 2 F6E00070
FIL RTD 2 SPACE OVER SOURCE PROGRAM. F6E00080
CPY LIN F6E00090
TRA FIL F6E00100
LXA ME2,1 =1 IF COMMON TABLE, =0 IF NO COMMON TABLE. F6E00110
TXL ENDS,1 IF NO COMMON TABLE, GO TO ENDS. F6E00120
LXD DEVL,1 TABLE LENGTH OF DEV. F6E00130
TXL ENDS,1 IF NO DEV TABLE, GO TO ENDS F6E00140
TSX SPACE,4 GO TO WRITE TITLE AND HEADINGS. F6E00150
TITLE,,20 F6E00160
TSX SPACE,4 F6E00170
CHEAD,,20 F6E00180
CNL LXD LNC,2 SET TAPE 2 BLOCK LENGTH TO 20 F6E00190
CNW CLA DEA,1 TEST FOR COMMON, F6E00200
SUB L3 I.E. SEE IF LOCATION OF SYMBOL IS IN RANGE OF F6E00210
REM COMMON F6E00211
TZE B4 NOT IN C0MMON. F6E00220
TMI B4 NOT IN COMMON. F6E00230
CAL BLANKS YES, IN COMMON. F6E00240
SLW LIN+1,2 STORE BLANKS IN TWO WORDS OF TAPE 2 ENTRY. F6E00250
SLW LIN+2,2 F6E00260
LDQ DEV,1 SELECT SYMBOL AND F6E00270
LXA SIX,4 CONVERT. F6E00280
SIX LGL 6 BRING ONE CHARACTER OF SYMBOL INTO AC. F6E00290
SLW SYM F6E00300
ANA 6BITS TEST IF CHARACTER IN AC IS A BLANK. F6E00310
SUB BLANK F6E00320
TZE CNA YES, THEN FINISHED. I.E. SYMBOLIC NAME IN 2ND F6E00330
REM WORD OF ENTRY. F6E00331
CAL SYM F6E00340
SLW LIN+2,2 F6E00350
TIX SIX,4,1 F6E00360
CNA CLA DEA,1 T0 GET BCD IMAGE OF DECIMAL LOCATION. F6E00370
STA LOC F6E00380
LXA ONE,4 F6E00390
LDQ LOC F6E00400
CNV CLA TEN F6E00410
TLQ FIN F6E00420
PXD REMAINDERS STORED IN DIG-1,... THAT IS, IF 205 F6E00430
REM (OCTAL) F6E00431
DVP TEN WERE THE NUMBER IN LOC, WE GET A BINARY 3 IN F6E00440
REM DIG-1, ... F6E00441
SLW DIG,4 3 IN DIG-2, IN DIG-3 F6E00450
TXI CNV,4,1 F6E00460
FIN STQ DIG,4 F6E00470
CAL BLANKS F6E00480
DEC ALS 6 F6E00490
ORA DIG,4 SET UP BCD IMAGE OF DEC. NO. AS 3 BLANKS,1,3,3.F6E00500
TIX DEC,4,1 F6E00510
SLW LIN+3,2 STORE DECIMAL LOCATION IN 3RD WORD OF ENTRY. F6E00520
CLA LOC F6E00530
LRS 15 F6E00540
CAL BLANK F6E00550
TNO OCT F6E00560
OCT ALS 3 TO SET UP BCD IMAGE OF OCTAL LOCATION F6E00570
LLS 3 THE TRANSFER IS ON NO OVERFLOW SINCE WHEN ALL F6E00580
TNO OCT 15 BITS OF LOC HAVE BEEN CONVERTED, A BIT FROM F6E00590
REM REMAINING BLANK WILL ENTER P POSITION OF ACC. F6E00591
SLW LIN+4,2 STORE OCTAL LOCATION IN 4TH WORD OF ENTRY F6E00600
TNX NT2,1,1 GO TO NT2 IF NO MORE ENTRIES IN DEV TABLE F6E00610
TIX CNW,2,4 IF ROOM FOR MORE 4-WORD ENTRIES IN 20-WD RECORDF6E00620
REM REPEAT F6E00621
TSX WRITE,4 F6E00630
LNC LIN+1,,20 F6E00640
TRA CNL F6E00650
B4 TNX WLL,1,1 IF NO MORE WORDS IN DEV TABLE, GO TO WLL. F6E00660
TRA CNW F6E00670
SPACE WTD 2 F6E00680
CPY BLANKS WRITE A BLANK RECORD TO PROVIDE A SPACE. F6E00690
WRITE WTD 2 F6E00700
CLA 1,4 TO SET INITIAL LOCATION AND NO. OF WORDS TO BE F6E00710
REM WRITTEN. F6E00711
STA POOP F6E00720
PDX 0,2 F6E00730
POOP CPY *,2 F6E00740
TIX POOP,2,1 F6E00750
IOD F6E00760
TRA 2,4 ALL WORDS IN RECORD WRITTEN. RETURN T0 PROGRAM F6E00770
WLL TXI NT2,2,4 F6E00780
NT2 PXD 0,2 STORE IN LND ADDRESS F6E00790
STO LND AND DECREMENT 20-NO. OF WORDS IN FINAL RECORD F6E00800
REM OF TTAPE,2. F6E00801
ARS 18 SUBTRACT THIS FROM LNE F6E00810
STA LND TO GET ADDRESS AND F6E00820
CLA LNE DECREMENT FOR WRITING F6E00830
SUB LND FINAL RECORD F6E00840
STO LND F6E00850
TSX WRITE,4 F6E00860
LND F6E00870
ENDS BSS F6E00880
STZ EA SET EA=0 F6E00890
TRA 4 AND GO TO LOADER F6E00900
LNE LIN+5,,24 F6E00910
BSS 40 F6E00920
BLANKS BCD 1 F6E00930
BLANK BCD 100000 F6E00940
6BITS OCT 77 F6E00950
TEN DEC 10 F6E00960
LOC DEC 0 F6E00970
BCD 4 F6E00980
BCD 6 STORAGE FOR VARIABLES APPEARING IN F6E00990
BCD COMMON SENTENCES F6E01000
TITLE BSS F6E01010
BCD DEC OCT DEC OCT F6E01020
BCD DEC OCT DEC OCT DEC OCT F6E01030
CHEAD BSS F6E01040
BSS 19 F6E01050
LIN BSS 1 F6E01060
DIG BES 6 F6E01070
SYM BSS 1 F6E01080
END START F6E01090
REM AST
REM ************* FORTRAN II SECTION SIX ************************F6F00010
REM FORTRAN 2 RECORD 101 - FORTRAN FUNCTION ASSN F6F00011
REM F6F00012
REM CONTROL ENTERS THIS RECORD AT LOCATION 210. F6F00013
REM F6F00014
RST 10,1 F6F00015
REM ENTER FORTRAN FUNCTION NAMES IN TDEV F6F00020
ORG 136 F6F00030
LXD DEVS,1 F6F00040
GO TXL IFMT,1 F6F00050
CLA DEVA IF PREVIOUS ENTRIES, UPDATE DECREMENT OF EDEV3 F6F00060
ADD DEVA WHICH WILL CONTAIN THE MAX. POWER OF 2 EX- F6F00070
STD EDEV3 PRESSIBLE IN THE NO. OF DEV TABLE ENTRIES F6F00080
IFMT BSS F6F00090
TRA FPCH1 F6F00100
LIB24 RDR 3 SELECT DRUM 3. F6F00110
NFA PXD 1024 TABLE FROM F6F00120
STO LIBD SET LIBD EQUAL TO ZERO. F6F00130
LDA NFA LOCATE FORSUB (FORTRAN FUNCTION) TABLE. F6F00140
CAD FORT TO READ WORD COUNT OF FORSUB TABLE, SAVE IT IN F6F00150
COM FORT AND F6F00160
CAD SUM CHECK. F6F00170
COM F6F00180
TZE RFS F6F00190
TIX LIB24,4,1 IF DRUM READ ERROR, F6F00200
TSX 4,4 F6F00210
RFS LXD FORT,3 TEST IF ANY FORTRAN FUNCTIONS. F6F00220
TXL RDRM,2 IF NOT, GO TO RETURN TO LOADER. F6F00230
LXA LOC15,4 IF YES, SET DRUM READ ERROR COUNTER F6F00240
LIB25 RDR 3 AND READ FORSUB TABLE F6F00250
TFA PXD 1026 INTO FORT-WDCT THRU FORT-1. F6F00260
LDA TFA F6F00270
CFS CAD FORT,2 F6F00280
TIX CFS,2,1 F6F00290
CPY SUM F6F00300
COM F6F00310
CAD SUM F6F00320
COM F6F00330
TZE FORS CHECK SUM OKAY. F6F00340
TIX LIB25,4,1 IF CHECK SUM ERROR, REPEAT F6F00350
TSX 4,4 F6F00360
FORS SXD FORM,1 SAVE WD COUNTER IN DECREMENT OF FORM. F6F00370
CLA FORT,1 SELECT FUNCTION SYMBOL, ANO GO TO F6F00380
TSX SDEV,4 DEV TABLE F6F00390
TSX EDEV,4 IF NOT IN TABLE, GO TO ENTER IT WITH LOCATION F6F00400
TXI FORE ZERO, AND TRANSFER TO FORE. F6F00410
LXD FORM,1 RETURN HERE IF SYMBOL WAS FOUND IN DEV. F6F00420
CLA FORT,1 ENTER SYMBOL F6F00430
LXD LIBD,2 IN LIBP TABLE. F6F00440
TXI FORD,2,1 F6F00450
FORD STO LIBP,2 F6F00460
SXD LIBD,2 F6F00470
TIX FORS,1,2 END OF FORSUB TABLE. NO, GO TO SELECT NEXT F6F00480
REM FUNCTION SYMBOL F6F00481
FORM TXI RDRM YES, GO TO LOADER. F6F00490
FORE LXD FORM,1 RESTORE TABLE WORD-COUNTER. END OF FORSUB TABLEF6F00500
TIX FORS,1,2 NO, DECREMENT COUNTER AND GO TO READ NEXT F6F00510
REM FUNCTION SYMBOL F6F00511
RDRM RTB 1 YES, GO TO LOADER F6F00520
TRA 4 F6F00530
EDEV TXI EDEV0,2,1 FOR COMMENTS, SEE RECORD 96. F6F00540
EDEV0 SXD EDEV1,2 F6F00550
STO ENTRY F6F00560
LXD DEVL,2 F6F00570
TXI EDEV2,2,1 F6F00580
EDEV2 SXD DEVL,2 F6F00590
EDEV3 TXL EDEV1,2,**+0 F6F00600
CAL DEVS F6F00610
ADD DEVA F6F00620
SLW DEVS F6F00630
STD DEVA F6F00640
ADD DEVA F6F00650
STD EDEV3 F6F00660
EDEV1 TXH EDEV4,2,** F6F00670
CAL ENTRY F6F00680
SLW DEV,2 F6F00690
CLA EA F6F00700
SLW DEA,2 F6F00710
TRA 1,4 F6F00720
EDEV4 CAL DEV+1,2 M0VE TABLE F6F00730
SLW DEV,2 ENTRIES. F6F00740
CAL DEA+1,2 F6F00750
SLW DEA,2 F6F00760
TXI EDEV1,2,-1 F6F00770
LOC15 HPR 15 F6F00780
MI1 PZE -1 F6F00781
DCR1 OCT 1000000 F6F00782
SAV HTR 0 F6F00783
FPCH1 CLA UPPER-2 WORD COUNT OF SUBDEF TABLE. F6F00784
SUB DCR1 F6F00785
TZE GOHD+1 NO ARGUMENTS. F6F00786
TMI GOHD+1 NO ARGUMENTS. F6F00787
STD ETST ARGUMENTS TO ENTER IN DEV. F6F00788
LXD DCR1,1 F6F00789
CLA MI1 F6F00790
STO EA SET EA TO ALL 7 S. F6F00791
GOFIX SXD SAV,1 F6F00792
CLA UPPER-3,1 SELECT ARGUMENT. F6F00793
TSX SDEV,4 GO SEARCH DEV FOR IT. F6F00794
TSX EDEV,4 NOT IN SO ENTER IN DEV F6F00795
TRA *+3 AND TRANSFER. F6F00796
CLA EA ALREADY IN DEV. ENTER F6F00797
STO DEA,2 LOCATION AS ALL 7S. F6F00798
LXD SAV,1 F6F00799
TXI *+1,1,1 F6F00800
ETST TXH GOHD,1,** TEST FOR ANY MORE ARGS. F6F00801
TRA GOFIX F6F00802
GOHD STZ EA RESET EA TO ZERO. F6F00803
RNF LXA LOC15,4 SET DRUM READ ERROR COUNTER F6F00804
TRA LIB24 F6F00805
BSS 15 F6F00806
SUM F6F00807
LIBD F6F00810
LIBP BES 100 F6F00820
FORT BES 100 F6F00830
END START F6F00840
REM AST
REM ************* FORTRAN II SECTION SIX ************************F6G00010
REM FORTRAN 2 RECORD 103 - FIRST PASS OF CIT TAPE. F6G00011
REM F6G00012
REM CONTROL ENTERS THIS RECORD AT LOCATION 210. F6G00013
REM F6G00014
RST 10,1 F6G00015
REM INITIALIZE FIRST TAPE PASS F6G00020
ORG 136 F6G00030
MDEA LXD DEVL,1 COMPUTE NUMBER OF F6G00040
LDEA PXD DEA,1 ENTRIES IN DEV F6G00050
ARS 18 TABLE. F6G00060
STO D COMPUTE ADDRESS OF F6G00070
SBM TDEV DEA TABLE TO MOVE F6G00080
STA ADEV IT TO END OF F6G00090
STA LIFN DEV TABLE. F6G00100
TRA GPCH1 F6G00110
RETN TXL PREP,1 TEST FOR NO ENTRIES IN DEV. F6G00120
STA MDAS YES. F6G00130
MDAL CLA DEA,1 MOVE LOCATIONS TO F6G00140
MDAS STO *,1 END OF DEV TABLE. F6G00150
TIX MDAL,1,1 F6G00160
PREP CLA EIFN COMPUTE ADDRESS FOR F6G00170
ARS 18 TEV TABLE F6G00180
LDQ D WILL FOLLOW THE MOVED F6G00190
TLQ MVIF DEA TABLE F6G00200
CLA D ALLOWS FOR IFN F6G00210
ADD ONE TABLE TO BE STORED F6G00220
MVIF SBM ADEV IN DECREMENT OF DEA F6G00230
STA ETEV5 TABLE HENCE IF IFN IS F6G00240
STA ETEV6 LONGER THAN DEA IFN F6G00250
STA ETEV7 LENGTH IS USED IN F6G00260
STA TTEV COMPUTING ADDRESS OF F6G00270
SBM ONE TEV TABLE F6G00280
STA ETEV4 F6G00290
PXD STORE ONES IN F6G00300
STZ L1 SET PROGRAM BREAK=0 F6G00310
STZ L2 SET PROGRAM COUNTER=0 F6G00320
COM SOTRE ONES IN TEV AND TIV F6G00330
ETEV7 SLW TEV TABLES INITIAL F6G00340
STO TIV ENTRIES. F6G00350
SLW TIV+1 F6G00360
LXA RDC,2 SET READ ERROR COUNTER AND F6G00370
TRA RD GO TO READ CITS FROM TAPE 4 F6G00380
ERR BST 4 F6G00390
TIX RD,2,1 F6G00400
TSX 4,4 F6G00410
RDC HPR 5 F6G00420
RD RTB 4 READ CIT RECORD FROM TAPE 4. F6G00430
LXA ADDR,4 COUNTER SET=-1 F6G00440
RD1 CPY REC-2,4 COPY CIT RECORD INTO REC-1,-2, F6G00450
TXI RD1,4,1 F6G00460
TRA EOF IF END-OF-FILE REACHED ON TAPE 4. F6G00470
ARS 255 F6G00480
ARS 255 F6G00490
RTT F6G00500
TRA ERR F6G00510
SXD RD2,4 STORE COUNT OF CIT IN RD2 DECR. F6G00520
LXD ADDR,4 SET WORD COUNTER=0 F6G00530
RD4 SXD RD3,4 SAVE IT IN DECREMENT OF RD3 F6G00540
CLA REC-1,4 SELECT FROM REC F6G00550
STO SL SYMBOLIC LOCATION F6G00560
CLA REC-2,4 F6G00570
STO OP SYMBOLIC OP, BINARY DEC F6G00580
CLA REC-3,4 F6G00590
STO SA SYMBOLIC ADDRESS F6G00600
CLA REC-4,4 RELATIVE ADDRESS, TAG F6G00610
STO RA SET EA TO ZERO. F6G00620
PXD SET EA TO ZERO F6G00630
STO EA F6G00640
CAL OP SELECT SYMBOLIC OP. F6G00650
LRS 18 IS OP=OCT. F6G00660
CAS OCT F6G00670
TRA SA1 GO TO SA1 SINCE OP IS NEITHER OCT NOR BCD. F6G00680
TRA ORDOP YES, OP IS OCTAL. GO TO ORDOP F6G00690
CAS BCD IS OP BCD. F6G00700
TRA SA1 OP IS NEITHER OCT NOR BCD. F6G00710
TRA ORDOP YES, OP IS BCD. GO TO ORDOP F6G00720
SA1 CAL SA IF OP NOT BCD OR OCT SELECT SYMBOLIC ADDRESS F6G00730
TZE SA2 SA EQUAL ZERO. GO TO SA2 TO SET EA=0 F6G00740
LRS 30 TEST SA(1), I.E., FIRST 6-BIT CHARACTER OF SA F6G00750
PAX 0,4 TO DETERMINE THE TYPE OF SYMBOL IT IS. F6G00760
TXH SA4,4,15 TRANSFER IF FIRST CHAR. IS GREATER THAN 15. F6G00770
TRA SAT,4 F6G00780
TRA SA8 SA(1) EQUAL FIFTEEN F6G00790
TRA SA6 SA(1) EQUAL FOURTEEN F6G00800
TRA SA6 SA(1) EQUAL THIRTEEN F6G00810
TRA SA9 SA(1) EQUAL TWELVE F6G00820
TRA SA5 SA(1) EQUAL ELEVEN F6G00830
TRA SA6 SA(1) EQUAL TEN F6G00840
TRA SA5 SA(1) EQUAL NINE F6G00850
TRA SA6 SA(1) EQUAL EIGHT F6G00860
TRA SA9 SA(1) EQUAL SEVEN F6G00870
TRA SA5 SA(1) EQUAL SIX F6G00880
TRA SA9 SA(1) EQUAL FIVE F6G00890
TRA SA9 SA(1) EQUAL FOUR F6G00900
TRA SA5 SA(1) EQUAL THREE F6G00910
TRA SA5 SA(1) EQUAL TWO F6G00920
TRA SA9 SA(1) EQUAL ONE F6G00930
SAT TRA SA3 SAI1) EQUAL ZERO F6G00940
SA9 RQL 14 TAG CELL(12), ARITH ERASE(1), F6G00950
LGL 17 FUNCT ERASE(7), LIB(4), F6G00960
TSX STIV,4 ASSIGN CONSTANTS(5). ASSEMBLE SYmBOL AND F6G00970
TSX ETIV,4 PUT IN TIV TABLE WHERE A TIV TABLE ENTRY F6G00980
STA TRV HAS SYMBOL IN S-21 AND HAS LOCATION IN 22-35. F6G00990
LDQ TRV F6G01000
CLA RA F6G01010
SSM SELECT RA AS LENGTH F6G01020
ARS 18 TO STORE AS ADDRESS F6G01030
TLQ SA5 OF TIV ENTRY IF RA F6G01040
STA TIV,2 IS LONGER F6G01050
TRA SA5 F6G01060
SA6 RQL 14 FORMAT(8) F6G01070
LGL 17 F6G01080
SA7 TSX STIV,4 PUT IN TIV TABLE F6G01090
TSX ETIV,4 IF NOT IN ALREADY. F6G01100
TRA SA2 TRANSFER WITH SA IN AC TO STORE ADDRESS OF SA F6G01110
REM IN EA. F6G01111
SA4 CLA SA SA(1) GREATER THAN 15. F6G01120
SUB DOL1 TRANSFER IF ONE DOLLAR SIGN F6G01130
TZE LIB3 F6G01140
ADD DOL1 F6G01150
SUB DOL2 TRANSFER IF TWO DOLLAR SIGNS F6G01160
TZE LIB4 F6G01170
CLA SA ORDINARY SYMBOL. F6G01180
TSX SDEV,4 SEARCH DEV TABLE. F6G01190
TSX STEV,4 NOT IN. GO TO SEARCH TEV TABLE. F6G01200
TSX ETEV,4 NOT IN. ENTER IN TEV. F6G01210
TRA SA2 IF FOUND IN DEV OR TEV, LOCATION LEFT IN AC + F6G01220
REM GO TO STA F6G01221
LIB3 CLA DOLSI SET LOCATION EQUAL TO ADDR. PART OF DOLSI F6G01230
TRA SA2 F6G01240
LIB4 CLA DOLSI F6G01250
ARS 18 F6G01260
TRA SA2 F6G01270
SA3 LXA SA,4 NORMAL INST(0) F6G01280
TXL SA5,4,0 TRANSFER IF IFN TYPE. F6G01290
LGL 13 ADDRESS PART NOT EQUAL ZERO, PUT ADDRESS PART F6G01300
RQL 10 OF SA IN SYMBOL AND STORE IN TIV. F6G01310
LGL 6 F6G01320
TRA SA7 F6G01330
SA8 CLA L1 PROG COUNTE(I15) F6G01340
SA2 STA EA STORE IN EA ADDRESS LEFT IN AC FROM 1 OF ABOVE,F6G01350
SA5 BSS CONSTANTS2,3,6,9,11 F6G01360
OPCAS CAL OP F6G01370
LRS 18 IS OP BSS OR SYN. F6G01380
CAS SYN SYN OP F6G01390
TRA ORDOP NEITHER F6G01400
TRA SYNOP OP IS SYN. GO TO SYNOP F6G01410
CAS BSS F6G01420
TRA ORDOP OP IS NEITHER BSS OR SYN F6G01430
TRA BSSOP 0P IS BSS. GO TO BSSOP. F6G01440
ORDOP CLA L1 OP NOT SYN OR BSS. F6G01450
STO L2 F6G01460
ADD ONE UPDATE L1 BY 1. F6G01470
STO L1 F6G01480
TRA SLS F6G01490
BSSOP CLA L1 FOR BSS OP, F6G01500
STO L2 F6G01510
CLA RA UPDATE L1 BY F6G01520
ARS 18 RELATIVE ADDRESS. F6G01530
ADD L1 F6G01540
STO L1 F6G01550
TRA SLS F6G01560
SYNOP CLA EA FOR SYN OP, F6G01570
STO L2 SET L2 EQUAL F6G01580
TNZ SLS TO SYN ADDRESS. F6G01590
TSX 4,4 F6G01600
SLS CAL SL FOR ALL OPS TEST SYMBOLIC LOCATION. F6G01610
TZE SL6 SL ZERO. F6G01620
LRS 30 F6G01630
TZE SL1 SL(1) ZERO. TRANFER. F6G01640
PAX 0,4 F6G01650
TXH SL2,4,15 SL(1) OVER 15 F6G01660
TXH SL3,4,14 SL(1) EQUAL 15 F6G01670
RQL 14 SL(1) LESS 15 F6G01680
LGL 17 F6G01690
TSX STIV,4 IS SYMBOL IN TIV. F6G01700
TRA SL5 NO. F6G01710
SL8 CLA L2 YES, PUT L2 AS LOCATION F6G01720
STA TIV,2 IN TIV TABLE. F6G01730
TRA SL6 F6G01740
SL5 CLA L2 PUT L2 IN AS F6G01750
STA ENTRY LOCATION AND STORE F6G01760
TSX ETIV,4 SYMBOL AND LOCATION F6G01770
TRA SL6 IN TIV TABLE. F6G01780
SL1 LXA SL,4 SL(1) EQUAL ZERO. F6G01790
TXL SL7,4 TRANSFER IF IFN TYPE. F6G01800
LGL 13 OTHERWISE, ASSEMBLE SYMBOL. F6G01810
RQL 10 F6G01820
LGL 6 IS SYM IN TIV TABLE. F6G01830
TSX STIV,4 NO F6G01840
TRA SL6 YES F6G01850
TRA SL8 YES. GO TO STORE L2 AS LOCATION IN TIV TABLE F6G01860
SL2 CLA SL F6G01870
SUB DOL1 F6G01880
TZE LIB1 EXIT TO LIB1 IF SL EQUAL DOL1 ($ 0000) F6G01890
ADD DOL1 F6G01900
SUB DOL2 F6G01910
TZE LIB2 EXIT TO LIB2 IF SL EQUAL DOL2 ($$ 000) F6G01920
TRA SL6 F6G01930
LIB1 CLA L2 STORE L2 IN ADDRESS OF DOLSI. F6G01940
STA DOLSI F6G01950
TRA SL6 F6G01960
LIB2 CLA L2 STORE L2 IN DECREMENT OF DOLSI F6G01970
ALS 18 F6G01980
STD DOLSI F6G01990
TRA SL6 F6G02000
SL7 LXD SL,4 STORE LOCATION F6G02010
CLA L2 OF INTERNAL FORMULA F6G02020
ALS 18 NUMBER AS L2, F6G02030
SL9 STD IFN,4 F6G02040
SL3 BSS SL(1) EQUAL 15 F6G02050
SL6 BSS F6G02060
LXD RD3,4 F6G02070
TXI RD2,4,4 F6G02080
RD2 TXL RD4,4,** F6G02090
LXA RDC,2 F6G02100
RD3 TXI RD,0,** F6G02110
EOF LXD TEVL,1 AT END OF CIT TAPE. F6G02120
TXL DIVL,1 ANY ENTRIES IN TEV TABLE. IF NOT GO TO DIVL. F6G02130
PXD 0,1 YES. F6G02140
ARS 18 REDUCE LCTR BY NUMBER F6G02150
SUB LCTR OF ENTRIES IN TEV AND F6G02160
SLW LCTR STORE IN LTEV. F6G02170
SLW LTEV F6G02180
DIVL LXD TIVL,2 ANY ENTRIES IN TIV TABLE. F6G02190
TXI SIVL,2,1 F6G02200
SIVL TXL DONE,2 NO ENTRIES IN TIV, GO TO DONE. F6G02210
CAL TIV,2 YES, OBTAIN LENGTH F6G02220
STA D FROM TIV TABLE. F6G02230
ARS 14 F6G02240
PDX 0,1 F6G02250
TRA TYPE,1 F6G02260
TRA SIVT 15 F6G02270
TRA SIVT 14 F6G02280
TRA SIVT 13 F6G02290
TRA CIVL 12 F6G02300
TRA SIVT 11 F6G02310
TRA SIVT 10 F6G02320
TRA SIVT 9 F6G02330
TRA SIVT 8 F6G02340
TRA CIVL 7 F6G02350
TRA SIVT 6 F6G02360
TRA SIVT 5 F6G02370
GIVL TXI EIVL 4 F6G02380
TRA SIVT 3 F6G02390
TRA SIVT 2 F6G02400
TRA CIVL 1 F6G02410
TYPE TRA SIVT 0 F6G02420
EIVL ARS 1 TYPE4 F6G02430
ALS 21 IF DECR. EQUAL ZERO, GO TO SAVE INDEX. F6G02440
TZE FIVL TYPE1,7,12 F6G02450
CIVL CLA LCTR TYPE1,7,12 F6G02460
SUB D REDUCE LCTR BY LENGTH F6G02470
STA TIV,2 STORE AS LOCATION IN TIV. F6G02480
SUB ONE MODIFY LOCATION COUNTER. F6G02490
STO LCTR F6G02500
SIVT TXI SIVL,2,1 MODIFY TO SELECT NEXT SYMBOL F6G02510
FIVL SXD GIVL,2 F6G02520
TXI SIVL,2,1 F6G02530
DONE LXD GIVL,2 LOCATION OF 4)0 F6G02540
CLM STORE ALL 7 S IN ADDRESS PART F6G02550
COM OF 4) TIV ENTRY AND F6G02560
STA TIV,2 RETURN F6G02570
RTB 1 TO F6G02580
TRA 4 LOADER. F6G02590
ETEV TXI ETEV0,2,1 F6G02600
ETEV0 SXD ETEV1,2 F6G02610
STO ENTRY F6G02620
LXD TEVL,2 F6G02630
TXI ETEV2,2,1 F6G02640
ETEV2 SXD TEVL,2 F6G02650
ETEV3 TXL ETEV1,2,**+0 F6G02660
CAL TEVS F6G02670
ADD TEVA F6G02680
SLW TEVS F6G02690
STD TEVA F6G02700
ADD TEVA F6G02710
STD ETEV3 F6G02720
ETEV1 TXH ETEV4,2,* F6G02730
CAL ENTRY F6G02740
ETEV5 SLW TEV,2 F6G02750
TRA 1,4 F6G02760
ETEV4 CAL TEV+1,2 F6G02770
ETEV6 SLW TEV,2 F6G02780
TXI ETEV1,2,-1 F6G02790
TEVA 2,0,**+1 F6G02800
ETIV TXI ETIV5,2,-1 F6G02810
ETIV5 SXD ETIV1,2 F6G02820
LXD TIVL,2 F6G02830
TXI ETIV2,2,-1 F6G02840
ETIV2 SXD TIVL,2 F6G02850
TXI ETIV3,2,1 F6G02860
ETIV3 TXH ETIV1,2,**-2 F6G02870
CAL TIVS F6G02880
ADD TIVA F6G02890
SLW TIVS F6G02900
STD TIVA F6G02910
ADD TIVA F6G02920
STD ETIV3 F6G02930
ETIV1 TXL ETIV4,2,* F6G02940
CAL ENTRY F6G02950
SLW TIV,2 F6G02960
TRA 1,4 F6G02970
ETIV4 CAL TIV-1,2 F6G02980
SLW TIV,2 F6G02990
TXI ETIV1,2,1 F6G03000
TIVA 2,0,**-1 F6G03010
SYN BCD 1000SYN F6G03020
OCT BCD 1000OCT F6G03030
BSS BCD 1000BSS F6G03040
BCD BCD 1000BCD F6G03050
TRV MZE F6G03060
SL HTR 0 F6G03070
OP HTR 0 F6G03080
SA HTR 0 F6G03090
RA HTR 0 F6G03100
DOL1 BCD 1$ 0000 F6G03110
DOL2 BCD 1$$ 000 F6G03120
GPCH1 STA SL9 F6G03121
STA *+2 F6G03122
LXD EIFN,2 F6G03123
STZ IFN,2 F6G03124
TIX *-1,2,1 F6G03125
TRA RETN F6G03126
BSS 34 F6G03130
REC BES 100 F6G03140
END START F6G03150
REM AST
REM ************* FORTRAN II SECTION SIX ************************F6H00010
REM FORTRAN 2 RECORD 105 - MAP FORTRAN FUNCTIONS. F6H00011
REM F6H00012
RST 10,1 F6H00013
REM IN TDEV F6H00020
ME8 SYN 134 F6H00030
ORG 136 F6H00040
RNF LXA LOC15,4 SET DRUM READ ERROR COUNTER. F6H00050
LIB27 RDR 3 SELECT DRUM 3 AND F6H00060
NFA PXD 1024 LOCATE FORSUB (FORTRAN FUNCTION) TABLE F6H00070
LDA NFA F6H00080
CAD FORT READ WORD COUNT OF TABLE. F6H00090
COM F6H00100
CAD SUM F6H00110
COM F6H00120
TZE RFS TRANSFER IF NO READ ERROR. F6H00130
TIX LIB27,4,1 READ-ERROR PROCEOURE F6H00140
TSX 4,4 F6H00150
RFS LXD FORT,3 SET INDEX REGISTERS 1 AND 2 EQUAL F6H00160
REM FORSUB WORD COUNT F6H00161
TXL LIB36,1 TRANSFER IF NO FORTRAN FUNCTIONS. F6H00170
CLA ADEV INITIALIZE ADDRESSES WITH INITIAL F6H00180
STA AFOR LOCATION OF DEA TABLE (ALSO IFN TABLE) F6H00190
CLA LIFN F6H00200
STA GIFN F6H00210
LXA LOC15,4 DRUM READ ERROR COUNTER. F6H00220
LIB28 RDR 3 F6H00230
TFA PXD 1026 READ FORTRAN FUNCTION (FORSUB) F6H00240
LDA TFA TABLE FROM DRUM (2-WORD ENTRIES) INTO F6H00250
CFS CAD FORT,2 FORT-WD. CT,..., FORT-1. F6H00260
TIX CFS,2,1 F6H00270
CPY SUM F6H00280
COM F6H00290
CAD SUM F6H00300
COM F6H00310
TZE FORS TRANSFER IF CHECK SUM OKAY. F6H00320
TIX LIB28,4,1 F6H00330
TSX 4,4 F6H00340
FORS SXD FORM,1 SAVE COUNT OF FUNCT. F6H00350
CLA FORT,1 IS FUNCTION IN F6H00360
TSX SDEV,4 DEV TABLE. F6H00370
LXD FORM,1 NO, ERROR. F6H00380
TSX 4,4 F6H00390
LXD FORM,1 YES. EXIT HERE FROM SDEV WITH APPROPRIATE F6H00400
REM COUNTER IN XR2. F6H00401
CLA FORT+1,1 OBTAIN FORMULA F6H00410
PDX 0,4 NUMBER. F6H00420
GIFN CLA IFN,4 GET LOCATION FROM F6H00430
ARS 18 IFN TABLE. F6H00440
AFOR STA FORF,2 STORE LOCATION IN DEA TABLE. F6H00450
STA FORT+1,1 STORE LOCATION IN FORT (INTERNAL TABLE). F6H00460
TIX FORS,1,2 F6H00470
REM LIST NAMES OF FORTRAN FUNCTIONS WITH CORRESPONDING F6H00480
REM INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS F6H00490
LXD FORT,1 F6H00500
TSX SPACE,4 F6H00510
TITLE,,20 F6H00520
TSX SPACE,4 F6H00530
CHEAD,,20 F6H00540
CNL LXD LNC,2 SET TAPE TWO BLOCK LENGTH TO 20. F6H00550
CNW CAL BLANKS F6H00560
SLW LIN+1,2 STORE BLANKS IN FIRST WORD OF ENTRY. F6H00570
LDQ FORT,1 SELECT SYMBOL F6H00580
LXA SIX,4 AND CONVERT. F6H00590
SIX LGL 6 BRING ONE CHARACTER OF SYMBOL INTO ACC. F6H00600
SLW SYM F6H00610
ANA 6BITS TEST IF CHARACTER IN ACC. IS A BLANK. F6H00620
SUB BLANK F6H00630
TZE CNA BLANK, THEN FINISHED. SECOND WORD OF ENTRY HAS F6H00640
REM COMPLETE SYMBOL. F6H00641
CAL SYM NOT BLANK, STORE IN SECOND WORD AND F6H00650
SLW LIN+2,2 GO TO TEST NEXT CHARACTER F6H00660
TIX SIX,4,1 UNLESS SIX HAVE BEEN TREATED. F6H00670
CNA CLA FORT+1,1 TO GET BCD IMAGE OF DECIMAL INTERNAL FORMULA NOF6H00680
ARS 18 (DECREMENT OF SECOND WORD OF TWO WORD ENTRIES F6H00690
STA LOC FORT TABLE CONTAINS INTERNAL FORMULA NUMBER.) F6H00700
LXA ONE,4 F6H00710
LDQ LOC F6H00720
CNV CLA TEN F6H00730
TLQ FIN F6H00740
PXD F6H00750
DVP TEN F6H00760
SLW DIG,4 (SAVING REMAINDERS). F6H00770
TXI CNV,4,1 F6H00780
FIN STQ DIG,4 F6H00790
CAL BLANKS F6H00800
DEC ALS 6 F6H00810
ORA DIG,4 F6H00820
TIX DEC,4,1 F6H00830
SLW LIN+3,2 STORE BCD IMAGE OF DECIMAL INTERNAL FORMULA NO.F6H00840
REM 4 IN THIRD WORD OF ENTRY. F6H00841
CLA FORT+1,1 TO GET BCD IMAGE OF OCTAL LOCATION. F6H00850
STA LOC F6H00860
CLA LOC F6H00870
LRS 15 F6H00880
CAL BLANK F6H00890
TNO OCT F6H00900
OCT ALS 3 F6H00910
LLS 3 F6H00920
TNO OCT OVERFLOW OCCURS WHEN ALL 15 BITS OF LOCATION F6H00930
SLW LIN+4,2 HAVE BEEN TREATED. STORE BCD IMAGE OF OCTAL F6H00940
REM LOCATION IN 4TH WORD OF ENTRY. F6H00941
TNX WLL,1,2 TRANSFER IF ALL FUNCTIONS IN FORSUB TREATED. F6H00950
TIX CNW,2,4 TRANSFER IF TARE BLOCK NOT FULL. F6H00960
TSX WRITE,4 WRITE A RECORD ON TARE TWO F6H00970
LNC LIN+1,,20 ANO GO TO CNL TO CORTINUE. F6H00980
TRA CNL F6H00990
SPACE WTD 2 F6H01000
CPY BLANKS F6H01010
WRITE WTD 2 F6H01020
CLA 1,4 F6H01030
STA POOP F6H01040
PDX 0,2 F6H01050
POOP CPY **,2 F6H01060
TIX POOP,2,1 F6H01070
IOD F6H01080
TRA 2,4 F6H01090
WLL PXD 0,2 GET ADDRESS AND DECREMENT TO STORE IN LND F6H01100
STO LND FOR WRITING FINAL RECORD. F6H01110
ARS 18 F6H01120
STA LND F6H01130
CLA LNE F6H01140
SUB LND F6H01150
STO LND F6H01160
TSX WRITE,4 WRITE IT. F6H01170
LND F6H01180
CLA LOC SET ME8 EQUAL TO LOCATION OF LAST FORSUB ENTRY F6H01190
ADD ONE LISTED PLUS ONE.(TO BE USED BY RECORD 110). F6H01200
STO ME8 F6H01210
LIB26 RTB 1 F6H01220
TRA 4 F6H01230
LIB36 STZ ME8 NO FORTRAN FUNCTIONS. SET ME8 EQUAL ZERO AND F6H01240
TRA LIB26 GO TO RETURN TO LOADER. F6H01250
CFOR PXD F6H01260
FORM TXI AFOR+1 F6H01270
LNE LIN+5,,24 F6H01280
LOC15 HTR 15 F6H01290
BLANKS BCD 1 F6H01300
BLANK BCD 100000 F6H01310
6BITS OCT 77 F6H01320
TEN DEC 10 F6H01330
LOC DEC 0 F6H01340
BCD NAMES OF FORTRAN FUNCTIONS WITH CORRESPONDING F6H01350
BCD INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS F6H01360
TITLE BSS F6H01370
BCD IFN LOC IFN LOC F6H01380
BCD IFN LOC IFN LOC IFN LOC F6H01390
CHEAD BSS F6H01400
BSS 40 F6H01410
BSS 19 F6H01420
LIN BSS 1 F6H01430
DIG BES 6 F6H01440
SYM BSS 1 F6H01450
SUM BSS 1 F6H01460
FORT BES 100 F6H01470
END START F6H01480
REM ************* FORTRAN II SECTION SIX ************************F6I00010
REM FORTRAN 2 RECORD 107 - MAP EXT. AND INT. FORMULA NOS. F6I00011
REM F6I00012
REM F6I00013
RST 10,1 F6I00014
REM LIST EXTERNAL FORMULA NUMBERS WITH CORRESPONDING F6I00020
REM INTERNAL FORMULA NUMBERS AND RELATIVE LOCATIONS F6I00030
ORG 136 F6I00040
LXA LOC15,4 SET DRUM READ ERROR COUNTER. F6I00050
REIFN RDR 4 SELECT DRUM 4 TO READ EIFN TABLE. F6I00060
EIFNA PXD 2 F6I00070
LDA EIFNA F6I00080
CAD TEIFN F6I00090
COM F6I00100
CAD SUM F6I00110
COM F6I00120
TZE LEIFN WORD COUNT OKAY. F6I00130
TIX REIFN,4,1 F6I00140
TSX 4,4 F6I00150
LEIFN LXD TEIFN,3 SET XR1+XR2=WD CT OF EIFN TABLE. F6I00160
TXL ENDS,1 ANY FORMULA NOS. NO, GO TO ENDS. F6I00170
LXA LOC15,4 YES, SET READ ERROR COUNTER F6I00180
LIB30 RDR 4 F6I00190
EIFTA PXD 4 READ INTERNAL- F6I00200
LDA EIFTA EXTERNAL FORMULA F6I00210
CEIFN CAD TEIFN,2 NUMBERS INTO TEIFN-WD CT,..., TEIFN-1 F6I00220
TIX CEIFN,2,1 F6I00230
CPY SUM F6I00240
COM F6I00250
CAD SUM F6I00260
COM F6I00270
TZE PEIFN TRANSFER IF OKAY. F6I00280
TIX LIB30,4,1 F6I00290
TSX 4,4 F6I00300
PEIFN TSX SPACE,4 COPY TITLE AND HEADING ON TAPE 2, F6I00310
TITLE,,20 F6I00320
TSX SPACE,4 F6I00330
CHEAD,,20 F6I00340
CLA LIFN SET AT INITIALIZATION OF FIRST PASS. EQUALS F6I00350
STA FIFL LOCATION OF DEA TABLE WHICH HAS IFN TABLE IN F6I00360
REM DECREMENT. F6I00361
CNL LXD LNC,2 SET COUNTER FOR 20-WORD RECORD F6I00370
CNW CAL BLANKS STORE BLANKS IN FIRST WORD OF 4-WORD ENTRY F6I00380
SLW LIN+1,2 F6I00390
CAL TEIFN,1 SELECT EIFN TABLE ENTRY. F6I00400
TSX DCR,4 GO TO CONVERT EXTERNAL FORMULA NO. TO BCD IMAGEF6I00410
SLW LIN+2,2 OF ITS DECIMAL REPRESENTATION AND STORE IT IN F6I00420
REM IN 2ND WORD OF ITS ENTRY. F6I00421
CAL TEIFN,1 F6I00430
ARS 18 GO TO CONVERT INTERNAL FORMULA NO. TO THE BCD F6I00440
TSX DCR,4 IMAGE OF ITS DEC. REPRESENTATION AND STORE IT F6I00450
SLW LIN+3,2 IN 3RD WORD OF ENTRY. F6I00460
LXA LOC,4 SET XR4 TO CURRENT INTERNAL FORMULA NUMBER. F6I00470
FIFL CLA IFN,4 F6I00480
ARS 18 F6I00490
STA LOC LOC NOW CONTAINS LOCATION OF CURRENT INTERNAL F6I00500
CLA LOC FORMULA NUMBER. F6I00510
LRS 15 TO CONVERT THE LOCATION F6I00520
CAL BLANK TO THE BCD IMAGE OF ITS OCTAL F6I00530
TNO OCT REPRESENTATION, AND F6I00540
OCT ALS 3 STORE IT IN THE F6I00550
LLS 3 FOURTH WORD OF THE 4-WORD ENTRY. F6I00560
TNO OCT F6I00570
SLW LIN+4,2 F6I00580
TNX WLL,1,1 TRANSFER WHEN ALL EIFN ENTRIES HAVE BEEN F6I00590
REM TREATED. F6I00591
TIX CNW,2,4 MORE ENTRIES + STILL ROOM IN 20-WORD BLOCK, GO F6I00600
REM TO CNW. F6I00601
TSX WRITE,4 WRITE TAPE 2 BLOCK. F6I00610
LNC LIN+1,,20 F6I00620
DCX TXI CNL F6I00630
DCR SXD DCX,4 F6I00640
STA LOC TO CONVERT ADDRESS F6I00650
LXA ONE,4 IN LOC TO BCD F6I00660
LDQ LOC IMAGE OF DECIMAL F6I00670
CNV CLA TEN LOCATION. F6I00680
TLQ FIN F6I00690
PXD F6I00700
DVP TEN DIVIDE BY TEN AND F6I00710
SLW DIG,4 STORE REMAINDERS. F6I00720
TXI CNV,4,1 F6I00730
FIN STQ DIG,4 F6I00740
CAL BLANKS F6I00750
DEC ALS 6 F6I00760
ORA DIG,4 F6I00770
TIX DEC,4,1 F6I00780
LXD DCX,4 F6I00790
TRA 1,4 RETURN TO PROGRAM. F6I00800
SPACE WTD 2 F6I00810
CPY BLANKS F6I00820
WRITE WTD 2 F6I00830
CLA 1,4 F6I00840
STA POOP F6I00850
PDX 0,2 F6I00860
POOP CPY *,2 F6I00870
TIX POOP,2,1 F6I00880
IOD F6I00890
TRA 2,4 F6I00900
WLL PXD 0,2 TO GET WORD COUNTERS FOR WRITING F6I00910
STO LND FINAL RECORD. F6I00920
ARS 18 F6I00930
STA LND F6I00940
CLA LNE F6I00950
SUB LND F6I00960
STO LND F6I00970
TSX WRITE,4 WRITE FINAL RECORD F6I00980
LND AND F6I00990
ENDS RTB 1 GO TO LOADER. F6I01000
TRA 4 F6I01010
LNE LIN+5,,24 F6I01020
BSS 40 F6I01030
BLANKS BCD 1 F6I01040
BLANK BCD 100000 F6I01050
6BITS OCT 77 F6I01060
TEN DEC 10 F6I01070
LOC DEC 0 F6I01080
LOC15 HTR 15 F6I01090
BCD EXTERNAL FORMULA NUMBERS WITH CORRESPONDINGF6I01100
BCD INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS F6I01110
TITLE BSS F6I01120
BCD EFN IFN LOC EFN IFN LOC EFN F6I01130
BCD IFN LOC EFN IFN LOC EFN IFN LOC F6I01140
CHEAD BSS F6I01150
BSS 19 F6I01160
LIN BSS 1 F6I01170
DIG BES 6 F6I01180
SYM BSS 1 F6I01190
SUM BSS 1 F6I01200
TEIFN BES 750 F6I01210
END START F6I01220
REM ************* FORTRAN II SECTION SIX ************************F6J00010
REM FORTRAN 2 RECORD 109 - MAP PROGRAM. F6J00011
REM F6J00012
RST 10,1 F6J00013
REM RELOCATE DATA DOWN TO LOWER STORAGE F6J00020
REM COMPUTE DELTA EQUAL LCTR MINUS L1 PLUS 1 F6J00030
REM SUBTRACT DELTA FROM ALL LOCATIONS BETWEEN L3 F6J00040
REM AND L1 IN DEV, TEV, AND TIV TABLES F6J00050
REM L1 IS PROGRAM BREAK, L3 IS COMMON BREAK F6J00060
ORG 136 F6J00070
CLA LCTR F6J00080
SUB L1 F6J00090
ADD ONE F6J00100
STO DELTA F6J00110
CLA L1 COMPUTE NEW PROGRAM F6J00120
ADD L3 BREAK AND STORE. F6J00130
SUB LCTR F6J00140
STO PGBK F6J00150
LXD DEVL,1 ANY SYMBOLS IN DEV. F6J00160
TXL A5,1 NO, GO TO AS. F6J00170
CLA ADEV YES. COMPUTE ADORESS OF F6J00180
STA A1 DEA TABLE. F6J00190
STA A4 F6J00200
A1 CLA *,1 SELECT LOCATION F6J00210
STA ERAS1 FROM ADDRESS BITS. F6J00220
CLA ERAS1 F6J00230
CAS L3 F6J00240
TRA A3 LOC GREATER THAN L3, DO NOT RELOCATE. F6J00250
TRA A2 LOC EQUAL L3. GO TO RELOCATE (HAS TO BE GREATERF6J00260
REM THAN L1) F6J00261
CAS L1 LOC LESS THAN L3. IS IT GREATER THAN L1. F6J00270
TRA A2 LOC GREATER THAN L1. GO TO RELOCATE F6J00280
TRA A2 LOC EQUAL L1. GO TO RELOCATE F6J00290
A3 TIX A1,1,1 LOC LESS THAN L1. DO NOT RELOCATE. F6J00300
TRA A5 WHEN ALL DATA EXAMINED AND TREATED. F6J00310
A2 SUB DELTA RELOCATE LOCATION. F6J00320
A4 STA *,1 F6J00330
TRA A3 F6J00340
A5 CLA LTEV TEST LTEV ( LOCATION OF FIRST SYMBOL IN TEV) F6J00350
LXD TEVL,1 SET XR1 WITH WD. COUNT OF TEV ENTRIES. F6J00360
TXL A6,1 IF NO TEV ENTRIES, GO TO EXAMINE TIV. F6J00370
CAS L3 YES, TEV ENTRIES. IS LOCATION BETWEEN L3 ANO L1F6J00380
TRA A6 LOCATION GREATER THAN L3. OONT RELOCATE F6J00390
TRA A7 LOC EQUAL L3. RELOCATE F6J00400
CAS L1 LOC LESS THAN L3. IS IT GREATER THAN OR EQUAL F6J00410
REM L1. F6J00411
TRA A7 YES, RELOCATE F6J00420
TRA A7 YES, RELOCATE F6J00430
TRA A6 LOC LESS THAN L3. DONT RELOCATE. F6J00440
A7 SUB DELTA RELOCATE LOCATION, F6J00450
STO LTEV AND STORE NEW LOCATION IN LTEV. F6J00460
A6 LXD TIVL,1 ANY SYMBOLS IN TIV. F6J00470
TXI NT1,1,1 F6J00480
NT1 TXL B4,1 NO, GO TO WRITE OFF STORAGE NOT USED F6J00490
A10 CLA TIV,1 YES. TEST TIV. F6J00500
STA ERAS1 SELECT LOCATION FROM ADDRESS BITS. F6J00510
CLA ERAS1 F6J00520
CAS L3 F6J00530
TRA A8 NO RELOCATION. F6J00540
TRA A9 RELOCATE. F6J00550
CAS L1 F6J00560
TRA A9 RELOCATE. F6J00570
TRA A9 RELOCATE. F6J00580
A8 TXI NT2,1,1 IF MORE ENTRIES IN TIV TO BE TESTED FOR RELOC- F6J00590
NT2 TXL B4,1 ATION, GO TO TEST TIV. IF DONE, GO WRITE F6J00600
REM STORAGE NOT USED. F6J00601
TRA A10 RELOCATE BY SUBTRACTING DELTA F6J00610
A9 SUB DELTA F6J00620
STA TIV,1 F6J00630
TRA A8 F6J00640
ERAS1 HTR F6J00650
B4 TSX SPACE,4 TO WRITE STORAGE NOT USED BY PROGRAM F6J00660
TITLE,,20 RECORD ON TAPE TWO. F6J00670
TSX SPACE,4 GO TO WRITE TITLE AND HEADINGS. F6J00680
CHEAD,,20 F6J00690
CLA PGBK F6J00700
STO LOC TO LIST PROGRAM BREAK. F6J00710
TSX SUB,4 GO TO CONVERT PROGRAM BREAK TO BCD IMAGES F6J00720
CAL BLANKS OF ITS DECIMAL AND ITS OCTAL F6J00730
SLW LIN-19 REPRESENTATIONS. F6J00740
SLW LIN-18 SET FIRST 2 WORDS OF RECORD TO BLANK. F6J00750
CLA DECWD F6J00760
STO LIN-17 SET 3RD WORD TO IMAGE OF DECIMAL REPR. F6J00770
CLA OCTWD SET 4TH WORD TO IMAGE OF OCTAL REPRESENTATION F6J00780
STO LIN-16 OF PROGRAM BREAK. F6J00790
CLA L3 F6J00800
STO LOC TO LIST COMMON BREAK. F6J00810
TSX SUB,4 GO TO CONVERT IT. F6J00820
CAL BLANKS F6J00830
SLW LIN-15 F6J00840
SLW LIN-14 SET WORDS FIVE AND SIX TO BLANK. F6J00850
CLA DECWD SET WORD SEVEN TO BCD IMAGE OF DECIMAL F6J00860
STO LIN-13 REPRESENTATION OF COMMON BREAK. F6J00870
CLA OCTWD F6J00880
STO LIN-12 SET WORD EIGHT TO IMAGE OF OCTAL REPR. F6J00890
CAL BLANKS F6J00900
SLW LIN-11 SET REMAINDER OF RECORD TO BLANK. F6J00910
SLW LIN-10 F6J00920
SLW LIN-9 F6J00930
SLW LIN-8 F6J00940
SLW LIN-7 F6J00950
SLW LIN-6 F6J00960
SLW LIN-5 F6J00970
SLW LIN-4 F6J00980
SLW LIN-3 F6J00990
SLW LIN-2 F6J01000
SLW LIN-1 F6J01010
SLW LIN F6J01020
TSX WRITE,4 GO TO WRITE RECORD ON TAPE TWO. F6J01030
LNC LIN+1,,20 F6J01040
TRA 4 GO TO LOADER. F6J01050
SPACE WTD 2 F6J01060
CPY BLANKS F6J01070
WRITE WTD 2 F6J01080
CLA 1,4 F6J01090
STA POOP F6J01100
PDX 0,2 F6J01110
POOP CPY *,2 F6J01120
TIX POOP,2,1 F6J01130
IOD F6J01140
TRA 2,4 F6J01150
SUB LXA ONE,1 F6J01160
LDQ LOC F6J01170
CNV CLA TEN CONVERTING TO DECIMAL. F6J01180
TLQ FIN F6J01190
PXD F6J01200
DVP TEN F6J01210
SLW DIG,1 F6J01220
TXI CNV,1,1 F6J01230
FIN STQ DIG,1 F6J01240
CAL BLANKS F6J01250
DEC ALS 6 DECIMAL TO BCD IMAGE. F6J01260
ORA DIG,1 F6J01270
TIX DEC,1,1 F6J01280
SLW DECWD F6J01290
CLA LOC F6J01300
LRS 15 F6J01310
CAL BLANK F6J01320
TNO OCT F6J01330
OCT ALS 3 OCTAL TO BCD IMAGE. F6J01340
LLS 3 F6J01350
TNO OCT F6J01360
SLW OCTWD F6J01370
TRA 1,4 F6J01380
BSS 20 F6J01390
BLANKS BCD 1 F6J01400
BLANK BCD 100000 F6J01410
6BITS OCT 77 F6J01420
TEN DEC 10 F6J01430
LOC DEC 0 F6J01440
BCD 7 F6J01450
BCD 5STORAGE NOT USED BY PROGRAM F6J01460
BCD 8 F6J01470
TITLE BSS F6J01480
BCD 2 F6J01490
BCD 4 DEC OCT F6J01500
BCD 4 DEC OCT F6J01510
BCD F6J01520
CHEAD BSS F6J01530
BSS 19 F6J01540
LIN BSS 1 F6J01550
DIG BES 6 F6J01560
DELTA HTR 0 F6J01570
DECWD HTR 0 F6J01580
OCTWD HTR 0 F6J01590
END F6J01600
REM ************* FORTRAN II SECTION SIX ************************F6K00010
REM FORTRAN 2 RECORD 110 - MAP OTHER VARIABLES. F6K00011
REM F6K00012
RST 10,1 F6K00013
REM LIST DATA LOCATI0NS NOT APPEARING IN COMMON F6K00020
ME8 SYN 134 F6K00030
PC3 SYN 26 F6K00040
ORG 136 F6K00050
LXD PC3,1 ANY TRANSFER VECTOR. F6K00060
TXL J4,1 NO, TRANSFER. F6K00070
TSX SPACE,4 YES, G0 T0 WRITE COLUMN HEADINGS AND F6K00080
TRAN,,20 LOCATIONS OF NAMES IN TRANSFER VECTOR. F6K00690
TSX SPACE,4 F6K00100
TRHAD,,20 F6K00110
CLA ADEV PRINT TRANSFER VECTOR F6K00120
STA TV1 INITIAL DEA LOCATION. F6K00130
PXD 0,1 F6K00140
ARS 18 F6K00150
STO LENG NO. OF WORDS IN TRANSFER VECTOR. F6K00160
LXD DEVL,1 SET DEA TABLE COUNTER. F6K00170
TV2 LXD LNC,2 SET TAPE TWO RECORD LENGTH EQUAL TO TWENTY. F6K00180
TV1 CLA **,1 LOCATION FROM DEA TABLE. F6K00190
STA LOC F6K00200
CLA LOC IF DEV ENTRY IS IN TRANS. VECTOR, ITS CORRES- F6K00210
CAS LENG PONDING DEA ENTRY(ADDR. PART)WILL BE LESS F6K00220
REM THAN TRANS. VECTOR WORD COUNT. F6K00221
TRA TV3 DEV ENTRY NOT IN TRANSFER VECTOR. F6K00230
TRA TV3 F6K00240
TV4 LDQ DEV,1 DEV ENTRY IS IN TRANSFER VECTOR SO LIST IT. F6K00250
TSX D3,4 TO PREPARE FIRST TWO WORDS OF TAPE TWO ENTRY. F6K00260
TSX D4,4 TO PREPARE 3RD AND 4TH WORDS OF ENTRY. F6K00270
TNX TV5,1,1 IF NO MORE WOROS IN DEV TABLE, GO TO WRITE LASTF6K00280
REM RECORD. F6K00281
TIX TV1,2,4 IF TAPE TWO RECORD FULL, GO TO WRITE RECORD F6K00290
TSX WRITE,4 AND THEN TO TV2 TO SET UP FOR NEXT RECORD. F6K00300
LNC LIN+1,,20 F6K00310
TRA TV2 F6K00320
TV3 TNX TV6,1,1 DO NOT LIST (NOT IN TRANSFER VECTOR). UPDATE F6K00330
REM INDEX. F6K00331
TRA TV1 AND GO TO SELECT NEXT DEA. IF END OF DEV, F6K00340
TV6 TXI TV5,2,4 ADJUST WRITE-COPY INDEX AND GO F6K00350
TV5 TSX WLL,1 WRITE LAST RECORD. F6K00360
J4 LXD DEVL,1 ANY DEV ENTRIES. F6K00370
TXL J1,1 NO, TRANSFER F6K00380
CLA LENG YES, COMPARE WD. CT. OF TRANSFER VECTOR WITH F6K00390
CAS ME8 LAST LOCATION OF FORTRAN FUNCTIONS+1 (ME8 SET F6K00400
REM BY RECORD 105. F6K00401
TRA LIB38 LESS THAN TRANSFER VECTOR LENGTH. F6K00410
TRA LIB37 EQUAL OR GREATER THAN TR. VECTOR LENGTH. SET F6K00420
LIB37 CLA ME8 LENG EQUAL TO ME8 TO AVOID DUPLICATE LISTING F6K00430
STO LENG OF FORTRAN FUNCTIONS (LISTED BY RECOR0 105). F6K00440
LIB38 CLA ADEV STORE INITIAL LOCATION OF DEA TABLE IN AOORESS F6K00450
STA BDV OF BDV. F6K00460
CNL LXD LNC,2 SET TAPE TWO RECORD LENGTH TO 20. F6K00470
BDV CLA **,1 SELECT LOCATION FROM ADDRESS PART OF DEA F6K00480
STA LOC ENTRY. COMPARE IT WITH MAX (TRANSFER VECTOR F6K00490
CLA LOC WORD C0UNT, LAST LOCATION OF FORTRAN FUNCTIONS F6K00500
CAS LENG PLUS 1). F6K00510
TRA J6 NOT PREVI0USLY LISTED AS FORTRAN FUNCTION F6K00520
TRA J6 OR IN TRANSFER VECTOR. GO SEE IF COMMON. F6K00530
TRA B11 PREVIOUSLY LISTED. GO SEE IF ANY MORE DEV F6K00540
REM ENTRIES. F6K00541
J6 CAS L3 IS DEV ENTRY IN COMMON. F6K00550
TRA B11 YES, GO SEE IF ANY MORE DEV ENTRIES. F6K00560
TRA B10 DEV ENTRY NOT A FORTRAN FUNCTION, NOT IN F6K00570
B10 CLA ME5 TRANSFER VECTOR OR COMMON. ME5 IS TAPE TWO F6K00580
TZE ME6 BUFFER C0UNTER (0 TO START). GO WRITE HEADING, F6K00590
ME7 LDQ DEV,1 TAPE 2 BUFFER INDEX NOT 0. LOAD APPROPRIATE F6K00600
TSX D3,4 DEV ENTRY AND GO TO PREPARE THE 4-WORD ENTRY. F6K00610
TSX D4,4 F6K00620
TNX B25,1,1 GO WRITE FINAL RECORD IF DEV TABLE FINISHED. F6K00630
TIX BDV,2,4 TRANSFER IF STILL ROOM IN TAPE TWO BUFFER. F6K00640
TSX WRITE,4 BUFFER FULL. GO WRITE RECORD. F6K00650
LIN+1,,20 F6K00660
TRA CNL GO SET BUFFER LENGTH AND CONTINUE. F6K00670
B11 TNX D7,1,1 TRANSFER IF NO MORE ENTRIES IN DEV. F6K00680
TRA BDV GO SELECT NEXT DEV ENTRY. F6K00690
ME5 HTR 0 F6K00700
ME6 TSX SPACE,4 TO WRITE STORAGE LOCATIONS FOR VARIABLES F6K00710
TITLE,,20 APPEARING IN DIMENSION AND EQUIVALENCE F6K00720
TSX SPACE,4 STATEMENTS AND HEADINGS F6K00730
TRHAD,,20 F6K00740
LXD LNC,2 RESET COUNTER FOR TAPE TWO BUFFER AND STORE F6K00750
SXD ME5,2 IT IN ME5 F6K00760
TRA ME7 F6K00770
D7 CLA ME5 IS ANYTHING IN TAPE TWO BUFFER F6K00780
TZE J1 TRANSFER IF NOT. F6K00790
TXI B25,2,4 ADJUST BUFFER INDEX F6K00800
B25 TSX WLL,1 AND GO WRITE LAST RECORD. F6K00810
J1 LXD TEVL,1 ANY TEV ENTRIES. F6K00820
TXL J3,1 NO, GO TO LOADER F6K00830
TSX SPACE,4 YES, WRITE LOCATIONS FOR VARIABLES NOT APPEAR- F6K00840
OTHER,,20 ING IN DIMENSION, EQUIVALENCE, OR COMMON, F6K00850
TSX SPACE,4 AND WRITE HEADINGS. F6K00860
TRHAD,,20 F6K00870
D1 CLA TTEV SET ADDRESS OF D5 EQUAL TO LOCATION OF F6K00880
STA D5 BEGINNING OF TEV TABLE. F6K00890
LXD LNC,2 SET TAPE TWO RECORD LENGTH TO 20. F6K00900
D5 LDQ TEV,1 SELECT TEV ENTRY, AND GO SET WORD 1 TO BLANK, F6K00910
TSX D3,4 WORD2 TO VARIABLE NAME. F6K00920
PXD 0,1 COMPUTE LOCATION OF TEV ENTRY. F6K00930
ARS 18 F6K00940
ADD LTEV F6K00950
STA LOC AND GO COMPUTE AND STORE BCD IMAGES OF DECIMAL F6K00960
TSX D4,4 AND OCTAL REPRESENTAT1ONS IN WORDS 3 AND 4. F6K00970
TNX D6,1,1 IF END OF TEV ENTRIES, GO WRITE LAST RECORD. F6K00980
TIX D5,2,4 TRANSFER IF STILL ROOM IN BUFFER. F6K00990
TSX WRITE,4 BUFFER FULL. WRITE BUFFER CONTENTS AND GO SET F6K01000
LIN+1,,20 BUFFER COUNTER. F6K01010
TRA D5-1 F6K01020
D6 TSX WLL,1 WRITE FINAL RECORD AND GO TO LOADER. F6K01030
TRA 4 F6K01040
WLL PXD 0,2 C0MPUTE COUNT TO WRITE FINAL RECORD. F6K01050
STO LND F6K01060
ARS 18 F6K01070
STA LND F6K01080
CLA LNE F6K01090
SUB LND F6K01100
STO LND F6K01110
TSX WRITE,4 WRITE FINAL RECORD. F6K01120
LND F6K01130
TRA 1,1 F6K01140
LNE LIN+5,,24 F6K01150
D3 SXD IR4,4 F6K01160
CNW CAL BLANKS F6K01170
SLW LIN+1,2 STORE BLANKS IN WORDS 1 AND 2 OF ENTRY. F6K01180
SLW LIN+2,2 F6K01190
LXA SIX,4 F6K01200
SIX LGL 6 F6K01210
SLW SYM F6K01220
ANA 6BITS F6K01230
SUB BLANK STORE VARIABLE NAME FILLED WITH BLANKS AT F6K01240
TZE CNA LEFT IN WORD 2 OF ENTRY. F6K01250
CAL SYM F6K01260
SLW LIN+2,2 F6K01270
TIX SIX,4,1 F6K01280
CNA LXD IR4,4 F6K01290
TRA 1,4 RETURN TO PROGRAM. F6K01300
D4 SXD IR4,4 F6K01310
LXA ONE,4 CONVERT LOCATION TO BCD IMAGE OF ITS F6K01320
LDQ LOC DECIMAL REPRESENTATION, AND F6K01330
CNV CLA TEN STORE IT IN WORD 3 0F ENTRY. F6K01340
TLQ FIN F6K01350
PXD F6K01360
DVP TEN F6K01370
SLW DIG,4 F6K01380
TXI CNV,4,1 F6K01390
FIN STQ DIG,4 F6K01400
CAL BLANKS F6K01410
DEC ALS 6 F6K01420
ORA DIG,4 F6K01430
TIX DEC,4,1 F6K01440
SLW LIN+3,2 F6K01450
CLA LOC F6K01460
LRS 15 F6K01470
CLA BLANK CONVERT LOCATION TO BCD IMAGE 0F ITS OCTAL F6K01480
TNO OCT REPRESENTATION, AND STORE IT IN WORD 4 OF ENTRYF6K01490
OCT ALS 3 F6K01500
LLS 3 F6K01510
TNO OCT F6K01520
SLW LIN+4,2 F6K01530
LXD IR4,4 F6K01540
TRA 1,4 F6K01550
SPACE WTD 2 F6K01560
CPY BLANKS F6K01570
WRITE WTD 2 TO WRITE TAPE-TWO BUFFER (20 WORDS) ONTO TAP, F6K01580
CLA 1,4 F6K01590
STA POOP F6K01600
PDX 0,2 F6K01610
POOP CPY **,2 F6K01620
TIX POOP,2,1 F6K01630
IOD F6K01640
TRA 2,4 F6K01650
J3 TRA 4 F6K01660
BLANKS BCD 1 F6K01670
BLANK BCD 100000 F6K01680
6BITS OCT 77 F6K01690
TEN DEC 10 F6K01700
LOC DEC 0 F6K01710
LENG HTR 0 F6K01720
BCD 6 F6K01730
BCD 6LOCATIONS OF NAMES IN TRANSFER VECTO F6K01740
BCD 8R F6K01750
TRAN BSS F6K01760
BCD 2 F6K01770
BCD 4 DEC OCT F6K01780
BCD 4 DEC OCT F6K01790
BCD 4 DEC OCT F6K01800
BCD 4 DEC OCT F6K01810
BCD 2 DEC OCT F6K01820
TRHAD BSS F6K01830
BCD 3 F6K01840
BCD 7STORAGE LOCATIONS FOR VARIABLES APPEARING F6K01850
BCD 7IN DIMENSION AND EQUIVALENCE SENTENCES F6K01860
BCD 3 F6K01870
TITLE BSS F6K01880
BCD 2 F6K01890
BCD 7 STORAGE LOCATIONS FOR VARIABLES NOT APP F6K01900
BCD 6EARING IN DIMENSION,EQUIVALENCE OR C F6K01910
BCD 5OMMON SENTENCES F6K01920
OTHER BSS F6K01930
ERAS2 F6K01940
ERAS1 F6K01950
IR4 F6K01960
DIG BES 6 F6K01970
BSS 19 F6K01980
LIN BSS 1 F6K01990
SYM BSS 1 F6K02000
END F6K02010
REM ************* FORTRAN II SECTION SIX ************************F6L00010
REM FORTRAN 2 RECORD 111 - WRITE PROGRAM CARD. F6L00011
REM F6L00012
RST 10,1 F6L00013
REM WRITE PROGRAM CARD ON TAPE 3 F6L00020
PC1 SYN 24 F6L00030
PC2 SYN 25 F6L00040
PC3 SYN 26 F6L00050
PC4 SYN 27 F6L00060
PC5 SYN 28 F6L00070
PC6 SYN 29 F6L00080
ORG 136 F6L00090
REW 3 REWIND TAPE 3 F6L00100
CLS FR4 F6L00110
STO PC1 STORE PUNCH IN COL 1,4 IN DECREMENT OF PC1 F6L00120
CLA PC3 DECREMENT CONTAINS LENGTH OF TRANSFER VECTOR. F6L00130
ADD PGBK ADD LENGTH OF LOWER STORAGE IN ADDRESS. F6L00140
STO PC3 F6L00150
CLA L3 TWOS COMPLEMENT OF LENGTH OF UPPER F6L00160
STO PC4 STORAGE IN ADDRESS. F6L00170
PXD F6L00180
ACL PC1 C0MPUTE CHECK SUM, F6L00190
ACL PC3 F6L00200
ACL PC4 F6L00210
ACL PC5 F6L00220
ACL PC6 F6L00230
SLW PC2 AND STORE IT IN PC 2. F6L00240
WTB 3 WRITE PROGRAM CARD ONTO TAPE 3. F6L00250
CPY PC1 PUNCH IN COL. ONE, WD. COUNT IN DECR. 9L. F6L00260
CPY PC2 CHECK SUM. 9R. F6L00270
CPY PC3 LENGTH OF TRANS. VECS LENGTH. OF LOWER STORAGE,F6L00280
CPY PC4 2S COMP. OF UPPER STORAGE. 8R. F6L00290
CPY PC5 NAME OF SUBROUTINE (ZEROS IF MAIN PR0GRAM). 7L.F6L00300
CPY PC6 ENTRY POINT. 7R F6L00310
LXA L18,1 FILL REST OF CARD WITH ZEROS. F6L00320
B4 CPY ZERO F6L00330
TIX B4,1,1 F6L00340
IOD F6L00350
TRA 4 GO TO L0ADER, F6L00360
L18 HTR 18 F6L00370
FR4 OCT 000004000000 F6L00380
END F6L00390
REM AST
REM ************* FORTRAN II SECTION SIX ************************F6M00010
REM FORTRAN 2 RECORD 112 - OP TABLES. F6M00011
REM F6M00012
REM CONTROL ENTERS THIS RECORD DURING SECOND PASS OF CIT TAPE. F6M00013
REM F6M00014
RST 10,1 F6M00015
REM TABLE OF SHARE OPERATI0N CODES F6M00020
N EQU 124 F6M00030
ORG SOPR F6M00040
LDQ OPRL STORE NEW INSTRUCTION IN SRCH. F6M00050
STQ SRCH F6M00060
LXA OPRS,1 SET XR1 EQUAL 16. F6M00070
LXD OPRS,2 SET XR2 EQUAL 64. F6M00080
REM DOES OP COMPARE. F6M00081
OPRT CAS SYMOP,2 F6M00090
TXI LOWER,1,-2 NO, SELECT NEW OP FROM 0P TABLE. F6M00100
TRA OPRF YES, GO TO OPRF T0 SELECT ABSOLUTE OP. F6M00110
TXI RAISE,1,-2 F6M00120
OPRF CAL ABSOP,2 SELECT ABS0LUTE OP AND RETURN F6M00130
TRA 2,4 F6M00140
OPRL TXL OPRT,2,N TO PROGRAM. F6M00150
OPRS 16,0,64 F6M00160
ORG SYMOP-N F6M00170
OPTBL BCD 1000ACL F6M00180
BCD 1000ADD F6M00190
BCD 1000ADM F6M00200
BCD 1000ALS F6M00210
BCD 1000ANA F6M00220
BCD 1000ANS F6M00230
BCD 1000ARS F6M00240
BCD 1000BST F6M00250
BCD 1000CAD F6M00260
BCD 1000CAL F6M00270
BCD 1000CAS F6M00280
BCD 1000CFF F6M00290
BCD 1000CHS F6M00300
BCD 1000CLA F6M00310
BCD 1000CLM F6M00320
BCD 1000CLS F6M00330
BCD 1000COM F6M00340
BCD 1000CPY F6M00350
BCD 1000DCT F6M00360
BCD 1000DVH F6M00370
BCD 1000DVP F6M00380
BCD 1000ETM F6M00390
BCD 1000FAD F6M00400
BCD 1000FDH F6M00410
BCD 1000FDP F6M00420
BCD 1000FMP F6M00430
BCD 1000FOR F6M00440
BCD 1000FSB F6M00450
BCD 1000FVE F6M00460
BCD 1000HPR F6M00470
BCD 1000HTR F6M00480
BCD 1000IOD F6M00490
BCD 1000LBT F6M00500
BCD 1000LDA F6M00510
BCD 1000LDQ F6M00520
BCD 1000LGL F6M00530
BCD 1000LLS F6M00540
BCD 1000LRS F6M00550
BCD 1000LTM F6M00560
BCD 1000LXA F6M00570
BCD 1000LXD F6M00580
BCD 1000MON F6M00590
BCD 1000MPR F6M00600
BCD 1000MPY F6M00610
BCD 1000MSE F6M00620
BCD 1000MTH F6M00630
BCD 1000MTW F6M00640
BCD 1000MZE F6M00650
BCD 1000NOP F6M00660
BCD 1000NTR F6M00670
BCD 1000ORA F6M00680
BCD 1000ORS F6M00690
BCD 1000PAX F6M00700
BCD 1000PBT F6M00710
BCD 1000PDX F6M00720
BCD 1000PON F6M00730
BCD 1000PSE F6M00740
BCD 1000PTH F6M00750
BCD 1000PTW F6M00760
BCD 1000PXD F6M00770
BCD 1000PZE F6M00780
BCD 1000RCD F6M00790
BCD 1000RDR F6M00800
BCD 1000RDS F6M00810
BCD 1000REW F6M00820
BCD 1000RND F6M00830
BCD 1000RPR F6M00840
BCD 1000RQL F6M00850
BCD 1000RTB F6M00860
BCD 1000RTD F6M00870
BCD 1000RTT F6M00880
BCD 1000 F6M00890
BCD 1000SBM F6M00900
BCD 1000SIX F6M00910
BCD 1000SLF F6M00920
BCD 1000SLN F6M00930
BCD 1000SLQ F6M00940
BCD 1000SLT F6M00950
BCD 1000SLW F6M00960
BCD 1000SPR F6M00970
BCD 1000SPT F6M00980
BCD 1000SPU F6M00990
BCD 1000SSM F6M01000
BCD 1000SSP F6M01010
BCD 1000STA F6M01020
BCD 1000STD F6M01030
BCD 1000STO F6M01040
BCD 1000STP F6M01050
BCD 1000STQ F6M01060
BCD 1000STZ F6M01070
BCD 1000SUB F6M01080
BCD 1000SVN F6M01090
BCD 1000SWT F6M01100
BCD 1000SXD F6M01110
BCD 1000TIX F6M01120
BCD 1000TLQ F6M01130
BCD 1000TMI F6M01140
BCD 1000TNO F6M01150
BCD 1000TNX F6M01160
BCD 1000TNZ F6M01170
BCD 1000TOV F6M01180
BCD 1000TPL F6M01190
BCD 1000TQO F6M01200
BCD 1000TQP F6M01210
BCD 1000TRA F6M01220
BCD 1000TSX F6M01230
BCD 1000TTR F6M01240
BCD 1000TXH F6M01250
BCD 1000TXI F6M01260
BCD 1000TXL F6M01270
BCD 1000TZE F6M01280
BCD 1000UFA F6M01290
BCD 1000UFM F6M01300
BCD 1000UFS F6M01310
BCD 1000WDR F6M01320
BCD 1000WEF F6M01330
BCD 1000WPR F6M01340
BCD 1000WPU F6M01350
BCD 1000WRS F6M01360
BCD 1000WTB F6M01370
BCD 1000WTD F6M01380
BCD 1000WTS F6M01390
BCD 1000WTV F6M01400
BCD 1000XIT F6M01410
ORG ABSOP-N F6M01420
OCT +036100000000 ACL F6M01430
OCT +040000000000 ADD F6M01440
OCT +040100000000 ADM F6M01450
OCT +076700000000 ALS F6M01460
OCT -032000000000 ANA F6M01470
OCT +032000000000 ANS F6M01480
OCT +077100000000 ARS F6M01490
OCT +076400000200 BST F6M01500
OCT -070000000000 CAD F6M01510
OCT -050000000000 CAL F6M01520
OCT +034000000000 CAS F6M01530
OCT +076000000030 CFF F6M01540
OCT +076000000002 CAS F6M01550
OCT +050000000000 CLA F6M01560
OCT +076000000000 CLM F6M01570
OCT +050200000000 CLS F6M01580
OCT +076000000006 COM F6M01590
OCT +070000000000 CPY F6M01600
OCT +076000000012 DCT F6M01610
OCT +022000000000 DVH F6M01620
OCT +022100000000 DVP F6M01630
OCT +076000000007 ETM F6M01640
OCT +030000000000 FAD F6M01650
OCT +024000000000 FDH F6M01660
OCT +024100000000 FDP F6M01670
OCT +026000000000 FMP F6M01680
OCT -000000000000 FOR F6M01690
OCT +030200000000 FSB F6M01700
OCT -100000000000 FVE F6M01710
OCT +042000000000 HPR F6M01720
OCT +000000000000 HTR F6M01730
OCT +076600000333 IOD F6M01740
OCT +076000000001 LBT F6M01750
OCT +046000000000 LDA F6M01760
OCT +056000000000 LDQ F6M01770
OCT -076300000000 LGL F6M01780
OCT +076300000000 LLS F6M01790
OCT +076500000000 LRS F6M01800
OCT -076000000007 LTM F6M01810
OCT +053400000000 LXA F6M01820
OCT -053400000000 LXD FSM01830
OCT -100000000000 MON F6M01840
OCT -020000000000 MPR F6M01850
OCT +020000000000 MPY F6M01860
OCT -076000000000 MSE F6M01870
OCT -300000000000 MTH F6M01880
OCT -200000000000 MTW F6M01890
OCT -000000000000 MZE F6M01900
OCT +076100000000 NOP F6M01910
OCT +100000000000 NTR F6M01920
OCT -050100000000 ORA F6M01930
OCT -060200000000 ORS F6M01940
OCT +073400000000 PAX F6M01950
OCT -076000000001 PBT F6M01960
OCT -073400000000 PDX F6M01970
OCT +100000000000 PON F6M01980
OCT +076000000000 PSE F6M01990
OCT +300000000000 PTH F6M02000
OCT +200000000000 PTW F6M02010
OCT -075400000000 PXD F6M02020
OCT +000000000000 PZE F6M02030
OCT +076200000321 RCD F6M02040
OCT +076200000300 RDR F6M02050
OCT +076200000000 RDS F6M02060
OCT +077200000200 REW F6M02070
OCT +076000000010 RND F6M02080
OCT +076200000361 RPR F6M02090
OCT -077300000000 RQL F6M02100
OCT +076200000220 RTB F6M02110
OCT +076200000200 RTD F6M02120
OCT -076000000012 RTT F6M02130
OCT +000000000000 F6M02140
OCT -040000000000 SBM F6M02150
OCT -200000000000 SIX F6M02160
OCT +076000000140 SLF F6M02170
OCT +076000000140 SLN F6M02180
OCT -062000000000 SLQ F6M02190
OCT -076000000140 SLT F6M02200
OCT +060200000000 SLW F6M02210
OCT +076000000360 SPR F6M02220
OCT +076000000360 SPT F6M02230
OCT +076000000340 SPU F6M02240
OCT -076000000003 SSM F6M02250
OCT +076000000003 SSP F6M02260
OCT +062100000000 STA F6M02270
OCT +062200000000 STD F6M02280
OCT +060100000000 STO F6M02290
OCT +063000000000 STP F6M02300
OCT -060000000000 STQ F6M02310
OCT +060000000000 STZ F6M02320
OCT +040200000000 SUB F6M02330
OCT -300000000000 SVN F6M02340
OCT +076000000160 SWT F6M02350
OCT -063400000000 SXD F6M02360
OCT +200000000000 TIX F6M02370
OCT +004000000000 TLQ F6M02380
OCT -012000000000 TMI F6M02390
OCT -014000000000 TNO F6M02400
OCT -200000000000 TNX F6M02410
OCT -010000000000 TNZ F6M02420
OCT +014000000000 TOV F6M02430
OCT +012000000000 TPL F6M02440
OCT +016100000000 TQO F6M02450
OCT +016200000000 TQP F6M02460
OCT +002000000000 TRA F6M02470
OCT +007400000000 TSX F6M02480
OCT +002100000000 TTR F6M02490
OCT +300000000000 TXH F6M02500
OCT +100000000000 TXI F6M02510
OCT -300000000000 TXL F6M02520
OCT +010000000000 TZE F6M02530
OCT -030000000000 UFA F6M02540
OCT -026000000000 UFM F6M02550
OCT -030200000000 UFS F6M02560
OCT +076600000300 WDR F6M02570
OCT +077000000200 WEF F6M02580
OCT +076600000361 WPR F6M02590
OCT +076600000341 WPU F6M02600
OCT +076600000000 WRS F6M02610
OCT +076600000220 WTB F6M02620
OCT +076600000200 WTD F6M02630
OCT +076600000320 WTS F6M02640
OCT +076600000030 WTV F6M02650
OCT +002100000000 XIT F6M02660
END SOPR F6M02670
REM AST
REM ************* FORTRAN II SECTION SIX ************************F6N00010
REM FORTRAN 2 RECORD 113 - SECOND PASS OF CIT TAPE. F6N00011
REM F6N00012
RST 10,1 F6N00013
REM SECOND PASS OVER CIT TAPE F6N00020
ORG 136 F6N00030
REW 4 REWIND TAPE 4, F6N00040
CLA LIFN STORE IFN TABLE ADDRESS. F6N00050
STA SA9 F6N00060
STA SL9 F6N00070
PXD F6N00080
STO L1 CLEAR L1 AND L2. F6N00090
STO L2 F6N00100
LXA RDC,2 SET READ ERROR COUNTER. F6N00110
TRA RD F6N00120
ERR BST 4 READ-ERROR PROCEDURE F6N00130
TIX RD,2,1 F6N00140
TSX 4,4 F6N00150
RDC HPR 5 F6N00160
RD RTB 4 READ RECORD OF F6N00170
LXA ADDR,4 CIT TAPE 4. F6N00180
RD1 CPY REC-2,4 F6N00190
TXI RD1,4,1 F6N00200
TRA EOF F6N00210
ARS 255 F6N00220
ARS 255 F6N00230
RTT F6N00240
TRA ERR F6N00250
SXD RD2,4 F6N00260
LXD ADDR,4 F6N00270
RD4 SXD RD3,4 F6N00280
CLA REC-1,4 SELECT F6N00290
STO SL SYMBOLIC LOCATION, F6N00300
CLA REC-2,4 F6N00310
STO OP SYMBOLIC OP, F6N00320
CLA REC-3,4 F6N00330
STO SA SYMBOLIC ADDRESS, F6N00340
CLA REC-4,4 F6N00350
STO RA RELATIVE ADDRESS. F6N00360
PXD F6N00370
STO EA CLEAR EA, F6N00380
STO RBIT RBIT, F6N00390
STO CBIT CBIT. F6N00400
CAL OP F6N00410
LRS 18 F6N00420
CAS OCT OP EQUAL OCT TEST. F6N00430
TRA SA1 F6N00440
TRA DATOP YES OP EQUAL OCT. TRANSFER TO DATOP. F6N00450
CAS BCD OP EQUAL BCD TEST. F6N00460
TRA SA1 F6N00470
TRA DATOP YES OP EQUAL BCD. TRANSFER TO DATOP. F6N00480
SA1 CAL SA OP NOT BCD OR OCT. F6N00490
TZE OPCAS TRANSFER T0 OPCAS IF SA EQUAL 0. F6N00500
LRS 30 F6N00510
TZE SA3 TRANSFER IF SA(1) EQUAL ZERO. F6N00520
PAX 0,4 F6N00530
TXH SA4,4,15 TRANSFER IF SA(1) GREATER THAN 15. F6N00540
TXH SAB,4,14 TRANSFER IF SA(1) EQUAL 15. F6N00550
SA6 RQL 14 SA(1) LESS THAN 15. ASSEMBLE SYMBOL AND GO F6N00560
LGL 17 OBTAIN LOC FROM F6N00570
SA7 TSX STIV,4 TIV. F6N00580
TSX 4,4 ERROR,IF NOT IN TIV. F6N00590
TRA SA2 SA(1) GREATER THAN 15. F6N00600
SA4 CLA SA SA(1) GREATER THAN 15 F6N00610
SUB DOL1 F6N00620
TZE LIB10 TRANSFER IF SA EQUAL DOL1 OR DOL2. F6N00630
ADD DOL1 F6N00640
SUB DOL2 F6N00650
TZE LIB11 F6N00660
CLA SA F6N00670
TSX SDEV,4 OBTAIN LOC FROM F6N00680
TSX STEV,4 TEV OR DEV. F6N00690
TSX 4,4 ERROR IF NOT IN DEV OR TEV. F6N00700
TRA SA2 F6N00710
LIB10 CLA DOLSI LOCATION FROM ADDRESS OF DOLSI. F6N00720
TRA SA2 F6N00730
LIB11 CLA DOLSI F6N00740
ARS 18 LOCATION FROM DECREMENT OF DOLSI. F6N00750
TRA SA2 F6N00760
DOL1 BCD 1$ 0000 F6N00770
DOL2 BCD 1$$ 000 F6N00780
SA3 LXA SA,4 SA(1) EQUAL ZERO. F6N00790
TXL SA5,4,0 IFN TEST. TRANSFER TO OBTAIN RELOCAT. LOC. FROMF6N00800
REM IFN. F6N00801
LGL 13 IFN WITH RELATIVE LOCATION. ASSEMBLE SYMBOLIC F6N00810
RQL 10 ADDRESS AND GO F6N00820
LGL 6 OBTAIN LOC FROM TIV. F6N00830
TRA SA7 F6N00840
SA5 LXD SA,4 OCTAIN LOC FROM F6N00850
SA9 CLA IFN,4 IFN TABLE. F6N00860
ARS 18 F6N00870
TRA SA2 F6N00880
SAB CLA L1 SA(1) EQUAL 15, SET LOCATION EQUAL L1. F6N00890
SA2 STA EA STORE LOCATION IN ADORESS OF EA. F6N00900
CLA TWO SET RBIT AS RELOCATABLE. F6N00910
STO RBIT F6N00920
OPCAS CAL OP ALL OPS NOT OCT OR BCD. F6N00930
LRS 18 F6N00940
CAS SYN TEST FOR OP EQUAL SYN OR BSS. F6N00950
TRA ORDOP F6N00960
TRA SYNOP TRANSFER TO SYNOP IF OP EQUAL SYN. F6N00970
CAS BSS F6N00980
TRA ORDOP F6N00990
TRA BSSOP TRANSFER T0 BSSOP IF OP EQUAL BSS. F6N01000
ORDOP TSX SOPR,4 SEARCH FOR OP. F6N01010
TSX 4,4 ERROR IF NOT FOUND. F6N01020
SLW WORD STORE OCT OP. F6N01030
CLA RA COMPUTE ADDRESS EQUAL F6N01040
ARS 18 TO LOC. PLUS RELATIVE ADDRESS. F6N01050
ADD EA F6N01060
STO TEST1 SAVE ADDRESS IN TEST 1 F6N01070
CLA EA LOCATION GREATER THAN PGBK F6N01080
SUB PGBK F6N01090
TPL COMM YES, TRANSFER F6N01100
CLA TEST1 NO, SEE IF F6N01110
SUB PGBK ADDRESS GREATER THAN PGBK. F6N01120
TPL LIB40 YES, G0 TO STORE ONE IN CBIT F6N01130
TRA LIB50 NO, CBIT=0 F6N01140
LIB50 CLA TEST1 F6N01150
LRS 15 F6N01160
TRA TG F6N01170
LIB40 CLA ONE F6N01180
STO CBIT STORE 1 IN CBIT F6N01190
TRA LIB50 F6N01200
COMM CLA TEST1 F6N01210
TPL TA F6N01220
ADD TAG IF NEG MAKE C0MP F6N01230
TA LRS 15 TEST FOR COMP F6N01240
TZE TG ADDRESS. F6N01250
CLA ONE F6N01260
STO CBIT INDICATE COMP DATA. F6N01270
TG CAL RA COMBINE TAG, BINARY F6N01280
LRS 3 DECREMENT, ADDRESS, AND F6N01290
CAL OP OP. F6N01300
LLS 18 F6N01310
ORA WORD F6N01320
STORE SLW WORD STORE INSTRUCTION. F6N01330
CLA L1 UPDATE PROG CTR F6N01340
STO L2 AND PROGRAM BREAK F6N01350
ADD ONE FOR ALL OPS. F6N01360
STO L1 F6N01370
RLCPU LXD RLC1,4 MODIFY RLC4. F6N01380
TIX RLC2,4,1 TRANSFER IF RLC1 NOT ZERO. F6N01390
CLA RLC3 RLC1 IS ZERO SO F6N01400
STD RLC1 INITIALIZE IT TO 20. F6N01410
LXD WCT,4 SET INDEX REGISTER 4, DECREMENT OF F6N01420
PXD RLCB AND RLC6 EQUAL ZERO. F6N01430
SXD RLC8,4 F6N01440
STD RLC6 SET ABL AND ABR EQUAL ZERO. F6N01450
SLW ABL,4 F6N01460
SLW ABR,4 F6N01470
TXI RLC4,4,-2 MODIFY WORD COUNT. F6N01480
RLC2 SXD RLC1,4 SAVE LENGTH OF CARD COUNT. F6N01490
LXD WCT,4 F6N01500
RLC4 CLA WORD STORE INSTRUCTION IN ABL BLOCK F6N01510
STO ABL,4 F6N01520
TXI RLC5,4,-1 MODIFY WORD COUNT F6N01530
RLC5 SXD WCT,4 SAVE NEW WORD COUNT. F6N01540
LXD RLC6,4 MODIFY RELOCATION BITS F6N01550
TXI RLC7,4,2 COUNT. F6N01560
RLC7 SXD RLC6,4 SAVE RELO. BITS COUNT. F6N01570
CLA RBIT TEST RELOCATION BIT. F6N01580
TZE RLCC TRANSFER IF ZERO. F6N01590
ORA CBIT F6N01600
TXI RLCB,4,1 MODIFY RELOC. BITS COUNT F6N01610
RLCB SXD RLC6,4 F6N01620
LRS 35 F6N01630
LGL 72,4 MAKE ABR AND ABL RELATIVE BY F6N01640
LXD RLC8,4 STORING RELOCATION BITS. F6N01650
ORS ABL,4 STORE RELO BITS F6N01660
LGL 36 F6N01670
ORS ABR,4 F6N01680
RLCC LXD RLC6,4 TEST IF TOO MANY RELOCATABLE F6N01690
TXH ST8,4,68 BITS TO PUNCH COMPLETE CARD. YES, TRANSFER. F6N01700
LXD WCT,4 NO, TEST END OF PUNCH BLOCK. F6N01710
ST2 TXL ST3,4,-110 IF BLOCK FULL, TRANSFER TO ST 3. F6N01720
RLC3 TXI SLS,0,20 RETURN TO GET SL F6N01730
ST8 LXD WCT,4 TEST WCT FOR ZERO. F6N01740
TXL ST4,4 F6N01750
ST3 PXD 0,4 COMPUTE LAST ADDRESS F6N01760
COM IN BLOCK (UNCOMPLEMENT WORD COUNT), F6N01770
PDX 0,4 F6N01780
TXI STD,4,ABL F6N01790
STD SXD ST5,4 SAVE IT. F6N01800
SXD ST5,4 F6N01810
TSX ABPCH,4 EXIT TO PUNCH CARD F6N01820
ST5 ABL F6N01830
ST6 HPR F6N01840
ST4 CLA L1 SET ADDRESS PART OF F6N01850
STA ST6 ST6 TO PROGRAM BREAK. F6N01860
SXD WCT SET WCT, RLC1 TO F6N01870
SXD RLC1 ZERO. F6N01880
RLC8 TXI SLS RETURN TO GET SL. F6N01890
WCT HTR 0 F6N01900
BSSOP CLA L1 OP IS BSS. F6N01910
STO L2 STORE PROGRAM COUNTER, F6N01920
CLA RA UP0ATE PROG BREAK, F6N01930
TZE SLS AND GO TO PUNCH F6N01940
ARS 18 ACARD IF NECESSARY, F6N01950
ADD L1 STORE NEW ADDRESS F6N01960
STO L1 FOR LOADING. F6N01970
RLC1 TXI ST8 F6N01980
DATOP CAL SA OCT OR BCD OP. F6N01990
RLC6 TXI STORE F6N02000
SYNOP CLA EA OP IS SYN. F6N02010
STO L2 SET PROG CTR EQUAL ADDRESS F6N02020
TNZ SLS F6N02030
TSX 4,4 F6N02040
SLS CAL SL ALL OPS. TEST SL F6N02050
TZE SL6 TRANSFER IF SL IS ZERO. F6N02060
LRS 30 F6N02070
TZE SL1 TRANSFER IF SL(1) EQUAL ZERO. F6N02080
PAX 0,4 F6N02090
TXH SL2,4,15 SL(1) GREATER THAN 15. F6N02100
TXH SL3,4,14 SL(1) EQUAL 15. F6N02110
RQL 14 SL(1) LESS THAN 15. ASSEMBLE SYMBOL AND GO F6N02120
LGL 17 SEE IF ITS IN TIV. F6N02130
TSX STIV,4 F6N02140
TRA SL6 NOT IN TABLE. F6N02150
TRA SL4 IN TABLE. GO STORE LOCATION IN EA. F6N02160
SL1 LXA SL,4 SL(1) EQUAL ZERO. TEST ADORESS PART OF SL. F6N02170
TXL SL7,4 ZERO. EXIT TO GET IFN LOCATION. F6N02180
LGL 13 NOT ZERO. ASSEMBLE SYMBOL F6N02190
RQL 10 AND GO SEARCH TIV TABLE. F6N02200
LGL 6 F6N02210
TSX STIV,4 F6N02220
TRA SL6 NOT IN TIV TABLE, SO TRANSFER. F6N02230
STA EA IN TIV TABLE. RETURN WITH LOCATION F6N02240
CLA EA IN ADDRESS. TEST ADDRESS. F6N02250
TNZ SL5 TRANSFER IF NOT ZERO. F6N02260
SL8 CLA L2 ZERO. PUT L2 IN TIV TABLE AS LOCATION. F6N02270
STA TIV,2 F6N02280
TRA SL6 F6N02290
SL2 TRA SL6 F6N02300
SL7 LXD SL,4 IFN LOCATION. F6N02310
SL9 CLA IFN,4 F6N02320
ARS 18 F6N02330
SL4 STA EA CHECK STORED LOCATION (FROM TIV). F6N02340
CLA EA EQUAL PROG CTR F6N02350
SL5 SUB L2 IF NOT EQUAL TO L2, GO TO ERROR HALT. F6N02360
TZE SL6 F6N02370
TSX 4,4 F6N02380
SL3 BSS F6N02390
SL6 BSS F6N02400
LXD RD3,4 MODIFY TO GET NEW CIT. F6N02410
TXI RD2,4,4 F6N02420
RD2 TXL RD4,4,** F6N02430
LXA RDC,2 F6N02440
RD3 TXI RD,0,** F6N02450
TEST6 HTR 0 F6N02460
EOF CLA LBT SET RETURN OF ST4 TO EOT. F6N02470
STO ST4 IF NECESSARY ON END OF F6N02480
TRA ST8 FILE F6N02490
LBT TXI EOT F6N02500
EOT REW 4 REWIND TAPE 4 AND RETURN TO LOADER. F6N02510
RTB 1 F6N02520
TRA 4 F6N02530
ABPCH CAL 1,4 TO PUNCH CARD. F6N02540
STD PCH1 COMPUTE LAST ADDRESS PLUS ONE, AND F6N02550
ARS 18 TOTAL WORD COUNT. F6N02560
ADD PCH1 F6N02570
STA PCH2 F6N02580
STA PCH3 F6N02590
SBM 1,4 F6N02600
TZE 2,4 G0 TO HALT IF WORD COUNT LESS F6N02610
TMI 2,4 THAN ONE. F6N02620
PAX 0,1 F6N02630
CLA 2,4 OBTAIN FIRST ADDRESS. F6N02640
PCH8 WTB 3 SELECT TAPE THREE. F6N02650
STA VR SET LOADING ADDRESS. F6N02660
CLM F6N02670
LXA PCH1,2 F6N02680
PCH2 ACL 0,1 FORM CHECK SUM. F6N02690
TXH PCH5,2,21 F6N02700
TNX PCH5,1,1 F6N02710
TXI PCH2,2,1 F6N02720
PCH5 SXD PCH6,2 STORE WORD COUNT. F6N02730
TXI PCHR,2,-2 F6N02740
PCHR SXD VR,2 F6N02750
ACL VR F6N02760
SLW SUM STORE CHECK SUM. F6N02770
CPY VR F6N02780
CPY SUM F6N02790
TXI PCH6,2,2 F6N02800
PCH6 TXI PCH9,1 F6N02810
PCH9 TXI PCH3,1,-1 F6N02820
PCH3 CPY 0,1 COPY RECORD ONTO TAPE THREE. F6N02830
TIX PCH9,2,1 F6N02840
PCH7 CLA VR COMPUTE LOADING ADDRESS FOR NEXT CARD. F6N02850
ARS 18 F6N02860
ADD VR F6N02870
TIX PCH8,1,1 F6N02880
IOD F6N02890
TRA 3,4 RETURN TO PROGRAM. F6N02900
PCH1 HTR 1 F6N02910
VR TIX F6N02920
SUM HTR 0 F6N02930
WRS1 SYN PCH8 F6N02940
BSS 40 F6N02950
SYN BCD 1000SYN F6N02960
OCT BCD 1000OCT F6N02970
BSS BCD 1000BSS F6N02980
BCD BCD 1000BCD F6N02990
TAG HTR 0,4 F6N03000
TCD TIX 0 F6N03010
OP HTR 0 F6N03020
SL HTR 0 F6N03030
SA HTR 0 F6N03040
RA HTR 0 F6N03050
RBIT HTR 0 F6N03060
CBIT HTR 0 F6N03070
WORD HTR 0 F6N03080
TEST1 HTR 0 F6N03090
ABL BSS 1 F6N03100
ABR BSS 109 F6N03110
REC BES 100 F6N03120
RLP SYN REC F6N03130
END F6N03140
REM AST
REM FORTRAN 2 RECORD 115 - LIBRARY SEARCH. F6P00010
RST 10,1 F6P00015
REM F6P00020
REM LIBRARY SEARCH F6P00030
PC1 SYN 24 F6P00040
SUBIN SYN 30 F6P00050
ABSOP SYN 1100 F6P00060
ONE SYN 114 F6P00070
SW1 SYN 127 F6P00080
TRB SYN ABSOP F6P00090
SW5 SYN 131 F6P00100
TWO SYN 115 F6P00110
ZERO SYN 113 F6P00120
ORG 136 F6P00130
LXA RDC,1 SET DRUM READ ERROR COUNTER. F6P00140
D5 RDR 3 SELECT DRUM 3 (TRANSFER VECTOR TABLE). F6P00150
A4 PXD 0 TRANSFER VECTOR F6P00160
LDA A4 F6P00170
CAD TVR-1 READ WORD COUNT OF TABLE INT0 TVR-1. F6P00180
COM F6P00190
CAD SUM F6P00200
COM F6P00210
TZE D4 NO READ ERROR. F6P00220
TIX D5,1,1 F6P00230
TSX OUTER,4 F6P00240
D4 LXD TVR-1,1 SET INDEX REG 1 WITH WORD CT. OF TRANS. VECTOR.F6P00250
TXL WEF,1 IFNO TRANSFER VECTOR, GO TO W.E.F. F6P00260
LXA RDC,2 F6P00270
A5 RDR 3 F6P00280
A6 PXD 2 READ TRANSFER F6P00290
LDA A6 VECTOR INTO STORAGE, FIRST SUBROUTINE NAME INTOF6P00300
A7 CAD TVR-1,1 TVR-1-WD COUNT, LAST SUBR. NAME INTO TVR-2, F6P00310
TIX A7,1,1 F6P00320
CPY SUM F6P00330
COM F6P00340
CAD SUM F6P00350
COM F6P00360
TZE A8 TEST CHECK SUM. F6P00370
TIX A5,2,1 F6P00380
TSX OUTER,4 F6P00390
A8 CLA SW5 CHECK SUM OKAY. F6P00400
CAS ONE F6P00410
TRA A1 GO TO TEST SENSE SWITCH FIVE. F6P00420
TRA A3 1 IN SW5 MEANS ASSUME SENSE SWITCH 5 DOWN F6P00430
TRA FINI 0 IN SW5 MEANS ASSUME SENSE SWITCH 5 IS UP. F6P00440
A1 SWT 5 SENSE SWITCH 5 TEST. F6P00450
TRA FINI UP. F6P00460
TRA A3 DOWN. F6P00470
A3 RTB 1 SPACE TAPE1 OVER EOF (THAT IS, OVER SYSTEM). F6P00480
A10 STZ RCT F6P00490
STZ LIBCT F6P00500
CLA ONE F6P00510
STO PASCT F6P00520
LOOP1 STZ CTF F6P00530
A11 TSX SUB1,4 READ TAPE1 RECORD. F6P00540
TRA EOF RETURN HERE IF END OF FILE F6P00550
CLA BUFF-1 RETURN AT END OF RECORD TO EXAMINE FIRST WORD. F6P00560
TMI A12 PROG. CARD TEST. FIRST WORD IS MINUS ON PROG. F6P00570
REM CARD. F6P00580
TRA A11 NOT A PROGRAM CARD. GO TO READ ANOTHER RECORD. F6P00590
A12 STD A18 PROGRAM CARD. F6P00600
STD A15 SAVE LENGTH OF RECORD (BITS 4-1B HAVE NO. OF F6P00610
LXD FR4,1 WORDS IN RECORD EXCLUDING 9-ROW. F6P00620
CLA BUFF-3 SAVE LENGTH OF F6P00630
STD VLENG TRANSFER VECTOR (ROW 8 DECREMENT). F6P00640
A16 LXD TVR-1,2 F6P00650
CLA BUFF-2,1 TEST FOR PRIMARY NAME ON PROG CARD. F6P00660
TMI SEC NOT PRIMARY NAME. F6P00670
CLA BUFF-1,1 YES, PRIMARY NAME. SELECT NAME AND F6P00680
A14 CAS TVR-1,2 COMPARE IT TO NAME IN TRANSFER VECTOR. F6P00690
TRA A13 F6P00700
TRA EQ FOUND ROUTINE, GO T0 EQ. F6P00710
A13 TIX A14,2,1 NOT EQUAL, GO TO SELECT NEXT TR. VEC. NAME. F6P00720
SEC TXI A15,1,2 NOT FOUND. GO TO TEST NEXT WORD ON CARD. F6P00730
A15 TXL A16,1,* ANY MORE WORDS ON PROG. CARO. IF YES, TRANSFER.F6P00740
TRA A11 NO MORE PRI. NAMES ON CARD. GO READ NEXT REC. F6P00750
REM OF LIBRARY TAPE. F6P00760
EQ TSX ERASE,4 WHEN PRIM. NAME ON PROG. CARD EQUALS VARIABLE F6P00770
SXD EQ2,1 NAME IN TRANS. VEC., GO ERASE NAME FROMTVR. F6P00780
EQ4 LXA LIBCT,4 SET XR4 EQUAL NO. OF LIB. ROUTINES FOUND. F6P00790
CLA BUFF-1,1 ENTER NAME OF FOUND SUBROUTINE IN LIBF TABLE. F6P00800
STO LIBF-1,4 AND ERASE NAME FROM F6P00810
CLA LIBCT TVR TABLE F6P00820
ADD ONE UPDATE LIBCT F6P00830
STO LIBCT F6P00840
CLA CTF UPDATE CTP. F6P00850
ADD ONE F6P00860
STO CTF OTHER NAMES ON CARD. NO, TRANSFER. F6P00870
TXL EQ3,1,4 F6P00880
TXI EQ4,1,-2 YES, GO ENTER IN LIBF. F6P00890
EQ2 HTR 0 F6P00900
EQ3 LXD EQ2,1 F6P00910
TRA A18-1 F6P00920
A19 LXD TVR-1,2 OF THIS ROUTINE F6P00930
CLA BUFF-1,1 SELECT NAME ON PROGRAM CARD F6P00940
A17 CAS TVR-1,2 IS IT CALLED FOR BY TRANSFER VECTOR. F6P00950
TRA NO F6P00960
TRA YES YES, TRANSFER. F6P00970
NO TIX A17,2,1 NO, TEST FOR ANY MORE NAMES IN TR. VECTOR. YES,F6P00980
REM TRANSFER. F6P00990
A20 TSX LIBEN,4 NO, GO ENTER NAME IN LIBF IF NOT ALREADY THERE.F6P01000
TXI A18,1,2 INCREMENT PROG CARD COUNTER BY 2, F6P01010
A18 TXL A19,1,* THIS IS SET BY A12, CONTAINS NO. OF WORDS ON F6P01020
REM PROGRAM CARD. F6P01030
TRA A21 TRANS. WHEN ALL NAMES ON CARD HAVE BEEN CHECKEDF6P01040
YES TSX ERASE,4 ERASE NAME FROM TRANSFER VECTOR TABLE. F6P01050
CLA BUFF-1,1 SELECT SUBROUTINE NAME AND GO F6P01060
TRA A20 ENTER IT IN LIBF. F6P01070
A21 LXD A15,2 F6P01080
TXH EXCAD,2,22 TRANSFER IF PROG. CARD HAS MORE THAN 22 WORDS. F6P01090
TSX WRITE,4 WRITE PROG CARD ON TAPE 3 F6P01100
HTR 0,0,2 F6P01110
B13 TSX SUB1,4 READ RECORD FROM LIB. TAPE F6P01120
TRA EOF EOF. F6P01130
X3 CLA VLENG WD. CT. OF TRANS. VEC. OF LIBRARY SUBROUTINE. F6P01140
TZE A22 IF NO TRANSFER VECTOR, GO TO WRITE. F6P01150
CAS L20D F6P01160
TRA X2 GO TO X2 IF TRANS VEC. OF LIB. SUBR. GREATER F6P01170
REM THAN 20. F6P01180
TRA X1 GO T0 X1 IF TRANS VEC OF LIB. SUBR LESS THAN ORF6P01190
REM EQUAL 20. F6P01200
X1 TSX LOOP3,4 GO SEARCH LIBF FOR SUB-SUBROUTINE NAME, ETC. F6P01210
A22 TSX WRITE,4 GO WRITE TRANS. VECT. RECORD ON TAPE 3. F6P01220
HTR 0,0,4 F6P01230
LOOP2 TSX SUB1,4 GO READ NEW RECORD FROM LIBRARY TAPE. F6P01240
TRA EOF EOF ON LIBRARY TAPE. F6P01250
CLA BUFF-1 TEST FOR PROGRAM CARD. F6P01260
TMI A12 YES, PROG CARD. TRANSFER. F6P01270
TRA A22 NO, GO TO WRITE CARD ON TAPE THREE. F6P01280
X2 SUB L20D TO TREAT 20 AT A TIME. F6P01290
STO VLENG F6P01300
CLA L20D F6P01310
TSX LOOP3,4 SEARCH FOR SUB+SUBROUT IN LIBF. IF NOT THERE, F6P01320
REM ENTER IN TVR TABLE. F6P01330
TSX WRITE,4 WRITE RECORD ON TAPE 3. F6P01340
HTR 0,0,4 F6P01350
TSX SUB1,4 READ NEXT RECORD FROM LIB TAPE F6P01360
TRA EOF EOF F6P01370
CLA BUFF-1 IS IT A PROG. CARD. F6P01380
TPL X3 NO, GO PROCESS TRANS. VEC. F6P01390
ERROR TSX OUTER,4 YES. ERROR. F6P01400
EXCAD CLS L22D TO WRITE FIRST CARD OG PROG. CARD. F6P01410
B9 STO BUFF-1 F6P01420
TSX CHSUM,4 COMPUTE CHECK SUM. F6P01430
TSX WRITE,4 WRITE IT ON TAPE 3. F6P01440
REM BLANKS F6P01450
HTR 0,0,2 F6P01460
PXD 0,2 F6P01470
SUB L22D MORE THAN 22 WORDS. F6P01480
TMI B13 NO, GO T0 B13. F6P01490
PDX 0,2 YES, DECREMENT WD. CT. BY 22 AND STORE IT IN F6P01500
REM INDEX REGISTER 2. F6P01510
SUB ONEDE F6P01520
STD BOO1 F6P01530
LXD ONE,1 F6P01540
BOO CLA BUFF-25,1 MOVE INFO. READ FROM LIB. TAPE UP IN BUFFER, F6P01550
STO BUFF-3,1 F6P01560
TXI BOO1,1,1 F6P01570
BOO1 TXL BOO,1,* F6P01580
TXL B8,2,21 F6P01590
CLS L22D F6P01600
TRA B9 F6P01610
B8 PXD 0,2 F6P01620
PDX 0,1 IF NECESSARY F6P01630
B12 STZ BUFF-3,1 AND FILL IN ZEROES IF NECESSARY. F6P01640
TXI B11,1,1 F6P01650
B11 TXL B12,1,22 F6P01660
PXD 0,2 F6P01670
SSM F6P01680
TRA B9 F6P01690
EOF CLA PASCT F6P01700
SUB ONE F6P01710
TZE D1 TRANSFER IF ONLY ONE SEARCH F6P01720
CLA CTF END OF SEARCH TEST F6P01730
TZE D3 CTF IS ZERO IF NO SUBROUTINE FOUND IN SEARCH. F6P01740
D1 CLA PASCT PREPARE FOR ANOTHER F6P01750
ADD ONE SEARCH. F6P01760
STO PASCT F6P01770
REM CHARACTER. F6P01780
LXA RCT,1 SET XR1 EQUAL NO. OF RECORDS READ FROM LIB. F6P01790
TXI D2,1,1 TAPE. F6P01800
D2 BST 1 BACK SPACE TAPE THAT MANY RECORDS. F6P01810
TIX D2,1,1 F6P01820
STZ RCT SET RCT EQUAL ZERO AND GO START SEARCH F6P01830
TRA LOOP1 F6P01840
D3 LXA LIBCT,1 ANY SUBROUTINES FOUND F6P01850
TXL FINI,1 NO, GO TO FINI. F6P01860
TSX SPACE,4 YES. 0O WRITE, SUBROUTINES PUNCHED F6P01870
FOUND,,20 FROM LIBRARY ON TAPE TWO. F6P01880
LXD LNC,2 SET RECORD LENGTH TAPE TWO EQUAL 20. F6P01890
D9 CLA LIBF,1 SELECT SUBROUTINE NAME. F6P01900
STO NAME F6P01910
TSX SUB2,4 GO CONVERT AND WRITE IT IN T-2 BUFFER (WRITING F6P01920
REM OFF WHEN NECESSARY) F6P01930
TIX D9,1,1 TRANSFER IF MORE SUBR. NAMES, F6P01940
TSX WLL,4 GO WRITE FINAL RECORD ON TAPE TWO. F6P01950
FINI LXD TVR-1,1 ANY TRANSFER VECTOR. F6P01960
TXL WEF,1 NO, GO TO WEF. F6P01970
TSX SPACE,4 YES, GO WRITE SUBROUTINES NOT PUNCHED FROM F6P01980
LOST,,20 LIBRARY. F6P01990
LXD LNC,2 RESET TAPE TWO RECORD LENGTH TO 20. F6P02000
D10 CLA TVR-1,1 SELECT NAME IN TVR TABLE. F6P02010
STO NAME GO WRITE IT IN TAPE TWO BUFFER. F6P02020
TSX SUB2,4 F6P02030
TIX D10,1,1 TRANSFER IF ANY MORE NAMES IN TVR TABLE. F6P02040
TSX WLL,4 GO WRITE FINAL RECORD. F6P02050
WEF REW 1 F6P02060
CLA SUBIN TO SEE IF MAIN PROGRAM F6P02070
TNZ Y1 NO, GO TO WRITE END OF FILE F6P02080
WTB 3 YES, SO F6P02090
CPY TCD WRITE TRANSFER CARD ON TAPE 3 F6P02100
Y1 WEF 3 WRITE END OF FILE MARK ON TAPE 3. F6P02110
REW 3 F6P02120
TRA RECQ F6P02130
TCD MZE F6P02140
LIBEN LXA LIBCT,2 ENTER WITH SUBR. NAME IN ACC. F6P02150
SXD LIBA,2 F6P02160
LXD ONEDE,2 F6P02170
LIBC CAS LIBF,2 SELECT NAME IN LIBF. TABLE. EQUAL SUBROUTINE F6P02180
REM NAME. F6P02190
TRA LIBB F6P02200
TRA 1,4 YES, RETURN TO PROGRAM. F6P02210
LIBB TXI LIBA,2,1 NO. TEST IF ANY MORE NAMES IN LIBF TABLE. F6P02220
LIBA TXL LIBC,2,* MORE, GO SELECT NEXT ONE. F6P02230
STO LIBF,2 NO MORE. ENTER SUBR. NAME IN LIBF. F6P02240
CLA LIBCT F6P02250
ADD ONE UPDATE NO. OF SUBRS. IN LIBF., F6P02260
STO LIBCT F6P02270
TRA 1,4 AND RETURN TO PROGRAM. F6P02280
WRITE WTB 3 SELECT TAPE THREE. F6P02290
CLA 1,4 F6P02300
STD WR4 F6P02310
LXD BUFF-1,1 F6P02320
WR4 TXI WR3,1,** F6P02330
WR3 SXD WR1,1 SET DECR. OF WR1 EQUAL WD. CT. FROM LIB. TAPE F6P02340
REM PLUS DECREMENT OF 1,4 F6P02350
LXA ONE,1 F6P02360
WR2 CPY BUFF,1 WRITE WORD FROM BUFFER ONTO TAPE THREE F6P02370
TXI WR1,1,1 F6P02380
WR1 TXL WR2,1,24 TEST END OF CARD. F6P02390
IOD F6P02400
TRA 2,4 RETURN TO PROG. EXIT POINT PLUS 2. F6P02410
SUB1 LXA RDC,2 READ LIBRARY TAPE RECORD. F6P02420
TRA RD ROUTINE F6P02430
ERR BST 1 READ-ERROR PROCEDURE. F6P02440
TIX RD,2,1 F6P02450
TSX OUTER,4 F6P02460
RDC HPR 5 F6P02470
RD RTB 1 SELECT TAPE 1, F6P02480
LXD ONE,1 SET XR1=0. F6P02490
SUBA CPY BUFF-1,1 COPY RECORD INTO BUFF-1,-2,... F6P02500
TXI SUBA,1,1 F6P02510
TRA 1,4 EOF F6P02520
ARS 255 F6P02530
ARS 255 EOR F6P02540
RTT F6P02550
TRA ERR F6P02560
CLA RCT INCREASE RECORD COUNT BY ONE F6P02570
ADD ONE F6P02580
STO RCT F6P02590
TRA 2,4 AND RETURN TO PROGRAM EXIT PLUS 2. F6P02600
PRINT CLA 1,4 TO WRITE A BCD RECORD ON TAPE TWO. F6P02610
PDX 0,2 F6P02620
TXL NONE,2 F6P02630
D7 WTD 2 F6P02640
STA POOP F6P02650
POOP CPY *,2 F6P02660
TIX POOP,2,1 F6P02670
IOD F6P02680
NONE TRA 2,4 F6P02690
SPACE WTD 2 WRITE A WORD OF BLANKS ON TAPE TWO. F6P02700
CPY BLANKS F6P02710
TRA PRINT F6P02720
WLL SXD IR4,4 PREPARE TO WRITE FINAL RECORD ON TAPE TWO, F6P02730
TXI ME20,2,2 F6P02740
ME20 PXD 0,2 F6P02750
STO LND F6P02760
ARS 18 F6P02770
STA LND F6P02780
CLA LNE F6P02790
SUB LND F6P02800
STO LND F6P02810
TSX PRINT,4 AND GO WRITE IT. F6P02820
LND F6P02830
LXD IR4,4 F6P02840
TRA 1,4 F6P02850
LOOP3 ADD THRDE F6P02860
STD A27 F6P02870
LXD FR4,1 F6P02880
A28 LXA LIBCT,2 SUBROUTINE IN TVR F6P02890
CLA BUFF-1,1 SELECT NAME FROM SUBROUTINE TRANS. VEC. F6P02900
A24 CAS LIBF,2 SELECT NAME FROM LIBF TABLE. F6P02910
TRA A23 NOT EQUAL F6P02920
TRA A26 SUBROUTINE IS IN LIBF. F6P02930
A23 TIX A24,2,1 NOT EQUAL, ANY MORE NAMES IN LIBF. YES,TRANS. F6P02940
TRA A25 NO. NOT IN LIBF. F6P02950
A26 TXI A27,1,1 ANY MORE NAMES IN SUBROUT. TRANS. VECTOR. F6P02960
A27 TXL A28,1,* YES. F6P02970
TRA 1,4 NO, RETURN TO PROGRAM F6P02980
A25 CLA TVR-1 SET DECR. OF A31 EQUAL WD CT. OF TVR TABLE. F6P02990
STD A31 IF NOT ALREADY IN F6P03000
LXD ONEDE,2 F6P03010
TZE EXT2 TRANSFER IF NO ENTRIES IN TVR TABLE F6P03020
CLA BUFF-1,1 SELECT THE NAME FROM SUBROUT. TR. VECTOR. F6P03030
A32 CAS TVR-1,2 IS IT IN THE TVR TABLE. F6P03040
TRA A30 F6P03050
TRA A26 YES, TRANSFER. F6P03060
A30 TXI A31,2,1 F6P03070
A31 TXL A32,2,* F6P03080
STO TVR-1,2 NO. PUT IT THERE, UP0ATE COUNT OF TVR TABLE. F6P03090
SXD TVR-1,2 + F6P03100
TRA A26 F6P03110
EXT2 CLA BUFF-1,1 SELECT NAME FROM SUBR. TRANS. VEC. AND F6P03120
TRA A31+1 GO STORE IT. F6P03130
CHSUM LXA TWO,1 COMPUTE CHECK SUM AND STORE IT IN BUFF-2. F6P03140
CAL BUFF-1 F6P03150
B6 ACL BUFF-1,1 F6P03160
TXI B5,1,1 F6P03170
B5 TXL B6,1,23 F6P03180
SLW BUFF-2 F6P03190
TRA 1,4 F6P03200
SUB2 SXD IR4,4 F6P03210
CAL BLANKS F6P03220
SLW LIN+1,2 STORE BLANKS IN BOTH WORDS OF ENTRY. F6P03230
SLW LIN+2,2 F6P03240
CNS LDQ NAME ASSENBLE BCD REPRESENTATION OF F6P03250
LXA SIX,4 SUBROUTINE NAME. F6P03260
SIX LGL 6 F6P03270
SLW SYM F6P03280
ANA 6BITS F6P03290
SUB BLANK F6P03300
TZE CNA F6P03310
CAL SYM F6P03320
SLW LIN+2,2 STORE IT IN WORD TWO OF ENTRY. F6P03330
TIX SIX,4,1 F6P03340
CNA TIX EXIT,2,2 RECORD NOT FULL. DECR. XR2 AND EXIT TO PROGRAM.F6P03350
TSX PRINT,4 RECORD FULL. GO WRITE IT. F6P03360
LNC LIN+1,,20 F6P03370
LXD LNC,2 RESET RECORD LENGTH COUNTER F6P03380
EXIT LXD IR4,4 AND RETURN TO PROGRAM F6P03390
TRA 1,4 F6P03400
IR4 0,0,0 F6P03410
BLANKS BCD 1 F6P03420
BLANK BCD 100000 F6P03430
6BITS OCT 77 F6P03440
TEN DEC 10 F6P03450
LOC DEC 0 F6P03460
BCD 7 F6P03470
BCD 6 SUBROUTINES PUNCHED FROM LIBRARY F6P03480
BCD 7 F6P03490
FOUND BSS F6P03500
BCD 7 F6P03510
BCD 6SUBROUTINES NOT PUNCHED FROM LIBRARY F6P03520
BCD 7 F6P03530
LOST BSS F6P03540
ERASE CLA TVR-1 DECREASE WD CT OF TVR BY ONE. F6P03550
SUB ONEDE F6P03560
STD TVR-1 F6P03570
STD NEXT F6P03580
TZE EXT1 TEST FOR ANY WORDS LEFT IN TVR TABLE. F6P03590
SKIP CLA TVR-2,2 F6P03600
STO TVR-1,2 MOVE UP ENTRIES IN TVR TABLE F6P03610
TXI NEXT,2,1 F6P03620
NEXT TXL SKIP,2,* F6P03630
TRA 1,4 EXIT TO PROGRAM F6P03640
EXT1 STZ TVR-2 WHEN NO WORDS LEFT IN TVR TABLE, STORE ZERO IN F6P03650
TRA 1,4 TVR-2 AND RETURN TO PROGRAM. F6P03660
OUTER REW 1 F6P03670
RTB 1 F6P03680
RTB 1 F6P03690
TRA 4 F6P03700
ONEDE 0,0,1 F6P03710
SUM F6P03720
RCT IN ADDRESS F6P03730
LIBCT (ADDRESS) F6P03740
PASCT (ADDRESS) F6P03750
CTF (ADDRESS) F6P03760
VLENG 0,0, F6P03770
FR4 0,0,4 F6P03780
L20 20,0,0 F6P03790
TWODE 0,0,2 F6P03800
L20D 0,0,20 F6P03810
L22D 0,0,22 F6P03820
THRDE 0,0,3 F6P03830
NAME HTR 0 F6P03840
SYM HTR 0 F6P03850
LNE LIN+3,,22 F6P03860
BUFF BES 200 F6P03870
TVR BES 900 F6P03880
LIBF BES 300 F6P03890
BSS 19 F6P03900
LIN BSS 1 F6P03910
REM F6P03920
REM PUNCH BINARY LOADER IF CARDS ARE OUTPUT F6P03930
REM AND IF MAIN ROUTINE, PUNCH PROGRAM F6P03940
RECQ CLA ONE ARE CARDS OUTPUT F6P03950
CAS SW1 F6P03960
TRA WLP1 EQUALS ZERO. ASSUME SWITCH UP, GO PUNCH CARDS. F6P03970
TRA OUT EQUALS ONE, ASSUME SWITCH DOWN. NO CARD OUPUT. F6P03980
SWT 1 TEST SWITCH ONE. F6P03990
TRA WLP1 UP SO GO TO PUNCH ON LINE. F6P04000
TRA OUT DOWN SO GO TO RETURN TO LOADER. F6P04010
WLP1 CLA SUBIN TEST FOR SUB DEF. F6P04020
TNZ RTF IF SOURCE PROG IS A SUBROUTINE, GO READ TAPE 3 F6P04030
LXA WPLV,1 MAIN ROUTINE. PUNCH LOADER. F6P04040
WPL2 LXD WPLV,2 SET CARD LENGTH. F6P04050
WPU SELECT PUNCH. F6P04060
WPL3 TNX WPL2,2,1 TRANSFER IF CARD FULL. F6P04070
CPY ZER+216,1 COPY LOADER WORD. F6P04080
TIX WPL3,1,1 TRANSFER IF NOT FINISHED PUNCHING LOADER. F6P04090
RTF LXA ONE,1 SET IR1 EQUAL ONE. F6P04100
RT9 SXD RT1,1 SAVE WORD COUNT OF STORAGE BLOCK TO BE PUNCHED F6P04110
LXD RT2,2 SET IR2 EOUAL FIVE FOR READ-ERROR COUNTER. F6P04120
RTR RTB 3 READ TAPE THREE. F6P04130
LXD RT3,4 SET IR4 EQUAL 24. F6P04140
RT7 CPY TRB,1 COPY BINARY INST. INTO STORAGE. F6P04150
TXI RT4,1,1 INCREASE WORD COUNT ONE. F6P04160
RT2 TXI TEF,,5 END OF FILE ON TAPE 3. F6P04170
RTZ STZ TRB,1,6*4096 EOR STORE ZERO. F6P04180
TXI RT6,1,1 INCREASE WORD COUNT BY ONE F6P04190
RT6 TIX RTZ,4,1 FILL OUT CARD (IN STORAGE) WITH ZEROS. F6P04200
TXI RT5 F6P04210
RT4 TIX RT7,4,1 MOD. AND TEST END OF CARD. TRANSFER IF CARD NOTF6P04220
REM FILLED. F6P04230
CPY DUMP NO INDEX IN XR4 IS AN ERROR HERE, F6P04240
TRA RTE SINCE RECORD LENGTH ON TAPE 3 IS CARD LENGTH, F6P04250
TSX OUTER,4 F6P04260
RT5 IOD F6P04270
ARS 255 CHECK FOR TAPE CHECK. F6P04280
ARS 255 F6P04290
RTT F6P04300
TRA RTE GO TO READ ERROR PROCEDURE. F6P04310
RTA LXD RT1,1 TAPE READ OKAY. ADD 24 (FOR CARD JUST READ) F6P04320
RT3 TXI RT8,1,24 TO WORD COUNT. F6P04330
RT8 TXL RT9,1,24*25 TEST END OF PUNCH BLOCK. F6P04340
LXA ZERO,4 BLOCK FULL. SET XR4 EQUAL ZERO, F6P04350
PIC LXA ONE,1 AND PUNCH OUT PUNCH BLOCK. F6P04360
PC3 WPU PUNCH CARD. F6P04370
LXD RT3,2 SET XR2 EQUAL 24 F6P04380
PC2 CPY TRB,1 F6P04390
TXI *+1,1,1 F6P04400
TIX PC2,2,1 TRANSFER IF NOT END OF CARD. F6P04410
RT1 TXL PC3,1,** END OF PUNCH BLOCK TEST. TRANS. IF NOT END. F6P04420
TXL RTF,4 GO READ MORE FROM TAPE THREE. F6P04430
PTC WPU PUNCH TW0 BLANK CARDS. F6P04440
WPU F6P04450
OUT RTB 1 RETURN TO LOADER. F6P04460
RTB 1 F6P04470
RTB 1 F6P04480
TRA 4 F6P04490
TIX F6P04500
TEF TNX PTC,1,24 HAS LAST BLOCK BEEN PUNCHED. TRANSFER TO F6P04510
REM PUNCH ENDING BLANKS IF YES. F6P04520
SXD RT1,1 SAVE WORD COUNT OF PUNCH BLOCK, F6P04530
LXA ONE,4 AND GO PUNCH F6P04540
TRA PIC FINAL BLOCK. F6P04550
RTE TIX BST,2,1 READ ERROR PROCEDURE. TRIED 5 TIMES. NO, TRANS.F6P04560
TSX OUTER,4 YES. F6P04570
HTR RTA F6P04580
BST BST 3 BACK SPACE TAPE 3 F6P04590
LXD RT1,1 AND RESET WORD COUNT TO ONE. F6P04600
TRA RTR GO READ TAPE 3. F6P04610
DUMP BSS 1 F6P04620
TRB SYN ABSOP F6P04630
WPLV 216,0,25 F6P04640
WRCC 0,0,32 F6P04650
BSS 40 F6P04660
ZER BSS 216 F6P04670
ZRO SYN ZER F6P04680
ORG ZRO F6P04690
REM BINARY LOADER AS OCTAL DATA F6P04700
OCT 053400100000 F6P04710
OCT 070000100002 F6P04720
OCT 177777100001 F6P04730
OCT 000000100000 F6P04740
OCT 476000000007 F6P04750
OCT 076200000321 F6P04760
OCT 070000177452 F6P04770
OCT 177777100006 F6P04780
OCT 000000000000 F6P04790
OCT 377470100005 F6P04800
OCT 453400177715 F6P04810
OCT 463400177715 F6P04820
OCT 060000077453 F6P04830
OCT 076200000321 F6P04840
OCT 070000000000 F6P04850
OCT 002000077500 F6P04860
OCT 000000000015 F6P04870
OCT 060000200000 F6P04080
OCT 200001200021 F6P04890
OCT 014000000024 F6P04900
OCT 002000000000 F6P04910
OCT 000000000000 F6P04920
OCT 000000000030 F6P04930
OCT 000000077777 F6P04940
OCT 050000000000 F6P04950
OCT 070000000001 F6P04960
OCT 412000077626 F6P04970
OCT 010000000015 F6P04980
OCT 060000077777 F6P04990
OCT 453400100000 F6P05000
OCT 700037177516 F6P05010
OCT 300040100000 F6P05020
OCT 062100000025 F6P05030
OCT 040000000026 F6P05040
OCT 062100000026 F6P05050
OCT 050000000001 F6P05060
OCT 062100077520 F6P05070
OCT 002000000015 F6P05080
OCT 062100000010 F6P05090
OCT 077100000017 F6P05100
OCT 473400400000 F6P05110
OCT 700001477524 F6P05120
OCT 007400277611 F6P05130
OCT 062100000010 F6P05140
OCT -50000000000 F6P05150
OCT 077100000022 F6P05160
OCT 040000000010 F6P05170
OCT 062100077531 F6P05180
OCT 453400200000 F6P05190
OCT 700000200000 F6P05200
OCT 062100077577 F6P05210
OCT 062100077601 F6P05220
OCT 062100077572 F6P05230
OCT 062100077566 F6P05240
OCT 062100077543 F6P05250
OCT 450000000000 F6P05260
OCT 700001477543 F6P05270
OCT 470000000007 F6P05280
OCT 470000000006 F6P05290
OCT 470000200000 F6P05300
OCT 200001277543 F6P05310
OCT 700000477551 F6P05320
OCT 700001400015 F6P05330
OCT 700002477551 F6P05340
OCT 700003477561 F6P05350
OCT 060200000000 F6P05360
OCT 050000000001 F6P05370
OCT 010000077557 F6P05380
OCT 040200000000 F6P05390
OCT 010000077557 F6P05400
OCT 042000000000 F6P05410
OCT 700001400015 F6P05420
OCT 300003477642 F6P05430
OCT 056000000006 F6P05440
OCT 050000000007 F6P05450
OCT 476300000001 F6P05460
OCT 060200000007 F6P05470
OCT 012000077573 F6P05480
OCT 050000100000 F6P05490
OCT 077100000022 F6P05500
OCT 007400277604 F6P05510
OCT 076700000022 F6P05520
OCT 062200100000 F6P05530
OCT 050000000007 F6P05540
OCT 476300000001 F6P05550
OCT 060200000007 F6P05560
OCT 012000077602 F6P05570
OCT 050000100000 F6P05580
OCT 007400277604 F6P05590
OCT 062100100000 F6P05600
OCT 200001177562 F6P05610
OCT 002000000015 F6P05620
OCT 062100000010 F6P05630
OCT 050000000007 F6P05640
OCT 476300000001 F6P05650
OCT 060200000007 F6P05660
OCT 412000077612 F6P05670
OCT 076000000141 F6P05680
OCT 050200000010 F6P05690
OCT 040000000025 F6P05700
OCT 012000077622 F6P05710
OCT 476000000141 F6P05720
OCT 002000077624 F6P05730
OCT 050000000010 F6P05740
OCT 040100077520 F6P05750
OCT 002000200001 F6P05760
OCT 476000000141 F6P05770
OCT 002000077617 F6P05780
OCT 040200000026 F6P05790
OCT 002000200001 F6P05800
OCT 473400200000 F6P05810
OCT 700000277770 F6P05820
OCT 040000077771 F6P05830
OCT 040000077640 F6P05840
OCT 062200077713 F6P05850
OCT 040200077715 F6P05860
OCT 062200077667 F6P05870
OCT 036100000000 F6P05880
OCT 040200077640 F6P05890
OCT 077100000022 F6P05900
OCT 200002277641 F6P05910
OCT 007400477536 F6P05920
OCT 453400177771 F6P05930
OCT 050000077777 F6P05940
OCT 010000077652 F6P05950
OCT 050000000007 F6P05960
OCT 060100177451 F6P05970
OCT 050000000006 F6P05980
OCT 060100177452 F6P05990
OCT 200002177704 F6P06000
OCT 050000000026 F6P06010
OCT 060000177451 F6P06020
OCT 060100177452 F6P06030
OCT 453400400007 F6P06040
OCT 300000477661 F6P06050
OCT 050000077776 F6P06060
OCT 060100177451 F6P06070
OCT 050000000007 F6P06080
OCT 062200177451 F6P06090
OCT 062100000025 F6P06100
OCT 040000000026 F6P06110
OCT 062100000026 F6P06120
OCT 073400200000 F6P06130
OCT 300000200003 F6P06140
OCT 050000077520 F6P06150
OCT 040200000006 F6P06160
OCT 073400400000 F6P06170
OCT 475400400000 F6P06180
OCT 077100000022 F6P06190
OCT 010000077677 F6P06200
OCT 034000000027 F6P06210
OCT 050000000027 F6P06220
OCT 076100000000 F6P06230
OCT 060100000027 F6P06240
OCT 040200000026 F6P06250
OCT 412000077453 F6P06260
OCT 463400277777 F6P06270
OCT 060000000007 F6P06280
OCT 100002177707 F6P06290
OCT 050000177452 F6P06300
OCT 007400277604 F6P06310
OCT 062100177452 F6P06320
OCT 100002177713 F6P06330
OCT 700000177707 F6P06340
OCT 463400177771 F6P06350
OCT 677452000015 F6P06360
OCT 450000277453 F6P06370
OCT 410000077723 F6P06380
OCT 050000277454 F6P06390
OCT 062100000024 F6P06400
OCT 002000077770 F6P06410
OCT 432000077776 F6P06420
OCT 410000077770 F6P06430
OCT 050000277453 F6P06440
OCT 473400400000 F6P06450
OCT 077100000022 F6P06460
OCT 040000277454 F6P06470
OCT 062100077736 F6P06480
OCT 062100077764 F6P06490
OCT 062100077766 F6P06500
OCT 062100077741 F6P06510
OCT 453400177771 F6P06520
OCT 450000400000 F6P06530
OCT 432000077776 F6P06540
OCT 010000077767 F6P06550
OCT 050000400000 F6P06560
OCT 034000177453 F6P06570
OCT 002100077745 F6P06580
OCT 002000077763 F6P06590
OCT 200002177742 F6P06600
OCT 060100000006 F6P06610
OCT 453400177753 F6P06620
OCT 050000177477 F6P06630
OCT 010000077757 F6P06640
OCT 034000000006 F6P06650
OCT 600024077755 F6P06660
OCT 002000077767 F6P06670
OCT 200001177750 F6P06680
OCT 000000077770 F6P06690
OCT 050000000006 F6P06700
OCT 060100177477 F6P06710
OCT 060000177500 F6P06720
OCT 002000077767 F6P06730
OCT 050000077743 F6P06740
OCT 060100400000 F6P06750
OCT 050000177454 F6P06760
OCT 062100400000 F6P06770
OCT 200001477735 F6P06780
OCT 100002277771 F6P06790
OCT 700000277716 F6P06800
OCT 050000077453 F6P06810
OCT 410000077775 F6P06620
OCT 100324200021 F6P06830
OCT 000000000014 F6P06840
OCT 700000000000 F6P06850
OCT 000000000000 F6P06860
END F6P06870
REM PST
REM APPLIED PROGRAMMING, IBM , L. MAY AND A. S. NOBLE JR.
REM T04 FORTRAN II / SECTI0N ONE. 29 OCT 58
REM 8K VERSION WITHOUT CODING ON DRUMS.
REM
REM SECTI0N 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIE4F10000
REM FORMULAS, COMPILES THE OBJECT (OUTPUTI INSTRUCTIONS. FOR 4F10001
REM N0NARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT, DOES A 4F10002
REM PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION 4F10003
REM IN TABLES. 4F10004
REM THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE= 4F10005
REM COMMON, STATES A, B, C, AND D. COMMON REMAINS IN LOWER MEMORY4F10006
REM TNROUGHOUT SECTION1. STATE A READS IN AND CLASSIFIES ALL 4F10007
REM STATEMENTS, AND TREATS NONARITHMETIC STATEMENTS. STATES B, 4F10008
REM C, AND D TREAT ARITHMETIC FORMULAS. 4F10009
REM 4F10010
REM SECTION 1 / COMMON = 4F10011
REM 704 FORTRAN MASTER RECORD CARD / COMMON = F0140000. 4F10012
WST 10,1
ORG 0 4F100121
PZE ORGCOM,,1TOCS 4F100122
PZE STATEB-1 4F100123
REM 4F10013
REM PART I / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS= 4F10014
REM EIFNO AND SENSE SWITCH SIMULATORS. 4F10015
REM TAPE TABLE BUFFERS. 4F10016
REM TAPE TABLE PARAMETERS - INTET. 4F10017
REM DRUM TABLE PARAMETERS. 4F10018
REM FORSUB COUNT AND BUFFER. 4F10019
REM CIB BUFFER AND PARAMETERS. 4F10020
REM REMAINING WORKING STORAGE. 4F10021
REM PART 2 / CONSTANTS USED BY SECTION ONE. 4F10022
REM PART 3 / SUBROUTINES USED BY SECTION ONE= 4F10023
REM NAME FUNCTION 4F10024
REM C0I50,2 SCAN, AND CONVERT NUMERICS. 4F10025
REM C0160,2 SCAN CHARACTERS. 4F10026
REM C0180,Z CONVERT NUMERICS. 4F10027
REM C0I90X,4 INITIALIZE C0190 TO 1ST WORD OF F. 4F10028
REM C0390,4 INSERT CHARACTER. 4F10029
REM C0190,4 OBTAIN NEXT NON-BLANK CHAR IN AC. 4F10030
REM CIT00,4 COMPILED INSTRUCTION TABLE ENTRIES.4F10031
REM DIM.SR,4 DIMENSION TABLE SEARCH. 4F10032
REM DRTABS(,4) DRUM TABLE ENTRIES. 4F10033
REM 0ETIFN,4 GET INTERNAL FORMULA NUMBER. 4F10034
REM JIF(GIF),4 JUMPS (GETS) IFN IN SL AND TL. 4F10035
REM MTR000 MONITOR STATES FROM DRUM. 4F10036
REM RA000,4 COMPUTE RELATIVE ADDRESS. 4F10037
REM RDRX,4 READ DRUM INTO BUFR. 4F10038
REM SR6DCI,1 CONVERT 6 BCD DIGITS TO 1 BINARY. 4F10039
REM SS000,4 SOAN AND PR0CESS SUBSCRIPTS. 4F10040
REM SUBX00,4 ADD BLANKS TO SUBROUTINE NAMES. 4F10041
REM TESTFX,1 TEST FOR FIXED OR FLOATING POINT. 4F10042
REM TEST..,4 TEST CHARACTER IN THE AC. 4F10043
REM TET00,1 TAPE TABLE ENTRIES. 4F10044
REM 4F10045
REM DIAG DIAGNOSTIC OALLERS. 4F10046
REM 4F10047
REM TNE FOLLOWING CONVENTIONS ARE USED IN TNIS LISTING= 4F10048
REM 4F10049
REM ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION 4F10050
REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 4F10051
REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT 0F 4F10052
REM TNIS LOGICAL BLOCK OR SUBROUTINE. 4F10053
REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 4F10054
REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). 4F10055
REM 4F10056
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10057
REM 4F10058
REM COMMON/1-WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS= 4F10059
ORGCOM ORG 24 4F10060
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10061
REM 4F10062
REM EIFNO AND SENSE SWITCH SIMULATORS. 4F10063
EIFNO PZE **,,** EXTERNAL,,INTERNAL FORMULA NUMBER. 4F10064
ENDI1 PZE 2 SIMULATOR FOR SENSE SWITCH 1. 4F10065
ENDI2 PZE 2 SIMULATOR FOR SENSE SWITCH 2. 4F10066
ENDI3 PZE 2 SIMULATOR FOR SENSE SWITCH 3. 4F10067
ENDI4 PZE 2 SIMULATOR FOR SENSE SWITCH 4. 4F10068
ENDI5 PZE 2 SIMULATOR FOR SENSE SWITCH 5. 4F10069
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10070
REM 4F10071
REM BUFFERS USED BY TET00 FOR THE TAPE TABLES. 4F10072
TEIFNO BSS 10 EXTERNAL,,INTERNAL FORMULA NUMBERS.4F10073
TDO BSS 10 DO STATEMENTS. 4F10074
TIFGO BSS 10 IF AND GO TO STATEMENTS. 4F10075
TRAD BSS 10 IF AND GO TO TRANSFER ADDRESSES. 4F10076
FORTAG BSS 10 INDEXES TO TAU AND SIGMA TABLES. 4F10077
FORVAR BSS 10 RIGHT - NON-SUB. FX. PT. VARIABLES.4F10078
FORVAL BSS 10 LEFT - NON-SUB. FX. PT. VARIABLES.4F10079
FRET BSS 10 FREQUENCY STATEMENTS. 4F10080
EQUIT BSS 10 EQUIVALENCE STATEMENTS. 4F10081
CLOSUB BSS 10 NAMES OF SUBROUTINES. 4F10082
FORMAT BSS 10 FORMAT STATEMENTS. 4F10083
SUBDEF BSS 10 SUBROUTINE DEFINITION STATEMENTS. 4F10084
COMMON BSS 10 UPPER MEMORY STORAGE STATEMENTS. 4F10085
NOLARG BSS 10 HOLLERITH ARGUMENTS FOR SUBROUTINE.4F10086
NONEXC BSS 10 NON-EXECUTED STATEMENTS. 4F10087
TSTOPS BSS 10 STOP STATEMENTS. 4F10088
CALLFN BSS 10 1ST / LAST IFN FOR CALL STATEMENTS.4F10089
FMTEFN BSS 10 TABLE OF FORMAT EXTERNAL FORMNOS. 4F10090
REM FND OF THE TAPE TABLE BUFFERS. 4F10091
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10092
REM 4F10093
REM INTET/ TABLE PARAMETERS USED BY TET00, WHERE 4F10094
REM O = ORIGIN OF TABLE BUFFER, 4F10095
REM B = BUFFER CAPACITY, 4F10096
REM A = ADDRESS OF TABLE ENTRY, 4F10097
REM E = ENTRY LENGTH IN WORDS, 4F10098
REM C = COUNT OF BLOCKS PUT ON TAPE, 4F10099
REM P = PORTION OF BUFFER THAT IS FULL.4F10100
REM 4F10101
INTET PZE TEIFNO,,10 00) O,,B. 4F10102
PZE EIFNO,,1 A,,E. 4F10103
PZE **,,** C,,P. 4F10104
REM 4F10105
PZE TDO,,10 01) O,,B. 4F10106
PZE 1C,,5 A,,E. 4F10107
PZE **,,** C,,P. 4F10108
REM 4F10109
PZE TIFGO,,10 02) O,,B. 4F10110
PZE 1C,,2 A,,E. 4F10111
PZE **,,** C,,P. 4F10112
REM 4F10113
PZE TRAD,,10 03) O,,B. 4F10114
PZE 1G,,1 A,,E. 4F10115
PZE **,,** C,,P. 4F10116
REM 4F10117
PZE FORTAG,,10 04) 0,,B. 4F10118
PZE G,,1 A,,E. 4F10119
PZE **,,** C,,P. 4F10120
REM 4F10121
PZE FORVAR,,10 05) O,,B. 4F10122
PZE G,,2 A,,E. 4F10123
PZE **,,** C,,P. 4F10124
REM 4F10125
PZE FORVAL,,10 06) O,,B. 4F10126
PZE G,,2 A,,E. 4F10127
PZE **,,** C,,P. 4F10128
REM 4F10129
PZE FRET,,10 07) O,,B. 4F10130
PZE 1G,,1 A,,E. 4F10131
PZE **,,** C,,P. 4F10132
REM 4F10133
PZE EQUIT,,10 06) O,,B. 4F10134
PZE 1C,,2 A,,E. 4F10135
PZE **,,** C,,P. 4F10136
REM 4F10137
PZE CLOSUB,,10 09) O,,B. 4F10138
PZE G,,1 A,,E. 4F10139
PZE **,,** C,,P. 4F10140
REM 4F10141
PZE FORMAT,,10 10) O,.B. 4F10142
PZE G,,2 A,,E. 4F10143
PZE **,,** C,,P. 4F10144
REM 4F10145
PZE SUBDEF,,10 11) O,,0. 4F10146
PZE 1G,,1 A,,E. 4F10147
SBDFCN PZE **,,** O,,P. 4F10148
REM 4F10149
PZE COMMON,,10 12I O,,B. 4F10150
PZE 1G,,1 A,,E. 4F10151
PZE **,,** O,,P. 4F10152
REM 4F10153
PZE NOLARG,,10 I3) 0,,0. 4F10154
PZE 1G,,1 A,,E. 4F10155
PZE **,,** C,,P. 4F10156
REM 4F10157
PZE NONEXC,,10 14) O,,0. 4F10158
PZE EIFNO,,1 A,,E. 4F10159
PZE **,,** C,,P. 4F10160
REM 4F10161
PZE TSTOPS,,10 15) O,,B. 4F10162
PZE EIFNO,,1 A,,E. 4F10163
PZE **,,** C,,P. 4F10164
REM 4F10165
PZE CALLFN,,10 16) 0,,B. 4F10166
PZE CALLNM,,1 A,,E. 4F10167
PZE **,,** C,,P. 4F10168
REM 4F10169
PZE FMTEFN,,10 17) O,,B. 4F10170
PZE SET,,1 A,,E. 4F10171
PZE **,,** C,,P. 4F10172
REM 4F10173
BSS 3 EXPANSION SPACE FOR INTET. 4F10174
REM END OF TAPE TABLE PARAMETERS. 4F10175
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10176
REM 4F10177
REM ....IX/ TABLE PARAMETERS USED BY DRTABS, WHERE 4F10178
REM ARG1 = 1ST LOCATION OF ARGUMENT, 4F10179
REM L = LENGTH 0F ARGUMENT IN WORDS,4F10180
REM TDA = LOc. OF NEXT DRUM ENTRY, 4F10181
REM N = NO. OF ENTRIES ON DRUM, 4F10182
REM *** = TXL FOR ENTRY SUM TABLES, 4F10183
REM *** = TXH FOR BLOCK SUM TAB(FLCN),4F10184
REM FDA = LOC. OF 1ST DRUM ENTRY, 4F10185
REM K = BUFFER CAPACITY IN ENTRIES, 4F10186
REM DBL = N*(L+I) FOR ENTRY SUM TABLE,4F10187
REM DBL = K*L+I FOR BLOCK SUM TABLE,4F10188
REM J = DRUM CAPACITY IN ENTRIES, 4F10189
REM I = 5 - DRUM NUMBER. 4F10190
REM 4F10191
PZE G+1,,1 FIXCON) ARG1+L,,L 4F10192
PZE FIXCON,,** TDA,,N 4F10193
TXLOP TXL FIXCON,,50*1 *** FDA,,K*L 4F10194
PZE 50*2,,100 DBL,,J 4F10195
FXCNIX TXI ALT,,5-2 TXI ALT,,I 4F10196
REM 4F10197
PZE G+1,,1 FLOCON) ARG1+L,,L 4F10198
PZE FLOCON,,** TDA,,N 4F10199
TXHOP TXH FLOCON,,50*1 *** FDA,,K*L 4F10200
PZE 50*1+1,,450 DBL,,J 4F10201
FLCNIX TXI ALT,,5-2 TXI ALT,,I 4F10202
REM 4F10203
PZE E+3+2,,2 TAU1 ) ARG1+L,,L 4F10204
PZE TAU1,,** TDA,,N 4F10205
TXL TAU1,,25*2 *** FDA,,K*L 4F10206
PZE 25*3,,100 DBL,,J 4F10207
TAU1IX TXI ALT,,5-4 TAI ALT,,I 4F10208
REM 4F10209
PZE E+3+4,,4 TAU2 ) ARG1+L,,L 4F10210
PZE TAU2,,** TDA,,N 4F10211
TXL TAU2,,12*4 *** FDA,,K*L 4F10212
PZE 12*5,,90 DBL,,J 4F10213
TAU2IX TXI ALT,,5-4 TXI ALT,,I 4F10214
REM 4F10215
PZE E+3+6,,6 TAU3 ) ARG1+L,,L 4F10216
PZE TAU3,,** TDA,,N 4F10217
TXL TAU3,,8*6 *** FDA,,K*L 4F10218
PZE 8*7,,75 DBL,,J 4F10219
TAU3IX TXI ALT,,5-4 TXI ALT,,I 4F10220
REM 4F10221
PZE E+11+1,,1 SIGMA1) ARG1+L,,L 4F10222
PZE SIGMA1+2,,1 TDA,,N 4F10223
TXL SIGMA1,,30*1 *** FDA,,K*L 4F10224
PZE 30*2,,30 DBL,,J 4F10225
SIG1IX TXI ALT,,5-2 TXI ALT,,I 4F10226
REM 4F10227
PZE 1C+2,,2 DIM1 ) ARG1+L,,L 4F10228
PZE DIM1,,** TDA,,N 4F10229
ORGDM1 TXL DIM1,,0 *** FDA,,K*L 4F10230
PZE 0,,100 DBL,,J 4F10231
DIM1IX TXI DIMALT,,5-3 TXI ALT,,I 4F10232
REM 4F10233
PZE 1C+2,,2 DIM2 ) ARG1+L,,L 4F10234
PZE DIM2,,** T0A,,N 4 4F10235
ORGDM2 TXL DIM2,,0 *** FDA,,K*L 4F10236
PZE 0,,100 DBL,,J 4F10237
DIM2IX TXI DIMALT,,5-3 TXI ALT,,I 4F10238
REM 4F10239
PZE 1C+3,,3 DIM3 ) ARG1+L,,L 4F10240
PZE DIM3,,** TDA,,N 4F10241
ORGDM3 TXL DIM3,,0 *** FDA,,K*L 4F10242
PZE 0,,90 DBL,,J 4F10243
DIM3IX TXI DIMALT,,5-3 TXI ALT,,I 4F10244
REM END OF DRUM TABLE PARAMETERS. 4F10245
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10246
REM 4F10247
REM COUNT AND,BUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES. 4F10248
BK BSS 1 FORSUB COUNTER. 4F10249
FORSUB BSS 100 NAMES AND DEGREES OF FUNCTIONS. 4F10250
REM END OF FUNCTION COUNT AND BUFFER. 4F10251
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10252
REM 4F10253
REM PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE. 4F10254
BS PZE ,,100 CIB CAPACITY (4 * 25). 4F10255
EC PZE ,,** ENTRY COUNT = NO. WORDS IN CIB. 4F10256
BBOX PZE ,,** 2S COMPLEMENT OF THE ENTRY COUNT. 4F10257
CIB BSS 100 COMPILED INSTRUCTION BUFFER. 4F10258
REM END OF CIT PARAMETERS AND BUFFER. 4F10259
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10260
REM 4F10261
REM ALL 0F THE ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME. 4F10262
ORG 576 4F102625
ERASE BSS 5 C0MMON WORKING STORAGE. 4F10263
1C BSS 5 C0MMON NORKING STORAGE. 4F10264
1G BSS 1 COMMON NORKING STORAGE. 4F10265
2G BSS 1 COMMON WORKING STORAGE FOR STATE A.4F10266
3G BSS 1 4F10267
1H BSS 1 4F10268
2H BSS 1 4F10269
3LBAR BSS 1 STORAGE USED BY ARITHMETIC. 4F10270
ARERAS BSS 1 STORAGE USED BY ARITHMETIC. 4F10271
ARGCNT MZE 4,,1 ARGUMENT COUNTER USED BY C30,C32. 4F10272
ARGCTR BSS 1 STORAGE USED BY ARITHMETIC. 4F10273
CALLNM PZE **,,** 4F10274
CHSAVE BSS 1 WORKING STORAGE USED BY ROYCNV. 4F10275
DIMSAV BSS 1 WORKING STORAGE USED BY SS000. 4F10276
E BSS 14 WORKING STORAGE USED BY SS000. 4F10277
EPSM3 BSS 3 4F10278
EPS BSS 1 EPSILON - VARIABLE USED BY RA000. 4F10279
E1C BSS 1 COMMON WORKING STORAGE. 4F10280
EFN BSS 1 EXTERNAL FORMULA NUMBER (F-1). 4F10281
F BSS 111 ASSEMBLED STATEMENT REGION. 4F10282
FIRSTC BSS 1 USED BY SS000,TESTFX,C3000. 4F10283
FSNAME BSS 1 NAME OF FUNCTION. 4F10284
FT BSS 12 SOURCE PROGRAM INPUT BUFFER. 4F10285
G BSS 2 4F10286
GTAG BSS 1 VARIABLE USED BY IOT, RA. 4F10287
HOLCNT BCD 1H(0000 WORKING STORAGE USED BY C3300. 4F10288
I BSS 1 4F10289
LEFT BSS 3 STORAGE USED BY ARITHMETIC. 4F10290
LENGTH PZE **,,** 4F10291
NBAR BSS 1 STORAGE USED BY ARITHMETIC. 4F10292
N2 BSS 1 4F10293
OPNWRD BSS 1 ERASABLE USED BY STATE D. 4F10294
PHI(I) PZE **,,** 4F10295
RAT PZE 8,,** VARIABLE USED BY IOT. 4F10296
RESIDU BSS 1 REMAINDER OF F-REGION WORD.(C0190) 4F10297
SET PON .. 4F10298
SL BSS 1 4F10299
SYMBOL BSS 1 WORKING STORAGE USED BY SS000. 4F10300
TL PZE 31*8,,** 4F10301
TLINE PZE ** VARIABLE USED BY IOT. 4F10302
REM END OF COMMON WORKING STORAGE, BUFFERS, AND PARAMETERS. 4F10303
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10304
REM 4F10305
REM C0MMON/2-CONSTANTS USED BY SECTION ONE= 4F10306
REM 4F10307
TEN OCT 12 (1010) - CTEST-1I 4F10308
ENDMK OCT 77 111111 - CTEST-I0 4F10309
OPEN OCT 74 ( - CTEST-9 4F10310
COMMA OCT 73 , - CTEST-8 4F10311
CLOS OCT 34 ) - CTEST-7 4F10312
EQUAL OCT 13 = - CTEST-6 4F10313
11Z OCT 40 - - CTEST-5 4F10314
SLASH OCT 61 / - CTEST-4 4F10315
POINT OCT 33 . - CTEST-3 4F10316
12Z OCT 20 + - CTEST-2 4F10317
STAR OCT 54 * - CTEST-1 4F10318
CTEST BSS 0 ADDRESS USED FOR INDEXING ABOVE. 4F10319
REM 4F10320
L(0) BCD 1000000 0 4F10321
L(1) BCD 1000001 1 4F10322
L(2) BCD 1000002 2 4F10323
L(3) BCD 1000003 3 4F10324
L(4) BCD 1000004 4 4F10325
L(5) BCD 1000005 5 4F10326
L(6) BCD 1000006 6 4F10327
L(7) BCD 1000007 7 4F10328
L(8) BCD 1000008 8 4F10329
L(9) BCD 1000009 9 4F10330
MINUS OCT 14 - 4F10331
L(C) BCD 100000C C 4F10332
L(F) BCD 100000F F 4F10333
L(H) BCD 100000H H 4F10334
CHAR2 OCT 32 CONSTANT USED BY CD000. 4F10335
L(O) BCD 100000O O (ALPHABETIC) 4F10336
CHAR3 OCT 52 CONSTANT USED BY CD000. 4F10337
SPECOP OCT 53 00000$ 4F10338
BLANK OCT 60 000000000060 4F10339
L(S) BCD 100000S S 4F10340
L(T) BCD 100000T T 4F10341
L(X) BCD 100000X X 4F10342
L(Z) BCD 100000Z Z 4F10343
PM OCT 72 RECORD MARK (ILLEGAL) -CD000 4F10344
BIT29 OCT 100 4F10345
A81 DEC 81 CONSTANT USED BY IOT. 4F10346
L(96) OCT 140 USED BY C0500. 4F10347
L(112) OCT 160 USED BY C0400. 4F10348
MASK3 OCT 777 ,ARITHMETIC. 4F10349
1E9 OCT 1000 A0DRESS=8 4F10350
L(A() BCD 10000A( INTERNAL FLO-PT VARIABLE PREFIX. 4F10351
L(H() BCD 10000H( 4F10352
L(I() BCD 10000I( INTERNAL FXD-PT VARIABLE PREFIX. 4F10353
SAPSYM OCT 6212 4F10354
IFSYM OCT 6712 4F10355
CALLER OCT 7112 4F10356
MASK2 OCT 77777 2**15-I -ARITHMETIC. 4F10357
2E17 OCT 400000 TAG=4 4F10358
2E18 OCT 1000000 DECREMENT=1 4F10359
DECR1 PZE 1,,1 CONSTANT USED BY DRTABS. 4F10360
ABTAG2 OCT 1000002 CONSTANT USED BY C3200. 4F10361
D2 PZE ,,2 CONSTANT USED BY IOT. 4F10362
ABTAG3 OCT 2000004 CONSTANT USED BY C3200. 4F10363
D3CN PZE ,,3 CONSTANT USED BY IOT. 4F10364
BETAD2 OCT 3077775 3*2**18+(-3) -ARITHMETIC. 4F10365
D6 PZE ,,6 CONSTANT USED BY IOT. 4F10366
FSIND PZE ,,16 4F10367
DEC17 PZE ,,17 4F10368
DEC18 PZE ,,18 4F10369
PZ OCT 32000000 PLUS ZERO -ED000. 4F10370
MASK5 OCT 37777600 -ARITHMETIC. 4F10371
FNIND PZE ,,32 4F10372
DEC35 PZE ,,35 4F10373
MZ OCT 52000000 MINUS ZERO -CD000. 4F10374
NGTBIT OCT 000200000000 4F10375
BTA PZE ,,144 CONSTANT USED BY IOT. 4F10376
BDA PZE 0,0,192 CONSTANT USED BY I0T. 4F10377
5BLANS BCD 10 006060606060 4F10378
E( BCD 1100000 -ARITHMETIC. 4F10379
I( BCD 1200000 -ARITHMETIC. 4F10380
A( BCD 1300000 -ARITHMETIC. 4F10381
P( BCD 1400000 -ARITHMETIC. 4F10382
O( BCD 1600000 -ARITHMETIC. 4F10383
X( BCD 1700000 -ARITHMETIC. 4F10384
BETAD1 OCT 77775077775 (-3(*2**18+(-3) -ARITHMETIC. 4F10365
1BAR OCT 77777000000 (2**15-1)*2**18DECREMENT MASK. 4F10386
15P DEC 15B5 CONSTANT USED BY IOT. 4F10387
PROCTR OCT 176060606060 4F10388
ADPLUS OCT 200000000000 ADDITION SIGN -ARITHMETIC. 4F10389
FLOVAR BCD 1A(0000 A( INTERNAL FLOATING PT. VARIABLE. 4F10390
FXFX BCD 1EXP(1 4F10391
FLFX BCD 1EXP(2 4F10392
FLFL BCD 1EXP(3 4F10393
FIXVAR BCD 1I(0000 I( INTERNAL FIXED PT. VARIABLE. 4F10394
MINUS0 MZE 0 4F10395
DECMI2 MZE ,,2 4F10396
ADSPOP OCT 530000000000 $00000 4F10397
DOLSGN OCT 536000000000 CONSTANT USED BY C32000 4F10398
ADSTAR OCT -140000000000 MULTIPLICATION SIGN -ARITHMETIC. 4F10399
STRSTR OCT -145400000000 EXPONENTIATION SIGN -ARITHMETIC. 4F10400
BLANKS BCD 1 606O60606060 4F10401
MASK1 OCT -377777700000 -(2**20-U.*2**15 -ARITHMETIC. 4F10402
MASK4 OCT -377777777737 -ARITHMETIC. 4F10403
ALL1 OCT -377777777777 END OF STATEMENT WORD. 4F10404
REM 4F10405
L(ADD) BCD 1ADD000 SYMBOLIC OPERATION CODE. 4F10406
L(ALS) BCD 1ALS000 SYMBOLIC OPERATION CODE. 4F10407
L(ANA) BCD 1ANA000 SYMBOLIC OPERATION CODE. 4F10408
L(ARS) BCD 1ARS000 SYMBOLIC OPERATION CODE. 4F10409
L(BSS) BCD 1BSS000 SYMBOLIC OPERATION CODE. 4F10410
L(CAL) BCD 1CAL000 4F10411
L(CHS) BCD 1CHS000 SYMBOLIC OPERATION CODE. 4F10412
L(CLA) BCD 1CLA000 SYMBOLIC OPERATI0N CODE. 4F10413
L(CLM) BCD 1CLM000 SYMBOLIC OPERATION CODE. 4F10414
L(CLS) BCD 1CLS000 SYMBOLIC OPERATION CODE. 4F10415
L(CPY) BCD 1CPY000 4F10416
L(DCT) BCD 1DCT000 SYMBOLIC OPERATION CODE. 4F10417
L(DED) BCD 1DED000 4F10418
L(DVP) BCD 1DVP000 SYMBOLIC OPERATION CODE. 4F10419
L(FAD) BCD 1FAD000 SYMBOLIC OPERATI0N CODE. 4F10420
LIFDP) BCD 1FDP000 SYMBOLIC OPERATION CODE. 4F10421
L(FMP) BCD 1FMP000 SYMBOLIC OPERATION CODE. 4F10422
L(FSB) BCD 1FSB000 SYMBOLIC OPERATION C0DE. 4F10423
L(HPR) BCD 1HPR000 SYMBOLIC OPERATION CODE. 4F10424
L(LDA) BCD 1LDA000 4F10425
L(LDQ) BCD 1LDQ000 SYMBOLIO OPERATION CODE. 4F10426
L(LLS) BCD 1LLS000 SYMBOLIC OPERATION CODE. 4F10427
L(LRS) BCD 1LRS000 SYMBOLIC OPERATION CODE. 4F10428
L(LXD) BCD 1LXD000 SYMBOLIC OPERATION CODE. 4F10429
L(MPY) BCD 1MPY000 SYMBOLIC OPERATION CODE. 4F10430
L(MSE) BCD 1MSE000 IDMBOLIC OPERATION CODE. 4F10431
L(ORA) BCD 1ORA000 SYMBOLIC OPERATION CODE. 4F10432
L(PSE) BCD 1PSE000 SYMBOLIC OPERATION CODE. 4F10433
L(PXD) BCD 1PXD000 SYMBOLIC OPERATION CODE. 4F10434
L(QPR) BCD 1QPR000 CONSTANT USED BY C3200. 4F10435
L(QXD) BCD 1QXD000 CONSTANT USED BY C3200. 4F10436
L(STA) BCD 1STA000 SYMBOLIC OPERATION CODE. 4F10437
L(STO) BCD 1STO000 SYMBOLIC OPERATION CODE. 4F10438
L(STQ) BCD 1STQ000 SYMBOLIC OPERATION CODE. 4F10439
L(SUB) BCD 1SUB000 SYMBOLIC OPERATION CODE. 4F10440
L(SXD) BCD 1SXD000 SYMBOLIC OPERATION C0DE. 4F10441
L(TIX) BCD 1TIX001 4F10442
L(TOV) BCD 1TOV000 SYMBOLIC OPERATION CODE. 4F10443
L(TQO) BCD 1TQO000 SYMBOLIC OPERATION CODE. 4F10444
L(TRA) BCD 1TRA000 SYMBOLIC OPERATION C0DE. 4F10445
L(TSX) BCD 1TSX000 SYMBOLIC OPERATION CODE. 4F10446
L(UFA) BCD 1UFA000 IYMBOLIC OPERATION CODE. 4F10447
REM END 0F COMMON CONSTANTS USED BY SECTION ONE. 4F10448
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10449
REM 4F10450
REM COMMON/3-SUBROUTINES USED BY SECTION ONE= 4F10451
REM 4F10452
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10453
REM 4F10454
REM C0150,2/ CALLS=C0190,DIAG,C0180,C0160. CALLER=C0100. 4F10455
REM C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS I4F10456
REM = 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON- 4F10457
REM NUMERIC, SETS I = -0, AND PACKS INTO 1G SUCCESSIVE CHARACTERS4F10458
REM UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC. 4F10459
C0150 SXD C015X,2 SAVE THE C(XR2). 4F10460
TSX C0190,4 * TEST 1ST NON-BLANK CHARACTER 4F10461
CAS L(9) FOR NUMERIC OR NON-NUMERIC. 4F10462
C015X TXI C0151,0,** IF NON-NUMERIC, TRANSFER. 4F10463
NOP IF NUMERIC, THEN 4F10464
TSX C0180,2 * GO CONVERT TO BINARY. 4F10465
STO 2G SAVE NEXT NON-NUMERIC CHARACTER. 4F10466
CLA L(0) PREPARE TO SET I T0 +0. 4F10467
FWA TXI C0152,0,** GO SET I FOR NUMERIC. 4F10468
C0151 TSX C0160,2 * ASSEMBLE NON-NUMERICS IN 1G. 4F10469
STO 2G SAVE PUNCTUATION MARK, AND 4F10470
CLS L(0) PREPARE TO SET I TO -0. 4F10471
C0152 STO I SET I = +0, OR -0. 4F10472
CLA 2G PICKUP NEXT CHARACTER, 4F10473
LXD C015X,2 RESTORE THE C(XR2), AND 4F10474
TRA 1,2 * RETURN TO CALLER. 4F10475
REM END OF PROGRAM C0150. 4F10476
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10477
REM 4F10478
REM C0160,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C1000,C1200, 4F10479
REM C1500,C3000,C3100,C0150. 4F10480
REM C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND 4F10481
REM SUOCESS.VE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMK4F10482
REM IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A 4F10483
REM BLANK, IF LESS THAN 6 CHARACTERS. 4F10484
C0160 SXD C016X,2 SAVE THE C(XR2), AND 4F10485
LXA L(0),2 SET XR2 TO CONTROL SHIFTING. 4F10486
STZ 1G CLEAR WORKING STORAGE. 4F10487
C0161 LXA CTESTX,4 TEST 4F10488
C0162 CAS CTEST,4 CHARACTER 4F10489
C016X TXI C0163,0,** IN THE AC 4F10490
TXI C0165,0 AGAINST 4F10491
C0163 TIX C0162,4,1 ALL PUNCTUATION. 4F10492
TXL C0164,2,30 IF SYMBOL EXCEEDS 6 CHARACTERS, 4F10493
TSX DIAG,4 * GO TO THE DIAGNOSTIC. 4F10494
C0164 ALS 30,2 BUILD LEFT-ADJUSTED 4F10495
ORS 1G SYMBOL IN WORKING STORAGE. 4F10496
TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. 4F10497
TXI C0161,2,6 UPDATE SHIFT COUNT, AND CONTINUE. 4F10498
C0165 TXH C0167,2,0 IF PUNCTUATION IS 1ST CHARACTER, 4F10499
C0166 TSX DIAG,4 * OR ILLEGAL, GO TO THE DIAGNOSTIC. 4F10500
C0167 TXL C0166,4,5 IF LEGAL PUNCTUATION, THEN 4F10501
STO 1H 4 SAVE, AND 4F10502
CLA BLANK ADD A BLANK 4F10503
ALS 30,2 TO SYMBOLS THAT ARE LESS 4F10504
ORS 1G THAN 6 CHARACTERS IN LENGTH. 4F10505
CLA 1H PICKUP PUNCTUATION MARK, 4F10506
LXD C016X,2 RESTORE THE C(XR2), AND 4F10507
TRA 1,2 * RETURN TO CALLER. 4F10508
REM END OF PROGRAM C0160. 4F10509
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10510
REM 4F10511
REM C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400, 4F10512
REM C1000,C1100,C1200,C1400,C1500,C0150. 4F10513
REM C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ T0 4F10514
REM BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN 4F10515
REM THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC. 4F10516
C0180X TSX C0190,4 * OBTAIN 1ST NUMERIC IN THE AC. 4F105165
C0180 STO 1G PLACE 1ST NUMERIC IN 1G. 4F10517
TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F10518
CAS L(9) AND IF NON-NUMERIC, THEN 4F10519
TRA 1,2 * RETURN TO CALLER. 4F10520
NOP IF NUMERIC, THEN 4F10521
STO 2G SAVE DIGIT IN 2G. 4F10522
CLA 1G MULTIPLY 4F10523
ALS 2 C(1G) 4F10524
ADD 1G BY 4F10525
ALS 1 10, 4F10526
ADD 2G AND ADD CURRENT DIGIT. 4F10527
DCF TXI C0180,0,-F REPEAT PR0CESS FOR NEXT CHARACTER. 4F10528
REM END OF PR0GRAM C01080 4F10529
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10530
REM 4F10531
REM C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300. 4F10532
REM C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMULA IN F. 4F10533
C0190X CLA DCF SET FORMULA WORD 4F10534
STD FWA ADDRESS = -(F-REGION ADDRESS), 4F10535
SXD CHCTR,0 SET CHARACTER C0UNT = 0, 4F10536
TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10537
REM END OF PROGRAM C0190X. 4F10538
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10539
REM 4F10540
REM C0390,4/ CALLERS=C0300,C3300. 4F10541
REM C0390 INSERTS THE CHARACTER IN THE AC INT0 THE 1ST POSITION 4F10542
REM TO THE LEFT OF THAT DEFINED BY FWA AND XR1. 4F10543
C0390 CLA ENDMK PREPARE TO CHANGE 4F10544
LXD FWA,2 THE PROPER CHARACTER 4F10545
LXD CHCTR,1 IN THE F-REGION. 4F10546
TNX C0393,1,1 ADJUST MASK 4F10547
C0392 LGL 6 TO POSITION 4F10548
TIX C0392,1,1 CHARACTER. 4F10549
C0393 COM INVERT MASK, AND 4F10550
ANS -1,2 ERASE PROPER CHARACTER. 4F10551
LGL 36 ADJUST CHARACTER, AND 4F10552
ORS -1,2 INSERT IN ERASED POSITION. 4F10553
REM C0390 CONTINUES BY USING C0190. 4F10554
REM 4F10555
REM C0190,4/ CALLERS=CD000,CB000,CC000,C0100,C0200,C0300,C0400, 4F10556
REM C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200, 4F10557
REM C3300,C3400,C0150,C0160,C0180,SS000,ROYCNV,RSC,LPR. 4F10558
REM C0190 OBTAINS IN AC TH NEXT NON-BLANK CHARACTER OF FORMULA. 4F10559
C0190 SXD C0194,1 SAVE THE C(XR1), AND 4F10560
LXD CHCTR,1 SET XR1 = CHARACTER COUNT. 4F10561
LDQ RESIDU PICK UP ANY REMAINING CHARACTERS. 4F10562
C0191 TIX C0193,1,1 IF NONE, 4F10563
LXD FWA,1 PICK UP NEXT FORMULA 4F10564
LDQ 0,1 WORD FROM F-REGION, 4F10565
TXI C0192,1,-1 AND INCREASE 4F10566
C0192 SXD FWA,1 FORMULA WORD ADDRESS BY 1. 4F10567
LXA L(6),1 RESET XR1 FOR 6 NEW CHARACTERS. 4F10568
C0193 PXD ,0 EXAMINE 4F10569
LGL 6 NEXT CHARACTER 4F10570
CAS BLANK AND COMPARE WITH A BLANK. 4F10571
C0194 TXI C0195,0,** IF BLANK, 4F10572
CHCTR TXI C0191,0,** GO EXAMINE NEXT CHARACTER. 4F10573
C0195 SXD CHCTR,1 IF NOT BLANK, RESET CHAR COUNT, 4F10574
STQ RESIDU SAVE ANY REMAINING CHARACTERS, 4F10575
LXD C0194,1 RESTORE THE C(XR1), AND 4F10576
TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10577
REM END OF PROGRAM C0190. 4F10578
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10579
REM 4F10580
REM CIT00,4/ CALLERS=C0200,C0400,C0900,C1000,C1100,C1300,C1600, 4F10581
REM C3200,RDC,WBT,RBT,WRD,BRW,EFT,LPR,CMA,EMK,INPUT(OUTPUT), 4F10582
REM ETMSW(LTMSWI,LIB,VRA(VRD). 4F10583
REM CIT00 MAKES ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN 4F10584
REM THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3. 4F10585
CIT00 SXD CITXR2,2 SAVE THE C(XR2). 4F10586
SXD CITXR1,1 SAVE THE C(XR1). 4F10587
STQ CITMQR SAVE THE C(MQR). 4F10588
LXD BBOX,2 SET XR2 = 2S COMPL OF NO-WRDS-ENTD.4F10589
CLA BS COMPARE BLOCK SIZE 4F10590
SUB EC WITH ENTRY COUNT. 4F10591
TNZ CIT04 IF BLOCK IS NOT FULL,GO MAKE ENTRY.4F10592
WRS CITTAP PREPARE TO WRITE BLOCK ON CIT TAPE.4F10593
PAX ,1 SET XR1 = 0, AND 4F10594
CIT01 CPY CIB,1 COPY SUCCESSIVE 4F10595
TXI CIT02,1,-1 WORDS OF BLOCK 4F10596
CIT02 TXI CIT03,2,1 AND CONTINUE 4F10597
CIT03 TXH CIT01,2,1 UNTIL XR2 = 0. 4F10598
IOD WHEN DONE, 4F10599
CIT04 LXA L(4),1 SET XR1 = ENTRY SIZE. 4F10600
CIT05 TXI CIT05+1,4,-1 SET XR4 = -(ADDR OF NEXT ENTRY WRD)4F10601
CLA 0,4 AND PICK UP ADDRESS OF NEXT ENTRY 4F10602
STA CIT06 TO SET NEXT ADDRESS. 4F10603
CIT06 CLA ** MOVE ENTRY 4F10604
STO CIB,2 INTO CIB BUFFER, 4F10605
TXI CIT07,2,-1 AND C0UNT -1 FOR EACH WORD ENTERED.4F10606
CIT07 TIX CIT05,1,1 WHEN DONE, 4F10607
SXD BBOX,2 SAVE THE C(XR2), AND 4F10608
DMSR99 PXD DMSR05+1,2 COMPUTE THE 4F10609
COM REAL NUMBER 4F10610
ADD 2E18 OF WORDS ENTERED 4F10611
DMSR98 PDX DMSR05,2 IN CIB BUFFER, AND 4F10612
SXD EC,2 SAVE IN EC. 4F10613
LDQ CITMQR RESTORE THE C(MQR), 4F10614
LXD CITXR1,1 RESTORE THE C(XR1), 4F10615
LXD CITXR2,2 RESTORE THE C(XR2I, AND 4F10616
TRA 1,4 * EXIT TO MAIN ROUTINE (5TH WRD CS). 4F10617
REM END OF PROGRAM CIT00. 4F10618
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10619
REM 4F10620
REM DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA. 4F10621
REM DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR, 4F10622
REM DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION. 4F10623
REM DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE. 4F10624
DIM1SR SXD DMSR00,4 SAVE THE C(XR4) FOR RETURN, 4F10625
LXD DIM1IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM14F10626
CLA ORGDM1 AND PICK UP 1ST ADDRESS 0F DIM1 TO 4F10627
DMSR00 TXI DMSR01,0,** GO SET DRUM ADDRESS. 4F10628
REM DIM2SR= ENTRY POINT FOR 2 DIMENSION TABLE. 4F10629
DIM2SR SXD DMSR00,4 SAVE THE C(XR4) FOR RETURN, 4F10630
LXD DIM2IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM24F10631
CLA ORGDM2 AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632
DMSR01 STA DRMADR SET DRUM ADDRESS. 4F10633
CLA DMSR99 SET LOOP ADDRESS TO 4F10634
STA DMSR15 DMSRO5+1 FOR DIM1 AND DIM2. 4F10635
CAL DMCN12 (STZ D3) 4F10636
DMSR11 TXI DMSR02,0,** GO SET OP FOR DIM1 AND DIM2. 4F10637
REM DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE. 4F10638
DIM3SR SXD DMSR00,4 SAVE THE C(XR4) FOR RETURN, 4F10639
LXD DIM3IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM34F10640
CLA ORGDM3 AND PICK UP 1ST ADDRESS 0F DIM3 TO 4F10641
STA DRMADR SET DRUM ADDRESS. 4F10642
CLA DMSR98 SET LOOP ADDRESS TO 4F10643
STA DMSR15 DMSR05 FOR DIM3. 4F10644
CAL DMCN3 (CPY D3) 4F10645
DMSR02 SLW DMSR05 4 SET OP CODES ACCORDING 4F10646
SLW DMSR07 TO DIMENSION. 4F10647
TXL DMSR08,4,0 IF TABLE IS EMPTY, GO OUT. 4F10648
SXD DMSR11,4 SAVE ENTRY COUNT IN CASE OF ERROR. 4F10649
DMSR14 LXA L(5),4 SET ERROR COUNTER FOR 5 ATTEMPTS. 4F10650
DMSR13 SXD DMSR12,4 SAVE ERROR COUNTER, AND 4F10651
LXD DMSR11,4 RESET ENTRY COUNT. 4F10652
RDR 3 SELECT DRUM. 4F10653
CLA E+2 GET NAME OF VARIABLE. 4F10654
LDA DRMADR LOAD CURRENT DRUM ADDRESS, AND 4F10655
DMSR04 CPY DRSYM COPY DRUM SYMBOl. 4F10656
TLQ DMSR06 COMPARE WITH NAME OF VARIABLE, AND 4F10657
CPY D12 IF NOT LESS, COPY N1 AND N2. 4F10658
DMSR05 PZE D3 (DIM1 AND DIM2 = STZ , DIM3 = CPY).4F10659
CPY DRCKSM COPY CHECKSUM. 4F10660
CAS DRSYM COMPARE DRUM SYMBOL WITH NAME OF V.4F10661
TSX DIAG,4 * GO TO DIAGNOSTIC - MACHINE ERROR. 4F10662
DMSR12 TXI DMSR09,0,** IF NOT EQUAL, THEN 4F10663
CPY DRSYM CONTINUE 4F10664
TLQ DMSR06 PROCESS 4F10665
CPY D12 UNTIL 4F10666
DMSR15 TIX **,4,1 TABLE 4F10667
TXI DMSR08,0 IS EXHAUSTED. 4F10668
DMSR06 CPY D12 PASS OVER ENTRY 4F10669
DMSR07 PZE D3 (DIM1 AND DIM2 = STZ, DIM3 = CPY). 4F10670
CPY DRCKSM AND CHECKSUM, AND 4F10671
TIX DMSR04,4,1 REPEAT LOOP. 4F10672
DMSR08 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10673
TRA 1,4 * TAKE NOT FOUND EXIT. 4F10674
DMSR09 CAL DRSYM COMPUTE A 4F10675
ACL D12 NEW 4F10676
ACL D3 LOGICAL CHECKSUM 4F10677
COM FOR ENTRY, AND 4F10678
ACL DRCKSM COMPARE WITH 4F10679
COM DRUM CHECKSUM. 4F10680
TZE DMSR10 IF NOT EQUAL, THEN 4F10681
LXD DMSR12,4 REPEAT ATTEMPT, 4F10682
TIX DMSR13,4,1 UNLESS PROCESS 4F10683
TSX DIAG,4 * FAILED 5 TIMES IN READING DRUM. 4F10684
DMSR10 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10685
TRA 2,4 * TAKE FOUND EXIT TO MAIN ROUTINE. 4F10686
REM 4F10687
DMCN12 STZ D3 CONSTANT USED BY DIM.SR. 4F10688
DMCN3 CPY D3 CONSTANT USED BY DIM.SR. 4F10689
ENT BCD 1NTR000 VARIABLE USED BY IO AND FL. 4F10690
NZE BCD 1PZE000 VARIABLE USED BY FL. 4F10691
REM END OF PROGRAM DIM.SR. 4F10692
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10693
REM 4F10604
REM DRTABS(,4)/ CALLS=RDRX,DIAG. CALLERS=C1200,SS000,ROYCNV,CMA, 4F10695
REM VRA(VRD). 4F10696
REM DRTABS IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF 4F10697
REM THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM 4F10698
REM TABLES, AND ALSO SEARCHES THE DRUM TABLES FOR INFORMATION. 4F10699
REM DIMALT= ENTRY POINT FOR DIMENSION TABLES. 4F10700
DIMALT CAL TXLOP PICK UP SNITCH CONTROL, 4F10701
TXI DRTABS,0 AND GO SET SNITCH FOR DIM TABLES. 4F10702
REM ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES. 4F10703
ALT CLA TXHOP PICK UP SWITCH CONTROL, 4F10704
DRTABS STP DIMSW SET SNITCH. 4F10705
CLA 0,4 GET CALLER (TSX ....IX,4) IN AC. 4F10706
SXD XR1,1 SAVE THE C(XR1), 4F10707
SXD XR2,2 SAVE THE C(XR2), 4F10708
SXD XR4,4 SAVE THE C(XR4), AND 4F10709
STQ MQ SAVE THE C(MQR). 4F10710
ADD L(1) PREPARE TO MOVE PARAMETERS 4F10711
STA MOVE INTO WORKING STORAGE. 4F10712
SUB L(4) PREPARE TO UPDATE 4F10713
STA UPDATE PERMANENT PARAMETER. 4F10714
LXA L(5),1 MOVE 5 WORDS 4F10715
MOVE CAL **,1 (....IX+1) 4F10716
SLW TEMP,1 OF PARAMETERS 4F10717
TIX MOVE,1,1 INTO WORKING STORAGE. 4F10718
CLS NAR INITIALIZE 4F10719
STA TRY ALL 4F10720
ADD L(1) GENERAL 4F10721
STA ESUM1 INSTRUCTIONS= 4F10722
STA ESUM2 X 4F10723
ARS 17 X 4F10724
ADM BIAS X 4F10725
STA JUMP1 X 4F10726
STA JUMP2 X 4F10727
CAL FDA X 4F10728
STD COMPR X 4F10729
STP JUMP1 X 4F10730
STP SW X 4F10731
STP RX4 X 4F10732
CLA LBUF X 4F10733
STA BUFL X 4F10734
CLA TDA X 4F10735
LXD TDA,2 X 4F10736
SXD BUFF+1,2 X 4F10737
DIMSW TXL BUFF,0 IF DIM TABLE, SKIP SEARCH. 4F10738
TXL XERR01+1,2,0 SKIP IF TABLE IS EMPTY. 4F10739
LXD NAR,1 4F10740
SXD NC,2 4F10741
SXD ADD01,2 4F10742
ADD02 TNX COMPR,1,1 COMPUTES (N*L). 4F10743
ADD01 TXI ADD02,2,** (N) 4F10744
BUFFM1 LXD FDA,2 4F10745
BUFF LXD DBL,1 L(J) 4F10746
TIX BUFF+3,1,** (N) TEST FOR TABLE OVERFLOW. 4F10747
XERR01 TXI WHICH,0 GO FIND OUT WHICH TABLE OVERFLOWED.4F10748
LXD DI,1 4F10749
WDR 5,1 4F10750
SW TXL EBLK,0 ENTRY SUM=TXL, BLOCK SUM=TXH. 4F10751
TXL ADD04,2,0 SKIP IF TABLE IS EMPTY. 4F10752
TXI ADD03,2,1 4F10753
ADD03 TNX ADD05,2,50 SKIP IF BLOCK IS NOT YET FULL. 4F10754
ADD04 STZ DUMP START NEW BLOCK CHECKSUM. 4F10755
CLA TDA CHANGE CHECKSUM ADDRESS. 4F10756
STA FDA 4F10757
ADD L(1) SET ENTRY ADDR = CHECKSUM ADDR +1. 4F10758
STA TDA 4F10759
ADD05 CAL DUMP 4F10760
ACL G ADD NEW FLOCON TO 4F10761
SLW DUMP CHECKSUM FOR THIS BLOCK. 4F10762
LDA FDA 4F10763
CPY DUMP WRITE BLOCK CHECKSUM ON DRUM. 4F10764
WDR 5,1 4F10765
LDA TDA 4F10766
CPY G WRITE NEW FLOCON ON DRUM. 4F10767
XR2 TXI NOWIN,0,** GO UPDATE FLOCON PARAMETER. 4F10768
EBLK PXD ,0 FOR ALL TABLES EXCEPT FLOCON= 4F10769
LXD NAR,2 (L) 4F10770
LDA TDA NEXT DRUM ENTRY ADDRESS. 4F10771
TNX ESUM2,2,1 IF L = 1, 4F10772
ESUM1 CAD **,2 (ARG1+L-1) WRITE NEW 4F10773
TIX ESUM1,2,1 ENTRY ON DRUM. 4F10774
ESUM2 CAD ** (ARG1+L-1) 4F10775
SLW DUMP COMPUTE AND 4F10776
CPY DUMP WRITE CHECKSUM FOR NEW ENTRY. 4F10777
NOWIN CAL NAR UPDATE PERMANENT 4F10778
ARS 18 PARAMETERS FOR ENTRY 4F10779
ADD DECR1 JUST ADDED TO TABLE. 4F10780
RX4 TXL RX4+2,0,** IF TABLE WAS FLOCON, 4F10781
SUB L(1) READJUST. 4F10782
ADM TDA N=N+1,TDA=TDA+(L+1) OR (L). 4F10783
UPDATE STO ** (....IX-3) 4F10784
LXD TDA,2 L(N) 4F10785
XR4 TXI OUT,0,** GET TAG AND EXIT. 4F10786
NXBLK LXD NC,4 4F10787
LXD FDA,2 L(K*L),K=K. 4F10788
NEW LXD NAR,1 L(L) 4F10789
TRY CLA **,1 (ARG1+L) 4F10790
BUFL CAS **,2 (BUFR OR CTABL) 4F10791
NC TXI NC+2,0,** NOT FOUND. 4F10792
TXI YEA,2,-1 K*L = K*L-1. 4F10793
TNX BUFFM1,4,1 N = N-1 OR ITEM NOT IN TABLE. 4F10794
SXD NC+4,1 4F10795
TIX NEW,2,** K = K-1. 4F10796
SXD NC,4 SAVE CURRENT VALUE OF N, 4F10797
CAL DBL AND GET NEW BLOCK. 4F10798
ADM FDA 4F10799
STA FDA 4F10800
LXD NTL,2 4F10801
COMPR TIX COMPR+2,2,** (K*L) 4F10802
SXD FDA,2 K*L = (N*L)MOD K*L IF N*L IS 4F10803
SXD NTL,2 LESS TNAN K*L, OTHERWISE K*L = K*L.4F10804
TSX RDRX,4 * GO READ NEXT BLOCK INTO BUFFER. 4F10805
NTL TXI NXBLK,0,** (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD 4F10806
YEA TIX TRY,1,1 K*L). TEST NEXT WORD OF ARG. L=L-1.4F10807
LXD TDA,2 (N) 4F10808
SXD YEA+3,4 4F10809
TIX OUT,2,** COMPUTE TAG. 4F10810
LXA L(0),2 4F10811
OUT PXD ,2 EXIT WITH TAG IN THE AC. 4F10812
ARS 18 (TAG = NUMBER OF ENTRIES 4F10813
LXD XR2,2 WHICH PRECEED THE ENTRY 4F10814
LXD XR4,4 WHICH EQUALS THE ARGUMENT. 4F10815
LXD XR1,1 RESTORE THE C(XR1,XR2,XR4), 4F10816
LDQ MQ RESTORE THE C(MQR), AND 4F10817
TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10818
WHICH LXD XR4,4 GET ALPHA BAR, AND 4F10819
CLA 0,4 AND,PICK UP ALPHA (TSX ...NIX,4). 4F10820
ANA MASK2 BLANK ALL BUT ...NIX. 4F10821
SUB CONX (...NIX) - (ADDR OF FXCNIX-5). 4F10822
LXA L(9),4 SET XR4 FOR 9 TABLES. 4F10823
COMPUT SUB L(5) COMPUTE WHICH 4F10824
TZE WHICHX TABLE OVERFLOWED. 4F10825
TIX COMPUT,4,1 IF TABLE IS NOT FOUND, 4F10826
TSX DIAG,4 * GO TO DIAGNOSTIC. 4F10827
WHICHX PXD ,4 OTHERWISE, 4F10826
COM CONVERT 2S COMPLEMENT 4F10829
ADD 2E18 OF NUMBER, 4F10630
PDX ,4 PLACE IN XR4, AND 4F10831
TXI DIAG,0 * GO TO DIAGNOSTIC. 4F11832
REM 4F10833
CONX PZE FXCNIX-5 CONSTANT USED BY DRTABS. 4F10834
BUFR BES 50 DRUM TABLE BUFFER. 4F10835
MQ BSS 1 WORKING STORAGE USED BY DRTABS. 4F10836
NAR BSS 1 WORKING STORAGE USED BY DRTABS. 4F10837
TDA BSS 1 NORKING STORAGE USED BY DRTABS. 4F10838
FDA BSS 1 WORKING STORAGE USED BY DRTABS. 4F10839
DBL BSS 1 WORKING STORAGE USED BY DRTABS. 4F10840
DI BSS 1 WORKING STORAGE USED BY DRTABS. 4F10841
TEMP BSS 0 INDEXING ADDRESS FOR ABOVE -DRTABS.4F10842
DUMP BSS 1 WORKING STORAGE USED BY DRTABS. 4F10643
REM END OF PROGRAM DRTABS. 4F10844
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10845
REM 4F10646
REM GETIFN,4/ OALLERS=COI00,CO200,C1000,C1100,C1600,C3200. 4F10847
REM GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C. 4F10848
GETIFN LXD EIFNO,1 PLACE THE INTERNAL FORMULA 4F10849
PXD ,1 NUMBER IN XRI, IN THE DECREMENT 4F10850
STO 1C OF THE AC, AND IN IC. THEN 4F10851
TRA 1,4 RETURN TO CALLER. 4F10852
REM END OF PROGRAM GETIFN. 4F10853
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10854
REM 4F10855
REM JIF(GIF),4/ CALLERS=RDC,EFT,LPR,SPC,CMA,EMK,INPUT(OUTPUT), 4F10856
REM VRA(VRD),C3200. 4F10857
REM JIF = ENTRY POINT USED BY RDC,LPR,SPC,CMA,EMK,VRA(VRD),C3200.4F10858
JIF CAL EIFNO INCREASE THE 4F10859
ADD D1 INTERNAL FORMULA NUMBER 4F10860
STD EIFNO BY 1. 4F10861
REM GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT). 4F10862
GIF CAL EIFNO PICKUP IFN, 4F10863
ANA 1BAR CLEAR SL, AND 4F10864
L(SL) SLW SL PLACE IFN IN THE DECREMENTS 4F10865
L(TL) STD TL OF SL AND TL. 4F10866
TRA 1,4 * EXIT TO CALLER. 4F10867
REM END OF PROGRAM JIF(GIF). 4F10868
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10869
REM 4F10870
TRA STATEA RETURN FROM DIAGNOSTIC 4F10873
BSS 28 NOT USED. 4F10874
REM 4F10901
REM 4F10908
REM RA000,4/ CALLERS=LPR,ARITH. 4F10909
REM RA000 COMPUTES RELATIVE ADDRESS. 4F10910
RA000 SXD RAXR4,4 SAVE THE C(XR4) FOR RETURN. 4F10911
STZ EPS CLEAR EPSILON (WORKING STORAGE). 4F10912
CLA DIMSAV EXAMINE THE 4F10913
ED2 PAX E+4,4 DIMENSION COUNT, AND 4F10914
TXL ED1,4,2 IF 3 DIMENSION, 4F10915
ADD L(1) INCREASE IT 1. 4F10916
ED1 ADM ED2 THEN SET 4F10917
STA ED3 ED3 ADDRESS TO 4F10918
ED3 CLA **,4 EXAMINE SUCCESSIVE 4F10919
LDQ D1 SUBSCRIPT 4F10920
TZE ED4 VARIABLES, AND 4F10921
STQ EPS ACCORDINGLY SET 4F10922
LDQ L(0) EPSILON AND 4F10923
ED4 STQ EPS,4 EPSILON SUB I 4F10924
TIX ED3,4,1 TO 1 OR TO 0. WHEN DONE, 4F10925
CLA D1 IF 1 DIMENSION, PICKUP DECREMENT 1,4F10926
LXA DIMSAV,4 AND GO SUBTRACT ADDEND 1. 4F10927
TXL 1D1,4,1 IF 2 OR 3 DIMENSION, THEN 4F10928
LDQ E+11 PICKUP ADDENDS 1 AND 2, 4F10929
STZ E+11 CLEAR E+11, AND 4F10930
SLQ E+11 RESTORE ADDEND 1 TO E+11. 4F10931
LGL 18 ADJUST AND PLACE 4F10932
STQ N2 ADDEND 2 IN N2. 4F10933
LDQ E+6 AND, IF 2 DIMENSION 4F10934
CLA EPS-1 PICKUP EPSILON SUB 1, 4F10935
TXL 2D1,4,2 AND GO SUBTRACT ADDEND 2. 4F10936
SUB E+12 IF 3 DIMENSION, SET GTAG 4F10937
STO GTAG TO EPSILON SUB 1 - ADDEND 3. 4F10938
LDQ E+8 PICKUP DIMENSIONS 1 AND 2, 4F10939
STZ E+8 CLEAR E+8, AND 4F10940
SLQ E+8 RESTORE DIMENSION 1 TQ E+8. 4F10941
LGL 18 ADJUST, AND MULTIPLY 4F10942
MPY GTAG DIMENSION 2 TIMES GTAG. 4F10943
ALS 17 THEN ADD 4F10944
ADD EPS-2 EPSILON SUB 2 4F10045
LDQ E+8 TO THE PRODUCT, AND 4F10946
2D1 SUB N2 SUBTRACT ADDEND 2. 4F10047
STO GTAG MULTIPLY 4F10040
MPY GTAG THE RESULT 4F10049
ALS 17 TIMES 4F10950
ADD EPS,4 DIMENSION 1, AND,ADD,IN EPSILON 4F10951
ADD EPS SUB 1 AND EPSILON. 4F10952
1D1 SUB E+11 SUBTRACT ADDEND 1, 4F10953
STO GTAG AND PLACE THE RESULT 4F10954
CAL E IN TNE DECREMENT OF GTAG, 4F10955
ARS 24 WITH I-TAUTAG 4F10956
STA GTAG IN THE ADDRESS. 4F10957
LXD RAXR4,4 RESTORE THE C(XR4), AND 4F10958
TRA 1,4 * EXIT TO CALLER. 4F10959
REM END OF PROGRAM RA000. 4F10960
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10961
REM 4F10962
REM RDRX*4/ CALLS=DIAG. CALLER=DRTABS. 4F10963
REM RDRX READS A BLOCK OF DRUM ENTRIES INTO 50 WORD BUFR. 4F10964
RDRX LXA DRMERC,1 SET FOR 5 ATTEMPTS TO READ,DRUM. 4F10965
REP LXD DI,2 SET XRZ = (5-DRUM NUMBER). 4F10966
TXH BIAS-2,2,0 IF NOT GREATER THAN ZERO, 4F10967
TSX DIAG,4 * GO TO DIAGNOSTIC. 4F10968
RDR 5,2 SELECT CURRENT DRUM. 4F10969
LXD FDA,2 SET XR2 = NO. OF WORDS TO COPY. 4F10970
BIAS PXD ETSUM,0 CLEAR THE AC. 4F10971
LDA FDA DRUM ORIGIN OF CURRENT BLOCK. 4F10972
JUMP1 TXL ** (ETSUM-2*L) TXL=ENTRY,TXH=BLOCK. 4F10973
CAD DUMP READ 4F10974
COM FLOCON BLOCK 4F10975
LBUF CAD BUFR,2 AND COMPUTE 4F10976
TIX LBUF,2,1 LOGICAL CHECKSUM. 4F10977
XR1 TXI PROVE,0,** GO TEST CHECKSUM. 4F10978
CPY BUFR,2 COPY LOOP, 4F10979
TNX ERR,2,1 FOR ALL 4F10980
CPY BUFR,2 TABLES 4F10901
TNX ERR,2,1 EXCEPT 4F10902
CPY BUFR,2 FLOCON= 4F10903
TNX ERR,2,1 X 4F10904
CPY BUFR,2 X 4F10905
TNX ERR,2,1 X 4F10906
CPY BUFR,2 X 4F10907
TNX ERR,2,1 X 4F10906
CPY BUFR,2 X 4F10909
TNX ERR,2,1 X 4F10990
CPY BUFR,2 X 4F10901
NOP X 4F10992
ETSUM CAD DUMP SUM CHECKSUMS. 4F10993
JUMP2 TIX **,2,1 (ETSUM-2*L) TEST END OF BLOCK. 4F10994
RDRXCR LXD FDA,2 COMPUTE 4F10995
COM NEW 4F10996
ACL BUFR,2 LOGICAL 4F10997
TIX RDRXCR+2,2,1 CHECKSUM, AND 4F10998
PROVE COM IF CHECKSUMS COMPARE 4F10999
TZE 1,4 * RETURN TO MAIN ROUTINE. 4F11000
ERR TIX REP,1,1 OTHERWISE, REPEAT UP TO 5 TIMES. 4F11001
TSX DIAG,4 * FAILED 5 TIMES IN READING DRUM. 4F11002
REM END OF PROGRAM RDRX. 4F11003
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11004
REM 4F11005
REM SR6DC1,1/ CALLS=DIAG. CALLERS=CA000,SS000. 4F11006
REM SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV. 4F11007
SR6DC1 SXD SR6XR2,2 SAVE THE C(XR2), AND 4F11008
LXA L(6),2 SET TO COUNT 6 CHARACTERS. 4F11009
STZ SR6WRK INITIALIZE OUTPUT CELL TO 0. 4F11010
SR6DC2 PXD ,0 OBTAIN NEXT CHARACTER 4F11011
LGL 6 IN AC AND 4F11012
CAS ABLANK TEST FOR BLANK. 4F11013
SR6XR2 TXI SR6DC3,0,** IF NOT BLANK, 4F11014
ENDWRD TXI SR6DC4,0,-1 (DECR= END OF PROBLEM INDICATOR) 4F11015
SR6DC3 CAS L(9) TEST FOR NUMERIC. 4F11016
TSX DIAG,4 * IF NON-NUMERIC - GO TO DIAGNOSTIC. 4F11017
NOP NOP IF NUMERIC, 4F11018
STO SR6WRK+1 SAVE DIGIT, AND 4F11019
CLA SR6WRK MULTIPLY PREVIOUS PARTIAL 4F11020
ALS 2 RESULT BY 10, 4F11021
ADD SR6WRK AND ADD IN 4F11022
ALS 1 CURRENT DIGIT, SAVING 4F11023
ADD SR6WRK+1 NEW PARTIAL RESULT. 4F11024
STO SR6WRK THEN ADJUST C0UNT, AND 4F11025
SR6DC4 TIX SR6DC2,2,1 WHEN 6 CHARS HAVE BEEN TREATED, 4F11026
CLA SR6WRK LEAVE OUTPUT IN AC, 4F11027
LXD SR6XR2,2 RESTORE THE C(XR2), AND 4F11028
TRA TRA 1,1 * EXIT TO MAIN ROUTINE. 4F11029
REM END OF PROGRAM SR6DC1. 4F11030
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11031
REM 4F11032
REM SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM.SR,DRTABS,TET00,TESTFX. 4F11033
REM CALLERS=ARITH,LPR,C0200. 4F11034
REM SS000 SCANS SUBSCRIPT COMB1NATIONS AND MAKES TABLE ENTRIES. 4F11035
SS000 SXD SXR2,2 SAVE C(XR2), 4F11036
SXD SXR1,1 SAVE C(XR1), 4F11037
SXD SXR4,4 SAVE C(XR4), AND 4F11038
STZ DIMCTR SET DIMCTR = 0. 4F11039
LXA L(6),4 INITIALIZE 4F11040
SXD SBS2,4 FOR EACH SUBSCRIPT MEMBER. 4F11041
CAL TXHOP PICK UP TXH OP, AND 4F11042
STP SBC6 SET OP 4F11043
STP SBC8 SWITCHES. 4F11044
CAL TXLOP PICK UP TXL OP, AND 4F11045
STP SBC4 SET OP SWITCH. 4F11046
SS001 LXA L(6),3 SET FOR 6 CHARACTERS OF MULTIPLIER.4F11047
STZ SYMBOL CLEAR WORKING STORAGE. 4F11048
TSX C0190,4 * GET FIRST PON BLANK CHAR IN THE AC.4F11049
CAS L(9) COMPARE IT UITH 9. 4F11050
TXI SS0045,0 RETURN TO EXPLICIT CODING. 4F11051
NOP IF NUMERIC, 4F11052
STO FIRSTC SAVE RIGHT-ADJUSTED DIGIT, AND 4F11053
SS0012 ALS 36,2 LEFT-ADJUST DIGIT TO 4F11054
ORS SYMBOL BUILD SYMBOL. 4F11055
TXI SS0013,2,6 UPDATE SHIFT DECREMENT, AND 4F11056
SS0013 TXI SS0014,1,-1 UPDATE COUNT OF CHARS COLLECTED. 4F11057
SS0014 TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. 4F11058
LXA CTESTX,4 SST XR4 = NO. OF PUNCTUATION MARKS.4F11059
SS0015 CAS CTEST,4 TEST THIS CHARACTER AGAINST 4F11060
TXI SS0016,0 ALL PUNCTUATION. 4F11061
TRA SUBTR,4 IF EQUALITY IS FOUND, TRANSFER. 4F11062
SS0016 TIX SS0015,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11063
CAS L(9) TEST FOR NUMERIC. 4F11064
TXI SS0017,0 AND IF 4F11065
CTESTX NOP CTEST-ENDMK FOUND TO BE NUMERIC, 4F11066
TXH SS0012,1,0 CONTINUE BUILDING SYMBOL. BUT IF 4F11067
TXI STOP49,0 SEVENTH CHAR, GO TO DIAGNOSTIC. 4F11066
SS0017 TSX TESTFX+1,1 * GO TEST FOR FIXED POINT VARIABLE. 4F11069
TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11070
LGL 30 RESTORE FIXED POINT VARIABLE 4F11071
SLW RESIDU TO RESIDU, AND 4F11072
LXD CHCTR,4 RESET CHARACTER COUNTER 4F11073
TXI SS0018,4,1 TO BEGIN PROCESSING 4F11074
SS0018 SXD CHCTR,4 SUBSCRIPT MULTIPLIER. 4F11075
SBX CLS SBC6 TEST FOR 4F11076
TMI SBX1 PREVIOUS MULTIPLIER. 4F11077
TSX DIAG,4 * DOUBLE MULTIPLIER FOR SUBSCRIPT. 4F11078
SBX1 STO SBC6 RESET MULTIPLIER SWITCH. 4F11079
CLA FIRSTC TEST 4F11080
SUB L(10) MULTIPLIER 4F11081
TMI SBX2 FOR CONSTANT. 4F11082
TSX DIAG,4 * SUBS-MULTIPLIER NOT A CONSTANT. 4F11083
SBX2 CAL SYMBOL ADJUST MULTIPLIER 4F11084
ARS 42,2 TO LOW ORDER POSITION. 4F11085
LXD SBS2,4 GET STORING TAG, 4F11086
SLW E+9,4 AND STORE MULTIPLIER. 4F11087
STZ E+15,4 SET ADDEND = 0. 4F11088
SS003 LXA L(6),3 SET FOR 6 CHARS OF VARIABLE/ADDEND.4F11089
STZ SYMBOL CLEAR WORKING STORAGE. 4F11090
SS004 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.4F11091
SS0045 LXA CTESTX,4 COMPARE CHARACTER 4F11092
SS005 CAS CTEST,4 TO ALL 4F11093
TXI SS006,0 PUNCTUATION. 4F11094
TRA SUBTR,4 IF EqUALITY IS FOUND, TRANSFER. 4F11095
SS006 TIX SS005,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11096
TXL SS008,1,5 IF 1ST CHARACTER OF VARIABLE OR 4F11097
STO FIRSTC ADDEND, SAVE FOR LATER TESTS. 4F11098
SS008 ALS 36,2 POSITION EACH CHARACTER. BUT 4F11099
SS009 TXL STOP49,1,0 * ON 7TH CHARACTER, GO TO STOP. 4F11100
ORS SYMBOL BUILD SYMBOL. 4F11101
TXI SS007,2,6 UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102
SS007 TXI SS004,1,-1 UPDATE FOR ANOTHER CHAR COLLECTED. 4F11103
STOP49 TSX DIAG,4 * GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F11104
REM SUBTR/ CONTR0L TRANSFERS FOR SUBSCRIPT SCAN= 4F11105
TXI ISC,0 EMK (ILLEGAL IN LIST SUBSCRIPT). 4F11106
ISC TSX DIAG,4 * ( (ILLEGAL IN LIST SUBSCRIPT). 4F11107
TXI SBC,0 , 4F11108
TXI SBR,0 ) 4F11109
TXI ISC,0 = (ILLEGAL IN LIST SUBSCRIPT). 4F11110
SBS2 TXI SBM,0,** - ,,SUBSCRIPT ELEMENT COUNTER. 4F11111
TXI ISC,0 / (ILLEGAL IN LIST SUBSCRIPT). 4F11112
SXR1 TXI ISC,0,** . (ILLEGAL IN LIST SUBSCRIPT). 4F11113
SXR2 TXI SBP,0,** + 4F11114
SXR4 TXI SBX,0,** * 4F11115
SUBTR BSS 0 INDEXING ADDRESS FOR ABOVE LIST. 4F11116
SBM SSM MINUS ADDEND. 4F11117
SBP CLM PLUS ADDEND. 4F11118
LXD SBS2,4 GET STORING TAG, AND 4F11119
STO E+15,4 STORE SIGN OF ADDEND. 4F11120
CLS SBC8 TEST SWITCH 4F11121
TMI SBP1 FOR PREVIOUS ADDEND. 4F11122
TSX DIAG,4 * DOUBLE ADDEND FOR SUBSCRIPT. 4F11123
SBP1 STO SBC8 RESET ADDEND SWITCH. 4F11124
TSX TESTFX,1 * GO TO TEST FOR FIXED POINT. 4F11125
TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11126
LXD SBS2,4 GET STORING TAG, AND 4F11127
CLS SBC6 TEST SWITCH 4F11128
TPL SBP2 FOR PREVIOUS MULTIPLIER. 4F11129
CLA L(1) IF NONE, 4F11130
STO E+9,4 SET MULTIPLIER 4F11131
TXI SBP4,0 TO 1, AND CONTINUE. 4F11132
SBC1 CLS SBC6 RESET MULTIPLIER 4F11133
SBP2 STO SBC6 OP SWITCH. 4F11134
SBP4 CAL SYMBOL IF VARIABLE SUBSCRIPT, 4F11135
TXH SBP41,2,36 ADD A BLANK 4F11136
CAL BLANK IF LESS 4F11137
ALS 36,2 THAN 6 4F11138
ORA SYMBOL CHARACTERS, AND 4F11139
SBP41 SLW E+10,4 PLACE IN E-REGION. 4F11140
TSX TESTFX,1 * GO TO TEST FOR FIXED POINT. 4F11141
TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11142
CLA SBC8 IF THERE IS AN ADDEND, 4F11143
TMI SS003 GO COLLECT, OTHERWISE 4F11144
TXI SBC7,0 GO UPDATE STORING TAG. 4F11145
SBR CLS SBC4 SET SWITCH 4F11146
STO SBC4 FOR CLOSING PARENTHESIS. 4F11147
SBC CAL DIMCTR UPDATE 4F11148
ADD L(1) DIMENSION COUNTER 4F11149
STA DIMCTR BY 1. 4F11150
LXD SBS2,4 GET STORING TAG. 4F11151
SBC6 TXH SBC1,0 SWITCH-IF NO MULTIPLIER, AND 4F11152
SBC8 TXH SBC2,0 SWITCH-IF NO ADDEND, THEN 4F11153
CLA L(1) SET 4F11154
STO E+9,4 MULTIPLIER = 1. 4F11155
STZ E+15,4 SET ADDEND = 0. 4F11156
CLA FIRSTC TEST FOR 4F11157
SUB L(10) CONSTANT OR VARIABLE. 4F11158
TPL SBP4 IF CONSTANT, THEN 4F11159
STZ E+10,4 SET VARIABLE = 0. 4F11160
SBC9 CAL SYMBOL ADJUST 4F11161
ARS 42,2 CONSTANT 4F11162
ORS E+15,4 TO LOW ORDER POSITION. 4F11163
SBC7 TNX SBC3,4,2 UPDATE STORING TAG 4F11164
SXD SBS2,4 BY -2, AND SAVE. 4F11165
SBC4 TXL SS001,0 SWITCH-REPEAT FOR NEXT SUB-COMB. 4F11166
TXI SA000,0 GO MAKE TABLE ENTRIES AND GET TAG. 4F11167
SBC2 CLS SBC8 RESET ADDEND 4F11168
STO SBC8 OP SWITCH. 4F11169
CLS L(10) TEST 4F11170
ADD FIRSTC ADDEND 4F11171
TMI SBC9 FOR CONSTANT. 4F11172
TSX DIAG,4 * SUBSCRIPT ADDEND NOT A CONSTANT. 4F11173
SBC3 CLS SBC4 AFTER SCANNING 3 SUBSCRIPTS, 4F11174
TMI SA000 GO MAKE TABLE ENTRIES AND GET TAG. 4F11175
TSX DIAG,4 * GO TO DIAG - NO ) AFTER 3RD SUBS. 4F11176
REM CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE). 4F11177
CSA000 SXD SXR4,4 SAVE C(XR4) FOR RETURN TO C0200. 4F11178
SA000 CLA DIMCTR SAVE 4F11179
STO DIMSAV THE CONTENTS OF DIMCTR. 4F11180
ALS 33 POSITION AND 4F11181
STO E STORE I TAG. 4F11182
CLA E+11 MOVE SUBSCRIPT ADDENDS 4F11183
STO E+12 INTO POSITION 4F11184
CLA E+9 FOR FOLLOWING 4F11185
STO E+11 PROGRAM. 4F11186
CLA L(2) EXAMINE DIMCTR 4F11187
CAS DIMCTR TO DETERMINE 4F11188
TXI 1D0000,0 WHETHER DIMENSION OF 4F11189
TXI 2D0000,0 VARIABLE IS 1, 2, OR 3. 4F11190
3D0000 LXA L(6),4 PREPARE TO PICK UP 3 COEFFICIENTS. 4F11191
3D0001 LDQ E+9,4 CONVERT THEM FROM BCD TO BINARY 4F11192
TSX SR6DC1,1 * IN E+3,5,7, AND 4F11193
STO E+9,4 STORE BACK IN E+3,5,7. 4F11194
TIX 3D0001,4,2 WHEN DONE, PREPARE 4F11195
LXA L(3),4 TO PICK UP 3 ADDENDS. 4F11196
3D0002 CLA E+14,4 CONVERT ADDENDS (BCD TO BINARY)= 4F11197
SLW G STRIP OFF 4F11198
LDQ G SIGN, 4F11199
TSX SR6DC1,1 * CONVERT ADDENDS IN E+11,12,13, 4F11200
LDQ E+14,4 PUT SIGN IN S-BIT 0F MQ, AND 4F11201
TQP 3D0040 IF PLUS--SKIP NEXT, 4F11202
ORA 2E17 IF MINUS--OR SIGN INTO BIT 18, 4F11203
3D0040 STO E+14,4 AND STORE BACK INT0 E+11,12,13. 4F11204
TIX 3D0002,4,1 WHEN DONE, 4F11205
TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. 4F11206
TSX DIAG,4 * --ERROR...NOT ON DRUM. 4F11207
3D0060 CLA E+3 REFORMATIZE E-STRING = 4F11208
ALS 18 PACK TOGETHER COEFFICIENTS 1 AND 2 4F11209
ADD E+5 AND STORE THEM 4F11210
STO E+3 IN E+3. 4F11211
CLA E+4 MOVE SUBSCRIPT 1 4F11212
STO E+5 TO E+5. 4F11213
CLA E+7 AND MOVE 4F11214
ALS 18 COEFFICIENT 3 4F11215
STO E+4 INTO E+4. 4F11216
CLA E+8 MOVE SUBSCRIPT 3 INTO E+7, 4F11217
STO E+7 NEXT TO SUBSCRIPT 2 IN E+6. 4F11218
CLA D12 MOVE DIMENSIONS 1 AND 2 4F11219
STO E+8 INTO E+8. 4F11220
CAL E+11 PACK TOGETHER 4F11221
ALS 18 ADDENDS 1 AND 2 4F11222
ORA E+12 AND 4F11223
SLW E+11 STORE THEM IN E+11. 4F11224
CAL E+13 MOVE 4F11225
ALS 18 ADDEND 3 4F11226
SLW E+12 INTO E+12. 4F11227
TSX TAU3IX,4 * GO SEARCH TAU3 TABLE. 4F11228
ALS 24 POSITION TAU3 TAG, AND 4F11229
ORS E PLACE TAU3 TAG IN TAG WORD. 4F11230
CAL E+7 COMBINE 4F11231
ORA E+6 SUBSCRIPTS 3,2, AND 1, 4F11232
3D0340 ORA E+5 AND IF THEY ARE ALL ZERO, 4F11233
3D0350 TZE NOTAG --DON,T ENTER FORTAG. 4F11234
FTG000 CAL EIFNO ENTER FORTAG= 4F11235
ANA MASK1 BRING UP ALPHA (INTFORMNO) 4F11236
SLW G AND STORE IN G. 4P11237
CAL E BRING UP TAUTAG FOR I, 4F11238
ARS 24 ADJUST, AND 4F11239
ORS G PLACE IN G WITH ALPHA. THEN 4F11240
TSX TET00,1 * ENTER INTO FORTAG TABLE 4F11241
PZE 4 (TET TABLE 4). 4F11242
TXI SAEXIT,0 GO TO EXIT. 4F11243
2D0000 LXA L(4),4 THEN PICKUP AND 4F11244
2D0001 LDQ E+7,4 CONVERT COEFFICIENTS 4F11245
TSX SR6DC1,1 * (BCD TO BINARY), 4F11246
STO E+7,4 AND STORE BACK IN E+3 AND E+5. 4F11247
TIX 2D0001,4,2 WHEN DONE, 4F11248
LXA L(2),4 PREPARE TO 4F11249
2D0002 CLA E+13,4 PICKUP THE TWO ADDENDS. 4F11250
SLW G STRIP OFF 4F11251
LDQ G THEIR SIGNS, 4F11252
TSX SR6DC1,1 * CONVERT THEM FROM BCD TO BINARY, 4F11253
LDQ E+13,4 PUT SIGN IN S-BIT OF MQ, AND 4F11254
TQP 2D0040 IF PLUS--SKIP NEXT, 4F11255
ORA 2E17 IF MINUS--OR SIGN INTO BIT 18, 4F11256
2D0040 STO E+13,4 AND STORE BACK IN E+11 AND E+12. 4F11257
TIX 2D0002,4,1 WHEN DONE, 4F11258
TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F11259
TSX DIAG,4 * --ERROR...NOT ON DRUM. 4F11260
2D0060 CLA E+3 REFORMATIZE E-STRING = 4F11261
ALS 18 PACK TOGETHER 4F11262
ADD E+5 COEFFICIENTS 1 AND 2, 4F11263
STO E+3 AND STORE THEM IN E+3. 4F11264
CLA E+6 MOVE SUBSCRIPT 2 INTO E+5 4F11265
STO E+5 (NEXT TO SUBSCRIPT 1 IN E+4). 4F11266
CLA D12 OBTAIN 4F11267
ANA MASK1 DIMENSION 1, AND MOVE IT 4F11268
STO E+6 INTO E+6. 4F11269
CAL E+11 PACK TOGETHER 4F11270
ALS 18 ADDENDS 1 AND 2, 4F11271
ORA E+12 AND STORE THEM 4F11272
SLW E+11 IN E+11. 4F11273
TSX TAU2IX,4 * GO SEARCH TAU2 TABLE. 4F11274
ALS 24 POSITION TAU2 TAG, AND 4F11275
ORS E PLACE TAU2 TAG IN TAG WORD. 4F11276
CAL E+4 COMBINE SUBSCRIPTS 1 AND 2, AND 4F11277
TXI 3D0340,0 GO TO FORTAG SECTION. 4F11278
1D0000 LDQ E+3 PICKUP AND CONVERT COEFFICIENTS 4F11279
TSX SR6DC1,1 * (BCD TO BINARY), AND 4F11280
ALS 18 THEN ADJUST THEM, 4F11281
STO E+3 AND STORE THEM BACK IN E+3. 4F11282
CLA E+11 PICKUP ADDEND, 4F11283
SLW G STRIP OFF SIGN, 4F11284
LDQ G CONVERT ADDEND 4F11285
TSX SR6DC1,1 * (BCD TO BINARY), AND THEN 4F11286
LDQ E+11 PUT SIGN IN S-BIT OF MQ, AND 4F11287
TQP 1D0001 IF PLUS--SKIP NEXT, 4F11288
ORA 2E17 IF MINUS--OR SIGN INTO BIT 18. 4F11289
1D0001 ALS 18 THEN ADJUST AND STORE 4F11290
SLW E+11 BACK INTO E+11. 4F11291
TSX TAU1IX,4 * GO SEARCH TAU1 TABLE. 4F11292
ALS 24 POSITION TAU1 TAG, AND 4F11293
ORS E PLACE TAU1 TAG IN TAG WORD. 4F11294
CAL E+4 TAKE SUBSCRIPT, AND 4F11295
TXI 3D0350,0 GO TO FORTAG SECTION. 4F11296
NOTAG CAL FNIND POSITI0N SIGMA1 TAG, AND 4F11297
ORS E PLACE SIGMA1 TAG IN TAG WORD. 4F11298
SAEXIT LXD SXR1,1 RESTORE THE C(XR1), 4F11299
LXD SXR2,2 RESTORE THE C(XR2), 4F11300
LXD SXR4,4 RESTORE THE C(XR4), AND 4F11301
TRA 1,4 * EXIT TO MAIN ROUTINE. 4F11302
REM END OF PROGRAM SS000. 4F11303
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11304
REM 4F11305
REM SUBX00,4/ CALLERS=C3000,C3300. 4F11306
REM SUBX00 ADDS BLANKS TO THE NAMES 0F SUBROUTINES. 4F11307
SUBX00 LXA L(6),3 PREPARE TO COUNT CHARS AND SHIFTS. 4F11308
LDQ 1G PICKUP SUBROUTINE NAME. 4F11309
SUBX01 PXD ,0 CLEAR THE AC, AND 4F11310
LGL 6 SEARCH FOR A BLANK 4F11311
SUB BLANK CHARACTER IN THIS NAME. 4F11312
TZE SUBX03 IF NOT BLANK, THEN 4F11313
TXI SUBX02,1,6 UPDATE SHIFT COUNT, AND 4F11314
SUBX02 TIX SUBX01,2,1 CONTINUE UNTIL 6 CHARS ARE COUNTED.4F11315
TRA 1,4 * RETURN TO CALLER AFTER 6TH CHAR. 4F11316
SUBX03 LDQ BLANKS IF LESS THAN 6 CHARACTERS IN NAME, 4F11317
LGL 36,1 SHIFT ENOUGH BLANKS INTO THE AC, 4F11318
ORS 1G AND FILL OUT NAME WITH BLANKS. 4F11319
TRA 1,4 * RETURN TO CALLER. 4F11320
REM END OF PROGRAM SUBX00. 4F11321
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11322
REM 4F11323
REM TESTFX,1/ CALLERS=SS000,C3000,IFFIX. 4F11324
REM TESTFX TESTS FOR FIXED OR FLOATING POINT VARIABLES. 4F11325
TESTFX CAL FIRSTC COMPARE FIRST CHARACTER 4F11326
CAS L(H) WITH H. 4F11327
CAS L(O) IF GREATER THAN H, COMPARE WITH O. 4F11328
TRA 1,1 * IF NOT GREATER THAN H, LESS THAN O,4F11329
TRA 1,1 * THEN TAKE FLOATING POINT EXIT. 4F11330
TRA 2,1 * OTHERWISE, TAKE FIXED POINT EXIT. 4F11331
REM END OF PROGRAM TESTFX. 4F11332
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11333
REM 4F11334
REM TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000, 4F11335
REM C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR. 4F11336
REM TEST.. TESTS THE CHARACTER IN THE AC(30-35). 4F11337
REM TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK. 4F11338
TESTA0 CAS COMMA 4F11339
TRA TESTA1 4F11340
TRA 1,4 * RETURN TO CALLER. 4F11341
TESTA1 SUB ENDMK 4F11342
TZE 1,4 * RETURN TO CALLER. 4F11343
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11344
REM TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS. 4F11345
TESTB0 CAS COMMA 4F11346
TRA TESTB1 4F11347
TRA 1,4 * RETURN TO CALLER. 4F11348
TESTB1 SUB CLOS 4F11349
TZE 1,4 * RETURN TO CALLER. 4F11350
TSX DIAG,4 * ERROR -- GO T0 DIAGNOSTIC. 4F11351
REM TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK. 4F11352
TESTC0 CAS OPEN 4F11353
TRA TESTC1 4F11354
TRA 1,4 * RETURN TO CALLER. 4F11355
TESTC1 SUB ENDMK 4F11356
TZE 1,4 * RETURN TO CALLER. 4F11357
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11358
REM TEST CHARACTER IN THE AC FOR ENDMARK. 4F11359
TESTD0 CAS ENDMK 4F11360
ERR77P TSX DIAG,4 * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11361
TRA 1,4 * RETURN TO CALLER. 4F11362
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11363
REM TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS. 4F11364
TESTE0 CAS OPEN 4F11365
TRA TESTE1 4F11366
TRA 1,4 * RETURN TO CALLER. 4F11367
TESTE1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11368
REM TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS. 4F11369
TESTF0 CAS CLOS 4F11370
TRA TESTF1 4F11371
TRA 1,4 * RETURN TO CALLER. 4F11372
TESTF1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11373
REM TEST CHARACTER IN THE AC FOR COMMA. 4F11374
TESTG0 CAS COMMA 4F11375
TRA TESTG1 4F11376
TRA 1,4 * RETURN TO CALLER. 4F11377
TESTG1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11378
REM TEST CHARACTER IN THE AC FOR NON-NUMERIC. 4F11379
TESTH0 CAS L(9) 4F11380
TRA 1,4 * RETURN TO CALLER. 4F11381
NOP 4F11382
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11383
REM TEST CHARACTER IN THE AC FOR NUMERIC. 4F11384
TESTI0 CAS L(9) 4F11385
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11386
TRA 1,4 * RETURN TO CALLER. 4F11387
TRA 1,4 * RETURN TO CALLER. 4F11388
REM END OF PROGRAM TEST... 4F11389
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11390
REM 4F11391
REM TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400, 4F11392
REM C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD). 4F11393
REM TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS 4F11394
REM FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4. 4F11395
TET00 SXD TETXR2,2 SAVE THE C(XR2), 4F11396
SXD TETXR4,4 SAVE THE C(XR4), AND 4F11397
STQ TETMQR SAVE THE C(MQR). 4F11398
CLA 1,1 COMPUTE TABLE NUMBER 4F11399
ALS 1 TIMES 3 4F11400
ADD 1,1 AND 4F11401
COM PLACE THE 2S COMPLEMENT 4F11402
ADD L(1) OF THIS 4F11403
PAX ,2 IN XR2. 4F11404
CLA INTET,2 OBTAIN THE CURRENT 4F11405
ARS 18 B (BUFFER CAPACITY), 4F11406
STO TETWRK AND SAVE IT. THEN 4F11407
CLA INTET+2,2 GET P (PORTION OF BUFFER FULL), 4F11408
ARS 18 AND 4F11409
SUB TETWRK COMPARE TO B. 4F11410
TNZ TET03 IF BUFFER IS FULL, 4F11411
STD INTET+2,2 SET P = O, AND 4F11412
TET01 WRS TABTAP PREPARE TO WRITE BLOCK ON TABTAP. 4F11413
LXA TETWRK,4 SET XR4 = BLOCK SIZE (B). 4F11414
CLA TETWRK ADD BLOCK SIZE TO 4F11415
ADD INTET,2 ORIGIN OF CURRENT BLOCK (O), 4F11416
STA TET02 AND SET ADDRESS OF COPY LOOP (O+B).4F11417
CPY 1,1 COPY TABLE NUM FOR IDENTIFICATION. 4F11418
TET02 CPY **,4 WRITE BLOCK ONTO 4F11419
TIX TET02,4,1 TABLE TAPE, AND 4F11420
IOD WHEN DONE, 4F11421
CLA INTET+2,2 INCREASE C (BLOCK COUNT) 4F11422
ADD L(1) BY 1 FOR 4F11423
STA INTET+2,2 BLOCK JUST WRITTEN ON TABLE TAPE. 4F11424
TET03 CLA INTET+2,2 ADD P (PORTION OF BUFFER FULL) 4F11425
ARS 18 TO O (ORIGIN OF CURRENT TABLE 4F11426
ADD INTET,2 BUFFER) TO SET 4F11427
STA TET05 ADDRESS OF ENTRY LOOP (P+O). 4F11428
CLA INTET+1,2 OBTAIN CURRENT A (ENTRY ADDRESS), 4F11429
STA TET04 AND SET ADDRESS OF ENTRY LOOP. 4F11430
PDX ,4 SET XR4 = E (ENTRY LENGTH IN WRDS).4F11431
ADD INTET+2,2 INCREASE P BY E TO ACCOUNT 4F11432
STD INTET+2,2 FOR FOLLOWING ENTRY. 4F11433
LXD L(0),2 SET XR2 = 0. THEN 4F11434
TET04 CLA **,2 MOVE THE CURRENT ENTRY 4F11435
TET05 STO **,2 INTO THE CURRENT TABLE BUFFER, AND 4F11436
TXI TET06,2,-1 WHEN 4F11437
TET06 TIX TET04,4,1 DONE, 4F11438
LDQ TETMQR RESTORE ORIGINAL C(MQR), 4F11439
LXD TETXR2,2 RESTORE ORIGINAL C(XR2), 4F11440
LXD TETXR4,4 RESTORE ORIGINAL C(XR4), AND 4F11441
TRA 2,1 * EXIT TO MAIN ROUTINE. 4F11442
REM END OF PROGRAM TET00. 4F11443
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11444
REM DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090, 4F11445
REM C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST..,4F11446
REM SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR, 4F11447
REM CMA,EMK,BEG(TYP),VRA(VRD). 4F11448
REM (CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE 4F11449
REM BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO 4F11450
REM THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.) 4F11451
DIAG TXI 4,0 * GO GET THE DIAGNOSTIC. 4F11452
REM END OF PROGRAM DIAG. 4F11453
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11454
REM 4F11455
REM ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS. 4F11456
FLTR00 SXD FLTR05,4 SAVE CALLING TAG. 4F114571
CLA EIFNO GET LAST INTERNAL AND EXTERNAL FORMULA NOS.4F114572
STA ENT PLACE LAST EFN IN DEC OF NTR INSTRUCTION. 4F114573
ARS 18 4F114574
STA NZE PLACE LAST IFN IN DEC OF PZE 4F114575
LXD ARGCTR,4 4F114576
TXL FLTR01,4,0 IS THIS AN FN FUNCTION, NO SKIP. 4F114577
STZ 1C+2 4F114578
CLS 2E18 SET ADDRESS TO -1 4F114579
TRA FLTR03 4F11457A
FLTR01 CLA SBDFCN IS THIS A MAIN PROGRAM OR SUBPROGRAM. 4F11457B
TNZ FLTR02 SKIP ON SUBPROGRAM 4F11457C
STZ 1C+2 SET ADDRESS TO 0 4F11457D
STZ 1C+3 4F11457E
TRA FLTR04 4F11457F
FLTR02 CLA DOLSGN SET ADDRESS TO $+2 4F11457G
STO 1C+2 4F11457H
CLA D2 4F11457I
FLTR03 STO 1C+3 SET RELATIVE ADDRESS WORD OF CIT. 4F11457J
FLTR04 TSX CIT00,4 4F11457K
PZE L(0) COMPILE NTR *+2,0,EFN 4F11457L
PZE ENT 4F11457M
PZE 15P 4F11457N
PZE D2 4F11457O
TSX CIT00,4 4F11457P
PZE L(0) COMPILE PZE ALPHA,0,IFN 4F11457Q
PZE NZE WHERE ALPHA IS 0 FOR MAIN PROGRAM, $+2 FOR 4F11457R
PZE 1C+2 SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER4F11457S
PZE 1C+3 MAIN OR SUBPROGRAM. 4F11457T
LXD FLTR05,4 4F11457U
FLTR05 TXI CIT00,4 GO COMPILE LXD M(,4 OR 7(TYPE=,4 4F11457V
REM 4F11457W
REM 4F11458
REM END OF THE COMMON PART OF SECTION ONE. 4F11459
REM 4F11460
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11461
REM 4F11462
REM SECTION 1 / INITIALIZATION = 4F11463
ORG FORSUB 4F11465
REM INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER 4F11466
REM BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE 4F11467
REM PROGRAM. 4F11468
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11469
REM 4F11470
REM PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 = 4F11471
CLDR00 LXA CLDR07,1 CLEAR DRUMS 1,2,3,4 TO +0. 4F11472
CLDR01 WRS 197,1 X 4F11473
LXD CLDR07,2 X 4F11474
CLDR03 CPY CLDR08 X 4F11475
TIX CLDR03,2,1 X 4F11476
TIX CLDR01,1,1 X 4F11477
REW 146 REWIND WORKING TAPES 2,3,4. 4F11478
REW 147 X 4F11479
REW 148 X 4F11480
DMWR99 TSX CA100,4 * GO TO SUBROUTINE TO LOAD FT REGION.4F11540
TRA CA010 * GO BEGIN STATE A OF SECTION ONE. 4F11541
REM END OF INITIALIZATION / PART 2. 4F11542
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11543
REM 4F11544
REM PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION= 4F11545
CLDR07 PZE 4,,2048 CONSTANT FOR CLEARING DRUMS. 4F11548
CLDR08 PZE 0 CONSTANT FOR CLEARING DRUMS. 4F11549
REM END OF INITIALIZATION / PART 3. 4F11552
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11553
REM 4F11554
REM 4F11555
REM SECTION 1 / STATEA = 4F11556
REM 4F11558
REM NAME FUNCTION 4F11559
REM PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS= 4F11560
REM CA000 ASSEMBLE STATEMENT. 4F11561
REM CD000 SCAN FOR HOLLERITH AND ILLEGAL CHS.4F11562
REM CB000 CLASSIFY=ARITHMETIC/NON-ARITHMETIC.4F11563
REM CC000 CLASSIFY=WHICH NON-ARITHMETIC. 4F11564
REM PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS. 4F11565
REM C0100 DO. 4F11566
REM C0200 GO TO. 4F11567
REM C0300 IF. 4F11568
REM C0400 IF (SENSE SWITCH. 4F11569
REM C0500 IF (SENSE LIGHT. 4F11570
REM C0600 IF DIVIDE CHECK. 4F11571
REM C0700 IF AC OVERFLOW. 4F11572
REM C0800 IF MQ OVERFLOW. 4F11573
REM C0900 PAUSE. 4F11574
REM C1000 ASSIGN. 4F11575
REM C1100 SENSE LIGHT. 4F11576
REM C1200 DIMENSION. 4F11577
REM C1300 STOP. 4F11578
REM C1400 FREQUENCY. 4F11579
REM C1500 EQUIVALENCE. 4F11580
REM C1600 CONTINUE. 4F11581
REM C3000(C3500) SUBROUTINE / FUNCTION. 4F11582
REM C3100 COMMON. 4F11583
REM C3200 RETURN. 4F11584
REM C3300 CALL. 4F11585
REM C3400 END. 4F11586
REM PART 3 / PROCESS INPUT-OUTPUT STATEMENTS= 4F11587
REM RDC READ CARD 4F11588
REM RIT READ INPUT TAPE. 4F11589
REM RDP PRINT. 4F11590
REM WOT WRITE OUTPUT TAPE. 4F11591
REM PDC PUNCH. 4F11592
REM WBT WRITE TAPE. 4F11593
REM RBT READ TAPE. 4F11594
REM WRD WRITE DRUM. 4F11595
REM RDD READ DRUM. 4F11596
REM EFT END FILE. 4F11597
REM RWN REWIND. 4F11598
REM BSP BACKSPACE. 4F11599
REM FOR FORMAT. 4F11600
REM RSC RESET AND SCAN. 4F11601
REM LISTR CONTROL FOR LIST SCAN. 4F11602
REM LPR LEFT PARENTHESES IN LIST SCAN. 4F11603
REM EOS EQUAL SIGN IN LIST SCAN. 4F11604
REM SPCTR CONTROL FOR SPECIFICATION SCAN. 4F11605
REM SPC SUBSCRIPT SPECIFICATIONS. 4F11606
REM RPR RIGHT PARENTHESIS IN LIST SCAN. 4F11607
REM CMA COMMA IN LIST SCAN. 4F11608
REM EMK ENDMARK IN LIST SCAN. 4F11609
REM PART 4 / SUBROUTINES USED BY STATE A= 4F11610
REM BEG(TYP),4 BEGIN SCAN AND TYPE TEST. 4F11611
REM BEGTR CONTROL FOR BEGINNING SCAN. 4F11612
REM BRW,4 BINARY READ OR WRITE COMPILER. 4F11613
REM BSS,2 COMPILES= IFN BSS 0. 4F11614
REM CA100,4 READ SOURCE PROGRAM TAPE. 4F11615
REM CC500,4 SCAN DICTIONARY. 4F11616
REM ETM(LTM)SW,4 IF SW=NOP, COMPILES ETM(LTM). SL=0.4F11617
REM IFFIX,1 SETS UP FORVAR OR FORVAL ENTRY. 4F11618
REM IN(OUT)PUT,2 COMPILES CAL *, AND XIT (LEV). 4F11619
REM LIB,1 MAKES CLOSUB ENTRY, COMPILES CIT. 4F11620
REM VRA(VRD),4 MAKES FORVAR, FIXCON, CIT ENTRIES. 4F11621
REM PART 5 / CONSTANTS AND VARIABLES USED BY STATE A. 4F11622
REM DIC DICTIONARY. 4F11623
REM T TRANSFER TABLE. 4F11624
REM 4F11625
REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING= 4F11626
REM 4F11627
REM ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION 4F11628
REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 4F11629
REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 4F11630
REM THIS LOGICAL BLOCK OR SUBROUTINE. 4F11631
REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 4F11632
REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). 4F11633
REM 4F11634
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11635
REM 4F11636
REM STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS= 4F11637
ORGA ORG 1824 4F11638
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11639
STATEA BSS 0 4F11640
REM CA000/ CALLS=CA100,SR6DC1,TET00,DIAG. 4F11641
REM CA000 ASSEMBLES STATEMENT IN THE F-REGION ANO ASSIGNS AN IFN.4F11642
CA010 LXD ENDWRD,4 IF THE FINAL STATEMENT HAS BEEN 4F11643
TXL DIAG,4,0 * PROCESSED, THEN GO CALL DIAGNOSTIC.4F11644
LXD EIFNO,1 KEEP INTERNAL FORMULA NUMBER 4F11645
TXI CA013,1,1 (DECR PART OF EIFNO) 4F11646
CA013 SXD EIFNO,1 UP TO DATE BY ADDING 1. 4F11647
CAL FT OBTAIN HOLLERITH CODED 5-DIGIT 4F11648
ARS 6 EXTERNAL FORMULA NO IN ACC, 4F11649
SLW F-1 AND RETAIN IN F-01. 4F11650
LXD DCF,1 INITIALIZE INDEX A TO COMPL OF F. 4F11651
CA018 LXA L(11),2 SET UP LOOP FOR 11 CYCLES. 4F11652
CA019 LDQ FT+12,2 MOVE WORD FROM REG1ON FT 4F11653
STQ 0,1 TO REGION F. 4F11654
TIX CA020,1,1 KEEP F-REGION ADDRESS UP-TO-DATE. 4F11655
CA020 TIX CA019,2,1 TEST END OF LOOP. 4F11656
TSX CA100,4 * GO READ NEXT NON-BLANK CARD. 4F11657
CAL FT TEST RIGHTMOST CHARACTER OF 4F11658
ANA L(63) FIRST WORD FOR CONTINUATION MARK, 4F11659
TZE CA021 IF ZERO OR BLANK, 4F11660
SUB ABLANK DISCONTINUE READING, 4F11661
TNZ CA018 OTHERWISE CONTINUE. 4F11662
CA021 CLA BLANKS BEGIN SCANNING REGION F BACKWARDS 4F11663
CA022 CAS -1,1 T0 FIND FIRST NON BLANK WORD. 4F11664
TRA CA023 NOT BLANK. 4F11665
TXI CA022,1,1 BLANK, SO CONTINUE SCAM. 4F11666
CA023 LDQ 36ONES PLACE BINARY ONES IN FIRST WORD 4F11667
STQ 0,1 FOLLOWING RIGHTMOST NONBLANK WORD. 4F11668
CAL F-1 PICK UP EXTERNAL FORMULA NUMBER AND4F11669
CAS 5BLANS COMPARE WITH /0 /. 4F11670
TRA CA015 NOT COMPARE. 4F11671
TRA CD000 * TAKE EXTFORMNO, IF ANY, AND 4F11672
CA015 LRS 35 GO TO CONVERSION SUBROUTINE AND 4F11673
TSX SR6DC1,1 * RETURN HERE WITH RESULT IN ACC. 4F11674
STA EIFNO STORE RESULT IN ADDRESS OF EIFNO. 4F11675
TSX TET00,1 * GO TO PROGRAM TET TO ENTER EIFNO 4F11676
PZE 0 INTO TABLE TEIFNO (TABLE O). 4F11677
REM END OF PROGRAM CA000. 4F11678
REM * * *,* * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11679
REM 4F11680
REM CD000/ CALLS=C0190X,C0190,DIAG. 4F11681
REM CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS. 4F11682
CD000 TSX C0190X,4 * SET SCAN TO PICK UP 1ST CHARACTER. 4F11683
CD001 TSX CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11684
CAS COMMA SCAN 4F11685
TXI CD002,0 FOR 4F11686
TXI CD003,0 HOLLERITH 4F11687
CD002 SUB OPEN SPECIFICATION 4F11688
TNZ CD001 WHICH 4F11689
CD003 TSX CD900,1 * CAN BE= 4F11690
SUB L(10) , N H 4F11691
TPL CD001 OR = ( N H. 4F11692
CD004 TSX CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11693
CAS L(9) CONTINUE SCAN. 4F11694
TXI CD005,0 N 4F11695
TXI CD004,0 IS 4F11696
TXI CD004,0 A 4F11697
CD005 CAS L(H) FIXED 4F11698
TXI CD001+1,0 POINT 4F11699
TXI CD700,0 INTEGER. 4F11700
TXI CD001+1,0 X 4F11701
CD700 TSX C0190,4 * G0 GET NEXT NONBLANK CHARACTER, 4F11702
CAS ENDMK AND IF ENDMARK, 4F11703
TXI CD701,0 THEN SKIP 4F11704
TXI CC000,0 * TO NON-ARITHMETIC CLASSIFICATI0N. 4F11705
CD701 TSX CD600,1 * SINCE HOLLERITH HAS BEEN FOUND, 4F11706
TXI CD700,0 THEN S IS LEGAL IN FORMAT TEXT. 4F11707
CD900 TSX C0190,4 * OBTAIN NEXT NONBLANK CHARACTER, 4F11708
CAS ENDMK AND IF NOT 4F11709
TXI CD800,0 ENDMARK, THEN SKIP 4F11710
TXI CB000,0 * EXIT TO ARITH/NON-ARITH SCAN. 4F11711
CD800 CAS SPECOP CMECK FOR S 4F11712
TXI CD601,0 WHICH, UNLESS HOLLERITH, IS AN 4F11713
TSX DIAG,4 * ERROR -- G0 T0 DIAGNOSTIC. 4F11714
CD600 CAS PM CMECK FOR RECORD MARK 4F11715
TRA 1,1 WHICH IS AN 4F11716
TSX DIAG,4 * ERROR -- GO,TO DIAGNOSTIC. 4F11717
CD601 CAS CHAR3 CHECK FOR MINUS ZERO 4F11718
TRA 1,1 WHICH IS AN 4F11719
TSX DIAG,4 * ERROR --,GO TO DIAGNOSTIC. 4F11720
CAS CHAR2 CHECK FOR PLUS ZERO 4F11721
TRA 1,1 WHICH IS AN 4F11722
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11723
CAS MINUS CHECK FOR MINUS SIGN 4F11724
TRA 1,1 WHICH IS AN 4F11725
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11726
SUB TEN CHECK FOR TEN 4F11727
TNZ 1,1 WHICH IS AN 4F11728
TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11729
REM END OF PROGRAM CD000. 4F11730
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11731
REM 4F11732
REM CB000/ CALLS=C0190X,C0190,DIAG. 4F11733
REM CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC. 4F11734
CB000 LXA L(1),1 SET XR1 TO COUNT PARENTHESES. 4F11735
TSX C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11736
CB001 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. 4F11737
CAS AEQUAL IF AN EQUAL SIGN, 4F11738
TXI CB005,0 THEN 4F11739
TXI CB200,0 GO TEST PAREN-COUNT. 4F11740
CB005 CAS ALPAR IF A LEFT PARENTHESIS, 4F11741
TXI CB006,0 THEN 4F11742
TXI CB001,1,1 UPDATE PAREN-COUNT BY 1. 4F11743
CB006 CAS ARPAR IF A RIGHT PARENTHESIS, 4F11744
TXI CB007,0 THEN 4F11745
TXI CB500,0 GO TEST PAREN-COUNT. 4F11746
CB007 SUB ENDMK IF NOT ENDMARK, THEN 4F11747
TNZ CB001 GO EXAMINE NEXT CHARACTER. 4F11748
TXI CC000,0 * OTHERWISE, GO TO DIC LOOK-UP. 4F11749
CB200 TIX CC000,1,1 * IF EQUAL WAS,NOT WITHIN PARENS, 4F11750
CB201 TSX C0190,4 * THEN EXAMINE NEXT CHARACTER. 4F11751
CAS ALPAR IF LEFT PAR6NTHESIS, 4F11752
TXI CB205,0 THEN 4F11753
TXI ARITH,0 * THIS IS AN ARITHMETIC FORMULA. 4F11754
CB205 CAS ACOMMA IF A COMMA, 4F11755
TXI CB206,0 THEN 4F11756
TXI CC000,0 * GO TO NO,-ARITHMETIC DIC LOOK-UP. 4F11757
CB206 SUB ENDMK IF NOT ENDMARK, THEN 4F11758
TNZ CB201 GO EXAMINE NEXT CHARACTER. 4F11759
TXI ARITH,0 * THIS IS AN ARITHMETIC FORMULA. 4F11760
CB500 TIX CB001,1,1 IF PAREN-COUNT DOES NOT BALANCE, 4F11761
TSX DIAG,4 * ERROR-GO TO DIAGNOSTIC ROUTINE. 4F11762
REM END 0F PROGRAM CB000. 4F11763
REM * * * * * * * * * * * * * * * . * * * * * * * * * * * * * * *4F11764
REM 4F11765
REM CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00. 4F11766
REM CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITH.ETIC. 4F11767
CC000 STZ 2G SET DICTIONARY WORD TAG, AND 4F11768
LXA L(0),3 CHARACTER COUNT AND ENTRY COUNT. 4F11769
CC001 TSX C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11770
TSX CC500,4 * EXAMINE NEXT DICTI0NARY CHARACTER. 4F11771
CAS ENDMK TEST FOR CONSECUTIVE ENDMARKS. 4F11772
TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11773
TSX DIAG,4 * ERROR = NOT FOUND IN DICTIONARY. 4F11774
TXI CC004,0 GO BEGIN COMPARISON. 4F11775
CC002 TSX CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11776
CAS ENDMK TEST FOR END OF DIC ENTRY. 4F11777
TXI ERR77P,0 * MACHINE ERROR, GO T0 DIAGNOSTIC. 4F11778
TXI CC007,0 IF END OF ENTRY, LOOK NO FURTHER. 4F11779
CC004 STO 1C OTHERWISE, SAVE CHARACTER 4F11780
STQ 1C+1 AND REMAINDER OF DICTIONARY WORD. 4F11781
TSX C0190,4 * GO GET NEXT FORMULA CHARACTER, 4F11782
LDQ 1C+1 AND RESTORE DICTIONARY WORD. 4F11783
SUB 1C IF CHARACTERS ARE EQUAL, 4F11784
TZE CC002 THEN GO COMPARE NEXT CHARACTERS. 4F11785
CC005 TSX CC500,4 * OTHERWISE, EXAMINE NEXT DIC CHAR. 4F11786
SUB ENDMK CONTINUE JNTIL AN ENDMARK IS 4F11787
TNZ CC005 FOUND, THEN 4F11788
TXI CC001,1,-1 COUNT ENTRY, AND BEGIN AGAIN. 4=11789
CC007 CLA T,1 IF THE CURRENT STATEMENT IS 4F11790
TPL T,1 OF THE NON-EXECUTABLE TYPE, 4F11791
SXD 1C+2,1 THEN 4F11792
TSX TET00,1 * GO ENTER EIFNO IN THE 4F11793
PZE 14 NONEXC TABLE. 4F11794
LXD 1C+2,1 AND THEN 4F11795
CC008 TRA T,1 * TAKE INDICATED TRANSFER. 4F11796
REM END 0F PROGRAM CC000. 4F11797
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11798
REM 4F11799
REM STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS= 4F11800
REM 4F11801
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11802
REM 4F11803
REM C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00. 4F11804
REM C0100 PROCESSES DO STATEMENTS. 4F11805
C0100 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F11806
TSX C0190,4 * OBTAIN 1ST NON-BLANK CHARACTER 4F11807
TSX TESTI0,4 * WHICH SHOULD BE NUMERIC. 4F11808
TSX C0180,2 * OBTAIN IN 1G THE BIN EQUIV OF BETA.4F11809
STO 2G SAVE THE 1ST CHAR OF SUBSCRIPT. 4F11810
CLA 1G TAKE CONVERTED RESULT FOR BETA 4F11811
STA 1C AND STORE IN ADDR OF 1C. 4F11812
CLA 2G 1C IS NOW COMPLETE EXCEPT FOR TAG. 4F11813
TSX C0160,2 * OBTAIN IN 1G THE SUBSCRIPT. 4F11814
CLA 1G STORE SUBSCRIPT 4F11815
STO 1C+1 IN 1C+1. 4F11816
TSX C0150,2 * OBTAIN IN 1G THE PROPER N1. 4F11817
CLA 1G STORE N1 4F11818
STO 1C+2 IN 1C+2. 4F1.819
CAL I OBTAIN I IN LOGICAL ACC AND 4F11820
ARS 18 STORE IN POS 18 OF 1C 4F11821
ORS 1C 0 IF NUMERIC, OR 1 IF NO,-NUMERIC. 4F11822
TSX C0150,2 * OBTAIN IN 1G THE PROPER N2. 4F11823
TSX TESTA0,4 * TEST THE AC FOR COMMA OR ENDMARK. 4F11824
TNZ C0113 IF ENDMARK, THEN 4F11825
RQL 31 CREATE ONE IN MQ FOR N3 4F11826
STQ RESIDU AND PLACE IN RESIDU. 4F11827
C0113 CLA 1G STORE N2 4F11820
STO 1C+3 IN 1C+3. 4F11829
CAL I OBTAIN I IN LOG ACC AND 4F11830
ARS 19 STORE IN POS 19 OF 1C 4F11831
ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11832
TSX C0150,2 * OBTAIN IN 1G THE PROPER N3. 4F11833
TSX TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK. 4F11834
CLA 1G STORE N3 4F11835
STO 1C+4 IN 1C+4. 4F11836
CAL I OBTAIN I IN LOG ACC AND 4F11837
ARS 20 STORE IN POS 20 OF 1C 4F11838
ORS 1C O IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11839
TSX TET00,1 * GO TO TET PROGRAM TO ENTER 4F11840
PZE 1 1C,1C+1,..1C+4 IN TDO TABLE 1. 4F11841
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F11842
REM END OF PROGRAM C0100. 4F11843
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11844
REM 4F11845
REM C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160, 4F11846
REM CIT00,SS000(CSA000). 4F11847
REM C0200 PROCESSES GO TO STATEMENTS. 4F11848
C0200 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C 4F11849
STO 1C+2 AND IN 1C+2. 4F11850
TSX C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER 4F11851
CAS L(9) AND COMPARE IT WITH 9. 4F11852
TXI C0205,0 IF NON-NUMERIC, GO COMPARE WITH (. 4F11853
NOP IF NUMERIC, THEN 4F11854
TSX C0180,2 * OBTAIN IN 1G THE BINARY EQUV BETA. 4F11855
TSX TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK. 4F11856
CLA 1G STORE BETA IN 1C+1 TO CONSTRUCT 4F11857
STO 1C+1 THE 2ND WORD OF TIFGO TABLE ENTRY. 4F11858
TXI C0202,0 GO TO ENTER 1C,1C+1 INTO TIFGO. 4F11859
C0205 CAS ALPAR TEST CHARACTER FOR ALPHABETIC. 4F11860
TXI C0210,0 IF NOT ALPHABETIC, THEN 4F11861
TXI C0212,0 THIS IS TYPE= GO TO ( ), I. 4F11862
C0210 TSX C0160,2 * TYPE= GO TO N,(),SO OBTAIN IN 1G N 4F11863
TSX TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. 4F11864
CLA 1G SAVE THE SYMBOL N IN 1C+3 4F11865
STO 1C+3 FOR COMPILED INSTRUCTION. 4F11866
TSX C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER, 4F11867
TSX TESTE0,4 * WHICH SHOULD BE A LPAREN. 4F11868
CLA L(1) PREPARE TO SET ADDRESS PART OF 1C 4F11869
TRA C0213 TO 1 TO INDICATE CLASS OF TRANSFER.4F11870
C0212 CLA L(2) PREPARE TO SET ADDR OF 1C TO 2. 4F11871
C0213 STA 1C STORE 1 OR 2 IN ADDR OF 1C. 4F11872
LXD CTRAD,2 OBTAIN 250-(NO. TRAD ENTRIES), AND 4F11873
PXD ,2 PLACE IN THE DECREMENT OF THE AC 4F11874
STO 1C+1 AND STORE IN 1C+1. 4F11875
C0215 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHAR. 4F11876
TSX C0180,2 * OBTAIN IN 1G THE BIN EQU OF BETA. 4F11877
STO 2G SAVE CHAR IN ACC. 4F11878
TSX TET00,1 * GO TO ENTER 1G 4F11879
PZE 3 INTO TRAD TABLE (TABLE 3). 4F11880
LXD CTRAD,2 REDUCE COUNTER 4F11881
TIX C0216,2,1 CTRAD 4F11882
C0216 SXD CTRAD,2 BY 1. 4F11883
CLA 2G RESTORE CHAR TO ACC. 4F11884
TSX TESTB0,4 * TEST FOR COMMA OR RPAREN. 4F11885
TNZ C0215 IF RIGHT PARENTHESIS, THEN 4F11886
CLA CTRAD OBTAIN IN ADDR OF ACC 250-NO. OF 4F11887
ARS 18 ENTRIES IN TRAD TABLE,AND STORE 4F11888
STA 1C+1 IN ADDR OF 1C+1. 4F11889
CLA 1C OBTAIN 1C IN ACC 4F11890
LBT AND TEST L0W ORDER BIT. 4F11891
TRA C0220 THIS IS A TYPE GO TO (),I FORMULA. 4F11892
TSX C0190,4 * OBTAIN NEXT NB CHAR AND 4F11893
TSX TESTD0,4 * TEST FOR ENDMK. 4F11894
TSX CIT00,4 * G0 MAKE THE FOLLOWING CIT ENTRY= 4F11895
PZE 1C+2 WORD 1--DECR= INTFORMNO (LOCATION) 4F11896
PZE L(TRA) WORD 2--TRA000 (OP AND DECR) 4F11897
PZE 1C+3 WORD 3--VARIABLE N IADDRESS) 4F11898
PZE L(0) WORD 4--000000 IREL ADDR AND TAG). 4F11899
TRA C0202 GO TO ENTER 1C,1C+1 INTO TIFGO. 4F11900
C0220 TSX C0190,4 * EXAMINE NEXT NB CHARACTER, 4F11901
TSX TESTG0,4 * WHICH SHOULD BE A COMMA. 4F11902
TSX C0190,4 * OBTAIN IN ACC NEXT NB CHAR, ANO 4F11903
TSX C0160,2 * OBTAIN IN 1G THE FXD-PT. VARIABLE, 4F11904
TSX TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F11905
CLA L(1) PREPARE PROPER FORM OF SUBSCRIPT 4F11906
STO E+3 COMBINATION AS 4F11907
STO DIMCTR INPUT T0 SUBSCRIPT ANALYSIS= 4F11908
CLA 1G E+3 = 1ST COEFFICIENT, 4F11909
STO E+4 E+6 = 1ST SUBSCRIPT VARIABLE, 4F11910
STZ E+9 E+9 = ADDEND OF SUBSCRIPT, 4F11911
TSX CSA000,4 * DIMCTR = DIMENSION OF VARIABLE. 4F11912
CLA E OUTPUT FROM CSA IS FOUND IN 4F11913
ARS 24 E = I--TAUTAG (GENERAL TAG) 1-11. 4F11914
STO 2G ADJUST AND SAVE FOR COMP. 1NSTR. 4F11915
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F11916
PZE 1C+2 WORD 1--DECR-INTFORMNO(LOCAT1ON) 4F11917
PZE L(TRA) WORD 2--TRA000(OP ANO 0ECR) 4F11918
PZE L(0) WORD 3--000000(ADDRESS) 4F11919
PZE 2G WORD 4--ADDR = TAUTAG FOR I 4F11920
REM C0200= ENTPY POINT USED BY C0400,C1000. 4F11921
C0202 TSX TET00,1 * GO TO TET TO ENTER 1C AND 1C+1 4F11922
PZE 2 INTO TIFGO TABLE ITABLE 2). 4F11923
CTRAD TXI CA010,0,250 * EXIT TO PROCESS NEXT STATEMENT. 4F11924
REM END OF PROGRAM C0200. 4F11925
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11926
REM 4F11927
REM C030O/ CALLS=C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00, 4F11928
REM =STATEB. 4F11929
REM C0300 PROCESSES IF STATEMENTS. 4F11930
C0300 LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F11931
PXD ,4 NUMBER IN THE DECREMENT OF 1C 4F11932
SSM WITH SIGN SET TO MINUS 4F11933
STO 1C FOR FUTURE TIFGO ENTRY. 4F11934
TSX C0190X,4 * SET CHCTR AND FWA TO BEGIN SCAN. 4F11935
TSX C0190,4 * OBTAIN IN AC THE 1ST NB CHAR (I). 4F11936
LDQ L(X) REPLACE THE CHARACTER I 4F11937
TSX C0390,4 * WITH THE CHARACTER X. 4F11938
LDQ L(10) REPLACE THE CHARACTER F 4F11939
TSX C0390,4 * WITH THE CHARACTER 001010. 4F11940
TSX TESTE0,4 * IF NOT LPAREN -- THEN ERROR. 4F11941
LDQ AEQUAL REPLACE THE CHARACTER LPAREN 4F11942
TSX C0390,4 * WITH THE CHARACTER EQUAL. 4F11943
LXA L(1),2 SET XR2 FOR COUNTING PARENTHESES. 4F11944
TRA *+2 4F11945
C0302 TSX C0190,4 * MAKE SURE THAT NEXT NB CHARACTER 4F11946
CAS ENDMK IS NOT AN ENDMARK. 4F11947
TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11948
TSX DIAG,4 * PROGRAM ERROR, GO TO DIAGNOSTIC. 4F11949
CAS ALPAR IF IT IS A LPAREN, 4F11950
TXI C0303,0 THEN ADD 1 TO PAREN COUNT, AND 4F11951
TXI C0302,2,1 GO EXAMINE NEXT CHARACTER. 4F11952
C0303 SUB ARPAR IF IT IS A RPAREN, 4F11953
TNZ C0302 THEN TEST PAREN COUNT, AND IF IT 4F11954
TIX C0302,2,1 CAN NO, BE REDUCED,MATE IS FOUND. 4F11955
LDQ ENDMK SO REPLACE THE CHARACTER RPAREN 4F11956
TSX C0390,4 * WITH THE CHARACTER ENDMK. 4F11957
TSX C0180,2 * BINARY EQUIVALENT OF BETA 1. 4F11958
TSX TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.4F11959
CLA 1G MOVE BETA1 4F11960
STA 1C TO ADDRESS OF 1C. 4F11961
TSX C0190,4 * AND PROCEED TO FORM 4F11962
TSX C0180,2 * THE BINARY EQUIVALENT OF BETA 2. 4F11963
TSX TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.4F11964
CLA 1G MOVE BETA2 4F11965
ALS 18 TO DECR PART 4F11966
STO 1C+1 OF 1C+1. 4F11967
TSX C0190,4 * AND PROCEED TO FORM 4F11968
TSX C0180,2 * THE BINARY EQUIVALENT OF BETA 3. 4F11969
TSX TESTD0,4 * THIS SHOULD BE FOLLOWED BY ENOMARK.4F11970
CLA 1G MOVE BETA3 4F11971
STA 1C+1 TO ADDRESS OF 1C+1. 4F11972
TXI ARITH,0 * EXIT T0 ARITH FOR FINAL PROCESSING.4F11973
REM END OF PROGRAM C0300. 4F11974
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11975
REM 4F11976
REM C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200. 4F11977
REM C0400 PROCESSES IF (SENSE SWITCH STATEMENTS. 4F11978
C0400 CLA L(112) FOR SENSE SWITCH 4F11979
STO 1H SET 1H TO 112, AND PREPARE TO 4F11980
CLA L(PSE) SET 2H TO PSE. 4F11981
REM C0401= ENTRY POINT USED BY C0500. 4F11982
C0401 STO 2H SET 2H FOR SENSE SWITCH OR LIGHT. 4F11983
TSX C0190,4 * PROCEED TO FORM THE BINARY 4F11984
TSX C0180,2 * EQUIVALENT OF SW OR SL NUMBER. 4F11985
TSX TESTF0,4 * THIS SHOULD BE FOLLOWED BY RPAREN. 4F11986
CLA L(3) STORE 3 4F11987
STO 1C IN ADDRESS 0F 1C. 4F11988
CLA 1G ADD THE PROPER INCREMENT TO THE 4F11989
ADD 1H NUMBER OF SENSE SWITCH OR LIGHT, 4F11990
ALS 18 AND ADJUST TO THE DECREMENT. 4F11991
REM C0402= ENTRY POINT USED BY C0600. 4F11992
C0402 STO 1C+3 SET 1C+3 FOR CIT ENTRY. 4F11993
LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F11994
PXD ,4 NUMBER IN THE DECREMENT OF 4F11995
STD 1C 1C FOR FUTURE TIFGO ENTRY, AND 4F11996
STO 1C+2 1C+2 FOR FUTURE CIT ENTRY. 4F11997
TSX C0190,4 * PROCEED TO FORM THE BINARY 4F11998
TSX C0180,2 * EQUIVALENT OF BETA 1, 4F11999
TSX TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. 4F12000
CLA 1G BRING UP, 4F12001
ALS 18 ADJUST AND 4F12002
STO 1C+1 STORE BETA1 IN DECR OF 1C+1. 4F12003
TSX C0190,4 * PROCEED TO FORM THE BINARY 4F12004
TSX C0180,2 * EQUIVALENT OF BETA 2, 4F12005
TSX TESTD0,4 * WHICH SHOULD BE FOLL0WED BY ENDMK. 4F12006
CLA 1G BRING UP AND 4F12007
STA 1C+1 STORE BETA2 IN ADDR OF 1C+1. 4F12008
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12009
PZE 1C+2 WORD1--DECR = INTFORMNO (LOCATION) 4F12010
PZE 2H WORD2--PSE,MSE,DCT,TOV,OR TQO. 4F12011
PZE L(0) WORD3--000000 (ADDRESSI 4F12012
PZE 1C+3 WORD4--DECR=SS OR SL NO., OR 0000004F12013
TXI C0202,0 * MAKE TIFGO ENTRY, AND RETURN TO CA.4F12014
REM END OF PROGRAM C0400. 4F12015
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12016
REM 4F12017
REM C0500/ USES=C0400. 4F12018
REM C0500 PROCESSES IF (SENSE LIGHT STATEMENTS. 4F12019
C0500 CLA L(96) STORE 96 IN 4F12020
STO 1H 1H AND 4F12021
CLA L(MSE) OBTAIN (MSE000) IN ACC. 4F12022
TRA C0401 * AND CONTINUE BY USING PROGRAM C04. 4F12023
REM END OF PROGRAM C0500. 4F12024
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12025
REM 4F12026
REM C0600/ USES=C0400. 4F12027
REM C0600 PROCESSES IF DIVIDE CHECK STATEMENTS. 4F12028
C0600 CLA L(DCT) STORE (DCT000) 4F12029
STO 2H IN 2H 4F12030
CLA L(4) AND PICK UP 4 TO SET 1C. 4F12031
REM C0601= ENTRY POINT USED BY C0700. 4F12032
C0601 STO 1C SET 1C FOR FUTURE TIFGO ENTRY. 4F12033
PXD ,0 CLEAR THE AC, 4F12034
TRA C0402 * AND CONTINUE BY USING PROGRAM C04. 4F12035
REM END OF PROGRAM C0600. 4F12036
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12037
REM 4F12038
REM C0700/ USES C0600. 4F12039
REM C0700 PROCESSES IF AC OVERFLOW STATEMENTS. 4F12040
C0700 CLA L(TOV) PICKUP TOV000 TO SET 2H. 4F12041
REM C0701= ENTRY POINT USED BY C0800. 4F12042
C0701 STO 2H SET 2H FOR FUTURE CIT ENTRY. 4F12043
CLA L(5) PICKUP 5 TO SET 1C, AND 4F12044
TRA C0601 * CONTINUE BY USING PROGRAM C06. 4F12045
REM END OF PROGRAM C0700. 4F12046
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12047
REM 4F12048
REM C0800/ USES=C0700. 4F12049
REM C0800 PROCESSES IF MQ OVERFLOW STATEMENTS. 4F12050
C0800 CLA L(TQO) PICKUP TQO000 TO SET 2H, 4F12051
TRA C0701 * AND CONTINUE BY USING PROGRAM C07. 4F12052
REM END OF PROGRAM C0800. 4F12053
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12054
REM 4F12055
REM C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300. 4F12056
REM C0900 PROCESSES PAUSE STATEMENTS. 4F12057
C0900 LXD C090X,2 SET XR2 FOR EXIT TO CA000. 4F12058
REM C0901= ENTRY POINT USED BY C1300. 4F12059
C0901 STZ 1G CLEAR 1G. 4F12060
C0902 TSX C0190,4 * TEST NEXT NON-BLANK CHARACTER 4F12061
CAS ENDMK FOR END OF STATEMENT MARK. 4F12062
TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F12063
C090X TXI C0903,0,-CA010+1 IF NOT END OF STATEMENT, THEN 4F12064
ADD 1G ADD 1G TO DIGIT, 4F12065
ALS 3 MULTIPLY BY 8, 4F12066
STO 1G AND STORE BACK IN 1G. 4F12067
TXI C0902,0 CONTINUE UNTIL END OF STATEMENT. 4F12068
C0903 CLA 1G THEN PLACE 0CTAL ALPHA 4F12069
ALS 15 IN THE DECREMENT 4F12070
STO 1C OF 1C FOR FUTURE CIT ENTRY. 4F12071
LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F12072
PXD ,4 NUMBER IN THE DECREMENT 4F12073
STO 1C+1 OF 1C+1,WITH ZEROS ELSEWHERE. 4F12074
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12075
PZE 1C+1 WORD1--DECR = INTFORMNO (LOCATION) 4F12076
PZE L(HPR) WORD2--HPR000 (OP AND DECR) 4F12077
PZE L(0) WORD3--000000 (ADDRESS) 4F12078
PZE 1C WORD4--DECR = ALPHA, REST ZEROS. 4F12079
TRA 1,2 * EXIT TO CA000, OR TO C1300. 4F12080
REM END OF PROGRAM C0900. 4F12081
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12082
REM 4F12083
REM C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0160,TEST..4F12084
REM CIT00. 4F12085
REM C1000 PROCESSES ASSIGN STATEMENTS. 4F12086
C1000 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C 4F12087
STO 1C+2 AND 1C+2,WITH ZEROS ELSEWHERE. 4F12088
CLA L(6) STORE 6 IN 4F12089
STA 1C ADDRE=S OF 1C. 4F12090
TSX C0180X,2 * GO FORM BINARY EQUIV OF ALPHA. 4F12091
SUB L(T) IF NEXT CHARACTER IS NOT T, THEN 4F12093
TZE *+2 THIS IS AN 4F12094
TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12095
TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER 4F12096
SUB L(O) AND IF IT IS NOT O, THEN 4F12097
TNZ *-3 ERROR, GO TO DIAGNOSTIC. 4F12098
CLA 1G PUT BIN EQUIV OF ALPHA 4F12099
STO 1C+1 IN ADDRESS OF 1C+1. 4F12100
TSX C0190,4 * PROCEED TO ASSEMBLE IN 1G 4F12101
TSX C0160,2 * THE SYMBOL N. 4F12102
TSX TESTD0,4 * THE NEXT NB CHAR SHOULD BE ENDMK. 4F12103
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12104
PZE 1C+2 WORD1--DECR = INTFORMNO (LOCATION) 4F12105
PZE L(CLA) WORD2--CLA000 (OP AND DECR) 4F12106
PZE L(0) WORD3--000000 (ADDRESS) 4F12107
PZE L(0) WORD4--000000 (RELADDR AN0 TAG). 4F12108
TSX CIT00,4 * STORE SECOND COMPILED INSTRUCTION= 4F12109
PZE L(0) WORD1--0OOOO0 (ALL ZEROS) 4F12110
PZE L(STO) WORD2--STO000 (OP AND DECR) 4F12111
PZE 1G WORD3--SYMBOL N IADDRESS) 4F12112
PZE L(0) WORD4--000000 (REL ADDR AND TAG). 4F12113
TRA C0202 * CONTINUE BY USING PROGRAM C02. 4F12114
REM END OF PROGRAM C1000. 4F12115
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12116
REM 4F12117
REM C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00. 4F12118
REM C1100 PROCESSES SENSE LIGHT STATEMENTS. 4F12119
C1100 TSX C0180X,2 * GO FORM BINARY EQUIV OF SL NUMBER. 4F12120
TSX TESTD0,4 * THE NEXT NB CHARACTER SHD BE ENDMK.4F12122
CLA 1G STORE SENSE LIGHT NUMBER 4F12123
ADD L(96) PLUS 96 4F12124
ALS 18 IN DECR 4F12125
STO 1G OF 1G. 4F12126
TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F12127
TSX CIT00,4 * G0 MAKE THE FOLLOWING CIT ENTRY= 4F12128
PZE 1C WORD1--DECR = INTFORMNO (LOCATION) 4F12129
PZE L(PSE) WORD2--PSE000 (OP AND DECREMENT) 4F12130
PZE L(0) WORD3--000000 (ADDRESS PART) 4F12131
PZE 1G WORD4--DECR = 96+ALPHA,REST ZEROS. 4F12132
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12133
REM END OF PROGRAM C1100. 4F12134
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12135
REM 4F12136
REM C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS. 4F12137
REM C1200 PR0CESSES DIMENSION STATEMENTS. 4F12138
C1200 TSX C0190,4 * PROCEED TO ASSEMBLE IN 1G 4F12139
TSX C0160,2 * THE VARIABLE SYMBOL. 4F12140
TSX TESTE0,4 * NEXT NB CHARACTER SH0ULD BE LPAREN.4F12141
CLA 1G PUT VARIABLE SYMBOL 4F12142
STO 1C IN 1C. 4F12143
STO E+2 ALS0 IN E+2. THEN 4F12144
TSX DIM1SR,4 * GO SEARCH DIM1 TABLE. 4F12145
TRA C1280 THEN IF NOT 4F12146
TRA C1299 FOUND, 4F12147
C1280 TSX DIM2SR,4 * GO SEAROH DIM2 TABLE. 4F12148
TRA C1281 THEN IF NOT 4F12149
TRA C1299 FOUND, 4F12150
C1281 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. 4F12151
TRA C1282 DO NOT CONTINUE IF 4F12152
C1299 TSX DIAG,4 * VARIABLE PREVIOUSLY APPEARED. 4F12153
C1282 TSX C0180X,2 * GO FORM BINARY EQUIV OF D1. 4F12154
SUB CLOS IF NOT 1 DIMENSION, 4F12156
TZE C1210 THEN 4F12157
CLA 1G PUT D1 4F12158
ALS 18 IN DECR 4F12159
STO 1C+1 OF 1C+1. 4F12160
TSX C0180X,2 * GO FORM BINARY EQUIV OF D2. 4F12161
SUB CLOS IF NOT 2 DIMENSION, 4F12163
TZE C1220 THEN 4F12164
CLA 1G PUT D2 4F12165
STA 1C+1 IN ADDRESS OF 1C+1. 4F12166
TSX C0180X,2 * GO FORM BINARY EQUIV 0F D3. 4F12168
SUB CLOS IF MORE THAN 3 DIMENSION, 4F12169
TZE *+2 THIS IS AN 4F12170
TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12171
CLA 1G IF 3 DIMENSION, PUT D3 4F12172
STO 1C+2 IN 1C+2, AND 4F12173
TSX DIM3IX,4 * GO MAKE DIM3 ENTRY. 4F12174
TXI C1201,0 GO TO TEST FOR END OF STATEMENT. 4F12175
C1210 CLA 1G IF 1 DIMENSION, PUT D1 4F12176
STO 1C+1 IN 1C+1, AND 4F12177
TSX DIM1IX,4 * GO MAKE DIM1 ENTRY. THEN 4F12178
TXI C1201,0 GO TO TEST FOR END 0F STATEMENT. 4F12179
C1220 CLA 1G IF 2 DIMENSION, PUT D2 IN 4F12180
STA 1C+1 ADDRESS PART OF 1C+1. AND 4F12181
TSX DIM2IX,4 * GO MAKE DIM2 ENTRY. THEN 4F12182
C1201 TSX C0190,4 * OBTAIN NB CHAR FOLLOWING RPAREN. 4F12183
TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12184
TNZ C1200 IF CHARACTER IS ENDMARK, THEN 4F12185
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12186
REM END OF PROGRAM C1200. 4F12187
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12188
REM 4F12189
REM C1300/ CALLS=C0901,TET00,CIT00. 4F12190
REM C1300 PROCESSES STOP STATEMENTS. 4F12191
C1300 TSX TET00,1 * GO MAKE EIFNO ENTRY 4F12192
PZE 15 IN TSTOP TABLE. 4F12193
TSX C0901,2 * USE C0900 TO BEGIN PROCESSING. 4F12194
TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= 4F12195
PZE L(0) WORD1--ALL ZEROS 4F12196
PZE L(TRA) WORD2--TRA000 (OP+DECR) 4F12197
PZE 1C+1 WORD3--DECR = INTFORMNO (SYMBOL) 4F12198
PZE L(0) WORD4--ZEROS (REL ADDR AND TAG) 4F12199
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12200
REM END OF PROGRAM C1300. 4F12201
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12202
REM 4F12203
REM C1400/ CALLS=C0190,C0180,TEST..,TET00. 4F12204
REM C1400 PROCESSES FREQUENCY STATEMENTS. 4F12205
C1400 TSX C0180X,2 * GO FORM BINARY EQUIV OF EFN. 4F122006
TSX TESTE0,4 * CHARACTER SHOULD BE A LPAREN. 4F12208
CLS 1G CHANGE SIGN OF SYMBOL 4F12209
STO 1G TO MINUS. 4F12210
TSX TET00,1 * GO TO PROGRAM TET TO ENTER 4F12211
PZE 7 SYMBOL INTO FRET (TABLE 7), AND 4F12212
C1401 TSX C0180X,2 * GO FORM BINARY EQUIV OF M(1). 4F12213
STO 1C SAVE CHAR IN ACC. 4F12215
TSX TET00,1 * GO TO PROGRAM TET TO ENTER M(1) 4F12216
PZE 7 INTO TABLE FRET (TABLE7), AND 4F12217
CLA 1C RESTORE CHAR IN ACC, AND 4F12218
TSX TESTB0,4 * TEST FOR , OR ). 4F12219
TNZ C1401 IF RIGHT PARENTHESIS, THEN 4F12220
TSX C0190,4 * OBTAIN IN ACC NEXT NBCHAR, AND 4F12221
TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12222
TNZ C1400 IF ENDMARK, THIS STATEMENT IS DONE.4F12223
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12224
REM END OF PROGRAM C1400. 4F12225
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12226
REM 4F12227
REM C1500/ CALLS=C0190,TEST..,C0160,C01B0,TET00. 4F12228
REM C1500 PROCESSES EQUIVALENCE STATEMENTS. 4F12229
C1500 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC. 4F12230
TSX TESTE0,4 * CHARACTER SHOULD BE A LPAREN. 4F12231
C1501 CLA L(1) INITIALIZE 1C 4F12232
STO 1C+1 TO 1. 4F12233
TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC AND 4F12234
TSX C0160,2 * OBTAIN IN 1G THE SYMBOL V. 4F12235
LDQ 1G MOVE V 4F12236
STQ 1C INTO 1C. 4F12237
CAS ALPAR EXAMINE CHARACTER LEFT IN THE AC, 4F12238
TXI C1503,0 AND IF 4F12239
TXI C1502,0 CHARACTER IS A LEFT PARENTHESIS, 4F12240
TXI C1503,0 THEN 4F12241
C1502 TSX C0180X,2 * GO FORM BINARY EQUIV OF N. 4F12242
TSX TESTF0,4 * 1ST NON-NUMERIC SHOULD BE A RPAREN.4F12244
CLA 1G PUT BIN EQUIV OF N 4F12245
STO 1C+1 IN 1C+1. 4F12246
TSX C0190,4 * OBTAIN NEXT NBCHAR IN AC, AND 4F12247
C1503 TSX TESTB0,4 * TEST FOR COMMA OR RPAREN. 4F12248
TZE C1504 IF COMMA, THEN 4F12249
TSX TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL 4F12250
PZE 8 AND N IN EQUIT (TABLE 8), AND 4F12251
TXI C1501,0 RETURN TO CONTINUE PROCESSING X. 4F12252
C1504 CLS 1C+1 MAKE SIGN OF N MINUS SINCE 4F12253
STO 1C+1 TNIS IS LAST ITEM. 4F12254
TSX TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL 4F12255
PZE 8 AND N IN EQUIT (TABLE 8), AND 4F12256
TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC, AND 4F12257
TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12258
TNZ C1500 IF ENDMARK, THEN 4F12259
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12260
REM END OF PROGRAM C1500. 4F12261
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12262
REM 4F12263
REM C1600/ CALLS=C0190,TEST..,GIF,BSS. 4F12264
REM C1600 PROCESSES CONTINUE STATEMENTS. 4F12265
C1600 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC. 4F12266
TSX TESTD0,4 * CHARACTER SHOULD BE AN ENDMARK. 4F12267
TSX GIF,4 * GET INTERNAL FORMULA NUMBER, AND 4F12268
TSX BSS,2 * GO COMPILE= IFN BSS 0. 4F12269
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12270
REM END OF PROGRAM C1600. 4F12271
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12272
REM 4F12273
REM C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX. 4F12274
REM C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS. 4F12275
C3500 CAL TXHOP 4F12276
STP C3003 4F12277
C3000 LXD EIFNO,4 EXAMINE INTERNAL FORMULA NO., AND 4F12278
TXL *+2,4,1 IF NOT THE 1ST STATEMENT, THEN 4F12279
TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12280
CLA ARGCNT SET ARGCNT TO INDICATE TO LATER 4F12281
SSP RETURN THAT THERE WAS A PRECEEDING 4F12282
STO ARGCNT SUBROUTINE OR FUNCTION STATEMENT. 4F12283
TSX C0190,4 * IF 1ST CHARACTER OF NAME IS 4F12284
TSX TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12285
TSX C0160,2 * ASSEMBLE NAME IN 1G. 4F12286
TSX TESTC0,4 * NEXT CHAR SHD BE LPAREN OR ENDMARK.4F12287
C3003 TXL *+3,0 4F12288
CLA 1G 4F12289
STO FSNAME 4F12290
TSX SUBX00,4 * FILL OUT NAME WITH BLANKS. 4F12291
TSX TET00,1 * GO ENTER NAME 4F12292
PZE 11 IN SUBDEF TABLE. 4F12293
LXD EIFNO,4 PLACE 4F12294
PXD ,4 INTERNAL FORMULA NUMBER 4F12295
STO G IN G. 4F12296
TXI C3002,0 GO TEST FOR END OF STATEMENT. 4F12297
C3001 ADD ENDMK IF NOT ENDMARK, RESTORE CHARACTER 4F12298
TSX TESTH0,4 * WHICH SHOULD BE NON-NUMERIC 4F12299
STO FIRSTC 1ST CHARACTER OF ARGUMENT. 4F12300
TSX C0160,2 * ASSEMBLE ARGUMENT IN 1G. 4F12301
TSX TESTB0,4 * NEXT CHAR SHD BE COMMA OR RPAREN. 4F12302
CLA 1G MOVE ARGUMENT 4F12303
STO G+1 INTO G+1. 4F12304
TSX TESTFX,1 * GO TEST FOR FIXED OR FLOATING PT. 4F12305
TXI C3004,0 IF FLOATING PT., SKIP FORVAL ENTRY.4F12306
TSX TET00,1 * IF FIXED POINT, GO MAKE ENTRY 4F12307
PZE 6 IN FORVAL TABLE. 4F12308
C3004 TSX TET00,1 * IN BOTH CASES, MAKE ENTRIES IN 4F12309
PZE 11 SUBDEF TABLE. 4F12310
CLA ARGCNT UPDATE 4F12311
ADD D1 ARGUMENT COUNT 4F12312
STO ARGCNT BY 1. AND 4F12313
C3002 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. 4F12314
SUB ENDMK IF NOT ENDMARK, THEN 4F12315
TNZ C3001 GO PROCESS NEXT ARGUMENT. 4F12316
TXI CA010,0 * OTHERWISE, EXIT TO CA000. 4F12317
REM END OF PROGRAM C3000. 4F12318
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12319
REM 4F12320
REM C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00. 4F12321
REM C3100 PROCESSES COMMON STATEMENTS. 4F12322
C3100 TSX C0190,4 * GET FIRST NON-BLANK CHAR OF SYMBOL 4F12323
TSX TESTH0,4 * WHICH SHOULD BE NON-NUMERIC. 4F12324
TSX C0160,2 * ASSEMBLE SYMBOL IN 1G, AND TEST 4F12325
TSX TESTA0,4 * NEXT CHARACTER FOR COMMA OR ENDMK. 4F12326
PAX ,4 SAVE RESULT OF TEST IN XR4, AND 4F12327
TSX TET00,1 * GO ENTER THIS SYMBOL 4F12328
PZE 12 IN COMMON TABLE. 4F12329
CLA SBDFCN ANY ENTRIES IN SUBDEF 4F123291
TZE C3101 INDICATE THIS IS NOT A 4F123292
CLA 2E18 MAIN PROGRAM. SINCE THIS 4F123293
STO G IS A COMMON 4F123294
CAL 1G STATEMENT WHICH 4F123296
SLW G+1 APPEARS IN A SUBPROGRAM 4F123297
ARS 30 ENTER ANY4 4F123298
TSX TESTFX+1,1 * FIXED POINT 4F123299
TRA C3101 VARIABLES 4F12330
TSX TET00,1 * IN 4F123301
PZE 6 FORVAL TABLE. 4F123302
C3101 TXH C3100,4,0 IF CHARACTER WAS COMMA, REPEAT. 4F123303
TXI CA010,0 * IF ENDMK, EXIT TO CA000. 4F12331
REM END OF PROGRAM C3100. 4F12332
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12333
REM 4F12334
REM C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF). 4F12335
REM C3200 PROCESSES RETURN STATEMENTS. 4F12336
C3200 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F12337
TSX TESTD0,4 * WHICH SHOULD BE AN ENDMARK. 4F12338
TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F12339
TSX JIF,4 * SET SL TO ALPHA+1. 4F12340
CLA ARGCNT TEST ARGCNT FOR PRECEEDING 4F12341
TPL *+2 SUBROUTINE - IF NONE, THEN 4F12342
TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12343
CLA FSNAME 4F12344
TZE *+7 4F12345
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12346
PZE 1C WORD1--O(IFN)000 4F12347
PZE L(CLA) WORD2--CLA000 4F12348
PZE FSNAME WORD3--NAME OF FUNCTION 4F12349
PZE L(0) WORD4--000000 4F12350
STZ 1C CLEAR 1C. 4F12351
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12352
PZE 1C WORD1--O(IFN)000 4F12353
PZE L(LXD) WORD2--LXD000 4F12354
PZE DOLSGN WORD3--$ 4F12355
PZE L(1) WORD4--000001 4F12356
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12357
PZE L(0) WORD1--000000 4F12358
PZE L(LXD) WORD2--LXD000 4F12359
PZE DOLSGN WORD3--$ 4F12360
PZE ABTAG2 WORD4--001002 4F12361
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12362
PZE L(0) WORD1--000000 4F12363
PZE L(QXD) WORD2--QXD000 4F12364
PZE DOLSGN WORD3--$ 4F12365
PZE ABTAG3 WORD4--002000 4F12366
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12367
PZE SL WORD1--O(IFN+1)000 4F12368
PZE L(QPR) WORD2--OPR000 4F12369
PZE L(0) WORD3--000000 4F12370
PZE ARGCNT WORD4--0(N+1)004 4F12371
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12372
PZE L(0) WORD1--000000 4F12373
PZE L(TRA) WORD2--TRA000 4F12374
PZE SL WORD3--O(IFN+1)000 4F12375
PZE L(0) WORD4--000000 4F12376
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12377
REM END OF PROGRAM C3200. 4F12378
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12379
REM 4F12380
REM C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00. 4F12381
REM C3300 PROCESSES CALL STATEMENTS. 4F12382
C3300 TSX C0190,4 * IF 1ST CHARACTER OF NAME IS 4F12383
TSX TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12384
TSX C0160,2 * COLLECT THF REST OF THE NAME, WHICH4F12385
TSX TESTC0,4 * SHD BE FOLLOWED BY LPAREN OR ENDMK.4F12386
TZE C3301 IF LPAREN, THEN CHANGE CALL TO A 4F12387
TSX C0190X,4 * PSEUDO-ARITHMETIC FORMULA (Z10=). 4F12388
TSX C0190,4 * PICKUP THE CHARACTER C, 4F12389
LDQ L(Z) AND 4F12390
TSX C0390,4 * REPLACE C WITH Z. 4F12391
LDQ L(10) AND 4F12392
TSX C0390,4 * REPLACE A WITH TEN. 4F12393
LDQ EQUAL AND 4F12394
TSX C0390,4 * REPLACE FIRST L WITH =. 4F12395
LDQ BLANK AND 4F12396
TSX C0390,4 * REPLACE SECOND L WITH BLANK. 4F12397
CLA EIFNO PUT 1ST IFN OF THIS CALL IN CALLNM 4F12398
ARS 18 FOR LATER TABLE ENTRY OF 4F12399
STA CALLNM FIRST / LAST NUMBERS OF CALLS. 4F12400
TXI ARITH,0 * THEN EXIT TO ARITH TO PROCESS. 4F12401
C3301 TSX SUBX00,4 * IF THERE ARE NO ARGUMENTS, THEN 4F12402
CLA 1G AFTER COMPLETING NAME W1TH BLANKS, 4F12403
STO G MOVE IT INTO G, AND 4F12404
TSX TET00,1 * GO ENTER NAME 4F12405
PZE 9 IN CLOSUB TABLE. 4F12406
TSX GETIFN,4 * PUT INTERNAL FORMULA NUMBER IN 1C. 4F12407
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12408
PZE 1C WORD1--0(IFN)000 4F12409
PZE L(SXD) WORD2--SXD000 4F12410
PZE X( WORD3--700000 4F12411
PZE L(4) WORD4--000004 4F12412
TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12413
PZE L(0) WORD1--000000 4F12414
PZE L(TSX) WORD2--TSX000 4F12415
PZE 1G WORD3--(NAME) 4F12416
PZE L(4) WORD4--000004 4F12417
TSX FLTR00,4 * GO MAKE FLOW TRACING INSTRUCTIONS. 4F12418
PZE L(0) WORD1--000000 4F12419
PZE L(LXD) WORD2--LXD000 4F12420
PZE X( WORD3--700000 4F12421
PZE L(4) WORD4--000004 4F12422
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12423
REM END OF PROGRAM C3300. 4F12424
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12425
REM 4F12426
REM C3400/ CALLS=C0190,DIAG,TEST... 4F12427
REM C3400 PROCESSES END STATEMENTS. 4F12428
C3400 LXA L(5),2 PREPARE TO SET 5 SS S1MULATORS. 4F12429
C3405 TSX C0190,4 * PICKUP CONSTANT, 4F12430
CAS L(2) WHICH SH0ULD BE 0,1, OR 2. 4F12431
TSX DIAG,4 * OTHERWISE, GO TO THE DIAGNOSTIC. 4F12432
TXI C3410,0 SIMULATOR IS PRESET TO 2. 4F12433
STO ENDI1+5,2 IF 0 OR 1, SET PROPER SIMULATOR. 4F12434
C3410 TSX C0190,4 * SKIP NEXT NON-BLANK CHARACTER, AND 4F12435
TIX C3405,2,1 REPEAT PROCESS FOR 5 CONSTANTS. 4F12436
TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F12437
TSX TESTD0,4 * WHICH SHOULD BE AN ENDMK. 4F12438
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12439
REM END OF PROGRAM C3400. 4F12440
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12441
REM 4F12442
REM STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS= 4F12443
REM 4F12444
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12445
REM 4F12446
REM RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF. 4F12447
REM RDC PROCESSES READ STATEMENTS. 4F12448
RDC CLA A81 SET THE ADDRESS FIELD OF 4F12449
STA ENT ENT (NTR000) TO 81. 4F12450
TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12451
CLA CSH PICKUP (CSH) TO 4F12452
REM TSC= ENTRY POINT USED BY RIT. 4F12453
TSC STO TSA SET TSA. 4F12454
CAL RTN MOVE (RTN) 4F12455
SLW END INTO END. 4F12456
CLA DBC PICKUP (DBC) TO 4F12457
REM TTC= ENTRY POINT USED BY RDP. 4F12458
TTC STO TTA SET TTA. 4F12459
TSX BEG,4 * CONVERT CONSTANT FORMAT NUMBER. 4F12460
TSX DIAG,4 * ATTEMPT TO USE VARIABLE FORMAT NO. 4F12461
TNZ 4,4 GO TO THE DIAGNOSTIC, IF THERE WAS 4F12462
TSX DIAG,4 * NO FORMAT NUMBER GIVEN. 4F12463
STA SET MOVE BINARY FORMAT NUMBER INTO SET.4F12464
CAL NTR MOVE NTR000 4F12465
SLW OP INTO OP. 4F12466
CLA TXLOP SET OP-SWITCHES, 4F12467
STP ETMSW , ETMSW AND LTMSW, 4F12468
STP LTMSW TO NO TRANSFER CASE. 4F12469
TSX ETMSW,4 * O0 COMPILE ETM. 4F12470
TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F12471
PZE L(0) WORD1--000000 4F12472
PZE CAL WORD2--CAL000 4F12473
PZE TTA WORD3--(DBC) OR (BDC) 4F12474
PZE L(0) WORD4--000000 4F12475
TSX CIT,4 * GO MAKE THE FOLIOWING CIT ENTRY= 4F12476
PZE L(0) WORD1--000000 4F12477
PZE SLW WORD2--SLW000 4F12478
PZE L(0) WORD3--000000 4F12479
PZE D1 WORD4--001000 4F12480
TSX LIB,4 * MAKE CL0SUB ENTRY, AND COMPILE= 4F12481
PZE L(0) WORD1--000000 4F12482
PZE CAL WORD2--CAL000 4F12483
PZE TSA WORD3--(CSH) OR (TSH) 4F12404
PZE L(0) WORD4--000000 4F12405
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12486
PZE TL NORD1--0(IFN)0(248) 4F12487
PZE ENT WORD2--NTR0(81, OR UNIT, OR 00) 4F12486
PZE SET WORD3--800(FORMAT NUMBER) 4F12489
PZE L(0) WORD4--000000 4F12490
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12491
REM BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD. 4F12492
BXT TXI RSC,0 * EXIT TO SCAN LIST, IF THERE IS ONE.4F12493
REM END OF PROGRAM RDC. 4F12494
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12495
REM 4F12496
REM RIT/ CALLS=INPUT,BEG,VRD. USES=RDC. 4F12497
REM RIT PROCESSES READ INPUT TAPE STATEMENTS. 4F12498
RIT TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12499
TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12500
TSX VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F12501
STA ENT IF CONSTANT, SET ENT= NTR0(UNIT). 4F12502
CLA TSH PICKUP (TSH) TO SET TSA, AND 4F12503
TXI TSC,0 * CONTINUE BY USING PROGRAM RDC. 4F12504
REM END OF PROGRAM RIT. 4F12505
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12506
REM 4F12507
REM RDP/ CALLS=OUTPUT. USES=RDC. 4F12508
REM RDP PROCESSES PRINT STATEMENTS. 4F12509
RDP PXD ,0 RESET ENT 4F12510
STA ENT TO NTR000. 4F12511
TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12512
CLA SPH PICKUP (SPH), AND 4F12513
REM TSD= ENTRY POINT USED BY WOT, PDC. 4F12514
TSD STO TSA SET TSA. 4F12515
CAL FIL MOVE (FIL) 4F12516
SLW END INTO END. 4F12517
CLA BDC PICKUP (BDC) TO SET TTA, AND 4F12518
TXI TTC,0 * CONTINUE BY USING PROGRAM RDC. 4F12519
REM END OF PROGRAM RDP. 4F12520
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12521
REM 4F12522
REM WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP. 4F12523
REM WOT PROCESSES WRITE OUTPUT TAPE STATEMENTS. 4F12524
WOT TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12525
TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12526
TSX VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F12527
STA ENT IF CONSTANT, SET ENT= NTR0(UNIT). 4F12528
CLA STH PICKUP (STH) TO SET TSA, AND 4F12529
TXI TSD,0 * CONTINUE BY USING PROGRAM RDP. 4F12530
REM END OF PROGRAM WOT. 4F12531
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12532
REM 4F12533
REM PDC/ CALLS=OUTPUT. USES=RDP. 4F12534
REM PDC PROCESSES PUNCH STATEMENTS. 4F12535
PDC PXD ,0 RESET ENT 4F12536
STA ENT TO NTR000. 4F12537
TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12538
CLA SCH PICKUP (SCH) TO SET TSA, AND 4F12539
TXI TSD,0 * CONTINUE BY USING PROGRAM RDP. 4F12540
REM END 0F PROGRAM PDC. 4F12541
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12542
REM 4F12543
REM WBT/ CALLS=OUTPUT,BRW,CIT. 4F12544
REM WBT PROCESSES WRITE TAPE STATEMENTS. 4F12545
WBT CAL WTB MOVE WTB0004 4F12546
SLW OP INTO OP. 4F12547
TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12548
CAL BTA PICKUP BINARY TAPE ADDRESS, AND 4F12549
TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12550
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12551
PZE L(0) WORD1--000000 4F12552
PZE CPY WORD2--CPY000 4F12553
PZE ZER WORD3--600000 4F12554
PZE D2 WORD4--002000 4F12555
TXI BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE.4F12556
REM END OF PROGRAM WBT. 4F12557
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12558
REM 4F12559
REM RBT/ CALLS=INPUT,BRW,CIT. 4F12560
REM RBT PROCESSES READ TAPE STATEMENTS. 4F12561
RBT CAL RTB MOVE RTB000 4F12562
SLW OP INTO OP. 4F12563
TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12564
CAL BTA PICKUP BINARY TAPE ADDRESS, AND 4F12565
TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12566
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12567
PZE L(0) WORD1--000000 4F12568
PZE CPY WORD2--CPY000 4F12569
PZE DMP WORD3--100000 4F12570
PZE L(0) WORD4--000000 4F12571
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12572
PZE L(0) WORD1--000000 4F12573
PZE XIT WORD2--XIT000 4F12574
PZE 15P WORD3--*00000 4F12575
PZE D3CN WORD4--003000 4F12576
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12577
PZE L(0) WORD1--000000 4F12578
PZE HPR WORD2--HPR000 4F12579
PZE L(0) WORD3--000000 4F12560
PZE L(0) WORD4--000000 4F12581
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12582
PZE L(0) WORD1--000000 4F12583
PZE XIT WORD2--XIT000 4F12584
PZE TL WORD3--0(IFN)0(248) 4F12585
PZE L(0) WORD4--000000 4F12586
TXI BXT,0 * EXIT TO SCAN LIST, IF THEPE IS ONE.4F12587
REM END OF PROGRAM RBT. 4F12588
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12589
REM 4F12590
REM WRD/ CALLS=OUTPUT,BRW,CIT. 4F12591
REM WRD PROCESSES WRITE DRUM STATEMENTS. 4F12592
WRD TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12593
CAL WDR PICKUP WDR000, AND 4F12594
REM XDR= ENTRY POINT USED BY RDD. 4F12595
XDR SLW OP SET OP. 4F12596
CAL BDA PICKUP 0INARY DRUM ADDRESS, AND 4F12597
TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12598
CAL PXD MOVE PXD000 4F12599
SLW OP INTO OP. 4F12600
PXD ,0 CLEAR THE AC, AND 4F12601
TSX BRW,4 * COMPILE INSTRS TO SET DRUM LOC. 4F12602
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12603
PZE L(0) WORD1--000000 4F12604
PZE LDA WORD2--LDA000 4F12605
PZE TL WORD3--0(IFN)0(248) 4F12606
PZE L(0) WORD4--000000 4F12607
TXI BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE.4F12608
REM END OF PROGRAM WRD. 4F12609
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12610
REM 4F12611
REM RDD/ CALLS=INPUT. USES=WRD. 4F12612
REM RDD PROCESSES READ DRUM STATEMENTS. 4F12613
RDD TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12614
CAL RDR PICKUP RDR000 TO SET OP, AND 4F12615
TXI XDR,0 * CONTINUE BY USING PROGRAM WRD. 4F12616
REM END OF PROGRAM RDD. 4F12617
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12618
REM 4F12619
REM EFT/ CALLS=GIF,BEG,VRAX,CIT. 4F12620
REM EFT PROCESSES WRITE END OF FILE STATEMENTS. 4F12621
EFT CAL WEF PICKUP WEF000, AND 4F12622
REM TPO= ENTRY POINT USED BY RWN, BSP. 4F12623
TPO SLW OP SET OP. 4F12624
CAL BTA MOVE BINARY TAPE ADDRESS 4F12625
SLW CON INTO CON. 4F12626
TSX GIF,4 * GET IFN INTO SL AND TL. 4F12627
CLA L(SL) RESET TP0A ADDRESS 4F12628
STA TPOA TO SL. 4F12629
TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12630
TSX VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F12631
ALS 18 IF CONSTANT, ADJUST AND 4F12632
STO RA PLACE IN THE DECREMENT OF RA. 4F)2633
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12634
TPOA PZE SL WORD1--0(IFN)O0O OR 0(IFN)0(248) 4F12635
PZE OP NORD2--(WEF,REW,OR BSP)000 4F12636
PZE L(0) WORD3--000000 4F12637
PZE RA WORD4--0(CON)000 OR 000000 4F12638
TXI FINI,0 * GO RESET BXT, AND TEST FOR EFN. 4F12639
REM END OF PROGRAM EFT. 4F12640
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12641
REM 4F12642
REM RWN/ USES=EFT. 4F12643
REM RWN PROCESSES REWIND TAPE STATEMENTS. 4F12644
RWN CAL REW PICKUP REW000 TO SET OP, AND 4F12645
TXI TPO,0 * CONTINUE BY USING PROGRAM EFT. 4F12646
REM END OF PROGRAM RWN. 4F12647
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12648
REM 4F12649
REM BSP/ USES=EFT. 4F12650
REM BSP PR0CESSES BACKSPACE TAPE STATEMENTS. 4F12651
BSP CAL BST PICKUP BST000 TO SET OP, AND 4F12652
TXI TPO,0 * CONTINUE BY USING PROGRAM EFT. 4F12653
REM END OF PROGRAM BSP. 4F12654
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12655
REM 4F12656
REM FOR/ CALLS=TET00. 4F12657
REM FOR PROCESSES FORMAT STATEMENTS. 4F12658
FOR CAL EIFNO MOVE EXTERNAL FORMULA NUMBER 4F12659
STA SET INTO THE ADDRESS OF SET, 4F12660
CAL SET AND MOVE SET (8000(EFN)) 4F12661
SLW G INTO G. 4F12662
LXD CHCTR,1 SET XR1 = CHARACTER COUNT. 4F12663
LXD FWA,2 SET XR2 = -(CURRENT F-WORD ADDR). 4F12664
TXL NFFW,1,1 UNLESS POSITIONED AT THE 4F12665
TXI *+1,1,-1 BEGINNING OF A FORMAT WORD, 4F12666
LDQ RESIDU THEN PICKUP AND 4F12667
CAL BLANKS PRECEED WITH BLANKS ANY 4F12668
NFC LGL 6 CHARACTERS 4F12669
TIX NFC,1,1 REMAINING IN THE MQ, AND 4F12670
NFW SLW G+1 MOVE FORMAT WORDS INTO G+1. 4F12671
TSX TET00,1 * GO ENTER THEN IN 4F12672
PZE 10 THE FORMAT TABLE. 4F12673
CAL G+1 WHEN THE 4F12674
ANA ENDMK END OF STATEMENT MARK 4F12675
SUB ENDMK HAS BEEN ENTERED, 4F12676
TZE CA010 * EXIT TO PROCESS NEXT STATEMENT. 4F12677
STZ G PRECEED ALL BUT 1ST ENTRY WITH 0. 4F12678
NFFW CAL 0,2 PICKUP NEXT FORMAT WORD, 4F12679
TXI NFW,2,-1 UPDATE SCAN INDEX, AND CONTINUE. 4F12680
REM END OF PROGRAM FOR. 4F12681
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12682
REM 4F12683
REM RSC/ CALLS=C0190,DIAG. 4F12684
REM RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS 4F12685
REM FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN 4F12686
REM COMMON. THEN A TAGGED EXIT IS MADE THR0UGH THE BLOCK OF 4F12687
REM CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT. 4F12688
REM RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC. 4F12689
RSC CAL FLINE RESET TEMPORARY 4F12690
STA TLINE TABLE LINE C0UNTER. 4F12691
STZ DOLEV CLEAR DO LEVEL COUNTER. 4F12692
STZ GTAG CLEAR GENERALIZED TAG. 4F12693
REM LSC = ENTRY POINT FROM SPC. 4F12694
LSC CAL LISTR SET CONTROL TRANSFER 4F12695
REM CXS = ENTRY POINT FROM EQS, BEG. 4F12696
CXS STA CEXIT FOR LIST SCAN. 4F12697
REM NXS = ENTRY POINT FROM LPR, SPC, CMA. 4F12698
NXS LXA L(6),2 RESET SYMBOL CHARACTER COUNT 4F12699
SXD CSJ,2 AND SHIFT COUNT. 4F12700
STZ SYM CLEAR SYMBOL WORKING STORAGE. 4F12701
REM NXC = ENTRY POINT FROM CMA. 4F12702
NXC TSX C0190,4 * OBTAIN NEXT NB CHARACTER IN THE AC.4F12703
CLOAD LXA CTESTX,4 SET XR4 TO PICK CONTROL CHARACTERS.4F12704
CCOMP CAS CTEST,4 COMPARE CHARACTER WITH CONSTANTS. 4F12705
TXL BUILD,0 IF EQUALITY IS FOUND ON SOME 4F12706
CEXIT TRA **,4 * CONTROL CHAR, EXIT TO TRA LIST. 4F12707
TIX CCOMP,4,1 CONTINUE THROUGH PUNCTUATION. 4F12708
BUILD LXD CSJ,4 BUILD A 4F12709
STO CHR,4 SYMBOL 4F12710
TNX LCT,4,1 COMPOSED OF 4F12711
ALS 36,2 SIX OR LESS CHARACTERS. 4F12712
CSZ SXD CSJ,4 SAVE SYMBOL CHARACTER COUNT. 4F12713
ORS SYM ALSO, SAVE EACH 4F12714
TXI NXC,2,6 CHARACTER SEPARATELY. 4F12715
LCT TXL LCS,2,36 GO TO DIAGNOSTIC IF 4F12716
TSX DIAG,4 * MORE THAN 6 CHARACTERS IN SYMBOL. 4F12717
LCS TXI CSZ,4,-1 ADJUST C0UNT, AND CONTINUE SCAN. 4F12718
REM END OF PROGRAM RSC. 4F12719
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12720
REM 4F12721
REM LISTR/ CONTROL TRANSFERS FOR LIST SCAN= 4F12722
TXI EMK,0 * ENDMARK 4F12723
TXI LPR,0 * ( 4F12724
TXI CMA,0 * , 4F12725
TXI RPR,0 * ) 4F12726
TXI EQS,0 * = 4F12727
TXI ILC,0 - (ILLEGAL CHARACTER IN I/O LIST). 4F12728
ILC TSX DIAG,4 * / (ILLEGAL CHARACTER IN I/O LIST). 4F12729
TXI ILC,0 . (ILLEGAL CHARACTER IN I/O LISTI. 4F12730
TXI ILC,0 + (ILLEGAL CHARACTER IN I/O LIST). 4F12731
TXI ILC,0 * (ILLEGAL CHARACTER 1N I/O LIST). 4F12732
LISTR PZE LISTR INDEXING ADDRESS FOR ABOVE LIST. 4F12733
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12734
REM 4F12735
REM LPR/ CALLS=TYP,SS000,RA000,C0190,TEST..,LTMSW,CIT,JIF,DIAG, 4F12736
REM BSS. USES=CMA,RSC. 4F12737
REM EPR = ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN. 4F12738
LPR CAL SYM TEST FOR SUBSCRIPT OR DO NEST. 4F12739
TZE LPRD IF SUBSCRIPT, THEN 4F12740
TSX TYP,4 * IF VARIABLE SYMBOL CONTAINS LESS 4F12741
TRA 3,4 THAN 6 CHARACTERS, ADD A BLANK. 4F12742
TXI ERRC,0 * ON CONSTANT RETURN, GO TO DIAG. 4F12743
CAL SYM MOVE SYMBOL 4F12744
SLW E+2 INTO E+2, AND 4F12745
SLW SA COMPILE SYMBOLIC ADDRESS. 4F12746
TSX SS000,4 * GO SCAN AND PROCESS SUBSCRIPT. 4F12747
TSX RA000,4 * THEN GO =OMPUTE RELATIVE ADDRESS. 4F12748
TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER 4F12749
CAS CLOS 4F12750
TRA *+5 4F12751
TRA *+2 4F12752
TRA *+3 4F12753
STZ DOLEV 4F12754
TSX C0190,4 4F12755
TSX TESTA0,4 * FOR EITHER COMMA OR ENDMARK. 4F12756
TXI CMA7,0 * AND CONTINUE BY USING PROGRAM CMA. 4F12757
LPRD CAL DOLEV IF THE BEGINNING OF A DO NEST, 4F12758
TZE LPR3 AND DOLEV IS NOT ZERO, THEN 4F12759
LXA DOLEV,4 TEST FOR NULL FORMULA. 4F12760
TXL LPRE,4,0 IF NULL, GO ESTABLISH POSITION. 4F12761
TSX LTMSW,4 * OTHERWISE, COMPILE LTM, AND 4F12762
TXI LPR4,0 AND GO JUMP IFN. 4F12763
LPRE CAL SL IF C(SL) 0O NOT = 0, 4F12764
TZE *+2 THEN 4F12765
TSX BSS,2 * GO COMPILE= IFN BSS 0. 4F12766
LPR4 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12767
LPR3 LXD DOLEV,4 INCREASE THE C(DOLEV D) 4F12768
TXI LPR1,4,1 BY 1, AND 4F12769
LPR1 PXD ,4 SET THE C(DOLEV A) 4F12770
SLW DOLEV TO ZERO. 4F12771
CAL TLINE NOTE AT 4F12772
STA LPR2 THIS LEVEL 4F12773
STO DOLEV,4 THE LOCATI0N IN TLDO 4F12774
ADD L(5) OF THIS DO FORMULA 4F12775
STA TLINE AND INCREASE LINE IN TLINE. 4F12776
CLS TL MOVE -(0(IFN)0(248)) INTO THE 4F12777
LPR2 STO ** LOCATION WORD OF CURRENT TEMP DO. 4F12778
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12779
LXD DOLEV,4 IF 3 OR FEWER LEVELS IN LIST DO, 4F12780
TXL NXS,4,3 * RETURN TO LIST SCAN. 4F12781
TSX DIAG,4 * OTHERWISE, GO TO DIAGNOSTIC. 4F12782
REM END OF PROGRAM LPR. 4F12783
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12784
REM 4F12785
REM EQS/ CALLS=DIAG. USES=RSC. 4F12786
REM EQS = ENTRY POINT WHEN EQUAL SIGN IS MET IN LIST CAN. 4F12787
EQS LXD DOLEV,4 TEST THE LEGALITY OF EQUAL SIGN, 4F12788
TXH EQS2,4,0 AND GO TO DIAG ON THE ATTEMPT TO 4F12789
TSX DIAG,4 * SPECIFY SUBSCRIPT RANGE WITHOUT (. 4F12790
EQS2 CAL DOLEV,4 INITIALIZE SPECIFICATION 4F12791
STA SPC2 OF GENERATED DO FORMULA 4F12792
STA SPC5 AT CURRENT LEVEL. 4F12793
ADD L(1) PREPARE TO ENTER FORMULA NUMBERS 4F12794
STA EQS1 IN LOCATION WORD,SUBSCRIPT IN 4F12795
ADD L(4) SYMBOL WORD, AND SUBSCRIPT SPECS 4F12796
STA SPC3 IN TEMPDO ENTRY. 4F12797
LXA L(3),4 PREPARE TO COUNT THE 4F12798
SXD NSJ,4 NUMBER OF SPECIFICATIONS. 4F12799
CAL SYM OBTAIN SUBSCRIPT 4F12800
TXH EQS1,2,36 FOR THIS DO, AND 4F12801
CAL BLANK STORE IN PROPER 4F12802
ALS 36,2 LINE OF TEMPORARY 4F12803
ORA SYM LIST DO TABLE. 4F12804
EQS1 SLW ** (SUBSCRIPT SYMBOL WORD) 4F12805
CAL SPCTR SET CONTROL LOOP FOR 4F12806
NSJ TXI CXS,0,** * EXIT TO SPECIFICATION. 4F12807
REM END OF PROGRAM EQS. 5F12808
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12809
REM 4F12810
REM SPCTR/ CONTR0L TRANSFERS FOR SPECIFICATION SCAN= 4F12811
TSX DIAG,4 * E (ILLEGAL IN CONTROL FOR LIST DO).4F12812
ICC TSX DIAG,4 * ( (ILLEGAL IN CONTROL FOR LIST DO).4F12813
TXI SPC,0 * , 4F12814
TXI SPCX,0 * ) 4F12815
TXI ICC,0 = (ILLEGAL IN CONTROL FOR LIST DO).4F12816
TXI ICC,0 - (ILLEGAL IN CONTROL FOR LIST DO).4F12817
TXI ICC,0 / (ILLEGAL IN CONTR0L FOR LIST DO).4F12818
TXI ICC,0 . (ILLEGAL IN CONTROL FOR LIST DO).4F12819
TXI ICC,0 + (ILLEGAL IN CONTR0L FOR LIST DO).4F12820
TXI ICC,0 * (ILLEGAL IN CONTR0L FOR LIST DO).4F12821
SPCTR PZE SPCTR INDEXING ADDRESS FOR ABOVE LIST. 4F12822
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12823
REM 4F12824
REM SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=RSC. 4F12825
REM SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN. 4F12826
SPCX CAL SPC1 PREPARE FOR END OF SPECIFICATION. 4F12827
STO SPC1 SET SPC1 OP-SWITCH TO NOP CASE. 4F12828
REM SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATI0N SCAN. 4F12829
SPC TSX TYP,4 * G0 TEST TYPE OF SUBSCRIPT SPEC. 4F12830
TXI SPCS,0 IF FIXED POINT CONSTANT, 4F12831
LXD NSJ,4 SET C(XR4) = SPECIFICATION COUNT, 4F12832
TXI SPC3,0 AND GO ENTER CONSTANT IN TABLE. 4F12833
SPCS LXD NSJ,4 OTHERWISE, SET SPEC COUNT AND 4F12834
CAL TAG4 IF VARIABLE, NOTE BY 4F12835
ARS 3,4 PLACING BIT IN TAG FIELD 4F12836
SPC2 ORS ** OF TABLE ENTRY. 4F12837
CAL SYM PICKUP VARIABLE SYMBOL AND 4F12838
SPC3 SLW **,4 ENTER N SUB J IN TABLE. 4F12839
TNX SPC4,4,1 REDUCE J. 4F12840
SXD NSJ,4 SAVE SPEC COUNT, AND 4F12841
SPC1 TXL NXS,0 * EXIT TO SCAN, IF SWITCH IS TXL. 4F12842
CAL L(1) SET N SUB 3 = 1 IF NOT 4F12843
TXI SPC3,0 OTHERWISE SPECIFIED. 4F12844
SPC4 CLS SPC1 RESTORE SPC1 EXIT. 4F12845
STO SPC1 (3 SPECS HAVE BEEN TREATED) 4F12846
CAL EIFNO ALS0 RESTORE INTERNAL FORMULA N0. 4F12847
ARS 18 (PUT BETA IN TEMPDO TABLE) 4F12848
REM SPC5 = ENTRY POINT USED BY RPR. 4F12849
SPC5 STA ** SET BETA EQUAL TO IFNO. 4F12850
LXA DOLEV,4 EXAMINE DOLEV ADDRESS FOR ZERO TO 4F12851
TXL SPCR,4,0 TEST NEED FOR LTM, JIF AFTER ). 4F12852
TSX LTMSW,4 * GO COMPILE LTM. 4F12853
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12854
SPCR LXD DOLEV,4 DECREASE DOLEV D 4F12855
TXI SPC6,4,-1 BY 1, AND INDICATE A TREATED LEVEL.4F12856
SPC6 PXD ,4 IF NOT ZERO, 4F12857
SLW DOLEV THEN ALL LEVELS ARE NOT TREATED. 4F12858
TXH LSC,4,0 * RETURN T0 SCAN NEXT LEVEL. 4F12859
CLA TLINE IF LEVEL IS ZERO 4F12860
STA SPC7 ENTER GENERATED 4F12861
FLINE PAX TLDOS,2 DO FORMULAS IN TDO BY 4F12862
TXI *+1,2,-TLDOS SUBROUTINE TET. 4F12863
SPC9 LXA L(5),4 (MOVE EACH 4F12864
SPC7 CLA **,2 TEMPD0 TABLE ENTRY 4F12865
STO 1C+5,4 INTO 1C...1C+4, 4F12866
TNX SPC8,2,1 AND THEN 4F12867
TIX SPC7,4,1 WHEN DONE, 4F12868
SPC8 LXA 1C,4 TEST TO SKIP 4F12869
TXL SPCT,4,0 NULL DO. 4F12870
TSX TET00,1 * GO MAKE AN ENTRY 4F12871
PZE 1 IN TDO TABLE.)AND WHEN THE WH0LE 4F12872
SPCT TXH SPC9,2,1 DO NEST HAS BEEN ENTERED, 4F12873
TSX JIF,4 * GO JUMP IFN, AND SET SL AN0 TL. 4F12874
RESET TXI RSC,0 * THEN EXIT TO CONTINUE LIST SCAN. 4F12875
REM END OF PROGRAM SPC. 4F12876
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12877
REM 4F12878
REM RPR/ CALLS=DIAG. USES=CMA,SPC. 4F12879
REM RPR = ENTRY POINT WHEN RPAREN IS MET 1N LIST SCAN. 4F12880
RPR LXD DOLEV,4 TEST LEGALITY OF 1. 4F12881
TXH RPS,4,0 IF THERE ARE TOO MANY ) IN LIST, 4F12882
TSX DIAG,4 * GO TO THE DIAGNOST1C. 4F12883
RPS CAL DOLEV,4 NULLIFY DO AT CURRENT LEVEL. 4F12884
STA SPC5 SET SPC5 ADDRESS, 4F12885
CLA RPA SET CMA3 SWITCH TO RETURN TO 4F12886
STA CMA3 RPT, AND IF ANY CHARACTERS 4F12887
TXH CMA1,2,6 * WERE COLLECTED, EXIT,TO CMA. 4F12888
REM RPT = REENTRY POINT USED BY CMA. 4F12889
RPT CLA SPC1 RESET CMA3 SWITCH 4F12890
STA CMA3 TO NXS, 4F12891
RPA PXD RPT,0 CLEAR THE AC, AND 4F12892
TXI SPC5,0 * CONTINUE BY USING PROGRAM SPC. 4F12893
REM END OF PROGRAM RPR. 4F12894
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12895
REM 4F12896
REM CMA/ CALLS=TYP,D1AG,ETMSW,DIM.SR,IFFIX,TET00,DRTABS,JIF,CIT, 4F12897
REM LTMSW. USES=RSC. 4F12898
REM CMA = ENTRY POINT WHEN COMMA IS MET IN LIST SCAN. 4F12899
CMA TXL NXC,2,6 * IF NOTHING COLLECTED, RETURN -SCAN.4F12900
REM CMA1 = ENTRY POINT USED BY EMK. 4F12901
CMA1 TSX TYP,4 * TYPE TEST FOR NON-SUBSCR. VAR. 4F12902
TRA 3,4 ILLEGAL USE OF CONSTANT IN LIST, 4F12903
ERRC TSX DIAG,4 * GO TO THE DIAGNOSTIC. 4F12904
CAL SYM INVE VARIABLE SYMBOL 4F12905
CMA4 SLW SA INTO SA. AND 4F12906
REM CMA7 = ENTRY POINT USED BY LPR. 4F12907
CMA7 LXA DOLEV,4 IF DOLEV ADDRESS = 0, AND IF 4F12908
TXH CMA6,4,0 ETMSW IS SET TO TXH (NOP CASE), 4F12909
TSX ETMSW,4 * GO COMPILE ETM, AND CLEAR SL. 4F12910
CMA6 CAL DOLEV IN ANY CASE, 4F12911
ADD L(1) UPDATE DOLEV ADDRESS 4F12912
STO DOLEV BY 1, AND THEN 4F12913
CLA GTAG SET GENERALIZED TAG. 4F12914
STO RA (RELATIVE ADDRESS) 4F12915
TZE DIMSR IF THIS VARIABLE HAS A SUBSCRIPT, 4F12916
CLA EPS AND IF SUBSCRIPT 4F12917
TNZ CMA5 IS A CONSTANT, 4F12918
STA RA TMEN CLEAR THE ADDRESS OF RA. 4F12919
TXI CMA5,0 THEN GO MAKE CIT ENTRY. 4F12920
DIMSR CAL SA IF THIS VARIABLE 4F12921
SLW E+2 DOES NOT HAVE A SUBSCRIPT, THEN 4F12922
RD1 TSX DIM1SR,4 * GO SEARCH DIM1 TABLE. 4F12923
TXI RD2,0 IF FOUND, THEN 4F12924
CS1 CLA D12 PICKUP DIMENSION 1 4F12925
TXI DVS,0 AND GO TEST SIZE. OTHERWISE, 4F12926
RD2 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F12927
TXI RD3,0 AND IF FOUND, 4F12928
CS2 LDQ D12 PICKUP 4F12929
STZ N2 DIMENSION 1 AND 4F12930
SLQ N2 DIMENSION 2 4F12931
LGL 18 AND MULTIPLY 4F12932
MPY N2 THEM TOGETHER. 4F12933
ARS 1 THEN 4F12934
TXI DVS,0 GO TEST THE PRODUCT. OTHERWISE, 4F12935
RD3 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. 4F12936
TXI NODIM,0 AND IF FOUND, 4F12937
CS3 LDQ D12 PICKUP 4F12938
STZ N2 DIMENSION 1, 4F12939
SLQ N2 DIMENSION 2, 4F12940
LGL 18 AND DIMENSION 3. 4F12941
MPY N2 MULTIPLY 4F12942
LRS 18 THEM TOGETHER, 4F12943
MPY D3 AND IF 4F12944
LLS 17 THEIR 4F12945
DVS SUB L(1) PRODUCT IS 4F12946
TZE NODIM GREATER THAN 1, THEN 4F12947
ALS 18 PLACE DIMENSION-1 IN THE 4F12948
STO G DECREMENT OF G, AND 4F12949
TSX FXCNIX,4 * GO ENTER IN FIXCON, AND GET TAG. 4F12950
ALS 18 ADJUST, AND STORE TAG IN THE 4F12951
STD RAT IMCREMENT OF RAT. THEN 4F12952
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12953
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12954
PZE SL WORD1--0(IFN)000 4F12955
PZE LXD WORD2--LXD000 4F12956
PZE 2P WORO3--200000 4F12957
PZE RAT WORD4--0(FIXCON TAG)008 4F12958
TSX JIF,4 * GO JONP IFN, AND SET SL AND TL. 4F12959
TSX ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0. 4F12960
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12961
PZE SL WORD1--0(IFN)000 OR 000000 4F12962
PZE OP WORD2--(OPERATION CODE) 4F12963
PZE SA WORD3--(SYMBOLIC ADDRESS) 4F12964
PZE ST WORD4--000008 4F12965
STZ SL CLEAR SL, AND 4F12966
TSX LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F12967
TSX GIF,4 * GET IFN IN SL AND TL. 4F12968
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12969
PZE L(0) WORD1--000000 4F12970
PZE TIX WORD2--TIX001 4F12971
PZE SL WORD3--0(IFN)0004 4F12972
PZE ST WORD4--000008 4F12973
STZ SL CLEAR SL, AND 4F12974
TSX ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0. 4F12975
TSX CIT,4 * G0 MAKE THE FOLLOWING CIT ENTRY= 4F12976
PZE L(0) WORD1--000000 4F12977
PZE DED WORD2--DED000 4F12978
PZE L(0) WORD3--000000 4F12979
PZE ST WORD4--000008 4F12980
TXI CMA5,0 IF THE PRODUCT OF DIMENSIONS IS 4F12981
NODIM TSX IFFIX,1 * LESS THAN 2, TEST TYPE OF VARIABLE,4F12982
TXI CMA5,0 AND IF FIXED POINT, 4F12983
TSX TET00,1 * GO ENTER VARIABLE IN 4F12984
INOUT PZE ** EITHER FORVAL OR FORVAR TABLE. 4F12985
CMA5 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12986
PZE SL WORD1--0(IFN)000 OR 000000 4F12987
PZE OP WORD2--NTR000 OR CPY000 4F12988
PZE SA WORD3--(SYMBOL) 4F12989
PZE RA WORD4--(RELATIVE ADDRESS) 4F12990
STZ SL CLEAR SL, AND 4F12991
STZ GTAG CLEAR GTAG. THEN TAKE EXIT 4F12992
CMA3 TXI NXS,0 * SWITCH TO RPT OR NXS. 4F12993
REM END OF PROGRAM CMA. 4F12994
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12995
REM 4F12996
REM EMK/ CALLS=DIAG,LTMSW,JIF,CIT,LIB,TET00. USES=CMA. 4F12997
REM EMK = ENTRY POINT WHEN AN ENDMARK IS MET IN LIST SCAN. 4F12998
EMK TXH CMA1,2,6 * IF NO CHARACTERS REMAIN, THEN 4F12999
LXD DOLEV,4 CHECK THE NUMBER OF PARENTHESES. 4F13000
TXL FIN,4,0 IF THERE ARE TOO MANY LPARENS, 4F13001
TSX DIAG,4 * GO TO THE DIAGNOSTIC. OTHERWISE, 4F13002
FIN TSX LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F13003
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F13004
REM LAST = ENTRY POINT SET BY BXT SWITCH. 4F13005
LAST TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13006
PZE SL WORD1--0(IFN)000 4F13007
PZE CAL WORD2--CAL000 4F13008
PZE 15P WORD3--*00000 4F13009
PZE L(0) WORD4--000000 4F13010
TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F13011
PZE L(0) WORD1--000000 4F13012
PZE XIT WORD2--XITO00 4F13013
PZE END WORD3--(RTN) OR (FIL) 4F13014
PZE L(0) WORD4--000000 4F13015
REM FINI = ENTRY POINT USED BY EFT. 4F13016
FINI CLA RESET RESET BXT SWITCH 4F13017
STA BXT TO RSC. 4F13018
CLA F-1 TEST FOR AN EXTERNAL 4F13019
SUB 5BLANS STATEMENT NUMBER, AND IF NONE, 4F13020
TZE CA010 * EXIT TO PROCESS NEXT STATEMENT. 4F13021
CAL MINUS0 OTHERWISE, SET THE SIGN 4F13022
ORS EIFNO OF EIFNO TO MINUS, AND 4F13023
TSX TET00,1 * GO ENTER -(EIFNO) 4F13024
PZE 0 IN THE TEIFNO TABLE. 4F13025
CAL EIFNO THEN RESTORE 4F13026
STO EIFNO EIFNO, AND 4F13027
TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F13028
REM END OF PROGRAM EMK. 4F13029
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13030
REM 4F13031
REM STATEA/4-SUBROUTINES USED BY STATE A= 4F13032
REM
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM 4F13033
REM BEG(TYP),4/ CALLS=DIAG. USES RSC. 4F13034
REM BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT. 4F13035
BEG SXD BEX,4 SAVE C(XR4) FOR RETURN, 4F13036
CAL BEGTR SET CONTROL TRANSFER 4F13037
BEX TXI CXS,0,** * AND GO EXECUTE BEGINNING SCAN. 4F13038
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13039
REM 4F13040
REM BEGTR/ CONTR0L TRANSFERS FOR BEGINNING SCAN= 4F13041
TXI NLS,0 * ENDMARK (NO LIST SCAN) 4F13042
IBC TSX DIAG,4 * ( (ILLEGAL CHARACTER IN I/O SETUP).4F13043
TXI CMB,0 * , 4F13044
TXI IBC,0 ) (ILLEGAL CHARACTER IN I/O SETUP).4F13045
TXI IBC,0 = (ILLEGAL CHARACTER IN I/O SETUPI.4F13046
TXI IBC,0 - (ILLEGAL CHARACTER IN I/O SETUP).4F13047
TXI IBC,0 / (ILLEGAL CHARACTER IN I/O SETUP).4F13048
TXI IBC,0 . (ILLEGAL CHARACTER IN I/O SETUP).4F13049
TXI IBC,0 + (ILLEGAL CHARACTER IN I/O SETUP).4F13050
TXI IBC,0 * (ILLEGAL CHARACTER IN I/O SETUP).4F13051
BEGTR PZE BEGTR INDEXING ADDRESS FOR ABOVE LIST. 4F13052
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13053
REM 4F13054
REM NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN. 4F13055
NLS CLA NLA IF ENDMARK IS MET, 4F13056
STA BXT SET BXT SWITCH TO LAST. 4F13057
REM CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN. 4F13058
CMB LXD BEX,4 RESTORE THE C(XR4), AND 4F13059
REM TYP = ENTRY POINT USED BY LPR,SPC,CMA. 4F13060
TYP CLA CHR-6 TEST FIRST CHARACTER 4F13061
SUB PLUS FOR VARIABLE 4F13062
TMI ABS OR CONSTANT. 4F13063
TXH SMB,2,36 IF VARIABLE, 4F13064
CAL BLANK ADD A BLANK 4F13065
ALS 36,2 IF SYMBOL CONTAINS 4F13066
ORS SYM LESS THAN 6 CHARACTERS, AND 4F13067
SMB TRA 1,4 * TAKE VARIABLE EXIT TO CALLER. 4F13068
ABS LXA L(5),2 IF CONSTANT, 4F13069
CLA CHR-1,2 TNEN 4F13070
STO BIN CONVERT 4F13071
CSJ TXL INT,2,** BCD 4F13072
ALS 2 DIGITS 4F13073
ADD BIN TO THEIR 4F13074
ALS 1 BINARY 4F13075
ADD CHR,2 EOUIVALENT, 4F13076
TXI CSJ-1,2,-1 AND WHEN DONE, 4F13077
INT TRA 2,4 * TAKE CONSTANT EXIT TO CALLER. 4F13078
REM END 0F PROGRAM BEG(TYP). 4F13079
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13080
REM 4F13081
REM BRW,4/ CALLS=JIF,BEG,VRA,CIT. CALLERS=WBT,RBT,WRD. 4F13082
BRW SXD XRW,4 SAVE THE C(XR4), AND 4F13083
SLW CON SET CON = 0 OR ,,144 OR ,,192. 4F13084
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F13085
TSX BEG,4 * GO SCAN AND TEST TYPE OF SYMBOL. 4F13086
TSX VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F13087
ALS 18 IF CONSTANT, ADJUST CONVERTED 4F13088
STO RA NUMBER, AND SET RA. 4F13089
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13090
PZE TL WORD1--0(IFN)0(248) 4F13091
PZE OP WORD2--(WTB,RBT,WRD,RDD)000 4F13092
PZE L(0) WORD3--000000 4F13093
PZE RA WORD4--000000 OR 0(UNIT)000 4F13094
CAL CPY MOVE CPY000 4F13095
SLW OP INTO OP. 4F13096
CAL TXLOP SET OP-SWITCHES, 4F13097
STP ETMSW ETMSW AND LTMSW, 4F13098
STP LTMSW TO THE TRA CASE. 4F13099
CAL RTN MOVE (RTN) 4F13100
SLW END INTO END. 4F13101
STZ SL CLEAR SL, 4F13102
LXD XRW,4 RESTORE THE C(XR4), AND 4F13103
TRA 1,4 * EXIT TO CALLER. 4F13104
REM END OF PROGRAM BRW. 4F13105
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13106
REM 4F13107
REM BSS,2/ CALLS=CIT00. CALLERS=LPR,C1600. 4F13108
REM BSS COMPILES= IFN BSS 0. 4F13109
BSS TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= 4F13110
PZE SL WORD1--0(IFN)000 4F13111
PZE L(BSS) WORD2--BSS000 4F13112
PZE L(0) WORD3--000000 4F13113
PZE L(0) NORD4--000000 4F13114
TRA 1,2 * EXIT TO CALLER+1. 4F13115
REM END OF PROGRAM BSS. 4F13116
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13117
REM 4F13118
REM CA100,4/ CALLS=DIAG. CALLER=CA000. 4F13119
REM CA100 READS NEXT S0URCE PROGRAM CARD (1 TAPE RECORD). 4F13120
CA100 LXA TERC,2 PREPARE TO C0UNT 4F13121
SXD 1G,2 TAPE READING ERRORS. 4F13122
RTT TURN OFF TAPE CHECK INDICATOR. 4F13123
NOP PROCEED TO NEXT INSTRUCTION. 4F13124
CA101 RDS 130 SELECT SOURCE TAPE FOR READING. 4F13125
LXA L(12),2 INITIALIZE INDEX B FOR 12 CYCLES 0F4F13126
REM C0PY LOOP. 4F13127
CA102 CPY FT+12,2 C0PY INTO FT REGION 4F13128
TRA CA103 NEXT SOURCE PROGRAM CARD. 4F13129
TRA CA120 END OF FILE, GO FINISH LAST STATEM.4F13130
CA130 LXD 1G,2 TEST TAPE ERROR COUNTER 4F13131
TIX CA131,2,1 BY TRYING TO REDUCE BY 1. 4F13132
TSX DIAG,4 * FAILED 5 TIMES IN READING TAPE 2. 4F13133
CA131 SXD 1G,2 SAVE REDUCED VALUE IN COUNTER. 4F13134
BST 130 BACKSPACE FORMULA TAPE, 4F13135
TRA CA101 AND GO BACK TO READ AGAIN. 4F13136
CA103 TIX CA102,2,1 TEST EXIT FROM LOOP. 4F13137
IOD DELAY UNTIL TAPE DISCONNECTS. 4F13138
RTT CHECK READING OF TAPE. 4F13139
TXI CA130,0 IF INCORRECT, GO CHECK ERROR C0UNT.4F13140
LXA L(12),2 PREPARE TO SCAN 12 WORDS OF CARD. 4F13141
CA112 CLA BLANKS TEST 4F13142
SUB FT+12,2 FOR 4F13143
TNZ CA113 BLANK 4F13144
TIX CA112,2,1 CARD. 4F13145
TRA CA100 IF BLANK, GO TO READ NEXT CARD. 4F13146
CA113 CAL FT IF NOT BLANK, 4F13147
ARS 30 EXAMINE FIRST 4F13148
SUB L(C) CHARACTER TO 4F13149
TZE CA100 TEST FOR COMMENT CARD. 4F13150
TRA 1,4 * EXIT IF NEITHER BLANK NOR COMMENT. 4F13151
CA120 STZ FT INDICATE THAT FINAL 4F13152
SXD ENDWRD,0 STATEMENT HAS BEEN READ IN. 4F13153
TRA 1,4 * EXIT TO MAIN ROUTINE TO FINISH. 4F13154
REM END OF PROGRAM CA100. 4F13155
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13156
REM 4F13157
REM CC500,4/ CALLER=CC000. 4F13158
REM CC500 BRINGS NEXT CHARACTER OF DICTIONARY INTO AC(30-35). 4F13159
CC500 PXD ,0 CLEAR THE AC. 4F13160
TIX CC502,2,1 IF NO DICTIONARY CHARACTERS 4F13161
LXD 2G,2 REMAIN IN THE MO, THEN 4F13162
LDQ DIC,2 REFILL WITH NEXT DICTIONARY WORD. 4F13163
TXI CC501,2,-1 RESET THE 4F13164
CC501 SXD 2G,2 DICTIONARY WORD TAG, AND 4F13165
LXA L(6),2 SET THE CHARACTER COUNT = 6. 4F13166
CC502 LGL 6 SMIFT CHAR INTO AC(30-35), 4F13167
TRA 1,4 * AND RETURN TO CALLER. 4F13168
REM END OF PROGRAM CC500. 4F13169
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13170
REM 4F13171
REM ETMSW(LTMSW),4/ CALLS=CIT. CALLERS=RDC,LPR,SPC,CMA,EMK. 4F13172
REM ETMSW = ENTRY POINT USED BY RDC,CMA. 4F13173
ETMSW TXL NOTTM,0 SWITCH (TXL=TRA, TXH=NOPI. 4F13174
CAL ETM PICKUP ETM000, AND 4F13175
XR4X TXI SETOP,0,** GO SET OP. 4F13176
REM LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK. 4F13177
LTMSW TXL NOTTM,0 SWITCH (TXL=TRA, TXH=NOP). 4F13178
CAL LTM PICKUP LTM000, AND 4F13179
SETOP SLW TOP SET TOP. 4F13180
SXD XR4X,4 SAVE THE C(XR4), AND 4F13181
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13182
PZE SL WORD1--0(IFN)000 4F13183
PZE TOP WORD2--ETM000 OR LTM000 4F13184
PZE L(0) WORD3--000000 4F13185
PZE L(0) WORD4--000000 4F13186
STZ SL CLEAR,SL, 4F13187
LXD XR4X,4 RESTORE THE C(XR4), AND 4F13188
NOTTM TRA 1,4 * EXIT TO CALLER. 4F13189
REM END OF PROGRAM ETMSW(LTMSW). 4F13190
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13191
REM 4F13192
REM IFFIX,1/ USES=TESTFX. CALLERS=CMA,VRA(VRD). 4F13193
IFFIX CAL EIFNO SET 4F13194
STZ G G TO 4F13195
STD G (0(IFN)000). 4F13196
CAL SYM MOVE SYMBOL 4F13197
SLW G+1 INTO G+1. 4F13198
CAL CHR-6 PICKUP 1ST CHARACTER OF SYMBOL, AND4F13199
TXI TESTFX+1,0 * GO TEST FOR FIXED OR FLOATING PT. 4F13200
REM END OF PROGRAM IFFIX. 4F13201
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13202
REM 4F13203
REM INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB. 4F13204
REM CALLERS=RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD. 4F13205
REM INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD. 4F13206
INPUT CLA L(6) PICKUP 6 TO 4F13207
TXI OUTPUT+1 GO SET INOUT FOR FORVAL ENTRY. 4F13208
REM OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD. 4F13209
OUTPUT CLA L(5) PICKUP 5 TO 4F13210
STO INOUT SET INOUT FOR FORVAR ENTRY. 4F13211
TSX GIF,4 * SET SL = IFN,000. 4F13212
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13213
PZE SL WORD1--0(IFN)000 4F13214
PZE CAL WORD2--CAL000 4F13215
PZE 15P WORD3--*00000 4F13216
PZE L(0) WORD4--000000 4F13217
TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F13218
PZE L(0) WORD1--000000 4F13219
PZE XIT WORD2--XIT000 4F13220
PZE LEV WORD3--(LEV) 4F13221
PZE L(0) WORD4--000000 4F13222
STZ SL CLEAR SL, AND 4F13223
TRA 1,2 * EXIT TO CALLER. 4F13224
REM END OF PROGRAM INPUT(OUTPUT). 4F13225
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13226
REM 4F13227
REM LIB,1/ CALLS=TET00,CIT. CA=LERS=RDC,EMK,INPUT(OUTPUT). 4F13228
LIB CAL 3,4 MOVE NAME OF SUBROUTINE, 4F13229
STA LIC ADDRESS OF WHICH 4F13230
LIC CAL ** IS IN WORD3 OF CALLING SEQ, 4F13231
SLW G INTO G, AND 4F13232
TSX TET00,1 * GO ENTER IN THE 4F13233
PZE 9 CLOSUB TABLE. 4F13234
TXI CIT,0 * MAKE CIT ENTRY, AND EXIT TO CALLER.4F13235
REM END OF PROGRAM LIB. 4F13236
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13237
REM 4F13236
REM VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF. 4F13239
REM CALLERS=RIT,WOT,EFT. 4F13240
REM VRA = ENTRY POINT USED BY EFT. 4F13241
VRA CLA L(TL) RESET TPOA ADDRESS 4F13242
STA TPOA TO TL. 4F13243
CAL TXLOP PREPARE TO SET OP-SWITCH TO TRA. 4F13244
TXI VRD1,4,-1 SET RETURN TO TSX+2, AND GO SET OP.4F13245
REM VRD = ENTRY POINT USED BY RIT,WOT. 4F13246
VRD CLA TXLOP PREPARE TO SET OP-SWITCH TO NOP. 4F13247
VRD1 STP VRX SET VRX OP-SWITCH. 4F13248
SXD VRX,4 SAVE THE C(XR4) FOR RETURN. 4F13249
TSX IFFIX,1 * SET UP IFN AND SYMBOL FOR FORVAR. 4F13250
TSX DIAG,4 * ILLEGAL USE OF FLOATING VARIABLE. 4F13251
TSX TET00,1 * IF SYMBOL IS FXD-PT, GO MAKE 4F13252
PZE 5 ENTRY IN FORVAR TABLE. 4F13253
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13254
PZE SL WORD1--0(IFN)000 4F13255
PZE CAL WORD2--CAL000 4F13256
PZE SYM WORD3--(FXD-PT SYMBOL) 4F13257
PZE L(0) WORD4--000000 4F13258
VRX TXH VDA,0,** SWITCH (TXL=TRA, TXH=NOP). 4F13259
CAL STD PICKUP STD000, AND 4F13260
XRW TXI RVX,0,** GO SET TOP. 4F13261
VDA CLA CON IF CON 4F13262
TZE SDA IS NOT ZERO, 4F13263
STO G THEN 4F13264
TSX FXCNIX,4 * ENTER CON IN FIXCON,AND GET TAG. 4F13265
ALS 18 ADJUST TAG, AND 4F13266
STO RA SET RA. 4F13267
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY. 4F13268
PZE L(0) WORD1--000000 4F13269
PZE ADD WORD2--ADD000 4F13270
PZE 2P WORD3--200000 4F13271
PZE RA WORD4--(FIXCON TAG) 4F13272
SDA TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13273
PZE L(0) WORD1--000000 4F13274
PZE ARS WORD2--ARS000 4F13275
PZE L(0) WORD3--000000 4F13276
PZE D18 NORD4--0(18)000 4F13277
CAL STA PICKUP STA000, AND 4F13278
RVX SLW TOP SET TOP TO STA OR STD. 4F13279
TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F13280
TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13281
PZE L(0) WORD1--000000 4F13282
PZE TOP WORD2--STA000 OR STD000 4F13283
PZE TL WORD3--0(IFN)000 4F13284
PZE L(0) WORD4--000000 4F13285
NLA PXD LAST,0 CLEAR THE AC, 4F13286
LXD VRX,4 RESTORE THE C(XR4), AND 4F13287
TRA 1,4 * EXIT TO CALLER. 4F13288
REM END OF PROGRAM VRA(VRD). 4F13289
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13290
REM , 4F13291
REM STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A= 4F13292
REM 4F13293
BCD BCD 1BCD000 CONSTANT USED BY IOT. 4F13294
BST BCD 1BST000 CONSTANT USED BY IOT. 4F13295
ETM BCD 1ETM000 CONSTANT USED BY IOT. 4F13296
LTM BCD 1LTM000 CONSTANT USED BY IOT. 4F13297
NTR BCD 1NTR000 CONSTANT USED BY IOT. 4F13298
RDR BCD 1RDR000 CONSTANT USED BY IOT. 4F13299
REW BCD 1REW000 CONSTANT USED BY IOT. 4F13300
RTB BCD 1RTB000 CONSTANT USED BY IOT. 4F13301
SLW BCD 1SLW000 CONSTANT USED BY IOT. 4F13302
STD BCD 1STD000 CONSTANT USED BY IOT. 4F13303
WDR BCD 1WDR000 CONSTANT USED BY IOT. 4F13304
WEF BCD 1WEF000 CONSTANT USED BY IOT. 4F13305
WTB BCD 1WTB000 CONSTANT USED BY IOT. 4F13306
XIT BCD 1XIT000 CONSTANT USED BY IOT. 4F13307
BDC BCD 1(BDC) CONSTANT USED BY IOT. 4F13308
CSH BCD 1(CSH) CONSTANT USED BY IOT. 4F13309
DBC BCD 1(DBC) CONSTANT USED BY IOT. 4F13310
FIL BCD 1(FIL) CONSTANT USED BY IOT. 4F13311
LEV BCD 1(LEV) CONSTANT USED BY IOT. 4F13312
RTN BCD 1(RTN) CONSTANT USED BY IOT. 4F13313
SCH BCD 1(SCH) CONSTANT USED BY IOT. 4F13314
SPH BCD 1(SPH) CONSTANT USED BY IOT. 4F13315
STH BCD 1(STH) CONSTANT USED BY IOT. 4F13316
TSH BCD 1(TSH) CONSTANT USED BY IOT. 4F13317
REM 4F13318
CON BSS 1 VARIABLE USED BY IOT. 4F13319
END PZE ** VARIABLE USED BY IOT. 4F13320
TOP BSS 1 VARIABLE USED BY IOT. 4F13322
TSA PZE ** VARIABLE USED BY IOT. 4F13323
TTA PZE ** VARIABLE USED BY IOT. 4F13324
REM 4F13325
REM DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500).4F13326
DIC OCT 244677274663 DO-GOT 4F13327
OCT -67731267462 O-IF(S 4F13328
OCT 254562256266 ENSESW 4F13329
OCT 316323307731 ITCH-I 4F13330
OCT 267462254562 F(SENS 4F13331
OCT 254331273063 ELIGHT 4F13332
OCT -373126243165 -IFDIV 4F13333
OCT 312425233025 IDECHE 4F13334
OCT 234277312621 CK-IFA 4F13335
OCT 232364446443 CCUMUL 4F13336
OCT 216346514665 ATOROV 4F13337
OCT 255126434666 ERFLOW 4F13338
OCT -373126506446 -IFQUO 4F13339
OCT -233125456346 TIENTO 4F13340
OCT -252551264346 VERFLO 4F13341
OCT -267731267721 W-IF-A 4F13342
OCT -226231274577 SSIGN- 4F13343
OCT -226346477747 STOP-P 4F13344
OCT 216462257762 AUSE-S 4F13345
OCT 254562254331 ENSELI 4F13346
OCT 273063772431 GHT-DI 4F13347
OCT -42545623146 MENSIO 4F13348
OCT -57725506431 N-EQUI 4F13349
OCT -252143254523 VALENC 4F13350
OCT 257726512550 E-FREQ 4F13351
OCT -242545237077 UENCY- 4F13352
OCT 234645633145 CONTIN 4F13353
OCT -242577512521 UE-REA 4F13354
OCT 246321472577 DTAPE- 4F13355
OCT -112521243145 READIN 4F13356
OCT -76463632147 PUTTAP 4F13357
OCT 257751252124 E-READ 4F13358
OCT 245164447751 DRUM-R 4F13359
OCT 252124776651 EAD-WR 4F13360
OCT 316325632147 ITETAP 4F13361
OCT 257766513163 E-WRIT 4F13362
OCT 254664634764 EOUTPU 4F13363
OCT -236321472577 TTAPE- 4F13364
OCT -265131632524 WRITED 4F13365
OCT -116444774751 RUM-PR 4F13366
OCT 314563774764 INT-PU 4F13367
OCT -52330775125 NCH-RE 4F13368
OCT -263145247722 WIND-B 4F13369
OCT 212342624721 ACKSPA 4F13370
OCT 232577254524 CE-END 4F13371
OCT 263143257726 FILE-F 4F13372
OCT -65144216377 ORMAT- 4F13373
OCT -226422514664 SUBROU 4F13374
OCT -233145257723 TINE-C 4F13375
OCT -064444464577 OMMON- 4F13376
OCT -112563645145 RETURN 4F13377
OCT -372321434377 -CALL- 4F13378
OCT 254524747726 END(-F 4F13379
OCT -244523633146 UNCTIO 4F13380
OCT -057777777777 N-----. 4F13381
BSS 10 4F133815
REM END OF DICTIONARY. 4F13382
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13383
REM 4F13384
REM T/ TRANSFER TABLE (USED BY CC000). 4F13385
T TXI C0100,0 DO. 4F13386
TXI C0200,0 G0 TO. 4F13387
TXI C0400,0 IF (SENSE SWITCH. 4F13388
TXI C0500,0 IF (SENSE LIGHT. 4F13389
TXI C0600,0 IF DIVIDE CHECK. 4F13390
TXI C0700,0 IF AC OVERFLOW. 4F13391
TXI C0800,0 IF MQ OVERFLOW. 4F13392
TXI C0300,0 IF. 4F13393
TXI C1000,0 ASSIGN. 4F13394
TXI C1300,0 STOP. 4F13395
TXI C0900,0 PAUSE. 4F13396
TXI C1100,0 SENSE LIGHT. 4F13397
TXL C1200,0 DIMENSION. 4F13398
TXL C1500,0 EQUIVALENCE. 4F13399
TXL C1400,0 FREQUENCY. 4F13400
TXI C1600,0 CONTINUE. 4F13401
TXI RBT,0 READ TAPE. 4F13402
TXI RIT,0 READ INPUT TAPE. 4F13403
TXI RDD,0 READ DRUM. 4F13404
TXI RDC,0 READ CARD. 4F13405
TXI WBT,0 WRITE TAPE. 4F13406
TXI WOT,0 WRITE OUTPUT TAPE. 4F13407
TXI WRD,0 WRITE DRUM. 4F13408
TXI RDP,0 PRINT. 4F13409
TXI PDC,0 PUNCH. 4F13410
TXI RWN,0 REWIND. 4F13411
TXI BSP,0 BACKSPACE. 4F13412
TXI EFT,0 END FILE. 4F13413
TXL FOR,0 FORMAT. 4F13414
TXL C3000,0 SUBROUTINE. 4F13415
TXL C3100,0 COMMON. 4F13416
TXI C3200,0 RETURN. 4F13417
TXI C3300,0 CALL. 4F13418
TXL C3400,0 END. 4F13419
TXL C3500,0 FUNCTION. 4F13420
BSS 10 4F134205
REM END OF TRANSFER TABLE. 4F13421
STATEB BSS 0 4F134215
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13422
REM 4F13423
ORG 3783+4096 4F13424
BIN BSS 1 VARIABLE USED BY IOT. 4F13425
CHR BES 6 VARIABLE USED BY IOT. 4 4F13426
BSS 50 PARAMETERS FOR TLDOS TABLE -IOT. 4F13427
DOLEV BSS 1 PARAMETERS FOR TLDOS TABLE -IOT. 4F13428
OP BSS 1 VARIABLE USED BY IOT. 4F13429
RA BSS 1 VARIABLE USED BY IOT. 4F13430
SA BSS 1 VARIABLE USED BY IOT. 4F13431
SYM BSS 1 VARIABLE USED BY IOT. 4F13432
TLDOS BSS 250 DO TABLE USED BY IOT. 4F13433
REM END OF WORKING STORAGE USED BY STATEA. 4F13434
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13435
REM 4F13436
REM END OF THE NON-ARITHMETIC PART OF SECTION ONE. 4F13437
REM 4F13438
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13439
REM 4F13440
REM ARITHMETIC / STATE B= 4F13441
ORG 0 4F13442
PZE STATEB,,FORSUB 4F13443
PZE ENDD 4F13444
ORG STATEB 4F134441
REM 4F13445
REM THIS IS A RECODED VERSI0N 0F STATE B OF SECTION ONE, 704 4F13446
REM FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL 4F13447
REM ANALYSIS HAS BEEN FOLDED OVER. 4F13448
REM 4F13449
REM STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS. 4F13450
REM THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS 4F13451
REM IN THE F REGION OF COMMON AND IS IN BCD. 4F13452
REM EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD 4F13453
REM ( HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN 4F13454
REM TABLES AND GIVEN AN INTERNAL VARIABLE NAME. 4F13455
REM LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT4F13456
REM WHERE AN ELEMENT IS DEFINED AS A VARIABLE, FUNCTION NAME OR (4F13457
REM AND THE OPERATOR WHICH PRECEDES IT. 4F13458
SLF 4F13459
CLA SIG1ST 4F13460
STO SIG1IX-3 4F13461
STZ ARGCTR CLEAR 4F13462
STZ CHSAVE X 4F13463
STZ 3LBAR X 4F13464
STZ NBAR X 4F13465
STZ CBAR X 4F13466
STZ ABAR X 4F13467
STZ FSTYPE X 4F13468
LXD 1BAR,4 SET NBAR=-1 4F13469
SXD NBAR,4 X 4F13470
CAL E( SET ARERAS - E( 4F13471
SLW ARERAS X 4F13472
TSX C0190X,4 SET FWA - -F AND CHCTR - 0 4F13473
CAL TXHOP SET SWITCHES FOR LEFT SCAN. 4F13474
STP MS093 X 4F13475
STP MS310 X 4F13476
STP MS321 X 4F13477
MS010 CAL ADPLUS SET OP TO ADDITION 4F13478
MS030 SLW E+1 X 4F13479
STZ FNBITS CLEAR FUNCTION NAME INDICATOR 4F13480
STZ FNCTR CLEAR FUNCTION ARG COUNTER. 4F13481
STZ G CLEAR RECEIVING CELL. 4F13482
CLS L(0) SET E = -0 4F13483
STO E X 4F13484
LXA L(6),2 SET IR2 FOR SIX CHARS. 4F13485
MS040 CAL CHSAVE CHAR IN CHSAVE, IF ANY, TO AC. 4F13486
TNZ MS041 X 4F13487
TSX C0190,4 CHSAVE EMPTY, GET NEXT CHAR. 4F13488
MS041 CAS L(9) IS CHAR. NUMERIC. 4F13489
TRA MS050 N/, TAKE TRA 4F13490
MS4007 TXH CM4100,0 4F13491
TSX ROYCNV,4 X 4F13492
TRA HOLL RETURN 1, THIS WAS HOLLERITH. 4F13493
TRA LATXH THIS WAS FIXED OR FLOATING CONSTANT. 4F13494
MS050 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13495
MS051 CAS CTEST,4 4F13496
TRA MS052 X 4F13497
TRA MS090 CHAR IS SOME PUNCTUATION. 4F13498
MS052 TIX MS051,4,1 X 4F13499
MS060 ALS 36,2 POSITI0N CHAR FOR BUILDING SYMBOL. 4F13500
ORS G ADD CHAR TO THOSE IN G. 4F13501
TXI MS061,2,6 UPDATE POSITIONING TAG. 4F13502
MS061 TSX C0190,4 GET NEXT CHAR. 4F13503
MS070 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13504
MS071 CAS CTEST,4 X 4F13505
TRA MS072 X 4F13506
TRA MS091 CHAR IS SOME PUNCTUATION. 4F13507
MS072 TIX MS071,4,1 X 4F13508
TXL MS060,2,18 IF THIS IS CHAR 1, 2 /R 3 GO BUILD G. 4F13509
CAS L(F) IS THIS AN F ENDING FUNCTION NAME. 4F13510
TRA MS073 X 4F13511
TRA MS080 MAYBE, GO LOOK AT NEXT CHAR. 4F13512
MS073 TXL MS060,2,36 TEST FOR UNDER 7 CHARS. 4F13513
MS074 TSX DIAG,4 BUILD G, 7TH CHAR IS ERROR. 4F13514
MS080 TSX C0190,4 GET NEXT CHAR. 4F13515
CAS OPEN TEST FOR (. 4F13516
TRA MS081 X 4F13517
TRA MS092 YES, THIS IS A FUNCTION NAME. 4F13518
MS081 STO FIRSTC NO, SAVE CURRENT CHAR. 4F13519
CAL L(F) ADD F TO CONTENTS OF G. 4F13520
ALS 36,2 X 4F13521
ORS G X 4F13522
TXH MS074,2,36 TEST FOR 7TH CHAR, YES IS ERROR. 4F13523
CLA FIRSTC RESTORE CURRENT CHAR. 4F13524
TXI MS070,2,6 UPDATE POSITIONING TAG. 4F13525
MS090 STZ CHSAVE CLEAR 4F13526
TRA TRBLKA,4 4F13527
MS091 SLW CHSAVE OP IS IN NEXT ELEMENT, SAVE. 4F13528
CAL BLANK ADD,BLANK TO CHARS IN G. 4F13529
ALS 36,2 X 4F13530
ORS G X 4F13531
LDQ G MOVE G TO E+2 AND TO G+1. 4F13532
STQ E+2 X 4F13533
STQ G+1 X 4F13534
TRA TRBLKB,4 NOW BRANCH TO INDIVIDUAL ROUTINE 4F13535
MS092 PXD ,0 CLEAR 4F13536
LDQ BLANKS ADD BLANKS TO SUBROUTINE NAME IN G. 4F13537
LGL 42,2 X 4F13538
ORA G X 4F13539
SLW G X 4F13540
SLW E+2 MOVE FUNCTION NAME TO E+2. 4F13541
MS093 *** MS335,0 TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE. 4F13542
LXD BK,4 THIS IS ARITH FUNCTION STATEMENT. 4F13543
SLW FORSUB,4 ENTER FUNCTION NAME IN FORSUB TABLE. 4F13544
CAL EIFNO ENTER INTERNAL FORMULA NO IN FORSUB. 4F13545
ANA MASK1 X 4F13546
STO FORSUB+1,4 X 4F13547
TXI FS010,4,-2 UPDATE COUNT OF ENTRIES IN FORSUB. 4F13548
FS010 SXD BK,4 X 4F13549
FS020 TSX C0190,4 GET FIRST CHAR OF ARGUMENT. 4F13550
CAS EQUAL TEST FOR EQUAL. 4F13551
TRA FS030 X 4F13552
TRA MS322 GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+24F13553
FS030 CAS L(9) TEST FOR ILLEGAL ARGUMENT. 4F13554
TRA FS040 LEGAL, CONTINUE 4F13555
MS9002 TXH CM4200,0 4F13556
TSX DIAG,4 BEGINS NUMERIC, ERROR. 4F13557
FS040 TSX C0160,2 COLLECT ARGUMENT NAME IN 1G. 4F13558
TSX TESTB0,4 TEST CHAR FOLLOWING ARG FOR , OR) 4F13559
LXD ARGCTR,2 GET COUNT OF ARGUMENTS 4F13560
LDQ 1G ENTER ARGUMENT NAME IN ARGREG TABLE. 4F13561
STQ ARGREG,2 X 4F13562
TXI FS050,2,-1 UPDATE COUNT OF ARGUMENTS. 4F13563
FS050 SXD ARGCTR,2 4F13564
TXH FS020,2,-50 TEST FOR ARGREG TABLE OVERFLOW. 4F13565
TSX DIAG,4 YES, ERROR. 4F13566
MS200 TSX DECPNT,4 CONVERT BCD NUMBER T0 BINARY 4F13567
TSX DIAG,4 HOLLERITH RETURN, ERROR. 4F13568
TRA LATXH FLOATING POINT CONSTANT RETURN. 4F13569
MS210 SLN 1 TURN , LITE ON. 4F13570
LXD 3LBAR,1 PERFORM LEVEL ANALYSIS FOR , 4F13571
LXD ABAR,4 4F13572
CLS ALPHA-4,4 4F13573
STO LAMBDA,1 4F13574
CAL ADSPOP 4F13575
SLW LAMBDA+1,1 4F13576
CLA NBAR 4F13577
ARS 18 4F13578
STO LAMBDA+2,1 4F13579
TXI MS211,1,-3 4F13580
MS211 SXD 3LBAR,1 4F13581
LXD NBAR,1 4F13582
SXD CBAR,1 4F13583
TXI MS212,1,-1 4F13584
MS212 SXD NBAR,1 4F13585
TXI MS213,4,3 4F13586
MS213 SXD ABAR,4 4F13587
TRA MS010 4F13588
MS220 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOR ) 4F13589
CLA ALPHA-4,4 4F13590
PAX ,1 4F13591
SXD CBAR,1 4F13592
TXI MS221,4,4 4F13593
MS221 SXD ABAR,4 4F13594
TRA MS020 4F13595
MS230 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOE ENDMK. 4F13596
TXI MS231,4,3 4F13597
MS231 TXL MS232,4,0 FINISHED, HAS LEVEL BEEN REDUCED TO ZERO, 4F13598
TSX DIAG,4 NO, ERROR. 4F13599
MS232 LXD ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT 4F13600
TXL STATEC,4,0 4F13601
CAL FSTYPE YES, UPDATE FUNCTION TYPE AND 4F13602
ADD L(1) COMPLETE FORSUB ENTRY BY ASSIGNING 4F13603
LXD BK,1 TYPE NUMBER. 4F13604
STA FORSUB-1,1 X 4F13605
ORS ARERAS ALSO SAVE FOR LATER REFERENCF. 4F13606
TRA STATEC 4F13607
TRA MS230 ENDMK 4F13608
TRA MS260 ( 4F13609
TRA MS210 , 4F13610
TRA MS220 ) 4F13611
MSERR= TSX DIAG,4 = 4F13612
TRA MS250 - 4F13613
TRA MS250 / 4F13614
TRA MS200 . 4F13615
TRA MS250 + 4F13616
MS240 ALS 30 * SAVE * 4F13617
TRBLKA BSS 0 4F13618
SLW E+1 X 4F13619
TSX C0190,4 GET NEXT CHAR. 4F13620
CAS STAR IS IT * 4F13621
TRA MS041 X 4F13622
TRA MS241 YES, THIS WAS ** 4F13623
TRA MS041 NO, GO COMPARE TO OTHER PUNCTUATION. 4F13624
MS241 CAL STRSTR REPLACE * WITH ** 4F13625
TRA MS251 X 4F13626
MS250 ALS 30 POSITI0N CHAR WHICH IS + OR - OR / 4F13627
MS251 SLW E+1 PUT CURRENT OP IN E+1. 4F13628
TRA MS040 NOW GO COLLECT SYMBOL. 4F13629
MS260 ALS 30 ( TO SYMBOL WORD 4F13630
SLW E+2 X 4F13631
TRA LATXL GO PERFORM LEVEL ANALYSIS FOR ( 4F13632
TRA MS300 ENDMK 4F13633
TRA MS320 ( 4F13634
TRA MS300 , 4F13635
TRA MS300 ) 4F13636
TRA MS310 = 4F13637
TRA MS300 - 4F13638
TRA MS300 / 4F13639
TSX DIAG,4 . 4F13640
TRA MS300 + 4F13641
MS300 PXD ,0 * CLEAR 4F13642
TRBLKB BSS 0 BASE ADDRESS FOR TAGGED TRANSFER. 4F13643
LGL 6 GET FIRST CHAR OF SYMBOL. 4F13644
TSX TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT. 4F13645
TRA LATXL FLOATING, GO PERFORM LEVEL ANALYSIS. 4F13646
CAL EIFNO FIXED, PREPARE FORVAR ENTRY. 4F13647
ANA MASK1 X 4F13648
SLW G X 4F13649
TSX TET00,1 MAKE FORVAR ENTRY. 4F13650
5 X 4F13651
PXD ,0 4F13652
LDQ LEFT+2 4F13653
LGL 12 4F13654
SUB CALLER 4F13655
TNZ LATXL 4F13656
TSX TET00,1 4F13657
6 4F13658
TRA LATXL GO PERFORM LEVEL ANALYSIS. 4F13659
MS320 STZ CHSAVE CLEAR CELL FOR OP. 4F13660
MS321 *** MS330,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN. 4F13661
TSX SS000X,4 G0 PROCESS SUBSCRIPT COMBINATION. 4F13662
TSX C0190,4 GET NEXT CHAR. 4F13663
SUB EQUAL TEST FOR EQUAL SIGN. 4F13664
TNZ MSERR= NO, ERROR. 4F13665
MS322 LXA L(3),4 MOVE CONTENT4 OF E WORDS TO LEFT WORDS. 4F13666
MS323 LDQ E+3,4 X 4F13667
STQ LEFT+3,4 X 4F13668
TIX MS323,4,1 X 4F13669
MS311 CAL TXLOP SET SWITCHES FOR RIGHT SIDE SCAN. 4F13670
STP MS093 X 4F13671
STP MS310 X 4F13672
STP MS321 X 4F13673
SLN 1 TURN = OR ) LITE ON. 4F13674
TRA MS010 GO SCAN NEXT ELEMENT. 4F13675
MS310 *** MSERR=,0 TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. 4F13676
STZ CHSAVE CLEAR 4F13677
PXD ,0 CLEAR AC. 4F136775
LGL 6 GET FIRST CHAR OF SYMBOL. 4F13678
TSX TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT 4F13679
TRA MS322 FLOATING, 4F13680
CAL EIFNO FIXED, PREPARE FORVAL ENTRY. 4F13681
ANA MASK1 X 4F13682
SLW G X 4F13683
TSX TET00,1 MAKE FORVAL ENTRY. 4F13684
6 X 4F13685
TRA MS322 4F13686
MS330 TSX DIM1SR,4 SEARCH FOR THIS NAME IN THE DIM1, DIM2, 4F13687
TRA MS331 AND DIM3 TABLES. IF IT IS FOUND IN ONE OF 4F13688
TRA MS333 THESE TABLES IT IS A SUBSCRIPTED VARIABLE 4F13689
MS331 TSX DIM2SR,4 OF THAT NUMBER OF DIMENSIONS. IF IT IS NOT 4F13690
TRA MS332 FOUND IN ANY DIMENSION TABLE THEN IT IS 4F13691
TRA MS333 ASSUMED TO BE THE NAME OF A FORTRAN II 4F13692
MS332 TSX DIM3SR,4 SUBROUTINE OR FUNCTION COMPILED SEPARATELY.4F13693
TRA MS334 X 4F13694
MS333 TSX SS000X,4 . GO PROCESS SUBSCRIPT COMBINATION. 4F13695
TRA LATXH GO PERFORM LEVEL ANALYSIS. 4F13696
MS334 CAL FNIND NOT FOUND, TREAT AS FUNCTION NAME. 4F13697
SLW FNBITS X 4F13698
PXD ,0 X 4F13699
LDQ BLANKS COMPLETE NAME WITH BLANKS. 4F13700
LGL 42,2 X 4F13701
ORS G X 4F13702
ORS E+2 X 4F13703
TSX TET00,1 ENTER NAME IN CLOSUB TABLE. 4F13704
9 X 4F13705
MS335 SLN 2 TURN FUNCTION LITE ON. 4F13706
TRA LATXL GO PERFORM LEVEL ANALYSIS. 4F13707
HOLL STZ CHSAVE CLEAR CHSAVE 4F13708
CAL HOLCNT GET CURRENT H(+I WORD 4F13709
SLW E+2 4F13710
LXA N,2 GET NUMBER OF CHARACTERS IN THIS ARG 4F13711
LXD CHCTR,4 GET CURRENT RESIDUE CHAR COUNT 4F13712
LDQ RESIDU GET CURRENT RESIDU WORD 4F13713
C3351 LXA L(6),1 SET TO COLLECT SIX CHARS 4F13714
PXD 0,0 CLEAR AC 4F13715
C3352 TNX C3354,4,1 TEST FOR NO MORE CHARS IN RESIDU 4F13716
C33525 LGL 6 GET NEXT CHAR 4F13717
SLW 1G STORE WORD 4F13718
ANA ENDMK BLANK ALL EXCEPT CURRENT CHAR 4F13719
SUB ENDMK TEST FOR INTERNAL ENDMK 4F13720
TNZ C3353 4F13721
TSX DIAG,4 YES, ERROR, GO TO DIAGNOSTIC. 4F13722
C3353 CAL 1G RETREIVE WORD 4F13723
TNX C3358,2,1 TEST FOR ALL CHARS COLLECTED 4F13724
TNX C3356,1,1 TEST FOR SIX CHARS COLLECTED 4F13725
TRA C3352 NOT SIX CHARS YET, CONTINUE COLLECTING4F13726
C3354 LXD FWA,4 L0AD MQ WITH NEXT F REGION WORD 4F13727
LDQ 0,4 4F13728
TXI C3355,4,-1 UPDATE FWA 4F13729
C3355 SXD FWA,4 4F13730
LXA L(6),4 RESET MQ CHAR CQUNT T0 SIX 4F13731
TRA C33525 CONTINUE COLLECTING 4F13732
C3356 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13733
C3357 TXI C3351,0,** RETURN TO CONTINUE COLLECTING 4F13734
C3358 STQ RESIDU UPDATE RESIDU 4F13735
SXD CHCTR,4 UPDATE CHCTR 4F13736
TNX C3360,1,1 TEST FOR SIX CHARS IN AC, DEC IR1 4F13737
LDQ BLANKS NOT SIX CHARS, PREPARE TO ADD BLANKS 4F13738
C3359 LGL 6 ADD BLANKS 4F13739
TIX C3359,1,1 4F13740
C3360 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13741
CAL ALL1 GET WORD OF ONES 4F13742
TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13743
REM LEVEL ANALYSIS 4F13744
LATXL CAL TXLOP 4F13745
TRA LATXL+3 4F13746
LATXH CAL TXHOP 4F13747
STP CM4105 4F13748
LA0000 LXA L(0),A 4F13749
CLA E+2 4F13750
SLT 2 IS THIS A FUNCTION NAME 4F13751
TRA LA0000+36 NO 4F13752
SLN 2 YES - TURN F LITE BACK ON 4F13753
LXD BK,C IS FORSUB EMPTY 4F13754
TXL LA0000+13,C,0 YES. GO SET FS BITS TO 0 4F13755
SXD LA0000+12,C 4F13756
CAS FORSUB,A SEARCH FN NAME IN FORSUB 4F13757
TXI LA0000+12,A,-2 4F13758
TRA LA0000+15 4F13759
TXI LA0000+12,A,-2 4F13760
TXH LA0000+8,A,0 4F13761
STZ FSBITS SET FSBITS TO 0 4F13762
TRA LA0000+25 4F13763
CAL FORSUB+1,A FN NAME IN FORSUB 4F13764
ANA MASK2 EXTRACT TYPE NUMBER 4F14765
LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F13766
TXL LA0000+22,C,0 NO 4F13767
CAS FSTYPE YES - UPDATE FS TYPE 4F13768
STA FSTYPE 4F13769
TXH 0,0 4F13770
ALS 7 4F13771
ORA FSIND 4F13772
SLW FSBITS 4F137)3
LXD 3LBAR,A LOAD LA COUNTERS 4F13774
LXD NBAR,B 4F13775
LXD ABAR,C 4F13776
TXL LA0003,A,0 4F13777
TXH LA0001,A,-1200 4F13778
TSX DIAG,4 ERROR..LAMBDA TABLE EXCEEDED. 4F13779
LA0001 TXH LA0002,B,-301 4F13780
TSX DIAG,4 ERROR..BETA TABLE EXCEEDED 4F13781
LA0002 TXL LA0003,C,0 4F13782
TXH LA0003,C,-139 4F13783
TSX DIAG,4 ERROR..ALPHA TABLE EXCEEDED 4F13784
LXD ARGCTR,C VARIABLE OR ( 4F13785
TXL LA0000+13,C,0 NOT AN FS - GO SET FS BITS TO 0 4F13786
SXD LA0000+43,C FUNCTION STATEMENT 4F13787
CAS ARGREG,A SEARCH FREE VARIABLE TABLE 4F13788
TXI LA0000+43,A,-1 4F13789
TRA MS1018 4F13790
TXI LA0000+43,A,-1 4F13791
TXH LA0000+39,A,0 4F13792
TRA LA0000+13 NOT PRESENT - GO SET FSBITS TO 0 4F13793
MS1018 PXD 0,A PRESENT - STORE TYPE IN FSBITS 4F13794
ARS 11 4F13795
TRA LA0000+23 4F13796
LA0003 CLA MS9002 4F13797
STA LA4320 4F13798
PXD 0,0 4F13799
LDQ E+2 4F13800
STQ LAMBDA+11,A 4F13801
STQ LAMBDA+8,A 4F13802
STQ LAMBDA+5,A 4F13803
LGL 6 4F13804
STO FIRSTC 4F13805
SUB OPEN 4F13806
TZE LA003 4F13807
CLA MS4007 4F13808
SLT 2 4F13809
TRA LA002 4F13810
SLN 2 4F13811
CLA FINI03 4F13812
LA002 STA LA4320 4F13813
LA003 CLA E 4F13814
STO LAMBDA+9,A 4F13815
STO LAMBDA+6,A 4F13816
STO LAMBDA+3,A 4F13817
CAL ADSPOP 4F13818
SLW LAMBDA+13,A 4F13819
SLW LAMBDA+10,A 4F13820
SLW LAMBDA+7,A 4F13821
PXD ,0 4F13822
LDQ E+1 4F13823
STQ LAMBDA+1,A 4F13824
LGL 6 4F13825
CAS STAR 4F13826
TRA LA0015 / SIGN 4F13827
TRA LA0010 * OR ** SIGN 4F13828
SLT 2 + OR - SIGN 4F13829
TRA LA0044 4F13830
TXI MS1033,B,-3 -N TO -(N+3) 4F13831
MS1033 PXD ,B 4F13832
ARS 18 4F13833
STO LAMBDA+14,A STO (N+3) IN LAMBDA+3 (L+4)+2 4F13834
TXI FINI03,B,1 -(N+3) TO - (N+2) 4F13835
FINI03 PXD CM4300,B 4F13836
ARS 18 4F13837
SSM 4F13838
STO LAMBDA+12,A STO -(N+2) IN LAMBDA+3 (L+4) 4F13839
LA0041 SLT 1 4F13840
TXI L43130,B,1 UNARY... -(N+2) TO -(N+1) 4F13841
TXI L13130,B,1 BINARY... -(N+2) TO - (N+1) 4F13842
LA0044 CLA FIRSTC 4F13843
CAS OPEN EXAMINE SYMBOL 4F13844
TRA LA0050 4F13845
TXI LA0058,B,-3 -N TO -(N+3) 4F13846
LA0050 SLT 1 4F13847
TXI LA4000,B,-1 UNARY... -NTO -(N+1) 4F13848
TXI LA1000,B,-1 BINARY... -N TO -(N+I) 4F13849
LA0058 PXD ,B 4F13850
ARS 18 4F13851
STO LAMBDA+11,A STO S(N+3) IN LAMBDA +3(L+3)+2 4F13852
ADD L(1) FORM -(N+2) IN ADD (ACC) 4F13853
TXI LA0041,2,1 4F13854
LA0010 TQP LA0015 G0 TO * ROUTINE 4F13855
SLT 2 ** 4F13856
TRA LA0072 4F13857
TXI L23000,B,-1 -N TO -(N+1) 4F13858
LA0072 CLA FIRSTC 4F13859
SUB OPEN 4F13860
TNZ LA2000 4F13861
TXI L22000,B,-1 -N TO -(N+1) 4F13862
LA0015 SLT 2 * OR / 4F13863
TRA LA0021 4F13864
TXI L33000,B,-2 -N TO -(N+2) 4F13865
LA0021 CLA FIRSTC 4F13066
CAS OPEN 4F13867
TXI LA3000,B,-1 4F13868
TXI L32000,B,-2 -N TO -N(+2) 4F13869
TXI LA3000,B,-1 4F13870
L13130 SLW ALPHA+3,C STO -(N+2) IN ALPHA+A+3 4F13871
CLS L(0) 4F13872
STO LAMBDA+9,A STO -0 IN LAMBDA +3(L+3) 4F13873
SLN 1 4F13074
LA1000 CLS CBAR 4F13875
ARS 18 4F13876
SLW ALPHA,C STO -C IN ALPHA+A 4F13877
TXI LA1040,C,-3 -A TO - (A+3) 4F13878
LA1040 SXD ABAR,C 4F13879
TRA LA4010 4F13880
L22000 PXD ,B 4F13881
ARS 18 4F13882
STO LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2 4F13883
ADD L(1) 4F13884
TXI L23130,B,1 -(N+1) TO -N 4F13885
L23000 PXD ,B 4F13886
ARS 18 4F13887
STO LAMBDA+8,A STO S(N+1) IN LAMBDA+3(L+2)+2 4F13888
ADD L(1) 4F13889
SSM 4F13890
TXI L23090,B,1 -(N+1) TO -N 4F13891
L23090 STO LAMBDA+6,A STO -N IN LAMBDA+3(L+2) 4F13892
L23130 SLW ALPHA,C STO -N IN ALPHA +A 4F13893
CLS L(0) 4F13894
STO LAMBDA+3,A STO -0 IN LAMBDA+3(L+1) 4F13895
SLN 1 4F13896
LA2000 CLS ALPHA-1,C 4F13897
STO LAMBDA,A STO C(ALPHA+A-1) IN LAMBDA+3L 4F13898
CLA NBAR 4F13899
TXI LA4180,A,6 4F13900
L43130 SLW ALPHA,C STO -(N+2) IN ALPHA+A 4F13901
CLS L(0) 4F13902
STO LAMBDA+9,A STO -0 IN LAMBDA+3(L+3) 4F13903
SLN 1 4F13904
LA4000 CLS ALPHA-3,C 4F13905
LA4010 STO LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L 4F13906
CLS NBAR 4F13907
ARS 18 4F13908
SLW ALPHA-2,C STO-N IN ALPHA+A-2 4F13909
SLW LAMBDA+2,A STO S(N) IN LAMBDA+3L+2 4F13910
STO LAMBDA+3,A STO -N IN LAMBDA+3(L+1) 4F13911
PXD ,B 4F13912
ARS 18 4F13913
STO LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2 4F13914
STO ALPHA-1,C STO-(N,1) IN ALPHA+A-1 4F13915
SSM 4F13916
STO LAMBDA+6,A STO -(N+1) IN LAMBDA+3IL+2) 4F13917
TXI LA4150,B,-1 -(N+1) TO -(N+2) 4F13916
LA4150 CAL ADSTAR 4F13919
SLW LAMBDA+4,A STO * IN LAMBDA+3(L+1)+1 4F13920
LA4170 PXD ,B 4F13921
LA4180 ARS 18 4F13922
STO LAMBDA+8,A STOS(N+2) IN LAMBDA+3(L+2)+2 4F13923
ORS LAMBDA+9,A STO -(N+2) IN LAMBDA+3(L+3) 4F13924
CAL STRSTR 4F13925
SLW LAMBDA+7,A STO SPOP IN LAMBDA+3(L+2)+1 4F13926
CAL ADSPOP 4F13927
ORA FSBITS 4F13928
ORA FNBITS 4F13929
SLW LAMBDA+10,A STO SPOP IN LAMBDA+3(L+3)+1 4F13930
LA4320 TXI **,A,-9 4F13931
L32000 PXD ,B 4F13932
ARS 18 4F13933
STO LAMBDA+8,A STO 5(N+2) IN LAMBDA+3(L+2)+2 4F13934
ADD L(1) 4F13935
TXI L33130,B,1 -(N+2) TO -(N+1) 4F13936
L33000 PXD ,B 4F13937
ARS 18 4F13938
STO LAMBDA+11,A STO S(N+2) IN LAMBDA+3(L+3)+2 4F13939
ADD L(1) 4F13940
SSM 4F13941
TXI L33090,B,1 -(N+2) TO -(N+1) 4F13942
L33090 STO LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3) 4F13943
L33130 SLW ALPHA,C STO -(N+1) IN ALPHA+A 4F13944
CLS L(0) 4F13945
STO LAMBDA+6,A 4F13946
SLN 1 4F13947
LA3000 CLS ALPHA-2,C 4F13948
STO LAMBDA,A STO C(ALPHA+A-2) IN LAMBDA+3L 4F13949
CLS NBAR 4F13950
ARS 18 4F13951
SLW ALPHA-1,C STO -N IN ALPHA+A-1 4F13952
SLW LAMBDA+2,A STO S(N) IN LAMBDA+3L+2 4F13953
STO LAMBDA+3,A STO -N IN LAMBDA+3(L+1) 4F13954
TXI LA4170,A,3 4F13955
CM4100 TXI CM4101,A,-3 LA COUNTER MODIFICATION ROUTINES 4F13956
CM4101 SXD 3LBAR,A 4F13957
CM4102 SXD CBAR,B 4F13958
TXI CM4104,B,-1 4F13959
CM4104 SXD NBAR,B 4F13960
CM4105 *** MS010,0 4F13961
MS020 CAL ADSTAR 4F13962
TRA MS030 4F13963
CM4200 TXI CM4201,A,-3 4F13964
CM4201 SXD 3LBAR,A 4F13965
TXI CM4303,C,-1 4F13966
CM4300 TXI CM4301,A,-6 4F13967
CM4301 SXD 3LBAR,A 4F13968
TXI CM4303,C,-1 4F13969
CM4303 SXD ABAR,C 4F13970
TXI CM4102,B,-1 4F13971
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13972
REM 4F13973
REM CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE 4F13974
C3390 SXD C3357,1 SAVE CALLING IR 4F13975
SLW 1G MOVE WORD TO BE ENTERED TO 1G 4F13976
TSX TET00,1 GO TO ENTER WORD IN HOLARG TABLE 4F13977
13 4F13978
CLA HOLCNT 4F13979
ADD L(1) UPDATE HOLCNT 4F13980
STO HOLCNT 4F13981
LXD C3357,1 RELOAD CALLING IR 4F13982
TRA 1,1 RETURN TO CALLER+1 4F13983
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13984
REM 4F13985
REM PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN 4F13986
REM SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B. 4F13987
SS000X SXD SSIR4,4 SAVE CALLING TAG. 4F13988
TSX SS000,4 GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE. 4F13989
TSX RA000,4 GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.4F13990
CAL GTAG 4F13991
ANA MASK1 4F13992
SLW E+11 4F13993
TSX SIG1IX,4 GO ENTER THIS RELATIVE ADDRESS IN SIGMA1. 4F13994
ALS 15 POSITION SIGMA TAG. 4F13995
ORS E ADD SIGMA TAG TO I-TAU TAGS IN E. 4F13996
LXD SSIR4,4 RELOAD CALLING TAG. 4F13997
TRA 1,4 RETURN TO CALLER +1. 4F13998
REM 4F13999
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14000
REM 4F14001
REM ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG. 4F14002
REM ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION 4F14003
REM ARITHMETIC. 4F14004
REM ROYCNV= ENTRY POINT FOR FIXED OR FLQATING POINT INTEGERS. 4F14005
ROYCNV STO N SAVE DECIMAL DIGIT IN N. 4F14006
SXD EXIT,4 SAVE C(XR4) FOR RETURN. 4F14007
STZ DOE CLEAR DOE (IMPLICIT EXPONENT). 4F14008
CLA CM1 PICK UP SWITCH CONTROL, 4F14009
EXIT TXI IN2,0,** AND G0 SET SWITCH. 4F14010
REM DECPNT= ENTRY POINT FOR FLOATING POINT FRACTIONS. 4F14011
DECPNT STZ N CLEAR N (NO INTEGER). 4F14012
SXD EXIT,4 SAVE C(XR4) FOR RETURN. 4F14013
STZ DOE CLEAR DOE (IMPLICIT EXPONENT). 4F14014
NC7 CAL CM1 PICK UP SWITCH CONTROL. 4F14015
IN2 STP CM2 SET SWITCHES CM2, AND 4F14016
STP CM3 CM3. 4F14017
TOV NC5 TURN OFF OV TRIGGER. 4F14018
NC5 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.4F14019
SLW CHSAVE SAVE IT FOR STATE B, AND THEN 4F14020
CAS L(H) COMPARE IT WITH H. 4F14021
TXI NC1,0 IF H, GO TO HEXIT. 4F14022
SSIR4 TXI HEXIT,0 IF NOT H, CONTINUE 4F14023
NC1 CAS TEN AND COMPARE WITH TEN. 4F14024
CM1 TXL NC2,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC.4F14025
PXD ,0 CLEAR THE AC (MACHINE ERROR). 4F14026
STO H CHARACTER IS NUMERIC, SO HOLD IT. 4F14027
CLA N MULTIPLY THE PREVIOUS 4F14028
ALS 2 PARTIAL RESULT (OR ZERO) 4F14029
ADD N BY 10, 4F14030
ALS 1 AND ADD IN 4F14031
ADD H THE CURRENT DIGIT. 4F14032
CM2 TXH NC3,0 SWITCH (NO TRANSFER IF INTEGER). 4F14033
TOV NC4 TEST OVERFLOW, AND 4F14034
STO N IF NONE, SAVE NEW PARTIAL RESULT. 4F14035
TXI NC5,0 THEN GO PICK UP NEXT CHARACTER. 4F14036
NC2 CAS POINT COMPARE NON-NUMERIC WITH A POINT. 4F14037
TXI CM3,0 IF GREATER THAN 27, GO OUT. 4F14038
TXI NC7,0 IF POINT, GO BACK AND SET SWITCH. 4F14039
CAS L(E) IF LESS THAN 27, COMPARE WITH E. 4F14040
TXI CM3,0 IF GREATER THAN 21, GO OUT. 4F14041
TXI EC1,0 IF E, GO TO EXPONENT ROUTINE. 4F14042
CM3 TXH FN4,0 SWITCH (NO TRANSFER IF INTEGER). 4F14043
CLA N PICK UP CONVERTED CONSTANT, AND 4F14044
MS9506 ALS 18 STORE IN THE 4F14045
STO G DECREMENT OF G, AND 4F14046
TSX FXCNIX,4 * GO MAKE FIXCON ENTRY. 4F14047
ORA FIXVAR CREATE INTERNAL FXD-P, VARIABLE,AND4F14048
TXI EXITR,0 GO TAKE EXITR. 4F14049
NC3 TOV NC8 IF THERE WAS NO OVERFLOW, 4F14050
STO N SAVE PARTIAL RESULT, AND 4F14051
CLS L(1) SUBTRACT 1 FROM DOE 4F14052
NC9 ADD DOE TO ADJUST EXPONENT 4F14053
STO DOE IN FINAL RESULT. 4F14054
NC8 TXI NC5,0 THEN GO PICK UP NEXT CHARACTER. 4F14055
NC4 CLA L(1) ADD 1 TO DOE , 4F14056
TXI NC9,0 IF THERE WAS INTEGER OVERFLOW. 4F14057
EC1 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.4F14058
SLW CHSAVE SAVE IT FOR STATE B, AND 4F14059
STZ EKE CLEAR EKE (EXPLICIT EXPONENT). 4F14060
CAS 11Z COMPARE CHARACTER WITH A DASH. 4F14061
TXI FN5,0 IF GREATER THAN 32, GO OUT. 4F14062
TXI EC3,0 IF A DASH, SET EKE MINUS. 4F14063
CAS 12Z IF LESS THAN 32, COMPARE WITH PLUS.4F14064
TXI FN5,0 IF GREATER THAN 16, GO OUT. 4F14065
TXI EC6,0 IF PLUS, GO EXAMINE NEXT CHAR. 4F14066
CAS MINUS IF LESS THAN 16,COMPARE WITH MINUS.4F14067
TXI FN5,0 IF GREATER THAN 12, GO OUT. 4F14068
EC3 CLS EKE IF MINUS, SET EKE TO -0. 4F14069
CAS TEN COMPARE WITH TEN. 4F14070
TXI FN5,0 IF NON-NUMERIC, GO EXAMINE NEXT CH.4F14071
EC4 PXD ,0 CLEAR ACC, 4F14072
EC5 STO EKE SAVE PARTIAL RESULT(OR 0) IN EKE. 4F14073
EC6 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.4F14074
SLW CHSAVE SAVE IT FOR STATE B, 4F14075
CAS TEN AND COMPARE WITH TEN. 4F14076
TXI FN5,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC.4F14077
PXD ,0 CLEAR THE AC (MACHINE ERROR). 4F14078
STO H CHARACTER IS NUMERIC, SO HOLD IT. 4F14079
CLA EKE MULTIPLY THE PREVIOUS 4F14080
ALS 2 PARTIAL RESULT (OR ZERO) 4F14081
ADD EKE BY 10, 4F14082
ALS 1 AND ADD IN 4F14083
ACL H THE CURRENT DIGIT. 4F14084
TXI EC5,0 CONTINUE UNTIL NON-NUMERIC IS MET. 4F14085
FN5 CLA EKE COMBINE EXPLICIT EXPONENT 4F14086
ADD DOE WITH IMPLICIT EXPONENT, 4F14087
STO DOE AND SAVE IN DOE. 4F14088
FN4 CLA N IF N CONTAINS ZERO, TAKE 4F14089
TZE MS9500 FLO PT CONSTANT RETURN. 4F14090
STA K1 PUT INTEGER INTO FLO PT WORD, 4F14091
ARS 15 ADJUST, AND 4F14092
TZE FN1 IF MORE THAN 15 BITS IN LENGTH 4F14093
ORA K2 AFFIX CORRECT EXPONENT. 4F14094
FN1 FAD K1 THEN FLOATING ADD THE RESULT 4F14095
RQL 8 OF INTEGER CONVERSION, AND 4F14096
RND ROUND --TO OBTAIN 4F14097
ORA K3 NORMALIZED RESULT. 4F14098
LXA DOE,1 EXAMINE THE C(DOE), AN0 4F14099
TXL MS9500,1,0 IF ZERO, TAKE FLO PT RETURN. 4F14100
TXL FN2,1,50 IF GREATER THAN 50, THEN 4F14101
TXI CER,0 ERROR. --GO TO DIAGNOSTIC. 4F14102
FN2 LDQ DOE DETERMINE WHETHER INTEGER WAS 4F14103
TQP FN3 TO THE RIGHT OR TO THE LEFT OF DP. 4F14104
FDP TAB,1 IF TO THE RIGHT, DIVIDE BY A 4F14105
STQ N SUITABLE CONSTANT 4F14106
CLA N TO ADJUST RESULT 4F14107
ACL K4 AND TEST FOR OUT OF RANGE. 4F14108
PBT IF P=1, SKIP TO ARITH RETURN. 4F14109
TXI CER,0 ERROR. --GO TO DIAGNOSTIC. 4F14110
MS9500 STO G STORE IN G, AND 4F14111
TSX FLCNIX,4 * GO MAKE FLOCON ENTRY. 4F14112
ORA FLOVAR CREATE INTERNAL FLO-PT VARIABLE, 4F14113
EXITR SLW E+2 SAVE VARIABLE IN E+2, 4F14114
LXD EXIT,4 RESTORE THE C(XR4), AND 4F14115
TRA 2,4 * RETURN TO MAIN ROUTINE. 4F14116
FN3 STO N IF INTEGER WAS SITUATED 4F14117
LDQ N TO THE LEFT OF THE DECIMAL POINT, 4F14118
FMP TAB,1 MULTIPLY BY A SUITABLE 4F14119
ACL K5 CONSTANT TO ADJUST AND TEST RANGE. 4F14120
PBT IF P=1, SKIP TO ERROR. 4F14121
TXI MS9500,0 RETURN TO ARITHMETIC ROUTINE. 4F14122
CER TSX DIAG,4 * CONVERSION ERROR, GO TO DIAGNOSTIC.4F14123
HEXIT LXD EXIT,4 RESTORE THE C(XR4), AND 4F14124
TRA 1,4 * RETURN TO MAIN ROUTINE. 4F14125
REM 4F14126
K1 OCT 233000000000 CONSTANT USED BY ROYCNV. 4F14127
K2 OCT 252000000000 CONSTANT USED BY ROYCNV. 4F14128
K3 OCT 400000000 CONSTANT USED BY ROYCNV. 4F14129
K4 OCT 335000000000 CONSTANT USED BY ROYCNV. 4F14130
K5 OCT 43000000000 CONSTANT USED BY ROYCNV. 4F14131
L(E) BCD 100000E CONSTANT USED BY ROYCNV. 4F14132
REM 4F14133
OCT 375536246150 48-TABLE USED BY ROYCNV. 4F14134
OCT 372430204754 47-TABLE USED BY ROYCNV. 4F14135
OCT 366700324573 46-TABLE USED BY ROYCNV. 4F14136
OCT 363546566774 45-TABLE USED BY ROYCNV. 4F14137
OCT 360436770626 44-TABLE USED BY ROYCNV. 4F14138
OCT 354713132675 43-TABLE USED BY ROYCNV. 4F14139
OCT 351557257061 42-TABLE USED BY ROYCNV. 4F14140
OCT 346445677215 41-TABLE USED BY ROYCNV. 4F14141
OCT 342726145174 40-TABLE USED BY ROYCNV. 4F14142
OCT 337570120775 39-TABLE USED BY ROYCNV. 4F14143
OCT 334454732312 38-TABLE USED BY ROYCNV. 4F14144
OCT 330741367020 37-TABLE USED BY ROYCNV. 4F14145
OCT 325601137163 36-TABLE USED BY ROYCNV. 4F14146
OCT 322464114134 35-TABLE USED BY ROYCNV. 4F14147
OCT 316755023372 34-TABLE USED BY ROYCNV. 4F14148
OCT 313612334310 33-TABLE USED BY ROYCNV. 4F14149
OCT 310473426555 32-TABLE USED BY ROYCNV. 4F14150
OCT 304770675742 31-TABLE USED BY ROYCNV. 4F14151
OCT 301623713116 30-TABLE USED BY ROYCNV. 4F14152
OCT 276503074076 29-TABLE USED BY ROYCNV. 4F14153
OCT 273402374713 28-TABLE USED BY R0YCNV. 4F14154
OCT 267635456171 27-TABLE USED BY ROYCNV. 4F14155
OCT 264512676456 26-TABLE USED BY ROYCNV. 4F14156
OCT 261410545213 25-TABLE USED BY ROYCNV. 4F14157
OCT 255647410337 24-TABLE USED BY ROYCNV. 4F14158
OCT 252522640262 23-TABLE USED BY ROYCNV. 4F14159
OCT 247417031702 22-TABLE USED BY ROYCNV. 4F14160
OCT 243661534466 21-TABLE USED BY ROYCNV. 4F14161
OCT 240532743536 20-TABLE USED BY ROYCNV. 4F14162
OCT 235425434430 19-TABLE USED BY ROYCNV. 4F14163
OCT 231674055530 18-TABLE USED BY ROYCNV. 4F14164
OCT 226543212741 17-TABLE USED BY ROYCNV. 4F14165
OCT 223434157116 16-TABLE USED BY ROYCNV. 4F14166
OCT 217706576512 15-TABLE USED BY ROYCNV. 4F14167
OCT 214553630410 14-TABLE USED BY ROYCNV. 4F14168
OCT 211443023471 13-TABLE USED BY ROYCNV. 4F14169
OCT 205721522451 12-TABLE USED BY ROYCNV. 4F14170
OCT 202564416672 11-TABLE USED BY ROYCNV. 4F14171
OCT 177452013710 10-TABLE USED BY ROYCNV. 4F14172
OCT 173734654500 09-TABLE USED BY ROYCNV. 4F14173
OCT 170575360400 08-TABLE USED BY ROYCNV. 4F14174
OCT 165461132000 07-TABLE USED BY ROYCNV. 4F14175
OCT 161750220000 06-TABLE USED BY ROYCNV. 4F14176
OCT 156606500000 05-TABLE USED BY ROYCNV. 4F14177
OCT 153470400000 04-TABLE USED BY ROYCNV. 4F14178
OCT 147764000000 03-TABLE USED BY ROYCNV. 4F14179
OCT 144620000000 02-TABLE USED BY ROYCNV. 4F14180
OCT 141500000000 01-TABLE USED BY ROYCNV. 4F14181
TAB OCT 136400000000 00-TABLE USED BY ROYCNV. 4F14182
REM END OF PROGRAM ROYCNV. 4F14183
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14184
REM 4F14185
SIG1ST PZE SIGMA1+2,,1 4F14186
STATEC BSS 0 4F141865
REM 4F14187
ORG 2701+4096 4F14188
ARGREG BSS 50 4F14189
CBAR BSS 1 4F14190
ABAR BSS 1 4F14191
FSTYPE BSS 1 4F14192
FSBITS BSS 1 4F14193
FNBITS BSS 1 4F14194
FNCTR BSS 1 4F14195
ALPHA BSS 139 4F14196
LAMBDA BSS 1200 4F14197
REM END OF ARITHMETIC / STATE B. 4F14198
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14199
REM 4F14200
REM ARITHMETIC / STATE C= 4F14201
REM STATE C. PERFOPMS OPTIMIZATION ON LAMBDA TABLE. 4F14204
REM 4F14205
ORG STATEC 4F14206
R00000 LDQ L(0) CLEAR MQ 4F14207
LXD NBAR,A LDXA WITH -N 4F14208
SXD R00700,A 4F14209
SXD R05200,A 4F14210
SXD AS0800,A 4F14211
SXD AS2900,A 4F14212
LXA L(0),7 CLEAR XA,XB,XC, 4F14213
R00500 STQ BETA,B 4F14214
TXI R00700,B,-1 4F14215
R00700 TXH R00500,B,0 4F14216
CLA 3LBAR 4F14217
STD R01700 4F14218
STD R06200 4F14219
R01000 CLA LAMBDA,A ADD INTO GAMMA COUNTERS 4F14220
PAX 0,B 4F14221
CLA BETA,B 4F14222
ADD BETAD1 (-3)*2**18+(-3) 4F14223
STD BETA,B 4F14224
STA BETA,B 4F14225
TXI R01700,A,-3 4F14226
R01700 TXH R01000,A,0 -3L IN XA AT END 4F14227
R01800 TXH R04200,A,-6 EXIT FROM SINGLE ELEMENT REDUCTION 4F14228
CLA LAMBDA-3,A 4F14229
PAX 0,B 4F14230
CLA BETA,B 4F14231
SUB BETAD1 4F14232
TZE R02600 4F14233
TXI R01800,A,3 4F14234
R02600 LDQ LAMBDA-2,A SINGLE ELEMENT 4F14235
LGL 6 EXAMINE OPERATION 4F14236
SUB 11Z 4F14237
TNZ R03200 4F14238
TXI R01800,A,3 4F14239
R03200 CAL MASK1 SINGLE ELEMENT, NON-UNARY OP 4F14240
ANS LAMBDA-3,A EXTRACT TAGS AND STORE BACK 4F14241
CLA LAMBDA-6,A 4F14242
ORA LAMBDA-3,A 4F14243
SLW LAMBDA-6,A 4F14244
CAL LAMBDA-2,A EXTRACT FS BITS AND STORE BACK 4F14245
ANA MASK5 4F14246
ORS LAMBDA-5,A 4F14247
CAL LAMBDA-1,A STORE BACK SYMBOL 4F14248
SLW LAMBDA-4,A 4F14249
STZ BETA,B REDUCE GAMMA COUNT TO 0 4F14250
STZ LAMBDA-3,A CLEAR TAG WORD 4F14251
TXI R01800,A,3 RESUME SCAN-BACK 4F14252
R04200 STZ G 4F14253
LXA L(0),7 CLEAR XA,XB,XC 4F14254
R04500 CLA BETA,B SET ORIGINS OF SCRIPL TABLE 4F14255
TZE R05100 4F14256
LDQ G 4F14257
SLQ BETA,B 4F14258
ADD G 4F14259
STD G 4F14260
R05100 TXI R05200,B,-1 4F14261
R05200 TXH R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END 4F14262
R05300 CAL LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE 4F14263
TZE R06100 4F14264
SLW LAMBDA,C 4F14265
CLA LAMBDA+1,A 4F14266
STO LAMBDA+1,C 4F14267
CLA LAMBDA+2,A 4F14268
STO LAMBDA+2,C 4F14269
TXI R06100,C,-3 4F14270
R06100 TXI R06200,A,-3 4F14271
R06200 TXH R05300,A,0 4F14272
SXD R07800,C -3P IN XC AT END 4F14273
SXD CS0760,C 4F14274
LXA L(0),A 4F14275
R06400 CLA LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE 4F14276
PAX 0,B IN SCRIPL TABLE 4F14277
CLA BETA,B 4F14278
PDX 0,C 4F14279
CLA LAMBDA,A 4F14280
STO SCRIPL,C 4F14281
CLA LAMBDA+1,A 4F14282
STO SCRIPL+1,C 4F14283
CLA LAMBDA+2,A 4F14284
STO SCRIPL+2,C 4F14285
TXI R07500,C,-3 4F14286
R07500 PXD 0,C 4F14287
STD BETA,B 4F14288
TXI R07800,A,-3 4F14289
R07800 TXH R06400,A,0 -3P IN XA AT END 4F14290
CS0000 LDQ L(0) ELIMINATE COMMON,SEGMENTS 4F14291
CS0010 CAL SCRIPL-3,A 4F14292
TZE CS0080 ERASED SEGMENT - CONTINUE BACK-SCAN 4F14293
CS0030 PAX 0,B 4F14294
TXL CS0660,B,0 EXIT FROM CS ROUTINE 4F14295
STA CS0030 4F14296
CLA BETA,B 4F14297
CS0060 PAX 0,C 4F14298
TXL CS0090,C,-6 AT LEAST TWO ELEMENTS 4F14299
CS0080 TXI CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT 4F14300
CS0090 SXD CS0470,A SAVE XA 4F14301
SXD LENGTH,C SAVE XC, CONTAINING LENGTH OF SEGMENT 4F14302
CS0100 TXL CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT 4F14303
TXI CS0120,A,3 4F14304
CS0120 TXI CS0100,C,3 4F14305
CS0130 CAL SCRIPL-3,A 4F14306
TNZ CS0151 4F14307
TXI CS0130,A,3 ERASED SEGMENT 4F14308
CS0151 PAX 0,B 4F14309
TXL CS0610,B,0 G0 ON TO NEXT SEGMENT 4F14310
STA CS0060 4F14311
CLA BETA,B 4F14312
PAX 0,C 4F14313
PXD 0,C 4F14314
SUB LENGTH 4F14315
TNZ CS0100 NOT SAME LENGTH SEGMENT-CONTINUE SEARCH 4F14316
LXD CS0470,B SAME LENGTH SEGMENT 4F14317
SXD CS0600,A 4F14318
CS0250 TXL CS0430,C,0 MATCHING SEGMENTS 4F14319
CLA SCRIPL-1,B 4F14320
SUB SCRIPL-1,A 4F14321
TNZ CS0100 4F14322
CAL SCRIPL-3,B SYMBOLS MATCH 4F14323
ANA MASK1 4F14324
SLW G 4F14325
CAL SCRIPL-3,A 4F14326
ANA MASK1 4F14327
COM 4F14328
ACL G 4F14329
COM 4F14330
TNZ CS0100 4F14331
CLA SCRIPL-2,B TAGS MATCH 4F14332
ARS 6 4F14333
ALS 6 4F14334
SUB SCRIPL-2,A 4F14335
TNZ CS0100 4F14336
TXI CS0360,A,3 OPS MATCH 4F14337
CS0360 TXI CS0370,B,3 4F14338
CS0370 TXI CS0250,C,3 4F14339
CS0430 CAL SCRIPL,A MATCHING SEGMENTS 4F14340
ANA MASK2 SEARCH FOR REFERENCES 4F14341
CS0450 CAS SCRIPL-1,A 4F14342
TXI CS0450,A,3 4F14343
CS0470 TXI CS0490,0,0 4F14344
TXI CS0450,A,3 4F14345
CS0490 CLA CS0030 CHANGE REFERENCE 4F14346
STA SCRIPL-1,A 4F14347
LXD LENGTH,C 4F14348
LXD CS0600,A 4F14349
CS0530 TXL CS0570,C,0 ERASE DUPLICATE SEGMENT 4F14350
STQ SCRIPL-3,A 4F14351
TXI CS0560,A,3 4F14352
CS0560 TXI CS0530,C,3 4F14353
CS0570 LXA CS0060,C 4F14354
STQ BETA,C 4F14355
CAL 11Z STORE CS BIT 4F14356
ORS SCRIPL+1,B 4F14357
CS0600 TXI CS0130,0,0 4F14358
CS0610 LXD CS0470,A 4F14359
LXD LENGTH,C 4F14360
CS0630 TXL CS0010,C,0 4F14361
TXI CS0650,A,3 4F14362
CS0650 TXI CS0630,C,3 4F14363
CS0660 LXA L(0),5 STRING BEADS... COMPRESS SCRIPL TABLE 4F14364
CS0670 CAL SCRIPL,A 4F14365
TZE CS0750 4F14366
SLW SCRIPL,C 4F14367
CLA SCRIPL+1,A 4F14368
STO SCRIPL+1,C 4F14369
CLA SCRIPL+2,A 4F14370
STO SCRIPL+2,C 4F14371
TXI CS0750,C,-3 4F14372
CS0750 TXI CS0760,A,-3 4F14373
CS0760 TXH CS0670,A,0 4F14374
SXD PM0080,C -3Q IN XC AT END 4F14375
SXD AS1800,C 4F14376
SXD AS3600,C 4F14377
PM0000 SLF TURN OFF ALL SENSE LITES 4F14378
LXA L(0),A PERMUTE * AND / 4F14379
PM0010 CLA SCRIPL,A 4F14380
PAX 0,B 4F14381
CLA BETA,B 4F14382
PAX 0,C LDXC WITH SEGMENT LENGTH 4F14383
SXD PM0070,C 4F14384
TXL PM0100,C,-9 4F14385
PM0070 TXI PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO * 4F14386
PM0080 TXL AS0000,A,0 EXIT FROM PERMUTATION ROUTINE 4F14387
TRA PM0010 4F14388
PM0100 LDQ SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3 4F14389
PXD 0,0 4F14390
LGL 6 4F14391
SUB STAR 4F14392
TNZ PM0070 4F14393
TQP PM0170 4F14394
TRA PM0070 4F14395
PM0170 SXD PM0260,C 4F14396
SXD PM0400,C 4F14397
SXD PM0680,C 4F14398
LXA L(0),C LDXC WITH 0 4F14399
TXI PM0240,A,-3 4F14400
PM0240 SLN 3 TURN * LITE ON 4F14401
PM0250 TXI PM0260,C,-3 4F14402
PM0260 TXL PM0790,C,0 EXIT 4F14403
SXD PM0340,C 4F14404
LXD PM0290,B 4F14405
PM0290 TXI PM0300,3,0 XA TO XA AND XB 4F14406
PM0300 PXD 0,0 4F14407
LDQ SCRIPL+1,A 4F14408
LGL 6 4F14409
CAS SLASH 4F14410
FEXUB HTR 0,0,7 4F14411
PM0340 TXL PM0640,0,0 / SIGN 4F14412
SLT 3 * SIGN... IS * LITE ON 4F14413
TXI PM0240,A,-3 NO 4F14414
TXI PM0390,B,-3 YES - SEARCH FOR / SIGN 4F14415
PM0390 TXI PM0400,C,-3 4F14416
PM0400 TXL PM0770,C,0 EXIT 4F14417
PXD 0,0 4F14418
LDQ SCRIPL+1,B 4F14419
LGL 6 4F14420
SUB SLASH 4F14421
TZE PM0480 4F14422
TXI PM0390,B,-3 4F14423
PM0480 CLA SCRIPL,A PERMUTE TAG WORDS 4F14424
LDQ SCRIPL,B 4F14425
STQ SCRIPL,A 4F14426
STO SCRIPL,B 4F14427
CLA SCRIPL+1,A PERMUTE OP WORDS 4F14428
LDQ SCRIPL+1,B 4F14429
STQ SCRIPL+1,A 4F14430
STO SCRIPL+1,B 4F14431
CLA SCRIPL+2,A PERMUTE SYMBOL WORDS 4F14432
LDQ SCRIPL+2,B 4F14433
STQ SCRIPL+2,A 4F14434
STO SCRIPL+2,B 4F14435
LXD PM0340,C 4F14436
TXI PM0250,A,-3 RESUME SEGMENT SCAN 4F14437
PM0640 SLT 3 / SIGN... IS * LITE ON 4F14438
PM0650 TXI PM0670,B,-3 NO 4F14439
TXI PM0250,A,-3 4F14440
PM0670 TXI PM0680,C,-3 4F14441
PM0680 TXL PM0770,C,0 4F14442
PXD 0,0 4F14443
LDQ SCRIPL+1,B 4F14444
LGL 6 4F14445
SUB SLASH 4F14446
TZE PM0650 4F14447
SLN 3 TORN * LITE ON 4F14448
TRA PM0480 4F14449
PM0770 LXD PM0780,A 4F14450
PM0780 TXI PM0790,3,0 XB TO XA,XB 4F14451
PM0790 PXD 0,0 4F14452
LDQ SCRIPL-2,A 4F14453
LGL 6 4F14454
SUB SLASH 4F14455
TZE PM0080 ... / - EXIT FROM SEGMENT SCAN 4F14456
PXD 0,0 4F14457
LDQ SCRIPL-5,A 4F14458
LGL 6 4F14459
SUB SLASH 4F14460
TZE PM0080 ... / * - EXIT FROM SEGMENT SCAN 4F14461
CLA SCRIPL-3,A ... ** 4F14462
STO E 4F14463
CLA SCRIPL-2,A 4F14464
STO E+1 4F14465
CLA SCRIPL-1,A 4F14466
STO E+2 4F14467
TXI PM0980,A,3 4F14468
PM0980 TXI PM0990,C,3 4F14469
PM0990 TXL PM1070,C,0 FINIS 4F14470
CLA SCRIPL-3,A 4F14471
STO SCRIPL,A 4F14472
CLA SCRIPL-2,A 4F14473
STO SCRIPL+1,A 4F14474
CLA SCRIPL-1,A 4F14475
STO SCRIPL+2,A 4F14476
TXI PM0980,A,3 4F14477
PM1070 CLA E 4F14478
STO SCRIPL,A 4F14479
CLA E+1 4F14480
STO SCRIPL+1,A 4F14481
CLA E+2 4F14482
STO SCRIPL+2,A 4F14483
CAL SCRIPL+4,A PRESERVE CS BIT 4F14464
ANA 11Z 4F14485
ORS SCRIPL+1,A 4F14486
TRA PM0070 4F14487
AS0000 LXA L(0),7 RENUMBER SEGMENT OF SCRIPL 4F14488
AS0100 CLA BETA,B 4F14489
TZE AS0700 4F14490
PXD 0,C 4F14491
ARS 18 4F14492
STA BETA,B 4F14493
TXI AS0700,C,-1 4F14494
AS0700 TXI AS0800,B,-1 4F14495
AS0800 TXH AS0100,B,0 4F14496
AS0900 CLA SCRIPL,A 4F14497
PAX 0,B 4F14498
CLA BETA,B 4F14499
STA SCRIPL,A 4F14500
LDQ SCRIPL+2,A 4F14501
LGL 1 4F14502
LBT 4F14503
TQP AS2000 4F14504
TXI AS1800,A,-3 4F14505
AS1800 TXH AS0900,A,0 4F14506
TRA AS2500 4F14507
AS2000 LGL 35 4F14508
PAX 0,B 4F14509
CLA BETA,B 4F14510
STA SCRIPL+2,A 4F14511
TXI AS1800,A,-3 4F14512
AS2500 LXA L(0),3 LDXA,XB WITH 0 4F14513
LDQ L(0) CLEAR MQ 4F14514
AS2700 STQ BETA,B RECLEAR BETA TABLE 4F14515
TXI AS2900,B,-1 4F14516
AS2900 TXH AS2700,B,0 4F14517
AS3000 CLA SCRIPL,A ADD INTO GAMMA COUNTERS 4F14518
PAX 0,B 4F14519
CLA BETA,B 4F14520
ADD BETAD2 3*2**18+(-3) 4F14521
STD BETA,B 4F14522
STA BETA,B 4F14523
TXI AS3600,A,-3 4F14524
AS3600 TXH AS3000,A,0 -3Q IN XA AT END 4F14525
SXD 3QBAR,A -3Q TO 3QBAR = 3LBAR 4F14526
CCS000 CAL SCRIPL-3,A ELIMINATE COMMON SUBEXPRESSIONS 4F14527
PAX 0,B LOAD XB WITH S(I) 4F14528
TXL CCS240,B,0 EXIT AT S(0) 4F14529
CAL BETA,B OBTAIN LENGTH OF S(I) 4F14530
STD CCS060 AND BACK UP TO 4F14531
CCS060 TXI CCS070,A,0 BEGINNING OF CURRENT SEGMENT 4F14532
CCS070 CAL SCRIPL+1,A OBTAIN OP1 (S(I)) 4F14533
ANA 11Z EXTRACT CS-BIT 4F14534
TZE CCS000 CONTINUE TO S(I-1) 4F14535
PXD 0,B 4F14536
ARS 18 4F14537
LXA L(0),C TO S(I) 4F14538
LXD CCS140,B AND KEEP COUNT OF SAME 4F14539
CCS140 TXI CCS150,3,0 XA TO XA,XB 4F14540
CCS150 TXL CCS200,B,0 SEARCH-UP FINISHED. EXAMINE COUNT 4F14541
CAS SCRIPL-1,B 4F14542
TXI CCS150,B,3 CONTINUE SEARCH 4F14543
TXI CCS190,C,1 RAISE REF COUNTER AND 4F14544
CCS190 TXI CCS150,B,3 CONTINUE SEARCH 4F14545
CCS200 TXH CCS000,C,1 MULTIPLE REFERENCE 4F14546
CAL MASK4 SINGLE REFERENCE - SO SET 4F14547
ANS SCRIPL+1,A OP1(S(I))30 TO 0, AND 4F14548
TRA CCS000 CONTINUE FOR S(I-1) 4F14549
CCS240 LXD AS3600,A -3Q TO XA 4F14550
PL0000 TXL LK0000,A,0 GO TO LINKAGE 4F14551
CLA SCRIPL-3,A 4F14552
PAX 0,B 4F14553
CAL BETA,B 4F14554
PAX 0,C 4F14555
STD PL0060 4F14556
PL0060 TXI PL0070,A,0 SET XA TO BEGINNING OF S(I) 4F14557
PL0070 PXD 0,0 4F14558
LDQ SCRIPL+1,A OBTAIN 4F14559
LGL 6 AND 4F14560
CAS SPECOP EXAMINE OP1 (S(I)) 4F14561
TRA PL0680 4F14562
TRA PL0460 4F14563
PL0130 PXD 0,0 OP1 (S(I)) IS +, - OR * 4F14564
LDQ SCRIPL+2,A OBTAIN 4F14565
LGL 1 AND 4F14566
LBT EXAMINE SYM1 (S(I)) 4F14567
TQP PL0300 4F14568
LGL 5 EX (IN)TERNAL VARIAVLE 4F14569
PL0135 CAS L(H) IS SYM1 (S(I)) FIX OR FLO PT 4F14570
CAS L(O) 4F14571
TRA PL0240 FLO PT... SET OP1 (S(I)) 32 = 1 4F14572
TRA PL0240 FLO PT... DITTO 4F14573
TRA PL0000 FIX PT... OP1 (S(I)) 32 = 0 4F14574
PL0240 CAL L(8) SET OP1 (S(I)) 32 = 1 4F14575
PL0250 ORS SCRIPL+1,A 4F14576
PL0260 TXI PL0000,0,0 CONTINUE SCAN 4F14577
PL0300 LXD PL0310,B SYM1 (S(I)) = SOME S(J) 4F14578
PL0310 TXI PL0320,3,0 XA TO XA,XB 4F14579
PL0320 SXD PL0330,C 4F14580
PL0330 TXI PL0340,B,0 4F14581
PL0340 CAL SCRIPL,B 4F14582
PAX 0,C 4F14583
ANA MASK2 4F14584
SUB SCRIPL+2,A 4F14585
TZE PL0420 4F14586
CLA BETA,C 4F14587
PAX 0,C 4F14588
TRA PL0320 4F14589
PL0420 CAL SCRIPL+1,B SYM1(S(I)) = S(J) 4F14590
ANA L(8) EXTRACT OP1 (S(J)) 32 AND GO 4F14591
TRA PL0250 SET OP1 (S(I)) 32 = OP1 (S(J)) 32 4F14592
PL0460 LGL 7 OP1 (S(I)) IS SPOP 4F14593
TQP PL0465 4F14594
PL0461 LDQ SCRIPL+2,A FS NAME - 4F14595
PXD 0,0 EXAMINE SUM1 (S(I)) S,1-5 4F14596
LGL 6 4F14597
SUB L(X) 4F14598
TNZ PL0240 FLO PT... GO SET OP1 (S(I)) 32 = 1 4F14599
TRA PL0000 FIX PT ... OP1 (S(I)) 32 = 0 4F14600
PL0465 LBT 4F14601
TRA PL0470 4F14602
LDQ SCRIPL+2,A 4F14603
PXD ,0 4F14604
LGL 6 4F14605
TRA PL0135 4F14606
PL0470 CLA SCRIPL+2,A NOT AN FS NAME 4F14607
LXA L(0),B 4F14608
PL0480 CAS OPSUB,B 4F14609
TXI PL0520,B,-1 4F14610
TRA PL0650 4F14611
TXI PL0520,B,-1 4F14612
PL0520 TXH PL0480,B,-20 4F14613
STO G 4F14614
SXD PL0260,A 4F14615
TSX TET00,A 4F14616
HTR 9 4F14617
LXD PL0260,A 4F14618
TRA PL0461 4F14619
PL0650 CAL L(4) SET OP1 (S(I)) 33 =1 4F14620
ORS SCRIPL+1,A 4F14621
TRA PL0461 4F14622
PL0680 TQP PL0130 4F14623
PXD 0,0 OP1 (S(I) IS ** 4F14624
LDQ SCRIPL+2,A OBTAIN AND 4F14625
LGL 1 EXAMINE 4F14626
LBT SYM1 (S(I)) 4F14627
TQP PL1000 4F14628
LGL 5 EX (IN)TERNAL VARIABLE 4F14629
CAS L(H) IS OT FIX OR FLO PT 4F14630
CAS L(O) 4F14631
TRA PL0800 4F14632
TRA PL0800 4F14633
TRA PL0830 FIX PT 4F14634
PL0800 CAL L(8) FLO PT... SET OP1 (S(I)) 32 = 1 4F14635
PL0820 ORS SCRIPL+1,A 4F14636
PL0830 PXD 0,0 4F14637
LDQ SCRIPL+5,A OBTAIN 4F14638
LGL 1 AND 4F14639
LBT EXAMINE 4F14640
TQP PL1200 SYM2 (S(I)) 4F14641
LGL 5 4F14642
CAS L(H) 4F14643
CAS L(O) 4F14644
TRA PL0940 SYM2 (S(I)) IS FLO PT, SO GO 4F14645
TRA PL0940 SET OP2 (S(I)) 32 = 1 4F14646
PL0850 PXD 0,0 SYM2(S(I)) IS FIX PT 4F14647
LGL 6 4F14648
SUB OPEN 4F14649
TNZ PL0000 SYM2 (S(I)) IS EXTERNAL 4F14650
LGL 25 SYM2 (S(I)) IS INTERNAL (AND FIX PT) 4F14651
ADD PL0880 4F14652
STA PL0850 4F14653
RDR FXCODR 4F14654
LDA PL0850 4F14655
CPY G 4F14656
CPY G+1 4F14657
CLA G 4F14658
CAS G+1 4F14659
TRA *+2 GO TO THE DIAGNOSTIC. 4F14660
TRA PL1570 4F14661
TSX DIAG,4 * GO TO THE DIAGNOSTIC. 4F14662
PL1570 TZE PL0000 EXP IS 0, SO OP1 (S(I)) 33 = 0 4F14663
CAS FEXUB 4F14664
PL0880 TXH FIXCON,0,0 EXP NOT LESS THAN 7, SO 4F14665
TRA PL0000 OP1 (S(I)) 33 = 0 4F14666
STO SCRIPL+5,A EXP LESS THAN 7, SO STORE EXP 4F14667
CAL L(4) AS SYM2 (S(I)) AND SET 4F14668
ORS SCRIPL+1,A OP1 (S(I)) 33 = 1 4F14669
TRA PL0000 4F14670
PL0940 CAL L(8) SYM2 (S(I)) IS FLO PT 4F14671
ORS SCRIPL+4,A SET OP2 (S(I)) 32 = 1 4F14672
TRA PL0000 4F14673
PL1000 LXD PL1010,B SYM1 (S(I)) IS SOME S(J) 4F14674
PL1010 TXI PL1020,3,0 XA TO XA,XB 4F14675
PL1020 SXD PL1030,C 4F14676
PL1030 TXI PL1040,B,0 4F14677
PL1040 CAL SCRIPL,B 4F14678
PAX 0,C 4F14679
ANA MASK2 4F14680
SUB SCRIPL+2,A 4F14681
TZE PL1130 4F14682
CLA BETA,C 4F14683
PAX 0,C 4F14684
TRA PL1020 4F14685
PL1130 CAL SCRIPL+1,B 4F14686
ANA L(8) 4F14687
TRA PL0820 4F14688
PL1200 LXD PL1210,B SYM2 (S(I)) = SOME S(K) 4F14689
PL1210 TXI PL1220,3,0 XA TO XA,XB 4F14690
PL1220 LXD PL1330,C LKXC WITH -6 4F14691
PL1230 SXD PL1240,C 4F14692
PL1240 TXI PL1250,B,0 4F14693
PL1250 CAL SCRIPL,B 4F14694
PAX 0,C 4F14695
ANA MASK2 4F14696
SUB SCRIPL+5,A 4F14697
TZE PL1340 SYM2(S(I)) = S(K) 4F14698
CLA BETA,C 4F14699
PAX 0,C 4F14700
PL1330 TXI PL1230,0,-6 4F14701
PL1340 CAL SCRIPL+1,B SET OP2(S(I)) 32 = OP1 (S(K)) 32 4F14702
ANA L(8) 4F14703
ORS SCRIPL+4,A 4F14704
TRA PL0000 RESUME SCAN 4F14705
LK0000 LXD AS3600,A -3Q TO XA 4F14706
LK0030 CAL SCRIPL-3,A 4F14707
PAX 0,B S(I) TO XB 4F14708
TXL LK1610,B,0 EXIT UPON ENCOUNTERING S(0) 4F14709
LDQ SCRIPL-2,A PLACE LAST OP OP S(I) IN MQ 4F14710
CLA BETA,B 4F14711
STD LK0110 4F14712
LK0110 TXI LK0120,A,0 MOVE XA TO BEGINNING OF S(I) 4F14713
LK0120 LXD LK0130,C 4F14714
LK0130 TXI LK0140,5,0 XA TO XA,XC 4F14715
LK0140 SXD AS3600,A 4F14716
CLA BETA-1,B 4F14717
PDX 0,B LENGTH OF S(I-1) TO XB 4F14718
SXD LK0180,B 4F14719
LK0180 TXI LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1) 4F14720
LK0190 TQP LK1200 S(I) TYPE AC 4F14721
RQL 1 4F14722
TQP LK1200 S(I) TYPE AC 4F14723
CAL 12Z S(I) RESULTS IN MQ (TYPE MQ) 4F14724
ORS SCRIPL+1,A SET OP1 (S(I)) 31 = 1 4F14725
PXD 0,0 4F14726
LDQ SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ 4F14727
LGL 6 4F14728
CAS SPECOP 4F14729
TRA LK0320 4F14730
TRA LK0950 4F14731
TRA LK0030 S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0 4F14732
LK0320 TQP LK0570 4F14733
LGL 27 S(I)TYPE MQ, OP1(S(I-1) = ** 4F14734
CAL SCRIPL,A 4F14735
ANA MASK2 EXTRACT S(I) IN ACC 4F14736
TQP LK0480 OP1 (S(I-1)) 33 = 0 4F14737
SUB SCRIPL+2,C OP1 (S(I-1)) 33 = 1. OPEN ** SUBROUTINE. 4F14738
TNZ LK0030 SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0 4F14739
CAL L(3) S(I) = SYM1 (S(I-1)), SO 4F14740
LK0430 ORS SCRIPL+1,C 4F14741
LK0440 CAL BIT29 4F14742
ORS SCRIPL+1,A 4F14743
TRA LK0030 OP1 (S(I-1)) = 0. CLOSED ** SUBROUTINE. 4F14744
LK0480 SUB SCRIPL+5,C 4F14745
TNZ LK0030 SET OP1,S(I))29=OP1(S(I-1))35=0 4F14746
CAL L(1) S(I) = SYM2 (S(I-1)), S0 4F14747
ORS SCRIPL+4,C SET OP2 (S(I-1)) 35 = 1 4F14748
TRA LK0440 4F14749
LK0570 PXD 0,0 S(I) TYPE MQ, OP1 (S(I-1)) = * 4F14750
LDQ SCRIPL+4,C F1ACE PO2 (S(I-1)) IN MQ 4F14751
LGL 6 IS OP2 (S(I-1)) = * 4F14752
SUB STAR 4F14753
TNZ LK0030 NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =04F14754
CAL L(2) YES 4F14755
ORS SCRIPL+1,C SET OP1(S(I-1))34=1 4F14756
LK0630 CAL SCRIPL,A 4F14757
ANA MASK2 SEARCH FOR S(I) IN S(I-1) 4F14758
LK0650 TXL LK0000,B,0 NOT FOUND AT ALL 4F14759
CAS SCRIPL-1,A 4F14760
TXI LK0700,A,3 4F14761
TRA LK0710 4F14762
TXI LK0700,A,3 NOT FOUND - CONTINUE SEARCH 4F14763
LK0700 TXI LK0650,B,-3 4F14764
LK0710 LDQ SCRIPL-2,A S(I) IS SYMJ (S(I-1)) 4F14765
RQL 1 IS OPJ (S(I-1)) = * 4F14766
TQP LK0750 4F14767
TXI LK0700,A,3 NO... CONTINUE SEARCH 4F14768
LK0750 CLA SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJIS(I-1)) 4F14769
LDQ SCRIPL-3,A EXCHANGE 4F14770
STO SCRIPL-3,A TAG 4F14771
STQ SCRIPL,C WORDS 4F14772
CAL SCRIPL+1,C PLACE OP1 (S(I-1)) IN ACC 4F14773
LDQ SCRIPL-2,A PLACE OPJ (S(I-1)) IN MQ 4F14774
SLW SCRIPL-2,A EXCHANGE 4F14775
STQ SCRIPL+1,C OP 4F14776
ANA MASK2 WORDS AND 4F14777
ORS SCRIPL+1,C SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33 4F14778
CLA SCRIPL+2,C THEN 4F14779
LDQ SCRIPL-1,A EXCHANGE 4F14780
STO SCRIPL-1,A SYMBOL 4F14781
STQ SCRIPL+2,C WORDS 4F14782
LXD AS3600,A RESTORE XA 4F14783
LK0900 CAL L(1) AND 4F14784
TRA LK0430 4F14785
LK0950 RQL 27 S(I) TYPE MQ, OP1 (S(I-1)) = SPOP 4F14786
CAL SCRIPL,A 4F14787
ANA MASK2 EXTRACT S(I) IN ACC 4F14788
TQP LK1050 0P1 (S(I-1)) 33 = 0 (CLOSED SUBROUTINE) 4F14789
TXH LK0030,B,6 OPEN MULTIV... SET OP1 (S(I)) 29 = 0 4F14790
SUB SCRIPL+5,C OPEN UNIV... IS S(I) = SUM2 (S(I-1)) 4F14791
TNZ LK0030 NO... SET OP1 (S(I))29 = OP2 (S(I-1))35 = 04F14792
CAL L(3) AND 4F14793
ORS SCRIPL+4,C SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1 4F14794
TRA LK0440 4F14795
LK1050 RQL 15 4F14796
TQP LK1100 TEST OP1(S(I-1))12 4F14797
TRA LK0030 FN-NAME 4F14798
LK1100 TXL LK0030,B,6 CLOSED UNIV. SBRTN 4F14799
SUB SCRIPL+8,C CLOSED MULTIV. SBRTN 4F14800
TNZ LK0030 S(I) NOT = SYM3 (S (I-1)) 4F14801
CAL L(1) S(I) = SYM3 (S(I-1)), S0 4F14802
ORS SCRIPL+7,C SET OP3 (S(I-1))35 = 1 4F14803
TRA LK0440 4F14804
LK1200 PXD 0,0 S(I) TYPE AC 4F14805
LDQ SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ 4F14806
LGL 6 4F14807
CAS SPECOP 4F14808
TRA LK1340 4F14809
TRA LK1470 4F14810
CAL SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = + OR - 4F14811
ANA MASK2 SEARCH FOR S(I) IN S(I-1) 4F14812
LK1280 TXL LK0000,B,0 NOT FOUND AT ALL 4F14813
CAS SCRIPL-1,A 4F14814
TXI LK1330,A,3 4F14815
TRA LK0750 S(I) = SOME SYMJ (S(I-1))... GO PERMUTE 4F14816
TXI LK1330,A,3 NOT FOUND... CONTINUE SEARCH 4F14817
LK1330 TXI LK1280,B,-3 4F14818
LK1340 TQP LK1410 4F14819
CAL SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = ** 4F14820
ANA MASK2 4F14821
SUB SCRIPL+2,C IS S(I) = SYM1 (S(I-1)) 4F14822
TNZ LK0030 NO 4F14823
TRA LK0900 YES 4F14824
LK1410 PXD 0,0 S(I) TYPE AC, OP1 (S(I-1)) = * 4F14825
LDQ SCRIPL+4,C 4F14826
LGL 6 IS OP2 (S(I-1)) = 1 4F14827
SUB SLASH 4F14828
TZE LK0630 YES 4F14829
CAL L(2) NO 4F14830
ORS SCRIPL+1,C SET OP1 (S(I-1)) 34 = 1 4F14831
TRA LK0000 4F14832
LK1470 RQL 27 S(I) TYPE AC, OP1 (S(I-1)) = SPOP 4F14833
CAL SCRIPL,A 4F14834
ANA MASK2 EXTRACT S(I) IN ACC 4F14835
TQP LK1530 4F14836
TXH LK0030,B,6 OPEN MULTIV. 4F14837
LK1520 TRA LK0480 4F14838
LK1530 RQL 15 4F14839
TQP LK0480 4F14840
TRA LK0030 FN-NAME 4F14841
LK1610 LXD BETA,B IS S(0) A SINGLE ELEMENT 4F14842
PXD 0,0 4F14843
LDQ SCRIPL-2,A 4F14844
TXH LK1780,B,3 NO 4F14845
LGL 6 YES 4F14846
SUB 11Z IS OP (S(0)) = + OR - 4F14847
TZE LKK000 OP (S(0)) = - 4F14848
CAL SCRIPL+2 OP (S(0)) = + 4F14849
ANA MASK1 DOES SYM (S(0)) = S(1) 4F14850
TNZ LKK000 NO 4F14851
CAL SCRIPL+4 YES - PLACE OP1 (S(1)) IN ACC 4F14852
ANA 12Z 4F14853
TZE LKK000 OP1 (S(1)) 31 = 0 4F14854
ORS SCRIPL+1 SET OP (S(0)) 31 = 1 4F14855
ALS 2 4F14856
ORS SCRIPL+4 SET OP1 (S(1)) 29 = 1 4F14857
ARS 6 4F14858
TRA LK1820 4F14859
LK1780 TQP LKK000 S(0) TYPT AC 4F14860
RQL 1 4F14861
TQP LKK000 S(0) TYPE AC 4F14862
CAL 12Z S(0) TYPE MQ, SO 4F14863
LK1820 ORS SCRIPL+1 4F14864
LKK000 LXD 3QBAR,5 -3Q TO XA,XC 4F14865
CAL SCRIPL-3,C 4F14866
PAX 0,B 4F14867
CLA BETA,B 4F14868
STD LKK050 4F14869
LKK050 TXI LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT 4F14870
LKK060 PXD 0,0 4F14871
LDQ SCRIPL+1,C PLACE OP1 OF LAST SEGMENT 1N MQ 4F14872
LGL 6 4F14873
SUB STAR 4F14874
TNZ PC0000 4F14875
TQP LKK130 4F14876
TRA PC0000 4F14877
LKK130 LDQ SCRIPL+4,C OP1 OF LAST SEGMENT IS * 4F14878
LGL 2 4F14879
LBT 4F14880
ORS SCRIPL+1,C OP2 IS *, SO SET OP1 (S(L)) 34 = 1 4F14881
PC0000 LXD ARGCTR,C IS THIS AN FS 4F14882
TXH PC0030,C,0 4F14883
TXI PC0040,C,1 NO 4F14884
PC0030 LXA L(0),C YES 4F14885
PC0040 CAL SCRIPL-3,A 4F14886
PAX 0,B 4F14887
TXL PC0190,B,0 EXIT AT S(0) 4F14888
CLA BETA,B 4F14889
STD PC0100 4F14890
PC0100 TXI PC0110,A,0 4F14891
PC0110 LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ 4F14892
LGL 30 4F14893
LBT 4F14894
PC0140 TXI PC0160,0,300 4F14895
TQP PC0040 OP1 (S(I)) 29= 1 AND OP1 (S(I)) 30 = 0 4F14896
PC0160 PXD 0,C OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1 4F14897
STD BETA,B STORE ERAS. REL. ADD. COUNT IN BETA, 4F14898
TXI PC0040,C,1 AND UPDATE FOR NEXT SEGMENT 4F14899
PC0190 LXD PC0140,B 4F14900
PC0200 CLA BETA+300,B 4F14901
STO CPBETA+300,B 4F14902
TIX PC0200,B,1 4F14903
TRA STATED GO FETCH STATE D 4F14904
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14905
REM 4F14906
REM DICTIONARY OF OPEN SUBROUTINES FOLLOWS 4F14907
OPSUB OCT 672122626060 XABS 4F14908
OCT 212262606060 ABS 4F14909
OCT 673145636060 XINT 4F14910
OCT 314563606060 INT 4F14911
OCT 674446246060 XMOD 4F14912
OCT 444624606060 MOD 4F14913
OCT 674421670060 XMAX0 4F14914
OCT 442167016060 MAX1 4F14915
OCT 674421670160 XMAX1 4F14916
OCT 442167006060 MAX0 4F14917
OCT 674431450060 XMIN0 4F14918
OCT 443145016060 MIN1 4F14919
OCT 674431450160 XMIN1 4F14920
OCT 443145006060 MIN0 4F14921
OCT 264346216360 FLOAT 4F14922
OCT 672631676060 XFIX 4F14923
OCT 623127456060 SIGN 4F14924
OCT 676231274560 XSIGN 4F14925
OCT 672431446060 XDIM 4F14926
OCT 243144606060 DIM 4F14927
BSS 10 4F14928
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14929
STATED BSS 0 4F149295
REM 4F14930
ORG 2596+4096 4F14931
BETA BSS 300 4F14932
REM END OF ARITHMETIC / STATE C. 4F14933
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14934
REM 4F14935
REM ARITHMETIC / STATE D= 4F14936
ORG STATED 4F14939
MC00OO LXD 3QBAR,A MODE CHECKING ROUTINE 4F14940
SXD MC0420,A 4F14941
LXA L(0),A 4F14942
MC0030 SXD XASAVE,A 4F14943
CAL SCRIPL,A 4F14944
MC0050 PAX ,2 S(I) TO XB 4F14945
CLA CPBETA,B 4F14946
MC0070 PAX TAU2,B 4F14947
SXD MC0410,B 4F14946
SXD MC0460,B 4F14949
TXH MC0410,B,-6 SINGLE ELEMENT - GO ONTO S(I+1) 4F14950
SLF TURN OFF ALL SENSE LITES 4F14951
PXD 0,0 CLEAR ACC 4F14952
LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ 4F14953
LGL 6 4F14954
CAS SPECOP 4F14955
TQP MC0180 4F14956
XASAVE TXI MC0410,0,0 4F14957
MC0180 LGL 26 OP1 (S(I)) = +, - OR * 4F14958
TQP MC0210 FIX PT 4F14959
SLN 1 FLO PT 4F14960
MC0210 PXD 0,0 4F14961
LDQ SCRIPL+2,A PLACE SYMJ (S(I)) IN MQ - J = 1.... 4F14962
LGL 1 4F14963
LBT 4F14964
TQP MC0440 4F14965
LGL 5 SYMJ (S(I)) IS A VARIABLE 4F14966
CAS L(H) 4F14967
CAS L(O) 4F14968
XBSAVE TXI MC0340,0,0 FLO PT 4F14969
TRA MC0340 FLO PT 4F14970
MC0310 SLT 1 SYMJ (S(I)) IS A FIX PT VARIABLE 4F14971
TXI MC0380,B,3 OK 4F14972
TSX DIAG,4 ERROR.. FLO PT LITE ON 4F14973
MC0340 SLT 1 SYMJ(S(I)) IS A FLO PT VARIABLE 4F14974
TSX DIAG,4 ERROR.. FLO PT LITE OFF 4F14975
SLN 1 RESTORE FLO PT LITE 4F14976
TXI MC0380,B,3 4F14977
MC0380 TXL MC0400,B,0 FINISHED WITH S(I) 4F14978
TXI MC0210,A,-3 CONTINUE SCANNING S(I). J TO J+1 4F14979
MC0400 LXD XASAVE,A GO T0 S(I+1) 4F14980
MC0410 TXI MC0420,A,0 4F14981
MC0420 TXH MC0030,A,0 4F14982
TRA CP0000 EXIT TO COMPILER 4F14983
MC0440 SXD XBSAVE,B SYMJ (S(ITT = SAME S(K) 4F14984
LXD XASAVE,C 4F14985
MC0460 TXI MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1) 4F14986
MC0470 CAL SCRIPL,C 4F14987
ANA MASK2 EXTRACT S(K) IN ACC 4F14988
CAS SCRIPL+2,A AND COMPARE WITH SYMJ (S(I)) 4F14989
TRA MC0520 4F14990
TRA MC0570 4F14991
MC0520 PAX SIGMA1,B S(K) TO XB 4F14992
CLA CPBETA,B 4F14993
MC0540 PAX TAU1,B 4F14994
SXD MC0560,B 4F14995
MC0560 TXI MC0470,C,0 4F14996
MC0570 LXD XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K 4F14997
CAL SCRIPL+1,C PLACE OP1 (S(K)) IN ACC 4F14998
ARS 3 4F14999
LBT 4F15000
TRA MC0310 S(K) IS FIX PT 4F15001
TRA MC0340 S(K) IS FL0 PT 4F15002
REM 4F15003
CP0000 SLF TURN OFF ALL SENSE LITES 4F15004
STZ FNSW 4F15005
LXD ARGCTR,C IS THIS AN FS STATEMENT 4F15006
TXL CP0090,C,0 NO 4F15007
TSX CIT00,C YES - COMPILE FOUR 36 - BIT 4F15008
HTR ALL1 STRINGS IN 1 AS A PRELUDE TO 4F15009
HTR ALL1 FS STATEMENT COMPILATION 4F15010
HTR ALL1 4F15011
HTR ALL1 4F15012
CP0090 CAL EIFNO 4F15013
ANA MASK1 4F15014
SLW CW STO INT. FORM. NO. IN DEC. FIELD 0F CW. 4F15015
LXD 3QBAR,A -3Q TO XA 4F15016
CP0130 CLA SCRIPL-3,A EXTRACT CURRENT S(II 4F15017
CP0140 PAX ,2 4F15018
CLA CPBETA,B 4F15019
STD PHI(I) STO ERAS. REL. ADD. IN PHI (I) 4F15020
ANA MASK2 4F15021
CP0180 PAX TAU3,B 4F15022
SXD CP0400,B 4F15023
COM 4F15024
ADD L(1) 4F15025
ALS 18 4F15026
STD CP0240 4F15027
CP0240 TXI CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I) 4F15028
CP0250 SXD 3QBAR,A 4F15029
LDQ SCRIPL+1,A EXAMINE OP1 (S(I)I 29,30,31,32 4F15030
LGL 30 4F15031
LBT 4F15032
TRA CP0310 OP1 (S(I)) 29 = 0 4F15033
TQP CP0370 OP1 (S(I)) 30 = 0 4F15034
CP0310 SLN 1 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO 4F15035
RQL 1 SET STORE LITE 4F15036
TQP CP0350 OP1 (S(I)) 31 = 0, SO SET STO LITE 4F15037
SLN 2 OP1 (S(I)) 31 = 1, SO SET STQ LITE 4F15038
CP0350 RQL 1 4F15039
TRA CP0380 4F15040
CP0370 RQL 2 4F15041
CP0380 TQP CP0420 TEST OP1 (S(I)) 32 4F15042
SLT 4 OP1 (S(I)) 32 = 1, SO SET FLPTSW 4F15043
CP0400 TXH 0,0,0 4F15044
TRA CP0430 4F15045
CP0420 SLN 4 OP1 (S(II) 32 = 0, SO SET FXPTSW 4F15046
CP0430 PXD 0,0 4F15047
LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ 4F15048
LGL 6 4F15049
CAS SPECOP 4F15050
TXI CP0960,0,0 4F15051
TXI CP2040,A,-3 4F15052
SUB 11Z 4F15053
TZE CP0760 4F15054
LGL 29 OP1 (S(I)) = + 4F15055
TQP CP1130 OP1 (S(I)) 35 = 0 4F15056
CP0540 LXD CP0400,B OP1 (S(I)) 35 = 1 4F15057
TXI CP0560,B,3 4F15058
CP0560 TXL ES0000,B,0 GO TO END-OF-SEGMENT SBRTN 4F15059
SXD CP0400,B 4F15060
TXI CP0590,A,-3 4F15061
CP0590 PXD 0,0 4F15062
LDQ SCRIPL+1,A PLACE OPJ (S(I)) IN MQ 4F15063
LGL 6 4F15064
CAS STAR 4F15065
TRA CP1200 OPJ (S(I)) = / 4F15066
TRA CP1720 OPJ (S(I)) = * 4F15067
SUB 11Z 4F15068
TZE CP0880 OPJ (S(I)) = - 4F15069
CAL L(FAD) OPJ (S(I)) = + 4F15070
SLT 4 4F15071
TRA CP0740 4F15072
SLN 4 FIX PT. RESTORE FXPTSW 4F15073
CAL L(ADD) 4F15074
CP0740 SLW CW+1 4F15075
TRA CP1690 4F15076
CP0760 LGL 29 OP1 (S(I)) = - 4F15077
TQP CP0850 4F15078
CAL L(CHS) C81 (SI))) 35 = 1, SO 4F15079
SLW CW+1 COMPILE CHS FOR 1ST ELEMENT 4F15080
STZ CW+2 4F15081
STZ CW+3 4F15082
TSX COMP,B 4F15083
TRA CP0540 4F15084
CP0850 CAL L(CLS) OP1 (S(I)) 35 = 0, S0 4F15085
SLW CW+1 COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT 4F15086
TRA CP1150 4F15087
CP0880 CAL L(FSB) OPJ (SII)I = - 4F15088
SLT 4 4F15089
TRA CP0940 4F15090
SLN 4 FIX PT. RESTORE FXPTSW 4F15091
CAL L(SUB) 4F15092
CP0940 SLW CW+1 4F15093
TRA CP1690 4F15094
CP0960 TQP CP0980 4F15095
TRA CP4140 4F15096
CP0980 LGL 29 OP1 (S(I)) = * 4F15097
SLN 3 TURN LITE 3 ON 4F15098
LBT TEST OP1 (S(I)) 34 4F15099
TRA CP1050 OP1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON 4F15100
SLT 3 OP1 (S(I)) 34 = 1, SO TURN LITE 3 OFF 4F15101
TXH 0,0,0 4F15102
CP1050 TQP CP1070 4F15103
TRA CP0540 OP1 (S(I)) 35 = 1, SO GO MODIFY J 4F15104
CP1070 CAL L(LDQ) OP1 (S(I)) 35 = 0 4F15105
SLT 3 4F15106
TRA CP1140 EL1 (S(I)) TO MQ 4F15107
SLN 3 EL1 (S(I)) TO ACC 4F15108
CP1130 CAL L(CLA) 4F15109
CP1140 SLW CW+1 4F15110
CP1150 TSX AC0000,C ADDRESS COMPILE SYM1 (S(I)) 4F15111
TSX COMP,B 4F15112
STZ CW RESET CW 4F15113
TRA CP0540 GO MODIFY J 4F15114
CP1200 SLT 3 OPJ (S(I)) = / 4F15115
TRA CP1330 4F15116
SLT 4 PREDECESSOR IN ACC 4F15117
TRA CP1670 FLO PT. 4F15118
SLN 4 FIX PT. RESTORE FXPTSW 4F15119
TSX CIT00,C COMPILE LRS 35 4F15120
HTR L(0) 4F15121
HTR L(LRS) 4F15122
HTR L(0) 4F15123
HTR DEC35 4F15124
TRA CP1450 4F15125
CP1330 SLT 4 PREDECESSOR IN MQ 4F15126
TRA CP1570 AND SEGMENT IS 4F15127
SLN 4 FIX PT. RESTORE FXPTSW 4F15128
CP1450 CLA L(DVP) 4F15129
STO CW+1 4F15130
TSX AC0000,C ADDRESS COMPILE SYMJ (S(I)) 4F15131
TSX COMP,B COMPILE DVP SYMJ (S(I)) 4F15132
TSX CIT00,C COMPILE CLM 4F15133
HTR L(0) 4F15134
HTR L(CLM) 4F15135
HTR L(0) 4F15136
HTR L(0) 4F15137
TSX CIT00,C COMPILE LLS 18 4F15138
HTR L(0) 4F15139
HTR L(LLS) 4F15140
HTR L(0) 4F15141
HTR DEC18 4F15142
TRA CP0540 GO MODIFY J 4F15143
CP1570 CLA L(STQ) PREDECESSOR IN MQ 4F15144
STO CW+1 AND SEGMENT IS FLO PT 4F15145
CLA X( 4F15146
STO CW+2 4F15147
STZ CW+3 4F15148
TSX COMP,B COMPILE STQ 700000 4F15149
CLA L(CLA) 4F15150
STO CW+1 4F15151
TSX COMP,B COMPILE CLA 700000 4F15152
CP1670 CLA LIFDP) 4F15153
STO CW+1 COMPILE FDP SYMJ (S(I)) 4F15154
CP1690 TSX AC0000,C ADDRESS COMPILE SYMJ (S(I)) 4F15155
TSX COMP,B 4F15156
TRA CP0540 GO MODIFY J 4F15157
CP1720 SLT 3 OPJ(S(I))=* 4F15158
TRA CP1840 4F15159
CLA L(STO) PREDECESSOR IN ACC 4F15160
STO CW+1 4F15161
CLA X( 4F15162
STO CW+2 4F15163
STZ CW+3 4F15164
TSX COMP,B COMPILE STO 700000 4F15165
CLA L(LDQ) 4F15166
STO CW+1 4F15167
TSX COMP,B COMPILE LDQ 700000 4F15168
CP1840 SLN 3 TURN LATE 3 ON 4F15169
TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) 4F15170
SLT 4 4F15171
TRA CP2000 4F15172
SLN 4 FIX PT. RESTORE FXPTSW 4F15173
CLA L(MPY) 4F15174
STO CW+1 4F15175
TSX COMP,B COMPILE MPY SYMJ(S(I)) 4F15176
TSX CIT00,C COMPILE ALS 17 4F15177
HTR L(0) 4F15178
HTR L(ALS) 4F15179
HTR L(0) 4F15180
HTR DEC17 4F15181
TRA CP0540 GO MODIFY J 4F15182
CP2000 CLA L(FMP) FLO PT. 4F15183
STO CW+1 4F15184
TSX COMP,B COMPILE FMP SYMJ(S(I)) 4F15185
TRA CP0540 GO MODIFY J. 4F15186
CP2040 LGL 7 OP1(S(I))=SPOP 4F15187
LBT TEST OP1(S(I))12 4F15188
TQP CP2650 LIB OR OPEN FUNCTION 4F15189
TQP CP5000 FN-FUNCTION 4F15190
PXD 0,0 FS-FUNCTION 4F15191
LLS 15 PUT TYPE NO IN ADD(ACC) 4F15192
ORA P( FORM 4...TYPE NO. 4F15193
SLW ARGORG AND STO IN ARGORG 4F15194
ANA MASK2 4F15195
ORA X( FORM 7...TYPE NO. 4F15196
SLW XRSAVE AND STO IN XRSAVE 4F15197
CLA SCRIPL+1,A 4F15198
LBT EXAMINE OP2(S(I))35 4F15199
TRA CP2150 1ST ARG STORED 4F15200
CP2100 TSX CIT00,C 1ST ARG IN ACC 4F15201
HTR L(0) COMPILE STO 4...TYPE NO. + 0 4F15202
HTR L(STO) 4F15203
HTR ARGORG 4F15204
HTR L(0) 4F15205
TXI CP2200,A,-3 GO ON TO OP3(S(I)) 4F15206
CP2150 CAL L(CLA) 4F15207
SLW CW+1 4F15208
TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15209
TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15210
TRA CP2100 4F15211
CP2200 STZ CW RESET CW 4F15212
LXD CP0400,B 4F15213
TXI CP2230,B,3 4F15214
CP2230 TXH CP2500,B,-6 FINISHED WITH S(I) 4F15215
SXD CP0400,B 4F15216
CLA SCRIPL+1,A 4F15217
LBT EXAMINE OP3(S(I))35 4F15218
TRA CP2300 2ND ARG STORED 4F15219
CP2250 TSX CIT00,C 2ND ARG IN MQ 4F15220
HTR L(0) COMPILE STQ 4...TYPE NO. + 1 4F15221
HTR L(STQ) 4F15222
HTR ARGORG 4F15223
HTR 2E18 4F15224
TXI CP2350,A,-3 GO ON TO SYM4(S(I)) 4F15225
CP2300 CAL L(LDQ) 4F15226
SLW CW+1 4F15227
TSX AC0000,C ADDRESS COMPILE SYM3(S(I)) 4F15228
TSX COMP,B COMPILE LDQ SYM3(S(I)) 4F15229
TRA CP2250 4F15230
CP2350 CLA DECMI2 INITIALIZE DEC(P(CNTR) TO 2 4F15231
SLW P(CNTR 4F15232
CP2370 LXD CP0400,B 4F15233
TXI CP2390,B,3 4F15234
CP2390 TXH CP2500,B,-6 FINISHED WITH S(I) 4F15235
SXD CP0400,B 4F15236
CAL L(CLA) 4F15237
SLW CW+1 4F15238
TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)), J=4,... 4F15239
TSX COMP,B COMPILE CLA SYMJ(S(I)), J=4,... 4F15240
TSX CIT00,C COMPILE STO 4...TYPE NO. + J-2, J=4,... 4F15241
HTR L(0) 4F15242
HTR L(STO) 4F15243
HTR ARGORG 4F15244
HTR P(CNTR 4F15245
CLA P(CNTR UPDATE P(CNTR 4F15246
ADD 2E18 4F15247
STO P(CNTR 4F15248
TXI CP2370,A,-3 4F15249
CP2500 LXD 3QBAR,A FINISHED WITH S(I) 4F15250
CAL L(SXD) 4F15251
SLW CW+1 4F15252
CAL XRSAVE 4F15253
SLW CW+2 4F15254
CAL L(4) 4F15255
SLW CW+3 4F15256
TSX COMP,B COMPILE SXD 7...TYPE NO. , 4 4F15257
CAL L(TSX) 4F15258
SLW CW+1 4F15259
CAL SCRIPL+2,A 4F15260
SLW CW+2 4F15261
TSX COMP,B COMPILE TSX SYM1(S(I)),4 4F15262
CAL L(LXD) , 4F15263
SLW CW+1 4F15264
CAL XRSAVE 4F15265
SLW CW+2 4F15266
TRA CP6000 4F15267
CP5830 TXI ES0000,0,0 4F15268
REM 4F15269
CP2650 LGL 20 TEST OPI(S(I))33 4F15270
TQP CP3060 0... LIB. SBRTN 4F15271
CLS CW 1... OPEN SBRTN 4F15272
STO CW CW TO -CW 4F15273
CLA SCRIPL-1,A 4F15274
STO CW+2 4F15275
TSX COMP,B COMPILE FUNCTION NAME 4F15276
STZ CW RESET CW 4F15277
LXD CP0400,B 4F15278
TXL CP2930,B,-9 4F15279
CAL ALL1 OPEN UNIVARIATE FUNCTION 4F15280
SLW CW 4F15281
CLA SCRIPL+1,A 4F15282
LBT EXAMINE OP2(S(I))35 4F15283
TRA CP2900 0... ARG STORED 4F15284
ARS 1 1... ARG NOT STORED 4F15285
LDQ ADPLUS 4F15286
LBT 4F15287
TRA CP2860 4F15288
LDQ ADSTAR 4F15289
CP2860 STQ CW+2 4F15290
STZ CW+3 4F15291
CP2880 TSX COMP,B COMPILE ACC OR MQ INDICATOR 4F15292
STZ CW RESET CW 4F15293
TRA ES0000 4F15294
CP2900 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15295
TRA CP2880 GO COMPILE SYM2(S(I)) 4F15296
CP2930 TSX AC0000,C OPEN MULTIVARIATE FUNCTION 4F15297
LXD CP0400,B 4F15298
TXI CP2960,B,3 4F15299
CP2960 TXH CP3000,B,-6 4F15300
SXD CP0400,B 4F15301
TSX COMP,B COMPILE SYMJ(S(I)) 4F15302
TXI CP2930,A,-3 4F15303
CP3000 CAL ALL1 4F15304
SLW CW 4F15305
TSX COMP,B COMPILE LAST ARGUMENT NAME 4F15306
STZ CW RESET CW 4F15307
TRA ES0000 GO TO END-OF-SEGMENT SBRTN 4F15308
CP3060 TXL CP3350,B,-9 4F15309
CLA SCRIPL+1,A CLOSED UNIVARIATE FUNCTION 4F15310
LBT EXAMINE OP2(S(I))35 4F15311
TRA CP3280 0... ARG STORED 4F15312
CP3100 CLA L(SXD) 1... ARG IN ACC 4F15313
STO CW+1 4F15314
CLA X( 4F15315
STO CW+2 4F15316
CLA L(4) 4F15317
STO CW+3 4F15318
TSX COMP,B COMPILE SXD7...0,4 4F15319
CLA L(TSX) 4F15320
STO CW+1 4F15321
CLA SCRIPL-1,A 4F15322
STO CW+2 4F15323
TSX COMP,B COMPILE TSX SYM1(S(I)),4 4F15324
TRA CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15325
CP3280 CLA L(CLA) 4F15331
STO CW+1 4F15332
TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15333
TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15334
STZ CW RESET CW 4F15335
TRA CP3100 GO COMPILE SXD,TSX,LXD SEQUENCE 4F15336
CP3350 TXL CP3560,B,-12 4F15337
CLA SCRIPL+1,A CLOSED BIVARIATE FUNCTION 4F15338
LBT EXAMINE OP2(S(I))35 4F15339
TRA CP3450 0... ARG1 STORED 4F15340
CP3390 CLA L(LDQ) 1... ARG1 IN ACC 4F15341
STO CW+1 4F15342
TXI CP3420,A,-3 4F15343
CP3420 TSX AC0000,C ADDRESS COMPILE SYM3(S(I)) 4F15344
TSX COMP,B COMPILE LDQ SYM3(S(I)) 4F15345
TXI CP3100,A,3 GO COMPILE SXD,TSX,LXD SEQUENCE 4F15346
CP3450 CLA SCRIPL+4,A 4F15347
LBT EXAMINE OP3(S(I))35 4F15348
TRA CP3490 0... ARG2 STORED 4F15349
TRA CP3280 1... ARG2 IN MQ 4F15350
CP3490 CLA L(CLA) 4F15351
STO CW+1 4F15352
TSX AC0000,C ADDRESS COMPILE SYM2(SI))) 4F15353
TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15354
STZ CW REST CW 4F15355
TRA CP3390 GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE 4F15356
CP3560 CLA SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION 4F15357
LBT EXAMINE OP2(S(I))35 4F15358
TXI CP3820,A,-6 0... ARG1 STORED 4F15359
TXI CP3600,A,-6 1... ARG1 IN ACC 4F15360
CP3600 CLA DECMI2 4F15361
STO P(CNTR INITIALIZE P(CNTR TO -2 4F15362
CP3620 CLA L(LDQ) 4F15363
STO CW+1 4F15364
TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,... 4F15365
TSX COMP,B COMPILE LDQ SYMJ(S(I)) 4F15366
CLA L(STQ) 4F15367
STO CW+1 4F15368
CLA P( 4F15369
STO CW+2 4F15370
CLA P(CNTR 4F15371
STO CW+3 4F15372
SUB 2E18 4F15373
STO P(CNTR 4F15374
TSX COMP,B COMPILE STQ 4...0-(J-2) 4F15375
LXD CP0400,B 4F15376
TXI CP3770,B,3 4F15377
CP3770 TXL CP3800,B,-12 4F15378
LXD 3QBAR,A FINISHED WITH ARG VECTOR 4F15379
TXI CP3390,A,-3 4F15380
CP3800 SXD CP0400,B 4F15381
TXI CP3620,A,-3 GO PICK UP NEXT ARG. 4F15382
CP3820 CLA SCRIPL-2,A 4F15383
LBT EXAMINE OP3(S(I))35 4F15384
TXI CP4070,A,6 0... ARG2 STORED 4F15385
CLA DECMI2 1... ARG2 IN MQ 4F15386
STO P(CNTR 4F15387
CP3870 CLA L(CLA) 4F15388
STO CW+1 4F15389
TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,... 4F15390
TSX COMP,B COMPILE CLA SYMJ(S(I)) 4F15391
CLA L(STO) 4F15392
STO CW+1 4F15393
CLA P( 4F15394
STO CW+2 4F15395
CLA P(CNTR 4F15396
STO CW+3 4F15397
SUB 2E18 4F15398
STO P(CNTR 4F15399
TSX COMP,B COMPILE STO 4...0-(J-2) 4F15400
LXD CP0400,B 4F15401
TXI CP4020,B,3 4F15402
CP4020 TXL CP4050,B,-12 4F15403
LXD 3QBAR,A FINISHED WITH ARG VECTOR 4F15404
TXI CP3280,A,-3 4F15405
CP4050 SXD CP0400,B 4F15406
TXI CP3870,A,-3 GO PICK UP NEXT ARG 4F15407
CP4070 CLA L(CLA) 4F15408
STO CW+1 4F15409
TSX AC0000,C ASDRESS COMPILE SYM2(S(I)) 4F15410
TSX COMP,B COMPILE CLASYM2(S(I)) 4F15411
STZ CW RESET CW 4F15412
TXI CP3600,A,-6 4F15413
CP4140 LGL 27 OP1(S(I))=** 4F15414
TQP CP4410 CLOSED SBRTN SINCE OP1(S(I))33=0 4F15415
LBT OPEN SBRTN SINCE OP1(S(I))33=1 4F15416
TRA CP4200 BASE FIX PT SINCE OP1(S(I))32=0 4F15417
CLA STRSTR BASE FLO PT SINCE OP1(S(II)I32=1 4F15418
TRA CP4210 4F15419
CP4200 CLA ADSTAR 4F15420
CP4210 STO CW+1 4F15421
LGL 2 EXAMINE OP1(S(I))35 4F15422
TQP CP4310 0... BASE STORED 4F15423
LDQ ADSTAR 1... BASE NOT STORED 4F15424
LBT EXAMINE OP1(S(I))34 4F15425
LDQ ADPLUS 0... BASE IN ACC 4F15426
STQ CW+2 1...BASE IN MQ 4F15427
STZ CW+3 4F15428
TRA CP4320 4F15429
CP4310 TSX AC0000,C ADDRESS COMPILE SYM1(S(I)) 4F15430
CP4320 CLS CW 4F15431
STO CW CW TO -CW 4F15432
TSX COMP,B COMPILE BASE 4F15433
STZ CW RESET CW 4F15434
CLA SCRIPL+5,A 4F15435
STO CW+2 4F15436
TSX COMP,B COMPILE FIX PT CONSTANT EXPONENT 4F15437
STZ CW+1 RESET CW+1 4F15438
TRA ES0000 4F15439
CP4410 LGL 3 CLOSED EXP. SBRTN 4F15440
LBT EXAMINE OP1(S(I))35 4F15441
TRA CP4860 0... BASE STORED 4F15442
CP4440 CLA L(LDQ) 1... BASE IN ACC. 4F15443
STO CW+1 4F15444
TXI CP4470,A,-3 4F15445
CP4470 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15446
TSX COMP,B COMPILE LDQ SYM2 (S(I)) 4F15447
CP4490 CLA L(SXD) 4F15448
STO CW+1 4F15449
CLA X( 4F15450
STO CW+2 4F15451
CLA L(4) 4F15452
STO CW+3 4F15453
TSX COMP,B COMPILE SXD 7...0,4 4F15454
CLA L(TSX) 4F15455
STO CW+1 4F15456
CLA SCRIPL+1,A 4F15457
ARS 3 4F15458
LBT EXAMINE OP2(S(I))32 4F15459
TXI CP4660,A,3 0... 4F15460
CLA FLFL 1... FLO**FLO 4F15461
LDQ SCRIPL-2,A EXAMINE OP1(S(I))32 TO CHECK 4F15462
RQL 32 FOR MIXED EXPONENTIAL EXPRESSION 4F15463
TQP MC0310+2 ERROR FIX PT BASE, FLOAT EXP. 4F15464
TRA CP4730 4F15465
CP4660 LDQ SCRIPL+1,A 4F15466
RQL 32 EXAMINE OP1(SI)))32 4F15467
CLA FXFX 4F15468
TQP CP4730 0...FX**FX 4F15469
CLA FLFX 1... FL**FX 4F15470
CP4730 STO CW+2 4F15471
STO G 4F15472
TSX COMP,B COMPILE TSX FXFX/FLEX/FLFL,4 4F15473
TSX TET00,A 4F15474
HTR 9 4F15475
TRA CP5780 COMPILE FL0W TRACE INFO AND LXD 7(,4 4F15476
CP4860 CLA L(CLA) 4F15482
STO CW+1 4F15483
TSX AC0000,C ADDRESS COMPILE SYM1(S(I)) 4F15484
TSX COMP,B COMPILE CLA SYM1(S(I)) 4F15485
STZ CW 4F15486
CLA SCRIPL+4,A 4F15487
LBT EXAMINE OP2(S(I))35 4F15488
TXI CP4440,0,0 0...EXP STORED 4F15489
TXI CP4490,A,-3 1... EXP IN MQ 4F15490
REM 4F15491
CP5000 CLA EIFNO FN FUNCTI0N 4F15492
ADD 2E18 UPDATE EIFNO 4F15493
STO EIFNO AND 4F15494
STO FNSW SET FN SWITCH 4F15495
STD 1C KEEP 1C UPDATED FOR PENDING TIFGO ENTRY. 4F15496
LXA L(1),C INITIALIZE STAIX T0 1 4F15497
CP5050 CLA SCRIPL,A EXAMINE TAGJ(S(I)), J=2,... 4F15498
TMI CP5180 NONSUBSCRIPTED 4F15499
SXD CP5830,B SOBSCRIPTED-IS THERE A GENERAL TAG 4F15500
SXD STACTR,C 4F15501
TSX AC0000,C 4F15502
CAL TAGPRT 4F15503
TNZ CP5220 GENERAL TAG PRESENT 4F15504
CAL CW+3 NO GENERAL TAG PRESENT,SO PLACE 4F15505
ARS 11 RELATIVE ADDRESS IN OPJ(S(II)14-28 AND 4F15506
ORA NGTBIT SET OPJ(S(I))10=1 FROM NGTBIT 4F15507
ORS SCRIPL+1,A 4F15508
CP5160 LXD STACTR,C 4F15509
LXD CP5830,B 4F15510
CP5180 TXI CP5190,B,3 4F15511
CP5190 TXH CP5460,B,-6 FINISHED WITH PRELUDE,IF ANY 4F15512
TXI CP5210,C,1 NOT FINISHED-STAIX=STAIX+1 4F15513
CP5210 TXI CP5050,A,-3 GO ON TO NEXT ARGUMENT 4F15513
CP5220 CAL L(PXD) 4F15515
SLW CW+1 4F15516
TSX COMP,B COMPILE PXD SYMJ(S(I)), TAGJ(S(I)) 4F15517
STZ CW RESET CW 4F15518
TSX CIT00,C COMPILE ARS 18 4F15519
HTR L(0) 4F15520
HTR L(ARS) 4F15521
HTR L(0) 4F15522
HTR DEC18 4F15523
TSX CIT00,C COMPILE ADD *-2 4F15524
HTR L(0) 4F15525
HTR L(ADD) 4F15526
HTR PROCTR 4F15527
HTR DECMI2 4F15528
CAL L(STA) 4F15529
SLW CW+1 4F15530
CAL EIFNO 4F15531
ANA MASK1 4F15532
SLW CW+2 4F15533
LXD STACTR,C 4F15534
PXD 0,C 4F15535
SLW CW+3 4F15536
TSX COMP,B COMPILE STA IFN+STAIX 4F15537
TXI CP5160,0,0 GO ON TO NEXT ARGUMENT,IF ANY 4F15538
CP5460 LXD 3QBAR,A 4F15539
CAL L(SXD) 4F15540
SLW CW+1 4F15541
CAL X( 4F15542
SLW CW+2 4F15543
CAL L(4) 4F15544
SLW CW+3 4F15545
TSX COMP,B COMPILE SXD 7,4 4F15546
CAL EIFNO 4F15547
ANA MASK1 4F15548
SLW CW 4F15549
CAL L(TSX) 4F15550
SLW CW+1 4F15551
CAL SCRIPL+2,A 4F15552
SLW CW+2 4F15553
TSX COMP,B COMPILE TSX SYM1(S(I)),4 4F15554
STZ CW RESET CW 4F15555
TXI CP5680,A,-3 POSITION XA TO SYM2(S(I)) 4F15556
CP5680 CLA SCRIPL,A 4F15557
TPL CP5700 4F15558
TSX AC0000,C NONSUBSCRIPTED 4F15559
STACTR TXI CP5720,0,0 4F15560
CP5700 LDQ SCRIPL+1,A SUBSCRIPTED 4F15561
LGL 11 4F15562
LBT 4F15563
LDQ L(0) GENERAL TAG PRESENT 4F15564
STQ CW+3 NO GENERAL TAG PRESENT 4F15565
CAL SCRIPL+2,A 4F15566
SLW CW+2 4F15567
CP5720 TSX COMP,B COMPILE TSX SYMJ(S(I)) , J=2,... 4F15568
LXD CP0400,B 4F15569
TXI CP5750,B,3 4F15570
CP5750 TXH CP5780,B,-6 FINISHED SCANNING 4F15571
SXD CP0400,B 4F15572
TXI CP5680,A,-3 4F15573
CP5780 TSX FLTR00,4 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15574
HTR L(0) 4F15575
HTR L(LXD) 4F15576
HTR X( 4F15577
HTR L(4) 4F15578
ES0000 LXD 3QBAR,A -3Q TO XA 4F15579
SLT 1 4F15580
TRA CP0130 GO TO NEXT SEGMENT 4F15581
CAL SCRIPL,A 4F15582
ANA MASK2 4F15583
TZE ES0160 4F15584
CLA ARERAS S(I) NOT = S(0) 4F15585
STO CW+2 4F15586
CLA PHI(I) 4F15587
STO CW+3 4F15588
CLA L(STQ) 4F15589
SLT 2 4F15590
CLA L(STO) 4F15591
STO CW+1 4F15592
TSX COMP,B COMPILE STO/STQ 1... TYPE NO + PHI(I) 4F15593
TRA CP0130 GO TO NEXT SEGMENT 4F15594
ES0160 LDQ LEFT+2 S(I)=S(0) 4F15595
LGL 12 4F15596
CAS IFSYM IS THIS AN IF STATEMENT 4F15597
TRA ES0200 4F15598
TRA ES1500 4F15599
ES0200 CAS CALLER IS THIS A CALL STATEMENT 4F15600
TRA ES0210 4F15601
TRA ES1520 4F15602
ES0210 CAS SAPSYM 4F15603
TRA ES0220 4F15604
TRA ES1710 4F15605
ES0220 ARS 6 4F15606
LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F15607
TXH ES1300,C,0 YES 4F15608
CAS L(H) NOT A FUNCTION STATEMENT 4F15609
CAS L(O) 4F15610
TRA ES0300 4F15611
TRA ES0300 4F15612
SLT 4 4F15613
TRA ES0870 4F15614
ES0710 CLA L(STQ) FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT 4F15615
SLT 2 4F15616
ES0730 CLA L(STO) 4F15617
STO CW+1 4F15618
CLA LEFT 4F15619
STO TAGWRD 4F15620
CLA LEFT+1 4F15621
STO OPWORD 4F15622
CLA LEFT+2 4F15623
STO SYMWRD 4F15624
TSX AC0060,C ADDRESS COMPILE VAR1ABLE ON LEFT 4F15625
TSX COMP,B COMPILE STO/STQ LEFT+2 4F15626
TRA ES1590 EXIT TO FETCH STATE A 4F15627
ES0870 SLT 2 FX PT ON LEFT, FLO PT ON RIGHT 4F15628
TRA ES0990 4F15629
CLA L(STQ) RESULT ON RIGHT APPEARS IN MQ 4F15630
STO CW+1 4F15631
CLA X( 4F15632
STO CW+2 4F15633
STZ CW+3 4F15634
TSX COMP,B COMPILE STQ 700000 4F15635
CLA L(CLA) 4F15636
STO CW+1 4F15637
TSX COMP,B COMPILE CLA 700000 4F15638
ES0990 TSX CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN 4F15639
HTR L(0) RESULT ON RIGHT IS IN ACC. 4F15640
HTR L(UFA) 4F15641
HTR O( 4F15642
HTR L(0) 4F15643
TSX CIT00,C 4F15644
HTR L(0) 4F15645
HTR L(LRS) 4F15646
HTR L(0) 4F15647
HTR L(0) 4F15648
TSX CIT00,C 4F15649
HTR L(0) 4F15650
HTR L(ANA) 4F15651
HTR O( 4F15652
HTR 2E18 4F15653
TSX CIT00,C 4F15654
HTR L(0) 4F15655
HTR L(LLS) 4F15656
HTR L(0) 4F15657
HTR L(0) 4F15658
TSX CIT00,C 4F15659
HTR L(0) 4F15660
HTR L(ALS) 4F15661
HTR L(0) 4F15662
HTR DEC18 4F15663
TRA ES0610 4F15664
ES0300 SLT 4 4F15665
TRA ES0710 4F15666
ES0320 SLT 2 FLO PT ON LEFT, FX PT ON RIGHT 4F15667
TRA ES0440 4F15668
CLA L(STQ) RESULT ON RIGHT APPEARS IN MQ 4F15669
STO CW+1 4F15670
CLA X( 4F15671
STO CW+2 4F15672
STZ CW+3 4F15673
TSX COMP,B COMPILE STQ 700000 4F15674
CLA L(CLA) 4F15675
STO CW+1 4F15676
TSX COMP,B COMPILE CLA 700000 4F15677
ES0440 TSX CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN 4F15678
HTR L(0) RESULT ON RIGHT IS IN ACC 4F15679
HTR L(LRS) 4F15680
HTR L(0) 4F15681
HTR DEC18 4F15682
TSX CIT00,C 4F15683
HTR L(0) 4F15684
HTR L(ORA) 4F15685
HTR O( 4F15686
HTR L(0) 4F15687
TSX CIT00,C 4F15688
HTR L(0) 4F15689
HTR L(FAD) 4F15690
HTR O( 4F15691
HTR L(0) 4F15692
ES0610 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F15693
TXL ES0730,C,0 NO 4F15694
ES0630 CLA L(TRA) YES 4F15695
STO CW+1 4F15696
STZ CW+2 4F15697
CAL 2E18 4F15698
ORA L(4) 4F15699
SLW CW+3 4F15700
TSX COMP,B COMPILE TRA 1,4 4F15701
TRA ES1590 EXIT TO FETCH STATE A 4F15702
ES1300 SUB L(X) 4F15703
TZE ES1360 4F15704
SLT 4 4F15705
TRA ES1380 4F15706
TRA ES0320 4F15707
ES1360 SLT 4 4F15708
TRA ES0870 4F15709
ES1380 SLT 2 4F15710
TRA ES0630 4F15711
CLA L(STQ) 4F15712
STO CW+1 4F15713
CLA X( 4F15714
STO CW+2 4F15715
STZ CW+3 4F15716
TSX COMP,B COMPILE STQ 700000 4F15717
CLA L(CLA) 4F15718
STO CW+1 4F15719
TSX COMP,B COMPILE CLA 700000 4F15720
TRA ES0630 4F15721
ES1500 TSX TET00,1 * GO TO PROGRAM TET TO ENTER 1C,1C+1 4F15722
PZE 2 INTO TIFGO TABLE (TABLE 2). 4F15723
TRA ES1530 4F15724
ES1520 LXD EIFNO,4 4F15725
SXD CALLNM,4 PREPARE ENTRY FOR TABLE OF CALL FIRST AND 4F15726
TSX TET00,1 LAST IFN NUMBERS. 4F15727
16 4F15728
ES1530 SLT 2 4F15729
TRA ES1590 EXIT T0 FETCH STATE A 4F15730
TSX CIT00,C COMPILE LLS 37 4F15731
L(0) 4F15732
L(STQ) 4F15733
X( 4F15734
L(0) 4F15735
TSX CIT00,4 4F15736
L(0) 4F15737
L(CLA) 4F15738
X( 4F15739
L(0) 4F15740
ES1590 CLA FNSW 4F15741
TZE MTR000 4F15742
CLA F-1 4F15743
SUB 5BLANS 4F15744
TZE MTR000 4F15745
CLS EIFNO 4F15746
STO EIFNO 4F15747
TSX TET00,A 4F15748
HTR 0 4F15749
CLS EIFNO 4F15750
STO EIFNO 4F15751
TRA MTR000 4F15752
ES1710 LXD BBOX,B 4F15753
CLA OPNWRD 4F15754
STO CIB-3,B 4F15755
TRA MTR000 4F15756
REM 4F15757
COMP TSX CIT00,C 4F15758
HTR CW 4F15759
HTR CW+1 4F15760
HTR CW+2 4F15761
HTR CW+3 4F15762
TRA 1,B 4F15763
REM 4F15764
AC0000 CLA SCRIPL,A 4F15765
STO TAGWRD 4F15766
CLA SCRIPL+1,A 4F15767
STO OPWORD 4F15768
CLA SCRIPL+2,A 4F15769
STO SYMWRD 4F15770
AC0060 CAL TAGWRD 4F15771
ANA MASK1 EXTRACT TAGS IN ACC. 4F15772
PBT 4F15773
TRA AC0540 4F15774
PXD 0,0 NON-SUBSCRIPTED SYMBOL 4F15775
LDQ SYMWRD 4F15776
LGL 1 4F15777
LBT 4F15778
TQP AC0460 SYMBOL IS SOME S(K) 4F15779
LGL 11 NON-SUBSCRIPTED EX/INTERNAL VARIABLE 4F15780
SUB L(A() IS THIS A FLO PT CONSTANT 4F15781
TZE AC0410 YES 4F15782
ADD L(A() NO 4F15783
SUB L(I() IS THIS A FIX PT CONSTANT 4F15784
TZE AC0390 YES 4F15785
ADD L(I() NO 4F15786
SUB L(H() IS THIS A HOLLERITH FIELD 4F15787
TZE AC0350 YES 4F15788
LDQ OPWORD NON-SUBSCRIPTD0 EXTERNAL VARIABLE 4F15789
LGL 13 IS THIS A FREE VARIABLE 4F15790
TQP AC0340 NO 4F15791
LLS 15 YES 4F15792
COM 4F15793
SUB L(1) 4F15794
PAX 0,B 4F15795
PXD 0,B 4F15796
SLW CW+3 STORE ARGUMENT BUFFER RELATIVE ADDRESS 4F15797
LXD BK,B 4F15798
CAL FORSUB-1,B 4F15799
ANA MASK2 EXTRACT FUNCTION STATEMENT TYPE 4F15800
ORA P( 4F15801
AC0320 SLW CW+2 4F15802
TRA 1,C RETURN 4F15803
AC0340 STZ CW+3 NON-SUBSCRIPTED, REAL VARIABLE 4F15804
CAL SYMWRD 4F15805
TRA AC0320 4F15806
AC0350 CAL H( 4F15807
TRA AC0420 4F15808
AC0390 CLA I( FIX PT INTERNAL VARIABLE 4F15809
TRA AC0420 4F15810
AC0410 CLA A( FLO PT INTERNAL VARIABLE 4F15811
AC0420 STO CW+2 4F15812
RQL 6 4F15813
STQ CW+3 4F15814
TRA 1,C RETURN 4F15815
AC0460 LGL 35 SYMBOL IS SOME S(K). 4F15816
TDRADD PAX 0,B 4F15817
CAL CPBETA,B 4F15818
ANA MASK1 EXTRACT PHI(K) 4F15819
SLW CW+3 4F15820
CAL ARERAS 4F15821
TRA AC0320 4F15822
AC0540 SLW TAGWRD SUBSCRIPTED VARIABLE 4F15823
LDQ TAGWRD 4F15824
PXD ,0 CLEAR AC. 4F15825
LGL 12 I-TAU TAGS TO AC. 4F15826
SLW CW+3 STORE FOR NEXT CIT ENTRY. 4F15827
TQP *+3 4F15828
STZ CW+3 4F15829
CAL 2E18 REPLACE NULL TAG. 4F15830
SLW TAGPRT SAVE FOR LATER USE. 4F15831
LGL 1 4F15832
PXD ,0 CLEAR AC. 4F15833
LGL 8 FORM TWICE SIGMA TAG. 4F15834
ALS 1 4F15835
ADM SIG1IX-2 FORM BASE OF TABLE + SIGMA TAG. 4F15836
STA SDRADD 4F15837
SDRADD PXD **,0 4F15838
RDR 2 4F15839
LDA SDRADD 4F15840
CAD DUMP 4F15841
COM 4F15842
CAD DUMP 4F15843
COM 4F15844
TZE *+2 CHECK SUM TEST. 4F15845
TSX DIAG,4 ERROR SIGMA1 CKSUM FAILS 4F15846
CAL DUMP 4F15847
ORS CW+3 ADD RELATIVE ADDRESS TO I-TAU TAG. 4F15848
CLA SYMWRD MOVE VARIABLE NAME FOR NEXT CIT ENTRY. 4F15849
STO CW+2 4F15850
TRA 1,4 RETURN TO CALLER 4F15851
REM 4F158511
CP6000 TSX FLTR00,4 COMPILE FLOW TRACE INFORMATI0N AND THEN 4F158512
CW COMPILE LXD 7(TYPE =,4 4F158513
CW+1 4F158514
CW+2 4F158515
CW+3 4F158516
TRA ES0000 4F158517
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15852
ENDD BSS 0 4F158525
REM 4F15853
ORG 3184+4096 4F15854
FNSW BSS 1 4F15855
P(CNTR BSS 1 4F15856
ARGORG BSS 1 4F15857
XRSAVE BSS 1 4F15858
CW BSS 4 4F15859
TAGWRD BSS 1 4F15860
OPWORD BSS 1 4F15861
SYMWRD BSS 1 4F15862
TAGPRT BSS 1 4F15863
CPBETA BSS 300 4F15864
SCRIPL BSS 600 4F15865
REM END OF ARITHMETIC / STATE D. 4F15866
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15867
REM 4F15868
REM SYNONYMS USED BY SECTION ONE. 4F15869
1E SYN ERASE COMMON WORKING STORAGE. 4F15870
1TOCS SYN 4 ENTRY TO SYSTEM TAPE MONITOR. 4F15871
2E SYN ERASE+1 COMMON WORKING STORAGE. 4F15872
2P SYN I( 4F15873
36ONES SYN ALL1 4F15874
3E SYN ERASE+2 COMMON WORKING STORAGE. 4F15875
3QBAR SYN 3LBAR 4F15876
4E SYN ERASE+3 COMMON WORKING STORAGE. 4F15877
A EQU 1 4F15878
ABLANK SYN BLANK 4F15879
ACOMMA SYN COMMA 4F15880
ADD SYN L(ADD) 4F15881
AEQUAL SYN EQUAL 4F15882
ALPAR SYN OPEN 4F15883
ARITH SYN STATEB 4F15884
ARPAR SYN CLOS 4F15885
ARS SYN L(ARS) 4F15886
B EQU 2 4F15887
C EQU 4 4F15888
CAL SYN L(CAL) 4F15889
CIT SYN CIT00 4F15890
CITMQR SYN E1C ERASABLE STORAGE. 4F15891
CITTAP SYN 147 COMPILED INSTRUCTION TAPE. 4F15892
CITXR1 SYN ERASE+1 ERASABLE STORAGE. 4F15893
CITXR2 SYN ERASE+2 ERASABLE STORAGE. 4F15894
CPY SYN L(CPY) 4F15895
D1 SYN 2E18 4F15896
D12 SYN ERASE+1 COMMON WORKING STORAGE. 4F15897
D18 SYN DEC18 4F15898
D3 SYN ERASE+2 COMMON WORKING STORAGE. 4F15899
DED SYN L(DED) 4F15900
DIM1 SYN 0200 DRUM TABLE ORIGIN -DRTABS,DIM.SR. 4F15905
DIM2 SYN 0500 DRUM TABLE ORIGIN -DRTABS,DIM.SR. 4F15906
DIM3 SYN 0800 DRUM TABLE ORIGIN -DRTABS,DIM.9R. 4F15907
DIMCTR SYN ERASE COMMON WORKING STORAGE. 4F15908
DMP SYN E( 4F15909
DOE SYN ERASE COMMON WORKING STORAGE. 4F15910
DRCKSM SYN ERASE+3 COMMON WORKING STORAGE. 4F15911
DRMADR SYN ERASE+4 ERASABLE STORAGE. 4F15912
DRMERC SYN L(5) NUMBER OF DRUM READING ATTEMPTS. 4F15913
DRSYM SYN ERASE COMMON WORKING STORAGE. 4F15914
E1TDR SYN ERASE COMMON WORKING STORAGE. 4F15915
E2C SYN ERASE+1 COMMON WORKING STORAGE. 4F15916
E2TDR SYN ERASE+1 COMMON WORKING STORAGE. 4F15917
E3C SYN ERASE+2 COMMON WORKING STORAGE. 4F15918
E3TDR SYN ERASE+2 COMMON WORKING STORAGE. 4F15919
EKE SYN ERASE+1 COMMON WORKING STORAGE. 4F15920
ENONO SYN ERASE+3 COMMON WORKING STORAGE. 4F15921
FEOD SYN ERASE+4 COMMON WORKING STORAGE. 4F15922
FIXCON SYN 0002 DRUM TABLE ORIGIN -DRTABS. 4F15923
FLOCON SYN 202 DRUM TABLE ORIGIN -DRTABS. 4F15924
FXCODR SYN 2 4F15925
H SYN ERASE+2 COMMON WORKING STORAGE. 4F15926
H( SYN ADSPOP 4F15927
HPR SYN L(HPR) 4F15928
LDA SYN L(LDA) 4F15929
LXD SYN L(LXD) 4F15930
L(10) SYN TEN 4F15931
L(11) SYN EQUAL 4F15932
L(12) SYN MINUS 4F15933
L(1DI SYN 2E18 4F15934
L(63) SYN ENDMK 4F15935
MEMORG SYN 1824 MEMORY ORIGIN FOR ALL STATES. 4F15936
MSK SYN MASK2 4F15937
MTR000 SYN STATEA 4F15938
N SYN ERASE+3 COMMON WORKING STORAGE. 4F15943
PLUS SYN 12Z 4F15945
PXD SYN L(PXD) 4F15946
RAXR4 SYN ERASE COMMON WORKING STORAGE. 4F15947
SIGMA1 SYN 0662 DRUM TABLE ORIGIN -DRTABS. 4F15948
SR6WRK SYN ERASE+1 ERASABLE STORAGE. 4F15949
ST SYN L(8) 4F15950
STA SYN L(STA) 4F15951
STCKSM SYN ERASE+4 COMMON WORKING STORAGE. 4F15952
TABTAP SYN 148 TABLE TAPE. 4F15953
TAG4 SYN 2E17 4F15954
TAU1 SYN 0000 DRUM TABLE ORIGIN -DRTABS. 4F15955
TAU2 SYN 0300 DRUM TABLE ORIGIN -DRTABS. 4F15956
TAU3 SYN 0750 DRUM TABLE ORIGIN -DRTABS. 4F15957
TERC SYN L(5) TAPE ERROR COUNTER. 4F15958
TETMQR SYN ERASE+3 ERASABLE STORAGE. 4F15959
TETWRK SYN ERASE+2 ERASABLE STORAGE. 4F15960
TETXR2 SYN ERASE ERASABLE STORAGE. 4F15961
TETXR4 SYN ERASE+1 ERASABLE STORAGE. 4F15962
TIX SYN L(TIX) 4F15963
ZER SYN O( 4F15964
.. EQU 0 4F15965
REM END OF SYNONYMS USED BY SECTION ONE. 4F15966
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15967
REM 4F15968
REM END OF SECTION ONE. 4F15969
END 4F15970
REM 704 FORTRAN II, SECTION V, TAG ANALYSIS, 8-1-6-2 F5G00010
REM DAVID STERNLIGHT I.B.M. WORLD HEADQUARTERS 5 N0V 58. F5G00020
REM INTRODUCTION F5G00030
REM TNE GENERAL PHILOSOPHY OF SECTI0N 5 IS TO REDUCE A PROGRAM F5G00040
REM USING AS MANY INDEX REGISTERS AS NEEDED TO ONE USING 3 INDEX F5G00050
REM REGISTERS IN AS EFFICIENT A MEANS AS POSSIBLE, CALLING ON F5G00060
REM INDEX CELLS WHICH ARE STORAGE LOCATIONS, TO RETAIN DISPLACED F5G00070
REM INFORMATION WHEN THE CONTENTS OF AN INDEX REGISTER MUST BE F5G00080
REM REPLACED. THUS THE INDEX CELLS CORRESPOND TO ORIGINAL INDEX F5G00090
REM REGISTERS USED IN THE FORTRAN OBJECT PROGRAM BEFORE SECTION5.F5G00100
REM THE MAIN PROBLEMS SECTION 5 HANDLES ARE THOSE OF KEEPING F5G00110
REM INDEX CELLS UP TO DATE, AND EFFICIENTLY SEEING TO IT THAT THEF5G00120
REM 3 INDEX REGISTERS CONTAIN THE PROPER INFORMATION AT ALL F5G00130
REM TIMES FOR THE CORRECT EXECUTION 0F TAGGED INSTRUCTIONS. F5G00140
REM GENERALLY, SECTION 5 COMPILES SX,S WHENEVER AN INDEX CELL F5G00150
REM MUST BE UPDATED SO THAT IF AN INDEX QUANTITY IS NEEDED AND F5G00160
REM NOT PRESENT IN AN INDEX REGISTER, AN LX CAN BE USED WITHOUT F5G00170
REM CONCERN ABOUT WHAT IS WIPED OUT. THE SKILLFUL PLACEMENT OF F5G00180
REM THESE SX,S IS ONE OF THE MAJOR JOBS OF SECTION 5. F5G00190
REM THE PROGRAM IS ANALYZED USING THE CONCEPT OF BASIC BLOCKS, F5G00200
REM PROGRAM UNITS HAVING A SINGLE ENTRY AND EXIT POINT, AS DEFIN-F5G00210
REM ED BY SECTION 4. THE LINKS BETWEEN BASIC BLOCKS ARE LABELED F5G00220
REM BY FREQUENCY IN SECTION 4, BY ACTUAL PROGRAM SIMULATION. F5G00230
REM SECTION 5 ANALYSES THE OBJECT PROGRAM BY STARTING WITH THE F5G00240
REM HIGHEST FREQUENCY LINK BETWEEN BB,S AND EXPANDING OUTWARD F5G00250
REM ALONG PREDECESSOR AND SUCCESSOR BASIC BLOCKS. THE AREA FORM-F5G00260
REM ED IN THIS MANNER IS A PORT1ON OF THE OBJECT PROGRAM AND IS F5G00270
REM CALLED A LOOPLIST. THIS IS TREATED TO REDUCE THE NUMBER OF F5G00280
REM INDEX REGISTERS TO 3, IS THEN CALLED A REGION, AND CAN ENTER F5G00290
REM FUTURE LOOPLISTS. THE LOOPLIST PROCESS IS CONTINUED, F5G00300
REM CONSTANTLY EXPANDING THE TREATED AREA OF THE OBJECT PROGRAM F5G00310
REM BY THE INCLUSION OF ALREADY TREATED REGIONS IN THE CURRENT F5G00320
REM LOOPLIST WHERE APPROPRIATE TO THE FLOW OF THE PROGRAM. THESEF5G00330
REM REGIONS BECOME A PART OF THIS LATEST LOOPLIST,S REGION AT THEF5G00340
REM END OF THE LOOPLIST TREATMENT, FORMING A NEW, SINGLE REGION. F5G00350
REM FINALLY THE ENTIRE PR0GRAM HAS BEEN TREATED. A FURTHER PRIN-F5G00360
REM CIPLE USED BY SECTION 5 IS TO COMPILE THE UPDATING SX,S AS F5G00370
REM LATE AS POSSIBLE TO TRADE OBJECT PROGRAM SPACE FOR TIME, F5G00380
REM SINCE THE LATER THE SX IS COMPILED, THE LOWER THE FREQUENCY F5G00390
REM OF TRANSFERS BETWEEN BLOCKS, HENCE THE FEWER THE EXECUTIONS F5G00400
REM OF THE SX. F5G00410
REM LPLST IS FORMED IN CORES BY SECTION 5 PART 1. IT SUMMARIZES F5G00420
REM EACH NEW REGION TO BE TREATED. PREFIX CODES ARE 2=OPAQUE F5G00430
REM REGION, 1=TRANSPARENT REGION (AT LEAST ONE INDEX REGISTER F5G00440
REM FREE) AND PREFIX CODE 0=BASIC BLOCKS. THE BB NUMBER F5G00450
REM IS CONTAINED IN THE DECREMENT OR ADDRESS. 77777 INDICATES F5G00460
REM LPLST ENTRY IS AT END OF REGION OR LPLST EXIT IS AT BEGINNINGF5G00470
REM OF REGION, SPECIFIED BY BB NUMBER. 000000 INDICATES NOTHING F5G00480
REM INTERVENING BETWEEN THAT POINT AND THE NEXT DECREMENT OR F5G00490
REM ADDRESS. A WORD OF FULL SEVENS, CALLED SENTINEL, TERMINATES F5G00500
REM EPLST. THUS A NEW REGION TO BE TREATED MIGHT HAVE A LPLST F5G00510
REM BEFORE TREATMENT LIKE F5G00520
REM 277777 000014 F5G00530
REM 000023 000000 F5G00540
REM 100026 000033 F5G00550
REM 200003 777777 F5G00560
REM 777777 777777. F5G00570
REM TNIS MEANS ENTRY IN OPAQUE REGION ENDING IN BB 14, THEN COMESF5G00580
REM BB23, THEN IMMEDIATELY FOLLOWS A TRANSPARENT REGION FROM F5G00590
REM BB 26 TO BB 33, THEN AN OPAQUE REGION ENTERING AT BB 3, F5G00600
REM TERMINATING THIS LPLST. WHEN TREATED, THIS ENT1RE LPLST F5G00610
REM BECOMES A NEW, SINGLE REGION, ENCOMPASSING THE OLD REGIONS F5G00620
REM AND BB,S IN IT, WHICH WILL DISAPPEAR. F5G00630
REM REG TABLE, IN CORES, HAS 1 WORD PER EXISTING REGION. PREFIX F5G00640
REM INDICATES EXISTENCE IN REGI0N OF LX,S TO THE IR,S , F5G00650
REM DECREMENT=FIRST BB NO. IN REGION, TAG BITS=EMPTINESS F5G00660
REM THROUGHOUT REGION OF IR,S. F5G00670
REM INPUT TABLES INCLUDE PRED, SUCC, BBB, ALL ON DRUM. F5G00680
REM SUCC IS FIRST DRUM TABLE. IT IS PREPARED BY SECTION 4, F5G00690
REM ORDERED ON BB NUMBER. IT IS PING PONGED BETWEEN DRUM AND F5G00700
REM CORES BY THE SE6 ROUTINE. F5G00710
REM THE WORD FORMAT IS SIGN BIT MADE NEGATIVE BY X89 WHEN A LINK F5G00720
REM IS TREATED. BITS 1-14=FREQUENCY OF LINK, ADDRESS=NO. OF F5G00730
REM SUCCESSOR BASIC BLOCK. F5G00740
REM PRED IS THE SECOND DRUM TABLE. IT IS PREPARED BY SECTION 4. F5G00750
REM PRED IS ORDERED ON BB NUMBER AND PING PONGED BETWEEN DRUM ANDF5G00760
REM CORES BY THE SE5 ROUTINE. F5G00770
REM WORD FORMAT IS SIGN BIT NEGATIVE WHEN LINK TREATED. F5G00780
REM BITS 1-14=FREQUENCY OF LINK. BITS 15-17 CALL FOR LX,S TO F5G00790
REM THE 3 INDEX REGISTERS AND BITS 18-20 CALL FOR SX,S TO APPRO- F5G00800
REM PRIATE INDEX CELLS. THESE SX,S WILL LATER BE COMPILED F5G00810
REM BETWEEN BASIC BLOCKS BY PART 4 OF SECTION 5. THE ADDRESS F5G00820
REM CONTAINS THE NUMBER OF THE PREDECESSOR BASIC BLOCK. F5G00830
REM BBB IS THE THIRD DRUM TABLE, AND IS PREPARED BY SECTION 4. F5G00840
REM THERE IS A 6 WORD ENTRY FOR EACH BB, AND A FINAL DUMMY ENTRY.F5G00850
REM THE SE AND SE1 ROUTINES PING PONG BBB BETWEEN DRUM AND CORES.F5G00860
REM WORD FORMAT FROM SECTION 4. FIRST WORD DECR=STARTING POIN, F5G00870
REM IN SUCC, ADDRESS=STARTING POINT IN PRED OF ENTRIES F5G00880
REM REFERRING TO THIS BASIC BLOCK. FIRST WORD PREFIX CONTAINS F5G00890
REM CODE DESCRIBING TYPE OF ENDING BB HAS. CODING IS.... F5G00900
REM 000=DO WITH AN IF, 001=MSE, 010=PROBABILITY BRANCH F5G00910
REM 011=CERTAINTY BRANCH, 100=DO WITHOUT AN IF, 101=GO TO N, F5G00920
REM 110=STOP. SECOND WORD, BITS 12-17=PERMUTATION NUMBERS, F5G00930
REM INITIALIZED TO 33 BY SECTION 4. ADDRESS=ORDINAL NUMBER OF F5G00940
REM FIRST TAGLIST ENTRY BELONGING TO THIS BB. REMAINING WORDS F5G00950
REM INITIALIZED TO ZEROES BY SECTION 4. F5G00960
REM IN SECTION 5 PART 1, FURTHER ENTRIES ARE MADE. SECOND WORD F5G00970
REM BITS S-2 INDICATE IR ACTIVITY IN THIS BB. PERMUTATION NOS. F5G00980
REM MAY UNDERGO CHANGE. WORDS 3-5 RECORD ENTRY AND EXIT CONDS. F5G00990
REM FOR THE 3 INDEX REGISTERS IN THE DECREMENT AND ADDRESS. F5G01000
REM WORD 6 DECR=REGION NUMBER BB CURRENTLY BELONGS TO. F5G01010
REM ADDRESS=NUMBER OF NEXT BB IN REGION. F5G01020
REM STAG IS THE FOURTH DRUM TABLE. INITIALIZED TO ZEROES AT SEC.F5G01030
REM 5 PART 1 START. ONE 4 BIT ENTRY FOR EACH TAGLIST INSTRUCTIONF5G01040
REM IS MADE IN SECTION 5 PART 1 AND READ IN PART 4. BITS S-8 F5G01050
REM CALL FOR AN SX PRECEDING THE TAGLIST INSTRUCTION, BITS 9-17 F5G01060
REM FOR AN LX FOLLOWING. BITS 18-35 IN PAIRS SPECIFY THE INDEX F5G01070
REM REGISTER TAGLIST INSTRUCTION IS TO USE. THUS PRED RECORDS F5G01080
REM INTER BB LX,S AND SX,S AN0 STAG RECORDS INTRA-BB LX,S AND F5G01090
REM SX,S. STAG IS HANOLED BY THE SE4 ROUTINE. F5G01100
REM CMTAG, THE CORE BUFFER FOR TAGLIST, HAS THE SAME WORD F5G01110
REM FORMAT, THAT IS, THE DECREMENT CONTAINS THE INSTRUCTI0N F5G01120
REM CLASS, CODED FROM 0 TO 6, AND THE ADDRESS CONTAINS THE F5G01130
REM SYMBOLIC ADDRESS, AS FOLLOWS, BITS 24-26 CONTAIN TAU 1,2, F5G01140
REM OR 3, AND BITS 27-35 CONTAIN THE NUMBER OF THE ENTRY IN THAT F5G01150
REM TAU TABLE. NOTE THAT IN THE OUTPUT, THE SYMBOLIC ADDRESS OF F5G01160
REM INDEX CELLS IS, TAU 1=G, TAU 2=10, TAU 3=1G, AND THIS F5G01170
REM SYMBOL IS FOLLOWED BY THE NUMBER OF THE ENTRY. THUS A F5G01180
REM TAGLIST ENTRY IN THE ADDRESS OF 003005 BECOMES 1G5, THAT IS, F5G01190
REM TAU 3, ENTRY 5. THE INSTRUCTION CLASSES AS FOLLOWS, IN DECRF5G01200
REM L=LXA,LXD,PAX,PDX. 2=LXP. 3=DED. 4 IS UNUSED BUT AVAIL. F5G01210
REM FOR TNX. 5=ACTIVE INSTR LIKE TIX AND TXI. 6=PASSIVE INSTR. F5G01220
REM A PASSIVE INSTR IS A TAGGED INSTR THAT DOES NOT CHANGE THE F5G01230
REM OONTENTS 0F THE INDEX REGISTER. 7=UNUSED BUT AVAIL. FOR TIX.F5G01240
REM WHEN 7 IS USED FOR A TIX, IT REPRESENTS A TIX USED AS A F5G01250
REM TRANSFER, NOT AN ACTIVE TIX. ACTIVE 1NSTRUCTIONS MAY F5G01260
REM BE RECOGNIZED BY THEIR ADDRESSES, WHICH ARE OF THE FORM *+Q F5G01270
REM WHERE Q IS SOME CONSTANT. F5G01280
REM CORE INFORMATION TRANSFERRED BETWEEN SECTION 4 AND SECTION 5 F5G01290
REM IS IN THE LAST 4 CORE LOCATIONS, CALLED KEYS. F5G01300
REM GIVING DRUM TABLE LENGTHS. TAPE TABLES USED FOR INPUT F5G01310
REM INCLUDE TAGLIST AND CIT. INTERMEDIATE TABLES INCLUDE THE F5G01320
REM ABOVE AND STAG, LPLST, CMTAG, AND REG. CMTAG IS A CORE F5G01330
REM BUFFER FOR TAGLIST. THE DRUM TABLES ALSO APPEAR IN CORE F5G01340
REM IN BUFFER LOADS WHEN THE SOURCE PROGRAM EXCEEDS A CERTAIN F5G01350
REM COMBINATION 0F THE FACTORS OF LENGTH AND COMPLEXITY OF F5G01360
REM TRANSFER STRUCTURE. OUTPUT TABLES INCLUDE CIT ON TAPE. F5G01370
REM TAGLIST, ON TAPE 3, IS HANDLED BY THE S4 SUBROUTINE. IT IS AF5G01380
REM SEQUENTIAL LIST OF ALL TAGGED OBJECT PR0GRAM INSTRUCTIONS F5G01390
REM RESULTING FROM SECTION 3. EACH ENTRY IS ONE WORD. THE F5G01400
REM PREFIX DESCRIBES THE TYPE OF INSTRUCTION AND THE ADDRESS F5G01410
REM CONTAINS SYMBOLIC INDEX REGISTER,S NAME. F5G01420
REM BY USING LARGER MACHINE SIZE THAN 4K, THE PROGRAM F5G01430
REM TABLE SPACE IN CORE CAN BE INCREASED, PROVIDING FASTER F5G01440
REM COMPILING AND REDUCING THE AMOUNT OF DRUM PING PONGING. F5G01450
REM IN ADDITION, SENSE SWITCH 4, WHEN 0OWN, PROVIDES UP TO F5G01460
REM 20 PER CENT FASTER COMPILING ON LARGER SOURCE PROGRAMS, AT F5G01470
REM A NEGLIGIBLE LOSS, IN MOST CASES, IN OBJECT PROGRAM F5G01480
REM EFFICIENCY. THIS SENSE SWITCH HAS NO EFFECT ON SHORTER F5G01490
REM PROGRAMS. F5G01500
REM IN ORDER TO INCREASE TABLE SPACE AS DESCRIBED ABOVE, F5G01510
REM SECTION IV OF FORTRAN, THE FLOW PASS OF TAG ANALYSIS, MUST F5G01520
REM BE ADJUSTED AS TO LENGTHS OF DRUM TABLE BUFFER LOADS PASSED F5G01530
REM ON TO SECTION V, AND THE POSITION OF INFORMATION AT THE END F5G01540
REM OF CORES , HERE SAID TO BE IN KEYS, MUST BE CHANGED. F5G01550
REM IN SECTION V, MSIZE AS WELL AS OTHER ITEMS SPECIFIED IN F5G01560
REM THE FOLLOWING PARAMETER LIST MUST BE CHANGED. F5G01570
REM 8-1-6-2 PARAMETER LIST F5G01580
MSIZE EQU 8192 8-1-6-2 MEMORY SIZE F5G01590
FP1 EQU 150 8-1-6-2 REG TABLE SIZE F5G01600
S3P1 EQU 60 8-1-6-2 LPLST TABLE SIZE F5G01610
STL EQU 240 8-1-6-2 STAG LENGTH F5G01620
REM FIXED PARAMETER LIST, INDEP. OF CORESIZE F5G01670
KEYS SYN MSIZE-4 CONSTANTS TO RELATE PROGRAM TO TABLES F5G01680
REM ORDER OF DRUM TABLES IS SUCC STARTING AT ZERO, FOLLOWED BY F5G01690
REM PRED, BBB, AND STAG, WHICH IS FILLED IN BY SECTION V. F5G01700
REM THE ORDER OF INFORMATION IN KEYS IS ... KEYS=NUMBER OF BBS, F5G01710
REM KEYS+1=START OF PRED, KEYS+2=START OF BBB, AND KEYS+3=STAG. F5G01720
INSTTP EQU 4 COMPILED INST ON TAPE 4 F5G01730
TAPE EQU 3 OUTPUT TAPE IS 3 F5G01740
OTAPE EQU 3 OUTPUT TAPE IS 3 F5G01750
BLT EQU 3 BLOCK LIST ON TAPE 3 F5G01760
ACTPE EQU 2 ASSIGN CONSTANTS ON TAPE 2 F5G01770
RECNO EQU 1 NO OF CIT RECORDS IN AT ONE TIME F5G01780
ZINST EQU RECNO*100 LENGTH OF INST TABLE F5G01790
LCLST EQU 100 LENGTH OF OUTPUT BLOCK, COMPILED INSTR F5G01800
NSXD EQU 128 NO. OF SXD CASES IN SXD LIST F5G01810
PTL1 EQU 20 SPACE FOR PATCHES, PART 1 F5G01811
PTL2 EQU 41 SPACE FOR PATCHES, PART 2. F5G01812
PTL3 EQU 42 SPACE FOR PATCHES, PART 3 F5G01813
PTL4 EQU 34 SPACE FOR PATCHES, PART 4. F5G01814
SET EQU 0 INITIAL DRUM ADDRESS F5G01820
K EQU 0 INITIAL DRUM ADDRESS F5G01830
REM EDITOR RECORD NO. 75 F5G01840
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G01850
REM NO DIAGNOSTIC CALLER FOLLOWS F5G01870
REM PART 1A F5G01880
REM OPTIMIZE INDEXING EXCEPT FOR PERMUTATION, GO TO N, F5G01890
REM INSTRUCTION COMPILATION. F5G01900
ORG 24 F5G01910
REM ROUTINE TO TRANSFER NEXT F5G01920
REM PP0GRAM PART F5G01930
R RTB 1 SKIP DIAGNOSTIC F5G01940
TRA 4 READ NEXT PROGRAM RECORD F5G01950
REM THE ROUTINES SE, SE1, SE4, SE5, SE6 MANIPULATE DRUM TABLES F5G01960
REM AUCC, PRED, BBB, AND STAG. THEY ARE ENTERED WITH THE WANTED F5G01970
REM ITEM IN THE AC. THEY LOAD IX1 FOR IMMEDIATE REFERENCE T0 THEF5G01980
REM STATED ITEM. AFTER SAVING CORES ON THE DRUM WHERE NECESSARY,F5G01990
REM THEY BRING IN THE APPROPRIATE PART OF DRUM TABLES. IF THE F5G02000
REM ITEM IS ALREADY IN CORES, OF COURSE NO SAVING OR DRUM F5G02010
REM MANIPULATION IS NECESSARY. F5G02020
SE4 ALS 18 F5G02030
ANA SEK4 F5G02040
TSX SE21,2 F5G02050
REM PARAMETERS FOR STAG TABLE F5G02060
STAGP HTR 0 N(0) F5G02070
HTR 0 N(1) F5G02080
HTR 0,0,STAGL N(S) F5G02090
HTR 0,0,SET N(L) F5G02100
HTR 1 S F5G02110
HTR SET D(0) F5G02120
HTR STAG A F5G02130
REM PARAMETERS FOR SUCC. TABLE F5G02140
SE6 ANA SEK4 F5G02150
TSX SE21,2 F5G02160
SUCCP HTR 0 N(0) F5G02170
OCT -1 N(1) F5G02180
HTR 0,0,SUCCL N(S) F5G02190
HTR SET N(L) F5G02200
HTR 1 S F5G02210
HTR 0 D(0) F5G02220
HTR SUCC A F5G02230
REM PARAMETERS FOR PRED. TABLE F5G02240
SE5 ALS 18 F5G02250
ANA SEK4 F5G02260
TSX SE21,2 F5G02270
PREDP HTR 0 N(0) F5G02280
OCT -1 N(1) F5G02290
HTR 0,0,PREDL N(S) F5G02300
HTR SET N(L) F5G02310
HTR 1 S F5G02320
HTR SET D(0) F5G02330
HTR PRED A F5G02340
REM PARAMETERS FOR BBB TABLE F5G02350
SE1 ALS 18 BB NO. IN ADDR. F5G02360
SE ANA SEK4 BB NO. IN DECR. F5G02370
TSX SE21,2 F5G02380
BBBP HTR 0 N(0) IN DECR. 1ST BB IN CM F5G02390
OCT -1 N(1) IN DECR,LAST BB IN CM +1 F5G02400
HTR 0,0,BBBL N(S) IN DECR,NO.+ BBS POS. IN CM F5G02410
HTR SET N(L) IN DECR,NO. OF BBS F5G02420
HTR 6 S IN ADDR.,NO. OF WDS PER BB F5G02430
HTR SET D(0) IN ADDR.,INITIAL DRUM ADDR. F5G02440
HTR BBB A IN ADDR.,INITIAL CM ADDR F5G02450
REM 2 ED PARAMETER IS + OR - ACCORDING F5G02460
REM AS CM BLOCK IS FULL OR EMPTY F5G02470
REM SR FOR SHUFFLING TABLES TO AND FROM DRUM F5G02480
SE21 STO SEV2 STORE ITEM NO.,N F5G02490
CAS 2,2 IS N IN CM F5G02500
TXH -,-,- F5G02510
TXL SE42,0,- F5G02520
TRA SE41 POSSIBLY F5G02530
SE42 SXD SEV5,4 NO,STORE RETURN INDEX F5G02540
CLA 2,2 F5G02550
TMI SE35 IS CM BLOCK EMPTY F5G02560
TSX SE22,4 NO,FORM CHECK SUM F5G02570
CLA SE23 F5G02580
STA SE24 STORE F5G02590
CLA SEV3 CHECK F5G02600
SE24 STO SET SUM F5G02610
CLA SEK F5G02620
TSX SE26,4 F5G02630
SE35 CLA ZERO F5G02640
LDQ SEV2 N(0)=(INT. PT. (N/N(S)).N(S) F5G02650
DVP 3,2 F5G02660
MPY 3,2 F5G02670
STQ 1,2 N(1)=MIN (N (0)+N(S),N(L)) F5G02680
CLA 1,2 F5G02690
ADD 3,2 F5G02700
LDQ 4,2 F5G02710
STQ 2,2 F5G02720
TLQ SE36 F5G02730
STO 2,2 F5G02740
SE36 CLA SEK1 TRANSFER IN A F5G02750
TSX SE26,4 BLOCK OF THE TABLE F5G02760
TSX SE22,4 CHECK SUM F5G02770
CLA SE23 COMPARE F5G02780
STA SE37 CHECK F5G02790
SE37 CLA SET SUMS F5G02800
CAS SEV3 F5G02810
SE45 TRA SE43 F5G02820
TRA SE40 AGREE F5G02630
SE43 LXD TPCT,4 REPEAT 5 TIMES F5G02840
TXI SE44,4,1 F5G02850
SE44 SXD TPCT,4 F5G02860
TXL SE36,4,4 TRY AGAIN F5G02870
TSX 4,4 TRIED 5 TIMES GO TO DIAGNOSTIC F5G02880
REM NOTE ON THIS 150 STOP. THIS DRUM CHECKSUM STOP MAY BE CAUSEDF5G02890
REM BY MACHINE ERROR. F5G02900
REM IF IX 2 CONTAINS TABLE IS AND CHECK F5G02910
REM 77744 STAG 40 F5G02920
REM 77732 SUCC 51 ALL F5G02930
REM 77721 PRED 63 OCTAL F5G02940
REM 77707 BBB 75 F5G02950
REM TO SEE IF THE CHECKED LOCATION CONTENTS ARE LESS F5G02960
REM THAN THE CONTENTS 0F 306 OCTAL. IF SO, SOURCE PROGRAM, RATH-F5G02970
REM ER THAN MACHINE ERROR IS LIKELY. THE ERROR C0ULD BE F5G02980
REM A. TRANSFER TO A NON-EXECUTABLE INSTRUCTION. F5G02990
REM B. UNREACHABLE EXECUTABLE INSTRUCTION IN PROGRAM. F5G03000
REM C. LAST STATEMENT OF A DO IS A TRANSFER. F5G03010
REM D. INCORRECT NUMBER OF ENTRIES IN A FREQUENCY STATEMENT. F5G03020
TPCT HTR - F5G03030
SE40 SXD TPCT,0 RESET TAPECOUNT F5G03040
LXD SEV5,4 RESTORE RETURN INDEX F5G03050
CLA SEV2 GET N AGANIN F5G03060
TRA SE41 F5G03070
REM THE ITEM MIGHT BE IN STORAGE F5G03080
SE41 SUB 1,2 N-N(01 F5G03090
TMI SE42 DOES IT LIE IN STORAGE F5G03100
LRS 35 YES,INDEX= F5G03110
MPY 5,2 COM((N-N(0).S) F5G03120
LLS 17 F5G03130
SUB SEK5 F5G03140
PAX 0,1 F5G03150
TRA 1,4 F5G03160
REM DRUM TRANSFER SUBROUTINE PROPER F5G03170
SE26 SXD SEV4,4 STORE RETURN INDEX AND ITEM NO. TO BE TRANSFERRED F5G03180
STO SE25 STORE READ-WRITE INDICATOR F5G03190
LDQ 3,2 FORM F5G03200
MPY 5,2 N(S)*S+1 F5G03210
LLS 17 AND F5G03220
ADD ONEA STORE F5G03230
STO SEV1 IT
CLA ZERO FORM F5G03250
LDQ 1,2 ((N(O)/N(S)) F5G03260
DVP 3,2 (N(S)(S+1)) F5G03270
MPY SEV1 F5G03280
STQ SEV1 INITIAL DRUM ADDRESS F5G03290
CLA 6,2 =D(0)+(NON(S))$(N(S).S=1) F5G03300
ADD SEV1 F5G03310
STO SEV7 SET LDA INSTRUCTIONS F5G03320
ALS 7 COMPUTE THE F5G03330
COM DRUM SELECTION F5G03340
PDX 0,1 INDEX F5G03350
TSX SE25,4 SELECT DRUM F5G03360
CLA 2,2 F5G03370
SUB 1,2 (N(1)-N(0))S F5G03380
LRS 53 INTO MQ F5G03390
MPY 5,2 F5G03400
CLA SEV7 FORM NO. OF F5G03410
ANA SEK2 WORDS LEFT ON F5G03420
SUB SEK3 DRUM GROUP F5G03430
SSP F5G03440
TLQ SE31 MUST BLOCK BE SPLIT F5G03450
PAX 0,4 YES F5G03460
ADD 7,2 SET INDEX AND F5G03470
STA SE27 COMPUTE ADDRESS OF 1ST CPY F5G03480
SUB 7,2 COMPUTE NO. F5G03490
STQ SEV1 OF WORDS IN F5G03500
SUB SEV1 2 ED TRANSFER F5G03510
SUB ONEA F5G03520
SSP F5G03530
STO SEV1 F5G03540
ADD SE27 F5G03550
STA SE29 SET 2 ED CPY F5G03560
SE28 LDA SEV7 F5G03570
SE27 CPY SET,4 TRANSFER F5G03580
TIX SE27,4,1 1ST BLOCK OF WORDS F5G03590
TIX SE30,1,1 DECREASE C(1) BY 1 F5G03600
SE30 TSX SE25,4 SELECT DRUM F5G03610
LXA SEV1,4 F5G03620
SE29 CPY SET,4 TRANSFER F5G03630
TIX SE29,4,1 2 EDBLOCK F5G03640
SE34 LXD SEV4,4 F5G03650
TRA 1,4 RETURN F5G03660
SE31 LLS 35 (N(1)-N(0)).S+1 F5G03670
ADD ONEA WORDS ARE TO F5G03680
PAX 0,4 BE TRANSFERED F5G03690
ADD 7,2 F5G03700
STA SE32 F5G03710
SE33 LDA SEV7 F5G03720
SE32 CPY SET,4 F5G03730
TIX SE32,4,1 F5G03740
TRA SE34 F5G03750
SE25 RDS 192,1 (OR WRS) DRUM F5G03760
TRA 1,4 SELECTION SUBROUTINE. F5G03770
REM CHECK SUM SUBROUTINE F5G03780
SE22 CLA 2,2 F5G03790
SUB 1,2 COMPUTE F5G03800
LRS 35 (N(1)-N(0)).S F5G03610
MPY 5,2 THE NUMBER OF WORDS F5G03820
LLS 17 TO BE SUM F5G03830
PAX 0,1 CHECKED F5G03840
ADD 7,2 COMPUTE AND STORE F5G03850
REM ADDRESS OF WORD F5G03860
STA SE23 FOLLOWING LAST TABLE WORD. F5G03870
CLA ZERO CLEAR SUM CHECK. F5G03880
SE23 ACL -,1 FORM THE F5G03890
TIX SE23,1,1 SUM CHECK. F5G03900
SLW SEV3 F5G03910
TRA 1,4 F5G03920
SEK WRS 192,1 WRS,192,1 F5G03930
SEK1 RDS 192,1 RDS,192,1 F5G03940
SEK2 HTR 2047 MASK TO EXTRACT LAST 11 BIT F5G03950
SEK3 HTR 2048 2048 IN ADDR. F5G03960
SEK4 HTR 0,0,-1 IN DECR. PART F5G03970
SEK5 HTR 0,1 2 15 F5G03980
SEV1 NS.S+1 TEMP STORAGE F5G03990
SEV2 STORAGE OF N (DECR.) F5G04000
SEV3 STORAGE OF CK SUM. F5G04010
SEV4 RETURN FROM SE 26 F5G04020
SEV5 RETURN FROM SE F5G04030
SEV6 STORE N TO BE TRANSFERRED F5G04040
SEV7 INITIAL DRUM ADDR. F5G04050
ZERO OCT 0 F5G04060
ONEA HTR 1 F5G04070
ONED HTR 0,0,1 F5G04080
REM CONSTANTS USED IN S1 F5G04090
S1K2 HTR 0,0,6 CONSTANT WHICH LOOKS LIKE PASS. REF. F5G04100
S1K3 HTR 8 NO. OF S3 VARIABLES SAVED. F5G04110
C SYN S1K2 F5G04120
S2K1 HTR 0,0,-1 ONES IN DECR. PART. F5G04130
S2K2 HTR 0,0,1 CONST. USED TO TEST FOR LX. F5G04140
S3K1 OCT -377777777777 END LOOP LIST SENTENIAL F5G04150
S3K2 HTR -1,-1,-1 USED FOR CF TO FIND OUT IF THIS IS BB F5G04160
S3K3 HTR 0,0,S3P1 INITIALIZING CONST. FOR LOOP LIST F5G04170
S3K4 OCT 777777 MASK TO EXTRACT LAST 1/2 WORD. F5G04180
S3K5 HTR 0,0,-1 MASK TO EXTRACT INST. TYPE F5G04190
REM CONSTANTS OF S4 F5G04200
S4K1 CMTL SIZE OF STORAGE FOR TAG TABLE. F5G04210
S4K2 HTR 15 NO OF TAGS PER RECORD. F5G04220
S4K3 HTR CMTAG F5G04230
REM THE L CONSTANTS MUST BE AHEAD OF THOSE FOR S5 F5G04240
LK1 OCT 777776 E,HASH SYMBOL F5G04250
LK2 OCT -200000000000 CONSTANT= FOR EXTRACTING F5G04260
LK3 OCT -300000000000 1ST 2,3 BITS OF WORD RESPT. F5G04270
REM CONSTANTS FOR MATCHING SUBR0UTINE F5G04280
S5K1 OCT 777777 PHI,EMPTINESS 444 F5G04290
S5K2 OCT 777775 CONSTANT USED TO TEST-FOR REAL TAGS F5G04300
S5K3 OCT -0 -0 F5G04310
S5K4 HTR 2 +2 .1 F5G04320
S5K5 HTR 3 +3 F5G04330
S5K6 HTR 8 +8 F5G04340
S9K1 HTR 4 +4 F5G04350
S9K2 0,1 MASK FOR PHI DIGIT NO. 1 F5G04360
0,2 MASK FOR PHI DIGIT NO. 2 F5G04370
0,4 MASK FOR PHI DIGIT NO. 3 F5G04380
S9K3 HTR 0,0,3 MASK TO EXTRACT 2 BITS IN DECR. F5G04390
SAK1 4094 CONST USED TO TEST NON EXISTENT BB F5G04400
REM CONSTANTS 0F SB F5G04410
SBK1 OCT +001000000000 CONST. USED T0 GENERATE SX BIT. AD. F5G04420
SBK2 HTR -1 USED TO EXTRACT ADDR. F5G04430
SBK3 HTR 0,0,4 CONST. TO GENERATE SX BIT FOR TRANSFER F5G04440
SCK1 HTR 0,0,LPLST F5G04450
FK1 OCT 177777077777 TRANSPARANT REGION CONST F5G04460
FK2 OCT 277777077777 OPAQUE REGION CONST F5G04470
FK3 HTR 0,7 MASK TO EXTRACT TAG. F5G04480
FK4 OCT 177777777777 CONST TO TEST FOR OPAQUE REG. F5G04490
FK5 HTR FP1 LENGTH OF REGION LIST F5G04500
XK3 OCT -0 3 CONSTANTS USED TO F5G04510
OCT 200000000000 CHANGE REGION WDS. F5G04520
OCT 100000000000 TO INDICATE IRS LX ED. F5G04530
XK4 OCT -377776000000 E,HASH SYMBOL,IN LQT HALF F5G04540
XK5 OCT -300000000000 MASK FOR PREFIX F5G04550
XK6 OCT 200000000000 F5G04560
XK9 HTR 9 F5G04570
XK10 SYN XK3 MASK TO EXTRACT 1ST IN BB FIT. F5G04580
XK11 OCT 1000000 CONST. TO GENERAGE LX BIT. F5G04590
XK12 HTR 0,0,5 4 CONSTS. USED TO TEST FOR ACTIVE F5G04600
XK13 HTR 0,0,4 TNX F5G04610
XK14 HTR 0,0,7 TIX F5G04620
XK15 HTR 0,0,2 LXP F5G04630
XK16 HTR 0,4 CONST. TO GENERATE LX BIT. F5G04640
XK17 PON CONST. TO SEPARATE TYPES F5G04650
XK18 SYN XK4 E IN LEFT HALF WORD. F5G04660
XK19 OCT -377777000000 MASK LEFT HALF WORD. F5G04670
XK20 OCT -377700777777 CONST. TO DELETE PERM. NOS. F5G04680
XK21 HTR 0,0,3 CONST. TO TEST FOR DED INST. F5G04690
XK22 OCT -377777077777 CONST. TO DELETE PHIS. F5G04700
XK23 HTR 0,1 F5G04710
HTR 0,2 F5G04720
HTR 0,4 F5G04730
S1V1 TEMP. STORAGE FOR F5G04740
HTR - F5G04750
HTR - 1ST 9 VARIABLES F5G04760
HTR - IN S3 F5G04770
HTR - F5G04780
HTR - F5G04790
HTR - F5G04800
HTR - F5G04810
S1V3 THE CLA IN S3 F5G04820
S1V4 RETURN INDEX F5G04830
S1V5 (+/-)=DECIDE ON (MOST/LEAST) REPL. I.R. F5G04840
S1V6 TEMP F5.04850
S1V7 STORAGE F5G04860
REM THE IR1,2,3 CELLS SIMULATE OBJECT MACHINE INDEX REGISTERS, F5G04870
REM AND CONTAIN A REAL TAG, THE EMPTY SYMBOL 777777, OR THE HASH F5G04880
REM SYMBOL 777776. IHASH MEANS THE REGISTER IS NOT EMPTY BUT F5G04890
REM ITS CONTENTS HAVE NO VALUE, I.E. LXP COMPILED IN SECTION 3 ORF5G04900
REM DED COMPILED IN SECTION 2. (LXP IS A WARNING THAT ALTHOUGH IRF5G04910
REM IS VALUELESS, IT WILL BE LOADED VERY SOON WITH A NEW VALUE.))F5G04920
IR1 THE 3 I.R.S IN F5G04930
IR2 THE LAST 1/2 OF REGISTER F5G04940
IR3 F5G04950
IRR HOLDS 3,2,1 IF IR1,2,3 SELECTED F5G04960
IND1 + OR - ACCORDING AS IR1 FOUND OR IR1 NOT FOUND F5G04970
IND2 + OR - ACCORDING AS IR2 FOUND OR IR2 NOT FOUND F5G04980
IND3 + OR - ACCORDING AS IR3 FOUND OR IR3 NOT FOUND F5G04990
IN4 +F OR - IF IR HAS OR HASNT BEEN FOUND F5G05000
REM VARIABLES OF S3 SUBROUTINE F5G05010
S3V1 LOCATION OF 1ST TAG IN BB F5G05020
S3V2 TAG COUNTER,IN DECR. PART. F5G05030
S3V3 + NO. OF TAGS LEFT IN BB AFTER TIX,OR- F5G05040
S3V4 LOOP LIST INDEX. F5G05050
1TAG THE TAN-TAG F5G05060
TPE THE TYPE OF INSTR. F5G05070
INTAG TAG + INSTR. TYPE (ENTRY IN TAG LIST) F5G05080
S3V5 LOOP LIST QUANTITY F5G05090
S3V8 RETURN INDEX F5G05100
S3V6 (1ST TAG IN BB-1ST TAG IN C.M.) F5G05110
S3V7 NO. OF WORDS LEFT IN C.M. F5G05120
S3V9 (+/-)= (THIS IS NOT NEW BB/THIS IS NEW BB) F5G05130
REM VARIABLES OF S4 F5G05140
S4V1 LOC OF 1ST TAG IN CMTAG F5G05150
S4V2 LOC OF 1ST TAG IN NEXT RECORD (TAPE POS.) F5G05160
S4V3 (LOC OF LAST TAG)+ 1 F5G05170
REM ABOVE MUST BE SET AT START. F5G05180
S4V4 (LOC. OF 1ST TAG IN BB-POS OF TAPE) F5G05190
REM VARIABLES FOR MATCHING SUBROUTINE S5 F5G05200
IR4 TEMP. STORAGE FOR C (IR1) F5G05210
IR5 TEMP. STORAGE FOR C (IR2) F5G05220
IR6 TEMP. STORAGE FOR C (IR3) F5G05230
ENC COUNTER OF = F5G05240
IRC COUNTER OF = F5G05250
REM THE IN 1,2,3, EN4,5,6 CELLS ARE LOADED BY THE S5 R0UTINE F5G05260
REM FOR PERMUTATION OF INDEX REGISTER ASSIGNMENT THROUGHOUT AN F5G05270
REM ALREADY TREATED REGI0N UPON ENTRY TO THIS REGION IN LPLST. F5G05280
REM OPTIMIZED MATCH T0 CURRENT CONTENTS OF IR1,2,3 IS SECURED BY F5G05290
REM PERMUTING THE ENTIRE REGION AS NECESSARY. THE IN1,2,3 F5G05300
REM AND EN4,5,6 CELLS LINK THE OUTMODED SYSTEM EN1,2,3, EX1,2,3 F5G05310
REM ACT1,2,3 FOR THIS REGION WITH THE ABSOLUTE SYSTEM IR1,2,3, F5G05320
REM AC1,2,3, LX1,2,3. FOR EXAMPLE EN4 IS 3,2,OR1 DEPENDING ON F5G05330
REM WHETHER THE CORRESPONDENT OF EN1 IS IR 1,2,OR 3. INVERSELY, F5G05340
REM IN1 IS 3,2,OR1 FOR THE CORRESPONDENT OF IR1 EQUAL TO EN1,2,3.F5G05350
IN1 INDEX OF CORRES 0F IR1 F5G05360
IN2 INDEX OF CORRES OF IR2 F5G05370
IN3 INDEX OF CORRES OF IR3 F5G05380
EN4 INDEX OF CORRES 0F EN1 F5G05390
EN5 INDEX OF CORRES OF EN2 F5G05400
EN6 INDEX OF CORRES OF EN3 F5G05410
EN1 THE ENTRANCE REQUIREM F5G05420
EN2 ENTS EN1,ENZ,EN3. F5G05430
EN3 F5G05440
S5V1 TEMP. STORE FOR RETURN INDEX. F5G05450
S5V2 TEMP STORE FOR LOOP LIST QUANT. F5G05460
S9V1 TEMP. STORE FOR BB NO. F5G05470
S9V2 TEMP. STORE FOR RETURN INDEX F5G05480
S9V4 TEMP. STORE FOR REGION WORD. F5G05490
REM VARIABLES 0F SA SUBROUTINE (WHICH GETS EXIT CONDTITIONS) F5G05500
SAV1 TEMP STORE FOR PERMUTATION NOS. F5G05510
SAV2 RETURN INDEX. F5G05520
SAV3 TEMP. STORE FOR REGION WORD. F5G05530
REM THE EX1,2,3 CELLS CONTAIN THE EXIT REQUIREMENTS FOR A BB THATF5G05540
REM HAS ALREADY BEEN TREATED. F5G05550
EX1 3 EXIT CONDITIONS F5G05560
EX2 F5G05570
EX3 F5G05580
REM THE ACT 1,2,3 CELLS CONTAIN ACTIVITY OF AN ALREADY TREATED BBF5G05590
ACT1 3 ACTIVE F5G05600
HTR - INDICATORS F5G05610
HTR - F5G05620
REM VARIABLES OF SB F5G05630
SBV1 RETURN INDEX F5G05640
SBV2 TEMP. STORAGE. F5G05650
SBV3 TEMP. STORAGE. F5G05660
SBV4 INDEX OF REGISTER WHICH IS ACTIVE. F5G05670
SBV5 STORAGE FOR PERMUTATION NOS. F5G05680
SCV1 RETURN INDEX F5G05690
SCV2 INDEX OF BB. F5G05700
SCV3 INDEX OF POSITION IN LOOP LIST F5G05710
ACIND + OR - MEANS 2ED OR ACTIVE PASS F5G05720
SDV1 STORE FOR RETURN INDEX. F5G05730
SDV2 INDEX OF ACTIVE I.R. F5G05740
SDV3 THE PERMUTATION NOS. F5G05750
SDV4 TEMP. STORE FOR INDEX OF BB F5G05760
SFV1 ACTIVE INDICATOR FORMED HERE. F5G05770
SFV2 RETURN INDEX. F5G05780
SGV1 RETURN INDEX F5G05790
SGV2 PERMUTED REGION WORD F5G05800
FV1 HIGHEST FREQ. IN REGION (I.C. PRED. TABLE ENTRY) F5G05810
FV2 BB NO. OF BB HAVING HIGHEST FREQ. (ADDR.) F5G05820
FV3 PRED. NO. (I.C. 0TH WORD FROM BB. (ADDR.) F5G05830
FV4 WORD HAVING REGION NO. (5TH BB WORD) F5G05840
FV5 CURRENT BB NO. BEING CONSIDERED. (ADDR.) F5G05850
FV6 RETURN INDEX OF F1,F80 F5G05860
FV7 PRED. NO. BEING CONSIDERED IN B.B. (ADDR.) F5G05870
FV8 FIRST PRED. FROM NEXT B.B. (ADDR.) F5G05880
FV9 0,0,- TEMP STORE FORCURRENT SUCC IN DECR ONLY F5G05890
FV10 0,0,- TEMP STORE IN DECR ONLY, CURRENT SUCC F5G05900
FV101 HIGHEST FREQ. IN BB (PRED. TABLE ENTRY) F5G05910
FV102 BB NO. BEING CONSIDERED. (ADDR.) F5G05920
FV103 PRED. NO. (0TH WORD FROM BB) (ADDR.) F5G05930
FV104 WORD HAVING REGION. NO. F5G05940
LPIND + OR - IF IT ISNT 0F IS A LOOP F5G05950
LV1 THE CONDITIONS OF THE I.R.S F5G05960
LV2 AT END OF THE F5G05970
LV3 1ST LXING PASS. F5G05980
LV4 THE LOOP LIST QUANTITY F5G05990
LV5 WORD FROM BB WITH PRED. AND SUCC. LOCS F5G06000
REM VARIABLES OF 2ED LXING PASS. F5G06010
REM ACTIVITY. WHEN SIMULATING A NEW BB IN THE 2ND LXING PASS, F5G06020
REM IF AN LX, TXI, OR TIX IS ENCOUNTERED, THE APPROPRIATE INDEX F5G06030
REM REGISTER BECOMES ACTIVE. THIS IS PLUS ACTIVITY. IF THE SAMEF5G06040
REM REGISTER MUST BE DISPLACED IN THE SAME LPLST, SB IS ENTERED F5G06050
REM TO RECORD AN SX NECESSARY. SINCE THE ACTIVITY IS PLUS, THE F5G06060
REM SX WILL BE COMPILED IN STAG IMMEDIATELY AFTER THE ACTIVE F5G06070
REM INSTRUCTION. THIS SX ENDS THE ACTIVITY, COMPLETELY TAKING F5G06080
REM CARE OF THE PROBLEM. AT THE END OF LPLST, IF THE INDEX F5G06090
REM REGISTER IS STILL ACTIVE, OR IF, DURING LPLST, AN ACTIVE F5G06100
REM REGISTER FALLS OBSOLETE BY A DED OR LXD, THEN ALL THE BLOCKS F5G06110
REM IN WHICH IT IS ACTIVE ARE MARKED BY SC, MAKING THIS ACTIVITY F5G06120
REM MINUS. THIS, UNLIKE PLUS ACTIVITY, CAN NEVER BE ENDED. THE F5G06130
REM APPEARANCE OF A MINUS BB IN A FUTURE LPLST CAUSES THE F5G06140
REM APPROPRIATE AC1,2,OR3 TO CONTAIN MINUS ACTIVITY AND WHENEVER F5G06150
REM THE CORRESPONDING INDEX REGISTER MUST BE DISPLACED, AN SB F5G06160
REM ENTRY WILL CAUSE AN SX TO BE COMPILED IN THE PRED LINK FROM F5G06170
REM THAT BB. THIS POSTPONEMENT OF SX COMPILATION AFTER AN ACTIVEF5G06180
REM INSTRUCTION FOR AS LONG AS POSSIBLE PRODUCES A LARGER NUMBER F5G06190
REM 0F SX,S THAN STRICTLY NECESSARY, BUT PLACES THEM IN LOW F5G06200
REM FREQUENCY PATHS, TRADING OBJECT PROGRAM SPACE FOR OBJECT F5G06210
REM PROGRAM TIME. F5G06220
REM THE AC1,2,3 CELLS DESCRIBE THE ACTIVITY STATUS OF IR1,2,3. F5G06230
REM ZERO...NOT ACTIVE, PLUS ACTIVITY...ACTIVE INSTRUCTION IN A F5G06240
REM BB NOT TREATED UNTIL THIS LPLST. AC1,2,3 CONTAINS INFO. F5G06250
REM FOR SB TO MAKE A STAG ENTRY AT THE ACTIVE INSTRUCTION. F5G06260
REM MINUS ACTIVITY...ACTIVE INSTR. IN BB ALREADY IN A REGION. F5G06270
REM AC1,2,3 CONTAINS INFO. FOR SB TO MAKE A PRED ENTRY AT LINK F5G06280
REM OUT OF THE REGION. F5G06290
AC1 3 ACTIVE INDICATORS,+0 MEANS NOT ACTIVE F5G06300
AC2 IF + VE,THEN ACTIVE THING IS INSTR., DECR. IS F5G06310
AC3 LOC. OF BB IN LOOP LIST,ADDR. IS LOC. OF Y-TAG. IF-VE, F5G06320
HTR 0 ACTIVE THING IS TRANSFER, LOC. IN LP LST IN DECR. F5G06330
REM THE LX1,2,3 CELLS CONTAIN THE ENTRANCE REQUIREMENTS FOR A BB.F5G06340
LX1 3 ENTRANCE REQUIREMENTS OF A BB F5G06350
LX2 BUILT UP HERE. +0 MEANS F5G06360
LX3 NO ENTRANCE REQU. DETERMINED. F5G06370
XV1 IN DECR., INDEX OF CURRENT REGION F5G06380
XV2 THE NEW REGION WORD. F5G06390
XV3 THE WORD POSITION IN STAG F5G06400
XV4 THE DIGIT INDEX WITHIN THE WORD. F5G06410
XV5 THE LOCATION OF CURRENT TAG (INSTR.) F5G06420
XV6 NEAR XO7,C.F. OF TNX BRANCH,NEAR X85, TAG F5G06430
XV7 X07 TO X09+,INDEX OF BB,NEAR X85,TAG F5G06440
XV8 INDEX OF BB NE-R X33 F5G06450
REM PERMUTATION. WHEN INDEX REGISTER ASSIGNMENTS THROUGHOUT AN F5G06460
REM ALREADY TREATED REGION ARE PERMUTED, STAG, PRED AND BBB MUST F5G06470
REM BE UPDATED. INSTEAD, WORD 2 OF BBB CONTAINS PERMUTATION F5G06480
REM NUMBERS THROUGH WHICH THESE TABLES ARE READ, AND UPDATING F5G06490
REM REQUIRES ONLY THESE NUMBERS TO BE CHANGED. IN SECTION 5 PARTF5G06500
REM 2 WHEN THE FINAL CONFIGURATION HAS BEEN REACHED, THE TABLES F5G06510
REM THEMSELVES ARE ACTUALLY UPDATED. F5G06520
XV9 THE PERMUTATION NOS. F5G06530
XV10 INDEX OF I.R. IN BB CONSIDERED. F5G06540
XV11 F5G06550
XV12 F5G06560
XV13 INDEX OF PARTICULAR BB X40 ON F5G06570
XV14 TEMP. STORE FOR 2 INDEXES F5G06580
XV15 WHILE USING SUBROUTINE. F5G06590
XV16 TEMP. STORE FOR PRED.=,X91-2+X90,X92 X97 ON F5G06600
XV17 TEMP. STORE FOR OLD REGION WD.,X74 F5G06610
XV18 IN ADDR.,X111,NO. OF SUCC. WE SEARCH FOR. F5G06620
XV19 TEMP STORE FOR PREVIOUS LPLST QUANTITY F5G06630
XV20 TEMP STORE IN DECR. ONLY F5G06640
XV21 TEMP STORE FOR TAG NEAR X43 F5G06650
XV22 NUMBER OF LAST BB FOR WHICH REGION NO. WAS ADDED F5G06660
XV23 DECR ONLY , TEMP STORE FOR REGION INDEX F5G06670
XV24 0 OR NOT0 IF IS OR ISNT SAME AS 1ST REGION F5G06680
AV1 TEMP. STORE FOR PRED. TABLE ENTRY. F5G06690
AV2 TEMP. STORE FOR INDEX OF I.R. F5G06700
AV3 TEMP. STORE FOR PERM. NOS. F5G06710
REM THE S1 AND S111 ROUTINES SELECT THE MOST (S1) OR THE LEAST F5G06720
REM (S111) REPLACEABLE INDEX REGISTERS BY SCANNING AHEAD F5G06730
REM THROUGH LPLST. THE IR WHOSE CONTENTS ARE REQUIRED AGAIN F5G06740
REM SOONEST (LAST) IS THE LEAST (MOST) REPLACEABLE. THESE F5G06750
REM R0UTINES USE THE S2 SUBROUTINE, WHICH ACTUALLY TRIES TO F5G06760
REM SELECT AN IR. F5G06770
S111 SSM SET INDICATOR TO-MEANING F5G06780
TRA S109 SEARCH FOR LEAST REPLACEABLE I.R. F5G06790
S1 SSP SET INDICATOR TO + MEANING F5G06800
S109 STO S1V5 SEARCH FOR MOST REPLACEABLE I.R. F5G06810
SXD S1V4,4 STORE RETURN INDEX. F5G06820
SSM SET F5G06830
STO IND1 INDICATORS F5G06840
STO IND2 TO F5G06850
STO IND3 NOT F5G06860
STO IN4 FOUND. F5G06870
LXD S123,2 SET TO LO0P FOR EMPTY I.R. F5G06880
S119 LXA S5K5,1 SET COUNT TO 3, N TO 1 F5G06890
S120 CLA IR1+3,1 IS IRN EMPTY OR F5G06900
CAS 0,2 (FILLED WITH HASH) F5G06910
S121 TXL S122,0,-LK1 NO, COM(LOC. OF HASH) IN DECR. F5G06920
TRA S124 YES, F5G06930
S122 TIX S120,1,1 NO,C0UNT TO 3,N=N+1 F5G06940
S123 TXH S127,2,-S5K1 HAVE WE LOOKED FOR HASH F5G06950
LXD S121,2 NO,SET TO LOOP FOR HASH. F5G06960
TRA S119 F5G06970
S124 CLS S1V5 LOOKING FOR MOST REPLACEABLE F5G06980
TMI S129 I.R. F5G06990
STO IND1+3,1 NO, RECORD IRN ELIMINATED F5G07000
LDQ IN4 F5G07010
STO IN4 RECORD SOME IR ELIMINATED F5G07020
TQP S128 HAS AN IR BEEN ELIMINATED BEFORE F5G07030
TRA S122 NO, F5G07040
S128 LXA S5K5,1 SET COUNT TO 3,N=1 F5G07050
S126 CLA IND1+3,1 HAS IRN F5G07060
TPL S125 BEEN ELIMINATED F5G07070
S129 SXD IRR,1 NO,SELECT IRN F5G07080
TRA 1,4 AND RETURN. F5G07090
S125 TIX S126,1,1 COUNT TO 3,N=N+1 F5G07100
S130 TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR. F5G07110
S127 CLA S39 F5G07120
STO S1V3 STORE ASIDE F5G07130
LXA S1K3,4 THE F5G07140
S112 CLA S3V1+8,4 STATE F5G07150
STO S1V1+8,4 OF THE F5G07160
TIX S112,4,1 S3 ROUTINE. F5G07170
S11 TSX S3,4 GET NEXT TAG F5G07180
TRA S103 COME HERE IF TAG NOT GOT. F5G07190
CLA S1V1 F5G07200
CAS S3V1 IS THE LOOP C0MPLETED F5G07210
TRA S104 NO F5G07220
TRA S135 PERHAPS F5G07230
S104 TSX S2,4 NO F5G07240
TRA S16 COME HERE IF IR DECIDED ON F5G07250
TRA S11 COME HERE IF NOT DECIDED ON F5G07260
S135 CLA S1V1+1 IS THE LOOP COMPLETED F5G07270
CAS S3V2 F5G07280
TRA S104 F5G07290
TRA S102 YES F5G07300
TRA S104 F5G07310
S103 CAS S3K1 IS THIS AN END LOOP LIST F5G07320
TRA S105 NO F5G07330
TRA S101 YES F5G07340
S105 CLA S3V5 GET LOOP LIST QUANTITY AGAIN. F5G07350
CAS S3K2 IS IT A BB F5G07360
NOP NO,IT IS EITHER A TRANSPARENT F5G07370
TRA P001 OR OPAQUE REGION F5G07380
TRA S11 YES F5G07390
P001 CAS S1V1+7 F5G07400
TRA S136 F5G07410
TRA S102 F5G07420
S136 TSX SE,4 GET BB WHICH CONTAINS ENTR. REQU. F5G07430
LDQ S1K2 MAKE THIS LOOK LIKE A F5G07440
STQ TPE PASSIVE REFERENCE. F5G07450
LXA S5K5,4 SET COUNT TO 3. F5G07460
S115 CAL BBB+2,1 PUT THIS TAU TAG F5G07470
ARS 18 IN LOCATION F5G07480
SLW 1TAG TAG F5G07490
SXD S1V6,1 STORE THE F5G07500
SXD S1V7,4 INDEXES. F5G07510
TSX S2,4 TRY TO SELECT AN I.R. F5G07520
TRA S16 COME HERE IF I.R. SELECTED. F5G07530
LXD S1V6,1 AND HERE IF NOT. RESTORE F5G07540
LXD S1V7,4 THE INDEXES. F5G07550
TXI S114,1,-1 DECREASE ENTR. INDEX F5G07560
S114 TIX S115,4,1 COUNT TO 3. F5G07570
TRA S11 F5G07580
S102 CLA IND1 HAS C(IR1) BEEN F5G07590
TPL S13 FOUND (ELIMINATED) F5G07600
S18 LXA S5K5,4 NO,SELECT F5G07610
S15 SXD IRR,4 IR1. F5G07620
S16 LXA S1K3,4 RESTORE S3 (GET NEXT TAG SR) F5G07630
S113 CLA S1V1+8,4 TO STATE F5G07640
STO S3V1+8,4 BEFORE F5G07650
TIX S113,4,1 S1 WAS USED. F5G07660
CLA S1V3 F5G07670
STO S39 F5G07680
TSX S4,4 MAKE SURE SAME TAGS ARE IN CM. F5G07690
LXD S1V4,4 F5G07700
S14 TRA 1,4 RETURN F5G07710
S13 CLA IND2 HAS IR2 BEEN F5G07720
TPL S107 FOUND (ELIMINATED) F5G07730
S108 LXA S5K4,4 NO,SELECT F5G07740
TRA S15 IR2. F5G07750
S107 TSX 4,4 DIAGNOSTIC, THERE IS AN ERROR F5G07760
REM OF SOME KIND. F5G07770
S101 LDQ LPIND IS THIS F5G07780
TQP S102 A LOOP F5G07790
TRA S11 YES F5G07800
S2 CLA 1TAG PUT TAU-TAG IN AC. F5G07810
LXA S5K5,1 SET COUNT TO 3. F5G07820
S22 LDQ IND1+3,1 F5G07830
TQP S21 BEEN FOUND F5G07840
CAS IR1+3,1 NO, IS TAU TAG EQUAL F5G07850
TRA S21 NO,TO C(IRN) F5G07860
TRA S24 YES F5G07870
S21 TIX S22,1,1 NO. F5G07880
TRA 2,4 RETURN TO L(TSX)+2 F5G07890
S24 CLA TPE IS IT A DED, LXP, OR LX CLASS. F5G07900
CAS XK21 IF SO, MAKE P=1, MAKING TEST=TMI S25 F5G07910
ORA S5K3 WHILE IF SO MAKE TEST TPL S25. F5G07920
NOP THUS GO TO S23 AND USE IT IF LXP,DED,LX F5G07930
STP TEST AND TAGS LEFT IN BB AFTER TIX, OR F5G07940
CLS S1V5 IF OTHER AND NO TAGS LEFT IN BB AFTER TIX. F5G07950
TEST TMI S25 THIS MIGHT BE A TPL S25. F5G07960
S23 SXD IRR,1 RECORD IRN INDEX. F5G07970
TRA 1,4 F5G07980
S25 LDQ ZERO RECORD IRN FOUND OR ELIM F5G07990
STQ IND1+3,1 F5G08000
CLS IN4 HAS ONE OTHER I R BEEN F5G08010
TMI S26 (FOUND/ELIM) F5G08020
STO IN4 F5G08030
TRA 2,4 F5G08040
S26 LXA S5K5,1 SEARCH FOR THE F5G08050
S27 CLA IND1+3,1 I.R. WHICH HASNT F5G08060
TMI S23 BEEN (FOUND/ELIM) YET. F5G08070
TIX S27,1,1 F5G08080
TSX 4,4 NOT FOUND, DIAGNOSTIC F5G08090
REM THE S3 SUBROUTINE EXISTS IN FEED TAG OR FEED LPLST STATES. F5G08100
REM IN THE FORMER IT FEEDS THE NEXT ITEM FROM TAGLIST AND TAKES F5G08110
REM THE TAG FEED EXIT. IN THE LATTER IT FEEDS THE NEXT ITEM FROMF5G08120
REM LPLST AND TAKES THE LPLST FEED EXIT. WHEN IT COMES TO A F5G08130
REM EPLST ITEM WHICH IS A BB AND NOT IN A REGION, IT GOES TO F5G08140
REM FEED TAG STATE AND STAYS THERE UNTIL THE LAST TAGLIST ITEM INF5G08150
REM THAT BB HAS BEEN FED. THEN IT RETURNS T0 LPLST FEED. WHEN F5G08160
REM SENTINEL IS FED THE ROUTINE RE-INITIALIZES ITSELF TO THE F5G08170
REM BEGINNING OF LPLST AND STAYS IN FEED LPLST STATE. IT USES F5G08180
REM THE S4 SUBROUTINE FOR HANDLING TAPE 3 DURING TAGLIST FEEDING.F5G08190
S3 LXD S3V2,1 ARE THERE ANY F5G08200
TIX S39,1,1 F5G08210
SXD S3V8,4 NO,STORE RETURN INDEX F5G08220
CLA S3V3 F5G08230
STO S3V9 F5G08240
TPL S300 ARE THERE ANY MORE TAGS IN BB F5G08250
LXD S3V4,1 NO F5G08260
CLA S3V5 WAS THE LAST THING F5G08270
TPL S306 AN END LPLST F5G08280
LXD S3K3,1 YES, RESET LPLST IN0EX F5G08290
S306 CLA LPLST+S3P1,1 GET LOOP LIST QUANTITY F5G08300
STO S3V5 QUANT1TY. F5G08310
TXI S31,1,-1 F5G08320
S31 SXD S3V4,1 THE INDEX. F5G08330
CAS S3K1 IS THIS END OF LOOP LIST F5G08340
TRA S32 NO, F5G08350
TRA S35 YES, F5G08360
S32 CAS S3K2 F5G08370
NOP NO F5G08380
TRA S305 F5G08390
TRA S34 YES F5G08400
S305 LXD S3V8,4 F5G08410
CLA S3V5 RETURN WITH LOOP F5G08420
S35 TRA 1,4 LIST QUANTITY F5G08430
S34 TSX SE,4 GET INDEX OF BB F5G08440
CLA BBB+1,1 F5G08450
ANA S3K4 GET AND STORE THE F5G08460
S303 STO S3V1 TAG LOCATION. F5G08470
TSX S4,4 GO TO PUT TAG IN CM. F5G08480
STO S3V6 STORE (1ST BB TAG-1ST TAG IN C.M.) F5G08490
SUB S4K1 FORM NO. OF F5G08500
SSP WDS LEFT IN C.M. F5G08510
STO S3V7 F5G08520
CLA S3V5 GET THE F5G08530
ADD ONED LOC. OF 1ST F5G08540
TSX SE,4 TAG IN F5G08550
CLA BBB+1,1 NEXT BB. F5G08560
ANA S3K4 F5G08570
SUB S3V1 IS NO. OF TAGS IN BB LESS F5G08580
CAS S3V7 THAN OR EQUAL TO SPACE IN C.M. F5G08590
TRA S304 F5G08600
TRA S36 YES, F5G08610
TRA S36 YES, F5G08620
S304 SUB S3V7 STORE S EXCESS OF TAGS F5G08630
STO S3V3 F5G08640
CLA S3V7 F5G08650
S302 PAX 0,1 SET COUNT OF NO. OF TAGS. F5G08660
S37 TXI S38,1,1 F5G08670
S38 SXD S3V2,1 F5G08680
ADD S4K3 SET ADDRESS OF F5G08690
ADD S3V6 CLA F5G08700
STA S39 INSTRUCTION. F5G08710
LXD S3V8,4 F5G08720
CLA S3V9 IS THIS A F5G08730
TPL S3 NEW BB F5G08740
CLA S3V5 YES,RETURN WITH F5G08750
TRA 1,4 LOOP LIST QUANTITY. F5G08760
S300 CLA S4V1 NEXT TAG NEEDED HAS F5G08770
ADD S4K1 LOC. (S+1ST TAG IN C.M.) F5G08780
TRA S303 F5G08790
S36 LDQ S3K1 F5G08800
STQ S3V3 F5G08810
TRA S302 F5G08820
S39 CLA -,1 GET TAG WORD F5G08830
SXD S3V2,1 F5G08840
STO INTAG AND F5G08850
ANA S3K4 SEPARATE TYPE F5G08860
STO 1TAG FROM F5G08870
CAL S3K5 TAU-TAG. F5G08880
ANA INTAG F5G08890
STO TPE F5G08900
TRA 2,4 F5G08910
S4 CLA S3V1 FORM (LOC. OF 1ST TAG IN BB F5G08920
SUB S4V1 -LOC. OF 1ST TAG IN CM) F5G08930
TMI S41 IS TAG IN C.M. F5G08940
CAS S4K1 POSSIBLY,IS IT FOR SURE F5G08950
NOP NO F5G08960
TRA S41 NO F5G08970
TRA 1,4 YES. RETURN. F5G08980
S41 CLA S3V1 NO,FORM (LOC. OF 1ST TAG IN BB F5G08990
SUB S4V2 -POSITION OF TAPE) F5G09000
TMI S42 MUST WE RUN TAPE BACK WORDS F5G09010
STO S4V4 NO, F5G09020
CLA S4V3 CAN ALL THE FOLLOWING TAGS F5G09030
SUB S4V2 BE PUT IN C.M. F5G09040
CAS S4K1 F5G09050
TRA S401 NO F5G09060
TRA S45 YES,GO,TO SET COUNT F5G09070
TRA S45 YES,TO NO. OF TAGS IN BB. F5G09080
S401 CLA S4V4 F5G09090
CAS S4K2 IS TAG IN NEXT RECORD F5G09100
NOP NO F5G09110
TRA S47 F5G09120
TRA S44 YES F5G09130
S47 RTB TAPE NO, SPACE FWD 1 REC. F5G09140
CLA S4V2 ADJUST TAPE POSITION F5G09150
ADD S4K2 F5G09160
S43 STO S4V2 F5G09170
TRA S41 F5G09180
S42 BST TAPE ADJUST TAPE POSITION F5G09190
CLA S4V2 AFTER BACKSPACING F5G09200
SUB S4K2 ONE RECORD. F5G09210
TRA S43 F5G09220
S44 CLA S4K1 SET COUNT TO STORAGE SIZE. F5G09230
S45 PAX 0,2 F5G09240
ADD S4K3 SET CPY F5G09250
STA S46 ADDRESS. F5G09=60
CLA S4V2 F5G09270
STO S4V1 F5G09280
S49 RTB TAPE F5G09290
SXD S407,2 STORE (2) IN CASE OF TAPE CHECK F5G09300
RTT TURN OFF TAPE F5G09310
NOP CHECK. F5G09320
CLA S4V2 ADJUST F5G09330
ADD S4K2 TAPE F5G09340
STO S4V2 POSIT1ON F5G09350
S46 CPY -,2 F5G09360
S407 TXI S48,0,- VALUE OF (2) STORED HERE F5G09370
TSX 4,4 END OF FILE OCCURRED,DIAGNOSTIC F5G09380
SXD S405,4 F5G09390
TSX S406,4 CHECK REDUNDANCY BITS F5G09400
LXD S405,4 F5G09410
TRA S49 F5G09420
S48 TIX S46,2,1 COUNT NO. OF WORDS CPYED. F5G09430
S409 CPY S4V4 COPY OUT TO F5G09440
TRA S409 END OF RECORD. F5G09450
TSX 4,4 ERRONEOUS END OF FILE,DIAGNOSTIC F5G09460
SXD S405,4 CHECK REDUNDANCY BITS F5G09470
TSX S406,4 F5G09480
LXD S405,4 F5G09490
TRA S4 F5G09500
S406 IOD F5G09510
RTT F5G09520
TRA S402 TRY AGAIN F5G09530
SXD TPCT,0 RESETS REPEAT COUNT F5G09540
S404 TRA 1,4 RETURN F5G09550
S402 BST TAPE PREPARE TO READ AGAIN F5G09560
LXD TPCT,2 FIVE TIMES F5G09570
TXI S402A,2,1 F5G09580
S402A SXD TPCT,2 F5G09590
TXL S402B,2,4 GO ON F5G09600
TSX 4,4 NO GOOD,DIAGNOSTIC F5G09610
S402B LXD S407,2 RESET INDEX F5G09620
RTB TAPE F5G09630
LXD S405,4 F5G09640
S405 TXI S46,0,- RETURN ADDR. STORED HERE F5G09650
REM TNE S5 SUBROUTINE LOADS EN1,2,3 FROM THE ENTRANCE CONDITIONS F5G09660
REM OF THE ENTRY BB IN A REGION WHEN THE REGION IS ENCOUNTERED F5G09670
REM IN LPLST. IN ADDITION, THE PERMUTATION OF INDEX REGISTERS INF5G09680
REM THE REGION PROVIDING THE BEST MATCH BETWEEN IR1,2,3 AND F5G09690
REM EN1,2,3 IS LEFT IN CELLS IN1,2,3 AND EN4,5,6 BY S5. S5 USES F5G09700
REM S1,S111,S6,S7,S9, AS SUBROUTINES. F5G09710
S5 SXD S5V1,4 STORE RETURN INDEX F5G09720
STO S5V2 STORE LOOP LIST QUANTITY F5G09730
TSX S9,4 GET THE ENTRANCE F5G09740
REM REQUIREMENTS F5G09750
CLA S5K3 F5G09760
LXA S5K6,2 STORE -0S IN THE COUNTER OF PHIS + OF REAL F5G09770
S51 STO ENC+8,2 STORE -0S IN THE F5G09780
TIX S51,2,1 REGISTERS. F5G09790
LXA S5K5,1 SET INDEX FOR EN1,N=1 F5G09800
S54 LXA S5K5,2 SET INDEX FOR IR1, M EQUALS 1 F5G09810
CLA EN1+3,1 F5G09820
CAS S5K1 IS ENN EMPTY F5G09830
TRA S55 NO F5G09840
TRA S58 YES F5G09850
S55 LDQ IN1+3,2 NO F5G09860
TQP S56 IS IRM ASSIGNED F5G09870
CAS IR1+3,2 NO,IS C(ENM)=C(IRM) F5G09880
TRA S56 NO. F5G09890
TRA S59 YES. F5G09900
S56 TIX S55,2,1 NO. THRU WITH IRS F5G09910
S57 TIX S54,1,1 YES. THRU WITH ENS F5G09920
LXA S5K5,2 YES,SET INDEX FOR IR1,M=1 F5G09930
S510 LXA S5K5,1 SET INDEX FOR EN1,N=1 F5G09940
CLA IR1+3,2 F5G09950
CAS S5K1 IS IRM EMPTY F5G09960
TRA S511 NO F5G09970
TRA S513 YES F5G09980
S511 LDQ IN1+3,2 NO F5G09990
TQP S514 IS IRM ASSIGNED F5G10000
CAS S5K2 NO,IS C(IRM)REAL F5G10010
TRA S514 NO, F5G10020
TRA S514 NO, F5G10030
S512 CLA IRC INCREASE REAL F5G10040
ADD ONEA UNASSIGNED TAG F5G10050
STO IRC COUNTER. F5G10060
TRA S514 F5G10070
S513 CLA EN4+3,1 HAS ENN F5G10080
TPL S537 BEEN ASSIGNED F5G10090
LDQ S5K2 NO,IS C(ENN) F5G10100
CLA EN1+3,1 REAL F5G10110
TLQ S537 F5G10120
TSX S6,4 YES,MAKE IRM=ENN F5G10130
TRA S514 F5G10140
S537 TIX S513,1,1 ARE WE THRU WITH EN S F5G10150
S514 TIX S510,2,1 YES, ARE WE THRU WITH IRS F5G10160
CLA ENC YES. F5G10170
TMI S515 ARE THERE NO EMPTY ENS F5G10180
CAS S5K4 HOW MANY EMPTY ENS. F5G10190
TRA S515 3 OR 0 F5G10200
TRA S520 2 EMPTY EN F5G10210
TRA S526 1 EMPTY EN F5G10220
S515 LXA S5K5,1 3 OR 0 EMPTY EN,N=1 F5G10230
S519 LXA S5K5,2 M=1 F5G10240
CLA EN4+3,1 F5G10250
TPL S516 ENN ASSIGNED F5G10260
S518 CLA IN1+3,2 NO,IRM F5G10270
TPL S517 ASSIGNED F5G10280
TSX S6,4 NO,MAKE IRM=IRN F5G10290
TRA S516 F5G10300
S517 TIX S518,2,1 F5G10310
S516 TIX S519,1,1 F5G10320
LXD S5V1,4 F5G10330
TRA 1,4 RETURN F5G10340
S520 CLA IRC F5G10350
CAS S5K4 ARE THERE 3 REAL UNASSNED TAGS IN THE IRS F5G10360
TRA S536 F5G10370
TRA S531 1,NO,GO MATCH EMPTY ENS F5G10380
TRA S531 2,NO. WITH ANY REAL UNASS. IRS F5G10390
S536 TSX S7,4 3, YES, TO COPY IRS, ETC. F5G10400
TSX S1,4 SELECT MOST REPLACEABLE I.R. F5G10410
LXA S5K5,1 F5G10420
TSX S595,4 F5G10430
S521 CLA EN1+3,1 IS EN F5G10440
CAS S5K1 EMPTY F5G10450
TRA S522 NO F5G10460
TIX S521,1,1 INDEX COUNTER OF IR S F5G10470
S522 TSX S6,4 MADE ENN = IRM F5G10480
S529 LXA S5K5,1 F5G10490
S525 CLA IR4+3,1 REPLACE THE IRS F5G10500
STO IR1+3,1 F5G10510
TIX S525,1,1 F5G10520
TRA S515 F5G10530
S526 LDQ IRC F5G10540
CLA S5K4 ARE THERE 2 OR 3 REAL F5G10550
TLQ S530 UNASSNED TAGS F5G10560
TSX S7,4 YES,COPY IRS F5G10570
TSX S111,4 LOOK FOR LEAST REPLACEABLE I.R. F5G10580
TSX S595,4 F5G10590
LXA S5K5,1 ASSIGN THE EMPTY F5G10600
S527 CLA EN1+3,1 EN TO THE IR F5G10610
CAS S5K1 SELECTED F5G10620
TRA S528 F5G10630
TSX S6,4 BY F5G10640
S528 TIX S527,1,1 S111. F5G10650
TRA S529 F5G10660
S530 TQP S531 IS THERE ONE REAL TAG F5G10670
TRA S515 NO,GO MATCH ARBITRARILY. F5G10680
S531 LXA S5K5,1 SET COUNT TO 3,N=1 F5G10690
LXA S5K5,2 SET COUNT TO 3,M=1 F5G10700
S532 CLA EN1+3,1 IS ENN F5G10710
CAS S5K1 EMPTY F5G10720
TRA S533 NO, F5G10730
TRA S534 YES, F5G10740
S533 TIX S532,1,1 NO,THRU WITH ENS F5G10750
TRA S515 YES. F5G10760
S534 CLA IN1+3,2 F5G10770
TPL S535 F5G10780
CLA IR1+3,2 NO F5G10790
CAS S5K2 IS C (IRM) REAL F5G10800
NOP N0 F5G10810
TRA S535 F5G10820
TSX S6,4 YES F5G10830
TRA S515 F5G10840
S535 TIX S534,2,1 NO F5G10850
TRA S533 F5G10860
S58 CLA ENC YESENM EMPTY F5G10870
ADD ONEA INCREASE COUNTER F5G10880
STO ENC OF NO. OF EMPTY ENS. F5G10890
TRA S57 F5G10900
S59 TSX S6,4 MAKE IRM=ENN F5G10910
TRA S57 F5G10920
S595 LXD IRR,2 F5G10930
CLA IR1+3,2 F5G10940
CAS S7K1 F5G10950
TRA 1,4 F5G10960
TRA S529 F5G10970
TRA 1,4 F5G10980
S6 PXD 0,1 F5G10990
STO IN1+3,2 F5G11000
PXD 0,2 F5G11010
STO EN4+3,1 F5G11020
TRA 1,4 F5G11030
S7 LXA S5K5,1 SET COUNT TO 3,M=1 F5G11040
S71 CLA IR1+3,1 COPY ASIDE C(IRM) F5G11050
STO IR4+3,1 F5G11060
LDQ IN1+3,1 IRM ASSIGNED F5G11070
TQP S72 F5G11080
CAS S5K2 NO, IS C(IRM) REAL F5G11090
NOP F5G11100
TRA S72 NO F5G11110
TRA S73 YES. F5G11120
S72 CLA S7K1 NO,REPLACE C(IRM) F5G11130
STO IR1+3,1 BY IMPOSSIBLE TAG. F5G11140
S73 TIX S71,1,1 COUNT TO 3,M=M+1 F5G11150
TRA 1,4 RETURN F5G11160
S7K1 OCT 777760 IMPOSSIBLE TAG VALUE. F5G11170
REM THE S9 SUBROUTINE LOADS EN1,2,3. F5G11180
S9 SXD S9V2,4 STORE RETURN INDEX. F5G11190
TSX SE,4 MAKE SURE BB IS IN C+M+ F5G11200
CLA BBB+5,1 GET AND F5G11210
PDX 0,2 STORE THE F5G11220
CLA REG,2 REGION F5G11230
STO S9V4 WORD+ F5G11240
LXA S5K5,2 SET COUNT TO 3,N=1 F5G11250
CLA BBB+1,1 STORE THE WORD F5G11260
STO S9V1 CONTAINING THE PERMATATION NOS. F5G11270
S92 CLA S9V1 EXTRACT THE N TH F5G11280
ARS 3,2 PERMUTATION NO. F5G11290
ARS 3,2 AND PUT IT F5G11300
ANA S9K3 IN F5G11310
PDX 0,4 INDEX 4. F5G11320
CAL S9V4 IS THIS F5G11330
ANA S9K2+3,4 AN EMPTY F5G11340
TZE S93 I.R. F5G11350
CLA S5K1 YES,STORE EMPTINESS SYMBOL F5G11360
S94 STO EN1+3,4 F5G11370
TXI S91,1,-1 DOWN THE ENTR. INDEX F5G11380
S91 TIX S92,2,1 COUNT TO 3 F5G11390
LXD S9V2,4 F5G11400
TRA 1,4 RETURN F5G11410
S93 CAL BBB+2,1 SET THE F5G11420
ARS 18 ENTRANCE REQUIREMENT. F5G11430
CAS S5K1 IS IT AN EMPTINESS SYMBOL F5G11440
TRA S94 NO, F5G11450
CLA LK1 YES,STORE E,(HASH SYMBOL). F5G11460
TRA S94 NO, F5G11470
REM THE SA SUBROUTINE LOADS EX1,2,3 ANO ACT1,2,3 FROM EXIT F5G11480
REM CONDITIONS AND ACTIVITY BITS (PREFIX, WORD 2, BBB) OF THE F5G11490
REM EXIT BB IN A REGION. F5G11500
SA SXD SAV2,4 STORE RETURN INDEX. F5G11510
ANA SBK2 IF THIS IS AN IMPOSSIBLE BB, F5G11520
LDQ SAK1 RETURN AT ONCE, DOING NOTHING F5G11530
TLQ 1,4 F5G11540
TSX SE1,4 MAKE SURE BB IS IN CM. F5G11550
CLA BBB+5,1 GET AND F5G11560
PDX 0,2 STORE F5G11570
CLA REG,2 REGION F5G11580
STO SAV3 WORD. F5G11590
CLA BBB+1,1 GET AND STORE THE F5G11600
STO SAV1 WORD HAVING PERMUTATION N0S. F5G11610
LXA S5K5,2 SET COUNT TO 3,N=N+1 F5G11620
SA1 CAL SAV1 PUT PERMUTATION F5G11630
ARS 3,2 NUMBER F5G11640
ARS 3,2 IN F5G11650
ANA S9K3 INDEX 4 F5G11660
PDX 0,4 F5G11670
CAL SAV3 IS THIS F5G11680
ANA S9K2+3,4 AN EMPTY F5G11690
TZE SA2 EXIT F5G11700
CLA S5K1 YES,STORE EMPTINESS SYMBOL. F5G11710
SA4 STO EX1+3,4 F5G11720
SA5 CAL SAV1 STORE THE F5G11730
ALS 3,2 ACTIVE F5G11740
SLW ACT1+3,4 INDICATOR F5G11750
TXI SA3,1,-1 F5G11760
SA3 TIX SA1,2,1 COUNT TO 3 F5G11770
LXD SAV2,4 F5G11780
TRA 1,4 RETURN F5G11790
SA2 CAL BBB+2,1 F5G11800
ANA S3K4 IS THIS F5G11810
CAS S5K1 AN EMPTY SYMBOL F5G11820
TRA SA4 NO F5G11830
CLA LK1 YES REPLACE BY E. F5G11840
TRA SA4 NO F5G11850
REM THE SB SUBROUTINE ENTERS A BIT IN PRED OR STAG TO REQUEST SX F5G11860
REM COMPILATION. THE APPROPRIATE ACTIVITY CELL AC1,2, OR 3 IS F5G11870
REM EXAMINED. IF IT IS NEGATIVE (ACTIVE INSTRUCTION IN A BB F5G11880
REM ALREADY IN A REGION), THE SX BIT IS PLACED IN PRED IN THE F5G11890
REM LINK OUT OF THE REGION. IF IT IS POSITIVE (ACTIVE INSTRUC. F5G11900
REM IN A BB IN THIS LPLST), THE SX BIT IS PLACED IN THE STAG F5G11910
REM TABLE AT THE ACTIVE INSTRUCTION. THE APPROPRIATE AC1,2, OR 3F5G11920
REM IS ALSO TURNED OFF BY SB. F5G11930
SB SXD SBV4,1 STORE INDEX OF ACTIVE I.R+ F5G11940
SXD SBV1,4 STORE INDEX OF RETURN, F5G11950
CLA AC1+3,1 IS THE ACTIVE THING F5G11960
TPL SB1 AN INSTRUCTION F5G11970
PDX 0,1 N0 F5G11980
CLA LPLST+S3P1,1 GET + STORE F5G11990
CAS S3K2 PRED. BB F5G12000
NOP F5G12010
TRA SB01 F5G12020
ARS 18 NO F5G12030
SB01 STA SBV3 F5G12040
CLA LPLST+S3P1+1,1 F5G12050
CAS S3K1 END LOOP LIST SENTINEL F5G12060
TRA SB7 NO, F5G12070
CLA LPLST YES,SUCCESSOR IS 1ST ENTRY. F5G12080
SB7 TSX SE,4 NO,GET ADDR. OF F5G12090
CLA BBB+1,1 PRED. F5G12100
STO SBV5 STORE PERMUTATION NOS. F5G12110
CLA BBB,1 GET ADDR OF 1ST PRED. F5G12120
SB4 SLW SBV2 F5G12130
TSX SE5,4 F5G12140
CAL PRED,1 F5G12150
ANA SBK2 F5G12160
CAS SBV3 IS THIS THE RIGHT TRANSFER F5G12170
TRA SB2 NO F5G12180
TRA SB5 YES F5G12190
SB2 CLA SBV2 NO TRY NEXT PRED. F5G12200
ADD ONEA F5G12210
TRA SB4 F5G12220
SB5 LXA S5K5,2 F5G12230
SB00 CAL SBV5 SEARCH PERMUTATION F5G12240
ARS 3,2 NOS. FOR THE INDEX F5G12250
ARS 3,2 STORED IN SBV4 F5G12260
ANA S9K3 F5G12270
CAS SBV4 IS THIS PERMUTATION NO. F5G12280
TRA SB8 NO EQUAL TO THE ACTIVE F5G12290
TRA SB9 YES IR F5G12300
SB8 TIX SB00,2,1 NO F5G12310
TSX 4,4 DIAGNOSTIC,ERROR F5G12320
SB9 CLA SBK3 GENERATE NO STORE F5G12330
ARS 3,2 THE F5G12340
ORS PRED,1 SX FIT IN F5G12350
TRA SB6 PRED. TABLE. F5G12360
SB1 ANA S3K4 F5G12370
LRS 35 COMPUTE NO. OF WORD IN F5G12380
DVP XK9 STAG AND POSITION OF SX F5G12390
PAX 0,2 FIT IN WORD. F5G12400
CAL SBK1 GENERATE F5G12410
ALS 8,2 THE BIT F5G12420
SLW SBV2 TO F5G12430
REM STORE. F5G12440
LLS 35 GET NO. OF WORD OUT OF MQ. F5G12450
TSX SE4,4 MAKE SURE THE WD IS IN C.M. F5G12460
CAL SBV2 F5G12470
ORS STAG,1 F5G12480
SB6 CLA ZERO SET IR F5G12490
LXD SBV4,1 TO F F5G12500
STO AC1+3,1 NOT ACTIVE. F5G12510
LXD SBV1,4 RE- F5G12520
TRA 1,4 TURN F5G12530
REM THE SC SUBROUTINE HANDLES THE PROBLEM OF AN ACTIVE INDEX F5G12540
REM REGISTER WITH NO SUBSEQUENT LX IN THE PRESENT REGION. THIS F5G12550
REM POSTPONES THE NECESSITY OF AN SX UNTIL A LATER LX IS FOUND. F5G12560
REM THE ACTIVITY IS TRANSFERRED FROM AC1,2,3 TO PREFIX, WORD 2, F5G12570
REM BBB TABLE FOR ALL BB,S DURINC WHICH IN0EX REGISTER IS ACTIVE.F5G12580
REM THIS PERPETUATION OF ACTIVITY WHEN NOT TURNED OFF DURING THE F5G12590
REM TREATMENT OF THE SAME LPLST IN WHICH IT AROSE IS CALLED MARK-F5G12600
REM ING A SECTION OF LPLST ACTIVE. ALL BB,S BETWEEN THE ORIGIN F5G12610
REM OF THE ACTIVITY AND THE PRESENT POINT OF LPLST WHEN SC 1S F5G12620
REM ENTERED ARE MARKED ACTIVE, AND THE DESIGNATED AC1,2,3 IS F5G12630
REM TURNED OFF. SD IS USED AS A SUBROUTINE, DOING THE ACTUAL F5G12640
REM MARKING OF BB,S ACTIVE. F5G12650
SC CLA AC1+3,1 IS IR F5G12660
TZE 1,4 ACTIVE F5G12670
SXD SCV1,4 YES,STORE RETURN F5G12680
SXD SC9,1 AND INDEX OF ACT1VE I.R+ F5G12690
STD SCV3 STORE INDEX OF LOOP LIST. F5G12700
CLA SCV3 IS THIS THE CURRENT F5G12710
SUB ONED F5G12720
SBM S3V4 IS THIS THE CURRENT LPLST INDEX F5G12730
TNZ SC40 F5G12740
CLA ACIND YES F5G12750
TPL 1,4 IS THIS THE ACTIVE PASS F5G12760
SC40 LXD SCV3,2 YES F5G12770
CLA LPLST+S3P1,2 F5G12780
CAS S3K2 IS 1ST AACTIVE QUANTITY A BB F5G12790
TRA SC02 F5G12800
TRA SC02 NO F5G12810
TRA SC8 YES F5G12820
SC4 SUB ONED IS THIS CURRENT F5G12830
CAS S3V4 LOOP LIST INDEX F5G12840
TRA SC2 NO, F5G12850
TRA SC5 YES, F5G12860
SC2 LXD SCV3,2 NO, F5G12870
CLA LPLST+S3P1,2 F5G12880
CAS S3K1 IS IT END LOOP LIST F5G12890
TRA SC3 NO, F5G12900
TRA SC6 YES, F5G12910
SC3 CAS S3K2 NO,IS IT A BB F5G12920
NOP NO, F5G12930
TRA SC04 F5G12940
TRA SC8 YES, F5G12950
SC04 LXD SC9,2 NO, PUT INDEX OF ACTIVE IR F5G12960
TSX SD,4 IN 2. GO TO RECORD REGION ACTIVE. F5G12970
SC02 CLA SCV3 PREPARE TO GET F5G12980
SUB ONED NEXT F5G12990
SC7 STD SCV3 LOOP LIST QUANTITY. F5G13000
TRA SC4 F5G13010
SC5 LXD SC9,1 F5G13020
CLA ZERO RECORD I.R. NOT F5G13030
STO AC1+3,1 ACTIVE ANYMORE. F5G13040
LXD SCV1,4 F5G13050
TRA 1,4 RETURN. F5G13060
SC6 CLA S3K3 ARRANGE TO GET 1ST LPLST QUANTITY F5G13070
TRA SC7 QUANTITY NEXT. F5G13080
SC8 TSX SE,4 F5G13090
SXD SCV2,1 GET INDEX OF BB F5G13100
SC9 TXI SC01,1,0 INCREASE INDEX BY INDEX OF OCT. I.R. F5G13110
SC01 CLA BBB+5,1 GET THE F5G13120
ANA S3K4 EXIT CONDITION. F5G13130
LXD SC9,2 IS EXIT COND. SAME F5G13140
CAS IR1+3,2 AS TAG IN ACTIVE I.RH F5G13150
TRA SC02 NO, F5G13160
TRA SC03 YES, F5G13170
TRA SC02 NO, F5G13180
SC03 CAL S5K3 RECORD THAT BB IS F5G13190
ARS 3,2 ACTIVE F5G13200
LXD SCV2,1 WO THIS F5G13210
ORS BBB+1,1 I+R. F5G13220
TRA SC02 F5G13230
SD SXD SDV2,2 F5G13240
SXD SDV1,4 STORE RETURN. F5G13250
TSX SE,4 GET INDEX OF BB F5G13260
CLA BBB+5,1 GET F5G13070
PDX 0,1 REGION F5G13280
CLA REG,1 WORD. F5G13290
TSX SE,4 GET BB INDEX. F5G13300
SD7 SXD SDV4,1 F5G13310
CLA BBB+1,1 STORE F5G13320
STO SDV3 AWAY THE PERMUTATION NOS. F5G13330
LXA S5K5,2 SET COUNT TO 3,N=1 F5G13340
SD3 CAL SDV3 IS F5G13350
ARS 3,2 PERMUTATION NO. F5G13360
ARS 3,2 F5G13370
ANA S9K3 N EQUAL F5G13380
CAS SDV2 TO I.R. INDEX F5G13390
TRA SD1 NO F5G13400
TRA SD4 YES F5G13410
SD1 TXI SD1+1,1,-1 NO F5G13420
SD2 TIX SD3,2,1 COUNT TO 3 F5G13430
TSX 4,4 F5G13440
SD4 CAL BBB+2,1 F5G13450
ANA S3K4 IS TAG IN F5G13460
LXD SDV2,4 EXIT CONDITION F5G13470
LXD SDV4,1 SAME AS IN ACTIVE I.R. F5G13480
CAS IR1+3,4 F5G13490
TRA SD5 NO F5G13500
TRA SD9 YES,IS F5G13510
SD5 CAL BBB+5,1 NO THIS LAST F5G13520
ANA SBK2 BB F5G13530
CAS SBK2 IN REGION F5G13540
TRA SD6 NO F5G13550
TRA SD8 YES F5G13560
SD6 TSX SE1,4 NO F5G13570
TRA SD7 F5G13580
SD8 LXD SDV1,4 RETURN F5G13590
TRA 1,4 F5G13600
SD9 CAL S5K3 RECORD THIS BB F5G13610
ARS 3,2 ACTIVE F5G13620
ORS BBB+1,1 WO THIS IR F5G13630
TRA SD5 F5G13640
REM THE SF SUBROUTINE FORMS APPROPRIATE AC1,2,3 ENTRY WHEN AN F5G13650
REM ACTIVE INSTRUCTION IS ENCOUNTERED. F5G13660
SF CLA TPE IS THIS F5G13670
CAS S2K2 AN LX F5G13680
TRA SF1 NO, F5G13690
TRA SF4 YES, F5G13700
SF1 CAS XK12 NO,IS IT AN ACTIVE INSTR F5G13710
TRA 1,4 NO RETURN F5G13720
TRA SF4 YES, F5G13730
TRA 1,4 NO F5G13740
SF4 CLA XV5 FORM QUANTITY TO F5G13750
STO SFV1 BE PUT F5G13760
LXD S3V4,2 INTO F5G13770
TXI SF5,2,1 ACTIVE F5G13780
SF5 SXD SFV1,2 INDICATOR F5G13790
TRA 2,4 F5G13800
REM PERMUTE THE PHI AND LX BITS SUBROUTINE F5G13810
REM THE SG SUBROUTINE PERMUTES AS INDICATED BY EN4,5,6 ON A REG F5G13820
REM ENTRY. F5G13830
SG SXD SGV1,4 SAVE RETURN F5G13840
LDQ ONEA SET NEN LX AND PHI BITS TO ONEA F5G13850
STQ SGV2 F5G13860
CLA S3V5 GET INDEX OF REGION WORD F5G13870
TSX SE,4 F5G13880
CLA BBB+5,1 F5G13890
PDX 0,2 F5G13900
LXA S5K5,4 SET COUNT T0 3 F5G13910
SG1 CLA EN4+3,4 FIND INDEX OF IR F5G13920
PDX 0,1 F5G13930
CAL REG,2 PERMUTE THE LX BIT F5G13940
ALS 3,4 F5G13950
ANA S5K3 F5G13960
ARS 3,1 F5G13970
ORS SGV2 F5G13980
CAL REG,2 PERMUTE THE PHI BIT F5G13990
ARS 3,4 F5G14000
ANA XK23 F5G14010
ALS 3,1 F5G14020
ORS SGV2 F5G14030
TIX SG1,4,1 COUNT TO 3 F5G14040
CAL REG,2 F5G14050
ANA SEK4 F5G14060
ORA SGV2 F5G14070
SLW REG,2 F5G14080
LXD SGV1,4 RETURN F5G14090
TRA 1,4 F5G14100
REM THE F1 SUBROUTINE FINDS THE HIGHEST FREQUENCY PRED ENTRY FOR F5G14110
REM A GIVEN BB AND STORES 1T IN FV 101. F5G14120
F1 SXD FV6,4 STORE RETURN F5G14130
LDQ ZERO SET HIGHEST F5G14140
STQ FV101 FREQ. TO 0. F5G14150
STO FV102 STORE BB NO+ F5G14160
TSX SE1,4 GET INDEX OF BB F5G14170
CLA BBB+5,1 STORE REGION F5G14180
STO FV104 NO. WORD. F5G14190
CAL BBB,1 GET PRED. F5G14200
STA FV7 NO. AND STORE IT F5G14210
CAL FV102 GET AND STORE F5G14220
ADD ONEA FIRST PRED. IN F5G14230
TSX SE1,4 NEXT B.B. F5G14240
CLA BBB,1 F5G14250
STA FV8 F5G14260
CLA FV7 IS TH1S PRED. F5G14270
F4 CAS FV8 IN SAME BB F5G14280
TRA F2 F5G14290
TRA F5 NO F5G14300
F2 TSX SE5,4 GET INDEX 0F PRED F5G14310
CLA PRED,1 F5G14320
CAS FV101 IS THIS FREQ. GREATER F5G14330
TRA F92 F5G14340
NOP F5G14350
TRA F3 NO F5G14360
F92 STO FV101 STORE NEW MAX. F5G14370
CLA FV7 STORE NEW F5G14380
STO FV103 PRED. NO. F5G14390
F3 CLA FV7 ARRANGE TO F5G14400
ADD ONEA CONSIDER NEXT PRED. F5G14410
STA FV7 F5G14420
TRA F4 F5G14430
F5 LXD FV6,4 F5G14440
TRA 1,4 RETURN F5G14450
REM THE F30 SUBROUTINE FINDS THE HIGHEST FREQUENCY SUCC ENTRY FORF5G14460
REM A GIVEN BB AND STORES IT IN FV 101. F5G14470
F30 SXD FV6,4 F5G14480
LDQ ZERO SET HIGHEST FREQH F5G14490
STQ FV101 TO 0. F5G14500
STO FV102 STORE BB NO. F5G14510
TSX SE,4 F5G14520
CLA BBB+5,1 F5G14530
STO FV104 F5G14540
CAL BBB,1 GET SUCC. NO. F5G14550
STD FV9 AND STORE IT F5G14560
CAL FV102 GET AND STORE F5G14570
ADD ONED SUCC. F5G14580
TSX SE,4 NO. F5G14590
CLA BBB,1 OF 1ST SUCC. F5G14600
STD FV10 IN NEXT BB F5G14610
CLA FV9 F5G14620
F31 CAS FV10 IS SUCC IN SAME BB F5G14630
TRA F32 F5G14640
TRA F34 N0. F5G14650
F32 TSX SE6,4 GET INDEX OF SUCC. F5G14660
CLA SUCC,1 F5G14670
CAS FV101 IS THIS FREQ. GREATER F5G14680
TRA F93 F5G14690
NOP F5G14700
TRA F33 NO F5G14710
F93 STO FV101 STORE NEW MAX. F5G14720
CLA FV9 STORE NEW F5G14730
STO FV103 SUCC. NO. F5G14740
F33 CLA FV9 ARRANGE TO CONSIDER F5G14750
ADD ONED NEXT SUCC. F5G14760
STD FV9 F5G14770
TRA F31 F5G14780
F34 LXD FV6,4 F5G14790
TRA 1,4 RETURN F5G14800
F CLA ZERO SET INDICATOR TO SAY F5G14810
STO LPIND THIS ISNT A LOOP. F5G14820
STO FV1 SET HIGHEST FREQ. TO 0. F5G14630
STO FV5 SET TO CONSIDER 0TH BB F5G14840
F7 CLA FV5 F5G14850
TSX F1,4 FIND MOST FREQ. UNCONSIDERED TRANSFER F5G14860
CLA FV101 IS IT GREATER THAN F5G14870
CAS FV1 PREVIOUS MAXIMUM F5G14880
TRA F85 F5G14890
NOP F5G14900
TRA F6 NO+ F5G14910
F85 STO FV1 REPLACE PREV. MAX. F5G14920
CLA FV102 AND BB NO. F5G14930
STO FV2 F5G14940
CLA FV103 AND PRED. NO. F5G14950
STO FV3 F5G14960
CLA FV104 AND REGION NO. WORD. F5G14970
STO FV4 F5G14980
F6 CLA FV5 ARRANGE TO CONSIDER NEXT F5G14990
ADD ONEA B.B. F5G15000
STO FV5 F5G15010
SUB KEYS F5G15020
ADD ONEA F5G15030
TNZ F7 WAS THIS THE LAST BB F5G15040
F86 DCT YES, IF ANY DIVIDE CHECKS GO F5G15050
TSX 4,4 TO DIAGNOSTIC. F5G15060
CLA FV1 NO DVD CHECKS, WERE THERE ANY F5G15070
TNZ F86A UNCONSIDERED PREDS F5G15080
TRA R NO,CONTINUE PROGRAM, PART I DONE. F5G15090
F86A CLA FV4 YES F5G15100
TZE F9 IS THIS A REGION ALREADY F5G15110
PDX 0,1 YES. F5G15120
CLA REG,1 GET REGION WORD. F5G15130
ANA FK3 F5G15140
TZE F8 IS IT AN OPAQUE REGION F5G15150
CLA FK1 NO,GET TRANSPARENT REGION MARKER. F5G15160
TRA F9 F5G15170
F8 CLA FK2 GET OPAQUE REGION MARKER. F5G15180
F9 STO LPLST+S3P1-2 F5G15190
CLA FV2 STORE THE REGION MARKER F5G15200
ALS 18 AT END OF LPLST. F5G15210
STD LPLST+S3P1-2 F5G15220
CLA S9K3 INITIALIZE THE STORING F5G15230
STD F11 POSITION IN LPLST. F5G15240
F23 CLA FV1 GET INDEX F5G15250
TSX SE1,4 OF BB UP FOR ENTRY. F5G15260
CLA BBB+5,1 IS THIS BB IN F5G15270
TZE F57 A REGION F5G15280
PDX 0,2 YES F5G15290
CLA REG,2 GET AND STORE F5G15300
STO FV4 REGION WORD F5G15310
ANA FK3 F5G15320
TZE F55 IS IT AN OPAQUE REGION F5G15330
LXA S5K4,1 NO, TRANSPARENT F5G15340
F12 CLA LPLST+S3P1,1 F5G15350
TXI F25,1,1 STORE INDEX OF LPLST QUANTITY BEING COMPARED. F5G15360
F25 SXD F18,1 F5G15370
F11 TXH F19,1,K ARE WE THRU WITH COMPARISONS F5G15380
CAS S3K2 NO,IS THIS BB ENTRY F5G15390
NOP F5G15400
TRA F87 F5G15410
TRA F12 YES. F5G15420
F87 TSX SE,4 GET INDEX OF BB F5G15430
CLA BBB+5,1 GET F5G15440
PDX 0,1 REGION F5G15450
CLA REG,1 WORD. F5G15460
LXD F18,1 F5G15470
CAS FV4 IS THIS THE SAME REGION F5G15480
TRA F12 NO F5G15490
TRA F100 F5G15500
TRA F12 NO F5G15510
F100 CLA FV1 PUT EXIT BB NO. F5G15520
STA LPLST+S3P1+1,1 IN TR. REG. QUANTITY F5G15530
F13 TIX F24,1,1 GENERATE INDEX OF LAST THING TO BE MOVED UP. F5G15540
F24 LXD F11,2 GET INDEX TO GENERATE INDEX OF 1ST THING F5G15550
F43 SXD F18,1 STORE INDEX OF LAST THING F5G15560
LDQ S3K1 RECORD F5G15570
STQ LPIND LOOP. F5G15580
TIX F14,2,1 GENERATE INDEX OF 1ST THING F5G15590
F14 TSX F15,4 GO TO MOVE LPLST QUANTITIES UP+ F5G15600
TSX F80,4 F5G15610
TRA L TO 1ST LXING PASS. F5G15620
F19 CLA FK1 F5G15630
LXD F11,1 STORE TRANSPARENT F5G15640
STO LPLST+S3P1,1 REGION MARKER F5G15650
CLA FV1 F5G15660
STA LPLST+S3P1,1 F5G15670
TSX SE1,4 FIND BB INDEX. F5G15680
CLA ZERO SET INITIAL MAX F5G15690
STO FV1 FREQ. TO 0+ F5G15700
CLA BBB+5,1 GET THE F5G15710
PDX 0,1 REGION F5G15720
CLA REG,1 WORD F5G15730
ARS 18 F5G15740
F21 TSX F1,4 DETERMINE MOST FREQ. PRED IN BB. F5G15750
CLA FV101 IS IT MORE FREQ. THAN F5G15760
CAS FV1 PREV. MAX. F5G15770
TRA F88 F5G15780
NOP F5G15790
TRA F20 NO. F5G15800
F88 STO FV1 REPLACE PREV. MAX. F5G15810
CLA FV102 AND BB NO. F5G15820
STO FV2 AND F5G15830
CLA FV103 PRED. NO. F5G15840
STO FV3 AND F5G15850
CLA FV104 REGION NO. WORD. F5G15860
STO FV4 F5G15870
F20 CLA FV104 ARRANGE TO CONSIDER THE F5G15880
ANA SBK2 NEXT B.B. IN REGION. F5G15890
CAS SBK2 ARE WE THRU WITH REGION F5G15900
TRA F21 F5G15910
TRA F22 YES F5G15920
TRA F21 F5G15930
F22 CLA FV1 WAS THERE AN UNCONSIDERED F5G15940
TZE F28 PRED F5G15950
CLA FV2 YES,STORE THE F5G15960
LXD F11,1 ENTRY B.B. F5G15970
ALS 18 NO. F5G15980
STD LPLST+S3P1,1 F5G15990
TXI F70,1,1 UP THE STORING INDEX F5G16000
F70 SXD F11,1 F5G16010
TXH F73,1,S3P1 IS LPLST FULL F5G16020
TRA F23 F5G16030
F28 LXD F11,2 F5G16040
F56 LXA S5K4,1 F5G16050
SXD F18,1 F5G16060
TSX F15,4 NONE LPLST UP. F5G16070
CLA LPLST-1 F5G16080
CAS FK4 IS THIS AN OPAQUE REGION F5G16090
NOP F5G16100
TRA F75 TO 2ED LXING PASS. F5G16110
POO2 TXH F29,1,2 F5G16120
TRA F75 F5G16130
F73 CLA SEK4 STORE SPECIAL F5G16140
STD LPLST SYMBOL IN DECR. PART OF 1STSLPLST F5G16150
TRA F53 QUANTITY F5G16160
F15 LXD S3K3,1 SET INDEX TO START OF LOOP LIST. F5G16170
F26 CLA LPLST+S3P1,2 MOVE THIS F5G16180
STO LPLST+S3P1,1 ENTRY UP. F5G16190
F18 TXL F17,2,- IN DECR., THE INDEX OF LAST TO BE MOVED. F5G16200
TIX F16,1,1 NO. F5G16210
F16 TIX F26,2,1 ARE WE FINISHED COPYING F5G16220
F17 STO LPLST-1 CASE OF LOOP,STORE PRED. 0F 1ST ELEMENT. F5G16230
CLA S3K1 STORE THE END F5G16240
STO LPLST+S3P1+1,1 LOOP LIST QUANTITY. F5G16250
TRA 1,4 F5G16260
F29 SXD F39,1 INITIALIZE STORING LOCATION. F5G16270
F64 CAS S3K2 ISNT OPAQUE REGIONH IS IT BE F5G16280
NOP NO. F5G16290
TRA F89 F5G16300
TRA F44 YES. F5G16310
F89 LDQ ZERO NO, SET INITIAL F5G16320
STQ FV1 FREQ+ TO 0. F5G16330
TSX SE,4 GET F5G16340
CLA BBB+5,1 REGION F5G16350
PDX 0,1 NO. F5G16360
CLA REG,1 GET NO. OF 1ST BB IN REGION F5G16370
F35 TSX F30,4 DETERMINE MOST FREQ SUCC IN BB F5G16380
CLA FV101 IS IT MORE FREQ. THAN F5G16390
CAS FV1 PREV+ MAX F5G16400
TRA F90 F5G16410
NOP YES, F5G16420
TRA F36 NO F5G16430
F90 STO FV1 YES, REPLACE PREV.MAX. F5G16440
CLA FV102 AND BB NO. F5G16450
STO FV2 AND F5G16460
CLA FV103 SUCC. NO+ F5G16470
STO FV3 AND F5G16480
CLA FV104 REGION NO. WORD F5G16490
STO FV4 F5G16500
F36 CLA FV104 ARRANGE TO CONSIDER THE F5G16510
ANA SBK2 NEXT BB IN REGION F5G16520
CAS SBK2 IS IT LAST BB IN REGION F5G16530
TRA F94 F5G16540
TRA F37 YES F5G16550
F94 ALS 18 F5G16560
TRA F35 F5G16570
F37 CLA FV1 WAS THERE AN UNCONSIDERED F5G16580
LXD F39,1 SUCC F5G16590
TZE F47 F5G16600
CLA FV2 EXIT BB F5G16610
ARS 18 NO. F5G16620
STA LPLST+S3P1,1 F5G16630
F45 TIX F62,1,1 DOWN THE STORING F5G16640
F62 SXD F39,1 INDEX. F5G16650
CLA FV1 GET INDEX OF F5G16660
TSX SE1,4 BB UP FOR ENTRY. F5G16670
CLA BBB+5,1 IS THIS BB IN F5G16680
TZE F48 A REGION F5G16690
PDX 0,2 YES. F5G16700
CLA REG,2 GET AND F5G16710
STO FV4 STORE REGION WORD. F5G16720
ANA FK3 IS IT IN AN F5G16730
TZE F54 OPAGUE REGION F5G16740
LXD F39,1 NO. F5G16750
CLA FK1 STORE TRANSPARENT REGION F5G16760
STO LPLST+S3P1,1 MARKER F5G16770
CLA FV1 WITH F5G16780
ALS 18 ENTRY F5G16790
STD LPLST+S3P1,1 BB NO. IN DECR. F5G16800
LXD S3K3,2 SET INDEX TO 1ST ELEMENT IN LPLST. F5G16810
F38 CLA LPLST+S3P1,2 F5G16820
CAS S3K2 IS THIS A BB ENTRY F5G16830
NOP F5G16840
TRA F91 F5G16850
TRA F40 YES F5G16860
F91 SXD F18,2 STOREINDEX OF QUANTITYBEING C.F. ED F5G16870
TSX SE1,4 F5G16860
CLA BBB+5,1 GET F5G16890
PDX 0,2 REGION WORD. F5G16900
CLA REG,2 F5G16910
LXD F18,2 GET INDEX OF QUANTITY BEING COMPARED. F5G16920
CAS FV4 IS THIS NAME REGION F5G16930
TRA F40 F5G16940
TRA F41 YES F5G16950
F40 TIX F39,2,1 F5G16960
F39 TXL F42,2,- IS THIS INDEX OF QUANTITY BEING COMPARED F5G16970
TRA F38 NO F5G16980
F41 CLA LPLST+S3P1,2 PUT EXIT BB NO. F5G16990
LXD F39,1 FROM PREVIOUS QUANTITY F5G17000
STA LPLST+S3P1,1 IN THIS LATEST ONE. F5G17010
TRA F43 F5G17020
F42 TXH F63,2,2 IS LPLST FULL F5G17030
F53 CLA S3K1 STORE END F5G17040
STO LPLST+S3P1-1 LOOP LIST SENTINEL. F5G17050
TRA F75 GO TO DEAL WITH STRING. F5G17060
F63 CLA LPLST+S3P1,2 F5G17070
TRA F64 F5G17080
F44 TSX F30,4 DETERMINE MOST FREQ. SUCC. IN BB. F5G17090
CLA FV101 STORE THE F5G17100
STO FV1 MOST FREQ. SUCC. AWAY. F5G17110
LXD F39,1 F5G17120
TNZ F45 WAS THERE AN UNCONSIDERED SUCC. F5G17130
F47 CLA S3K1 NO,RECORD AN F5G17140
STO LPLST+S3P1+1,1 END LOOP LIST SENTINEL. F5G17150
TRA F75 F5G17160
F48 LXD F39,1 ENTER BB F5G17170
CLA FV1 NO. AND MARKER F5G17100
ANA SBK2 IN F5G17190
ALS 18 LPLST F5G17200
STO FV4 F5G17210
STO LPLST+S3P1,1 F5G17220
SXD F50,1 F5G17230
LXD S3K3,2 S + TO F5G17240
F51 CLA LPLST+S3P1,2 F5G17250
CAS FV4 IS THIS SAME BB AS NEW ENTRY F5G17260
TRA F49 F5G17270
TRA F43 YES F5G17280
F49 TIX F50,2,1 DECREASE COMPARISON INDEX. F5G17290
F50 TXL F52,2,- IS THIS INDEX OF NEW QUANTITY F5G17300
TRA F51 NO. F5G17310
F52 TXH F63,2,2 IS LPLST FULL F5G17320
TRA F53 YES. F5G17330
F54 LXD F39,1 IS OPAQUE REGION F5G17340
CLA FK2 ENTER OPAQUE F5G17350
STO LPLST+S3P1,1 REGION MARKER F5G17360
CLA FV1 WITH CORRECT F5G17370
ALS 18 ENTRY BB F5G17380
STD LPLST+S3P1,1 NO. F5G17390
TRA F47 F5G17400
F55 LXD F11,2 STORE THE F5G17410
CLA FK2 OPAQUE F5G17420
STO LPLST+S3P1,2 REGION MARKR F5G17430
CLA FV1 WITH F5G17440
STA LPLST+S3P1,2 EXIT BB F5G17450
TRA F56 NO. F5G17460
F57 CLA FV1 PUT THE F5G17470
ANA SBK2 B.B. NO. F5G17480
ALS 18 IN F5G17490
STO FV4 DECR. PART. F5G17500
CLA F11 SET THE END F5G17510
STD F59 TEST. F5G17520
LXA S5K4,1 SET INDEX OF 1ST LPLST TO BE COMPARED F5G17530
F61 CLA LPLST+S3P1,1 F5G17540
TXI F58,1,1 F5G17550
F58 SXD F18,1 F5G17560
F59 TXH F60,1,- WAS THAT THE LAST QUANTITY F5G17570
CAS FV4 IS THIS THE SAME BB. F5G17580
TRA F61 F5G17590
TRA F13 YES F5G17600
TRA F61 F5G17610
F60 LXD F11,1 F5G17620
CLA FV1 STORE THE F5G17630
ANA SBK2 BB F5G17640
ALS 18 MARKER. F5G17650
STO LPLST+S3P1,1 F5G17660
CLA FV1 F5G17670
TSX F1,4 FIND MOST FREQ. PRED. OF BB. F5G17680
CLA FV101 DOES B.B. HAVE F5G17690
STO FV1 UNCONSIDERED PRED. F5G17700
TNZ F71 F5G17710
LXD F11,2 NO,GO TO MOVE LPLST UP. F5G17720
TRA F56 F5G17730
F71 LXD F11,1 F5G17740
TXI F72,1,1 UP THE STORING INDEX F5G17750
F72 SXD F11,1 F5G17760
TXH F53,1,S3P1 IS LPLST FULL F5G17770
TRA F23 NO. F5G17780
F80 LXA FK5,1 FIND F5G17790
F81 CLA REG,1 THE 1ST AVAILABLE REGION F5G17800
TZE F82 POSITION. F5G17810
TIX F81,1,1 F5G17820
TSX 4,4 DIAGNOSTIC, ERROR F5G17830
F82 SXD XV1,1 STORE THE INDEX F5G17840
REM OF THE NEW REGION WORD F5G17850
F83 LDQ ZERO STORE INITIAL F5G17860
STQ XV2 VALUE OF REGION F5G17870
TRA 1,4 F5G17880
F78 TSX SA,4 GET EXIT CONDITIONS OF REGION. F5G17890
LXA S5K5,1 PUT EXIT F5G17900
LDQ ZERO F5G17910
F76 CLA EX1+3,1 CONDITONS F5G17920
STO IR1+3,1 INTO F5G17930
CLA ACT1+3,1 I+R.S F5G17940
STQ AC1+3,1 F5G17950
TPL F77 IS THIS EXIT ACTIVE F5G17960
CLA S3K3 YES,FORM AND F5G17970
SSM STORE ACTIVE F5G17980
STO AC1+3,1 INDICATOR F5G17990
F77 TIX F76,1,1 COUNT TO 3 F5G18000
CLA S3K3 INITIALIZE F5G18010
SUB ONED LOOP LIST F5G18020
STO S3V4 TO ITS F5G18030
STO S3V5 F5G18040
CLA S5K3 2ED F5G18050
STO S3V3 ELEMENT F5G18060
SXD S3V2,0 F5G18070
TRA X32 F5G18080
F75 TSX F80,4 DETERMINE NEW REGION INDEX F5G18090
CLA LPLST IS 1ST F5G18100
LDQ S3K2 ELEMENT OF LPLST A TRANSPARENT F5G18110
TLQ F78 ON OPAQUE REGION F5G18120
LXA S5K5,1 NO,INITIALIZE F5G18130
CLA S5K1 THE F5G18140
F79 STO IR1+3,1 I.R.S F5G18150
TIX F79,1,1 TO EMPTINESS F5G18160
TRA X F5G18170
REM FIRST LXING PASS. F5G18180
L SXD ROT3,0 F5G18190
SXD ROT1,0 F5G18200
INIZ LXA S5K5,1 INITIALIZE F5G18210
CLA S5K1 THE F5G18220
L23 STO IR1+3,1 INDEX REGISTERS F5G18230
TIX L23,1,1 TO EMPTINESS. F5G18240
LDQ S3K3 F5G18250
STQ S3V4 INITIALIZE THE F5G18260
LDQ S5K3 LOOP LIST. F5G18270
STQ S3V3 MAKE SURE THAT THE F5G18280
SXD S3V2,0 F5G18290
1L4 TSX S3,4 GET NEXT TAG. F5G18300
TRA L6 *RETURN HERE IF TAG WASNT GOTTEN. F5G18310
LXA S5K5,1 SET COUNT TO 3,N=1 F5G18320
CLA 1TAG IS CL (TAG) EQUAL F5G18330
L2 CAS IR1+3,1 TO C (IRN) F5G18340
TRA L1 NO. F5G18350
TRA 1L3 YES F5G18360
L1 TIX L2,1,1 NO. COUNT TO 3,N=N+1 F5G18370
CLA TPE IS THIS F5G18380
CAS XK15 AN LXP INSTR. F5G18390
TRA L18 NO, F5G18400
TRA ROT0 YES F5G18410
L18 CAS XK21 NO,IS IT A DED INSTR. F5G18420
TRA L17 NO F5G18430
TRA ROT0 YES F5G18440
TRA L17 F5G18450
ROT0 LXD S3V4,2 F5G18460
TXL 1L4,2,S3P1-2 F5G18470
LXD ROT3,2 F5G18480
TXI ROT1,2,-1 F5G18490
ROT1 TXL 1L4,2,- F5G18500
SXD ROT3,2 F5G18510
LXD ZERO,2 F5G18520
ROT2 CLA LPLST,2 F5G18530
CAS S3K1 F5G18540
ROT3 TXL ROT4,0,- F5G18550
TXL ROT5,0,- F5G18560
ROT4 STO LPLST-1,2 F5G18570
TXI ROT2,2,-1 F5G18580
ROT5 SXD ROT1,2 F5G18590
CLA LPLST-1 F5G18600
STO LPLST-1,2 F5G18610
TRA INIZ F5G18620
L17 TSX S1,4 SELECT MOST REPLACEABLE I.R. F5G18630
LXD IRR,4 PLACE TAU-TAG F5G18640
CLA 1TAG IN APPROPRIATE F5G18650
STO IR1+3,4 I.R. F5G18660
TRA 1L4 F5G18670
1L3 CLA TPE IS THIS AN LXP F5G18680
CAS XK15 F5G18690
TRA 1L19 F5G18700
TRA L5 YES F5G18710
1L19 CAS XK21 IS IT AN DED F5G18720
TRA 1L4 F5G18730
TRA L5 YES. F5G18740
TRA 1L4 F5G18750
L5 CLA LK1 PLACE AN E IHASH F5G18760
STO IR1+3,1 SYMBOL) IN F5G18770
TRA 1L4 RIGHT IR, F5G18780
L6 STO LV4 IS THIS AN END OF LOOP F5G18790
CAS S3K1 LIST SENTINEL F5G18800
TRA L14 NO, F5G18810
TRA L15 YES, F5G18820
L14 CAL LV4 IS F5G18830
ANA LK3 THIS A F5G18840
TZE 1L4 BB F5G18850
CLA LV4 NO,FORM CORRESPONDENCE F5G18860
TSX S5,4 BETWEEN IRS AND ENS F5G18870
CLA LV4 GET + STORE EXIT CONDITIONS F5G18880
TSX SA,4 AND (USELESSLY+ OCTIVE INDICATORS. F5G18890
LXA S5K5,1 SET COUNT TO 3,N=1 F5G18900
L11 CLA EN4+3,1 PUT CORRESPONDENCE INDEX F5G18910
PDX 0,2 IN 2. F5G18920
CLA EX1+3,1 IS THIS EXIT CONDITION F5G18930
CAS S5K1 EMPTY F5G18940
TRA L13 NO, F5G18950
TRA P003 F5G18960
L13 STO IR1+3,2 NO,REPLACE C (IR) BY EXIT CONDITION. F5G16970
L10 TIX L11,1,1 COUNT TO 3,N*M+1 F5G18980
TRA 1L4 F5G18990
P003 CLA IR1+3,2 F5G19000
LDQ LK1 F5G19010
TLQ L10 F5G19020
LXA S5K5,4 F5G19030
P003A CAS EX1+3,4 F5G19040
TRA P003B F5G19050
STQ IR1+3,2 F5G19060
P003B TIX P003A,4,1 F5G19070
TRA L10 F5G19080
L15 LXA S5K5,1 COPY ASIDE THE FINAL F5G19090
L16 CLA IR1+3,1 CONTENTS F5G19100
CAS LK1 (IF REAL, OTHERWISE F5G19110
NOP F5G19120
CLA S5K1 SET TO F5G19130
STO IR1+3,1 EMPTY) F5G19140
STO LV1+3,1 OF THE F5G19150
TIX L16,1,1 IRS F5G19160
REM TNE SECOND LXING PASS FOLLOWS. F5G19170
REM PRECEEDED BY 1ST LXING PASS F5G19180
X LDQ S3K3 INITIALIZE THE F5G19190
STQ S3V4 LOOP LIST AND F5G19200
LDQ S5K3 MAKE SURE TAG F5G19210
STQ S3V3 LOC. GETS SET. F5G19220
SXD S3V2,1 F5G19230
X21 CLA ZERO SET ACTIVE INDICATORS F5G19240
STO AC1 TO F5G19250
STO AC2 F5G19260
STO AC3 NOT ACTIVE. F5G19270
X32 CLA ZERO SET LX INDICATORS F5G19280
STO LX1 TO F5G19290
STO LX2 NOT F5G19300
STO LX3 LX ED. F5G19310
STO ACIND SET IND. TO SAY THIS IS 2ED LXING PASS F5G19320
X3 TSX S3,4 TRY TO GET NEXT TAG. F5G19330
TRA X13 COME HERE IF TAG NOT GOT. F5G19340
CLA S39 COMPUTE LOCATIONS OF F5G19350
ANA SBK2 THIS TAG=(ADDR. FOLLOWING F5G19360
ADD S4V1 TIX BLACK + L (CM)- F5G19370
SUB S4K3 CMTAG-INDEX OF TAG F5G19380
ALS 18 F5G19390
SBM S3V2 F5G19400
LRS 53 THEN FORM LOC/9 F5G19410
STQ XV5 AND REMAINDER F5G19420
DVP XK9 STORE INTEG. PART F5G19430
STQ XV3 AND REMAINDER. F5G19440
STO XV4 F5G19450
LXA S5K5,1 SET COUNT TO 3,N=1 F5G19460
CLA 1TAG F5G19470
X2 CAS IR1+3,1 IS CONTENTS OF IRN SAME AS OF TAG F5G19480
TRA X1 NO F5G19490
TRA X7 YES F5G19500
X1 TIX X2,1,1 NO COUNT OT 3,N=N+1 F5G19510
CLA TPE IS THIS AN F5G19520
CAS XK15 LX PRIME F5G19530
TRA X103 NO F5G19540
TRA X8 YES. COMPILE LXD FOR LXP. F5G19550
X103 CAS XK21 IS IT A DED F5G19560
TRA X8 F5G19570
TRA X3 YES F5G19580
X8 TSX S1,4 SELECT MOST REPLACEABLE I.R. F5G19590
LXD IRR,1 PLACE TAU-TAG F5G19600
CLA 1TAG IN SELECTED F5G19610
STO IR1+3,1 I.R. F5G19620
CLA AC1+3,1 IS THIS F5G19630
TZE X4 IR ACTIVE F5G19640
TSX SB,4 YES,RECORD SXD NECESSARY. F5G19650
X4 CLA TPE 1S THIS F5G19660
CAS S2K2 AN LX F5G19670
TRA X5 NO F5G19680
TRA X14 YES F5G19690
X5 CAL INTAG IS THIS 1ST INSTR. F5G19700
ANA XK10 IN A BB F5G19710
TNZ X9 F5G19720
CLA XV3 NO, F5G19730
TSX SE4,4 DETERMINE INDEX IN STAG F5G19740
LXA XV4,2 F5G19750
CAL XK11 GENERATE F5G19760
ALS 8,2 LX BIT F5G19770
ORS STAG,1 STORE IN STAG. F5G19780
X14 TSX SF,4 CHECK IF AN ACTIVE INSTR. F5G19790
TRA X01 COME HERE IF NOT ACTIVE F5G19800
LXD IRR,1 ACTIVE-STQRE ACTIVE F5G19810
CLA SFV1 INDICATOR F5G19820
STO AC1+3,1 F5G19830
X01 LXD IRR,2 F5G19840
CLA LX1+3,2 WAS AN ENTRANCE REQUIREMENT F5G19850
TNZ X19 BEEN DETERMINED FOR THIS BB. F5G19860
CLA LK1 NO,RECORD HASH F5G19870
STO LX1+3,2 AS ENTRANCE REQUIREMENT F5G19880
X19 CAL S5K3 RECORD THAT THERE IS AN F5G19890
ARS 3,2 LX FOR THIS IR IN F5G19900
ORS XV2 REGION. F5G19910
X02 CLA XV3 RECORD THE F5G19920
TSX SE4,4 SPECIFIC F5G19930
CAL XV4 TAG F5G19940
COM IN F5G19950
PAX 0,2 THE F5G19960
CAL IRR STAG F5G19970
ARS 0,2 TABLE F5G19980
ARS 0,2 F5G19990
ORS STAG,1 F5G20000
TRA X3 F5G20010
X9 LXD S3V4,1 GET F5G20020
TXL XI1+1,1,S3P1-2 F5G20030
CLA LPIND F5G20040
TMI XI1+1 F5G20050
LXD IRR,2 F5G20060
XI1 TRA X16-3 F5G20070
CLA LPLST+S3P1-2,1 AND F5G20080
CAS S3K2 STORE F5G20090
NOP BB F5G20100
TRA X117 F5G20110
ARS 18 PRED F5G20120
X117 STA SBV3 NO. F5G20130
CLA LPLST+S3P1-1,1 F5G20140
TSX SE,4 GET ADDR. OF F5G20150
CLA BBB,1 1ST PRED. F5G20160
X03 SLW SBV2 F5G20170
TSX SE5,4 GET PRED. F5G20180
CAL PRED,1 F5G20190
ANA SBK2 F5G20200
CAS SBV3 IS THIS RIGHT PRED. F5G20210
TRA X04 NO F5G20220
TRA X05 YES F5G20230
X04 CLA SBV2 NO ARRANGE TO F5G20240
ADD ONEA TRY NEXT F5G20250
TRA X03 PRED. F5G20260
X05 LXD IRR,2 PUT LX F5G20270
CAL XK16 BIT INTO F5G20280
ARS 3,2 PRED. F5G20290
ORS PRED,1 TABLE. F5G20300
LXD S3V4,4 F5G20310
ORS LPLST+S3P1-1,4 F5G20320
CLA IR1+3,2 SET ENTR. REQU. F5G20330
STO LX1+3,2 F5G20340
TRA X14 F5G20350
X16 TSX SC,4 RECORD I.R. ACTIVE IN SECTION OF LPLST F5G20360
LDQ LK1 F5G20370
CLA LX1+3,1 HAS THIS F5G20380
TNZ X100 ENTR. REQU. BEEN DETERMINED F5G20390
STQ LX1+3,1 NO,RECORD ENTR. REOU. IS AN E. F5G20400
X100 STQ IR1+3,1 ERASE THIS I.R. F5G20410
CLA ZERO RECORD THAT THIS F5G20420
STO AC1+3,1 I.R. ISNT ACTIVE. F5G20430
TRA X02 F5G20440
X7 SXD IRR,1 F5G20450
CLA TPE IS THIS F5G20460
CAS XK15 AN LXP F5G20470
TRA X104 NO F5G20480
TRA X16 YES. F5G20490
X104 CAS XK21 IS IT A DED F5G20500
TRA X15 F5G20510
TRA X16 YES. F5G20520
X15 TSX SF,4 DETERMINE ACTIVITY. F5G20530
TRA X17 COME HERE IF NOT ACTIVE. F5G20540
LXD IRR,1 F5G20550
TSX SC,4 RECORD PART OF L0OP LIST ACTIVE. F5G20560
CLA SFV1 STORE ACTIVE F5G20570
STO AC1+3,1 INDICATOR. F5G20580
X17 CLA TPE F5G20590
CAS S2K2 IS THIS AN LX F5G20600
TRA X18 F5G20610
TRA X01 YES. F5G20620
X18 LXD IRR,1 F5G20630
CLA LX1+3,1 WAS THIS F5G20640
TNZ X02 I.R. LX ED F5G20650
CLA IR1+3,1 NO,STORE THE TAG F5G20660
STO LX1+3,1 IN TH LX INDICATOR. F5G20670
TRA X02 F5G20680
X22 TSX SE,4 MAKE SURE BB IS IN C+M. F5G20690
LXA S5K5,2 F5G20700
X25 CLA LX1+3,2 F5G20710
TNZ X23 HAS THIS ENTRANCE REQ. BEEN FOUND F5G20720
CLA IR1+3,2 NO,ENTRANCE = EXIT. F5G20730
X23 ALS 18 PUT ENTR. REQ. IN LEFT. F5G20740
ADD IR1+3,2 ADD THE EXIT REQUIREMENTS. F5G20750
SLW BBB+2,1 F5G20760
TXI X24,1,-1 DOWN INDEX OF ENTR-EXIT REQU. F5G20770
X24 TIX X25,2,1 COUNT TO 3 F5G20780
TRA X26 F5G20790
X13 LXD S3V4,1 GET LOOP LIST QUANTITY F5G20800
TXH X26,1,S3P1-2 TRANSFER IF THIS IS 1ST IN LPLST F5G20810
CLA LPLST+S3P1-2,1 OF PREVIOUS QUANTITY F5G20820
STO XV19 F5G20830
LDQ S3K2 WAS IT F5G20840
TLQ X126 A BB F5G20850
ARS 18 YES F5G20860
X126 ANA S3K4 IS THERE F5G20870
LDQ SAK1 F5G20880
TLQ X129 F5G20890
TSX SE1,4 YES, GET EXIT BB F5G20900
CLA BBB,1 WAS THAT BB F5G20910
ARS 33 TERMINATED BY F5G20920
ADD ONEA A F5G20930
TNZ X129 GO TO N F5G20940
LXA S5K5,1 YES, SET COUNT TO 3 F5G20950
X128 CLA AC1+3,1 IS THIS IR F5G20960
TZE X127 ACTIVE F5G20970
TSX SB,4 YES, RECORD SXD NECESSARY F5G20980
X127 TIX X128,1,1 COUNT TO 3 F5G20990
X129 CLA XV19 GET F5G21000
CAS S3K2 F5G21010
NOP NO F5G21020
TRA X26 F5G21030
TRA X22 YES, F5G21040
X26 CLA S3V5 NO F5G21050
CAS S3K1 IS THIS AN END-LOOP-LIST F5G21060
TRA X31 NO F5G21070
TRA X88 YES F5G21080
X31 CAL S3V5 F5G21090
ANA LK3 F5G21100
CAS XK17 WHAT TYPE ENTRY IS THIS F5G21110
TRA X118 F5G21120
TRA X33 TRANSPARENT REGION F5G21130
TRA X32 BB F5G21140
X118 CLA S3V5 OPAQUE REGION F5G21150
TSX SE,4 IS F5G21160
CLA BBB+5,1 THIS F5G21170
STO XV24 F5G21180
STD XV23 THE F5G21190
CLA LPLST SAME F5G21200
LDQ FK4 F5G21210
TLQ X221 F5G21220
TXI X213,0,- F5G21230
X221 TSX SE1,4 REGION F5G21240
CLA BBB+5,1 AS F5G21250
ANA S2K1 AT THE BEGINNING F5G21260
SUB XV23 OF THE F5G21270
STO XV24 STORE IND. OF SAMENESS OF 1ST REGION F5G21280
TZE X61 LPLST F5G21290
X213 CLA S3V5 F5G21300
X57 TSX S5,4 NO,MATCH ENTR. REQU. F5G21310
X63 LXD XV23,1 GET F5G21320
CLA REG,1 REGION WORD F5G21330
TSX SE,4 CST INDEX OF 1ST BB F5G21340
X209 CAL BBB+1,1 GET THE F5G21350
SLW XV9 ORIGINAL PERM. NOS. F5G21360
ANA XK20 STORE WORD TO F5G21370
SLW XV8 CONTAIN NEW PERM. NOS. F5G21380
LXA S5K5,2 SET COUNT TO 3 F5G21390
X210 CAL XV9 GET THE F5G21400
ARS 3,2 F5G21410
ARS 3,2 PERM. NO. AND F5G21420
ANA S9K3 PUT IT F5G21430
PDX 0,4 IN 4. F5G21440
CLA EN4+3,4 GET THE F5G21450
ALS 3,2 CORRESPONDENCE F5G21460
ALS 3,2 OF THE ENTR. REQUIREMENTS F5G21470
ORS XV8 FORM NEW PERM. F5G21480
TIX X210,2,1 F5G21490
CAL XV8 STORE NEW PERM. F5G21500
STD BBB+1,1 NOS. F5G21510
CLA BBB+5,1 IS THIS THE LAST F5G21520
ANA SBK2 BB IN REGION F5G21530
CAS SBK2 F5G21540
TRA X211 NO. F5G21550
TRA X212 YES, DONE F5G21560
X211 TSX SE1,4 ARRANGE TO DO NEXT F5G21570
TRA X209 BB. F5G21580
X212 LXA S5K5,1 SET COUNT TO 3 F5G21590
X60 CLA IN1+3,1 GET INDEX F5G21600
PDX 0,2 OF EN. F5G21610
CLA EN1+3,2 IS C(ENM) F5G21620
CAS IR1+3,1 =C(IRN) F5G21630
TRA X58 F5G21640
TRA X64 YES, F5G21650
X58 CAS S5K2 IS C(ENM) REAL F5G21660
NOP NO, F5G21670
TRA X119 F5G21680
TRA X67 YES, F5G21690
X119 CLA AC1+3,1 NO,IS F5G21700
X102 TZE X59 IRN ACTIVE F5G21710
X65 TSX SB,4 YES,RECORD SXD NECESSARY. F5G21720
X59 TIX X60,1,1 F5G21730
TSX SG,4 PERMUTE REGION WORD F5G21740
X89 CLA LPLST F5G21750
CAS S3K2 IS IT A BB F5G21760
TSX SE1,4 NO F5G21770
TRA X206 F5G21780
TRA X207 F5G21790
X206 CLA BBB+5,1 F5G21800
PDX 0,1 F5G21810
CLA REG,1 FORM NO OF 1ST BB IN REGION F5G21820
X207 STD XV2 F5G21830
LXA S5K5,1 F5G21840
X116 CLA S5K1 F5G21850
CAS IR1+3,1 IS THIS IR EMPTY F5G21860
TRA X115 F5G21870
CAL XK23+3,1 YES, INITIALIZE IR F5G21880
ORS XV2 TO EMPTYNESS F5G21890
X115 TIX X116,1,1 COUNT TO 3 F5G21900
LXD S3K3,2 PREPARE TO SCAN LO0P LIST F5G21910
SXD XV12,2 F5G21920
X79 CLA LPLST+S3P1,2 F5G21930
CAS S3K1 IS THIS END LOOP LIST F5G21940
TRA X120 F5G21950
TRA X81 YES. F5G21960
X120 CAS S3K2 IS IT A BB F5G21970
NOP F5G21980
TRA X121 F5G21990
ARS 18 YES. F5G22000
X121 STA SBV3 STORE EXIT BB NO. F5G22010
CLA LPLST+S3P1+1,2 F5G22020
CAS S3K1 IS NEXT QUANTITY AN END LPLST F5G22030
TRA X107 F5G22040
TRA X114 YES. F5G22050
X107 ARS 18 F5G22060
STA XV18 STORE ENTRY BB NO. F5G22070
ADD ONEA F5G22080
TSX SE1,4 F5G22090
CAL BBB,1 F5G22100
ANA SBK2 F5G22110
STO SBV5 F5G22120
CLA XV18 F5G22130
TSX SE1,4 F5G22140
CLA BBB,1 F5G22150
ANA SBK2 F5G22160
X109 SLW SBV2 F5G22170
TSX SE5,4 F5G22180
CAL PRED,1 F5G22190
ANA SBK2 F5G22200
CAS SBV3 IS THIS THE RIGHT TRANSFER F5G22210
TRA X108 F5G22220
TRA X110 YES F5G22230
X108 CLA SBV2 ARRANGE TO TRY F5G22240
ADD ONEA NEXT PRED. F5G22250
CAS SBV5 IS THIS PRED ENTRY IN SAME BB F5G22260
TRA X109 F5G22270
TRA X222 F5G22280
TRA X109 F5G22290
X110 CLA PRED,1 SET SIGN F5G22300
SSM OF PRED. F5G22310
STO PRED,1 ENTRY NEGATIVE. F5G22320
TRA X108 F5G22330
X222 CLA SBV3 GET INDEX F5G22340
ADD ONEA F5G22350
TSX SE1,4 OF F5G22360
CLA BBB,1 F5G22370
ANA S2K1 F5G22380
STO SBV5 F5G22390
CLA SBV3 F5G22400
TSX SE1,4 F5G22410
CLA BBB,1 F5G22420
ANA S2K1 F5G22430
X112 SLW SBV2 F5G22440
TSX SE6,4 F5G22450
CAL SUCC,1 F5G22460
ANA SBK2 F5G22470
CAS XV18 IS THIS RIGHT SUCC. F5G22480
TRA X111 F5G22490
TRA X113 F5G22500
X111 CLA SBV2 ARRANGE TO TRY NEXT SUCC. F5G22510
ADD ONED F5G22520
CAS SBV5 IS THIS SUCC IN SAME BB F5G22530
TRA X112 F5G22540
TRA X74 F5G22550
TRA X112 F5G22560
X114 CLA LPIND IS THIS F5G22570
TPL X74 A LOOP F5G22580
CLA LPLST YES F5G22590
TRA X107 F5G22600
X113 CLA SUCC,1 SET SIGN F5G22610
SSM OF SUCC+ ENTRY F5G22620
STO SUCC,1 NEGATIVE F5G22630
TRA X111 F5G22640
X74 LXD XV12,2 F5G22650
CLA LPLST+S3P1,2 F5G22660
CAS S3K2 IS IT A BB F5G22670
NOP F5G22680
TRA X122 F5G22690
TRA X80 YES F5G22700
X122 PDX 0,4 F5G22710
TXH X205,4,-2 IS THE DECR. AN IMPOSSIBLE BB F5G22720
ARS 18 F5G22730
X205 TSX SE1,4 F5G22740
CLA BBB+5,1 THE F5G22750
PDX 0,1 REOEON F5G22760
CAL REG,1 WORD F5G22770
SLW XV17 F5G22780
TZE X105 HAS THIS REGION ALREADY BEEN RENUMBERED F5G22790
ANA LK3 OR THE LX BITS FOR F5G22800
ORS XV2 OLD REGION IN NEW REGION WORD. F5G22810
CAL XK22 AND THE OLD PHI F5G22820
ORA XV17 BITS F5G22830
ANS XV2 INTO NEW REGION WORD. F5G22840
CLA ZERO CLEAR OLD F5G22850
STO REG,1 REGION WORD. F5G22860
CLA XV17 GET INDEX OF F5G22870
ARS 18 FIRST BB IN REG F5G22880
X75 STA XV22 STOREBB NO. F5G22890
TSX SE1,4 GET INDEX OF BB F5G22900
X101 CLA XV1 STORE THE F5G22910
STD BBB+5,1 NEW REGION NO. F5G22920
CLA BBB+5,1 IS THIS THE F5G22930
ANA SBK2 LAST BB F5G22940
CAS SBK2 OF THE REGION F5G22950
TRA X75 F5G22960
TRA X76 YES. F5G22970
TRA X75 F5G22980
X105 CLA XV22 RECORD THAT PREVI0USLY F5G22990
TSX SE1,4 NUMBERED BB F5G23000
CLA XK22 WAS LAST F5G23010
STA BBB+5,1 ONE IN NEW REGION. F5G23020
TRA X81 FINISHED RENUMBERING. F5G23030
X80 ARS 18 F5G23040
STA XV22 F5G23050
TSX SE1,4 F5G23060
X76 LXD XV12,2 F5G23070
X140 TXI X140+1,2,-1 F5G23080
SXD XV12,2 F5G23090
X77 CLA LPLST+S3P1,2 F5G23100
CAS S3K1 IS THIS END LOOP LIST F5G23110
X219 TXI X217,0,- SEE X217+2 F5G23120
CLA S5K1 YES F5G23130
X216 STA BBB+5,1 RECORD THE NEXT BB NO. F5G23140
CLA XV1 RECORD THE F5G23150
STD BBB+5,1 NEW REGION F5G23160
TRA X79 NO. F5G23170
X217 LDQ S3K2 F5G23180
TLQ X220 F5G23190
X215 ARS 18 NO F5G23200
X218 TXI X216,0,- F5G23210
X220 SXD X219,2 F5G23220
TSX SE,4 F5G23230
CLA BBB+5,1 F5G23240
PDX 0,1 F5G23250
CLA REG,1 GET REGION WORD F5G23260
STD X218 F5G23270
CLA XV22 F5G23280
TSX SE1,4 F5G23290
CLA X218 F5G23300
LXD X219,2 F5G23310
TXI X215,-,- F5G23320
X81 CLA XV2 F5G23330
ORA ONEA F5G23340
LXD XV1,1 NEW REGION F5G23350
STO REG,1 WORD. F5G23360
TRA F F5G23370
X61 LXA S5K5,1 F5G23380
X62 PXD 0,1 PLACE APPROPRIATE NOS. F5G23390
STD IN1+3,1 IN CORRSEPONDENCE F5G23400
STD EN4+3,1 TABLES F5G23410
TIX X62,1,1 F5G23420
CLA S3V5 F5G23430
TSX S9,4 GET THE ENTRANCE REQUIREMENTS F5G23440
TRA X63 F5G23450
X64 CLA AC1+3,1 IS THIS I.R. F5G23460
TZE X59 ACTIVE F5G23470
LXD S3V4,4 YES. F5G23480
CLA LPLST+S3P1-1,4 GET F5G23490
SXD XV11,1 THE F5G23500
SXD XV12,2 REGION F5G23510
TSX SE,4 WORD F5G23520
CLA BBB+5,1 IN F5G23530
PDX 0,4 THE F5G23540
LDQ REG,4 MQ. F5G23550
LXD XV11,1 HAS THERE F5G23560
LXD XV12,2 F5G23570
RQL 3,2 BEEN AN LX F5G23580
TQP X66 FOR THIS I.R. F5G23590
TRA X65 YES F5G23600
X66 CLA XV24 F5G23610
TNZ X208 IS THIS SAME REG. AS BEGINS STRING F5G23620
CLA LPLST YES F5G23630
TSX SA,4 GET ACTIVE INDS. AT START OF STRING F5G23640
LXD XV11,1 F5G23650
CLA ACT1+3,1 WAS THIS IR ACTIVE AT START F5G23660
TPL X65 F5G23670
X208 LXD S3V4,4 YES, MARK ALL F5G23680
CLA LPLST+S3P1-1,4 BBS IN OPAQUE F5G23690
LXD XV11,2 REGION ACTIVE F5G23700
TSX SD,4 F5G23710
LXD XV11,1 F5G23720
TSX SC,4 MARK SECTION OF LLLST ACTIVE F5G23730
TRA X59 F5G23740
X67 SXD XV11,1 F5G23750
LXD S3V4,1 GET F5G23760
CLA LPLST+S3P1-2,1 PRED+ NO F5G23770
CAS S3K2 IS THIS A BB F5G23780
NOP NO, F5G23790
TRA X123 F5G23800
ARS 18 YES,SHIFT BB NO RIGHT. F5G23810
X123 STA SBV3 AND STORE IT F5G23020
CLA LPLST+S3P1-1,1 GET INDEX OF F5G23830
TSX SE,4 THIS BB F5G23840
CLA BBB+1,1 GET TO STORE F5G23050
STO XV9 PREM. NO. - F5G23060
CLA BBB,1 GET PRED. NO. F5G23070
X68 SLW SBV2 F5G23880
TSX SE5,4 GET INDEX OF PRED. F5G23890
CAL PRED,1 IS THIS THE F5G23900
ANA SBK2 RIGHT PRED F5G23910
CAS SBV3 F5G23920
TRA X69 F5G23930
TRA X70 YES. F5G23940
X69 CLA SBV2 F5G23950
ADD ONEA F5G23960
TRA X68 F5G23970
X70 LXA S5K5,4 SET COUNT TO 3 F5G23980
X72 CAL XV9 FIND F5G23990
ARS 3,4 THE F5G24000
ARS 3,4 PERM+ NO. F5G24010
ANA S9K3 F5G24020
CAS XV11 IS THIS THE RIGHT I.R. F5G24030
TRA X71 NO, F5G24040
TRA X73 YES, F5G24050
X71 TIX X72,4,1 NO, F5G24060
TSX 4,4 DIAGNOSTIC, ERROR. F5G24070
X73 CAL XK16 RECORD THAT AN F5G24080
ARS 3,4 LX IS F5G24090
ORS PRED,1 NECESSARY. F5G24100
LXD XV11,4 RECORD F5G24110
CAL S5K3 LX F5G24120
ARS 3,4 FOR THIS I.R. F5G24130
ORS XV2 IN THIS REGION. F5G24140
LXD XV11,1 F5G24150
TRA X119 F5G24160
X33 CLA S3V5 F5G24170
TSX S5,4 MATCH ENTRANCE REQU. F5G24180
CLA S3V5 F5G24190
TSX SA,4 GET EXIT COND. F5G24200
CLA S3V5 F5G24210
TSX SE,4 GET INDEX OF F5G24220
CLA BBB+5,1 B.B. F5G24230
PDX 0,1 GET F5G24240
CLA REG,1 REGION F5G24250
TSX SE,4 WORD. F5G24260
X40 SXD XV13,1 GET INDEX OF FIRST BB. F5G24270
CAL BBB+1,1 CLEAR REGISTER TO F5G24280
SLW XV9 CONTAIN PERM. NOS. F5G24290
ANA XK20 GET ORIGINAL PERM. NOS. F5G24300
SLW XV8 F5G24310
LXA S5K5,2 SET COUNT TO 3. F5G24320
X38 CAL XV9 GET THE F5G24330
ARS 3,2 PERM. F5G24340
ARS 3,2 NO. AND F5G24350
ANA S9K3 PUT IT F5G24360
PDX 0,4 IN 4. F5G24370
CLA EN4+3,4 GET THE CORRESPONDENCE F5G24380
ALS 3,2 OF THE ENTR, F5G24390
ALS 3,2 REQUIREMENTS. F5G24400
ORS XV8 FORM NEW PERM. NOS. F5G24410
SXD XV10,1 F5G24420
CLA EN4+3,4 F5G24430
PDX 0,1 GET INDEX OF I.R. F5G24440
CLA EN1+3,4 F5G24450
CAS S5K1 IS ENM EMPTY F5G24460
TRA X34 NO, F5G24470
TRA X41 YES, F5G24480
X34 CAS LK1 NO,IS C(ENM)=E F5G24490
TRA X35 NO, F5G24500
TRA X36 YES, F5G24510
X35 CAS IR1+3,1 C-(ENM)=C(IRN) F5G24520
TRA X36 NO F5G24530
TRA X43 YES F5G24540
X36 LXD XV10,1 NO F5G24550
X42 TXI X42+1,1,-1 F5G24560
X37 TIX X38,2,1 COUNT TO 3 F5G24570
CAL XV8 STORE NEW F5G24580
STD BBB-2,1 PERM. NOS. F5G24590
STP BBB-2,1 AND ACTIVE INDICATORS F5G24600
CLA BBB+2,1 IS THIS F5G24610
ANA SBK2 LAST BB IN REGION F5G24620
CAS SBK2 F5G24630
TRA X39 F5G24640
TRA X45 YES,DONE. F5G24650
X39 TSX SE1,4 GET INDEX 0F NEXT B.B. F5G24660
TRA X40 F5G24670
X200 CLA EX1+3,4 IS CONTENTS OF IR F5G24680
LDQ S5K2 AT EXIT F5G24690
TLQ X130 REAL F5G24700
TRA X36 YES F5G24710
X43 CLA ACT1+3,4 F5G24720
PW0 SXD W2+1,1 F5G24730
TPL X200 IS IT ACTIVE AT EXIT F5G24740
X130 CLA AC1+3,1 YES,IS THIS IR ACTIVE F5G24750
TZE X36 F5G24760
CLA IR1+3,1 YES F5G24770
STO XV21 F5G24780
LXD XV10,1 DOES THIS BB CONTAIN THE F5G24790
CLA BBB+2,1 SAME TAG IN THIS POSITION F5G24800
ANA S5K1 F5G24810
CAS XV21 F5G24820
TRA W0 F5G24830
TRA X44 YES. F5G24840
TRA W0 F5G24850
REM C(XV10)= INDEX OF PARTICULAR F5G24860
REM ENTRANCE REQUIREMENT. F5G24870
X41 CLA IR1+3,1 F5G24880
STO XV6 F5G24890
ALS 18 STORE AWAY THIS F5G24900
ADD IR1+3,1 TAG TEMPORARILY. F5G24910
SLW XV7 F5G24920
CLA IR1+3,1 IS THIS F5G24930
LDQ S5K2 TAG F5G24940
TLQ X201 F5G24950
LXD XV13,1 F5G24960
LXA S5K5,4 SET COUNT TO 3. F5G24970
X85 CAL BBB+2,1 F5G24980
LRS 18 F5G24990
CAS XV6 IS ENTR. REQU. EQUAL TO TAG F5G25000
TRA X82 NO, F5G25010
TRA X86 YES, F5G25020
X82 CLA ZERO NO, F5G25030
LLS 18 F5G25040
CAS XV6 IS TAG EQUAL TO EXIT COND. F5G25050
TRA X83 F5G25060
TRA X87 YES F5G25070
X83 TXI X83+1,1,-1 F5G25080
X84 TIX X85,4,1 COUNT TO 3. F5G25090
X201 CLA XV7 STORE THE F5G25100
LXD XV10,1 NEW ENTRANCE- F5G25110
STO BBB+2,1 EXIT REQUI. F5G25120
TRA X42 F5G25130
X86 CAL XK18 PUT AN E F5G25140
STD XV7 IN THE ENTR. REQU. F5G25150
STP XV7 F5G25160
TRA X82 F5G25170
X87 CAL XV7 PLACE E F5G25180
ANA XK19 IN F5G25190
ADD LK1 EXIT F5G25200
SLW XV7 REQUIREMENT. F5G25210
TRA X83 F5G25220
X44 CAL S5K3 RECORD THIS F5G25230
ARS 3,2 I.R. F5G25240
ORS XV8 ACTIVE F5G25250
TRA X42 F5G25260
X45 LXA S5K5,2 F5G25270
X56 SXD XV14,2 F5G25280
CLA EN4+3,2 F5G25290
PDX 0,4 GET INDEX F5G25300
SXD SBV4,4 OF I.R. F5G25310
CLA EN1+3,2 F5G25320
CAS S5K1 IS ENM EMPTY F5G25330
TRA X46 F5G25340
TRA X223 F5G25350
X46 CAS LK1 IS THERE HASH IN ENM F5G25360
TRA X134 F5G25370
TRA X55 YES F5G25380
X134 CAS IR1+3,4 DOES CONTENTS OF IR EQUAL CONTENTS OF EN F5G25390
TRA X47 NO F5G25400
TRA X131 YES F5G25410
X47 LXD S3V4,1 GET AND F5G25420
CLA LPLST+S3P1-2,1 STORE PRED. F5G25430
CAS S3K2 BB F5G25440
NOP NO. F5G25450
TRA X124 F5G25460
ARS 18 F5G25470
X124 STA SBV3 F5G25480
CLA LPLST+S3P1-1,1 GET F5G25490
TSX SE,4 BB NO. F5G25500
CLA BBB+1,1 STORE THE F5G25510
STO XV9 PERM. NOS. F5G25520
CLA BBB+5,1 F5G25530
PDX 0,4 F5G25540
LXD XV14,2 F5G25550
CAL S5K3 F5G25560
ARS 3,2 F5G25570
ORS REG,4 F5G25580
CLA BBB,1 GET PRED. NO. F5G25590
X48 SLW SBV2 STORE PRED. NO. F5G25600
TSX SE5,4 OBTAIN PRED. INDEX. F5G25610
CAL PRED,1 IS THIS F5G25620
ANA SBK2 THE CORRECT F5G25630
CAS SBV3 PRED F5G25640
TRA X49 F5G25650
TRA X50 YES. F5G25660
X49 CLA SBV2 ARRANGE TO F5G25670
ADD ONEA TRY NEXT PREDECESSOR. F5G25680
TRA X48 F5G25690
X50 LXA S5K5,4 1 HAS INDEX OF PRED. F5G25700
X52 CAL XV9 EXTRACT F5G25710
ARS 3,4 THE F5G25720
ARS 3,4 PERM. F5G25730
ANA S9K3 NO. F5G25740
CAS SBV4 IS THIS THE PERM. NO. F5G25750
TRA X51 F5G25760
TRA X53 YES. F5G25770
X51 TIX X52,4,1 F5G25780
TSX 4,4 DIAGNOSTIC, ERROR. F5G25790
X53 CAL XK16 GENERATE F5G25800
ARS 3,4 THE LX BIT. F5G25810
ORS PRED,1 INSERT LX BIT. F5G25820
X55 LXD SBV4,1 IS THE F5G25830
CLA AC1+3,1 I.R. F5G25840
TZE X135 ACTIVE F5G25850
TSX SB,4 YES,RECORD SXD NEEDED. F5G25860
X135 LXD XV14,2 REPLACE IR F5G25870
LXD SBV4,4 BY EXIT CONDITIONS F5G25880
CLA EX1+3,2 OF THE F5G25890
STO IR1+3,4 REGION F5G25900
X136 CLA ACT1+3,2 IS IR F5G25910
TPL X54 ACTIVE AT EXIT F5G25920
CLA S3V4 SET F5G25930
SSM ACTIVE F5G25940
SUB ONED INDICATOR F5G25950
STO AC1+3,4 F5G25960
X54 LXD XV14,2 COUNT TO F5G25970
TIX X56,2,1 3 F5G25980
TSX SG,4 PERMUTE REGION WORD F5G25990
CAL REG,2 F5G26000
ANA XK22 F5G26010
SLW REG,2 F5G26020
LXA S5K5,4 F5G26030
XY1 CLA IR1+3,4 F5G26040
SUB S5K1 F5G26050
TNZ XY2 F5G26060
CAL XK23+3,4 F5G26070
ORS REG,2 F5G26080
XY2 TIX XY1,4,1 F5G26090
TRA X3 F5G26100
X223 CLA IR1+3,4 IS CONTENTS OF IR REAL F5G26110
LDQ S5K2 F5G26120
TLQ X54 F5G26130
LXA S5K5,1 YES, SET COUNT TO 3 F5G26140
X225 CAS EX1+3,1 IS CONTENTS SAME AS EXIT CONDITIONS F5G26150
TRA X224 F5G26160
TRA X226 YES F5G26170
X224 TIX X225,1,1 COUNT TO 3 F5G26180
TRA X54 F5G26190
X226 CLA LK1 REPLACE IR BY E F5G26200
STO IR1+3,4 F5G26210
TRA X54 F5G26220
X131 LDQ EX1+3,2 IS THE EXIT F5G26230
CLA S5K2 CONDITION REAL FOR THIS IR F5G26240
TLQ X132 F5G26250
X133 LXD SBV4,1 NO F5G26260
TSX SC,4 RECORD PART OF LPLST ACTIVE F5G26270
TRA X135 F5G26280
X132 CLA ACT1+3,2 IS THIS IR ACTIVE F5G26290
TPL X135 AT EXIT OF REGION F5G26300
TRA X133 YES F5G26310
X88 CLA LPIND F5G26320
TPL XY3 IS THIS A LOOP F5G26330
CLA LPLST-1 YES F5G26340
CAS S3K2 IS LAST LPLST QUANTITY A BB F5G26350
NOP NO, F5G26360
TRA X125 F5G26370
ARS 18 YES F5G26380
X125 STA SBV3 STORE PRED. NO. F5G26390
CLA LPLST F5G26400
TSX SE,4 GET INDEX 0F 1ST BB IN LOOP. F5G26410
SXD XV8,1 STORE INDEX OF 1ST BB F5G26420
CLA BBB,1 F5G26430
X91 SLW XV16 STORE PRED. NO. F5G26440
TSX SE5,4 GET INDEX OF PRED. F5G26450
CLA PRED,1 IS F5G26460
ANA SBK2 THIS THE F5G26470
CAS SBV3 RIGHT PRED F5G26460
TRA X90 F5G26490
TRA X92 YES F5G26500
X90 CLA XV16 F5G26510
ADD ONEA F5G26520
TRA X91 F5G26530
XY3 LXA S5K5,1 F5G26540
XY4 TSX SC,4 F5G26550
TIX XY4,1,1 F5G26560
TRA X89 F5G26570
X97 SXD X137,1 F5G26580
CAS IR1+3,1 IS CONTENTS OF IRN EQUAL TO CONTENTS OF ENM F5G26590
TRA X98 F5G26600
TRA X93 YES F5G26610
X98 CAL S5K3 RECORD LX FOR F5G26620
ARS 3,1 THIS IR IN THIS F5G26630
LXD XV1,1 REGION. F5G26640
ORS REG,1 F5G26650
SXD XV14,4 GET F5G26660
SXD XV15,2 INDEX F5G26670
CLA XV16 OF F5G26680
TSX SE5,4 PRED. F5G26690
LXD XV14,4 F5G26700
LXD XV15,2 F5G26710
CAL XK16 RECORD F5G26720
ARS 3,4 LX F5G26730
ORS PRED,1 NECESSARY. F5G26740
LXD X137,1 F5G26750
X137 TXI X96,0,- F5G26760
X92 LXD XV8,2 F5G26770
LXA S5K5,4 SET COUNT TO 3 F5G26760
CLA BBB+1,2 GET THE WORD WITH F5G26790
STO XV9 PERM. NOS. F5G26800
X95 CAL XV9 GET F5G26810
ARS 3,4 INDEX F5G26820
ARS 3,4 OF F5G26830
ANA S9K3 THE F5G26640
PDX 0,1 I.R. F5G26850
CAL BBB+2,2 GET ENTRANCE F5G26860
ARS 18 REQUIREMENT. F5G26870
CAS S5K2 IS ENM REAL F5G26880
NOP F5G26890
TRA X96 NO F5G26900
TRA X97 YES F5G26910
X96 CLA AC1+3,1 IS IRN F5G26920
TZE X93 ACTIVE F5G26930
SXD XV14,2 YES, F5G26940
SXD XV15,4 F5G26950
TSX SB,4 RECORD SXD NECESSARY. F5G26960
LXD XV14,2 F5G26970
LXD XV15,4 F5G26980
X93 TXI X93+1,2,-1 F5G26990
X94 TIX X95,4,1 COUNT TO 3 F5G27000
REM ACTIVE PASS. F5G27010
REM FOLLOWS 2 ED LXING PASS. F5G27020
LDQ S3K3 INITIALIZE THE F5G27030
STQ S3V4 LOOP LIST F5G27040
LDQ S5K3 AND F5G27050
STQ S3V3 MAKE SURE TAG F5G27060
STQ ACIND SET IND. TO SAY THIS IS ACTIVE PASS F5G27070
SXD S3V2,0 LOCATION GETS SET F5G27080
A3 CLA ZERO ARE F5G27090
ADM AC1 THERE F5G27100
ADM AC2 ANY F5G27110
ADM AC3 ACTIVE I.R.S F5G27120
TZE X89 LEFT GO TO RENUMBER. F5G27130
TSX S3,4 YES. TRY TO GET NEXT TAG. F5G27140
TRA A12 COME HERE IF TAG NOT GOT F5G27150
CLA S39 COMPUTE LOCATION OF THIS F5G27160
ANA SBK2 TAG=(ADDR. F0LLOWING F5G27170
ADD S4V1 TIX BLOCK + L(CM)-CM TAG F5G27180
SUB S4K3 - INDEX OF TAG.) F5G27190
ALS 18 F5G27200
SBM S3V2 F5G27210
LRS 53 F5G27220
STQ XV5 F5G27230
DVP XK9 FORM LOC/9 AND F5G27240
STQ XV3 REMAINDER F5G27250
STO XV4 F5G27260
CLA TPE IS THIS F5G27270
CAS S2K2 AN LX F5G27280
TRA A1 F5G27290
TRA A5 YES F5G27300
A1 CAS XK15 IS IT AN LX PRIME F5G27310
TRA A20 F5G27320
TRA A8 YES F5G27330
A20 CAS XK21 IS IT A DED F5G27340
TRA A21 F5G27350
TRA A8 YES. F5G27360
A21 CAS XK12 IS IT AN ACTIVE INSTR. F5G27370
TRA A2 F5G27380
TRA A5 YES. F5G27390
A2 CLA XV3 GET INDEX F5G27400
TSX SE4,4 OF STAG ENTRY. F5G27410
LXA XV4,2 IS THERE F5G27420
CAL STAG,1 AN LX F5G27430
ARS 8,2 IN FRONT F5G27440
ANA XK11 OF F5G27450
CAS XK11 THIS INSTR. F5G27460
TRA A3 F5G27470
TRA A4 YES. F5G27480
TRA A3 F5G27490
A4 CAL XV4 GET F5G27500
COM THE F5G27510
PAX 0,2 S-TAG F5G27520
CAL STAG,1 IN F5G27530
ALS 0,2 DECR. F5G27540
ALS 0,2 PART. F5G27550
ANA S9K3 F5G27560
PDX 0,1 F5G27570
CLA AC1+3,1 IS THE CORRESPONDING F5G27580
TZE A3 I.R. ACTIVE F5G27590
TSX SB,4 YES,RECORD SXD NECESSARY F5G27600
TRA A3 F5G27610
A5 CLA XV3 F5G27620
TSX SE4,4 GET STAG INDEX. F5G27630
CAL XV4 F5G27640
COM IS IT F5G27650
PAX 0,2 TO F5G27660
CAL STAG,1 AN F5G27670
ALS 0,2 F5G27680
ALS 0,2 ACTIVE F5G27690
ANA S9K3 , F5G27700
PDX 0,1 IR F5G27710
CLA AC1+3,1 F5G27720
TZE A3 F5G27730
A51 CLA IR1+3,1 IS IT F5G27740
CAS 1TAG SAME TAU-TAG F5G27750
TRA A6 F5G27760
TRA A7 YES F5G27770
A6 TSX SB,4 RECORD SXD NEEDED. F5G27780
TRA A3 F5G27790
A7 TSX SC,4 RECORD CERTAIN PART OF F5G27800
TRA A3 LOOP LIST ACTIVE. F5G27810
A8 CLA XV3 GET F5G27820
TSX SE4,4 THE F5G27830
CAL XV4 F5G27840
COM S-TAG F5G27850
PAX 0,2 OF F5G27860
CAL STAG,1 F5G27870
STO S1V6 F5G27871
ALS 0,2 THIS F5G27880
ALS 0,2 INSTR. F5G27890
ANA S9K3 F5G27900
PDX 0,1 F5G27910
TZE A3 DOES THIS INSTR HAVE AN S-TAG F5G27920
CLA AC1+3,1 YES. F5G27930
TZE A3 IS THIS IR ACTIVE F5G27940
CLA ZERO F5G27941
PXD 0,2 F5G27942
COM F5G27943
PDX 0,4 F5G27944
CLA S1V6 F5G27945
ARS 8,4 F5G27946
ANA ONED F5G27947
TNZ A51 F5G27948
TSX SC,4 YES,RECORD SECTION OF LPLST ACTIVE F5G27950
TRA A3 F5G27960
A12 LXD S3V4,1 GET INDEX OF LPLST QUANTITY F5G27970
CLA LPLST+S3P1-2,1 GET PREVIOUS LPLST QUANTITY F5G27980
STO XV19 F5G27990
LDQ S3K2 WAS IT A F5G28000
TLQ A28 F5G28010
A25 TSX SE,4 YES, WAS THAT F5G28020
CLA BBB,1 BB TERMINATED F5G28030
ARS 33 BY A F5G28040
ADD ONEA GO TO N F5G28050
TNZ A28 F5G28060
LXA S5K5,1 YES F5G28070
A26 CLA AC1+3,1 IS THIS F5G28080
TZE A27 IR ACTIVE F5G28090
TSX SB,4 YES, RECORD SXD NECESSARY F5G28100
A27 TIX A26,1,1 F5G28110
A28 CLA S3V5 F5G28120
LDQ S3K2 IS THIS F5G28130
TLQ A35 ATR. REGION F5G28140
ANA S5K1 NO, BB F5G28150
TZE A3 F5G28160
ALS 3 F5G28170
PDX 0,1 F5G28180
TXL AP1,1,2 F5G28190
TXI AP1,1,-1 F5G28200
AP1 CLA AC1+3,1 F5G28210
TZE A3 F5G28220
TSX SB,4 F5G28230
TRA A3 F5G28240
A35 TSX SE,4 F5G28250
CLA BBB+5,1 F5G28260
PDX 0,2 INDEX OF REGION TO 2 F5G28270
CLA REG,2 GET REGION F5G28260
STO XV19 F5G28290
LXA S5K5,1 F5G28300
A31 CAL XV19 F5G28310
ALS 3,1 F5G28320
PBT IS THERE AN LX F5G28330
TRA A30 FOR THIS IR F5G28340
CLA AC1+3,1 YES F5G28350
TZE A30 IS THIS IR ACTIVE F5G28360
TSX SB,4 YES, RECORD SXD NECESSARY F5G28370
A30 TIX A31,1,1 F5G28380
CLA S3V5 F5G28390
TSX SA,4 GET THE EXIT CONDITIONS F5G28400
LXA S5K5,1 F5G28410
A34 CLA AC1+3,1 F5G28420
TZE A32 IS THIS IR ACTIVE F5G28430
CLA EX1+3,1 YES F5G28440
LDQ S5K2 F5G28450
TLQ A33 IS THE EXIT CONDITION REAL F5G28460
CLA ACT1+3,1 YES F5G28470
TPL A32 IS THE IR ACTIVE AT EXIT F5G28480
A33 SXD XV20,1 YES F5G28490
LXD XV20,2 F5G28500
CLA S3V5 F5G28510
TSX SD,4 RECORD TR. REG. ACTIVE F5G28520
LXD XV20,1 F5G28530
TSX SC,4 RECORD SECTION OF LPLST ACTIVE F5G28540
A32 TIX A34,1,1 COUNT TO 3 F5G28550
TRA A3 F5G28560
QP CLA XK15 F5G28580
ANA 16 F5G28590
ARS 1 F5G28600
STD SE21+2 F5G28610
TZE R F5G28620
LXD PREDP+3,4 F5G28630
CLA BBBP+3 F5G28640
QP0 TXL R,4,0 F5G28650
TXI QP1,4,-1 F5G28660
QP1 SXD SE21+3,4 F5G28670
SUB ONED F5G28680
TSX SE,4 F5G28690
LXD BBBP,4 F5G28700
TXI QP2,4,BBBL-1 F5G28710
QP2 SXD QP4,4 F5G28720
SXD QP5,4 F5G28730
LXA BBB,4 F5G28740
SXD QP8,4 F5G28750
LXD SE21+3,4 F5G28760
QP3 PXD 0,4 F5G28770
TSX SE5+1,4 F5G28780
CLS PRED,1 F5G28790
PAX 0,4 F5G28800
QP4 TXH QP6,4,- F5G28810
TXI QP5,4,BBBL F5G28820
QP5 TXH QP7,4,- F5G28830
QP6 STO PRED,1 F5G28840
QP7 LXD SEV2,4 F5G28850
CLA BBBP F5G28860
QP8 TXL QP0,4,- F5G28870
TXI QP3,4,-1 F5G28880
ORG QP+1 LPLST MUST START AT SAME PLACE AS QP AND OTHERS. F5G28890
REM STORAGE ASSIGNMENT (TABLES) F5G28900
LPLST BSS S3P1 SPACE FOR LOOP LIST TABLE F5G28910
REG BES FP1 SPACE FOR REGION WORDS F5G28920
SPACE EQU MSIZE-5-REG STORAGE SPACE LEFT F5G28930
STAGL SYN STL F5G28940
STAG HTR - F5G28950
HTR - F5G28960
REP 1,239 F5G28970
W0 CLA BBB+2,1 F5G28980
ARS 18 F5G28990
SUB XV21 F5G29000
TZE X42 F5G29010
LXA S5K5,1 F5G29020
LXD XV13,4 F5G29030
W1 CLA BBB+2,4 F5G29040
LRS 18 F5G29050
SUB XV21 F5G29060
TZE W3 F5G29070
CLA ZERO F5G29080
LLS 18 F5G29090
SUB XV21 F5G29100
TZE W3 F5G29110
TXI W2,4,-1 F5G29120
W2 TIX W1,1,1 F5G29130
TXL X36,-,- F5G29140
W3 SXD W4,2 F5G29150
LXD W2+1,1 F5G29160
TSX SB,4 F5G29170
LXD W4,2 F5G29180
W4 TXL X36,-,- F5G29190
BSS PTL1 SPACE FOR PATCHES F5G29200
CMTL SYN 9*SPACE/20/15*15 F5G29210
CMTAG BSS CMTL F5G29220
BBBL SYN 6*SPACE/20/6 F5G29230
BBB BSS BBBL*6+1 F5G29240
PRED SYN BBB+BBBL*6+1 F5G29250
SPAC1 EQU MSIZE-4-PRED F5G29260
PREDL EQU SPAC1/2-1 F5G29270
BSS PREDL+1 F5G29280
SUCCL SYN PREDL F5G29290
SUCC BSS SUCCL+1 F5G29300
REM EDITOR RECORD NO. 76 F5G29310
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBEY. F5G29320
REM DIAGNOSTIO CALLER FOLLOWS F5G29340
REM PART 1B F5G29350
REM INITIALIZATION AND PRED LIMIT FOR FAST COMPILING. F5G29360
ORG PRED F5G29370
I LXA FK5,1 CLEAR REG. TABLE F5G29380
DCT CLEAR DIVIDE CHECK LIGHT F5G29390
NOP IN CASE DIVIDE CHECK IS ON F5G29400
CLA ZERO F5G29410
I11 STO REG,1 F5G29420
TIX I11,1,1 F5G29430
PSE 96 TURN OFF SENSE LIGHTS. F5G29440
CLA KEYS+3 INITIALIZE F5G29441
STO STAGP+5 DRUM ADDR. OF STAG F5G29450
CLA KEYS+1 F5G29460
STO PREDP+5 F5G29470
CLA KEYS+2 F5G29480
STO BBBP+5 DRUM ADDR. OF BB.B. F5G29490
CLA KEYS F5G29500
ALS 18 F5G29510
STO BBBP+3 NO. OF BASIC BLOCKS. F5G29520
SUB ONED F5G29530
TSX SE,4 F5G29540
CLA BBB,1 F5G29550
STD SUCCP+3 LOCATION OF LAST SUCC F5G29560
ALS 18 F5G29570
STD PREDP+3 LOCATION OF LAST PRED F5G29580
CLA BBB+1,1 F5G29590
ANA S3K4 F5G29600
STO S4V3 F5G29610
LRS 35 F5G29620
DVP S4K2 COMPUTE F5G29630
STQ IV1 THE F5G29640
TZE I1 LOCATI0N F5G29650
CLA ONEA WHICH A TAG F5G29660
I1 ADD IV1 WOULD HAVE F5G29670
LRS 35 IF IT F5G29680
MPY S4K2 WERE FIRST IN F5G29690
LLS 35 THE NEXT RECORD. F5G29700
STO S4V2 F5G29710
STO S4V1 F5G29720
CLA BBB+1,1 DETERMINE NO. F5G29730
ANA S3K4 OF ENTRIES IN F5G29740
LRS 35 STAG. F5G29750
DVP XK9 F5G29760
STQ IV1 F5G29770
TZE I10 F5G29780
CLA ONEA F5G29790
I10 ADD IV1 INITIALIZE F5G29800
ALS 18 F5G29010
STO STAGP+3 OF ENTRIES IN STAG F5G29820
LRS 35 COMPUTE F5G29830
DVP STAGP+2 THE F5G29840
TZE I3 DRUM F5G29850
CLA ONEA ADDR. F5G29860
I3 STQ IV2 FOLLOWING F5G29870
ADD IV2 THE F5G29880
ALS 18 F5G29890
ADD STAGP+3 STAG F5G29900
ARS 18 F5G29910
ADD STAGP+5 TABLE. F5G29920
LDQ IK1 F5G29930
TLQ I7 F5G29940
I6 CLA STAGP+1 F5G29950
CAS STAGP+3 ARE WE THRU STORING 0 S F5G29960
TRA I4 F5G29970
TRA I9 F5G29980
I4 STO STAGP SET N(0) TO OLD N(1) F5G29990
ADD STAGP+2 SET N(1) T0 MIN (OLD N(1)+N., F5G30000
LDQ STAGP+3 N(L) F5G30010
STQ STAGP+1 F5G30020
TLQ I5 F5G30030
STO STAGP+1 F5G30040
I5 CLA SEK F5G30050
LXA IK2,2 F5G30060
TSX SE26,4 STORE BLOCK OF 0S F5G30070
TRA I6 F5G30080
I7 TSX 4,4 TO DIAGNOSTIC F5G30090
IV1 F5G30100
IV2 F5G30110
IK2 1-STAGP F5G30120
IK1 HTR 8191 F5G30130
I9 TSX S4,4 F5G30140
REW INSTTP REWIND THE COMPILED INST TAPE F5G30150
CLA KEYS+1 F5G30160
TNZ LPLST-1 F5G30170
STO LPIND F5G30180
STO LPLST-1 F5G30190
STO LPLST F5G30200
CLA S3K1 F5G30210
STO LPLST+1 F5G30220
LXD S1K2,4 SKIP DIAGNOSTICS F5G30230
I9A RTB 1 AND ANTIPINGPONG F5G30240
TIX I9A,4,1 SIX RECORDS F5G30250
TRA F75 F5G30260
REM EDITOR RECORD NO. 78 F5G30270
REM FOR CONTROL CARD INFORMATION, SEE END 0F ASSEMBLY. F5G30280
REM DIAGNOSTIC CALLER FOLLOWS F5G30300
REM PART 1C F5G30310
REM SUCC LIMIT FOR FAST COMPILING F5G30320
ORG LPLST-1 F5G30330
QS LXD SE21+2,1 F5G30340
TXL F,1,0 F5G30350
LXD SUCCP+3,4 F5G30360
CLA BBBP+3 F5G30370
QS0 TXL F,4,0 F5G30380
TXI QS1,4,-1 F5G30390
QS1 SXD SE21+3,4 F5G30400
SUB ONED F5G30410
TSX SE,4 F5G30420
LXD BBBP,4 F5G30430
TXI QS2,4,BBBL-1 F5G30440
QS2 SXD QS4,4 F5G30450
SXD QS5,4 F5G30460
LXD BBB,4 F5G30470
SXD QS8,4 F5G30480
LXD SE21+3,4 F5G30490
QS3 PXD 0,4 F5G30500
TSX SE6,4 F5G30510
CLS SUCC,1 F5G30520
PAX 0,4 F5G30530
QS4 TXH QS6,4,- F5G30540
TXI QS5,4,BBBL F5G30550
QS5 TXH QS7,4,- F5G30560
QS6 STO SUCC,1 F5G30570
QS7 LXD SEV2,4 F5G30580
CLA BBBP F5G30590
QS8 TXL QS0,4,- F5G30600
TXI QS3,4,-1 F5G30610
REM EDITOR RECORD NO. 80 F5G30620
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G30630
REM DIAGNOSTIC CALLER FOLLOWS F5G30650
REM PART 1D F5G30660
REM PRED UNDO FROM FAST COMPILING F5G30670
ORG LPLST-1 F5G30660
QPU LXD SE21+2,1 F5G30690
TXL R,1,0 F5G30700
LXD PREDP+3,4 F5G30710
CLA BBBP+3 F5G30720
QPU0 TXL R,4,0 F5G30730
TXI QPU1,4,-1 F5G30740
QPU1 SXD SE21+3,4 F5G30750
SUB ONED F5G30760
TSX SE,4 F5G30770
LXD BBBP,4 F5G30780
TXI QPU2,4,BBBL-1 F5G30790
QPU2 SXD QPU4,4 F5G30800
SXD QPU5,4 F5G30810
LXA BBB,4 F5G30820
SXD QPU8,4 F5G30830
LXD SE21+3,4 F5G30840
QPU3 PXD 0,4 F5G30850
TSX SE5+1,4 F5G30860
CLS PRED,1 F5G30870
PAX 0,4 F5G30880
QPU4 TXH QPU6,4,- F5G30890
TXI QPU5,4,BBBL F5G30900
QPU5 TXH QPU7,4,- F5G30910
QPU6 STO PRED,1 F5G30920
QPU7 LXD SEV2,4 F5G30930
CLA BBBP F5G30940
QPU8 TXL QPU0,4,- F5G30950
TXI QPU3,4,-1 F5G30960
REM EDITOR RECORD NO. 82 F5G30970
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G30980
REM DIAGNOSTIC CALLER FOLLOWS F5G31000
REM PART 1E F5G31010
REM SUCC UNDO FROM FAST COMPILING F5G31020
ORG LPLST-1 F5G31030
QSU LXD SE21+2,1 F5G31040
TXL F,1,0 F5G31050
LXD SUCCP+3,4 F5G31060
CLA BBBP+3 F5G31070
QSU0 TXL F,4,0 F5G31080
TXI QSU1,4,-1 F5G31090
QSU1 SXD SE21+3,4 F5G31100
SUB ONED F5G31110
TSX SE,4 F5G31120
LXD BBBP,4 F5G31130
TXI QSU2,4,BBBL-1 F5G31140
QSU2 SXD QSU4,4 F5G31150
SXD QSU5,4 F5G31160
LXD BBB,4 F5G31170
SXD QSU8,4 F5G31180
LXD SE21+3,4 F5G31190
QSU3 PXD 0,4 F5G31200
TSX SE6,4 F5G31210
CLS SUCC,1 F5G31220
PAX 0,4 F5G31230
QSU4 TXH QSU6,4,- F5G31240
TXI QSU5,4,BBBL F5G31250
QSU5 TXH QSU7,4,- F5G31260
QSU6 STO SUCC,1 F5G31270
QSU7 LXD SEV2,4 F5G31280
CLA BBBP F5G31290
QSU8 TXL QSU0,4,- F5G31300
TXI QSU3,4,-1 F5G31310
REM EDITOR RECORD N0. 84 F5G31320
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G31330
REM DIAGNOSTIC CALLER FOLLOWS F5G31350
REM PART 2 F5G31360
REM PERMUTE RESULTS AND COMBINE BB LIST WITH BB TABLE F5G31370
ORG C F5G31380
BLV09 HTR -1 BB NO. OF LAST GO TO N F5G31390
BL12 RTB BLT FIND THE END OF FILE PRECEEDING BB LIST F5G31400
BL13 CPY BLIST F5G31410
TRA BL12 F5G31420
TRA BL6 F5G31430
TRA BL12 F5G31440
BL6 LXD CON1,2 F5G31450
BL5 RTB BLT F5G31460
LXA CON1,1 F5G31470
BL1 CPY BLIST,1 COPY BB LIST INTO CS F5G31480
TXI BL1,1,-1 F5G31490
CON1 0,0,5 F5G31500
IOD F5G31510
RTT F5G31520
TRA BL4 ERROR F5G31530
CLA KEYS O.K. COMPUTE TEST CONSTANT F5G31540
SUB TWO F5G31550
STO BLV3 F5G31560
CLA ZERO F5G31570
TSX SE4,4 STAG WORD F5G31580
CLA STAG,1 F5G31590
STO BLV07 F5G31600
CLA BLV1 F5G31610
BL3 LDQ BLV3 HAVE WE ALREADY DEALT WITH LAST BB F5G31620
TLQ BL06 YES , GO TO READ IN NEXT PART F5G31630
ADD ONEA F5G31640
TSX SE1,4 GET UNDEX OF NEXT BB F5G31650
CLA BBB+1,1 STORE THE NO. OF THE F5G31660
ANA RMSK FIRST TAG IN F5G31670
STO BLV6 NEXT BB., F5G31680
CLA BBB,1 F5G31690
ANA 2AMSK F5G31700
STO BLV5 STORE AWAY NO. OF U1ST PRED IN NEXT BB. F5G31710
CLA BLV1 F5G31720
TSX SE1,4 F5G31730
LXD BLV2,2 F5G31740
CLA BLIST,2 REPLACE LAST WORD OF BBB ENTRY F5G31750
STO BBB+5,1 BY THE LOCATION FROM THE BB LIST. F5G31760
BL2 TXI BL2+1,2,-1 F5G31770
SXD BLV2,2 F5G31780
CLA BBB+1,1 STORE PERMUTATION NOS. F5G31790
STO BLV7 F5G31800
SXD BLV4,1 F5G31810
CLA BBB+1,1 GET F5G31820
ANA RMSK OF 1ST TAG IN BB F5G31830
SUB BLV6 FORM COUNT OF NO. OF T.GS F5G31840
SUB ONEA F5G31850
PAX 0,2 C0UNT OF NO. OF TAGS INTO 2. F5G31860
SXD BLV05,2 STORE COUNT OF NO. OF TAGS F5G31870
CLA BBB,1 F5G31880
ANA 2AMSK F5G31890
BL9 STO BLV01 F5G31900
CAS BLV5 IS THIS PRED IN SAME BB F5G31910
TRA BL7 YES F5G31920
TRA BL01 NO F5G31930
BL7 TSX SE5,4 YES, GET INDEX OF PRED F5G31940
CAL SALM F5G31950
SLW BLV9 F5G31960
CAL PRED,1 F5G31970
SLW BLV8 STODRE OLD PRED WORD F5G31980
ANS BLV9 INT INITIALIZE NEW PRED WORD F5G31990
LXD 2LD3,2 SET COUNT TO 3 F5G32000
BL8 CAL BLV7 PLACE THE F5G32010
ARS 3,2 PERMUTATION NO. F5G32020
ARS 3,2 IN REGISTER 4 F5G32030
ANA 2LD3 F5G32040
PDX 0,4 F5G32050
CAL BLV8 PERMUTE F5G32060
ALS 3,2 THE LXD F5G32070
ANA BITMK AND SXD F5G32080
ARS 3,4 BITS IN THE F5G32090
ORS BLV9 PRED ENTRY F5G32100
TIX BL8,2,1 COUNT TO 3 F5G32110
CLA BLV9 F5G32120
STO PRED,1 STORE PRED ENTRY WITH PERMUTED BITS F5G32130
CLA BLV01 ARRANGE TO CONSIDER F5G32140
ADD ONEA NEXT PRED ENTRY F5G32150
TRA BL9 F5G32160
BL4 BST BLT TAPE CHECK BACKSPACE TAPE F5G32170
TIX BL5,2,1 TRY 5 TIMES F5G32160
TSX 4,4 THEN START DIAGNOSTIC. F5G32190
BL01 LXD BLV05,1 F5G32200
BL03 TNX BL04,1,1 IS THERE ANOTHER TAG IN BB F5G32210
LXD BLV04,2 YES F5G32220
TIX BL02,2,1 HAVE WE EXHAUSTED STAG WORD F5G32230
SXD BLV05,1 YES, STORE COUNT OF NO. OF TAGS F5G32240
LXD BLV08,2 STORE F5G32250
CLA BLV07 OLD PERMUTED F5G32260
STO STAG,2 STAG WORD F5G32270
CLA ZERO F5G32280
STO BLV07 F5G32290
CLA BLV03 GET F5G32300
TSX SE4,4 NEXT F5G32310
SXD BLV08,1 STAG F5G32320
CAL STAG,1 WORD F5G32330
SLW BLV06 STORE STAG WORD F5G32340
ANA LMSK AND F5G32350
SLW BLV07 INITIALIZE NEW STAG WORD F5G32360
CLA BLV03 INCREASE THE F5G32370
ADD ONEA STAG WORD NO. F5G32380
STO BLV03 F5G32390
LXD 2LD9,2 RESET COUNT TO 9 F5G32400
LXD BLV05,1 RESTORE 1 F5G32410
BL02 SXD BLV04,2 STORE COUNTER F5G32420
CAL BLV06 F5G32430
ALS 2 F5G32440
SLW BLV06 F5G32450
ANA 2LD3 EXTRACT TAG F5G32460
PDX 0,4 F5G32470
CAL BLV7 PERMUTE F5G32480
ARS 3,4 F5G32490
ARS 3,4 THE F5G32500
ANA 2LD3 TAG F5G32510
ARS 10,2 F5G32520
ARS 10,2 F5G32530
ORS BLV07 FORM NEW TAG WORD F5G32540
TRA BL03 F5G32550
BL04 LXD BLV4,1 GET INDEX OF BB F5G32560
CLA BBB,1 IS F5G32570
ARS 33 THIS F5G32560
ADD ONEA A GO N F5G32590
TNZ BL07 NO F5G32600
CLA BLV09 YES, STORE BB NO. F5G32610
ALS 18 OF LAST F5G32620
STD BBB+1,1 GO N ENCOUNTERED F5G32630
CLA BLV1 STORE PRESENT F5G32640
STO BLV09 BB NO. F5G32650
BL07 LXD 2LD3,2 SET COUNT TO 3 F5G32660
BL09 CAL BLV7 F5G32670
ARS 3,2 F5G32680
ARS 3,2 GET PERMUTATION NO. F5G32690
ANA 2LD3 F5G32700
PDX 0,4 F5G32710
CLA BBB+2,1 PERMUTE F5G32720
STO EXCO,4 ENTRANCE-EXIT REQUIREMENTS F5G32730
BL08 TXI BL08+1,1,-1 F5G32740
TIX BL09,2,1 COUNT TO 3 F5G32750
LXD 2LD3,2 PLACE PERMUTED F5G32760
BL10 CLA EXCO,2 ENTRANCE-EXIT COND. F5G32770
STO BBB-1,1 BACK IN BB F5G32780
BL11 TXI BL11+1,1,-1 F5G32790
TIX BL10,2,1 COUNT TO 3 F5G32800
BL05 CLA BLV1 PREPARE TO DEAL WITH F5G32810
ADD ONEA WITH NEXT BB F5G32820
STO BLV1 F5G32830
TRA BL3 F5G32840
BL06 TSX SE1,4 PUT EDN MARK INTO THF DUMMEY BB F5G32850
CLA EN2MK F5G32860
STO BBB+5,1 F5G32870
CLA BLV07 STORE F5G32880
LXD BLV08,2 OLD F5G32890
STO STAG,2 STAG WORD F5G32900
TRA R READ NEXT PART F5G32910
2LD3 0,0,3 F5G32920
2LD9 0,0,9 F5G32930
TWO 2 F5G32940
2AMSK -1 ADDRESS MASK F5G32950
RMSK -1,-1 RIGHT HALF MASK F5G32960
SALM OCT -377770077777 MS MASK OUT SXD AND LXD PRED REULTS F5G32970
EN2MK PTH -1,-1,-1 PUT IN LOCATION OF DUMMEY BB F5G32980
BITMK 0,4,4 MASK TO EXTRACT ONE SXD AND LXD BIT F5G32990
LMSK OCT -377777000000 F5G33000
EXCO BES 3 THE ENTRANCE-EXIT CONDITIONS PERMUTED F5G33010
BLV1 BBNO. F5G33020
BLV2 INDEX IN BB LIST F5G33030
BLV3 TEST CONSTANT F5G33040
BLV4 INDEX OF BB F5G33050
BLV5 1ST PRED NO. IN NEXT BB F5G33060
BLV6 UST TAG IN NEXT BB F5G33070
BLV7 PERMUTTTION NOS. F5G33080
BLV8 OLD PRED ENTRY F5G33090
BLV9 NEW, PERMUTED, PRED ENTRY F5G33100
BLV01 CURRENT PRED. NO. F5G33110
BLV03 NO. OF STAG WORD, INITIALLY ZERO F5G33120
BLV04 COUNTER TO 9, INITIALLY ZERO F5G33130
BLV05 C0UNT OF NO. OF TAGS IN BB F5G33140
BLV06 STAG WORD F5G33150
BLV07 NEW, PERMUTED , STAG WORD F5G33160
BLV08 INDEX OF OLD STAG WORD F5G33170
BSS PTL2 SPACE FOR PATCHES F5G33180
BLIST F5G33190
REM EDITOR RECORD NO. 86 F5G33200
REM FOR CONTROL CARD INFORMATION, SEE END OF ASSEMBLY. F5G33210
REM DIAGNOSTIC CALLER FOLLOWS F5G33230
REM PART 3 F5G33240
REM CHANGE LXD AND SXD RESULTS TO BE C0MPATIBLE WITH GO TO F5G33250
REM N RESTRICTION. MODIFY ASSIGN CONSTANT TABLE. F5G33260
REM C CONTAINS THE BB NO. OF THE GO TO N F5G33270
ORG C+1 F5G33280
START RTB ACTPE LOCATE THE END OF FILE BEFORE ASSIGN CONSTANTF5G33290
CPY ACV12 F5G33300
TRA START F5G33310
TRA RDIN F5G33320
TRA START F5G33330
ERR BST ACTPE BACKSPACE TAPE TO TRY AGAIN F5G33340
TIX AAC2,2,1 COUNT TO 5 F5G33350
TSX 4,4 TO DIAGNOSTIC F5G33360
RDIN LXD 3LD3,2 F5G33370
AAC2 RTB ACTPE F5G33360
CPY ACV12 COPY THE EXTRA WORD F5G33390
LXA ZERO,1 F5G33400
AAC1 CPY ASCON,1 F5G33410
TXI AAC1,1,-1 F5G33420
TSX 4,4 F5G33430
IOD CHECK REDUNDANCY BITS F5G33440
RTT F5G33450
TRA ERR THERR IS AN ERROR F5G33460
RTB ACTPE F5G33470
RTB ACTPE F5G33480
RTB ACTPE F5G33490
IOD F5G33500
SXD ACV1,1 O.K. STORE RECORD OF NO. OF ENTRIES F5G33510
SXD AC22,1 F5G33520
CLA C F5G33530
AC15 LDQ ACK1 GET BB NO. OF 1ST GO TO N F5G33540
TLQ AC16 WAS THIS THE LAST GO TO N F5G33550
ADD ONEA NO F5G33560
TSX SE1,4 F5G33570
CAL BBB,1 FIND NO. OF 1ST SUCC IN NEXT BB F5G33580
ARS 18 F5G33590
STA ACV3 F5G33600
CLA C F5G33610
TSX SE1,4 F5G33620
CLA ZERO CLEAR THE COMBINED SXDD CASE F5G33630
STO ACV4 F5G33640
CAL BBB,1 FIND THE NO. OF 1ST SUCC IN THIS BB F5G33650
ARS 18 F5G33660
ANA AMSK F5G33670
AC13 STO ACV2 F5G33680
CAS ACV3 IS THIS SUCC IN SAME BB F5G33690
TRA AAC3 YES F5G33700
TRA AC14 NO F5G33710
AAC3 ALS 18 F5G33720
TSX SE6,4 YES GET BB NO. OF SUCESSOR F5G33730
CAL SUCC,1 F5G33740
STA ACV8 F5G33750
ADD ONEA FIN NO. OF 1ST PRED ENTRY NEXT BBB F5G33760
TSX SE1,4 F5G33770
CLA BBB,1 F5G33780
STA ACV6 F5G33790
CLA ZERO F5G33800
STO ACV10 PRESET COMBINED LXO CASE TO 0 F5G33810
CLA ACV8 FIND NO. OF 1ST PRED IN THIS BB F5G33620
TSX SE1,4 F5G33830
CAL BBB,1 F5G33840
ANA AMSK F5G33850
STA ACV9 RECORD 1ST PRED FOR FUTURE USE F5G33860
AC7 STA ACV7 F5G33870
CAS ACV6 IS THIS PRED IN SAME BB F5G33880
TRA AC4 F5G33890
TRA AC8 NO F5G33900
AC4 TSX SE5,4 IS THIS THE TRANSFER FROM CURRENTLY CONSIDEREF5G33910
CAL PRED,1 ED GO TO NP F5G33920
ANA AMSK F5G33930
SUB C F5G33940
TNZ AC5 IF NOT SKIP THE ORING 0F SXD CASE F5G33950
CAL PRED,1 OR THE SXD CASE INTO COMBINED SXD CASE F5G33960
ORS ACV4 F5G33970
CAL NTMSK F5G33980
ANS PRED,1 F5G33990
AC5 CAL PRED,1 IS THE BB WHICH IS PREDECESSOR F5G34000
SXD ACV11,1 A GO TO N F5G34010
TSX SE1,4 F5G34020
CLA BBB,1 F5G34030
ARS 33 F5G34040
ADD ONEA F5G34050
TNZ AC6 F5G34060
LXD ACV11,2 YES, OR THE LXD XCASE INTO THE F5G34070
CAL PRED,2 COMBINED LXD CASE F5G34080
ORS ACV10 F5G34090
AC6 CLA ACV7 F5G34100
ADD ONEA F5G34110
TRA AC7 F5G34120
AC8 CAL ACV10 IS THE COMBINED LXD CASE ZERO F5G34130
ANA TMSK F5G34140
TZE AC12 F5G34150
CLA ACV8 NO, HAS THIS BB ALREADY BEEN F5G34160
TSX SE1,4 CONSIDERED F5G34170
LDQ BBB,1 AS A SUCCESSOR TO F5G34180
RQL 20 A GO TO N F5G34190
TQP AC18 F5G34200
TRA AC12 F5G34210
AC18 CLA LT1 F5G34220
ORS BBB,1 RECORD THAT THIS BB HAS BEEN CONSIDERED AS F5G34230
CLA ACV9 ECT..PE PREPARE TO SCAN ALL PRED ENTRYS F5G34240
AC11 STA ACV7 F5G34250
CAS ACV6 IS THIS PRED IN SAME BB F5G34260
TRA AC9 F5G34270
TRA AC19 NO F5G34280
AC9 TSX SE5,4 DETERMINE IF THE BB WHICH F5G34290
SXD ACV11,1 IS THE PREDECESSOR OF THIS ONE F5G34300
CLA PRED,1 IS A GO TO N F5G34310
TSX SE1,4 F5G34320
CLA BBB,1 F5G34330
ARS 33 F5G34340
ADD ONEA F5G34350
TNZ AC10 F5G34360
LXD ACV11,2 IT IS A GO TO N F5G34370
CLA ACV10 REPLACE LXD CASE BY THE F5G34380
ANA TMSK COMBINED LXD CASE F5G34390
ORS PRED,2 F5G34400
AC10 CLA ACV7 ARRANGE TO TREAT NEXT PRED ENTRY F5G34410
ADD ONEA F5G34420
TRA AC11 F5G34430
AC12 CLA ACV2 F5G34440
ADD ONEA ARRANGE TO TREAT NEXT SUCC ENTRY F5G34450
TRA AC13 F5G34460
AC14 CLA C STORE COMBINED F5G34470
TSX SE1,4 SXDCASE IN PREFIX F5G34480
CLA ACV4 OF 2ED WORD OF BBB ENTRY F5G34490
ALS 15 F5G34500
STP BBB+1,1 F5G34510
CLA BBB+1,1 GET NEXT GO TO N NUMBER F5G34520
ARS 18 F5G34530
ANA AMSK F5G34540
STO C F5G34550
TRA AC15 F5G34560
AC16 WTB ACTPE WRITE ASSIGN CONSTANTS BACK ON TAPE F5G34570
LXA ZERO,1 F5G34580
LXD ACV1,2 F5G34590
CPY ACV12 F5G34600
TXL R,2,0 IF NO ASSIGN CONST., GO TO NEXT PART F5G34610
AC17 CPY ASCON,1 F5G34620
TXI ACV1,1,-1 F5G34630
ACV1 TXL R,1,SET F5G34640
TRA AC17 F5G34650
AC19 CLA ACV8 F5G34660
TSX SE1,4 F5G34670
LXA ZERO,2 F5G34680
AC25 CLA BBB+5,1 F5G34690
AC23 CAS ASCON,2 IS THIS ASSIGN CONST. EQUAL TO THE F5G34700
TRA AC20 LOCATION OF 1ST INST IN BB F5G34710
TRA AC24 YES F5G34720
AC20 TXL AC21,2,0 F5G34730
AC22 TXL AC12,2,SET F5G34740
AC21 TXI AC23,2,-1 F5G34750
AC24 CAL ACV10 REPLACE ASSIGN CONST. BY NEW F5G34760
ANA TMSK LOCATION SYMBOL F5G34770
ARS 5 F5G34780
ADD ACV8 F5G34790
ACL LXDC F5G34800
SLW ASCON,2 F5G34810
TRA AC25 F5G34820
AMSK HTR -1 F5G34830
TMSK HTR 0,-1 F5G34840
NTMSK OCT 777770777777 F5G34050
3LD3 0,0,5 F5G34860
LXDC OCT 150000000000 THE NUMBER IDENTIFYING THE LOC. OF AN LXD F5G34870
LT1 HTR 0,1 F5G34880
ACK1 OCT 77776 F5G34890
ACV2 NO. OF CURRENT SUCC. OF THIS BB IN ADDR. F5G34900
ACV3 NO. OF 1ST SUCC IN NEXT BB IN ADDR F5G34910
ACV4 COMBINED SXD CASE LAST OCTAL DIGIT IN DECR F5G34920
ACV5 NO. OF CURRENT PRED IN ADDR F5G34930
ACV6 NO. OF 1ST PRED IN NEXT BB IN ADDR F5G34940
ACV7 MO. OF CURRENT PRED IN THIS BB IN ADDR F5G34950
ACV8 BB NO. OF SUCCESSOR IN ADDR F5G34960
ACV9 NO. OF 1ST PRED IN THE SUCCESSOR BB IN ADDRF5G34970
ACV10 THE COMBINED LXD CASE F5G34980
ACV11 TEMP. STORE FOR PRED TABLE INDEX AT AC5 F5G34990
ACV12 EXTRA WORD FROM ASSIGN CONSTANT RECORD F5G35000
ACV13 TEMP. STORE FOR LOCATION OF 1ST INST. IN BB F5G35010
ASCON BES PTL3 SPACE FOR PATCHES F5G35020
REM EDITOR RECORD NO. 88 F5G35030
REM FOR CONTROL CARD INFORMATION, SEE END 0F ASSEMBLY. F5G35040
REM DIAGNOSTIC CALLER FOLLOWS F5G35060
REM PART 4 F5G35070
REM COMPILE INSTRUCTIONS FROM PREVIOUS RESULTS F5G35080
REM CONSTANTS F5G35090
ORG C F5G35100
L3 3 F5G35110
L4 4 F5G35120
L7 7 F5G35130
L19 19 F5G35140
LD1 SYN ONED F5G35150
LD2 0,0,2 F5G35160
LD3 0,0,3 F5G35170
LD4 0,0,4 F5G35180
LD7 0,0,7 F5G35190
LD8 0,0,8 F5G35200
LD9 0,0,9 F5G35210
LD12 0,0,12 F5G35220
LT7 0,7 F5G35230
LM20 -20 F5G35240
LM4 -4 F5G35250
DECMK 0,0,-1 DECREMENT MASK F5G35260
ENDMK PTH -1,-1,-1 F5G35270
ADDMK -1 F5G35280
STMSK OCT 777770 F5G35290
PRMK 0,7,7 MASK FOR PRED RESULTS F5G35300
TAGMK -1,-1 MASK FOR TAU- TAGS F5G35310
LFTMSK MTH 0,0,-1 F5G35320
SMK3 SYN LFTMSK F5G35330
LTPL BCD 1TPL000 F5G35340
LLXP BCD 1LXP000 F5G35350
LSYN BCD 1SYN000 F5G35360
LDED BCD 1DED000 F5G35370
LTRA BCD 1TRA000 F5G35380
LTSX BCD 1TSX000 F5G35390
LBSS BCD 1BSS000 BSS IN BCD. F5G35391
LPSE OCT 76225000000 F5G35400
GSYM OCT 60000000000 GARBAGE SYMBLE F5G35410
T4SYM PZE 4,0,4 TAG 4 AND RELATIVE PART 4 F5G35420
4 4 NUMBERS TO CONVERT S-TAG F5G35430
2 F5G35440
1 F5G35450
VSTAG PZE 0 F5G35460
RECSC HTR RECNO ADDR, NO. OF RECS. BROUGHT IN , C.I.T. F5G35470
LCOUT TRA - TRANSFER TO EXIT ROUTINE F5G35480
OCT 35121000000 TRA OP CODE F5G35490
OCT 41104000000 PSE-TRA F5G35500
OCT -33642000000 DCT-PSE F5G35510
OCT -24000000000 RTT-DCT F5G35520
OCT 27642000000 MSE-RTT F5G35530
OCT -7100000000 TZE-MSE F5G35540
OCT -32154000000 HPR-TZE F5G35550
LNTOP OCT 31316000000 TSX-HPR F5G35560
OCT 35121000000 F5G35570
OCT 1622000000 TXL-TRA F5G35580
OCT -31772000000 HPR-TXL F5G35590
LTROP OCT 31400000000 TTR-HPR F5G35600
FSTLT OCT -370000000000 F5G35610
FSTT OCT -230000000000 F5G35620
PCC OCT 170000000000 MEANS LOCATION OF THIS INST. F5G35630
PFXMK OCT -300000000000 F5G35640
XXPSX OCT 770000000 CONSTANTS TO TEST PSE ADDR. F5G35650
XX16X OCT 160000000 F5G35660
XX360 OCT 360000000 F5G35670
SHK1 OCT 777777 CONST. TO EXTRACT R. HALF WORD F5G35680
SHK2 SYN L4 F5G35690
SIK2 OCT 160000000000 I.D. FOR LOCATION OF SXD F5G35700
SIK3 BCD 1SXD000 SXD IN BCD F5G35710
LSXD SYN SIK3 F5G35720
IDSXD SYN SIK2 F5G35730
SKK1 LCLST F5G35740
SLK1 SYN LTRA TRA IN BCD F5G35750
SMK1 OCT 150000000000 I.D. FOR LOCATION OF LXD F5G35760
SMK2 BCD 1LXD000 LXD IN BCD F5G35770
LLXD SYN SMK2 F5G35780
REM FOR SMK3 SEE LFTMSK F5G35790
SMK4 OCT 140000000000 I.D. FOR TAU-TAG F5G35800
SLK2 SYN SMK1 F5G35810
IDLXD SYN SMK1 F5G35820
IDTAG SYN SMK4 F5G35830
Z1K3 OCT -0 F5G35840
MZE SYN Z1K3 F5G35850
Z2K1 0,0,-2 THE INDEXES NEEDED T0 REFER F5G35860
0,0,-6 TO THE BOTTOM POSITIONS F5G35870
0,0,-10 IN LIST1, LIST2, L1ST3, RESPT. F5G35880
Z2K2 HTR 3,0,7 NO. OF LISTS, NO. OF CASES F5G35890
CASE HTR 1 F5G35900
2 F5G35910
4 F5G35920
3 F5G35930
5 F5G35940
6 F5G35950
7 F5G35960
Z2K3 OCT 32212110 CONST. TO DETERMINE NO. 1 S IN 3 BITS F5G35970
Z2K4 DEC 3B14 F5G35980
Z2K5 HTR 7 F5G35990
Z4K1 -1 F5G36000
Z4K2 0 INDEX OF ST SXD CASE F5G36010
LNSXD NSXD*4 NO. OF SXD IN SXD LIST F5G36020
Z7K1 0,0,-8 INDEAXES OF ASSOCIATED SXD CASES F5G36030
0,0,-12 F5G36040
0,0,-16 F5G36050
REM THE DEFINITION OF TEMP. AND VARIABLE STORAGE LOCATIONS F5G36060
BBNO MZE 0,0,1 DECR., CURRENT BB NO. BEING SCANNED F5G36070
NXTLOC LOCATUON OF 1ST INST OF THE BB F5G36080
OUTBX TEMP. STORAGE OF RETURN INDEXES F5G36090
ERRBX ERROR INDICATOR F5G36100
BBOX TEMP. STORE FOR INDEXES, MAINLY 2 F5G36110
BBOX1 ANOTHER OF SAME F5G36120
ABOX TEMP. STORE , INDEX 1 F5G36130
TAG TAU-TAG FROM AN INST. F5G36140
STAGN1 WORD FROM STAG SHIFTED LEFT MULTIPLE OF 1 F5G36150
STAGN2 SAME WORD SHIFTED BY ONES F5G36160
9CNT COUNT TO 9, 9 TAGS IN STAG WORD F5G36170
STGWD DEC -1 NO. OF STAG ENTRY BEING CONSIDERED F5G36180
TMP10 TEMP. STORE , LASTS ONLY 10 INSTRS. F5G36190
CIND + OR - MEANS IR4 ISNT OR 1S NECESSARY F5G36200
CPIND MZE + OR - MEANS COMPILE/DONT COMPILE F5G36210
ARG1 U 1ST ARGUMENT FOR SUBROUTINES F5G36220
MBOX 16. OF TRANSFERS IN GO TO VECTOR F5G36230
SUCNO I0. OF A SUCCESSOR, GOV ROUTINE F5G36240
SXD0 LXD CASE IN DECR., PRED NO. IN ADDR. F5G36250
SXD1 3 TAU TAGS WHICH MUST BE STORED F5G36260
SXD2 FROM IR1,2,3 F5G36270
SXD3 RESPT. F5G36280
SADV1 RETURN INDEX F5G36290
SADV2 LOCATION OF 1ST INST IN SUCCESSOR BB F5G36300
SADV3 NO. OF CURRENT PRED F5G36310
SADV4 NO. OF 1ST PRED IN SUCCESSOR BB F5G36320
SADV5 THE SUCCESSOR BB NO. F5G36330
SHV1 RETURN INDEX F5G36340
SHV2 ENTRY FROM PRED. F5G36350
SIV1 INDEX OF SXD CASE RELATIVE TO SXST F5G36360
SIV2 RETURN INDEX F5G36370
SIV3 LOCATI0N OF 1ST INST. IN SXD GROUP F5G36380
SIV4 TEMP. STORE F5G36390
SIV5 STORE FOR INDEX OF TAU TAG IN SXD CASE F5G36400
SIV6 STOER FOR THE TAG F5G36410
SJV1 LXD CASE IN DECR. F5G36420
SJV2 RETURN INDEX F5G36430
SJV3 F5G36440
CLST BES LCLST THE NEW LIST OF COMPILED INST. F5G36450
SKV1 0,0,LCLST INDEX FOR NEXT ENTRY IN CLST F5G36460
REM SKV1 COMES ALREADY INITIALIZED F5G36470
SLV1 RETURN INDEX F5G36480
SLV2 LOCATION TO BE ATTACHED T0 TRA F5G36490
SLV3 + OR - MEANS ISNT OR IS HANGING TRA0 F5G36500
SMV1 RETURN INDEX F5G36510
SMV2 TAG TO BE COMPILED F5G36520
SMV3 STORE INDEX OF QUANTITY IN LIST F5G36530
SMV4 LOCATION , TEMP. STORE F5G36540
Z1V2 NO. OF 1ST PRED. IN NEXT BB F5G36550
Z1V3 NO. OF PRED BEING CONSIDERED F5G36560
Z1V5 THE CASES F5G36570
Z1V8 THE LOC. OF 1ST PRED IN BB, USED IN Z4 F5G36580
Z2V1 IN DECREMENTS, THE INDEXES F5G36590
THE TOP ENTRIES F5G36600
IN THE 3 LXD LISTS F5G36610
Z2V2 IN ADDR., NO. OF 1S IN DIFFERENCE F5G36620
Z2V3 IN DECR., INDEX OF LIST GIVING MIN. DIFFERENCF5G36630
LIST1 BSS 4 F5G36640
LIST2 BSS 4 F5G36650
LIST3 BSS 4 F5G36660
LLIND BES 3 + OR - MEANS LIST NOT TO BE OR TOBE COMPILED F5G36670
Z4V1 TEMP. STORE , LXD CASE IN ADDR. F5G36680
Z5V1 INDEX IN SYN TABLE F5G36690
Z7V1 INDEX OF LIST F5G36700
Z7V2 + OR - MEANS 1ST OR 2ED TIME THRU F5G36710
NDINS BES 12 BLOCK FOR 3 EXTRA COMPILED INST. F5G36720
INST BES RECNO*100 THE BLOCK FOR THE COMPILED INSTR F5G36730
SXST MZE - OR + MEANS NO SEQUENTIAL TRANSFER OR S. T. F5G36740
BSS 3 F5G36750
REM THE SXD INST. ASSOCIATED WITH SEQUENTIAL TRANSFER F5G36760
SXAS0 BSS 4 ASSOCIATED WITH 0 LXD CASE F5G36770
SXAS1 BSS 4 WITH 1ST LXD LIST F5G36780
SXAS2 BSS 4 2ED LIST F5G36790
SXAS3 BSS 4 3RD F5G36800
SXAS BSS 4*NSXD THE LIST 0F SXD INST. F5G36810
SYN MZE SYN CARD TABLE STORED BACKWARD F5G36820
REM WHEN ENTERED WITH PRESENT BB NO. IN ADDR 0F ARG1 AND BBNO. F5G36830
REM OFA SUCCESSOR BB IN ADDR. OF AC, SAD FIGURES OUT WHAT THE ADF5G36840
REM DRESS OF CORRESPONDING TRANSFER INST. SH0ULD BE AND RETURNS F5G36850
REM WITH THE ADDR IN LOGICAL AC F5G36860
SAD SXD SADV1,4 STORE RETURN F5G36870
ANA ADDMK STORE THE SUCC. NO. F5G36880
STO SADV5 F5G36890
TSX SE1,4 F5G36900
CLA BBB+5,1 F5G36910
STO SADV2 F5G36920
CLA BBB,1 F5G36930
ANA ADDMK F5G36940
SLW SADV4 F5G36950
SAD1 SLW SADV3 F5G36960
TSX SE5,4 F5G36970
CLA PRED,1 F5G36980
ANA ADDMK IS THIS THE CORRECT F5G36990
SUB ARG1 PRED ENTRY F5G37000
TZE SAD2 F5G37010
CAL SADV3 NO, TRY NEXT RETURN F5G37020
ADD ONEA F5G37030
TRA SAD1 F5G37040
SAD2 CAL PRED,1 IS THE SXD CASE 0 F5G37050
ANA LD7 F5G37060
TZE SAD3 YES F5G37070
CLA SADV3 N0, FORM THE SYMBOLIC ADDR. F5G37080
SUB SADV4 AS ID FOR SXD PLUS NO. OF PRED WITHIN F5G37090
ALS 10 THE BB * 1024 PLUS BB NO. F5G37100
ADD IDSXD F5G37110
TRA SAD6 F5G37120
SAD3 CLA PRED,1 IS THE LXD CASE ZERO F5G37130
ANA LT7 F5G37140
TZE SAD4 F5G37150
ARS 5 NO, FORM TH SYMBOLIC ADOR. F5G37160
ADD IDLXD AS 1024* LXD CASE PLUS BB NO. PLUS F5G37170
SAD6 ADD SADV5 I. D. FOR AN LXD F5G37180
SAD5 LXD SADV1,4 F5G37190
TRA 1,4 F5G37200
SAD4 CAL SADV2 F5G37210
TRA SAD5 F5G37220
REM THIS ROUTINE COMPILES CURRENT INST) IF INDICATOR IN CPIND F5G37230
REM INDICATES IT SHOULD BE F5G37240
SCMI CLA CPIND SHOULD INST. BE COMPILED F5G37250
TPL SCMI1 F5G37260
SXD TMP10,4 YES, COMP1LE THE INST F5G37270
CLA INST,2 F5G37280
TSX SK,4 F5G37290
CLA INST-1,2 F5G37300
TSX SK,4 F5G37310
CLA INST-2,2 F5G37320
TSX SK,4 F5G37330
CLA INST-3,2 F5G37340
TSX SK,4 F5G37350
LXD TMP10,4 F5G37360
SCMI1 SSM F5G37370
STO CPIND RECORD INST SHOULD BE COMPILED F5G37380
TRA 1,4 F5G37390
REM DETERMINE AN SXD CASE SUBROUTINE F5G37400
SH SXD SHV1,4 STORE RETURN F5G37410
LXA SHK2,4 CLEAR F5G37420
LDQ ZERO THE F5G37430
SH1 STQ SXD0+4,4 SXD F5G37440
TIX SH1,4,1 POSITIONS 0-3 F5G37450
STA SXD0 STORE THE PRED NO. F5G37460
TSX SE5,4 GET INDEX OF PRED F5G37470
CLA PRED,1 GET AND F5G37480
STO SHV2 STORE PRED ENTRY F5G37490
TSX SE1,4 GET INDEX OF BBB TABLE ENTRY F5G37500
LXD LD3,4 NO, SET COUNT TO 3 F5G37510
SH2 LDQ SHV2 IS F5G37520
RQL 18,4 SXD REQUIRED F5G37530
TQP SH3 FOR THIS I.R. F5G37540
CLA BBB+2,1 YES, GET AND F5G37550
ANA TAGMK EXTRACT THE F5G37560
STO SXD1+3,4 EXIT CONDITIONS F5G37570
SH3 TXI SH3+1,1,-1 DOWN THE EXIT CONDITIONS F5G37580
TIX SH2,4,1 COUNT TO 3 F5G37590
SH4 CAL SHV2 GET F5G37600
ANA LT7 AND STORE F5G37610
ALS 3 LXD CASE F5G37620
STD SXD0 F5G37630
LXD SHV1,4 F5G37640
TRA 1,4 RETURN F5G37650
REM COMPILE AN SXD CASE SUBROUTINE F5G37660
SI SXD SIV2,4 STORE RETURN F5G37670
SXD SIV1,1 STORE INDEX 0F SXD CASE F5G37680
TSX SL1,4 RECORD ANY HANGING TRANSFER F5G37690
CAL BBNO F5G37700
ARS 18 F5G37710
STO SLV2 STORE BB NO. F5G37720
TSX SE1,4 GET INDEX OF BB F5G37730
CLA BBB,1 F5G37740
ANA ADDMK F5G37750
STO SIV4 STORE LOC. 0F 1ST PRED IN BB F5G37760
LXD SIV1,1 FORM F5G37770
CLA SXST,1 LOC. OF THIS PRED - F5G37780
ANA ADDMK LOC. OF 1ST PRED IN BB F5G37790
SUB SIV4 F5G37800
ALS 10 F5G37810
ADD SLV2 F5G37820
ADD SIK2 F5G37830
STO SLV2 STORE THE LOC. OF 1ST SXD F5G37840
LXD LD3,2 F5G37650
SI2 CLA SXST+1,1 F5G37860
TZE SI1 IS THIS TAG 0 F5G37870
SXD SIV5,1 NO, PRESERVE INDEX 1 F5G37880
STO SIV6 PRESERVE THE TAG F5G37890
CLA SLV2 PUT LOCATION WORD ON TAPE F5G37900
TSX SK,4 F5G37910
CLA ZERO AND RESET TO 0 F5G37920
STO SLV2 F5G37930
CLA SIK3 PUT SXD ON TAPE F5G37940
TSX SK,4 F5G37950
CLA SIV6 14*2**-5+TAU-TAG IS F5G37960
ADD SMK4 SYMBOLIC ADDRESS F5G37970
TSX SK,4 F5G37980
CLA VSTAG,2 F5G37990
TSX SK,4 PUT S-TAG ON TAPE F5G38000
LXD SIV5,1 F5G38010
SI1 TXI SI1+1,1,-1 F5G38020
TIX SI2,2,1 COUNT TO 3, FORM N+1 F5G38030
LXD SIV1,1 F5G38040
CLA SXST,1 F5G38050
PDX 0,2 F5G38060
TXL SI3,2,0 IS THE LXD CASE 0 F5G38070
TXL SI4,1,0 NO, IS THIS THE ST POSITION F5G38080
TXH SI6,1,-16-1 IS THIS ASSOCIATED WITH A LIST F5G38090
SI5 ARS 18 NO F5G38100
TSX SL,4 COMPILE A TRA TO LXD CASE F5G38110
LXD SIV2,4 F5G38120
TRA 3,4 RETURN TO LOC. OF TSX + 3 F5G38130
SI3 CLS ONEA RECORD THAT THERE IS F5G38140
STO SLV3 A HANGING TRA TO 0 CASE F5G38150
LXD SIV2,4 F5G38160
TRA 1,4 RETURN TO LOC. OF TSX +1 F5G38170
SI4 STO SXD0 STORE LXD CASE AS ARG FOR SJ F5G38180
TSX SJ,4 IS SXD CASE INST POS. ASSOC. WITH LIST F5G38190
SHOULDENT BE WITH CASE 0 F5G38200
TRA SI6 YES F5G38210
LXD SIV1,1 NO F5G38220
CLA SXST,1 F5G38230
TRA SI5 GO TO COMPILE TRA TO LXD CASE F5G38240
SI6 LXD SIV2,4 RETURN TO 2 FOLLOWING TSX WITH F5G38250
TRA 2,4 INDEX OF TOP QUANTITY IN 1 AND LIST INDEX IN2F5G38260
REM DETERMINE IF THE SXD CASE IS ASSOCIATED WITH AN LXD LIST F5G38270
SJ SXD SJV2,4 F5G38280
CLA SXD0 F5G38290
ANA DECMK F5G38300
STO SJV1 F5G38310
TZE SJ3 IS THIS THE 0 LXD CASE F5G38320
LXD ZERO,4 NO, SET COUNT TO 3, N TO 1 F5G38330
LXD LD3,2 2 HAS THE COUNTER F5G38340
SJ2 CLA SXAS1,4 F5G38350
TPL SJ1 DOES THE LIST ALREADY HAVE SXD F5G38360
CLA Z2V1+3,2 NO F5G38370
PDX 0,1 GET INDEX OF TOP QUANTITY F5G38380
CLA LIST1,1 F5G38390
ALS 18 F5G38400
SUB SJV1 IS THIS CASE SAME AS CASE HEADUNG LIST N F5G38410
TNZ SJ1 F5G38420
LXD SJV2,4 YES F5G38430
TRA 2,4 RETURN, INDEX OF TOP OF LIST IN 1 F5G38440
SJ1 TXI SJ1+1,4,-1 F5G38450
TIX SJ2,2,1 COUNT TO 3 F5G38460
LXD SJV2,4 F5G38470
TRA 3,4 F5G38480
SJ3 LXD SJV2,4 F5G38490
CLA SXAS0 F5G38500
TPL 3,4 F5G38510
TRA 1,4 F5G38520
REM PUT WORD OF COMPILED INST ON TAPE F5G38530
SK LXD SKV1,1 F5G38540
STO CLST,1 STORE THE WORD IN CLST F5G38550
TIX SK1,1,1 COUNT NO OF WORDS IS CLST FULL F5G38560
LXA SKK1,1 YES F5G38570
SXD SKV1,1 RESET THE INDEX F5G38580
WTB OTAPE WRITE THE BLOCK ON F5G38590
SK2 CPY CLST,1 THE OUTPUT TAPE F5G38600
TIX SK2,1,1 F5G38610
IOD F5G38620
TRA 1,4 F5G38630
SK1 SXD SKV1,1 STORE INDEX OF NEXT WORD F5G38640
TRA 1,4 F5G38650
REM SUBROUTINE FOR COMPILING TRA TO LXD CASE F5G38660
SL ANA Z2K5 FORM F5G38670
ALS 10 THE F5G38680
ADD SLK2 ADDRESS F5G38690
STO SLV2 OF F5G38700
CLA BBNO THE F5G38710
ANA DECMK F5G38720
ARS 18 TRA IN F5G38730
ORS SLV2 SLV2 F5G38740
SXD SLV1,4 STORE RETURJ F5G38750
SL2 CLA ZERO PUT 0 LOCATION F5G38760
TSX SK,4 ON TAPE F5G38770
CLA LTRA F5G38780
TSX SK,4 PUT SYMB. ADDR. ON TAPE F5G38790
CLA SLV2 F5G38800
TSX SK,4 PUT SYMB. ADDR ON TAPE F5G38810
CLA ZERO F5G38820
TSX SK,4 ANOTHER 0 F5G38830
LXD SLV1,4 F5G38840
TRA 1,4 F5G38850
REM SUBROUTINE FOR PUTTING HANGING TRA 0 0N TAPE F5G38860
SL1 CLA SLV3 F5G38870
TPL 1,4 RETURN IF THERE IS NO HANGING TRA0 F5G38880
SXD SLV1,4 OTHERWISE , STORE RETURN AND F5G38890
CLA BBNO GET F5G38900
TSX SE,4 THE F5G38910
CLA BBB+5,1 SYMBOLIC LOCATION F5G38920
STO SLV2 OF 1ST INST IN BB AND F5G38930
CLA ZERO STORE IN SYNBOLIS ADDR WORD F5G38940
STO SLV3 SET INDICATOR TO SAY NO HANGING TRA F5G38950
TRA SL2 F5G38960
REM COMPILE AN LXD LIST F5G38970
SM CLA LLIND,2 IMMEDIATELY RETURN IF LIST IS F5G38980
TPL 1,4 ALREADY COMPOLED F5G38990
SLW LLIND,2 RECORD LIST ALREADY COMPILED F5G39000
SXD SMV1,4 STORE RETURN F5G39010
CLA Z2K1+3,2 COMPUTE THE F5G39020
SUB ONED INDEX OF SUB BOTTEM F5G39030
STD SM1 POSITION OF LIDT F5G39040
STD SM5 SET END TEST F5G39050
SM6 CLA LIST1,1 F5G39060
TMI SM8 DOES THIS ELEMENT OF LIST REPRESENT AN LXD F5G39070
TXL SM1+1,1,0 F5G39080
SM1 TXL SM10,1,SET YES, IS ELEMENT IN SUB BOTTOM POS. F5G39090
SBM LIST1+1,1 NO F5G39100
SM10 STO SMV2 STORE THE TAG AWAY F5G39110
CLA BBNO FORN F5G39120
ANA DECMK THE F5G39130
LRS 28 LOCATION F5G39140
CLA LIST1,1 F5G39150
LLS 10 F5G39160
ADD SMK1 F5G39170
SXD SMV3,1 STORE INDEX OF LIST QUANTITY F5G39180
STO SMV4 F5G39190
TSX SL1,4 RECORD ANY HANGING TRA0 F5G39200
CLA SMV4 F5G39210
TSX SK,4 COMPILE THE LOCATION F5G39220
CLA SMK2 F5G39230
TSX SK,4 C0MPILE LXD F5G39240
CLA BBNO F5G39250
TSX SE,4 FIND INDEX OF BB F5G39260
CLA SMV2 F5G39270
SM3 CAS L4 IS THIS THE CORRECT ENT. REQUIREMENT F5G39280
TRA SM2 F5G39290
TRA SM4 YES F5G39300
SM2 ALS 1 NO, SHIFT IT LEFT ONE F5G39310
TXI SM3,1,-1 AND INDEX TO NEXT ENRR. REQUIREMENT F5G39320
SM4 CAL BBB+2,1 FORM F5G39330
ARS 18 AND COMPILE F5G39340
ADD SMK4 THE F5G39350
TSX SK,4 F5G39360
CLA SMV2 COMPILE THE TAG F5G39370
TSX SK,4 F5G39380
LXD SMV3,1 IS THE ELEMENT IN SUB BOTTOM POSITION F5G39390
TXL SM5+1,1,0 F5G39400
SM5 TXL SM7,1,SET F5G39410
TXI SM6,1,-1 NO, INDEX TO NEXT LIST POS. F5G39420
SM7 CLS ONEA F5G39430
STO SLV3 RECORD THAT THERE IS HANGING TRA 0 F5G39440
SM9 LXD SMV1,4 F5G39450
TRA 1,4 RETURN F5G39460
SM8 TZE SM7 GO TO RECORD HANGING TRA F5G39470
SSP F5G39480
TSX SL,4 RECORD A TRA TO LXD CASE F5G39490
TRA SM9 F5G39500
REM THE METHODS OF BRINGNNG IN BLOCKS OF COMPILED INST. AND F5G39510
REM CHECKING FOR ENDINGS IS THE SAME AS IN PASS 2 OF FLOW ANAL. F5G39520
FNDAS TNX 2FNDS,2,ZINST IS BLOCK OF INST. ALL USED F5G39530
TSX RDINS,4 YES, READ IN NEXT BLOCK F5G39540
2FNDS CAL INST-3,2 IS THIS INST. TAGGED F5G39550
ANA STMSK F5G39560
TZE CI7A F5G39570
CI4 LXD 9CNT,4 YES F5G39580
TIX CI5,4,1 COUNT TO 9, IS STAG WORD EXHAUSTED F5G39590
SXD BBOX,2 YES, GET ANOTHER F5G39600
CLA STGWD INCREASE THE NO. OF CURRENT STAG WORD F5G39610
ADD ONEA F5G39620
STO STGWD F5G39630
TSX SE4,4 GET INDEX OF NEXT STAG WORD F5G39640
CLA STAG,1 F5G39650
STO STAGN2 GET AND STORE F5G39660
ALS 2 F5G39670
STO STAGN1 THE STAG WORD F5G39680
LXD BBOX,2 RESTORE INDEX REGISER 2 F5G39690
LXD LD9,4 RESET COUNT TO 9 F5G39700
CI5 SXD 9CNT,4 F5G39710
CAL INST-3,2 F5G39720
ANA TAGMK EXTRACT THE TAG F5G39730
STO TAG F5G39740
CAL STAGN1 F5G39750
ANA LD3 EXTRACT THE S-TAG F5G39760
PDX 0,4 F5G39770
CAL VSTAG,4 CONVERT S-TAG TO 1,2, OR 4 F5G39780
STA INST-3,2 REPLACE TAU-TAG BY S-TAG F5G39790
SUB L4 IS THE TAG 4 F5G39800
TNZ CI5A F5G39810
SSM F5G39820
STO CIND YES, RECORD IR 4 NECESSARY F5G39830
CI5A CAL STAGN2 F5G39840
ALS 9 F5G39850
PBT IS AN LXD NECESSARY F5G39860
TRA SKLX NO F5G39870
CLA ZERO YES F5G39880
TSX SK,4 COMPILE LOCATION OF 0 F5G39890
CLA SMK2 COMPILE LXD F5G39900
TSX SK,4 F5G39910
CLA TAG COMPILE THE SYMB. ADDR. OF THE CELL F5G39920
ORA SMK4 F5G39930
TSX SK,4 F5G39940
CLA INST-3,2 COMPILE THE S-TAG F5G39950
ANA ADDMK F5G39960
TSX SK,4 F5G39970
SKLX CAL INST-1,2 F5G39980
ANA LFTMSK F5G39990
SLW TMP10 F5G40000
CLA TMP10 F5G40010
CAS LLXP IS THIS AN LXP F5G40020
TRA CI1 F5G40030
TRA SKLY YES. F5G40031
TRA CI1 F5G40032
SKLY CAL STAGN2 F5G40040
ALS 9 F5G40041
PBT IS LXD NECESSARY. F5G40042
TRA CI3A NO. F5G40043
CLA INST-3,2 YES. IS S-TAG=4. F5G40044
SLW CPIND RECORD DONT COMPILE. F5G40045
ANA ADDMK F5G40046
SUB L4 F5G40047
TNZ CI6 NOT 4. F5G40048
CAL INST-5,2 IS NEXT INSTR F5G40049
ANA LFTMSK F5G40050
SLW TMP10 AN LXD F5G40051
CLA TMP10 F5G40052
SUB LLXD WITH REAL F5G40053
TNZ CI6 IR4. F5G40054
CLA INST-7,2 F5G40055
ANA ADDMK IF SO, F5G40056
SUB L4 F5G40057
TNZ CI6 TURN ON F5G40058
PSE 97 F5G40059
TRA CI6 SENSE LIGHT. F5G40060
CI1 CAS LDED IS IT A DED F5G40061
TRA CI2 F5G40062
TRA CI3A YES F5G40070
CI2 CLA STAGN2 F5G40080
TPL CI6 IS SXD REQUIRED F5G40090
CLA INST,2 NEITHER LXP NOR DED, COMPILE THE F5G40100
TSX SK,4 INST. F5G40110
CLA INST-1,2 F5G40120
TSX SK,4 F5G40130
CLA INST-2,2 F5G40140
TSX SK,4 F5G40150
CLA INST-3,2 F5G40160
TSX SK,4 F5G40170
CLA ZERO YES, COMPILE AN SXD, ZERO LOCATION F5G40180
STO CPIND RECORD THAT THIS INST. SHOULDNT BE CONPILED F5G40190
TSX SK,4 F5G40200
CLA SIK3 SXD IN BCD F5G40210
TSX SK,4 F5G40220
CLA TAG SYMB. ADDR. OF TAU-TAG CELL F5G40230
ORA SMK4 F5G40240
TSX SK,4 F5G40250
CLA INST-3,2 AND TAG WORD F5G40260
ANA ADDMK F5G40270
TSX SK,4 F5G40280
CI6 CAL STAGN1 NO SXD REQUIRED. F5G40290
ALS 2 F5G40300
SLW STAGN1 F5G40310
CAL STAGN2 F5G40320
ALS 1 F5G40330
SLW STAGN2 F5G40340
TRA CKLOC GO TO CHECK FOR ENDINGS F5G40350
CI7 SSM F5G40360
STO CPIND RECODD LATER COMPILING NECESSARY F5G40370
REM NOW THE END OF BB IS CHECKED FOR F5G40380
CKLOC CLA INST,2 IF NO LOCATION SYMBOL , THIS CANT BE F5G40390
TZE TR3S ENSING OTHER THAN CERTAINTY F5G40400
CLA INST-4,2 IS THIS LAST INST IN BB F5G40410
SUB NXTLOC F5G40420
TZE ENDBB YES, LOOK FOR TYPE OF ENDING F5G40430
LXD LD8,4 NO, CHECK FOR ENDING OF GROUP OF INST F5G40440
CAL INST-1,2 F5G40450
ANA DECMK LOOK AT OP CODE F5G40460
SUBP SUB LNTOP+1,4 COMPARE TO OP CODES OF POSSIBLE F5G40470
TZE TRTIN+1,4 ENDINGS TRANSFER WHEN FOUND F5G40480
TIX SUBP,4,1 TRY NEXT POSSIBILITY F5G40490
CAL INST-1,2 NOT FOUND, LOOK FORCONDITIONAL TRANSFER F5G40500
6ANA ANA FSTLT F5G40510
SLW TMP10 F5G40520
CLA TMP10 F5G40530
SUB FSTT F5G40540
TZE TTYPE IS A CONDITIONAL TRANSFER F5G40550
NOEND TSX SCMI,4 NOT AN END OD BB COMPILE INST F5G40560
TXI FNDAS,2,4 IF IT NEEDS TO BE F5G40570
TR3S CLA INST-4,2 IS THIS LAST INST IN BB F5G40580
SUB NXTLOC F5G40590
TZE SEQTR YES F5G40600
TRA NOEND NO F5G40610
REM TRANSFER VECTOR SEE SUBP+1 ABOVE F5G40620
TRA GOTOV TRA IS OP CODE F5G40630
TRA IF2PS PSE F5G40640
TRA IF2CS DCT F5G40650
TRA IF2CS RTT F5G40660
TRA MSECS MSE F5G40670
TRA IF3CS TZE F5G40680
TRA STPCSZ HPR F5G40690
TRTIN TRA NOEND TSX F5G40700
REM THE FOLLOWING IS 4 WORD TRANSFER VECTOR, SEE ENDBB BELOW F5G40710
TRA TRACS TRAIS OP CODE F5G40720
TRA DOCS TXL F5G40730
TRA PAUSE HPR F5G40740
TRTTR TRA TRAC3 TTR F5G40750
ENDBB LXD LD4,4 THIS INST ENDS A BASIC F5G40760
CLA INST-1,2 BLOCK LOOKAT OP CODE F5G40770
ANA DECMK FOR TYPE OF ENDING F5G40780
6SUB SUB LTROP+1,4 F5G40790
TZE TRTTR+1,4 TRANSFER IF IOUND F5G40800
TIX 6SUB,4,1 TRY NEXT POSSIBILITY F5G40810
TRA SEQTR F5G40820
TRACS CAL INST-2,2 OP CODE IS TRA SEE IF ADDRESS F5G40830
ANA PFXMK IS IN PROGRAM UNCONDITITONAL TRANSFER F5G40840
TNZ GOTON IF TRANSFER IT IS A GO TO N F5G40850
TRAC3 SXD BBOX,2 THIS IS GO TO ALPHA F5G40860
CAL BBNO F5G40870
ARS 18 F5G40880
STO ARG1 STORE BBNO AS ARGUMENT OF SAD F5G40890
TSX SE1,4 F5G40900
CAL BBB,1 F5G40910
TSX SE6,4 GET SUCC. TABLE ENTRY F5G40920
CAL SUCC,1 F5G40930
TSX SAD,4 GO TO DETERMINE SYMBOLIC ADDRESS F5G40940
LXD BBOX,2 F5G40950
SLW INST-2,2 TEPLACE SYMBOLIC ADDR. F5G40960
TSX SCMI,4 COMPILE THE INSTR F5G40970
TXI BEGBB,2,4 BEGINNING OF BB, INDEX TO NEXT INSTR F5G40980
GOTON SXD BBOX,2 F5G40990
CLA BBNO F5G41000
TSX SE,4 F5G41010
CLA BBB,1 CHECK TO MAKE SURE THIS IS GO TO N F5G41020
ARS 33 F5G41030
ADD ONEA F5G41040
TZE GON1 F5G41050
TSX 4,4 DIAGNOSTIC THIS ISNT GO N F5G41060
GON1 CAL BBB+1,1 F5G41070
ARS 33 PUT SXD CASE IN TMP10 F5G41080
SLW TMP10 F5G41090
REM NOW ANY SXD BEFIR GO TO N ARE COMPILED F5G41100
LXD LD3,2 F5G41110
GON3 CLA VSTAG,2 DOES THIS THIS IR NEED SXD F5G41120
ANA TMP10 F5G41130
TZE GON2 F5G41140
SXD ABOX,1 YES F5G41150
LDQ ZERO REPLACE LOCATION BY 0 AND F5G41160
LXD BBOX,4 PUT LOCATION ON THE F5G41170
CLA INST,4 SXD INST. F5G41180
STQ INST,4 SXDINST F5G41190
TSX SK,4 F5G41200
CLA LSXD F5G41210
TSX SK,4 F5G41220
LXD ABOX,1 F5G41230
CAL BBB+2,1 F5G41240
ANA TAGMK F5G41250
ORA IDTAG F5G41260
TSX SK,4 F5G41270
CAL TMP10 F5G41280
ANA VSTAG,2 F5G41290
TSX SK,4 F5G41300
LXD ABOX,1 F5G41310
GON2 TXI GON2+1,1,-1 F5G41320
TIX GON3,2,1 F5G41330
LXD BBOX,2 F5G41340
TSX SCMI,4 COMPILE THE INST F5G41350
TXI BEGBB,2,4 F5G41360
DOCS PXD 0,0 F5G41370
STO SXST T RECORD THERE IS SEQUDNTIAL TRANSFER F5G41380
TRA TRAC3 OTHERWISE DO EXACTLY AS FOR TRA TRANSFER F5G41390
PAUSE PXD 0,0 F5G41400
SEQTR SYN PAUSE F5G41410
STO SXST RECORD SEQUENTIAL TRANSFER F5G41420
TSX SCMI,4 F5G41430
TXI BEGBB,2,4 F5G41440
GOTOV TSX SCMI,4 COMPILE INST IF NECESSARY F5G41450
CLA INST-3,2 FIND NO. OF BRANCHES IN VECTOR F5G41460
SUB LD1 F5G41470
STD MBOX F5G41480
CLA BBNO F5G41490
ARS 18 STORE BBNO FOR SAD ROUTINE F5G41500
STO ARG1 F5G41510
GOV4 TXI GOV4+1,2,4 F5G41520
SXD BBOX1,2 F5G41530
TSX SE1,4 F5G41540
CLA BBB,1 F5G41550
SLW SUCNO STORE NO OF 1ST SUCCESSOR F5G41560
LXD BBOX1,2 F5G41570
13TNX TNX GOV1,2,ZINST IS BLOCK OF INST ALL USED F5G41580
TSX RDINS,4 T READ NEXT BLOCK F5G41590
GOV1 SXD BBOX1,2 F5G41600
CAL SUCNO F5G41610
TSX SE6,4 F5G41620
CLA SUCC,1 F5G41630
TSX SAD,4 FINF NEW SYMBOLIC ADDR FOR THIS TRANSFER F5G41640
LXD BBOX1,2 F5G41650
SLW TMP10 STORE SYMBOLIC ADDR. F5G41660
LXD MBOX,4 F5G41670
TIX GOV2,4,1 IS THIS THE LAST TRANSFER F5G41680
CLA INST-2,2 F5G41690
SUB NXTLOC 1ST INST IN NEXT BB, IS IT F5G41700
TZE GOV3 F5G41710
GOV2 CLA TMP10 NO F5G41720
STO INST-2,2 F5G41730
TSX SCMI,4 COMPILE THE INXT F5G41740
GOV3 TXI GOV3+1,2,4 F5G41750
CAL SUCNO F5G41760
ADD ONED F5G41770
SLW SUCNO F5G41780
LXD MBOX,4 F5G41790
GOV5 TXI GOV5+1,4,-1 F5G41800
SXD MBOX,4 F5G41810
TXH 13TNX,4,0 IS THIS LAST TRA OF VECTOR F5G41820
TRA BEGBB YES F5G41830
IF2PS CLA INST-3,2 THIS IS PSE LOOK AT ADDRESS TO F5G41840
ANA XXPSX SEE IF IT IS 164-6 F5G41850
SUB XX16X F5G41860
TZE PSTCS YES, IT IS A TEST F5G41870
CLA INST-3,2 F5G41880
ANA DECMK NO, SEE IF ADDR IS 360 F5G41890
SUB XX360 F5G41900
TNZ NOEND NO, THIS ISNT BB END F5G41910
PSTCS TSX SCMI,4 THIS IS A PSE TEST INST F5G41920
MSECS SYN PSTCS OR AN MSE INST F5G41930
PS1 TXI PS1+1,2,4 INEDX TO CONSIEER 1ST TRANSFER F5G41940
SXD BBOX1,2 F5G41950
CAL BBNO F5G41960
ARS 18 F5G41970
STO ARG1 STORE BBNO AS ARGUMENT FOR SAD F5G41980
TSX SE1,4 F5G41990
CAL BBB,1 F5G42000
STO SUCNO GETNUMBER OF 1ST SUCCESSOR F5G42010
ADD LD1 F5G42020
TSX SE6,4 GET THE SECOND SUCC ENTRY F5G42030
CLA SUCC,1 F5G42040
TSX SAD,4 F5G42050
LXD BBOX1,2 F5G42060
SLW INST-2,2 REPLACE SYMBOLIC ADDRESS F5G42070
TSX SCMI,4 F5G42080
PS2 TXI PS2+1,2,4 INCREASE INSTR INDEX F5G42090
CLA INST-2,2 IS THIS A SEQUENTIAL TRANSFER F5G42100
SUB NXTLOC F5G42110
TZE PS3 YES, SKIP COMPILING THE INST F5G42120
SXD BBOX1,2 NO F5G42130
CLA SUCNO F5G42140
TSX SE6,4 F5G42150
CLA SUCC,1 F5G42160
TSX SAD,4 DETERMINE THE SYMBQLIC ADDRESS F5G42170
LXD BBOX1,2 F5G42180
SLW INST-2,2 REPLACE SYMBOLIC ADDRESS F5G42190
TSX SCMI,4 COMPILE THE INST. F5G42200
TXI BEGBB,2,4 F5G42210
TTYPE CLA INST-2,2 IS THIS TRANSFER TO NEXT INST. F5G42220
CAS INST,2 F5G42230
TRA TTYP1 F5G42240
TRA NOEND YES F5G42250
TTYP1 SUB PCC F5G42260
TZE NOEND YES F5G42270
TRA CNDTR NO, IS CONDITIONAL TRANSFER F5G42280
IF2CS TSX SCMI,4 THIS IS DCT OR RTT F5G42290
RT1 TXI RT1+1,2,4 INDEX TO CONSIDER 1ST TRANSFER F5G42300
CNDTR SXD BBOX1,2 STORE BBNO. AS ARGUMENT F5G42310
CAL BBNO STORE BBNO AS ARGUMENT F5G42320
ARS 18 OF SAD F5G42330
STO ARG1 F5G42340
TSX SE1,4 F5G42350
CAL BBB,1 F5G42360
STO SUCNO F5G42370
TSX SE6,4 GET THE 1ST SUCC ENTRY F5G42380
CLA SUCC,1 F5G42390
TSX SAD,4 F5G42400
LXD BBOX1,2 F5G42410
SLW INST-2,2 REPLACE SYMBOLIC ADDRESS F5G42420
TSX SCMI,4 COMPILE THE INST F5G42430
RT2 TXI RT2+1,2,4 F5G42440
CLA INST-2,2 IS THIS A SEQUENTIAL TRANSFER F5G42450
SUB NXTLOC F5G42460
TZE PS3 YES, SKIP COMPILING THE INST F5G42470
SXD BBOX1,2 F5G42480
CLA SUCNO F5G42490
ADD LD1 F5G42500
TSX SE6,4 F5G42510
CLA SUCC,1 F5G42520
TSX SAD,4 DETERMINE THE SYMBOLIC ADDR F5G42530
LXD BBOX1,2 F5G42540
SLW INST-2,2 F5G42550
TSX SCMI,4 COMPILE THE TRANSFER F5G42560
TXI BEGBB,2,4 F5G42570
IF3CS SXD BBOX1,2 THIS IS A TZE INST I. E. AN IF F5G42580
CAL BBNO F5G42590
ARS 18 STORE BB NO. FOR SUBROUTINE F5G42600
STO ARG1 F5G42610
TSX SE1,4 ARGUMENT F5G42620
CAL BBB,1 F5G42630
STO SUCNO F5G42640
ADD LD1 GET THE SUCC ENTRY F5G42650
TSX SE6,4 FOR THE TZE F5G42660
CLA SUCC,1 F5G42670
TSX SAD,4 F5G42680
LXD BBOX1,2 F5G42690
SLW INST-2,2 REPLACE THE SYMBOLIC ADDREAS F5G42700
TSX SCMI,4 COMPILE THE TZE F5G42710
IF1 TXI IF1+1,2,4 F5G42720
CAL INST-1,2 CHECK NEXT INST TO SEE F5G42730
ANA LFTMSK IF IT IS TPL F5G42740
SLW TMP10 F5G42750
CLA TMP10 F5G42760
SUB LTPL F5G42770
TZE 16CLA F5G42780
IFHPR TSX 4,4 IF NOT, DIAGNOSTIC F5G42790
16CLA CLA INST-2,2 DOES THIS EXIT GO TO NEXT BB F5G42800
SUB NXTLOC F5G42810
TNZ IF2 F5G42820
CLA INST-6,2 YES, DOES NEXT ONE ALSO F5G42830
SUB NXTLOC F5G42840
TNZ IF2 F5G42850
PXD 0,0 YES, RECORD SEQUENTIAL TRANSFER F5G42860
STO SXST F5G42870
TXI BEGBB,2,8 F5G42880
IF2 SXD BBOX1,2 COMPILE THE TPL F5G42890
CLA SUCNO F5G42900
TSX SE6,4 F5G42910
CLA SUCC,1 F5G42920
TSX SAD,4 FIND AND F5G42930
LXD BBOX1,2 REPLACE F5G42940
SLW INST-2,2 SYMBOLIC ADDRESS F5G42950
TSX SCMI,4 F5G42960
IF3 TXI IF3+1,2,4 F5G42970
CAL INST-1,2 IS THIS TRA F5G42980
ANA LFTMSK F5G42990
SLW TMP10 F5G43000
CLA TMP10 F5G43010
SUB LTRA F5G43020
TNZ IFHPR IF NOT , STOP F5G43030
CLA INST-2,2 YES IT IS IS THIS A F5G43040
SUB NXTLOC SEQUENTIAL TRANSFER F5G43050
TNZ IF4 F5G43060
PS3 PXD 0,0 YES, RECORD THAT F5G43070
STO SXST F5G43080
TXI BEGBB,2,4 F5G43090
IF4 SXD BBOX1,2 CONPILE THE TRA F5G43100
CLA SUCNO F5G43110
ADD LD2 F5G43120
TSX SE6,4 F5G43130
CLA SUCC,1 IF NECESSARY F5G43140
TSX SAD,4 MODIFY THE F5G43150
LXD BBOX1,2 SYMBOLIC FSG43160
SLW INST-2,2 A0DRESS F5G43170
TSX SCMI,4 F5G43180
TXI BEGBB,2,4 F5G43190
STPCSZ CLA INST-5,2 F5G43200
SUB LTRA F5G43210
TNZ NOEND F5G43220
CLA INST,2 F5G43230
SUB INST-6,2 F5G43240
TNZ NOEND F5G43250
STPCS TSX SCMI,4 COMPILE THE TWO INXT F5G43260
STP1 TXI STP1+1,2,4 AND GO TO STAET BB F5G43270
TSX SCMI,4 F5G43280
TXI BEGBB,2,4 F5G43290
REM THIS ROUTINE ELIMINATES EXTRA SXD AND LXD INXT AROUND F5G43300
REM SUBROUTINE CALL SEQUENCES F5G43310
CI7A CAL INST-1,2 IS THIS AN SXD INST F5G43320
ANA LFTMSK F5G43330
SLW TMP10 F5G43340
CLA TMP10 F5G43350
SUB LSXD F5G43360
TNZ CI7C F5G43370
CAL INST-3,2 YES, DOES IT HAVE TAG 4 F5G43380
ANA ADDMK F5G43390
SUB L4 F5G43400
TNZ CI7C F5G43410
CLA CIND YES, IS IR4 NECESSARY F5G43420
TPL DLSXD F5G43430
CAL INST-5,2 YES, IS THE NEXT INST A TSX F5G43440
ANA LFTMSK F5G43450
SLW TMP10 F5G43460
CLA TMP10 F5G43470
SUB LTSX F5G43480
TNZ CI7C F5G43490
CLA INST,2 F5G43500
TSX SK,4 YES, COMPILE AN SXD INSTR , TAG 4, TO F5G43510
CLA LSXD SPECIAL TEMP. STORAGE LOC. F5G43520
TSX SK,4 F5G43530
CLA GSYM F5G43540
TSX SK,4 F5G43550
CLA T4SYM F5G43560
TSX SK,4 F5G43570
CMTSX CLA INST-4,2 COMPILE THE TSX INST F5G43580
CMTS1 TSX SK,4 F5G43590
CLA INST-5,2 F5G43600
TSX SK,4 F5G43610
CLA INST-6,2 F5G43620
TSX SK,4 F5G43630
CLA INST-7,2 F5G43640
TSX SK,4 F5G43650
CI7B TXI FNDAS,2,8 LOOK AT NEXT INST LXF F5G43660
DLSXD CLA INST,2 F5G43670
TSX SK,4 IR4 NOT NECESS. C0MPILE BSS 0. F5G43680
CLA LBSS F5G43690
TSX SK,4 F5G43700
CLA ZERO F5G43710
TSX SK,4 F5G43720
CLA ZERO F5G43730
TSX SK,4 F5G43740
TRA CMTSX F5G43750
CI7C CAL INST-1,2 IS THIS AN LXD F5G43770
ANA LFTMSK F5G43780
SLW TMP10 F5G43790
CLA TMP10 F5G43800
SUB LLXD F5G43810
TNZ CI7 NO, GO TO COMPILE THE INST F5G43820
CAL INST-3,2 YES, IS THE TAG 4 F5G43830
ANA ADDMK F5G43840
SUB L4 F5G43850
TNZ CI7 NO, GO TO COMPILE THE INST. F5G43860
CLA CIND YES. IS IR4 NECESSARY. F5G43870
TPL CI7E NO, GO TO REPRESS LATER COMPILING OF INST F5G43880
MSE 97 CHECK FOR LXP WHICH WAS LXD-D. F5G43881
TRA CI7C1 NO SUCH. F5G43882
SSP THERE WAS, SUPPRESS LATER COMPILING F5G43883
TRA CI7E OF INST. F5G43884
CI7C1 CAL INST-5,2 IS FOLLOWING INSTR AN SXD. F5G43885
ANA LFTMSK F5G43900
SLW TMP10 F5G43910
CLA TMP10 F5G43920
SUB LSXD F5G43930
TNZ CI7D F5G43940
CAL INST-7,2 YES, IS THE TAG A 4 F5G43950
ANA ADDMK F5G43960
SUB L4 F5G43970
TNZ CI7D F5G43980
CLA INST-4,2 IS SXD FIRST INSTR F5G43990
SUB NXTLOC OF NEXT BB. F5G44000
TZE CI7D YES, COMPILE LX. F5G44010
TXI FNDAS,2,8 NO--DELETE LX, SX. F5G44020
CI7D CLA ZERO CLMPILE THE LXD WITH GARBAGE F5G44030
TSX SK,4 SYMBOLADDEAA AND TAG 4 F5G44040
CLA LLXD F5G44050
TSX SK,4 F5G44060
CLA GSYM F5G44070
TSX SK,4 F5G44080
CLA T4SYM F5G44090
TSX SK,4 F5G44100
CI7E STO CPIND SURPRESS LATER COMPILING INST SET + F5G44110
TRA CKLOC F5G44120
CI3A CLA INST-3,2 IS THE S-TAG EQUAL TO 4 F5G44130
SLW CPIND RECORD INST. NOT TO BE COMPILED F5G44140
ANA ADDMK F5G44150
SUB L4 F5G44160
TNZ CI6 F5G44170
PXD 0,0 YES, RECORD IR4 NOT NECESSARY F5G44180
STO CIND F5G44190
TRA CI6 SINCE LXP OR DED, SKIP COMPILING INST. F5G44200
REM THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INST INTO CS F5G44210
REM AND SHIFTS THE EXTRA INST TO THE BEGINNING OF BLOCK F5G44220
RDINS SXD OUTBX,4 SAVE RETURN INDEX F5G44230
CLA L4 SET ERRBX FOR 5 TRIES F5G44240
STO ERRBX F5G44250
SXD BBOX,1 SAVE INDEX 1 F5G44260
LXD LD12,4 SHIFT EX,RA INST FROM END F5G44270
D1CLA CLA NDINS,4 OF BLOCK TO BEGINNING F5G44280
STO INST,4 F5G44290
TIX D1CLA,4,1 IS BLOCK SHIFTED F5G44300
D1RDS RTB INSTTP SELECT INST TAPE F5G44310
LXA RECSC,1 YES, SET INDEX FOR NO. OF RECORDS F5G44320
D1CPY CPY INST-12,4 COPY BLOCK OF INST F5G44330
TXI D1CPY,4,1 SET FOR NEXT WORD F5G44340
TRA D2END END OF FILE F5G44350
TNX D1BCK,1,1 END OF RECORD IS IT END OF LAST RECORD F5G44360
RTB INSTTP NO, READ NEXT RECORD F5G44370
TRA D1CPY F5G44380
D1BCK IOD TEST FOR TAPE ERROR F5G44390
RTT F5G44400
TRA INERR ERROR F5G44410
TXH D1XX,4,ZINST-1 IF 3RD FULL REC. NOT END OF FILE F5G44420
D2END PXD 0,4 REACHED END OF INSTR F5G44430
ADD LD8 PUT TEST FOR LAST INST F5G44440
STD FNDAS INTO MAIN ROUTINE F5G44450
CLA LCOUT PUT ADDR 0F FINAL EXIT INTO MAIN F5G44460
STO FNDAS+1 ROUTINE F5G44470
CLA ENDMK F5G44480
STO INST-12,4 F5G44490
D1XX LXD OUTBX,4 NO ERROR, RESTORE INDEX REGISTERS F5G44500
LXD BBOX,1 F5G44510
TRA 1,4 RETURN TO MAIN ROUTINE F5G44520
INERR CLA ERRBX ERROR IN READING IS THIS 1ST TRY F5G44530
TZE HTRD2 TO READ IN F5G44540
SUB ONEA YES, STORE INDICATION AND TRY AGAIN F5G44550
STO ERRBX F5G44560
D2BST BST INSTTP BACKSPACE OVER RECORDS JUST READ F5G44570
TXI D2TIX,1,1 F5G44580
D2TIX TNX D2BST,1,RECNO F5G44590
TRA D1RDS TAPE BACKSPACED TRY AGAIN F5G44600
HTRD2 TSX 4,4 ERROR ON 5TH TRY DIAGNOSTIC F5G44610
PASS2 LXD LD12,2 F5G44620
REW OTAPE F5G44630
1TXI TXI 1TXI+1,2,ZINST+1 F5G44640
REM INITIALIZE FOR START OF BB F5G44650
BEGBB SXD BBOX1,2 STORE INDEX OF POSITION ON ONST TABOE F5G44660
CLA ONED F5G44670
ADD BBNO F5G44680
STO BBNO F5G44690
ARS 18 WAS THIS THE LAST BB F5G44700
SUB KEYS F5G44710
ADD ONEA F5G44720
TZE LSTBB YES, GL GO WRITE PARTIAL BLOLK F5G44730
CLA SXST NO F5G44740
TMI BEGBBY F5G44750
CLA ADDMK F5G44760
STO SXST F5G44770
BEGBBY CLA BBNO F5G44780
TSX SE,4 F5G44790
CAL BBB+2,1 GET ENTRANCE REQUIREMENT F5G44800
ARS 18 FOR IR4 F5G44810
SUB STMSK STORE + OR - IF IR4 F5G44820
STO CIND ISNT OR IS NECESSARY F5G44830
CLA ONEA RECORD THERE ISNT HANGING TRA 0 F5G44840
STO SLV3 F5G44650
CAL BBNO FIND THE 1ST INST IN NEXT F5G44860
ADD ONED F5G44870
TSX SE,4 BB F5G44880
CLA BBB+5,1 F5G44890
STO NXTLOC F5G44900
REM DETERMINE WHICH LXD CASES EXIST , RESULT IN Z1V5 F5G44910
Z1 LDQ ZERO INITIALIZE THE EXISTENCE F5G44920
STQ Z1V5 INDICATOR WORD F5G44930
CLA BBB,1 GET AND STORE NO. OF 1ST PRED IN F5G44940
STA Z1V2 NEXT BB F5G44950
CAL BBNO F5G44960
TSX SE,4 F5G44970
CAL BBB,1 STORE THE NO OF F5G44980
STA Z1V3 1ST PRED IN F5G44990
STA Z1V8 THIS BB F5G45000
CLA Z1V3 F5G45010
Z15 CAS Z1V2 IS THIS PRED IN SAME BB F5G45020
TRA Z12 YES F5G45030
TRA Z2 NO F5G45040
Z12 TSX SE5,4 F5G45050
CLA PRED,1 DETERMINE THE F5G45060
ANA LT7 LXD CASE F5G45070
ALS 3 F5G45080
PDX 0,4 F5G45090
CAL Z1K3 STORE BIT AS INDICATOR F5G45100
ARS 7,4 FOR THIS F5G45110
ORS Z1V5 LXD CASE F5G45120
CLA Z1V3 F5G45130
ADD ONEA ARRANGE TO DEAL WITH NEXT F5G45140
STA Z1V3 PRED F5G45150
TRA Z15 F5G45160
REM THIS OPEN S. R. FORMS THE LXD LISTS FROM TNE INFO LEFT IN F5G45170
REM Z1V5 BY Z1 F5G45180
Z2 LDQ ZERO F5G45190
LXA Z2K2,1 F5G45200
Z21 STQ LLIND,1 SET THE 3 INDEXDS TO THE SUB F5G45210
CLA Z2K1+3,1 BOTT0M POSITIONS F5G45220
SUB ONED IN THE 3 LISTS AND ALL F5G45230
STO Z2V1+3,1 INDICATORS TO SAY COMPILED F5G45240
TIX Z21,1,1 F5G45250
LXD LD12,1 F5G45260
CLA MZE PLACE -0 S IN THE F5G45270
Z28 STO LIST1+12,1 LXD LISTS F5G45280
TIX Z28,1,1 F5G45290
LXD Z2K2,1 SET TO BEGINNING OF CASE LIST F5G45300
Z25 LDQ Z1V5 DID F5G45310
CLA CASE+7,1 THIS F5G45320
PAX 0,2 CASE F5G45330
RQL 7,2 OCCURR F5G45340
TQP Z26 F5G45350
CLA Z2K5 YES, SET NO OF ONES IN F5G45360
STO Z2V2 DIFFERENCE TO HIGH NUMBER F5G45370
LXA Z2K2,2 INITIALIZE TO 1ST LIST F5G45380
Z23 LDQ ZERO IS P004 F5G45390
CLA Z2V1+3,2 F5G45400
R004 PDX 0,4 QUANTITY IN THE LIST F5G45410
CLA LIST1,4 IS THE TOP F5G45420
ANA CASE+7,1 YES, DETERMINE F5G45430
SBM LIST1,4 CONTAINED IN THIS F5G45440
TNZ Z27 CASE F5G45450
CLA CASE+7,1 YES, DETERMINE F5G45460
SUB LIST1,4 THE NO. F5G45470
LRS 21 OF ONES F5G45480
MPY Z2K4 IN THE F5G45490
STA Z22 LOGICAL F5G45500
CLA Z2K3 DIFFERENCE F5G45510
Z22 ARS SET F5G45520
ANA Z2K5 F5G45530
CAS Z2V2 IS THE NUMBER 0F ONES IN THE F5G45540
TRA Z27 DIFFERENCE LESS THAN OR EQUAL TO F5G45550
TRA Z27 THE PREVIOUS MINIMUM. NO F5G45560
STO Z2V2 , YES, STORE NEW MIN F5G45570
SXD Z2V3,2 STORE INDEX OF LIST OF GIVING NEW MIN F5G45580
Z27 TIX Z23,2,1 COUNT TO 3 LISTS ARE WE THRU F5G45590
LXD Z2V3,2 UES, GET INDEX OF L1ST WIIH MIN DIFF F5G45600
CLA Z2V1+3,2 STIRE F5G45610
PDX 0,4 THIS F5G45620
CLA CASE+7,1 CASE AT TOP OF F5G45630
Z24 TXI Z24+1,4,1 THAT LIST F5G45640
STO LIST1,4 F5G45650
PXD 0,4 STORE INDEX OF TOP F5G45660
STO Z2V1+3,2 POSITION IN THAT LIST F5G45670
CLA MZE STORE INDICATION THAT THE F5G45680
STO LLIND,2 LIST IS TO BE COMPILED F5G45690
Z26 TIX Z25,1,1 COUNT THE 7 CASES F5G45700
REM EXPAND TNE LXD LISTS F5G45710
Z3 CLA Z2K5 IS THE F5G45720
SBM LIST1+2 BOTTOM ENTRY OF F5G45730
TZE Z307 LIST1 A CASE 7 F5G45740
CLA LIST1+2 NO, DO THE BOTTOMS F5G45750
ANA LIST2+2 OF LISTS 1 AND 2 HAVE F5G45760
TZE Z35 A NON ZERO INTERSECTION F5G45770
CAS LIST1+2 YES, DOES 1NTERSECTION EQUAL 1 F5G45780
TRA Z31 F5G45790
TRA Z33 YES F5G45800
Z31 CAS LIST2+2 IS IT EQUAL TO BOTTOM OF 2 F5G45810
TRA Z32 F5G45820
TRA Z34 YES F5G45830
Z32 STO LIST1+3 STORE INTERSECTION IN SUB1 F5G45840
SSM POSITITON AND -(INTER.) IN F5G45850
STO LIST2+3 SUB2 POS. F5G45860
TRA Z306 F5G45870
Z38 SSM ENTER -INTER1 AND 3 F5G45880
STO LIST3+3 IN SUB3 POS. F5G45890
TRA Z306 F5G45900
Z39 SSM ENTER - INTER 1 AND 3 F5G45910
STO LIST1+3 INSUV1 POS. F5G45920
TRA Z306 F5G45930
Z300 CLA LIST2+2 DO BOTTOM ENTRIES F5G45940
ANA LIST3+2 OF 2 AND 3 HAVE F5G45950
TZE Z306 NONZERO INTERSECTION F5G45960
CAS LIST2+2 YES, IS INTRE 2 AND 3 F5G45970
TRA Z301 F5G45980
TRA Z303 YES F5G45990
Z301 CAS LIST3+2 IS INTERSECTION EQUAL TO BOTTOM OF LIST 3 F5G46000
TRA Z302 F5G46010
TRA Z304 YES F5G46020
Z302 STO LIST3+3 STORE INTER 2 AND 3 IN SUB 3 POS. F5G46030
SSM AND -INTER IN F5G46040
STO LIST2+3 SUB 2 POS. F5G46050
TRA Z306 F5G46060
Z303 SSM ENTER -(INTER 2 AND 3 ) F5G46070
STO LIST3+3 IN SUB 3 POS. F5G46080
TRA Z306 F5G46090
Z33 SSM ENTER -(INTER 1 AND 2 ) F5G46100
STO LIST2+3 IN SUB 2 POS. F5G46110
TRA Z306 F5G46120
Z34 SSM STORE -(INTER 1 AND 2 ) F5G46130
STO LIST1+3 IN SUB 1 POS. F5G46140
TRA Z306 F5G46150
Z35 CLA LIST1+2 DO BOTTOM ENTRIES IN F5G46160
ANA LIST3+2 1 AND 3 HAVE NONZERO F5G46170
TZE Z300 INTERSECTION F5G46180
CAS LIST1+2 YES, IS IT EQUAL TO BOT. 1 F5G46190
TRA Z36 F5G46200
TRA Z38 YES F5G46210
Z36 CAS LIST3+2 TO THE BOTTOM ENTRY IN 3 F5G46220
TRA Z37 F5G46230
TRA Z39 YES F5G46240
Z37 STO LIST3+3 ENTER INTER 1 AND 3 IN SUB F5G46250
SSM 3 POS. AND -( INTER ) IN F5G46260
STO LIST1+3 SUB1 POS. F5G46270
TRA Z306 F5G46280
Z307 SXD Z2V1,0 CREATE THE LIST F5G46290
CLA L7 F5G46300
STO LIST1 F5G46310
CLA L3 F5G46320
STO LIST1+1 F5G46330
CLA ONEA F5G46340
STO LIST1+2 F5G46350
TRA Z4 F5G46360
Z304 SSM ENTER - INTER 2 AND 3 F5G46370
Z305 STO LIST2+3 INSUB2 POS. F5G46300
Z306 LXD LD3,2 SET COUNT TO 3 F5G46390
LXA ZERO,1 SET TO INSPECT 1ST LIST F5G46400
Z309 CLA LIST1+2,1 F5G46410
TZE Z308 IS THE BOTTOM ENTRY ZERO F5G46420
SUB ONEA NO F5G46430
ANA LIST1+2,1 DOES IT HAVE TWO ONES F5G46440
TZE Z308 F5G46450
STO TMP10 YES F5G46460
CLA LIST1+3,1 IS THE SUB BOTTOM F5G46470
TNZ Z308 ENTRY ZERO F5G46480
CLA TMP10 YES F5G46490
STO LIST1+3,1 F5G46500
Z308 TXI Z308+1,1,-4 PREPARE FOR NEXT LIST F5G46510
TIX Z309,2,1 COUNT TO 3 F5G46520
CLA Z2K5 F5G46530
SBM LIST1+1 F5G46540
TNZ Z4 F5G46550
CLA LIST1+2 F5G46560
SUB ONEA F5G46570
ANA LIST1+2 F5G46580
TNZ Z4 F5G46590
CLA LIST1+2 F5G46600
STO LIST1+3 F5G46610
CLA Z2K5 F5G46620
SUB LIST1+2 F5G46630
STO LIST1+2 F5G46640
SUB ONEA F5G46650
ANS LIST1+2 F5G46660
CAL LIST1+3 F5G46670
ORS LIST1+2 F5G46680
REM DETECT AND COMPILE ANY SEQUENTIAL TRANSFER F5G46690
Z4 LDQ MZE PUT MINUS ZEROS IN F5G46700
STQ SXAS THE ASS0XIATED F5G46710
LXA L19,4 SXDPOSIT1ONS F5G46720
Z411 STQ SXST+20,4 F5G46730
TIX Z411,4,1 F5G46740
CLA SXST F5G46750
TMI Z5 IS THERE A SEQUENTIAL TRANSFER F5G46760
CAL BBNO YES F5G46770
ARS 18 F5G46780
SUB ONEA F5G46790
STO TMP10 PUT NO OF PREV. BB IN TMP10 F5G46800
CLA Z1V8 INITIALIZE 1ST PRED NO THIS BB F5G46810
Z49 STO Z1V3 F5G46820
TSX SE5,4 F5G46830
CAL PRED,1 F5G46840
ANA ADDMK IS THIS THE SEQUENTIAL F5G46850
SUB TMP10 TRANSFERS PRED ENTRY F5G46860
TZE Z410 F5G46870
CAL Z1V3 NO, TRY NEXT ONE F5G46880
ADD ONEA F5G46890
TRA Z49 F5G46900
Z410 CLA Z1V3 GET THE PRED NO F5G46910
TSX SH,4 FORM THE SXD CASE F5G46920
CLA SXD1 F5G46930
ADD SXD2 F5G46940
ADD SXD3 F5G46950
TZE Z44 IS THIS A 0 SXD CASE F5G46960
LXA L4,4 ISNT 0 SXD CASE F5G46970
Z41 CLA SXD1+3,4 RECORD SXD CASE F5G46980
STO SXST+4,4 IN POSITION ASSOCIATED F5G46990
TIX Z41,4,1 WITH SEQUENTIAL TRANSFER F5G47000
LXA ZERO,1 COMPILE THE SXD F5G47010
TSX SI,4 INST. WITH F5G47020
TRA Z47 (1) ASSOCIATED SXD WITH 0 LXD CASE F5G47030
Z42 TSX SM,4 (2)ASSOCIATED WITH AN LXD LIST F5G47040
TRA Z47 (3) NOT ASSOCIATED ( TRA COMPILED ) F5G47050
Z44 LXD SXD0,4 F5G47060
TXL Z46,4,0 DOES IT HAVE A 0 LXD CASE F5G47070
PXD 0,4 NO F5G47080
ARS 18 LXD CASE TO AC (ADDR) F5G47090
STO Z4V1 F5G47100
LXD LD3,2 SET COUNT TO 3 , N=1 F5G47110
Z45 CLA Z2V1+3,2 GET INDEX F5G47120
PDX 0,1 OF TOP QUANTITY IN LIST N F5G47130
CLA LIST1,1 IS THE LXD CASE OF THIS SXD F5G47140
SUB Z4V1 CASE THE SAME AS F5G47150
TZE Z42 THE TOP QUANTITY IN LIST N F5G47160
TIX Z45,2,1 NO, COUNT TO 3 F5G47170
CLA Z4V1 COMPILE A F5G47180
TSX SL,4 TRA (LXD ) F5G47190
TRA Z47 F5G47200
Z46 CLS ONEA RECORD THAT THERE F5G47210
Z48 STO SLV3 IS A HANGING TRA 0CASE F5G47220
Z47 SYN Z48+1 F5G47230
REM FORM THE SXD LIST AND THE SYN CARD LIST F5G47240
Z5 CLA ONED SET INDEX IN SYN TABLE F5G47250
STO Z5V1 F5G47260
CLA Z1V8 RESET 1 ST PRED IN BB F5G47270
Z53 STO Z1V3 F5G47280
SUB Z1V2 IS THIS PRED IN SAME BB F5G47290
TZE Z6 NO, ADD FINISHED F5G47300
CLA SXST YES F5G47310
TMI Z51 WAS THERE A SEQUENTIAL TRANSFER F5G47320
ANA ADDMK YES, EXTRACT ADDRESS F5G47330
SUB Z1V3 HAS PRED ALREDY BEEN CONSIDERED F5G47340
TZE Z55 AS A SEQUENTIAL TRANSFER F5G47350
Z51 CLA Z1V3 NO F5G47360
TSX SH,4 GENERATE SXD CASE F5G47370
CLA SXD1 IS THE F5G47380
ADD SXD2 SXD CASE F5G47390
ADD SXD3 ZERO F5G47400
TZE Z55 F5G47410
LXA ZERO,1 NO, PREPARE T SCAN SXD LIST F5G47420
Z503 CLA SXST,1 IS SUBSXD0 F5G47430
ANA DECMK F5G47440
STO TMP10 F5G47450
CLA SXD0 F5G47460
ANA DECMK F5G47470
SUB TMP10 F5G47480
TNZ Z54 F5G47490
CLA SXST+1,1 THIS SXD CASE F5G47500
SUB SXD1 F5G47510
TNZ Z54 F5G47520
CLA SXST+2,1 SAME AS F5G47530
SUB SXD2 F5G47540
TNZ Z54 F5G47550
CLA SXST+3,1 THE ONE ALREADY F5G47560
SUB SXD3 STORED F5G47570
TNZ Z54 F5G47580
CLA SXST,1 YES, STORE INDICATION F5G47590
LXD Z5V1,2 F5G47600
ANA ADDMK SYN,2 CARD F5G47610
STO SYN,2 IN THE F5G47620
CLA SXD0 SYN F5G47630
ALS 18 LIST F5G47640
STD SYN,2 F5G47650
Z52 TXI Z52+1,2,1 F5G47660
SXD Z5V1,2 F5G47670
Z55 CLA Z1V3 PREPARE TO DEAL WITH NEXT PRED F5G47680
ADD ONEA F5G47690
TRA Z53 F5G47700
Z54 CLA SXST,1 F5G47710
TPL Z502 IS THIS SXD POS. EMPTY F5G47720
LXD LD3,2 YES F5G47730
TXL Z502,1,0 IS THIS ST CASE F5G47740
TXH Z504,1,-4-1 NO, IS THIS 0 LIST CASE F5G47750
TXH Z507,1,-8-1 NO 1ST F5G47760
TXH Z506,1,-12-1 2ED F5G47770
TXH Z505,1,-16-1 3RD F5G47780
TSX Z500,4 ENTER THE SXD CASE IN THE LIST F5G47790
CLA MZE F5G47800
STO SXST+4,1 STORE END MARK FOR SYN CAEDS F5G47810
TRA Z55 F5G47820
Z502 TXI Z503,1,-4 EXAMINE NEXT SXD CASE F5G47830
Z504 CAL SXD0 ZERO LIST CASE F5G47840
ANA DECMK IS THE LXD CASE 0 F5G47850
TNZ Z502 F5G47860
TSX Z500,4 YES, ENTER SXD CASE IN F5G47870
TRA Z55 ASSOCIATED POSITION F5G47880
Z505 TIX Z505+1,2,1 GENERATE INDEX OF LIST F5G47890
Z506 TIX Z506+1,2,1 F5G47900
Z507 CAL Z2V1+3,2 IS F5G47910
PDX 0,4 THE F5G47920
CLA SXD0 LXD F5G47930
ARS 18 CASE THE F5G47940
SUB LIST1,4 SAME F5G47950
TNZ Z502 F5G47960
TSX Z500,4 YES F5G47970
TRA Z55 F5G47980
REM SUBROUTINE FOR ENTERING SXD CASE IN SXD LIST F5G47990
Z500 CLA SXD0 F5G48000
STO SXST,1 F5G48010
CLA SXD1 F5G48020
STO SXST+1,1 F5G48030
CLA SXD2 F5G48040
STO SXST+2,1 F5G48050
CLA SXD3 F5G48060
STO SXST+3,1 F5G48070
TRA 1,4 F5G48080
REM COMPILE THE SXD LIST F5G48090
Z6 LXA LM20,1 SET TO START OF SXD LIST F5G48100
Z61 CLA SXST,1 F5G48110
TMI Z7 IS THIS SXD POSITION EMPTY F5G48120
SXD Z6V1,1 NO F5G48130
TSX SI,4 COMPILE THE SXD CASE WITH F5G48140
NOP (1) 0 LXD CASE, OR F5G48150
Z6V1 TXH 0,0,SET (2) THIS RETURN CANT OCCURR F5G48160
LXD Z6V1,1 (3) TRA ALREADY CONPILED F5G48170
TXI Z61,1,-4 F5G48180
REM COMPILE TNE LXD LISTS AND ASSOCIATED SXD S F5G48190
Z7 LXD LD3,2 SET TO BEGIN SCAN OF LISTS F5G48200
Z72 CLA Z2K1+3,2 F5G48210
PDX 0,1 PUT INDEX OF BOTTOM POSITION IN 1 F5G48220
CLA LIST1,1 F5G48230
TMI Z75 YES, IS IT A TRA(0) CASE F5G48240
TZE Z73 IS THE LIST FILLED F5G48250
CLA LIST1+1,1 PERHAPS, IS IT A FOR SURE F5G48260
TZE Z75 IT IS IF EITHER THE SUB BOTTOM F5G48270
TPL Z75 ENTRY IS -0 OR POSITIVE F5G48280
CLA Z7V2 F5G48290
TMI Z73 IS THIS 1ST TIME THRU F5G48300
Z76 CLA Z7K1+3,2 YES F5G48310
PDX 0,1 IS THERE ASSOCIATED F5G48320
CLA SXST,1 SXDLIST F5G48330
SXD Z7V1,2 F5G48340
TMI Z74 F5G48350
TSX SI,4 YES, COMPILE SXD CASE F5G48360
TRA Z71 F5G48370
TRA Z77 COMPILE F5G48380
Z71 LXD Z7V1,2 F5G48390
Z73 TIX Z72,2,1 COUNT TO 3 F5G46400
CLS Z7V2 IS THIS 1ST TIME THRU F5G48410
STO Z7V2 F5G48420
TMI Z7 YES, OO BACK CLASXST F5G48430
CLA SXAS0 IS THERE A 0 ASSOCIATED SXD CASE F5G46440
TMI Z8 F5G48450
LXA LM4,1 YES F5G48460
TSX SI,4 COMPILE SXD CASE F5G48470
TRA Z8 F5G48480
TRA Z8 F5G48490
TRA Z8 F5G48500
Z77 LXD Z7V1,2 F5G46510
CLA Z4V1,2 F5G48520
TMI Z74 F5G48530
CLA Z7K1+3,2 F5G48540
PDX 0,1 F5G48550
CLA SXST,1 F5G48560
ARS 18 F5G46570
TSX SL,4 F5G48580
TRA Z71 F5G48590
Z74 CLA Z2V1+3,2 COMPILE THE LXD LIST F5G48600
PDX 0,1 F5G48610
TSX SM,4 F5G48620
TRA Z71 F5G48630
Z75 CLA Z7V2 IS THIS 1ST TIME THRU F5G48640
TMI Z76 NO, 2ED TIME F5G48650
TRA Z73 YES F5G48660
REM COMPILE ANY SYN CARDS F5G48670
Z8 CAL BBNO FORM F5G48680
ARS 18 AND F5G48690
STO TMP10 STORE F5G48700
TSX SE1,4 F5G48710
CAL BBB,1 -(IDSXD)-(BBNO)+(1ST PRED)*2**25 F5G48720
ANA ADDMK F5G48730
ALS 10 F5G48740
SUB TMP10 F5G48750
SUB IDSXD F5G48760
STO TMP10 F5G48770
LXD Z5V1,2 SET TO START OF SYN LIST F5G48780
Z81 TXL Z83,2,1 ARE WE THRU F5G48790
Z82 TIX Z82+1,2,1 DECREASE INDEX F5G48800
CAL SYN,2 F5G48810
ANA DECMK COMPILE THE SYN CARD F5G48820
ARS 8 F5G48830
SUB TMP10 F5G48840
TSX SK,4 F5G48850
CLA LSYN F5G48860
TSX SK,4 F5G48870
CAL SYN,2 F5G48880
ANA ADDMK F5G48890
ALS 10 F5G48900
SUB TMP10 F5G48910
TSX SK,4 F5G48920
CLA ZERO F5G48930
TSX SK,4 F5G48940
TRA Z81 F5G48950
Z83 LXD BBOX1,2 GET INDEX OF COMPILED INDT F5G48960
CLA MZE RECORD NO SEQUENTIAL TRANSFER F5G48970
STO SXST F5G48980
TRA FNDAS F5G48990
REM WRITE TH E LAST BLOCK OF C.I. T. ON TAPE F5G49000
REM AFTER PUTTING RELATIVE CONSTANT ROUTINES AT END F5G49010
LSTBB RTB INSTTP AN END OF F5G49020
CPY TMP10 FILE SEPARATES RELATIVE CONST. ROUTINES F5G49030
TRA EF3 END FILE ALREADY READ F5G49040
TRA LSTBB READ END FILE F5G49050
TSX 4,4 DIAGNOSTIC, ERROR F5G49060
EF3 LXD LD4,4 TRY 4 TIMES F5G49070
EFRTB LXA ADDMK,3 READ IN NEXT RECORD F5G49080
RTB INSTTP OF RELATIVE CONSTANT SUBROUTINES F5G49090
EFCPY CPY RELSR,1 F5G49100
TXI EFCPY,1,-1 F5G49110
TRA EFREW END OF FILE , END OF INST. F5G49120
IOD F5G49130
RTT F5G49140
TRA EFERR F5G49150
SXD EFTXL,1 STORE END TEST F5G49160
EFTXL TXL EFRTB,2,SET COMPILE THE INSTRUCTIONS F5G49170
CLA RELSR,2 F5G49180
TSX SK,4 F5G49190
TXI EFTXL,2,-1 F5G49200
EFREW REW INSTTP REWIND THE TAPE F5G49210
LXA SKK1,1 SET 1 TO LENGTH OF CS BLOCK F5G49220
LXD SKV1,4 INDEX OF NEXTCLST POSITION F5G49230
SXD LSTXL,4 F5G49240
TXH LSWEF,4,LCLST-1 IS BLOCK EMPTY F5G49250
WTB OTAPE NO, WRITE F5G49260
LSTXL TXL LSWEF,1,- IT ON TAPE F5G49270
CPY CLST,1 F5G49280
TXI LSTXL,1,-1 F5G49290
LSWEF WEF OTAPE WRITE AN END FILE F5G49300
TRA R F5G49310
EFERR BST INSTTP F5G49320
TIX EFRTB,4,1 F5G49330
TSX 4,4 4TH ERROR, TO DIAGN0STIC F5G49340
BSS PTL4 SPACE FOR PATCHES F5G49350
RELSR START OF REL. CONST. ROUTINES F5G49360
ORG 0 F5G49370
HTR R,0,4 CONTROL CARD PART 1. F5G49371
HTR CMTAG-1 F5G49372
ORG 0 F5G49373
HTR PRED,0,PRED CONTROL CARD PART 1B. F5G49374
HTR I9A+2 F5G49375
ORG 0 F5G49376
HTR QS,0,QS CONTROL CARD, PART 1C. F5G49377
HTR QS8+1 F5G49378
ORG 0 F5G49379
HTR QPU,0,QPU CONTROL CARD, PART 1D. F5G49380
HTR QPU8+1 F5G49381
ORG 0 F5G49382
HTR QSU,0,QSU CONTROL CARD, PART 1E. F5G49383
HTR QSU8+1 F5G49384
ORG 0 F5G49385
HTR BLV09,0,BL12 CONTROL CARD, PART 2. F5G49386
HTR BLIST F5G49387
ORG 0 F5G49388
HTR START,0,START CONTROL CARD, PART 3. F5G49389
HTR ASCON F5G49390
ORG 0 F5G49391
HTR L3,0,PASS2 CONTROL CARD, PART 4. F5G49392
HTR RELSR F5G49393
END PASS2 F5G49394
ORG 24
REM 704 FORTRAN II / DBC / 12 JAN 59.
REM
REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=
REM ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION
REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.
REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT 0F
REM THIS LOGICAL BLOCK OR SUBROUTINE.
REM C IN C0L/34 INDICATES THE INSTRUCTI0N WAS CORRECTED.
REM P IN COL/32 INDICATES THE INSTRUCTI0N WAS INSERTED (PATCH).
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM CONTROL CARD FOR DBC. DBC/C01
ORG 0 DBC/C02
PZE TAB+1 DBC/C03
PZE COMMON DBC/C04
BCD 1(DBC) DBC/C05
PZE (DBC) DBC/C06
REM END OF DBC CONTROL CARD. DBC/C07
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/C08
REM DBC/C09
ORG 0 DBC/O01
REM (DBC)/ CALLS=LINE,READ. CALLER=MAIN PROGRAM. DBC/002
REM (DBC) CONTROLS DECIMAL TO BINARY CONVERSION AND INPUT. DBC/003
(DBC) TTR NEW INSTRUCTI0N EXECUTED IN LOCATION 1.DBC/004
REM NEW = ENTRY POINT FROM MAIN PROGRAM (C(AC)= ADDRESS OF INPUT DBC/005
REM ROUTINE TO HANDLE CURRLNT INPUT, AND C(0)= LOCATION OF THE DBC/006
REM CURRENT FORMAT STATEMENT). DBC/007
NEW LTM SET RBCD TO CALL THE INDICATED DBC/008
STA TYPE TYPE OF INPUT ROUTINE. DBC/009
CAL 0 SET INPUT FORMAT STATEMENT DBC/010
STA CALL LOCATI0N. DBC/011
ADD ONE SET EXIT DBC/012
STA FX4 TO MAIN PROGRAM. DBC/013
CALL CAL ** OBTAIN FORMAT STATEMENT DBC/014
SXD FX4,4 FOR SCAN. DBC/015
TSX LINE,4 * GO SCAN FORMAT. DBC/O16
LXD FX4,4 WHEN DONE, RESTORE C(XR4). DBC/017
CAL TRAP SET LOCATION 1 FOR FUTURE DBC/018
SLW 1 TRAP TRANSFER TO SEEK, AND DBC/019
FX4 TXI **,0,** * TRANSFER CONTROL TO MAIN PROGRAM. DBC/020
REM THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST. DBC/021
TRAP TTR SEEK INSTRUCTION EXECUTED IN LOCATION 1.DBC/022
REM SEEK = REENTRY POINT FROM MAIN PROGRAM (C(0)= LOCATI0N OF DBC/023
REM THE ADDRESS OF THE NEXT INPUT NUMBERS). DBC/024
SEEK LTM PICKUP NTR INSTRUCTION, AND DBC/025
CAL 0 SET LOCATION DBC/O26
STA SETL 0F INPUT NUMBERS. DBC/027
ADD ONE SET LOCATION FOR DBC/028
STA OUT RETURN TO MAIN PROGRAM. DBC/029
SETL CLA ** PICKUP LOCATION OF INPUT DBC/030
STO STO PUT AND SET ADDRESS AND TAG OF PUT. DBC/031
LDQ STO SET PUT OP DBC/032
SLQ PUT TO STO. DBC/033
SXD FX4,4 SAVE THE C(XR4), AND DBC/034
TSX READ,4 * GO READ AND CONVERT INPUT. DBC/035
LXD FX4,4 RESTORE THE C(XR4). DBC/036
PUT STO **,** STORE INPUT NUMBER. DBC/037
ETM REPEAT UNTIL LIST IS EXHAUSTED, DBC/038
OUT TTR ** * UNDER CONTROL OF THE MAIN PROGRAM. DBC/039
REM END OF PROGRAM (DBC). DBC/040
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/041
REM DBC/042
REM LINE,4/ CALLS=RBCD,FIELD. USES=READ. CALLER=(DBC). DBC/043
REM LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF INPUT. DBC/044
LINE SXD AX4,4 SAVE THE C(XR4) FOR RETURN. DBC/045
SXD AX1,1 SAVE THE ORIGINAL C(XR1), AND DBC/046
SXD AX2,2 SAVE THE ORIGINAL C(XR2). DBC/047
COM COMPLEMENT THE C(AC), AND SET DBC/048
STD UNIT UNIT DECREMENT= -(CURRENT UNIT). DBC/049
STZ PEX SET PEX (SCALE FACTOR) = 0, AND DBC/050
STZ INT SET INT = 0. DBC/051
STA SCAN5 SAVE THE C(AC) ADDRESS, AND DBC/052
TSX RBCD,2 * GO READ INPUT UNIT RECORD. THEN DBC/053
LXA SCAN5,2 SET XR2= -(CURRENT FORMAT LOC.),ANDDBC/054
LXD SEVEN,1 SET XR1 = 7, AND PICKUP THE DBC/055
LDQ -1,2 1ST WORD OF CURRENT FORMAT. DBC/056
REM CCLPAR = ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN. DBC/057
CCLPAR SXD BX1,1 SAVE THE CURRENT CHARACTER COUNT, DBC/058
SXD BX2,2 SCAN POSITION, AND FORMAT WORD, DBC/059
STQ MQR FOR POSSIBLE REPETITION OF GROUP. DBC/060
LXA INT,4 SET GROUP CONTROL COUNT FOR THE DBC/061
SXD BX4,4 INDICATED NUMBER OF REPETITIONS, DBC/062
SXD GROUPX,4 AND SAVE FOR POSSIBLE RESCAN. DBC/063
REM SCAN = ENTRY POINT FOR CCCMMA,CCSCFP,CCINPT,RESCAN. DBC/064
SCAN STZ INT CLEAR INT WORKING STORAGE, AND DBC/065
SIX TXI SCAN5,0,6 GO RESUME SCAN. DBC/066
SCAN1 LXD SIX,1 RESET FORMAT CHARACTER COUNT, AND DBC/067
LDQ -1,2 PICKUP NEXT FORMAT WORD. DBC/068
SCAN2 LGL 6 EXAMINE NEXT CHARACTER, DBC/069
CAS BLANK AND IF BLANK, DBC/070
UNIT TXI SCAN3,0,** THEN DBC/071
SEVEN TXI SCAN5,0,7 GO EXAMINE NEXT CHARACTER. DBC/072
SCAN3 CAS L(9) IF NOT BLANK, COMPARE WITH NINE, DBC/073
TXI SCAN6,0 IF NON-NUMERIC, COMPARE CCTEST. DBC/074
NOP IF NUMERIC, THEN DBC/075
STO DIG CONVERT DBC/076
CLA INT SUCCESSIVE DBC/077
ALS 2 BCD DBC/078
ADD INT 0IGITS DBC/079
ALS 1 T0 BINARY, DBC/080
ACL DIG T0 SET INT= SCALE FACTOR, DBC/081
REM SCAN4 = ENTRY POINT USED BY CCSCFM. DBC/082
SCAN4 STO INT CURRENT FIELD OR GROUP CONTROL. DBC/083
REM SCAN5 = ENTRY POINT USED BY CCDCPT. DBC/084
SCAN5 PXD **,0 CLEAR THE AC, AND UPDATE COUNT. DBC/085
TIX SCAN2,1,1 WHEN N0 CHARACTERS REMAIN, DBC/086
TXI SCAN1,2,-1 ADJUST SCAN POSITION, AND REPEAT. DBC/087
REM SCAN6 = ENTRY POINT USED BY CCDCPT. DBC/088
SCAN6 LXD NCC,4 WHEN A NON-NUMERIC IS MET, DBC/089
SCAN7 CAS CCTEST,4 SCAN LIST OF CONTROL CHARACTERS, DBC/090
NCC TXI SCAN8,0,12 AND IF EQUALITY IS FOUND, DBC/091
TRA FRMTR,4 * TAKE THE INDICATED TRANSFER. DBC/092
SCAN8 TIX SCAN7,4,1 IF NOT FOUNO IN CONTROL LIST, THEN DBC/093
HPR 5,1 STOP. PRESS START TO CONTINUE. DBC/0935
REM END OF PROGRAM LINE. DBC/097
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/098
REM DBC/099
REM FRMTR / CONTROL TRANSFERS FOR FORMAT SCAN = DBC/100
TXI CCEDMK,0 END OF FORMAT STATEMENT. DBC/1005
AX1 TXI CCLPAR,0,** BEGIN FORMAT OR GROUP. DBC/101
AX2 TXI CCCMMA,0,** END FIELD. DBC/102
AX4 TXI CCSLSH,0,** END LINE OR RECORD. DBC/103
TXI CCSCFP,0 SCALE FACTOR PLUS. DBC/104
BX1 TXI CCSCFM,0,** SCALE FACTOR MINUS. DBC/105
BX2 TXI CCRPAR,0,** END FORMAT OR GROUP. DBC/106
BX4 TXI CCDCPT,0,** ROUNDING OF INPUT NUMBER. DBC/107
TXI CCINPT,0 DECIMAL INPUT. DBC/108
CX1 TXI CCHNPT,0,** HOLLERITH FIELD INPUT. DBC/109
CX2 TXI CCFNPT,0,** FIXED POINT INPUT. DBC/110
CX4 TXI CCENPT,0,** FLOATING POINT INPUT. DBC/111
FRMTR BSS 0 DBC/112
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/113
REM DBC/114
REM CCEDMK/ CALLS=FIELD. USES=MAIN PROGRAM. DBC/1141
REM CCEDMK = ENTRY POINT WHEN AN ENDMK IS MET IN FORMAT SCAN. DBC/1142
CCEDMK TSX FIELD,4 * GO PROCESS UNDER FIELD CONTROL. DBC/1143
CAL TXLOP THEN GO SET CNVSW TO RESCAN FORMAT DBC/1144
TXI SETSW,0 * IF LIST IS NOT EXHAUSTED. DBC/1145
REM END OF PR0GRAM CCEDMK. DBC/1146
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/1147
REM DBC/1148
REM CCCMMA/ CALLS=FIELD. USES=LINE(SCAN). DBC/115
REM CCCMMA = ENTRY POINT WHEN A COMMA IS MET IN FORMAT SCAN. DBC/116
CCCMMA TSX FIELD,4 * GO PROCESS UNDER FIELD CONTROL. DBC/117
REM RESUME = ENTRY POINT USED BY CCSLSH,CCRPAR,CCHNPT. DBC/118
RESUME LXD CX1,1 WHEN DONE, RESTORE CHARACTER COUNT,DBC/119
LXD CX2,2 RESTORE SCAN POSITION, AND DBC/120
LDQ MQ CURRENT FORMAT WORD. THEN DBC/121
TXI SCAN,0 * GO RESUME SCAN. DBC/122
REM END OF PROGRAM CCCMMA. DBC/123
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/124
REM DBC/125
REM CCSLSH/ CALLS=FIELD,RBCD. USES=CCCMMA. DBC/126
REM CCSLSH = ENTRY POINT WHEN A SLASH IS MET IN FORMAT SCAN. DBC/127
CCSLSH TSX FIELD,4 * GO PROCESS UNDER FIELD CONTROL. DBC/128
TSX RBCD,2 * WHEN DONE, READ A RECORD, AND DBC/129
TXI RESUME,0 * GO RESUME SCAN. DBC/130
REM END OF PR0GRAM CCSLSH. DBC/131
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/132
REM DBC/133
REM CCSCFP/ USES=LINE(SCAN). DBC/I34
REM CCSCFP = ENTRY POINT WHEN A P IS MET IN FORMAT SCAN. DBC/135
CCSCFP CLA INT PICKUP AND DBC/136
STO PEX STORE SCALE FACTOR. DBC/137
TXI SCAN,0 * GO RESUME SCAN. DBC/138
REM END OF PROGRAM CCSCFP. DBC/139
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/140
REM DBC/141
REM CCSCFM/ USES=LINE(SCAN). DBC/142
REM CCSCFM = ENTRY POINT WHEN A MINUS SIGN IS MET IN FORMAT SCAN.DBC/143
CCSCFM CLS INT SET INT MINUS, ANO DBC/144
TXI SCAN4,0 * GO GET SCALE FACTOR. DBC/145
REM END OF PROGRAM CCSCFM. DBC/146
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/147
REM DBC/148
REM CCRPAR/ CALLS=FIELD. USES=CCCMMA,RESCAN(GROUP). DBC/149
REM CCRPAR = ENTRY POINT WHEN A RPAREN IS MET IN FORMAT SCAN. DBC/150
CCRPAR TSX FIELD,4 * GO PROCESS UNDER FIELD CONTROL. DBC/151
LXD BX4,4 WHEN DONE, UPDATE GROUP COUNT, AND DBC/152
TNX RESUME,4,1 * GO RESUME SCAN, UNLESS DBC/153
TXI GROUP,0 * REPETITION OF GROUP IS INDICATED. DBC/154
REM END OF PROGRAM CCRPAR. DBC/155
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/156
REM DBC/157
REM CCDCPT/ USES=LINE(SCAN). DBC/158
REM CCDCPT = ENTRY POINT WHEN A POINT IS MET IN FORMAT SCAN. DBC/159
CCDCPT CLA DTR MODIFY SCAN INSTRUCTION DBC/160
STO SCAN3 TO TRANSFER INTO DCPT1. DBC/161
STZ DIG CLEAR DIG, AND DBC/1615
TXI SCAN5,0 * GO RESUME SCAN. DBC/162
REM DCPT1 = REENTRY POINT FROM LINE(SCAN). DBC/163
DCPT1 CAS L(9) DETERMINE THE DBC/164
TXI DCPT3,0 NUMBER, MODULO TEN, DBC/165
NOP OF DIGITS DBC/166
STO DIG IN FRACTION. DBC/167
TXI SCAN5,0 * WHEN A CONTROL CHARACTER IS MET, DBC/168
DCPT3 STQ MQ RESTORE THE DBC/169
LDQ DCPT1 SCAN INSTRUCTION DBC/170
STQ SCAN3 T0 ITS ORIGINAL FORM, AND DBC/171
LDQ MQ GO COMPARE CHARACTER DBC/172
TXI SCAN6,0 * WITH CCTEST LIST. DBC/173
REM END OF PROGRAM CCDCPT. DBC/174
DTR TXI DCPT1,0 * INSTRUCTION CONSTANT. DBC/175
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/176
REM DBC/177
REM CCINPT/ USES=LINE(SCAN). DBC/17B
REM CCINPT = ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN. DBC/179
CCINPT CAL TXLOP PICKUP TXLOP, AND DBC/180
REM SETFX = ENTRY POINT USED BY CCFNPT. DBC/181
SETFX STP FIXSW FIXED POINT SWITCH. DBC/182
LXA INT,4 SET COUNT FOR THE DBC/183
SXD COUNT,4 REPETITION OF THIS FIELD, AND DBC/184
TXI SCAN,0 * GO RESUME SCAN. DBC/185
REM END OF PROGRAM CCINPT. DBC/186
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/187
REM DBC/188
REM CCHNPT/ USES=CCCMMA. DBC/189
REM CCHNPT = ENTRY POINT WHEN AN H IS MET IN FORMAT SCAN. DBC/190
CCHNPT LXA INT,4 SET XR4 = HOLLERITH FIELD WIDTH. DBC/191
LDQ MQD PICKUP ANY REMAINING INPUT. DBC/192
SXD CX2,2 SAVE FORMAT SCAN POSITION. DBC/193
CAL -1,2 PICKUP CURRENT FORMAT WORD. DBC/194
LXD DX1,2 SET XR2 = INPUT CHARACTER COUNT. DBC/195
TNX HNPT5,1,1 IF ANY CHARACTERS REMAIN IN CURRENTDBC/196
SXD CX1,1 FORMAT WORD, SAVE FOR-CHAR COUNT, DBC/197
HNPT1 ARS 6 AND SHIFT REMAINDER INTO DBC/198
TIX HNPT1,1,1 THE MQ. WHEN DONE, DBC/199
LXD CX1,1 RESTORE FOR-CHAR COUNT, AN0 DBC/200
HNPT2 TIX HNPT4,2,1 IF INPUT-CHAR COUNT IS EXHAUSTED, DBC/201
LXD DX2,2 SET XR2 = INPUT WORD COUNT, DBC/202
TXI HNPT3,2,-1 UPDATE IT, AND DBC/203
HNPT3 LDQ BCD,2 PICKUP NEXT INPUT WORD. DBC/204
SXD DX2,2 THEN SAVE INPUT WORD COUNT, DBC/205
LXD SIX,2 AND RESET INPUT-CHAR COUNT TO 6. DBC/206
HNPT4 LGL 6 FILL OUT THE PARTIAL WORD 1N THE ACDBC/207
TNX HNPT7,4,1 WITH NEW INPUT, UPDATING FIELD DBC/208
TIX HNPT2,1,1 CONTROL, AND WHEN DONE, DBC/209
HNPT5 LXD CX2,1 SET XR1 = CURRENT FOR-SCAN POSITIONDBC/210
SLW -1,1 AND STORE INPUT WORD IN FORMAT, DBC/211
TXI HNPT6,1,-1 THEN UPDATE FORMAT SCAN DBC/212
HNPT6 SXD CX2,1 POSITION, AND SAVE IT. DBC/213
LXD SIX,1 RESET FORMAT CHARACTER COUNT TO 6, DBC/214
TXI HNPT2,0 AND REPEAT UNDER FIELD CONTROL. DBC/215
HNPT7 SXD DX1,2 WHEN FIELD CONTR0L IS EXHAUSTED, DBC/216
LXD CX2,2 SAVE INPUT CHAR COUNT, AND SET XR2 DBC/217
STQ MQD T0 SCAN POSITION. SAVE REMA1NING DBC/218
SXD CX1,1 INPUT, AND SAVE FOR-CHAR COUNT. DBC/219
TXL HNPT11,1,1 IF ANY CHARACTERS REMAIN DBC/220
LDQ -1,2 IN CURRENT FORMAT WORD, DBC/221
HNPT8 RQL 6 SHIFT THEM INTO POSITION, DBC/222
TXI HNPT9,1,1 LEFT-ADJUSTED DBC/223
HNPT9 TXL HNPT8,1,6 IN THE MQ, DBC/224
STQ MQ AND SAVE THE C(MQ). DBC/225
LXD CX1,1 RESTORE FORMAT CHARACTER COUNT. DBC/226
TNX HNPT11,1,1 SHIFT REMAINDER INTO DBC/227
HNPT10 LGL 6 THE AC, DBC/228
TIX HNPT10,1,1 UPDATING CHARACTER COUNT. AND DBC/229
HNPT11 SLW -1,2 STORE LAST WORD OF FIELD. THEN DBC/230
TXI RESUME,0 * GO RE9UME SCAN. DBC/231
REM END OF PROGRAM CCHNPT. DBC/232
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/233
REM DBC/234
REM CCFNPT/ USES=CCINPT. DBC/235
REM CCFNPT = ENTRY POINT WHEN AN F IS MET IN FORMAT SCAN. DBC/236
CCFNPT CLS PEX PICKUP NEGATIVE OF SCALE FACTOR TO DBC/237
REM SETXP = ENTRY POINT USED BY CCENPT. DBC/238
SETXP STO EXP SET EXPONENT. DBC/239
CLA TXLOP PICKUP TXHOP AND DBC/240
TXI SETFX,0 * GO SET FIXSW TO NOP. DBC/241
REM END OF PROGRAM CCFNPT. DBC/242
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/243
REM DBC/244
REM EOENPT/ USES=CCFNPT. DBC/245
REM COENPT,= ENTRY POINT WHEN AN E IS MET IN FORMAT SCAN. DBC/246
CCENPT PXD ,0 CLEAR THE AC, AND DBC/247
TXI SETXP,0 * GO SET EXPONENT AND FIXSW. DBC/248
REM END OF PROGRAM CCENPT. DBC/249
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/250
REM DBC/251
REM RESCAN/ CALLS=RBCD. USES=LINE(SCAN). DBC/252
REM RESCAN = ENTRY POINT USED BY READ. DBC/253
RESCAN SXD AX4,4 FOR RETURN FROM FORMAT SCAN. DBC/256
TSX RBCD,2 * G0 READ A RECORD. DBC/257
LXD GROUPX,4 THEN PICKUP ORIGINAL GROUP COUNT TODBC/258
REM GROUP = ENTRY POINT USED BY CCRPAR. DBC/259
GROUP SXD BX4,4 UPDATE GROUP CONTROL. DBC/260
LXD BX1,1 RESET CHARACTER COUNT, DBC/261
LXD BX2,2 RESET SCAN POSITION, AND DBC/262
LDQ MQR PICKUP 1ST FORMAT WORD OF GROUP. DBC/263
GROUPX TXI SCAN,0,** * GO RESCAN THIS GROUP. DBC/264
REM END OF PROGRAM RESCAN. DBC/265
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/266
REM DBC/267
REM FIELD,4/ USES READ. CALLERS=LINE(SCAN),CCCMMA,CCSLSH,CCRPAR.DBC/268
REM FIELD CONTROLS THE REPEATED INPUT OF THE CURRENT FIELD. DBC/269
FIELD SXD CX4,4 SAVE THE C(XR4) FOR RETURN. DBC/270
SXD CX1,1 SAVE THE CHARACTER COUNT, DBC/271
SXD CX2,2 THE SCAN POSITION, AND DBC/272
STQ MQ THE CURRENT FORMAT WORD. DBC/273
LXA INT,4 EXAMINE INT, AND DBC/274
TXLOP TXL DONE,4,0 IF NOT ZERO, THEN DBC/275
CLA TXLOP PICKUP TXHOP TO DBC/276
REM SETSW = ENTRY POINT USED BY LINE(SCAN8). DBC/277
SETSW STP CNVSW SET CONVERSION SWITCH. DBC/278
CLA DATUM THEN PICKUP DATUM, DBC/279
TXI LIST,0 * GO STORE, AND EXAMINE LIST. DBC/280
REM DONE = ENTRY POINT USED BY READ. DBC/281
DONE LXD CX4,4 WHEN DONE, RESTORE THE C(XR4), AND DBC/282
TRA 1,4 * RETURN TO CALLER. DBC/283
REM END OF PROGRAM FIELD. DBC/284
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/285
REM DBC/286
REM RBCD,2/ CALLS=(CSH),(TSH). CALLERS=LINE,CCSLSH,=ESCAN. DBC/287
REM RBCD READS CURRENT INPUT RECORD INTO BCD BUFFER. DBC/288
EOF HPR 0,1 EOF HALT / PRESS START TO REPEAT. DBC/289
RBCD LXD UNIT,1 SET XR1 FOR CURRENT UNIT, AND DBC/290
TYPE TSX **,4 * GO TO INDICATED INPUT ROUTINE. DBC/291
PZE BCD,,-1 (INPUT BUFFER) DBC/292
REM DCR1 = END-OF-FILE RETURN FROM INPUT ROUTINE. DBC/293
DCR1 TXI EOF,0,1 GO TO END-OF-FILE STOP. DBC/294
REM N=R1+1 = NORMAL RETURN FROM INPUT ROUTINE. DBC/295
CAL DCR1 FOR CURRENT INPUT, RESET DBC/296
STD DX1 INPUT CHARACTER COUNT AND DBC/297
STD DX2 INPUT WORD COUNT TO ONE. THEN DBC/298
TRA 1,2 * EXIT TO CALLER. DBC/299
REM END OF PROGRAM RBCD. DBC/300
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/301
REM DBC/302
REM REA0,4/ USES=FIELD,LINE. CALLERS=IDBC),LINEIRESCAN). DBC/303
REM READ DOES INTEGER, FIXED, AND FLOATING POINT CONVERSION. DBC/304
REM XREAD = EXIT FROM READ WHEN FORMAT IS EXHAUSTED. DBC/305
XREAD SXD CNVSW,4 SAVE THE C(XR4), AND DBC/306
TSX RESCAN,4 * GO RESCAN FORMAT. THEN RETURN, DBC/3061
LXD CNVSW,4 AFTER GETTING FORMAT. DBC/3062
REM READ = ENTRY POINT USED BY (DBC). DBC/307
READ SXD AX4,4 SAVE THE C(XR4) FOR RETURN TO LIST.DBC/308
SXD AX1,1 SAVE THE ORIGINAL C(XR1), DBC/309
SXD AX2,2 SAVE THE ORIGINAL C(XR2), AND DBC/310
CNVSW TXL XREAD,0,** SWITCH (TXL=TRA, TXH=NOP). DBC/311
REM DBC/312
CLA MZE DBC/313
STO N DBC/314
SLW V DBC/315
SLW DG DBC/316
CLS DIG DBC/317
STO D DBC/318
CLA EXP DBC/319
STO E DBC/320
LXA INT,4 DBC/321
LDQ MQD DBC/322
LXD DX1,1 DBC/323
LXD DX2,2 DBC/324
TNO F6 DBC/325
F6 TIX F1,1,1 DBC/326
TXI F2,2,-1 DBC/327
F2 LXD SIX,1 DBC/328
LDQ BCD,2 DBC/329
F1 PXD ,0 DBC/330
LGL 6 DBC/331
TXL D6,4,0 DBC/332
CAS BLANK DBC/333
DX1 TXI STOP1,0,** DBC/334
DX2 TXI F3,0,** DBC/335
CAS MINUS DBC/336
TXI STOP1,0 DBC/337
TXI F4,0 DBC/338
CAS PLUS DBC/339
TXI C5L,0 DBC/340
TXI F5,0 DBC/34I
CAS NEGAT DBC/342
TXI STOP1,0 DBC/343
F4 CLA MZE DBC/344
CAS TEN DBC/345
STOP1 HPR 1,1 DBC/346
F5 PXD ,0 DBC/347
STO DG DBC/348
TXI D9,0 DBC/349
F3 TIX F6,4,1 DBC/350
TXI D6,0 DBC/351
E1 TNX E5,4,1 DBC/352
TIX E2,1,1 DBC/353
TXI E3,2,-1 DBC/354
E3 LXD SIX,1 DBC/355
LDQ BCD,2 DBC/356
E2 PXD ,0 DBC/357
LGL 6 DBC/358
CAS BLANK DBC/359
TXI STOP2,0 DBC/360
TXI E1,0 DBC/361
SXD ER,4 DBC/362
C2L CAS MINUS DBC/363
TXI ER,0 DBC/364
TXI E4,0 DBC/365
C4L CAS PLUS DBC/366
TXI ER,0 DBC/367
TXI E5,0 DBC/368
CAS NEGAT DBC/369
TXI ER,0 DBC/370
E4 CLA MZE DBC/371
CAS TEN DBC/372
STOP2 HPR 2,1 DBC/373
E5 PXD ,0 DBC/374
STO E DBC/375
TNX D6,4,1 DBC/376
E9 TIX E6,1,1 DBC/377
TXI E7,2,-1 DBC/378
ER TXH STOP4,4,** DBC/379
TXI STOP2,0 DBC/380
E7 LXD SIX,1 DBC/381
LDQ BCD,2 DBC/382
E6 PXD ,0 DBC/383
LGL 6 DBC/384
CAS BLANK DBC/385
TXI STOP3,0 DBC/386
TXI E8,0 DBC/387
CAS TEN DBC/388
STOP3 HPR 3,1 DBC/389
E8 PXD ,0 DBC/390
STO DG DBC/391
CLA E DBC/392
ALS 2 DBC/393
ADD E DBC/394
ALS 1 DBC/395
ACL DG DBC/396
STO E DBC/397
TIX E9,4,1 DBC/398
TXI D6,0 DBC/399
C1L CAS BLANK DBC/400
STOP4 HPR 4,1 DBC/401
TXI D7,0 DBC/402
C5L SXD U,4 DBC/403
STD ER DBC/404
CAS POINT DBC/405
TXI C2L,0 DBC/406
TXI C3L,4,-1 DBC/407
CAS EXPON DBC/408
TXI STOP4,0 DBC/409
TXI E1,0 DBC/410
TXI C4L,0 DBC/411
C3L PXD ,4 DBC/412
ARS 18 DBC/413
STO U DBC/414
STO D DBC/415
TXI D8,4,1 DBC/416
D4 CLA V DBC/417
ADD ONE DBC/418
STO V DBC/419
TNX D6,4,1 DBC/420
D5 TIX D1,1,1 DBC/421
TXI D2,2,-1 DBC/422
D2 LXA D3,1 DBC/423
LDQ BCD,2 DBC/424
D1 PXD ,0 DBC/425
D3 LGL 6 DBC/426
CAS TEN DBC/427
TXI C1L,0 DBC/428
D7 PXD ,0 DBC/429
STA DG DBC/430
CLA N DBC/431
ALS 2 DBC/432
ADD N DBC/433
ALS 1 DBC/434
ADD DG DBC/435
TOV D4 DBC/436
D9 STO N DBC/437
D8 TIX D5,4,1 DBC/438
D6 CLA N DBC/439
STQ MQD DBC/440
SXD DX1,1 DBC/441
SXD DX2,2 DBC/442
FIXSW TXL T1,0 DBC/443
TZE T2 DBC/444
CLA D DBC/445
TMI ADE DBC/446
CLA U DBC/447
ARS 18 DBC/448
SUB D DBC/449
ADE ADD E DBC/450
ADD V DBC/451
STO D DBC/452
CLA N DBC/453
STA K1 DBC/454
ARS 15 DBC/455
ORA K2 DBC/456
FAD K2 DBC/457
STO F DBC/458
CLM DBC/459
ORA K1 DBC/460
FAD F DBC/461
RQL 8 DBC/462
RND DBC/463
ORA K3 DBC/464
LXA D,4 DBC/465
TXL T2,4,0 DBC/466
LDQ D DBC/467
TQP T4 DBC/468
TXH T5,4,49 DBC/469
FDP TAB,4 DBC/470
STQ F DBC/471
CLA F DBC/472
ACL K4 DBC/473
PBT DBC/474
T5 CLM DBC/475
TXI T2,0 DBC/476
T4 STO F DBC/477
TXH T3,4,49 DBC/478
LDQ F DBC/479
FMP TAB,4 DBC/480
ACL K5 DBC/481
PBT DBC/482
TXI T2,0 DBC/483
T3 CLM DBC/484
COM DBC/485
TXI T2,0 DBC/486
T1 ALS 18 DBC/487
T2 LXD COUNT,4 UPDATE FIELD COUNT, AND DBC/488
TIX MORE,4,1 IF EXHAUSTED, THEN DBC/489
STO DATUM SAVE THE CONVERTED FIELD, AND DBC/490
COUNT TXI DONE,0,** * (FIELD REPEAT COUNT)EXAMINE FORMAT.DBC/491
MORE SXD COUNT,4 OTHERWISE, GO EXAMINE LIST. DBC/492
REM LIST = ENTRY POINT USED BY FIELD. DBC/493
LIST LXD AX4,4 SET XR4 FOR INDICATED RETURN, DBC/494
LXD AX1,1 RESTORE THE ORIGINAL C(XR1), DBC/495
LXD AX2,2 RESTORE THE ORIGINAL C(XR2I, AND DBC/496
TRA 1,4 * GO STORE (OR CONVERT) INPUT. DBC/497
REM END OF PROGRAM READ. DBC/498
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/499
REM DBC/500
REM CONSTANTS AND WORKING STORAGE USED BY DBC. DBC/501
ENDMK OCT 77 CCTEST-12. DBC/5015
( BCD 100000( CCTEST-11. DBC/502
COMMA BCD 100000, CCTEST-10. DBC/503
SLASH BCD 100000/ CCTEST-9. DBC/504
P BCD 100000P CCTEST-8. DBC/505
MINUS BCD 100000- CCTEST-7. DBC/506
) BCD 100000) CCTEST-6. DBC/507
POINT BCD 100000. CCTEST-5. DBC/508
I BCD 100000I CCTEST-4. DBC/509
H BCD 100000H CCTEST-3. DBC/510
FCC BCD 100000F CCTEST-2. DBC/511
EXPON BCD 100000E CCTEST-1. DBC/512
CCTEST BSS 0 INDEXING ADDRESS FOR ABOVE LIST. DBC/513
ONE DEC 1 CONSTANT USED BY DBC. DBC/514
TEN DEC 10 CONSTANT USED BY DBC. DBC/515
L(9) PZE 9 CONSTANT USED BY DBC. DBC/5155
BLANK BCD 100000 CONSTANT USED BY DBC. DBC/516
PLUS BCD 100000+ CONSTANT USED BY DBC. DBC/517
NEGAT BCD 100000' CONSTANT USED BY DBC. DBC/518
MZE MZE CONSTANT USED BY DBC. DBC/519
K1 DEC 155B8 CONSTANT USED BY DBC. DBC/520
K2 DEC 170B8 CONSTANT USED BY DBC. DBC/521
K3 DEC 1B9 CONSTANT USED BY DBC. DBC/522
K4 DEC 221B8 CONSTANT USED BY DBC. DBC/523
K5 DEC 35B8 CONSTANT USED BY DBC. DBC/524
OCT 375536246150 48-TABLE USED BY DBC. DBC/525
OCT 372430204755 47-TABLE USED BY DBC. DBC/526
OCT 366700324573 46-TABLE USED BY DBC. DBC/527
OCT 363546566774 45-TABLE USED BY DBC. DBC/528
OCT 360436770626 44-TABLE USED BY DBC. DBC/529
OCT 354713132675 43-TABLE USED BY DBC. DBC/530
OCT 351557257061 42-TABLE USED BY DBC. DBC/531
OCT 346445677215 41-TABLE USED BY DBC. DBC/532
OCT 342726145174 40-TABLE USED BY DBC. DBC/533
OCT 337570120775 39-TABLE USED BY DBC. DBC/534
OCT 334454732312 38-TABLE USED BY DBC. DBC/535
OCT 330741367020 37-TABLE USED BY DBC. DBC/536
OCT 325601137163 36-TABLE USED BY DBC. DBC/537
OCT 322464114134 35-TABLE USED BY DBC. DBC/538
OCT 316755023372 34-TABLE USED BY DBC. DBC/539
OCT 313612334310 33-TABLE USED BY DBC. DBC/540
OCT 310473426555 32-TABLE USED BY DBC. DBC/541
OCT 304770675742 31-TABLE USED BY DBC. DBC/542
OCT 301623713116 30-TABLE USED BY DBC. DBC/543
OCT 276503074076 29-TABLE USED BY DBC. DBC/544
OCT 273402374713 28-TABLE USED BY DBC. DBC/545
OCT 267635456171 27-TABLE USED BY DBC. DBC/546
OCT 264512676456 26-TABLE USED BY DBC. DBC/547
OCT 261410545213 25-TABLE USED BY DBC. DBC/548
OCT 255647410337 24-TABLE USED BY DBC. DBC/549
OCT 252522640262 23-TABLE USED BY DBC. DBC/550
OCT 247417031702 22-TABLE USED BY DBC. DBC/551
OCT 243661534466 21-TABLE USED BY DBC. DBC/552
OCT 240532743536 20-TABLE USED BY DBC. DBC/553
OCT 235425434430 19-TABLE USED BY DBC. DBC/554
OCT 231674055530 18-TABLE USED BY DBC. DBC/555
OCT 226543212741 17-TABLE USED BY DBC. DBC/556
OCT 223434157116 16-TABLE USED BY DBC. DBC/557
OCT 217706576512 15-TABLE USED BY DBC. DBC/558
OCT 214553630410 14-TABLE USED BY DBC. DBC/559
OCT 211443023471 13-TABLE USED BY DBC. DBC/560
OCT 205721522451 12-TABLE USED BY DBC. DBC/561
OCT 202564416672 11-TABLE USED BY DBC. DBC/562
OCT 177452013710 10-TABLE USED BY DBC. DBC/563
OCT 173734654500 09-TABLE USED BY DBC. DBC/564
OCT 170575360400 08-TABLE USED BY DBC. DBC/565
OCT 165461132000 07-TABLE USED BY DBC. DBC/566
OCT 161750220000 06-TABLE USED BY DBC. DBC/567
OCT 156606500000 05-TABLE USED BY DBC. DBC/568
OCT 153470400000 04-TABLE USED BY DBC. DBC/569
OCT 147764000000 03-TABLE USED BY DBC. DBC/570
OCT 144620000000 02-TABLE USED BX DBC. DBC/571
OCT 141500000000 01-TABLE USED BY DBC. DBC/572
TAB OCT 136400000000 00-TABLE USED BY DBC. DBC/573
COMMON ORG -39 DBC/574
INT BSS 1 VARIABLE USED BY DBC. DBC/575
DIG BSS 1 VARIABLE USED BY DBC. DBC/576
DATUM BSS 1 VARIABLE USED BY DBC. DBC/577
MQ BSS 1 VARIABLE USED BY DBC. DBC/578
MQR BSS 1 VARIABLE USED BY DBC. DBC/579
MQD BSS 1 VARIABLE USED BY DBC. DBC/580
PEX BSS 1 VARIABLE USED BY DBC. DBC/581
EXP BSS 1 VARIABLE USED BY DBC. DBC/582
ND BSS 1 VARIABLE USED BY DBC. DBC/563
DG BSS 1 VARIABLE USED BY DBC. DBC/584
N BSS 1 VARIABLE USED BY DBC. DBC/585
E BSS 1 VARIABLE USED BY DBC. DBC/586
F BSS 1 VARIABLE USED BY DBC. DBC/587
U BSS 1 IARIABLE USED BY DBC. DBC/588
V BSS 1 VARIABLE USED BY DBC. DBC/589
D BSS 1 VARIABLE USED BY DBC. DBC/590
BCD BSS 14 VARIABLE USED BY DBC. DBC/591
REM END OF CONSTANTS AND WORKING STORAGE USED BY DBC. DBC/592
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *DBC/593
END DBC/594
ABS
REM CONTROL CARD FOR CSH. CSH/C01
ORG 0 CSH/C02
PZE C7+13 CSH/C03
PZE COMMON CSH/C04
BCD 1(CSH) CSH/C05
3 CSH/C06
REM END OF CSH CONTROL CARD CSH/C07
REM CSH FOR FORTRAN II CSH 0001
ORG 0 CSH 0002
COMMON SYN -9 CSH 0003
B17 HPR 0,2 NON-H0LLERITH CHARACTER ON CARD CSH 0004
LXD B2,1 RESTART AFTER ERROR CSH 0005
LXD B3,2 X CSH 0006
RDBCD RCD CSH 0007
CPY L CSH 0008
TXL B1 X CSH 0009
TRA 2,4 END OF FILE EXIT CSH 0010
B1 STQ LS SET LEFT SUM CSH 0011
SXD B2,1 SAVE INDEX REGISTERS CSH 0012
SXD B3,2 X CSH 0013
LXD B4,1 SET DIGIT ROW COUNT CSH 0014
CPY R COPY 9 RIGHT ROW AND CSH 0015
STQ RS SET RIGHT SUM CSH 0016
TSX C1,2 ENTER CONVERSION LOOP CSH 0017
B2 TXL B5 LEAVE CONVERSION LOOP CSH 0018
ALS 1 CSH 0019
B3 TXL C2 INITIALIZE BCD RECORD CSH 0020
B5 CPY 8L COPY 8 ROW AND CSH 0021
STQ LS USE AS SUM CSH 0022
CPY 8R X CSH 0023
STQ RS X CSH 0024
TSX C1,2 ENTER CONVERSION LOOP CSH 0025
B4 TXL B6,0,8 LEAVE CONVERSION LOOP CSH 0026
ALS 3 ADD 8 TIMES 8 ROW CSH 0027
TXL C3 X CSH 0028
B6 CAL L USE 9 ROW AS SUM CSH 0029
SLW LS X CSH 0030
CAL R X CSH 0031
SLW RS X CSH 0032
B13 TXL B7,1,1 TEST FOR ZERO ROW CSH 0033
B14 CPY L C0PY LEFT ROW AND CSH 0034
TXL B8 TEST FOR END OF RECORD CSH 0035
TRA B17 CSH 0036
B9 CAL LS SAVE LEFT ZONE SUM CSH 0037
SLW L X CSH 0038
CAL LDS FORM INDICATOR FOR CSH 0039
COM ZERO AND X AND / OR Y CSH 0040
ANA LZ IN LEFT ROWS CSH 0041
ANS LS X CSH 0042
CAL RS SAVE RIGHT ZONE SUM CSH 0043
SLW R X CSH 0044
CAL RDS FORM INDICATOR FOR CSH 0045
COM ZERO AND X AND/OR Y CSH 0046
ANA RZ IN RIGHT ROWS CSH 0047
ANS RS X CSH 004B
TSX C1,2 ENTER CONVERSION LOOP CSH 0049
TXL B15 LEAVE CONVERSION LOOP CSH 0050
SLW TP MULTIPLY INDICATOR CSH 0051
ALS 2 BITS BY TEN CSH 0052
ACL TP X CSH 0053
ALS 1 X CSH 0054
C3 ACL 0,1 ADD T0 BCD RECORD CSH 0055
C2 SLW 0,1 STORE IN BCD RECORD CSH 0056
TIX C7,1,1 COUNT WORDS CSH 0057
C11 CLS C4 INVERT ROW SWITCH AND CSH 0058
STO C4 TEST FOR RIGHT ROW DONE CSH 0059
ICSH) PDX RDBCD,1 RESTORE ROW COUNT CSH 0060
TMI 1,2 TRANSFER IF RIGHT ROW DONE CSH 0061
C10 TXI C9 GO CONVERT RIGHT ROW CSH 0062
B8 CAL L TEST LEFT ROW FOR CSH 0063
ANA LS ILLEGAL DOUBLE PUNCH CSH 0064
TNZ B17 X CSH 0065
B10 CAL L FORM LOGICAL SUM CSH 0066
ORS LS 0F LEFT ROWS CSH 0067
CPY R COPY RIGHT ROW AND CSH 0068
CAL R TEST FOR ILLEGAL CSH 0069
ANA RS DOUBLE PUNCH CSH 0070
TNZ B17 X CSH 0071
B11 CAL R FORM LOGICAL SUM OF CSH 0072
ORS RS RIGHT ROWS CSH 0073
TNX B12,1,1 TEST FOR ZONE ROWS CSH 0074
TSX C1,2 ENTER CONVERSION LOOP CSH 0075
TXL B13 LEAVE CONVERSION LOOP CSH 0076
TXL C3 ADD TO BCD RECORD CSH 0077
B7 CAL 8L ADD 8 LEFT R0W TO CSH 0078
ORA LS LEFT LOGICAL SUM CSH 0079
SLW LDS X CSH 0080
CPY LZ COPY ZERO LEFT AND CSH 0081
ANA LZ FORM INDICATOR FOR CSH 0082
SLW LS BOTH DIGIT AND ZERO CSH 0083
CAL 8R ADD 8 RIGHT ROW TO CSH 0084
ORA RS RIGHT LOGICAL SUM CSH 0085
SLW RDS X CSH 0086
CPY RZ COPY ZERO RIGHT AND CSH 0087
ANA RZ FORM INDICATOR FOR CSH 0088
SLW RS BOTH DIGIT AND ZERO CSH 0089
B12 TSX C1,2 ENTER CONVERSION LOOP CSH 0090
TXL B14 LEAVE CONVERSION LOOP CSH 0091
ALS 4 SHIFT TO ZONE POSITION CSH 0092
TXL C3 X CSH 0093
B15 CAL LDS FORM INDICATOR FOR CSH 0094
ORA LZ BLANK COLUMNS IN CSH 0095
ORA L LEFT HALF OF CARD CSH 0096
COM X CSH 0097
SLW LS X CSH 0098
CAL RDS FORM INDICATOR FOR CSH 0099
ORA RZ BLANK COLUMNS IN CSH 0100
ORA R RIGHT HALF OF CARD CSH 0101
COM X CSH 0102
SLW RS X CSH 0103
TSX C1,2 ENTER CONVERSION LOOP CSH 0104
TXL B16 LEAVE CONVERSION LOOP CSH 0105
SLW TP MULTIPLY INDICATOR CSH 0106
ALS 1 BITS BY 3 AND CSH 0107
ACL TP SHIFT TO ZONE POSITION CSH 0108
ALS 4 X CSH 0109
TXL C3 X CSH 0110
B16 LXD B2,1 RESTORE INDEX REGISTERS CSH 0111
LXD B3,2 AND RETURN TO MAIN CSH 0112
TRA 3,4 PROGRAM CSH 0113
C1 SXD C4,1 SAVE ROW COUNT CSH 0114
C9 CAL 1,4 INITIALIZE ADDRESSES CSH 0115
ADM C7 X ADD 6 CSH 0116
C6 LDQ LS OBTAIN LEFT SUM CSH 0117
C4 TXL C8,,** TRANSFER IF LEFT ROW CSH 011B
ADM C7 RIGHT ROW, ADD 6 MORE CSH 0119
LDQ RS OBTAIN RIGHT SUM AND CSH 0120
C8 STA C2 SET BCD RECORD ADDRESS CSH 0121
STA C3 X CSH 0I22
TXH C5,1,1 SKIP TEST IF DIGIT ROW CSH 0123
STQ TP TEST FOR NO SUM CSH 0124
CAL TP X CSH 0125
TZE C11 X CSH 0126
C5 LXA C7,1 SET WORD COUNT CSH 0127
C7 PXD 6 CONVERT ROW CSH 0128
LGL 1 X CSH 0129
ALS 5 X CSH 0130
LGL 1 X CSH 0131
ALS 5 X CSH 0132
LGL 1 X CSH 0133
ALS 5 X CSH 0134
LGL 1 X CSH 0135
ALS 5 X CSH 0136
LGL 1 X CSH 0137
ALS 5 X CSH 0138
LGL 1 X CSH 0139
TRA 2,2 EXIT FOR ROW PROCEDURE CSH 0140
ORG COMMON CSH 014I
TP BSS 1 TEMPORARY CSH 0142
LS BSS 1 LEFT SUM CSH 0143
RS BSS 1 RIGHT SUM CSH 0144
LDS BSS 1 LEFT DIGIT SUM CSH 0145
RDS BSS 1 RIGHT DIGIT SUM CSH 0146
LZ BSS 1 LEFT ZERO ROW CSH 0147
RZ BSS 1 RIGHT ZERO ROW CSH 0148
L BSS 1 LEFT ROW CSH 0149
R BSS 1 RIGHT ROW CSH 0150
8L SYN LDS 8 LEFT ROW CSH 0151
8R SYN RDS 8 RIGHT ROW CSH 0152
END CSH 0153
ABS
REM CONTROL CARD FOR TSH. TSH/C01
ORG 0 TSH/C02
PZE BAD+1 TSH/C03
PZE TSH/C04
BCD 1(TSH) TSH/C05
PZE TSH/C06
REM END OF TSH CONTROL CARD. TSH/C07
ORG 0 TSH000
RTD SXD X2,2 SAVE INDEX REGISTER TSH001
RTT CLEAR RTT INDICATOR TSH002
(TSH) NOP RTD X TSH003
CLA 1,4 OBTAIN ADDRESS OF 1ST TSH004
STA CPY LOCATION FOR COPY TSH005
CLA BAC INITIALIZE TAPE CHECK TEST TSH006
REP STO ERR TO REREAD,AFTER 1ST ERROR. TSH007
RDS 127,1 SELECT TAPE TSH008
LXD BAC,2 SET IR2 TO ZERO TSH009
CPY CPY *,2 READ TAPE RECORD OF TSH010
TXI CPY,2,-1 N WORDS TSH011
TXI RES,4,1 EOF (END OF LIST) TSH012
RTT EOR REDUNDANCY TEST TSH013
ERR *** IT,ERROR, REREAD TSH014
RES LXD X2,2 RETURN TO MAIN TSH015
TRA 3,4 PROGRAM FOR EOF TSH016
TRY BST 127,1 PREPARE TO REREAO,BAO, TSH017
CLA BAD RECORD TSH01B
X2 TXI REP X TSH019
BAC TXI TRY TSH020
BAD HPR 0,3 2ND ERROR HALT TSH021
END TSH022
REM 704 FORTRAN II / BDC / 12 JAN 59.
REM
REM THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=
REM ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION
REM INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.
REM * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF
REM THIS LOGICAL BLOCK OR SUBROUTINE.
REM C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.
REM P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
REM CONTROL CARD FOR BDC. BDC/C01
ORG BDC/C02
PZE TAB+1,,1 BDC/C03
PZE COMMON BDC/C04
BCD 1(BDC) BDC/C05
PZE (BDC) BDC/C06
BCD 1(FIL) BDC/C07
MZE (FIL) BDC/C08
REM END OF BDC CONTROL CARD. BDC/C13
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
ORG 0 BDC/001
REM (BDC)/ CALLS=LINE,PRINT. CALLER=MAIN PROGRAM. BDC/002
REM (BDC) CONTROLS BINARY TO DECIMAL CONVERSION AND OUTPUT. BDC/003
(RTN) BCD 1(RTN) BDC/0035
(BDC) TTR NEW INSTRUCTION EXECUTED IN LOCATION 1.BDC/004
REM NEW = ENTRY POINT FROM MAIN PROGRAM (CIAC)= ADDRESS OF OUTPUTBDC/005
REM ROUTINE TO HANDLE CURRENT OUTPUT, AND C(0)= LOCATI0N OF THE BDC/006
REM CURRENT FORMAT STATEMENT). BDC/007
NEW LTM SET FILLW TO CALL THE INDICATED BDC/008
STA TYPE TYPE OF OUTPUT ROUTINE. BDC/009
CAL 0 SET OUTPUT FORMAT STATEMENT BDC/010
STA CALL LOCATI0N. BDC/011
ADD ONE SET EXIT BDC/012
STA FX4 TO MAIN PROGRAM. BDC/013
CALL CAL ** OBTAIN FORMAT STATEMENT BDC/014
SXD FX4,4 FOR SCAN. BDC/015
TSX LINE,4 * GO SCAN FORMAT. BDC/016
LXD FX4,4 WHEN DONE, RESTORE C(XR4). BDC/017
CAL TRAP SET LOCATION 1 FOR FUTURE BDC/018
SLW 1 TRAP TRANSFER TO SEEK, AND BDC/019
FX4 TXI **,0,** * TRANSFER CONTROL TO MAIN PROGRAM. BDC/020
REM THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST. BDC/021
TRAP TTR SEEK INSTRUCTION EXECUTED IN LOCATION 1.BDC/022
REM SEEK = REENTRY POINT FROM MAIN PROGRAM (C(0)= LOCATION OF BDC/023
REM THE ADDRESS OF THE NEXT OUTPUT NUMBERS). BDC/024
SEEK LTM PICKUP NTR INSTRUCTION, AND BDC/025
CAL 0 SET LOCATION BDC/026
STA SETL OF OUTPUT NUMBERS. BDC/027
ADD ONE SET LOCATION FOR BDC/028
STA OUT RETURN TO MAIN PROGRAM. BDC/029
SETL CAL ** PICKUP LOCATION OF OUTPUT BDC/030
SLW GET AND SET ADDRESS AND TAG OF GET. BDC/031
LDQ CLA SET GET OP BDC/032
SLQ GET TO CLA. BDC/033
GET CLA **,** GET OUTPUT NUMBER. BDC/034
SXD FX4,4 SAVE THE C(XR4), AND BDC/035
TSX PRINT,4 * GO CONVERT AND PRINT OUTPUT. BDC/036
LXD FX4,4 RESTORE THE C(XR4). BDC/037
ETM REPEAT UNTIL LIST IS EXHAUSTED, BDC/038
OUT TTR ** * UNDER CONTROL OF THE MAIN PROGRAM. BDC/039
REM END OF PR0GRAM (BDC). BDC/040
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/041
REM BDC/042
REM (FIL)/ CALLS=FILLW. USES=(RTN). CALLER=MAIN PR0GRAM. BDC/043
REM (FIL) CONTROLS TRANSMISSION OF ANY REMAINING OUTPUT FROM REC.BDC/044
(FIL) ADD TWO SET ADDRESS FOR BDC/045
STA RET RETURN TO MAIN PROGRAM. BDC/046
LTM IF NO BDC/047
CLA CLA PACK OUTPUT REMAINS BDC/048
SUB FILT IN REC BUFFER, BDC/049
TNZ LAST OR IN BDC/050
CLA WORD WORD INDICATOR, BDC/051
SUB ONE THEN BDC/052
TZE EXIT * EXIT TO RESTORE ALL INDICATORS. BDC/053
LAST SXD FX4,4 OTHERWISE, SAVE THE C(XR4), AND BDC/054
TSX FILLW,4 * GO TRANSMIT REMAINING OUTPUT. BDC/055
LXD FX4,4 RESTORE THE C(XR4), AND BDC/056
EXIT CAL EXIT PICKUP EXIT ADDRESS, AND BDC/057
FILLX TXI (RTN),0,** * EXIT TO RESTORE ALL INDICATORS. BDC/0575
RET TTR ** THEN RETURN TO MAIN PROGRAM BDC/0576
REM END OF PROGRAM (FIL). BDC/05B
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/059
REM BDC/060
REM LINE,4/ CALLS=RESET,FIELD,FILLW. USES=PRINT. CALLER=(BDC). BDC/156
REM LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF OUTPUT. BDC/157
LINE SXD AX4,4 SAVE THE C(XR4) FOR RETURN. BDC/158
SXD AX1,1 SAVE THE ORIGINAL C(XR1), AND BDC/159
SXD AX2,2 SAVE THE ORIGINAL C(XR2). BDC/160
COM COMPLEMENT THE C(AC), AND BDC/161
SEVEN PAX 7,2 SET XR2= -(CURRENT FORMAT LOC.),ANDBDC/162
STD UNIT UNIT DECREMENT= -(CURRENT UNIT). BDC/163
STZ PEX SET PEX (SCALE FACTOR) = 0, AND BDC/164
TSX RESET,4 * SET REC=BLANKS, PACK=REC, WORD=1. BDC/165
STO INT SET INT = I. BDC/166
LXA SEVEN,1 SET XR1 = 7, AND PICKUP THE BDC/167
LDQ -1,2 1ST WORD OF CURRENT FORMAT. BDC/168
REM CCLPAR = ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN. BDC/169
CCLPAR SXD BX1,1 SAVE THE CURRENT CHARACTER C0UNT, BDC/170
SXD BX2,2 SCAN POSITION, AND FORMAT WORD, BDC/171
STQ MQR FOR POSSIBLE REPETITION OF GROUP. BDC/172
LXA INT,4 SET GROUP CONTROL COUNT FOR THE BDC/173
SXD BX4,4 INDICATED NUMBER OF REPETITIONS, BDC/174
SXD GROUPX,4 AND SAVE FOR POSSIBLE RESCAN. BDC/175
REM SCAN = ENTRY POINT FOR CCCMMA,CCSCFP,CCIOUT,CCHOUT,RESCAN. BDC/176
SCAN STZ INT CLEAR INT WORKING STORAGE, AND BDC/177
SIX TXI SCAN5,0,6 GO RESUME SCAN. BDC/178
SCAN1 LXD SIX,1 RESET FORMAT CHARACTER COUNT, AND BDC/179
LDQ -1,2 PICKUP NEXT FORMAT WORD. BDC/180
SCAN2 LGL 6 EXAMINE NEXT CHARACTER, BDC/181
CAS BLANK AND IF BLANK, BDC/182
UNIT TXI SCAN3,0,** THEN BDC/183
TXI SCAN5,0 GO EXAMINE NEXT CHARACTER. BDC/184
SCAN3 CAS L(9) IF NOT BLANK, COMPARE WITH NINE, BDC/185
TXI SCAN6,0 IF NON-NUMERIC, COMPARE CCTEST. BDC/186
NOP IF NUMERIC, THEN BDC/187
STO DIG CONVERT BDC/188
CLA INT SUCCESSIVE BDC/189
ALS 2 BCD BDC/190
ADD INT DIGITS BDC/191
ALS 1 TO BINARY, BDC/192
ACL DIG TO SET INT= SCALE FACTOR, BDC/193
REM SCAN4 = ENTRY POINT USED BY CCSCFM. BDC/194
SCAN4 STO INT CURRENT FIELD OR GROUP CONTROL. BDC/195
REM SCAN5 = ENTRY POINT USED BY CCDCPT. BDC/196
SCAN5 PXD XPRINT,0 CLEAR THE AC, AND UPDATE COUNT. BDC/197
TIX SCAN2,1,1 WHEN NO CHARACTERS REMAIN, BDC/198
TXI SCAN1,2,-1 ADJUST SCAN POSITION, AND REPEAT. BDC/199
REM SCAN6 = ENTRY POINT USED BY CCDCPT. BDC/200
SCAN6 LXD NCC,4 WHEN A NON-NUMERIC IS MET, BDC/201
SCAN7 CAS CCTEST,4 SCAN LIST OF CONTROL CHARACTERS, BDC/202
NCC TXI SCAN8,0,12 AND IF EQUALITY IS FOUND, BDC/203
TRA FRMTR,4 * TAKE THE INDICATED TRANSFER. BDC/204
SCAN8 TIX SCAN7,4,1 IF NOT FOUND IN CONTROL LIST, THEN BDC/205
HPR 5,1 STOP. PRESS START TO CONTINUE. BDC/2055
REM END OF PROGRAM LINE. BDC/210
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/211
REM BDC/212
REM FRMTR / CONTROL TRANSFERS FOR FORMAT SCAN = BDC/213
TXI CCEDMK,0 END OF FORMAT STATEMENT. BDC/2135
AX1 TXI CCLPAR,0,** BEGIN FORMAT OR GROUP. BDC/214
AX2 TXI CCCMMA,0,** END FIELD. BDC/215
AX4 TXI CCSLSH,0,** END LINE OR RECORD. BDC/216
TXI CCSCFP,0 SCALE FACTOR PLUS. BDC/217
BX1 TXI CCSCFM,0,** SCALE FACTOR MINUS. BDC/218
BX2 TXI CCRPAR,0,** END FORMAT OR GROUP. BDC/219
BX4 TXI CCDCPT,0,** ROUNDING OF OUTPUT NUMBER. BDC/220
TXI CCIOUT,0 DECIMAL OUTPUT. BDC/221
CX1 TXI CCHOUT,0,** HOLLERITH FIELD OUTPUT. BDC/222
CX2 TXI CCFOUT,0,** FIXED POINT 0UTPUT. BDC/223
CX4 TXI CCEOUT,0,** FLOATING POINT OUTPUT. BDC/224
FRMTR BSS 0 BDC/225
REM * * * * * * * * * * * * * *.* * * * * * * * * * * * * * * * *BDC/226
REM BDC/227
REM CCEDMK/ CALLS=FIELD,MAIN PROGRAM. BDC/2271
REM CCEDMK = ENTRY POINT WHEN AN ENDMARK IS MET IN FORMAT SCAN. BDC/2272
CCEDMK TSX FIELD,4 * GO PROCESS UNDER FIELD CONTROL. BDC/2273
CLA SCAN5 WHEN DONE, SET BDC/2274
STA CNVSW CONVERSION SWITCH TO RESCAN, AND BDC/2275
TXI LIST,0 * GO SEE IF LIST IS EXHAUSTED. BDC/2276
REM END OF PROGRAM CCEDMK.
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/2277
REM BDC/2278
REM CCCMMA/ CALLS=FIELD. USES=LINEISCAN). BDC/228
REM CCCMMA = ENTRY POINT WHEN A COMMA IS MET IN FORMAT SCAN. BDC/229
CCCMMA TSX FIELD,4 * GO PROCESS UNDER FIELD CONTROL. BDC/230
REM RESUME = ENTRY POINT USED BY CCSLSH,CCRPAR. BDC/231
RESUME LXD CX1,1 WHEN DONE, RESTORE CHARACTER.COUNT,BDC/232
LXD CX2,2 RESTORE SCAN P0SITI0N, AND BDC/233
LDQ MQ CURRENT FORMAT WORD. THEN BDC/234
TXI SCAN,0 * GO RESUME SCAN. BDC/235
REM END OF PROGRAM CCCMMA. BDC/236
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/237
REM BDC/238
REM CCSLSH/ CALLS=FIELD,FILLW. USES=CCCMMA. BDC/239
REM CCSLSH = ENTRY POINT WHEN A SLASH IS MET IN FORMAT SCAN. BDC/240
CCSLSH TSX FIELD,4 * GO PROCESS UNDER FIELD CONTROL. BDC/241
TSX FILLW,4 * WHEN DONE, OUTPUT RECORD, AND BDC/242
TXI RESUME,0 * GO RESUME SCAN. BDC/243
REM END OF PROGRAM CCSLSH. BDC/244
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/245
REM BDC/246
REM CCSCFP/ USES=LINE(SCAN). BDC/247
REM CCSCFP = ENTRY POINT WHEN A P IS MET IN FORMAT SCAN. BDC/248
CCSCFP CLA INT PICKUP AND BDC/249
STO PEX STORE SCALE FACTOR. BDC/250
TXI SCAN,0 * GO RESUME SCAN. BDC/25I
REM END OF PROGRAM CCSCFP. BDC/252
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/253
REM BDC/254
REM CCSCFM/ USES=LINE(SCAN). BDC/255
REM CCSCFM = ENTRY POINT WHEN A MINUS SIGN IS MET IN FORMAT SCAN.BDC/256
CCSCFM CLS INT SET INT MINUS, AND BDC/257
TXI SCAN4,0 * G0 GET SCALE FACTOR. BDC/258
REM END OF PROGRAM CCSCFM. BDC/259
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/260
REM BDC/261
REM CCRPAR/ CALLS=FIELD. USES=CCCMMA,RESCAN(GROUP). BDC/262
REM CCRPAR = ENTRY POINT WHEN A RPAREN IS MET IN FORMAT SCAN. BDC/263
CCRPAR TSX FIELD,4 * GO PROCESS UNDER FIELD CONTROL. BDC/264
LXD BX4,4 WHEN DONE, UPDATE GROUP COUNT, AND BDC/265
TNX RESUME,4,1 * GO RESUME SCAN, UNLESS BDC/266
TXI GROUP,0 * REPETITION OF GROUP IS INDICATED. BDC/267
REM END OF PROGRAM CCRPAR. BDC/268
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/269
REM BDC/270
REM CCDCPT/ USES=LINE(SCAN). BDC/271
REM CCDCPT = ENTRY POINT WHEN A POINT IS MET IN FORMAT SCAN. BDC/272
CCDCPT CLA DTR MODIFY SCAN INSTRUCTION BDC/273
STO SCAN3 TO TRANSFER INTO DCPT1. BDC/274
STZ DIG CLEAR DIG, AND BDC/2745
TXI SCAN5,0 * GO RESUME SCAN. BDC/275
REM DCPT1 = REENTRY POINT FROM LINE(SCAN). BDC/276
DCPT1 CAS L(9) DETERMINE THE BDC/277
TXI DCPT3,0 NUMBER, MODULO TEN, BDC/278
NOP OF DIGITS BDC/279
STO DIG IN FRACTION. BDC/280
TXI SCAN5,0 * WHEN A CONTROL CHARACTER IS MET, BDC/281
DCPT3 STQ MQ RESTORE THE BDC/282
LDQ DCPT1 SCAN INSTRUCTION BDC/283
STQ SCAN3 TO ITS ORIGINAL FORM, AND BDC/284
LDQ MQ GO COMPARE CHARACTER BDC/285
TXI SCAN6,0 * WITH CCTEST LIST. BDC/286
REM END OF PROGRAM CCDCPT. BDC/287
DTR TXI DCPT1,0 * INSTRUCTION CONSTANT. BDC/28B
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/289
REM BDC/290
REM CCIOUT/ USES=LINE(SCAN). BDC/291
REM CCIOUT = ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN. BDC/292
CCIOUT CLA IAD PICKUP INTG, AND BDC/293
REM SETAD = ENTRY POINT USED BY CCFOUT,CCEOUT. BDC/294
SETAD STA CNVSW SET CONVERSION SWITCH. BDC/295
LXA INT,4 SET,COUNT FOR THE BDC/296
SXD COUNT,4 REPETITION OF THIS FIELD, AND BDC/297
TXI SCAN,0 * GO RESUME SCAN. BDC/298
REM END OF PROGRAM CCIOUT. BDC/299
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/300
REM BDC/301
REM CCHOUT/ USES=LINE(SCAN). BDC/302
REM CCHOUT = ENTRY POINT WHEN AN H IS MET IN FORMAT SCAN. BDC/303
CCHOUT CLA PACK SET STORING ADDRESS BDC/304
STA HOUT4 TO CURRENT LOCATION IN REC BUFFER. BDC/305
CAL WORD PICKUP WORD INDICATOR. BDC/306
LXA INT,4 SET XR4 = FIELD WIDTH. BDC/307
TNO HOUT1 TURN OFF OVERFLOW INDICATOR. BDC/308
HOUT1 TIX HOUT3,1,1 UPDATE COUNT, AND IF NO CHARACTERS BDC/309
LXD SIX,1 REMAIN, RESET CHARACTER C0UNT, BDC/310
TXI HOUT2,2,-1 RESET CURRENT FORMAT SCAN POSITION,BDC/311
HOUT2 LDQ -1,2 AND PICKUP NEXT FORMAT WORD. BDC/312
HOUT3 LGL 6 SHIFT SIX CHARACTERS BDC/313
TNO HOUT5 INTO THE AC. BDC/3I4
HOUT4 SLW ** STORE BCD WORD IN REC BUFFER, AND BDC/315
CAL HOUT4 UPDATE BDC/316
ADD ONE STORING BDC/317
STA HOUT4 ADDRESS BDC/318
STA PACK AND PACK ADDRESS. BDC/319
CAL ONE RESET WORD INDICATOR. BDC/320
HOUT5 TIX HOUT1,4,1 REPEAT UNTIL WHOLE GROUP IS MOVED. BDC/321
STO WORD SAVE INCOMPLETE WORD. AND BDC/322
TXI SCAN,0 * GO RESUME SCAN. BDC/323
REM END OF PROGRAM CCHOUT. BDC/324
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/325
REM BDC/326
REM CCFOUT/ USES=CCIOUT. BDC/327
REM COFOUT = ENTRY POINT WHEN AN F IS MET IN FORMAT SCAN. BDC/328
CCFOUT CLA FXDW SET CONVERSION ROUTINE BDC/329
STA CNV5 FOR FIXED POINT BDC/330
STD CNV6 OUTPUT BDC/331
STD CLR (WITHOUT EXPONENT). BDC/332
CLS PEX SET EXP TO THE BDC/333
STO EXP NEGATIVE OF SCALE FACTOR. BDC/334
CLA FAD PICKUP FXD, AND BDC/335
TXI SETAD,0 * GO SET CONVERSI0N SWITCH. BDC/336
REM END OF PROGRAM CCFOUT. BDC/337
FXDW PZE CHAR,0,1 CONSTANT USED BY CCFOUT. BDC/338
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/339
REM BDC/340
REM CCEOUT/ USES=CCIOUT. BDC/341
REM CCEOUT = ENTRY POINT WHEN AN E IS MET IN FORMAT SCAN. BDC/342
CCEOUT CLA FLTW SET CONVERSION ROUTINE BDC/343
STA CNV5 FOR FLOATING POINT BDC/344
STD CNV6 OUTPUT BDC/345
STD CLR (WITH EXPONENT). BDC/346
CLA FLT1 PICKUP FLT, AND BDC/347
TXI SETAD,0 * GO SET CONVERSION SWITCH. BDC/348
REM END OF PROGRAM CCEOUT. BDC/349
FLTW PZE CHAR-4,0,5 CONSTANT USED BY CCEOUT. BDC/350
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/351
REM BDC/352
REM RESCAN/ CALLS=FILLW. USES=LINE(SCAN). BDC/353
REM RESCAN = ENTRY POINT USED BY PRINT. BDC/354
RESCAN SXD AX4,4 FOR RETURN FROM FORMAT SCAN. BDC/357
SXD AX1,1 SAVE THE ORIGINAL C(XR1), BDC/358
SXD AX2,2 SAVE THE ORIGINAL C(XR2), AND BDC/359
TSX FILLW,4 * GO OUTPUT RECORD. BDC/360
LXD GROUPX,4 THEN PICKUP ORIGINAL GROUP COUNT TOBDC/361
REM GROUP = ENTRY POINT USED BY CCRPAR. BDC/362
GROUP SXD BX4,4 UPDATE GROUP CONTROL. BDC/363
LXD BX1,1 RESET CHARACTER COUNT, BDC/364
LXD BX2,2 RESET SCAN POSITION, AND BDC/365
LDQ MQR PICKUP 1ST FORMAT WORD OF GROUP. BDC/366
GROUPX TXI SCAN,0,** * GO RESCAN THIS GR0UP. BDC/367
REM END OF PROGRAM RESCAN. BDC/368
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/369
REM BDC/370
REM FIELD,4/ USES PRINT. CALLERS=LINE(SCAN),CCCMMA,CCSLSH,CCRPAR.BDC/371
REM FIELD OONTROLS THE REPEATED OUTPUT OF THE CURRENT FIELD. BDC/372
FIELD SXD CX4,4 SAVE THE C(XR4) FOR RETURN. BDC/373
SXD CX1,1 SAVE THE CHARACTER COUNT, BDC/374
SXD CX2,2 THE SCAN POSITION, AND BDC/375
STQ MQ THE CURRENT FORMAT WORD. BDC/376
LXD AX1,1 RESTORE THE ORIGINAL C(XR1), BDC/377
LXD AX2,2 RESTORE THE ORIGINAL C(XR2), AND BDC/378
LXA INT,4 EXAMINE INT, AND BDC/379
TXL DONE,4,0 IF NOT ZERO, THEN BDC/380
SXD CLR2,4 SET COLUMN WIDTH OF EACH FIELD. BDC/381
TXI LIST,0 * AND GO PROCESS FIELD. BDC/382
REM DONE = ENTRY POINT USED BY PRINT. BDC/383
DONE LXD CX4,4 WHEN DONE, RESTORE THE C(XR4), AND BDC/384
TRA 1,4 * RETURN TO CALLER. BDC/385
REM END OF PROGRAM FIELD. BDC/386
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/387
REM BDC/388
REM PRINT,4/ USES=FIELD,LINE. CALLERS=(BDC),LINE(RESCAN). BDC/389
REM PRINT DOES INTEGER, FIXED, AND FLOATING POINT CONVERSION. BDC/390
REM XPRINT = EXIT FROM PRINT WHEN FORMAT IS EXHAUSTED. BDC/391
XPRINT SXD CNVSW,4 SAVE THE C(XR4), AND BDC/392
TSX RESCAN,4 * GO RESCAN FORMAT. THeN RETURN, BDC/3921
LXD CNVSW,4 AFTER GETTING FORMAT. BDC/3922
CLA DATUM THEN PROCEED TO CONVERSION. BDC/393
REM PRINT = ENTRY POINT USED BY (BDC). BDC/394
PRINT SXD AX4,4 SAVE THE C(XR4) FOR RETURN TO LIST.BDC/395
STO DATUM STORE CURRENT FIELD FOR CONVERSION.BDC/396
CNVSW TXI **,0,** * SWITCH TO FLT, FXD, INTG,OR RESCAN.BDC/397
REM FLT = ENTRY POINT FOR FLOATING POINT CONVERSION. BDC/398
FLT TZE CNVN IF NON-ZERO, BEGIN E, F CONVERSION.BDC/399
LRS 27 PLACE CHARACTERISTIC IN THE AC, BDC/400
SSP FRACTION IN THE MQ. BDC/401
SUB BASE BDC/402
LRS 35 OBTAIN REQUIRED BASE IN THE MQ. BDC/403
MPY LOG2 BDC/404
STO EXP BDC/405
TPL FLT1 BDC/406
SUB PEX BDC/407
FAD PAX FXD,4 BDC/408
LDQ DATUM BDC/409
FMP TAB-1,4 BDC/410
SSP TEST PROBABLE BDC/411
LXA PEX,4 EXPONENT. BDC/412
SUB TAB,4 BDC/413
TXI FLT4,0 BDC/414
FLT1 PAX FLT,4 BDC/415
CLA TAB,4 BDC/416
SBM DATUM BDC/417
ADD BIAS BDC/4I8
FLT4 TPL FLT2 BDC/419
CAL EXP ADJUST EXPONENT. BDC/420
ADD ONE BDC/421
SLW EXP BDC/422
FLT2 CAL E OBTAIN E FOR BDC/423
SLW CHAR-4 EXPONENT. BDC/424
CLA EXP BDC/425
SUB PEX BDC/426
STO EXP BDC/427
CAL BLANK BDC/428
LDQ EXP OBTAIN SIGN. BDC/429
TQP FLT3 BDC/430
CAL MINUS BDC/431
FLT3 SLW CHAR-3 BDC/432
IAD PXD INTG,0 BDC/433
DVP TEN OBTAIN DIGITS BDC/434
STQ CHAR-2 OF EXPONENT. BDC/435
SLW CHAR-1 BDC/436
CLA DATUM BDC/437
TXI CNV,0 BDC/438
REM FXD = ENTRY POINT FOR FIXED POINT CONVERSION. BDC/439
FXD TZE CNVN TEST OUTPUT NUMBER FOR ZERO. BDC/440
CNV LXA EXP,4 TEST FOR SCALING. BDC/441
TXL CNV1,4,0 BDC/442
LDQ EXP BDC/443
TQP CNV2 BDC/444
LDQ DATUM BDC/445
FMP TAB,4 BDC/446
ACL BIAS BDC/447
CNV1 UFA FIXN FIX INTERNAL FLOATING BINARY NO. BDC/448
TXI CNVN1,0 BDC/449
CNV2 FDP TAB,4 BDC/450
STQ FD BDC/451
CLA FD BDC/452
UFA FIXQ BDC/453
CNVN1 LLS 8 BDC/454
ALS 2 BDC/455
ARS 10 BDC/456
STO ND STORE INTEGRAL PART. BDC/457
STQ FD STORE FRACTIONAL PART. BDC/458
LXA DIG,4 BDC/459
CLA FD SKIP FRACTIONAL. BDC/460
ACL RND,4 BDC/461
LRS 35 ROUND NUMBER. BDC/462
ADD ND BDC/463
STO ND BDC/464
TXL CNV3,4,0 TEST FOR FRACTION WANTED. BDC/465
CNV4 STQ FD BDC/466
ALS 4 CONVERT FRACTIONAL PART. BDC/467
LLS 33 BDC/468
ADD FD BDC/469
LRS 32 BDC/470
CNV5 SLW **,4 (FXD=CHAR, FLT=CHAR-4) BDC/471
TIX CNV4,4,1 BDC/472
CLA ND OBTAIN INTEGRAL PART. BDC/473
TXI CNV3,0 BDC/474
CNVN LXA DIG,4 BDC/475
LDQ BLANK BDC/476
CLR TXI CLR1,4,** (FXD=1, FLT=5) BDC/477
CLR1 STQ CHAR,4 BDC/478
TIX CLR1,4,1 BDC/479
CNV3 LXA DIG,4 BDC/480
CNV6 TXI CNV7,4,** (FXD=1, FLT=5) BDC/481
CNV7 LDQ POINT ESTABLISH POINT. BDC/482
STQ CHAR,4 BDC/483
TXI CNV11,0 BDC/484
REM INTG = ENTRY POINT FOR INTEGER CONVERSION. BDC/485
INTG LXD ONE,4 BDC/486
ARS 18 BDC/487
CNV11 LRS 35 BDC/488
CNV9 DVP TEN CONVERT INTEGRAL PART. BDC/489
SLW CHAR-1,4 BDC/490
STQ ND BDC/491
CLA ND BDC/492
TZE CNV8 BDC/493
CLM BDC/494
TXI CNV9,4,1 BDC/495
CNV8 CAL BLANK PUT SIGN IN SPREAD BCD. BDC/496
TQP CNV12 BDC/497
CAL MINUS BDC/498
CNV12 SLW CHAR-2,4 BDC/499
CAL BLANK BDC/500
TXI CLR2,4,3 BDC/501
CLR3 SLW CHAR,4 BDC/502
TXI CLR2,4,1 BDC/503
CLR2 TXL CLR3,4,** (COLUMN WIDTH OF THIS FIELD) BDC/504
LXD CLR2,4 BDC/505
CAL WORD PACK RECORD INTO BDC/506
TOV PACK2 FULL WORDS. BDC/507
PACK2 ALS 6 BDC/508
ADD CHAR,4 BDC/509
TNO PACK3 BDC/510
PACK SLW ** (CURRENT ADDRESS IN REC BUFFER) BDC/511
CAL PACK BDC/512
ADD ONE BDC/513
STA PACK BDC/514
CAL ONE BDC/515
PACK3 TIX PACK2,4,1 WHEN THIS FIELD HAS BEEN PROCESSED,BDC/516
SLW WORD SAVE ANY REMAINDER, AND BDC/517
LXD COUNT,4 COUNT NUMBER OF BDC/518
TIX MORE,4,1 WORDS CONVERTED. BDC/519
SXD AX1,1 IF FIELD COUNT HAS BEEN EXHAUSTED, BDC/520
SXD AX2,2 RESTORE THE C(XR1),C(XR2), AND BDC/521
COUNT TXI DONE,0,** * (FIELD REPEAT COUNT) EXIT TO FIELD.BDC/522
MORE SXD COUNT,4 OTHERWISE, G0 GET MORE L1ST. BDC/523
REM LIST = ENTRY POINT USED BY LINE(SCAN),FIELD. BDC/524
LIST LXD AX4,4 RESTORE THE C(XR4I, AN0 BDC/525
TRA 1,4 * GO GET NEXT OUTPUT NUMBER. BDC/526
REM END OF PROGRAM PRINT. BDC/527
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/528
REM BDC/529
REM FILLW(RESET),4/ CALLERS=IFIL),LINE,CCSLSH,RESCAN. BDC/530
REM FILLW FILLS OUT LAST WORD,CONTROLS OUTPUT, AND RESETS. BDC/531
FILLW SXD FILLX,4 SAVE THE C(XR4) FOR RETURN. BDC/532
LXA PACK,4 SET XR4 = REC + NO. WORDS ENTERED. BDC/533
CAL WORD EXAMINE BDC/534
SUB ONE WORD INDICATOR, AND BDC/535
TZE FILL1 IF NOT ZERO, THEN BDC/536
CAL PACK SET ADDRESS BDC/537
STA FILL3 FOR LAST WORD. BDC/538
CAL WORD PICKUP WORD, BDC/539
TOV FILL4 AND BDC/540
FILL4 ALS 6 FILL OUT BDC/541
ADD BLANK WITH BLANKS. BDC/542
TNO FILL4 WHEN DONE, BDC/543
FILL3 SLW ** STORE LAST WORD. BDC/544
TXI FILL1,4,1 UPDATE, AND SET BDC/545
FILL1 TIX FILL2,4,REC XR4 AND THE DECREMENT OF FILL BDC/546
LXA ONE,4 TO THE NUMBER OF WORDS ENTERED BDC/547
FILL2 SXD FILL,4 IN REC BUFFER. THEN BDC/548
LXD UNIT,4 SELECT CURRENT OUTPUT UNIT. BDC/549
TXH TYPE,4,-2 PUNCH OR PRINT OUTPUT. BDC/550
WRS 127,4 BCD TAPE OUTPUT. BDC/551
TYPE TSX **,4 * GO TO INDICATED OUTPUT ROUTINE. BDC/552
FILL PZE REC,,** (DECREMENT = NO. WORDS ENTERE0) BDC/553
LXD FILLX,4 F REENTRY FROM OUTPUT R0UT1NE. BDC/554
REM RESET = ENTRY POINT USED BY LINE. BDC/555
RESET CAL BLANKS RESET REC BDC/556
FILT SLW REC TO BLANKS, BDC/557
CAL FILL PACK ADDRESS BDC/558
STA PACK TO REC, AN0 BDC/559
CAL ONE PICKUP 1 TO BDC/560
SLW WORD SET WORD INDICATOR. BDC/561
TRA 1,4 * EXIT TO CALLER. BDC/562
REM END OF PROGRAM FILLW(RESET). BDC/563
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/564
REM BDC/565
REM CONSTANTS AND WORKING STORAGE USDO BY FIL/BDC. BDC/566
ENDMK OCT 77 CCTEST-12. BDC/5665
( BCD 100000( CCTEST-11. BDC/567
COMMA BCD 100000, CCTEST-10. BDC/56B
SLASH BCD 100000/ CCTEST-9. BDC/569
P BCD 100000P CCTEST-8. BDC/570
MINUS BCD 100000- CCTEST-7. BDC/571
) BCD 100000) CCTEST-6. BDC/572
POINT BCD 100000. CCTEST-5. BDC/573
I BCD 100000I CCTEST-4. BDC/574
H BCD 100000H CCTEST-3. BDC/575
F BCD 100000F CCTEST-2. BDC/576
E BCD 100000E CCTEST-1. BDC/577
CCTEST BSS 0 INDEXING ADDRESS FOR ABOVE LIST. BDC/578
BLANKS BCD 1 CONSTANT USED BY FIL/BDC. BDC/579
BLANK BCD 100000 CONSTANT USED BY FIL/BDC. BDC/580
TEN DEC 10 CONSTANT USED BY FIL/BDC. BDC/581
FIXN DEC 155B8 CONSTANT USED BY FIL/BDC. BDC/582
FIXQ DEC 182B8 CONSTANT USED BY FIL/BDC. BDC/583
BIAS DEC 27B8 CONSTANT USED BY FIL/BDC. BDC/584
BASE DEC 128 CONSTANT USED BY FIL/BDC. BDC/585
LOG2 DEC .301029957B CONSTANT USED BY FIL/BDC. BDC/586
ONE DEC 1 CONSTANT USED BY FIL/BDC. BDC/587
TWO PZE 2 CONSTANT USED BY FIL/BDC. BDC/5875
L(9) PZE 9 CONSTANT USED BY FIL/BDC. BDC/5876
DEC .5BE-9 09-TABLE USED BY FIL/BDC. BDC/588
DEC .5BE-8 08-TABLE USED BY FIL/BDC. BDC/589
DEC .5BE-7 07-TABLE USED BY FIL/BDC. BDC/590
DEC .5BE-6 06-TABLE USED BY FIL/BDC. BDC/591
DEC .5BE-5 05-TABLE USED BY FIL/BDC. BDC/592
DEC .5BE-4 04-TABLE USED BY FIL/BDC. BDC/593
DEC .5BE-3 03-TABLE USED BY FIL/BDC. BDC/594
DEC .5BE-2 02-TABLE USED BY FIL/BDC. BDC/595
DEC .5BE-1 01-TABLE USED BY FIL/BDC. BDC/596
RND DEC .5B 00-TABLE USED BY FIL/BDC. BDC/597
OCT 376700324573 46-TABLE USED BY FIL/BDC. BDC/598
OCT 373546566774 45-TABLE USED BY FIL/BDC. BDC/599
OCT 370436770626 44-TABLE USED BY FIL/BDC. BDC/600
OCT 364713132675 43-TABLE USED BY FIL/BDC. BDC/601
OCT 361557257061 42-TABLE USED BY FIL/BDC. BDC/602
OCT 356445677215 41-TABLE USED BY FIL/BDC. BDC/603
OCT 352726145174 40-TABLE USED BY FIL/BDC. BDC/604
OCT 347570120775 39-TABLE USED BY FIL/BDC. BDC/605
OCT 344454732312 38-TABLE USED BY FIL/BDC. BDC/606
OCT 340741367020 37-TABLE USED BY FIL/BDC. BDC/607
OCT 335601137163 36-TABLE USED BY FIL/BOC. BDC/608
OCT 332464114134 35-TABLE USED BY FIL/BDC. BDC/609
OCT 326755023372 34-TABLE USED BY FIL/BDC. BDC/610
OCT 323612334310 33-TABLE USED BY FIL/BDC. BDC/611
OCT 320473426555 32-TABLE USED BY FIL/BOC. BDC/612
OCT 314770675742 31-TABLE USED BY FIL/BDC. BDC/613
OCT 311623713116 30-TABLE USED BY FIL/BDC. BDC/614
OCT 306503074076 29-TABLE USED BY F1L/BDC. BDC/615
OCT 303402374713 28-TABLE USED BY F1L/BDC. BDC/616
OCT 277635456171 27-TABLE USED BY FIL/BDC. BDC/617
OCT 274512676456 26-TABLE USED BY FIL/BOC. BDC/618
OCT 271410545213 25-TABLE USED BY FIL/BDC. BDC/619
OCT 265647410337 24-TABLE USED BY FIL/BDC. BDC/620
OCT 262522640262 23-TABLE USED BY FIL/BDC. BDC/621
OCT 257417031702 22-TABLE USED BY FIL/BDC. BDC/622
OCT 253661534466 21-TABLE USED BY FIL/BDC. BDC/623
OCT 250532743536 20-TABLE USED BY FIL/BDC. BDC/624
OCT 245425434430 19-TABLE USED BY FIL/BDC. BDC/625
OCT 241674055530 18-TABLE USED BY FIL/BDC. BDC/626
OCT 236543212741 17-TABLE USEO BY FIL/BDC. BDC/627
OCT 233434157116 16-TABLE USED BY FIL/BDC. BDC/628
OCT 227706576512 15-TABLE USED BY FIL/BDC. BDC/629
OCT 224553630410 14-TABLE USED BY FIL/BDC. BDC/630
OCT 221443023471 13-TABLE USED BY FIL/BDC. BDC/631
OCT 215721522451 12-TABLE USED BY FIL/BDC. BDC/632
OCT 212564416672 11-TABLE USED BY FIL/BDC. BDC/633
OCT 207452013710 10-TABLE USED BY FIL/BDC. BDC/634
OCT 203734654500 09-TABLE USED BY FIL/BDC. BDC/635
OCT 200575360400 08-TABLE USED BY FIL/BDC. BDC/636
OCT 175461132000 07-TABLE USED BY FIL/BDC. BDC/637
OCT 171750220000 06-TABLE USED BY FIL/BDC. BDC/638
OCT 166606500000 05-TABLE USED BY FIL/BDC. BDC/639
OCT 163470400000 04-TABLE USED BY FIL/BDC. BDC/640
OCT 157764000000 03-TABLE USED BY FIL/BDC. BDC/641
OCT 154620000000 02-TABLE USED BY FIL/BDC. BDC/642
OCT 151500000000 01-TABLE USED BY FIL/BDC. BDC/643
TAB OCT 146400000000 00-TABLE USE0 BY FIL/BDC. BDC/644
COMMON ORG -150 COMMON WORKING STORAGE= BDC/645
CHAR BES 120 VARIABLE USED BY FIL/BDC. BDC/646
EXP BSS 1 VARIABLE USED BY FIL/BDC. BDC/647
ND BSS 1 VARIABLE USED BY FIL/BDC. BDC/648
FD BSS 1 VARIABLE USED BY FIL/BDC. BDC/649
INT BSS 1 VARIABLE USED BY FIL/BDC. BDC/650
DIG BSS 1 VARIABLE USED BY FIL/BDC. BDC/651
DATUM BSS 1 VARIABLE USED BY FIL/BDC. BDC/652
PEX BSS 1 VARIABLE USED BY FIL/BDC. BDC/653
MQ BSS 1 VARIABLE USED BY FIL/BDC. BDC/654
MQR BSS 1 VARIABLE USED BY FIL/BDC. BDC/655
REC BSS 20 VARIABLE USED BY FIL/BDC. BDC/656
WORD BSS 1 VARIABLE USED BY FIL/BDC. BDC/657
REM END OF CONSTANTS AND WORKING STORAGE USED BY FIL/BDC. BDC/658
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *BDC/659
END BDC/660
ABS
REM CONTROL CARD FOR SCH. SCH/C01
ORG 0 SCH/C02
PZE COL1+1 SCH/C03
PZE COMMON SCH/C04
BCD 1(SCH) SCH/C00
PZE SCH/C06
REM END OF SCH CONTROL CARD. SCH/C07
ORG 0 SCH 0001
COMMON SYN -63 SCH2P11
FIRST SXD X1,1 SCH 0002
SXD X2,2 SCH 0003
SXD X4,4 SCH 0004
CAL PR6 SCH 0005
SLW 0 SCH 0006
PR6 TXL START SCH 0007
START LXD X4,4 SCH 0008
CLA 1,4 OBTAIN STARTING LOCATION OF SCH 0009
ARS 18 BUFFER AREA FOR LINE IMAGE SCH 0010
ADD 1,4 IN BCD SCH 0011
(SCH) PDX FIRST,4 SAVE LOCATION SCH 0012
SXD PR6,4 X SCH 0013
STA PR2 SUPPLY ADDRESS SCH 0014
STA CI9 X SCH 0015
WPU SCH 0016
CLA BLNKS FIND LAST NON-BLANK SCH 0017
LXD CI4,4 GROUP SCH 0018
PR2 CAS 0,4 X SCH 0019
TXI PR1,4,-1 SCH 0020
TXI PR2,4,1 X SCH 0021
TXI PR1,4,-1 SCH 0022
PR1 SXD CI6,4 STORE END TEST SCH 0023
SXD CI8,4 X SCH 0024
SXD PR8,4 SCH 0025
LXD PR6,4 SCH 0026
PR8 TNX PR5,4 SCH 0027
PR3 LXD PR6,4 INITIALIZE GROUP COUNT SCH 0028
PR5 LXA PR7,2 INITIALIZE LEFT SETUP SCH 0029
LXD YZ1,1 CLEAR CARD IMAGE SCH 0030
PR7 PXD SCH 0031
PR4 SLW LT,1 SCH 0032
SLW RT,1 SCH 0033
TIX PR4,1,1 X SCH 0034
CIR CAL COL1 INITIALIZE COLUMN INDICATOR SCH 0035
CI2 SLW COL X SCH 0036
CI9 LDQ 0,4 OBTAIN GROUP SCH 0037
SXD OZ2,4 STORE GROUP COUNT SCH 0038
LXA Q6,4 SET CHARACTER COUNT SCH 0039
CI1 PXD 12 SCH 0040
Q6 LGL 6 SCH 0041
PAX 0,1 X SCH 0042
CAL COL POSITION COLUMN INDICATOR SCH 0043
ARS 6,4 X SCH 0044
TIX YZ1,1,16 TEST FOR DIGIT SCH 0045
TXH YZ2,1,15 TEST FOR Y-ZONE SCH 0046
CI5 ORS D,3 STORE DIGIT SCH 0047
CI4 TIX CI1,4,1 COUNT CHARACTERS SCH 0048
CI3 ARS 1 SHIFT AND TEST COLUMN SCH 0049
LXD OZ2,4 RESTORE GROUP COUNT SCH 0050
TXI CI6,4,-1 COUNT GROUPS SCH 0051
CI6 TXL CI7,4 TEST FOR LAST NON-BLANK GR. SCH 0052
TNZ CI2 TEST.FOR END OF R0W SCH 0053
CI7 CAL 8.3,2 FORM TRUE 8,4 SCH 0054
ORS D-8,2 AND 3 ROWS AND SCH 0055
ORS D-3,2 MOVE8.4 AND 8.3 SCH 0056
SLW 8.2,2 ROWS SCH 0057
CAL 8.4,2 FORM TRUE8.4 SCH 0058
ORS D-8,2 SCH 0059
ORS D-4,2 SCH 0060
SLW 8.3,2 X SCH 0061
CI8 TXL WP,4 TEST FOR END SCH 0062
TXH WP,2,15 TEST FOR RIGHT HALF SCH 0063
TXI CIR,2,16 INITIALIZE RIGHT HALF SCH 0064
YZ1 TIX XZ1,1,16 TEST FOR 16/CH/32 SCH 0065
TXH XZ2,1,15 TEST FOR X-ZONE SCH 0066
ORS D,3 STORE DIGIT SCH 0067
YZ2 ORS Y,2 STORE Y-ZONE SCH 0068
TIX CI1,4,1 COUNT CHARACTERS SCH 0069
X1 TXL CI3 OBTAIN NEXT GROUP SCH 0070
XZ1 TIX OZ1,1,16 TEST FOR 32/CH/48 SCH 0071
TXH CI4,1,15 TEST FOR BLANK SCH 0072
ORS D,3 STORE DIGIT SCH 0073
XZ2 ORS X,2 STORE X-ZONE SCH 0074
TIX CI1,4,1 COUNT CHARACTERS SCH 0075
X2 TXL CI3 OBTAIN NEXT GROUP SCH 0076
OZ1 ORS Z,2 STORE 0-ZONE SCH 0077
ORS D,3 SCH 0078
TIX CI1,4,1 COUNT CHARACTERS SCH 0079
OZ2 TXL CI3 SCH 0080
WP LXA CI1,1 SCH 0081
WP3 CPY LT,1 COPY CARD IMAGE SCH 0082
CPY RT,1 SCH 0083
TIX WP3,1,1 SCH 0084
LXD X1,1 SCH 0085
LXD X2,2 SCH 0086
WT2 LXD X4,4 SCH 0087
TRA 2,4 SCH 0088
BLNKS BCD 1 SCH 0089
X4 HTR 1 SCH 0090
COL1 MZE SCH 0091
ORG -63 SCH 0092
COL BSS 1 SCH 0093
RT BES 16 SCH 0094
8.5 BSS 1 SCH 0095
8.4 BSS 1 SCH 0096
8.3 BSS 1 SCH 0097
8.2 BSS 1 SCH 0098
D BES 9 SCH 0099
Z BSS 1 SCH 0100
X BSS 1 SCH 0101
Y BSS 1 SCH 0102
LT SYN Y+1 SCH 0103
END SCH 0104
ABS
REM CONTROL CARD FOR SPH. SPH/C01
ORG 0 SPH/C02
PZE COL1+1 SPH/C03
PZE COMMON SPH/C04
BCD 1(SPH) SPH/C05
3 SPH/C06
REM END OF SPH CONTROL CARD. SPH/C07
REM SPH FOR FORTRAN II SPH 0001
ORG 0 SPH 0002
COMMON SYN -85 SPH 0003
RPT LXD X1,1 PREPARE TO CAUSE LINE SPH 0004
LXD X2,2 TO BE PRINTED AGAIN AND THE SPH 0005
LXD X4,4 PrOGRAM TO CONTINUE SPH 0006
LMT CLA 1,4 OBTAIN STARTING LOCATION OF BUFFER AREA * SPH 0007
STA T5 SUPPLY ADDRESS SPH 0008
ARS 18 * FOR LINE IMAGE IN BCD SPH 0009
ADD 1,4 X SPH 0010
SXD X1,1 SPH 0011
SXD X2,2 SPH 0012
SXD X4,4 SPH 0013
L11 PDX 11,4 SAVE LOCATION SPH 0014
STA PR2 SPH 0015
STA CI9 SPH 0016
SXD PR6,4 SAVE LOCATION SPH 0017
CAL DEL SPH 0018
SLW 1ST SPH 0019
T4 RPR SELECT PRINTER SPH 0020
T5 CAL * OBTAINFIRST CHARACTER SPH 0021
ARS 30 X SPH 0022
TZE SP4 DOUBLE SPACE IF ZERO SPH 0023
CAS YZONE TEST FOR SPACE SUPPRESS SPH 0024
Z2 TXL BK NO SPH 0025
PR6 TXL RPR+1 SUPPRESS SPACE SPH 0026
BK CAS BNK TEST FOR BLANK SPH 0027
OZ2 TXL DIGF 100 SPH 0028
X4 TXL RPR+2 SPH 0029
DIGF SPR 10 SET 0HANNEL SKIP SPH 0030
ANA MK MASK OUT ZONE SPH 0031
MK PAX 15,1 OBTAIN SPR COMBINATION SPH 0032
TXI N2,1,1 X SPH 0033
N2 TNX N3,1,8 X SPH 0034
SPR 8 X SPH 0035
N3 TNX N4,1,4 X SPH 0036
SPR 4 X SPH 0037
N4 TNX N5,1,2 X SPH 0038
SPR 2 X SPH 0039
N5 TNX RPR,1,1 X SPH 0040
SPR 1 X SPH 0041
RPR RPR SELECT PRINTER AGAIN SPH 0042
SPR 5 SUPPRESS SPACE SPH 0043
CLA BLNKS FIND LAST NON-BLANK GROUP SPH 0044
LXD CI4,4 X SPH 0045
PR2 CAS 0,4 X SPH 0046
TXI PR1,4,-1 X SPH 0047
TXI PR2,4,1 X SPH 0048
TXI PR1,4,-1 X SPH 0049
PR1 SXD CI6,4 STORE END TEST SFH 0050
SXD CI8,4 X SPH 0051
SXD PR8,4 X SPH 0052
SXD WP4,4 X SPH 0053
LXD PR6,4 X SPH 0054
PR8 TNX PR5,4 SPH 0055
TXL PR3,4,12 SPH 0056
SPR 8 FIRST CYCLE SPH 0057
PR3 LXD PR6,4 INITIALIZE GROUP COUNT SPH 0058
PR5 LXA PR7,2 INITIALIZE LEFT SETUP SPH 0059
LXD YZ1,1 CLEAR CARD IMAGE SPH 0060
PR7 PXD X SPH 0061
PR4 SLW LT,1 X SPH 0062
SLW RT,1 X SPH 0063
TIX PR4,1,1 X SPH 0064
CIR CAL COL1 INITIALIZE COLUMN INDICATOR SPH 0065
CI2 SLW COL X SPH 0066
CI9 LDQ 0,4 OBTAIN GROUP SPH 0067
SXD OZ2,4 STORE GROUP COUNT SPH 0068
LXA Q6,4 SET CHARACTER COUNT SPH 0069
CI1 PXD LMT SPH 0070
Q6 LGL 6 SPH 0071
1ST PAX 0,1 SPH 0072
CAL COL POSITION COLUMN INDICATOR SPH 0073
ARS 6,4 X SPH 0074
TIX YZ1,1,16 TEST FOR DIGIT SPH 0075
TXH YZ2,1,15 TEST FOR Y-ZONE SPH 0076
CI5 ORS D,3 STORE DIGIT SPH 0077
CI4 TIX CI1,4,1 COUNT CHARACTERS SPH 0078
CI3 ARS 1 SHIFT AND TEST COLUMN SPH 0079
LXD OZ2,4 RESTORE GROUP COUNT SPH 0080
TXI CI6,4,-1 COUNT GROUPS SPH 0081
CI6 TXL CI7,4 TEST FOR LAST NON-BLANK GROUP SPH 0082
TNZ CI2 TEST FOR END OF ROW SPH 0083
CI7 CAL 8.3,2 FORM TRUE 8.4 SPH 0084
ORS D-8,2 AND 3 ROWS AND SPH 0085
ORS D-3,2 MOVE 8.4 AND 8.3 SPH 0086
SLW 8.2,2 ROWS SPH 0087
CAL 8.4,2 FORM TRUE 8.4 SPH 0088
ORS D-8,2 X SPH 0089
ORS D-4,2 X SPH 0090
SLW 8.3,2 X SPH 0091
CI8 TXL WP,4 TEST FOR END SPH 0092
TXH WP,2,15 TEST FOR RIGHT HALF SPH 0093
TXI CIR,2,16 INITIALIZE RIGHT HALF SPH 0094
YZ1 TIX XZ1,1,16 TEST FOR I6/CH/32 SPH 0095
TXH XZ2,1,15 TEST FOR X-ZONE SPH 0096
ORS D,3 STORE DIGIT SPH 0097
YZ2 ORS Y,2 STORE Y-ZONE SPH 0098
TIX CI1,4,1 C0UNT CHARACTERS SPH 0099
X1 TXL CI3 OBTAIN NEXT GROUP SPH 0100
XZ1 TIX OZ1,1,16 TEST FOR 32/CH/48 SPH 0101
TXH CI4,1,15 TEST FOR BLANK SPH 0102
ORS D,3 STORE DIGIT SPH 0103
XZ2 ORS X,2 STORE X-ZONE SPH 0104
TIX CI1,4,1 COUNT CHARACTERS SPH 0105
X2 TXL CI3 OBTAIN NEXT GROUP SPH 0106
OZ1 ORS Z,2 STORE 0-ZONE SPH 0107
ORS D,3 STORE DIGIT SPH 0108
TIX CI1,4,1 COUNT CHARACTERS SPH 0109
TXL CI3 SPH 0110
WP LXD Z2,1 COPY LOOP SPH 0111
C CPY LT-12,1 CARD IMAGE COPIES SPH 0112
CPY RT-12,1 X SPH 0113
TXI T2,1,-1 SPH 0114
T2 TXH C,1,-9 TEST FOR ECHO SPH 0115
CPY LECHO-9,1 ECHO COPIES SPH 0116
CPY RECHO-9,1 X SPH 0117
TXH C,1,-12 TEST FOR END OF CARD IMAGE SPH 0118
TXH T2-1,1,-19 TEST FOR END OF ECHOS SPH 0119
LXA L2,1 SPH 0120
CL CAL LECHO+2,1 8.3 AND 8.4 ECHOS INTO SPH 0121
ORS LECHO+3 8 AND 3 AND 4 ECHO R0WS SPH 0122
ORS LECHO+9,1 X SPH 0I23
CAL RECHO+2,1 X SPH 0124
ORS RECHO+3 X SPH 0125
ORS RECHO+9,1 X SPH 0126
TIX CL,1,1 X SPH 0127
LXA L11,1 SPH 0128
T9 CAL 8.4L+11,1 LEFT ECHO CHECK SPH 0129
COM X SPH 0130
ACL LECHO+11,1 X SPH 0131
COM X SPH 0132
TNZ ERRL LEFT ECHO CHECK EPROR SPH 0133
R CAL 8.4R+11,1 RIGHT ECHO CHECK SPH 0134
COM X SPH 0135
ACL RECHO+11,1 X SPH 0136
COM X SPH 0137
TZE ERR+1 RIGHT ECHO CHECK ERROR SPH 0138
ERRL LDQ RES SET UP FOR SECOND ATTEMPT TO PRINT LINE SPH 0139
STQ 0 X SPH 0140
ERR HPR 0,4 ECHO CHECK ERROR. RESTART OR CONTINUE SPH 0141
TIX T9,1,1 CONTINUE SPH 0142
WP4 TXH WP5,4 TEST FOR SECOND CYCLE SPH 0143
LXD X1,1 NO, RELOAD INDEX REGISTERS AND RETURN SPH 0144
LXD X2,2 X SPH 0145
WT2 LXD X4,4 X SPH 0I46
L2 TRA 2,4 X SPH 0147
SP4 SPR 4 DOUBLE SPACE SPH 0148
TXL RPR+2 SPH 0149
DEL TXL FIX SPH 0150
FIX CAL MK SPH 0151
SLW 1ST SPH 0152
TIX CI1,4,1 SPH 0153
RES TRA RPT SPH 0154
WP5 RPR SELECT PRINTER AGAIN SPH 0155
SPR 9 SECOND CYCLE SPH 0156
WP2 TXL PR5,0,12 CONVERT REST OF LINE SPH 0157
BLNKS BCD 1 SPH 0158
YZONE OCT 20 SPH 0159
BNK OCT 60 SPH 0160
COL1 MZE SPH 0I61
ORG COMMON SPH 0162
COL BSS 1 SPH 0163
RT BES 16 SPH 0164
8.5 BSS 1 SPH 0165
8.4 BSS 1 SPH 0166
8.3 BSS 1 SPH 0167
8.2 BSS 1 SPH 0168
D BES 9 SPH 0169
Z BSS 1 SPH 0170
X BSS 1 SPH 0I71
Y BSS 1 SPH 0172
LT SYN Y+1 SPH 0173
8.4L SYN LT-14 SPH 0174
8.4R SYN RT-14 SPH 0175
LECHO BSS 11 SPH 0I76
RECHO BSS 11 SPH 0177
(SPH) SYN CI1 SFH 0178
END SPH 0179
ABS
REM CONTROL CARD FOR STH. STH/C01
ORG 0 STH/C02
PZE X4+1 STH/C03
PZE STH/C04
BCD 1(STH) STH/C05
PZE STH/C06
REM END OF STH CONTROL CARD. STH/C07
ORG 0 STHF2001
WOT CLA 1,4 CALCULATE ADDRESS STHF2002
ARS 18 FOR COPY INSTRUCTION STHF2003
ADD 1,4 X STHF2004
SXD X4,4 SAVE INDEX REGISTER STHF2005
(STH) PDX WOT,4 COUNT OF WORDS PER RECORD TO IR4 STHF2006
STA WT1 SUPPLY ADDRESS TO CPY INSTRUCTI0N STHF2007
WT1 CPY 0,4 COPY RECORD TO OUTPUT TAPE STHF2008
TIX WT1,4,1 X STHF2009
IOD INPUT OUTPUT DELAY STHF2010
LXD X4,4 RESTORE IR4, RETURN TO STHF2011
TRA 2,4 MAIN PROGRAM STHF2012
X4 HTR 1 STORAGE FOR INDEX REGISTER 4 STHF2013
END STHF2014
ABS LRT/CO0
REM CONTROL CARD FOR LRT. LRT/C01
ORG LRT/C02
PZE BT+1 LRT/C03
PZE LRT/C04
BCD 1(LEV) LRT/C05
PZE (LEV) LRT/C06
BCD 1(RTN) LRT/C07
PZE (RTN) , LRT/C08
REM END OF LRT CONTROL CARD. LRT/C09
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
REM
ORG LRT/C
REM (LEV)/ CALLER=MAIN PROGRAM. LRT/001
REM (LEV) SAVES ALL INDICATORS BEFORE I/O TRANSMISSION. LRT/002
(LEV) ADD L(2) SET UP FOR RETURN LRT/003
STA BAK TO CONTROL LOOP. LRT/004
RTT MAKE CERTAIN REDUNDANCY LRT/005
NOP INDICATOR IS TURNED OFF. LRT/006
STA RT SAVE FOR 2ND TRY, IF NECESSARY= LRT/007
SXD ERX1,1 STARTING LOCATION, AND THE LRT/008
SXD ERX2,2 CONTENTS OF XR1, XR2, LRT/009
SXD ERX4,4 AND XR4. LRT/010
CAL 0 ALSO SAVE THE LRT/011
SLW C(0) CONTENTS OF LOCATION 0, LRT/012
CAL 1 AND THE LRT/013
SLW C(1) CONTENTS OF LOCATION 1. LRT/014
CAL TON SET UP FOR LRT/015
SLW 1 PREVIOUS TRAP LRT/016
CLA LTM IMDE CONDITION. LRT/017
ERX1 TXI SET,0,** IF IN TRAPPING MODE, THEN LRT/018
TON TTR CHS INSTRUCTION EXECUTED IN LOCATION 1.LRT/019
CHS CHS CHANGE LTM TO ETM, AND LRT/020
SET STO RTM SET RTM TO RESTORE TRAPPING COND. LRT/021
LTM LTM LEAVE TRAPPING MODE, AND LRT/022
CLA NOP THEN LRT/023
TOV TOV SETAC RETAIN PREVIOUS LRT/024
CLA TOV AC OVERFLOW CONDITION LRT/025
SETAC STD AVR IN AVR. LRT/026
CLA NOP THEN LRT/027
TQO TQO SETMQ RETAIN PREVIOUS LRT/028
CLA TQO MQ OVERFLOW CONDITION LRT/029
SETMQ STD QVR IN OVR. LRT/030
CLA DCT THEN LRT/031
DCT DCT RETAIN PREVIOUS LRT/032
CLA NOP DIVIDE CHECK CONDITION LRT/033
STO DCR IN DCR. LRT/034
BAK TTR ** * EXIT TO MAIN PROGRAM. LRT/035
REM END OF PROGRAM (LEV). LRT/036
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *LRT/037
REM LRT/038
REM (RTNI/ CALLERS=MAIN PROGRAM,(FIL). LRT/039
REM (RTN) RESTORES ALL INDICATORS AFTER I/O TRANSMISSION. LRT/040
(RTN) LTM LEAVE TRAPPING MODE, AND LRT/041
ADD L(2) SET UP FOR RETURN LRT/042
STA RET TO CONTROL LO0P. LRT/043
IOD INPUT-OUTPUT DELAY. LRT/044
RTT IF BINARY TAPE READING WAS NOT LRT/045
ERX2 TXI TRY,0,** CORRECT, THEN TRY AGAIN. LRT/046
GOOD CAL TXLOP OTHERWISE, CONTINUE. LRT/047
STP TRY SET TRY TO TRANSFER CASE. LRT/048
REM RES = ENTRY POINT USED BY (FIL). LRT/049
RES CAL C(0) RESTORE LRT/050
SLW 0 THE C(0). LRT/051
CAL C(1) RESTORE LRT/052
SLW 1 THE C(1). LRT/053
IOD INPUT-OUTPUT DELAY. LRT/054
LDQ MAX FORCE ALL TEST LRT/055
FMP MAX CONDITIONS ON, AND THEN LRT/056
AVR PZE QVR,,** RESTORE ORIGINAL AC OV CONDITION. LRT/057
QVR PZE NXT,,** RESTORE ORIGINAL MQ OV CONDITION. LRT/058
NXT DVP ZER AND THEN LRT/059
DCR PZE ** RESTORE ORIGINAL DIVIDE CHECK COND.LRT/060
NOP NOP AND THEN LRT/061
RTM PZE ** RESTORE ORIGINAL TRAP MODE COND. LRT/062
RET TTR ** * EXIT TO MAIN PROGRAM. LRT/063
TRY TXL TRY1,0 OPSWITCH (TXL=TRA, TXH=NOP). LRT/064
HPR 7,7 HALT AFTER 2ND FAILURE. LRT/065
TXLOP TXL GOOD,0 PRESS START TO ACCEPT RECORD. LRT/066
TRY1 CLA TXLOP SET TRY TO NO TRANSFER CASE LRT/067
STP TRY FOR 2ND ATTEMPT AT READING RECORD. LRT/068
LXA ZER,1 SET XR1 = 0, AND LRT/069
RT LDQ **,1 OBTAIN RTB LOCATION. LRT/070
PXD ,0 OBTAIN OPERATION LST/071
LGL 12 BITS, AND TEST LRT/072
SUB BT FOR LOCATION RTB. LRT/073
TZE CONT IF NOT, THEN ADJUST THE LRT/074
TXI RT,1,-1 C(XR1), AND CONTINUE SEARCH. LRT/075
CONT LGL 24 WHEN FOUND, SET LRT/076
STA BST CURRENT TAPE ADDRESS. LRT/077
BST BST ** BACKSPACE CURRENT TAPE. LRT/078
LXD ERX1,1 RESTORE THE LRT/079
LXD ERX2,2 ORIGINAL CONTENTS 0F LRT/080
LXD ERX4,4 XR1,XR2, AND XR4. LRT/081
ERX4 TXI BAK,0,** * EXIT TO MAIN PROGRAM FOR 2ND TRY. LRT/082
REM END OF PROGRAM (RTN). LRT/083
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *LRT/084
REM LRT/085
REM CONSTANTS AND WORKING STORAGE USED BY LEV/RTN/FIL/BDC. LRT/086
C(0) PZE ** VARIABLE USED BY LEV/RTN/FIL/BDC. LRT/087
C(1) PZE ** VARIABLE USED BY LEV/RTN/FIL/BDC. LRT/088
L(2) PZE 2 CONSTANT USED BY LEV/RTN/FIL/BDC. LRT/089
MAX OCT 377777777777 CONSTANT USED BY LEV/RTN/FIL/BDC. LRT/090
ZER PZE 0 CONSTANT USED BY LEV/RTN/FIL/BDC. LRT/091
BT OCT 000000000762 CONSTANT USED BY LEV/RTN/FIL/BDC. LRT/092
REM END OF CONSTANTS AND WORKING STORAGE USED BY LEV/RTN. LRT/093
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *LRT/094
REM LRT/095
END LRT/096
ABS
REM CONTROL CARD FOR EXP(1 XP1/C01
ORG 0 XP1/C02
PZE EXP+1 XP1/C03
PZE FACTOR XP1/C04
BCD 1EXP(1 XP1/C05
PZE XP1/C06
REM END OF EXP(1 CONTROL CARD. XP1/C07
ORG 0 EXP10001
REM EXPONENTIATION SUBROUTINE EXP10002
REM FIXED POINT BASE, FIXED POINT EXPONENT EXP10003
EXP(1 TZE 1,4 EXIT FOR ZERO BASE EXP10004
ARS 18 EXP10005
STO POWER SAVE BASE EXP10006
LLS 17 EXP10007
STA EXP EXP10008
CLA EXP EXP10009
TNZ ENZ EXP10010
LDQ FIXONE EXP10011
TRA EXIT EXP10012
ENZ CLA FIXONE EXP10013
SBM POWER EXP10014
TZE N EXP10015
TQP N EXP10016
TRA EXIT EXP10017
N CLA FIXONE EXP10018
STO FACTOR X EXP10019
CLA1 CLA EXP IS POWER EXP10020
LBT A FACTOR EXP10021
TRA CLA2 NO EXP10022
LDQ POWER YEB EXP10023
MPY FACTOR EXP10024
STQ FACTOR EXP10025
CLA2 CLA EXP EXP10026
ARS 1 EXP10027
STO EXP EXP10028
TZE EXIT EXP10029
LDQ POWER COMPUTE EXP10030
MPY POWER NEXT EXP10031
STQ POWER POWER EXP10032
TRA CLA1 EXP10033
EXIT LLS 53 EXP10034
TRA 1,4 EXP10035
REM WORKING STORAGE EXP10036
FIXONE DEC 1 EXP10037
EXP EXP1003B
POWER SYN -1 EXP10039
FACTOR SYN -2 EXP10040
END EXP10041
ABS
REM CONTROL CARD FOR EXP(2 XP2/C01
ORG 0 XP2/C02
PZE EXP+1 XP2/C03
PZE FACTOR XP2/C04
BCD 1EXP(2 XP2/C05
PZE XP2/C06
REM END OF EXP(2 CONTROL CARD. XP2/C07
ORG 0 EXP20001
REM EXPONENTIATION SUBROUTINE EXP20002
REM FLOATING POINT BASE, FIXED POINT EXPONENT EXP20003
EXP(2 TZE 1,4 EXIT FOR ZERO BASE EXP20004
SXD SAVEX,2 EXP20005
TQP MQPOS EXP20006
LXD NEGONE,2 SET NEGATIVE MQ INDICATOR EXP20007
NEGONE TXL MQPOS+1,0,-1 EXP20008
MQPOS LXD TXL,2 SET POSITIVE MQ INDICATOR EXP20009
STO POWER INITIALIZATION EXP20010
PXD EXP20011
LLS 17 X EXP20012
STA EXP X EXP20013
CLA EXP EXP20014
TNZ N EXP20015
CLA FLOONE EXP20016
TRA EXIT EXP20017
N CLA FLOONE X EXPZ0018
STO FACTOR X EXP20019
CLA1 CLA EXP IS POWER EXP20020
LBT A FACTOR EXP20021
SAVEX TXL CLA2 NO EXP20022
LDQ POWER YES EXP20023
FMP FACTOR EXP20024
STO FACTOR EXP20025
CLA2 CLA EXP EXP20026
ARS 1 EXP20027
STO EXP EXP20028
TZE TXL-1 EXP20029
LDQ POWER EXP20030
FMP POWER EXP20031
STO POWER EXP20032
TRA CLA1 EXP20033
CLA FACTOR EXP20034
TXL TXL EXIT,2 EXP20035
CLA FLOONE EXP20036
FDH FACTOR EXP20037
PXD EXP20038
LLS 35 EXPZ00S9
EXIT LXD SAVEX,2 EXP20040
REM WORKING STORAGE EXP20041
TRA 1,4 EXP20042
FLOONE DEC 1.0 EXP20043
EXP EXP20044
POWER SYN -1 EXP20045
FACTOR SYN -2
END EXP20047
ABS
REM CONTROL CARD FOR EXP(3 XP3/C01
ORG 0 XP3/C02
113 XP3/C03
-8 XP3/C04
BCD 1EXP(3 XP3/C05
PZE XP3/C06
BCD 1EXP XP3/C07
MZE 8 XP3/C08
BCD 1LOG XP3/C09
MZE 71 XP3/C10
REM END OF EXP(3 CONTROL CARD. XP3/C11
ORG 0 EXP30001
REM EXPONENTIATION SUBROUTINE EXP30002
REM FL0ATING POINT BASE, FLOATING POINT EXPONENT EXP30003
EXP(3 TZE 1,4 BASE ZERO EXP30004
SSP EXP30005
SXD TXL,4 EXP30006
STQ EXP1 EXP30007
TSX LOG,4 EXP30008
LRS 35 EXP30009
FMP EXP1 EXP30010
TSX EXP,4 EXP30011
LXD LXD TXL,4 EXP30012
TRA 1,4 EXP30013
REM LAS816 EXPONENTIAL SUBROUTINE EXP30014
S816EX STO COMMON+00000,0,00000 EXP30015
SSP 00000,0,00000 EXP30016
SUB S816EX+00055,0,00000 EXP30017
LRS 00000,0,00000 EXP30018
PXD 00000,0,00000 EXP30019
TQP S816EX+00051,0,00000 EXP30020
ADM COMMON+00000,0,00000 EXP30021
LDQ S816EX+00062,0,00000 EXP30022
SUB S816EX+00061,0,00000 EXP30023
TMI S816EX+00017,0,00000 EXP30024
LRS 00027,0,00000 EXP30025
STA S816EX+00013,0,00000 EXP30026
PXD 00000,0,00000 EXP30027
LLS 00000,0,00000 EXP30028
DVH S816EX+00056,0,00000 EXP30029
ARS 00008,0,00000 EXP30030
RQL 00027,0,00000 EXP30031
ADD S816EX+00061,0,00000 EXP30032
STQ COMMON+00001,0,00000 EXP30033
FAD S816EX+00061,0,00000 EXP30034
STO COMMON+00002,0,00000 EXP30035
LDQ COMMON+00002,0,00000 EXP30036
FMP COMMON+00002,0,00000 EXP30037
STO COMMON+00003,0,00000 EXP30038
FAD S816EX+00057,0,00000 EXP30039
STO COMMON+00004,0,00000 EXP30040
CLA S816EX+00058,0,00000 EXP30041
FDH COMMON+00004,0,00000 EXP30042
STQ COMMON+00004,0,00000 EXP30043
CLA S816EX+00059,0,00000 EXP30044
FAD COMMON+00004,0,00000 EXP30045
STO COMMON+00004,0,00000 EXP30046
LDQ COMMON+00004,0,00000 EXP30047
FMP COMMON+00003,0,00000 EXP30048
FAD S816EX+00060,0,00000 EXP30049
STO COMMON+00003,0,00000 EXP30050
FSB COMMON+00002,0,00000 EXP30051
STO COMMON+00004,0,00000 EXP30052
CLA COMMON+00003,0,00000 EXP30053
FAD COMMON+00002,0,00000 EXP30054
ADD COMMON+00001,0,00000 EXP30055
STO COMMON+00003,0,00000 EXP30056
LDQ COMMON+00000,0,00000 EXP30057
TQP S816EX+00047,0,00000 EXP30058
CLA COMMON+00004,0,00000 EXP30059
LDQ COMMON+00003,0,00000 EXP30060
STQ COMMON+00004,0,00000 EXP30061
FDH COMMON+00004,0,00000 EXP30062
STQ COMMON+00000,0,00000 EXP30063
CLA COMMON+00000,0,00000 EXP30064
TRA 00001,4,00000 EXP30065
LDQ COMMON+00000,0,00000 EXP30066
TLQ 00001,4,00000 EXP30067
COM 00000,0,00000 EXP30068
TRA 00001,4,00000 EXP30069
DEC 8.73000000000E01 EXP30070
OCT 261344137676 EXP30071
DEC 4.20000000000E01 EXP30072
DEC 4.90000000000E00 EXP30073
DEC 5.00000000000E-02 EXP30074
DEC 2.00000000000E00 EXP30075
OCT 200000000000 EXP30076
OCT 000000000000 EXP30077
REM LA S820 NATURAL LOGARITHM SUBROUTINE EXP30078
LAS820 TZE 00001,4,00000 EXP30079
SSP EXP30080
LRS 00027,0,00000 EXP30081
STQ COMMON+00000,0,00000 EXP30082
ALS 00019,0,00000 EXP30083
ORA LAS820+00030,0,00000 EXP30084
FSB LAS820+00031,0,00000 EXP30085
STO COMMON+00001,0,00000 EXP30086
CLA COMMON+00000,0,00000 EXP30087
LRS 00008,0,00000 EXP30088
ORA LAS820+00032,0,00000 EXP30089
FAD LAS820+00033,0,00000 EXP30090
STO COMMON+00000,0,00000 EXP30091
FSB LAS820+00034,0,00000 EXP30092
FDH COMMON+00000,0,00000 EXP30093
STQ COMMON+00000,0,00000 EXP30094
FMP COMMON+00000,0,00000 EXP30095
STO COMMON+00002,0,00000 EXP30096
LDQ LAS820+00037,0,00000 EXP30097
FMP COMMON+00002,0,00000 EXP30098
FAD LAS820+00036,0,00000 EXP30099
LRS 00035,0,00000 EXP30100
FMP COMMON+00002,0,00000 EXP30101
FAD LAS820+00035,0,00000 EXP30102
LRS 00035,0,00000 EXP30103
FMP COMMON+00000,0,00000 EXP30104
FAD COMMON+00001,0,00000 EXP30105
LRS 00035,0,00000 EXP30106
FMP LAS820+00038,0,00000 EXP30107
TRA 00001,4,00000 EXP30108
OCT 210000000000 EXP30109
DEC 1.28500000000E02 EXP30110
OCT 200000000000 EXP30111
DEC 7.07106781187E-01 EXP30112
DEC 1.41421356237E00 EXP30113
DEC 2.88539129030E00 EXP30114
DEC 9.61470632300E-01 EXP30115
DEC 5.98978649600E-01 EXP30116
DEC 6.93147180560E-01 EXP30117
COMMON SYN -5 EXP30118
EXP1 SYN -6 EXP30119
BASE SYN -7 EXP30120
TXL SYN -8 EXP30I21
LOG SYN LAS820 EXP30I22
EXP SYN S816EX EXP30I23
END EXP30124
ABS
REM CONTROL CARD FOR LOG. LOG/CO1
ORG 0 LOG/C02
42 LOG/C03
PZE COMMON LOG/C04
BCD 1LOG LOG/C05
PZE LOG/C06
REM END OF LOG CONTROL CARD LOG/C07
ORG LOG 0002
REM LAS820 NATURAL LOGARITHM SUBROUTINE LOG 0003
LAS820 TZE 00001,4,00000 LOG 0004
SSP LOG 0005
LRS 00027,0,00000 LOG 0006
STQ COMMON+00000,0,00000 LOG 0007
ALS 00019,0,00000 LOG 0008
ORA LAS820+00030,0,00000 LOG 0009
FSB LAS820+00031,0,00000 LOG 0010
STO COMMON+00001,0,00000 LOG 0011
CLA COMMON+00000,0,00000 LOG 0012
LRS 00008,0,00000 LOG 0013
ORA LAS820+00032,0,00000 LOG 0014
FAD LAS820+00033,0,00000 LOG 0015
STO COMMON+00000,0,00000 LOG 0016
FSB LAS820+00034,0,00000 LOG 0017
FDH COMMON+00000,0,00000 LOG 0018
STQ COMMON+00000,0,00000 LOG 0019
FMP COMMON+00000,0,00000 LOG 0020
STO COMMON+00002,0,00000 LOG 0021
LDQ LAS820+00037,0,00000 LOG 0022
FMP COMMON+00002,0,00000 LOG 0023
FAD LAS820+00036,0,00000 LOG 0024
LRS 00035,0,00000 LOG 0025
FMP COMMON+00002,0,00000 LOG 0026
FAD LAS820+00035,0,00000 LOG 0027
LRS 00035,0,00000 LOG 0028
FMP COMMON+00000,0,00000 LOG 0029
FAD COMMON+00001,0,00000 LOG 0030
LRS 00035,0,00000 LOG 0031
FMP LAS820+00038,0,00000 LOG 0032
TRA 00001,4,00000 LOG 0033
OCT 210000000000 LOG 0034
DEC 1.28500000000E02 LOG 0035
OCT 200000000000 LOG 0036
DEC 7.07106781187E-01 LOG 0037
DEC 1.41421356237E00 LOG 0038
DEC 2.88539129030E00 LOG 0039
DEC 9.61470632300E-01 LOG 0040
DEC 5.98978649600E-01 LOG 0041
DEC 6.93147180560E-01 LOG 0042
COMMON SYN -3 LOG 0043
END LOG 0044
REL F2SIN00I
ORG 0 F2SIN002
REM FORTRAN LIBRARY VERSION OF IB SIN 1 F2SIN003
REM COMPUTES SINE OR COSINE OF A SINGLE PRECISION NORMALIZED F2SIN004
REM FLOATING POINT ARGUMENT. TSX SIN OR TSX COS . REL. ERROR F2SIN005
REM LESS THAN 1/2 X 10 TO -8. TIMING ABOUT 2.03 SIN, 2.I1 C0S. F2SIN006
COS FSB FPHLF F2SIN007
CHS F2SIN008
SIN STO SPMLT F2SIN009
LRS 9 F2SIN010
SXD SAVE,1 F2SIN011
PDX 0,1 F2SIN012
OVTST TNO NOVFL OVERFLOW TEST F2SIN013
SXD INDIC,4 OVERFLOW TO BE RESTORED F2SIN014
TXH ERR,1,164 F2SIN015
LLS 19 F2SIN016
TXL SPEC,1,130 F2SIN017
LRTSH LRS 168,1 B3 F2SIN018
DVH PI PI...B3, BQ...35 F2SIN019
RQL 35 LAST BIT TO SIGN MQ F2SIN020
TQP FRLAR F2SIN021
CHS F2SIN022
STO SPMLT F2SIN023
SAVE TXL FRLAR,0,** F2SIN024
ERR TRA FINI-1 F2SIN025
EQUA SUB PIHLF F2SIN026
SLW REDA F2SIN027
SX TXI COMCA,1,2 COSC, XR...4 F2SIN028
REM SPECIAL CASE, ANGLE NEED NOT BE REDUCED F2SIN029
SPEC TXL LOW,1,114 F2SIN030
PBT F2SIN031
TRA SPEC+4 F2SIN032
TXH LRTSH,1,129 F2SIN033
LRS 133,1 B3 F2SIN034
SSP FZSIN035
LDQ TEST F2SIN036
TLQ FRLAR+1 F2SIN037
STO REDA F2SIN038
LXD SX,1 F2SIN039
TRA COMCA F2SIN040
FRLAR SSP F2SIN041
LXD SX,1 F2SIN042
CAS PIHLF F2SIN043
SUB PI LARGER THAN PIHLF F2SIN044
SSP EQUAL TO PIHLF F2SIN045
LDQ TEST F2SIN046
TLQ EQUA F2SIN047
STO REDA ANGLE IN FIRSF QUADRANT, B3 F2SIN048
FLOAT LRS 4 F2SIN049
ADD CHAR F2SIN050
FAD CHAR+1 200 F2SIN05I
LDQ SPMLT F2SIN052
LLS 0 F2SIN053
STO SPMLT F2SIN054
REM COMMON CALCULATION FOR SIN AND COS F2SIN055
COMCA LDQ Z COMMON CALC., B3 F2SIN056
MPR Z F2SIN057
STO ZSQ B6 F2SIN058
ADD CONST+4,1 24.1B6, 50. B6 F2SIN059
STO SOR F2SIN060
CLA CONST+5,1 2287B13, 1042B11 F2SIN061
DVH SOR F2SIN062
STQ SOR F2SIN063
CLA SOR F2SIN064
ADD CONST+8,1 82.5B7, -19.B5 F2SIN065
ALS 1 B6, BITS IN P,Q F2SIN066
ADD ZSQ F2SIN067
ARS 6,1 B8 F2SIN068
TXL S,1,2 F2SIN069
STO SOR F2SIN070
CLA ZSQ F2SIN071
LRS 2 F2SIN072
ADD ZSQ F2SIN073
LLS 1 F2SIN074
ADD CONST+5 -3276B13 F2SIN075
DVH SOR F2SIN076
STQ SOR F2SIN077
CLA SOR F2SIN078
ADD CONST+7 19.477B5 F2SIN079
LRS 2 F2SIN080
SUB ZSQ F2SIN081
LDQ SPMLT F2SIN082
LLS 8 F2SIN083
PBT F2SIN084
TXI RTSH,1,1 XR...5 FOR OCOS F2SIN085
RTSH ARS 13,1 9 OR 8 F2SIN086
ACL CHAR+5,1 127 OR 128 F2SIN087
LXD SAVE,1 F2SIN088
FINI TXH FINI+2,4,.. F2SIN089
TRA 1,4 LEAVE ON F2SIN090
TOV FINI+1 TURN OFF F2SIN091
S ADD CHAR+1 126 F2SIN092
STO ZSQ F2SIN093
LDQ ZSQ F2SIN094
FMP SPMLT F2SIN095
TRA FINI-1 F2SIN096
LOW CLA FINI F2SIN097
ALS 9 F2SIN97A
CLA SPMLT F2SIN97B
TRA FINI-1 F2SIN098
NOVFL SXD INDIC,0 CLEAR DECREMENT OF INDIC F2SIN099
TRA OVTST+2 F2SIN100
REM CONSTANTS F2SIN101
INDIC SYN FINI F2SIN102
PI DEC 3.14159265359B3 F2SIN103
PIHLF DEC 1.57079632679B3 F2SIN104
CHAR OCT 177000000000 F2SIN105
OCT 200000000000 F2SIN106
TEST DEC .3B3 F2SIN107
CONST DEC 24.1448946943B6,2287.443195687B13,50.0302454854B6 F2SIN108
DEC 1042.9267081438B11,82.58030199563B7,-3276.33995164B13 F2SIN109
DEC -19.8459242632B5,19.477149451B5 F2SIN110
FPHLF DEC 1.57079632679 F2SIN111
COMMON EQU -4 F2SIN112
SPMLT EQU COMMON F2SINI13
REDA EQU COMMON+1 F2SIN114
Z EQU COMMON+1 F2SIN115
SOR EQU COMMON+2 F2SIN116
ZSQ EQU COMMON+3 F2SIN117
END 0 F2SIN118
REL F2EXP001
ORG 0 F2EXP002
REM FLOATING POINT EXPONENTIAL SUBROUTINE, FORTRAN VERSION F2EXP003
EXP STO M STORE ARGUMENT F2EXP004
LDQ MAX TEST IF 0UT OF RANGE F2EXP005
TLQ 1,4 IF TOO LARGE ERROR RETURN F2EXP006
CHS F2E6P007
TLQ T1 IF TOO SMALL RETURN WITH ZERO F2LXP008
LRS 27 F2EXP009
SSM F2EXP010
ADD CHAR CONVERT TO FIXED POINT F2EXP011
STA SH1 F2EXP012
MPY LOGE X TIMES LOG E BASE 2 F2EXP013
SH1 LRS SEPARATE INTEGER AND FRACTION F2EXP014
ALS 27 F2EXP015
STO M F2EXP016
LRS 4 F2EXP017
STQ F F2EXP018
MPY F COMPUTE FRACTION SQUARED F2EXP019
STO SQ COMPUTE CONTINUED FRACTION F2EXP020
ADD A 8,27 SCALING F2EXP021
STO T 8,27 F2EXP022
CLA B 12,23 F2EXP023
DVP T 8,27 4,31 F2EXP024
STQ T 4,31 F2EXP025
LDQ SQ 8,27 F2EXP026
MPY C 0,35 8,27 FZEXP027
LLS 4 4,31 F2EXP028
SUB T 4,3I F2EXP029
ADD D 4,3I F2EXP030
SUB F 4,3I F2EXP031
STO T 4,3I F2EXP032
CLA F 5,3I NUMERATOR EOUALS 2F F2EXP033
DVP T 4,31 1,34 F2EXP034
STQ T F2EXP035
CLA T F2EXP036
LRS 8 F2EXP037
ORA CH1
FAD CH
T1 ADD M F2EXP039
TRA 1,4 RETURN1 FZEXP040
REM OONSTANTS F2EXP041
MAX DEC 88.028 F2EXP042
LOGE DEC -1.4426950409B1 F2EXP043
CHAR OCT 242 F2EXP044
CH OCT 201400000000 F2EXP045
CH1 OCT 201000000000
A DEC 87.417497202B8 F2EXP046
B DEC 617.9722695B12 F2EXP047
C DEC .03465735903B0 F2EXP048
D DEC 9.9545957821B4 F2EXP049
REM ERASABLES F2EXP050
M EQU -1 F2EXP051
F EQU -2 F2EXP052
SQ EQU -3 F2EXP053
T EQU -4 F2EXP054
END 0 F2EXP055
ABS
REM CONTROL CARD FOR SQRT. SQRT/C01
ORG 0 SQRT/C02
PZE C+3 SQRT/C03
PZE COMMON SQRT/C04
BCD 1SQRT SQRT/C05
PZE SQRT/C06
REM END OF SQRT CONTROL CARD. SQRT/C07
ORG 0 SQRT0001
REM CL SOR3 SQUARE ROOT SUBROUTINE SQRT0002
REM FUNCTION NAME ... SQRTF SQRT0003
SQRT TZE 1,4 SQRT OF ZERO IS ZERO SQRT0004
SSP SET SIGN X PLUS SQRT0005
P2 STO COMMON X SQRT0006
ORA C MAKE POWER ODD SQRT0007
ARS 1 SQRT0008
ADD C+1 NORMALIZED Y0 IN A.C. SQRT0009
SXD C+2,4 SQRT0010
LXA C+2,4 4 TO INDEX SQRT0011
P1 STO COMMON+1 S TO RE Y0 SQRT0012
CLA COMMON 1X1 TO A.C. SQRT0013
FDH COMMON+1 1C1/YO TO A.C. SQRT0014
CLA COMMON+1 Y0 TO A.C. SQRT0015
STQ COMMON+1 Q1 TO COMMON+1 SQRT0016
FAD COMMON+1 Y0+Q1 TO A.C. SQRT0017
SUB C (Y0+Q1)/2 TO A.C. SQRT0018
TIX P1,4,1 REDUCE INDEX BY 1 SQRT0019
LXD C+2,4 SQNT0020
TRA 1,4 SQRT0021
C OCT 1000000000,100000000000,4 SQRT0022
COMMON SYN -2 SQRT0023
END SQRT0024
REL F2ATN001
ORG 0 F2ATN002
REM FL0ATING POINT ARCTANGENT SUBROUTINE, FORTRAN VERSION F2ATN003
ATAN SXD I1,1 SAVE INDEX REGISTER ONE F2ATN004
TMI T100 SET ARGU0ENT POSITIVE F2ATN005
T30 STO X STORE ARGUMENT F2ATN006
SUB MAX TEST IF OUT OF RANGE F2ATN007
TMI T21 F2ATN008
CLA PI0V2 IF TOO LARGE, RETURN WITH PI/2 F2ATN009
TRA 1,4 F2ATN010
T21 ADD MIN F2ATN011
TPL T22 F2ATN012
CLA X F2ATN013
TRA 1,4 IF TOO SMALL, RETURN WITH ARGUMENT F2ATN014
T22 LXA I1,1 F2ATN015
T17 CLA X TEST FOR INTERVAL CONTAINING X F2ATN016
SUB A,1 F2ATN017
TMI T1 F2ATN018
TXI T17,1,1 F2ATN019
T1 TXH T2,1,0 IF IN INTERVAL ONE LET Z=9X/55 F2ATN020
LDQ X F2ATN021
FMP L F2ATN022
TRA T11 F2ATN023
T2 PXD 0,1 TAKE NEGATIVE OF INDEX REGISTER ONE F2ATN024
SUB CHAR F2ATN025
PDX 0,1 F2ATN026
T3 CLA X COMPUTE Z=A-B/O+X FOR PROPER INTERVAL F2ATN027
FAD MAX,1 F2ATN028
STO T F2ATN029
CLS B,1 F2ATN030
FDP T F2ATN03I
STQ T F2ATN032
CLA T F2ATN033
FAD A,1 F2ATN034
T11 STO X F2ATN035
LDQ X F2ATN036
FMP X COMPUTE Z SQUARED F2ATN037
STO SQ COMPUTE CONTINUED FRACTION F2ATN038
FAD C1 F2ATN039
STO T F2ATN040
CLS C2 F2ATN041
FDP T F2ATN042
STQ T F2ATN043
CLA T F2ATN044
FAD C3 F2ATN045
FAD SQ F2ATN046
STO T F2ATN047
CLA X F2ATN048
FDP T F2ATN049
STQ T F2ATN050
CLA T F2ATN051
FAD N,1 ADD INTERVAL CONSTANT F2ATN052
LXD I1,1 F2ATN053
TRA 1,4 RETURN F2ATN054
T100 SXD I4,4 IF ARGUMENT NEGATIVE, SET RETURN NEGATIVE F2ATN055
SSP F2ATN056
TSX T30,4 ARRANGE TO SET RETURN NEGATIVE F2ATN057
LXD I4,4 F2ATN058
SSM F2ATN059
TRA 1,4 F2ATN060
REM CONSTANTS F2ATN061
MIN OCT 070000000000 F2ATN062
MAX OCT 233000000000 F2ATN063
DEC 2.7474774195 F2ATN064
DEC 1.1917535926 F2ATN065
DEC .57735026919 F2ATN066
A DEC .17632698071 F2ATN067
DEC .44958721409 F2ATN068
DEC .19501422424 F2ATN069
DEC .94475498595E-1 F2ATN070
B DEC .288535059E-1 F2ATN071
DEC 1.398867082 F2ATN072
DEC .39604526598 F2ATN073
DEC .21818181818 F2ATN074
DEC .1687240152 F2ATN075
N DEC 0 F2ATN076
DEC .3490658504 F2ATN077
DEC .6981317008 F2ATN078
DEC 1.047197551 F2ATN079
DEC 1.396263402 F2ATN080
C1 DEC .051119459 F2ATN081
C2 DEC .00270998425 F2ATN082
C3 DEC .21664913599 F2ATN083
L DEC .16363636363 F2ATN084
PI0V2 DEC 1.57079633 F2ATN085
I1 F2ATN086
I4 F2ATN087
CHAR OCT 200000000000 F2ATN088
REM ERASABLES F2ATN089
X EQU -1 F2ATN090
T EQU -2 F2ATN091
SQ EQU -3 F2ATN092
END 0 F2ATN093
REL F2TNH001
ORG 0 F2TNH002
REM FLOATING POINT HYPERBOLIC TANGENT SUBROUTINE, FORTRAN VERSIONF2TNH003
TANH STO F F2TNH004
SSP F2TNH005
SUB MIN F2TNH006
TPL T5 F2TNH007
CLA F TEST IF ARGUMENT LESS THAN .00034 F2TNH008
TRA 1,4 IF SO LET TANH X EOUAL X F2TNH009
T5 SUB MAX TEST IF ARGUMENT LARGER THAN 12 F2TNH010
TMI T6 F2TNH011
CLA CH IF SO LET TANH X EQUAL ONE F2TNH012
TRA 1,4 F2TNH013
T6 CLA F F2TNH014
LRS 27 F2TNH015
SSM F2TNH016
ADD CHAR CONVERT T0 FIXED POINT F2TNH017
STA SH1 F2TNH018
MPY LOGE X TIMES LOG E BASE 2 F2TNH019
SH1 LRS SEPARATE INTEGER AND FRACTION F2TNH020
ALS 27 F2TNH021
STO M F2TNH022
LLS 2 F2TNH023
TZE T2 IF ARGUMENT LESS THAN .25 TRANSFER F2TNH024
LRS 6 IF GREATER COMPUTE E TO THE X F2TNH025
STQ F F2TNH026
MPY F COMPUTE FRACTION SQUARED F2TNH027
STO SQ COMPUTE CONTINUED FRACTION F2TNH028
ADD A 8,27 SCALING F2TNH029
STO T 8,27 F2TNH030
CLA B 12,23 F2TNH031
DVP T 8,27 4,31 F2TNH032
STQ T 4,3I F2TNH033
LDQ SQ 8,27 F2TNH034
MPY C 00,35 8,27 F2TNH035
LLS 4 4,31 F2TNH036
SUB T 4,31 F2TNH037
ADD D 4,31 F2TNH038
SUB F 4,31 F2TNH039
STO T 4,31 F2TNH040
CLA F 5,31 NUMERATOR EQUALS 2F F2TNH041
DVP T F2TNH042
STQ T F2TNH043
CLA T F2TNH044
LRS 8 F2TNH045
ADD CH ADD ONE ANO CONVERT TO FLOATING POINT F2TNH046
T1 ADD M F2TNH047
STO M COMPUTE TANH X FROM E TO THE X F2TNH048
CLA CH F2TNH049
FDP M F2TNH050
STQ F F2TNH051
CLA M F2TNH052
FAD F F2TNH053
STO T F2TNH054
CLA M F2TNH055
FSB F F2TNH056
T10 FDP T F2TNH057
STQ T F2TNH058
CLA T F2TNH059
TRA 1,4 RETURN F2TNH060
T2 LDQ F COMPUTE TANH 4LOGE IF X SMALL F2TNH061
FMP 4LOGE COMPUTE X TIMES 4LOGE F2TNH062
STO F F2TNH063
LDQ F F2TNH064
FMP F F2TNH065
STO SQ F2TNH066
FAD D1 COMPUTE CONTINUED FRACTION F2TNH067
STO T F2TNH068
CLA C1 F2TNH069
FDP T F2TNH070
STQ T F2TNH071
CLA T F2TNH072
FAD B1 F2TNH073
LRS 35 F2TNH074
FMP SQ F2TNH075
FAD 4LOGE F2TNH076
STO T F2TNH077
CLA F F2TNH078
TRA T10 F2TNH079
REM CONSTANTS F2TNH080
MAX OCT 017000000000 F2TNH081
MIN DEC .00034 F2TNH082
LOGE DEC 1.4426950409B1 F2TNH083
CHAR OCT 242 F2TNH084
CH OCT 201400000000 F2TNH085
A DEC 87.417497202B8 F2TNH086
B DEC 617.9722695B12 F2TNH087
C DEC .03465735903B0 F2TNH088
D DEC 9.9545957821B4 F2TNH089
B1 DEC .01732867951 F2TNH090
C1 DEC 14.1384114018 F2TNH091
D1 DEC 349.6699888 F2TNH092
4LOGE DEC 5.7707801636 F2TNH093
REM ERASABLES F2TNH094
M EQU -1 F2TNH095
F EQU -2 F2TNH096
SQ EQU -3 F2TNH097
T EQU -4 F2TNH098
END 0 F2TNH099
REM FNEDT2 REVISED FORTRAN EDITING PROGRAM EDT 0001
REM EDT 0002
ORG 32 EDT 0003
REW 1 REWIND EDT 0004
REW 5 TAPES EDT 0005
CAL IDEOF INITIALISE THIS CARD EDT 0006
SLW THISCD TO END FILE EDT 0007
TSX ONE2CS,4 TSX TO TRANSCRIBE SPECIAL FIRST RCD EDT 0008
REENTR CAL THISCD MAIN LOOP REENTRY EDT 0009
ALS 3 MOVE THIS CARD EDT 0010
SLW LASTCD INTO LAST CARD EDT 0011
RCD READ EDT 0012
LXD ZERO14,1 THE NEXT CARD EDT 0013
A1 CPY CDBUF,1 INTO EDT 0014
TXI A1,1,-1 CARD BUFFER EDT 0015
A2 HTR A2 FALSE END OF FILE IN READING CARD EDT 0016
CAL CDBUF TEST EDT 0017
COM EDT 0018
STD A4 EDT 0019
CAL CDBUF CHECK EDT 0020
LXD ZERO14,1 EDT 0021
A3 TXI A4,1,-1 EDT 0022
A4 TXL A5,1,* SUM EDT 0023
ACL CDBUF+1,1 EDT 0024
TRA A3 EDT 0025
A5 COM EDT 0026
ACL CDBUF+1 EDT 0027
COM EDT 0028
TZE A6 EDT 0029
HPR CHECK SUM ERROR IN READING CARD EDT 0030
A6 CAL CDBUF SET UP EDT 0031
ARS 33 THIS CARD EDT 0032
STA THISCD AND EDT 0033
ORA LASTCD SITUATION EDT 0034
SLW SITWD WORD EDT 0035
LXA ZERO14,1 TABLE SEARCH EDT 0036
A7 CAL TABLE+14,1 EDT 0037
LRS 18 FOR EDT 0038
CAS SITWD EDT 0039
TRA A8 SITUATION EDT 0040
TRA A9 EDT 0041
A8 TIX A7,1,1 EDT 0042
ILLEGL HTR ILLEGL SEARCH FAILED. ILLEGAL SITUATION. EDT 0043
A9 LLS 18 EDT 0044
STA A10 EDT 0045
A10 TRA * EDT 0046
REM EDT 0047
REM THERE FOLLOW THE 8 POSSIBLE SITUATION SUBROUTINES EDT 0048
REM EDT 0049
EOFEND TSX LB,4 SEQUENCE EOF-END EDT 0050
EOFMR TSX SAVE,4 SEQUENCE EOF-MR EDT 0051
TSX CLEAR,4 EDT 0052
TSX READ,4 EDT 0053
TRA REENTR E0T 0054
EOFNR TSX SAVE,4 SEQUENCE EOF-NR E0T 0055
TSX CLEAR,4 EDT 0056
TRA REENTR EDT 0057
PRGEND TSX WRITE,4 SEQUENCE PROG-END EDT 0058
TSX LB,4 MR-END EDT 0059
PRGEOF TSX WRITE,4 SEQUENCE PR0G-EOF EDT 0060
WEF 145 MR-EOF EDT 0061
TRA REENTR EDT 0062
PRGPRG TSX MOVE,4 SEQUENCE PROG-PROG EDT 0063
TRA REENTR MR-PR0G, NR-PROG EDT 0064
PRGMR TSX WRITE,4 SEQUENCE PROG-MR EDT 0065
TSX SAVE,4 MR-MR EDT 0066
TSX CLEAR,4 EDT 0067
TSX READ,4 EDT 0068
TRA REENTR EDT 0069
PRGNR TSX WRITE,4 SEQUENCE PROG-NR EDT 0070
TSX SAVE,4 MR-NR EDT 0071
TSX CLEAR,4 EDT 0072
TRA REENTR EDT 0073
TABLE EOFEND,0,39 TABLE OF SITUATIONS EDT 0074
EOFMR,0,33 EDT 0075
EOFNR,0,34 EDT 0076
PRGEND,0,7 EDT 0077
PRGEOF,0,4 EDT 0078
PRGPRG,0,0 EDT 0079
PRGMR,0,1 EDT 0080
PRGNR,0,2 EDT 0081
PRGEND,0,15 EDT 0082
PRGEOF,0,12 EDT 0083
PRGPRG,0,8 E0T 0084
PRGMR,0,9 EDT 0085
PRGNR,0,10 EDT 0086
PRGPRG,0,16 EDT 0087
ZERO14 14 EDT 0088
IDEOF 4 EDT 0089
THISCD EDT 0090
LASTCD EDT 0091
SITWD EDT 0092
CDBUF SYN 8 EDT 0093
REM THERE FOLLOW THE 7 SUBROUTINES EDT 0094
REM ONE2CS, LB, SAVE, CLEAR, READ, WRITE, MOVE EDT 0095
REM EDT 0096
ONE2CS RTT TRANSCRIBES EDT 0097
NOP SPECIAL EDT 0098
RTB 5 IST RECORD EDT 0099
LXD ZERO14,1
LXA ZEROTW,2
RCD
CS1 CPY MAINBF,1
TXI CS1,1,-1
HTR *
TIX CS1-1,2,1
LXD ZERO14,1
WTB 1
CS2 CPY MAINBF,1
TXI CS3,1,-1
CS3 TXH CS2,1,-27
IOD
TRA 1,4
ZEROTW 2
REM EDT 0124
LB RCD PRESSES LOAD CARDS BUTTON EDT 0125
CPY 0 EDT 0126
CPY 1 EDT 0127
TRA 0 EDT 0128
REM EDT 0129
SAVE CAL CDBUF+2 SAVES CONTROL INFORMATION EDT 0130
SLW EIGHTL FROM MR OR NR CARD EDT 0131
STA NEWBEG EDT 0132
CAL CDBUF+3 EDT 0133
SLW EIGHTR EDT 0134
TRA 1,4 EDT 0135
EIGHTL EDT 0136
EIGHTR EDT 0137
NEWBEG EDT 0138
REM EDT 0139
CLEAR PXD 0,0 CLEARS MAIN BUFFER EDT 0140
LXA BUFSIZ,1 EDT 0141
CL1 SLW 0,1 EDT 0142
TIX CL1,1,1 EDT 0143
TRA 1,4 EDT 0144
BUFSIZ -MAINBF EDT 0145
REM EDT 0I46
READ RTT READS RECORD EDT 0147
NOP FROM EDT 0148
RTB 5 1NSTER TAPE EDT 0149
PXD 0,0 INTO MAIN BUFFER EDT 0I50
LXD ZERO14,1 EDT 0I51
CPY CHKSUM EDT 0152
TRA RD1 EDT 0153
TRA READ EDT 0154
RD1 CAD FSTWD EDT 0155
ANA ADDMK EDT 0156
SUB NEWBEG E0T 0157
TMI RD6 E0T 0158
COM EDT 0159
RD2 PAX 0,1 EDT 0160
CAL FSTWD EDT 0161
RD3 TXL RD7,1,MAINBF-1 EDT 0162
CAD MAINBF-1,1 E0T 0163
RD4 TXI RD3,1,-1 E0T 0164
L1 HTR 1 FALSE EOF IN READING MASTER TAPE EDT 0165
RD5 RQL 255 EDT 0166
RQL 255 EDT 0167
RTT EDT 0I68
TRA RD8 EDT 0169
COM EDT 0170
ACL CHKSUM EDT 0171
COM EDT 0172
TNZ RD8 EDT 0173
TRA 1,4 EDT 0174
RD6 ADD L1 EDT 0175
TRA RD2 EDT 0176
RD7 CAD 0 EDT 0I77
TRA RD4 EDT 0I78
TRA L1 EDT 0179
TRA RD5 EDT 0180
RD8 BST 5 EDT 0181
HTR READ ERROR IN READING MASTER TAPE EDT 0182
CHKSUM EDT 0183
FSTWD EDT 0184
ADDMK -1 EDT 0185
REM EDT 0186
WRITE CLA EIGHTR WRITES RECORD FROM MAIN BUFFER EDT 0187
SUB NEWBEG INTO SECONDARY TAPE EDT 0188
TMI 1,4 EDT 0189
ALS 18 EDT 0190
COM EDT 0191
STD WR2 EDT 0192
STD WR4 EDT 0193
LXD ZERO14,3 EDT 0194
CAL EIGHTL EDT 0195
WR1 ACL MAINBF,1 EDT 0196
TXI WR2,1,-1 EDT 0197
WR2 TXH WR1,1,* EDT 0198
SLW CHKSUM EDT 0199
WTB 1 EDT 0200
CPY CHKSUM EDT 0201
CPY EIGHTL EDT 0202
WR3 CPY MAINBF,2 EDT 0203
TXI WR4,2,-1 EDT 0204
WR4 TXH WR5,2,* EDT 0205
TRA 1,4 EDT 0206
WR5 TXH WR3,2,MAINBF EDT 0207
HTR 1,4 TRYING TO WRITE TOO LONG A RECORD EDT 0208
REM EDT 0209
MOVE CAL CDBUF MOVES A PROGRAM CARD FROM EDT 0210
COM THE CARD BUFFER INTO THE EDT 0211
STD MV3 CORRECT PART OF THE MAIN BUFFER EDT 0212
LXD ZERO14,1 EDT 0213
CAL CDBUF EDT 0214
ANA ADDMK EDT 0215
SUB NEWBEG EDT 0216
TMI MV5 EDT 0217
COM EDT 0218
MV1 PAX 0,2 EDT 0219
MV2 TXI MV3,1,-1 EDT 0220
MV3 TXL MV6,1,* EDT 0221
CAL CDBUF+1,1 EDT 0222
TXL MV4,2,MAINBF-1 EDT 0223
SLW MAINBF-1,2 EDT 0224
MV4 TXI MV2,2,-1 EDT 0225
MV5 ADD L1 EDT 0226
TRA MV1 EDT 0227
MV6 TRA 1,4 EDT 0228
REM EDT 0229
MAINBF MAIN BUFFER STARTS HERE EDT 0230
END 32 EDT 0231
END
START LXA L(0),3 PERMANENT LIBRARIAN ENTRY POINT
STZ ERASE
RCD RCD
CAD 9L
TRA CPY9R
TRA EXIT EOF
CPY9R CPY 9R
CLA 9L
TZE EXIT
COM
PDX 0,4
TXI CPY9R+6,4,1
TXL PASSGL,4,-64
CLA 9L
ALS 1
PBT
TRA BINARY CARD
TXI CPAREL-2,4,-2
SXD TXHREL,4
PXD
STZ ERASE
CPAREL CAD RELREG,2
TXI TXHREL,2,-1
TXHREL TXH CPAREL,2,*
TSX CHSTST,4
WTB 1
TXL TSXREL,1,0
TSX WRBIN,4
WTB 1
TSXREL TSX WRREL,4
STZ 9LB,0,STZ
STZ 9RB,0,STZ
TRA RCD
BINARY PXD
CPABIN CAD BINREG,1
TXI TXHBIN-1,1,-1
TXI TXHBIN,4,1
TXHBIN TXH CPABIN,4,0
TSX CHSTST,4
CLA 9L
ADD 9LB
STO 9LB
CLA ERASE
TZE CHER
CLA 9R
TMI CHSIGN
ACL L(1)
TRA NORM
CHSIGN SSP
NORM SLW 9R
CAL 9R
ACL 9RB
SLW 9RB
TRA RCD
CHER CLA L(1)
STO ERASE
TRA NORM+1
CHSTST ACL 9L
SLW CHS
IOD
IOD
CLA 9R
CAS CHS
HTR 1,4 CARD READING ERROR
TRA 1,4
TRA WRREL-3
WRREL CLA LIREL)
STA CPY
SXD CPY+2,2
CPY 9L
LXA L(0),2
CPY 9R
RETURN TXL XR,0
WRBIN CLA LIBIN)
STA CPY
CPY 9LB
SXD CPY+2,1
LXA L(0),1
CPY 9RB
XR SXD RETURN,4
LXA L(0),4
CPY CPY *,4
TXI CPY+2,4,-1
TXH CPY,4,*
LXD RETURN,4
IOD
IOD
TRA 1,4
EXIT RCD
CPY 0
CPY 1
TRA 0
PASSGL LXD PASSGL+3,4 BY-PASS
RCD GENERAL
TIX PASSGL+1,4,1 LIBRARIAN
TXL RCD-2,0,14 G.L. CARD COUNT
LIBIN) BINREG
LIREL) RELREG
CHS
L(0)
9L
9R
9LB
9RB
ERASE HTR 0
L(1) OCT 377777777777
RELREG BSS 22
BINREG BSS 1
STZ EQU 24576
END START
REM GENERAL LIBRARIAN GLIB2
ORG 24
DUP000 REW SOURCE GENERAL LIBRARIAN
REW OBJECT
RTT TURN OFF RTT TRIGGER
TXH
LXD DUP020,7 INITIALIZE INDEX REGISTERS TO 27
RDS SOURCE READ 1-CS FROM SOURCE
DUP010 CPY RECORD+27,1
TXI DUP010,1,-1
DUP020 HTR 0,0,27 MACHINE ERROR
IOD EOR-DELAY
RTT
HTR DUP000 RTT ERROR-- TRY AGAIN
WRS OBJECT WRITE 1-CS ONT0 OBJECT
DUP030 CPY RECORD+27,2
TIX DUP030,2,1
IOD
RTT TURN OFF RTT TRIGGER
DUP031 TXH DUP170,0,0
BST OBJECT
RDS OBJECT READ BACK 1-CS FROM OBJECT
DUP040 CPY DUMMY
TRA DUP050
HTR
TRA DUP060 EOR
DUP050 CLA RECORD+27,4
CAS DUMMY
HTR DUP000 WORD COMP. FAILS-READING
TXI DUP040,4,-1
HTR DUP000 FROM OBJECT
DUP060 TXH DUP280,4,0 ERROR-INCOMPLETE OBJECT RECORD
IOD
RTT
HTR DUP000 RTT ERROR READING BACK OBJECT 1-CS
DUP070 LXD DUP031,7 INITIALIZE INDEX REG TO 0
PXD CLEAR AC
DUP071 RDS SOURCE READ SOURCE 1ST/2ND FILE RECORD -
CPY RECORD,1
TXI DUP090,1,-1
DUP080 TRA DUP160 EOF
HTR MACHINE ERROR
DUP090 CAD RECORD,1
TXI DUP090,1,-1
HTR MACHINE ERROR
COM EOR
ACL RECORD
COM
TZE DUP100
HTR DUP290 CKSM FAILS READING SOURCE 1ST/2ND FILE
DUP100 IOD
RTT
HTR DUP300 RTT ERROR-BST AND TRY AGAIN
SXD DUP120,1
SXD DUP150,1
WRS OBJECT WRITE OBJECT 1ST/2ND FILE RECORD
DUP110 CPY RECORD,2
TXI DUP120,2,-1
DUP120 TXH DUP110,2,**
DUP121 IOD
RTT TU0N OFF RTT TRIGGER
TXH
BST OBJECT
RDS OBJECT READ BACK OBJECT 1ST/2ND FILE RECORD
DUP130 CPY DUMMY
TRA DUP140
HTR MACHINE ERROR
TRA DUP150 EOR
DUP140 CLA RECORD,4
CAS DUMMY
HTR DUP310 COMP. ERROR ON 1ST/2ND FILE RECORD
TXI DUP130,4,-1
HTR DUP310 COMP. ERROR ON 1ST/2ND FILE RECORD.
DUP150 TXH DUP320,4,** ERROR-INCOMPLETE OBJECT RECORD
IOD
RTT
HTR DUP310 RTT ERROR-BST AN0 TRY AGAIN
TRA DUP070
DUP160 IOD
RTT
HTR DUP340 RTT ERROR - BST TWICE ON SOURCE
WEF OBJECT WRITE 1ST EOF
IOD
RTT TURN OFF RTT TRIGGER
TXH
CLA DUP031
STA DUP080
TRA DUP070
DUP170 IOD
RTT
HTR DUP340 RTT ERROR- BST TWICE ON SOURCE
WEF OBJECT WRITE 2ND EOF
DUP171 IOD
RTT TURN OFF RTT TRIGGER
TXH
DUP180 LXD DUP031,7 INITIALIZE INDEX REG TO 0
PXD CLEAR AC
DUP181 RDS SOURCE READ SOURCE 3RD FILE RECORD
CAD RECORD,1
TXI DUP190,1,-1
HTR FALSE 3RD FILE EOF MARK.
HTR MACHINE ERROR
DUP190 CPY RECORD,1 CPY CKSM INTO RECORD+1
TXI DUP200,1,-1
DUP200 CAD RECORD,1
TXI DUP200,1,-1
HTR MACHINE ERROR
SWITCH NOP
COM EOR
ACL RECORD+1
COM
TZE DUP210
HTR DUP350 CKSM FAILS READING SOURCE 3RD FILE
DUP210 IOD
RTT
HTR DUP350 RTT ERROR-BST
SXD DUP230,1
SXD DUP260,1
WRS OBJECT WRITE OBJECT 3RD FILE RECORD
DUP220 CPY RECORD,2
TXI DUP230,2,-1
DUP230 TXH DUP220,2,**
DUP231 IOD
RTT TURN OFF RTT TRIGGER
TXH
BST OBJECT
RDS OBJECT READ BACK OBJECT 3RD FILE RECORD
DUP240 CPY DUMMY
TRA DUP250
HTR MACHINE ERROR
TRA DUP260 EOR
DUP250 CLA RECORD,4
CAS DUMMY
HTR DUP360 COMP. ERROR ON 3RD FILE
TXI DUP240,4,-1
HTR DUP360 ERROR- INCOMPLETE OBJECT RECORD
DUP260 TXH DUP370,4
IOD
RTT
HTR DUP360
CAL RECORD+4
SUB NAME
TNZ DUP180
CAL TRAN
SLW SWITCH
TRA DUP180
EXIT1 LXA L(0),3
STZ ERASE
RCD RCD
CAD 9L
TRA CPY9R
TRA EXIT EOF
CPY9R CPY 9R
CLA 9L
TZE EXIT
COM
PDX 0,4
TXI CPY9R+6,4,1
CLA 9L
ALS 1
PBT
TRA BINARY CARD
TXI CPAREL-2,4,-2
SXD TXHREL,4
PXD
STZ ERASE
CPAREL CAD RELREG,2
TXI TXHREL,2,-1
TXHREL TXH CPAREL,2,*
TSX CHSTST,4
WTB 1
TXL TSXREL,1,0
TSX WRBIN,4
WTB 1
TSXREL TSX WRREL,4
STZ 9LB,0,STZ
STZ 9RB,0,STZ
TRA RCD
BINARY PXD
CPABIN CAD BINREG,1
TXI TXHBIN-1,1,-1
TXI TXHBIN,4,1
TXHBIN TXH CPABIN,4,0
TSX CHSTST,4
CLA 9L
ADD 9LB
STO 9LB
CLA ERASE
TZE CHER
CLA 9R
TMI CHSIGN
ACL L(1)
TRA NORM
CHSIGN SSP
NORM SLW 9R
CAL 9R
ACL 9RB
SLW 9RB
TRA RCD
CHER CLA L(1)
STO ERASE
TRA NORM+1
CHSTST ACL 9L
SLW CHS
IOD
IOD
CLA 9R
CAS CHS
HTR 1,4 CARD READING ERROR
TRA 1,4
TRA WRREL-3
WRREL CLA L(REL)
STA CPY
SXD CPY+2,2
CPY 9L
LXA L(0),2
CPY 9R
RETURN TXL XR,0
WRBIN CLA L(BIN)
STA CPY
CPY 9LB
SXD CPY+2,1
LXA L(0),1
CPY 9RB
XR SXD RETURN,4
LXA L(0),4
CPY CPY *,4
TXI CPY+2,4,-1
TXH CPY,4,*
LXD RETURN,4
IOD
IOD
TRA 1,4
RELBIN SLW HOLD
CLA 9L
ALS 1
PBT
TRA EXIT1 RECORD IS THE 1ST CONTROL CARD OF GEN. LIB.
CAL HOLD
TRA SWITCH+1 RETURN TO READING PERMANENT LIB.
EXIT RCD PULL IN FNDE2
CPY 0
CPY 1
TRA 0
L(BIN) BINREG
L(REL) RELREG
CHS
L(0)
NAME BCD 1EXP(3
9L
9R
9LB
9RB
ERASE HTR 0
L(1) OCT 377777777777
TRAN TRA RELBIN
HOLD
DUP280 HTR DUP000
DUP290 RTT
TXH
DUP300 BST SOURCE
TRA DUP070
DUP310 LXD DUP031,4
TRA DUP121
DUP320 HTR DUP330
DUP330 RTT
TXH
BST SOURCE
BST OBJECT
TRA DUP070
DUP340 BST SOURCE
BST SOURCE
RDS SOURCE
TRA DUP071
DUP350 BST SOURCE
TRA DUP171
DUP360 LXD DUP031,4
TRA DUP231
DUP370 HTR DUP380
DUP380 BST SOURCE
BST OBJECT
TRA DUP171
RELREG BSS 22
BINREG BSS 1
STZ EQU 24576
SOURCE SYN 149
OBJECT SYN 145
RECORD SYN 300
DUMMY SYN 299
END 24
REM TAPE DUPLICATING PROGRAM F2TCVP
ORG 24
DUP000 REW SOURCE
REW OBJECT
RTT TURN OFF RTT TRIGGER
TXH
LXD DUP020,7 INITIALIZE INDEX REGISTERS TO 27
RDS SOURCE READ 1-CS FROM SOURCE
DUP010 CPY RECORD+27,1
TXI DUP010,1,-1
DUP020 HTR 0,0,27 MACHINE ERROR
IOD EOR-DELAY
RTT
HTR DUP000 RTT ERROR-- TRY AGAIN
WRS OBJECT WRITE 1-CS ONTO OBJECT
DUP030 CPY RECORD+27,2
TIX DUP030,2,1
IOD
RTT TURN OFF RTT TRIGGER
DUP031 TXH DUP170,0,0
BST OBJECT
RDS OBJECT READ BACK 1-CS FROM OBJECT
DUP040 CPY DUMMY
TRA DUP050
HTR
TRA DUP060 EOR
DUP050 CLA RECORD+27,4
CAS DUMMY
HTR DUP000 WORD COMP. FAILS-READING
TXI DUP040,4,-1
HTR DUP000 FROM OBJECT
DUP060 TXH DUP280,4,0 ERROR-INCOMPLETE OBJECT RECORD
IOD
RTT
HTR DUP000 RTT ERROR READING BACK OBJECT 1-CS
DUP070 LXD DUP031,7 INITIALIZE INDEX REG TO 0
PXD CLEAR AC
DUP071 RDS SOURCE READ SOURCE 1ST/2ND FILE RECORD
CPY RECORD,1
TXI DUP090,1,-1
DUP080 TRA DUP160 EOF
HTR MACNINE ERROR
DUP090 CAD RECORD,1
TXI DUP090,1,-1
HTR MACHINE ERROR
COM EOR
ACL RECORD
COM
TZE DUP100
HTR DUP290 CKSM FAILS READING SOURCE 1ST/2ND FILE
DUP100 IOD
RTT
HTR DUP300 RTT ERROR-BST AND TRY AGAIN
SXD DUP120,1
SXD DUP150,1
WRS OBJECT WRITE OBJECT 1ST/2ND FILE RECORD
DUP110 CPY RECORD,2
TXI DUP120,2,-1
DUP120 TXH DUP110,2,**
DUP121 IOD
RTT TURN OFF RTT TRIGGER
TXH
BST OBJECT
RDS OBJECT READ BACK OBJECT 1ST/2ND FILE RECORD
DUP130 CPY DUMMY
TRA DUP140
HTR MACHINE ERROR
TRA DUP150 EOR
DUP140 CLA RECORD,4
CAS DUMMY
HTR DUP310 C0MP. ERROR ON 1ST/2ND FILE RECORD
TXI DUP130,4,-1
HTR DUP310 DITTO
DUP150 TXH DUP320,4,** ERROR-INCOMPLETE OBJECT RECORD
IOD
RTT
HTR DUP310 RTT ERROR-BST AND TRY AGAIN
TRA DUP070
DUP160 IOD
RTT
HTR DUP340 RTT ERROR - BST TWICE ON SOURCE
WEF OBJECT WRITE 1ST EOF
IOD
RTT TURN OFF RTT TRIGGER
TXH
CLA DUP031
STA DUP080
TRA DUP070
DUP170 IOD
RTT
HTR DUP340 RTT ERROR- BST TWICE ON SOURCE
WEF OBJECT WRITE 2ND EOF
DUP171 IOD
RTT TURN OFF RTT TRIGGER
TXH
DUP180 LXD DUP031,7 INITIALIZE INDEX REG TO 0
PXD CLEAR AC
DUP181 RDS SOURCE READ SOURCE 3RD FILE RECORD
CAD RECORD,1
TXI DUP190,1,-1
TRA DUP270 EOF
HTR MACHINE ERROR
DUP190 CPY RECORD,1 CPY CKSM INTO RECORD+1
TXI DUP200,1,-1
DUP200 CAD RECORD,1
TXI DUP200,1,-1
HTR MACHINE ERROR
COM EOR
ACL RECORD+1
COM
TZE DUP210
HTR DUP350 CKSM FAILS READING SOURCE 3RD FILE
DUP210 IOD
RTT
HTR DUP350 RTT ERROR-BST
SXD DUP230,1
SXD DUP260,1
WRS OBJECT WRITE OBJECT 3RD FILE RECORD
DUP220 CPY RECORD,2
TXI DUP230,2,-1
DUP230 TXH DUP220,2,**
DUP231 IOD
RTT TURN 0FF RTT TRIGGER
TXH
BST OBJECT
RDS OBJECT READ BACK OBJECT 3RD FILE RECORD
DUP240 CPY DUMMY
TRA DUP250
HTR MACHINE ERROR
TRA DUP260 EOR
DUP250 CLA RECORD,4
CAS DUMMY
HTR DUP360 COMP. ERROR ON 3RD FILE
TXI DUP240,4,-1
HTR DUP360 ERROR- INCOMPLETE OBJECT RECORD
DUP260 TXH DUP370,4
IOD
RTT
HTR DUP360 RTT ERROR-BST
TRA DUP180
DUP270 IOD
RTT
HTR DUP390 RTT ERROR - BST TWICE
WEF OBJECT WRITE 3RD FILE EOF
FILE40 LXD DUP031,7 DUPLICATE FILE 4
PXD
RDS SOURCE READ SOURCE FILE 4 RECORD
FILE41 CPY RECORD,1
TXI FILE41,1,-1
TRA FILE47 EOF
IOD EOR
RTT
HTR FIL4E1 RTT ERROR - BST AND TRY AGAIN
SXD FILE43,1
SXD FILE46,1
WRS OBJECT WRITE OBJECT 4TH FILE RECORD
FILE42 CPY RECORD,2
TXI FILE43,2,-1
FILE43 TXH FILE42,2,**
FILE50 IOD
RTT TURN OFF RTT TRIGGER
TXH
BST OBJECT
RDS OBJECT READ BACK OBJECT 4TH FILE RECORD
FILE44 CPY DUMMY
TRA FILE45
HTR MACHINE ERROR
TRA FILE46 EOR
FILE45 CLA RECORD,4
CAS DUMMY
HTR FIL4E2 COMP. ERROR ON 4TH FILE RECORD
TXI FILE44,4,-1
HTR FIL4E2 COMP. ERROR ON 4TH FILE RECORD
FILE46 TXH FIL4E4,4,** ERROR - INCOMPLETE OBJECT RECORD
IOD
RTT
HTR FIL4E2 RTT ERROR - BST AND TRY AGAIN
TRA FILE40
FILE47 IOD
RTT
HTR FIL4E3 RTT ERROR - BST TWICE ON SOURCE
WEF OBJECT WRITE 4TH FILE EOF
REW SOURCE
REW OBJECT
RTT
TXH
HTR FINAL STOP.
DUP280 HTR DUP000
DUP290 RTT
TXH
DUP300 BST SOURCE
TRA DUP070
DUP310 LXD DUP031,4
TRA DUP121
DUP320 HTR DUP330
DUP330 RTT
TXH
BST SOURCE
BST OBJECT
TRA DUP070
DUP340 BST SOURCE
BST SOURCE
RDS SOURCE
TRA DUP071
DUP350 BST SOURCE
TRA DUP171
DUP360 LXD DUP031,4
TRA DUP231
DUP370 HTR DUP380
DUP380 BST SOURCE
BST OBJECT
TRA DUP171
DUP390 BST SOURCE
BST SOURCE
RDS SOURCE
TRA DUP181
FIL4E1 BST SOURCE
TRA FILE40
FIL4E2 LXD DUP031,4
TRA FILE50
FIL4E3 BST SOURCE
BST SOURCE
RDS SOURCE
TRA FILE40+2
FIL4E4 HTR FIL4E5
FIL4E5 RTT
TXH
BST SOURCE
BST OBJECT
TRA FILE40
SOURCE SYN 149
OBJECT SYN 145
RECORD SYN 300
DUMMY SYN 299
END 24
LIST SYN 32575
TABL SYN 32554
TOOMCH SYN LIST-20
FUL
ORG 0
VR LXA 0,1
SM CPY 2,1
TXI SM,1,-1
TG HTR 0,1
LTM
X RCD
RB CPY LIST-21,1
LB TXI RB,1,-1
R
TXH X,1,-200
LXD M,1
SXD M,1
STZ LIST-20
READ RCD
CPY VR
TRA TEST
HTR READ
END STZ 0,2
TIX END,2,1
TOV PROG
PROG TRA
T
S 24
ADDRS OCT 000000077777
ABS
ORG LIST+1
TEST CLA VR
CPY SM
TMI PASS1 PREFIX IS 4 IF PROGRAM CARD
TZE READ
STZ PRTST SIGNAL END LOADING SEQUENTIAL PROG. CARDS
LXD VR,1
TXL REG,1,31
TXH 0,1,32
STA T
ADD S
STA S
CLA SM
STA U
TRA READ
REG STA R
ARS 15
U PDX 0,4
TXL NR,4,1
TSX LT,2
STA R
NR CAL VR
ARS 18
ADD R
STA TR
LXD VR,2
TR TXL 0,2
STA TA
STA SA
STA SD
STA TD
B STA CP
CAL VR
TXL CP,4,1
CAD LB
CAD RB
CP CAD 0,2
TIX CP,2,1
TXL CT,4,0
TXL READ,4,1
TXL CT,4,2
TXL RL,4,3
CT SLW VR
CLA SM
TZE RT
SUB VR
TZE RT
HPR
RT TXL READ,4,1
TXH SR,4,3
RL LDQ RB
DB CLA LB
LGL 1
SLW LB
TPL AB
TD CLA 0,1
ARS 18
TSX CB,2
ALS 18
SD STD 0,1
AB CLA LB
LGL 1
SLW LB
TPL TV
TA CLA 0,1
TSX CB,2
SA STA 0,1
TV TIX DB,1,1
TRA READ
CB STA R
CLA LB
LGL 1
SLW LB
TMI LTA WILL ADDRESS BE MISLEADING
LT SLN 1 NO, CODE IS 10, TURN ON SENSE LIGHT
LTA CLS R DOES THIS ADDRESS REFER TO PROGRAM OR DATA
ADD T
TPL ADDS
SLT 1 APPEARS TO BE DATA, BUT WHAT WAS CODE
TRA PROGRM ACTUALLY PROGRAM, ADD CURRENT INCREMENT
DATA CLA R IS DATA REFERENCE, DECREMENT
ADM U
TRA 1,2
ADDS SLT 1 APPEARS TO BE PROGRAM, WHAT WAS CODE
TRA DATA ACTUALLY IS DATA REFERENCE, DECREMENT
PROGRM SUB S
TRA 1,2
PASS1 PDX 0,2 - WORD COUNT IN DEC. OF AC
TXL PASS2,2,0 WORD COUNT IS 0, GO TO 2ND PASS
ADD TAG - LENGTH OF SYMB. TABLE IN DEC.
ADD DECTWO TO ALLOW SPACE IN TABLE FOR LOC. + LENGTH
STD STOP STORE NEW LENGTH IN INST. TO STOP RELOC.
SUB M ADDRS. TABLE + 1 - WORD COUNT + LENGTH TAB
STD OVLP STORE L0WEST ADDRS. FOUND, TO COMPARE TO S
ACL VR
SUB DECTWO
ARS 18
DECTWO TIX TXB,2,2
TXB TSX B,4 FORCE IR 4 FOR CHECK SUM, BUT NOT RELOCATE
SR LXD TAG,1 LOAD OLD TABLE LENGTH
CLA PRTST HAS ANOTHER PROGRAM CARD PRECEEDED
TZE ONLY1 THIS ONE
CLA LB YES, LB HAS NAME, RB HAS
STO TABL-1,1 ENTRY POINT
CLA RB
STO TABL,1
TIX NCARDS,1,2 SKIP, COMPARISONS ALREADY DONE
ONLY1 CLA S STORE LOCATION OF TRA VECTOR IN
STZ TABL-1,1
STO TABL,1 SYMBOL TABLE, S HAS ADDRESS ONLY
LXD LB,4
TXH CLAS,4,0
CLA BTMASK
STO TABL-1,1
CLAS CLA LB STORE LENGTH OF VECTOR IN
STD TABL-1,1 SYMBOL TABLE
STA T STORE LENGTH OF ROUTINE IN T
ADD S UPDATE S
STA S
PAX 0,2 COMPARE S TO LOWEST ADDRESS OF TABLE
OVLP TXH TG,2,0 TRA TG, TABLE + INST. OVERLAP
CLA U FIND LOWEST ADDRESS DATA WILL USE
SUB RB
PAX 0,4
PXD 0,4
ARS 18
TZE ACLA
CAS ADDRS
ACLA CLA ADDRS
NOP
STO ADDRS
SUB S
TMI TOOMCH TRA TOOMCH, DATA + INSTR. WILL OVERLAP
NCARDS SXD PRTST,2 SIGNAL TO SEQUENTIAL PROGRAM CARDS
STZ LB MAY COMPLEMENT IF 1 IS FOUND
TXI LTT,1,2 TO GET PAST LOC. + LENGTH OF VECTOR
LTT CLA TABL,1
TSX CB,2 RELOCATE ENTRY POINTS IN TABLE
STA TABL,1
TXI STOP,1,2
STOP TXL LTT,1,0
SXD TAG,1 SAVE LENGTH OF TABLE
M TNX READ,0,TABL
VEC CAL TABL+1,2
TNZ G3
CLA TABL+2,2
STA PROG
TRA PASS2
G3 ANA BTMASK
TNZ PASS2
CLA TABL+1,2
OLDU PDX 0,4 LENGTH OF VECTOR
ARS 18
ADD TABL+2,2 PLUS LOACTION OF VECTOR
STA A
STA AA
STA AAA
STA ABB
NXTVC LXD TAG,1 LENGTH OF SYMBOL TABLE
A CAL 0,4
ANA BTMASK
TZE TIXVEC
ABB CLA 0,4 LOOK FOR FIRST NAME IN TRA VECTOR
NXTNAM CAS TABL+1,1 IN SYMBOL TABLE
TTR TTR G4
TRA FIX
G4 TIX NXTNAM,1,2 LOOK AT NEXT NAME IN TABLE
SAVNAM STO RB
LXD TWTY,1
CMPR CLA LIST,1
TZE STONAM STORE IN FIRST EMPTY CELL
CAS RB IF NEW NAME
TWTY TNX G2,0,20
TRA TIXVEC ALREADY IN TABLE, IGNORE
G2 TIX CMPR,1,1
HTR PASS2 MORE THAN 20 ENTRIES TO BE SEARCHED FOR
STONAM CLA RB
STO LIST,1
STZ LIST+1,1
TRA TIXVEC
FIX CLA TTR
AA STO 0,4
CLA TABL+2,1
AAA STA 0,4
TIXVEC TIX NXTVC,4,1 GET NEXT NAME IN VECTOR
PASS2 TXI TAG,2,2 IR 2 IS 0 AT BEGINING
TAG TXL VEC,2,0
CLA TABL+1 0 IF ALL NAMES WERE FOUND
TNZ SEARCH
TXI END,2,212 CLEARS SYMBOL TABLE, LIST + LOADER
SEARCH HTR READ-1
BTMASK OCT 700000000000
PRTST
END
FUL
LOCREC SYN 707
ORG 0
A LXA 0,1 BOOTSTRAP FOR FIRST CARD
B CPY 2,1
C TXI 1,1,-1
ONEDEC HTR 0,0,1
RD TXL WEF1,1,-160
RCD
CPLODR CPY 3000-22,1 COPY REST OF EDITOR INTO UPPER MEMORY
TXI CPLODR,1,-1
HTR RD
TRA RD
WEF1 WEF 1
RTT TURN OFF INDICATOR
NOP
TRA RCD
ONE HTR 1
REC2 HTR 30
ERREC HTR LOCREC
RDREC HTR 1 REC NUMBER IN DIAG FILE, 1ST WORD OF REC
RDWDC HTR 0,0,6 WORD COUNT OF RECORD READ FROM TAPE 5
REC HTR 0 REC NUMBER FROM NEW REC CARD
ERAS HTR 0
WDC HTR 0,0,6
SIX HTR 6
TPCONT HTR 0
ORG 3000
RCD RCD
CPY A
TRA TEST
HTR RCD
TEST CPY B
CLA A
TMI CONCRD MINUS IF NEW RECORD CARD
STA COPY SAVE ADDRESS OF FIRST INSTRUCTION
ARS 18
PAX 0,4 WORD COUNT INTO IR 4
SUB COPY ADD FIRST ADDRESS
STA COPY STORE BASE ADDRESS IN COPY LOOP
CAL A
COPY CAD 0,4
TIX COPY,4,1
SLW C
CLA B
TZE RCD
SUB C
TZE RCD
HTR RCD IGNORE CHECK SUM
CONCRD CPY B 8L OVER 9R, REST OF CARD IS IGNORED
TRA END2 WILL BE REPLACED BY NOP
CLA REC INIT. 0, OR HAS NUMBER OF DIAG. REC. FROM
TZE NX LAST NEW REC. CARD, REMAINS 0 IF WEF ONLY
CLA A IS NEW CONTROL CARD WEF, 9L IS -0
TNZ NX
TRA WTREC1 WRITE CURRENT BUFFER
ALL TSX READ,4 YES, END OF CHANGES, HAS ALL OF MASTER
CLA RDREC BEEN WRITTEN, RDREC WILL BE -
TMI END
CLA RDWDC NO, READ IN NEXT RECORD FROM MASTER
STD WDC
CLA RDLOOP
STA WTLOOP
WTREC1 TSX WRITE,4 WRITE ON NEW TAPE
TRA ALL AND GET NEXT FROM MASTER
END WEF 1
REW 1
STZ 4095
TRA 4095
NX CLA A IF ONLY THIS PROGRAM AND WEF CARD
TZE WTREC1 WRITE ALL OF MASTER WITHOUT CHANGES
STA REC OTHERWISE SAVE NEW RECORD NUMBER
NX1 CLA RDREC GET NUMBER OF REC LEFT IN CORES BY READ
TMI NX4 MINUS IF NO MORE RECORDS ON MASTER
SUB REC IS RECORD IN CORE THE ONE CALLED FOR
TPL NX3
CLA RDWDC NOT YET, WRITE CORE RECORD ON NEW TAPE
STD WDC
CLA RDLOOP
STA WTLOOP
TSX WRITE,4
TSX READ,4 BRING NEXT RECORD FROM MASTER AND
TRA NX1 TEST AGAINST NEW RECORD CARD
NX3 TZE NX4 IF CORRECT REC, SET WORD COUNT ETC.
BST 5 READ 1 TOO MANY, SOME REC DELETED
NX4 CLA B
ADD ONE ADD 1 TO LAST ADDRESS FOR WRITE LOOP
STA WTLOOP
STA ERAS
ARS 18
SUB ERAS IF LAST ADDRESS NOT GREATER THAN
TZE DELETE FIRST ADDRESS DELETE THIS REC WHEN COPYING
TPL DELETE MASTER
ALS 18
STD WDC
TRA RCD
DELETE STZ RDWDC
STZ WDC
TRA RCD
READ CLA RDREC
TMI OUT HAS END OF FILE BEEN REACHED
SUB ONE IF 1ST RECORD STILL IN CORE, SET
TNZ RD2 ADDRESS TO READ IN 2ND RECORD
CLA REC2
TRA RD3
RD2 CLA ERREC 3RD, 4TH ETC, ADDRESS IS LOCREC IN REC 2
RD3 STA RDLOOP
STA SETREC
STZ TPCONT
RDAGIN LXD ONE,2 IE., ZERO
RTB 5
RDLOOP CPY 31,2
TXI RDLOOP,2,-1
TRA SETEOF
IOD
RTT
TRA BSTP5
FXWDC PXD 0,2
COM
ADD ONEDEC RECOMPLIMENT WORD COUNT
STD RDWDC AND FIND BASE ADDRESS
ARS 18
SSP
ADD RDLOOP ADD WORD COUNT TO FIRST ADDRESS
STA RDLOOP
SETREC CLA 0 FIRST WORD OF RECORD HAS RECORD NUMBER
STA RDREC
OUT TRA 1,4
SETEOF SSM SET RDREC - IF END OF MASTER FILE
STO RDREC
TRA 1,4
BSTP5 LXD TPCONT,1
TXL TRABST,1,15
HTR FXWDC PRESS START TO ACCEPT
TRABST BST 5
TXI MM,1,1
MM SXD TPCONT,1
TRA RDAGIN
WRITE LXD WDC,2 WORD COUNT ZERO TO DELETE RECORD
TXL WTOUT,2,0
WTB 1
WTLOOP CPY 31,2
TIX WTLOOP,2,1
WTOUT TRA 1,4
ISDIAG RTB 5 SPACE OVER LIBRARY
CPY RTB1+1
TRA ISDIAG
RTB 5
LXA SIX,2 IF MASTER FILE DOES NOT HAVE DIAG.,
ISCP CPY 31,2 SET READ TO IGNORE, OTHERWISE
TIX ISCP,2,1 FIRST RECORD WILL BE IN CORES
NOP NOP
CLA 25
SUB TEST1
TNZ TST1
CLA 26
SUB RTB1
TZE TST2
TST1 SSM
STO RDREC
TST2 CLA NOP
STO CONCRD+1
TRA CONCRD+2
TEST1 TXH 1
RTB1 RTB 1
END2 RTB 5 SPACE OVER END FILE GAP AT END FILE 2
TRA ISDIAG
END 44
ORG 1 FORCE NEW RECORD
HTR X-1,0,25 CARD FOR DE
ORG 25
TXH 1 READ IN REST OF DIAGNOSTIC
RTB 1 READ INTO 30, TABLE SEARCH AND ALL
LXD ZERO,1 CONVERTING + PRINT ETC, ROUTINES
CP CPY 30,1
TXI CP,1,-1 END RECORD SKIP, EXIT TO 31
ZERO HTR 0, RECORD NUMBER OF NEXT COPIED HERE
X
END
ORG 2 FORCE NEW RECORD
E HED
HTR XZY-1,0,30 CARD FOR DE
ORG 30
TXH 2 MAIN RECORD
LIST SYN 32767
LXA ADDMSK,1 FIND NUMBER TO SUBTRACT FROM TSX
PXD 0,1 TO GET ORIGINAL LOCATION
ADD DECONE THIS WILL BE USED TO RE-COMPLIMENT ANY
STO PREFX1 OF THE TSX S TO THE DIAGNOSTIC
PXD 0,4 IR 4 HAS BEEN SET BY TSX
SUB PREFX1
STD ERWORD
WPR
SPR 7 TEST FOR SAP BOARD
TSX PRINT,4 PRINT TITLE
HTR PR1,0,PR1+13
WPR
WPR
WPR
WPR
NOP
NOP
CLA 2 LOC. 2 HAS NUMBER OF FORTRAN RECORD
ANA ADDMSK PRECEDING THE CALL IN OF THE DIAG.
STO RECORD
SUB TW13 IF NON-ARITHMETIC HAS CALLED DIAG
TNZ NOTNA PRINT OTHER HEADER
TSX PRINT,4
HTR ISNONA,0,ISNONA+11
TRA SEARCH-1
NOTNA CLA RECORD
TSX BINDEC,4 CONVERT TO BCD + LEFT ADJUST WORD
TSX LAJUST,4
SLW FOREC
TSX PRINT,4 PRINT NUMBER OF RECORD IN WHICH
HTR PR2,0,FOREC+1 ERROR FOUND
CLA ERWORD IN DECREMENT
ARS 18
TSX OCTBCD,4
SLW ERAS
CAL LOC+3
ARS 24
LDQ ERAS
LGL 24
SLW LOC+3
LGL 12
LDQ BLANKS
LGL 24
SLW LOC+4
TSX PRINT,4 PRINT LOCATION OF STOP
HTR LOC,0,LOC+5
WPR
WPR
LXD ERLIST,4
SEARCH CLA ERLIST,4 ASSORTED TSX IN DEC FIELD
CAS ERWORD OF FIRST WORD OF LIST
TRA TIXA
TRA HAVE
TIXA TIX SEARCH,4,2
TRA LXDA UNIDENTIFYABLE, BRING IN RECORD ZERO
NOP
NOP
HAVE CLA ERLIST+1,4 DUPLICATE STOPS SHOULD BE MARKED MINUS
TMI DUP SECOND WORD HAS NUMBER OF RECORDS
PD PDX 0,4 TO BE SPACED OVER BEFORE READING
TIX RTBA,4,3 REDUCE NUMBER IF NOT REC 1, NOW SAME AS
RTBA RTB 1 EDITOR RECORD NUMBER
CPY 25
TIX RTBA,4,1
LXDA LXD ZERO,4
RTB 1
CPYREC CPY LOCREC,4 END RECORD SKIP WILL CONTROL
TXI CPYREC,4,-1 COPY AND TRANSFER
NOP NOP
TRA LOCREC+1 SKIP RECORD NUMBER
DUP ANA ADDMSK 2ND WORD WILL HAVE CORRECT ERROR RECORD
CAS RECORD NUMBER IN ADDRESS, FOR CORRECT FORTRAN
TRA NOTREC RECORD NUMBER IN THE CASE OF
TRA HAVREC DUPLICATE STOPS.
NOTREC TIX SEARCH,4,2
TRA LXDA IF END OF LIST, PRINT REC. ZERO
HAVREC CLA ERLIST+1,4
TRA PD
PR1 BCD 7
BCD 6FORTRAN DIAGNOSTIC PROGRAM RESULTS
PR2 BCD 2
BCD 8ERROR WHILE COMPILING IN FORTRAN RECORD NUMBER
FOREC HTR
ISNONA BCD 2
BCD 9ERROR FOUND DURING SCAN OF TABLES COMPILED BY 1 PRIME.
TW13 HTR 213
DIGRTN LXD 0,2 RESET MEMORY
CLA CPDR LOOP AT LOC. 0,1 AND 2 WILL
STO 0 COPY 2045 WORDS FROM DRUM 4
CLA TIXO BEGINNING AT LOC. 3
STO 1
CLA HTR4
STO 2
RESTRT CLA PRTEST SHOULD FOOTNOTE BE PRINTED
TZE WPREND
WPR YES
TSX PRINT,4
HTR NEARBT,0,NEARBT+18
WPREND WPR
WPR
WPR
WPR
REW 2 REWIND SO PROBLEM CAN BE RE-RUN
REW 1
NOP J CANNON
NOP
SIXTST SWT 6 SHOULD CHOICE TO NEXT BATCH BE PRINTED
TRA SPACE1 NO
CLA PRALT SURE
STO PRNT1
SPACE1 RTB 1 SPACE OVER FIRST FILE IN SYSTEM
CPY ERAS
TRA SPACE1
SKIP RTB 1 OVER REC 1, FILE 2, OUR TRA 4, THEIR WHO KNOWS
NOP
TSX PRINT,4
HTR END,0,END+32
TSX PRINT,4
PRNT1 HTR END1,0,END1+14
WPR
OCT 076000000140 TURN OFF ALL SENSE LIGHTS
WPR
SPR 2 EJECT SHEET
DONE IOD
RTT
NOP
TRA ENDPCH
SPEND CLA BST1 BACKSPACE OVER FILE MARK
STO SKIP AND OVER SOURCE ERROR RECORD
STO SKIP+1
SWT 6
TRA NDWP
CLA PRNT2
STO PRNT1
FX6TST CLA NOP
STO SIXTST
TRA DIGRTN
PRALT HTR MACEN,0,MACEN+57
NDWP CLA NOP D0 NOT PRINT A LAST COMMENT
STO PRNT1-1
STO PRNT1
TRA FX6TST
PRNT2 HTR END2,0,END2+17 MAY CONTINUE NEXT BATCH
PRNT4 HTR END3,0,END3+36
DRUM HTR 3,0,2045
CPDR CPY 2048,4
TIXO TIX 0,4,1
HTR4 TRA 4
BST1 BST 1
END BCD 7
BCD END OF DIAGNOSTIC PROGRAM RESULTS.
BCD
BCD 5PROGRAM CANNOT BE CONTINUED.
END1 BCD 7
BCD 7PRESS START IF YOU WISH TO RE-RUN PROBLEM.
END2 BCD 7
BCD THE SYSTEM WILL CONTINUE BATCH COMPILING
END3 BCD 7
BCD PRESS START IF YOU WISH TO CONTINUE BATCH COMPILING, OR KEY
BCD IN 076000 000141,
BCD 9AND PRESS START IF YOU WISH TO RE-RUN PROBLEM.
NEARBT BCD 1
BCD * THIS STATEMENT HAS NO FORMULA NUMBER. THE FORMULA NUMBER
BCD 7ASSIGNED A NEIGHBORING STATEMENT IS GIVEN.
FX4PR SXD IR4,4 THIS ROUTINE PRINTS ALPH DO BETA FOR I
CLA ALFBET GETS ALPHA, OR NEAREST PRECEDING ALPHA,
ARS 18 AND BETA FROM WORD ALFBET, SYMBOL
ANA ADDMSK FROM WORD SYM
TSX EXBETA,4
SLW DOALF BLANKS ARE TO RIGHT OF WORD
CLA ALFBET
ANA ADDMSK
TSX EXBETA,4
TSX LAJUST,4 ADJUST FOR TRAILING BLANKS
SLW DOBET
CAL SYM
TSX ZEROUT,4 UNPACK WORD
SLW DOSYM
TSX PRINT,4
HTR PRDO,0,PRDO+9
LXD IR4,4
TRA 1,4
ALFBET HTR
SYM HTR
IR4 HTR
PRDO BCD 4
DOALF HTR
BCD 1 DO
DOBET HTR
BCD 1 FOR
DOSYM HTR
ZEROUT SXD ZER6,4 ENTER CAL.BCD WORD WHICH FORTRAN HAS STORED
LXD SIX,4 LEFT ADJUSTED, FOLL0WED BY 1 BLANK AND
ZER1 SLW ZER5 PADDLED OUT WITH ZEROS
ANA CHMASK IE., OCT 000000000077
TNZ ZER2
CAL ZER5 LAST CHARACTER WAS ZERO
ARS 6 SHIFT OUT OF AC
TIX ZER1,4,1
ZER2 CAL ZER5
LDQ BLANKS
ZER3 TXH ZER4,4,5
LGL 6 N0W SHIFT IN A BLANK FOR EVERY 0 TAKEN OUT
TXI ZER3,4,1
ZER4 LXD ZER6,4 LEAVE, BCD AND BLANKS, MUST BE SAVED
TRA 1,4 WITH SLW
ZER5 HTR
ZER6 HTR
SIX HTR 0,0,6
RAJUST SLW RAJ1 ENTER, CAL BCD, LEFT ADJUSTED PLUS BLANKS
ANA CHMASK IE., OCT 000000000077
SUB 01BLNK
TNZ RAJ2
CAL RAJ1 YES, MOVE WORD AND ADD BLANK AT FRONT
ARS 6 IS LAST CHARACTER A BLANK
ACL RBLNK
TRA RAJUST
RAJ2 CAL RAJ1 LEAVES AC WITH LEADING BLANKS, MUST BE
TRA 1,4 SAVED WITH SLW
RAJ1 HTR
01BLNK BCD 100000
RBLNK BCD 1 00000
LAJUST LDQ BLNKO ENTER, CAL BCD NUMBER, LEADING BLANKS
LAJ1 TOV LAJ2 TURN OFF INDICATOR
LAJ2 LGL 1 NUMBER HAS ZERO ZONE, BLANK WILL TURN
TNO LAJ3 ON INDICATOR
LGL 5
TRA LAJ1
LAJ3 ARS 1 FIRST BIT FROM Q BACK TO P
TRA 1,4 EXIT TRAILING BLANKS,MUST BE SAVED WITH SLW
BLNKO BCD 1 0 WILL STOP ROUTINE IF WORD IS ALL BLANKS.
REM ENTER WITH INTERNAL FORMULA NUMBER IN ADDRESS OF AC
REM EXIT WITH EXTERNAL FORMULA NUMBER, OR NEAREST PRECEDING
REM EXTERNAL FORMULA NUMBER, IN BCD IN LOGICAL PORTION
REM OF AC. THIS MUST BE SAVED WITH SLW. NUMBER WILL
REM BE FOLLOWED BY ASTERISK WHEN EXACT MATCH IS NOT FOUND
TEIFIN SYN LIST-500
EXBETA ALS 18
STD BETAEX
SXD XB10,4
LXD INCOR,4
TXH XB4,4,0 IF TEIFNO IN MEMORY, SKIP READ IN
REW 2
LXA XB10,4 4 FILES TO BE SPACED OVER
XB1 RTB 2
CPY TEIFIN-1
TRA XB1 SPACE OVER RECORDS UNTIL END FILE SKIP
TIX XB1,4,1
LXA INCOR,4
XB2 RTB 2
CPY TEIFIN-1
TIX XB2,4,1
LXD ZERO,4
RTB 2
CPY TEIFIN-1 IGNORE IDENTIFICATION AND WORD COUNT
CPY TEIFIN-1
XB3 CPY TEIFIN-1,4 READ IN TEIFNO UNTIL END OF RECORD SKIP
TXI XB3,4,1
INCOR HTR 4
TXH XB4A,4,0
LXD DECONE,4 SET READ IN TO FAIL IF NO TEIFNO ENTRIES
XB4A SXD INCOR,4
XB4 CLA TEIFIN,4 COMPARE INTERNAL FORMULA NUMBERS
ANA DECMSK
CAS BETAEX TO THE ONE BEING ASKED FOR
TRA XB8
TRA XB9
XB5 CLA ADDMSK SET TEST TO ADD ASTERISK TO END OF NUMBER
STO PRTEST SET END OF DIAG TO PRINT FOOTNOTE
STO XB11
XB6 CLA TEIFIN,4 GET EXTERNAL FORMULA NUMBER
ANA ADDMSK
TSX BINDEC,4 CONVERT TO BCD DECIMAL
LXA XB11,4
LDQ ASTRSK
TXL XB7,4,0 SHOULD ASTERISK BE ADDED
LGL 6 YES
XB7 LXD XB10,4
TRA 1,4
XB8 TIX XB4,4,1 COMPARE TO NEXT, OR
TRA XB5 PRINT FIRST ENTRY WITH ASTERISK
XB9 STZ XB11 SET TEST TO PRINT NUMBER ONLY
TRA XB6
XB10 HTR 4,0,0
XB11 HTR 0
ASTRSK BCD 1*
PRTEST HTR 0
BETAEX HTR 0
REM ENTER, BINARY NUMBER IN ADDRESS AC. EXIT DECIMAL
REM NUMBER IN BCD IN LOGICAL PORTION OF AC. MUST BE
REM SAVED WITH SLW
BINDEC SSP JUST IN CASE
LRS 35
SXD BINA,4
LXD BINB,4
CNV CLA TEN IF MQ LESS THAN 10, CONVERSION IS FINISHED
TLQ FIN
PXD 0,0
DVP TEN
SLW DIG,4 SAVE REMAINDER IN 1 WORD OF BLOCK
TXI CNV,4,1 UP WORD COUNT OF BLOCK
FIN STQ DIG,4
CAL BLANKS START WITH BLANKS
DEC ALS 6 AND BRING IN REMAINDER FROM ABOVE
ORA DIG,4
BINB TIX DEC,4,1
LXD BINA,4
TRA 1,4
BLANKS BCD 1
BINA HTR
TEN DEC 10
DIG BES 6
REM ENTER WITH OCTAL NUMBER IN ADDRESS 0F AC. EXIT OCTAL
REM CONVERTED TO BCD IN LOGICAL PORTION OF AC. THIS MUST
REM BE SAVED WITH SLW
OCTBCD LRS 15
CLA BLANK AC ZERO EXEPT FOR END BLANK
TNO OCT TURN OFF INDICATOR
OCT ALS 3
LLS 3
TNO OCT END BLANK WILL TURN ON INDICATOR
TRA 1,4
BLANK BCD 100000
PRINT BSS 0
C EQU 4
RAN CLA 1,4
STA RNA
ARS 18
STO RNB
SXD RNC,4
RN40 CLA RNA
ADD RND
CAS RNB
NOP
TRA RN50
ALS 18
ADD RNA
STO RAN10
ARS 18
STA RNA
TSX WOT,C
RAN10 HTR
TRA RN40
RN50 CLA RNB
ALS 18
ADD RNA
STO RN60
TSX WOT,C
RN60 HTR
LXD RNC,C
TRA 2,C
RNA HTR
RNB HTR
RNC HTR
RND HTR 20
WOT SXD X1,1
SXD X2,2
CLA 1,4
STD X4 X
ARS 18 X
ADD X4 X
STA CI9 X
SUB 1,4 B-A+1 IN AC
TZE 2,4
TMI 2,4
SXD X4,4
L11 PAX 11,4
SXD PR6,4
RPR WPR
NOP
LXD PR6,4 X
PR8 TNX PR5,4
TXL PR3,4,12
SPR 8 FIRST CYCLE
PR3 LXD PR6,4 INITIALIZE GROUP COUNT
PR5 LXA PR7,2 INITIALIZE LEFT SETUP
LXD YZ1,1 CLEAR CARD IMAGE
PR7 PXD X
PR4 SLW LT,1 X
SLW RT,1 X
TIX PR4,1,1 X
CIR CAL COL1 INITIALIZE COLUMN INDICATOR
CI2 SLW COL X
CI9 LDQ 0,4 OBTAIN GROUP
SXD OZ2,4 STORE GROUP COUNT
LXA Q6,4 SET CHARACTER COUNT
CI1 PXD
Q6 LGL 6
PAX 0,1
CAL COL POSITION COLUMN INDICATOR
ARS 6,4 X
TIX YZ1,1,16 TEST FOR DIGIT
TXH YZ2,1,15 TEST FOR Y-ZONE
CI5 ORS D,3 STORE DIGIT
CI4 TIX CI1,4,1 COUNT CHARACTERS
CI3 ARS 1 SHIFT AND TEST COLUMN
LXD OZ2,4 RESTORE GROUP COUNT
TXI CI6,4,-1 COUNT GROUPS
CI6 TXL CI7,4 TEST FOR LAST NON-BLANK GROUP
TNZ CI2 TEST FOR END OF ROW
CI7 CAL 8.3,2 FORM TRUE 8,4
ORS D-8,2 AND 3 ROWS AND
ORS D-3,2 MOVE 8.4 AND 8.3
SLW 8.2,2 ROWS
CAL 8.4,2 FORM TRUE 8.4
ORS D-8,2 X
ORS D-4,2 X
SLW 8.3,2 X
CI8 TXL WP,4 TEST FOR END
TXH WP,2,15 TEST FOR RIGHT HALF
TXI CIR,2,16 INITIALIZE RIGHT HALF
YZ1 TIX XZ1,1,16 TEST FOR 16/CH/32
TXH XZ2,1,15 TEST FOR X-ZONE
ORS D,3 STORE DIGIT
YZ2 ORS Y,2 STORE Y-ZONE
TIX CI1,4,1 COUNT CHARACTERS
X1 TXL CI3 OBTAIN NEXT GROUP
XZ1 TIX OZ1,1,16 TEST FOR 32/CH/48
TXH CI4,1,15 TEST FOR BLANK
ORS D,3 STORE DIGIT
XZ2 ORS X,2 STORE X-ZONE
TIX CI1,4,1 COUNT CHARACTERS
X2 TXL CI3 OBTAIN NEXT GROUP
OZ1 ORS Z,2 STORE O-ZONE
ORS D,3 STORE DIGIT
TIX CI1,4,1 COUNT CHARACTERS
TXL CI3
WP7 LXA OZ,1 COPY LOOP
CRAN CPY LT-12,1
CPY RT-12,1 X
TXI T2,1,-1
T2 TXH CRAN,1,-12
WP4 TXH WP5,4
LXD X1,1 NO, RELOAD INDEX REGISTERS AND RETURN
LXD X2,2 X
WT2 LXD X4,4 X
L2 TRA 2,4 X
WP5 WPR
SPR 9 SECOND CYCLE
WP2 TXL PR5,0,12 CONVERT REST OF LINE
PR6 HTR
BLNKS BCD 1
X4 HTR
YZONE OCT 20
BNK OCT 60
MK2 OCT 377777777777
COL1 MZE
COL BSS 1
RT BES 16
8.5 BSS 1
8.4 BSS 1
8.3 BSS 1
8.2 BSS 1
D BES 9
Z BSS 1
X BSS 1
Y BSS 1
LT SYN Y+1
8.4L SYN LT-14
8.4R SYN RT-14
BSS 27
OZ HTR
OZ2 SYN OZ
WP SYN WP7
ADDMSK OCT 000000077777
DECMSK OCT 077777000000
CHMASK OCT 000000000077
ZERO HTR 0
DECONE OCT 000001000000
PREFX1 HTR 0
ERWORD HTR 0
RECORD
MACHIN BCD 2
BCD 3MACHINE ERROR
SOURCE BCD 2
BCD 4SOURCE PROGRAM ERROR
LOC BCD 2
BCD 3LOCATION
ERAS BSS 20 FOR PATCHING ETC.
LOCREC HTR 0 ALL ERROR RECORDS READ IN HERE OVER LIST
OCT 001017000000 ERROR IN 1 DOUBLE PRIME
HTR 0,0,1 ERROR RECORD 1
OCT 000036000000 53
HTR 0,0,120 36
OCT 000037000000 90
HTR 0,0,142 37
OCT 000041000000 60
HTR 0,0,39 41
OCT 000046000000 90
HTR 0,0,96 46
OCT 000047000000 58
HTR 0,0,39 47
OCT 000051000000 56
HTR 0,0,115 51
OCT 000060000000 56
HTR 0,0,133 60
OCT 000061000000 47
HTR 0,0,65 61
OCT 000062000000 53
HTR 0,0,124 62
OCT 000063000000 53
HTR 0,0,124 63
OCT 000064000000 71
HTR 0,0,48 64
OCT 000066000000 53
HTR 0,0,124 66
OCT 000067000000 53
HTR 0,0,124 67
OCT 000070000000 92
HTR 0,0,39 70
OCT 000072000000 53
MZE 53,0,124 72
OCT 000072000000 60
HTR 0,0,46 72
OCT 000073000000 53
HTR 0,0,124 73
OCT 000074000000 56
HTR 0,0,74 74
OCT 000103000000 67
HTR 0,0,48 103
OCT 000106000000 53
HTR 0,0,6 106
OCT 000107000000 58
MZE 58,0,40 107
OCT 000107000000 92
HTR 0,0,38 107
OCT 000116000000 53
HTR 0,0,66 116
OCT 000123000000 47
MZE 47,0,39 123
OCT 000123000000 53
HTR 0,0,112 123
OCT 000124000000 53
HTR 0,0,112 124
OCT 000132000000 53
MZE 53,0,66 132
OCT 000132000000 60
HTR 0,0,188 132
OCT 000140000000 56
HTR 0,0,39 140
OCT 000141000000 92
HTR 0,0,98 141
OCT 000150000000 75
HTR 0,0,53 150
OCT 000160000000 67
HTR 0,0,48 160
OCT 000161000000 56
HTR 0,0,40 161
OCT 000173000000 60
HTR 0,0,188 173
OCT 000216000000 47
HTR 0,0,40 216
OCT 000222000000 94
MZE 94,0,54 222
OCT 000222000000 105
MZE 105,0,39 222
OCT 000222000000 107
MZE 107,0,55 222
OCT 000222000000 115
HTR 0,0,39 222
OCT 000223000000 113
HTR 0,0,109 223
OCT 000227000000 60
HTR 0,0,188 227
OCT 000230000000 101
HTR 0,0,39 230
OCT 000241000000 107
MZE 107,0,56 241
OCT 000241000000 115
HTR 0,0,38 241
OCT 000245000000 9
MZE 9,0,103 245
OCT 000245000000 105
HTR 0,0,38 245
OCT 000246000000 92
HTR 0,0,39 246
OCT 003672000000 115
HTR 0,0,146 3672
OCT 000247000000 101
HTR 0,0,38 247
OCT 000252000000 60
MZE 60,0,188 252
OCT 000252000000 105
HTR 0,0,164 252
OCT 000255000000 103
HTR 0,0,110 255
OCT 000256000000 73
HTR 0,0,48 256
OCT 000260000000 96
MZE 96,0,38 260
OCT 000260000000 98
HTR 0,0,38 260
OCT 000263000000 67
HTR 0,0,48 263
OCT 000264000000 7
HTR 0,0,104 264
OCT 000270000000 56
HTR 0,0,15 270
OCT 000277000000 92
MZE 92,0,38 277
OCT 000277000000 113
HTR 0,0,31 277
OCT 000301000000 67
HTR 0,0,167 301
OCT 003730000000 115
HTR 0,0,105 3730
OCT 000303000000 73
HTR 0,0,84 303
OCT 000305000000 56
MZE 56,0,39 305
OCT 000305000000 60
HTR 0,0,188 305
OCT 000311000000 9
HTR 0,0,106 311
OCT 000312000000 113
HTR 0,0,165 312
OCT 000314000000 90
HTR 0,0,119 314
OCT 000321000000 90
HTR 0,0,143 321
OCT 000327000000 86
HTR 0,0,91 327
OCT 000330000000 90
HTR 0,0,97 330
OCT 000331000000 58
HTR 0,0,116 331
OCT 000334000000 56
MZE 56,0,40 334
OCT 000334000000 60
HTR 0,0,188 334
OCT 000336000000 86
HTR 0,0,139 336
OCT 000340000000 58
HTR 0,0,134 340
OCT 000341000000 96
MZE 96,0,32 341
OCT 000341000000 67
MZE 67,0,48 341
OCT 000341000000 98
HTR 0,0,32 341
OCT 000345000000 5
HTR 0,0,162 345
OCT 000350000000 58
MZE 58,0,75 350
OCT 000350000000 62
HTR 0,0,85 350
OCT 000352000000 113
HTR 0,0,33 352
OCT 000354000000 64
HTR 0,0,157 354
OCT 000356000000 92
HTR 0,0,99 356
OCT 000357000000 58
HTR 0,0,117 357
OCT 000363000000 60
HTR 0,0,188 363
OCT 000366000000 58
HTR 0,0,135 366
OCT 000375000000 58
HTR 0,0,76 375
OCT 000377000000 56
MZE 56,0,188 377
OCT 000377000000 115
HTR 0,0,34 377
OCT 000410000000 58
MZE 58,0,77 410
OCT 000410000000 96
HTR 0,0,107 410
OCT 000417000000 58
HTR 0,0,136 417
OCT 000424000000 56
HTR 0,0,188 424
OCT 000425000000 67
MZE 67,0,30 425
OCT 000425000000 73
MZE 73,0,183 425
OCT 000425000000 98
HTR 0,0,38 425
OCT 000427000000 96
HTR 0,0,147 427
OCT 000430000000 58
HTR 0,0,78 430
OCT 000434000000 62
HTR 0,0,19 434
OCT 000437000000 84
HTR 0,0,92 437
OCT 000441000000 98
HTR 0,0,36 441
OCT 000442000000 60
MZE 60,0,188 442
OCT 000442000000 96
HTR 0,0,39 442
OCT 000443000000 103
HTR 0,0,163 443
OCT 000446000000 58
HTR 0,0,79 446
OCT 000454000000 62
MZE 62,0,137 454
OCT 000454000000 64
HTR 0,0,20 454
OCT 000460000000 98
HTR 0,0,108 460
OCT 000465000000 96
HTR 0,0,38 465
OCT 000500000000 96
HTR 0,0,39 500
OCT 000510000000 56
MZE 56,0,80 510
OCT 000510000000 73
HTR 0,0,184 510
OCT 000517000000 62
HTR 0,0,86 517
OCT 000520000000 56
MZE 56,0,81 520
OCT 000520000000 113
HTR 0,0,163 520
OCT 000521000000 60
HTR 0,0,188 521
OCT 000524000000 62
HTR 0,0,118 524
OCT 000533000000 92
HTR 0,0,27 533
OCT 000534000000 62
HTR 0,0,138 534
OCT 000544000000 60
HTR 0,0,188 544
OCT 000546000000 2
HTR 0,0,35 546
OCT 000553000000 62
HTR 0,0,87 553
OCT 000556000000 64
HTR 0,0,159 556
OCT 000562000000 92
MZE 92,0,100 562
OCT 000562000000 113
HTR 0,0,37 562
OCT 000604000000 92
HTR 0,0,28 604
OCT 000607000000 60
HTR 0,0,39 607
OCT 000613000000 56
HTR 0,0,188 613
OCT 000624000000 98
HTR 0,0,148 624
OCT 000627000000 60
HTR 0,0,40 627
OCT 000643000000 64
HTR 0,0,21 643
OCT 000654000000 56
HTR 0,0,188 654
OCT 000661000000 75
HTR 0,0,166 661
OCT 000674000000 60
HTR 0,0,82 674
OCT 000707000000 64
HTR 0,0,20 707
OCT 000711000000 62
HTR 0,0,158 711
OCT 000716000000 62
HTR 0,0,88 716
OCT 000720000000 60
HTR 0,0,83 720
OCT 000734000000 45
HTR 0,0,39 734
OCT 000747000000 56
HTR 0,0,16 747
OCT 000750000000 56
HTR 0,0,16 750
OCT 000756000000 64
HTR 0,0,22 756
OCT 000762000000 75
HTR 0,0,169 762
OCT 000765000000 92
HTR 0,0,101 765
OCT 001000000000 56
HTR 0,0,188 1000
OCT 001001000000 24
HTR 0,0,111 1001
OCT 001006000000 45
HTR 0,0,45 1006
OCT 001022000000 75
HTR 0,0,166 1022
OCT 001023000000 64
HTR 0,0,89 1023
OCT 001031000000 24
HTR 0,0,61 1031
OCT 001041000000 64
HTR 0,0,23 1041
OCT 001076000000 45
HTR 0,0,171 1076
OCT 001135000000 62
MZE 62,0,47 1135
OCT 001135000000 92
HTR 0,0,102 1135
OCT 001141000000 45
HTR 0,0,40 1141
OCT 001160000000 22
HTR 0,0,191 1160
OCT 001175000000 62
HTR 0,0,90 1175
OCT 001211000000 75
HTR 0,0,140 1211
OCT 001221000000 22
MZE 22,0,62 1221
OCT 001221000000 75
HTR 0,0,141 1221
OCT 001231000000 45
HTR 0,0,51 1231
OCT 001234000000 62
HTR 0,0,185 1234
OCT 001240000000 75
HTR 0,0,93 1240
OCT 001261000000 62
HTR 0,0,186 1261
OCT 001274000000 22
HTR 0,0,57 1274
OCT 001307000000 22
HTR 0,0,170 1307
OCT 001320000000 56
HTR 0,0,188 1320
OCT 001341000000 92
HTR 0,0,144 1341
OCT 001345000000 22
HTR 0,0,58 1345
OCT 001347000000 92
HTR 0,0,145 1347
OCT 001377000000 22
HTR 0,0,59 1377
OCT 001444000000 22
HTR 0,0,60 1444
OCT 001531000000 56
HTR 0,0,188 1531
OCT 001634000000 75
HTR 0,0,169 1634
OCT 001767000000 56
HTR 0,0,188 1767
OCT 001777000000 75
HTR 0,0,169 1777
OCT 002230000000 75
HTR 0,0,187 2230
OCT 002155000000 56
HTR 0,0,17 2155
OCT 002163000000 56
HTR 0,0,18 2163
OCT 002655000000 75
HTR 0,0,25 2655
OCT 003001000000 88
HTR 0,0,160 3001
OCT 003064000000 65
HTR 0,0,168 3064
OCT 003143000000 65
HTR 0,0,48 3143
OCT 003156000000 65
HTR 0,0,24 3156
OCT 003253000000 88
HTR 0,0,161 3253
OCT 003540000000 8B
HTR 0,0,94 3540
OCT 004006000000 51
HTR 0,0,43 4006
OCT 004007000000 51
HTR 0,0,43 4007
OCT 004026000000 51
HTR 0,0,67 4026
OCT 004031000000 75
HTR 0,0,169 4031
OCT 004035000000 51
HTR 0,0,128 4035
OCT 004040000000 51
HTR 0,0,7 4040
OCT 004054000000 51
HTR 0,0,68 4054
OCT 004124000000 51
HTR 0,0,174 4124
OCT 004155000000 34
HTR 0,0,69 4155
OCT 004157000000 51
HTR 0,0,175 4157
OCT 004160000000 34
HTR 0,0,8 4160
OCT 004161000000 34
HTR 0,0,129 4I61
OCT 004303000000 75
HTR 0,0,169 4303
OCT 004307000000 51
HTR 0,0,52 430I
OCT 004417000000 88
HTR 0,0,121 4417
OCT 004405000000 34
HTR 0,0,176 4405
OCT 004453000000 88
HTR 0,0,95 4453
OCT 004533000000 51
HTR 0,0,177 4533
OCT 004570000000 34
HTR 0,0,49 4570
OCT 004623000000 51
HTR 0,0,172 4623
OCT 004666000000 51
HTR 0,0,40 4666
OCT 005037000000 34
HTR 0,0,9 5037
OCT 005232000000 34
HTR 0,0,173 5232
OCT 005273000000 34
HTR 0,0,189 5273
OCT 005560000000 34
HTR 0,0,41 5560
OCT 005721000000 27
HTR 0,0,178 5721
OCT 005742000000 27
HTR 0,0,153 5742
OCT 005763000000 27
HTR 0,0,153 5763
OCT 005764000000 27
HTR 0,0,153 5764
OCT 005773000000 51
HTR 0,0,154 5773
OCT 006004000000 32
HTR 0,0,149 6004
OCT 006044000000 27
HTR 0,0,10 6044
OCT 006063000000 32
HTR 0,0,189 6063
OCT 006065000000 27
HTR 0,0,11 6065
OCT 006234000000 51
HTR 0,0,12 6234
OCT 006253000000 32
HTR 0,0,179 6253
OCT 006256000000 32
HTR 0,0,179 6256
OCT 006353000000 51
HTR 0,0,155 6353
OCT 006357000000 29
HTR 0,0,40 6357
OCT 006373000000 27
HTR 0,0,151 6373
OCT 006376000000 27
HTR 0,0,152 6376
OCT 006432000000 27
HTR 0,0,13 6432
OCT 006475000000 32
HTR 0,0,189 6475
OCT 006534000000 27
HTR 0,0,10 6534
OCT 006635000000 27
HTR 0,0,180 6635
OCT 006710000000 27
HTR 0,0,150 6710
OCT 006736000000 41
HTR 0,0,113 6736
OCT 006737000000 41
HTR 0,0,113 6737
OCT 006744000000 41
HTR 0,0,70 6744
OCT 006762000000 43
HTR 0,0,40 6762
OCT 006765000000 37
HTR 0,0,44 6765
OCT 006767000000 39
HTR 0,0,71 6767
OCT 007023000000 27
HTR 0,0,181 7023
OCT 007027000000 37
HTR 0,0,40 7027
OCT 007045000000 43
HTR 0,0,14 7045
OCT 007052000000 37
HTR 0,0,130 7052
OCT 007053000000 37
HTR 0,0,122 7053
OCT 007056000000 37
HTR 0,0,130 7056
OCT 007057000000 37
HTR 0,0,122 7057
OCT 007070000000 37
HTR 0,0,72 7070
OCT 007073000000 39
HTR 0,0,182 7073
OCT 007075000000 27
HTR 0,0,125 7075
OCT 007076000000 27
HTR 0,0,125 7076
OCT 007100000000 55
HTR 0,0,29 7100
OCT 007103000000 27
HTR 0,0,131 7103
OCT 007110000000 43
HTR 0,0,156 7110
OCT 007112000000 27
HTR 0,0,114 7112
OCT 007123000000 27
HTR 0,0,73 7123
OCT 007135000000 27
HTR 0,0,132 7135
OCT 007143000000 55
HTR 0,0,188 7143
OCT 007250000000 27
HTR 0,0,123 7250
OCT 007303000000 41
HTR 0,0,14 7303
OCT 007320000000 27 DO NEST
HTR 0,0,5 7320 DO NESTING
OCT 007454000000 75
HTR 0,0,26 7454
OCT 007555000000 21
HTR 0,0,127 7555
OCT 007563000000 21
HTR 0,0,126 7563
OCT 007620000000 21
HTR 0,0,190 7620
OCT 007627000000 21
HTR 0,0,64 7627
OCT 007632000000 36
HTR 0,0,9 7632
OCT 007720000000 21
HTR 0,0,63 7720
OCT 007751000000 21
MZE 22,0,192 7751
OCT 007751000000 36
HTR 0,0,50 7751
OCT 007760000000 30
HTR 0,0,42 7760
OCT 016004000000 75
HTR 0,0,26 16004
ERLIST HTR 0,0,ERLIST-1-LOCREC DEC HAS NUMBER OF ENTRIES SO FAR
ORG 1884 WAS 83534
ENDPCH LXD DRUM,4
RDR 4
LDA DRUM
TRA 0
MACEN BCD 7
BCD PRESS START IF YOU WISH TO RE-RUN PROBLEM
BCD
BCD OR KEY IN 076000 000141
BCD
BCD AND PRESS START IF YOU WISH TO CONTINUE BATCH COMPILING
XZY
REM EXPOSE EXTERNAL SYMBOLS RPC
0 HED
PRINT SYN E$PRINT
SPEND SYN E$SPEND
ERAS SYN E$ERAS
ZERO SYN E$ZERO
PRNT4 SYN E$PRNT4
PRNT2 SYN E$PRNT2
HTR4 SYN E$HTR4
LIST SYN E$LIST
SYM SYN E$SYM
FX4PR SYN E$FX4PR
LXDA SYN E$LXDA
DONE SYN E$DONE
WST 10,1
END
ORG 3 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 3 STOP NOT IN THIS LIST
CLA ERWORD
ARS 18
TSX OCTBCD,4
SLW NOLIST
TSX PRINT,4
HTR PR,0,PR+14
TRA DIGRTN
PR BCD 2
NOLIST HTR
BCD THIS ERROR IS NOT LISTED IN THE DIAGNOSTIC PROGRAM ERROR LI
BCD 1ST.
X
END
ORG 4 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 4 1 DOUBLE PRIME
LXD 24,1 IN DEC OF 24,1 NUMBER OF ENTRIES
TIX A,1,1 MADE BY NON-ARITHMETIC DIAGNOSTIC
LXD ZERO,1
A SXD NXTER,1 SET END OF ERROR LIST TEST
LXD ZERO,1
AB WPR SPACE BETWEEN ERROR COMMENTS
LXD ZERO,2
CLA LIST,1
ANA DECMSK
SUB PREFX1 GET UNCOMPLIMENTED LOCATION
ANA DECMSK
AE CAS ER1PRM,2 2 WORD ENTRIES IN THIS LIST
TRA AC
TRA BHAV
AC TXI AD,2,2
AD TXL AE,2,62 62 STOPS IN LIST SO FAR
TRA NO CANNOT IDENTIFY
BHAV CLA ER1PRM+1,2
STA BA
BA TRA
NO BST 1 SPACE BACK TO PRINT RECORD ZERO
BST 1
STO ERWORD AND SAVE OCTAL LOCATION
TRA LXDA
NXTER TXL AB,1,0 NUMBER OF ERROR ENTRIES MINUS 1
WPR FINISHED WITH ERROR LIST, SPACE PRINTER
CLA HTR4
STO DONE+3
TRA SPEND
TEIFNO CLA LIST-1,1 BETA, WHICH IS DUPLICATED IN SOURCE
ANA ADDMSK PROGRAM, IS IN ADDRESS 0F LIST
TSX BINDEC,4
SLW TBETA
TSX PRINT,4
HTR PRTEIF,0,PRTEIF+13
TXI NXTER,1,2 2WORD ENTRIES IN ERROR LIST
PRTEIF BCD 2
BCD 3THE FORMULA NUMBER
TBETA HTR
BCD 7 IS DUPLICATED IN THE SOURCE PROGRAM
MINB1 CLA ADTMI SELECT ADDRESS OF PARTICULAR TIFGO ENTRY
PAX 0,4 FOR PRINT ROUTINE
STA WHICHA
CAL N1 AND PICK UP BCD FOR COMMENT
TXI BETAPR,4,34 ADD LENGTH OF COMMENT TO ADDRESS
MINB2 CLA ADTMI
PAX 0,4
STA WHICHA
CAL N2
TXI BETAPR,4,34
MINB3 CLA ADTMI
PAX 0,4
STA WHICHA
CAL N3
TXI BETAPR,4,34
TSXTFO CLA ADTZR
PAX 0,4
STA WHICHA
CAL N
TXI BETAPR,4,34
BTIFG1 CLA ADT1
PAX 0,4
STA WHICHA
CAL SOMN
TXI BETAPR,4,34
BTIFG2 CLA ADT2
TRA BTIFG1+1
B1TIF3 CLA ADT3
TRA MINB1+1
B2TIF3 CLA ADT3
TRA MINB2+1
B1TIF4 CLA ADT4
TRA MINB1+1
B2TIF4 CLA ADT4
TRA MINB2+1
B1TIF5 CLA ADT5
TRA MINB1+1
B2TIF5 CLA ADT5
TRA MINB2+1
TIF6B CLA ADT6
TRA TSXTFO+1
DONOBT CLA ADDO SAME PROCESS AS FOR TIFGO ENTRIES
PAX 0,4
STA WHICHA
CAL B
TXI BETAPR,4,14
SOMN BCD 1SOME N
N BCD 1N
N1 BCD 1N1
N2 BCD 1N2
N3 BCD 1N3
B BCD 1B
BETAPR SXD WHICHA,4 SOME TIFGO, OR DO, STATEMENT REFERS TO
SLW BETAWD A NONEXISTANT BETA
LDQ BETAWD MOVE WORD INTO COMMENT
CAL BETAWD-1
ARS 18
LGL 18
SLW BETAWD-1
LGL 18
LDQ BLANKS
LGL 18
SLW BETAWD
CLA LIST,1
TSX EXBETA,4
TSX LAJUST,4
SLW FORMNB
LDQ FORMNB MOVE EXTERNAL FORMULA NUMBER
CAL FORMNB-1 INTO COMMENT
ARS 6
LGL 6
SLW FORMNB-1
LGL 30
LDQ BLANKS
LGL 6
SLW FORMNB
TSX PRINT,4
HTR NOBETA,0,NOBETA+27
TSX PRINT,4
WHICHA
TXI NXTER,1,1 1 WORD ENTRY IN ERROR LIST
NOBETA BCD 2
BCD 3STATEMENT NUMBER
FORMNB HTR
BCD REFERS TO A NON-EXISTENT FORMULA NUMBER CORRESPONDING TO
BETAWD BCD 6
BCD 5IN THE TYPE OF STATEMENT
ADTMI HTR TISMIN
ADTZR HTR TISZRO
ADT1 HTR TIS1
ADT2 HTR TIS2
ADT3 HTR TIS3
ADT4 HTR TIS4
ADT5 HTR TIS5
ADT6 HTR TIS6
ADDO HTR DOS
TISMIN BCD 4
BCD A IF ( E ) N1, N2, N3
BCD
BCD
TISZRO BCD 4
BCD A GO TO N
BCD
BCD
TIS1 BCD 4
BCD A GO TO L ( N1, N2, NM )
BCD
BCD
TIS2 BCD 4
BCD A GO TO ( N1, N2, NM ) J
BCD
BCD
TIS3 BCD 4
BCD A IF ( SENSE SWITCH K ) N1, N2
BCD 9
BCD 1OR
BCD A IF ( SENSE LIGHT K ) N1, N2
TIS4 BCD 4
BCD A IF DIVIDE CHECK N1, N2
BCD
BCD
TIS5 BCD 4
BCD A IF ACCUMULATOR OVERFLOW N1, N2
BCD 9
BCD 1OR
BCD A IF QUOTIENT OVERFLOW N1, N2
TIS6 BCD 4
BCD A ASSIGN K TO N
BCD
BCD
DOS BCD 4
BCD A DO B I = N1, N2, N3
TSXH LXD XTABLE,4 FIND THE KIND OF TIFGO ENTRY WHICH
CLA LIST,1 IS TRYING TO TURN CONTROL OVER TO A
ALS 18 NON-EXECUTABLE STATEMENT
ANA DECMSK
SUB PREFX1
ANA DECMSK
TSHCAS CAS XTABLE,4
TRA TSXH1
TRA HVNOX
TSXH1 TIX TSHCAS,4,2
TRA NO CANNOT IDENTIFY, PRINT OCTAL LOCATION
HVNOX CLA XTABLE+1,4
STA TSHTRA
TSHTRA TRA
OCT 000316000000
HTR SAVEB1
OCT 000327000000
HTR SAVEB2
OCT 000337000000
HTR SAVEB3
OCT 000352000000
HTR TIFOB
OCT 000374000000
HTR TRADX1
OCT 000421000000
HTR TRADX2
OCT 000443000000
HTR TIF3B1
OCT 000453000000
HTR TIF3B2
OCT 000467000000
HTR TIF4B1,
OCT 000477000000
HTR TIF4B2
OCT 000513000000
HTR TIF5B1
OCT 000523000000
HTR TIF5B2
XTABLE HTR 0,0,24
SAVEB1 CLA ADTMI
TRA NOXBTA
SAVEB2 TRA SAVEB1
SAVEB3 TRA SAVEB1
TIFOB CLA ADTZR
TRA NOXBTA
TRADX1 CLA ADT1
TRA NOXBTA
TRADX2 CLA ADT2
TRA NOXBTA
TIF3B1 CLA ADT3
TRA NOXBTA
TIF3B2 TRA TIF3B1
TIF4B1 CLA ADT4
TRA NOXBTA
TIF4B2 TRA TIF4B1
TIF5B1 TRA TIF5B2
TIF5B2 CLA ADT5
NOXBTA STA ADDTD A TIFGO STATEMENT HAS ATTEMPTED TO
ADD DEC34 TURN OVER CONTROL OF THE PROGRAM TO A
ALS 18 NON EXECUTABLE STATEMENT
STD ADDTD
CLA LIST-1,1 GET EXTERNAL NUMBER OF TIFGO ENTRY
TSX EXBETA,4
TSX LAJUST,4
SLW ERAS
CAL TIFOR
ARS 12
LDQ ERAS
LGL 12
SLW TIFOR
LGL 24
LDQ BLANKS
LGL 12
SLW TIFOR+1
CLA LIST-1,1 GET EXTERNAL NUMBER OF STATEMENT
ARS 18 WHICH IS NOT EXECUTABLE
TSX EXBETA,4
TSX LAJUST,4
SLW ERAS
CAL NONB-1
LDQ ERAS
ARS 6
LGL 6
SLW NONB-1
LGL 30
LDQ BLANKS
LGL 6
SLW NONB
TSX PRINT,4
HTR BTNONX,0,BTNONX+28
TSX PRINT,4
ADDTD HTR
TXI NXTER,1,2 2WORD ENTRY IN ERROR LIST
BTNONX BCD 2
BCD 2STATEMENT NU
BCD 1MBER
NONB HTR
BCD 9IS NOT EXECUTABLE. IT IS REFERRED TO BY STATEMENT NUM
TIFOR BCD 7BER
BCD 6WHICH IS OF THE FOLLOWING TYPE
DEC34 HTR 34
DOBTNX CLA LIST-1,1 BETA IS NOT AN EXECUTABLE STATEMENT
STO ALFBET IN ALPHA DO BETA
CLA LIST-2,1
STO SYM
TSX PRINT,4
HTR DOBTX,0,DOBTX+12
TSX FX4PR,4 PRINT DO STATEMENT
TXI NXTER,1,3 3 WORD ENTRY IN ERROR LIST
DOBTX BCD 2
BCD THE RANGE OF THIS DO ENDS WITH A NON-EXECUTABLE STATEMENT
CONBET CLA LIST-1,1 IN ALPHA DO BETA, BETA IS A CONDITIONAL
STO ALFBET TRANSFER, THAT IS, A TIFGO ENTRY
CLA LIST-2,1
STO SYM
TSX PRINT,4
HTR CONBT,0,CONBT+13
TSX FX4PR,4 PRINT DO STATEMENT
TXI NXTER,1,3 3 WORD ENTRY IN ERROR LIST
CONBT BCD 2
BCD THE RANGE OF THIS DO ENDS WITH A CONDITIONAL TRANSFER STATEM
BCD 1ENT
DOALNX CLA LIST-1,1 ALPHA PLUS 1, IN ALPHA D0 BETA,
STO ALFBET IS NOT EXECUTABLE
CLA LIST-2,1
STO SYM
TSX PRINT,4
HTR DOALX,0,DOALX+15
TSX FX4PR,4 PRINT DO STATEMENT
TXI NXTER,1,3 3 WORD ENTRIES IN ERROR LIST
DOALX BCD 2
BCD THE STATEMENT IMMEDIATELY FOLLOWING THIS DO IS NOT AN EXECUT
BCD 3ABLE STATEMENT
CHBTSX CLA LIST,1 THE SYMBOL, OR A VARIABLE IN A DO STATEMENT
ALS 18 DOES NOT BEGIN WITH I J K ETC
ANA DECMSK
SUB PREFX1 CONVERT TSX TO NUMBER OF STOP WHERE THIS
ANA DECMSK
LXA ZERO,4 WAS PICKED UP
CHBCAS CAS BLIST-1,4 DETERMINE WHETHER SYMBOL, N1, N2 OR N3
TRA CHBTXI
TRA HVCHB
CHBTXI TXI CHBTXL,4,2
CHBTXL TXL CHBCAS,4,6
TRA NO CANNOT IDENTIFY, PRINT ERROR RECORD ZERO
HVCHB CAL BLIST,4 BCD FOR N1,N2 OR N3, BUT INDEXING
TZE CHBDO SYMBOL IS ZERO, WILL BE PROCESS BY ITSELF
LDQ BLIST,4
CAL THE MOVE PARAMETER INTO COMMENT
ARS 12
LGL 12
SLW THE
LGL 6
LDQ THE+1
RQL 6 SHIFT FIRST BLANK OUT OF MQ
LGL 30
SLW THE+1
CLA LIST-2,1 ARRANGE TO PRINT DO STATEMENT
STO ALFBET
CLA LIST-3,1
STO SYM
CAL LIST-1,1 REMOVE ZEROS FROM VARIABLE NAME AND
TSX ZEROUT,4 ADJUST TO RIGHT
TSX RAJUST,4
SLW ERAS
LDQ ERAS
CAL DOPRAM PUT HALF OF WORD IN COMMENT
ARS 12
LGL 12
SLW DOPRAM
LGL 24
LDQ DOPRAM+1 PUT IN OTHER HALF
RQL 24
LGL 12
SLW DOPRAM+1
TSX PRINT,4
HTR VRBL,0,VRBL+14
TSX FX4PR,4 PRINT DO STATEMENT
TSX PRINT,4
HTR VRPR,0,VRPR+11
TXI NXTER,1,4 4 WORD ENTRIES IN ERROR LIST
VRBL BCD 2
BCD AN INTEGER VARIABLE MUST BEGIN WITH I J K L M OR N. IN THE
BCD 2DO STATEMENT
VRPR BCD 2
THE BCD 1THE
BCD 3 INDEXING PARAMET
DOPRAM BCD 1ER,
BCD 4 , IS INCORRECT.
OCT 000716000000
BCD 13RD IJKN3 IN NON-ARITH DIAG
OCT 000703000000
BCD 12ND IJKN2
OCT 000670000000
BCD 11ST IJKN1
OCT 000656000000 IJKSYM
BLIST HTR 0 ZERO INDICATES TO PR0GRAM THIS IS SYMBOL
CHBDO CLA LIST-2,1 ARRANGE TO PRINT DO STATEMENT
STO ALFBET
CLA LIST-3,1
STO SYM
TSX PRINT,4
HTR CHDOPR,0,CHDOPR+19
TSX FX4PR,4
TXI NXTER,1,4 4 WORD ENTRIES IN ERROR LIST
CHDOPR BCD 2
BCD AN INTEGER VARIABLE MUST BEGIN WITH I J K L M OR N. THE IND
BCD 7EX SYMBOL IS INCORRECT IN THE STATEMENT
CHATSX LXD ZERO,2 AN ILLEGAL CHARACTER HAS BEEN FOUND IN
CLA LIST,1 SOME NAME
ALS 18 UNCOMPLIMENTED LOCATION WILL SHOW
ANA DECMSK KIND OF STATEMENT USING THIS NAME
SUB PREFX1
ANA DECMSK
CB CAS CHA2WD,2 IS THIS FROM ONE OF THE SIZ, COMMON
TRA TXIC FUNCTION ETC., STATEMENTS
TRA PR2WD
TXIC TXI CA,2,2
CA TXL CB,2,6
CC CAS CHA3WD,2 OR DOES THE NAME APPEAR IN A D0 STATEMENT
TRA CTIX
TRA PR3WD
CTIX TIX CC,2,2
TRA NO PRINT UNIDENTIFYABLE STOP
OCT 000131000000
HTR FRSB TSXA IN NON ARITH DIAG
OCT 000143000000
HTR SZ TSXB
OCT 000163000000
HTR SBAR TSXC
CHA2WD OCT 000175000000
HTR CMON TSXD
OCT 000653000000
HTR 0 PUNSYN
OCT 000665000000
BCD 1 1ST I PUNN1
OCT 000700000000
BCD 1 2ND I PUNN2
OCT 000713000000
BCD 1 3RD I PUNN3
CHA3WD
PR2WD CLA CHA2WD+1,2 PRINT IDENTIFICATION OF STATEMENT
STA CHACLA IN WHICH NAME WAS FOUND
LXD ZERO,2 TRANSFER 8 WORDS ABOUT STATEMENT
CHACLA CLA 0,2 INTO COMMENT
STO DA,2
TXI CHATXH,2,-1
CHATXH TXH CHACLA,2,-8
CAL LIST-1,1
TSX ZEROUT,4 UNPACK NAME AND MOVE TO RIGHT
TSX RAJUST,4
SLW D
TSX PRINT,4
HTR PRCHA,0,PRCHA+19
TXI NXTER,1,2 2 WORD ENTRY IN ERROR LIST
PRCHA BCD 2
BCD 2THE SYMBOL,
D HTR
BCD 6, CONTAINS AN ILLEGAL CHARACTER. IT
DA BCD 8
CMON BCD 8 APPEARS IN A COMMON STATEMENT.
SZ BCD 8 APPEARS IN A DIMENSION STATEMENT.
FRSB BCD 8 APPEARS AS THE NAME OF A FORTRAN FUNCTION.
SBAR BCD 8 APPEARS AS AN ARGUMENT OF A SUBROUTINE.
PR3WD CLA CHA3WD+1,2 1ST,2ND,OR 3RD PARAMETER
TZE SYMDO ZERO IF SYMBOL REFERED TO
STO PAR
CAL LIST-1,1 UNPACK NAME AND MOVE TO RIGHT
TSX ZEROUT,4
TSX RAJUST,4
SLW WRPAR
TSX PRINT,4
HTR PARAPR,0,PARAPR+17
CLA LIST-2,1 PRINT ALPHA TO BETA STATEMENT AND
STO ALFBET SYMBOL
CLA LIST-3,1
STO SYM
TSX FX4PR,4
TXI NXTER,1,4 4 WORD ENTRIES IN ERROR LIST
PARAPR BCD 2
BCD 6THERE IS AN ILLEGAL CHARACTER IN THE
PAR HTR
BCD 3NDEXING PARAMETER
WRPAR HTR
BCD 4, OF THE DO STATEMENT
SYMDO TSX PRINT,4
HTR SYMDPR,0,SYMDPR+14
CLA LIST-2,1
STO ALFBET PRINT ALPHA DO BETA FOR SYMBOL
CLA LIST-3,1 WITH ILLEGAL CHARACTER
STO SYM
TSX FX4PR,4
TXI NXTER,1,4 4 WORD ENTRIES IN ERROR LIST
SYMDPR BCD 2
BCD THERE IS AN ILLEGAL CHARACTER IN THE INDEXING SYMBOL OF THE
BCD 2DO STATEMENT
NOTRA CLA LIST,1 ALPHA+1,INTERNAL FORMULA NUMBER,
ANA ADDMSK IN ADDRESS OF LIST. THIS IS NUMBER OF AN
TSX EXBETA,4 EXECUTABLE STATEMENT WHICH FOLLOWS A
TSX LAJUST,4 TIFGO ENTRY OR A STOP, BUT WHICH IS NEVER
SLW EXTN1 TRANSFERED TO IN THE FLOW OF THE PROBLEM
TSX PRINT,4
HTR PRNOTR,0,PRNOTR+18
TXI NXTER,1,1 1 WORD ENTRY IN ERROR LIST
PRNOTR BCD 2
BCD A PART OF THE PROGRAM CANNOT BE REACHED. IT IS LOCATED AT O
BCD 5R JUST BELOW STATEMENT NUMBER
EXTN1 HTR
FRETIF CLA LIST,1 INTERNAL FORMULA NUMBER
TSX EXBETA,4 IN ADDRESS OF LIST. SECTION 4 WILL STOP
TSX LAJUST,4 WHEN THERE ARE MORE BRANCHES THAN
SLW FRALFA NECESSARY FOR A TIFGO ENTRY.
TSX PRINT,4
HTR PRFREQ,0,PRFREQ+15
TXI NXTER,1,1 1 WORD ENTRY IN ERROR LIST
PRFREQ BCD 2
BCD A FREQUENCY STATEMENT CONTAINS TOO MANY BRANCHES FOR THE FOR
BCD 2MULA NUMBER
FRALFA HTR
NOTEQV CAL LIST-1,1 THIS IS STILL IN BCD FORM, BUT MAY BE
TSX ZEROUT,4 FOLLOWED BY 1 BLANK AND ZEROS. THIS NAME
SLW EQWD HAS BEEN ASSIGNED INCONSISTANT VALUES IN
LDQ EQWD EQUIVALENCE STATEMENTS
CAL EQWD-1
ARS 12 MOVE WORD INTO REST OF COMMENT
LGL 12
SLW EQWD-1
LGL 24
LDQ BLANKS
LGL 12
SLW EQWD
TSX PRINT,4
HTR PREQ,0,PREQ+13
TXI NXTER,1,2 2 WORD ENTRIES IN ERROR LIST
PREQ BCD 2
BCD AN INCONSISTENT EQUIVALENCE STATEMENT HAS BEEN MADE ABOUT
EQWD HTR
BADWC TSX PRINT,4
HTR MACHIN,0,MACHIN+5
CLA LIST-1,1
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
CAL BDWD
ARS 24
LGL 24
SLW BDWD
LGL 12
LDQ BLANKS
LGL 24
SLW BDWD+1
TSX PRINT,4
HTR PRBDWC,0,PRBDWC+72
TRA ENDMAC
NOIDEN TSX PRINT,4
HTR MACHIN,0,MACHIN+5
CLA LIST-1,1
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
CAL IDENWD
ARS 18
LGL 18
SLW IDENWD
LGL 18
LDQ IDENWD+1
RQL 18
LGL 18
SLW IDENWD+1
TSX PRINT,4
HTR PRNOI,0,PRNOI+17
TSX PRINT,4
HTR MACHER,0,MACHER+32
TRA ENDMAC
WHATIF TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR NOTIF,0,NOTIF+13
TSX PRINT,4
HTR MACHER,0,MACHER+12
ENDMAC CLA HTR4 SET RETURN SO PROBLEM CAN BE
STO DONE RE-RUN FOR MACHINE ERROR
TRA RESTRT
PRBDWC BCD 2
BCD ERROR IN READING RECORD FROM TAPE 2. RECORD IDENTIFICATION
BDWD BCD IS
BCD WORD COUNT DOES NOT AGREE WITH COUNT IN RECORD.
BCD 8
MACHER BCD 2
BCD PROBABLY MACHINE ERROR WHEN TABLE WAS COMPILED BY 1 PRIME.
BCD
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
PRNOI BCD 2
BCD 9RECORD FROM TAPE 2 CANNOT BE IDENTIFIED. THIS RECORD
IDENWD BCD 1HAS
BCD 5 IN ADDRESS OF FIRST WORD.
NOTIF BCD 2
BCD ENTRY IN TIFGO, RECORD 6, FILE 5, TAPE 2, CANNOT BE IDENTIFI
BCD 1ED.
OCT 000301000000
HTR WHATIF
OCT 001125000000
HTR CHBTSX
OCT 000650000000
HTR DOALNX
OCT 000641000000
HTR DOBTNX
OCT 000727000000
HTR CONBET
OCT 000623000000
HTR DONOBT
OCT 001062000000
HTR TSXH
OCT 000534000000
HTR TIF6B
OCT 000521000000
HTR B2TIF5
OCT 000511000000
HTR B1TIF5
OCT 000475000000
HTR B2TIF4
OCT 000465000000
HTR B1TIF4
OCT 000451000000
HTR B2TIF3
OCT 000441000000
HTR B1TIF3
OCT 000417000000
HTR BTIFG2
OCT 000372000000
HTR BTIFG1
OCT 000350000000
HTR TSXTFO
OCT 000335000000
HTR MINB3
OCT 000325000000
HTR MINB2
OCT 000314000000
HTR MINB1
OCT 000775000000
HTR NOTEQV
OCT 000762000000
HTR FRETIF
OCT 000070000000
HTR BADWC
OCT 000110000000
HTR NOIDEN
OCT 000576000000
HTR NOTRA
OCT 000212000000
HTR TEIFNO IE.,TSXE FROM NON-ARITH DIAP
ER1PRM OCT 001110000000
HTR CHATSX
X
END
ORG 5 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 5, 7320 FT 27
ERNBR SYN 3778 OCTAL 7302
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
LXD ERNBR,1
TIX DONX1,1,2
DONX1 SXD DOTST,1
LXD ZERO,1
NXTDO CLA LIST,1
TZE ONEDO
CLA MORDOS DO NOT PRINT COMMENT FOR SUCCEEDING
TNZ DO1 ERRORS
TSX PRINT,4
HTR NONEST,0,NONEST+13
SXD MORDOS,4
WPR
DO1 CLA LIST,1
STO ALFBET
CLA LIST-1,1
STO SYM
TSX FX4PR,4 PRINT 1ST DO
CLA LIST-2,1 AND 2ND
STO ALFBET
CLA LIST-3,1
STO SYM
TSX FX4PR,4
WPR
TXI DOTST,1,4
DOTST TXL NXTDO,1,0
WPR
TSX PRINT,4
HTR ENDNST,0,ENDNST+9
TRA SPEND
ONEDO STZ MORDOS
WPR
TSX PRINT,4
HTR DOPR,0,DOPR+14
CLA LIST-1,1
STO ALFBET
CLA LIST-2,1
STO SYM
TSX FX4PR,4
TXI DOTST,1,3
NONEST BCD 2
BCD THE DO STATEMENTS IN THE FOLLOWING LIST ARE NOT CORRECTLY NE
BCD 1STED
ENDNST BCD 2
BCD 7CORRECT THE DO NESTING BEFORE REASSEMBLY.
DOPR BCD 2
BCD THE STATEMENT NUMBER ENDING A DO IS ABOVE IT IN THE SOURCE P
BCD 2ROGRAM.
MORDOS HTR 0
X
END
ORG 6 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 6 106 FT 53
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
RDDR RDR 4 NOR BUFFER NOW ON DRUM 4.
LDA A
LXA L(15),1
COPYW CPY ERAS+15,1 COPY FIRST WORD OF 4 WORD ENTRY.
CPY ERAS+16,1 IGNORE NEXT THREE.
CPY ERAS+16,1
CPY ERAS+16,1
TIX COPYW,1,1
LXA L(15),1
NEXT CLA ERAS+15,1 IF NOT LOCATION SYMBOL OF CIT,
TNZ PROCES WORD WILL BE ZERO.
TIX NEXT,1,1
CLA L(15)
ALS 2
ADD A
STA A
SUB BUFSIZ
TNZ RDDR
CLA ZERO
PROCES ARS 18 IN THE DECREMENT THERE IS THE
TSX EXBETA,4 ALPHA OF SOME STATEMENT NUMBER.
SLW ERAS
CAL PR1
ARS 24
LDQ ERAS
LGL 24
SLW PR1
LGL 12
LDQ BLANKS
LGL 24
SLW PR1+1
TSX PRINT,4
HTR PR,0,PR+52
TRA SPEND
A HTR8200 STARTING DRUM ADDRESS
L(15) HTR 15
BUFSIZ HTR 4032 SIZE OF NOR BUFFER + INITIAL ADDRESS.
PR BCD 2
BCD THE SET OF DO FORMULAS WHICH BEGINS OR TERMINATES IN THE VIC
BCD 4INITY OF STATEMENT NUMBE
PR1 BCD 6R
BCD HAS GIVEN RISE TO TOO MANY INSTRUCTIONS. REWRITE PROGRAM AN
BCD D SIMPLIFY DO NESTING
BCD OR REDUCE THE NUMBER OF SUBSCRIPT COMBINATIONS.
X
END
ORG 7 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 7 4040 FT 51
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
RDR 4 TAGTAG TABLE ON DRUM 4.
LDA A
CPY ERAS COPY FIRST WORD OF 4 WORD ENTRY.
CLA ERAS
ARS 18
TSX EXBETA,4
SLW ERAS
CAL PR1
ARS 12
LDQ ERAS
LGL 12
SLW PR1
LGL 24
LDQ PR2
RQL 24
LGL 12
SLW PR2
TSX PRINT,4
HTR PR,0,PR+42
TRA SPEND
A HTR81076
PR BCD 2
BCD 9TAGTAG TABLE SIZE HAS BEEN EXCEEDED. DO STATEMENT NUM
PR1 BCD 1BER 12
PR2 BCD 1345* I
BCD 9S ONE OF A NEST OF DO STATEMENTS
BCD WHICH CONTAINS, OR HAS GIVEN RISE TO, TOO MANY SUBSCRIPT COM
BCD BINATIONS. REWRITE SOURCE PROGRAM.
X
END
ORG 8 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 8 4160 FT 34
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+18
TRA SPEND
PR BCD 2
BCD PROGRAM HAS MORE THAN 50 DO STATEMENTS IN A NEST. REWRITE P
BCD 6ROGRAM WITH SIMPLER DO STRUCTURE.
X
END
ORG 9 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE,
ORG LOCREC
TXH 9 5037 FT 34
REM 9 7632 FT 36
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
LXD877777,1
TXL DRMTAG,1,1
TXL CHGTAG,1,2
TXL NAMKEY,1,3
TXL TRASTO,1,4
TSX PRINT,4
HTR PR,0,PR+42
TRA SPEND
PR BCD 2
BCD TSXCOM TABLE EXCEEDS BUFFER SIZE. THERE ARE TOO MANY RELATI
BCD VE CONSTANT DEFINITIONS.
BCD THE TABLE IS CUMULATIVE OVER THE ENTIRE PROBLEM. REWRITE SO
BCD URCE PROGRAM.
CHGTAG TSX PRINT,4
HTR PR1,0,PR1+82
TRA SPEND
PR1 BCD 2
BCD CHGTAG TABLE EXCEEDS BUFFER SIZE. AN ENTRY IS MADE IN THIS
BCD TABLE WHEN THERE ARE AT LEAST TWO
BCD SUBSCRIPT COMBINATIONS WITH THE SAME SYMBOLS, COEFFICIENTS,
BCD AND LEADING DIMENSIONS
BCD WITHIN THE SAME NEST WHICH HAS AT LEAST ONE, BUT NOT ALL, CO
BCD NTROLLING DOS IN COMMON.
BCD THE TABLE IS CUMULATIVE OVER ALL NESTS IN THE PROBLEM. REWR
BCD ITE SOURCE PROGRAM.
DRMTAG CLA DRTG
STO PR3
TRA TRASTO
NAMKEY CLA NMKY
STO PR3
TRASTO TSX PRINT,4
HTR PR2,0,PR2+52
TRA SPEND
PR2 BCD 2
PR3 BCD TRASTO TABLE EXCEEDS BUFFER SIZE. THE SUBSCRIPT COMBINATION
BCD S AND FLOW STRUCTURE IS TOO COMPLEX
BCD WITHIN DO NESTS. THIS TABLE IS CUMULATIVE OVER ALL NESTS.
BCD REWRITE SOURCE PROGRAM AND
BCD SIMPLIFY SUBSCRIPT COMBINATIONS OR DO NEST STRUCTURE.
DRTG BCD 1DRMTAG
NMKY BCD 1NAMKEY
X
END
ORG 10 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 10 6044 FT 27
REM 10 6534 FT 27
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+27
TRA SPEND
PR BCD 2
BCD TRANSFER ADDRESS LEVEL IS GREATER THAN 20. REPROGRAM TO ELI
BCD MINATE TRANSFERS TO DOS
BCD 5WITH LEVELS GREATER THAN 20.
X
END
ORG 11 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 11 6065 FT 27
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
CLA 3264 6300 OCTAL
ARS 18
TSX EXBETA,4
SLW ERAS
LDQ ERAS
CAL PR1
ARS 6
LGL 6
SLW PR1
LGL 30
LDQ BLANKS
LGL 6
SLW PR2
TSX PRINT,4
HTR PR,0,PR+16
TRA SPEND
PR BCD 2
BCD 2STATEMENT NU
PR1 BCD 1MBER
PR2 BCD 1
BCD TRANSFERS INTO THE RANGE OF A DO FROM OUTSIDE ITS RANGE.
X
END
ORG 12 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 12 6234 FT 51
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
CLA 2724 VCTR - OCTAL 5244
ARS 18
TSX EXBETA,4
SLW BETA
LDQ BETA
CAL BLANKS
LGL 30
SLW BETA -
LDQ BETA+1
LGL 30
SLW BETA+1
TSX PRINT,4
HTR PR,0,PR+40
TRA SPEND
PR BCD 2
BCD 6TOO MANY DOS END AT STATEMENT NUMBER
BETA BCD 1 12345
BCD . TH IS CONDITION, IN CONJUNCTION WITH SUBSCRIPT CONFIGURAT
BCD 3IONS,
BCD HAS RESULTED IN TOO MANY INSTRUCTIONS. REWRITE PROGRAM AND
BCD 8SEPARATE DO ENDS BY USING CONTINUE STATEMENTS.
X
END
ORG 13 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 13 6432 FT 27
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+20
TRA SPEND
PR BCD 2
BCD THE VARIABLE PARAMETER OF A DO IS REDEFINED BY THE INDEX SYM
BCD 8BOL OF A DO STATEMENT WITHIN THE DO.
X
END
ORG 14 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 14 7303 FT 4I
REM 14 7O45 FT 43
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+37
TRA SPEND
PR BCD 2
BCD AN INTERMEDIATE CORE TABLE IS FULL. REWRITE SOURCE PROGRAM
BCD AND MODIFY THE NUMBER OF PURE RELATIVE CONSTANT
BCD SUBSCRIPT COMBINATIONS, IE., SUBSCRIPTS, NO SYMBOL OF WHICH
BCD 5IS UNDER CONTROL OF A DO.
X
END
ORG 15 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 15 270 FT 56
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+82
TRA SPEND
PR BCD 2
BCD CHGTAG TABLE EXCEEDS BUFFER SIZE. AN ENTRY IS MADE IN THIS
BCD TABLE WHEN THERE ARE AT LEAST TWO
BCD SUBSCRIPT COMBINATIONS WITH THE SAME SYMBOLS, COEFFICIENTS,
BCD AND LEADING DIMENSIONS
BCD WITHIN THE SAME NEST WHICH HAS AT LEAST ONE, BUT NOT ALL, CO
BCD NTROLLING DOS IN COMMON.
BCD THE TABLE IS CUMULATIVE OVER ALL NESTS IN THE PROBLEM. REWR
BCD ITE SOURCE PROGRAM.
X
END
ORG 16 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 16 750 FT 56
REM 16 747 FT 56
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+19
TRA SPEND
PR BCD 2
BCD A FORTRAN FUNCTION HAS BEEN DEFINED AT A POINT IN THE SOURCE
BCD 7 PROGRAM OTHER THAN AT ITS BEGINNING.
X
END
ORG 17 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 17 2155 FT 56
TSX PRINT,4 .,
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+13
TRA SPEND
PR BCD 2
BCD A MULTIVARIATE OPEN SUBROUTINE HAS ONLY ONE ARGUMENT SPECIFI
BCD 1ED.
X
END
ORG 18 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 18 2163 FT 56
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+15
TRA SPEND
PR BCD 2
BCD MORE ARGUMENTS HAVE BEEN SUPPLIED THAN ARE REQUIRED BY AN OP
BCD 3EN SUBROUTINE.
X
END
ORG 19 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 19 434 FT 62
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+33
TRA SPEND
PR BCD 2
BCD FLOW OF PROGRAM IS TOO COMPLEX. NEXT ENTRY CANNOT BE MADE I
BCD N LIST OF BASIC BLOCKS.
BCD REWRITE PROGRAM WITH FEWER TRANSFER ADDRESSES, OR DO IN TWO
BCD 1PARTS.
X
END
ORG 20 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 20 454 FT 64
REM 20 707 FT 64
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+16
TRA SPEND
PR BCD 2
BCD A PART OF THE SOURCE PROGRAM HAS NO POSSIBLE PATH OF FLOW TO
BCD 4 IT. CHECK PROGRAM.
X
END
ORG 21 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 21 643 FT 64
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+17
TRA SPEND
PR BCD 2
BCD MORE THAN 25 DISTINCT SYMBOLS USED IN ASSIGNED GO TO STATEME
BCD 5NTS. SIMPLIFY SOURCE PROGRAM.
X
END
ORG 22 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 22 756 FT 64
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+20
TRA SPEND
PR BCD 2
BCD FIXDOS TABLE IS FULL. THERE ARE TOO MANY TRANSFERS TO DO ST
BCD 8ATEMENTS. REWRITE SOURCE PROGRAM.
X
END
ORG 23 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 23 1041 FT 64
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+26
TRA SPEND
PR BCD 2
BCD SET TABLE IS FULL. THERE ARE TOO MANY ASSIGN OR SENSE LIGHT
BCD STATEMENTS, OR TOO MANY TRANSFERS TO DOS.
BCD 4REWRITE SOURCE PROGRAM.
X
END
ORG 24 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 24 3156 FT 64
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+30
TRA SPEND
PR BCD 2
BCD FLOW OF PROGRAM IS TOO COMPLEX. TRA TABLE HAS TOO MANY ENTR
BCD IES. REWRITE PROGRAM WITH
BCD 8FEWER TRANSFER ADDRESSES, OR DO IN TWO PARTS.
X
END
ORG 25 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 25 2655 FT 75
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+19
TRA SPEND
PR BCD 2
BCD SIZE OF REGION TABLE EXCEEDS 50 ENTRIES. PROBABLY TOO MANY
BCD 7SEPARATE DO NESTS. REPROGRAM PROBLEM.
X
END
ORG 26 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 26 16004 FT 75
REM 26 7447 FT 75
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+20
TRA SPEND
PR BCD 2
BCD SECTION 5 TABLES EXCEED DRUM SIZE. PROBLEM IS TOO LONG, OR
BCD 8HAS TOO MANY TRANSFERS. REPROGRAM PROBLEM.
X
END
ORG 27 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 27 533 FT 92
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+20
TRA SPEND
PR BCD 2
BCD THERE HAVE BEEN NO REFERENCES MADE IN THE PROGRAM TO A VARIA
BCD 8BLE WHICH WAS LISTED AS A SUBROUTINE ARGUMENT.
X
END
ORG 28 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 28 604 FT 92
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+19
TRA SPEND
PR BCD 2
BCD THERE HAVE BEEN OVER 1,000 REFERENCES TO SUBROUTINE ARGUMENT
BCD 7S IN THE PROGRAM. MODIFY SOURCE PROGRAM.
X
END
ORG 29 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 29 7100 FT 56
TSX PRINT,4
HTR PR,0,PR+46
TRA SPEND
PR BCD 2
BCD OPEN SUBROUTINE NOT IN DICTIONARY USED BY SECTION 3. THIS I
BCD NDICATES THAT THE SYSTEM TAPE
BCD WAS IMPROPERLY EDITED WHEN ADDITION WAS MADE TO DICTIONARY O
BCD F OPEN SUBROUTINES USED BY
BCD 4SECTION 1 AND SECTION 3.
X
END
ORG 30 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 30 425 FT 67
TSX PRINT,4
HTR PR,0,PR+32
SWT 6
TRA DIGRTN
CLA PRNT4
STO PRNT2
CLA ZERO
STD HTR4
TRA SPEND
PR BCD 2
BCD SOURCE PROGRAM CONTAINS AN ILLEGAL PATH OF FLOW, OR A MACHIN
BCD E ERROR HAS RESULTED IN AN IMPOSSIBLE
BCD HALT AFTER A DIVIDE CHECK TEST. CHECK SOURCE PROGRAM.
X
END
ORG 31 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 31 277 FT 113
TSX PRINT,4
HTR PR,0,PR+51
SWT 6
TRA DIGRTN
CLA PRNT4
STO PRNT2
CLA ZERO -
STD HTR4
TRA SPEND
PR BCD 2
BCD AN ATTEMPT TO FIND A NAME IN THE INTERNALLY DEFINED VARIABLE
BCD TABLE HAS FAILED. IF THE SOURCE PROGRAM BEING
BCD COMPILED IS EXTREMELY LARGE, THIS STOP MAY INDICATE AN OVERL
BCD AP OF TABLES IN CORE MEMORY. NAME IN QUESTION
BCD IS STORED IN LEFT MOST 20 BITS OF LOCATION 157.
X
END
ORG 32 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 32 341 FT 96
REM 32 341 FT 9B
TSX PRINT,4
HTR PR,0,PR+56
SWT 6
TRA DIGRTN
CLA PRNT4
STO PRNT2
CLA ZERO
STD HTR4
TRA SPEND
PR BCD 2
BCD AN ATTEMPT HAS BEEN MADE TO ASSIGN TWO OR MORE STORAGE LOCAT
BCD IONS TO THE SAME VARIABLE NAME. FAILURE OF
BCD SECTION 1 PRIME OR SECTION 5 PRIME IN THE PREPARATION OF THE
BCD TABLES OF EQUIVALENCE CLASSES HAS OCCURRED,
BCD OR THERE IS AN INCONSISTANCY IN COMMON, EQUIV, AND DIM SENTE
BCD 4NCES IN SOURCE LANGUAGE.
X
END
ORG 33 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 33 352 FT 113
RDR 4
LDA A
CPY ERAS
CAL ERAS
ARS 18
LDQ BLANKS
LGL 18
SLW OP
TSX PRINT,4
HTR PR,0,PR+46
SWT 6
TRA DIGRTN
CLA PRNT4
STO PRNT2
CLA ZERO
STD HTR4
TRA SPEND
A HTR8726
PR BCD 2
BCD AN ATTEMPT TO FIND AN OPERATION ABBREVIATION IN THE TABLE OF
BCD SHARE OPERATIONS HAS FAILED. IF THE SOURCE
BCD PROGRAM BEING COMPILED IS EXTREMELY LARGE THIS MAY INDICATE
BCD AN OVERLAP OF TABLES IN CORE MEMORY.
BCD 3THE OPERATION IS
OP BCD 1
X
END
ORG 34 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 34 377 FT 115
RDR 4
LDA A
CPY ERWRD
CAL BLANKS
LDQ ERWRD
LGL 30
SLW ERWRD
LGL 6
LDQ BLANKS
LGL 30
SLW ERWRD+1
TSX PRINT,4
HTR PR,0,PR+54
TRA SPEND
A HTR81376
PR BCD 2
BCD ERROR IN CARD SEQUENCE OF LIBRARY PROGRAM ON SYSTEM TAPE 1.
BCD CARD READ SHOULD BE
BCD A CONTINUATION OF LIBRARY PROGRAM REQUESTED, BUT PROGRAM CAR
BCD D HAS BEEN FOUND INSTEAD.
BCD 47 LEFT ROW OF CARD READS
ERWRD BCD 2
BCD 6FIND ERROR AND REWRITE LIBRARY.
X
END
ORG 35 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 35 543 FT 115
TSX PRINT,4
HTR PR,0,PR+36
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM THE SYSTEM TAPE 1. FIVE A
BCD TTEMPTS HAVE BEEN MADE TO READ THIS
BCD RECORD CORRECTLY. MAY BE NECESSARY TO REWRITE LIBRARY FILE
BCD 4 ON THE SYSTEM TAPE.
X
END
ORG 36 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 36 441 FT 96
TSX PRINT,4
HTR PR,0,PR+32
SWT 6
TRA DIGRTN
CLA PRNT4
STO PRNT2
CLA ZERO
STD HTR4
TRA SPEND
PR BCD 2
BCD A SUBROUTINE CALL NAME OR A LIBRARY FUNCTION HAS BEEN USED A
BCD S A VARIABLE NAME, OR THERE HAS BEEN A MACHINE
BCD ERROR IN COMPILING THE NAME. CHECK SOURCE PROGRAM.
X
END
ORG 37 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 37 562 FT 113
TSX PRINT,4
HTR PR,0,PR+48
SWT 6
TRA DIGRTN
CLA PRNT4
STO PRNT2
CLA ZERO
STD HTR4
TRA SPEND
PR BCD 2
BCD THE ASSIGNMENT OF INSTRUCTION STORAGE LOCATIONS DOES NOT CHE
BCD CK WITH THAT GIVEN IN A PREVIOUS RECORD.
BCD IF THE SOURCE PROGRAM BEING COMPILED IS EXTREMELY LARGE, THI
BCD S STOP MAY INDICATE
BCD 6AN OVERLAP OF TABLES IN MEMORY.
X
END
ORG 38 FORCE NEW RECORD
RST 10,1
REM END OF FILE**************************************************
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 38 425 FT 98
REM 38 107 FT 92
REM 38 277 FT 92
REM 38 260 FT 96
REM 38 465 FT 96
REM 38 260 FT 98
REM 38 247 FT 101
REM 38 245 FT 105
REM 38 241 FT 1I5
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
LXD ZERO,3
D CLA A,1
SUB ERWORD
TZE B
TXI C,1,-13
C TXH D,1,-13*8
TSX PRINT,4
HTR ER,0,ER+72
HTR E
ER BCD 2
BCD LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO
BCD STIC RECORD NUMBER 38
BCD TO BE READ IN. THIS RECORD COMPARES THE LOCATION TO A LIST
BCD OF 7 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH
BCD HAS FAILED. THE ERRORS ARE LISTED IN 1453, 1453 PLUS 13, ET
BCD C. PRESS START IF YOU WISH TO
BCD RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED.
B CLA A1SIX,1
STO PR1SIX,2
TXI F,2,-1
F TXL G,2,-6
TXI B,1,-1
G CLA A1SIX+1,1
STO PR2
CLA A1SIX+2,1
STO PR3
CLA A1SIX+3,1
STO PR4TWO
CLA A1SIX+4,1 -
STO PR4TWO+1
CLA A1SIX+5,1
STO PR5TWO
CLA A1SIX+6,1
STO PR5TWO+1
TSX PRINT,4
HTR PR,0,PR+72
E TRA DIGRTN
A OCT 000425000000 SECTION VI RECORD L62
A1SIX BCD 6NG TRANSFER VECTOR TABLE
A2 BCD 1RUM 3.
A3 BCD 1 411.
A4TWO BCD 2IS IN 413.
A5TWO BCD 2IN 625. CO
OCT 000260000000 SECTION VI RECORD L 61 OR 62
BCD 6NG EQUIT TABLE
BCD 1RUM 1.
BCD 1 241.
BCD 2IS IN 361.
BCD 2IN 362. CO
OCT 000465000000 SECTION VI RECORD L61
BCD 6NG SIZE TABLE
BCD 1RUM 2.
BCD 1 450.
BCD 2IS IN 453.
BCD 2IN 362. CO
OCT 000247000000 SECTION VI - RECORD L 64
BCD 6NG FORSUB TABLE
BCD 1RUM 3.
BCD 1 233.
BCD 2IS IN 235.
BCD 2IN 372. CO
OCT 000245000000 SECTION VI - RECORD L66
BCD 6NG FORSUB TABLE
BCD 1RUM 3.
BCD 1 231.
BCD 2IS IN 233.
BCD 2IN 556. CO
OCT 000241000000 SECTION VI - RECORD L 73
BCD 6NG TRANSFER VECTOR TABLE
BCD 1RUM 3.
BCD 1 225.
BCD 2IS IN 227.
BCD 2IN 1054. CO
OCT 000277000000 SECTION PRE 6
BCD 6NG SIZE TABLE
BCD 1RUM 2.
BCD 1 262.
BCD 2IS IN 265.
BCD 2IN 1351. CO
OCT 000107000000 SECTION PRE 6
BCD 6NG TRANSFER VECTOR TABLE
BCD 1RUM 3.
BCD 1 73.
BCD 2IS IN 75.
BCD 2IN 1366. CO
PR BCD 2
BCD 4CHECK SUM ERROR IN READI
PR1SIX BCD 6NG TRANSFER VECTOR TABLE
BCD
BCD 1FROM D
PR2 BCD 1RUM 3.
BCD 5 COPY LOOP BEGINS AT LOCATION
PR3 BCD 1 411.
BCD 4 STARTING DRUM ADDRESS
PR4TWO BCD 8IS IN 413.
BCD 3DRUM CHECK SUM IS
PR5TWO BCD 3IN 625. COMPUTED
BCD CHECK SUM IS NOT STORED, THEREFORE IT IS NOT AVAILABLE.
BCD 4
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.
X
END
ORG 39 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 39 47 FT 56
REM 39 734 FT 45
REM 39 123 FT 47
REM 39 140 FT 56
REM 39 305 FT 56
REM 39 41 FT 60
REM 39 607 FT 60
REM 39 70 FT 92
REM 39 246 FT 92
REM 39 442 FT 96
REM 39 500 FT 96
REM 39 230 FT 101
REM 39 222 FT 105
REM 39 222 FT 115
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
CLA ERWORD
ADD RECORD
STO X
LXD ZERO,3
D CLA A,1
SUB X
TZE B
TXI C,1,-11
C TXH D,1,-11*14
TSX PRINT,4
HTR ER,0,ER+72
HTR E
ER BCD 2
BCD LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO
BCD STIC RECORD NUMBER 39
BCD TO BE READ IN. THIS RECORD COMPARES THE LOCATION TO A LIST O
BCD F 14 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH
BCD HAS FAILED. THE ERRORS ARE LISTED IN 1456, 1456 PLUS 11, ET
BCD C. PRESS START IF YOU WISH TO
BCD RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED
B CLA A1FOR,1
STO PR1FOR,2
TXI F,2,-1
F TXL G,2,-4
TXI B,1,-1
G CLA A1FOR+1,1
STO PR2
CLA A1FOR+2,1
STO PR3
CLA A1FOR+3,1
STO PR4TWO
CLA A1FOR+4,1
STO PR4TWO+1
CLA A1FOR+5,1
STO PR5
CLA A1FOR+6,1
STO PR6
TSX PRINT,4
HTR PR,0,PR+72
E TRA DIGRTN
A OCT 000047000072 SECTION II - FT 58
A1FOR BCD 4 TRASTO TABLE
A2 BCD 1RUM 3.
A3 BCD 1 36.
A4TWO BCD 2S IN 2332.
A5 BCD 1O 2345
A6 BCD 12346.
OCT 000041000074 SECTION III - FT 60
BCD 4 TSXCOM TABLE
BCD 1RUM 3.
BCD 1 30.
BCD 2S IN 1147.
BCD 1O 1226
BCD 11227.
OCT 000607000074 SECTION III - FT 60
BCD 4 FIXCON TABLE
BCD 1RUM 2.
BCD 1 577.
BCD 2S ZERO.
BCD 1O 1226
BCD 11227.
OCT 000123000057 SECTION II - FT 47 BLOCK 5
BCD 4 FIXCON TABLE
BCD 1RUM 2.
BCD 1 71.
BCD 2S ZERO.
BCD 1O 124
BCD 1125.
OCT 000734000055 SECTION II - FT 45 BLOCK 4
BCD 4 FIXCON TABLE
BCD 1RUM 2.
BCD 1 710.
BCD 2S ZERO.
BCD 1O 1007
BCD 11010.
OCT 000070000134 SECTION PRE 6 - FT 92
BCD 4 TRANSFER VECTOR TABLE
BCD 1RUM 3.
BCD 1 56.
BCD 2S IN 60.
BCD 1O 4574
BCD 14575.
OCT 000246000134 SECTION PRE 6 - FT 92
BCD 4 SIZE TABLE
BCD 1RUM 2.
BCD 1 234.
BCD 2S IN 237.
BCD 1O 1350
BCD 11351.
OCT 000442000140 SECTION VI - FT 96 L 61
BCD 4 SIZE TABLE
BCD 1RUM 2.
BCD 1 430.
BCD 2S IN 433.
BCD 1O 366
BCD 1362.
OCT 000500000140 SECTION VI - FT 96 L 62
BCD 4 EQUIT TABLE
BCD 1RUM 1.
BCD 1 466.
BCD 2S IN 471.
BCD 1O 370
BCD 1362.
OCT 000230000145 SECTION VI - FT 101 L 64
BCD 4 FORSUB TABLE
BCD 1RUM 3.
BCD 1 215.
BCD 2S IN 217.
BCD 1O 704
BCD 1372.
OCT 000222000151 SECTION VI - FT 105 L 66
BCD 4 FORSUB TABLE
BCD 1RUM 3.
BCD 1 210.
BCD 2S IN 212.
BCD 1O 723
BCD 1556.
OCT 000222000163 SECTION VI - FT 115 L 73
BCD 4 TRANSFER VECTOR TABLE
BCD 1RUM 3.
BCD 1 210.
BCD 2S IN 212.
BCD 1O 3206
BCD 11054.
OCT 000140000070 SECTION III - FT 56
BCD 4 CHGTAG TABLE
BCD 1RUM 3.
BCD 1 127.
BCD 2S IN 2170.
BCD 1O 5737
BCD 15740.
OCT 000305000070 SECTION III - FT 56
BCD 4 SXDTX TABLE
BCD 1RUM 1.
BCD 1 274.
BCD 2S IN 2213.
BCD 1O 5737
BCD 15740.
PR BCD 2
BCD 8CHECK SUM ERROR IN READING THE WORD COUNT OF THE
PR1FOR BCD 4 TRANSFER VECTOR TABLE
BCD 8
BCD 1FROM D
PR2 BCD 1RUM 3.
BCD 5 COPY LOOP BEGINS AT LOCATION
PR3 BCD 1 123.
BCD 4 STARTING DRUM ADDRESS I
PR4TWO BCD 8S IN 1234.
BCD 5WORD COUNT HAS BEEN COPIED INT
PR5 BCD 10 1234
BCD 4 AND ITS CHECK SUM INTO
PR6 BCD 1234.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ENTRY CORRECTLY.
X
END
ORG 40 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 40 4444 FT 51
REM 40 6357 FT 29
REM 4O 7027 FT 36
REM 40 6762 FT 43
REM 40 1141 FT 45
REM 40 216 FT 47
REM 40 161 FT 56
REM 40 334 FT 56
REM 4O 107 FT 58
REM 4O 627 FT 60
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
LXD ZERO,1
D CLA A,1
SUB ERWORD
TZE B
TXI C,1,-9
C TXH D,1,-9*10
TSX PRINT,4
HTR ER,0,ER+72
HTR E
ER BCD 2
BCD LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO
BCD STIC RECORD NUMBER 40
BCD TO BE READ IN. THIS RECORD COMPARES THE LOCATION TO A LIST O
BCD F 10 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH
BCD HAS FAILED. THE ERRORS ARE LISTED IN 1452, 1452 PLUS 9 ETC.
BCD PRESS START IF YOU WISH TO
BCD RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED.
B CLA A1TWO,1
STO PR1TWO
CLA A1TWO+1,1
STO PR1TWO+1
CLA A2,1
STO PR2
CLA A3TWO,1
STO PR3TWO
CLA A3TWO+1,1
STO PR3TWO+1
CLA A4TWO,1
STO PR4TWO
CLA A4TWO+1,1
STO PR4TWO+1
CLA A5,1
STO PR5
TSX PRINT,4
HTR PR,0,PR+73
E TRA DIGRTN
A OCT 004666000000 SECTION II - BLOCK 5
A1TWO BCD 2 FIXCON TABL
A2 BCD 12.
A3TWO BCD 2TION 4605.
A4TWO BCD 2 IN 5214.
A5 BCD 1F 1 WO
OCT 001141000000 SECTION II - BLOCK 4
BCD 2 FIXCON TABL
BCD 12.
BCD 2TION 1060.
BCD 2 IN 1401
BCD 1F 1 WO
OCT 000627000000 SECTION III - FT60
BCD 2 FIXCON TABL
BCD 12.
BCD 2TION 610.
BCD 2 IN 1143.
BCD 1F 1 WO
OCT 000161000000 SECTION III - FT56
BCD 2 CHGTAG TABL
BCD 13.
BCD 2TION 141.
BCD 2 IN 2172.
BCD 1F 2 WO
OCT 007027000000 SECTION II - BLOCK 3
BCD 2 FORVAL TABL
BCD 12.
BCD 2TION 6776.
BCD 2 IN 6706.
BCD 1F 2 WO
OCT 006762000000 SECTION II - BLOCK 3-C
BCD 2 TSXCOM TABL
BCD 13.
BCD 2TION 6723.
BCD 2 IN 6716.
BCD 1F 2 WO
OCT 006357000000 SECTION II - BLOCK2 - STATE B
BCD 2 FORVAL TABL
BCD 12.
BCD 2TION 6211.
BCD 2 IN 6362.
BCD 1F 2 WO
OCT 000107000000 SECTION III - FT 58
BCD 2 TRASTO TABL
BCD 13.
BCD 2TION 56.
BCD 2 IN 2336.
BCD 1F 3 WO
OCT 000334000000 SECTION III
BCD 2 SXDTX TABL
BCD 11.
BCD 2TION 306.
BCD 2 IN 2214.
BCD 1F 2 WO
OCT 000216000000 SECTION II - BLOCK 5
BCD 2 ADTAG TABL
BCD 13.
BCD 2TION 150.
BCD 2 IN 217.
BCD 1F 4 WO
PR BCD 2
BCD 7CHECK SUM ERROR IN READING AN ENTRY OF THE
PR1TWO BCD 2 FIXCON TABL
BCD 2E FROM DRUM
PR2 BCD 92.
BCD 4COPY LOOP BEGINS AT LOCA
PR3TWO BCD 2TION 1234.
BCD 4STARTING DRUM ADDRESS IS
PR4TWO BCD 2 IN 1234.
BCD 8
BCD 4THIS TABLE IS COMPOSED O
PR5 BCD 1F 1 WO
BCD RD ENTRIES AND A CHECK SUM FOR EACH ENTRY.
BCD 5
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THE ENTIRE TABLE CORREC
BCD 1TLY.
X
END
ORG 41 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 41 5560 FT 34
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
LXD 0,2 IR 2EQUALS 2 FOR STATE B, BCD IS SET UP
TXH PRIN,2,1
CLA A1
STO PR1
CLA A2
STO PR2
CLA A3
STO PR3
CLA A4
STO PR4
CLA A5
STO PR5
PRIN TSX PRINT,4
HTR PR,0,PR+74
TRA DIGRTN
PR BCD 2
BCD 7CHECK SUM ERROR IN READING DRUM 1. THE ST
PR1 BCD 1ATE B
BCD CODING USED BY SECTION II, BLOCK 2, HAS BEEN
BCD 2
BCD READ INTO LOCATIONS 5566 THROUGH 6565. THE COMPUTED CHECK S
BCD UM, LOCATION 5561, IS COMPARED TO THE PERMANENT
BCD 1STATE
PR2 BCD 3B SUM IN LOCATION
PR3 BCD 65562. COPY LOOP BEGINS AT LOCATION
PR4 BCD 55534. STARTING DRUM ADDRESS I
PR5 BCD 5S 1000.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS BLOCK OF PROGRAM C
BCD 2ORRECTLY.
A1 BCD 1ATE A
A2 BCD 1A SUM
A3 BCD 15563.
A4 BCD 15555.
A5 BCD 1S ZERO
X
END
ORG 42 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 42 7760 FT 30
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
LXD 0,2 IR2 EQUALS 2 FOR STATE B, BCD IS SETUP
TXH PRIN,2,1
CLA A1
STO PR1
CLA A2
STO PR2
CLA A3
STO PR3
CLA A4
STO PR4
CLA A5
STO PR5
PRIN TSX PRINT,4
HTR PR,0,PR+96
TRA DIGRTN
PR BCD 2
BCD 7CHECK SUM ERROR IN READING DRUM 1. THE ST
PR1 BCD 1ATE B
BCD CODING USED BY SECTION II, BLOCK 2, HAS JUST
BCD 2
BCD 8BEEN WRITTEN ON THE DRUM, BEGINNING AT LOCATION
PR2 BCD 11000.
BCD TO VERIFY THAT THIS HAS BEEN DONE CORRECTLY,
BCD 1
BCD IT IS READ BACK INTO 4566 THROUGH 5565. THE COMPUTED CHECK
BCD SUM, LOCATION 7773, IS COMPARED TO A PERMANENT
BCD 1STATE
PR3 BCD 3B SUM IN LOCATION
PR4 BCD 17763.
BCD THE SUBROUTINE WHICH WRITES AND READS THE DRUM BEGINS AT 77
PR5 BCD 530.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO WRITE AND READ THIS BLOCK OF
BCD 4 PROGRAM CORRECTLY.
A1 BCD 1ATE A
A2 BCD 1ZERO.
A3 BCD 1A SUM
A4 BCD 17764.
A5 BCD 132.
X
END
ORG 43 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 43 4006 FT 51
REM 43 4007 FT 51
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
CLA ERWORD 4007 IF ALPHA STATE, BCD NOT SET UP
SUB ALPHA FOR ALPHA
TMI PRIN
CLA A1
STO PR1
CLA A2
STO PR2
CLA A3
STO PR3
PRIN TSX PRINT,4
HTR PR,0,PR+62
TRA DIGRTN
A1 BCD 1M 2.
A2 BCD 1THE AL
A3 BCD 1PHA ST
ALPHA OCT 004007000000
PR BCD 2
BCD 5CHECK SUM ERROR IN READING DRU
PR1 BCD 1M 1.
PR2 BCD 1THE B
PR3 BCD ETA STATE CODING USED BY SECTION II, BLOCK 5, HAS BEEN READ
BCD 3
BCD INTO 6226 THROUGH 7225, STARTING FROM DRUM ADDRESS 1751. TH
BCD E DRUM CHECK SUM IS IN 5202.
BCD THE COMPUTED CHECK SUM IS IN 5203. FIVE ATTEMPTS HAVE BEEN
BCD MADE TO READ THIS BLOCK OF PROGRAM CORRECTLY
X
END
ORG 44 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 44 6765 FT 36
TSX PRINT,4
HTR MACHIN,0,MACHIN
CLA 3570 OCTAL 6762 - DEC HAS CONTENTS IR1
ARS 18
ANA ADDMSK
STO ERAS
CLA PR1
SUB ERAS
TSX OCTBCD,4
SLW PR1
CAL PR1-1
LDQ PR1
ARS 18
LGL 18
SLW PR1-1
LGL 18
LDQ BLANKS
LGL 18
SLW PR1
TSX PRINT,4
HTR PR,0,PR+72
TRA DIGRTN
PR BCD 2
BCD CHECK SUM ERROR IN READING NAME TABLE FROM DRUM 3.
BCD
BCD COPY LOOP BEGINS AT LOCATION 6731. STARTING DRUM ADDRESS IS
BCD IN 6707.
BCD 9COMPUTED CHECK SUM IS IN 6771. DRUM CHECK SUM IS IN
PR1 OCT 000000006771
BCD
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.
X
END
ORG 45 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 45 1006 FT 45
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+95
TRA DIGRTN
PR BCD 2
BCD CHECK SUM ERROR IN READING TABLE IRV FROM DRUM 3. EITHER TH
BCD E WORD COUNT, LOCATION 1007,
BCD DOES NOT AGREE WITH ITS OWN CHECK SUM, LOCATION 1010, OR THE
BCD COMPUTED CHECK SUM OF THE TABLE,
BCD LOCATION 1011, DOES NOT AGREE WITH THE DRUM CHECK SUM. THE
BCD DRUM CHECK SUM HAS BEEN COPIED
BCD INTO LOCATION (435 PLUS WORD COUNT). COPY LOOP BEGINS AT L
BCD OCATION 752. STARTING DRUM ADDRESS IS 1304.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THE WORD COUNT AND THE
BCD 3TABLE CORRECTLY.
X
END
ORG 46 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 46 72 FT 60
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
RDR 4
LDA A
CPY ERAS IR1 IN DEC-WILL SHOW WHERE CHECK SUM IS
CLA ERAS UNCOMPLIMENT
ANA DECMSK
SUB PREFX1
ARS 18
STZ ERAS
STA ERAS
CLA PR1
SUB ERAS
TSX OCTBCD,4
SLW PR1
CAL PR1-1
LDQ PR1
ARS 12
LGL 12
SLW PR1-1
LGL 24
LDQ BLANKS
LGL 12
SLW PR1
TSX PRINT,4
HTR PR,0,PR+72
TRA DIGRTN
A HTR81227
PR BCD 2
BCD CHECK SUM ERROR IN READING TSXCOM TABLE FROM DRUM 3.
BCD
BCD COPY LOOP BEGINS AT LOCATION 42. STARTING DRUM ADDRESS IS I
BCD N 1150.
BCD 9COMPUTED CHECK SUM IS IN 1226. DRUM CHECK SUM IS IN
PR1 OCT 000000001230
BCD
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.
X
END
ORG 47 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 47 1I35 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+112
TRA DIGRTN
PR BCD 2
BCD CHECK SUM ERROR IN READING DOCARE TABLE FROM DRUM 1. THIS T
BCD ABLE WAS WRITTEN AS A 1 WORD ENTRY AND A
BCD CHECK SUM OF THAT ENTRY BEGINNING AT 2 ON THE DRUM. THE 1 W
BCD ORD ENTRIES ARE COPIED BACKWARDS
BCD INTO CORES BEGINNING 4216. THEIR CHECK SUMS ARE COPIED BACK
BCD WARDS INTO CORES BEGINNING AT 4363.
BCD A LOGICAL SUM OF EACH OF THE RESULTING TABLES IS DONE. CHEC
BCD K SUM OF THE ENTRIES IS IN 105.
BCD CHECK SUM OF THE CHECK SUMS IS IN 106. THE COPY LOOP BEGINS
BCD AT LOCATION 1102.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 48 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 48 341 FT 677
REM 48 3143 FT 64
REM 48 103 FT 67
REM 48 160 FT 67
REM 46 263 FT 67
REM 48 64 FT 71
REM 48 256 FT 73
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
LXD ZERO,3
C1 CLA A,1
SUB ERWORD
TZE B
TXI C,1,-1
C TXH C1,1,-14*7
TSX PRINT,4
HTR ER,0,ER+72
HTR D
ER BCD 2
BCD LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO
BCD STIC RECORD NUMBER 48
BCD TO BE READ IN. THIS RECORD COMPARES THE LOCATION TO A LIST
BCD OF 7 POSSIBLE DRUM READ FAILURES, BUT THE SEARCH
BCD HAS FAILED. THE ERRORS ARE LISTED IN 1471, 1471 PLUS 14, ET
BCD C. PRESS START IF YOU WISH TO
BCD RESTORE MACHINE TO STATE IN WHICH ERROR OCCURRED.
B CLA A+1,1
STO PR1,2
TXI B1,2,-1
B1 TXI B2,1,-1
B2 TXH B,2,-7
CLA A+1,1
STO PR2TWO
CLA A+2,1
STO PR2TWO+1
CLA A+3,1
STO PR3TWO
CLA A+4,1
STO PR3TWO+1
CLA A+5,1
STO PR4
CLA A+6,1
STO PR5
TSX PRINT,4
HTR PR,0,PR+72
D TRA DIGRTN
A OCT 000341000000 IN SECTI0N IV - PART 3
A1 BCD 7NG FRET TABLE FROM DRUM 2.
A2TWO BCD 2TION 300.
A3TWO BCD 2 IN 50.
A4 BCD 1 56.
A5 BCD 155.
OCT 003143000000 IN SECTION IV - PART 2
BCD 7NG TIFRD TABLE FROM DRUM 1.
BCD 2TION 3066.
BCD 2 IN 41.
BCD 1 121.
BCD 1127.
OCT 000263000000 IN SECTION IV - PART 3
BCD 7NG TRA TABLE FROM DRUM 1.
BCD 2TION 230.
BCD 2 ZERO.
BCD 1 56.
BCD 155.
OCT 000256000000 IN SECTION IV - PART 6
BCD 7NG BBLIST TABLE FROM DRUM 3.
BCD 2TION 234.
BCD 2 IN 63.
BCD 1 70.
BCD 167.
OCT 000160000000 IN SECTION IV - PART 3
BCD 7NG SET TABLE FROM DRUM 3.
BCD 2TION 137.
BCD 2 IN 47.
BCD 1 56.
BCD 155.
OCT 000103000000 IN SECTION IV - PART 3
BCD 7NG SET TABLE FROM DRUM 3.
BCD 2TION 62.
BCD 2 IN 47.
BCD 1 56.
BCD 155.
OCT 000064000000 IN SECTION IV - PART 5
BCD 7NG DOLIST TABLE FROM DRUM 1.
BCD 2TION 42.
BCD 2 IN 36.
BCD 1 37.
BCD 140.
PR BCD 2
BCD 4CHECK SUM ERROR IN READI
PR1 BCD 7NG FRET TABLE FROM DRUM 2.
BCD 9
BCD 4COPY LOOP BEGINS AT LOCA
PR2TWO BCD 2TION 3.
BCD 4STARTING DRUM ADDRESS IS
PR3TWO BCD IN 50.
BCD 4COMPUTED CHECK SUM IS IN
PR4 BCD 1 56.
BCD 4 DRUM CHECK SUM IS IN
PR5 BCD 55.
BCD 1
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS TABLE CORRECTLY.
X
END
ORG 49 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 49 4570 FT 34
SUBORG SYN84612 THIS IS SUBORG+3
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
RDR 4
LDA TAG
CPY TAG
CLA TAG SAME INSTRUCTIONS AS
LRS 9 SECTION II - BLOCK 2 - 4527 THRO 4542
PAX 0,6
PXD
LLS 9 AT END OF TIX, ADDRESS OF AC HAS
STO SUBES1 DRUM ADDRESS OF FIRST WORD OF
ALS 1 ENTRY AND IR 2 HAS 1 - 2 WORDS + SUM
STO SUBES2 2 - 4 WORDS + SUM
CLA SUBORG,4 3 - 6 WORDS + SUM
ADD SUBES1
SUB030 ADD SUBES2
TIX SUB030,4,1
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
LGL 12 SHIFT OUT FIRST 2 BLANKS
CAL PR2
LGL 18
SLW PR2
LGL 6
LDQ PR3
LGL 30
SLW PR3
CLA A+1,2
STO PR1
TSX PRINT,4
HTR PR,0,PR+142
TRA DIGRTN
TAG HTR83700
SUBES1
SUBES2
BCD 1NG A 6
BCD 1NG A 4
A BCD 1NG A 2
PR BCD 2
BCD 4CHECK SUM ERROR IN READI
PR1 BCD 1NG A 2
BCD WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.
BCD 5
BCD 5THE DRUM ADDRESS OF THE ENTRY
PR2 BCD 1 IS
PR3 BCD 1. FI
BCD VE ATTEMPTS HAVE BEEN MADE TO READ
BCD 3
BCD THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.
BCD
BCD
BCD
BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES
BCD , 2048 WORDS OF MEMORY
BCD HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES
BCD AND THEIR CHECK SUMS.
BCD MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE
BCD CHECK SUM ERROR ON THE DRUM.
X
END
ORG 50 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 50 7751 FT 36
TAG SYN86626
SUBORG SYN87773 THIS IS SUBORG + 3
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
CLA TAG SAME INSTRUCTIONS AS 7710 THRO 7723
LRS 9 IN SECTION II - BLOCK 3 - INIT.
PAX 0,6
PXD AT END OF TIX, ADDRESS OF AC HAS
LLS 9 DRUM ADDRESS OF FIRST WORD OF ENTRY
STO SUBES1
ALS 1 AND IR 2 HAS 1 - 2 WORDS + SUM
STO SUBES2 2 - 4 WORDS + SUM
CLA SUBORG,4 3 - 6 WORDS + SUM
ADD SUBES1
SUB030 ADD SUBES2
TIX SUB030,4,1
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
LGL 12 SHIFT OUT FIRST 2 BLANKS
CAL PR2
LGL 18
SLW PR2
LGL 6
LDQ PR3
LGL 30
SLW PR3
CLA A+1,2
STO PR1
TSX PRINT,4
HTR PR,0,PR+142
TRA DIGRTN
BCD 1NG A 6
BCD 1NG A 4
A BCD 1NG A 2
SUBES1
SUBES2
PR BCD 2
BCD 4CHECK SUM ERROR IN READI
PR1 BCD 1NG A 2
BCD WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.
BCD 5
BCD 5THE DRUM ADDRESS OF THE ENTRY
PR2 BCD 1 IS
PR3 BCD 1. FI
BCD VE ATTEMPTS HAVE BEEN MADE TO READ
BCD 3
BCD THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.
BCD
BCD
BCD
BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES
BCD , 2048 WORDS OF MEMORY
BCD HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES
BCD AND THEIR CHECK SUMS.
BCD MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE
BCD CHECK SUM ERROR ON THE DRUM.
X
END
ORG 51 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 51 11231 FT 445
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
RDR 4
LDA ADSBTG
CPY SUBTAG
CLA SUBTAG MOSTLY SAME INSTRUCTIONS AS 1153 THRO
LRS 9 1166 IN SECTION II, BLOCK 4
PAX 0,6
PXD
LLS 9
STO SUBES1
ALS 1
STO SUBES2
PXD 0,4 MODIFY ADDRESS TO BE SAME
ARS 18 AS SUBORG+3,4
STO ERAS
CLA ADSBRG
SUB ERAS
STA ERAS
RDR 4
LDA ERAS
CPY SUBORG
CLA SUBORG ATEND OF TIX, AC ADDRESS IS
ADD SUBES1 ADDRESS OF ENTRY ON DRUM AND
SUB030 ADD SUBES2 IR2 CONTAINS 1 - 2 WORDS + CHECK SUM,
TIX SUB030,4,1 2 - 4 WORDS + SUM, OR 3 - 6 WORDS + SUM
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
LGL 12 SHIFT OUT FIRST 2 BLANKS
CAL PR2
LGL 18
SLW PR2
LGL 6
LDQ PR3
LGL 30
SLW PR3
CLA A+1,2
STO PR1
TSX PRINT,4
HTR PR,0,PR+142
TRA DIGRTN
SUBTAG
ADSBTG OCT 000000001237
SUBES1
SUBES2
SUBORG
ADSBRG OCT 000000001235
BCD 1NG A 6
BCD 1NG A 4
A BCD 1NG A 2
PR BCD 2
BCD 4CHECK SUM ERROR IN READI
PR1 BCD 1NG A 2
BCD WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.
BCD 5
BCD 5THE DRUM ADDRESS OF THE ENTRY
PR2 BCD 1 IS
PR3 BCD 1. FI
BCD VE ATTEMPTS HAVE BEEN MADE TO READ
BCD 3
BCD THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.
BCD
BCD
BCD
BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES
BCD , 2048 WORDS OF MEMORY
BCD HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES
BCD AND THEIR CHECK SUMS.
BCD MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE
BCD CHECK SUM ERROR ON THE DRUM.
X
END
ORG 52 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 52 4307 FT 51
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
SUBTAG SYN 2265 4331 OCTAL
SUBORG SYN 2263 4327 OCTAL - THIS IS SUBORG + 3
CLA SUBTAG SAME AS INSTRUCTIONS 4246 THRO
LRS 9 4261 IN SECTION II
PAX 0,6
PXD AT END OF TIX, AC ADDRESS HAS
LLS 9 DRUM ADDRESS OF ENTRY AND
STO SUBES1 IR 2 EQUALS 1 FOR 2 WORD + CHECKSUM
ALS 1 2 FOR 4 WORD + SUM
STO SUBES2 3 FOR 6 WORD + SUM
CLA SUBORG,4
ADD SUBES1
SUB030 ADD SUBES2
TIX SUB030,4,1
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
LGL 12 SHIFT 0UT FIRST 2 BLANKS
CAL PR2
LGL 18
SLW PR2
LGL 6
LDQ PR3
LGL 30
SLW PR3
CLA A+1,2
STO PR1
TSX PRINT,4
HTR PR,0,PR+142
TRA DIGRTN
SUBES1
SUBES2
BCD 1NG A 6
BCD 1NG A 4
A BCD 1NG A 2
PR BCD 2
BCD 4CHECK SUM ERROR IN READI
PR1 BCD 1NG A 2
BCD WORD ENTRY AND ITS CHECK SUM IN THE TAU TABLE ON DRUM 4.
BCD 5
BCD 5THE DRUM ADDRESS OF THE ENTRY
PR2 BCD 1 IS
PR3 BCD 1. FI
BCD VE ATTEMPTS HAVE BEEN MADE TO READ
BCD 3
BCD THE ENTRY CORRECTLY FROM THIS PARTICULAR ADDRESS.
BCD
BCD
BCD
BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES
BCD , 2048 WORDS OF MEMORY
BCD HAVE BEEN READ ONTO DRUM 4, DESTROYING THE TAU TABLE ENTRIES
BCD AND THEIR CHECK SUMS.
BCD MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE
BCD CHECK SUM ERROR ON THE DRUM.
X
END
ORG 53 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 53 150 FT 75
RDR 4
LDA D273 THIS IS THA ACL WITH ADDRESS OF
CPY D273 DRUM CHECK SUM IN CORES
CLA D273
STA GETSUM
GETSUM CLA
STO DRMSUM HAVE ACTUAL DRUM CHECK SUM
RDR 4
LDA D307 HAVE COMPUTED CHECK SUM FROM
CPY D307 PERMANENT LOCATION
RDR 4
LDA D313 HAVE DRUM SELECT AND
CPY D313 INITIAL DRUM ADDRESS
SLT8141 TURN OFF SENSE LIGHT 1
NOP
CLA PREFX1
SUB MEM4K
TNZ LX
PSE8141 TURN ON SENSE LIGHT 1, MEMORY IS 4K
LX LXD 0,2 IR2 WAS SAVED IN DEC LOC ZERO
PXD 0,2
SUB PREFX1
ANA DECMSK
LXA TAB,2
CAS CAS TAB,2
TRA TIXT
TRA HAVE
TIXT TIX CAS,2,5
TSX PRINT,4 CANNOT IDENTIFY TABLE VERRRY BAD
HTR ER,0,ER+202
HTR DIGRTN
ER BCD 2
BCD LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO
BCD STIC RECORD NUMBER 53
BCD TO BE READ IN. THIS RECORD COMPARES THE 2S COMPLIMENT OF IN
BCD DEX REGISTER 2 TO A LIST OF 4 TABLE STOPS,
BCD BUT NO MATCH HAS BEEN FOUND.
BCD
BCD THE CONTENTS OF IR 2 WERE SAVED IN THE DECREMENT OF LOCATION
BCD ZERO.
BCD THIS DECREMENT SHOULD EQUAL ....
BCD
BCD 77744 STAG TABLE
BCD
BCD 77733 SUCC TABLE
BCD
BCD 77721 PRED TABLE
BCD
BCD 77707 BBB TABLE
BCD
BCD PRESS START IF YOU WISH TO RESTORE MACHINE TO CONDITION IN WH
BCD ICH ERROR OCCURRED.
HAVE CLA TAB+1,2 BCD NAME OF TABLE
STO PR1
CLA TAB+4,2 BCD LINE ABOUT SIZE OF TABLE ENTRIES
STO PRTAB
SLN 1
TRA MEM8K
TIX MEM8K,2,1
MEM8K CLA TAB+2,2 THIS IS ADDRESS OF 1ST WORD IN
STO BUFADR BUFFER FOR WHATEVER K
CLA D273 SUBTRACT ADDRESS OF 1ST WORO IN
ANA ADDMSK BUFFER FROM ADDRESS OF DRUM CHECK SUM
SUB BUFADR
STO WDC NOW HAVE ACTUAL WORD COUNT
TSX OCTBCD,4 CONVERT TO BCD AND STORE IN COMMENT
SLW ERAS
LDQ ERAS
LGL 12
CAL PR6
LGL 18
SLW PR6
LGL 6
LDQ PR7
LGL 30
SLW PR7
CLA BUFADR CONVERT ADDRESS OF 1ST WORD OF
TSX OCTBCD,4 CORE BUFFER AND STORE IN COMMENT
SLW ERAS
LDQ ERAS
CAL ADMEM
LGL 18
SLW ADMEM
LGL 18
LDQ BLANKS
LGL 18
SLW ADMEM+1
CLA D313 FIND NUMBER OF DRUM
ALS 7
PDX 0,1
CLA DRM,1 BCD TABLE
STO PR4
CLA D313
ANA DRUMSK ADD WORD COUNT TO ADDRESS OF
STA DRMADR 1ST WORD ON DRUM, SPLIT DRUM
ADD WDC IF BITS CAN BE MOVED INTO DECREMENT
ALS 7
PDX 0,2
TXL ISDR4,2,0
TXI SPLIT,1,1
SPLIT CAL DRM,1 NEXT BCD WORD FROM TABLE INTO
LDQ BLANKS COMMENT
LGL 6
SLW PR5
CLA PRSPLT EXPAND FIRST COMMENT TO SHOW
STO TSX1 SPLIT BUFFER
ISDR4 TXL GETLDA,1,2 IFF BUFFER ON DRUM 4, IT IS CLOBBERED
CLA PRALL PRINT SAME
STO TSX2
GETLDA CLA DRMADR CONVERT ADDRESS OF 1ST WORD ON
TSX OCTBCD,4 THE DRUM AND STORE IN COMMENT
SLW ERAS
LDQ ERAS
LGL 12
CAL PR2
LGL 12
SLW PR2
LGL 12
LDQ PR3
LGL 24
SLW PR3
CLA D273 CONVERT AND STORE ADDRESS IN CORES
TSX OCTBCD,4 OF DRUM CHECK SUM
SLW PR9
LDQ D307 CONVERT ALL OF 36 BIT WORD TO PRINT
LGL 15 COMPUTED CHECK SUM
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
PXD
LGL 6
SLW ERAS+1 IE, STORE 00000B
PXD
LGL 6
ALS 6
ADD ERAS+1
LGL 24
SLW PR8
LDQ D307
LGL 15
PXD
LGL 12
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
LGL 18
ALS 6
ADD ERAS+1
LGL 6
ALS 6
ADD ERAS+1
LGL 12
SLW PR8+1
LDQ D307
LGL 27
PXD
LGL 9
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
RQL 18
LGL 18
LDQ BLANKS
LGL 18
SLW PR8+2
LDQ DRMSUM CONVERT AND STORE ALL OF 36 BIT
PXD DRUM CHECK SUM
LGL 3
ALS 6
ORS PR10
LGL 15
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
RQL 6
STQ PR10+1
LDQ DRMSUM
LGL 18
PXD
LGL 15
STQ ERAS+2
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
LGL 12
ALS 6
ADD ERAS+1
LGL 24
SLW PR10+2
LDQ ERAS+2
PXD
LGL 3
LDQ BLANKS
LGL 30
SLW PR10+3
TSX PRINT,4
TSX1 HTR PR,0,PR+22
TSX PRINT,4
HTR PRCR,0,PRCR+10
TSX PRINT,4
PRTAB
TSX PRINT,4
TSX2 HTR PRSZ,0,PRSZND
TRA DIGRTN
BCD 1DRUM 4
BCD 1DRUM 3
BCD 1DRUM 2
DRM BCD 1DRUM 1
STIR HTR80,0,34 STAG DEC HAS IR2 C0MPLEMENTED
BCD 1 STAG IF TABLE STAG IR 2 IS 77744
HTR85263 BUFFER ADDRESS FIRST WORD 8K
HTR85061 DITTO 4K
HTR PRA,0,PRA+22
HTR80,0,45 SUCC IR2 IS 77733
BCD 1 SUCC
HTR816734 8K
HTR87555 4K
HTR PRB,0,PRB+12
HTR80,0,57 PRED IR2 IS 77721
BCD 1 PRED
HTR815674 8K
HTR87337 4K
HTR PRC,0,PRC+12
HTR80,0,71 BBB IR2 IS 77707
BCD 1 BBB
HTR812533 8K
HTR86442 4K
HTR PRD,0,PRD+12
TAB HTR TAB-STIR
D273 HTR8273 COPY ACL WITH ADDRESS 0F DRUM SUM IN CORES
DRMSUM DRUM SUM FROM ADDRESS FOUND ABOVE
D307 HTR8307 COMPUTED SUM PICKED UP FROM 307 AND STORED
D313 HTR8313 DRUM SELECT AND INITIAL ADDRESS FROM 313
MEM4K OCT 010000000000
BUFADR CORE ADDRESS 0F 1ST WORD OF TABLE
WDC ACTUAL WORD COUNT STORED HERE
DRMADR D313 ANA 3777 IS ADDRESS 1ST WORD ON DRUM
DRUMSK HTR83777
PRSPLT HTR PR,0,PR+32
PRALL HTR PRSZ,0,X
PR BCD 2
BCD 7CHECK SUM ERROR IN READING A BUFFER OF THE
PR1 BCD 1 STAG
BCD 4TABLE, BEGINNING AT ADDR
PR2 BCD 1 ESS CHANGED TO ESS 12
PR3 BCD 1 ON CHANGED TO 34 0N
PR4 BCD 6DRUM 1
BCD 3AND CONTINUED ON D
PR5 BCD 7RUM 2.
PRCR BCD 2
BCD 6IN CORES, THE BUFFER BEGINS AT LOCAT
ADMEM BCD 2 ION C+ANGED TO ION 12345
PRA BCD 2
BCD THE STAG TABLE HAS A 4 BIT ENTRY FOR EACH TAGGED INSTRUCTION
BCD COMPILED. EACH STAG WORD HOLDS 9 ENTRIES.
PRB BCD 2
BCD THE SUCC TABLE HAS 1 WORD ENTRIES.
PRC BCD 2
BCD THE PRED TABLE HAS 1 WORD ENTRIES.
PRD BCD 2
BCD THE BBB TABLE HAS 6 WORD ENTRIES.
PRSZ BCD 2
BCD 8THE TABLE WAS WRITTEN ON THE DRUM FROM A BUFFER
PR6 BCD 1 OF (+ANGED TO OF 123
PR7 BCD 1 WORD CHANGED TO 4 WORD
BCD S OCTAL.
BCD EACH BUFFER IS FOLLOWED BY ITS CHECK SUM.
BCD
BCD 7THE COMPUTED CHECK SUM IN LOCATION 307 IS
PR8 BCD 0 00000 0 00000
BCD 3
BCD 5THE DRUM CHECK SUM IN LOCATION
PR9 BCD 1 12345
PR10 BCD IS 0
BCD 4
BCD
BCD
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS SECTION OF THE TAB
BCD LE CORRECTLY FROM THE DRUM.
BCD
BCD
BCD
BCD
BCD NOTE - IF THE CHECK SUM DISCREPANCY IS LARGE, IT MAY INDICAT
BCD E A PART OF THE PROGRAM CANNOT BE REACHED.
PRSZND BCD
BCD
BCD
BCD
BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES
BCD , 2048 WORDS OF MEMORY HAVE BEEN WRITTEN
BCD ON TO DRUM 4, DESTROYING THE TABLES AND THEIR CHECK SUMS.
BCD
BCD MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE
BCD CHECK SUM ERROR ON THE DRUM.
X
END
ORG 54 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 54 222 FT 94
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+162
TRA DIGRTN
PR BCD 2
BCD CHECK SUM ERROR IN READING THE WORD COUNT OF THE EIFNO TABLE
BCD FROM DRUM 4.
BCD THE DRUM ADDRESS OF THIS ENTRY IS 2, AND IT IS COPIED INTO C
BCD ORE LOCATION 165.
BCD ITS CHECK SUM IS COPIED FROM 3 INTO 223. THE COPY LOOP BEGI
BCD NS AT 210.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ONE ENTRY CORRECTL
BCD Y.
BCD
BCD
BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES
BCD , 2048 WORDS OF MEMORY
BCD HAVE BEEN READ ONTO DRUM 4, DESTROYING THE EIFNO WORD COUNT,
BCD ITS CHECK SUM, AND THE TABLE.
BCD MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE
BCD CHECK SUM ERROR ON THE DRUM.
X
END
ORG 55 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 55 222 FT 107
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+162
TRA DIGRTN
PR BCD 2
BCD CHECK SUM ERROR IN READING THE WORD COUNT OF THE EIFNO TABLE
BCD FROM DRUM 4.
BCD THE DRUM ADDRESS OF THIS ENTRY IS 2, AND IT IS COPIED INTO C
BCD ORE LOCATION 2112.
BCD ITS CHECK SUM IS COPIED FROM 3 INTO 533. THE COPY LOOP BEGI
BCD NS AT 210.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ONE ENTRY CORRECTL
BCD Y.
BCD
BCD
BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES
BCD , 2048 WORDS OF MEMORY
BCD HAVE BEEN READ ONTO DRUM 4, DESTROYING THE EIFNO WORD COUNT,
BCD ITS CHECK SUM, AND THE TABLE.
BCD MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE
BCD CHECK SUM ERROR ON THE DRUM.
X
END
ORG 56 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 56 241 FT 107
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
RDR 4 165 OCTAL, CONTAINS WORD COUNT
LDA A
CPY ERAS
CLA ERAS
ARS 18
STO ERAS+10
TSX BINDEC,4
SLW ERAS
LDQ ERAS
CAL PR2
RQL 6
LGL 30
SLW PR2
CLA TEIFNO
SUB ERAS+10
TSX OCTBCD,4
SLW ERAS
LDQ ERAS
LGL 12
CAL PR1
LGL 24
SLW PR1
TSX PRINT,4
HTR PR,0,PR+182
TRA DIGRTN
TEIFNO OCT 00000002112
A HTR8165
PR BCD 2
BCD CHECK SUM ERROR IN READING THE EIFNO TABLE FROM DRUM 4.
BCD
BCD THE DRUM ADDRESS OF THE FIRST ENTRY IS 4. THE TABLE IS COPI
BCD 1ED INT
PR1 BCD 1 O
BCD 1 AND I
PR2 BCD 1 S
BCD 6 WORDS LONG.
BCD THE DRUM CHECK SUM IS IN 533. THE COMPUTED CHECK SUM IS NOT
BCD STORED, THEREFORE IT IS NOT AVAILABLE.
BCD THE COPY LOOP BEGINS AT LOCATION 223.
BCD
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THE EIFNO TABLE CORRECT
BCD LY.
BCD
BCD
BCD IN ORDER TO CALL IN THIS DIAGNOSTIC WITHOUT DISTURBING CORES
BCD , 2048 WORDS OF MEMORY
BCD HAVE BEEN READ ONTO DRUM 4, DESTROYING THE EIFNO WORD COUNT,
BCD THE TABLE, AND ITS CHECK SUM.
BCD MEMORY WILL BE RESTORED, BUT THERE IS NO WAY TO CONFIRM THE
BCD CHECK SUM ERROR ON THE DRUM.
X
END
ORG 57 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 57 1274 FT 22
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
RDR 4
LDA A
CPY ERAS
CLS OTA FORM LOCATION OF FIRST WORD IN TABLE
ADD ERAS
TSX OCTBCD,4
LDQ BLANKS
LGL 6
SLW PR1
TSX PRINT,4
HTR PR,0,PR+76
TRA DIGRTN
A HTR81256 LOCATION 0F WORD COUNT OF FLOCON TABLE
OTA PXD85453 ADDRESS OF LAST TABLE ENTRY PLUS ONE.
PR BCD 2
BCD CHECK SUM ERROR IN READING FLOCON TABLE FROM DRUM 2. COPY L
BCD OOP BEGINS AT LOCATION 1250.
BCD 9STARTING DRUM ADDRESS IS IN 551. THE TABLE BEGINS AT
PR1 BCD 1 1234
BCD AND CONSISTS OF BLOCKS OF FIFTY WORDS,
BCD EACH BLOCK PRECEDED BY ITS OWN CHECK SUM. CHECK SUMMING IS
BCD DONE BY ADD-AND-CARRY-LOGICAL AND COMPLEMENT.
BCD IT IS NOT STORED. FIVE ATTEMPTS HAVE BEEN MADE TO READ THE
BCD 4ENTIRE TABLE CORRECTLY.
X
END
ORG 58 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 58 1345 FT 22
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+72
TRA DIGRTN
PR BCD 2
BCD CHECK SUM ERROR IN READING DIM1 TABLE FROM DRUM 3. COPY LOO
BCD P BEGINS AT LOCATION 1316. STARTING DRUM
BCD ADDRESS IS IN 614. THE TABLE IS COMPOSED OF TWO WORD ENTRIE
BCD S, EACH ENTRY FOLLOWED BY ITS OWN CHECK SUM.
BCD CHECK SUMMING IS DONE BY ADD-AND-CARRY-LOGICAL AND COMPLEMEN
BCD T. IT IS NOT STORED. FIVE ATTEMPTS
BCD HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY.
X
END
ORG 59 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 59 1377 FT 22
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+72
TRA DIGRTN
PR BCD 2
BCD CHECK SUM ERROR IN READING DIM2 TABLE FROM DRUM 3. COPY LOO
BCD P BEGINS AT LOCATION 1350. STARTING DRUM
BCD ADDRESS IS IN 621. THE TABLE IS COMPOSED OF TWO WORD ENTRIE
BCD S, EACH ENTRY FOLLOWED BY ITS OWN CHECK SUM.
BCD CHECK SUMMING IS DONE BY AN ADD-AND-CARRY-LOGICAL AND COMPLE
BCD MENT. IT IS NOT STORED. FIVE ATTEMPTS
BCD HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY.
X
END
ORG 60 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 60 1444 FT 22
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+72
TRA DIGRTN
PR BCD 2
BCD CHECK SUM ERROR IN READING DIM3 TABLE FROM DRUM 3. COPY LOO
BCD P BEGINS AT LOCATION 1413. STARTING DRUM
BCD ADDRESS IS IN 626. THE TABLE IS COMPOSED OF THREE WORD ENTR
BCD IES, EACH ENTRY FOLLOWED BY ITS OWN CHECK SUM.
BCD CHECK SUMMING IS DONE BY AN ADD-AND-CARRY-LOGICAL AND COMPLE
BCD MENT. IT IS NOT STORED. FIVE ATTEMPTS
BCD HAVE BEEN MADE TO READ THE ENTIRE TABLE CORRECTLY.
X
END
ORG 61 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 61 1031 FT 24
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING TIFGO TABLE, TAPE 2, FILE 5, RECORD 6.
BCD COPY LOOP BEGINS AT LOCATION 771.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 62 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 62 1221 FT 22
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING A CIT RECORD FROM TAPE 3. COPY LOOP B
BCD EGINS AT LOCATION 1173.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 63 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 63 7720 FT 21
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+74
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING A RECORD FROM TAPE 2. THIS RECORD IS
BCD A TABLE ASSEMBLED BY SECTION 1 PRIME
BCD FROM ENTRIES ON TAPE 3 INTO A BUFFER AND WRITTEN ON TAPE 2.
BCD SUBROUTINE WHICH WRITES THE TAPE BEGINS AT
BCD LOCATION 7656. THE RECORD HAS BEEN READ BACK INTO LOCATION
BCD 7632 AND THE RTT INSTRUCTION HAS FAILED
BCD EACH TIME. FIVE ATTEMPTS HAVE BEEN MADE TO WRITE THIS RECOR
BCD 2D CORRECTLY.
X
END
ORG 64 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 64 7627 FT 21
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+74
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING A RECORD FROM TAPE 4. THIS RECORD IS
BCD A TABLE IDENTIFICATION WORD AND AN ENTRY
BCD MADE BY SECTION 1 ON TAPE 4. SECTION 1 PRIME IS ATTEMPTING
BCD TO PUT ALL THE SIMILAR ENTRIES INTO ONE
BCD BUFFER BEFORE WRITING THE TABLE ON TAPE 2. COPY LOOP BEGINS
BCD AT LOCATION 7550. RECORD IDENTIFICATION
BCD IS AT 7631. FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECOR
BCD 2D CORRECTLY.
X
END
ORG 65 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 65 61 FT 47
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING 2 WORD RECORD FROM TAPE 2, FILE 7. CO
BCD PY LOOP IS AT LOCATION 30.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 66 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 66 116 FT 53
REM 66 132 FT 53
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 3, FILE 1. COPY LOOP
BCD IS AT LOCATION 51.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 67 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 67 4026 FT 51
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 2, FILE 6. COPY LOOP
BCD IS AT LOCATION 4012.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 68 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 68 4054 FT 51
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING TAGTAG RECORD FROM TAPE 4, FILE 2. CO
BCD PY LOOP IS AT LOCATION 4027.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 69 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 69 4155 FT 34
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING DOTAG RECORD FROM TAPE 3, FILE 1. COP
BCD Y LOOP IS AT LOCATION 4116.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 70 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 70 6744 FT 41
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD INCORRECT RECORD TAPE 2, FILE 7. RECORD IS 2 WORDS, EACH IS
BCD RECORD COUNT OF FILE 6. RECORD HAS BEEN
BCD READ 6 TIMES AND FAILED EACH TIME TO FIND THE WORDS EQUAL.
X
END
ORG 71 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 71 6767 FT 39
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING DOTAG RECORD FROM TAPE 2, FILE 6. COP
BCD Y LOOP IS AT LOCATION 6730.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 72 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 72 7070 FT 36
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+67
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING DOTAG RECORD FROM TAPE 3, FILE 1. REC
BCD ORD CONTAINS A NUMBER OF 9 WORD ENTRIES.
BCD COPY LOOP AT LOCATION 7043 READS ONLY FIRST AND SECOND WORD
BCD OF EACH ENTRY, COPY AT LOCATION 7054 COPIES
BCD OTHER 7 WORDS INTO ERASABLE STORAGE AND RETURNS TO 7043 FOR
BCD NEXT ENTRY. FIVE ATTEMPTS HAVE BEEN MADE
BCD 5TO READ THIS RECORD CORRECTLY.
X
END
ORG 73 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 73 7123 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
LXD ZERO,4
CLA 3669 7125 OCTAL
C CAS TABLE,4
TRA A
TRA HAVE
A TXI B,4,3
B TXL C,4,15
TSX PRINT,4
HTR ER,0,ER+92
HTR D
ER BCD 2
BCD LOCATION OF ERROR, WHICH HAS BEEN PRINTED, HAS CAUSED DIAGNO
BCD STIC RECORD NUMBER 73
BCD TO BE READ IN. THIS RECORD COMPARES THE IDENTIFICATION WORD
BCD OF A TAPE RECORD, LOCATION 7125, TO A LIST
BCD OF 6 POSSIBLE TAPE IDENTIFICATION WORDS, BUT THE SEARCH HAS
BCD FAILED. TABLE IDENTIFICATION WORDS
BCD ARE IN 1463, 1463 PLUS 3, ETC. PRESS START IF YOU WISH TO R
BCD ESTORE MACHINE TO CONDITION IN WHICH
BCD ERROR OCCURRED.
HAVE LDQ TABLE-2,4
CAL PR1
LGL 12
SLW PR1
LGL 24
LDQ PR2
LGL 12
SLW PR2
CAL TABLE-1,4
LDQ PR3
LGL 24
SLW PR3
TSX PRINT,4
HTR PR,0,PR+32
D TRA DIGRTN
BCD 1FORVAL
BCD 1 9 NUMBER OF RECORD IN FILE 5
HTR 6 IDENTIFICATION IN RECORD
BCD 1FORVAR
BCD 1 10
HTR 5
BCD 1FORTAG
BCD 1 11
HTR 4
BCD 1 TRAD
BCD 1 7
HTR 3
BCD 1 TIFGO
BCD 1 6
HTR 2
BCD 1 TDO
BCD 1 8
TABLE HTR 1
PR BCD 2
BCD 3TAPE CHECK IN READ
PR1 BCD 1 ING
PR2 BCD 1 R
BCD 5ECORD, TAPE 2, FILE 5, RECORD
PR3 BCD 1. C
BCD 9OPY LOOP IS AT LOCATION 7066.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 74 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 74 74 FT 56
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+77
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 2. ERROR CHECKING IS
BCD AT LOCATION 64, BUT THERE ARE
BCD 3 COPY LOOPS WHICH USE THIS CHECKING. LOCATION 30 TO READ T
BCD HE 1 WORD RECORD IN FILE 7,
BCD LOCATION 43 TO READ FORTAG, THE 11TH RECORD IN FILE 5, OR LO
BCD CATION 557 TO READ A 1 WORD
BCD RECORD IN FILE 3. FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS
BCD 5 RECORD CORRECTLY.
X
END
ORG 75 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 75 350 FT 58
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING TIFGO RECORD FROM TAPE 2, FILE 5, RECO
BCD RD 6. COPY LOOP IS AT LOCATION 324.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 76 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 76 375 FT 58
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING TRAD RECORD FROM TAPE 2, FILE 5, RECOR
BCD D 7. COPY LOOP IS AT LOCATION 352.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 77 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 77 410 FT 58
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING THE FIRST WORD OF FILE 1, TAPE 4. COP
BCD Y LOOP IS AT LOCATION 401.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS ONE WORD CORRECTLY
X
END
ORG 78 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 78 430 FT 58
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING TRALEV RECORD FROM TAPE 4, FILE 1, REC
BCD ORD 1. COPY LOOP IS AT LOCATION 400.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 79 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 79 446 FT 58
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING TRALEV RECORD FROM TAPE 4, FILE 1, REC
BCD ORD 2. COPY LOOP IS AT LOCATION 432.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 80 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 80 510 FT 56
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING CIT RECORD FROM TAPE 2. FILE 2. COPY
BCD LOOP IS AT LOCATION 506.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 81 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 81 520 FT 56
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING COMPDO RECORD FROM TAPE 4, FILE 2. CO
BCD PY LOOP IS AT LOCATION 516.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 82 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 82 674 FT 60
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+35
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING A RECORD FROM THE TIFGO FILE. THIS IS
BCD THE 8TH FILE OF TAPE 2. COPY LOOP IS AT
BCD LOCATION 654. FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS REC
BCD 3ORD CORRECTLY.
X
END
ORG 83 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 83 720 FT 60
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+37
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING A RECORD FROM TAPE 3, FILE 1. THIS FI
BCD LE IS A MERGE OF THE COMPAIL AND COMPDO FILES.
BCD COPY LOOP IS AT LOCATION 700. FIVE ATTEMPTS HAVE BEEN MADE
BCD 5TO READ THIS RECORD CORRECTLY.
X
END
ORG 84 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 84 303 FT 73
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING CIT RECORD, TAPE 4, FILE 1. COPY LOOP
BCD IS AT LOCATION 265.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 85 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 85 350 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING CIT RECORD, TAPE 4, FILE 1. COPY LOOP
BCD IS AT LOCATION 327.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 86 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 86 517 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING TIFGO RECORD FROM TAPE 2, FILE 5, RECO
BCD RD 6. COPY LOOP IS AT LOCATION 522.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 87 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 87 553 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING TRAD RECORD FROM TAPE 2, FILE 5, RECOR
BCD D 7. COPY LOOP IS AT LOCATION 556.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 88 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 88 716 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING FRET RECORD FROM TAPE 2, FILE 5, RECOR
BCD D 12. COPY LOOP IS AT LOCATION 721.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 89 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 89 IO23 FT 64
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
CLA DECONE SET CONTROL FOR BST
STD 0
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING CIT RECORD, TAPE 4, FILE 1. COPY LOOP
BCD IS AT LOCATION 1026.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 90 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 90 1175 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING DOTAG RECORD, TAPE 2, FILE 6. COPY LO
BCD OP IS AT LOCATION 1200.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 91 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 91 327 FT 86
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 2. COPY LOOP IS AT L
BCD OCATION 330.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 92 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 92 437 FT 84
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 3. COPY LOOP IS AT L
BCD OCATION 325.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 93 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 93 1240 FT 75
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 3, FILE 3. COPY LOOP
BCD IS AT LOCATION 1241.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 94 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 94 3540 FT 88
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 4. COPY LOOP IS AT L
BCD OCATION 3534.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 95 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 95 4453 FT 88
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 4. COPY LOOP IS AT L
BCD OCATION 4421.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 96 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 96 46 FT 90
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 3. COPY LOOP IS AT L
BCD OCATION 32.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 95 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 95 4453 FT 88
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 4. COPY LOOP IS AT L
BCD OCATION 4421.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 96 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 96 46 FT 90
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 3. COPY LOOP IS AT L
BCD OCATION 32.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 97 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 97 330 FT 90
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+35
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 2. COPY LOOP IS AT L
BCD OCATION 304 AND READS FROM FILE 3,
BCD 4, 5, 7, 9 OR 10. FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS
BCD 3 RECORD CORRECTLY.
X
END
ORG 98 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 98 141 FT 92
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+37
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING SUBROUTINE DEFINITION TABLE FROM TAPE
BCD 2, RECORD 2, FILE 5.
BCD COPY LOOP IS AT LOCATION 135. FIVE ATTEMPTS HAVE BEEN MADE
BCD 5TO READ THIS RECORD CORRECTLY.
X
END
ORG 99 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 99 356 FT 92
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+27
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING CIT TABLE, TAPE 3. COPY LOOP IS AT LO
BCD CATION 352. FIVE ATTEMPTS HAVE BEEN MADE TO
BCD 5READ THIS RECORD CORRECTLY.
X
END
ORG 100 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 100 562 FT 92
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING OP TABLE FROM TAPE 2, FILE 6. COPY LO
BCD OP IS AT LOCATION 556.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 101 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 101 765 FT 92
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+27
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING CIT TABLE, TAPE 3. COPY LOOP IS AT LO
BCD CATION 761. FIVE ATTEMPTS HAVE BEEN MADE TO
BCD 5READ THIS RECORD CORRECTLY.
X
END
ORG 102 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 102 1135 FT 92
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING HOLARG TABLE FROM TAPE 2, RECORD 4, FI
BCD LE 5. COPY LOOP IS AT LOCATION 1131.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 103 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 103 245 FT 9
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+42
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 2. COPY LOOP IS AT L
BCD OCATION 220. FIVE ATTEMPTS HAVE BEEN MADE
BCD TO READ THIS RECORD CORRECTLY. PROGRAM CANNOT CONTINUE TO P
BCD ROCESS LISTING TAPES FOR OUTPUT.
X
END
ORG 104 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 104 264 FT 7
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+42
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 2. COPY LOOP IS AT L
BCD OCATION 265. FIVE ATTEMPTS HAVE BEEN MADE
BCD TO READ THIS RECORD CORRECTLY. PROGRAM CANNOT CONTINUE TO P
BCD ROCESS LISTING TAPES FOR OUTPUT.
X
END
ORG 105 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 105 3730 FT 115
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+52
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING TAPE RECORD OF CARD IMAGE FROM TAPE 3.
BCD COPY LOOP IS AT LOCATION 3655.
BCD THIS STOP MAY ALSO BE DUE TO AN INCORRECT RECORD WHICH CONTA
BCD INS MORE THAN 25 WORDS.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 106 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 106 311 FT 9
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+42
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD FROM TAPE 3. COPY LOOP IS AT L
BCD OCATION 263. FIVE ATTEMPTS HAVE BEEN MADE
BCD TO READ THIS RECORD CORRECTLY. PROGRAM CANNOT CONTINUE TO P
BCD ROCESS LISTING TAPES FOR OUTPUT.
X
END
ORG 107 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 107 410 FT 96
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING COMMON TABLE FROM TAPE 2, RECORD 3, FI,
BCD LE 5. COPY LOOP IS AT LOCATION 404.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 108 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 108 460 FT 98
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING SUBDEF TABLE FROM TAPE 2, RECORD 2, FI
BCD LE 5. COPY LOOP IS AT LOCATION 454.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 109 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 109 223 FT 113
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING CIT, TAPE 4, IN THE SECOND PASS OF CIT
BCD TAPE RECORD. COPY LOOP IS AT LOCATION 217.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 110 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 110 255 FT 103
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD TAPE CHECK IN READING RECORD OF COMPILED INSTRUCTIONS FROM T
BCD APE 4. COPY LOOP IS AT LOCATION 251.
BCD FIVE ATTEMPTS HAVE BEEN MADE TO READ THIS RECORD CORRECTLY.
X
END
ORG 111 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 111 1OO1 FT 24
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+72
TRA DIGRTN
PR BCD 2
BCD TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TIFGO TABLE, FILE
BCD 5, RECORD 6. THE FORTAG TABLE, RECORD 11,
BCD HAS JUST BEEN WRITTEN ON TAPE 2. BEGINNING AT LOCATION 764,
BCD SIX BST INSTRUCTIONS ARE GIVEN
BCD BEFORE THE RDS. THE CPY AT 775 SHOWS THAT THIS RECORD IS NO
BCD T TIFGO (IDENTIFICATION WORD IN 7745).
BCD THE RECORD IDENTIFICATION OF THE TAPE IS IN 7747.
X
END
ORG 112 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 112 123 FT 53
REM 1I2 I24 FT 53
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+30
TRA DIGRTN
PR BCD 2
BCD END OF RECORD NOT PROPERLY REACHED, TAPE 3, FILE 1. TEST WO
BCD RD IN RECORD SHOWS THAT COPY AT
BCD 8LOCATION 122 SHOULD CAUSE END OF RECORD SKIP.
X
END
ORG 113 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 113 6736 FT 41
REM 113 6737 FT 41
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+52
TRA DIGRTN
PR BCD 2
BCD ERROR IN READING THE SINGLE 2 WORD RECORD FROM TAPE 2, FILE
BCD 7. TAPE SHOULD BE POSITIONED AFTER
BCD FILE MARK, FILE 7. BEGINNING AT 6730, TWO BST S ARE GIVEN,
BCD THEN AN RTB AND THREE CPY S.
BCD COPY AT LOCATION 6735 SHOULD CAUSE END OF RECORD SKIP.
X
END
ORG 114 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 114 7112 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+51
TRA DIGRTN
PR BCD 2
BCD TAPE 2 IS NOT POSITIONED CORRECTLY TO READ RECORD FROM FILE
BCD 5. COPY LOOP AT LOCATION 7060 READS
BCD RECORDS 6 THROUGH 11 AND HAS FOUND THAT IDENTIFICATION OF RE
BCD CORD, LOCATION 7127,
BCD 9DOES NOT MATCH EXPECTED IDENTIFICATION, LOCATION 7125.
X
END
ORG 115 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 115 51 FT 56
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+72
TRA DIGRTN
PR BCD 2
BCD TAPE 2 IS NOT CORRECTLY POSITIONED TO READ FORTAG, FILE 5, R
BCD ECORD 11. ROUTINE AT LOCATION 31
BCD READS THE 1 WORD RECORD OF FILE 7 WHICH IS RECORD COUNT OF F
BCD ILE 6. 7 IS ADDED TO THIS COUNT AND
BCD THE TAPE IS BACKSPACED OVER FILE 6, FILE MARK AND THE LAST 4
BCD RECORDS IN FILE 5. RECORD IDENTIFICATION
BCD IN LOCATION 2326 SHOWS THAT THIS IS NOT FORTAG RECORD.
X
END
ORG 116 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 116 331 FT 58
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+53
TRA DIGRTN
PR BCD 2
BCD TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TIFGO RECORD. RD
BCD S LOOP AT LOCATION 30 HAS SPACED TAPE 2
BCD FORWARD FROM BEGINNING OF 3RD FILE TO BEGINNING OF TIFGO, FI
BCD LE 5, RECORD 6. IDENTIFICATION WORD
BCD OF RECORD IN LOCATION 5471, SHOWS THAT THIS IS NOT TIFGO REC
BCD 1ORD.
X
END
ORG 117 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 117 357 FT 58
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+52
TRA DIGRTN
PR BCD 2
BCD TAPE 2 IS NOT CORRECTLY POSITIONED TO READ TRAD, FILE 5, REC
BCD ORD 7. RECORD 6, TIFGO, HAS
BCD JUST BEEN READ SUCCESSFULLY, BUT IDENTIFICATION WORD, LOCATI
BCD ON 6766, SHOWS THAT NEXT RECORD IS NOT TRAD.
BCD COPY LOOP IS AT LOCATION 352.
X
END
ORG 118 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 118 524 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+80
TRA DIGRTN
PR BCD 2
BCD FAILURE TO READ CORRECT RECORD FROM TAPE 2, FILE 5. TAPE SH
BCD OULD BE POSITIONED TO READ RECORD 6, TIFGO,
BCD RECORD 7, TRAD, OR RECORD 12, FRET. ONE OF THE ROUTINES WHI
BCD CH USES INFORMATION FROM THESE RECORDS HAS
BCD FOUND THAT THE IDENTIFICATION OF THE RECORD DOES NOT MATCH T
BCD HE EXPECTED IDENTIFICATION. THE ROUTINE
BCD READING A PARTICULAR RECORD IS AT LOCATION 435 FOR TIFGO, LO
BCD 8CATION 525 FOR TRAD, OR LOCATION 643 FOR FRET.
X
END
ORG 119 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 119 314 FT 90
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
RDR 4
LDA AA
CPY ERAS
PXD 0,0
LDQ ERAS
LGL 3 FIRST OCTAL NUMBER INTO COMMENT
ORS A
LGL 15
TSX OCTBCD,4
SLW B B 23456
LDQ ERAS FIX TAG FIELD
RQL 18
CAL BLANKS
ALS 3
LGL 3
SLW C
CLA ERAS
TSX OCTBCD,4 B 89101112
SLW D
LDQ D
CAL C
LGL 24 8788910
SLW C
LGL 12
LDQ BLANKS
LGL 24
SLW D 11128888
TSX PRINT,4
HTR PR,0,PR+62
TRA DIGRTN
AA HTR8612
PR BCD 2
BCD TAPE 2 IS NOT CORRECTLY POSITIONED. CURRENT FILE 5 RECORD I
BCD 2DENTIFICATIO
A BCD 1N IS 0
B HTR
C HTR
D BCD 5
BCD AND DOES NOT MATCH EXPECTED RECORD IDENTIFICATION WHICH WAS
BCD IN THE ACCUMULATOR AND IS NOT STORED.
BCD THIS SUBROUTINE BEGINS AT 304 AND IS USED TO READ IN ANY OF
BCD THE RECORDS IN FILE 5, TAPE 2.
X
END
ORG 120 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 120 36 FT 53
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+16
TRA DIGRTN
PR BCD 2
BCD FALSE END OF RECORD, TAPE 4. COPY LOOP AT LOCATION 30 IS SP
BCD 4ACING OVER FIRST FILE.
X
END
ORG 121 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 121 4417 FT 88
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+17
TRA DIGRTN
PR BCD 2
BCD FALSE END OF RECORD, TAPE 4. COPY LOOP AT LOCATION 4413 IS
BCD 5ARRANGED TO FIND END OF FILE.
X
END
ORG 122 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 122 7053 FT 36
REM 122 7057 FT 36
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+35
TRA DIGRTN
PR BCD 2
BCD FALSE END OF RECORD READING DOTAG RECORD FROM TAPE 3, FILE 1
BCD . RECORD CONTAINS A NUMBER OF 9 WORD ENTRIES.
BCD COPY LOOP AT LOCATION 7043 READS ONLY FIRST AND SECOND WORD
BCD 3OF EACH ENTRY.
X
END
ORG 123 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 123 7250 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD FALSE END OF RECORD TAPE 2, FILE 5. COPY AT LOCATION 7245 S
BCD HOULD TRANSFER TO
BCD RDS AT LOCATION 7244, OR CAUSE FILE SKIP AT END OF FILE 5.
X
END
ORG 124 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 124 62 FT 53
REM 124 63 FT 53
REM 124 66 FT 53
REM 124 67 FT 53
REM 124 72 FT 53
REM 124 73 FT 53
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+55
TRA DIGRTN
PR BCD 2
BCD FALSE END OF RECORD OR FALSE END OF FILE IN READING, TAPE 3,
BCD FILE 1, FROM VARIABLE LENGTH RECORD WHICH
BCD SHOULD HAVE BEEN WRITTEN AS A SERIES OF 4 WORD ENTRIES. COP
BCD Y LOOP AT LOCATION 53 READS
BCD 4 WORDS AT A TIME AND CHECKS AGAINST THIS IN READING 2ND, 3R
BCD 3D AND 4TH WORD.
X
END
ORG 125 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 125 7075 FT 27
REM 125 7076 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+47
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE OR FALSE END OF RECORD IN READING RECORD F
BCD ROM TAPE 2, FILE 5. RECORDS IN THIS FILE
BCD ARE MINIMUM 2 WORDS, IDENTIFICATION WORD AND WORD COUNT. CO
BCD PY LOOP AT LOCATION 7070 DOES NOT ATTEMPT
BCD 5TO READ MORE THAN 2 WORDS.
X
END
ORG 126 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 126 7563 FT 21
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+52
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING A RECORD FROM TAPE 4. COPY LOO
BCD P BEGINS AT LOCATION 7552.
BCD THE COPY AT LOCATION 7561 IS AT LEAST THE SECOND ONE GIVEN A
BCD ND IS PROGRAMMED TO FIND
BCD AN END OF RECORD SKIP.
X
END
ORG 127 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 127 7555 FT 21
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+52
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING THE FIRST WORD OF A RECORD FROM
BCD TAPE 4. COPY LOOP IS AT LOCATION 7552.
BCD THE COPY AT LOCATION 7553 DOES NOT ATTEMPT TO READ MORE THAN
BCD THE IDENTIFICATION WORD OF THESE RECORDS,
BCD WHICH ARE AT LEAST TWO WORDS LONG.
X
END
ORG 128 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 128 4035 FT 51
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING TAGTAG RECORD FROM TAPE 4, FILE
BCD 2. COPY LOOP IS AT LOCATION 4027.
BCD COPY AT 4033 IS PROGRAMMED TO FIND END OF RECORD SKIP.
X
END
ORG 129 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 129 4161 FT 34
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+26
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING DOTAG RECORD FROM TAPE 3, FILE
BCD 1. COPY LOOP AT LOCATION 4157 SHOULD CAUSE
BCD 4END OF RECORD SKIP.
X
END
ORG 130 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARd FOR DE
ORG LOCREC
TXH 130 7052 FT 36
REM I30 7056 FT 36
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+35
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING DOTAG RECORD FROM TAPE 3, FILE
BCD 1. RECORD CONTAINS A NUMBER OF 9 WORD ENTRIES.
BCD COPY LOOP AT LOCATION 7043 ONLY READS FIRST AND SECOND WORD
BCD 3OF EACH ENTRY.
X
END
ORG 131 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 131 7103 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+53
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING RECORD FROM TAPE 2, FILE 5. RE
BCD CORDS IN THIS FILE ARE MINIMUM 2 WORDS,
BCD IDENTIFICATION AND WORD COUNT. COPY AT LOCATION 7101 IS AT
BCD LEAST THIRD COPY GIVEN, AND IS PROGRAMMED
BCD TO FIND END OF RECORD SKIP. COPY LOOP BEGINS AT LOCATION 70
BCD 170.
X
END
ORG 132 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 132 7135 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+47
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING RECORD FROM TAPE 2, FILE 5, REC
BCD ORD 8. COPY LOOP IS GENERAL
BCD SUBROUTINE AT LOCATION 7060. COPY AT LOCATION 7133 IS PROGR
BCD AMMED TO FIND END OF RECORD SKIP
BCD 5FOR THIS SPECIFIC RECORD.
X
END
ORG 133 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 133 60 FT 56
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+38
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING FORTAG RECORD TAPE 2, FILE 5, R
BCD ECORD 11. THERE ARE 14 RECORDS
BCD IN THIS FILE. COPY LOOP IS AT LOCATION 43. COPY AT LOCATIO
BCD 6N 56 SHOULD FIND END OF RECORD SKIP.
X
END
ORG 134 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 134 340 FT 58
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING TIFGO FROM TAPE 2, FILE 5, RECO
BCD RD 6. THERE ARE 14 RECORDS IN THIS FILE.
BCD COPY AT LOCATION 336 SHOULD FIND END OF RECORD SKIP.
X
END
ORG 135 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 135 366 FT 58
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+39
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING TRAD RECORD TAPE 2, FILE 5, REC
BCD ORD 7. THERE ARE 14 RECORDS
BCD IN THIS FILE. COPY LOOP IS AT LOCATION 352. COPY AT LOCATI
BCD 7ON 364 SHOULD FIND END OF RECORD SKIP.
X
END
ORG 136 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 136 417 FT 58
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+31
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING TRALEV RECORD FROM TAPE 4, FILE
BCD 1, RECORD 1. COPY LOOP IS AT LOCATION 401.
BCD 9COPY AT LOCATION 415 SHOULD FIND END OF RECORD SKIP.
X
END
ORG 137 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 137 454 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+20
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING TIFGO RECORD FROM TAPE 2, FILE
BCD 85, RECORD 6. COPY LOOP IS AT LOCATION 447.
X
END
ORG 138 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 138 534 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+20
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING TRAD RECORD FROM TAPE 2, FILE 5
BCD 8, RECORD 7. COPY LOOP IS AT LOCATION 530.
X
END
ORG 139 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 139 336 FT 86
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING RECORD FROM TAPE 3, WHICH SHOUL
BCD D HAVE BEEN POSITIONED AFTER FILE MARK
BCD AT THE END OF THE 8TH FILE. COPY LOOP IS AT LOCATION 325.
X
END
ORG 140 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 140 1211 FT 75
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,X
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING RECORD FROM TAPE 3, FILE 3. TH
BCD ESE ARE 15 WORD RECORDS AND
BCD THERE IS AN END OF FILE MARK. COPY LOOP IS AT LOCATION 1172
X
END
ORG 141 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 141 1221 FT 75
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+28
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING RECORD FROM TAPE 3, FILE 3. TH
BCD IS FILE DOES NOT HAVE A FILE MARK AT THE END.
BCD 6COPY LOOP IS AT LOCATION 1172.
X
END
ORG 142 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 142 37 FT 90
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+52
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING CIT RECORD FROM TAPE 3, WHICH S
BCD HOULD HAVE BEEN POSITIONED AFTER FILE MARK.
BCD COPY LOOP BEGINS AT LOCATION 30 WITH 2 BST INSTRUCTIONS. CO
BCD PY AT 35 IS PROGRAMMED
BCD TO FIND END OF RECORD SKIP.
X
END
ORG 143 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 143 321 FT 90
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+42
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING A RECORD FROM TAPE 2. COPY LOO
BCD P IS AT LOCATION 305 AND READS FROM
BCD FILE 3, 4, 5, 7, 9 OR 10. COPY AT LOCATION 317 IS PROGRAMME
BCD D TO FIND END OF RECORD SKIP.
X
END
ORG 144 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 144 1341 FT 92
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+18
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING RECORD FROM TAPE 2, RECORD 2, F
BCD 6ILE 5. COPY LOOP IS AT LOCATION 135.
X
END
ORG 145 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 145 1347 FT 92
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+19
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING RECORD FROM TAPE 2, RECORD 4, F
BCD 7ILE 5. COPY LOOP IS AT LOCATION 1131.
X
END
ORG 146 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 146 3672 FT 115
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+32
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING TAPE RECORD OF CARD IMAGE FROM
BCD TAPE 3. COPY AT LOCATION 3670 SHOULD
BCD CAUSE END OF RECORD SKIP. COPY LOOP IS AT LOCATION 3655.
X
END
ORG 147 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 147 427 FT 96
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+33
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING THE COMMON RECORD FROM TAPE 2,
BCD RECORD 3, FILE 5. COPY LOOP IS AT LOCATION 404.
BCD COPY AT LOCATION 414 IS PROGRAMMED TO FIND END OF RECORD SKI
BCD 1P.
X
END
ORG 148 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 148 624 FT 98
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+34
TRA DIGRTN
PR BCD 2
BCD FALSE END OF FILE IN READING SUBDEF TABLE FROM TAPE 2, RECOR
BCD D 2, FILE 5. COPY LOOP IS AT
BCD LOCATION 454. COPY AT 464 IS PROGRAMMED TO FIND END OF RECO
BCD 2RD SKIP.
X
END
ORG 149 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 149 6004 FT 32
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+39
TRA DIGRTN
PR BCD 2
BCD A SUBSCRIPT COMBINATION, AT LEAST 1 INDEX OF WHICH IS UNDER
BCD CONTROL OF A DO, IS BEING EXAMINED.
BCD A SUBSCRIPT HAS BEEN FOUND WITHOUT SUCH AN INDEX. THE LOGIC
BCD 7 OF THE PROGRAM MAKES THIS IMPOSSIBLE.
X
END
ORG 150 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 150 6710 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+37
TRA DIGRTN
PR BCD 2
BCD ROUTINE AT LOCATION 6711 SHOULD BE ABLE TO CONTINUE ANALYSIS
BCD OF NEXT DO IN NEST. CURRENT LEVEL FOR AN
BCD INNER DO HAS BEEN REDUCED TO 1. LOGIC OF THE PROGRAM MAKES
BCD 5THIS IMPOSSIBLE.
X
END
ORG 151 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 151 6373 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+37
TRA DIGRTN
PR BCD 2
BCD A DO NESTED WITHIN ANOTHER DO HAS BEEN FOUND TO HAVE A LEVEL
BCD ASSIGNMENT LESS THAN OR EQUAL TO 1.
BCD THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE. THE LEVEL CO
BCD 5UNT IS IN INDEX REGISTER 2.
X
END
ORG 152 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 152 6376 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+46
TRA DIGRTN
PR BCD 2
BCD INDEX REGISTER 1 HAS BEEN INCREMENTED BEYOND THE MAXIMUM SET
BCD TING PERMISSABLE IN THIS SECTION OF PROGRAM,
BCD DESPITE A TEST IN THE ROUTINE WHICH PREVENTS THIS. PROGRAM
BCD SHOULD BE ABLE TO OBTAIN DOTAG ENTRY
BCD 4FOR NEXT OUTER DO.
X
END
ORG 153 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 153 5742 FT 27
REM 153 5763 FT 27
REM 153 5764 FT 27
TIFX SYN 3270 6306 OCTAL
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
CLA TIFX CURRENT INDEX TO TIFGO ENTRIES
ARS 18
STA TIFGO
CLA TIFZ ADDRESS OF TIFGO BUFFER, THIS IS NOW
SUB TIFGO CN DRUM 4
STA A
RDR 4
LDA A
CPY TIFGO INTERNAL NUMBER OF TIFGO IN DECREMENT
CLA TIFGO
ARS 18 GET EXTERNAL STATEMENT NUMBER
TSX EXBETA,4
SLW TIFGO 123 FROM ABOVE INTO COMMENT
CAL COMA
ARS 18
LDQ TIFGO
LGL 18
SLW COMA
LGL 18 45 FROM ABOVE INTO REST OF COMMENT
LDQ COMB
RQL 18 SHIFT 2 CHARACTERS OUT OF MQ
LGL 18
SLW COMB
TSX PRINT,4
HTR PR,0,PR+30
TRA DIGRTN
A
PR BCD 2
BCD 5THE IF OR GO TO STATEMENT NUMB
COMA BCD 1ER
COMB BCD 1 HA
BCD S BEEN ASSIGNED A CLASSIFICATION HIGHER THAN 6.
BCD 3
BCD 8THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.
TIFZ HTR 1976 3670 OCTAL
TIFGO HTR 0
X
END
ORG 154 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 154 5773 FT 51
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+40
TRA DIGRTN
PR BCD 2
BCD CONTENTS OF DOIND (LOCATION 5230) DO NOT MATCH CONTENTS OF E
BCD ITHER TAG2+1,2 (LOCATION 3650), TAG2+2,2 OR
BCD TAG2+3,2. LOGIC OF PROGRAM MAKES THIS IMPOSSIBLE. SUBROUTI
BCD 8NE WHICH CANNOT FIND MATCH IS AT LOCATION 4204.
X
END
ORG 155 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 155 6353 FT 51
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+39
TRA DIGRTN
PR BCD 2
BCD TABLE SEARCH FAILURE. LOGIC OF PROGRAM MAKES THIS IMPOSSIBL
BCD E. SUBROUTINE AT LOCATION 6277 COMPILES
BCD ARGUMENT (LOCATION 5243) WHICH SUBROUTINE AT LOCATION 6354 I
BCD 7S UNABLE TO MATCH IN A BLOCK OF CONSTANTS.
X
END
ORG 156 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 156 7110 FT 43
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+33
TRA DIGRTN
PR BCD 2
BCD TABLE BEGINNING AT LOCATION 6400 HAS BEEN ORDERED BY ROUTINE
BCD AT LOCATION 7053.
BCD CAS INSTRUCTION AT LOCATION 7105 SHOWS THAT TABLE IS OUT OF
BCD 1ORDER.
X
END
ORG 157 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 157 354 FT 64
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+68
TRA DIGRTN
PR BCD 2
BCD NO ENTRY IN TIFRED TABLE FOR A VARIABLE FROM AN ASSIGNED GO
BCD TO STATEMENT IN THE COMPILED INSTRUCTIONS.
BCD LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE. STOP MAY BE DUE
BCD TO ERROR BY SUBROUTINE AT LOCATION 435 IN THE
BCD PREVIOUS FORTRAN RECORD, WHICH ACCUMULATES ASSIGNED GO TO EN
BCD TRIES AS IT READS TAPE 2 AND WRITES
BCD 6THEM AS THE TIFRED TABLE ON DRUM 1.
X
END
ORG 158 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 158 711 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+40
TRA DIGRTN
PR BCD 2
BCD MISCOMPILED ENTRY IN FRET TABLE, TAPE 2, FILE 5, RECORD 12.
BCD LAST WORD OF RECORD INTRODUCES
BCD NEW STATEMENT NUMBER, BUT NO ENTRIES FOLLOW WHICH WOULD GIVE
BCD 8 FREQUENCY INFORMATION ABOUT THE STATEMENT.
X
END
ORG 159 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 159 556 FT 64
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+48
TRA DIGRTN
PR BCD 2
BCD MISCOMPILED ENTRY IN CIT TABLE. THE TYPE OF STATEMENT A IF
BCD (E) N1, N2, N3
BCD IS TRANSLATED TO TZE, TPL AND TRA. A TZE HAS BEEN FOUND IN
BCD TABLE OF COMPILED INSTRUCTIONS,
BCD 6WHICH IS NOT IN THIS SEQUENCE.
X
END
ORG 160 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 160 3001 FT 88
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+7
TRA DIGRTN
PR BCD 2
BCD 5MISCOMPILED GO TO STATEMENT.
X
END
ORG 161 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 161 3253 FT 88
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+7
TRA DIGRTN
PR BCD 2
BCD 5MISCOMPILED IF STATEMENT.
X
END
ORG 162 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 162 345 FT 5
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+17
TRA DIGRTN
PR BCD 2
BCD MISCOMPILED NAME. IMPOSSIBLE BCD CHARACTER AS THE FIRST CHA
BCD 5RACTER IN A SYMBOLIC ADDRESS.
X
END
ORG 163 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 163 443 FT 103
REM 163 520 FT 113
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+6
TRA DIGRTN
PR BCD 2
BCD 4MISCOMPILED SYNONYM.
X
END
ORG 164 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 164 252 FT 105
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+12
TRA DIGRTN
PR BCD 2
BCD MISCOMPILED NAME. FORSUB ENTRY NOT IN SYMBOL TABLE.
X
END
ORG 165 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 165 312 FT 113
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+11
TRA DIGRTN
PR BCD 2
BCD 9MISCOMPILED NAME. VARIABLE NAME NOT IN SYMBOL TABLE.
X
END
ORG 166 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 166 661 FT 75
REM 166 1022 FT 75
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+18
TRA DIGRTN
PR BCD 2
BCD INDEX REGISTER FOR CURRENT TAG HAS NOT BEEN CHOSEN. LOGIC O
BCD 6F PROGRAM MAKES THIS IMPOSSIBLE.
X
END -,
ORG 167 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 167 301 FT 67
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+37
TRA DIGRTN
PR BCD 2
BCD SUBROUTINE AT LOCATION 276 HAS ATTEMPTED TO READ ANOTHER BUF
BCD FER OF THE FRET TABLE ON DRUM 2. A PREVIOUS
BCD PASS THROUGH THIS ROUTINE HAS SET A SIGNAL TO SHOW THAT ALL
BCD 5FRET ENTRIES ARE IN CORE.
X
END
ORG 168 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 168 3064 FT 64
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+39
TRA DIGRTN
PR BCD 2
BCD SUBROUTINE AT LOCATION 3064 HAS ATTEMPTED TO READ ANOTHER BU
BCD FFER OF THE TIFRD TABLE FROM DRUM 1.
BCD A PREVIOUS PASS THROUGH THIS ROUTINE HAS SET A SIGNAL TO SHO
BCD 7W THAT ALL TIFRD ENTRIES ARE IN CORE.
X
END
ORG 169 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 169 762 FT 75
REM 169 1634 FT 75
REM 169 1777 FT 75
REM 169 4031 FT 75
REM 169 4303 FT 75
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+15
TRA DIGRTN
PR BCD 2
BCD PERMUTATION NUMBER MATCH NOT FOUND. LOGIC OF PROGRAM MAKES
BCD 3THIS IMPOSSIBLE.
X
END
ORG 170 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 170 1307 FT 22
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+70
TRA DIGRTN
PR BCD 2
BCD ERROR IN COMPUTING CHECK SUM OF FLOCON TABLE. THIS TABLE CO
BCD NSISTS OF BLOCKS OF FIFTY WORDS, EACH BLOCK
BCD PRECEDED BY ITS OWN CHECK SUM. THE ACL INSTRUCTION AT LOCAT
BCD ION 1261 HAS PICKED UP THE CHECK SUM OF
BCD THE NEXT BLOCK AND THE TNX INSTRUCTION AT 1263 SHOWS THAT TH
BCD ERE ARE NO ENTRIES IN THE BLOCK.
BCD 8THE LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.
X
END
ORG 171 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 171 1076 FT 45
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+39
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE TRANSFER TO FIRST INSTRUCTION FOLLOWING CAS INSTR
BCD UCTION AT LOCATION 1075. TLQ INSTRUCTION
BCD AT LOCATION 1073 HAS JUST PROVED THAT WORD FROM LOCATION 140
BCD 76 IS LESS THAN WORD IN LOCATION 1410.
X
END
ORG 172 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 172 4623 FT 51
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+39
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE TRANSFER TO FIRST INSTRUCTION FOLLOWING CAS INSTR
BCD UCTION AT LOCATION 4622. TLQ INSTRUCTION
BCD AT LOCATION 4620 HAS JUST PROVED THAT WORD FROM LOCATION 524
BCD 73 IS LESS THAN WORD IN LOCATION 5246.
X
END
ORG 173 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 173 5232 FT 34
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+19
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE ERROR RETURN FROM SUBROUTINE AT LOCATION 5566. L
BCD 7OGIC OF PROGRAM MAKES THIS IMPOSSIBLE.
X
END
ORG 174 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 174 4124 FT 51
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+31
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT
BCD ION 4122 WHICH COMPARES
BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.
X
END
ORG 175 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 175 4157 FT 51
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+31
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT
BCD ION 4155 WHICH COMPARES
BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.
X
END
ORG 176 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 176 4405 FT 34
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+31
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT
BCD ION 4403 WHICH COMPARES
BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.
X
END
ORG 177 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 177 4533 FT 51
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+31
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT
BCD ION 4531 WHICH COMPARES
BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.
X
END
ORG 178 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 178 5721 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+31
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT
BCD ION 5717 WHICH COMPARES
BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.
X
END
ORG 179 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 179 6253 FT 32
REM 179 6256 FT 32
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+31
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT
BCD ION 6251 OR 6254. ROUTINE ANALYSES DIFFERENT
BCD 9SUBSCRIPTS AFTER DUPLICATES HAVE BEEN ELIMINATED.
X
END
ORG 180 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 180 6635 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+31
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT
BCD ION 6633 WHICH COMPARES
BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.
X
END
ORG 181 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 181 7023 FT 27
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+31
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT
BCD ION 7021 WHICH COMPARES
BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS
X
END
ORG 182 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 182 7073 FT 39
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+31
TRA DIGRTN
PR BCD 2
BCD IMPOSSIBLE EQUALITY CONDITION AFTER CAS INSTRUCTION AT LOCAT
BCD ION 7071 WHICH COMPARES
BCD 9INTERNAL FORMULA NUMBERS OF DIFFERENT STATEMENTS.
X
END
ORG 183 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 183 425 FT 73
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+30
TRA DIGRTN
PR BCD 2
BCD DIVISION INSTRUCTIONS BEGINNING AT LOCATION 421 HAVE NOT BEE
BCD N EXECUTED.
BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.
X
END
ORG 184 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 184 510 FT 73
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+30
TRA DIGRTN
PR BCD 2
BCD DIVISION INSTRUCTIONS BEGINNING AT LOCATION 501 HAVE NOT BEE
BCD N EXECUTED.
BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.
X
END
ORG 185 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 185 1234 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+30
TRA DIGRTN
PR BCD 2
BCD DIVISION INSTRUCTIONS BEGINNING AT LOCATION 1226 HAVE NOT BE
BCD EN EXECUTED.
BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.
X
END
ORG 186 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 186 1261 FT 62
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+30
TRA DIGRTN
PR BCD 2
BCD DIVISION INSTRUCTIONS BEGINNING AT LOCATION 1253 HAVE NOT BE
BCD EN EXECUTED.
BCD 8LOGIC OF THE PROGRAM MAKES THIS IMPOSSIBLE.
X
END
ORG 187 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 187 2230 FT 75
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+13
TRA DIGRTN
PR BCD 2
BCD DIVIDE CHECK. LOGIC OF PROGRAM IS SUCH THAT THIS IS IMPOSSI
BCD 1BLE.
X
END
ORG 188 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 188 377 FT 56
REM 188 424 FT 56
REM 188 613 FT 56
REM 188 654 FT 56
REM I88 1000 FT 56
REM 188 1115 FT 56
REM I88 1320 FT 56
REM 188 1531 FT 56
REM 188 1767 FT 56
REM 188 7143 FT 56
REM I88 132 FT 60
REM 188 173 FT 60
REM 168 227 FT 60
REM 188 252 FT 60
REM 188 334 FT 60
REM 188 423 FT 60
REM 188 442 FT 60
REM I8B 521 FT 60
REM 188 544 FT 60
REM 188 305 FT 60
REM 188 363 FT 60
TSX PRINT,4
HTR MACHIN,0,MACHIN+5
TSX PRINT,4
HTR PR,0,PR+114
TRA DIGRTN
PR BCD 2
BCD FAILURE OF CAS INSTRUCTION OR INDEX REGISTERS IN EXAMINING 4
BCD WORD ENTRY FROM ONE OF THE RECORDS LISTED.
BCD ENTRY IS SHOWN TO BE GREATER THAN 4 WORDS. LOGIC OF THE PRO
BCD GRAM MAKES THIS IMPOSSIBLE.
BCD 2
BCD CIT RECORD, TAPE 2, FILE 2
BCD
BCD COMPDO RECORD, TAPE 4, FILE 2
BCD
BCD DOFILB RECORD, TAPE 2, FILE 8
BCD
BCD MERGED COMPAIL AND COMPDO RECORDS, TAPE 3, FILE 1
X
END
ORG 189 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 189 6063 FT 32
REM 189 6475 FT 32
REM 189 5273 FT 34
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
RDR 4
LDA A
CPY ALFBET
CPY SYM
TSX PRINT,4
HTR PR,0,PR+32
TSX FX4PR,4
TSX PRINT,4
HTR PR1,0,PR1+32
TRA SPEND
A HTR831
PR BCD 2
BCD AN INTERMEDIATE CORE TABLE IS FULL. THE SUBSCRIPT COMBINATI
BCD ONS AND FLOW STRUCTURE
BCD ARE TOO COMPLEX WITHIN A DO NEST. THE STATEMENT
PR1 BCD 2
BCD IS THE OUTERMOST DO OF THE NEST WHICH HAS CAUSED THE OVERFLO
BCD W. REWRITE NEST AND SIMPLIFY -,
BCD SUBSCRIPT COMBINATIONS OR FLOW STRUCTURE.
X
END
ORG 190 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 190 7620 FT 21
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
CLA ADDMSK PUT AWAY TABLE IDENTIFICATION WORD
IDWD SYN87513 TABLE IDENTIFICATION AT LOC 7513
ANA IDWD
STO ERAS
LXA ZERO,1
SEARCH CLA TBLWD,1 TABLE SEARCH
SUB ERAS
TZE PACK
TXI A,1,-2
A TXH SEARCH,1,-32
TSX PRINT,4
HTR ER,0,ER+78
HTR E
E TRA DIGRTN
ER BCD 2
BCD A TABLE COMPILED BY SECTION 1 PRIME HAS EXCEEDED THE BUFFER
BCD SIZE. THIS DIAGNOSTIC RECORD COMPARES
BCD THE TABLE IDENTIFICATION WORD IN THE ADDRESS OF 7513 TO A LI
BCD ST OF 16 POSSIBLE TABLES.
BCD THE SEARCH HAS FAILED. THE ALLOWED TABLE IDENTIFICATION NUM
BCD BERS ARE IN LOCATIONS 1464,
BCD 1464 PLUS 2, ETC. PRESS START IF YOU WISH TO RESTORE MACHIN
BCD 6E TO STATE IN WHICH ERROR OCCURRED.
PACK CAL TBLWD+1,1
SLW PR1
TSX PRINT,4
HTR PR,0,PR+14
TRA SPEND
PR BCD 2
PR1 BCD 1
BCD TABLE HAS EXCEEDED THE BUFFER SIZE. REWRITE SOURCE PROGRAM
BCD 1.
TBLWD HTR 15
BCD 1TSTOPS
HTR 14
BCD 1NONEXC
HTR 13
BCD 1HOLARG
HTR 12
BCD 1COMMON
HTR 11
BCD 1SUBARG
HTR 10
BCD 1FORMAT
HTR 9
BCD 1CLOSUB
HTR 8
BCD 1EQUIT
HTR 7
BCD 1FRET
HTR 6
BCD 1FORVAL
HTR 5
BCD 1FORVAR
HTR 4
BCD 1FORTAG
HTR 3
BCD 1TRAD
HTR 2
BCD 1TIFGO
HTR 1
BCD 1TDO
HTR 0
BCD 1TEIFNO
X
END
ORG 191 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 191 1160 FT 22
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+22
TRA SPEND
PR BCD 2
BCD NO INSTRUCTIONS WERE COMPILED. CORRECT SOURCE PROGRAM TO HA
BCD VE AT LEAST ONE EXECUTABLE STATEMENT.
X
END
ORG 192 FORCE NEW RECORD
RST 10,1
HTR X-1,0,LOCREC CARD FOR DE
ORG LOCREC
TXH 192 7751 FT 21
TSX PRINT,4
HTR SOURCE,0,SOURCE+6
TSX PRINT,4
HTR PR,0,PR+14
TRA SPEND
PR BCD 2
BCD THERE ARE NO STATEMENT NUMBERS IN THE SOURCE PROGRAM. CORRE
BCD 2CT PROGRAM.
X
REM BINARY AND SYMBOLIC SUBROUTINE LOADER FOR 704 FORTRAN II
FIN