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