ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph26.asm
1130 FORTRAN COMPILER PHASE 26
2 | *************************************************** K2600020
3 | * * K2600030
4 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * K2600040
5 | * * K2600050
6 | *FUNCTION/OPERATION- * K2600060
7 | * * TESTS FOR EXTENDED PRECISION AND CHANGES * K2600070
8 | * THE NAME CODES FOR THE AFFECTED SUBROUTINES * K2600080
9 | * TO REFLECT THIS CONDITION * K2600090
10 | * * CONVERTS THE COMPILED STATEMENT STRING TO * K2600100
11 | * OUTPUT CODE AND STORES IT IN THE BUFFER AREA* K2600110
12 | * * PUTS DATA FROM THE BUFFER INTO WORKING * K2600120
13 | * STORAGE ON THE DISK * K2600130
14 | * * K2600140
15 | *INPUT-THE STMNT STRING, SYMBOL TABLE, FCOM AND * K2600150
16 | * THE DISK OUTPUT BUFFER FROM PREVIOUS PHASES * K2600160
17 | * * K2600170
18 | *OUTPUT- * K2600180
19 | * * WORKING STORAGE ON THE DISK CONTAINING * K2600190
20 | * HEADER AND DATA RECORDS, REAL AND INTEGER * K2600200
21 | * CONSTANTS AND OUTPUT FROM DEFINE FILE * K2600210
22 | * STATEMENTS AND THE COMPILED PROGRAM * K2600220
23 | * * K2600230
24 | *EXTERNAL REFERENCES- * K2600240
25 | * SUBROUTINES- * K2600250
26 | * * ROL-A SUBROUTINE TO LOAD THE NEXT PHASE * K2600260
27 | * OF THE COMPILER * K2600270
28 | * * DZ000-DISK WRITE SUBROUTINE * K2600280
29 | * COMMA/DCOM * K2600290
30 | * * $PHSE * K2600300
31 | * * $DBSY * K2600310
32 | * * $LINK * K2600320
33 | * * K2600330
34 | *EXITS- * K2600340
35 | * NORMAL-A CALL TO THE ROL ROUTINE BRINGS IN * K2600350
36 | * THE NEXT PHASE * K2600360
37 | * ERROR-NONE * K2600370
38 | * * K2600380
39 | *TABLES/WORK AREAS * K2600390
40 | * * INPUT STRING * K2600400
41 | * * SYMBOL TABLE * K2600410
42 | * * FCOM * K2600420
43 | * * DISK OUTPUT BUFFER * K2600430
44 | * * K2600440
45 | *ATTRIBUTES-N/A * K2600450
46 | * * K2600460
47 | *NOTES- * K2600470
48 | * PROGRAM HEADER CONSISTS OF 12 WORDS IN THE * K2600480
49 | * BUFFER AREA * K2600490
50 | * WD 1 RESERVED * K2600500
51 | * WD 2 RESERVED * K2600510
52 | * WD 3 INTEGER TYPE, PRECISION * K2600520
53 | * WD 4 OBJECT TIME PROGRAM LENGTH * K2600530
54 | * WD 5 LENGTH OF COMMON * K2600540
55 | * WD 6 WD SIZE OF PROGRAM HEADER - 9 (=3) * K2600550
56 | * WD 7 VAR. AREA WHEN NO DEFINE FILE STMNT * K2600560
57 | * WD 8 LENGTH OF PROGRAM IN DISK BLOCKS * K2600570
58 | * WD 9 NUMBER OF FILES DEFINED * K2600580
59 | * WD10 PROGRAM NAME * K2600590
60 | * WD11 PROGRAM NAME * K2600600
61 | * WD12 EXECUTION ADDRESS * K2600610
62 | * DATA HEADER CONSISTS OF 4 WORDS (WD13-WD16) * K2600620
63 | * WD13 ADDRESS OF NEXT DATA * K2600630
64 | * WD 14 NUMBER OF DATA WORDS * K2600640
65 | * WD15 FIRST INDICATOR WORD * K2600650
66 | * WD16 FIRST DATA WORD * K2600660
67 | * EVERY 8 WORDS OF DATA OR PROGRAM OUTPUT IS * K2600670
68 | * PRECEDED BY AN INDICATOR WORD CONTAINING TWO * K2600680
69 | * BITS OF INFORMATION FOR EACH OF THE SUCCESSIVE* K2600690
70 | * EIGHT WORDS. THE TWO BITS HAVE THE FOLLOWING * K2600700
71 | * MEANINGS. * K2600710
72 | * 00 = ABSOLUTE INSTRUCTION OR DATA * K2600720
73 | * 01 = RELOCATABLE INSTRUCTION * K2600730
74 | * 10 = ONE WORD CALL * K2600740
75 | * 11 = TWO WORD CALL * K2600750
76 | * * K2600760
77 | *************************************************** K2600770
1130 FORTRAN COMPILER PHASE 26
79 | * * K2600790
80 | *** NOTE- COMMENTS BEGIN IN COL. 44 *** K2600800
81 | * K2600810
82 | ABS K2600820
83 | * OUTPUT2 K2600830
84 | * K2600840
85 | * SYSTEM EQUATES K2600850
86 | * K2600860
8000 87 | MEMRY EQU /8000 K2600870
0078 88 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K2600880
7FBC 89 | ROL EQU MEMRY-68 LOC OF PROG TO RD NXT PH K2600890
7A23 90 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K2600900
0038 91 | PHID EQU 56 ID NUMBER THIS PHASE K2600910
00F2 92 | DZ000 EQU /F2 DISKZ ENTRY POINT K2600920
00EE 93 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BUSY K2600930
0039 94 | $LINK EQU /39 CALL LINK ENTRY POINT K2600940
0003 95 | PHLEN EQU 3 NO SECTORS THIS PHASE K2600945
96 | * K2600950
7A23 97 | ORG OVERL K2600960
98 | * K2600970
99 | * FORTRAN COMMUNICATION K2600980
7A23 100 | ORG BSS 1 ORIGIN ADDRESS 2-4 K2600990
7A24 101 | SOFS BSS 1 START OF STRING K2601000
7A25 102 | EOFS BSS 1 END OF STRING K2601010
7A26 103 | SOFST BSS 1 START OF SYMBOL TABLE K2601020
104 | * AT END OF THIS PHASE K2601030
105 | * PROGRAM LENGTH, DISKBYTES K2601040
106 | * MOVED TO /005C BY RECOVERY PHASE) K2601050
7A27 107 | SOFNS BSS 1 PROGR LENGTH AT OBJECT TIME K2601060
108 | * (MOVED TO /005F BY RECOVERY PHASE) K2601070
7A28 109 | SOFXT BSS 1 SIZE OF WORK AREA K2601080
7A29 110 | SOFGT BSS 1 SIZE OF CONSTANTS AREA K2601090
7A2A 111 | EOFST BSS 1 END OF SYMBOL TABLE K2601100
7A2B 112 | COMON BSS 1 ENTRY POINT K2601110
7A2C 113 | CSIZE BSS 1 SIZE OF COMMON K2601120
7A2D 114 | ERROR BSS 1 OVERLAP ERROR K2601130
7A2E 115 | FNAME BSS 1 K2601140
7A2F 116 | BSS 1 K2601150
7A30 117 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K2601160
7A31 118 | CCWD BSS 1 CONTROL CARD WORD K2601170
119 | * BIT 15 TRANSFER TRACE K2601180
120 | * BIT 14 ARITHMETIC TRACE K2601190
121 | * BIT 13 EXTENDED PRECISION K2601200
122 | * BIT 12 LIST SYMBOL TABLE K2601210
123 | * BIT 11 LIST SUBPROGRAM NAMES K2601220
124 | * BIT 10 LIST SOURCE PROGRAM K2601230
125 | * BIT 9 ONE WORD INTEGERS K2601240
126 | * BIT 8 ORIGIN 2-4 K2601250
7A32 127 | IOCS BSS 1 IOCS CONTROL CARD WORD K2601260
128 | * BIT 15 CARD K2601270
129 | * BIT 14 PAPER TAPE K2601280
130 | * BIT 13 TYPEWRITER K2601290
131 | * BIT 12 1403 PRINTER K2601300
132 | * BIT 11 2501 READER K2601310
133 | * BIT 10 KEYBOARD K2601320
134 | * BIT 9 1442 PUNCH K2601330
135 | * BIT 8 DISK K2601340
136 | * BIT 7 1132 PRINTER K2601350
137 | * BIT 3 PLOTTER K2601360
138 | * BIT 1 UNFORMATTED DISK K2601370
7A33 139 | DFCNT BSS 1 FILE COUNT K2601380
140 | * K2601390
141 | * K2601400
142 | * END OF FORTRAN COMMUNICATION K2601410
143 | * AREA K2601420
144 | *************************************************** K2601430
145 | * K2601440
146 | * K2601450
147 | * BUFFER COMMUNICATIONS AREA K2601460
148 | * AND BUFFER K2601470
149 | * K2601480
150 | * K2601490
151 | * RESERVED FOR COMMUNICATION K2601500
152 | * BETWEEN PHASES K2601510
153 | * DISKOUT1 AND DISKOUT2 K2601520
154 | * AS FOLLOWS K2601530
155 | * K2601540
7A34 156 | BSS 4 K2601550
157 | * K2601560
7A38 158 | BSS E 0 K2601570
7A38 159 | BUFCT BSS 1 BUFFERCOUNT K2601580
7A39 160 | BUFPT BSS 1 BUFFERPOINTER K2601590
7A3A 161 | INCT BSS 1 INDICATOR COUNTER K2601600
7A3B 162 | INPT BSS 1 INDICATOR POINTER K2601610
7A3C 163 | DHDRA BSS 1 DATAHEADER-ADDRESS K2601620
7A3D 164 | LOCTR BSS 1 LOCATION COUNTER K2601630
7A3E 165 | PRLGT BSS 1 PROGR LENGTH K2601640
7A3F 166 | BSS 1 NOT YET USED K2601650
7A40 167 | BSS 1 SECTOR COUNT K2601660
7A41 168 | BSS 1 SCRATCH SECTOR ADDR K2601670
7A42 169 | BUFF BSS 340 212 K2601680
7A42 170 | WD1 EQU BUFF K2601690
7A43 171 | WD2 EQU BUFF+1 K2601700
7A44 172 | WD3 EQU BUFF+2 K2601710
173 | * K2601720
174 | * K2601730
7B96 175 | ORG BUFF+340 ORIGIN FOR THIS PHASE 212 K2601740
7B98 176 | BPHAR EQU *+2 K2601750
7B96 0000 177 | DC 0 LOADER WORK AREA K2601760
7B97 FFC8 178 | DC -56 -PHASE ID FOR SLET LOOKUP K2601770
7B98 038A 179 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K2601780
7B99 0001 180 | DC 1 ONE ENTRY TO BE SET BY LDR K2601790
7B98 181 | ORG *-2 K2601800
182 | * K2601810
7B98 4C00 7F13 183 | NEQ BSC L ENT BR TO INITIALIZE PROGRAM K2601820
184 | * K2601830
185 | * INITIALIZTRANSFER VECTOR POINTER K2601840
7B9A 1000 186 | START SLA 0 NOP K2601850
7B9B 6700 7CFE 187 | LDX L3 ZERO SET UP POINTER TO CONSTANTS K2601860
188 | * K2601870
7B9D C400 7A31 189 | LD L CCWD IS IT ABSOLUTE 2-4 K2601880
7B9F 1008 190 | SLA 8 COMPILATION 2-4 K2601890
7BA0 4828 191 | BSC +Z NO - SKIP 2-4 K2601900
7BA1 D328 192 | STO 3 ORGSW-Z YES - SET ORIGIN SW 2-4 K2601910
193 | * K2601920
194 | * TEST IF EXTENDED PRECISION K2601930
195 | * K2601940
7BA2 1005 196 | SLA 5 SHIFT EXTENDED PREC INDR K2601950
7BA3 4C10 7BBD 197 | BSC L Q1011,- BR IF NOT EXTENDED PREC K2601960
198 | * K2601970
199 | * CHANGE SYSTEM SUBROUTINE NAMES K2601980
200 | * SO THAT APPLICABLE NAMES BEGIN K2601990
201 | * WITH E RATHER THAN WITH F K2602000
202 | * K2602010
203 | * CHANGE SUBROUTINE NAMES K2602020
204 | * FAXIX THROUGH FADD K2602030
205 | * K2602040
7BA5 6124 206 | LDX 1 FAXIX-TABSS+2 K2602050
7BA6 400D 207 | Q1005 BSI FTOE CHANGE NEXT NAME K2602060
7BA7 71FE 208 | MDX 1 -2 DECR COUNT ON NAMES K2602070
7BA8 70FD 209 | MDX Q1005 BR IF INDEX NOT ZERO K2602080
210 | * K2602090
211 | * CHANGE WCHRI TO VCHRI K2602100
212 | * K2602110
7BA9 6146 213 | LDX 1 FCHRI-TABSS+2 K2602120
7BAA 4009 214 | BSI FTOE CHANGE W TO V K2602130
215 | * K2602140
216 | * K2602150
7BAB C304 217 | LD 3 H0004-Z DIFF IN SECOND CHAR K2602160
7BAC D00F 218 | STO DIFF BETWEEN E AND F TO CHG NAMES K2602170
219 | * K2602180
220 | * CHANGE NAMES OF TRACE-ROUTINES K2602190
221 | * TO HAVE SECOND CHARACTER 'E' K2602200
222 | * INSTEAD OF 'F' K2602210
223 | * K2602220
7BAD 612A 224 | LDX 1 FARI-TABSS+2 K2602230
7BAE 4005 225 | BSI FTOE BR TO CHANGE MFAR TO MEAR K2602240
7BAF 612C 226 | LDX 1 FARIX-TABSS+2 K2602250
7BB0 4003 227 | BSI FTOE BR TO CHANGE MFARX TO MEARX K2602260
7BB1 613C 228 | LDX 1 FIF-TABSS+2 K2602270
7BB2 4001 229 | BSI FTOE BR TO CHANGE SFIX TO SEIX K2602280
7BB3 7009 230 | MDX Q1011 BR PAST SUBROUTINE K2602290
231 | * K2602300
232 | * K2602310
233 | * SUBROUTINE K2602320
234 | * CHANGE .F. IN 1ST OR 2ND CHARACTER OF K2602330
235 | * NAME INTO .E. K2602340
236 | * (OR E INTO V ETC) K2602350
237 | * (DISPLACEMENT IN NAME LIST = X1) K2602360
238 | * K2602370
7BB4 0000 239 | FTOE DC 0 LINK ENTRY POINT K2602380
7BB5 C500 7E73 240 | LD L1 TABSS-2 LOAD ENTRY FR TBL RLTV XR1 K2602390
7BB7 9004 241 | S DIFF SUBTRACT CHARACTER DIFF K2602400
7BB8 D500 7E73 242 | STO L1 TABSS-2 SAVE NEW NAME K2602410
7BBA 4C80 7BB4 243 | BSC I FTOE RETURN K2602420
244 | * K2602430
245 | * CONSTANTS K2602440
246 | * K2602450
7BBC 0100 247 | DIFF DC /0100 DIFF BETWEEN .E. AND .F. IN K2602460
248 | * FIRST CHARACTER OF A NAME K2602470
249 | * K2602480
7BBD 6580 7A24 250 | Q201A LDX I1 SOFS INITIALIZE INPUT POINTER K2602490
7BBD 251 | Q1011 EQU Q201A K2602500
252 | * K2602510
7BBF 6700 7CFE 253 | LDX L3 ZERO RESTORE CONSTANT POINTER K2602520
254 | * K2602530
7BC1 71FF 255 | MDX 1 -1 K2602540
7BC2 4346 256 | Q2012 BSI 3 INIT-Z INITIALIZE NEXT STATEMENT K2602550
7BC3 C321 257 | LD 3 STOID-Z LOAD STORED ID TYPE K2602560
258 | * K2602570
259 | * SPOT FOR TEST STOP K2602580
7BC4 1000 260 | SLA 0 NOP K2602590
261 | * K2602600
7BC5 9305 262 | S 3 IDFOR-Z TEST FOR FORMAT STATEMENT K2602610
7BC6 4C18 7BD2 263 | BSC L Q2013,+- BR IF FORMAT K2602620
264 | * K2602630
7BC8 9323 265 | S 3 IDDEF-Z TEST FOR DEFINE FILE STMNT K2602640
7BC9 4C18 7BD9 266 | BSC L Q2101,+- BR IF DEFINE FILE K2602650
7BCB 9324 267 | S 3 IDDAT-Z TEST FOR DATA STATEMENT K2602660
7BCC 4C18 7BD9 268 | BSC L Q2101,+- BR IF DATA STATEMENT K2602670
7BCE 9325 269 | S 3 IDCAL-Z TEST FOR CALL LINK/EXIT K2602680
7BCF 4C18 7BDF 270 | BSC L Q2201,+- BR IF CALL LINK/EXIT K2602690
7BD1 7020 271 | MDX Q3011 BR IF NOT ABOVE STMNT TYPES K2602700
272 | * K2602710
273 | * OUTP FORMAT STMT K2602720
7BD2 4329 274 | Q2013 BSI 3 INCPT-Z INCR INPUT POINTER K2602730
7BD3 C100 275 | Q2014 LD 1 0 LOAD STRING WORD K2602740
7BD4 4351 276 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2602750
7BD5 C320 277 | LD 3 WCNT-Z TEST WORD COUNT K2602760
7BD6 4C30 7BD2 278 | BSC L Q2013,Z- BR IF WORD COUNT IS POSITIVE K2602770
7BD8 70E9 279 | MDX Q2012 BR IF COUNTER IS ZERO K2602780
280 | * K2602790
281 | * MOVE POINTER WITHOUT OUTPUT K2602800
282 | * (DATA, DEFINE FILE HAVE ALREADY K2602810
283 | * BEEN OUPUT) K2602820
284 | * K2602830
7BD9 1000 285 | Q2101 SLA 0 NOP K2602840
7BDA 4329 286 | BSI 3 INCPT-Z BR TO INCR I/P POINTER K2602850
7BDB C320 287 | LD 3 WCNT-Z LOAD WORD COUNT K2602860
7BDC 4C30 7BD9 288 | BSC L Q2101,Z- BR IF WORD COUNT IS POSITIVE K2602870
7BDE 70E3 289 | MDX Q2012 BR IF ZERO (END OF STMNT) K2602880
290 | * K2602890
291 | * SPECIAL OUTPUT OF K2602900
292 | * CALL LINK OR CALL EXIT K2602910
293 | * K2602920
294 | * K2602930
295 | * TEST IF CALLLINK OR CALLEXIT K2602940
296 | * K2602950
7BDF C101 297 | Q2201 LD 1 1 LOAD DATA WORD K2602960
7BE0 93F8 298 | S 3 H5B00-Z TEST CALL LINK FLAG K2602970
7BE1 4C20 7BF2 299 | BSC L Q3011,Z BR IF NOT CALL LINK K2602980
300 | * K2602990
301 | * OUTPUT CALL LINK K2603000
7BE3 C400 7E55 302 | Q2211 LD L BSIL OUTPUT .BSI L. K2603010
7BE5 4351 303 | BSI 3 OUABS-Z * K2603020
7BE6 C327 304 | LD 3 CLINK-Z OUTPUT ADDRESS OF LINK K2603030
7BE7 4351 305 | BSI 3 OUABS-Z * K2603040
7BE8 C102 306 | LD 1 2 OUTPUT NAME WORD 1 K2603050
7BE9 1001 307 | SLA 1 * K2603060
7BEA 1802 308 | SRA 2 * K2603070
7BEB 4351 309 | BSI 3 OUABS-Z * K2603080
7BEC C104 310 | LD 1 4 OUTPUT NAME WORD 2 K2603090
7BED 188F 311 | SRT 15 * K2603100
7BEE C102 312 | LD 1 2 * K2603110
7BEF 108F 313 | SLT 15 * K2603120
7BF0 4351 314 | BSI 3 OUABS-Z * K2603130
7BF1 70E7 315 | MDX Q2101 CONTINUE K2603140
316 | * K2603150
317 | * K2603160
318 | * .NXT. K2603170
319 | * PROCESS STATEMENTS OTHER THAN K2603180
320 | * FORMAT, DEFINE FILE, DATA AND K2603190
321 | * CALL LINK/EXIT STATEMENTS K2603200
322 | * K2603210
7BF2 C320 323 | Q3011 LD 3 WCNT-Z LOAD WORD COUNTER K2603220
7BF3 4830 324 | BSC Z- SKIP IF WORDCOUNTER NOT POS K2603230
7BF4 7006 325 | MDX Q3013 BR IF POSITIVE K2603240
7BF5 C321 326 | LD 3 STOID-Z LOAD STORED ID WORD TYPE K2603250
7BF6 9306 327 | S 3 IDEND-Z TEST IF END STATEMENT K2603260
7BF7 4820 328 | BSC Z SKIP IF STORED ID = .END. K2603270
7BF8 70C9 329 | MDX Q2012 BR IF NOT K2603280
330 | * K2603290
7BF9 4C00 7DEC 331 | BSC L OUTER TERMINATE OUTPUT K2603300
332 | * K2603310
333 | * K2603320
7BFB 4329 334 | Q3013 BSI 3 INCPT-Z INCR INPUT POINTER K2603330
7BFC C100 335 | Q3014 LD 1 0 LOAD WORD FROM I/P STRING K2603340
7BFD 4810 336 | BSC - SKIP IF .PACKED. WORD K2603350
7BFE 700E 337 | MDX Q4011 BR IF NOT K2603360
7BFF C100 338 | Q3021 LD 1 0 LOAD WORD FROM I/P STRING K2603370
7C00 E307 339 | AND 3 H7800-Z GET INDEX TO INSTRUCTION TBL K2603380
7C01 4C18 7C09 340 | BSC L Q3023,+- BR IF NO INSTR INCLUDED K2603390
341 | * =WORD CONSISTS OF ADDR ONLY K2603400
7C03 180B 342 | SRA 11 RIGHT JUSTIFY INDEX K2603410
7C04 8308 343 | A 3 CON4B-Z 4-BIT-CONV-TABLE ORIGIN K2603420
7C05 D001 344 | STO Q3022+1 COMPUTE ADDR OF INST IN TBL K2603430
7C06 C400 0000 345 | Q3022 LD L *-* LOAD INST FROM TBL (TAB4) K2603440
7C08 4351 346 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2603450
7C09 C100 347 | Q3023 LD 1 0 LOAD WORD FROM I/P STRING K2603460
7C0A 4330 348 | BSI 3 GETST-Z GET OBJ TIME ADDR FR SYM TBL K2603470
7C0B 4353 349 | BSI 3 OUREL-Z SUBR OUTPUT, ENTRY = RLTV K2603480
7C0C 70E5 350 | MDX Q3011 CONTINUE PROCESSING K2603490
351 | * K2603500
352 | * TEST IF SPECIAL BSC (ONE WHICH IS K2603510
353 | * FOLLOWED BY A RELATIVE ADDRESS). K2603520
354 | * K2603530
7C0D 9309 355 | Q4011 S 3 H5D00-Z .SPEC BSC L. K2603540
7C0E 4818 356 | BSC +- SKIP IF NOT .SPEC BSC L. K2603550
7C0F 700A 357 | MDX Q4021 BR IF SPEC BSC L K2603560
358 | * K2603570
7C10 930B 359 | S 3 HFF00-Z .BSC I1. - .SPEC BSC L. K2603580
7C11 4820 360 | BSC Z SKIP IF .BSC I1. K2603590
7C12 700C 361 | MDX Q4031 BR IF NOT K2603600
7C13 C30A 362 | LD 3 H4D80-Z OBJECT TIME .BSC I1. TO ACC K2603610
7C14 4351 363 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2603620
7C15 4329 364 | BSI 3 INCPT-Z INCREMENT INPUT POINTER K2603630
7C16 C400 7A3D 365 | LD L LOCTR LOCATION COUNTER K2603640
366 | * K2603650
7C18 4355 367 | Q4012 BSI 3 OURNC-Z SUBR OUTPUT, ENTRY=RLTV K2603660
7C19 70D8 368 | MDX Q3011 K2603670
369 | * K2603680
370 | * SPECIAL BSC L ENCOUNTERED K2603690
371 | * IS FOLLOWED BY A RELATIVE ADDRESS K2603700
372 | * RATHER THAN BY A SYMBOL TABLE NAME K2603710
373 | * K2603720
7C1A C30D 374 | Q4021 LD 3 H4C08-Z OBJ TIME .BSC L. TO ACC K2603730
7C1B 4351 375 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2603740
7C1C 4329 376 | BSI 3 INCPT-Z INCR INPUT POINTER K2603750
7C1D C100 377 | LD 1 0 OUTPUT RLTV ADDR FR STRING K2603760
7C1E 70F9 378 | MDX Q4012 BR TO OUTPUT ROUTINE K2603770
379 | * K2603780
380 | * TEST IF .LDX L1. K2603790
381 | * WHICH IS FOLLOWED BY AN ABSOLUTE K2603800
382 | * VALUE AND OUTPUT .LDX L1. FOLLOWED K2603810
383 | * BY THE ABSOLUTE VALUE K2603820
384 | * K2603830
7C1F C100 385 | Q4031 LD 1 0 LOAD WORD FROM I/P STRING K2603840
7C20 93F8 386 | S 3 H5B00-Z SUBTRACT CODE FOR .LDX L1. K2603850
7C21 4820 387 | BSC Z SKIP IF .LDX L1. K2603860
7C22 7008 388 | MDX Q4041 BR IF NOT K2603870
7C23 C400 7E69 389 | LD L LDXL1 OUTPUT .LDX L1. K2603880
7C25 4351 390 | BSI 3 OUABS-Z OUTPUT IN ABS MODE K2603890
7C26 1010 391 | SLA 16 CLEAR ACC K2603900
7C27 9101 392 | S 1 1 CHANGE SIGN OF STRING WD K2603910
7C28 4351 393 | BSI 3 OUABS-Z OUTPUT FOLLOWING WD IN ABS K2603920
7C29 4329 394 | BSI 3 INCPT-Z INCR INPUT POINTER K2603930
7C2A 70C7 395 | MDX Q3011 CONTINUE THROUGH STRING K2603940
396 | * K2603950
397 | * TEST IF .BSC I. K2603960
398 | * (WHICH REQUIRES OUTPUT OF ENTRY ADDR) K2603970
399 | * K2603980
7C2B C100 400 | Q4041 LD 1 0 LOAD WORD FROM I/P STRING K2603990
7C2C 93FE 401 | S 3 H5080-Z SUBTRACT .BSC I. CONSTANT K2604000
7C2D 4C20 7C36 402 | BSC L Q5011,Z BR IF NOT BSC I K2604010
7C2F C3FD 403 | LD 3 H4C80-Z OUTPUT .BSC I. K2604020
7C30 4351 404 | BSI 3 OUABS-Z IN ABSOLUTE MODE K2604030
7C31 C400 7A2B 405 | LD L COMON OUTPUT ENTRY ADDR K2604040
7C33 4355 406 | Q4042 BSI 3 OURNC-Z (ADDR OF OBJECT TIME LINK WD K2604050
7C34 4329 407 | BSI 3 INCPT-Z INCREMENT INPUT POINTER K2604060
7C35 70BC 408 | MDX Q3011 CONTINUE K2604070
409 | * K2604080
410 | * TEST IF TWO-WORD CALL OPERATOR K2604090
7C36 C100 411 | Q5011 LD 1 0 LOAD WORD FROM INPUT STRING K2604100
7C37 E315 412 | AND 3 HFF80-Z TEST BITS 0-8 K2604110
7C38 4820 413 | BSC Z SKIP IF .CALL SUBPROGR. K2604120
7C39 7005 414 | MDX Q7011 BR IF NOT K2604130
415 | * K2604140
416 | * TWO-WORD CALL K2604150
7C3A C101 417 | LD 1 1 LOAD SECOND WORD OF CALL K2604160
7C3B 4330 418 | BSI 3 GETST-Z GET OBJ TIME ADDR (OR NAME) K2604170
7C3C 4359 419 | BSI 3 OULCL-Z SUBR O/P, ENTRY = 2-WD CALL K2604180
7C3D 4329 420 | BSI 3 INCPT-Z INCREMENT INPUT COUNTER K2604190
7C3E 70B3 421 | MDX Q3011 CONTINUE THROUGH STRING K2604200
422 | * K2604210
423 | * TEST IF SYST SUBROUTINE CALL K2604220
7C3F C100 424 | Q7011 LD 1 0 LOAD STRING WORD K2604230
7C40 1001 425 | SLA 1 TEST BIT 1 FOR CALL K2604240
7C41 4828 426 | BSC +Z SKIP IF SYST.CALL K2604250
7C42 7024 427 | MDX Q7021 BR IF NOT K2604260
428 | * K2604270
429 | * OUTPUT SYSTEM SUBROUTINE CALL K2604280
430 | * (ONE-WORD CALL) K2604290
431 | * K2604300
7C43 1807 432 | SRA 7 SHIFT POINTER SYST SUBR TBL K2604310
7C44 830F 433 | A 3 SSTOR-Z COMPUTE ADDRESS IN SYSTEM K2604320
7C45 D001 434 | STO Q7012+1 SUBROUTINE TABLE AND INSERT K2604330
435 | * K2604340
7C46 C400 0000 436 | Q7012 LD L *-* LOAD WD2 FROM SYST SUBR TBL K2604350
7C48 18D0 437 | RTE 16 PUT IN EXTENSION K2604360
7C49 74FF 7C47 438 | MDX L Q7012+1,-1 DECR ADDR SYSTEM SUBR TBL K2604370
7C4B 1000 439 | SLA 0 NOP K2604380
7C4C C480 7C47 440 | LD I Q7012+1 LOAD WD1 FROM SYST SUBR TBL K2604390
7C4E 4357 441 | BSI 3 OUCAL-Z SUBR.OUTPUT,ENTRY = CALL K2604400
442 | * K2604410
443 | * TEST WHETHER OUTPUT SUBR CALL WAS K2604420
444 | * .SUBSC. OR .SUBIN. K2604430
445 | * .FIOAF. OR .FIOAI. K2604440
446 | * ARGUMENTS OF THESE CALLS K2604450
447 | * REQUIRE SPECIAL TREATMENT K2604460
448 | * (SUBROUTINES HAVE BOTH ABSOLUTE K2604470
449 | * AND RELATIVE ARGUMENTS) K2604480
7C4F C100 450 | LD 1 0 LOAD WORD FROM STRING K2604490
7C50 93F6 451 | S 3 H1D00-Z TEST FOR .CALL SUBIN. K2604500
7C51 4C18 7C83 452 | BSC L Q7051,+- BR IF .CALL SUBIN. K2604510
7C53 C100 453 | LD 1 0 LOAD WORD FROM STRING K2604520
7C54 930E 454 | S 3 CSUBS-Z TEST FOR .CALL SUBSC. K2604530
7C55 4C18 7C93 455 | BSC L Q8011,+- BR IF .CALL SUBSC. K2604540
7C57 C100 456 | LD 1 0 LOAD WORD FROM STRING K2604550
7C58 93F4 457 | S 3 M1600-Z TEST FOR .CALL SIOAI. K2604560
7C59 4820 458 | BSC Z SKIP IF .CALL SIOAI. K2604570
7C5A 93F5 459 | S 3 M1680-Z TEST FOR .CALL SIOAF. K2604580
7C5B 4820 460 | BSC Z SKIP IF EITHER SPECIAL CALL K2604590
7C5C 9318 461 | S 3 M2400-Z TEST FOR .CALL SDAF. K2604600
7C5D 4820 462 | BSC Z SKIP IF EITHER SPECIAL CALL K2604610
7C5E 9319 463 | S 3 M2380-Z TEST FOR .CALL SDAI. K2604620
7C5F 4820 464 | BSC Z SKIP IF EITHER SPECIAL CALL K2604630
7C60 931A 465 | S 3 M1E00-Z TEST FOR .CALL UIOAI. K2604640
7C61 4820 466 | BSC Z SKIP IF EITHER SPECIAL CALL K2604650
7C62 931B 467 | S 3 M1E80-Z TEST FOR .CALL UIOAF. K2604660
7C63 4C18 7CA6 468 | BSC L Q8051,+- BR IF ANY OF ABOVE FOUND K2604670
469 | * K2604680
470 | * (NO SPECIAL TREATMENT REQ.) K2604690
7C65 4C00 7BF2 471 | BSC L Q3011 BR TO NEXT ITEM ON STRING K2604700
472 | * K2604710
473 | * NO SYSTEM SUBROUTINE CALLS FOUND K2604720
474 | * TEST NEXT FOR .STX L1. CODE K2604730
475 | * K2604740
7C67 C100 476 | Q7021 LD 1 0 LOAD WORD FROM STRING K2604750
7C68 93FF 477 | S 3 H6200-Z TEST FOR .STX L1. K2604760
7C69 4C18 7C77 478 | BSC L Q7031,+- BR IF 'STX L1' K2604770
479 | * K2604780
480 | * NO SPECIAL TREATMENT REQUIRED K2604790
481 | * CONVERT ONE WORD OF PRE-OUTPUT CODE K2604800
482 | * INTO OBJECT TIME-INSTRUCTION, K2604810
483 | * OUTPUT .ABSOLUTE. K2604820
484 | * K2604830
485 | * COMPUTE 6-BIT CONVERSION K2604840
7C6B C100 486 | LD 1 0 LOAD WORD FROM STRING K2604850
7C6C E310 487 | AND 3 H3F00-Z GET BITS 2-7=RLTV TBL ADDR K2604860
7C6D 1808 488 | SRA 8 RIGHT JUSTIFY K2604870
7C6E 8308 489 | A 3 CON4B-Z ADD TO ADDR CONVERSION TBL K2604880
7C6F D003 490 | STO Q7022+1 TO COMPUTE ADDR TO LOAD K2604890
7C70 C100 491 | LD 1 0 LOAD STRING WORD K2604900
7C71 E311 492 | AND 3 H00FF-Z GET OUTPUT STORAGE ADDR K2604910
7C72 8400 0000 493 | Q7022 A L *-* TABLE VALUE K2604920
7C74 4351 494 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2604930
7C75 4C00 7BF2 495 | BSC L Q3011 BR TO NEXT ITEM ON STRING K2604940
496 | * K2604950
497 | * K2604960
7C77 C400 7E70 498 | Q7031 LD L STXL1 OUTPUT .STX L1. K2604970
7C79 4351 499 | BSI 3 OUABS-Z IN ABSOLUTE MODE K2604980
7C7A 4329 500 | BSI 3 INCPT-Z INCR INPUT COUNTER K2604990
7C7B C100 501 | LD 1 0 LOAD STRING WORD K2605000
7C7C E3F7 502 | AND 3 H7FFF-Z OUTPUT * + DISPLACEMENT K2605010
7C7D 8400 7A3D 503 | A L LOCTR INCR BY LOC COUNTER K2605020
7C7F D100 504 | STO 1 0 (STORE FOR DUMP F TEST) K2605030
7C80 4355 505 | BSI 3 OURNC-Z PUT OUT RELATIVE OUTPUT K2605040
7C81 4C00 7BF2 506 | BSC L Q3011 CONTINUE THROUGH STRING K2605050
507 | * K2605060
508 | * OUTPUT ARGUMENTS OF .CALL SUBIN. K2605070
7C83 4329 509 | Q7051 BSI 3 INCPT-Z INCR INPUT POINTER K2605080
7C84 C100 510 | LD 1 0 LOAD STRING WORD K2605090
7C85 4C28 7C90 511 | BSC L Q7055,+Z BR IF (TAGGED) ADDRESS K2605100
512 | * K2605110
513 | * OUTPUT DELIMITOR, ONE OR ZERO K2605120
7C87 4351 514 | BSI 3 OUABS-Z IN ABSOLUTE MODE K2605130
7C88 C100 515 | LD 1 0 LOAD STRING WORD K2605140
7C89 4C18 7C83 516 | BSC L Q7051,+- BR IF DELIMETER = ZERO K2605150
7C8B 1801 517 | SRA 1 SHIFT OFF LOW ORDER BIT K2605160
7C8C 4C18 7BF2 518 | BSC L Q3011,+- BR IF = ONE K2605170
519 | * K2605180
7C8E 3000 520 | WAIT PAUSE, PROGRAM K2605190
7C8F 70FE 521 | MDX *-2 ERROR IF NEITHER K2605200
522 | * K2605210
7C90 E3F7 523 | Q7055 AND 3 H7FFF-Z REMOVE .TAG. K2605220
7C91 4355 524 | BSI 3 OURNC-Z OUTPUT RELATIVE K2605230
525 | * (WITHOUT .COMMON-CHECK.) K2605240
7C92 70F0 526 | MDX Q7051 BR TO OUTPUT ARGUMENTS K2605250
527 | * K2605260
528 | * OUTPUT ARGUMENTS OF K2605270
529 | * .CALL SUBSC. K2605280
7C93 C101 530 | Q8011 LD 1 1 LOAD STRING WORD +1 K2605290
7C94 4330 531 | BSI 3 GETST-Z GET OBJ TIME ADDR OF SGT K2605300
7C95 4353 532 | BSI 3 OUREL-Z SUBR OUTPUT, ENTRY = RLTV K2605310
7C96 C102 533 | LD 1 2 ACC=STRING WORD+2 (D4) K2605320
7C97 4351 534 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2605330
7C98 4329 535 | BSI 3 INCPT-Z INCR I/P POINTER 1 TIME K2605340
7C99 4329 536 | BSI 3 INCPT-Z INCR I/P POINTER 2 TIMES K2605350
7C9A 4329 537 | BSI 3 INCPT-Z INCR I/P POINTER 3 TIMES K2605360
7C9B C100 538 | Q8021 LD 1 0 LOAD STRING WORD K2605370
7C9C 4330 539 | BSI 3 GETST-Z GET OBJ TIME ADDR K2605380
7C9D 4353 540 | BSI 3 OUREL-Z SUBR OUTPUT, ENTRY = RLTV K2605390
7C9E C101 541 | LD 1 1 D1 (OR D2 OR D3) TO ACC K2605400
7C9F 4351 542 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2605410
7CA0 4329 543 | BSI 3 INCPT-Z INCR I/P POINTER 1 TIME K2605420
7CA1 4329 544 | BSI 3 INCPT-Z INCR I/P POINTER 2 TIMES K2605430
7CA2 C1FF 545 | LD 1 -1 LOAD PREVIOUS WORD K2605440
7CA3 4C28 7BFC 546 | BSC L Q3014,+Z BR IF PREVIOUS O/P TAGGED K2605450
7CA5 70F5 547 | MDX Q8021 BR IF NOT K2605460
548 | * K2605470
549 | * OUTPUT ARGUMENTS OF K2605480
550 | * .CALL FIOAX. OR .CALL FIOIX. K2605490
551 | * K2605500
7CA6 C101 552 | Q8051 LD 1 1 LOAD 2ND STRING WORD K2605510
7CA7 4330 553 | BSI 3 GETST-Z GET OBJECT TIME ADDR K2605520
7CA8 4353 554 | BSI 3 OUREL-Z SUBR OUTPUT, ENTRY = RLTV K2605530
7CA9 C102 555 | LD 1 2 ARRAY SIZE K2605540
7CAA E3F7 556 | AND 3 H7FFF-Z REMOVE SIGN K2605550
7CAB 4351 557 | BSI 3 OUABS-Z SUBR OUTPUT, ENTRY = ABS K2605560
7CAC 4329 558 | BSI 3 INCPT-Z INCR INPUT POINTER K2605570
7CAD 4329 559 | BSI 3 INCPT-Z INCR INPUT POINTER AGAIN K2605580
7CAE 4C00 7BF2 560 | BSC L Q3011 BR TO PROCESS NEXT WORD K2605590
561 | * K2605600
7CB0 562 | BSS E 0 K2605610
7CB0 7001 563 | WR900 DC /7001 WRITE DISK PARAMETER K2605620
7CB1 7A40 564 | DC BUFF-2 DISK BUFFER AREA K2605630
7CB2 63F0 565 | ENDLZ DC /63F0 END OF WS TEST CONSTANT K2605640
566 | * WRITE DISK K2605650
7CB3 0000 567 | WRITE DC 0 LINK K2605660
568 | * K2605670
569 | * CORRECTION OF WORDCOUNT K2605680
570 | * IN DATAHEADER K2605690
571 | * WHEN 'NEW' INDICATORWORD K2605700
572 | * HAS BEEN RESERVED K2605710
7CB4 C400 7A3A 573 | LD L INCT LOAD INDICATOR WD COUNT K2605720
7CB6 931C 574 | S 3 C16-Z K2605730
7CB7 4C20 7CBE 575 | WRITX BSC L WRIT0,Z BR IF NOT 'EMPTY' INDIC-WD K2605740
576 | * PRECEDING INSTRUCTION IS CHANGED K2605750
577 | * INTO UNCOUNDITIONAL BRANCH K2605760
578 | * WHEN WRITING LAST SECTOR OF K2605770
579 | * COMPILED PROGRAM K2605780
7CB9 C480 7DE5 580 | LD I PCT0+1 CORRECT WORD COUNT K2605790
7CBB 9301 581 | S 3 ONE-Z IN DATA HEADER K2605800
7CBC D480 7DE5 582 | STO I PCT0+1 K2605810
583 | * K2605820
584 | * K2605830
7CBE C400 7A41 585 | WRIT0 LD L BUFF-1 CHECK SECTOR ADDRESS K2605840
7CC0 1004 586 | SLA 4 SHIFT OFF HIGH ORDER BITS K2605850
7CC1 90F0 587 | S ENDLZ TEST END OF WORKING STORAGE K2605860
7CC2 4C10 7CE5 588 | BSC L NOWS,- BRANCH - NO MORE W.S. K2605870
7CC4 C8EB 589 | LDD WR900 LOAD DISK WRITE PARAMETER K2605880
7CC5 4400 00F2 590 | BSI L DZ000 WRITE SECTOR ONTO DISK K2605890
7CC7 7400 00EE 591 | MDX L $DBSY,0 SKIP IF DISK READY K2605900
7CC9 70FD 592 | MDX *-3 LOOP IF DISK BUSY K2605910
593 | * K2605920
7CCA C400 7A3B 594 | LD L INPT K2605930
7CCC 9314 595 | S 3 C320-Z DECR INDIC POINTER K2605940
7CCD D400 7A3B 596 | STO L INPT K2605950
7CCF C400 7A39 597 | LD L BUFPT K2605960
7CD1 9314 598 | S 3 C320-Z DECR BUFFERPOINTER K2605970
7CD2 D400 7A39 599 | STO L BUFPT K2605980
600 | * K2605990
601 | * MOVE BUFFER TAIL TO FRONT OF K2606000
602 | * NEXT BUFFER K2606010
603 | * K2606020
7CD4 6318 604 | LDX 3 24 SET UP 24 WORD MOVE K2606030
7CD5 C700 7B81 605 | MOV1 LD L3 BUFF+319 MOVE LAST PART OF BUFFER K2606040
7CD7 D700 7A41 606 | STO L3 BUFF-1 TO START OF BUFFER O/P AREA K2606050
7CD9 73FF 607 | MDX 3 -1 COUNT K2606060
7CDA 70FA 608 | MDX MOV1 BR IF NO SKIP K2606070
7CDB 6700 7CFE 609 | LDX L3 ZERO RESTORE XR3 (CONSTANTS) K2606080
610 | * K2606090
7CDD 7401 7A41 611 | MDX L BUFF-1,1 INCR SECTORADDR,SCRATCHAREA K2606100
612 | * K2606110
7CDF C400 7DEB 613 | LD L PCT1+1 LOAD DUMMY ADDRESS K2606120
7CE1 D400 7DE5 614 | STO L PCT0+1 STORE IN UPDATE LOCATION K2606130
615 | * K2606140
7CE3 4C80 7CB3 616 | BSC I WRITE RETURN K2606150
617 | * K2606160
7CE5 6101 618 | NOWS LDX 1 1 CALL RECOVERY - NO WS K2606170
7CE6 6D00 7A23 619 | STX L1 SOFS-1 K2606180
7CE8 6580 7F23 620 | LDX I1 NXTPH+1 LOAD PARAM FOR READING K2606190
7CEA CC00 7F24 621 | LDD L NXTPH+2 NEXT PHASE K2606200
7CEC 4C00 7FBC 622 | BSC L ROL GO TO READ NEXT PHASE K2606210
623 | * K2606220
624 | * K2606230
625 | * K2606240
7CEE 0014 626 | DC20 DC 20 CONSTANT K2606250
7CEF 7A42 627 | BUFAD DC BUFF ADDR OF BUFFER K2606260
7CF0 0024 628 | DC36 DC 36 CONSTANT K2606270
7CF1 000A 629 | TEN DC 10 CONSTANT K2606280
630 | * K2606290
7CF2 1600 631 | M1600 DC /1600 SIOAI K2606300
7CF3 0080 632 | M1680 DC /1680-/1600 SIOAF-SIOAI K2606310
7CF4 1D00 633 | H1D00 DC /1D00 CONSTANT MASK K2606320
7CF5 7FFF 634 | H7FFF DC /7FFF CONSTANT MASK K2606330
7CF6 5B00 635 | H5B00 DC /5B00 .LDX L1. K2606340
636 | * K2606350
7CF7 0010 637 | CD16 DC /0010 .ONE. IN WORDCOUNT, -12 K2606360
638 | * * ALSO INITIAL VALUE K2606370
639 | * K2606380
7CF8 0000 640 | TEMP1 DC 0 TEMPORARY STORAGE K2606390
7CF9 0000 641 | TEMP2 DC 0 TEMPORARY STORAGE K2606400
7CFA 2000 642 | H2000 DC /2000 MASK FOR COMMON K2606410
7CFB 4C80 643 | H4C80 DC /4C80 CONSTANT MASK K2606420
7CFC 5080 644 | H5080 DC /5080 CONSTANT MASK K2606430
7CFD 6200 645 | H6200 DC /6200 CONSTANT MASK K2606440
646 | * K2606450
7CFE 0000 647 | ZERO DC /0000 CONST ZERO 0 K2606460
7CFE 648 | Z EQU ZERO K2606470
649 | * K2606480
650 | * ZERO = ORIGIN OF TRANSFVECTOR K2606490
7CFF 0001 651 | ONE DC /0001 CONST ONE K2606500
7D00 0002 652 | TWO DC /0002 CONST TWO K2606510
7D01 0003 653 | THREE DC /0003 CONST THREE K2606520
7D02 0004 654 | FOUR DC /0004 CONST FOUR K2606530
7D02 655 | H0004 EQU FOUR K2606540
7D03 6000 656 | IDFOR DC /6000 ID = .FORMAT. 7 K2606550
7D04 1000 657 | IDEND DC /1000 ID = .END. 9 K2606560
7D05 7800 658 | H7800 DC /7800 CONSTANT MASK K2606570
7D06 7E4E 659 | CON4B DC TAB4-1 CONV-TABL-ORIGIN K2606580
7D07 5D00 660 | H5D00 DC /5D00 .SPEC BSC L. 12 K2606590
7D08 4D80 661 | H4D80 DC /4D80 OBJ.TIME 'BSC L1' K2606600
7D09 FF00 662 | HFF00 DC /FF00 .BSC I1. - .SPECBSC. 14 K2606610
7D0A 7B82 663 | BFEND DC BUFF+320 END OF OUTPUT BUFFER K2606620
7D0B 4C08 664 | H4C08 DC /4C08 OBJ.TIME .BSC L1. 17 K2606630
7D0C 1900 665 | CSUBS DC /1900 CALL SUBSCRIPT K2606640
7D0D 7E74 666 | SSTOR DC TABSS-1 SYSTEM SUBR TABLE ORIGIN K2606650
7D0E 3F00 667 | H3F00 DC /3F00 MASK F CONVERSION K2606660
7D0F 00FF 668 | H00FF DC /00FF CONSTANT MASK K2606670
7D10 07FF 669 | H07FF DC /07FF CONSTANT MASK K2606680
7D11 F800 670 | HF800 DC /F800 CONSTANT MASK K2606690
7D12 0140 671 | C320 DC 320 CONSTANT K2606700
7D13 FF80 672 | HFF80 DC /FF80 CONSTANT MASK K2606710
7D14 0005 673 | H0005 DC /0005 CONSTANT MASK K2606720
7D15 07FC 674 | H07FC DC /07FC CONSTANT MASK K2606730
7D16 0D80 675 | M2400 DC /2400-/1680 SDAF-SIOAF CONSTANT K2606740
7D17 FF80 676 | M2380 DC /2380-/2400 SDAI-SDAF CONSTANT K2606750
7D18 FA80 677 | M1E00 DC /1E00-/2380 UIOAI-SDAI CONSTANT K2606760
7D19 0080 678 | M1E80 DC /1E80-/1E00 UIOAF-UIOAI CONSTANT K2606770
7D1A 0010 679 | C16 DC 16 CONSTANT K2606780
7D1B 0000 680 | SWISH DC 0 ANOTHER CALL INDICATOR K2606790
681 | * K2606800
7D1C 682 | BSS E 0 K2606810
7D1C 0000 683 | STONA DC 0 STORED NAME K2606820
7D1D 0000 684 | DC 0 K2606830
7D1E 0000 685 | WCNT DC 0 WORD COUNTER F. STMT 8 K2606840
7D1F 0000 686 | STOID DC 0 STORED ID-TYPE 6 K2606850
7D20 0000 687 | TWOWC DC 0 TWO WORD CALL SWITCH K2606860
688 | * K2606870
7D21 9000 689 | IDDEF DC /F000-/6000 DEFINE FILE CONSTANT I K2606880
7D22 0800 690 | IDDAT DC /F800-/F000 DATA CONSTANT ID K2606890
7D23 E800 691 | IDCAL DC /E000-/F800 CALL CONSTANT ID K2606900
7D24 4000 692 | H4000 DC /4000 CONSTANT MASK K2606910
7D25 0039 693 | CLINK DC $LINK .CALL LINK. ENTRY ADDRESS K2606920
7D26 0000 694 | ORGSW DC 0 ORIGIN SWITCH 2-4 K2606930
695 | * K2606940
696 | * K2606950
697 | * K2606960
698 | * SUBROUTINE K2606970
699 | * INCREMENT INPUT POINTER K2606980
700 | * K2606990
7D27 0000 701 | INCPT DC 0 LINK K2607000
7D28 7101 702 | MDX 1 1 INCR INPUT POINTER K2607010
7D29 74FC 7D1E 703 | MDX L WCNT,-4 DECR WD COUNTER K2607020
7D2B 1000 704 | SLA 0 GUARDS AGAINST SKIP K2607030
7D2C 4C80 7D27 705 | BSC I INCPT RETURN K2607040
706 | * K2607050
707 | * SUBROUTINE K2607060
708 | * GET OBJ.TIME ADDR OR ALPHABETIC K2607070
709 | * NAME FROM SYMBOL TABLE K2607080
710 | * ON ENTRY, THE ACCUMULATOR CONTAINS K2607090
711 | * THE SYMBOL TABLE REFERENCE WORD K2607100
712 | * K2607110
7D2E 0000 713 | GETST DC 0 LINK ENTRY POINT K2607120
7D2F E312 714 | AND 3 H07FF-Z GET RLTV ENTRY PT IN SYM TBL K2607130
7D30 4C98 7D2E 715 | BSC I GETST,+- RETURN IF ZERO 2-6 K2607135
7D32 D008 716 | STO GET1+1 SET UP AS ADDR K2607140
7D33 C400 7A26 717 | LD L SOFST LOAD START OF SYMBOL TABLE K2607150
7D35 9005 718 | S GET1+1 SUBTRACT POINTER ONE TIME K2607160
7D36 9004 719 | S GET1+1 SUBTRACT POINTER SECOND TIME K2607170
7D37 9003 720 | S GET1+1 SUBTRACT POINTER THIRD TIME K2607180
7D38 8316 721 | A 3 H0005-Z ADD 5 TO GIVE LOC OF 3RD WD K2607190
7D39 D001 722 | STO GET1+1 SAVE SYMBOL TABLE ADDR(WD 3) K2607200
7D3A C400 0000 723 | GET1 LD L *-* LOAD 3RD WORD SYMBOL TABLE K2607210
7D3C 18D0 724 | RTE 16 PUT IN EXTENSION K2607220
7D3D 74FF 7D3B 725 | MDX L GET1+1,-1 DECR SYMBOL TABLE POINTER K2607230
7D3F 1000 726 | SLA 0 GUARDS AGAINST SKIP K2607240
7D40 C480 7D3B 727 | LD I GET1+1 LOAD 2ND SYM TBL WD IN ACC K2607250
7D42 4C80 7D2E 728 | BSC I GETST RETURN K2607260
729 | * K2607270
730 | * SUBROUTINE K2607280
731 | * INITIALIZE NEXT STATEMENT K2607290
732 | * K2607300
7D44 0000 733 | INIT DC 0 LINK ENTRY POINT K2607310
7D45 4329 734 | BSI 3 INCPT-Z INCR INPUT COUNTER K2607320
7D46 C100 735 | LD 1 0 LOAD STRING WORD K2607330
7D47 E317 736 | AND 3 H07FC-Z EXTRACT AND STORE K2607340
7D48 9304 737 | S 3 FOUR-Z NORM - 1 WORD K2607350
7D49 D320 738 | STO 3 WCNT-Z WDCOUNTER K2607360
7D4A C100 739 | LD 1 0 LOAD STRING WORD K2607370
7D4B E313 740 | AND 3 HF800-Z MASK ALL BUT TYPE CODE ID WD K2607380
7D4C D321 741 | STO 3 STOID-Z SAVE TYPE CODE K2607390
7D4D 4C80 7D44 742 | BSC I INIT RETURN K2607400
743 | * K2607410
744 | * K2607420
745 | * OUTPUT ADDRESS OR CONSTANT IN K2607430
746 | * ABSOLUTE MODE K2607440
747 | * ENTRY = ABSOLUTE OUTPUT K2607450
748 | * K2607460
7D4F 0000 749 | OUABS DC 0 LINK ENTRY POINT K2607470
7D50 702D 750 | MDX T8011 BR TO OUTPUT IN ABSOLUTE K2607480
751 | * K2607490
752 | * OUTPUT ADDRESS OR CONSTANT IN K2607500
753 | * RELOCATABLE MODE EXCEPT FOR VARIABLES K2607510
754 | * IN COMMON WHICH WILL BE ABSOLUTE MODE K2607520
755 | * ENTRY = RELATIVE OUTPUT K2607530
756 | * WITH .COMMON-CHECK. K2607540
757 | * K2607550
7D51 0000 758 | OUREL DC 0 LINK ENTRY POINT K2607560
7D52 7032 759 | MDX T8013 K2607570
760 | * BR TO OUTPUT IN RLTV MODE K2607580
761 | * ENTRY = REALTIVE OUTPUT K2607590
762 | * NO .COMMON-CHECK. K2607600
763 | * K2607610
7D53 0000 764 | OURNC DC 0 LINK ENTRY POINT K2607620
7D54 7025 765 | MDX T7051 BR TO OUTPUT IN RLTV MODE K2607630
766 | * K2607640
767 | * ENTRY = CALL-OUTPUT K2607650
768 | * (ONE WORD CALL) K2607660
769 | * K2607670
7D55 0000 770 | OUCAL DC 0 LINK ENTRY POINT K2607680
7D56 700C 771 | MDX T7011 BR TO OUTPUT ONE WD CALLS K2607690
772 | * K2607700
773 | * ENTRY FOR TWO-WORD-CALL-OUTPUT K2607710
7D57 0000 774 | OULCL DC 0 LINK ENTRY POINT K2607720
7D58 7000 775 | MDX T7005 BR TO OUTPUT TWO WD CALLS K2607730
776 | * K2607740
777 | * K2607750
778 | * TWO WORD CALL OUTPUT K2607760
779 | * K2607770
7D59 DB1E 780 | T7005 STD 3 STONA-Z STORE ACC AND EXTENSION K2607780
7D5A C300 781 | LD 3 ZERO-Z SECOND HALF CALL BITS K2607790
7D5B D3FB 782 | STO 3 TEMP2-Z SAVE IN TEMP STORAGE K2607800
783 | * K2607810
784 | * SET TWO WORD CALL SWITCH K2607820
7D5C C300 785 | LD 3 ZERO-Z LOAD ZERO (IND 2WD SW) K2607830
7D5D D322 786 | STO 3 TWOWC-Z SET 2 WD CALL SWITCH K2607840
7D5E C0F8 787 | LD OULCL MOVE LINKWORD K2607850
7D5F D0F5 788 | T7006 STO OUCAL SAVE IN RETURN WD AREA K2607860
7D60 C303 789 | LD 3 THREE-Z LOAD INDICATOR BITS K2607870
7D61 D3FA 790 | STO 3 TEMP1-Z SAVE IN TEMPORARY STORAGE K2607880
791 | * K2607890
7D62 7006 792 | MDX T7013 BR TO MOVE BITS K2607900
793 | * K2607910
794 | * CALL-OUTPUT K2607920
7D63 DB1E 795 | T7011 STD 3 STONA-Z STORE REGISTERS K2607930
7D64 C300 796 | LD 3 ZERO-Z LOAD 2ND HALF CALL BITS = 0 K2607940
7D65 D3FB 797 | STO 3 TEMP2-Z SAVE IN TEMP STO K2607950
7D66 C302 798 | LD 3 TWO-Z LOAD 1ST HALF CALL BITS = 2 K2607960
7D67 D3FA 799 | STO 3 TEMP1-Z SAVE IN TEMP STO K2607970
800 | * K2607980
801 | * SET TWO WORD CALL SWITCH K2607990
7D68 D322 802 | STO 3 TWOWC-Z TWO WD CALL SW SET TO NO K2608000
7D69 D31D 803 | T7013 STO 3 SWISH-Z SET ANOTHER CALL INDICATOR K2608010
7D6A C3FA 804 | LD 3 TEMP1-Z CALL BITS (10 OR 11) K2608020
7D6B 4039 805 | BSI IBITS TO INDICATOR AREA K2608030
7D6C C31E 806 | LD 3 STONA-Z FIRST HALF OF NAME K2608040
7D6D 4053 807 | BSI TOBUF MOVE TO BUFFER K2608050
7D6E C3FB 808 | LD 3 TEMP2-Z SEC HALF OF CALL BITS K2608060
809 | * (00 OR 11) K2608070
7D6F 4035 810 | BSI IBITS TO INDICATOR AREA K2608080
811 | * K2608090
812 | * CHECK TWO WORD CALL SWITCH K2608100
7D70 C322 813 | LD 3 TWOWC-Z LOAD 2 WD CALL SWITCH K2608110
7D71 4C18 7D76 814 | BSC L T7014,+- BRANCH IF 2 WORD CALL K2608120
815 | * K2608130
816 | * COUNT ONE LOCATION LESS IF K2608140
817 | * IT IS A ONE-WORD CALL K2608150
818 | * K2608160
7D73 74FF 7A3D 819 | MDX L LOCTR,-1 DECR LOCATION COUNTER K2608170
7D75 1000 820 | NOP POSSIBLE SIGN CHANGE K2608180
821 | * K2608190
7D76 C31F 822 | T7014 LD 3 STONA+1-Z SECOND HALF OF NAME K2608200
7D77 4049 823 | BSI TOBUF MOVE TO BUFFER K2608210
7D78 4C80 7D55 824 | BSC I OUCAL RETURN K2608220
825 | * K2608230
826 | * RELATIVE OUTPUT, NO COMMON CHECK K2608240
827 | * K2608250
7D7A DB1E 828 | T7051 STD 3 STONA-Z STORE REGISTERS K2608260
7D7B C0D7 829 | LD OURNC LOAD LINK WORD PREV ENTRY PT K2608270
7D7C D0D4 830 | STO OUREL MOVE TO EXIT POINT K2608280
7D7D 7013 831 | MDX T8015 BR TO PROCESS RELATIVE O/P K2608290
832 | * K2608300
833 | * ABSOLUTE OUTPUT K2608310
834 | * K2608320
7D7E DB1E 835 | T8011 STD 3 STONA-Z STORE REGISTERS K2608330
7D7F C300 836 | LD 3 ZERO-Z ZERO-ZERO K2608340
7D80 4024 837 | BSI IBITS TO INDICATOR AREA K2608350
838 | * K2608360
839 | * MOVE STORED ACCUMULATOR TO BUFFER K2608370
840 | * K2608380
7D81 C31E 841 | T8012 LD 3 STONA-Z LOAD OUTPUT WORD K2608390
7D82 403E 842 | BSI TOBUF MOVE TO BUFFER K2608400
843 | * K2608410
7D83 4C80 7D4F 844 | BSC I OUABS RETURN K2608420
845 | * K2608430
846 | * RELATIVE OUTPUT (INCLUDES TEST K2608440
847 | * WHETHER VARIABLE IS IN COMMON, IN K2608450
848 | * WHICH CASE OUTPUT IS ABSOLUTE K2608460
849 | * K2608470
7D85 DB1E 850 | T8013 STD 3 STONA-Z STORE REGISTERS K2608480
7D86 C400 7D3B 851 | LD L GET1+1 GET SYMBOL TABLE ADDRESS K2608490
7D88 9301 852 | S 3 ONE-Z MODIFY TO GET SYM TBL ID WD K2608500
7D89 D001 853 | STO T8014+1 SAVE ADDR OF SYM TBL ID WD K2608510
7D8A C400 0000 854 | T8014 LD L *-* LOAD SYM TBL ID WORD K2608520
7D8C E3FC 855 | AND 3 H2000-Z MASK TO GET COMMON BIT ONLY K2608530
7D8D 4C18 7D91 856 | BSC L T8015,+- BRANCH IF NOT IN COMMON K2608540
7D8F C300 857 | LD 3 ZERO-Z ZERO-ZERO F INDICATOR K2608550
7D90 700C 858 | MDX T8017 GO MOVE TO INDICATOR AREA K2608560
859 | * K2608570
7D91 C328 860 | T8015 LD 3 ORGSW-Z IS IT ABSOLUTE 2-4 K2608580
7D92 4C18 7D9C 861 | BSC L T8016,+- NO - BRANCH 2-4 K2608590
7D94 C31E 862 | LD 3 STONA-Z YES - RELOCATE 2-4 K2608600
7D95 8400 7A23 863 | A L ORG THIS 2-4 K2608610
7D97 D31E 864 | STO 3 STONA-Z ADDRESS 2-4 K2608620
7D98 4C28 7DA1 865 | BSC L T8018,+Z BRANCH TO ERR IF NEG 2-4 K2608630
7D9A C300 866 | LD 3 ZERO-Z ZERO-ZERO TO IND BITS 2-4 K2608640
7D9B 7001 867 | MDX T8017 CONTINUE 2-4 K2608650
868 | * K2608660
7D9C C301 869 | T8016 LD 3 ONE-Z ZERO-ONE FOR INDICATOR BITS K2608670
7D9D 4007 870 | T8017 BSI IBITS MOVE TO INDICATOR AREA K2608680
7D9E C0B2 871 | LD OUREL MOVE LINK TO RETURN EXIT K2608690
7D9F D0AF 872 | STO OUABS SAVE LINK WD K2608700
7DA0 70E0 873 | MDX T8012 BR TO O/P WD IN RLTV MODE K2608710
874 | * K2608720
7DA1 7440 7A2D 875 | T8018 MDX L ERROR,64 SET UP ERROR 86 2-4 K2608730
7DA3 4C00 7F1A 876 | BSC L EXIT EXIT 2-4 K2608740
877 | * K2608750
878 | * INDICATOR BITS K2608760
879 | * ACCUMULATOR CONTAINS BIT PATTERNS K2608770
880 | * TO MASK INTO THE INDICATOR POINTER K2608780
881 | * BASED ON SHIFTS SPECIFIED IN THE K2608790
882 | * INDICATOR COUNTER K2608800
883 | * K2608810
7DA5 0000 884 | IBITS DC 0 LINK ENTRY POINT K2608820
7DA6 D017 885 | STO IBIT5 SAVE INDICATOR BITS K2608830
7DA7 C400 7A3A 886 | LD L INCT PRODUCE SLA AND SRA K2608840
7DA9 8015 887 | A IBIT6 INSTRUCTIONS AND INSERT K2608850
7DAA D006 888 | STO IBIT3 (LENGTH OF SHIFT DEPENDS K2608860
7DAB 8014 889 | A IBIT7 ON INDICATOR COUNTER) K2608870
7DAC D002 890 | STO IBIT2 SET UP SRA INSTRUCTION K2608880
7DAD C480 7A3B 891 | LD I INPT LOAD WORD FROM BUFFER K2608890
7DAF 1800 892 | IBIT2 SRA *-* SRA (INCT - 2) K2608900
7DB0 800D 893 | A IBIT5 VALUE FROM ACC ON ENTRY K2608910
7DB1 1000 894 | IBIT3 SLA *-* SLA (INCT - 2) K2608920
7DB2 D480 7A3B 895 | STO I INPT SAVE WORD IN BUFFER K2608930
7DB4 74FE 7A3A 896 | MDX L INCT,-2 DECR INDICATOR COUNTER K2608940
7DB6 7005 897 | MDX IBIT4 BR IF NOT ZERO (=NO SKIP) K2608950
7DB7 7409 7A3B 898 | MDX L INPT,9 INCR INDICATOR POINTER K2608960
7DB9 C3F9 899 | LD 3 CD16-Z REINITIALIZE INDR COUNTER K2608970
7DBA D400 7A3A 900 | STO L INCT K2608980
7DBC 4C80 7DA5 901 | IBIT4 BSC I IBITS RETURN K2608990
7DBE 0000 902 | IBIT5 DC 0 TEMPORARY STORAGE K2609000
7DBF 0FFE 903 | IBIT6 DC /0FFE .SLA 0. - 0002 K2609010
7DC0 0800 904 | IBIT7 DC /0800 .SRA 0. - .SLA 0. K2609020
905 | * K2609030
906 | * SUBROUTINE K2609040
907 | * MOVE TO BUFFER K2609050
908 | * K2609060
7DC1 0000 909 | TOBUF DC 0 LINK ENTRY POINT K2609070
7DC2 D480 7A39 910 | STO I BUFPT SAVE I/P WD IN BUFR POINTER K2609080
911 | * K2609090
912 | * TEST IF SKIP TO NEXT 8WORD GROUP K2609100
7DC4 C400 7A3A 913 | LD L INCT LOAD INDICATOR COUNTER K2609110
7DC6 93F9 914 | S 3 CD16-Z TEST IF NEW INDICATOR WORD K2609120
7DC7 4C20 7DCC 915 | BSC L TOBU1,Z BR IF NOT NEW INDR WORD K2609130
7DC9 D480 7A3B 916 | STO I INPT ZERO TO NEW INDR WORD K2609140
7DCB 4013 917 | TOBUC BSI PCT BR TO INCR DATA HDR, BFR CNT K2609150
7DCC 7401 7A3D 918 | TOBU1 MDX L LOCTR,1 INCR LOCATION COUNTER K2609160
7DCE 4010 919 | BSI PCT BR TO INCR DATA HDR, BFR CNT K2609170
920 | * K2609180
921 | * TEST IF END OF BUFFER K2609190
7DCF C400 7A3B 922 | LD L INPT LOAD INDICATOR POINTER K2609200
7DD1 930C 923 | S 3 BFEND-Z COMPARE TO LAST WD OF BUFFER K2609210
7DD2 4CA8 7DC1 924 | BSC I TOBUF,Z+ RETURN IF BUFFER NOT FULL K2609220
925 | * K2609230
926 | * TEST IF FIRST HALF OF CALL K2609240
7DD4 C31D 927 | LD 3 SWISH-Z TEST INDICATOR BITS(1,2,OR3) K2609250
7DD5 4C18 7DDA 928 | BSC L HERE,+- BR IF 0, = 2ND HALF OF CALL K2609260
7DD7 1010 929 | SLA 16 CLEAR ACCUMULATOR K2609270
7DD8 D31D 930 | STO 3 SWISH-Z RESET INDICATOR BIT AREA K2609280
7DD9 7003 931 | MDX THERE K2609290
7DDA 43B5 932 | HERE BSI 3 WRITE-Z BR TO WRITE BUFFER ON DISK K2609300
7DDB 4400 7E19 933 | BSI L DHDRR DATAHEADERROUTINE K2609310
934 | * K2609320
7DDD 4C80 7DC1 935 | THERE BSC I TOBUF RETURN K2609330
936 | * K2609340
937 | * SUBROUTINE MOVE BUFFERPOINTERS K2609350
938 | * K2609360
7DDF 0000 939 | PCT DC 0 LINK ENTRY POINT K2609370
940 | * K2609380
941 | * INCR COUNT IN DATAHEADER K2609390
7DE0 C400 7A3C 942 | LD L DHDRA LOAD DATA HEADER ADDRESS K2609400
7DE2 8301 943 | A 3 ONE-Z ADD 1 K2609410
7DE3 D001 944 | STO PCT0+1 SET UP DATA HEADER ADDR K2609420
7DE4 7401 0000 945 | PCT0 MDX L *-*,1 INCR DATA HEADER WD K2609430
946 | * K2609440
7DE6 7401 7A3E 947 | MDX L PRLGT,1 INCR PROGRAM LENGTH COUNT K2609450
7DE8 7401 7A39 948 | MDX L BUFPT,1 INCR BUFFERPOINTER K2609460
7DEA 4C80 7DDF 949 | PCT1 BSC I PCT RETURN K2609470
950 | * K2609480
951 | * TERMINATE OUTPUT K2609490
7DEC 1000 952 | OUTER SLA 0 NOP K2609500
953 | * K2609510
954 | * MAKE PROGRLENGTH EVEN NUMBER K2609520
7DED C400 7A3D 955 | LD L LOCTR LOAD LOCATION COUNTER K2609530
7DEF 4804 956 | BSC E SKIP IF EVEN K2609540
7DF0 8301 957 | A 3 ONE-Z IF NOT, ADD ONE K2609550
7DF1 D400 7A3D 958 | STO L LOCTR SAVE IN LOCATION COUNTER K2609560
959 | * K2609570
960 | * INSERT BYTE COUNT OF PROGR K2609580
7DF3 C400 7A3E 961 | LD L PRLGT LOAD PROGRAM LENGTH K2609590
7DF5 83F2 962 | A 3 DC36-Z ADD CONSTANT =36 K2609600
7DF6 1890 963 | SRT 16 SHIFT EXTENSION K2609610
7DF7 ABF0 964 | D 3 DC20-Z DIVIDE BY 20 WDS/DISK BYTE K2609620
965 | * K2609630
7DF8 D400 7A26 966 | STO L SOFST TO COMMUNICATION AREA K2609640
967 | * TO BE USED BY RECOVERY K2609650
968 | * K2609660
969 | * CHANGE DATAHEADERROUTINE K2609670
970 | * TO GET INITIAL ZERO AS K2609680
971 | * WORD COUNT FOR END-OF-PROGR DATAHDR K2609690
7DFA C053 972 | LD LZERO GET LOAD ZERO INSTRUCTION K2609700
7DFB D03E 973 | STO DHDR1 SAVE IN DATA HEADER ROUTINE K2609710
974 | * K2609720
975 | * CORRECT NO DATA K2609730
7DFC C0E2 976 | LD PCT TEST DATA HDR USED K2609740
7DFD 4C20 7E03 977 | BSC L *+4,Z BR IF DATA K2609750
7DFF 74FE 7A3B 978 | MDX L INPT,-2 DECR INDICATOR POINTER K2609760
7E01 74FE 7A3E 979 | MDX L PRLGT,-2 DECR PROGRAM LENGTH K2609770
980 | * K2609780
981 | * CORRECT WORDCOUNT IN DATAHEADER K2609790
982 | * IF NEW 8-WORD GROUP K2609800
983 | * K2609810
7E03 C400 7A3A 984 | LD L INCT LOAD INDICATOR COUNT K2609820
7E05 931C 985 | S 3 C16-Z COMPARE WITH GROUP SIZE K2609830
7E06 4C20 7E0D 986 | BSC L OUTE1,Z BR IF NOT NEW GROUP K2609840
7E08 C480 7DE5 987 | LD I PCT0+1 LOAD DATA HEADER WORD K2609850
7E0A 9301 988 | S 3 ONE-Z DECR BY ONE K2609860
7E0B D480 7DE5 989 | STO I PCT0+1 SAVE NEW DATA HDR WORD K2609870
990 | * K2609880
7E0D 400B 991 | OUTE1 BSI DHDRR HEADER FOR END-OF-PROGRAM K2609890
992 | * K2609900
993 | * WRITE LAST SECTOR K2609910
994 | * CHANGE WRITE-ROUTINE K2609920
995 | * FOR WRITING OF LAST SECOTR K2609930
7E0E C008 996 | LD BRNCH LOAD EXIT INSTRUCTION K2609940
7E0F D3B9 997 | STO 3 WRITX-Z REPLACE WRITE EXIT INSTR K2609950
998 | * WRITE OUT BUFFER K2609960
7E10 43B5 999 | BSI 3 WRITE-Z K2609970
1000 | * K2609980
1001 | * TEST IF PART OF BUFFER STILL K2609990
1002 | * REMAINS TO BE WRITTEN K2610000
1003 | * K2610010
7E11 C400 7A39 1004 | LD L BUFPT LOAD BUFFER POINTER K2610020
7E13 93F1 1005 | S 3 BUFAD-Z SUBTRACT END OF BUFFER K2610030
7E14 4C28 7F1A 1006 | BSC L EXIT,+Z BR IF ALL DATA WRITTEN K2610040
7E16 43B5 1007 | BSI 3 WRITE-Z BR TO WRITE BUFFER K2610050
1008 | * K2610060
1009 | * BR TO READING OF NEXT PHASE K2610070
7E17 4C00 7F1A 1010 | BRNCH BSC L EXIT K2610080
1011 | * K2610090
1012 | * K2610100
1013 | * SUBROUTINE TO OUTPUT DATAHEADER K2610110
1014 | * K2610120
7E19 0000 1015 | DHDRR DC 0 LINK ENTRY POINT K2610130
7E1A C400 7A3A 1016 | LD L INCT LOAD INDICATOR COUNTER K2610140
7E1C 931C 1017 | S 3 C16-Z SEE IF NEW 8 WD GROUP K2610150
7E1D 4C20 7E23 1018 | BSC L DHDR0,Z BR IF NOT 'EMPTY' INDICTR K2610160
7E1F C400 7A3B 1019 | LD L INPT LOAD INDICATOR POINTER K2610170
7E21 D400 7A39 1020 | STO L BUFPT MOVE TO BUFFER POINTER K2610180
7E23 C400 7A3D 1021 | DHDR0 LD L LOCTR LOCCOUNTER TO DATAHEADER K2610190
7E25 D480 7A39 1022 | STO I BUFPT SAVE IN BUFFER K2610200
7E27 C328 1023 | LD 3 ORGSW-Z IS IT ABSOLUTE 2-4 K2610210
7E28 4C18 7E32 1024 | BSC L DHDRX,+- NO - BRANCH 2-4 K2610220
7E2A C400 7A3D 1025 | LD L LOCTR YES - RELOCATE THE 2-4 K2610230
7E2C 8400 7A23 1026 | A L ORG LOC ADDRESS COUNTER 2-4 K2610240
7E2E D480 7A39 1027 | STO I BUFPT STORE IN HEADER 2-4 K2610250
7E30 4C18 7DA1 1028 | BSC L T8018,+- BRANCH IF NEGATIVE 2-4 K2610260
7E32 C400 7A39 1029 | DHDRX LD L BUFPT INSERT NEW DATAHEADER ADDR K2610270
7E34 D400 7A3C 1030 | STO L DHDRA SAVE IN DATA HEADER ADDR K2610280
7E36 7401 7A39 1031 | MDX L BUFPT,1 INCR BUFFER POINTER K2610290
7E38 7403 7A3E 1032 | MDX L PRLGT,3 COUNT 3 FOR DATAHEADER K2610300
7E3A C303 1033 | DHDR1 LD 3 THREE-Z INITIAL COUNT = 3 K2610310
1034 | * INSTRUCTION IS CHANGED FOR K2610320
1035 | * END-OF-PROG HDR TO BSC LEXIT K2610330
7E3B D480 7A39 1036 | STO I BUFPT SAVE IN BUFFER K2610340
7E3D 7401 7A39 1037 | MDX L BUFPT,1 INCR BUFFER POINTER K2610350
7E3F C300 1038 | LD 3 ZERO-Z K2610360
7E40 D480 7A39 1039 | STO I BUFPT ZERO TO FIRST INDICATOR K2610370
7E42 D09C 1040 | STO PCT SET PCT FLAG-NO DATA K2610380
7E43 C400 7A39 1041 | LD L BUFPT LOAD BUFFER POINTER K2610390
7E45 D400 7A3B 1042 | STO L INPT INSER INDICATOR POINTER K2610400
7E47 C31C 1043 | LD 3 C16-Z RESET INDICATOR COUNTER K2610410
7E48 D400 7A3A 1044 | STO L INCT SAVE IN INDICATOR COUNTER K2610420
7E4A 7401 7A39 1045 | MDX L BUFPT,1 MOVE BUFFER POINTER K2610430
7E4C 4C80 7E19 1046 | BSC I DHDRR RETURN K2610440
1047 | * K2610450
7E4E C300 1048 | LZERO LD 3 ZERO-Z INITIAL COUNT = 0 K2610460
1049 | * K2610470
1050 | * K2610480
1051 | * .4-BIT.-OBJ. TIME INSTRUCTION TABLE K2610490
1052 | * K2610500
7E4F C400 1053 | TAB4 DC /C400 LD L CODE=1 K2610510
7E50 D400 1054 | DC /D400 STO L 2 K2610520
7E51 8400 1055 | DC /8400 A L 3 K2610530
7E52 9400 1056 | DC /9400 S L 4 K2610540
7E53 AC00 1057 | DC /AC00 D L 5 K2610550
7E54 A400 1058 | DC /A400 M L 6 K2610560
7E55 4400 1059 | BSIL DC /4400 BSI L 7 K2610570
7E56 6580 1060 | DC /6580 LDX I1 8 K2610580
7E57 C500 1061 | DC /C500 LD L1 9 K2610590
7E58 D500 1062 | DC /D500 STO L1 10 K2610600
7E59 8500 1063 | DC /8500 A L1 11 K2610610
7E5A 9500 1064 | DC /9500 S L1 12 K2610620
7E5B AD00 1065 | DC /AD00 D L1 13 K2610630
7E5C A500 1066 | DC /A500 M L1 14 K2610640
1067 | * K2610650
7E5D 4C00 1068 | BSCL DC /4C00 BSC L 15 K2610660
1069 | * (USED FOR UNCOND BRANCH ONLY) K2610670
1070 | * K2610680
1071 | * (EXTENSION) K2610690
1072 | * .6-BIT. OBJ.TIME INSTRUCTION TABLE K2610700
1073 | * K2610710
7E5E 4C00 1074 | TAB6 DC /4C00 BSC L CODE=16 (5000) K2610720
7E5F 7400 1075 | DC /7400 MDX L 17 (5100) K2610730
7E60 C300 1076 | LD 3 0 LD FAC+1 18 (527E) K2610740
7E61 D300 1077 | STO 3 0 STO FAC+1 19 (537E) K2610750
7E62 9300 1078 | S 3 0 S FAC+1 20 (547E) K2610760
7E63 AB00 1079 | D 3 0 D FAC+1 21 (557E) K2610770
7E64 DB00 1080 | STD 3 0 STD FAC+1 22 (567E) K2610780
7E65 9B00 1081 | SD 3 0 SD FAC+1 23 (577E) K2610790
7E66 1890 1082 | SRT 16 SRT 16 24 (5800) K2610800
7E67 1010 1083 | SLA 16 SLA 16 25 (5900) K2610810
7E68 0000 1084 | DC 0 (RES FOR *-1) 26 (5A00) K2610820
7E69 6500 1085 | LDXL1 DC /6500 LDX L1 27 (5B00) K2610830
7E6A 4D80 1086 | DC /4D80 BSC I1 28 (5C00) K2610840
7E6B 4C08 1087 | SBSCL DC /4C08 BSC L (SPEC) 29 (5D00) K2610850
7E6C 0000 1088 | DC 0 (RES F GENLB) 30 (5E00) K2610860
7E6D 0000 1089 | DC 0 CONST ZERO 31 (5F00) K2610870
7E6E 7000 1090 | MDX *+0 32 (6000) K2610880
7E6F 7500 1091 | DC /7500 MDX L1 33 (6100) K2610890
7E70 6D00 1092 | STXL1 DC /6D00 STX L1 34 (6200) K2610900
7E71 6000 1093 | LDX 0 LDX 35 (6300) K2610910
7E72 0000 1094 | DC 0 K2610920
7E73 0000 1095 | DC 0 K2610930
7E74 0000 1096 | DC 0 K2610940
1097 | * K2610950
1098 | * K2610960
1099 | * SYSTEM SUBR. TABLE K2610970
1100 | * K2610980
7E75 0604 1101 | TABSS DC /0604 FADD CODE=008 K2610990
7E76 4100 1102 | DC /4100 K2611000
7E77 0604 1103 | DC /0604 FADDX 010 K2611010
7E78 4127 1104 | DC /4127 K2611020
7E79 068A 1105 | DC /068A FSUB 018 K2611030
7E7A 4080 1106 | DC /4080 K2611040
7E7B 068A 1107 | DC /068A FSUBX 020 K2611050
7E7C 40A7 1108 | DC /40A7 K2611060
7E7D 0651 1109 | DC /0651 FMPY 028 K2611070
7E7E 7A00 1110 | DC /7A00 K2611080
7E7F 0651 1111 | DC /0651 FMPYX 030 K2611090
7E80 7A27 1112 | DC /7A27 K2611100
7E81 0610 1113 | DC /0610 FDIV 038 K2611110
7E82 9940 1114 | DC /9940 K2611120
7E83 0610 1115 | DC /0610 FDIVX 040 K2611130
7E84 9967 1116 | DC /9967 K2611140
7E85 064C 1117 | DC /064C FLD 048 K2611150
7E86 4000 1118 | DC /4000 K2611160
7E87 064C 1119 | DC /064C FLDX 050 K2611170
7E88 49C0 1120 | DC /49C0 K2611180
7E89 068A 1121 | DC /068A FSTO 058 K2611190
7E8A 3580 1122 | DC /3580 K2611200
7E8B 068A 1123 | DC /068A FSTOX 060 K2611210
7E8C 35A7 1124 | DC /35A7 K2611220
7E8D 0688 1125 | DC /0688 FSBR 068 K2611230
7E8E 2640 1126 | DC /2640 K2611240
7E8F 0688 1127 | DC /0688 FSBRX 070 K2611250
7E90 2667 1128 | DC /2667 K2611260
7E91 0612 1129 | DC /0612 FDVR 078 K2611270
7E92 5640 1130 | DC /5640 K2611280
7E93 0612 1131 | DC /0612 FDVRX 080 K2611290
7E94 5667 1132 | DC /5667 K2611300
7E95 0606 1133 | DC /0606 FAXI 088 K2611310
7E96 7240 1134 | DC /7240 K2611320
7E97 0606 1135 | FAXIX DC /0606 FAXIX 090 K2611330
7E98 7267 1136 | DC /7267 K2611340
7E99 0626 1137 | DC /0626 FIXI 098 K2611350
7E9A 7240 1138 | DC /7240 K2611360
7E9B 0626 1139 | DC /0626 FIXIX 0A0 K2611370
7E9C 7267 1140 | DC /7267 K2611380
7E9D 2218 1141 | FARI DC /2218 SFAR 0A8 K2611390
7E9E 1640 1142 | DC /1640 K2611400
7E9F 2218 1143 | FARIX DC /2218 SFARX 0B0 K2611410
7EA0 1667 1144 | DC /1667 K2611420
7EA1 2224 1145 | FIAR DC /2224 SIAR 0B8 K2611430
7EA2 1640 1146 | DC /1640 K2611440
7EA3 2224 1147 | FIARX DC /2224 SIARX 0C0 K2611450
7EA4 1667 1148 | DC /1667 K2611460
7EA5 0918 1149 | AIFIX DC /0918 IFIX 0C8 K2611470
7EA6 99C0 1150 | DC /99C0 K2611480
7EA7 064D 1151 | AFLT DC /064D FLOAT 0D0 K2611490
7EA8 6063 1152 | DC /6063 K2611500
7EA9 2666 1153 | DC /2666 WRTYZ 0D8 K2611510
7EAA 3A29 1154 | DC /3A29 K2611520
7EAB 23A1 1155 | DC /23A1 TYPEZ 0E0 K2611530
7EAC 7169 1156 | DC /7169 K2611540
7EAD 2224 1157 | FIIF DC /2224 SIIF 0E8 K2611550
7EAE 9180 1158 | DC /9180 K2611560
7EAF 2218 1159 | FIF DC /2218 SFIF 0F0 K2611570
7EB0 9180 1160 | DC /9180 K2611580
7EB1 221D 1161 | FGOTO DC /221D SGOTO 0F8 K2611590
7EB2 68D6 1162 | DC /68D6 K2611600
7EB3 0305 1163 | DC /0305 CARDZ 100 K2611610
7EB4 9129 1164 | DC /9129 K2611620
7EB5 1765 1165 | DC /1765 PRNTZ 108 K2611630
7EB6 58E9 1166 | DC /58E9 K2611640
7EB7 1705 1167 | DC /1705 PAPTZ 110 K2611650
7EB8 78E9 1168 | DC /78E9 K2611660
7EB9 260C 1169 | FCHRI DC /260C WCHRI 118 K2611670
7EBA 8649 1170 | DC /8649 K2611680
1171 | * K2611690
1172 | * THE SUBR ENTRY NAMES FOR UNFORMATTED K2611700
1173 | * I/O ARE LOCATED IN TWO GROUPS, THUS K2611710
1174 | * ANY ONE HAS ONE OF TWO POSSIBLE K2611720
1175 | * DISPLACEMENTS, WHICH ARE K2611730
1176 | * /1200-/1400 OR K2611740
1177 | * /1D80-/1400 K2611750
1178 | * K2611760
7EBB 2464 1179 | DC /2464 URED 120 K2611770
7EBC 5100 1180 | DC /5100 K2611780
7EBD 2499 1181 | DC /2499 UWRT 128 K2611790
7EBE 98C0 1182 | DC /98C0 K2611800
7EBF 240D 1183 | DC /240D UCOMP 130 K2611810
7EC0 6517 1184 | DC /6517 K2611820
7EC1 1914 1185 | DC /1914 READZ 138 K2611830
7EC2 1129 1186 | DC /1129 K2611840
7EC3 2264 1187 | AERD DC /2264 SRED 140 K2611850
7EC4 5100 1188 | DC /5100 K2611860
7EC5 2299 1189 | DC /2299 SWRT 148 K2611870
7EC6 98C0 1190 | DC /98C0 K2611880
7EC7 220D 1191 | DC /220D SCOMP 150 K2611890
7EC8 6517 1192 | DC /6517 K2611900
7EC9 2218 1193 | AFIO DC /2218 SFIO 158 K2611910
7ECA 9580 1194 | DC /9580 K2611920
7ECB 2225 1195 | DC /2225 SIOAI 160 K2611930
7ECC 6049 1196 | DC /6049 K2611940
7ECD 2225 1197 | AIOAF DC /2225 SIOAF 168 K2611950
7ECE 6046 1198 | DC /6046 K2611960
7ECF 2225 1199 | DC /2225 SIOFX 170 K2611970
7ED0 61A7 1200 | DC /61A7 K2611980
7ED1 2225 1201 | DC /2225 SIOIX 178 K2611990
7ED2 6267 1202 | DC /6267 K2612000
7ED3 2225 1203 | DC /2225 SIOF 180 K2612010
7ED4 6180 1204 | DC /6180 K2612020
7ED5 2225 1205 | IOI DC /2225 SIOI 188 K2612030
7ED6 6240 1206 | DC /6240 K2612040
7ED7 2290 1207 | SUBSC DC /2290 SUBSC 190 K2612050
7ED8 2883 1208 | DC /2883 K2612060
7ED9 1765 1209 | DC /1765 PRNZ 198 K2612070
7EDA 5A40 1210 | DC /5A40 K2612080
7EDB 020D 1211 | BCKSP DC /020D BCKSP 1A0 K2612090
7EDC 2897 1212 | DC /2897 K2612100
7EDD 0558 1213 | EOF DC /0558 EOF 1A8 K2612110
7EDE 6000 1214 | DC /6000 K2612120
7EDF 1916 1215 | REWND DC /1916 REWND 1B0 K2612130
7EE0 6544 1216 | DC /6544 K2612140
7EE1 228D 1217 | DC /228D STOP 1B8 K2612150
7EE2 65C0 1218 | DC /65C0 K2612160
7EE3 1706 1219 | DC /1706 PAUSE 1C0 K2612170
7EE4 4885 1220 | DC /4885 K2612180
7EE5 2255 1221 | RSIGN DC /2255 SNR 1C8 K2612190
7EE6 9000 1222 | DC /9000 K2612200
7EE7 2290 1223 | DC /2290 SUBIN 1D0 K2612210
7EE8 2255 1224 | DC /2255 K2612220
7EE9 2418 1225 | DC /2418 UFIO 1D8 K2612230
7EEA 9580 1226 | DC /9580 K2612240
7EEB 2425 1227 | DC /2425 UIOAI 1E0 K2612250
7EEC 6049 1228 | DC /6049 K2612260
7EED 2425 1229 | DC /2425 UIOAF 1E8 K2612270
7EEE 6046 1230 | DC /6046 K2612280
7EEF 2425 1231 | DC /2425 UIOFX 1F0 K2612290
7EF0 61A7 1232 | DC /61A7 K2612300
7EF1 2425 1233 | DC /2425 UIOIX 1F8 K2612310
7EF2 6267 1234 | DC /6267 K2612320
7EF3 2425 1235 | DC /2425 UIOF 200 K2612330
7EF4 6180 1236 | DC /6180 K2612340
7EF5 2425 1237 | DC /2425 UIOI 208 K2612350
7EF6 6240 1238 | DC /6240 K2612360
7EF7 2210 1239 | MDFIO DC /2210 SDFIO 210 K2612370
7EF8 6256 1240 | DC /6256 K2612380
7EF9 2211 1241 | MDRED DC /2211 SDRED 218 K2612390
7EFA 9144 1242 | DC /9144 K2612400
7EFB 2212 1243 | DC /2212 SDWRT 220 K2612410
7EFC 6663 1244 | DC /6663 K2612420
7EFD 2210 1245 | DC /2210 SDCOM 228 K2612430
7EFE 3594 1246 | DC /3594 K2612440
7EFF 0000 1247 | DC 0 RESERVED TO KEEP CODE K2612450
7F00 0000 1248 | DC 0 DIFF CONSTANT K2612460
1249 | * BETWEEN DISK I/O K2612470
1250 | * ROUTINES AND OTHERS K2612480
7F01 2210 1251 | DC /2210 SDAI 238 K2612490
7F02 1240 1252 | DC /1240 K2612500
7F03 2210 1253 | DC /2210 SDAF 240 K2612510
7F04 1180 1254 | DC /1180 K2612520
7F05 2210 1255 | DC /2210 SDFX 248 K2612530
7F06 69C0 1256 | DC /69C0 K2612540
7F07 2210 1257 | DC /2210 SDIX 250 K2612550
7F08 99C0 1258 | DC /99C0 K2612560
7F09 2210 1259 | DC /2210 SDF 258 K2612570
7F0A 6000 1260 | DC /6000 K2612580
7F0B 2210 1261 | MDI DC /2210 SDI 260 K2612590
7F0C 9000 1262 | DC /9000 K2612600
7F0D 2210 1263 | MDFND DC /2210 SDFND 268 K2612610
7F0E 6544 1264 | DC /6544 K2612620
7F0F 1754 1265 | DC /1754 PNCHZ 270 K2612630
7F10 3229 1266 | DC /3229 K2612640
7F11 0000 1267 | EOTAB DC 0 NOT USED K2612650
7F12 0000 1268 | DC 0 K2612660
1269 | * K2612670
1270 | * K2612680
1271 | ************************************************** K2612690
1272 | * K2612700
1273 | * PROGRAM ENTRY K2612710
7F13 6138 1274 | ENT LDX 1 PHID GET ID THIS PHASE K2612720
7F14 6D00 0078 1275 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K2612730
1276 | * TEST IF OUTPUT IS TO BE DEFERRED K2612740
7F16 C400 7A2D 1277 | LD L ERROR K2612750
7F18 4C18 7B9A 1278 | BSC L START,+- BR TO START IF NO ERROR K2612760
1279 | * K2612770
1280 | * LOAD OVERLAY-RESTORE K2612780
1281 | * K2612790
7F1A 6100 1282 | EXIT LDX 1 0 K2612800
7F1B 6D00 7A23 1283 | STX L1 SOFS-1 K2612810
7F1D 6580 7F23 1284 | LDX I1 NXTPH+1 LOAD PARAMETER FOR READING K2612820
7F1F C804 1285 | LDD NXTPH+2 *NEXT PHASE K2612830
7F20 4C00 7FBC 1286 | BSC L ROL GO TO READ NEXT PHASE K2612840
7F22 1287 | BSS E 0 K2612850
7F22 0039 1288 | NXTPH DC 57 ID OF NEXT PHASE K2612860
7F23 0000 1289 | DC *-* CORE ADDRESS OF NEXT PHASE K2612870
7F24 0000 1290 | DC *-* WORD COUNT OF NEXT PHASE K2612880
7F25 0000 1291 | DC *-* SECTOR ADDRESS OF NEXT PHASE K2612890
1292 | * K2612900
7F26 1293 | BSS BPHAR+320*PHLEN-*-1 PATCH AREA 2-6 K2612910
7F57 0000 1294 | DC 0 K2612920
7F58 1295 | END BPHAR-2 K2612930
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$DBSY 00EE 93 591
$LINK 0039 94 693
$PHSE 0078 88 1275
AERD 7EC3 1187
AFIO 7EC9 1193
AFLT 7EA7 1151
AIFIX 7EA5 1149
AIOAF 7ECD 1197
BCKSP 7EDB 1211
BFEND 7D0A 663 923
BPHAR 7B98 176 1293 1295
BRNCH 7E17 1010 996
BSCL 7E5D 1068
BSIL 7E55 1059 302
BUFAD 7CEF 627 1005
BUFCT 7A38 159
BUFF 7A42 169 170 171 172 175 564 585 605 606 611 627 663
BUFPT 7A39 160 597 599 910 948 1004 1020 1022 1027 1029 1031 1036 1037
1039 1041 1045
C16 7D1A 679 574 985 1017 1043
C320 7D12 671 595 598
CCWD 7A31 118 189
CD16 7CF7 637 899 914
CLINK 7D25 693 304
COMON 7A2B 112 405
CON4B 7D06 659 343 489
CSIZE 7A2C 113
CSUBS 7D0C 665 454
DC20 7CEE 626 964
DC36 7CF0 628 962
DFCNT 7A33 139
DHDR0 7E23 1021 1018
DHDR1 7E3A 1033 973
DHDRA 7A3C 163 942 1030
DHDRR 7E19 1015 933 991 1046
DHDRX 7E32 1029 1024
DIFF 7BBC 247 218 241
DZ000 00F2 92 590
ENDLZ 7CB2 565 587
ENT 7F13 1274 183
EOF 7EDD 1213
EOFS 7A25 102
EOFST 7A2A 111
EOTAB 7F11 1267
ERROR 7A2D 114 875 1277
EXIT 7F1A 1282 876 1006 1010
FARI 7E9D 1141 224
FARIX 7E9F 1143 226
FAXIX 7E97 1135 206
FCHRI 7EB9 1169 213
FGOTO 7EB1 1161
FIAR 7EA1 1145
FIARX 7EA3 1147
FIF 7EAF 1159 228
FIIF 7EAD 1157
FNAME 7A2E 115
FOUR 7D02 654 655 737
FTOE 7BB4 239 207 214 225 227 229 243
GET1 7D3A 723 716 718 719 720 722 725 727 851
GETST 7D2E 713 348 418 531 539 553 715 728
H0004 7D02 655 217
H0005 7D14 673 721
H00FF 7D0F 668 492
H07FC 7D15 674 736
H07FF 7D10 669 714
H1D00 7CF4 633 451
H2000 7CFA 642 855
H3F00 7D0E 667 487
H4000 7D24 692
H4C08 7D0B 664 374
H4C80 7CFB 643 403
H4D80 7D08 661 362
H5080 7CFC 644 401
H5B00 7CF6 635 298 386
H5D00 7D07 660 355
H6200 7CFD 645 477
H7800 7D05 658 339
H7FFF 7CF5 634 502 523 556
HERE 7DDA 932 928
HF800 7D11 670 740
HFF00 7D09 662 359
HFF80 7D13 672 412
IBIT2 7DAF 892 890
IBIT3 7DB1 894 888
IBIT4 7DBC 901 897
IBIT5 7DBE 902 885 893
IBIT6 7DBF 903 887
IBIT7 7DC0 904 889
IBITS 7DA5 884 805 810 837 870 901
IDCAL 7D23 691 269
IDDAT 7D22 690 267
IDDEF 7D21 689 265
IDEND 7D04 657 327
IDFOR 7D03 656 262
INCPT 7D27 701 274 286 334 364 376 394 407 420 500 509 535 536
537 543 544 558 559 705 734
INCT 7A3A 161 573 886 896 900 913 984 1016 1044
INIT 7D44 733 256 742
INPT 7A3B 162 594 596 891 895 898 916 922 978 1019 1042
IOCS 7A32 127
IOI 7ED5 1205
LDXL1 7E69 1085 389
LOCTR 7A3D 164 365 503 819 918 955 958 1021 1025
LZERO 7E4E 1048 972
M1600 7CF2 631 457
M1680 7CF3 632 459
M1E00 7D18 677 465
M1E80 7D19 678 467
M2380 7D17 676 463
M2400 7D16 675 461
MDFIO 7EF7 1239
MDFND 7F0D 1263
MDI 7F0B 1261
MDRED 7EF9 1241
MEMRY 8000 87 89 90
MOV1 7CD5 605 608
NEQ 7B98 183
NOWS 7CE5 618 588
NXTPH 7F22 1288 179 620 621 1284 1285
ONE 7CFF 651 581 852 869 943 957 988
ORG 7A23 100 863 1026
ORGSW 7D26 694 192 860 1023
OUABS 7D4F 749 276 303 305 309 314 346 363 375 390 393 404 494
499 514 534 542 557 844 872
OUCAL 7D55 770 441 788 824
OULCL 7D57 774 419 787
OUREL 7D51 758 349 532 540 554 830 871
OURNC 7D53 764 367 406 505 524 829
OUTE1 7E0D 991 986
OUTER 7DEC 952 331
OVERL 7A23 90 97
PCT 7DDF 939 917 919 949 976 1040
PCT0 7DE4 945 580 582 614 944 987 989
PCT1 7DEA 949 613
PHID 0038 91 1274
PHLEN 0003 95 1293
PRLGT 7A3E 165 947 961 979 1032
Q1005 7BA6 207 209
Q1011 7BBD 251 197 230
Q2012 7BC2 256 279 289 329
Q2013 7BD2 274 263 278
Q2014 7BD3 275
Q201A 7BBD 250 251
Q2101 7BD9 285 266 268 288 315
Q2201 7BDF 297 270
Q2211 7BE3 302
Q3011 7BF2 323 271 299 350 368 395 408 421 471 495 506 518 560
Q3013 7BFB 334 325
Q3014 7BFC 335 546
Q3021 7BFF 338
Q3022 7C06 345 344
Q3023 7C09 347 340
Q4011 7C0D 355 337
Q4012 7C18 367 378
Q4021 7C1A 374 357
Q4031 7C1F 385 361
Q4041 7C2B 400 388
Q4042 7C33 406
Q5011 7C36 411 402
Q7011 7C3F 424 414
Q7012 7C46 436 434 438 440
Q7021 7C67 476 427
Q7022 7C72 493 490
Q7031 7C77 498 478
Q7051 7C83 509 452 516 526
Q7055 7C90 523 511
Q8011 7C93 530 455
Q8021 7C9B 538 547
Q8051 7CA6 552 468
REWND 7EDF 1215
ROL 7FBC 89 622 1286
RSIGN 7EE5 1221
SBSCL 7E6B 1087
SOFGT 7A29 110
SOFNS 7A27 107
SOFS 7A24 101 250 619 1283
SOFST 7A26 103 717 966
SOFXT 7A28 109
SORF 7A30 117
SSTOR 7D0D 666 433
START 7B9A 186 1278
STOID 7D1F 686 257 326 741
STONA 7D1C 683 780 795 806 822 828 835 841 850 862 864
STXL1 7E70 1092 498
SUBSC 7ED7 1207
SWISH 7D1B 680 803 927 930
T7005 7D59 780 775
T7006 7D5F 788
T7011 7D63 795 771
T7013 7D69 803 792
T7014 7D76 822 814
T7051 7D7A 828 765
T8011 7D7E 835 750
T8012 7D81 841 873
T8013 7D85 850 759
T8014 7D8A 854 853
T8015 7D91 860 831 856
T8016 7D9C 869 861
T8017 7D9D 870 858 867
T8018 7DA1 875 865 1028
TAB4 7E4F 1053 659
TAB6 7E5E 1074
TABSS 7E75 1101 206 213 224 226 228 240 242 666
TEMP1 7CF8 640 790 799 804
TEMP2 7CF9 641 782 797 808
TEN 7CF1 629
THERE 7DDD 935 931
THREE 7D01 653 789 1033
TOBU1 7DCC 918 915
TOBUC 7DCB 917
TOBUF 7DC1 909 807 823 842 924 935
TWO 7D00 652 798
TWOWC 7D20 687 786 802 813
WCNT 7D1E 685 277 287 323 703 738
WD1 7A42 170
WD2 7A43 171
WD3 7A44 172
WR900 7CB0 563 589
WRIT0 7CBE 585 575
WRITE 7CB3 567 616 932 999 1007
WRITX 7CB7 575 997
Z 7CFE 648 192 217 256 257 262 265 267 269 274 276 277 286
287 298 303 304 305 309 314 323 326 327 334 339
343 346 348 349 355 359 362 363 364 367 374 375
376 386 390 393 394 401 403 404 406 407 412 418
419 420 433 441 451 454 457 459 461 463 465 467
477 487 489 492 494 499 500 502 505 509 514 523
524 531 532 534 535 536 537 539 540 542 543 544
553 554 556 557 558 559 574 581 595 598 714 721
734 736 737 738 740 741 780 781 782 785 786 789
790 795 796 797 798 799 802 803 804 806 808 813
822 828 835 836 841 850 852 855 857 860 862 864
866 869 899 914 923 927 930 932 943 957 962 964
985 988 997 999 1005 1007 1017 1023 1033 1038 1043 1048
ZERO 7CFE 647 187 253 609 648 781 785 796 836 857 866 1038 1048