ibm:ibm1130-lib:dmsr2v12:kforph06_lst
KFORPH06
| Table Of Contents |
|---|
|
- kforph06.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph06.asm 1130 FORTRAN COMPILER PHASE 6 2 | *************************************************** K0600020 3 | *STATUS - VERSION 2, MODIFICATION 9 * K0600030 4 | * * K0600040 5 | *FUNCTION/OPERATION- * K0600050 6 | * * SCANS ALL IF, CALL, AND ARITHMETIC STMNTS * K0600060 7 | * FOR VALID REAL CONSTANTS. * K0600070 8 | * * CONVERTS REAL CONSTANTS TO STANDARD OR * K0600080 9 | * EXTENDED PRECISION FORMAT, AS SPECIFIED BY * K0600090 10 | * THE FORTRAN COMMUNICATIONS AREA INDICATORS * K0600100 11 | * DERIVED FROM THE CONTROL RECORDS IN PHASE 1.* K0600110 12 | * * CHECKS SYMBOL TABLE FOR PREVIOUS ENTRY OF * K0600120 13 | * CONSTANT. IF FOUND, NO NEW ENTRY IS MADE. * K0600130 14 | * THE SYMBOL TABLE ADDRESS OF THE CONSTANT AND* K0600140 15 | * THE CONSTANT OPERATOR REPLACE THE CONSTANT * K0600150 16 | * IN THE STATEMENT STRING. IF NOT FOUND, THE * K0600160 17 | * CONVERTED CONSTANT IS ADDED TO THE SYMBOL * K0600170 18 | * TABLE. THE CONSTANT OPERATOR FOLLOWED BY * K0600180 19 | * THE SYMBOL TABLE ADDRESS REPLACES THE * K0600190 20 | * CONSTANT IN THE STATEMENT STRING. THE STRING* K0600200 21 | * IS CLOSED UP AFTER ALTERATION. * K0600210 22 | * * K0600220 23 | *ENTRY POINTS- * K0600230 24 | * * START-PHASE 6 IS READ INTO CORE BY THE ROL * K0600240 25 | * PROGRAM AND EXECUTION BEGINS AT THIS ADDRESS* K0600250 26 | * * K0600260 27 | *INPUT- * K0600270 28 | * * THE STATEMENT STRING FROM PREVIOUS PHASES * K0600280 29 | * * THE SYMBOL TABLE FROM PREVIOUS PHASES * K0600290 30 | * * FCOM * K0600300 31 | * * K0600310 32 | *OUTPUT- * K0600320 33 | * * THE MODIFIED STATEMENT STRING * K0600330 34 | * * THE MODIFIED SYMBOL TABLE * K0600340 35 | * * FCOM * K0600350 36 | * * K0600360 37 | *EXTERNAL REFERENCES- * K0600370 38 | * SUBROUTINES- * K0600380 39 | * * ROL * K0600390 40 | * COMMA/DCOM * K0600400 41 | * * $PHSE * K0600410 42 | * * K0600420 43 | *EXITS- * K0600430 44 | * NORMAL- * K0600440 45 | * * EXITS VIA A CALL TO THE ROL SUBROUTINE TO* K0600450 46 | * READ IN THE NEXT PHASE * K0600460 47 | * * K0600470 48 | * ERROR- * K0600480 49 | * * AN OVERLAP ERROR CAUSES THE PROGRAM TO * K0600490 50 | * EXIT TO THE ROL ROUTINE WITHOUT * K0600500 51 | * PROCESSING THE STRING * K0600510 52 | * * ERRORS 23,50 DETECTED BY THIS PHASE K0600520 53 | * * K0600530 54 | *TABLES/WORK AREAS-N/A * K0600540 55 | * * K0600550 56 | *ATTRIBUTES- NONE. K0600560 57 | * * K0600570 58 | *NOTES- THE SWITCHES USED IN PHASE 6 FOLLOW. IF K0600580 59 | * NON-ZERO, THE SWITCH IS TRANSFER=T. IF ZERO, K0600590 60 | * THE SWITCH IS NORMAL=N. K0600600 61 | * SW1 - DECIMAL POINT K0600610 62 | * N= DECIMAL POINT ALLOWABLE K0600620 63 | * SW2 - E IN EXPONENT K0600630 64 | * N= E IN EXPONENT ALLOWABLE K0600640 65 | * SW3 - SIGN K0600650 66 | * T= SIGN ALLOWABLE K0600660 67 | * SW4 - SIGN K0600670 68 | * T= SIGN WAS MINUS K0600680 69 | * SW5 - NON-ZERO CHARACTER K0600690 70 | * T= NON-ZERO CHARACTER ENCOUNTERED K0600700 71 | * SW6 - STRING CLOSURE K0600710 72 | * T= STRING CLOSURE REQUIRED K0600720 73 | * SW12- CHARACTER BUFFER K0600730 74 | * T= BUFFER EMPTY K0600740 75 | * SW14- FIRST OF TWO WORDS K0600750 76 | * N= WORKING ON FIRST OF TWO WORDS K0600760 77 | * SW16- FIRST CONSTANT K0600770 78 | * N= FIRST CONSTANT OF STATEMENT K0600780 79 | * K0600790 80 | *************************************************** K0600800 1130 FORTRAN COMPILER PHASE 6 82 | ABS K0600820 83 | * K0600830 84 | * SYSTEM EQUATES K0600840 8000 85 | MEMRY EQU /8000 CORE SIZE K0600850 7A23 86 | OVERL EQU MEMRY-1501 PHASE OVERLAY AREA SIZE K0600860 7FBC 87 | ROL EQU MEMRY-68 LOC OF RTN TO READ NEXT PH K0600870 0078 88 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K0600880 0003 89 | PHLEN EQU 3 NO. OF SECTORS THIS PH 2-9 K0600885 7A23 90 | ORG OVERL K0600890 0024 91 | PHID EQU 36 ID NUMBER THIS PHASE K0600900 92 | * K0600910 93 | * FORTRAN COMMUNICATION AREA K0600920 7A23 94 | ORG BSS 1 ORIGIN ADDRESS 2-9 K0600925 7A24 95 | SOFS BSS 1 START OF STRING K0600930 7A25 96 | EOFS BSS 1 END OF STRING K0600940 7A26 97 | SOFST BSS 1 START OF SYMBOL TABLE K0600950 7A27 98 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K0600960 7A28 99 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K0600970 7A29 100 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K0600980 7A2A 101 | EOFST BSS 1 END OF SYMBOL TABLE K0600990 7A2B 102 | COMON BSS 1 NEXT AVAILABLE COMMON K0601000 7A2C 103 | CSIZE BSS 1 SIZE OF COMMON K0601010 7A2D 104 | ERROR BSS 1 OVERLAP ERROR K0601020 7A2E 105 | FNAME BSS 1 PROGRAM NAME K0601030 7A2F 106 | BSS 1 * K0601040 7A30 107 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K0601050 7A31 108 | CCWD BSS 1 CONTROL CARD WORD K0601060 109 | * BIT 15 TRANSFER TRACE K0601070 110 | * BIT 14 ARITHMETIC TRACE K0601080 111 | * BIT 13 EXTENDED PRECISION K0601090 112 | * BIT 12 LIST SYMBOL TABLE K0601100 113 | * BIT 11 LIST SUBPROGRAM NAMES K0601110 114 | * BIT 10 LIST SOURCE PROGRAM K0601120 115 | * BIT 9 ONE WORD INTEGERS K0601130 116 | * BIT 8 ORIGIN 2-9 K0601140 7A32 117 | IOCS BSS 1 IOCS CONTROL CARD WORD K0601160 118 | * BIT 15 CARD K0601170 119 | * BIT 14 PAPER TAPE K0601180 120 | * BIT 13 TYPEWRITER K0601190 121 | * BIT 12 1443 PRINTER K0601200 122 | * BIT 11 MAGNETIC TAPE K0601210 123 | * BIT 10 KEYBOARD K0601220 124 | * BIT 8 DISK K0601230 125 | * BIT 3 PLOTTER K0601240 126 | * BIT 1 UNFORMATTED DISK K0601250 7A33 127 | DFCNT BSS 1 NUMBER OF WORDS IN FILE TABLE K0601260 128 | * K0601270 129 | * K0601280 130 | * K0601290 131 | * END OF FORTRAN COMMUNICATION K0601300 132 | * AREA K0601310 133 | * K0601320 7A36 134 | BPHAR EQU *+2 BEGINNING CORE PHASE ADDR K0601330 7A34 0000 135 | DC 0 LOADER WORK AREA K0601340 7A35 FFDC 136 | DC -36 -PHASE ID FOR SLET LOOKUP K0601350 7A36 0228 137 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K0601360 7A37 0001 138 | DC 1 ONE ENTRY TO BE SET BY LDR K0601370 7A36 139 | ORG *-2 K0601380 7A36 6124 140 | START LDX 1 PHID LOAD ID NUMBER THIS PHASE K0601390 7A37 6D00 0078 141 | STX L1 $PHSE STORE IN SYS PHASE AREA K0601400 7A39 C0F3 142 | LD ERROR IF OVERLAP ERROR THEN BR TO K0601410 7A3A 4C20 7C58 143 | BSC L OUT,Z READ IN NEXT PH AND EXECUTE K0601420 144 | * K0601430 145 | * INITIALIZE PHASE K0601440 146 | * K0601450 7A3C 6580 7A24 147 | ORGIN LDX I1 SOFS START OF FIRST STMNT ADDR K0601460 7A3E 6922 148 | STX 1 IDSAV K0601470 149 | * K0601480 150 | * CHECK STATEMENT TYPE K0601490 151 | * K0601500 7A3F C100 152 | CAP LD 1 0 FIRST WD OF STMNT K0601510 7A40 1801 153 | SRA 1 POSITION TO TEST STMNT TYPE K0601520 7A41 E029 154 | AND IDTPE STMNT TYPE (BITS 1-5) K0601530 7A42 9029 155 | S ENDC END STMNT CONSTANT K0601540 7A43 4C18 7C58 156 | BSC L OUT,+- BR TO RD NEXT PHASE K0601550 7A45 901C 157 | S ARITC ARITH STMNT CONSTANT K0601560 7A46 4820 158 | BSC Z SKIP NEXT IF ARITH STMNT K0601570 7A47 901B 159 | S IFC IF STMNT CONSTANT K0601580 7A48 4820 160 | BSC Z SKIP NEXT ON IF STMNT K0601590 7A49 901A 161 | S CALLC CALL STMNT CONSTANT K0601600 7A4A 4820 162 | BSC Z SKIP NEXT IF CALL STMNT K0601610 7A4B 9019 163 | S READC READ STMNT CONSTANT K0601620 7A4C 4820 164 | BSC Z SKIP NEXT IF READ STMNT K0601630 7A4D 9018 165 | S WRITC WRITE STMNT CONSTANT K0601640 7A4E 4820 166 | BSC Z SKIP NEXT IF WRITE STMNT K0601650 7A4F 9017 167 | S FINDC FIND STMNT CONSTANT K0601660 7A50 4C18 7A70 168 | BSC L RCC,+- BR IF FIND STMNT K0601670 7A52 9015 169 | S DATAC DATA STMNT CONSTANT K0601680 7A53 4C20 7A58 170 | BSC L MOVE,Z BR TO NEXT STMNT NOT DATA K0601690 7A55 6C00 7C6F 171 | STX L0 SW7 SET DATA STMNT SW ON K0601700 7A57 701B 172 | MDX RCCSS BR TO INITIALIZE STMNT K0601710 173 | * K0601720 174 | * MOVE TO NEXT STATEMENT K0601730 175 | * K0601740 7A58 6580 7A61 176 | MOVE LDX I1 IDSAV RESTORE START OF STMNT ADDR K0601750 7A5A C100 177 | LD 1 0 STMNT ID WORD K0601760 7A5B 1802 178 | SRA 2 K0601770 7A5C E00C 179 | AND IDNRM WORD COUNT MASK K0601780 7A5D D001 180 | STO NXID+1 STMNT WORD COUNT K0601790 7A5E 7500 0000 181 | NXID MDX L1 0 INCR START ADDR BY WD CNT K0601800 7A60 70DD 182 | MDX ORGIN+2 BR TO CHECK STMNT TYPE K0601810 183 | * K0601820 184 | * CONSTANTS AND WORK AREA K0601830 185 | * K0601840 7A61 0000 186 | IDSAV DC 0 START OF STMNT ADDR TEMP K0601850 7A62 F800 187 | ARITC DC 0-/0800 ARITH STMNT CONSTANT K0601860 7A63 3C00 188 | IFC DC /3C00 IF STMNT CONSTANT K0601870 7A64 DC00 189 | CALLC DC /1800-/3C00 CALL STMNT CONSTANT K0601880 7A65 3000 190 | READC DC /4800-/1800 READ STMNT CONSTANT K0601890 7A66 FC00 191 | WRITC DC /4400-/4800 WRITE STMNT CONSTANT K0601900 7A67 3000 192 | FINDC DC /7400-/4400 FIND STMNT CONSTANT K0601910 7A68 0800 193 | DATAC DC /7C00-/7400 DATA STMNT CONSTANT K0601920 7A69 01FF 194 | IDNRM DC /01FF STMNT WD COUNT MASK K0601930 7A6A 000B 195 | DECP DC /000B DECIMAL POINT CONSTANT K0601940 7A6B 7C00 196 | IDTPE DC /7C00 STATEMENT TYPE MASK K0601950 7A6C 0800 197 | ENDC DC /0800 END STMNT CONSTANT K0601960 7A6D 0000 198 | SW6 DC 0 STRING CLOSURE SWITCH K0601970 7A6E 0000 199 | T DC 0 INDEX REG 1 TEMPORARY K0601980 7A6F 0000 200 | SW16 DC 0 FIRST CONSTANT OF STMNT SW K0601990 201 | * K0602000 202 | * INITIALIZE STATEMENT K0602010 203 | * K0602020 7A70 1010 204 | RCC SLA 16 CLEAR ACCUMULATOR K0602030 7A71 D400 7C6F 205 | STO L SW7 RESET DATA STMNT SWITCH K0602040 7A73 D0FB 206 | RCCSS STO SW16 RESET FIRST CONSTANT SWITCH K0602050 7A74 D400 7CF9 207 | STO L CNT ZERO STMNT WORD COUNT K0602060 208 | * K0602070 209 | * K0602080 210 | * TEST FOR CALL PDUMP K0602090 211 | * OUTPUT ERROR NUMBER 50 IF NOT A K0602100 212 | * SUBROUTINE OR FUNCTION, OR IF A K0602110 213 | * MAINLINE PROGRAM WITH NO CALLED K0602120 214 | * IOCS. K0602130 215 | * K0602140 7A76 6901 216 | STX 1 *+1 SET XR3 TO POINT AT K0602150 7A77 6700 0000 217 | LDX L3 *-* *STMNT ID. K0602160 7A79 C300 218 | LD 3 0 LOAD STMNT ID 2-7 K0602170 7A7A 4804 219 | BSC E SKIP IF NON-NUMBERED STMNT K0602180 7A7B 7301 220 | MDX 3 1 INCR PT IF NUMBERED STMNT K0602190 7A7C 1801 221 | SRA 1 DETERMINE IF STMNT IS CALL K0602200 7A7D E0ED 222 | AND IDTPE * K0602210 7A7E 902E 223 | S CALLP * K0602220 7A7F 4C20 7AB7 224 | BSC L ZNCPD,Z BRANCH IF NOT A CALL STMNT K0602230 7A81 C301 225 | LD 3 1 LOAD NAME WORD 1 K0602240 7A82 902B 226 | S CPDN1 IS WD 1 PART OF .PDUMP. K0602250 7A83 4C20 7AB7 227 | BSC L ZNCPD,Z BRANCH IF NOT K0602260 7A85 C302 228 | LD 3 2 LOAD NAME WORD 2 K0602261 7A86 9028 229 | S CPDN2 IS WD 2 PART OF .PDUMP. K0602262 7A87 4C20 7AB7 230 | BSC L ZNCPD,Z BRANCH IF NOT K0602263 231 | * K0602264 232 | * CHECK THE PDUMP FORMAT 2-9 K0602265 233 | * K0602266 7A89 7301 234 | BACK MDX 3 +1 2-9 K0602267 7A8A C303 235 | LD 3 3 SCAN PDUMP STMNT 2-9 K0602268 7A8B 9029 236 | S H001E CHECK IF END OF PDUMP 2-9 K0602269 7A8C 4C18 7AB7 237 | BSC L ZNCPD,+- BRANCH IF YES TO CONTIN 2-9 K0602270 7A8E 9021 238 | S LPAR CHECK IF LEFT PARENTH 2-9 K0602271 7A8F 4C20 7A94 239 | BSC L L1,Z BRANCH IF NOT 2-9 K0602272 7A91 C000 240 | LD * IF LEFT PAR WAS FOUND 2-9 K0602273 7A92 D021 241 | STO SWTCH *SET SWTCH 2-9 K0602274 7A93 70F5 242 | MDX BACK *AND CONT SCANNING 2-9 K0602275 7A94 901C 243 | L1 S RPAR CHECK IF RIGHT PARENTH 2-9 K0602276 7A95 4C20 7A99 244 | BSC L L2,Z BRANCH IF NO 2-9 K0602277 7A97 D01C 245 | STO SWTCH RESET SWTCH IF YES 2-9 K0602278 7A98 70F0 246 | MDX BACK *AND CONT SCANNING 2-9 K0602279 7A99 9018 247 | L2 S COMMA CHECK IF COMMA 2-9 K0602280 7A9A 4C20 7A89 248 | BSC L BACK,Z BRANCH IF NO 2-9 K0602281 7A9C C017 249 | LD SWTCH IS THIS ARRAY SUBSCRIPT 2-9 K0602282 7A9D 4C20 7A89 250 | BSC L BACK,Z BRANCH IF YES 2-9 K0602283 7A9F C304 251 | LD 3 +4 CHECK NEXT WORD 2-9 K0602284 7AA0 9015 252 | S HE800 IS PDUMP FORMAT = 4 2-9 K0602285 7AA1 4C18 7AA6 253 | BSC L GOON,+- IF YES TEST IOCS 2-9 K0602286 7AA3 900F 254 | S H0200 IS PDUMP FORMAT = 5 2-9 K0602287 7AA4 4820 255 | BSC Z IF YES TEST IOCS 2-9 K0602288 7AA5 70E3 256 | MDX BACK IF NO CONT SCANNING 2-9 K0602289 257 | * K0602290 7AA6 C089 258 | GOON LD SORF TEST IF SUBROUTINE,IF 2-9 K0602300 7AA7 E88A 259 | OR IOCS FUNCTION, OR IOCS K0602310 7AA8 4C20 7AB7 260 | BSC L ZNCPD,Z BRANCH IF YES K0602320 7AAA 6232 261 | LDX 2 50 SET UP ERROR 50 K0602330 7AAB 4C00 7B47 262 | BSC L REP GO OUTPUT ERRORS K0602340 263 | * K0602350 264 | * CONSTANTS K0602360 265 | * K0602370 7AAD 1800 266 | CALLP DC /1800 CALL TEST WORD K0602380 7AAE AE24 267 | CPDN1 DC /AE24 .PDUMP. WORD 1 K0602390 7AAF C517 268 | CPDN2 DC /C517 .PDUMP. WORD 2 K0602400 7AB0 FFEF 269 | LPAR DC /000D-/001E LEFT PARENTHESIS 2-9 K0602401 7AB1 0010 270 | RPAR DC /001D-/000D RIGHT PARENTHESIS 2-9 K0602402 7AB2 000E 271 | COMMA DC /002B-/001D COMMA 2-9 K0602403 7AB3 0200 272 | H0200 DC /0200 PDUMP FORMAT 5 CONST 2-9 K0602404 7AB4 0000 273 | SWTCH DC *-* SWITCH SET WITHIN PAR 2-9 K0602405 7AB5 001E 274 | H001E DC /001E END PDUMP STMNT CONST 2-9 K0602406 7AB6 E800 275 | HE800 DC /E800 PDUMP FORMAT 4 CONST 2-9 K0602407 276 | * K0602410 277 | * K0602420 7AB7 278 | ZNCPD EQU * CONTINUE K0602430 279 | * K0602440 280 | * MOVE POINTER K0602450 7AB7 7101 281 | MDX 1 1 MOVE STMNT POINTER K0602460 7AB8 C100 282 | Z3 LD 1 0 CHECK FOR OPERATOR K0602470 7AB9 4810 283 | BSC - SKIP NEXT IF NOT OPERATOR K0602480 7ABA 7002 284 | MDX RC BR IF OPERATOR K0602490 7ABB 7101 285 | Z MDX 1 1 MOVE STMNT POINTER K0602500 7ABC 70FB 286 | MDX Z3 BR TO CHECK FOR OPERATOR K0602510 7ABD 9400 7CFB 287 | RC S L SEMIC SEMICOLON CONSTANT K0602520 7ABF 4820 288 | BSC Z SKIP NEXT IF SEMICOLON K0602530 7AC0 7006 289 | MDX Z1 BR TO CHECK FOR DECIMAL PT K0602540 7AC1 C0AB 290 | LD SW6 STRING CLOSURE SWITCH K0602550 7AC2 4C20 7CFC 291 | BSC L CLSUP,Z BR TO CLOSE STRING K0602560 7AC4 7101 292 | MDX 1 1 MOVE STMNT POINTER K0602570 7AC5 4C00 7A3E 293 | BSC L ORGIN+2 BR TO CHECK STMNT TYPE 2-9 K0602580 7AC7 C100 294 | Z1 LD 1 0 CHECK FOR DECIMAL POINT K0602590 7AC8 90A1 295 | S DECP DECIMAL POINT CONSTANT K0602600 7AC9 4C18 7ACC 296 | BSC L ZZ,+- BR IF DECIMAL POINT K0602610 7ACB 70EF 297 | MDX Z BR TO MOVE POINTER K0602620 7ACC C0A2 298 | ZZ LD SW16 FIRST CONSTANT SWITCH K0602630 7ACD 4C18 7AD5 299 | BSC L Z33,+- BR IF FIRST CONSTANT K0602640 7ACF 699E 300 | STX 1 T CHECK FOR LEGAL CONSTANT K0602650 7AD0 C09D 301 | LD T CURRENT STMNT POINTER K0602660 7AD1 9400 7C62 302 | S L TT POINTER BEFORE COLLECT REAL K0602670 7AD3 4C18 7B46 303 | BSC L JBR,+- BR TO SET INVALID CON ERROR K0602680 7AD5 71FF 304 | Z33 MDX 1 -1 MOVE PT BACK TO OPERATOR K0602690 7AD6 C100 305 | LD 1 0 IF SIGN POSITION IS ZERO K0602700 7AD7 4808 306 | BSC + SKIP TO SAVE STMNT POINTER K0602710 7AD8 70FC 307 | MDX *-4 BR TO MOVE BACK POINTER K0602720 7AD9 6D00 7C62 308 | STX L1 TT SAVE STMNT PT AT OPERATOR K0602730 309 | * K0602740 310 | * INITIALIZE TO COLLECT REAL CONSTANT K0602750 311 | * K0602760 7ADB 1010 312 | SLA 16 K0602770 7ADC 6205 313 | LDX 2 5 COUNTER= 5 K0602780 7ADD D600 7C68 314 | AMP STO L2 JANS-5 ZERO FIVE WORDS OF BUFFER K0602790 7ADF 72FF 315 | MDX 2 -1 DECR COUNTER K0602800 7AE0 70FC 316 | MDX AMP BR TO CONTINUE CLEARING K0602810 7AE1 6205 317 | LDX 2 5 COUNTER= 5 K0602820 7AE2 D600 7B20 318 | STO L2 SW5-5 ZERO SW1 TO SW5 K0602830 7AE4 72FF 319 | MDX 2 -1 DECR COUNTER K0602840 7AE5 70FC 320 | MDX *-4 BR TO CONTINUE CLEARING SWS K0602850 7AE6 D400 7D2A 321 | STO L SW12 ZERO SWITCH 12 K0602860 7AE8 7101 322 | MDX 1 1 MOVE STMNT POINTER K0602870 7AE9 D040 323 | STO GCNT ZERO CHAR COUNT K0602880 7AEA D400 7D2B 324 | STO L SW14 ZERO FIRST OF 2 WDS SWITCH K0602890 7AEC D400 7C68 325 | STO L BIN ZERO BIN K0602900 7AEE 4400 7D2D 326 | RC1 BSI L GET BR TO GET NEXT ELEMENT K0602910 7AF0 9400 7B16 327 | S L JCON1 LEAVES DIGIT ONLY K0602920 7AF2 D022 328 | STO X SAVE CHARACTER K0602930 7AF3 4C18 7B71 329 | BSC L RC7,+- BR IF ZERO K0602940 7AF5 4C08 7AFA 330 | BSC L SW1T,+ BR NOT A DIGIT K0602950 7AF7 901F 331 | S JCON2 DECIMAL NINE K0602960 7AF8 4C08 7B2B 332 | BSC L RC5,+ BR IF DIGIT K0602970 7AFA C026 333 | SW1T LD SW1 DECIMAL POINT ALLOWABLE SW K0602980 7AFB 4C20 7B01 334 | BSC L RC2,Z BR IF DECML PT NOT ALLOWED K0602990 7AFD C017 335 | LD X CHARACTER K0603000 7AFE 9019 336 | S JCON3 DECIMAL POINT CONSTANT K0603010 7AFF 4C18 7B78 337 | BSC L RC8,+- BR IF DECIMAL POINT K0603020 7B01 C020 338 | RC2 LD SW2 K0603030 7B02 4C20 7B08 339 | BSC L RC3,Z BR IF E NOT ALLOWABLE K0603040 7B04 C010 340 | LD X CHARACTER K0603050 7B05 9013 341 | S JCON4 ALPHABETIC E CONSTANT K0603060 7B06 4C18 7B7E 342 | BSC L RC9,+- BR IF ALPHA E K0603070 7B08 C01A 343 | RC3 LD SW3 K0603080 7B09 4C18 7B89 344 | BSC L RC10,+- BR IF SIGN NOT ALLOWABLE K0603090 7B0B C009 345 | LD X CHARACTER K0603100 7B0C 900D 346 | S JCON5 PLUS SIGN CONSTANT K0603110 7B0D 4C18 7B13 347 | BSC L RC4,+- BR IF PLUS SIGN K0603120 7B0F 900B 348 | S JCON6 MINUS SIGN CONSTANT K0603130 7B10 4C20 7B89 349 | BSC L RC10,Z BR IF SIGN NOT MINUS K0603140 7B12 6811 350 | STX 0 SW4 SET SW4 ON. SIGN WAS MINUS K0603150 7B13 D00F 351 | RC4 STO SW3 SET SW3= SIGN NOT ALLOWED K0603160 7B14 70D9 352 | MDX RC1 BR TO GET NEXT CHARACTER K0603170 353 | * K0603180 354 | * CONSTANTS AND WORK AREA K0603190 355 | * K0603200 7B15 0000 356 | X DC 0 CHARACTER TEMPORARY K0603210 7B16 0030 357 | JCON1 DC /0030 HIGH 2 BITS CONSTANT K0603220 7B17 0009 358 | JCON2 DC 9 DECIMAL NINE CONSTANT K0603230 7B18 FFDB 359 | JCON3 DC /000B-/0030 DECIMAL POINT CONSTANT K0603240 7B19 FFD5 360 | JCON4 DC /0005-/0030 ALPHA E CONSTANT K0603250 7B1A FFDE 361 | JCON5 DC /000E-/0030 PLUS SIGN CONSTANT K0603260 7B1B 0012 362 | JCON6 DC /0020-/000E MINUS SIGN CONSTANT K0603270 7B1C 0064 363 | JCON7 DC 100 DECIMAL 100 CONSTANT K0603280 7B1D 00C0 364 | JCON8 DC 192 DECIMAL 192 CONSTANT K0603290 7B1E 0001 365 | JCON9 DC 1 DECIMAL 1 CONSTANT K0603300 7B1F 0005 366 | LCON1 DC 5 DECIMAL 5 CONSTANT K0603310 7B20 0000 367 | TILL DC 0 NO. OF EXPONENT DIGITS TEMP K0603320 7B21 0000 368 | SW1 DC 0 DECIMAL POINT ALLOWABLE SW K0603330 7B22 0000 369 | SW2 DC 0 E IN EXPONENT ALLOWABLE SW K0603340 7B23 0000 370 | SW3 DC 0 SIGN ALLOWABLE SWITCH K0603350 7B24 0000 371 | SW4 DC 0 MINUS SIGN SWITCH K0603360 7B25 0000 372 | SW5 DC 0 NON-ZERO SWITCH K0603370 7B26 0000 373 | EXP DC 0 EXPONENT TEMPORARY K0603380 7B27 000A 374 | JCO11 DC 10 DECIMAL TEN CONSTANT K0603390 7B28 0000 375 | ERRNO DC 0 ERROR NUMBER TEMPORARY K0603400 7B29 A008 376 | ERID DC /A008 ERROR ID CONSTANT K0603410 7B2A 0000 377 | GCNT DC 0 CONSTANT CHARACTER COUNT K0603420 7B2B C0F6 378 | RC5 LD SW2 K0603430 7B2C 4C20 7B38 379 | BSC L RC6,Z BR E NOT ALLOWABLE K0603440 7B2E 68F6 380 | STX 0 SW5 SET SW5 NON-ZERO ENCOUNTER K0603450 7B2F C0E5 381 | RC5A LD X MPY ANSWER BY 10 AND ADD X K0603460 7B30 4400 7D63 382 | BSI L MULT BR TO MULTIPLY SUBROUTINE K0603470 7B32 C0EE 383 | RC5B LD SW1 K0603480 7B33 4C18 7AEE 384 | BSC L RC1,+- BR IF DECML PT ALLOWABLE K0603490 7B35 7401 7BD6 385 | MDX L DEC,1 ADD 1 TO DEC K0603500 7B37 70B6 386 | MDX RC1 BR TO GET NEXT CHARACTER K0603510 7B38 C0ED 387 | RC6 LD EXP MPY EXPONENT BY 10, ADD X K0603520 7B39 A0ED 388 | M JCO11 TEN K0603530 7B3A 1090 389 | SLT 16 SHIFT PRODUCT TO A REG K0603540 7B3B 80D9 390 | A X ADD X K0603550 7B3C D0E9 391 | STO EXP RESTORE EXPONENT K0603560 7B3D 1010 392 | SLA 16 K0603570 7B3E D0E4 393 | STO SW3 RESET SIGN ALLOWABLE SWITCH K0603580 7B3F C0E6 394 | LD EXP CHECK EXPONENT FOR LESS K0603590 7B40 90DB 395 | S JCON7 THAN 100. K0603600 7B41 4C10 7B46 396 | BSC L JBR,- BR IF 100 OR GREATER K0603610 7B43 7401 7B20 397 | MDX L TILL,1 ADD 1 TO TILL K0603620 7B45 70A8 398 | MDX RC1 BR TO GET NEXT CHARACTER K0603630 7B46 6217 399 | JBR LDX 2 23 SET UP ERROR 23 K0603640 7B47 6AE0 400 | REP STX 2 ERRNO SET ERROR NUMBER K0603650 7B48 6580 7A61 401 | LDX I1 IDSAV START OF STMNT ADDRESS K0603660 7B4A C100 402 | LD 1 0 STMNT ID WORD K0603670 7B4B 1802 403 | SRA 2 K0603680 7B4C E400 7A69 404 | AND L IDNRM EXTRACT STMNT WORD COUNT K0603690 7B4E 8400 7A61 405 | A L IDSAV START OF NEXT STMNT ADDRESS K0603700 7B50 D001 406 | STO *+1 K0603710 7B51 6600 0000 407 | LDX L2 0 NEXT STMNT ADDR K0603720 7B53 C400 7A25 408 | LD L EOFS END OF STRING ADDRESS K0603730 7B55 90FC 409 | S *-4 NEXT STMNT ADDR K0603740 7B56 D001 410 | STO *+1 K0603750 7B57 6700 0000 411 | LDX L3 0 RANGE K0603760 7B59 7301 412 | MDX 3 1 NUMBER OF WDS TO MOVE K0603770 7B5A C100 413 | LD 1 0 STMNT ID WORD K0603780 7B5B E0C2 414 | AND JCON9 TURN ON ERROR INDICATORS K0603790 7B5C E8CC 415 | OR ERID K0603800 7B5D D100 416 | STO 1 0 RESTORE ID WORD K0603810 7B5E F0BF 417 | EOR JCON9 K0603820 7B5F 4C04 7B64 418 | BSC L *+3,E BR IF ODD K0603830 7B61 80BD 419 | A LCON1 K0603840 7B62 D100 420 | STO 1 0 STORE IN ID WORD K0603850 7B63 7101 421 | MDX 1 1 INCREMENT STMNT POINTER K0603860 7B64 C0C3 422 | LD ERRNO ERROR NUMBER K0603870 7B65 D101 423 | STO 1 1 REPLACE STMNT WITH ERROR NO K0603880 7B66 C200 424 | LD 2 0 NEXT WORD TO MOVE K0603890 7B67 D102 425 | STO 1 2 CLOSE UP STRING K0603900 7B68 7201 426 | MDX 2 1 INCR NEXT WD TO MOVE ADDR K0603910 7B69 7101 427 | MDX 1 1 INCR ADDR TO STORE NEXT WD K0603920 7B6A 73FF 428 | MDX 3 -1 DECR WORDS TO MOVE COUNTER K0603930 7B6B 70FA 429 | MDX *-6 BR TO CONTINUE CLOSING K0603940 7B6C 7101 430 | MDX 1 1 INCR ADDR TO STORE NEXT WD K0603950 7B6D 6D00 7A25 431 | STX L1 EOFS NEW END OF STRING ADDRESS K0603960 7B6F 4C00 7A58 432 | BSC L MOVE BR TO EXAMINE NEXT STMNT K0603970 7B71 C0B0 433 | RC7 LD SW2 E IN EXPONENT SWITCH K0603980 7B72 4C20 7B38 434 | BSC L RC6,Z BR IF E NOT ALLOWABLE K0603990 7B74 C0B0 435 | LD SW5 NON-ZERO CHARACTER SWITCH K0604000 7B75 4C20 7B2F 436 | BSC L RC5A,Z BR IF NON-ZERO TO MPY BY 10 K0604010 7B77 70BA 437 | MDX RC5B BR IF TEST SWITCH 1 K0604020 7B78 7401 7B21 438 | RC8 MDX L SW1,1 TURN ON SWITCH 1 K0604030 7B7A 1010 439 | SLA 16 CLEAR ACCUMULATOR K0604040 7B7B D05A 440 | STO DEC ZERO DIGIT COUNTER K0604050 7B7C 4C00 7AEE 441 | BSC L RC1 BR TO GET NEXT CHARACTER K0604060 7B7E 7401 7B22 442 | RC9 MDX L SW2,1 SET SW 2, E NOT ALLOWABLE K0604070 7B80 7401 7B23 443 | MDX L SW3,1 SET SW 3, SIGN ALLOWABLE K0604080 7B82 7401 7B21 444 | MDX L SW1,1 SET SW 1 = NO DECML POINT K0604090 7B84 1010 445 | SLA 16 CLEAR ACCUMULATOR K0604100 7B85 D09A 446 | STO TILL ZERO TILL K0604110 7B86 D09F 447 | STO EXP ZERO EXPONENT K0604120 7B87 4C00 7AEE 448 | BSC L RC1 BR TO GET NEXT CHARACTER K0604130 449 | * K0604140 450 | * CHECK FOR VALID CONSTANT K0604150 451 | * K0604160 7B89 C1FF 452 | RC10 LD 1 -1 STMNT ID WORD K0604170 7B8A 4C28 7B46 453 | BSC L JBR,+Z BR IF NEG TO SET ERROR 23 K0604180 7B8C C09D 454 | LD GCNT CONSTANT CHARACTER COUNT K0604190 7B8D 9400 7CFA 455 | S L TWO DECIMAL TWO K0604200 7B8F 4C08 7B46 456 | BSC L JBR,+ BR IF LESS THAN 3 TO ERROR K0604210 7B91 6D00 7C6E 457 | STX L1 S SAVE INDEX REGISTER 1 K0604220 7B93 C091 458 | LD SW5 NON-ZERO SWITCH K0604230 7B94 4C18 7C0F 459 | BSC L RC19,+- BR TO CHECK PRECISION K0604240 7B96 C086 460 | LD JCON8 MAXIMUM 4 WORD EXPONENT K0604250 7B97 D400 7C68 461 | STO L BIN SET EXPONENT TO +64 K0604260 7B99 C088 462 | LD SW2 E IN EXPONENT ALLOWABLE SW K0604270 7B9A 4C18 7BB1 463 | BSC L RC13,+- BR IF E ALLOWABLE K0604280 7B9C C083 464 | LD TILL NO. OF EXPONENT CHARACTERS K0604290 7B9D 9080 465 | S JCON9 ONE K0604300 7B9E 4C18 7BA4 466 | BSC L RC11,+- BR IF ONE EXPONENT CHAR K0604310 7BA0 9400 7B1E 467 | S L JCON9 ONE K0604320 7BA2 4C20 7B46 468 | BSC L JBR,Z BR MORE THAN 2 CHARS- ERROR K0604330 7BA4 C400 7B24 469 | RC11 LD L SW4 EXPONENT SIGN SWITCH K0604340 7BA6 4C18 7BAD 470 | BSC L RC12,+- BR IF SIGN POSITIVE K0604350 7BA8 C02D 471 | LD DEC CALCULATE DECIMAL POINT K0604360 7BA9 8400 7B26 472 | A L EXP E EXPONENT VALUE K0604370 7BAB D02A 473 | STO DEC NO. PLACES AFTER DECML PT K0604380 7BAC 7004 474 | MDX RC13 BR TO CHECK FOR NORMALIZE K0604390 7BAD C028 475 | RC12 LD DEC CALCULATE DECIMAL POINT K0604400 7BAE 9400 7B26 476 | S L EXP E EXPONENT VALUE K0604410 7BB0 D025 477 | STO DEC NO. PLACES AFTER DECML PT K0604420 7BB1 C400 7C69 478 | RC13 LD L JANS-4 CHECK FOR NORMALIZED RIGHT K0604430 7BB3 4C20 7BFB 479 | BSC L RC17,Z BR IF SHIFT RIGHT NEEDED K0604440 7BB5 C400 7C6A 480 | LD L JANS-3 CHECK FOR NORMALIZED LEFT K0604450 7BB7 4C10 7BDD 481 | BSC L RC15,- BR IF SHIFT LEFT NEEDED K0604460 7BB9 C01C 482 | LD DEC NO. PLACES AFTER DECML PT K0604470 7BBA 4C28 7BD7 483 | BSC L RC14,+Z BR TO MPY BY 10 IF NEGATIVE K0604480 7BBC 4C08 7C09 484 | BSC L RC18,+ BR TO CHK EXPONENT IF ZERO K0604490 7BBE 74FF 7BD6 485 | MDX L DEC,-1 DECR PLACES AFTER DECML PT K0604500 7BC0 1000 486 | NOP K0604510 487 | * K0604520 488 | * DIVIDE CONSTANT BY 10 K0604530 489 | * K0604540 7BC1 62FC 490 | LDX 2 -4 WORD LENGTH OF CONSTANT K0604550 7BC2 10A0 491 | SLT 32 K0604560 7BC3 C600 7C6E 492 | JDIV LD L2 JANS+1 NEXT WORD OF CON TO DIVIDE K0604570 7BC5 18D0 493 | RTE 16 PREVIOUS REMAINDER INTO ACC K0604580 7BC6 6301 494 | LDX 3 1 INITLZ SIGN FLAG TO PLUS K0604590 7BC7 900C 495 | S JCO10 DIVIDEND IN RANGE +4 TO -5 K0604600 7BC8 4810 496 | BSC - SKIP NEXT IF RANGE WAS OK K0604610 7BC9 73FE 497 | MDX 3 -2 SET SIGN FLAG NEG AND SKIP K0604620 7BCA 8009 498 | A JCO10 ADD BACK 5 IF RANGE WAS OK K0604630 7BCB AC00 7B27 499 | D L JCO11 DIVIDE BY TEN K0604640 7BCD 73FE 500 | MDX 3 -2 TEST SIGN FLAG,SKIP IF PLUS K0604650 7BCE F006 501 | EOR JCO12 RESTORE SIGN BIT TO RESULT K0604660 7BCF D600 7C6E 502 | STO L2 JANS+1 REPLACE PARTIAL QUOTIENT K0604670 7BD1 7201 503 | MDX 2 1 INCR DIVIDE COUNTER K0604680 7BD2 70F0 504 | MDX JDIV BR TO CONTINUE 4-WD DIVIDE K0604690 7BD3 70DD 505 | MDX RC13 BR TO NORMALIZE CONSTANT K0604700 506 | * K0604710 507 | * CONSTANT AND WORK AREA K0604720 508 | * K0604730 7BD4 0005 509 | JCO10 DC 5 RANGE CHANGE CONSTANT K0604740 7BD5 8000 510 | JCO12 DC /8000 SIGN CONSTANT K0604750 7BD6 0000 511 | DEC DC 0 DECIMAL POINT TEMPORARY K0604760 512 | * K0604770 7BD7 7401 7BD6 513 | RC14 MDX L DEC,1 INCR PLACES AFTER DECML PT K0604780 514 | * K0604790 515 | * MULTIPLY CONSTANT BY 10 K0604800 516 | * K0604810 7BD9 1010 517 | SLA 16 K0604820 7BDA 4400 7D63 518 | BSI L MULT BR TO MULTIPLY SUBROUTINE K0604830 7BDC 70D4 519 | MDX RC13 BR TO NORMALIZE CONSTANT K0604840 520 | * K0604850 7BDD 4C20 7BED 521 | RC15 BSC L RC16,Z BR TO NORMALIZE LEFT 1 BIT K0604860 7BDF 62FD 522 | LDX 2 -3 NORMALIZE LEFT ONE WORD K0604870 7BE0 C600 7C6E 523 | LD L2 JANS+1 WORD TO MOVE LEFT K0604880 7BE2 D600 7C6D 524 | STO L2 JANS STORE ONE WORD LEFT K0604890 7BE4 7201 525 | MDX 2 1 INCR MOVE COUNTER K0604900 7BE5 70FA 526 | MDX RC15+3 BR TO MOVE NEXT WORD K0604910 7BE6 1010 527 | SLA 16 K0604920 7BE7 D400 7C6D 528 | STO L JANS ZERO LEAST SIGNIFICANT WORD K0604930 7BE9 74F0 7C68 529 | MDX L BIN,-16 DECR EXPONENT FOR WD SHIFT K0604940 7BEB 70C5 530 | MDX RC13 BR TO NORMALIZE CONSTANT IF K0604950 7BEC 70C4 531 | MDX RC13 SKIP OR IF NO SKIP. K0604960 532 | * K0604970 533 | * NORMALIZE LEFT ONE BIT K0604980 534 | * K0604990 7BED 6204 535 | RC16 LDX 2 4 NUMBER OF WORDS TO SHIFT K0605000 7BEE 10A0 536 | SLT 32 CLEAR ACC AND EXTENSION K0605010 7BEF C600 7C69 537 | LD L2 JANS-4 NEXT LEAST SIGNIFICANT WORD K0605020 7BF1 18DF 538 | RTE 31 EFFECTIVE SHIFT ONE LEFT K0605030 7BF2 D600 7C69 539 | STO L2 JANS-4 RESTORE K0605040 7BF4 108F 540 | SLT 15 ATTACH HIGH BIT TO NEXT WD K0605050 7BF5 72FF 541 | MDX 2 -1 DECR CNT AND SKIP IF ZERO K0605060 7BF6 70F8 542 | MDX RC16+2 BR TO LOAD NEXT WD TO SHIFT K0605070 7BF7 74FF 7C68 543 | MDX L BIN,-1 DECR BINARY EXPONENT AND K0605080 7BF9 70B7 544 | MDX RC13 BRANCH TO NORMALIZE IF SKIP K0605090 7BFA 70B6 545 | MDX RC13 OR NO SKIP. K0605100 546 | * K0605110 547 | * NORMALIZE RIGHT ONE BIT K0605120 548 | * K0605130 7BFB 62FB 549 | RC17 LDX 2 -5 MINUS NO. OF WDS TO SHIFT K0605140 7BFC 10A0 550 | SLT 32 CLEAR ACC AND EXTENSION K0605150 7BFD C600 7C6E 551 | LD L2 JANS+1 NEXT MOST SIGNIFICANT WORD K0605160 7BFF 18C1 552 | RTE 1 SHIFT ONE RIGHT K0605170 7C00 D600 7C6E 553 | STO L2 JANS+1 RESTORE K0605180 7C02 18CF 554 | RTE 15 ATTACH LOW BIT TO NEXT WORD K0605190 7C03 7201 555 | MDX 2 1 INCT CNT AND SKIP IF ZERO K0605200 7C04 70F8 556 | MDX RC17+2 BR TO LOAD NEXT WD TO SHIFT K0605210 7C05 7401 7C68 557 | MDX L BIN,1 INCR BINARY EXPONENT AND K0605220 7C07 70A9 558 | MDX RC13 BRANCH TO NORMALIZE IF SKIP K0605230 7C08 70A8 559 | MDX RC13 OR NO SKIP. K0605240 560 | * K0605250 561 | * BINARY EXPONENT RANGE CHECK K0605260 562 | * K0605270 7C09 C05E 563 | RC18 LD BIN BINARY EXPONENT K0605280 7C0A 4C28 7B46 564 | BSC L JBR,+Z BR ERR IF LESS THAN ZERO K0605290 7C0C 9059 565 | S JCO14 DECIMAL 256 K0605300 7C0D 4C10 7B46 566 | BSC L JBR,- BR ERR GREATER THAN 255 K0605310 567 | * K0605320 568 | * CHECK IF EXTENDED PRECISION REQUIRED K0605330 569 | * K0605340 7C0F C400 7A31 570 | RC19 LD L CCWD CONTROL CARD WORD K0605350 7C11 100D 571 | SLA 13 EXTENDED INDR INTO SIGN POS K0605360 7C12 4C10 7C1D 572 | BSC L RC20,- BR NOT EXTENDED PRECISION K0605370 573 | * K0605380 574 | * COMBINE EXTENDED CONSTANT K0605390 575 | * K0605400 7C14 C855 576 | LDD JANS-3 TWO MOST SIGNIFICANT WORDS K0605410 7C15 1881 577 | SRT 1 VACATE SIGN POSITION K0605420 7C16 4820 578 | BSC Z MAKE SIGN PLUS K0605430 7C17 F04C 579 | EOR MASK K0605440 7C18 D851 580 | STD JANS-3 RESTORE MANTISSA PORTION K0605450 7C19 C04E 581 | LD BIN BINARY EXPONENT K0605460 7C1A E849 582 | OR MASK REAL CONSTANT INDICATOR K0605470 7C1B D050 583 | STO JANS-1 STORE EXPONENT-ID WORD K0605480 7C1C 700B 584 | MDX RC21 BR TO CHECK DATA STMNT SW K0605490 585 | * K0605500 586 | * COMBINE STANDARD CONSTANT K0605510 587 | * K0605520 7C1D C84C 588 | RC20 LDD JANS-3 TWO MOST SIGNIFICANT WORDS K0605530 7C1E 1881 589 | SRT 1 VACATE SIGN POSITION K0605540 7C1F 4820 590 | BSC Z MAKE SIGN PLUS K0605550 7C20 F043 591 | EOR MASK K0605560 7C21 18D0 592 | RTE 16 LEAST SIGNIFICANT WD TO ACC K0605570 7C22 E042 593 | AND MASK1 CUT OFF LOWER EIGHT BITS K0605580 7C23 E844 594 | OR BIN EXPONENT INTO LOW 8 BITS K0605590 7C24 18D0 595 | RTE 16 MOST SIGNIFICANT WD TO ACC K0605600 7C25 D844 596 | STD JANS-3 COMPLETED STANDARD CONSTANT K0605610 7C26 C03D 597 | LD MASK REAL CONSTANT INDICATOR K0605620 7C27 D044 598 | STO JANS-1 SYMBOL TABLE ID WORD K0605630 599 | * K0605640 600 | * CHECK FOR OPEN STRING K0605650 601 | * K0605660 7C28 C046 602 | RC21 LD SW7 DATA STMNT SWITCH K0605670 7C29 4C20 7C71 603 | BSC L RC22,Z BR TO OPEN STRING K0605680 604 | * K0605690 605 | * CHECK FOR CONSTANT IN SYMBOL TABLE K0605700 606 | * K0605710 7C2B 6780 7A27 607 | LDX I3 SOFNS START OF NON-STMNT NUMBERS K0605720 7C2D 700E 608 | MDX HACK BR TO CHECK END OF SEARCH K0605730 7C2E C301 609 | LOOP LD 3 1 NEXT SYMBOL TABLE ENTRY K0605740 7C2F 903A 610 | S JANS-3 FIRST HALF OF CONSTANT K0605750 7C30 4820 611 | BSC Z SKIP NEXT IF EQUAL K0605760 7C31 7009 612 | MDX EAT BR NOT EQUAL - CONTINUE K0605770 7C32 C302 613 | LD 3 2 SECOND HALF OF TABLE ENTRY K0605780 7C33 9037 614 | S JANS-2 SECOND HALF OF CONSTANT K0605790 7C34 4C20 7C3B 615 | BSC L EAT,Z BR NOT EQUAL - CONTINUE K0605800 7C36 C300 616 | LD 3 0 SYMBOL TABLE ID WORD K0605810 7C37 9034 617 | S JANS-1 CHK LOW 8 EQUAL (EXPONENT K0605820 7C38 1008 618 | SLA 8 IF EXTENDED PRECISION). K0605830 7C39 4C18 7C71 619 | BSC L RC22,+- BR IF CONSTANT FOUND K0605840 7C3B 73FD 620 | EAT MDX 3 -3 DECR TABLE SEARCH ADDRESS K0605850 7C3C 6B33 621 | HACK STX 3 SAVE INDEX REGISTER 3 TEMPORARY K0605860 7C3D C032 622 | LD SAVE CURRENT SEARCH ADDRESS K0605870 7C3E 9400 7A2A 623 | S L EOFST END OF SYMBOL TABLE ADDRESS K0605880 7C40 4820 624 | BSC Z SKIP NEXT IF END OF SEARCH K0605890 7C41 70EC 625 | MDX LOOP BR TO CONTINUE SEARCH K0605900 626 | * K0605910 627 | * PUT CONSTANT IN SYMBOL TABLE K0605920 628 | * K0605930 7C42 C029 629 | LD JANS-1 ID WORD K0605940 7C43 D300 630 | STO 3 0 SYMBOL TABLE ID WORD K0605950 7C44 C026 631 | LD JANS-2 LEAST SIGNIFICANT HALF CON K0605960 7C45 D302 632 | STO 3 2 K0605970 7C46 C023 633 | LD JANS-3 MOST SIGNIFICANT HALF CON K0605980 7C47 D301 634 | STO 3 1 K0605990 7C48 74FD 7A2A 635 | MDX L EOFST,-3 DECR END OF STRING ADDRESS K0606000 7C4A 74FD 7A28 636 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0606010 7C4C 74FD 7A29 637 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0606020 638 | * K0606030 639 | * CHECK FOR SYMBOL TABLE OVERLAP K0606040 640 | * K0606050 7C4E C400 7A2A 641 | LD L EOFST END OF SYMBOL TABLE ADDRESS K0606060 7C50 8400 7CFA 642 | A L TWO TWO K0606070 7C52 9400 7A25 643 | S L EOFS END OF STRING ADDRESS K0606080 7C54 4C10 7C71 644 | BSC L RC22,- BR IF NO ERROR K0606090 7C56 7401 7A2D 645 | MDX L ERROR,1 SET OVERLAP ERROR ON K0606100 646 | * K0606110 647 | * GO TO NEXT PHASE K0606120 648 | * K0606130 7C58 6580 7C5F 649 | OUT LDX I1 NXTPH+1 LOAD PARAM FOR READING K0606140 7C5A C805 650 | LDD NXTPH+2 NEXT PHASE K0606150 7C5B 4C00 7FBC 651 | BSC L ROL BR TO READ NEXT PHASE K0606160 7C5E 652 | BSS E 0 MAKE ADDR BOUNDARY EVEN K0606170 7C5E 0025 653 | NXTPH DC 37 ID OF NEXT PHASE K0606180 7C5F 654 | BSS 3 LOADER TABLE FOR NEXT PHASE K0606190 655 | * K0606200 656 | * CONSTANTS AND WORK AREA K0606210 657 | * K0606220 7C62 0000 658 | TT DC 0 STATEMENT POINTER TEMPORARY K0606230 7C64 659 | BSS E 0 MAKE ADDR BOUNDARY EVEN K0606240 7C64 8000 660 | MASK DC /8000 SIGN BIT CONSTANT K0606250 7C65 FF00 661 | MASK1 DC /FF00 EXPONENT BIT MASK K0606260 7C66 0100 662 | JCO14 DC 256 EXPONENT LIMIT CONSTANT K0606270 7C67 0003 663 | JCO16 DC 3 SYMBOL TABLE MULTIPLE CON K0606280 7C68 0000 664 | BIN DC 0 BINARY EXPONENT K0606290 7C69 0000 665 | DC 0 FIVE K0606300 7C6A 0000 666 | DC 0 WORD K0606310 7C6B 0000 667 | DC 0 REAL K0606320 7C6C 0000 668 | DC 0 CONSTANT K0606330 7C6D 0000 669 | JANS DC 0 BUFFER K0606340 7C6E 0000 670 | S DC 0 STMNT POINTER TEMPORARY K0606350 7C6F 0000 671 | SW7 DC *-* OPEN STRING SWITCH K0606360 7C70 0000 672 | SAVE DC 0 INDEX REGISTER 3 TEMPORARY K0606370 673 | * K0606380 674 | * CHECK TO OPEN STRING K0606390 675 | * K0606400 7C71 C0F0 676 | RC22 LD TT CURRENT STMNT POINTER K0606410 7C72 D013 677 | STO RC22A+1 K0606420 7C73 7404 7C62 678 | MDX L TT,4 INCR STMNT POINTER K0606430 7C75 C0F9 679 | LD SW7 DATA STMNT SWITCH K0606440 7C76 4C18 7C85 680 | BSC L RC22A,+- BR IF NOT DATA STMNT K0606450 7C78 7401 7C62 681 | MDX L TT,1 ADJUST IT FOR 5 OR 6 WORDS K0606460 7C7A C400 7A31 682 | LD L CCWD DEPENDING ON WHETHER K0606470 7C7C 100D 683 | SLA 13 PRECISION IS EXTENDED OR K0606480 7C7D 4C10 7C81 684 | BSC L *+2,- STANDARD. K0606490 7C7F 7401 7C62 685 | MDX L TT,1 INCR ONE MORE FOR EXTENDED K0606500 7C81 C0E0 686 | LD TT CURRENT STRING POINTER K0606510 7C82 90EB 687 | S S NEXT STMNT ADDR K0606520 7C83 4C30 7CB5 688 | BSC L OPEN,-Z BR TO OPEN STRING IF PLUS K0606530 7C85 6500 0000 689 | RC22A LDX L1 *-* CURRENT STMNT POINTER K0606540 7C87 C0E7 690 | LD SW7 DATA STMNT SWITCH K0606550 7C88 4C20 7CDC 691 | BSC L DATA,Z BR IF DATA STMNT K0606560 692 | * K0606570 693 | * PUT CONSTANT AND OPERATOR ON STRING K0606580 694 | * K0606590 7C8A C06B 695 | LD CONOP OPERATOR K0606600 7C8B D101 696 | STO 1 1 STORE ON STRING K0606610 7C8C 6BE3 697 | STX 3 SAVE REGISTER 3 TO TEMPORARY K0606620 7C8D C400 7A26 698 | LD L SOFST START OF SYMBOL TABLE ADDR K0606630 7C8F 90E0 699 | S SAVE CURRENT SYMBOL TBL ADDRESS K0606640 7C90 1890 700 | SRT 16 FORM NORMAL DIVIDEND K0606650 7C91 AC00 7C67 701 | D L JCO16 THREE K0606660 7C93 8063 702 | A SIGN1 SYMBOL TABLE POINTER K0606670 7C94 D102 703 | STO 1 2 STORE ON STRING K0606680 7C95 7103 704 | MDX 1 3 MOVE STMNT POINTER K0606690 705 | * K0606700 706 | * CHECK IF STATEMENT CLOSURE REQUIRED K0606710 707 | * K0606720 7C96 C0CB 708 | RC22B LD TT CURRENT STMNT POINTER K0606730 7C97 90D6 709 | S S NEXT STMNT ADDRESS K0606740 7C98 4C10 7CAD 710 | BSC L REDOS,- BR IF NO CLOSURE REQUIRED K0606750 711 | * K0606760 712 | * CLOSE UP STATEMENT K0606770 713 | * K0606780 7C9A D05D 714 | STO NUMB NUMBER OF WORDS TO CLOSE K0606790 7C9B 6680 7C6E 715 | NUMM LDX I2 S ADDR FIRST WD AFTER GAP K0606800 7C9D C2FF 716 | LD 2 -1 NEXT WD TO MOVE BACK K0606810 7C9E 905C 717 | S SEMIC SEMICOLON K0606820 7C9F 4C18 7CA6 718 | BSC L OUTT,+- BR TO END CLOSURE IF ZERO K0606830 7CA1 C2FF 719 | LD 2 -1 MOVE WORD TO CLOSE STMNT K0606840 7CA2 D100 720 | STO 1 0 K0606850 7CA3 7101 721 | MDX 1 1 INCR STMNT POINTER K0606860 7CA4 7201 722 | MDX 2 1 INCR CLOSE POINTER K0606870 7CA5 70F7 723 | MDX NUMM+2 BR TO CONTINUE CLOSING K0606880 7CA6 8054 724 | OUTT A SEMIC SEMICOLON K0606890 7CA7 D100 725 | STO 1 0 MOVE LAST WORD K0606900 7CA8 7401 7A6D 726 | MDX L SW6,1 SET STRING CLOSURE SW ON K0606910 7CAA C04E 727 | LD CNT ADJUST STMNT WORD COUNT K0606920 7CAB 904C 728 | S NUMB BY THE AMOUNT OF CLOSURE K0606930 7CAC D04C 729 | STO CNT AND RESTORE. K0606940 730 | * K0606950 731 | * INITIALIZE POINTER K0606960 732 | * K0606970 7CAD 6580 7C62 733 | REDOS LDX I1 TT CURRENT STMNT POINTER K0606980 7CAF 71FF 734 | MDX 1 -1 K0606990 7CB0 69B1 735 | STX 1 TT SAVE IN TEMPORARY K0607000 7CB1 7401 7A6F 736 | MDX L SW16,1 SET SW16 NOT FIRST CONSTANT K0607010 7CB3 4C00 7AB8 737 | BSC L Z3 BR TO LOOK FOR OPERATOR K0607020 738 | * K0607030 739 | * OPEN STATEMENT K0607040 740 | * K0607050 7CB5 6580 7A25 741 | OPEN LDX I1 EOFS END OF STRING ADDRESS K0607060 7CB7 6680 7A25 742 | LDX I2 EOFS K0607070 7CB9 D001 743 | STO *+1 NUMBER OF WORDS TO OPEN K0607080 7CBA 7600 0000 744 | MDX L2 *-* INCR BY NO. OF WDS TO OPEN K0607090 7CBB 745 | OPAMT EQU *-1 LABEL FOR ADDR LAST COMMAND K0607100 7CBC 6E00 7A25 746 | STX L2 EOFS NEW END OF STRING ADDRESS K0607110 7CBE C400 7A25 747 | LD L EOFS K0607120 7CC0 90A1 748 | S TT CURRENT STMNT POINTER K0607130 7CC1 D001 749 | STO *+1 NUMBER OF WORDS TO MOVE K0607140 7CC2 6700 0000 750 | LDX L3 *-* K0607150 7CC4 7302 751 | MDX 3 2 K0607160 7CC5 C100 752 | LD 1 0 MOVE STRING TO OPEN K0607170 7CC6 D200 753 | STO 2 0 K0607180 7CC7 71FF 754 | MDX 1 -1 DECR MOVE FROM ADDR K0607190 7CC8 72FF 755 | MDX 2 -1 DECR MOVE TO ADDR K0607200 7CC9 73FF 756 | MDX 3 -1 DECR NO. OF WDS TO MOVE K0607210 7CCA 70FA 757 | MDX *-6 BR TO CONTINUE OPENING K0607220 7CCB C480 7A61 758 | LD I IDSAV STMNT ID WORD K0607230 7CCD 1882 759 | SRT 2 K0607240 7CCE 80EC 760 | A OPAMT NO. WDS ADDED TO STMNT K0607250 7CCF 1082 761 | SLT 2 K0607260 7CD0 D480 7A61 762 | STO I IDSAV UPDATED STMNT ID WORD K0607270 763 | * K0607280 764 | * CHECK FOR OVERLAP ERROR K0607290 765 | * K0607300 7CD2 C400 7A25 766 | LD L EOFS END OF STRING ADDRESS K0607310 7CD4 9400 7A2A 767 | S L EOFST END OF SYMBOL TABLE K0607320 7CD6 4C08 7C85 768 | BSC L RC22A,+ BR IF NO OVERLAP ERROR K0607330 7CD8 7401 7A2D 769 | MDX L ERROR,1 SET OVERLAP ERROR ON K0607340 7CDA 4C00 7C58 770 | BSC L OUT BR TO READ NEXT PHASE K0607350 771 | * K0607360 772 | * CHECK PRECISION OF CONSTANT K0607370 773 | * K0607380 7CDC C400 7A31 774 | DATA LD L CCWD CONTROL CARD WORD K0607390 7CDE 100D 775 | SLA 13 PRECISION BIT TO SIGN POS K0607400 7CDF 4C10 7CEC 776 | BSC L DATA1,- BR IF STANDARD PRECISION K0607410 777 | * K0607420 778 | * PLACE EXTENDED CONSTANT ON STRING K0607430 779 | * K0607440 7CE1 C08A 780 | LD JANS-1 BINARY EXPONENT AND ID K0607450 7CE2 F081 781 | EOR MASK REMOVE REAL CONSTANT TAG K0607460 7CE3 D102 782 | STO 1 2 BINARY EXPONENT ONLY K0607470 7CE4 C085 783 | LD JANS-3 MOST SIGNIFICANT HALF CON K0607480 7CE5 D103 784 | STO 1 3 K0607490 7CE6 C084 785 | LD JANS-2 LEAST SIGNIFICANT HALF CON K0607500 7CE7 D104 786 | STO 1 4 K0607510 7CE8 C00D 787 | LD CONOP OPERATOR K0607520 7CE9 D101 788 | STO 1 1 PLACE ON STRING K0607530 7CEA 7105 789 | MDX 1 5 INCR STMNT POINTER K0607540 7CEB 70AA 790 | MDX RC22B BR TO CHK IF CLOSE REQUIRED K0607550 791 | * K0607560 792 | * PLACE STANDARD CONSTANT ON STRING K0607570 793 | * K0607580 7CEC C400 7C6A 794 | DATA1 LD L JANS-3 MOST SIGNIFICANT HALF CON K0607590 7CEE D102 795 | STO 1 2 K0607600 7CEF C400 7C6B 796 | LD L JANS-2 LEAST SIGNIFICANT HALF CON K0607610 7CF1 D103 797 | STO 1 3 K0607620 7CF2 C003 798 | LD CONOP OPERATOR K0607630 7CF3 D101 799 | STO 1 1 PLACE ON STRING K0607640 7CF4 7104 800 | MDX 1 4 INCR STMNT POINTER K0607650 7CF5 70A0 801 | MDX RC22B BR TO CHK IF CLOSE REQUIRED K0607660 802 | * K0607670 803 | * CONSTANTS AND WORK AREA K0607680 804 | * K0607690 7CF6 005E 805 | CONOP DC /5E CONSTANT OPERATOR K0607700 7CF7 8001 806 | SIGN1 DC /8001 SYMBOL TABLE PT CONSTANT K0607710 7CF8 0000 807 | NUMB DC 0 NO. OF WDS TO CLOSE TEMP K0607720 7CF9 0000 808 | CNT DC 0 NO. OF WDS IN STMNT TEMP K0607730 7CFA 0002 809 | TWO DC 2 DECIMAL TWO CONSTANT K0607740 7CFB 001E 810 | SEMIC DC /001E SEMICOLON CONSTANT K0607750 811 | * K0607760 812 | * CLOSE UP STRING K0607770 813 | * K0607780 7CFC 69FB 814 | CLSUP STX 1 NUMB CURRENT STMNT ADDRESS K0607790 7CFD C0FA 815 | LD NUMB K0607800 7CFE 80FA 816 | A CNT NO. OF WORDS IN STMNT K0607810 7CFF D001 817 | STO *+1 K0607820 7D00 6600 0000 818 | X2 LDX L2 0 ADDR NEXT STMNT ON STRING K0607830 7D02 C400 7A25 819 | LD L EOFS END OF STRING ADDR K0607840 7D04 90FC 820 | S X2+1 ADDR OF NEXT STMNT K0607850 7D05 D001 821 | STO *+1 K0607860 7D06 6700 0000 822 | LDX L3 0 K0607870 7D08 7301 823 | MDX 3 1 NO. OF WORDS TO MOVE K0607880 7D09 C200 824 | LOOPY LD 2 0 NEXT WD TO MOVE TO CLOSE K0607890 7D0A D100 825 | STO 1 0 CLOSE UP STRING K0607900 7D0B 7201 826 | MDX 2 1 INCR MOVE FROM ADDR K0607910 7D0C 7101 827 | MDX 1 1 INCR MOVE TO ADDR K0607920 7D0D 73FF 828 | MDX 3 -1 DECR WDS TO MOVE COUNTER K0607930 7D0E 70FA 829 | MDX LOOPY BR TO CONTINUE CLOSING K0607940 7D0F 6D00 7A25 830 | STX L1 EOFS NEW END OF STRING ADDRESS K0607950 7D11 6580 7CF8 831 | LDX I1 NUMB RESTORE CURRENT STMNT ADDR K0607960 7D13 74FF 7A25 832 | MDX L EOFS,-1 ADJUST END OF STRING ADDR K0607970 7D15 C480 7A61 833 | LD I IDSAV STMNT ID WORD- ADJUST NORM K0607980 7D17 1882 834 | SRT 2 RIGHT JUSTIFY NORM K0607990 7D18 90E0 835 | S CNT REDUCE NORM BY CLOSE AMOUNT K0608000 7D19 1082 836 | SLT 2 REPOSITION TO NORMAL FORM K0608010 7D1A D480 7A61 837 | STO I IDSAV RESTORE STMNT ID WORD K0608020 7D1C 7101 838 | MDX 1 1 INCR STMNT POINTER K0608030 7D1D 1010 839 | SLA 16 CLEAR ACCUMULATOR K0608040 7D1E D0DA 840 | STO CNT ZERO CNT K0608050 7D1F D400 7A6D 841 | STO L SW6 ZERO STRING CLOSURE SWITCH K0608060 7D21 4C00 7A3E 842 | BSC L ORGIN+2 BR TO INITIALIZE PHASE K0608070 843 | * K0608080 844 | * CONSTANTS AND WORK AREA K0608090 845 | * K0608100 7D23 000A 846 | JN7 DC 10 DECIMAL TEN MPY CONSTANT K0608110 7D24 847 | BSS E 0 MAKE ADDRESS BOUNDARY EVEN K0608120 7D24 0000 848 | JCO20 DC 0 PARTIAL PRODUCT TEMPORARY K0608130 7D25 0000 849 | DC 0 PARTIAL PRODUCT TEMPORARY K0608140 7D26 0000 850 | QCON1 DC 0 CHARACTER UNPACK TEMPORARY K0608150 7D27 0000 851 | DC 0 CHARACTER UNPACK TEMPORARY K0608160 7D28 0000 852 | QCON2 DC 0 NEXT CHARACTER TEMPORARY K0608170 7D29 7E00 853 | QSIGN DC /7E00 6 BIT CHARACTER MASK K0608180 7D29 854 | QCON3 EQU QSIGN K0608190 7D2A 0000 855 | SW12 DC 0 WORD IN BUFFER SWITCH K0608200 7D2B 0000 856 | SW14 DC 0 FIRST OF TWO WDS SWITCH K0608210 7D2C 0000 857 | ABT DC 0 CHARACTER POSITION POINTER K0608220 858 | * K0608230 859 | * SUBROUTINE TO GET CHARACTERS K0608240 860 | * K0608250 7D2D 0000 861 | GET DC 0 RETURN ADDRESS K0608260 7D2E 7401 7B2A 862 | MDX L GCNT,1 INCR CONSTANT CHARACTER CNT K0608270 7D30 C0F9 863 | LD SW12 WORDS IN BUFFER SWITCH K0608280 7D31 4C20 7D4F 864 | BSC L QAA,Z BR IF WORDS IN BUFFER K0608290 7D33 6202 865 | QAB LDX 2 2 SET INDEX REG TO 2 K0608300 7D34 6AF7 866 | STX 2 ABT CHARACTER POINTER EQUAL 2 K0608310 7D35 C100 867 | LD 1 NEXT STMNT WORD K0608320 7D36 4C10 7D4D 868 | BSC L QAC,- BR IF OPERATOR K0608330 7D38 7401 7D2A 869 | MDX L SW12,1 SET SW12 ON, GET NEXT 2 WD K0608340 7D3A C101 870 | LD 1 1 LAST HALF OF NEXT 2 WD K0608350 7D3B 18D0 871 | RTE 16 SHIFT TO EXTENSION K0608360 7D3C 1081 872 | SLT 1 SHIFT OUT NON-CHARACTER BIT K0608370 7D3D C100 873 | LD 1 FIRST HALF OF NEXT 2 WD K0608380 7D3E D8E7 874 | STD QCON1 TEMPORARY K0608390 7D3F 7101 875 | MDX 1 1 MOVE POINTER K0608400 7D40 C8E5 876 | QAE LDD QCON1 CHARACTER BUFFER K0608410 7D41 E0E7 877 | AND QSIGN EXTRACT NEXT CHARACTER K0608420 7D42 4C18 7D57 878 | BSC L QAG,+- BR IF NO CHARACTER K0608430 7D44 C8E1 879 | SQAG LDD QCON1 CHARACTER BUFFER K0608440 7D45 D0E2 880 | STO QCON2 HIGH WORD K0608450 7D46 1086 881 | SLT 6 SHIFT OFF HIGH CHARACTER K0608460 7D47 D8DE 882 | STD QCON1 RESTORE TO BUFFER K0608470 7D48 C0DF 883 | LD QCON2 HIGH WORD K0608480 7D49 E0DF 884 | AND QCON3 EXTRACT NEXT CHARACTER K0608490 7D4A 1809 885 | SRA 9 RIGHT JUSTIFY CHARACTER K0608500 7D4B 4C80 7D2D 886 | QAD BSC I GET RETURN WITH CHAR IN ACC K0608510 7D4D 7101 887 | QAC MDX 1 1 MOVE STMNT POINTER K0608520 7D4E 70FC 888 | MDX QAD BR TO RETURN K0608530 7D4F 74FF 7D2C 889 | QAA MDX L ABT,-1 DECR CHAR POINTER K0608540 7D51 70EE 890 | MDX QAE BR TO GET NEXT CHAR IF ANY K0608550 7D52 7101 891 | MDX 1 1 MOVE POINTER K0608560 7D53 C0D7 892 | LD SW14 FIRST OF 2 WORD SWITCH K0608570 7D54 4C18 7D5B 893 | BSC L QAF,+- BR IF WORKING ON FIRST OF 2 K0608580 7D56 71FF 894 | QAH MDX 1 -1 DECR STMNT POINTER K0608590 7D57 1010 895 | QAG SLA 16 CLEAR ACC K0608600 7D58 D0D2 896 | STO SW14 SET SW14 TO FIRST OF TWO K0608610 7D59 D0D0 897 | STO SW12 SET SW12 NO WDS IN BUFFER K0608620 7D5A 70D8 898 | MDX QAB BR TO SET CHAR POINTER =2 K0608630 7D5B C1FF 899 | QAF LD 1 -1 BACK UP PT TO OPERATOR K0608640 7D5C 4C10 7D56 900 | BSC L QAH,- BR TO BACK UP POINTER K0608650 7D5E 6203 901 | LDX 2 3 K0608660 7D5F 6ACC 902 | STX 2 ABT SET CHAR PT =3 K0608670 7D60 7401 7D2B 903 | MDX L SW14,1 SET SW14 TO SECOND OF TWO K0608680 7D62 70DD 904 | MDX QAE BR TO GET NEXT CHAR IF ANY K0608690 905 | * K0608700 906 | * SUBROUTINE TO MULTIPLY 5 WORD K0608710 907 | * CONSTANT BY 10 AND ADD CONTENT OF ACC K0608720 908 | * K0608730 7D63 0000 909 | MULT DC 0 RETURN ADDRESS K0608740 7D64 D0C0 910 | STO JCO20+1 NUMBER TO ADD TO PRODUCT K0608750 7D65 6205 911 | LDX 2 5 NO. WDS TO MPY COUNTER K0608760 7D66 C600 7C68 912 | LD L2 JANS-5 NEXT LEAST SIGNIFICANT WORD K0608770 7D68 A0BA 913 | M JN7 MPY BY 10 K0608780 7D69 4828 914 | BSC +Z SKIP NEXT IF PLUS OR ZERO K0608790 7D6A 80B8 915 | A JN7 ADD 10 K0608800 7D6B 88B8 916 | AD JCO20 ADD MOST HSLF LAST PRODUCT K0608810 7D6C D0B8 917 | STO JCO20+1 STORE MOST SIGNIFICANT 16 K0608820 7D6D 1090 918 | SLT 16 LEAST SIGNIFICANT 16 BITS K0608830 7D6E D600 7C68 919 | STO L2 JANS-5 RESTORE CONSTANT K0608840 7D70 72FF 920 | MDX 2 -1 DECR COUNTER K0608850 7D71 70F4 921 | MDX MULT+3 BR TO CONTINUE MPY K0608860 7D72 4C80 7D63 922 | BSC I MULT RETURN K0608870 923 | * K0608880 924 | * END OF PHASE 06 K0608890 925 | * K0608900 7D74 926 | BSS BPHAR+PHLEN*320-*-1 PATCH AREA 2-9 K0608910 7DF5 0000 927 | DC 0 K0608920 7DF6 928 | END BPHAR-2 K0608930 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $PHSE 0078 88 141 ABT 7D2C 857 866 889 902 AMP 7ADD 314 316 ARITC 7A62 187 157 BACK 7A89 234 242 246 248 250 256 BIN 7C68 664 325 461 529 543 557 563 581 594 BPHAR 7A36 134 926 928 CALLC 7A64 189 161 CALLP 7AAD 266 223 CAP 7A3F 152 CCWD 7A31 108 570 682 774 CLSUP 7CFC 814 291 CNT 7CF9 808 207 727 729 816 835 840 COMMA 7AB2 271 247 COMON 7A2B 102 CONOP 7CF6 805 695 787 798 CPDN1 7AAE 267 226 CPDN2 7AAF 268 229 CSIZE 7A2C 103 DATA 7CDC 774 691 DATA1 7CEC 794 776 DATAC 7A68 193 169 DEC 7BD6 511 385 440 471 473 475 477 482 485 513 DECP 7A6A 195 295 DFCNT 7A33 127 EAT 7C3B 620 612 615 ENDC 7A6C 197 155 EOFS 7A25 96 408 431 643 741 742 746 747 766 819 830 832 EOFST 7A2A 101 623 635 641 767 ERID 7B29 376 415 ERRNO 7B28 375 400 422 ERROR 7A2D 104 142 645 769 EXP 7B26 373 387 391 394 447 472 476 FINDC 7A67 192 167 FNAME 7A2E 105 GCNT 7B2A 377 323 454 862 GET 7D2D 861 326 886 GOON 7AA6 258 253 H001E 7AB5 274 236 H0200 7AB3 272 254 HACK 7C3C 621 608 HE800 7AB6 275 252 IDNRM 7A69 194 179 404 IDSAV 7A61 186 148 176 401 405 758 762 833 837 IDTPE 7A6B 196 154 222 IFC 7A63 188 159 IOCS 7A32 117 259 JANS 7C6D 669 314 478 480 492 502 523 524 528 537 539 551 553 576 580 583 588 596 598 610 614 617 629 631 633 780 783 785 794 796 912 919 JBR 7B46 399 303 396 453 456 468 564 566 JCO10 7BD4 509 495 498 JCO11 7B27 374 388 499 JCO12 7BD5 510 501 JCO14 7C66 662 565 JCO16 7C67 663 701 JCO20 7D24 848 910 916 917 JCON1 7B16 357 327 JCON2 7B17 358 331 JCON3 7B18 359 336 JCON4 7B19 360 341 JCON5 7B1A 361 346 JCON6 7B1B 362 348 JCON7 7B1C 363 395 JCON8 7B1D 364 460 JCON9 7B1E 365 414 417 465 467 JDIV 7BC3 492 504 JN7 7D23 846 913 915 L1 7A94 243 239 L2 7A99 247 244 LCON1 7B1F 366 419 LOOP 7C2E 609 625 LOOPY 7D09 824 829 LPAR 7AB0 269 238 MASK 7C64 660 579 582 591 597 781 MASK1 7C65 661 593 MEMRY 8000 85 86 87 MOVE 7A58 176 170 432 MULT 7D63 909 382 518 921 922 NUMB 7CF8 807 714 728 814 815 831 NUMM 7C9B 715 723 NXID 7A5E 181 180 NXTPH 7C5E 653 137 649 650 OPAMT 7CBB 745 760 OPEN 7CB5 741 688 ORG 7A23 94 ORGIN 7A3C 147 182 293 842 OUT 7C58 649 143 156 770 OUTT 7CA6 724 718 OVERL 7A23 86 90 PHID 0024 91 140 PHLEN 0003 89 926 QAA 7D4F 889 864 QAB 7D33 865 898 QAC 7D4D 887 868 QAD 7D4B 886 888 QAE 7D40 876 890 904 QAF 7D5B 899 893 QAG 7D57 895 878 QAH 7D56 894 900 QCON1 7D26 850 874 876 879 882 QCON2 7D28 852 880 883 QCON3 7D29 854 884 QSIGN 7D29 853 854 877 RC 7ABD 287 284 RC1 7AEE 326 352 384 386 398 441 448 RC10 7B89 452 344 349 RC11 7BA4 469 466 RC12 7BAD 475 470 RC13 7BB1 478 463 474 505 519 530 531 544 545 558 559 RC14 7BD7 513 483 RC15 7BDD 521 481 526 RC16 7BED 535 521 542 RC17 7BFB 549 479 556 RC18 7C09 563 484 RC19 7C0F 570 459 RC2 7B01 338 334 RC20 7C1D 588 572 RC21 7C28 602 584 RC22 7C71 676 603 619 644 RC22A 7C85 689 677 680 768 RC22B 7C96 708 790 801 RC3 7B08 343 339 RC4 7B13 351 347 RC5 7B2B 378 332 RC5A 7B2F 381 436 RC5B 7B32 383 437 RC6 7B38 387 379 434 RC7 7B71 433 329 RC8 7B78 438 337 RC9 7B7E 442 342 RCC 7A70 204 168 RCCSS 7A73 206 172 READC 7A65 190 163 REDOS 7CAD 733 710 REP 7B47 400 262 ROL 7FBC 87 651 RPAR 7AB1 270 243 S 7C6E 670 457 687 709 715 SAVE 7C70 672 621 622 697 699 SEMIC 7CFB 810 287 717 724 SIGN1 7CF7 806 702 SOFGT 7A29 100 637 SOFNS 7A27 98 607 SOFS 7A24 95 147 SOFST 7A26 97 698 SOFXT 7A28 99 636 SORF 7A30 107 258 SQAG 7D44 879 START 7A36 140 SW1 7B21 368 333 383 438 444 SW12 7D2A 855 321 863 869 897 SW14 7D2B 856 324 892 896 903 SW16 7A6F 200 206 298 736 SW1T 7AFA 333 330 SW2 7B22 369 338 378 433 442 462 SW3 7B23 370 343 351 393 443 SW4 7B24 371 350 469 SW5 7B25 372 318 380 435 458 SW6 7A6D 198 290 726 841 SW7 7C6F 671 171 205 602 679 690 SWTCH 7AB4 273 241 245 249 T 7A6E 199 300 301 TILL 7B20 367 397 446 464 TT 7C62 658 302 308 676 678 681 685 686 708 733 735 748 TWO 7CFA 809 455 642 WRITC 7A66 191 165 X 7B15 356 328 335 340 345 381 390 X2 7D00 818 820 Z 7ABB 285 297 Z1 7AC7 294 289 Z3 7AB8 282 286 737 Z33 7AD5 304 299 ZNCPD 7AB7 278 224 227 230 237 260 ZZ 7ACC 298 296
ibm/ibm1130-lib/dmsr2v12/kforph06_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator