ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \jqpreci.asm
PRECI- RESIDENT COMMA 2 AUG 67
2 | ABS J1700020
0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE J1700030
0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 J1700040
0007 5 | $COMN EQU /7 WORD COUNT OF COMMON J1700050
000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) J1700060
000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED J1700070
0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED J1700080
0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) J1700090
0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O J1700100
0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY J1700110
0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS J1700120
0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP J1700130
002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE J1700140
002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 J1700150
0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS J1700160
0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD J1700170
0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP J1700180
0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ J1700190
0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY J1700200
0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS J1700210
0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT J1700220
0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT J1700230
003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT J1700240
0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR J1700250
0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE J1700260
0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA J1700270
007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE J1700280
007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD J1700290
007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW J1700300
007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE J1700310
007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP J1700320
007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 J1700330
0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 J1700340
0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 J1700350
0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 J1700360
0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 J1700370
008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 J1700380
0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP J1700390
0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 J1700400
009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 J1700410
009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 J1700420
00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 J1700430
00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 J1700440
00B8 45 | $I205 EQU /B8 J1700450
00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 J1700460
00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 J1700470
00D3 48 | $I405 EQU /D3 J1700480
00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 J1700490
00D5 50 | $I410 EQU /D5 J1700500
00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY J1700510
01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL J1700520
00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT J1700530
01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ J1700540
7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE J1700560
57 | *************************************************** J1700570
58 | * * J1700580
59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J1700590
60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * J1700600
61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * J1700610
62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J1700620
63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * J1700630
64 | * FROM .C. * J1700640
65 | * * J1700650
66 | *************************************************** J1700660
67 | * * J1700670
68 | * CATCO DCOM IMAGE * J1700680
69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J1700690
70 | * * J1700700
71 | *************************************************** J1700710
FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM J1700720
FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM J1700730
FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO = NO FILES J1700740
FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE J1700750
FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE J1700760
FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI J1700770
FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS J1700780
FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED J1700790
FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS J1700800
FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER J1700810
FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS J1700820
FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG J1700830
FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 J1700840
85 | * J1700850
86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * J1700860
FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE J1700870
FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE J1700880
89 | * * J1700890
FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE J1700900
FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA J1700910
FF96 92 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE J1700920
FF97 93 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA J1700930
FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL J1700940
FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR J1700950
FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR J1700960
FF9B 97 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR J1700970
FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR2-8 J1700980
FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR 2-8 J1700990
FF9E 100 | #GCNT EQU 30-/80 NO. G2250 RECORDS 2-8 J1701000
FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALLS-LOCAL INDR 2-8 J1701010
FFA0 102 | #X3SW EQU 32-/80 SPECIAL ILS SWITCH 2-8 J1701020
FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RCDS 2-8 J1701030
FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 J1701040
FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 J1701050
FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) J1701060
FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 J1701070
FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 J1701080
FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 J1701090
FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 J1701100
FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 J1701110
FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 J1701120
FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 J1701130
FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 J1701140
FFDA 115 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 J1701150
0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM J1701160
0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING J1701170
0FB0 118 | @SBFR EQU /FB0 2-8 J1701180
CONCATENATED COMMON AREA (CATCO)
120 | *************************************************** J1701200
121 | * * J1701210
122 | * CATCO IOAR HDRS FOR DUP PHASES J1701220
123 | * * J1701230
124 | *************************************************** J1701240
FFF0 125 | ORG -/10 J1701250
FFF0 126 | DCHDR BSS 2 DUP CONTROL PH02 J1701260
FFF2 127 | STHDR BSS 2 STORE PH03 J1701270
FFF4 128 | FLHDR BSS 2 FILEQ PH04 J1701280
FFF6 129 | DMHDR BSS 2 DUMP PH05 J1701290
FFF8 130 | DLHDR BSS 2 DUMPLET PH06 J1701300
FFFA 131 | DTHDR BSS 2 DELETE PH07 J1701310
FFFC 132 | DFHDR BSS 2 DEFINE PH08 J1701320
FFFE 133 | DXHDR BSS 2 DUP EXIT PH09 J1701330
0000 134 | UCHDR BSS 2 DUP UPCOR PH13 J1701340
0002 135 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 J1701350
0004 136 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 J1701360
0006 137 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 J1701370
0008 138 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER J1701380
000A 139 | MUHDR BSS 2 MACRO UPDATE PH206 2-8 J1701390
000C 140 | D2HDR BSS 2 DUP CONTROL 2 PH205 2-8 J1701400
PRECI- CATCO DUP SWITCHES
142 | *************************************************** J1701420
143 | * J1701430
144 | * CATCO DUP SWITCHES * J1701440
145 | * WORDS USED FOR COMMUNICATION OF DATA J1701450
146 | * BETWEEN DUP ROUTINES. J1701460
147 | * * J1701470
148 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * J1701480
149 | * J1701490
150 | *************************************************** J1701500
000E 151 | CL1 EQU * J1701510
000E 152 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM J1701520
000F 153 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S J1701530
0010 154 | BLKSW BSS 1 NON ZERO IF BYPASSING REC J1701540
0011 155 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 J1701550
0012 156 | CISW BSS 1 NON ZERO IF STORE CI J1701560
0013 157 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED J1701570
0014 158 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD J1701580
159 | * * J1701590
160 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * J1701600
161 | * DUP CONTROL RECORD. * J1701610
162 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J1701620
163 | * USED FOR COUNT OF RECORDS TO READ AFTER A * J1701630
164 | * STORE CI DUP CONTROL RECORD. * J1701640
0015 165 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD J1701650
0016 166 | DBADR BSS 1 DB ADDR OF REFERENCED PROG J1701660
0017 167 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 J1701670
0018 168 | DFNSW BSS 1 NON ZERO IF DEFINE FXA J1701680
0019 169 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE J1701690
001A 170 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP J1701700
001C 171 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR J1701710
001D 172 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS J1701720
001E 173 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD J1701730
001F 174 | HOLSW BSS 1 NON ZERO IF NO CONV REQD J1701740
0020 175 | IOSW BSS 1 NON ZERO IF IN/OUT REQD J1701750
176 | * * J1701760
177 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J1701770
178 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J1701780
179 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * J1701790
0021 180 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* J1701800
0022 181 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD J1701810
0023 182 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC J1701820
0024 183 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F J1701830
0025 184 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA J1701840
0026 185 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR J1701850
0027 186 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT J1701860
0028 187 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD J1701870
0029 188 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT J1701880
002A 189 | STCSW BSS 1 NON ZERO IF STORE DATA CI J1701890
002B 190 | STSW BSS 1 NON ZERO IF STORE TYPE J1701900
002C 191 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT J1701910
002D 192 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT J1701920
002E 193 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS J1701930
002F 194 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL J1701940
0030 195 | UASW BSS 1 NON ZERO IF USER AREA REQD J1701950
0031 196 | WSSW BSS 1 NON ZERO IF WORK STG REQD J1701960
0032 197 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET J1701970
0033 198 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 J1701980
0034 199 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-8 J1701990
0035 200 | RPGSW BSS 1 NON Z IF DEFINE VOID RPG2-8 J1702000
0036 201 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 J1702010
0037 202 | BSS 1 RESERVED FOR ADDITION 2-8 J1702020
0037 203 | CL2 EQU *-1 J1702030
PRECI- CATCO DUP SWITCHES
205 | *************************************************** J1702050
206 | * * J1702060
207 | * CATCO DUP SWITCHES * J1702070
208 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * J1702080
209 | * * J1702090
210 | *************************************************** J1702100
0038 211 | IOREQ BSS 1 MON-ZERO,AUX I/O SET REQ J1702110
0039 212 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE J1702120
003A 213 | PH3 BSS 1 NON-ZERO IF STORE IN CORE J1702130
003B 214 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE J1702140
215 | ************************************************2-8 J1702150
216 | * 2-8 J1702160
217 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 J1702170
218 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J1702180
219 | * 2-8 J1702190
220 | ************************************************2-8 J1702200
003C 221 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 J1702210
222 | *************************************************** J1702220
223 | * * J1702230
224 | * CATCO DUP SWITCHES SET BY CCAT SUBR * J1702240
225 | * * J1702250
226 | *************************************************** J1702260
003D 227 | ADDR2 BSS 1 KB INTERRUPT ADDRESS J1702270
003E 228 | KBREQ BSS 1 CONTENTS OF LOC 13 J1702280
229 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE J1702290
230 | * PRINCIPAL INPUT DEVICE J1702300
231 | * - IS PAPER TAPE J1702310
232 | * 0 IS CARD J1702320
233 | * + IS KEYBOARD J1702330
003F 234 | INOUT BSS 1 PRINCIPAL INPUT SWITCH J1702340
235 | * J1702350
0040 236 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS J1702360
237 | *************************************************** J1702370
238 | * * J1702380
239 | * LEVEL 4 INTERRUPT BRANCH TABLE * J1702390
240 | * ADDRESSES. INITIALIZED BY CCAT, * J1702400
241 | * AND CARD/PAPER TAPE INTERFACES. * J1702410
242 | * * J1702420
243 | *************************************************** J1702430
0049 244 | ORG /0049 J1702440
0049 245 | IBT BSS 9 9 WD INTRPT BRANCH TABLE J1702450
246 | *************************************************** J1702460
247 | * * J1702470
248 | * CATCO I/O ADDRESSES REQUIRED BY DUP * J1702480
249 | * * J1702490
250 | *************************************************** J1702500
0052 251 | P1442 BSS E 2 SYS 1442 IOAR HEADER J1702510
0054 252 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT J1702520
0056 253 | PHDUP BSS 1 LAST DUP PHASE IN CORE J1702530
0057 254 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS J1702540
0058 255 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR J1702550
0059 256 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR J1702560
005A 257 | IOBLK BSS 1 ADDR OF DUP I/O PHASE J1702570
005B 258 | SDBUF BSS 1 STORE/DUMP BUFFER J1702580
005C 259 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER J1702590
005D 260 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC J1702600
005E 261 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 J1702610
005F 262 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 J1702620
00F2 264 | DISKZ EQU DZ000 DISKZ ENTRY POINT J1702640
01DE 265 | B EQU $ZEND-2 J1702650
01DE 266 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT J1702660
01DE 267 | EXITC EQU B IOAR CORE ADDR FOR DEXIT J1702670
01DE 268 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 J1702680
11E0 269 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL J1702690
11DE 270 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL J1702700
21DE 271 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE J1702710
41DE 272 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP J1702720
7DB0 273 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO J1702730
7F1E 274 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER J1702740
275 | * * J1702750
276 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J1702760
277 | * * J1702770
7DB0 278 | ORG DUPCO J1702780
7DB0 279 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC J1702790
7DB1 280 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE J1702800
7DB2 281 | ENTER BSS 1 SAVE XR-S AND CONDITIONS J1702810
7DB3 282 | GET BSS 1 READ FROM DISK USING DISKZ J1702820
7DB4 283 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP J1702830
7DB5 284 | LINE BSS 1 SPACES PRINTER 1 LINE J1702840
7DB6 285 | MASK BSS 1 INHIBITS KB INT REQUEST J1702850
7DB7 286 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S J1702860
7DB8 287 | PAGE BSS 1 SKIPS TO NEXT PAGE J1702870
7DB9 288 | PHID BSS 1 RECORDS PHASE ID J1702880
7DBA 289 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER J1702890
7DBB 290 | PRINT BSS 1 USE SYS PR SUBR TO PRINT J1702900
7DBC 291 | PUT BSS 1 WRITES TO DISK USING DISKZ J1702910
7DBD 292 | REST BSS 1 RESTORE CATCO,GO TO DCTL J1702920
7DBE 293 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS J1702930
294 | * * J1702940
295 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * J1702950
296 | * * J1702960
7D91 297 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER J1702970
7C50 298 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC. PTR J1702980
7A06 299 | IOADR EQU BUF6-/38B START OF I/O INTERFACE J1702990
7A0A 300 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE J1703000
7A0B 301 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY J1703010
7A0C 302 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY J1703020
7A0D 303 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY J1703030
79B5 304 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER J1703040
7963 305 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER J1703050
7925 306 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER J1703060
78D3 307 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER J1703070
7782 308 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR J1703080
0640 309 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR J1703090
UPCOR-SAVED DURING STORECI BY DEXIT
7782 311 | ORG BUF5 J1703110
7782 0000 312 | DC *-* WD CNT, CREATED BY SYS LDR J1703120
7783 000D 313 | DC 13 UPCOR PHASE ID J1703130
7784 314 | BSS /8000-*-1 UPCOR AREA J1703140
7FFF FFFF 315 | DC /FFFF SIGNIFY END OF UPCOR AREA J1703150
PRINCIPAL I/O-GENERATED BY CCAT
7A06 317 | ORG IOADR J1703170
*SBRKGPW 0E 318 | DUP - PRINCIPAL I/O DUMMY PHASE J1703180
7A06 0000 319 | DC *-* WD CNT, CREATED BY SYS LDR J1703190
7A07 000E 320 | DC 14 PRINC. I/O PHASE ID J1703200
7A08 321 | BSS PRPNT-*-1 AREA REQ FOR PHASE 14 J1703210
7C4F FFFF 322 | DC /FFFF SIGNIFY END OF PHASE 14 J1703220
PRINCIPAL I/O (W/O KB)-BUILT BY CCAT
7A06 324 | ORG IOADR J1703240
*SBRKGPW 0F 325 | DUP - PRINCIPAL I/O (W/O KB) DUMMY PHASE J1703250
7A06 0000 326 | DC *-* WD CNT, CREATED BY SYS LDR J1703260
7A07 000F 327 | DC 15 I/O (W/O DB) PHASE ID J1703270
7A08 328 | BSS PRPNT-*-1 AREA REQ FOR PHASE 15 J1703280
7C4F FFFF 329 | DC /FFFF SIGNIFY END OF PHASE 15 J1703290
PAPER TAPE I/O-BUILT BY CCAT
7A06 331 | ORG IOADR J1703310
*SBRKGPW 10 332 | DUP - PAPER TAPE I/O DUMMY PHASE J1703320
7A06 0000 333 | DC *-* WD CNT, CREATED BY SYS LDR J1703330
7A07 0010 334 | DC 16 PAPT I/O PHASE ID J1703340
7A08 335 | BSS PRPNT-*-1 AREA REQ FOR PHASE 16 J1703350
7C4F FFFF 336 | DC /FFFF SIGNIFY END OF PHASE 16 J1703360
PRECI--PROLOGUE
338 | *************************************************** J1703380
339 | * * J1703390
340 | *STATUS - VERSION 2, MODIFICATION 11 * J1703400
341 | * * J1703410
342 | *FUNCTION/OPERATION- * J1703420
343 | * THIS DUP MODULE MOVES A CORE IMAGE PROGRAM * J1703430
344 | * AS BUILT BY THE CORE LOAD BUILDER TO THE * J1703440
345 | * USER AREA OR FIXED AREA OF ANY DRIVE. * J1703450
346 | * * J1703460
347 | *ENTRY POINTS- * J1703470
348 | * PC000-ENTER FROM CORE LOAD BUILDER AFTER THE * J1703480
349 | * CORE IMAGE PROGRAM HAS BEEN BUILT AS * J1703490
350 | * THE RESULT OF A DUP STORECI FUNCTION. * J1703500
351 | * * J1703510
352 | *INPUT- * J1703520
353 | * * CIB- FIRST 4K OF CORE LOAD. * J1703530
354 | * * CORE- CORE LOAD IS EXCESS OF 4K RESIDES * J1703540
355 | * IN CORE FROM 4K UPWARD. * J1703550
356 | * * WORKING STORAGE- ALL LOCALS SOCALS, AND * J1703560
357 | * NOCALS REQUIRED BY CORE LOAD. THE WORKING * J1703570
358 | * STORAGE DRIVE WILL BE THE 'JOB' WORKING * J1703580
359 | * STORAGE. * J1703590
360 | * * J1703600
361 | *OUTPUT- * J1703610
362 | * * USER AREA-WHEN FUNCTION IS STORECI TO UA. * J1703620
363 | * * FIXED AREA-WHEN FUNCTION IS STORECI TO FXA. * J1703630
364 | * * J1703640
365 | *EXTERNAL REFERENCES- * J1703650
366 | * SUBROUTINES- * J1703660
367 | * * DISKZ-PERFORMS REQUIRED DISK I/O * J1703670
368 | * COMMA/DCOM- * J1703680
369 | * * $ CORE * J1703690
370 | * * #UHOL * J1703700
371 | * * #FHOL * J1703710
372 | * * #USZE * J1703720
373 | * * #FSZE * J1703730
374 | * * $WSDR * J1703740
375 | * * $PHSE * J1703750
376 | * * $CIBA * J1703760
377 | * * #TODR * J1703770
378 | * * J1703780
379 | *EXITS- * J1703790
380 | * NORMAL-EXIT TO DUP CONTROL WITH CATCO SWITCHES* J1703800
381 | * PH2,PH3,PH4 SET TO ZERO. * J1703810
382 | * ERROR-EXIT TO DUP CONTROL AFTER ZEROING * J1703820
383 | * PH2,PH3, AND PH4 WITH THE ERROR CODE * J1703830
384 | * IN CIERR. * J1703840
385 | * * J1703850
386 | *TABLES/WORK AREAS- * J1703860
387 | * DISK BUFFERS- * J1703870
388 | * * DCBUF-ONE SECTOR DCOM BUFFER * J1703880
389 | * * CIBUF-FOUR SECTOR CI PROGRAM BUFFER * J1703890
390 | * * J1703900
391 | *ATTRIBUTES- * J1703910
392 | * SERIALLY REUSEABLE * J1703920
393 | * * J1703930
394 | *NOTES-N/A * J1703940
395 | *************************************************** J1703950
PRECI--ENTRY FROM CORE LOAD BUILDER
01DE 397 | ORG B J1703970
*SBRKGPW 11 398 | DUP - MOVE DCI PROGRAMS TO UA OR FXA J1703980
01DE 0000 399 | DC *-* WD CNT SUPPLIED BY SYS LOADER J1703990
01DF FFEF 400 | DC -17 SLET INFO REQ BY THIS PHASE J1704000
01E0 01A8 401 | DC P-PC000 ADDR OF SLET WORK AREA J1704010
01E1 0001 402 | DC 1 NO. OF SLET ENTRIES REQ J1704020
01E0 403 | ORG *-2 OVERLAY SYS LOADER WORDS J1704030
404 | *************************************************** J1704040
405 | * * J1704050
406 | * DETERMINE IF CORE LOAD WAS BUILT * J1704060
407 | * * J1704070
408 | *************************************************** J1704080
0009 409 | $INT1 EQU /0009 ADDR OF LEVEL 1 INTRPT ADDR J1704090
410 | *************************************************** J1704100
01E0 0000 411 | PC000 DC *-* ENT POINT FROM CLB J1704110
01E1 4480 03D8 412 | BSI I PHIDP PHASE ID OF PRECI TO $PHSE J1704120
01E3 0011 413 | DC /0011 J1704130
01E4 C400 0034 414 | LD L $NDUP J1704140
01E6 4C20 02F0 415 | BSC L PC250,Z BR IF CORE LOAD NOT BUILT J1704150
416 | * * J1704160
01E8 6500 0388 417 | LDX L1 P XR1 IS PRECI WORK AREA PT J1704170
01EA C400 007A 418 | LD L $WSDR J1704180
01EC 100C 419 | SLA 12 WS DR CODE, ACC BITS 0-3 J1704190
01ED E904 420 | OR 1 PC904-P COMPLETE DCOM SCTR ADDR J1704200
01EE 18D0 421 | RTE 16 J1704210
01EF C904 422 | LDD 1 PC904-P SET UP DISK I/O TO READ J1704220
01F0 DD00 FF7E 423 | STD L1 -130 *FIRST 128 WORDS OF DCOM. J1704230
424 | * * J1704240
01F2 6700 0306 425 | LDX L3 P-130 XR3 IS IOAR ADDR FOR DCOM J1704250
01F4 4480 03D9 426 | BSI I GETP READ DCOM J1704260
427 | *************************************************** J1704270
428 | * * J1704280
429 | * SAVE CORE IMAGE HEADER IN PRECI WORK AREA * J1704290
430 | * * J1704300
431 | *************************************************** J1704310
01F6 C400 0005 432 | LD L $CIBA J1704320
01F8 D107 433 | STO 1 PC907-P J1704330
01F9 6700 038E 434 | LDX L3 PC906 I/O ADDR FOR CI HDR IN XR3 J1704340
01FB 4480 03D9 435 | BSI I GETP READ CORE IMAGE HEADER J1704350
436 | *************************************************** J1704360
437 | * * J1704370
438 | * COMPUTE NUMBER OF SECTORS REQUIRED FOR * J1704380
439 | * CORE IMAGE PROGRAM, INCLUDING ANY LOCALS * J1704390
440 | * AND SOCALS. * J1704400
441 | * * J1704410
442 | *************************************************** J1704420
01FD C111 443 | LD 1 PC917-P J1704430
01FE 8130 444 | A 1 PC948-P ROUND WD CNT UP BY 319 J1704440
01FF 18D0 445 | RTE 16 *TO GET NO. OF SCTRS REQ J1704450
0200 1010 446 | SLA 16 J1704460
0201 A931 447 | D 1 PC949-P J1704470
0202 D132 448 | STO 1 PC950-P SCTRS REQ W/O LOCALS/SOCALS J1704480
0203 8122 449 | A 1 PC934-P J1704490
0204 D133 450 | STO 1 PC951-P TOTAL SECTORS REQUIRED J1704500
0205 1004 451 | SLA 4 J1704510
0206 D186 452 | STO 1 #DBCT DB CNT OF TOTAL CI PROGRAM J1704520
453 | *************************************************** J1704530
454 | * * J1704540
455 | * DETERMINE IF DISK AREA DESTINATION WILL * J1704550
456 | * CONTAIN CORE IMAGE PROGRAM * J1704560
457 | * * J1704570
458 | *************************************************** J1704580
0207 C196 459 | LD 1 #UHOL J1704590
0208 4C18 0211 460 | BSC L PC020,+- BR IF STORECI TO FIXED AREA J1704600
461 | * * J1704610
020A D134 462 | STO 1 PC952-P DESTINATION DB ADDR J1704620
020B C197 463 | LD 1 #USZE J1704630
020C 1804 464 | PC010 SRA 4 J1704640
020D 9133 465 | S 1 PC951-P J1704650
020E 4C28 02F5 466 | BSC L PC255,+Z BR IF DESTINATION TOO SMALL J1704660
0210 7004 467 | MDX PC040 J1704670
468 | * * J1704680
0211 C194 469 | PC020 LD 1 #FHOL J1704690
0212 D134 470 | STO 1 PC952-P DESTINATION DB ADDR J1704700
0213 C195 471 | LD 1 #FSZE J1704710
0214 70F7 472 | MDX PC010 J1704720
PRECI--LOCALS/SOCALS TO UA OR FXA
0215 4480 03D8 474 | PC040 BSI I PHIDP MODIFY PHASE ID J1704740
0217 1011 475 | DC /1011 LOCAL/SOCAL PRECI MODIFIER J1704750
0218 6680 03AA 476 | LDX I2 PC934 XR2 IS NO. OF LOCALS/SOCALS J1704760
021A C134 477 | LD 1 PC952-P J1704770
021B E136 478 | AND 1 PC954-P MASK OF LAST POSITION J1704780
021C D14B 479 | STO 1 PC989-P *OF DESTINATION DB ADDR. J1704790
480 | * * J1704800
021D C134 481 | LD 1 PC952-P J1704810
021E 8136 482 | A 1 PC954-P ADJUST DESTINATION DB ADDR J1704820
021F 1890 483 | SRT 16 *TO SECTOR BOUNDARY. J1704830
0220 C192 484 | LD 1 #TODR INCLUDE DR CODE OF 'TO' DR J1704840
0221 108C 485 | SLT 12 J1704850
0222 D135 486 | STO 1 PC953-P INT DESTINATION SCTR ADDR J1704860
0223 D13D 487 | STO 1 PC961-P J1704870
0224 1004 488 | SLA 4 J1704880
0225 D134 489 | STO 1 PC952-P ADJUSTED DB ADDR J1704890
0226 6780 007A 490 | LDX I3 $WSDR XR3 IS DR CODE OF WS J1704900
0228 C132 491 | LD 1 PC950-P IS WS FILE GT 2-5 J1704910
0229 910D 492 | S 1 PC913-P *PROGRAM 2-5 J1704920
022A 4828 493 | BSC +Z NO - SKIP 2-5 J1704930
022B D14E 494 | STO 1 PC992-P YES - SET MOVE INDICATR 2-5 J1704940
022C C700 0095 495 | LD L3 $FPAD J1704950
022E 810D 496 | A 1 PC913-P COMPUTE 2-5 J1704960
022F 7400 03D6 497 | MDX L PC992,0 *INITIAL 2-5 J1704970
0231 7002 498 | MDX PC045 *SOURCE 2-5 J1704980
0232 8122 499 | A 1 PC934-P *SECTOR 2-5 J1704990
0233 914D 500 | S 1 PC991-P *ADDR FOR LOCALS/SOCALS J1705000
0234 D137 501 | PC045 STO 1 PC955-P STORE THE ADDRESS J1705010
502 | * * J1705020
0235 18D0 503 | RTE 16 J1705030
0236 C135 504 | LD 1 PC953-P J1705040
0237 8132 505 | A 1 PC950-P J1705050
0238 7400 03D6 506 | MDX L PC992,0 2-5 J1705060
023A 7002 507 | MDX PC048 2-5 J1705070
023B 8122 508 | A 1 PC934-P J1705080
023C 914D 509 | S 1 PC991-P COMPUTE DESTINATION SCTR J1705090
023D D138 510 | PC048 STO 1 PC956-P *ADDR FOR LOCALS/SOCALS J1705100
511 | *************************************************** J1705110
512 | * * J1705120
513 | * DETERMINE IF ANY LOCALS OR SOCALS * J1705130
514 | * * J1705140
515 | *************************************************** J1705150
023E C122 516 | LD 1 PC934-P J1705160
023F 4C18 025B 517 | BSC L PC100,+- BR IF NO LOCALS OR SOCALS J1705170
0241 C131 518 | LD 1 PC949-P J1705180
0242 6700 0640 519 | LDX L3 BUF7 XR3 IS IOAR ADDR OF WS BFR J1705190
0244 DB00 520 | STD 3 0 SET-UP IOAR TO READ WS J1705200
0245 4480 03D9 521 | PC050 BSI I GETP READ LOCAL/SOCAL SECTOR J1705210
0247 C138 522 | LD 1 PC956-P J1705220
0248 D301 523 | STO 3 +1 SET-UP IOAR TO WRITE UA/FXA J1705230
0249 4480 03DA 524 | BSI I PUTP WRITE LOCAL/SOCAL SECTOR J1705240
525 | * * J1705250
024B C14E 526 | LD 1 PC992-P 2-5 J1705260
024C 4C10 0253 527 | BSC L PC060,- 2-5 J1705270
024E 7401 03BF 528 | MDX L PC955,1 2-5 J1705280
0250 7401 03C0 529 | MDX L PC956,1 2-5 J1705290
0252 7004 530 | MDX PC070 2-5 J1705300
0253 74FF 03BF 531 | PC060 MDX L PC955,-1 DECR WS SECTOR ADDRESS J1705310
0255 74FF 03C0 532 | MDX L PC956,-1 DECR VA/FXA SECTOR ADDRESS J1705320
0257 C137 533 | PC070 LD 1 PC955-P J1705330
0258 D301 534 | STO 3 +1 SET-UP IOAR TO READ WS J1705340
0259 72FF 535 | MDX 2 -1 DECR LOCAL/SOCAL COUNTER J1705350
025A 70EA 536 | MDX PC050 CONT IF MORE LOCALS/SOCALS J1705360
PRECI--CORE IMAGE BUFFER TO UA/FXA
538 | *************************************************** J1705380
539 | * * J1705390
540 | * MOVE CORE LOAD RESIDING IN CIB TO UA/FXA * J1705400
541 | * * J1705410
542 | *************************************************** J1705420
025B 4480 03D8 543 | PC100 BSI I PHIDP MODIFY PHASE ID J1705430
025D 2011 544 | DC /2011 CIB TO UA/FXA MODIFIER J1705440
025E C139 545 | LD 1 PC957-P J1705450
025F 910E 546 | S 1 PC914-P J1705460
0260 4C08 03DB 547 | BSC L PC270,+ BR IF PROG ALL IN CORE J1705470
0262 D13A 548 | STO 1 PC958-P J1705480
0263 9111 549 | S 1 PC917-P J1705490
550 | *************************************************** J1705500
551 | * * J1705510
552 | * DETERMINE IF CORE LOAD EXCEEDS 4K BOUNDARY * J1705520
553 | * * J1705530
554 | *************************************************** J1705540
0264 4C28 029C 555 | BSC L PC170,+Z BR IF CORE LOAD ABOVE 4K J1705550
0266 C111 556 | LD 1 PC917-P J1705560
0267 D002 557 | PC110 STO PC125+1 INITLZ LDX INSTRUCTION J1705570
0268 6104 558 | PC120 LDX 1 4 XR1 IS MOD 4 LOOP COUNTER J1705580
0269 6700 0000 559 | PC125 LDX L3 *-* XR3 IS WD CNT FOR CIB TO DK J1705590
026B 6200 560 | LDX 2 0 XR2 IS MOD 4 SCTR WD CNT J1705600
026C 7600 0140 561 | PC130 MDX L2 +320 INCR MOD 4 WD CNT J1705610
026E 7700 FEC0 562 | MDX L3 -320 DECR CIB TO DK WD COUNT J1705620
0270 7004 563 | MDX PC140 J1705630
0271 7700 0140 564 | MDX L3 +320 INCR CIB TO DK WD COUNT J1705640
0273 1000 565 | NOP ALLOW FOR SKIP J1705650
0274 7016 566 | MDX PC160 J1705660
0275 71FF 567 | PC140 MDX 1 -1 DECR MOD 4 LOOP COUNTER J1705670
0276 70F5 568 | MDX PC130 CONT IF COUNTER POSITIVE J1705680
569 | *************************************************** J1705690
570 | * * J1705700
571 | * MOVE FOUR FULL SECTORS FROM CIB TO UA/FXA * J1705710
572 | * * J1705720
573 | *************************************************** J1705730
0277 6BF2 574 | STX 3 PC125+1 SAVE REMAINING WD CNT J1705740
0278 6E00 0640 575 | STX L2 BUF7 J1705750
027A 6700 0640 576 | LDX L3 BUF7 J1705760
027C C400 038F 577 | LD L PC907 SET UP IOAR TO READ CIB J1705770
027E D301 578 | STO 3 +1 J1705780
027F 4480 03D9 579 | BSI I GETP READ FOUR SCTRS OF CIB J1705790
580 | * * J1705800
0281 C400 03BD 581 | LD L PC953 CHANGE SCTR ADDR TO SCTR J1705810
0283 D301 582 | STO 3 +1 *ADDR OF UA/FXA DESTINATION J1705820
0284 4480 03DA 583 | BSI I PUTP WRITE 4 SECTORS TO UA/FXA J1705830
584 | * * J1705840
0286 7404 038F 585 | MDX L PC907,4 INCR CIB SCTR ADDR J1705850
0288 7404 03BD 586 | MDX L PC953,4 INCR UA/FXA SCTR ADDR J1705860
028A 70DD 587 | MDX PC120 J1705870
588 | *************************************************** J1705880
589 | * * J1705890
590 | * MOVE REMAINING WD CNT FROM CIB TO UA/FXA * J1705900
591 | * * J1705910
592 | *************************************************** J1705920
028B 6E00 0640 593 | PC160 STX L2 BUF7 J1705930
028D 6F00 03C4 594 | STX L3 PC960 NO. OF WORDS IN LAST SCTR J1705940
028F 6700 0640 595 | LDX L3 BUF7 SET UP I/O TO READ CORE J1705950
0291 C400 038F 596 | LD L PC907 *LOAD REMAINING ON CIB. J1705960
0293 D301 597 | STO 3 +1 J1705970
0294 4480 03D9 598 | BSI I GETP READ CIB J1705980
599 | * * J1705990
0296 C400 03BD 600 | LD L PC953 CHANGE SCTR ADDR TO SCTR J1706000
0298 D301 601 | STO 3 +1 *ADDR OF UA/FXA DESTINATION J1706010
0299 4480 03DA 602 | BSI I PUTP WRITE TO UA/FXA J1706020
029B 7003 603 | MDX PC180 J1706030
604 | *************************************************** J1706040
605 | * * J1706050
606 | * CORE LOAD EXCEEDS 4K BOUNDARY. SET UP WORD * J1706060
607 | * COUNT TO MOVE CIB PORTION OF CORE LOAD TO THE * J1706070
608 | * USER AREA OR FIXED AREA. * J1706080
609 | * * J1706090
610 | *************************************************** J1706100
029C D13B 611 | PC170 STO 1 PC959-P SAVE NO. WDS ABOVE 4K J1706110
029D C13A 612 | LD 1 PC958-P WD CNT OF CIB IS 4096 LESS J1706120
029E 70C8 613 | MDX PC110 *STARTING ADDR OF CORE LOAD J1706130
PRECI--MOVE CORE LOAD ABOVE 4K
615 | *************************************************** J1706150
616 | * * J1706160
617 | * IF CORE LOAD EXCEEDED 4K BOUNDARY, MOVE PART * J1706170
618 | * ABOVE 4K TOWARD LOWER CORE TO ENABLE BRINGING * J1706180
619 | * DUP UPCOR PHASE BACK TO CORE. J1706190
620 | * * J1706200
621 | *************************************************** J1706210
029F 4480 03D8 622 | PC180 BSI I PHIDP MODIFY PHASE ID J1706220
02A1 3011 623 | DC /3011 ABOVE 4K PRECI MODIFIER J1706230
02A2 6500 0388 624 | LDX L1 P XR1 IS WORK AREA POINTER * J1706240
02A4 C13B 625 | LD 1 PC959-P NO. OF WDS PAST 4K J1706250
02A5 4C18 02CC 626 | BSC L PC230,+- BR IF NO CORE LOAD ABOVE 4K J1706260
627 | *************************************************** J1706270
628 | * * J1706280
629 | * FIND THE BEGINNING ADDR OF THE LAST SECTOR, * J1706290
630 | * OR PARTIAL SECTOR OF THE CIB PORTION OF THE * J1706300
631 | * CORE LOAD * J1706310
632 | * * J1706320
633 | *************************************************** J1706330
634 | * CODE REMOVED 2-9 J1706380
02A7 C139 635 | LD 1 PC957-P J1706390
02A8 913C 636 | S 1 PC960-P COMPUTE IOAR HDR ADDR FOR J1706400
02A9 913F 637 | S 1 PC964-P *WRITING REMAINDER OF CORE J1706410
02AA D005 638 | STO PC200+1 *LOAD TO UA/FXA. J1706420
02AB C13E 639 | LD 1 PC962-P COMPUTE ADDR FOR MOVING WDS J1706430
02AC 8300 640 | A 3 0 *WRITTEN ON LAST PARTIAL J1706440
02AD 9131 641 | S 1 PC949-P *SCTR ADJACENT TO THOSE J1706450
02AE D012 642 | STO PC215+1 *PAST THE 4K BOUNDARY9 J1706460
02AF 6600 0000 643 | PC200 LDX L2 *-* XR2 IS IOAR OF LAST SCTR(S) J1706470
644 | *************************************************** J1706480
645 | * * J1706490
646 | * BEFORE WRITING THE REMAINDER OF THE CORE LOAD * J1706500
647 | * TO DISK, THE WORDS REMAINING, PLUS THE DISK * J1706510
648 | * IOAR HDR, IS MOVED /700 WORDS TOWARD LOWER * J1706520
649 | * CORE. THIS WILL ALLOW DUP UPPER CORE TO BE * J1706530
650 | * RESTORED BEFORE DOING LAST WRITE. * J1706540
651 | * * J1706550
652 | *************************************************** J1706560
02B1 1010 653 | SLA 16 J1706570
02B2 913B 654 | S 1 PC959-P COMPUTE WD CNT FOR WRITING J1706580
655 | * CODE REMOVED 2-9 J1706590
02B3 813C 656 | A 1 PC960-P *REMAINDER OF CORE LOAD. J1706600
02B4 D200 657 | STO 2 0 WORD COUNT J1706610
658 | * * J1706620
02B5 C139 659 | LD 1 PC957-P J1706630
02B6 910E 660 | S 1 PC914-P J1706640
02B7 9400 03D5 661 | S L PC991 SUB 1 FOR EXACT SECTOR 2-11 J1706645
02B9 18D0 662 | RTE 16 COMPUTE UA/FXA SCTR ADDR J1706650
02BA 1010 663 | SLA 16 *TO WHICH REMAINDER OF J1706660
02BB A931 664 | D 1 PC949-P *CORE LOAD WILL BE WRITTEN. J1706670
02BC 813D 665 | A 1 PC961-P J1706680
02BD D201 666 | STO 2 +1 UA/FXA SCTR ADDR J1706690
667 | * * J1706700
02BE 6780 03C4 668 | LDX I3 PC960 XR3 IS NO. OF WORDS TO MOVE J1706710
02C0 6500 0000 669 | PC215 LDX L1 *-* XR1 IS START OF LAST SCTR J1706720
02C2 C100 670 | PC220 LD 1 0 MOVE EACH WORD FROM LAST J1706730
02C3 D202 671 | STO 2 +2 *SCTR SO AS TO BE ADJACENT J1706740
02C4 7101 672 | MDX 1 +1 *TO CORE LOAD PAST 4K. J1706750
02C5 7201 673 | MDX 2 +1 ADDR OF NEXT WD TO MOVE J1706760
02C6 73FF 674 | MDX 3 -1 DECR MOVE LOOP COUNTER J1706770
02C7 70FA 675 | MDX PC220 CONT IF COUNT POSITIVE J1706780
676 | * CODE REMOVED 2-9 J1706900
02C8 6780 02B0 677 | PC228 LDX I3 PC200+1 J1706910
02CA 4480 03DA 678 | BSI I PUTP WRITE REMAINDER OF PROG J1706920
02CC 402D 679 | PC230 BSI PC260 GET UPCOR J1706930
02CD 4480 03D8 680 | PC240 BSI I PHIDP MODIFY PHASE ID J1706940
02CF 5011 681 | DC /5011 PRECI WRAP-UP MODIFIER J1706950
02D0 C400 030E 682 | LD L #DBCT+P J1706960
02D2 D186 683 | STO 1 #DBCT DB CNT TO CATCO DCOM IMAGE J1706970
02D3 C400 03BC 684 | LD L PC952 J1706980
02D5 D116 685 | STO 1 DBADR DB ADDR TO CATCO J1706990
686 | * * J1707000
02D6 C14D 687 | LD 1 IBT+4 J1707010
02D7 D400 0009 688 | STO L $INT1 RESTORE LEVEL 1 INTERRUPT J1707020
02D9 6600 7FE8 689 | LDX L2 IBT-1+C J1707030
02DB 6E00 00D4 690 | STX L2 $IBT4 POINT TO INTERRUPT TABLE -1 J1707040
691 | * * J1707050
02DD C400 03D4 692 | LD L PC990 COMPUTE NO. OF DB'S J1707060
02DF 9400 03D3 693 | S L PC989 *PADDING REQUIRED. J1707070
02E1 D12C 694 | STO 1 TEMP1 J1707080
02E2 1010 695 | SLA 16 J1707090
02E3 D120 696 | STO 1 IOSW RESET I/O REQ FOR STORE J1707100
697 | * * J1707110
02E4 D139 698 | STO 1 PH2 CLEAR SWITCHES TO CAUSE J1707120
02E5 D13A 699 | STO 1 PH3 DUP CONTROL TO BRING J1707130
02E6 D13B 700 | STO 1 PH4 DUP PHASES BACK TO CORE J1707140
02E7 D400 0034 701 | STO L $NDUP CLEAR SYS DUP INHIBIT SW J1707150
02E9 6700 11DE 702 | LDX L3 DCTLC J1707160
02EB C9F0 703 | LDD 1 DCHDR J1707170
02EC DB00 704 | STD 3 0 J1707180
02ED D132 705 | STO 1 XEQSW J1707190
02EE 4480 7DB3 706 | BSI I GET GET AND EXECUTE DUP CONTROL J1707200
02F0 4009 707 | PC250 BSI PC260 GET UPCOR J1707210
02F1 6320 708 | LDX 3 32 J1707220
02F2 6F00 7FB1 709 | STX L3 CIERR+C SET UP ERROR CODE J1707230
02F4 70D8 710 | MDX PC240 J1707240
02F5 4004 711 | PC255 BSI PC260 GET UPCOR J1707250
02F6 631F 712 | LDX 3 31 J1707260
02F7 6F00 7FB1 713 | STX L3 CIERR+C SET UP ERROR CODE J1707270
02F9 70D3 714 | MDX PC240 J1707280
02FA 0000 715 | PC260 DC *-* GET UPCOR ENTRY POINT J1707290
02FB 6780 0389 716 | LDX I3 PC900+1 XR3 IS IOAR FOR DUP UPCOR J1707300
02FD CC00 038A 717 | LDD L PC902 J1707310
02FF DB00 718 | STD 3 0 SET UP IOAR TO READ UPCOR J1707320
0300 4480 03D9 719 | BSI I GETP READ UPCOR (PHASE 13) J1707330
0302 6500 7FA0 720 | LDX L1 C XR1 IS CATCO MIDPOINT ADDR J1707340
0304 4C80 02FA 721 | BSC I PC260 RETURN FROM GET UPCOR J1707350
722 | * * J1707360
PRECI--CONSTANTS AND WORK AREAS
724 | *************************************************** J1707380
725 | * * J1707390
726 | * DCOM IMAGE. RELATIVE LOCATIONS CORRESPOND TO * J1707400
727 | * THOSE USED IN DUP FRONT END. J1707410
728 | * * J1707420
729 | *************************************************** J1707430
0306 730 | BSS E /82 J1707440
0388 731 | P EQU * PRECI WORK AREA XR1 POINTER J1707450
0388 000D 732 | PC900 DC 13 DUP UPCOR PHASE ID J1707460
0389 0000 733 | DC *-* FILLED BY THE SYSTEM LOADER J1707470
038A 0000 734 | PC902 DC *-* FILLED BY THE SYSTEM LOADE J1707480
038B 0000 735 | DC *-* FILLED BY THE SYSTEM LOADE J1707490
038C 0080 736 | PC904 DC /80 WORD COUNT TO READ DCOM J1707500
038D 0001 737 | DC #DCOM SYMBOLIC DCOM SCTR ADDR J1707510
038E 0028 738 | PC906 DC 40 WD CNT TO READ CI HEADER J1707520
038F 0000 739 | PC907 DC *-* CIB, DRIVE CODE--SCTR ADDR J1707530
0390 740 | BSS 5 WORDS 1-5 OF CI HEADER J1707540
0395 0000 741 | PC913 DC *-* NO. OF FILES SECTORS J1707550
0396 0000 742 | PC914 DC *-* LOAD ADDR OF CORE LOAD J1707560
0397 743 | BSS 2 WORDS 8-9 OF CI HEADER J1707570
0399 0000 744 | PC917 DC *-* LENGTH OF CORE LOAD, WORDS J1707580
039A 745 | BSS 16 WORDS 11-26 OF CI HEADER J1707590
03AA 0000 746 | PC934 DC *-* NO. OF LOCAL/SOCAL SECTORS J1707600
03AB 747 | BSS 13 WORDS 28-40 OF CI HEADER J1707610
03B8 013F 748 | PC948 DC 319 CONSTANT J1707620
03B9 0140 749 | PC949 DC 320 CONSTANT J1707630
03BA 0000 750 | PC950 DC *-* PROG SCTRS W/O LOCAL/SOCALS J1707640
03BB 0000 751 | PC951 DC *-* TOTAL SCTRS REQ FOR PROG J1707650
03BC 0000 752 | PC952 DC *-* DESTINATION DB ADDR J1707660
03BD 0000 753 | PC953 DC *-* DESTINATION SCTR ADDR J1707670
03BE 000F 754 | PC954 DC /F CONSTANT J1707680
03BF 0000 755 | PC955 DC *-* NO. OF LOCAL/SOCAL SCTRS J1707690
03C0 0000 756 | PC956 DC *-* LOCAL/SOCALS UA/FXA ADDR J1707700
03C1 1000 757 | PC957 DC /1000 CONSTANT J1707710
03C2 0000 758 | PC958 DC *-* 4096 - LOAD ADDR OF PROG J1707720
03C3 0000 759 | PC959 DC *-* PC958 - LENGTH OF PROG J1707730
03C4 0000 760 | PC960 DC *-* CIB TO UA/FXA WD CNT J1707740
03C5 0000 761 | PC961 DC *-* DESTINATION SCTR ADDR J1707750
03C6 0642 762 | PC962 DC BUF7+2 ADDR OF DISK BUFFER, WD 1 J1707760
03C7 0002 763 | PC964 DC 2 CONSTANT J1707770
03C8 0000 764 | PC975 DC *-* HOLDS SCTR ADDR J1707780
PRECI--CONSTANTS AND WORK AREAS
03CA 766 | BSS E 0 J1707800
03CA 0000 767 | PC977 DC *-* HOLDS FUNCTION ID J1707810
03CB 0000 768 | DC *-* HOLDS I/O ADDR J1707820
03CC 7000 769 | PC981 DC /7000 RESTORE/READ W/O CONV J1707830
03CD 7001 770 | PC982 DC /7001 PRINT J1707840
03CE 0FFF 771 | PC984 DC /0FFF MASK J1707850
03CF F0FF 772 | PC985 DC /F0FF MASK TO ELIMINATE MODULE J1707860
03D0 013F 773 | PC986 DC 319 CONSTANT 319 J1707870
03D1 0140 774 | PC987 DC 320 CONSTANT 320 J1707880
03D2 0640 775 | PC988 DC 1600 CONSTANT 1600 J1707890
03D3 0000 776 | PC989 DC *-* LOW ORDER DIGIT OF DB ADDR J1707900
03D4 0010 777 | PC990 DC 16 CONSTANT J1707910
03D5 0001 778 | PC991 DC 1 CONSTANT J1707920
03D6 0000 779 | PC992 DC 0 MOVE INDICATOR 2-5 J1707930
03D7 03EB 780 | IDMP DC PC300 RECORDS PHASE ID MODIFIER J1707940
03D8 03F8 781 | PHIDP DC PC310 RECORDS PHASE ID J1707950
03D9 0401 782 | GETP DC PC320 READ FROM DISK USING DISKZ J1707960
03DA 0409 783 | PUTP DC PC330 WRITE TO DISK USING DISKZ J1707970
PRECI--ENTIRE CORE LOAD ABOVE 4K
03DB 4480 03D8 785 | PC270 BSI I PHIDP MODIFY PHASE ID J1707990
03DD 4011 786 | DC /4011 PROG ABOVE 4K MODIFIER J1708000
03DE C10E 787 | LD 1 PC914-P J1708010
03DF 913F 788 | S 1 PC964-P J1708020
03E0 D001 789 | STO PC280+1 J1708030
03E1 6700 0000 790 | PC280 LDX L3 *-* XR3 IS HDR FOR CORE LOAD J1708040
03E3 C135 791 | LD 1 PC953-P J1708050
03E4 D301 792 | STO 3 1 SECOND WD OF IOAR HDR 2-9 J1708060
03E5 C111 793 | LD 1 PC917-P J1708070
03E6 D300 794 | STO 3 0 FIRST WD OF IOAR HDR 2-9 J1708080
03E7 4480 03DA 795 | BSI I PUTP WRITE CORE LOAD TO UA/FXA J1708090
03E9 4C00 02CC 796 | BSC L PC230 BRANCH TO FETCH UPCOR J1708100
PRECI--PHASE ID MODIFICATION
798 | *************************************************** J1708120
799 | * * J1708130
800 | * MODIFY PHASE ID FOR MOST RECENT SUB MODULE * J1708140
801 | * * J1708150
802 | *************************************************** J1708160
03EB 0000 803 | PC300 DC *-* RECORD SOURCE OF ENTRY J1708170
804 | * J1708180
03EC C400 0078 805 | LD L $PHSE J1708190
03EE E0E0 806 | AND PC985 EXTRACT LAST MODULE IND J1708200
03EF EC80 03EB 807 | OR I PC300 INSERT NEW SUB MODULE IND J1708210
03F1 D001 808 | STO *+1 RECORD REQUIRED CONSTANT J1708220
809 | * J1708230
03F2 4005 810 | BSI PC310 GO TO RECORD REQD ID J1708240
03F3 0000 811 | DC *-* PHASE ID PUT HERE J1708250
812 | * J1708260
03F4 7401 03EB 813 | MDX L PC300,+1 STEP RETURN ADDRESS J1708270
03F6 4C80 03EB 814 | BSC I PC300 RETURN TO SUB MODULE J1708280
815 | * J1708290
PRECI--RECORD PHASE ID
817 | *************************************************** J1708310
818 | * J1708320
819 | * RECORD PHASE ID FOR THE OVERLAY JUST READ IN CORE J1708330
820 | * * J1708340
821 | *************************************************** J1708350
03F8 0000 822 | PC310 DC *-* RECORD SOURCE OF ENTRY J1708360
03F9 C480 03F8 823 | LD I PC310 J1708370
03FB D400 0078 824 | STO L $PHSE RECORD PHASE IDENTIFICATION J1708380
825 | * J1708390
03FD 7401 03F8 826 | MDX L PC310,+1 INCRE RET ADDR J1708400
827 | * J1708410
03FF 4C80 03F8 828 | BSC I PC310 RETURN TO DUP OVERLAY J1708420
PRECI--DISKZ INTERFACE
830 | *************************************************** J1708440
831 | * * J1708450
832 | * ENTER HERE TO READ FROM DISK * J1708460
833 | * * J1708470
834 | *************************************************** J1708480
0401 0000 835 | PC320 DC *-* RECORD SOURCE OF ENTRY J1708490
0402 4480 03D7 836 | BSI I IDMP IDENTIFY PHASE MODIFICATION J1708500
0404 0100 837 | DC /0100 GET IS MOD 1 J1708510
838 | * * J1708520
0405 C0FB 839 | LD PC320 J1708530
0406 D002 840 | STO PC330 SET UP EXIT ADDRESS J1708540
841 | * J1708550
0407 C0C4 842 | LD PC981 READ FUNC CODE TO ACC J1708560
0408 7005 843 | MDX PC340 GO TO READ FROM DISK J1708570
844 | * J1708580
845 | *************************************************** J1708590
846 | * * J1708600
847 | * ENTER HERE TO WRITE ON DISK * J1708610
848 | * * J1708620
849 | *************************************************** J1708630
0409 0000 850 | PC330 DC *-* RECORD SOURCE OF ENTRY J1708640
040A 4480 03D7 851 | BSI I IDMP IDENTIFY PHASE MODIFICATION J1708650
040C 0200 852 | DC /0200 PUT IS MOD 2 J1708660
853 | * * J1708670
040D C0BF 854 | LD PC982 SET UP TO WRITE J1708680
855 | *************************************************** J1708690
856 | * * J1708700
857 | * THE BALANCE OF DUP34 IS USED FOR BOTH RD & WRT * J1708710
858 | * * J1708720
859 | *************************************************** J1708730
040E D0BB 860 | PC340 STO PC977 J1708740
861 | * J1708750
040F 6BBB 862 | STX 3 PC977+1 SET UP IOAR J1708760
863 | *************************************************** J1708770
864 | * * J1708780
865 | * TEST DISK PARAMS - SCTR 0,NEG WD CNT,CART OVFLO * J1708790
866 | * * J1708800
867 | *************************************************** J1708810
0410 C301 868 | LD 3 1 J1708820
0411 E0BC 869 | AND PC984 /0FFF MASK DRIVE CODE J1708830
0412 D0B5 870 | STO PC975 SAVE SCTR ADDR W/O OR CODE J1708840
871 | * J1708850
0413 4820 872 | BSC Z SKIP IF SCTR ZERO..ERROR.. J1708860
873 | * J1708870
0414 C300 874 | LD 3 0 J1708880
0415 4C30 041E 875 | BSC L PC350,-Z WORD COUNT POSITIVE J1708890
876 | * J1708900
0417 4400 02FA 877 | BSI L PC260 RESTORE DUP UPCOR J1708910
0419 635C 878 | LDX 3 92 J1708920
041A 6F00 7FB1 879 | STX L3 CIERR+C D 92 ERROR. BAD DISKZ CALL J1708930
041C 4C00 02CD 880 | BSC L PC240 BR TO COMPLETE PRECI J1708940
881 | * J1708950
882 | *************************************************** J1708960
883 | * * J1708970
884 | * INSURE DISK OPERATION WILL NOT EXCEED CYL 200 * J1708980
885 | * * J1708990
886 | *************************************************** J1709000
041E 80B1 887 | PC350 A PC986 ADJ WD CNT TO NEXT SCTR J1709010
041F 18D0 888 | RTE 16 J1709020
0420 1010 889 | SLA 16 J1709030
0421 A8AF 890 | D PC987 CONVERT TO SECTORS J1709040
0422 80A5 891 | A PC975 SPECIFIED SECTORS J1709050
0423 90AE 892 | S PC988 CYL 200 (SCTRS) J1709060
0424 4C28 042D 893 | BSC L PC355,Z+ WITHIN LIMITS 2-9 J1709070
894 | * J1709080
0426 4400 02FA 895 | BSI L PC260 RESTORE DUP UPCOR J1709090
0428 635D 896 | LDX 3 93 J1709100
0429 6F00 7FB1 897 | STX L3 CIERR+C D 93 ERROR9 CART OVERFLOW J1709110
042B 4C00 02CD 898 | BSC L PC240 BR TO COMPLETE PRECI J1709120
899 | * 2-9 J1709121
900 | * IF LD ADR ODD, MOVE COMPLETE CORE LD DOWN 1 2-9 J1709122
901 | * 2-9 J1709123
042D C09D 902 | PC355 LD PC977+1 GET ADR OF IOAR 2-9 J1709124
042E 4C04 0431 903 | BSC L PC356,E IF ODD MOVE LOAD DOWN 2-9 J1709125
0430 700C 904 | MDX PC360 SKIP AROUND IF EVEN 2-9 J1709126
0431 D001 905 | PC356 STO PC357+1 SAVE FOR WD CNT LOAD 2-9 J1709127
0432 6580 0000 906 | PC357 LDX I1 *-* LD WD CNT OF CODE LOAD 2-9 J1709128
0434 90A0 907 | S PC991 SUB 1 2-9 J1709129
0435 D095 908 | STO PC977+1 POINT IOCC TO EVEN ADR 2-9 J1709130
0436 73FF 909 | MDX 3 -1 POINT TO IOAR ADR-1 2-9 J1709131
0437 7102 910 | MDX 1 2 CORE LD SIZE+2 FOR MOVE 2-9 J1709132
0438 C301 911 | PC358 LD 3 1 THIS LOOP MOVES 2-9 J1709133
0439 D300 912 | STO 3 0 *CORE LD DOWN ONE WORD 2-9 J1709134
043A 7301 913 | MDX 3 1 *SO THE BEGINNING 2-9 J1709135
043B 71FF 914 | MDX 1 -1 *ADR IS EVEN 2-9 J1709136
043C 70FB 915 | MDX PC358 *FOR DISKZ WRITE 2-9 J1709137
916 | * J1709138
917 | *************************************************** J1709140
918 | * * J1709150
919 | * DO REQD DISK FUNCTION AND WAIT UNTIL COMPLETE * J1709160
920 | * * J1709170
921 | *************************************************** J1709180
043D C88C 922 | PC360 LDD PC977 NO ERROR, SO GO WRITE OUT J1709190
043E 4400 00F2 923 | BSI L DISKZ *BUFFER J1709200
924 | * J1709210
0440 7400 00EE 925 | PC370 MDX L $DBSY,0 LOOP ON BUSY J1709220
0442 70FD 926 | MDX PC370 J1709230
0443 4C80 0409 927 | BSC I PC330 RETURN FROM GET OR PUT J1709240
0445 928 | BSS $ZEND+/27F-* PATCH AREA J1709250
045F FFFF 929 | DC /FFFF END OF PRECI PATCH AREA J1709260
MODIF EXIT-DUP RETURN TO MODIF
0E6E 931 | ORG @SBFR-322 2-8 J1709280
*SBRKGPW 12 932 | DUP - EXIT TO MODIF DUMMY PHASE J1709290
0E6E 0000 933 | DC *-* WD CNT, CREATED BY SYS LDR J1709300
0E6F 0012 934 | DC 18 MODIF EXIT PHASE ID J1709310
0E70 935 | BSS @SBFR-*-1 AREA REQ FOR PHASE 18 2-8 J1709320
0FAF FFFF 936 | DC /FFFF SIGNIFY END OF PHASE 18 J1709330
0FB0 937 | END PC000 J1709340
There were no errors in this assembly
Program transfer address = 01E0
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#ACIN FF9C 98
#ANDU FFA3 104
#BNDU FFA8 105
#CBSW FF8A 77
#CIAD FF9B 97
#CIBA FFBC 109
#CIDN FFB7 108
#CSHN FFDA 115
#DBCT FF86 73 452 682 683
#DCOM 0001 116 737
#DCSW FF98 94
#ECNT FFA1 103
#ENTY FF90 83
#FCNT FF87 74
#FHOL FF94 90 469
#FLET FFCB 112
#FMAT FFC6 111
#FPAD FFAD 106
#FRDR FF93 88
#FSZE FF95 91 471
#GCNT FF9E 100
#GRPH FF9D 99
#HDNG 0007 117
#JBSW FF89 76
#LCNT FF8B 78
#LOSW FF9F 101
#MDF1 FF8D 80
#MDF2 FF8E 81
#MPSW FF8C 79
#NAME FF84 72
#NCNT FF8F 82
#PCID FFB2 107
#PIOD FF99 95
#PPTR FF9A 96
#RP67 FF91 84
#SCRA FFC1 110
#SYSC FF88 75
#TODR FF92 87 484
#UHOL FF96 92 459
#ULET FFD0 113
#USZE FF97 93 463
#WSCT FFD5 114
#X3SW FFA0 102
$1132 007F 33
$1403 0080 34
$ACDE 009F 42
$BYSW 01CB 52
$CH12 0006 4
$CIBA 0005 3 432
$COMN 0007 5
$CORE 000E 6
$CPTR 007E 32
$CTSW 000F 7
$CYLN 009A 41
$DABL 0011 9
$DADR 0010 8
$DBSY 00EE 51 925
$DCDE 0077 25
$DCYL 00A4 43
$DREQ 0012 10
$DUMP 003F 24
$EXIT 0038 22
$FPAD 0095 40 495
$HASH 0014 12
$I200 00B3 44
$I205 00B8 45 46
$I400 00C4 47
$I405 00D3 48 49
$I410 00D5 50
$IBSY 0013 11
$IBT2 00B9 46
$IBT4 00D4 49 690
$INT1 0009 409 688
$IOCT 0032 16
$IREQ 002C 14
$KCSW 007C 30
$LAST 0033 17
$LINK 0039 23
$NDUP 0034 18 414 701
$NXEQ 0035 19
$PBSY 0036 20
$PGCT 0037 21
$PHSE 0078 26 805 824
$PRET 0028 13
$PST1 0081 35
$PST2 0085 36
$PST3 0089 37
$PST4 008D 38
$STOP 0091 39
$UFDR 007D 31
$UFIO 0079 27
$ULET 002D 15
$WRD1 007B 29
$WSDR 007A 28 418 490
$ZEND 01E0 54 265 928
'SBFR 0FB0 118 931 935
ADDR2 003D 227
ASMSW 000E 152
B 01DE 265 266 267 268 269 270 271 272 397
BINEB 7DB0 279
BITSW 000F 153
BLKSW 0010 154
BUF1 79B5 304 305
BUF2 7963 305 306
BUF3 7925 306 307
BUF4 78D3 307
BUF5 7782 308 309 311
BUF6 7D91 297 298 299
BUF7 0640 309 519 575 576 593 595 762
C 7FA0 56 689 709 713 720 879 897
CATCO 7F1E 274
CIERR 0011 155 709 713 879 897
CIHDR 0008 138
CISW 0012 156
CL1 000E 151
CL2 0037 203
CLBSW 0013 157
CNTNO 0014 158
CRBUF 0057 254
D2HDR 000C 140
DATSW 0015 165
DBADR 0016 166 685
DCADR 0058 255
DCHDR FFF0 126 703
DCTL 11E0 269
DCTLC 11DE 270 702
DELSW 0017 167
DFHDR FFFC 132
DFLSW 0036 201
DFNSW 0018 168
DISKZ 00F2 264 923
DKSAD 0019 169
DLHDR FFF8 130
DMHDR FFF6 129
DMPLC 01DE 266
DTHDR FFFA 131
DUMPC 41DE 272
DUMPP 001A 170
DUPCO 7DB0 273 278 297
DUPCR 003C 221
DXHDR FFFE 133
DZ000 00F2 53 264
EBCSW 0033 198
ENTER 7DB2 281
EXITC 01DE 267
FLHDR FFF4 128
FORSW 001C 171
FRWS 001D 172
FXSW 001E 173
GET 7DB3 282 706
GETBI 7A0B 301
GETHO 7A0A 300
GETP 03D9 782 426 435 521 579 598 719
HDBUF 0059 256
HDNSW 0034 199
HOLSW 001F 174
IBT 0049 245 687 689
IDMP 03D7 780 836 851
INOUT 003F 234
IOADR 7A06 299 300 301 302 303 304 308 317 324 331
IOBLK 005A 257
IOREQ 0038 211
IOSW 0020 175 696
KBREQ 003E 228
LEAVE 7DB4 283
LETAR 005C 259
LETSW 0021 180
LINE 7DB5 284
LSTLF 0022 181
MASK 7DB6 285
MDUMP 7DB7 286
MODSW 0023 182
MUHDR 000A 139
MUPC 01DE 268
NAMSW 0024 183
NEGSW 0025 184
NEXT 005F 262
P 0388 731 401 417 420 422 425 433 443 444 447 448 449 450
462 465 470 477 478 479 481 482 486 487 489 491
492 494 496 499 500 501 504 505 508 509 510 516
518 522 526 533 545 546 548 549 556 611 612 624
625 635 636 637 639 641 654 656 659 660 664 665
682 787 788 791 793
P1442 0052 251
PACKB 7A0C 302
PAGE 7DB8 287
PC000 01E0 411 401 937
PC010 020C 464 472
PC020 0211 469 460
PC040 0215 474 467
PC045 0234 501 498
PC048 023D 510 507
PC050 0245 521 536
PC060 0253 531 527
PC070 0257 533 530
PC100 025B 543 517
PC110 0267 557 613
PC120 0268 558 587
PC125 0269 559 557 574
PC130 026C 561 568
PC140 0275 567 563
PC160 028B 593 566
PC170 029C 611 555
PC180 029F 622 603
PC200 02AF 643 638 677
PC215 02C0 669 642
PC220 02C2 670 675
PC228 02C8 677
PC230 02CC 679 626 796
PC240 02CD 680 710 714 880 898
PC250 02F0 707 415
PC255 02F5 711 466
PC260 02FA 715 679 707 711 721 877 895
PC270 03DB 785 547
PC280 03E1 790 789
PC300 03EB 803 780 807 813 814
PC310 03F8 822 781 810 823 826 828
PC320 0401 835 782 839
PC330 0409 850 783 840 927
PC340 040E 860 843
PC350 041E 887 875
PC355 042D 902 893
PC356 0431 905 903
PC357 0432 906 905
PC358 0438 911 915
PC360 043D 922 904
PC370 0440 925 926
PC900 0388 732 716
PC902 038A 734 717
PC904 038C 736 420 422
PC906 038E 738 434
PC907 038F 739 433 577 585 596
PC913 0395 741 492 496
PC914 0396 742 546 660 787
PC917 0399 744 443 549 556 793
PC934 03AA 746 449 476 499 508 516
PC948 03B8 748 444
PC949 03B9 749 447 518 641 664
PC950 03BA 750 448 491 505
PC951 03BB 751 450 465
PC952 03BC 752 462 470 477 481 489 684
PC953 03BD 753 486 504 581 586 600 791
PC954 03BE 754 478 482
PC955 03BF 755 501 528 531 533
PC956 03C0 756 510 522 529 532
PC957 03C1 757 545 635 659
PC958 03C2 758 548 612
PC959 03C3 759 611 625 654
PC960 03C4 760 594 636 656 668
PC961 03C5 761 487 665
PC962 03C6 762 639
PC964 03C7 763 637 788
PC975 03C8 764 870 891
PC977 03CA 767 860 862 902 908 922
PC981 03CC 769 842
PC982 03CD 770 854
PC984 03CE 771 869
PC985 03CF 772 806
PC986 03D0 773 887
PC987 03D1 774 890
PC988 03D2 775 892
PC989 03D3 776 479 693
PC990 03D4 777 692
PC991 03D5 778 500 509 661 907
PC992 03D6 779 494 497 506 526
PCHBI 7A0D 303
PEBUF 005D 260
PGMHL 0026 185
PH2 0039 212 698
PH3 003A 213 699
PH4 003B 214 700
PHDUP 0056 253
PHID 7DB9 288
PHIDM 7DBA 289
PHIDP 03D8 781 412 474 543 622 680 785
PIHDR 0002 135
PRINT 7DBB 290
PRPAR 0054 252
PRPNT 7C50 298 321 328 335
PRSW 0027 186
PTHDR 0006 137
PTPON 0040 236
PTSW 0028 187
PUT 7DBC 291
PUTP 03DA 783 524 583 602 678 795
REST 7DBD 292
RPGSW 0035 200
RTURN 7DBE 293
SDBUF 005B 258
SIHDR 0004 136
SKWDS 0029 188
STCSW 002A 189
STHDR FFF2 127
STSW 002B 190
T3MSW 002F 194
TEMP1 002C 191 694
TEMP2 002D 192
THIS 005E 261
TOWS 002E 193
UASW 0030 195
UCHDR 0000 134
WRTDC 7DB1 280
WSDC 21DE 271
WSSW 0031 196
XEQSW 0032 197 705