ibm:ibm1130-lib:dmsr2v12:kforph02_lst
KFORPH02
| Table Of Contents |
|---|
|
- kforph02.lst
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
ibm/ibm1130-lib/dmsr2v12/kforph02_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator