ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph02.asm
1130 FORTRAN COMPILER PHASE 2
2 | *************************************************** K0200020
3 | * PDUMP PROCESSING INCLUDED * K0200030
4 | *************************************************** K0200040
5 | *************************************************** K0200050
6 | *STATUS - VERSION 2, MODIFICATION LEVEL 11 * K0200060
7 | * * K0200070
8 | *FUNCTION/OPERATION- * K0200080
9 | * * DETERMINES THE STMNT TYPE FOR EACH STMNT, * K0200090
10 | * INSERTS THE TYPE CODE INTO THE STMNT ID WORD* K0200100
11 | * * PLACES THE TERMINAL CHARACTER AT THE END OF * K0200110
12 | * EACH STATEMENT * K0200120
13 | * * CONVERTS SUBPROGRAM NAMES LONGER THAN FIVE * K0200130
14 | * CHARACTERS TO FIVE-CHARACTER NAMES * K0200140
15 | * * CONVERTS FORTRAN-SUPPLIED SUBPROGRAM NAMES * K0200150
16 | * ACCORDING TO THE SPECIFIED PRECISION * K0200160
17 | * * K0200170
18 | *ENTRY POINTS- * K0200180
19 | * START-PHASE 2 IS READ INTO CORE BY PHASE 1 * K0200190
20 | * AND EXECUTION BEGUN AT LOCATION START * K0200200
21 | * * K0200210
22 | *INPUT- * K0200220
23 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K0200230
24 | * STRING SCANNED BY THE COMPILER MAY BE * K0200240
25 | * CONSIDERED INPUT * K0200250
26 | * * K0200260
27 | *OUTPUT- * K0200270
28 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K0200280
29 | * STRING ALTERED BY THE COMPILER MAY BE * K0200290
30 | * CONSIDERED OUTPUT * K0200300
31 | * * K0200310
32 | *EXTERNAL ROUTINES-N/A * K0200320
33 | * * K0200330
34 | *EXITS- * K0200340
35 | * NORMAL- * K0200350
36 | * PHASE EXITS NORMALLY IF NO ERRORS ARE * K0200360
37 | * FOUND. PHASE 3 IS LOADED AND EXECUTED. * K0200370
38 | * ERROR- * K0200380
39 | * THE OVERFLOW OF COMPILER PROCESSING IS NOT * K0200390
40 | * INTERRUPTED WHEN AN ERROR IS ENCOUNTERED. * K0200400
41 | * AN ERROR STMNT REPLACES THE FAULTY STMNT * K0200410
42 | * ON THE STRING AND STMNT SCANNING PROCESS * K0200420
43 | * CONTINUES. AN EXCEPTION OCCURS IN THE CASE * K0200430
44 | * OF AN OVERLAP ERROR. COMPILATION IS * K0200440
45 | * ABORTED AND CONTROL IS PASSED FROM PHASE * K0200450
46 | * TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE * K0200460
47 | * IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K0200470
48 | * THE ERROR DETECTED BY PHASE 2 IS 4. * K0200480
49 | * * K0200490
50 | *TABLES/WORK AREAS- * K0200500
51 | * NONE EXCEPT STATEMENT STRING AREA, SYMBOL * K0200510
52 | * TABLE, AND FORTRAN COMMUNICATION AREA * K0200520
53 | * * K0200530
54 | *ATTRIBUTES-N/A * K0200540
55 | * * K0200550
56 | *NOTES- * K0200560
57 | * THE SWITCHES USED IN PHASE 2 FOLLOW. IF NON- * K0200570
58 | * ZERO, THE SWITCH IS TRANSFER=T. IF ZERO, THE * K0200580
59 | * SWITCH IS NORMAL=N. * K0200590
60 | * * SW1-REAL OR INTEGER INDICATOR * K0200600
61 | * T#STATEMENT IS REAL OR INTEGER * K0200610
62 | * * SW2-DO INDICATOR * K0200620
63 | * T#STATEMENT IS DO * K0200630
64 | * * SW3-WHICH HALF OF WORD IS CHARACTER * K0200640
65 | * T#RIGHT HALF * K0200650
66 | * * SW4-CONTENTS OF 'NAMS' * K0200660
67 | * T#CHARACTER IN NAMS * K0200670
68 | * * SW5-TYPE OF ARGUMENT TO MAKE CHARACTER * K0200680
69 | * T#OPERATOR * K0200690
70 | * * SW6-POSITION IN STATEMENT * K0200700
71 | * T#END OF STATEMENT * K0200710
72 | * * SW7-DATA INDICATOR * K0200720
73 | * T#STATEMENT IS DATA * K0200730
74 | * * SW8-QUOTE ENCOUNTERED * K0200740
75 | * N#NOT ENCOUNTERED * K0200750
76 | * * SW9-OUTPUT WHICH HALF OF WORD * K0200760
77 | * N#LEFT HALF * K0200770
78 | * T#RIGHT HALF * K0200780
79 | * * K0200790
80 | *************************************************** K0200800
81 | ABS K0200810
82 | * K0200820
83 | * SYSTEM EQUATES K0200830
8000 84 | MEMRY EQU /8000 K0200840
7A23 85 | OVERL EQU MEMRY-1501 START OF FCOM K0200850
7FBC 86 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K0200860
0078 87 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K0200870
7A23 88 | ORG OVERL K0200880
0020 89 | PHID EQU 32 ID NUMBER THIS PHASE K0200890
90 | * K0200900
91 | * FORTRAN COMMUNICATION AREA K0200910
7A23 92 | ORG BSS 1 ORIGIN ADDRESS 2-5 K0200915
7A24 93 | SOFS BSS 1 START OF STRING K0200920
7A25 94 | EOFS BSS 1 END OF STRING K0200930
7A26 95 | SOFST BSS 1 START OF SYMBOL TABLE K0200940
7A27 96 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K0200950
7A28 97 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K0200960
7A29 98 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K0200970
7A2A 99 | EOFST BSS 1 END OF SYMBOL TABLE K0200980
7A2B 100 | COMON BSS 1 NEXT AVAILABLE COMMON K0200990
7A2C 101 | CSIZE BSS 1 SIZE OF COMMON K0201000
7A2D 102 | ERROR BSS 1 OVERLAP ERROR K0201010
7A2E 103 | FNAME BSS 1 PROGRAM NAME K0201020
7A2F 104 | BSS 1 K0201030
7A30 105 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K0201040
7A31 106 | CCWD BSS 1 CONTROL CARD WORD K0201050
107 | * BIT 15 TRANSFER TRACE K0201060
108 | * BIT 14 ARITHMETIC TRACE K0201070
109 | * BIT 13 EXTENDED PRECISION K0201080
110 | * BIT 12 LIST SYMBOL TABLE K0201090
111 | * BIT 11 LIST SUBPROGRAM NAMES K0201100
112 | * BIT 10 LIST SOURCE PROGRAM K0201110
113 | * BIT 8 ORIGIN K0201120
7A32 114 | IOCS BSS 1 IOCS CONTROL CARD WORD K0201130
115 | * BIT 15 CARD K0201140
116 | * BIT 14 PAPER TAPE K0201150
117 | * BIT 13 TYPEWRITER K0201160
118 | * BIT 12 1403 PRINTER K0201170
119 | * BIT 11 2501 READER K0201180
120 | * BIT 10 KEYBOARD K0201190
121 | * BIT 9 1442 PUNCH K0201200
122 | * BIT 8 DISK K0201210
123 | * BIT 7 1132 PRINTER K0201220
124 | * BIT 3 PLOTTER K0201230
125 | * K0201240
7A33 126 | DFCNT BSS 1 K0201250
127 | * K0201260
128 | * K0201270
129 | * END OF FORTRAN COMMUNICATION K0201280
130 | * AREA K0201290
131 | * K0201300
132 | * K0201310
7A36 133 | BPHAR EQU *+2 K0201320
7A34 0000 134 | DC 0 LOADER WORK AREA K0201330
7A35 FFE0 135 | DC -32 -PHASE ID FOR SLET LOOKUP K0201340
7A36 000C 136 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K0201350
7A37 0001 137 | DC 1 ONE ENTRY TO BE SET BY LDR K0201360
7A36 138 | ORG *-2 K0201370
7A36 6120 139 | START LDX 1 PHID GET PHASE ID NUMBER K0201380
7A37 6D00 0078 140 | STX L1 $PHSE STORE IN CORE PHASE LOC K0201390
141 | * K0201400
142 | * CHECKS THE FORTRAN COMMUNICATION K0201410
143 | * AREA ERROR WORD FOR AN OVERLAP K0201420
144 | * CONDITION K0201430
7A39 C0F3 145 | LD ERROR IS THERE OVERLAP ERROR K0201440
7A3A 4C18 7EB5 146 | BSC L ORGCK,+- BRANCH IF NOT 2-11 K0201450
147 | * K0201460
148 | * TRANSFERS TO THE ROL ROUTINE K0201470
149 | * TO LOAD THE NEXT PHASE K0201480
7A3C 6580 7A43 150 | WAIT LDX I1 NXTPH+1 LOAD PARAM FOR READING K0201490
7A3E C805 151 | LDD NXTPH+2 NEXT PHASE K0201500
7A3F 4C00 7FBC 152 | BSC L ROL GO TO READ NEXT PHASE K0201510
7A42 153 | BSS E 0 K0201520
7A42 0021 154 | NXTPH DC 33 ID OF NEXT PHASE K0201530
7A43 155 | BSS 3 LOADER TBL FOR NEXT PHASE K0201540
156 | * K0201550
157 | * MOVES THE ENTIRE STATEMENT K0201560
158 | * STRING NEXT TO THE SYM TBL K0201570
7A46 C0DE 159 | BACK LD EOFS LOAD END OF STRING ADDRESS K0201580
7A47 90DC 160 | S SOFS SUBTRACT START OF STRING K0201590
7A48 D001 161 | STO *+1 TO GET SIZE OF STRING - 1 K0201600
7A49 6700 0000 162 | LDX L3 *-* LOAD SIZE IN XR3 K0201610
7A4B 7301 163 | MDX 3 1 GET SIZE OF STRING K0201620
164 | * K0201630
7A4C 6680 7A25 165 | LDX I2 EOFS INITIALIZE POINTERS FOR K0201640
7A4E 6580 7A2A 166 | LDX I1 EOFST MOVING STRING UP TO SYMBOL K0201650
7A50 C200 167 | LD 2 0 TABLE K0201660
168 | * K0201670
7A51 D102 169 | STO 1 +2 MOVE WORD FROM STRING TO K0201680
7A52 71FF 170 | MDX 1 -1 SYMBOL TABLE - MOVE K0201690
7A53 72FF 171 | MDX 2 -1 POINTERS - DECREMENT K0201700
7A54 73FF 172 | MDX 3 -1 COUNTER OF RANGE OF LOOP K0201710
7A55 70FA 173 | MDX *-6 CONTINUE LOOP K0201720
174 | * K0201730
7A56 7103 175 | MDX 1 3 RESET INPUT POINTER K0201740
7A57 6680 7A24 176 | LDX I2 SOFS RESET OUTPUT POINTER K0201750
7A59 4C00 7E02 177 | BSC L CQCT CHECK FOR NONPROCESS,PUNCH K0201760
178 | * K0201770
179 | * MOVES STMNTS FROM THE INPUT K0201780
180 | * STRING TO THE OUTPUT STRING K0201790
7A5B C100 181 | MOVE LD 1 0 LOAD STATEMENT ID WORD K0201800
7A5C E06C 182 | AND S07FC ZERO ALL BUT NORM K0201810
7A5D 1802 183 | SRA 2 MOVE NORM TO RIGHT K0201820
7A5E D06B 184 | STO XTE1 SET NORM COUNTER K0201830
185 | * K0201840
7A5F C100 186 | MXS LD 1 0 LOAD ID WORD K0201850
7A60 4400 7C01 187 | BSI L PUT PUT ON OUTPUT STRING K0201860
7A62 7101 188 | MDX 1 1 MOVE INPUT POINTER K0201870
7A63 74FF 7ACA 189 | MDX L XTE1,-1 DECREMENT NORM COUNTER K0201880
7A65 70F9 190 | MDX MXS CONTINUE LOOP K0201890
191 | * K0201900
192 | * MOVE TO NEXT STATEMENT K0201910
7A66 6500 0000 193 | MOVE1 LDX L1 *-* MOVE INPUT POINTER TO K0201920
7A67 194 | IDSV EQU *-1 NEXT STATEMENT K0201930
195 | * K0201940
196 | * INITIALIZES FOR A SCAN OF K0201950
197 | * THE STMNT STRING K0201960
7A68 C100 198 | ZAO LD 1 0 LOAD STATEMENT ID WORD K0201970
7A69 1005 199 | SLA 5 SHIFT TO GET NORM K0201980
7A6A 1807 200 | SRA 7 K0201990
7A6B D001 201 | STO *+1 K0202000
7A6C 6700 0000 202 | ZA0A LDX L3 *-* SAVE NORM IN XR3 K0202010
7A6E 69F8 203 | STX 1 IDSV SAVE INPUT POINTER K0202020
204 | * K0202030
7A6F C0FD 205 | LD ZA0A+1 ADD NORM TO POINTER TO GET K0202040
7A70 80F6 206 | A IDSV ADDRESS OF NEXT STATEMENT K0202050
7A71 D0F5 207 | STO IDSV K0202060
208 | * K0202070
7A72 C100 209 | LD 1 0 LOAD ID WORD K0202080
7A73 4804 210 | BSC E DOES STMNT HAVE STMNT NO. K0202090
7A74 73FE 211 | MDX 3 -2 YES, MODIFY NORM CTR K0202100
212 | * K0202110
7A75 73FF 213 | MDX 3 -1 MODIFY CTR SO HAVE SIZE OF K0202120
7A76 1000 214 | NOP STMNT WITHOUT ID WORD AND K0202130
7A77 6F00 7BC3 215 | STX L3 NCNT STATEMENT NUMBER K0202140
216 | * K0202150
7A79 6F00 7BC4 217 | STX L3 NCNTS SAVE MODIFIED NORM K0202160
218 | * K0202170
219 | * CHECK FOR SPECIAL END INDICATOR K0202180
7A7B C100 220 | ZA1 LD 1 0 LOAD STATEMENT ID WORD K0202190
7A7C 180B 221 | SRA 11 GET ID TYPE CODE K0202200
7A7D 904D 222 | S ENDC CHECK FOR END TYPE CODE K0202210
7A7E 4C20 7A8E 223 | BSC L ZA1B,Z BRANCH IF NOT END K0202220
224 | * K0202230
225 | * K0202240
7A80 C400 7BC6 226 | LD L ERID LOAD ERROR STMNT ID WORD K0202250
7A82 4400 7C01 227 | BSI L PUT PUT WORD ON OUTPUT STRING K0202260
7A84 C043 228 | LD ERNO2 LOAD ERROR NUMBER K0202270
7A85 4400 7C01 229 | BSI L PUT PUT NO. ON OUTPUT STRING K0202280
230 | * K0202290
231 | * PLACES THE END STMNT ID WORD K0202300
232 | * ON THE STRING K0202310
7A87 6E00 7A25 233 | ZA1A STX L2 EOFS SET END OF STRING ADDRESS K0202320
7A89 C042 234 | LD S1000 LOAD END STMNT ID WORD K0202330
7A8A 4400 7C01 235 | BSI L PUT PUT WORD ON OUTPUT STRING K0202340
7A8C 4C00 7D9C 236 | BSC L CALLC GO TO PHASE EXIT K0202350
237 | * K0202360
238 | * CHECKS FOR ARITHMETIC STMNTS K0202370
7A8E 903E 239 | ZA1B S ATHC HAS STMNT BEEN CLASSIFIED K0202380
7A8F 4C20 7A5B 240 | BSC L MOVE,Z YES, GO CHECK STMNT K0202390
241 | * K0202400
242 | * INITIALIZE GET SUBROUTINE K0202410
7A91 693C 243 | STX 1 IDSV1 SAVE INPUT POINTER K0202420
7A92 C100 244 | LD 1 0 LOAD STMNT ID WORD K0202430
7A93 4804 245 | BSC E HAS STMNT NO. K0202440
7A94 7102 246 | MDX 1 2 YES, MOVE POINTER OVER NO. K0202450
7A95 7101 247 | MDX 1 1 MOVE POINTER TO FIRST WORD K0202460
7A96 6923 248 | STX 1 IDSA1 AFTER ID - SAVE ADDRESS K0202470
249 | * K0202480
7A97 1010 250 | SLA 16 K0202490
7A98 D400 7B66 251 | STO L SW3 CLEAR SWITCH 3 K0202500
7A9A D400 7BC5 252 | STO L SW6 CLEAR SWITCH 6 K0202510
7A9C D03A 253 | STO SW7 CLEAR SWITCH 7 K0202520
7A9D D03A 254 | STO SW8 CLEAR SWITCH 8 K0202530
7A9E D03A 255 | STO SW9 CLEAR SWITCH 9 K0202540
256 | * K0202550
257 | * K0202560
258 | * CHECKS THE ARITHMETIC STMNT K0202570
259 | * FOR THE VARIOUS TYPES OF OPTRS K0202580
7A9F 4400 7B9B 260 | ZA2 BSI L GET1 GET CHAR FROM INPUT STRING K0202590
7AA1 D03B 261 | STO X SAVE CHARACTER K0202600
262 | * K0202610
263 | * K0202620
7AA2 903B 264 | S SLHHS IS CHARACTER SLASH K0202630
7AA3 4C18 7ADF 265 | BSC L ZA5,+- BRANCH IF YES K0202640
266 | * K0202650
267 | * K0202660
7AA5 C037 268 | LD X K0202670
7AA6 9028 269 | S EQUC IS CHARACTER EQUAL SIGN K0202680
7AA7 4C18 7AAD 270 | BSC L ZA3,+- BRANCH IF YES K0202690
271 | * K0202700
272 | * K0202710
7AA9 C033 273 | LD X IS CHARACTER ZERO K0202720
7AAA 4C20 7A9F 274 | BSC L ZA2,Z BRANCH IF NOT K0202730
7AAC 7032 275 | MDX ZA5 BRANCH - END OF STMNT K0202740
276 | * K0202750
277 | * K0202760
7AAD 4400 7B9B 278 | ZA3 BSI L GET1 GET CHAR FROM INPUT STRING K0202770
7AAF D02D 279 | STO X SAVE CHARACTER K0202780
280 | * K0202790
281 | * K0202800
7AB0 901F 282 | S CMAC IS CHARACTER COMMA K0202810
7AB1 4C18 7ADF 283 | BSC L ZA5,+- BRANCH IF YES K0202820
284 | * K0202830
285 | * K0202840
7AB3 901D 286 | S LPC IS CHAR LEFT PARENTHESIS K0202850
7AB4 4C18 7AB9 287 | BSC L ZA4,+- BRANCH IF YES K0202860
288 | * K0202870
289 | * K0202880
7AB6 C026 290 | LD X K0202890
7AB7 4C20 7AAD 291 | BSC L ZA3,Z BRANCH IF NOT END OF STMNT K0202900
292 | * K0202910
293 | * INITIALIZE GET SUBROUTINE K0202920
7AB9 6500 0000 294 | ZA4 LDX L1 *-* LOAD STATEMENT ID WORD K0202930
7ABA 295 | IDSA1 EQU *-1 K0202940
7ABB D400 7B66 296 | STO L SW3 CLEAR SWITCH 3 K0202950
7ABD D400 7B67 297 | STO L SW4 CLEAR SWITCH 4 K0202960
7ABF D400 7BC5 298 | STO L SW6 CLEAR SWITCH 6 K0202970
7AC1 C400 7BC4 299 | LD L NCNTS RESET NORM TO K0202980
7AC3 D400 7BC3 300 | STO L NCNT ORIGINAL VALUE K0202990
301 | * K0203000
302 | * PUT ARITHMETIC ID WORD IN IDWD K0203010
7AC5 1010 303 | SLA 16 GET ARITHMETIC ID WORD K0203020
7AC6 D00B 304 | STO IDWD STORE IN ID WORD K0203030
7AC7 7049 305 | MDX ZA6 GO PUT ON OUTPUT STRING K0203040
306 | * K0203050
307 | * CONSTANTS K0203060
7AC8 0003 308 | ERNO2 DC 3 ERROR NO. 3 K0203070
7AC9 07FC 309 | S07FC DC /07FC NORM MASK K0203080
7ACA 0000 310 | XTE1 DC 0 NORM COUNTER K0203090
7ACB 0002 311 | ENDC DC /02 END STMNT ID TYPE K0203100
7ACC 1004 312 | S1000 DC /1004 END STMNT ID WORD K0203110
7ACD FFFE 313 | ATHC DC /00-/02 ARITHMETIC STMNT ID TYPE K0203120
7ACE 0000 314 | IDSV1 DC 0 INPUT POINTER K0203130
7ACF 007E 315 | EQUC DC /7E EQUAL SIGN K0203140
7AD0 006B 316 | CMAC DC /6B COMMA K0203150
7AD1 FFE2 317 | LPC DC /4D-/6B LEFT PARENTHESIS K0203160
7AD2 0000 318 | IDWD DC 0 ID WORD K0203170
7AD3 4800 319 | REALC DC /4800 REAL STMNT ID TYPE K0203180
7AD4 0800 320 | INTC DC /5000-/4800 INTEGER STMNT ID TYPE K0203190
7AD5 0800 321 | DOC DC /5800-/5000 DO STMNT ID TYPE K0203200
7AD6 0008 322 | EIGHT DC 8 EIGHT K0203210
7AD7 0000 323 | SW7 DC *-* SWITCH 7 K0203220
7AD8 0000 324 | SW8 DC *-* SWITCH 8 K0203230
7AD9 0000 325 | SW9 DC *-* SWITCH 9 K0203240
7ADA 0000 326 | SW10 DC *-* PDUMP SWITCH K0203250
7ADB 0000 327 | SW1 DC 0 SWITCH 1 K0203260
7ADC 0000 328 | SW2 DC 0 SWITCH 2 K0203270
7ADD 0000 329 | X DC 0 TEMPORARY STORAGE K0203280
7ADE 0061 330 | SLHHS DC /61 SLASH K0203290
331 | * K0203300
332 | * K0203310
7ADF 6580 7ABA 333 | ZA5 LDX I1 IDSA1 SET POINTER AT STMNT ID K0203320
7AE1 1010 334 | SLA 16 K0203330
7AE2 D400 7B66 335 | STO L SW3 CLEAR SWITCH 3 K0203340
7AE4 D400 7B67 336 | STO L SW4 CLEAR SWITCH 4 K0203350
7AE6 D400 7BC5 337 | STO L SW6 CLEAR SWITCH 6 K0203360
7AE8 C400 7BC4 338 | LD L NCNTS RESET NORM TO K0203370
7AEA D400 7BC3 339 | STO L NCNT ORIGINAL VALUE K0203380
340 | * K0203390
341 | * K0203400
7AEC 4400 7BCC 342 | BSI L GETID GET ID TYPE K0203410
343 | * K0203420
344 | * K0203430
7AEE C0E3 345 | LD IDWD LOAD ID WORD K0203440
7AEF 9400 7D48 346 | S L ID4B+2 IS DATA STATEMENT K0203450
7AF1 4C20 7AF5 347 | BSC L *+2,Z BRANCH IF NO K0203460
7AF3 6C00 7AD7 348 | STX L0 SW7 SET DATA STMNT INDICATOR K0203470
349 | * K0203480
350 | * K0203490
7AF5 C0DC 351 | LD IDWD LOAD ID WORD K0203500
7AF6 9400 7D59 352 | S L ID7+2 IS END STATEMENT K0203510
7AF8 4C18 7A87 353 | BSC L ZA1A,+- BRANCH IF YES K0203520
7AFA C0D7 354 | LD IDWD LOAD ID WORD 2-1 K0203530
7AFB 9400 7D8A 355 | S L ID17+3 SUBTRACT RETURN ID 2-1 K0203540
7AFD EC00 7BC5 356 | OR L SW6 OR END OF STATEMENT INDR2-1 K0203550
7AFF 4C18 7C11 357 | BSC L ER,+- BR TO ERROR IF RETURN 2-1 K0203560
358 | * AND NOT END OF STATEMENT2-1 K0203570
359 | * K0203580
360 | * CALL PDUMP K0203590
7B01 C0D0 361 | LD IDWD LOAD ID WORD K0203600
7B02 9400 7D39 362 | S L ID1L+5 TEST FOR PDUMP K0203610
7B04 4C20 7B11 363 | BSC L ZA6,Z BRANCH IF NOT K0203620
7B06 C400 7D3C 364 | ZA51 LD L ID2+2 SET ID TO CALL K0203630
7B08 D0C9 365 | STO IDWD K0203640
7B09 68D0 366 | STX SW10 SET PDUMP SWITCH K0203650
367 | * K0203660
368 | * RESET POINTERS BACK TO NAME K0203670
369 | * K0203680
7B0A 71FE 370 | MDX 1 -2 RESET INPUT STRING POINTER K0203690
7B0B 1010 371 | SLA 16 K0203700
7B0C D059 372 | STO SW3 RESET LEFT-RIGHT SWITCH K0203710
7B0D 7402 7BC3 373 | MDX L NCNT,2 RESET WORD COUNTERS K0203720
7B0F 7402 7BC4 374 | MDX L NCNTS,2 * K0203730
375 | * K0203740
376 | * K0203750
377 | * PUT ID WORD ON THE NEW STRING K0203760
7B11 6E00 7B87 378 | ZA6 STX L2 IDSV2 STORE OUTPUT POINTER K0203770
7B13 6780 7ACE 379 | LDX I3 IDSV1 LOAD ADDR OF STMNT ID WD K0203780
7B15 C300 380 | LD 3 0 K0203790
7B16 E8BB 381 | OR IDWD K0203800
7B17 4400 7C01 382 | BSI L PUT PLACE ID WORD ON STRING K0203810
383 | * K0203820
7B19 C300 384 | LD 3 0 LOAD ID WORD K0203830
7B1A 4804 385 | BSC E HAS STMNT NO. K0203840
7B1B 7001 386 | MDX *+1 YES, GO PUT NO. ON STRING K0203850
7B1C 7006 387 | MDX *+6 NO, GO SCAN BODY OF STMNT K0203860
388 | * K0203870
7B1D C301 389 | LD 3 1 LOAD 1ST WORD OF STMNT NO. K0203880
7B1E 4400 7C01 390 | BSI L PUT PUT ON OUTPUT STRING K0203890
7B20 C302 391 | LD 3 2 LOAD 2ND WORD OF STMNT NO. K0203900
7B21 4400 7C01 392 | BSI L PUT PUT ON OUTPUT STRING K0203910
393 | * K0203920
394 | * INITIALIZE TO SCAN BODY OF STATE K0203930
7B23 1010 395 | SLA 16 CLEAR SWITCHES K0203940
7B24 D0B6 396 | STO SW1 K0203950
7B25 D0B6 397 | STO SW2 K0203960
7B26 D01A 398 | STO FCNT K0203970
399 | * K0203980
400 | * IS IDWD REAL OR INTEGER K0203990
7B27 C0AA 401 | LD IDWD LOAD ID WORD K0204000
7B28 90AA 402 | S REALC IS IT REAL K0204010
7B29 4C18 7B2E 403 | BSC L *+3,+- BRANCH IF YES K0204020
7B2B 90A8 404 | S INTC IS IT INTEGER K0204030
7B2C 4C20 7B30 405 | BSC L ZA7,Z BRANCH IF NOT K0204040
406 | * K0204050
407 | * TAG SW1 K0204060
7B2E 68AC 408 | STX 0 SW1 SET REAL/INTEGER INDICATOR K0204070
7B2F 7004 409 | MDX ZA8 GO GET NEXT CHARACTER K0204080
410 | * K0204090
411 | * K0204100
7B30 90A4 412 | ZA7 S DOC IS IT DO STMNT K0204110
7B31 4C20 7B34 413 | BSC L ZA8,Z BRANCH IF NOT K0204120
414 | * K0204130
415 | * TAG SW2 K0204140
7B33 68A8 416 | STX 0 SW2 SET DO INDICATOR K0204150
417 | * K0204160
418 | * K0204170
7B34 4400 7B9B 419 | ZA8 BSI L GET1 GET CHAR FROM INPUT STRING K0204180
7B36 D0A6 420 | STO X STORE CHAR K0204190
421 | * K0204200
422 | * K0204210
7B37 C0A3 423 | LD SW1 IS IT REAL/INTEGER STMNT K0204220
7B38 4C18 7B4E 424 | BSC L ZA11,+- BRANCH IF NOT K0204230
425 | * K0204240
426 | * K0204250
7B3A C006 427 | LD FCNT LOAD FUNCTION LETTER CTR K0204260
7B3B 909A 428 | S EIGHT ALL LETTERS COMPARED K0204270
7B3C 4C18 7B48 429 | BSC L ZA9,+- YES, GO PUT ON ISOLATOR K0204280
430 | * K0204290
431 | * K0204300
7B3E 7401 7B41 432 | MDX L FCNT,1 MODIFY FUNCTION LETTER CTR K0204310
433 | * K0204320
434 | * ISOLATES THE WORD FUNCTION IN K0204330
435 | * A TYPE STMNT ON THE STRING K0204340
7B40 6700 0000 436 | LDX L3 *-* LOAD XR3 WITH K0204350
7B41 437 | FCNT EQU *-1 FUNCTION LETTER COUNTER K0204360
438 | * K0204370
7B42 C700 7B67 439 | LD L3 FUNT-1 LOAD LETTER FROM TABLE K0204380
7B44 9098 440 | S X DOES IT MATCH STRING CHAR K0204390
7B45 4C18 7B5D 441 | BSC L ZA12,+- BRANCH IF YES K0204400
7B47 7003 442 | MDX ZA10 GO NORMALIZE SWITCH 1 K0204410
443 | * K0204420
444 | * K0204430
7B48 C027 445 | ZA9 LD COLON LOAD COLON K0204440
7B49 4400 7C30 446 | BSI L MAKE CONVERT CHAR FOR OUTPUT K0204450
447 | * K0204460
448 | * NORMALIZE SW1 K0204470
7B4B 1010 449 | ZA10 SLA 16 K0204480
7B4C D08E 450 | STO SW1 CLEAR REAL/INTEGER SWITCH K0204490
7B4D 700F 451 | MDX ZA12 GO TEST FOR LAST CHAR K0204500
452 | * K0204510
453 | * ISOLATES STMNT NUMBERS IN K0204520
454 | * DO STATEMENTS K0204530
7B4E C08D 455 | ZA11 LD SW2 IS IT DO STMNT K0204540
7B4F 4C18 7B5D 456 | BSC L ZA12,+- BRANCH IF NOT K0204550
457 | * K0204560
458 | * IS X NUMERIC K0204570
7B51 C08B 459 | LD X LOAD CHARACTER K0204580
7B52 100B 460 | SLA 11 SHIFT LEFT 11 K0204590
7B53 4C10 7B57 461 | BSC L *+2,- FIRST TEST FOR NUMERIC K0204600
7B55 4C02 7B5D 462 | BSC L ZA12,C SECOND TEST-BRANCH NUMERIC K0204610
463 | * K0204620
464 | * K0204630
7B57 C018 465 | LD COLON LOAD COLON K0204640
7B58 4400 7C30 466 | BSI L MAKE CONVERT CHAR FOR OUTPUT K0204650
467 | * K0204660
468 | * NORMALIZE SW2 K0204670
7B5A 1010 469 | SLA 16 K0204680
7B5B D400 7ADC 470 | STO L SW2 CLEAR DO INDICATOR K0204690
471 | * K0204700
472 | * K0204710
7B5D C400 7ADD 473 | ZA12 LD L X LOAD CHARACTER K0204720
7B5F 4C18 7B77 474 | BSC L ZA13,+- BRANCH IF FINISHED STMNT K0204730
475 | * K0204740
476 | * K0204750
7B61 C400 7ADD 477 | LD L X LOAD CHARACTER K0204760
7B63 4400 7C30 478 | BSI L MAKE CONVERT CHAR FOR OUTPUT K0204770
7B65 70CE 479 | MDX ZA8 CONTINUE CHECK LOOP K0204780
480 | * K0204790
481 | * CONSTANTS K0204800
7B66 0000 482 | SW3 DC 0 SWITCH 3 K0204810
7B67 0000 483 | SW4 DC 0 SWITCH 4 K0204820
7B68 00C6 484 | FUNT DC /C6 F K0204830
7B69 00E4 485 | DC /E4 U K0204840
7B6A 00D5 486 | DC /D5 N K0204850
7B6B 00C3 487 | DC /C3 C K0204860
7B6C 00E3 488 | DC /E3 T K0204870
7B6D 00C9 489 | DC /C9 I K0204880
7B6E 00D6 490 | DC /D6 O K0204890
7B6F 00D5 491 | DC /D5 N K0204900
7B70 003A 492 | COLON DC /3A COLON K0204910
7B71 0000 493 | QSX1 DC 0 TEMPORARY STORAGE K0204920
7B72 F803 494 | SF803 DC /F803 CLEAR NORM MASK K0204930
7B73 00FF 495 | SFF DC /FF CLEAR LEFT 8 BITS MASK K0204940
7B74 001E 496 | SEMI DC /1E SEMI-COLON K0204950
7B75 D808 497 | PDMP DC /D808 DUMMY ZERO VARIABLE TO K0204960
7B76 5F00 498 | DC /5F00 TERMINATE PDUMP CALL K0204970
499 | * K0204980
500 | * K0204990
501 | * PLACES THE STMNT TERMINATOR K0205000
502 | * (SEMI-COLON) AT THE END OF THE K0205010
503 | * STATEMENT K0205020
7B77 C0FC 504 | ZA13 LD SEMI LOAD SEMI-COLON K0205030
7B78 4400 7C30 505 | BSI L MAKE CONVERT CHAR FOR OUTPUT K0205040
506 | * K0205050
507 | * K0205060
7B7A C400 7AD2 508 | LD L IDWD LOAD ID WORD K0205070
7B7C 9400 7D45 509 | S L ID4+4 IS CONTINUE STMNT K0205080
7B7E 4C20 7B81 510 | BSC L QZA1,Z BRANCH IF NO K0205090
511 | * K0205100
512 | * K0205110
7B80 72FF 513 | MDX 2 -1 DECREMENT OUTPUT POINTER K0205120
514 | * K0205130
515 | * INSERT THE STATEMENT NORM K0205140
516 | * STMNT ID WORD K0205150
7B81 6AEF 517 | QZA1 STX 2 QSX1 STORE OUTPUT POINTER K0205160
7B82 C0EE 518 | LD QSX1 K0205170
7B83 9003 519 | S IDSV2 SUBTRACT START ADDRESS TO K0205180
7B84 1002 520 | SLA 2 GET NORM - MOVE IN ID WORD K0205190
7B85 D0EB 521 | STO QSX1 K0205200
522 | * K0205210
7B86 C400 0000 523 | LD L *-* LOAD STATEMENT K0205220
7B87 524 | IDSV2 EQU *-1 ID WORD K0205230
525 | * K0205240
7B88 E0E9 526 | AND SF803 ZERO NORM K0205250
7B89 E8E7 527 | OR QSX1 INSERT NEW NORM K0205260
7B8A D480 7B87 528 | STO I IDSV2 PUT BACK ON STRING K0205270
7B8C C400 7ADA 529 | LD L SW10 TEST FOR PDUMP CALL K0205280
7B8E 4C18 7A66 530 | BSC L MOVE1,+- BRANCH IF NO CALL K0205290
7B90 C0E4 531 | LD PDMP OUTPUT INTERNAL FORMAT ID K0205300
7B91 4400 7C01 532 | BSI L PUT K0205310
7B93 C0E2 533 | LD PDMP+1 OUTPUT ZERO CONSTANT K0205320
7B94 4400 7C01 534 | BSI L PUT K0205330
7B96 1010 535 | SLA 16 K0205340
7B97 D400 7ADA 536 | STO L SW10 CLEAR PDUMP SWITCH K0205350
7B99 4C00 7A66 537 | BSC L MOVE1 GO TO NEXT STATEMENT K0205360
538 | * K0205370
539 | * K0205380
540 | * GETS A CHAR FROM THE I/P STRING K0205390
7B9B 0000 541 | GET1 DC 0 RETURN ADDRESS K0205400
7B9C C400 7B66 542 | LD L SW3 IS CHAR IN RIGHT HALF K0205410
7B9E 4C20 7BA8 543 | BSC L GXY1,Z BRANCH IF NOT K0205420
544 | * K0205430
545 | * K0205440
7BA0 C024 546 | LD SW6 IS IT END OF STMNT K0205450
7BA1 4C20 7BB8 547 | BSC L GXY4,Z BRANCH IF NOT K0205460
548 | * K0205470
549 | * TAG SW3 K0205480
7BA3 6C00 7B66 550 | STX L0 SW3 SET RIGHT HALF INDICATOR K0205490
551 | * K0205500
552 | * GET LEFT CHARACTER K0205510
7BA5 C100 553 | LD 1 0 LOAD WORD FROM STRING K0205520
7BA6 1808 554 | SRA 8 UNPACK - GET LEFT HALF K0205530
7BA7 7011 555 | MDX GXY3 GO TO RETURN K0205540
556 | * K0205550
557 | * K0205560
7BA8 1010 558 | GXY1 SLA 16 K0205570
7BA9 D400 7B66 559 | STO L SW3 CLEAR RIGHT HALF INDICATOR K0205580
560 | * K0205590
561 | * GET RIGHT CHARACTER K0205600
7BAB C100 562 | LD 1 0 LOAD INPUT WORD K0205610
7BAC E400 7B73 563 | AND L SFF UNPACK - GET RIGHT CHAR K0205620
564 | * K0205630
565 | * K0205640
7BAE 7101 566 | GXY2 MDX 1 1 MOVE POINTER K0205650
567 | * K0205660
568 | * K0205670
7BAF 74FF 7BC3 569 | MDX L NCNT,-1 DECREMENT NORM COUNTER K0205680
570 | * K0205690
571 | * K0205700
7BB1 7007 572 | MDX GXY3 BRANCH TO RETURN K0205710
573 | * K0205720
574 | * K0205730
7BB2 6812 575 | STX 0 SW6 SET END OF STMNT SW K0205740
576 | * K0205750
577 | * BLANK CHARACTER K0205760
7BB3 9017 578 | GXY5 S S0040 IS LAST CHAR BLANK K0205770
7BB4 4C18 7BB9 579 | BSC L GXY3,+- BRANCH IF YES K0205780
7BB6 8014 580 | A S0040 SET LAST CHAR TO BLANK K0205790
7BB7 7001 581 | MDX GXY3 BRANCH TO RETURN K0205800
582 | * K0205810
583 | * K0205820
7BB8 1010 584 | GXY4 SLA 16 SET END OF STMNT INDICATOR K0205830
585 | * K0205840
586 | * K0205850
7BB9 4C80 7B9B 587 | GXY3 BSC I GET1 RETURN K0205860
588 | * K0205870
589 | * K0205880
590 | * GETS TWO CHARACTERS FROM THE K0205890
591 | * INPUT STRING K0205900
7BBB 0000 592 | GET2 DC 0 RETURN ADDRESS K0205910
7BBC C008 593 | LD SW6 IS IT END OF STMNT K0205920
7BBD 4C20 7BB8 594 | BSC L GXY4,Z BRANCH IF YES K0205930
595 | * K0205940
596 | * GET BOTH CHARACTERS K0205950
7BBF C0FB 597 | LD GET2 LOAD RETURN ADDRESS K0205960
7BC0 D0DA 598 | STO GET1 STORE IN GET1 K0205970
7BC1 C100 599 | LD 1 0 LOAD WORD IN STMNT K0205980
7BC2 70EB 600 | MDX GXY2 GO TO MOVE POINTER K0205990
601 | * K0206000
602 | * CONSTANTS K0206010
7BC3 0000 603 | NCNT DC 0 NORM COUNTER K0206020
7BC4 0000 604 | NCNTS DC 0 SAVE ORIGINAL NORM K0206030
7BC5 0000 605 | SW6 DC 0 SWITCH 6 K0206040
7BC6 A008 606 | ERID DC /A008 ERROR STMNT ID WORD K0206050
7BC7 0009 607 | NINE DC 9 NINE K0206060
7BC8 0000 608 | CHAR DC 0 CHARACTER COUNTER K0206070
7BC9 0004 609 | ERNO DC 4 ERROR NO. 4 K0206080
7BCA 0000 610 | OVLPC DC 0 OVERLAY TEST WORD K0206090
7BCB 0040 611 | S0040 DC /0040 EBC BLANK K0206100
612 | * K0206110
613 | * K0206120
7BCC 0000 614 | GETID DC 0 RETURN ADDRESS K0206130
7BCD 6700 7CE9 615 | LDX L3 TWONT-2 INITIALIZE TABLE POINTER K0206140
616 | * K0206150
617 | * K0206160
618 | * INITIALIZES FOR A STATEMENT K0206170
619 | * TYPE CODE TABLE SEARCH K0206180
620 | * GETS THE STMNT TYPE CODE K0206190
621 | * STORES IT IN THE ID WORD K0206200
7BCF 7302 622 | GTID1 MDX 3 2 MODIFY POINTER K0206210
623 | * K0206220
624 | * K0206230
7BD0 C300 625 | LD 3 0 LOAD WORD FROM TABLE K0206240
7BD1 4C18 7C11 626 | BSC L ER,+- BRANCH IF END OF TABLE K0206250
627 | * K0206260
628 | * K0206270
7BD3 9100 629 | S 1 0 DOES MATCH WORD IN STRING K0206280
7BD4 4C20 7BCF 630 | BSC L GTID1,Z CONTINUE LOOP IF NOT K0206290
631 | * K0206300
632 | * GET CORRECT NAME TABLE K0206310
7BD6 C301 633 | LD 3 1 LOAD ADDR OF NAME TABLE K0206320
7BD7 D002 634 | STO *+2 K0206330
7BD8 6B21 635 | STX 3 GTID4+3 SAVE TABLE POINTER K0206340
7BD9 6700 0000 636 | LDX L3 *-* ADDR OF NAME TABLE K0206350
637 | * K0206360
638 | * INITIALIZE TO SCAN NAME TABLE K0206370
7BDB 691C 639 | STX 1 GTID4+1 SAVE INPUT POINTER K0206380
7BDC 7101 640 | MDX 1 1 MOVE INPUT POINTER K0206390
641 | * K0206400
642 | * PUT CHARACTER COUNT IN CHAR K0206410
7BDD C300 643 | LD 3 0 LOAD CHARACTER COUNT K0206420
7BDE D0E9 644 | STO CHAR SAVE K0206430
645 | * K0206440
646 | * K0206450
7BDF 4C18 7BEE 647 | BSC L GTID3,+- BRANCH IF ZERO K0206460
648 | * K0206470
649 | * K0206480
7BE1 74FF 7BC8 650 | GTID2 MDX L CHAR,-1 DECREMENT COUNT K0206490
651 | * K0206500
652 | * K0206510
7BE3 7002 653 | MDX GTID6 GET NEXT WORD FROM STRING K0206520
654 | * K0206530
655 | * K0206540
7BE4 40B6 656 | BSI GET1 GET CHAR FROM INPUT STRING K0206550
7BE5 7001 657 | MDX GTID5 SEE IF CHARACTERS MATCH K0206560
658 | * K0206570
659 | * K0206580
7BE6 40D4 660 | GTID6 BSI GET2 GET NEXT WORD IN STMNT K0206590
661 | * K0206600
662 | * K0206610
7BE7 9301 663 | GTID5 S 3 1 DOES WORD MATCH K0206620
7BE8 4C20 7BF7 664 | BSC L GTID4,Z BRANCH IF NO K0206630
665 | * K0206640
666 | * K0206650
7BEA 7301 667 | MDX 3 1 MOVE TABLE POINTER K0206660
668 | * K0206670
669 | * K0206680
7BEB 74FF 7BC8 670 | MDX L CHAR,-1 DECREMENT CHARACTER COUNT K0206690
671 | * K0206700
672 | * K0206710
7BED 70F3 673 | MDX GTID2 GO TO DECREMENT COUNT K0206720
674 | * K0206730
675 | * K0206740
7BEE C301 676 | GTID3 LD 3 1 LOAD STMNT ID WORD K0206750
7BEF D400 7AD2 677 | STO L IDWD SAVE K0206760
678 | * K0206770
679 | * K0206780
7BF1 74FF 7BC3 680 | MDX L NCNT,-1 MODIFY NORM COUNT K0206790
7BF3 7001 681 | MDX *+1 SKIP SET SWITCH K0206800
7BF4 68D0 682 | STX 0 SW6 SET END OF STMNT SWITCH K0206810
683 | * K0206820
684 | * K0206830
7BF5 4C80 7BCC 685 | BSC I GETID RETURN K0206840
686 | * K0206850
687 | * K0206860
7BF7 6500 0000 688 | GTID4 LDX L1 *-* RESTORE INDEX 1 K0206870
7BF9 6700 0000 689 | LDX L3 *-* RESTORE INDEX 3 K0206880
7BFB C0C8 690 | LD NCNTS RESET NORM TO K0206890
7BFC D0C6 691 | STO NCNT ORIGINAL VALUE K0206900
692 | * K0206910
693 | * K0206920
7BFD 1010 694 | SLA 16 K0206930
7BFE D400 7B66 695 | STO L SW3 CLEAR RIGHT HALF INDICATOR K0206940
7C00 70CE 696 | MDX GTID1 START COMPARE AGAIN K0206950
697 | *************************************************** K0206960
698 | * THIS SUBROUTINE PUTS THE WORD THAT K0206970
699 | * IS IN THE ACCUMULATOR ON THE K0206980
700 | * OUTPUT STRING. ENTRY IS A BSI K0206990
701 | * INSTRUCTION TO THE LABEL (PUT). K0207000
702 | * THE OUTPUT STRING POINTER (XR2) IS K0207010
703 | * INCREMENTED BY ONE UPON EXITING. K0207020
704 | *************************************************** K0207030
705 | * K0207040
706 | * PUT WORD ON STRING K0207050
707 | * K0207060
7C01 0000 708 | PUT DC 0 RETURN ADDRESS K0207070
7C02 D200 709 | STO 2 0 PUT WORD ON OUTPUT STRING K0207080
710 | * K0207090
711 | * K0207100
7C03 7201 712 | MDX 2 1 MOVE OUTPUT STRING POINTER K0207110
713 | * K0207120
714 | * OVERLAP ERROR K0207130
7C04 6AC5 715 | STX 2 OVLPC STORE OUTPUT POINTER K0207140
7C05 C0C4 716 | LD OVLPC K0207150
7C06 9020 717 | S THREE SUBTRACT THREE K0207160
7C07 9400 7A2A 718 | S L EOFST SUBTRACT END OF SYMBOL TBL K0207170
7C09 4C28 7C0F 719 | BSC L RTN,+Z BRANCH IF NO OVERLAP K0207180
720 | * K0207190
721 | * SET UP OVERLAP ERROR K0207200
7C0B 7401 7A2D 722 | MDX L ERROR,1 SET OVERLAP ERROR K0207210
7C0D 4C00 7A3C 723 | BSC L WAIT EXIT FROM PHASE K0207220
724 | * K0207230
725 | * K0207240
7C0F 4C80 7C01 726 | RTN BSC I PUT RETURN K0207250
727 | * K0207260
728 | * PUT OUT ERROR NO. 4 K0207270
7C11 C0B4 729 | ER LD ERID LOAD ERROR STMNT ID WORD K0207280
7C12 40EE 730 | BSI PUT PUT ON OUTPUT STRING K0207290
7C13 C480 7ACE 731 | LD I IDSV1 LOAD STMNT ID WORD K0207300
7C15 4C04 7C1D 732 | BSC L ER1,E BRANCH IF HAVE STMNT NO. K0207310
7C17 C0B1 733 | ER2 LD ERNO LOAD ERROR NUMBER K0207320
7C18 40E8 734 | BSI PUT PUT ON OUTPUT STRING K0207330
7C19 6304 735 | LDX 3 4 K0207340
7C1A 6BAE 736 | STX 3 ERNO RESTORE ERROR NO. TO 4 K0207350
7C1B 4C00 7A66 737 | BSC L MOVE1 GO TO NEXT STATEMENT K0207360
738 | * K0207370
7C1D C2FF 739 | ER1 LD 2 -1 LOAD OUTPUT STMNT ID WORD K0207380
7C1E 80A8 740 | A NINE ADD TWO TO NORM, SET STMNT K0207390
7C1F D2FF 741 | STO 2 -1 NO. BIT ON, O/P ON STRING K0207400
742 | * K0207410
7C20 6780 7ACE 743 | LDX I3 IDSV1 LOAD STMNT ADDR IN XR3 K0207420
7C22 C301 744 | LD 3 1 LOAD FIRST WORD OF NUMBER K0207430
7C23 40DD 745 | BSI PUT PUT ON OUTPUT STRING K0207440
746 | * K0207450
7C24 C302 747 | LD 3 2 LOAD 2ND WORD OF STMNT NO. K0207460
7C25 40DB 748 | BSI PUT PUT ON OUTPUT STRING K0207470
7C26 70F0 749 | MDX ER2 PUT ERROR NO. ON STRING K0207480
750 | * K0207490
751 | * CONSTANTS K0207500
7C27 0003 752 | THREE DC 3 THREE K0207510
7C28 0000 753 | SVV1 DC 0 SAVE WORD K0207520
7C29 0000 754 | SW5 DC 0 SWITCH 5 K0207530
7C2A 0001 755 | S0001 DC /0001 ONE K0207540
7C2B 003F 756 | S003F DC /003F NORM MASK K0207550
7C2C 007D 757 | QUOTE DC /7D QUOTE K0207560
7C2E 758 | BSS E 0 K0207570
7C2E 0000 759 | NAMS DC 0 TWO WORD AREA FOR 1130 K0207580
7C2F 0000 760 | DC 0 SYMBOL TABLE NAME K0207590
761 | * K0207600
762 | * STORES NAME IN NAME CODE K0207610
763 | * STORES OPTR IN ONE WORD ON K0207620
764 | * THE STRING K0207630
765 | * K0207640
7C30 0000 766 | MAKE DC 0 RETURN ADDRESS K0207650
7C31 D0F6 767 | STO SVV1 STORE WORD K0207660
768 | * K0207670
7C32 9400 7B74 769 | S L SEMI IS IT SEMICOLON 2-5 K0207672
7C34 4C20 7C38 770 | BSC L MAKE0,Z NO - CONTINUE 2-5 K0207674
7C36 D400 7AD8 771 | STO L SW8 YES - RESET SWITCH 8 2-5 K0207676
772 | * K0207680
7C38 C400 7AD8 773 | MAKE0 LD L SW8 HAS QUOTE BEEN ENCOUNTERED K0207690
7C3A 4C20 7C8F 774 | BSC L MAKE7,Z BRANCH IF YES K0207700
7C3C C0EB 775 | LD SVV1 LOAD WORD K0207710
7C3D 1008 776 | SLA 8 GET RIGHT CHAR K0207720
7C3E 4C10 7C58 777 | BSC L MAKE1,- BRANCH IF SPECIAL OPERATOR K0207730
778 | * K0207740
779 | * K0207750
7C40 1010 780 | SLA 16 K0207760
7C41 D0E7 781 | STO SW5 CLEAR ARGUMENT TYPE SW K0207770
782 | * K0207780
783 | * K0207790
7C42 C400 7B67 784 | LD L SW4 IS THERE CHAR IN NAMS K0207800
7C44 4C20 7C4B 785 | BSC L MAKE4,Z BRANCH IF YES K0207810
786 | * K0207820
787 | * INITIALIZE NAMS K0207830
7C46 1090 788 | MAKE3 SLT 16 CLEAR EXTENSION K0207840
7C47 C0E2 789 | LD S0001 LOAD NAMS FULL INDICATOR K0207850
7C48 D8E5 790 | STD NAMS STORE IN NAMS K0207860
791 | * K0207870
792 | * K0207880
7C49 6C00 7B67 793 | STX L0 SW4 SET CHAR IN NAMS SW K0207890
794 | * K0207900
795 | * IS NAMS FULL K0207910
7C4B C0E3 796 | MAKE4 LD NAMS+1 LOAD 2ND WORD OF NAMS K0207920
7C4C 1081 797 | SLT 1 SHIFT TO SEE IF FULL K0207930
7C4D 4C28 7C5D 798 | BSC L MAKE2,+Z BRANCH IF FULL K0207940
799 | * K0207950
800 | * ADD ARGUMENT TO NAMS K0207960
7C4F C8DE 801 | LDD NAMS LOAD NAME K0207970
7C50 18DA 802 | RTE 26 CLEAR SPACE FOR NEXT CHAR K0207980
7C51 D0DC 803 | STO NAMS STORE K0207990
7C52 C0D5 804 | LD SVV1 LOAD WORD K0208000
7C53 E0D7 805 | AND S003F CLEAR EXTRA BITS K0208010
7C54 E8D9 806 | OR NAMS COMBINE WITH NAMS K0208020
7C55 D8D8 807 | STD NAMS SAVE NEW NAMS K0208030
808 | * K0208040
809 | * K0208050
7C56 4C80 7C30 810 | MAKE5 BSC I MAKE RETURN K0208060
811 | * K0208070
812 | * K0208080
7C58 68D0 813 | MAKE1 STX 0 SW5 SET SWITCH TO OPERATOR K0208090
814 | * K0208100
815 | * K0208110
7C59 C400 7B67 816 | LD L SW4 IS THERE CHAR IN NAMS K0208120
7C5B 4C18 7C8F 817 | BSC L MAKE7,+- BRANCH IF NO K0208130
818 | * K0208140
819 | * NORMALIZE NAMS K0208150
7C5D C8D0 820 | MAKE2 LDD NAMS LOAD NAMS K0208160
7C5E 18D0 821 | RTE 16 ROTATE NAME K0208170
7C5F 1081 822 | SLT 1 MOVE CHAR FROM EXTENSION K0208180
823 | * TO ACCUMULATOR K0208190
7C60 4C10 7C5F 824 | BSC L *-3,- BRANCH IF SPECIAL OPERATOR K0208200
7C62 D8CB 825 | STD NAMS STORE NAME K0208210
826 | * K0208220
827 | * K0208230
7C63 409D 828 | BSI PUT PUT FIRST WORD ON STRING K0208240
7C64 C8C9 829 | LDD NAMS LOAD NAME K0208250
7C65 1883 830 | SRT 3 PUT FIRST HALF OF 3RD CHAR K0208260
7C66 1010 831 | SLA 16 INTO EXTENSION-MOVE ENTIRE K0208270
7C67 1086 832 | SLT 6 CHAR TO ACC FOR TESTING K0208280
7C68 4C18 7C6E 833 | BSC L *+4,+- BRANCH IF ONE WORD NAME K0208290
7C6A C8C3 834 | LDD NAMS LOAD NAMS K0208300
7C6B 180F 835 | SRA 15 MOVE BIT TO RIGHT-MOST POS K0208310
7C6C 108F 836 | SLT 15 MOVE EXTENSION TO ACC K0208320
7C6D 4093 837 | BSI PUT PUT ON OUTPUT STRING K0208330
838 | * K0208340
839 | * GET MODE OF NAMS K0208350
7C6E 6700 8C00 840 | LDX L3 /8C00 LOAD FLOATING POINT MODE K0208360
7C70 C400 7A31 841 | LD L CCWD TEST EXTENDED PRECISION K0208370
7C72 100D 842 | SLA 13 BIT OF CONTROL CARD WORD K0208380
7C73 4C10 7C77 843 | BSC L *+2,- BRANCH IF STANDARD PREC K0208390
7C75 6700 8A00 844 | LDX L3 /8A00 LOAD EXTENSION PRECISION K0208400
845 | * MODE K0208410
7C77 6B72 846 | STX 3 NAMED STORE MODE K0208420
847 | * K0208430
848 | * FIND NAME TO TRANSLATE K0208440
7C78 6324 849 | LDX 3 36 INITIALIZE COUNTER K0208450
7C79 C2FE 850 | EXFN1 LD 2 -2 LOAD WORD TO BE TRANSLATED K0208460
7C7A 9700 7CC2 851 | S L3 FUNEX-4 MATCH ENTRY IN TABLE K0208470
7C7C 4C20 7C8A 852 | BSC L EXFN2,Z BRANCH IF NOT K0208480
853 | * K0208490
7C7E C2FF 854 | LD 2 -1 LOAD 2ND WORD K0208500
7C7F 9700 7CC3 855 | S L3 FUNEX-3 MATCH ENTRY IN TABLE K0208510
7C81 4C20 7C8A 856 | BSC L EXFN2,Z BRANCH IF NOT K0208520
857 | * K0208530
7C83 CF00 7CC4 858 | LDD L3 FUNEX-2 LOAD FUNCTION NAME K0208540
7C85 E864 859 | OR NAMED ADD MODE TO NAME K0208550
7C86 D2FE 860 | STO 2 -2 STORE IN OUTPUT STRING K0208560
7C87 18D0 861 | RTE 16 LOAD 2ND WORD K0208570
7C88 D2FF 862 | STO 2 -1 PUT ON OUTPUT STRING K0208580
7C89 7002 863 | MDX *+2 GO TEST SWITCH 5 K0208590
7C8A 73FC 864 | EXFN2 MDX 3 -4 MODIFY COUNTER K0208600
7C8B 70ED 865 | MDX EXFN1 CONTINUE LOOP K0208610
866 | * K0208620
867 | * K0208630
7C8C C09C 868 | LD SW5 IS ARGUMENT OPERATOR K0208640
7C8D 4C18 7C46 869 | BSC L MAKE3,+- BRANCH IF NO K0208650
870 | * K0208660
871 | * K0208670
7C8F C098 872 | MAKE7 LD SVV1 LOAD WORD K0208680
7C90 909B 873 | S QUOTE IS IT QUOTE K0208690
7C91 4C20 7CA2 874 | BSC L MAKE9,Z BRANCH IF NO K0208700
875 | * K0208710
876 | * K0208720
7C93 C400 7AD7 877 | LD L SW7 IS IT DATA STMNT K0208730
7C95 4820 878 | BSC Z K0208740
7C96 902D 879 | S QUMSC K0208750
7C97 4C18 7CBA 880 | BSC L MAKE6,+- BRANCH IF NO K0208760
881 | * K0208770
882 | * K0208780
7C99 1010 883 | SLA 16 K0208790
7C9A D400 7AD9 884 | STO L SW9 SET LEFT HALF SWITCH K0208800
885 | * K0208810
886 | * K0208820
7C9C C000 887 | LD * K0208830
7C9D F400 7AD8 888 | EOR L SW8 REVERSE QUOTE INDICATOR K0208840
7C9F D400 7AD8 889 | STO L SW8 K0208850
7CA1 7018 890 | MDX MAKE6 PUT CHAR ON OUTPUT STRING K0208860
891 | * K0208870
892 | * K0208880
7CA2 C400 7AD8 893 | MAKE9 LD L SW8 WAS QUOTE ENCOUNTERED K0208890
7CA4 4C18 7CBA 894 | BSC L MAKE6,+- BRANCH IF NOT K0208900
895 | * K0208910
896 | * K0208920
7CA6 C400 7AD9 897 | LD L SW9 OUTPUT RIGHT HALF OF WORD K0208930
7CA8 4C20 7CB2 898 | BSC L MAKE8,Z BRANCH IF YES K0208940
899 | * K0208950
900 | * K0208960
7CAA C400 7C28 901 | LD L SVV1 LOAD WORD K0208970
7CAC 1008 902 | SLA 8 SHIFT TO LEFT K0208980
7CAD 4400 7C01 903 | BSI L PUT PUT ON OUTPUT STRING K0208990
904 | * K0209000
905 | * K0209010
7CAF 6C00 7AD9 906 | STX L0 SW9 SET SW TO O/P RIGHT HALF K0209020
7CB1 700E 907 | MDX MAKEA GO NORMALIZE SWITCH 4 K0209030
908 | * K0209040
909 | * K0209050
7CB2 C2FF 910 | MAKE8 LD 2 -1 LOAD WORD FROM OUTPUT K0209060
7CB3 EC00 7C28 911 | OR L SVV1 PUT IN RIGHT CHAR K0209070
7CB5 D2FF 912 | STO 2 -1 PUT BACK ON OUTPUT STRING K0209080
913 | * K0209090
914 | * K0209100
7CB6 1010 915 | SLA 16 K0209110
7CB7 D400 7AD9 916 | STO L SW9 SET SW TO O/P LEFT HALF K0209120
7CB9 7006 917 | MDX MAKEA GO NORMALIZE SWITCH 4 K0209130
918 | * K0209140
919 | * K0209150
7CBA C400 7C28 920 | MAKE6 LD L SVV1 LOAD WORD K0209160
7CBC E400 7C2B 921 | AND L S003F GET NECESSARY BITS K0209170
7CBE 4400 7C01 922 | BSI L PUT PUT ON OUTPUT STRING K0209180
923 | * K0209190
924 | * K0209200
7CC0 1010 925 | MAKEA SLA 16 K0209210
7CC1 D400 7B67 926 | STO L SW4 CLEAR CHAR IN NAMS SW K0209220
7CC3 7092 927 | MDX MAKE5 RETURN K0209230
928 | * K0209240
7CC4 FFA1 929 | QUMSC DC /1E-/7D QUOTE - SEMICOLON K0209250
930 | * K0209260
931 | * FUNCTIONAL EXCHANGE TABLE K0209270
7CC6 932 | BSS E 0 K0209280
7CC6 C44A 933 | FUNEX DC /C44A -SI- K0209290
7CC7 D000 934 | DC /D000 -N - K0209300
7CC8 0111 935 | DC /0111 - S- K0209310
7CC9 9540 936 | DC /9540 -IN- K0209320
7CCA 86B4 937 | DC /86B4 -CO- K0209330
7CCB A000 938 | DC /A000 -S - K0209340
7CCC 001A 939 | DC /001A - C- K0209350
7CCD E880 940 | DC /E880 -OS- K0209360
7CCE 8318 941 | DC /8318 -AT- K0209370
7CCF 9540 942 | DC /9540 -AN- K0209380
7CD0 000C 943 | DC /000C -AT- K0209390
7CD1 B055 944 | DC /B055 -AN- K0209400
7CD2 C4C3 945 | DC /C4C3 -SQ- K0209410
7CD3 98C0 946 | DC /98C0 -RT- K0209420
7CD4 0113 947 | DC /0113 -SQ- K0209430
7CD5 8663 948 | DC /8663 -RT- K0209440
7CD6 829A 949 | DC /829A -AL- K0209450
7CD7 E1C0 950 | DC /E1C0 -OG- K0209460
7CD8 000A 951 | DC /000A -AL- K0209470
7CD9 B587 952 | DC /B587 -OG- K0209480
7CDA 8B3A 953 | DC /8B3A -EX- K0209490
7CDB F000 954 | DC /F000 -D - K0209500
7CDC 002C 955 | DC /002C - E- K0209510
7CDD F5C0 956 | DC /F5C0 -XP- K0209520
7CDE C448 957 | DC /C448 -SI- K0209530
7CDF F540 958 | DC /F540 -GN- K0209540
7CE0 0111 959 | DC /0111 -SI- K0209550
7CE1 91D5 960 | DC /91D5 -GN- K0209560
7CE2 C60A 961 | DC /C60A -TA- K0209570
7CE3 D200 962 | DC /D200 -NH- K0209580
7CE4 0118 963 | DC /0118 -TA- K0209590
7CE5 9548 964 | DC /9548 -NH- K0209600
7CE6 8214 965 | DC /8214 -AB- K0209610
7CE7 A000 966 | DC /A000 -S - K0209620
7CE8 0008 967 | DC /0008 - A- K0209630
7CE9 A880 968 | DC /A880 -BS- K0209640
7CEA 0000 969 | NAMED DC 0 USEFUL CONSTANT K0209650
970 | * K0209660
971 | * TABLE CONTAINING THE FIRST TWO K0209670
972 | * CHARS OF THE FORTRAN STMNT K0209680
973 | * NAMES AND THE ADDRESSES OF THE K0209690
974 | * REMAINING NAME CHARACTERS K0209700
975 | * K0209710
7CEB C4D6 976 | TWONT DC /C4D6 DO K0209720
7CEC 7D55 977 | DC ID6 ADDRESS K0209730
7CED C7D6 978 | DC /C7D6 GO TO K0209740
7CEE 7D73 979 | DC ID11 ADDRESS K0209750
7CEF C9C6 980 | DC /C9C6 IF K0209760
7CF0 7D76 981 | DC ID12 ADDRESS K0209770
7CF1 D9C5 982 | DC /D9C5 READ K0209780
7CF2 7D81 983 | DC ID15 ADDRESS K0209790
7CF3 E6D9 984 | DC /E6D9 WRITE K0209800
7CF4 7D98 985 | DC ID21 ADDRESS K0209810
7CF5 C3C1 986 | DC /C3C1 CALL EXIT K0209820
7CF6 7D2A 987 | DC ID1J ADDRESS K0209830
7CF7 C3C1 988 | DC /C3C1 CALL LINK K0209840
7CF8 7D2F 989 | DC ID1K ADDRESS K0209850
7CF9 C3C1 990 | DC /C3C1 CALL PDUMP K0209860
7CFA 7D34 991 | DC ID1L ADDRESS K0209870
7CFB C3C1 992 | DC /C3C1 CALL K0209880
7CFC 7D3A 993 | DC ID2 ADDRESS K0209890
7CFD C6C9 994 | DC /C6C9 FIND K0209900
7CFE 7D6B 995 | DC ID9S ADDRESS K0209910
7CFF C4C9 996 | DC /C4C9 DIMENSION K0209920
7D00 7D4F 997 | DC ID5 ADDRESS K0209930
7D01 C3D6 998 | DC /C3D6 COMMON K0209940
7D02 7D3D 999 | DC ID3 ADDRESS K0209950
7D03 C5D8 1000 | DC /C5D8 EQUIVALENCE K0209960
7D04 7D5F 1001 | DC ID9 ADDRESS K0209970
7D05 C9D5 1002 | DC /C9D5 INTEGER K0209980
7D06 7D78 1003 | DC ID13 ADDRESS K0209990
7D07 D9C5 1004 | DC /D9C5 REAL K0210000
7D08 7D84 1005 | DC ID16 ADDRESS K0210010
7D09 C5E7 1006 | DC /C5E7 EXTERNAL K0210020
7D0A 7D66 1007 | DC ID9J ADDRESS K0210030
7D0B C3D6 1008 | DC /C3D6 CONTINUE K0210040
7D0C 7D41 1009 | DC ID4 ADDRESS K0210050
7D0D D7C1 1010 | DC /D7C1 PAUSE K0210060
7D0E 7D7D 1011 | DC ID14 ADDRESS K0210070
7D0F D9C5 1012 | DC /D9C5 RETURN K0210080
7D10 7D87 1013 | DC ID17 ADDRESS K0210090
7D11 E2E3 1014 | DC /E2E3 STOP K0210100
7D12 7D8F 1015 | DC ID19 ADDRESS K0210110
7D13 D9C5 1016 | DC /D9C5 REWIND K0210120
7D14 7D8B 1017 | DC ID18 ADDRESS K0210130
7D15 C2C1 1018 | DC /C2C1 BACKSPACE K0210140
7D16 7D24 1019 | DC ID1 ADDRESS K0210150
7D17 C5D5 1020 | DC /C5D5 END FILE K0210160
7D18 7D5A 1021 | DC ID8 ADDRESS K0210170
7D19 C4C5 1022 | DC /C4C5 DEFINE FILE K0210180
7D1A 7D49 1023 | DC ID4J ADDRESS K0210190
7D1B C5D5 1024 | DC /C5D5 END K0210200
7D1C 7D57 1025 | DC ID7 ADDRESS K0210210
7D1D C6E4 1026 | DC /C6E4 FUNCTION K0210220
7D1E 7D6E 1027 | DC ID10 ADDRESS K0210230
7D1F E2E4 1028 | DC /E2E4 SUBROUTINE K0210240
7D20 7D92 1029 | DC ID20 ADDRESS K0210250
7D21 C4C1 1030 | DC /C4C1 DATA K0210260
7D22 7D46 1031 | DC ID4B ADDRESS K0210270
7D23 0000 1032 | DC 0 USEFUL CONSTANT K0210280
1033 | * K0210290
1034 | * BODY NAME TABLE K0210300
1035 | * K0210310
1036 | * BACKSPACE K0210320
7D24 0007 1037 | ID1 DC 7 COUNT K0210330
7D25 C3D2 1038 | DC /C3D2 CK K0210340
7D26 E2D7 1039 | DC /E2D7 SP K0210350
7D27 C1C3 1040 | DC /C1C3 AC K0210360
7D28 00C5 1041 | DC /00C5 E K0210370
7D29 0800 1042 | DC /0800 ID WORD K0210380
1043 | * K0210390
1044 | * CALL EXIT K0210400
7D2A 0006 1045 | ID1J DC 6 COUNT K0210410
7D2B D3D3 1046 | DC /D3D3 LL K0210420
7D2C C5E7 1047 | DC /C5E7 EX K0210430
7D2D C9E3 1048 | DC /C9E3 IT K0210440
7D2E E002 1049 | DC /E002 ID WORD K0210450
1050 | * K0210460
1051 | * CALL LINK K0210470
7D2F 0006 1052 | ID1K DC 6 COUNT K0210480
7D30 D3D3 1053 | DC /D3D3 LL K0210490
7D31 D3C9 1054 | DC /D3C9 LI K0210500
7D32 D5D2 1055 | DC /D5D2 NK K0210510
7D33 E000 1056 | DC /E000 ID WORD K0210520
1057 | * K0210530
1058 | * CALL PDUMP K0210540
7D34 0007 1059 | ID1L DC 7 COUNT K0210550
7D35 D3D3 1060 | DC /D3D3 LL K0210560
7D36 D7C4 1061 | DC /D7C4 PD K0210570
7D37 E4D4 1062 | DC /E4D4 UM K0210580
7D38 00D7 1063 | DC /00D7 P K0210590
7D39 E003 1064 | DC /E003 ID WORD K0210600
1065 | * K0210610
1066 | * CALL K0210620
7D3A 0002 1067 | ID2 DC 2 COUNT K0210630
7D3B D3D3 1068 | DC /D3D3 LL K0210640
7D3C 3000 1069 | DC /3000 ID WORD K0210650
1070 | * K0210660
1071 | * COMMON K0210670
7D3D 0004 1072 | ID3 DC 4 COUNT K0210680
7D3E D4D4 1073 | DC /D4D4 MM K0210690
7D3F D6D5 1074 | DC /D6D5 ON K0210700
7D40 3800 1075 | DC /3800 ID WORD K0210710
1076 | * K0210720
1077 | * CONTINUE K0210730
7D41 0006 1078 | ID4 DC 6 COUNT K0210740
7D42 D5E3 1079 | DC /D5E3 NT K0210750
7D43 C9D5 1080 | DC /C9D5 IN K0210760
7D44 E4C5 1081 | DC /E4C5 UE K0210770
7D45 B000 1082 | DC /B000 ID WORD K0210780
1083 | * K0210790
1084 | * DATA K0210800
7D46 0002 1085 | ID4B DC 2 COUNT K0210810
7D47 E3C1 1086 | DC /E3C1 TA K0210820
7D48 F800 1087 | DC /F800 ID WORD K0210830
1088 | * K0210840
1089 | * DEFINE FILE K0210850
7D49 0008 1090 | ID4J DC 8 COUNT K0210860
7D4A C6C9 1091 | DC /C6C9 FI K0210870
7D4B D5C5 1092 | DC /D5C5 NE K0210880
7D4C C6C9 1093 | DC /C6C9 FI K0210890
7D4D D3C5 1094 | DC /D3C5 LE K0210900
7D4E F000 1095 | DC /F000 ID WORD K0210910
1096 | * K0210920
1097 | * DIMENSION K0210930
7D4F 0007 1098 | ID5 DC 7 COUNT K0210940
7D50 D4C5 1099 | DC /D4C5 ME K0210950
7D51 D5E2 1100 | DC /D5E2 NS K0210960
7D52 C9D6 1101 | DC /C9D6 IO K0210970
7D53 00D5 1102 | DC /00D5 N K0210980
7D54 4000 1103 | DC /4000 ID WORD K0210990
1104 | * K0211000
1105 | * DO K0211010
7D55 0000 1106 | ID6 DC 0 COUNT K0211020
7D56 5800 1107 | DC /5800 ID WORD K0211030
1108 | * K0211040
1109 | * END K0211050
7D57 0002 1110 | ID7 DC 2 COUNT K0211060
7D58 C440 1111 | DC /C440 D K0211070
7D59 1000 1112 | DC /1000 ID WORD K0211080
1113 | * K0211090
1114 | * ENDFILE K0211100
7D5A 0005 1115 | ID8 DC 5 COUNT K0211110
7D5B C4C6 1116 | DC /C4C6 DF K0211120
7D5C C9D3 1117 | DC /C9D3 IL K0211130
7D5D 00C5 1118 | DC /00C5 E K0211140
7D5E 1800 1119 | DC /1800 ID WORD K0211150
1120 | * K0211160
1121 | * EQUIVALENCE K0211170
7D5F 0009 1122 | ID9 DC 9 COUNT K0211180
7D60 E4C9 1123 | DC /E4C9 UI K0211190
7D61 E5C1 1124 | DC /E5C1 VA K0211200
7D62 D3C5 1125 | DC /D3C5 LE K0211210
7D63 D5C3 1126 | DC /D5C3 NC K0211220
7D64 00C5 1127 | DC /00C5 E K0211230
7D65 A800 1128 | DC /A800 ID WORD K0211240
1129 | * K0211250
1130 | * EXTERNAL K0211260
7D66 0006 1131 | ID9J DC 6 COUNT K0211270
7D67 E3C5 1132 | DC /E3C5 TE K0211280
7D68 D9D5 1133 | DC /D9D5 RN K0211290
7D69 C1D3 1134 | DC /C1D3 AL K0211300
7D6A C800 1135 | DC /C800 ID WORD K0211310
1136 | * K0211320
1137 | * FIND K0211330
7D6B 0002 1138 | ID9S DC 2 COUNT K0211340
7D6C D5C4 1139 | DC /D5C4 ND K0211350
7D6D E800 1140 | DC /E800 ID WORD K0211360
1141 | * K0211370
1142 | * FUNCTION K0211380
7D6E 0006 1143 | ID10 DC 6 COUNT K0211390
7D6F D5C3 1144 | DC /D5C3 NC K0211400
7D70 E3C9 1145 | DC /E3C9 TI K0211410
7D71 D6D5 1146 | DC /D6D5 ON K0211420
7D72 6800 1147 | DC /6800 ID WORD K0211430
1148 | * K0211440
1149 | * GOTO K0211450
7D73 0002 1150 | ID11 DC 2 COUNT K0211460
7D74 E3D6 1151 | DC /E3D6 TO K0211470
7D75 7000 1152 | DC /7000 ID WORD K0211480
1153 | * K0211490
1154 | * IF K0211500
7D76 0000 1155 | ID12 DC 0 COUNT K0211510
7D77 7800 1156 | DC /7800 ID WORD K0211520
1157 | * K0211530
1158 | * INTEGER K0211540
7D78 0005 1159 | ID13 DC 5 COUNT K0211550
7D79 E3C5 1160 | DC /E3C5 TE K0211560
7D7A C7C5 1161 | DC /C7C5 GE K0211570
7D7B 00D9 1162 | DC /00D9 R K0211580
7D7C 5000 1163 | DC /5000 ID WORD K0211590
1164 | * K0211600
1165 | * PAUSE K0211610
7D7D 0003 1166 | ID14 DC 3 COUNT K0211620
7D7E E4E2 1167 | DC /E4E2 US K0211630
7D7F 00C5 1168 | DC /00C5 E K0211640
7D80 9800 1169 | DC /9800 ID WORD K0211650
1170 | * K0211660
1171 | * READ COUNT K0211670
7D81 0002 1172 | ID15 DC 2 K0211680
7D82 C1C4 1173 | DC /C1C4 AD K0211690
7D83 9000 1174 | DC /9000 ID WORD K0211700
1175 | * K0211710
1176 | * REAL K0211720
7D84 0002 1177 | ID16 DC 2 COUNT K0211730
7D85 C1D3 1178 | DC /C1D3 AL K0211740
7D86 4800 1179 | DC /4800 ID WORD K0211750
1180 | * K0211760
1181 | * RETURN K0211770
7D87 0004 1182 | ID17 DC 4 COUNT K0211780
7D88 E3E4 1183 | DC /E3E4 TU K0211790
7D89 D9D5 1184 | DC /D9D5 RN K0211800
7D8A 8000 1185 | DC /8000 ID WORD K0211810
1186 | * K0211820
1187 | * REWIND K0211830
7D8B 0004 1188 | ID18 DC 4 COUNT K0211840
7D8C E6C9 1189 | DC /E6C9 WI K0211850
7D8D D5C4 1190 | DC /D5C4 ND K0211860
7D8E 2800 1191 | DC /2800 ID WORD K0211870
1192 | * K0211880
1193 | * STOP K0211890
7D8F 0002 1194 | ID19 DC 2 COUNT K0211900
7D90 D6D7 1195 | DC /D6D7 OP K0211910
7D91 B800 1196 | DC /B800 ID WORD K0211920
1197 | * K0211930
1198 | * SUBROUTINE K0211940
7D92 0008 1199 | ID20 DC 8 COUNT K0211950
7D93 C2D9 1200 | DC /C2D9 BR K0211960
7D94 D6E4 1201 | DC /D6E4 OU K0211970
7D95 E3C9 1202 | DC /E3C9 TI K0211980
7D96 D5C5 1203 | DC /D5C5 NE K0211990
7D97 2000 1204 | DC /2000 ID WORD K0212000
1205 | * K0212010
1206 | * WRITE K0212020
7D98 0003 1207 | ID21 DC 3 COUNT K0212030
7D99 C9E3 1208 | DC /C9E3 IT K0212040
7D9A 00C5 1209 | DC /00C5 E K0212050
7D9B 8800 1210 | DC /8800 ID WORD K0212060
1211 | * K0212070
1212 | * RE-INITIALIZE K0212080
7D9C 6580 7A24 1213 | CALLC LDX I1 SOFS INITIALIZE INPUT POINTER K0212090
1214 | * K0212100
1215 | * CHECKS FOR THE PRESENCE OF AN K0212110
1216 | * END STATEMENT K0212120
7D9E 691C 1217 | ENDD STX 1 IDSVV STORE INPUT POINTER K0212130
7D9F C100 1218 | LD 1 0 LOAD STMNT ID WORD K0212140
7DA0 9400 7ACC 1219 | S L S1000 IS IT END STMNT K0212150
7DA2 4C18 7A3C 1220 | BSC L WAIT,+- BRANCH IF YES K0212160
1221 | * K0212170
1222 | * CALL STATEMENT K0212180
7DA4 C100 1223 | LD 1 0 LOAD STMNT ID WORD K0212190
7DA5 E016 1224 | AND IDTPE GET ID TYPE K0212200
7DA6 1802 1225 | SRA 2 SHIFT RIGHT TWO K0212210
7DA7 9015 1226 | S CALL1 IS IT CALL STMNT K0212220
7DA8 4C20 7DF6 1227 | BSC L MOVIE,Z BRANCH IF NOT K0212230
1228 | * K0212240
1229 | * K0212250
7DAA C100 1230 | LD 1 0 LOAD STMNT ID WORD K0212260
7DAB 4804 1231 | BSC E HAS STMNT NO. K0212270
7DAC 7102 1232 | MDX 1 2 YES - MOVE PT OVER NO. K0212280
7DAD 7101 1233 | MDX 1 1 MOVE INPUT POINTER K0212290
1234 | * K0212300
1235 | * CHECKS FOR THE NAME SSWTCH K0212310
7DAE C100 1236 | IDAHO LD 1 0 LOAD FIRST WORD IN BODY K0212320
7DAF 900E 1237 | S SENC IS IT SS K0212330
7DB0 4C20 7DCA 1238 | BSC L XYZ,Z BRANCH IF NOT K0212340
7DB2 C101 1239 | LD 1 1 LOAD 2ND WORD OF BODY K0212350
7DB3 900B 1240 | S SENC1 IS IT WT K0212360
7DB4 4820 1241 | BSC Z SKIP IF YES K0212370
7DB5 7014 1242 | MDX XYZ GO TO NEXT COMPARE K0212380
7DB6 C102 1243 | LD 1 2 LOAD 3RD WORD OF BODY K0212390
7DB7 9008 1244 | S SENC2 IS IT CH K0212400
7DB8 4820 1245 | BSC Z SKIP IF YES K0212410
7DB9 7010 1246 | MDX XYZ GO TO NEXT COMPARE K0212420
7DBA 7029 1247 | MDX XXYZ GO TO CONVERT TO 5 CHAR K0212430
1248 | * K0212440
1249 | * CONSTANTS K0212450
7DBB 0000 1250 | IDSVV DC 0 INPUT POINTER K0212460
7DBC F800 1251 | IDTPE DC /F800 ID MASK K0212470
7DBD 0C00 1252 | CALL1 DC /0C00 CALL STMNT ID TYPE K0212480
7DBE C514 1253 | SENC DC /C514 SS K0212490
7DBF E8C3 1254 | SENC1 DC /E8C3 WT K0212500
7DC0 9000 1255 | SENC2 DC /9000 CH K0212510
7DC1 0000 1256 | NAME DC 0 INPUT POINTER K0212520
7DC2 AD28 1257 | OVER DC /AD28 OV K0212530
7DC3 D646 1258 | OVER1 DC /D646 ER K0212540
7DC4 A600 1259 | OVER2 DC /A600 FL K0212550
7DC5 C499 1260 | SENL DC /C499 SL K0212560
7DC6 98C5 1261 | SENL1 DC /98C5 IT K0212570
7DC7 C600 1262 | SENL2 DC /C600 ET K0212580
7DC8 98E3 1263 | SENL3 DC /98E3 T K0212590
7DC9 0004 1264 | S0004 DC 4 NORM OF ONE K0212600
1265 | * K0212610
1266 | * CHECKS FOR THE NAME OVERFL K0212620
7DCA C100 1267 | XYZ LD 1 0 LOAD 1ST WORD IN BODY K0212630
7DCB 90F6 1268 | S OVER IS IT OV K0212640
7DCC 4C20 7DD6 1269 | BSC L XYZ1,Z BRANCH IF NOT K0212650
7DCE C101 1270 | LD 1 1 LOAD 2ND WORD IN BODY K0212660
7DCF 90F3 1271 | S OVER1 IS IT ER K0212670
7DD0 4C20 7DD6 1272 | BSC L XYZ1,Z BRANCH IF NOT K0212680
7DD2 C102 1273 | LD 1 2 LOAD 3RD WORD IN BODY K0212690
7DD3 90F0 1274 | S OVER2 IS IT FL K0212700
7DD4 4C18 7DE4 1275 | BSC L XXYZ,+- BRANCH IF YES K0212710
1276 | * K0212720
1277 | * CHECKS FOR THE NAME SLITET K0212730
7DD6 C100 1278 | XYZ1 LD 1 0 LOAD 1ST WORD IN BODY K0212740
7DD7 90ED 1279 | S SENL IS IT SL K0212750
7DD8 4C20 7DF6 1280 | BSC L MOVIE,Z BRANCH IF NOT K0212760
7DDA C101 1281 | LD 1 1 LOAD 2ND WORD IN BODY K0212770
7DDB 90EA 1282 | S SENL1 IS IT IT K0212780
7DDC 4820 1283 | BSC Z SKIP IF YES K0212790
7DDD 7018 1284 | MDX MOVIE GO TO NEXT STMNT K0212800
7DDE C102 1285 | LD 1 2 LOAD 3RD WORD IN BODY K0212810
7DDF 90E7 1286 | S SENL2 IS IT ET K0212820
7DE0 4820 1287 | BSC Z SKIP IF YES K0212830
7DE1 7014 1288 | MDX MOVIE GO TO NEXT STMNT K0212840
7DE2 C0E5 1289 | LD SENL3 LOAD NEW WORD FOR SLITET K0212850
7DE3 D101 1290 | STO 1 1 STORE END K0212860
1291 | * K0212870
1292 | * CLOSES THE STRING BY ONE WORD K0212880
1293 | * AND ADJUSTS THE STMNT NORM K0212890
7DE4 7102 1294 | XXYZ MDX 1 2 MOVE INPUT POINTER K0212900
7DE5 69DB 1295 | STX 1 NAME SAVE INPUT POINTER K0212910
7DE6 C400 7A25 1296 | LD L EOFS LOAD END OF STRING ADDRESS K0212920
7DE8 90D8 1297 | S NAME SUBTRACT INPUT POINTER TO K0212930
7DE9 D001 1298 | STO *+1 GET RANGE OF LOOP K0212940
7DEA 6700 0000 1299 | LDX L3 0 LOAD XR3 WITH RANGE K0212950
7DEC C101 1300 | LD 1 1 MOVE WORD DOWN K0212960
7DED D100 1301 | STO 1 0 ONE POSITION K0212970
7DEE 7101 1302 | MDX 1 1 MOVE POINTER K0212980
7DEF 73FF 1303 | MDX 3 -1 DECREMENT RANGE K0212990
7DF0 70FB 1304 | MDX *-5 CONTINUE LOOP K0213000
1305 | * K0213010
1306 | * ADJUST NORM K0213020
7DF1 6580 7DBB 1307 | LDX I1 IDSVV RESTORE INPUT POINTER K0213030
7DF3 C100 1308 | LD 1 0 LOAD STMNT ID WORD K0213040
7DF4 90D4 1309 | S S0004 DECREMENT NORM BY ONE K0213050
7DF5 D100 1310 | STO 1 0 PUT NORM BACK ON STRING K0213060
1311 | * K0213070
1312 | * UPDATES THE STRING I/P PT (XR1) K0213080
1313 | * TO MOVE TO THE NEXT STMNT K0213090
7DF6 6580 7DBB 1314 | MOVIE LDX I1 IDSVV RESTORE INPUT POINTER K0213100
7DF8 C100 1315 | LD 1 0 LOAD STMNT ID WORD K0213110
7DF9 1005 1316 | SLA 5 SHIFT TO GET NORM K0213120
7DFA 1807 1317 | SRA 7 K0213130
7DFB 80BF 1318 | A IDSVV ADD INPUT POINTER TO GET K0213140
7DFC D001 1319 | STO NXID+1 ADDRESS OF NEXT STMNT K0213150
7DFD 6500 0000 1320 | NXID LDX L1 0 RESET INPUT POINTER K0213160
7DFF 709E 1321 | MDX ENDD GO CHECK FOR STMNT TYPE K0213170
1322 | * K0213180
1323 | * PROCESS IOCS WORD AND SET DEVICE K0213190
1324 | * INITIALIZATION ROUTINES K0213200
1325 | * K0213210
7E00 0007 1326 | H7 DC /7 MASK FOR BITS 14,15,16 K0213220
7E01 7F7F 1327 | RDB DC /7F7F MASK FOR DISK IOCS WORD K0213230
1328 | * K0213240
1329 | * SETUP PRECISION AND TEST FOR ONE WD K0213250
1330 | * INTEGERS K0213260
7E02 1331 | CQCT EQU * ENTRY POINT K0213270
7E02 C400 7A32 1332 | LD L IOCS SEE IF IOCS ROUTINES K0213280
1333 | * K0213290
7E04 D034 1334 | STO IOCST SAVE IOCS WD TEMP STO K0213300
1335 | * K0213310
7E05 C400 7A31 1336 | LD L CCWD PUT ONE WORD INTEGER K0213320
7E07 1887 1337 | SRT 7 FLAG IN EXTENSION K0213330
7E08 C400 7A31 1338 | LD L CCWD EXTENDED PRECISION FLAG K0213340
7E0A 100D 1339 | SLA 13 CLEAR ACC - PUT EXTENDED K0213350
7E0B 180F 1340 | SRA 15 PRECISION FLAG IN BIT 15 K0213360
7E0C 1081 1341 | SLT 1 K0213370
7E0D F02C 1342 | EOR PX5 REVERSE INTEGER FLAG K0213380
7E0E EC00 7E94 1343 | OR L FIO+1 PUT IN K0213390
7E10 D400 7E94 1344 | STO L FIO+1 FIO CALL K0213400
7E12 E0ED 1345 | AND H7 GET PRECISION BITS K0213410
7E13 EC00 7EAA 1346 | OR L FIOCL PUT OUT AS PRECISION DC K0213420
7E15 D01F 1347 | STO SUFIO+1 STORE IN DISK K0213430
7E16 D021 1348 | STO SDFIO+1 ROUTINE CALLS K0213440
1349 | * K0213450
1350 | * CHECK FOR UNFORMATTED DISK I/O K0213460
7E17 C021 1351 | LD IOCST LOAD IOCS WD K0213470
7E18 1001 1352 | SLA 1 SHIFT BIT TO SIGN K0213480
7E19 4C10 7E22 1353 | BSC L SDF,- BR IF NOT REQUESTED K0213490
7E1B 63FD 1354 | LDX 3 -3 INITIALIZE COUNTER K0213500
7E1C C700 7E36 1355 | LD L3 SUFIO+2 LOAD WORD OF CALL K0213510
7E1E 4400 7C01 1356 | BSI L PUT OUTPUT WORD K0213520
7E20 7301 1357 | MDX 3 1 INCREMENT COUNTER K0213530
7E21 70FA 1358 | MDX *-6 CONTINUE LOOP K0213540
1359 | * K0213550
1360 | * K0213560
1361 | * CHECK FOR DISK K0213570
1362 | * K0213580
7E22 C016 1363 | SDF LD IOCST LOAD IOCS WORD K0213590
7E23 1008 1364 | SLA 8 K0213600
7E24 4C10 7E3C 1365 | BSC L PFIOC,- BRANCH IF NO DISK REQUEST K0213610
1366 | * K0213620
1367 | * PUT SDFIO CALL ON STRING K0213630
1368 | * K0213640
7E26 63FD 1369 | LDX 3 -3 INITIALIZE COUNTER K0213650
7E27 C700 7E39 1370 | LD L3 SDFIO+2 LOAD WORD OF CALL K0213660
7E29 4400 7C01 1371 | BSI L PUT PUT CALL TO SDFIO K0213670
7E2B 7301 1372 | MDX 3 1 INCREMENT COUNTER K0213680
7E2C 70FA 1373 | MDX *-6 CONTINUE LOOP K0213690
7E2D C400 7A32 1374 | LD L IOCS TST IOCS WD FOR OTHER DEVC K0213700
7E2F E0D1 1375 | AND RDB OTHER THAN DISK K0213710
7E30 4C18 7A68 1376 | BSC L ZAO,+- BRANCH IF NO OTHER CALLS K0213720
7E32 7009 1377 | MDX PFIOC CHECK OTHER DEVICES K0213730
7E33 D80C 1378 | DC /D80C SUFIO CALL ID WORD K0213740
7E34 1D80 1379 | SUFIO DC /1D80 LIBF SUFIO CODE K0213750
7E35 0000 1380 | DC *-* PRECISION K0213760
7E36 D80C 1381 | DC /D80C SDFIO CALL ID WORD K0213770
7E37 2100 1382 | SDFIO DC /2100 LIBF SDFIO K0213780
7E38 0000 1383 | DC *-* PRECISION K0213790
7E39 0000 1384 | IOCST DC *-* TEMP STG FOR IOCS WD K0213800
7E3A 0001 1385 | PX5 DC 1 USEFUL CONSTANT K0213810
1386 | * K0213820
1387 | * CHECK OTHER DEVICES SPECIFIED BY IOCS K0213830
1388 | * WORD AND SET UP STRING K0213840
1389 | * K0213850
7E3B BF7F 1390 | UDTST DC /BF7F MASK FOR NON-DISK IOCS K0213860
1391 | * K0213870
7E3C C0FC 1392 | PFIOC LD IOCST TEST IF ANY NON-DISK I/O K0213880
7E3D E0FD 1393 | AND UDTST * K0213890
7E3E 4C18 7A68 1394 | BSC L ZAO,+- BRANCH IF NOT K0213900
1395 | * K0213910
7E40 C0F8 1396 | LD IOCST KEYBOARD TEST K0213920
7E41 100A 1397 | SLA 10 K0213930
7E42 4C28 7E46 1398 | BSC L *+2,+Z BRANCH IF KEYBOARD REQUEST K0213940
7E44 C865 1399 | LDD FIOCL NO KEYBOARD K0213950
7E45 D85A 1400 | STD FIO+13 SET FLAG K0213960
7E46 C0F2 1401 | LD IOCST PAPER TAPE TEST K0213970
7E47 100E 1402 | SLA 14 K0213980
7E48 4C28 7E4C 1403 | BSC L *+2,+Z BRANCH IF PAPER TAPE K0213990
7E4A C85F 1404 | LDD FIOCL NO PAPET TAPE K0214000
7E4B D850 1405 | STD FIO+9 SET FLAG K0214010
7E4C C0EC 1406 | LD IOCST PLOTTER K0214020
7E4D 1003 1407 | SLA 3 K0214030
7E4E 4C28 7E52 1408 | BSC L *+2,+Z BRANCH IF PLOTTER K0214040
7E50 C859 1409 | LDD FIOCL SET FLAG K0214050
7E51 D850 1410 | STD FIO+15 NO PLOTTER K0214060
7E52 C0E6 1411 | LD IOCST 1132 PRINTER TEST K0214070
7E53 1007 1412 | SLA 7 K0214080
7E54 4C28 7E58 1413 | BSC L *+2,+Z BRANCH IF PRINTER K0214090
7E56 C853 1414 | LDD FIOCL SET FLAG K0214100
7E57 D842 1415 | STD FIO+7 NO 1132 PRINTER K0214110
7E58 C0E0 1416 | LD IOCST 1403 PRINTER TEST K0214120
7E59 100C 1417 | SLA 12 K0214130
7E5A 4C28 7E5E 1418 | BSC L *+2,+Z BRANCH IF REQUIRED K0214140
7E5C C84D 1419 | LDD FIOCL SET FLAG K0214150
7E5D D840 1420 | STD FIO+11 NO 1403 PRINTER K0214160
7E5E C0DA 1421 | LD IOCST TYPEWRITER TEST K0214170
7E5F 100D 1422 | SLA 13 K0214180
7E60 4C10 7E69 1423 | BSC L NTP,- BRANCH IF TYPEWRITER K0214190
7E62 C03D 1424 | LD FIO+13 TEST IF KEYBOARD REQUESTED K0214200
7E63 F046 1425 | EOR FIOCL * K0214210
7E64 4C18 7E6B 1426 | BSC L T2501,+- BRANCH IF NOT K0214220
7E66 C039 1427 | LD FIO+13 INSERT .LIBF TYPEZ. K0214230
7E67 D02E 1428 | STO FIO+3 *INSTEAD OF .LIBF WRTYZ. K0214240
7E68 7002 1429 | MDX T2501 CONTINUE K0214250
7E69 C840 1430 | NTP LDD FIOCL SET FLAG K0214260
7E6A D82B 1431 | STD FIO+3 NO TYPEWRITER K0214270
7E6B C0CD 1432 | T2501 LD IOCST 2501 CARD READER K0214280
7E6C 100B 1433 | SLA 11 K0214290
7E6D 4C28 7E71 1434 | BSC L *+2,+Z BRANCH IF 2501 K0214300
7E6F C83A 1435 | LDD FIOCL SET FLAG K0214310
7E70 D833 1436 | STD FIO+17 NO 2501 CARD READER K0214320
7E71 C0C7 1437 | LD IOCST 1442 CARD READ/PUNCH K0214330
7E72 100F 1438 | SLA 15 K0214340
7E73 4C28 7E77 1439 | BSC L *+2,+Z BRANCH IF 1442 RD/PUNCH K0214350
7E75 C834 1440 | LDD FIOCL SET FLAG K0214360
7E76 D821 1441 | STD FIO+5 NO 1442 CARD RD/PUNCH K0214370
7E77 C0C1 1442 | LD IOCST 1442 PUNCH ONLY K0214380
7E78 1009 1443 | SLA 9 K0214390
7E79 4C28 7E7D 1444 | BSC L *+2,+Z BRANCH IF 1442 PUNCH ONLY K0214400
7E7B C82E 1445 | LDD FIOCL SET FLAG K0214410
7E7C D829 1446 | STD FIO+19 NO 1442 PUNCH K0214420
1447 | * K0214430
1448 | * SET TRACE DEVICE INDICATOR IN FIO K0214440
1449 | * CALLING SEQUENCE K0214450
1450 | * K0214460
7E7D C0BB 1451 | LD IOCST PICK UP IOCS WORD K0214470
7E7E 1884 1452 | SRT 4 PUT 1403 INDICATOR IN EXT K0214480
7E7F 100B 1453 | SLA 11 PUT 1132 INDICATOR IN SIGN K0214490
7E80 18D0 1454 | RTE 16 EXCHANGE ACC AND EXT K0214500
7E81 4C28 7E88 1455 | BSC L PFIO1,+Z BRANCH IF 1403 PRINTER K0214510
7E83 18D0 1456 | RTE 16 TEST 1132 PRINTER BIT K0214520
7E84 4C10 7E8C 1457 | BSC L PFIO2,- BRANCH IF NO 1132 PRINTER K0214530
7E86 C008 1458 | LD H0040 GET 1132 PRINTER FLAG K0214540
7E87 7001 1459 | MDX *+1 K0214550
7E88 C007 1460 | PFIO1 LD H0060 GET 1403 PRINTER FLAG K0214560
7E89 E80A 1461 | OR FIO+1 INSERT TRACE DEVICE AS K0214570
7E8A D009 1462 | STO FIO+1 *PART OF SFIO CALLING SEQ K0214580
7E8B 7020 1463 | MDX PTFIO BRANCH TO PUT FIO ON STRNG K0214590
1464 | * K0214600
7E8C C001 1465 | PFIO2 LD H0020 GET CONSOLE PRINTER FLAG K0214610
7E8D 70FB 1466 | MDX PFIO1+1 GO INSERT K0214620
1467 | * K0214630
7E8E 0020 1468 | H0020 DC /0020 MASK FOR C.P. TRACE DEVICE K0214640
7E8F 0040 1469 | H0040 DC /0040 MASK FOR 1132 TRACE DEVICE K0214650
7E90 0060 1470 | H0060 DC /0060 MASK FOR 1403 TRACE DEVICE K0214660
1471 | * K0214670
1472 | * FIO TABLE K0214680
7E92 1473 | BSS E 0 K0214690
7E92 D860 1474 | DC /D860 FIO ID WORD K0214700
7E93 1580 1475 | FIO DC /1580 LIBF FIO K0214710
7E94 5F04 1476 | DC /5F04 TRACE - PRECISION K0214720
1477 | * K0214730
1478 | * BITS 8-10 INDICATE ERROR DEVICE K0214740
1479 | * 1 = TYPEWRITER K0214750
1480 | * 3 = 1132 PRINTER K0214760
1481 | * 5 = 1403 PRINTER K0214770
1482 | * K0214780
7E95 5F16 1483 | DC /5F16 2*NO. OF UNITS +2 22 K0214790
1484 | * K0214800
7E96 0D80 1485 | DC /0D80 LIBF WRTYZ TYPEWRITER K0214810
7E97 5F00 1486 | DC /5F00 K0214820
7E98 1000 1487 | DC /1000 LIBF CARDZ 1442 RD/PNCH K0214830
7E99 5F00 1488 | DC /5F00 K0214840
7E9A 1080 1489 | DC /1080 LIBF PRNTZ 1132 PRINTER K0214850
7E9B 5F00 1490 | DC /5F00 K0214860
7E9C 1100 1491 | DC /1100 LIBF PHPTZ PAPER TAPE K0214870
7E9D 5F00 1492 | DC /5F00 K0214880
7E9E 1980 1493 | DC /1980 LIBF PRNZ 1403 PRINTER K0214890
7E9F 5F00 1494 | DC /5F00 K0214900
7EA0 0E00 1495 | DC /0E00 LIBF TYPEZ KEYBOARD K0214910
7EA1 5F00 1496 | DC /5F00 K0214920
7EA2 1180 1497 | DC /1180 LIBF WCHRI PLOTTER K0214930
7EA3 5F00 1498 | DC /5F00 K0214940
7EA4 1380 1499 | DC /1380 LIBF READZ 2510 CD READER K0214950
7EA5 5F00 1500 | DC /5F00 K0214960
7EA6 2700 1501 | DC /2700 LIBF PNCHZ 1442 PNCH ONLY K0214970
7EA7 5F00 1502 | DC /5F00 K0214980
7EA8 0480 1503 | DC /0480 LIBF FLD K0214990
7EA9 0580 1504 | DC /0580 LIBF FSTO K0215000
7EAA 5F00 1505 | FIOCL DC /5F00 BLANK K0215010
7EAB 5F00 1506 | DC /5F00 BLANK K0215020
7EAC 63E8 1507 | PTFIO LDX 3 -24 PUT FIO ON STRING K0215030
7EAD C700 7EAA 1508 | LD L3 FIO+23 LOOP THROUGH ENTRIES K0215040
7EAF 4400 7C01 1509 | BSI L PUT BRANCH TO SUBROUTINES K0215050
7EB1 7301 1510 | MDX 3 1 K0215060
7EB2 70FA 1511 | MDX PTFIO+1 END OF LOOP K0215070
7EB3 4C00 7A68 1512 | BSC L ZAO RETURN TO PROCESSING K0215080
1513 | * 2-11 K0215081
1514 | * CHECK IF ORIGIN SPECIFIED, AND MAKE EVEN 2-11 K0215082
1515 | * 2-11 K0215083
7EB5 C400 7A31 1516 | ORGCK LD L CCWD FETCH CONTROL CARD IND 2-11 K0215084
7EB7 100D 1517 | SLA 13 EXTEND. PRECISION SPEC 2-11 K0215085
7EB8 4C28 7A46 1518 | BSC L BACK,+Z BR IF YES 2-11 K0215086
7EBA C400 7A23 1519 | LD L ORG LOAD ORIGIN ADDRESS 2-11 K0215087
7EBC 4C18 7A46 1520 | BSC L BACK,+- BR IF ZERO 2-11 K0215088
7EBE 4804 1521 | BSC E SKIP IF ORG ADDR EVEN 2-11 K0215089
7EBF 8004 1522 | A ORG01 ADD 1 TO MAKE EVEN 2-11 K0215090
7EC0 D400 7A23 1523 | STO L ORG SAVE IN COMMUNICATIONS 2-11 K0215091
7EC2 4C00 7A46 1524 | BSC L BACK *AREA, AND CONTINUE 2-11 K0215092
1525 | * K0215093
7EC4 0001 1526 | ORG01 DC 1 CONSTANT OF 1 2-11 K0215094
1527 | * K0215095
7EC5 1528 | BSS /7F35-* PATCH AREA K0215100
7F35 0000 1529 | DC 0 K0215110
7F36 1530 | END BPHAR-2 K0215120
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PHSE 0078 87 140
ATHC 7ACD 313 239
BACK 7A46 159 1518 1520 1524
BPHAR 7A36 133 1530
CALL1 7DBD 1252 1226
CALLC 7D9C 1213 236
CCWD 7A31 106 841 1336 1338 1516
CHAR 7BC8 608 644 650 670
CMAC 7AD0 316 282
COLON 7B70 492 445 465
COMON 7A2B 100
CQCT 7E02 1331 177
CSIZE 7A2C 101
DFCNT 7A33 126
DOC 7AD5 321 412
EIGHT 7AD6 322 428
ENDC 7ACB 311 222
ENDD 7D9E 1217 1321
EOFS 7A25 94 159 165 233 1296
EOFST 7A2A 99 166 718
EQUC 7ACF 315 269
ER 7C11 729 357 626
ER1 7C1D 739 732
ER2 7C17 733 749
ERID 7BC6 606 226 729
ERNO 7BC9 609 733 736
ERNO2 7AC8 308 228
ERROR 7A2D 102 145 722
EXFN1 7C79 850 865
EXFN2 7C8A 864 852 856
FCNT 7B41 437 398 427 432
FIO 7E93 1475 1343 1344 1400 1405 1410 1415 1420 1424 1427 1428 1431 1436
1441 1446 1461 1462 1508
FIOCL 7EAA 1505 1346 1399 1404 1409 1414 1419 1425 1430 1435 1440 1445
FNAME 7A2E 103
FUNEX 7CC6 933 851 855 858
FUNT 7B68 484 439
GET1 7B9B 541 260 278 419 587 598 656
GET2 7BBB 592 597 660
GETID 7BCC 614 342 685
GTID1 7BCF 622 630 696
GTID2 7BE1 650 673
GTID3 7BEE 676 647
GTID4 7BF7 688 635 639 664
GTID5 7BE7 663 657
GTID6 7BE6 660 653
GXY1 7BA8 558 543
GXY2 7BAE 566 600
GXY3 7BB9 587 555 572 579 581
GXY4 7BB8 584 547 594
GXY5 7BB3 578
H0020 7E8E 1468 1465
H0040 7E8F 1469 1458
H0060 7E90 1470 1460
H7 7E00 1326 1345
ID1 7D24 1037 1019
ID10 7D6E 1143 1027
ID11 7D73 1150 979
ID12 7D76 1155 981
ID13 7D78 1159 1003
ID14 7D7D 1166 1011
ID15 7D81 1172 983
ID16 7D84 1177 1005
ID17 7D87 1182 355 1013
ID18 7D8B 1188 1017
ID19 7D8F 1194 1015
ID1J 7D2A 1045 987
ID1K 7D2F 1052 989
ID1L 7D34 1059 362 991
ID2 7D3A 1067 364 993
ID20 7D92 1199 1029
ID21 7D98 1207 985
ID3 7D3D 1072 999
ID4 7D41 1078 509 1009
ID4B 7D46 1085 346 1031
ID4J 7D49 1090 1023
ID5 7D4F 1098 997
ID6 7D55 1106 977
ID7 7D57 1110 352 1025
ID8 7D5A 1115 1021
ID9 7D5F 1122 1001
ID9J 7D66 1131 1007
ID9S 7D6B 1138 995
IDAHO 7DAE 1236
IDSA1 7ABA 295 248 333
IDSV 7A67 194 203 206 207
IDSV1 7ACE 314 243 379 731 743
IDSV2 7B87 524 378 519 528
IDSVV 7DBB 1250 1217 1307 1314 1318
IDTPE 7DBC 1251 1224
IDWD 7AD2 318 304 345 351 354 361 365 381 401 508 677
INTC 7AD4 320 404
IOCS 7A32 114 1332 1374
IOCST 7E39 1384 1334 1351 1363 1392 1396 1401 1406 1411 1416 1421 1432 1437
1442 1451
LPC 7AD1 317 286
MAKE 7C30 766 446 466 478 505 810
MAKE0 7C38 773 770
MAKE1 7C58 813 777
MAKE2 7C5D 820 798
MAKE3 7C46 788 869
MAKE4 7C4B 796 785
MAKE5 7C56 810 927
MAKE6 7CBA 920 880 890 894
MAKE7 7C8F 872 774 817
MAKE8 7CB2 910 898
MAKE9 7CA2 893 874
MAKEA 7CC0 925 907 917
MEMRY 8000 84 85 86
MOVE 7A5B 181 240
MOVE1 7A66 193 530 537 737
MOVIE 7DF6 1314 1227 1280 1284 1288
MXS 7A5F 186 190
NAME 7DC1 1256 1295 1297
NAMED 7CEA 969 846 859
NAMS 7C2E 759 790 796 801 803 806 807 820 825 829 834
NCNT 7BC3 603 215 300 339 373 569 680 691
NCNTS 7BC4 604 217 299 338 374 690
NINE 7BC7 607 740
NTP 7E69 1430 1423
NXID 7DFD 1320 1319
NXTPH 7A42 154 136 150 151
ORG 7A23 92 1519 1523
ORG01 7EC4 1526 1522
ORGCK 7EB5 1516 146
OVER 7DC2 1257 1268
OVER1 7DC3 1258 1271
OVER2 7DC4 1259 1274
OVERL 7A23 85 88
OVLPC 7BCA 610 715 716
PDMP 7B75 497 531 533
PFIO1 7E88 1460 1455 1466
PFIO2 7E8C 1465 1457
PFIOC 7E3C 1392 1365 1377
PHID 0020 89 139
PTFIO 7EAC 1507 1463 1511
PUT 7C01 708 187 227 229 235 382 390 392 532 534 726 730 734
745 748 828 837 903 922 1356 1371 1509
PX5 7E3A 1385 1342
QSX1 7B71 493 517 518 521 527
QUMSC 7CC4 929 879
QUOTE 7C2C 757 873
QZA1 7B81 517 510
RDB 7E01 1327 1375
REALC 7AD3 319 402
ROL 7FBC 86 152
RTN 7C0F 726 719
S0001 7C2A 755 789
S0004 7DC9 1264 1309
S003F 7C2B 756 805 921
S0040 7BCB 611 578 580
S07FC 7AC9 309 182
S1000 7ACC 312 234 1219
SDF 7E22 1363 1353
SDFIO 7E37 1382 1348 1370
SEMI 7B74 496 504 769
SENC 7DBE 1253 1237
SENC1 7DBF 1254 1240
SENC2 7DC0 1255 1244
SENL 7DC5 1260 1279
SENL1 7DC6 1261 1282
SENL2 7DC7 1262 1286
SENL3 7DC8 1263 1289
SF803 7B72 494 526
SFF 7B73 495 563
SLHHS 7ADE 330 264
SOFGT 7A29 98
SOFNS 7A27 96
SOFS 7A24 93 160 176 1213
SOFST 7A26 95
SOFXT 7A28 97
SORF 7A30 105
START 7A36 139
SUFIO 7E34 1379 1347 1355
SVV1 7C28 753 767 775 804 872 901 911 920
SW1 7ADB 327 396 408 423 450
SW10 7ADA 326 366 529 536
SW2 7ADC 328 397 416 455 470
SW3 7B66 482 251 296 335 372 542 550 559 695
SW4 7B67 483 297 336 784 793 816 926
SW5 7C29 754 781 813 868
SW6 7BC5 605 252 298 337 356 546 575 593 682
SW7 7AD7 323 253 348 877
SW8 7AD8 324 254 771 773 888 889 893
SW9 7AD9 325 255 884 897 906 916
T2501 7E6B 1432 1426 1429
THREE 7C27 752 717
TWONT 7CEB 976 615
UDTST 7E3B 1390 1393
WAIT 7A3C 150 723 1220
X 7ADD 329 261 268 273 279 290 420 440 459 473 477
XTE1 7ACA 310 184 189
XXYZ 7DE4 1294 1247 1275
XYZ 7DCA 1267 1238 1242 1246
XYZ1 7DD6 1278 1269 1272
ZA0A 7A6C 202 205
ZA1 7A7B 220
ZA10 7B4B 449 442
ZA11 7B4E 455 424
ZA12 7B5D 473 441 451 456 462
ZA13 7B77 504 474
ZA1A 7A87 233 353
ZA1B 7A8E 239 223
ZA2 7A9F 260 274
ZA3 7AAD 278 270 291
ZA4 7AB9 294 287
ZA5 7ADF 333 265 275 283
ZA51 7B06 364
ZA6 7B11 378 305 363
ZA7 7B30 412 405
ZA8 7B34 419 409 413 479
ZA9 7B48 445 429
ZAO 7A68 198 1376 1394 1512