13641
2 MASTER RECORD CARD = FN055
3ROUTINE TO HANDLE ADDITIONAL SU8ROUTINES IF DESIRED F3B12180
07071 2 00001 4 01306 4TIXM13505,4,1 COMPARE M1D FOR-PRESENT SUBROUTINES F3B12190
07072−0 53400 4 02170 5LXDL(0),4 COMPARE ADD IT, 0PEN SUBS, IN M1D2S F3B12200
07073 0 34000 4 07122 6 0P1 CASM1D2,4 WITH CURRENT NAME. F3B12210
07074 1 77777 4 07077 7TXI0P2,4,−1 NOT FOUND, GET NEXT M1D2 ENTRY F3B12220
07075 0 02000 0 07101 8TRA0P3 FOUND F3B12230
07076 1 77777 4 07077 9TXI0P2,4,−1 NOT FOUND, GET NEXT M1D2 ENTRY F3B12240
07077 3 77776 4 07073 10 0P2 TXH0P1,4,M1D2L TEST FOR END OF M1D2. F3B12250
07100 0 07400 4 00004 11TSX4,4 CURRENT SUB NOT IN M1D2 F3B12260
07101−0 63400 4 02312 12 0P3 SXDCCELL,4 SAVE 1RC FOR LATER BRANCH OF SAME INST. F3B12270
07102 1 77776 1 07103 13TXI0P3+2,1,−2 INDEX TO GET NEXT 4 WORD INSTR. F3B12280
07103 0 07400 4 07136 14TSXTEST,4 TEST FOR END OF CUR. COMPAIL REC. F3B12290
07104−0 53400 4 02312 15LXDCCELL,4 GO TO THE COMPILER FOR PART, SUBROUTINE F3B12300
07105 0 02000 4 07106 16 0P4 TRA0P4+1,4 COMPAIL INSTRUCTION F3B12310
07106 0 02000 0 07170 17TRAXDIM OPEN SUB IS XDIM F3B12320
07107 0 02000 0 07171 18TRADIM OPEN SUB IS DIM F3B12330
A07110 0 00000 0 00000 19HTR SPACE FOR BRANCHING T0 10 ADDITIONAL F3B12340
A07111 0 00000 0 00000 20HTR OPEN SU8ROUTINES THE LIST OF TRANSFERS F3B12350
A07112 0 00000 0 00000 21HTR TO ADDITIONAL 0PEN SUBS MUST BE ORDER- F3B12360
A07113 0 00000 0 00000 22HTR ED IN THE SAME WAY AS THE ADDITIONAL 0PEN F3B12370
A07114 0 00000 0 00000 23HTR SUB NAMES ARE ORDERED IN THE-DICTION- F3B12380
A07115 0 00000 0 00000 24HTR ARY M1D2. F3B12390
A07116 0 00000 0 00000 25HTR F3B12400
A07117 0 00000 0 00000 26HTR F3B12410
A07120 0 00000 0 00000 27HTR F3B12420
A07121 0 00000 0 00000 28HTR F3B12430
29THE DICTIONARY FOR ADDITIONAL OPEN SUBROUTINES, AND F3B12440
30CONSTANTS USED IN THE DISCRIMINATION PROCEDURE. F3B12450
07122 672431446060 31 M1D2 BCD1XDIM␣␣ 0PEN SUB XDIM F3B12460
07123 243144606060 32BCD1DIM␣␣␣ 0PEN SUB DIM F3B12470
A07124 0 00000 0 00000 33HTR SPACE FOR ADDING 10 ADDITIONAL 0PEN SUBS. F3B12480
A07125 0 00000 0 00000 34HTR F3B12490
A07126 0 00000 0 00000 35HTR F3B12500
A07127 0 00000 0 00000 36HTR F3B12510
A07130 0 00000 0 00000 37HTR F3B12520
A07131 0 00000 0 00000 38HTR F3B12530
A07132 0 00000 0 00000 39HTR F3B12540
A07133 0 00000 0 00000 40HTR F3B12550
A07134 0 00000 0 00000 41HTR F3B12560
A07135 0 00000 0 00000 42HTR F3B12570
43FOUR SUBROUTINES USED IN COMPILING OPEN SUBROUTINES F3B12580
441.TEST F3B12590
07136−0 63400 4 07230 45 TEST SXDC,4 SAVE LINKAGE F3B12600
07137−0 75400 1 00000 46PXD0,1 COMPARE CURRENT VALUE OF IR1 WITH F3B12610
07140 0 34000 0 02305 47CASM1ALWN 2S COMPL. OF WORD COUNT. F3B12620
07141 0 02000 4 00001 48TRA1,4 .. F3B12630
07142 0 07400 4 00341 49TSXM10210,4 CURRENT RECORD EXHAUSTED F3B12640
07143 0 07400 4 00004 50TSX4,4 STOP. NO OF WDS. IN CUR REC EXCEEDS WD. F3B12650
51 COUNT F3B12660
07144−0 53400 4 07230 52LXDC,4 RESTORE LINKAGE F3B12670
07145 0 02000 4 00001 53TRA1,4 RETURN F3B12680
542 TEARG1. ROUTINE TO DET. IF TOO FEW ARGS SPECIFIED F3B12690
07146 0 50000 1 02327 55TEARG1 CLAAIL,1 TEST FOR ALL ONES IN 1ST WD OF CUR. INSTR F3B12700
07147 0 40200 0 02211 56SUBALLONE F3B12710
07150 0 10000 0 02155 57TZEERROR1 ALL ONES. GO TO PROPER STOP F3B12720
07151 0 02000 4 00001 58TRA1,4 NOT ALL ONES. RETURN F3B12730
593 TEARG2. ROUTINE TO DET. IF TOO MANY ARGS. SPECIFIED F3B12740
07152 0 50000 1 02327 60TEARG2 CLAAIL,1 TEST FOR ALL ONES IN TST WORD OF F3B12750
07153 0 02000 0 07235 61TRASUBPAT F3B12760
07154 0 50000 1 02331 62ARGTAG CLAAIL+2,1 PLACE SUMB ADDRESS OF CURRENT ARG F3B12770
07155 0 60100 0 02324 63STOM1CW+2 IN M1CW+2 F3B12780
07156 0 50000 1 02332 64CLAAIL+3,1 PLACE RELATIVE ADD. AND TAG OF CUR F3B12790
07157 0 60100 0 02325 65STOM1CW+3 RENT ARG. IN M1CW+3 F3B12800
07160−0 32000 0 02207 66ANATGMSK TEST FOR TAG F3B12810
07161 0 10000 4 00001 67TZE1,4 NO TAG. RETURN F3B12820
07162−0 63400 4 07230 68SXDC,4 ARG TAGGED. SAVE LINKAGE F3B12830
07163−0 76000 0 00143 69MSE99 TEST FOR END OF CHTAG TABLE F3B12840
07164 0 07400 4 01016 70TSXM12500,4 CHTAG TABLE NOT EXHAUSTED. F3B12850
07165 0 76000 0 00143 71PSE99 END OF CHTAG TABLE. RESTORE IN F3B12860
07166−0 53400 4 07230 72LXDC,4 DICATOR AND LINKAGE F3B12870
07167 0 02000 4 00001 73TRA1,4 RETURN F3B12880
74THE ROUTINE FOR COMPILING THE 0PEN SUBROUTINES DIMAND XDIM F3B12890
07170 0 76000 0 00144 75 XDIM PSE100 TURN ON SENSE LIGHT 100 FOR XDIM F3B12900
07171 0 07400 4 07146 76 DIM TSXTEARG1,4 TEST NO. OF ARGS SPECIFIED F3B12910
07172 0 07400 4 07154 77TSXARGTAG,4 TEST WHETHER FIRST ARG. IS TAGGED F3B12920
07173 1 77774 1 07174 78TXIO1,1,−4 INDEX COMPAIL RECORD TO BEG. OF NEXT REC. F3B12930
07174 0 07400 4 07136 79 O1 TSXTEST,4 TEST FOR END OF CURRENT AIL RECORD F3B12940
07175 0 07400 4 07152 80TSXTEARG2,4 TEST NO. OF ARGS. SPECIFIED F3B12950
07176 0 07400 4 00707 81TSXCIT00,4 COMPILE FIRST INST. FOR DIM AND XDIM F3B12960
07177 0 00000 0 02322 82HTRM1CW LOCATION (1ST WD) F3B12970
07200 0 00000 0 02215 83HTRL(CLA) CLA(2ND WD.) F3B12980
07201 0 00000 0 02324 84HTRM1CW+2 FIRST ARG (3RD WD) F3B12990
07202 0 00000 0 02325 85HTRM1CW+3 REL. ADD END TAG OF 1ST ARG (4TH WD) F3B13000
07203 0 07400 4 07154 86TSXARGTAG,4 TEST WHETHER 2ND. ARG TAGGED ETC. F3B13010
07204−0 50000 0 07231 87CALL(SUB) PREPARE OP. WD (2ND WD) OF 2ND AIL F3B13020
07205−0 76000 0 00144 88MSE100 ENTRY. OP. IS SUB. FOR XDIM F3B13030
07206−0 50000 0 07232 89CALL(FSB) FSB FOR DIM F3B13040
07207 0 60200 0 02323 90SLWM1CW+1 F3B13050
07210 0 07400 4 00707 91TSXCIT00,4 COMPILE 2ND INST FOR DIM OR XDIH F3B13060
07211 0 00000 0 02170 92HTRL(0) 0 (1ST WD) F3B13070
07212 0 00000 0 02323 93HTRM1CW+1 SUB(XDIH), FSB(DIM) (2ND. WD) F3B13080
07213 0 00000 0 02324 94HTRM1CW+2 2ND. ARG (3RD WD) F3B13090
07214 0 00000 0 02325 95HTRM1CW+3 REL. ADD AND TAG OF 2ND ARG (4TH WD) F3B13100
07215 0 07400 4 00707 96TSXCIT00,4 COMPILE 3RD INST FOR DIM AND XDIM F3B13110
07216 0 00000 0 02170 97HTRL(0) 0(1ST WD) F3B13120
07217 0 00000 0 07233 98HTRL(TPL) TPL(2ND WD) F3B13130
07220 0 00000 0 02245 99HTRL(017) 0CT. 17 IN BITS S-5 F3B13140
07221 0 00000 0 02177 100HTRL(2D) REL. ADD 2, TAG 0 (4TH WD) F3B13150
07222 0 07400 4 00707 101TSXCIT00,4 COMPILE LAST INST FOR DIH AND XD)M F3B13160
07223 0 00000 0 02170 102HTRL(0) 0 (1STWD) F3B13170
07224 0 00000 0 07234 103HTRL(PXD) PXD (2ND WD) F3B13180
07225 0 00000 0 02170 104HTRL(0) 0 (3RD WD) F3B13190
07226 0 00000 0 02170 105HTRL(0) 0 (4TH WD) F3B13200
07227 1 77774 1 00774 106TXIRESUME,1,−4 INDEX CUR AIL RECORD TO BEGINNING F3B13210
107 OF NEXT 4WD INST AND RETURN TO MAIN PROG F3B13220
108CONSTANTS AND ERASIBLE STORAGE FOR FOUR F3B13230
109SUBROUTINES USED IN COMPILING OPEN SUBROUTINES F3B13240
A07230 0 00000 0 00000 110 C HTR F3B13250
77776 111 M1D2L EQU−2 THE 2S COMPL OF THE LENGTH OF F3B13260
112 M1D2. THIS CARD HUST BE CHANGED WHEN F3B13270
113 ADDITIONS TO M1D2 ARE MADE F3B13280
02170 114L(0) SYN1144 F3B13290
01306 115M13505 SYN710 F3B13291
02312 116CCELL SYN1226 F3B13292
02305 117M1ALWN SYN1221 F3B13293
00341 118M10210 SYN225 F3B13294
02327 119AIL SYN1239 F3B13295
02211 120ALLONE SYN1161 F3B13300
02155 121ERROR1 SYN1133 F3B13301
02163 122ERROR2 SYN1139 F3B13302
02322 123M1CW SYN1234 F3B13303
02207 124TGMSK SYN1159 F3B13304
01016 125M12500 SYN526 F3B13305
126CONSTANS USED IN COMPILING THE OPEN SUBRTNS. XDIM AND DIM F3B13310
00707 127CIT00 SYN455 F3B13320
02215 128L(CLA) SYN1165 F3B13330
07231 626422000000 129L(SUB) BCD1SUB000 F3B13340
07232 266222000000 130L(FSB) BCD1FSB000 F3B13350
07233 634743000000 131L(TPL) BCD1TPL000 F3B13360
07234 476724000000 132L(PXD) BCD1PXD000 F3B13370
02245 133L(017) SYN1189 F3B13380
02177 134L(2D) SYN1151 F3B13390
00774 135RESUME SYN508 F3B13400
07235 0 40200 0 02211 136SUBPAT SUBALLONE F3B13401
07236 0 10000 4 00001 137TZE1,4 F3B13402
07237 0 02000 0 02163 138TRAERROR2 F3B13403
A07240 0 00000 0 00000 139 R00M HTRSPACE FROM ROOM MAY BE USED FOR ADD. OPEN SUB. COMPILATION F3B13414