ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020
Source File: \jhdefine.asm
DEFINE- RESIDENT COMMA 2 AUG 67
2 | ABS J0800020
0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE J0800030
0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 J0800040
0007 5 | $COMN EQU /7 WORD COUNT OF COMMON J0800050
000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) J0800060
000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED J0800070
0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED J0800080
0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) J0800090
0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O J0800100
0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY J0800110
0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS J0800120
0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP J0800130
002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE J0800140
002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 J0800150
0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS J0800160
0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD J0800170
0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP J0800180
0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ J0800190
0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY J0800200
0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS J0800210
0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT J0800220
0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT J0800230
003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT J0800240
0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR J0800250
0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE J0800260
0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA J0800270
007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE J0800280
007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD J0800290
007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW J0800300
007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE J0800310
007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP J0800320
007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 J0800330
0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 J0800340
0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 J0800350
0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 J0800360
0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 J0800370
008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 J0800380
0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP J0800390
0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 J0800400
009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 J0800410
009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 J0800420
00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 J0800430
00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 J0800440
00B8 45 | $I205 EQU /B8 J0800450
00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 J0800460
00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 J0800470
00D3 48 | $I405 EQU /D3 J0800480
00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 J0800490
00D5 50 | $I410 EQU /D5 J0800500
00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY J0800510
01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL J0800520
00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT J0800530
01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ J0800540
7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE J0800560
57 | *************************************************** J0800570
58 | * * J0800580
59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J0800590
60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * J0800600
61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * J0800610
62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J0800620
63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * J0800630
64 | * FROM .C. * J0800640
65 | * * J0800650
66 | *************************************************** J0800660
67 | * * J0800670
68 | * CATCO DCOM IMAGE * J0800680
69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J0800690
70 | * * J0800700
71 | *************************************************** J0800710
FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM J0800720
FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM J0800730
FF87 74 | #FCNT EQU 7-/80 FILES SW ZERO = NO FILES J0800740
FF88 75 | #SYSC EQU 8-/80 NON-0 IF SYSTEM CARTRIDGE J0800750
FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE J0800760
FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI J0800770
FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS J0800780
FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED J0800790
FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS J0800800
FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER J0800810
FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS J0800820
FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG J0800830
FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 J0800840
85 | * J0800850
86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * J0800860
FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE J0800870
FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE J0800880
89 | * * J0800890
FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE J0800900
FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA J0800910
FF96 92 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE J0800920
FF97 93 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA J0800930
FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL J0800940
FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR J0800950
FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR J0800960
FF9B 97 | #CIAD EQU 27-/80 REL LOC IN SCTR 0 OF CIL AD J0800970
FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR2-8 J0800980
FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR 2-8 J0800990
FF9E 100 | #GCNT EQU 30-/80 NO. G2250 RECORDS 2-8 J0801000
FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALLS-LOCAL INDR 2-8 J0801010
FFA0 102 | #X3SW EQU 32-/80 SPECIAL ILS SWITCH 2-8 J0801020
FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RCDS 2-8 J0801030
FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 J0801040
FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 J0801050
FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) J0801060
FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 J0801070
FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 J0801080
FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 J0801090
FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 J0801100
FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 J0801110
FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 J0801120
FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 J0801130
FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 J0801140
FFDA 115 | #CSHN EQU 90-/80 SECTORS LEFT IN CUSHION J0801150
0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM J0801160
0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING J0801170
0FB0 118 | @SBFR EQU /FB0 2-8 J0801180
CONCATENATED COMMON AREA (CATCO)
120 | *************************************************** J0801200
121 | * * J0801210
122 | * CATCO IOAR HDRS FOR DUP PHASES * J0801220
123 | * * J0801230
124 | *************************************************** J0801240
FFF0 125 | ORG -/10 J0801250
FFF0 126 | DCHDR BSS 2 DUP CONTROL PH02 J0801260
FFF2 127 | STHDR BSS 2 STORE PH03 J0801270
FFF4 128 | FLHDR BSS 2 FILEQ PH04 J0801280
FFF6 129 | DMHDR BSS 2 DUMP PH05 J0801290
FFF8 130 | DLHDR BSS 2 DUMPLET PH06 J0801300
FFFA 131 | DTHDR BSS 2 DELETE PH07 J0801310
FFFC 132 | DFHDR BSS 2 DEFINE PH08 J0801320
FFFE 133 | DXHDR BSS 2 DUP EXIT PH09 J0801330
0000 134 | UCHDR BSS 2 DUP UPCOR PH13 J0801340
0002 135 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 J0801350
0004 136 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 J0801360
0006 137 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 J0801370
0008 138 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER J0801380
000A 139 | MUHDR BSS 2 MACRO UPDATE PH206 2-8 J0801390
000C 140 | D2HDR BSS 2 DUP CONTROL 2 PH205 2-8 J0801400
DFINE- CATCO DUP SWITCHES
142 | *************************************************** J0801420
143 | * * J0801430
144 | * CATCO DUP SWITCHES * J0801440
145 | * WORDS USED FOR COMMUNICATION OF DATA * J0801450
146 | * BETWEEN DUP ROUTINES. * J0801460
147 | * * J0801470
148 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * J0801480
149 | * * J0801490
150 | *************************************************** J0801500
000E 151 | CL1 EQU * J0801510
000E 152 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM J0801520
000F 153 | BITSW BSS 1 NON ZERO TO ALLOW M-DUMP-S J0801530
0010 154 | BLKSW BSS 1 NON ZERO IF BYPASSING REC J0801540
0011 155 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 J0801550
0012 156 | CISW BSS 1 NON ZERO IF STORE CI J0801560
0013 157 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED J0801570
0014 158 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD J0801580
159 | * * J0801590
160 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * J0801600
161 | * DUP CONTROL RECORD. * J0801610
162 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J0801620
163 | * USED FOR COUNT OF RECORDS TO READ AFTER A * J0801630
164 | * STORE CI DUP CONTROL RECORD. * J0801640
0015 165 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD J0801650
0016 166 | DBADR BSS 1 DB ADDR OF REFERENCED PROG J0801660
0017 167 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 J0801670
0018 168 | DFNSW BSS 1 NON ZERO IF DEFINE FXA J0801680
0019 169 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE J0801690
001A 170 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP J0801700
001C 171 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR J0801710
001D 172 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS J0801720
001E 173 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD J0801730
001F 174 | HOLSW BSS 1 NON ZERO IF NO CONV REQD J0801740
0020 175 | IOSW BSS 1 NON ZERO IF IN/OUT REQD J0801750
176 | * * J0801760
177 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J0801770
178 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J0801780
179 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * J0801790
0021 180 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* J0801800
0022 181 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD J0801810
0023 182 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC J0801820
0024 183 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F J0801830
0025 184 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA J0801840
0026 185 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR J0801850
0027 186 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT J0801860
0028 187 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD J0801870
0029 188 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT J0801880
002A 189 | STCSW BSS 1 NON ZERO IF STORE DATA CI J0801890
002B 190 | STSW BSS 1 NON ZERO IF STORE TYPE J0801900
002C 191 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT J0801910
002D 192 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT J0801920
002E 193 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS J0801930
002F 194 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL J0801940
0030 195 | UASW BSS 1 NON ZERO IF USER AREA REQD J0801950
0031 196 | WSSW BSS 1 NON ZERO IF WORK STG REQD J0801960
0032 197 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET J0801970
0033 198 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 J0801980
0034 199 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-8 J0801990
0035 200 | RPGSW BSS 1 POSITIVE=DEFINE VOID RPG2-9 J0802000
201 | * *NEG=DEFINE VOID COBOL 2-9 J0802010
0036 202 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 J0802020
0037 203 | BSS 1 RESERVED FOR ADDITION 2-8 J0802030
0037 204 | CL2 EQU *-1 J0802040
DFINE- CATCO DUP SWITCHES
206 | *************************************************** J0802060
207 | * * J0802070
208 | * CATCO DUP SWITCHES * J0802080
209 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * J0802090
210 | * * J0802100
211 | *************************************************** J0802110
0038 212 | IOREQ BSS 1 NON-ZERO,AUX I/O SET REQ J0802120
0039 213 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE J0802130
003A 214 | PH3 BSS 1 NON-ZERO IF STORE IN CORE J0802140
003B 215 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE J0802150
216 | ************************************************2-8 J0802160
217 | * 2-8 J0802170
218 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 J0802180
219 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J0802190
220 | * 2-8 J0802200
221 | ************************************************2-8 J0802210
003C 222 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 J0802220
223 | *************************************************** J0802230
224 | * * J0802240
225 | * CATCO DUP SWITCHES SET BY CCAT SUBR * J0802250
226 | * * J0802260
227 | *************************************************** J0802270
003D 228 | ADDR2 BSS 1 KB INTERRUPT ADDRESS J0802280
003E 229 | KBREQ BSS 1 CONTENTS OF LOC 13 J0802290
230 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE J0802300
231 | * PRINCIPAL INPUT DEVICE J0802310
232 | * - IS PAPER TAPE J0802320
233 | * 0 IS CARD J0802330
234 | * + IS KEYBOARD J0802340
003F 235 | INOUT BSS 1 PRINCIPAL INPUT SWITCH J0802350
236 | * J0802360
0040 237 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS J0802370
238 | *************************************************** J0802380
239 | * * J0802390
240 | * LEVEL 4 INTERRUPT BRANCH TABLE * J0802400
241 | * ADDRESSES. INITIALIZED BY CCAT, * J0802410
242 | * AND CARD/PAPER TAPE INTERFACES. * J0802420
243 | * * J0802430
244 | *************************************************** J0802440
0049 245 | ORG /0049 J0802450
0049 246 | IBT BSS 9 9 WD INTRPT BRANCH TABLE J0802460
247 | *************************************************** J0802470
248 | * * J0802480
249 | * CATCO I/O ADDRESSES REQUIRED BY DUP * J0802490
250 | * * J0802500
251 | *************************************************** J0802510
0052 252 | P1442 BSS E 2 SYS 1442 IOAR HEADER J0802520
0054 253 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT J0802530
0056 254 | PHDUP BSS 1 LAST DUP PHASE IN CORE J0802540
0057 255 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS J0802550
0058 256 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR J0802560
0059 257 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR J0802570
005A 258 | IOBLK BSS 1 ADDR OF DUP I/O PHASE J0802580
005B 259 | SDBUF BSS 1 STORE/DUMP BUFFER J0802590
005C 260 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER J0802600
005D 261 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC J0802610
005E 262 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 J0802620
005F 263 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 J0802630
00F2 265 | DISKZ EQU DZ000 DISKZ ENTRY POINT J0802650
01DE 266 | B EQU $ZEND-2 J0802660
01DE 267 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT J0802670
01DE 268 | EXITC EQU B IOAR CORE ADDR FOR DEXIT J0802680
01DE 269 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 J0802690
11E0 270 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL J0802700
11DE 271 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL J0802710
21DE 272 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE J0802720
41DE 273 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP J0802730
7DB0 274 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO J0802740
7F1E 275 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER J0802750
276 | * * J0802760
277 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J0802770
278 | * * J0802780
7DB0 279 | ORG DUPCO J0802790
7DB0 280 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC J0802800
7DB1 281 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE J0802810
7DB2 282 | ENTER BSS 1 SAVE XR-S AND CONDITIONS J0802820
7DB3 283 | GET BSS 1 READ FROM DISK USING DISKZ J0802830
7DB4 284 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP J0802840
7DB5 285 | LINE BSS 1 SPACES PRINTER 1 LINE J0802850
7DB6 286 | MASK BSS 1 INHIBITS KB INT REQUEST J0802860
7DB7 287 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S J0802870
7DB8 288 | PAGE BSS 1 SKIPS TO NEXT PAGE J0802880
7DB9 289 | PHID BSS 1 RECORDS PHASE ID J0802890
7DBA 290 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER J0802900
7DBB 291 | PRINT BSS 1 USE SYS PR SUBR TO PRINT J0802910
7DBC 292 | PUT BSS 1 WRITES TO DISK USING DISKZ J0802920
7DBD 293 | REST BSS 1 RESTORE CATCO,GO TO DCTL J0802930
7DBE 294 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS J0802940
295 | * * J0802950
296 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * J0802960
297 | * * J0802970
7D91 298 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER J0802980
7C50 299 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC. PTR J0802990
7A06 300 | IOADR EQU BUF6-/38B START OF I/O INTERFACE J0803000
7A0A 301 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE J0803010
7A0B 302 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY J0803020
7A0C 303 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY J0803030
7A0D 304 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY J0803040
79B5 305 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER J0803050
7963 306 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER J0803060
7925 307 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER J0803070
78D3 308 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER J0803080
7782 309 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BUFFER J0803090
0640 310 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR J0803100
DUP DEFINE PROLOGUE
312 | *************************************************** J0803120
313 | *STATUS - VERSION 2, MODIFICATION 12 * J0803130
314 | * * J0803140
315 | *FUNCTION/OPERATION- * J0803150
316 | * DUP DEFINE INITIALLY DEFINES A FIXED AREA, * J0803160
317 | * INCREASES OR DECREASES AN EXISTING FIXED * J0803170
318 | * AREA, AND VOIDS THE FORTRAN COMPILER, THE * J0803180
319 | * ASSEMBLER, THE RPG COMPILER, OR THE COBOL2-9* J0803190
320 | * COMPILER AS DIRECTED BY DUP CONTROL REC. 2-9* J0803200
321 | * FIXED AREA OPERATIONS MAY BE DONE ON ANY * J0803210
322 | * CARTRIDGE. VOID OPERATIONS ARE RESTRICTED * J0803220
323 | * TO LOGICAL DRIVE 0. * J0803230
324 | * * J0803240
325 | *ENTRY POINT- B+2 -ENTERED FROM DUP CONTROL. * J0803250
326 | * * J0803260
327 | *INPUT- DATA EXTRACTED BY DUP CONTROL FROM A DUP * J0803270
328 | * CONTROL RECORD AND SAVED IN CATCO. * J0803280
329 | * * J0803290
330 | *OUTPUT- PRINTED MESSAGE IN CASE OF ERRORS NOT * J0803300
331 | * HANDLED BY DEXIT. SIGN OFF MESSAGE IS * J0803310
332 | * PRINTED AT SUCCESSFUL COMPLETION OF OPER- * J0803320
333 | * ATIONS. * J0803330
334 | * * J0803340
335 | *EXTERNAL REFERENCES- * J0803350
336 | * BINEB -BINARY TO EBCDIC CONVERSION * J0803360
337 | * GET -READ FROM DISK * J0803370
338 | * PUT -WRITE TO DISK * J0803380
339 | * PHID -RECORD PHASE ID NUMBER * J0803390
340 | * PHIDM -TO MARK PROGRESS OF OPERATIONS * J0803400
341 | * PRINT -TO PRINT AN ERROR MESSAGE * J0803410
342 | * MASK -PREVENT KEYBOARD INTERRUPT UNTIL * J0803420
343 | * *PROGRAM RETURNS TO DUP CONTROL. * J0803430
344 | * WRTDC -UPDATE DCOM SECTOR(S) * J0803440
345 | * * J0803450
346 | * SWITCHES AND INDICATORS- * J0803460
347 | * $CIBA -CORE IMAGE BUFFER ADDRESS * J0803470
348 | * $DBSY -DISK BUSY INDICATOR * J0803480
349 | * $FPAD -FILE PROTECT ADDRESS * J0803490
350 | * $ULET -SECTOR ADDRESS OF LET * J0803500
351 | * $ZEND-3 -CIL SECTOR ADDRESS IN DISKZ * J0803510
352 | * * J0803520
353 | * #ANDU -END OF UA (ADJ) * J0803530
354 | * #BNDU -END OF UA (BASE) * J0803540
355 | * #CIAD -LOC IN SCTR 0 OF CIL SCTR ADDR * J0803550
356 | * #CIBA -CORE IMAGE BUFFER ADDRESS * J0803560
357 | * #CIDN -LOGICAL CARTRIDGE ID * J0803570
358 | * #CSHN -CUSHION SIZE IN SECTORS * J0803580
359 | * #DCOM -SECTOR ADDRESS OF DCOM * J0803590
360 | * #FLET -SECTOR ADDRESS OF FLET * J0803600
361 | * #FPAD -FILE PROTECT ADDRESS * J0803610
362 | * #SCRA -SCTR ADDR OF SUP CTRL RECORD AREA * J0803620
363 | * #SYSC -SYSTEM CARTRIDGE INDICATOR * J0803630
364 | * #TODR -CARTRIDGE ON WHICH TO DEFINE FXA * J0803640
365 | * #ULET -SECTOR ADDRESS OF LET * J0803650
366 | * #WSCT -SIZE OF PROGRAM IN WS * J0803660
367 | * * J0803670
368 | *EXITS- * J0803680
369 | * LEAVE -EXIT FROM DEFINE TO REQUEST ERROR * J0803690
370 | * *OR SIGN-OFF PRINTOUT BY DEXIT. * J0803700
371 | * EXITS WITH ERROR CODE IN RANGE 80 * J0803710
372 | * *THRU 88, SIGN-OFF 101 THRU 103 * J0803720
373 | * REST -RETURN TO DUP CONTROL. * J0803730
374 | * * J0803740
375 | * * J0803750
376 | *TABLES/WORK AREAS * J0803760
377 | * CATCO -CONCATENATED COMMON AREA OF DUPCO * J0803770
378 | * BUF5 -ADDRESS OF 320-WORD DISK BUFFER * J0803780
379 | * BUF7 -ADDRESS OF 320-WORD DISK BUFFER * J0803790
380 | * TEMP1 -EBCDIC OUTPUT OF BINEB SUBROUTINE * J0803800
381 | * * J0803810
382 | * * J0803820
383 | * * J0803830
384 | *ATTRIBUTES- REUSABLE * J0803840
385 | * * J0803850
386 | *NOTES- * J0803860
387 | * TWO PATCH AREAS AVAILABLE. PATCH AREA * J0803870
388 | * NO. 1 JUST PRECEDES BUF7 AND PATCH AREA NO. * J0803880
389 | * 2 JUST PRECEDES BUF5 ON A 4K SYSTEM. * J0803890
390 | * * J0803900
391 | *************************************************** J0803910
DUP DEFINE 1130 MONITOR VERSION 2
01DE 393 | ORG B J0803930
01DE 0000 394 | DC 0 J0803940
01DF FFF8 395 | DC -8 PHASE ID 8 J0803950
01E0 03BA 396 | DC DEFOR-*+1 RELATIVE LOC OF SLET DATA J0803960
01E1 0008 397 | DC 8 NO. OF SLET ENTRIES 2-9 J0803970
01E0 398 | ORG *-2 J0803980
399 | *************************************************** J0803990
400 | * J0804000
401 | * FUNCTIONS J0804010
402 | * VOID FORTRAN J0804020
403 | * VOID ASSEMBLER J0804030
404 | * VOID RPG * J0804040
405 | * VOID COBOL 2-9 J0804050
406 | * DEFINE FIXED AREA J0804060
407 | * INCREASE FIXED AREA J0804070
408 | * DECREASE FIXED AREA J0804080
409 | * J0804090
410 | *************************************************** J0804100
411 | * J0804110
412 | * XR1 POINTS TO C UPON ENTRY J0804120
413 | * J0804130
414 | *************************************************** J0804140
01E0 1000 415 | NOP J0804150
01E1 4480 7DB9 416 | BSI I PHID RECORD PHASE ID J0804160
01E3 0008 417 | DC 8 J0804170
01E4 4480 7DB6 418 | BSI I MASK MASK KB INTERRUPT J0804180
01E6 701F 419 | MDX DE400 TO PROCESS .TO. DRIVE J0804190
420 | * J0804200
01E7 0000 421 | GETX DC *-* ENTRY J0804210
01E8 690C 422 | STX 1 G7+1 J0804220
01E9 6A0D 423 | STX 2 G8+1 SAVE XR2 J0804230
01EA 6B0E 424 | STX 3 G9+1 J0804240
01EB C301 425 | LD 3 1 THE DRIVE NO. IS PLACED J0804250
01EC EC00 05DF 426 | OR L DE485 **WITH SCTR ADDR BEFORE J0804260
01EE D301 427 | STO 3 1 **DISK I/O OPERATIONS J0804270
01EF 6500 7FA0 428 | LDX L1 C POINT XR1 TO C J0804280
01F1 4480 7DB3 429 | BSIGT BSI I GET READ FROM DISK J0804290
01F3 1000 430 | NOP J0804300
01F4 6500 0000 431 | G7 LDX L1 *-* RESTORE INDEX REGISTER J0804310
01F6 6600 0000 432 | G8 LDX L2 *-* RESTORE POINTER J0804320
01F8 6700 0000 433 | G9 LDX L3 *-* RESTORE INDEX REGISTER J0804330
01FA 4C80 01E7 434 | BSC I GETX RETURN J0804340
435 | * J0804350
01FC 0000 436 | PUTX DC *-* ENTRY FOR PUT TO DISK J0804360
01FD C006 437 | LD DUPUT J0804370
01FE D0F3 438 | STO BSIGT+1 REPLACE ADDR OF GET W/PUT J0804380
01FF 40E7 439 | BSI GETX WRITE TO DISK J0804390
0200 C004 440 | LD DUGET SET GET ADDR BACK IN J0804400
0201 D0F0 441 | STO BSIGT+1 J0804410
0202 4C80 01FC 442 | BSC I PUTX RETURN J0804420
443 | * J0804430
0204 7DBC 444 | DUPUT DC PUT ADDRESS OF PUT ENTRY J0804440
0205 7DB3 445 | DUGET DC GET ADDRESS OF GET ENTRY J0804450
446 | * J0804460
DUP DEFINE 1130 MONITOR VERSION 2
448 | *************************************************** J0804480
449 | * J0804490
450 | * THE RELOAD TABLE SECTOR WILL, ON A VOID J0804500
451 | * FUNCTION, BE READ INTO CORE OVERLAPPING J0804510
452 | * DE400 THROUGH DE400 PLUS 321. J0804520
453 | * J0804530
454 | *************************************************** J0804540
455 | * J0804550
0206 456 | BSS E 0 J0804560
0206 6600 05BA 457 | DE400 LDX L2 DECST RESET XR2 POINTER J0804570
0208 6700 7782 458 | LDX L3 BUF5 J0804580
459 | * J0804590
0096 460 | DSKZ EQU 150 PHASE ID OF DISKZ J0804600
00A0 461 | CILDR EQU 160 PH ID OF CIL J0804610
462 | * J0804620
0002 463 | #RIAD EQU 2 SCTR WITH RESIDENT IMAGE J0804630
0003 464 | #SLET EQU 3 SCTR WITH SLET J0804640
0006 465 | #RTBL EQU 6 SCTR WITH RELOAD TABLE J0804650
466 | * J0804660
467 | *************************************************** J0804670
468 | * J0804680
469 | * DETERMINE THE DRIVE NO. THAT WILL BE USED J0804690
470 | * IN IOAR SECTOR ADDRESS OF ALL DISK I/O. J0804700
471 | * J0804710
472 | *************************************************** J0804720
020A C192 473 | DE480 LD 1 #TODR FETCH NO. 0 THROUGH 4 J0804730
020B 4C28 0216 474 | BSC L DE481,+Z BR IF DEFAULT CONDITION J0804740
020D C22E 475 | LD 2 DECDC-D FETCH ADDR OF C J0804750
020E 8192 476 | A 1 #TODR ADD LOGICAL DRIVE NO. J0804760
020F D22E 477 | STO 2 DECDC-D SAVE FOR QUINT. POINTER J0804770
0210 C192 478 | LD 1 #TODR RELOAD DRIVE NUMBER J0804780
0211 D22A 479 | STO 2 DE488-D J0804790
0212 100C 480 | SLA 12 DR CODE TO LEFT 4 BITS J0804800
0213 D225 481 | STO 2 DE485-D J0804810
0214 6580 05E8 482 | LDX I1 DECDC POINT TO QUINTUPLE ENTRY J0804820
483 | * J0804830
0216 C1D0 484 | DE481 LD 1 #ULET REMOVE DRIVE NO. J0804840
0217 E22D 485 | AND 2 DEFFF-D J0804850
0218 D2EA 486 | STO 2 DE#UL-D J0804860
487 | * J0804870
0219 C1CB 488 | LD 1 #FLET J0804880
021A E22D 489 | AND 2 DEFFF-D J0804890
021B D2E9 490 | STO 2 DE#FL-D J0804900
491 | * J0804910
021C C1BC 492 | LD 1 #CIBA J0804920
021D E22D 493 | AND 2 DEFFF-D J0804930
021E 4C20 0226 494 | BSC L DE482,Z 2-4 J0804940
0220 C1D0 495 | LD 1 #ULET IF CIB DELETED,USE BEG 2-4 J0804950
0221 D301 496 | STO 3 1 *OF UA INSTEAD OF #CIBA2-4 J0804960
0222 C212 497 | LD 2 K320-D PREPARE TO READ 1ST 2-4 J0804970
0223 D300 498 | STO 3 0 *SECTOR OF LET 2-4 J0804980
0224 40C2 499 | BSI GETX 2-4 J0804990
0225 C303 500 | LD 3 3 GET ADDR OF UA 2-4 J0805000
0226 D2E2 501 | DE482 STO 2 DE#CI-D J0805010
502 | * J0805020
0227 C1AD 503 | LD 1 #FPAD J0805030
0228 E22D 504 | AND 2 DEFFF-D REMOVE DRIVE NUMBER J0805040
0229 D2E1 505 | STO 2 DE#FP-D SAVE FPAD WITHOUT DR NO. J0805050
506 | * J0805060
022A 6500 7FA0 507 | LDX L1 C POINT TO CATCO J0805070
022C CA12 508 | LDD 2 DECOM-D-1 DCOM DISK ADDRESS J0805080
022D DB00 509 | STD 3 0 J0805090
022E 40B8 510 | BSI GETX READ DCOM SECTOR J0805100
022F C30A 511 | LD 3 #SYSC+2+/80 NON-Z IF SYSTEM PACK J0805110
0230 F22C 512 | EOR 2 DEVS2-D J0805120
0231 1808 513 | SRA 8 IGNORE MODIFICATION LEVEL J0805130
0232 D22C 514 | STO 2 DEVS2-D IF RESULT IS ZERO, THIS J0805140
515 | * *IS A SYSTEM PACK. J0805150
516 | * J0805160
517 | *************************************************** J0805170
518 | * DETERMINE FUNCTION REQUESTED J0805180
519 | *************************************************** J0805190
520 | * J0805200
0233 C10E 521 | LD 1 ASMSW TEST FOR VOID ASSEMBLER J0805210
0234 4C20 0642 522 | BSC L DEVAM,Z BRANCH IF YES J0805220
523 | * J0805230
0236 C11C 524 | LD 1 FORSW TEST FOR VOID FORTRAN J0805240
0237 4C20 0632 525 | BSC L DEVFN,Z BRANCH IF YES J0805250
526 | * J0805260
0239 C135 527 | LD 1 RPGSW TEST FOR VOID RPG/COBOL 2-9 J0805270
023A 4C30 0652 528 | BSC L DEVRG,-Z BR IF VOID RPG REQUEST 2-9 J0805280
023C 4C20 0662 529 | BSC L DEVCB,Z BR IF VOID COBOL REQUEST2-9 J0805290
530 | * J0805300
023E C11E 531 | LD 1 FXSW FALL THRU TO ERROR IF OFF J0805310
023F 4418 024C 532 | BSI L DE502,+- BR IF NO DFN SWITCHES ON J0805320
533 | *************************************************** J0805330
534 | * J0805340
535 | * DE500 THRU DE500+4 IS USED FOR A J0805350
536 | * WORK AREA TO SETUP MESSAGE WHEN FXA J0805360
537 | * SIGN-OFF DATA IS PREPARED. J0805370
538 | * J0805380
539 | *************************************************** J0805390
0241 C115 540 | DE500 LD 1 DATSW SAVE CYLINDER COUNT J0805400
0242 D2F2 541 | STO 2 DETSW-D J0805410
0243 C125 542 | LD 1 NEGSW TEST NEGATIVE SWITCH J0805420
0244 4420 0300 543 | BSI L DECFA,Z BR TO DECREASE FXA J0805430
0246 C2F2 544 | LD 2 DETSW-D J0805440
0247 9206 545 | S 2 K1-D J0805450
0248 6580 05E8 546 | LDX I1 DECDC POINT TO QUINTUPLE ENTRY J0805460
024A 4C10 024F 547 | BSC L DE506,- BR IF 1 OR MORE CYLS J0805470
548 | * J0805480
024C 1000 549 | DE502 NOP J0805490
024D 6153 550 | LDX 1 ERM4 SET UP ERROR MESSAGE J0805500
024E 42D8 551 | BSI 2 SSEL-D GO TO DISPLAY ERROR J0805510
552 | * J0805520
024F 4C30 0255 553 | DE506 BSC L PRCD,-Z PROCEED IF 2 OR MORE CYLS J0805530
554 | * J0805540
0251 C1CB 555 | LD 1 #FLET DEFINE 1 CYL OK IF FIXED J0805550
0252 E22D 556 | AND 2 DEFFF-D AREA WAS PREVIOUSLY THERE J0805560
0253 4418 024C 557 | BSI L DE502,+- *ELSE DISPLAY ERROR J0805570
558 | * J0805580
559 | *************************************************** J0805590
560 | * CHECK FOR SUFFICIENT WS FOR THIS J0805600
561 | * AMT OF FX A TO BE DEFINED J0805610
562 | *************************************************** J0805620
563 | * J0805630
0255 C2F2 564 | PRCD LD 2 DETSW-D NO. OF CYLS TO BE DEFINED J0805640
565 | * J0805650
0256 1000 566 | DE522 NOP J0805660
0257 1003 567 | SLA 3 SECTORIZE COUNT J0805670
0258 D205 568 | STO 2 NOCYL-D NO.OF SKTRS ADDED TO FXD J0805680
0259 C1D5 569 | LD 1 #WSCT BYTE CNT OF PROG IN WS J0805690
025A 4820 570 | BSC Z J0805700
025B 820B 571 | A 2 K16-D ADD 1 SCTR IF NON-ZERO J0805710
025C 1804 572 | SRA 4 J0805720
025D 82E1 573 | A 2 DE#FP-D ADD FILE PROTECTED SCTR J0805730
025E 9206 574 | S 2 K1-D J0805740
025F D218 575 | STO 2 SUBSA-D SECTOR ADDRESS J0805750
0260 8205 576 | A 2 NOCYL-D J0805760
0261 D219 577 | STO 2 SVFPA-D J0805770
0262 C210 578 | LD 2 H0640-D CHECK IF ANY PROGRAM IN J0805780
0263 92E1 579 | S 2 DE#FP-D *WS WILL BE LOST BY THIS J0805790
0264 9205 580 | S 2 NOCYL-D *MOVE J0805800
0265 4C28 026B 581 | BSC L DE245,+Z BR IF CNT TOO LARGE 2-12 J0805805
0267 1004 582 | SLA +4 J0805810
0268 91D5 583 | S 1 #WSCT DB CNT OF PROG IN WS J0805820
0269 4C10 0293 584 | BSC L PRTYB,- FALL THRU IF CNT TOO LARGE J0805830
585 | *************************************************** J0805840
586 | * J0805850
587 | * CALCULATE MAX CYLS AVAILABLE J0805860
588 | * J0805870
589 | *************************************************** J0805880
026B C210 590 | DE245 LD 2 H0640-D ADDR OF LAST SECTOR 2-12 J0805890
026C 92E1 591 | S 2 DE#FP-D FILE PROTECT ADDR J0805900
026D 1004 592 | SLA 4 FORM BYTES J0805910
026E 91D5 593 | S 1 #WSCT SUBT DATA IN WS J0805920
026F 1807 594 | DE246 SRA 7 CYLINDERIZE BYTE COUNT J0805930
0270 D0D4 595 | STO DE500+4 SAVE HEX COUNT J0805940
0271 4001 596 | BSI DE247 BR TO CONVERT HEX TO DEC J0805950
0272 7019 597 | MDX DE252 REJOIN MAINLINE J0805960
598 | * J0805970
0273 0000 599 | DE247 DC *-* ENTRY- BINARY TO DECIMAL J0805980
0274 6103 600 | LDX 1 3 THREE DECIMAL DIGITS J0805990
0275 6700 0241 601 | LDX L3 DE500 POINT TO WORK AREA J0806000
0277 C0CD 602 | LD DE500+4 CYLINDER CNT IN HEX J0806010
0278 1000 603 | NOP J0806020
0279 1890 604 | SRT 16 J0806030
027A AA09 605 | DE249 D 2 K10-D START CONVERSION TO DEC. J0806040
027B 18D0 606 | RTE 16 REMAINDER TO ACCUMULATOR J0806050
027C EA0A 607 | OR 2 HF0F0-D MAKE EBCDIC OF BITS 8-15 J0806060
027D D303 608 | STO 3 3 TO OUTPUT AREA J0806070
027E 1010 609 | SLA 16 J0806080
027F 73FF 610 | MDX 3 -1 DECR OUTPUT ADDRESS J0806090
0280 71FF 611 | MDX 1 -1 LOOP COUNTER J0806100
0281 70F8 612 | MDX DE249 REPEAT J0806110
613 | * J0806120
614 | * PACK OUTPUT TOGETHER J0806130
615 | * J0806140
0282 C0C0 616 | LD DE500+2 PACKED EBCDIC J0806150
0283 1008 617 | SLA 8 J0806160
0284 E8BF 618 | OR DE500+3 J0806170
0285 18D0 619 | RTE 16 J0806180
0286 C20A 620 | LD 2 HF0F0-D J0806190
0287 E8BA 621 | OR DE500+1 J0806200
0288 6500 7FA0 622 | LDX L1 C RESET XR1 J0806210
028A 4C80 0273 623 | BSC I DE247 RETURN J0806220
624 | * J0806230
028C DC00 048E 625 | DE252 STD L DE712 PACKED EBCDIC J0806240
028E 4480 7DBB 626 | BSI I PRINT J0806250
0290 048D 627 | DC DE711 DISPLAY CYLS AVAILABLE J0806260
628 | * J0806270
0291 6156 629 | LDX 1 ERM7 DISPLAY DECREASE COUNT J0806280
0292 42D8 630 | BSI 2 SSEL-D *AND EXIT THRU LEAVE J0806290
631 | * J0806300
0293 6700 7782 632 | PRTYB LDX L3 BUF5 POINT XR3 TO I/O BUFFER J0806310
0295 C212 633 | LD 2 K320-D SET WD COUNT J0806320
0296 D300 634 | STO 3 0 J0806330
0297 4C00 0736 635 | BSC L MVDSK TO BEGIN EXPANSION J0806340
636 | *************************************************** J0806350
637 | * J0806360
638 | * WILL RETURN TO DKMVD J0806370
639 | * AFTER DCOM IMAGE IN CATCO UPDATED. J0806380
640 | * J0806390
641 | *************************************************** J0806400
0299 C205 642 | FINSH LD 2 NOCYL-D SECTOR COUNT J0806410
029A D2F1 643 | STO 2 ADRSV-D J0806420
644 | * J0806430
029B 4400 038E 645 | BSI L UPDLT UPDATE THE LET HEADER.S. J0806440
646 | * J0806450
647 | *************************************************** J0806460
648 | * XR1 HAS BEEN MODIFIED BY DRIVE NUMBER J0806470
649 | *************************************************** J0806480
650 | * J0806490
029D C2E9 651 | LD 2 DE#FL-D FLET SCTR ADRS J0806500
029E 8208 652 | A 2 K8-D *PLUS 8 FOR FLET CYL J0806510
029F D2F1 653 | STO 2 ADRSV-D *EQUALS SCTR ADDR OF FXA J0806520
654 | * J0806530
02A0 4400 03C5 655 | DE312 BSI L UPDCM UPDATE DCOM ON DISK J0806540
656 | * J0806550
02A2 6580 05E8 657 | CAFXA LDX I1 DECDC POINT TO QUINTUPLE ENTRY J0806560
02A4 C1CB 658 | LD 1 #FLET J0806570
02A5 E22D 659 | AND 2 DEFFF-D REMOVE DRIVE NUMBER J0806580
02A6 4C18 02B6 660 | BSC L DE320,+- NO FXA LEFT IF ZERO FLET J0806590
661 | * J0806600
02A8 C1BC 662 | LD 1 #CIBA J0806610
02A9 E22D 663 | AND 2 DEFFF-D CHECK #CIBA AND FALL 2-4 J0806620
02AA 4C20 02B1 664 | BSC L DE315,Z *THRU IF CIB DELETED 2-4 J0806630
02AC C1D0 665 | LD 1 #ULET PREPARE TO USE BEG OF 2-4 J0806640
02AD D301 666 | STO 3 1 *UA INSTEAD OF #CIBA 2-4 J0806650
02AE 4400 01E7 667 | BSI L GETX *IF #CIBA IS ZERO 2-4 J0806660
02B0 C303 668 | LD 3 3 2-4 J0806670
02B1 EA25 669 | DE315 OR 2 DE485-D OR IN DRIVE CODE 2-4 J0806680
02B2 91CB 670 | S 1 #FLET J0806690
02B3 1890 671 | SRT 16 J0806700
02B4 AA08 672 | D 2 K8-D FORM CYLINDER COUNT J0806710
02B5 9206 673 | S 2 K1-D SUBTRACT FLET CYLINDER J0806720
02B6 D08E 674 | DE320 STO DE500+4 HEX RESULT J0806730
02B7 40BB 675 | BSI DE247 HEX TO DECIMAL J0806740
02B8 DC00 0476 676 | STD L DE703+1 CYLINDERS FXA J0806750
02BA C222 677 | LD 2 DEDBA-D J0806760
02BB 4480 7DB0 678 | BSI I BINEB BINARY TO EBCDIC J0806770
02BD C92C 679 | LDD 1 TEMP1 FETCH EBCDIC J0806780
02BE DC00 047E 680 | STD L DE703+9 J0806790
02C0 6580 05E8 681 | LDX I1 DECDC POINT TO QUINTUPLE ENTRY J0806800
02C2 C1CB 682 | LD 1 #FLET J0806810
02C3 6500 7FA0 683 | LDX L1 C RESET XR1 FOR CATCO J0806820
02C5 4480 7DB0 684 | BSI I BINEB BINARY TO EBCDIC J0806830
02C7 C92C 685 | LDD 1 TEMP1 LOAD RESULT J0806840
02C8 DC00 048A 686 | STD L DE704+9 SHOULD BE EVEN ADDR J0806850
02CA C00B 687 | LD CIDXX CARTRIDGE ID J0806860
02CB 4480 7DB0 688 | BSI I BINEB BINARY TO EBCDIC J0806870
02CD C92C 689 | LDD 1 TEMP1 J0806880
02CE DC00 046E 690 | STD L DE702+4 SHOULD BE EVEN ADDR J0806890
691 | * J0806900
02D0 1000 692 | NOP J0806910
02D1 4480 7DBB 693 | BSI I PRINT GO TO PRINT MESSAGE J0806920
02D3 0469 694 | DC DEBBM SIGN OFF MESSAGE FOR FXA J0806930
695 | * J0806940
02D4 4480 7DBD 696 | BSI I REST RETURN TO DUP CONTROL J0806950
697 | * J0806960
02D6 0000 698 | CIDXX DC *-* CARTRIDGE ID NUMBER J0806970
699 | *************************************************** J0806980
700 | * J0806990
701 | * COMPLETION OF PROCESS WITH A PREVIOUS FIXED AREA J0807000
702 | * J0807010
703 | *************************************************** J0807020
02D7 C2E9 704 | PRVFA LD 2 DE#FL-D J0807030
705 | * J0807040
706 | * XR1 HAS BEEN MODIFIED BY DRIVE NUMBER J0807050
707 | * J0807060
02D8 D400 7783 708 | DE333 STO L BUF5+1 FETCH THE 1ST FLET SECTOR J0807070
02DA 4400 01E7 709 | BSI L GETX READ SECTOR J0807080
02DC C306 710 | LD 3 2+4 TEST WORD 5 J0807090
02DD 1000 711 | NOP NEXT SCTR OF FLET IF NON-Z J0807100
02DE 4820 712 | BSC Z SKIP IF LAST J0807110
02DF 70F8 713 | MDX DE333 TRY NEXT SECTOR J0807120
714 | * J0807130
02E0 6600 05BA 715 | LDX L2 DECST RESET POINTER J0807140
02E2 C212 716 | LD 2 K320-D LOCATE POSITION OF WORD J0807150
02E3 9305 717 | S 3 2+3 *FOLLOWING LAST ENTRY J0807160
02E4 821E 718 | A 2 BUFAD-D J0807170
02E5 D203 719 | STO 2 DFTMP-D POSITION IN DISK BUFFER J0807180
02E6 6680 05BD 720 | LDX I2 DFTMP INITIALIZE XR2 J0807190
02E8 C2FD 721 | LD 2 -3 BACKUP TO 1DUMY ENTRY J0807200
02E9 F400 05D0 722 | EOR L DUMNM TEST IF PRESENT J0807210
02EB 4C18 02F2 723 | BSC L PDMY,+- BR TO PREV DUMMY IF SO J0807220
02ED 1000 724 | NOP J0807230
02EE 1000 725 | DE345 NOP TRACE WORD J0807240
02EF 6146 726 | LDX 1 ERM70 LAST ENTRY NOT 1DUMY J0807250
02F0 4400 0592 727 | BSI L SSEL BR TO SET UP ERROR & LEAVE J0807260
728 | * J0807270
729 | * C/XR2 IS ADDR OF 1ST EMPTY ENTRY LOC J0807280
730 | * J0807290
02F2 C2FF 731 | PDMY LD 2 -1 STORE DB COUNT OF J0807300
02F3 D400 05AB 732 | STO L ADRSV *AVAIL FXA FROM OLD J0807310
733 | * *DUMMY ENTRY J0807320
02F5 72FD 734 | PDMY3 MDX 2 -3 REWRITE THE FLET DUMMY J0807330
02F6 4400 03DC 735 | BSI L DUMMY FILL IN DUMMY ENTRY W/NAME J0807340
02F8 4400 01FC 736 | BSI L PUTX PUT 1 SKTR J0807350
02FA 6600 05BA 737 | LDX L2 DECST RESET POINTER J0807360
02FC C212 738 | LD 2 K320-D RESTORE WD COUNT J0807370
02FD D300 739 | STO 3 +0 J0807380
02FE 4C00 0299 740 | BSC L FINSH TO UPDATE LET AND DCOM J0807390
DECREASE FIXED AREA
0300 0000 742 | DECFA DC *-* ENTRY J0807410
0301 6700 7782 743 | LDX L3 BUF5 J0807420
0303 C2E9 744 | LD 2 DE#FL-D CHECK FOR FXA PRESENT J0807430
0304 4C20 0308 745 | BSC L DE067,Z BR IF PRESENT J0807440
0306 6155 746 | LDX 1 ERM6 SET UP ERROR MESSAGE J0807450
0307 42D8 747 | BSI 2 SSEL-D TO DISPLAY ERROR J0807460
748 | * J0807470
0308 C2F2 749 | DE067 LD 2 DETSW-D LOAD CYLINDER OCUNT J0807480
0309 D21F 750 | STO 2 CYL-D J0807490
030A 1003 751 | SLA +3 J0807500
030B D220 752 | STO 2 SKT-D SECTOR COUNT J0807510
030C 1004 753 | SLA +4 J0807520
030D D221 754 | STO 2 DBS-D BYTE COUNT J0807530
030E 6580 05E8 755 | LDX I1 DECDC POINT TO QUINTUPLE ENTRY J0807540
0310 C1CB 756 | LD 1 #FLET FETCH SCTR ADDR OF FLET J0807550
0311 D301 757 | STO 3 +1 *AND SETUP FOR GET J0807560
0312 C212 758 | LD 2 K320-D J0807570
0313 D300 759 | STO 3 +0 J0807580
760 | * J0807590
761 | *************************************************** J0807600
762 | * J0807610
0314 4400 01E7 763 | NXSKT BSI L GETX TO READ IN A SECTOR J0807620
0316 C306 764 | LD 3 +6 TEST FOR LAST FLET SCTR J0807630
0317 1000 765 | NOP J0807640
0318 4C18 031D 766 | BSC L LSKT,+- BRANCH IF YES J0807650
031A 7401 7783 767 | MDX L BUF5+1,1 *ELSE GET NEXT J0807660
031C 70F7 768 | MDX NXSKT J0807670
769 | * J0807680
770 | *************************************************** J0807690
771 | * J0807700
031D C400 05C8 772 | LSKT LD L K317 SCTR LGTH MINUS 1 ENTRY J0807710
031F 9305 773 | S 3 +5 SUBT AVAILABLE WORDS J0807720
0320 821E 774 | A 2 BUFAD-D CORE ADDR OF 1ST WORD J0807730
0321 D21D 775 | STO 2 TMPST-D STORE TEMPORARILY J0807740
0322 C480 05D7 776 | LD I TMPST LOAD 1ST WD OF LAST ENTRY J0807750
0324 F216 777 | EOR 2 DUMNM-D CHECK FOR 1DUMY J0807760
0325 4C18 0329 778 | BSC L DE071,+- BR IF PRESENT J0807770
0327 1000 779 | NOP J0807780
780 | * 1DUMY ENTRY IS MISSING J0807790
0328 40C5 781 | BSI DE345 BR TO SET UP ERROR J0807800
782 | * J0807810
0329 7402 05D7 783 | DE071 MDX L TMPST,+2 FETCH DBS REPRESENTED J0807820
032B C480 05D7 784 | LD I TMPST *BY THIS ENTRY. J0807830
032D 9221 785 | S 2 DBS-D DECR COUNT IN 1DUMY J0807840
032E D222 786 | STO 2 DEDBA-D SAVE FOR SIGN OFF J0807850
787 | * J0807860
032F 4C10 033F 788 | BSC L DE073,- BR IF ENOUGH CYLS AVAIL J0807870
0331 C305 789 | LD 3 5 LOAD AVAIL WDS FROM HDR J0807880
0332 8302 790 | A 3 2 ADD 0010 IF 1ST FLET SCTR J0807890
0333 920D 791 | S 2 K0148-D TEST FOR SINGLE ENTRY IN J0807900
792 | * *ONLY FLET SECTOR J0807910
0334 4C20 033B 793 | BSC L DE236,Z BR IF CONDITIONS NOT MET J0807920
0336 C480 05D7 794 | LD I TMPST FETCH DBS OF FXA AVAIL J0807930
0338 1807 795 | SRA 7 CONVERT TO CYLINDERS J0807940
0339 D2F2 796 | STO 2 DETSW-D RESET DETSW J0807950
033A 70CD 797 | MDX DE067 REPEAT DETSW PROCESSING J0807960
798 | * J0807970
033B C480 05D7 799 | DE236 LD I TMPST FETCH DBS OF FXA AVAIL J0807980
033D 4C00 026F 800 | BSC L DE246 J0807990
033F 4C18 0361 801 | DE073 BSC L DEQD,+- BR IF EQUAL J0808000
0341 D480 05D7 802 | STO I TMPST *ELSE PLACE NEW VALUE J0808010
803 | * *IN 1DUMY J0808020
804 | * J0808030
805 | * XR1 POINTS TO C J0808040
806 | *************************************************** J0808050
0343 1000 807 | NOP J0808060
0344 4400 01FC 808 | RSM1 BSI L PUTX WRITE BACK TO DISK J0808070
0346 C2E9 809 | LD 2 DE#FL-D J0808080
0347 8208 810 | A 2 K8-D BEGINNING OF FXA J0808090
0348 1004 811 | SLA +4 J0808100
0349 6500 7FA0 812 | LDX L1 C POINT XR1 TO C J0808110
034B D116 813 | STO 1 DBADR DB ADDR J0808120
034C C2E2 814 | RSM2 LD 2 DE#CI-D SET UP FROM ADRS TO MOVE J0808130
034D D21A 815 | STO 2 FAD2-D J0808140
034E 9220 816 | S 2 SKT-D J0808150
034F D21B 817 | STO 2 TAD2-D SETUP ADDR TO MOVE TO J0808160
818 | * 2-4 J0808170
0350 C2E2 819 | LD 2 DE#CI-D IF CIB DELETED AND MAX 2-4 J0808180
0351 9210 820 | S 2 H0640-D *FXA IS DEFINED WITH NO2-4 J0808190
0352 4C18 0356 821 | BSC L RSM3,+- *UA PRESENT,DO NOT MOVE2-4 J0808200
822 | * 2-4 J0808210
0354 4400 0417 823 | BSI L MOVE MOVE CIB THRU USERS AREA J0808220
824 | * J0808230
0356 1000 825 | RSM3 NOP COME HERE WITH ZERO IN ACC J0808240
0357 9220 826 | S 2 SKT-D J0808250
0358 D205 827 | STO 2 NOCYL-D J0808260
0359 D2F1 828 | STO 2 ADRSV-D J0808270
829 | * XR1 POINTS TO QUINTUPLE J0808280
035A 1810 830 | SRA 16 J0808290
035B D220 831 | STO 2 SKT-D J0808300
035C 4C00 03EB 832 | BSC L DKMVD TO UPDATE DCOM IN CATCO J0808310
833 | * J0808320
035E 402F 834 | DE085 BSI UPDLT UPDATE LET HEADER(S) J0808330
835 | * J0808340
836 | *************************************************** J0808350
837 | * J0808360
838 | * NEW FXA WILL BE CALCULATED J0808370
839 | * DBS AVAIL ARE IN DEDBA J0808380
840 | * J0808390
035F 4C00 02A0 841 | BSC L DE312 TO UPDATE DCOM ON DISK J0808400
842 | * J0808410
843 | *************************************************** J0808420
844 | * J0808430
0361 C305 845 | DEQD LD 3 +5 TEST WHETHER 1DUMY IS THE J0808440
0362 920C 846 | S 2 K312-D *SOLE ENTRY IN THIS SCTR J0808450
0363 4C18 036C 847 | BSC L SOLEN,+- BR TO SOLE ENTRY IF YES J0808460
848 | * J0808470
0365 1010 849 | SLA 16 *ELSE SET COUNT IN 1DUMY J0808480
0366 6680 05D7 850 | LDX I2 TMPST *TO 0 J0808490
0368 D200 851 | STO 2 +0 J0808500
0369 6600 05BA 852 | LDX L2 DECST RESET XR2 TO CONSTANTS J0808510
036B 70D8 853 | MDX RSM1 REJOIN MAINLINE J0808520
854 | * J0808530
855 | *************************************************** J0808540
856 | * J0808550
036C 1010 857 | SOLEN SLA +16 SOLE ENTRY IN SECTOR, SO J0808560
036D 6208 858 | LDX 2 8 *ZERO OUT THE 08 WDS OF J0808570
036E D600 7783 859 | LOOP2 STO L2 BUF5+1 *DUMMY ENTRY AND SKTR HDR. J0808580
0370 72FF 860 | MDX 2 -1 J0808590
0371 70FC 861 | MDX LOOP2 J0808600
862 | * J0808610
0372 6600 05BA 863 | LDX L2 DECST RESET XR2 TO CONSTANTS J0808620
0374 4400 01FC 864 | BSI L PUTX WRITE TO DISK J0808630
0376 1000 865 | NOP J0808640
0377 C301 866 | LD 3 +1 TEST FOR 1ST FLET SCTR J0808650
0378 92E9 867 | S 2 DE#FL-D J0808660
0379 E22D 868 | AND 2 DEFFF-D MASK OUT DRIVE CODE J0808670
037A 4C18 0383 869 | BSC L FSKT,+- GO TO FSKT IF YES J0808680
037C 74FF 7783 870 | MDX L BUF5+1,-1 *ELSE GET PREVIOUS SCTR J0808690
037E 4400 01E7 871 | BSI L GETX *AND CHANGE INDR IN HDR J0808700
0380 1010 872 | SLA +16 J0808710
0381 D306 873 | STO 3 +6 INDICATE LAST SECTOR J0808720
874 | * J0808730
0382 70C1 875 | MDX RSM1 REJOIN MAINLINE J0808740
876 | * J0808750
0383 7408 05DA 877 | FSKT MDX L SKT,+8 IF ALL OF FXA IS BEING J0808760
0385 C220 878 | LD 2 SKT-D *DELETED, THEN ALSO DELETE J0808770
0386 1004 879 | SLA +4 *THE 8 SKTRS RESERVED FOR J0808780
0387 D221 880 | STO 2 DBS-D *FLET J0808790
0388 C1CB 881 | LD 1 #FLET SET UP FOR J0808800
0389 1004 882 | SLA +4 *CONDITION OF DELETING J0808810
038A D116 883 | STO 1 DBADR *ALL OF FIXED AREA J0808820
038B C225 884 | LD 2 DE485-D FETCH DRIVE NUMBER J0808830
038C D1CB 885 | STO 1 #FLET INDICATE IN DCOM NO FLET J0808840
038D 70BE 886 | MDX RSM2 REJOIN MAINLINE J0808850
DEFINE...UPDATE LET
888 | *************************************************** J0808870
889 | * J0808880
890 | * UPDATE LET HDR WDS J0808890
891 | * J0808900
892 | *************************************************** J0808910
038E 0000 893 | UPDLT DC 0 J0808920
038F 6580 05E8 894 | LDX I1 DECDC POINT TO QUINTUPLE ENTRY J0808930
895 | * J0808940
896 | *************************************************** J0808950
897 | * XR1 HAS BEEN MODIFIED BY DRIVE NUMBER J0808960
898 | *************************************************** J0808970
899 | * J0808980
0391 1000 900 | NOP J0808990
0392 C1D0 901 | LD 1 #ULET J0809000
0393 D301 902 | STO 3 1 SAD OF LET IN IOAR J0809010
903 | * J0809020
0394 4400 01E7 904 | HDRFL BSI L GETX GET 1ST SCTR OF LET J0809030
0396 1000 905 | NOP J0809040
0397 C306 906 | LD 3 6 LAST LET SCTR -REL WD 4- J0809050
0398 1004 907 | SLA 4 REMOVE DRIVE NUMBER J0809060
0399 4C18 03AE 908 | BSC L SADFL,+- YES J0809070
909 | * J0809080
039B C306 910 | LD 3 6 TEST FOR FLET SCTR ADDR J0809090
039C 92E9 911 | S 2 DE#FL-D J0809100
039D 1004 912 | SLA 4 REMOVE DRIVE NUMBER J0809110
039E 4C18 03AE 913 | BSC L SADFL,+- BR IF LAST LET SE TOR J0809120
914 | * J0809130
03A0 C22C 915 | LD 2 DEVS2-D CHECK IF SYSTEM CART 2-2 J0809140
03A1 4C20 03A6 916 | BSC L MUAAD,Z BR IF NON-SYS 2-2 J0809150
03A3 C306 917 | LD 3 +6 OLD ADDR NEXT LET SCTR 2-2 J0809160
03A4 82F1 918 | A 2 ADRSV-D MODIFY TO NEW SCTR ADDR2-2 J0809170
919 | * 2-2 J0809180
03A5 D306 920 | STO 3 6 J0809190
03A6 C303 921 | MUAAD LD 3 3 MODIFY UA ADDRESS J0809200
03A7 82F1 922 | A 2 ADRSV-D J0809210
03A8 D303 923 | STO 3 3 J0809220
03A9 4400 01FC 924 | BSI L PUTX WRITE BACK LET SECTOR J0809230
03AB C306 925 | LD 3 +6 SET NEXT SCTR ADDR IN J0809240
03AC D301 926 | STO 3 +1 *PLACE FOR GET J0809250
03AD 70E6 927 | MDX HDRFL RETURN FOR OTHER SECTORS J0809260
928 | * J0809270
03AE C1CB 929 | SADFL LD 1 #FLET J0809280
03AF E22D 930 | AND 2 DEFFF-D REVOVE DRIVE NUMBER J0809290
03B0 D306 931 | STO 3 6 FLET SCTR ADDR IN LAST HDR J0809300
03B1 C303 932 | LD 3 3 FETCH OLD UA ADDR J0809310
03B2 82F1 933 | A 2 ADRSV-D ADD SECTORS IN FXA J0809320
03B3 D303 934 | STO 3 3 UPDATE REL WORD 1 J0809330
03B4 C212 935 | LD 2 K320-D LOCATE THE DUMMY ENTRY J0809340
03B5 9305 936 | S 3 2+3 RELATIVE WORD 3 J0809350
03B6 821E 937 | A 2 BUFAD-D J0809360
03B7 D00C 938 | STO LTEMP SAVE FOR XR LOADING J0809370
03B8 6680 03C4 939 | LDX I2 LTEMP J0809380
03BA C2FF 940 | LD 2 -1 MODIFY UA REMAINING J0809390
03BB 9400 05BE 941 | S L DEBES SUBTRACT BYTES J0809400
03BD D2FF 942 | STO 2 -1 J0809410
03BE 6600 05BA 943 | LDX L2 DECST RESET XR2 TO CONSTANTS J0809420
03C0 4400 01FC 944 | BSI L PUTX PUT 1 SECTOR J0809430
03C2 4C80 038E 945 | BSC I UPDLT RETURN J0809440
946 | * J0809450
03C4 0000 947 | LTEMP DC *-* REL LOC IN LAST LET SCTR J0809460
DEFINE...UPDATE DCOM
949 | *************************************************** J0809480
950 | * J0809490
951 | * UPDATE DCOM AND WRITE TO DSK J0809500
952 | * J0809510
953 | *************************************************** J0809520
03C5 0000 954 | UPDCM DC 0 J0809530
03C6 1000 955 | NOP J0809540
956 | * XR1 POINTS TO QUINTUPLE J0809550
03C7 C1B7 957 | LD 1 #CIDN J0809560
03C8 D400 02D6 958 | STO L CIDXX CATRIDGE ID NUMBER J0809570
03CA C400 05DF 959 | LD L DE485 FETCH DRIVE CODE J0809580
03CC D008 960 | STO DE360 J0809590
03CD 6B09 961 | STX 3 DE364+1 SAVE INDEX REGISTERS J0809600
03CE 6A0A 962 | STX 2 DE366+1 J0809610
03CF 6500 7FA0 963 | LDX L1 C RESET XR1 J0809620
03D1 6700 7F1E 964 | LDX L3 CATCO J0809630
03D3 4480 7DB1 965 | BSI I WRTDC UPDATE DCOM THRU CATCO J0809640
03D5 0000 966 | DE360 DC *-* TO BE SET W/DR CODE J0809650
967 | * J0809660
03D6 6700 0000 968 | DE364 LDX L3 *-* RESTORE INDEX REGISTER J0809670
03D8 6600 0000 969 | DE366 LDX L2 *-* RESTORE INDEX REGISTER J0809680
03DA 4C80 03C5 970 | BSC I UPDCM RETURN J0809690
DEFINE...ENTER DUMMY ENTRY(S) IN FLET
03DC 0000 972 | DUMMY DC 0 J0809710
03DD CC00 05D0 973 | LDD L DUMNM J0809720
03DF D200 974 | STO 2 0 SET UP 1DUMY J0809730
03E0 1090 975 | SLT 16 J0809740
03E1 D201 976 | STO 2 1 2ND WRD DUMMY NAME IN NTRY J0809750
977 | * J0809760
03E2 C400 05AB 978 | LD L ADRSV CALC DBS OF AVAIL FXA J0809770
03E4 8400 05BE 979 | A L DEBES J0809780
03E6 D202 980 | STO 2 2 DBS OF FIXED AREA J0809790
03E7 D400 05DC 981 | STO L DEDBA J0809800
03E9 4C80 03DC 982 | BSC I DUMMY J0809810
983 | * J0809820
984 | *************************************************** J0809830
985 | * J0809840
986 | * UPDATE DCOM IMAGE IN CATGO J0809850
987 | * J0809860
988 | *************************************************** J0809870
03EB C2E2 989 | DKMVD LD 2 DE#CI-D OLD CIB J0809880
03EC D224 990 | STO 2 OLDCB-D J0809890
03ED 1000 991 | NOP J0809900
03EE 6580 05E8 992 | LDX I1 DECDC POINT TO QUINTUPLE J0809910
03F0 C1BC 993 | LD 1 #CIBA DO NOT UPDATE #CIBA IF 2-4 J0809920
03F1 E22D 994 | AND 2 DEFFF-D *EQUAL TO ZERO 2-4 J0809930
03F2 4C18 03F7 995 | BSC L DE369,+- BR IF CIB DELETED 2-4 J0809940
03F4 8205 996 | A 2 NOCYL-D J0809950
03F5 8225 997 | A 2 DE485-D ADD IN THE DRIVE NO. J0809960
03F6 D1BC 998 | STO 1 #CIBA J0809970
03F7 C22C 999 | DE369 LD 2 DEVS2-D TEST IF SYSTEM CARTRIDGE J0809980
03F8 4C20 03FD 1000 | BSC L DE372,Z BRANCH AROUND LET CHANGE J0809990
1001 | * *IF NON-SYSTEM SATELLITE J0810000
03FA C1D0 1002 | LD 1 #ULET OLD LET SCTR ADDR J0810010
03FB 8205 1003 | A 2 NOCYL-D J0810020
03FC D1D0 1004 | STO 1 #ULET NEW LET SCTR ADDR J0810030
1005 | * J0810040
03FD C1AD 1006 | DE372 LD 1 #FPAD UPDATE FILE PROTECT ADDR J0810050
03FE 8205 1007 | A 2 NOCYL-D J0810060
03FF D1AD 1008 | STO 1 #FPAD J0810070
1009 | * J0810080
0400 C205 1010 | LD 2 NOCYL-D NUMBER OF SCTRS ADDED J0810090
0401 1004 1011 | SLA 4 J0810100
0402 D204 1012 | STO 2 DEBES-D NUMBER OF DBS ADDED J0810110
1013 | * J0810120
0403 C1A8 1014 | LD 1 #BNDU J0810130
0404 8204 1015 | A 2 DEBES-D J0810140
0405 D1A8 1016 | STO 1 #BNDU NEW #BNDU ADDR J0810150
1017 | * J0810160
0406 C1A3 1018 | LD 1 #ANDU J0810170
0407 8204 1019 | A 2 DEBES-D J0810180
0408 D1A3 1020 | STO 1 #ANDU NEW #ANDU ADDR J0810190
0409 6500 7FA0 1021 | LDX L1 C J0810200
040B 4030 1022 | BSI UDCOM UPDATE RESIDENT MONITOR J0810210
1023 | * J0810220
040C C400 0300 1024 | LD L DECFA TEST FOR DECREASE FXA J0810230
040E 4C20 035E 1025 | BSC L DE085,Z RETURN TO UPDATE LET IF SO J0810240
0410 C2E9 1026 | LD 2 DE#FL-D TEST FOR PREVIOUS FXA J0810250
0411 6500 7FA0 1027 | LDX L1 C RESET XR1 FOR CATCO J0810260
0413 4C20 02D7 1028 | BSC L PRVFA,Z BR IF YES J0810270
0415 4C00 0763 1029 | BSC L DENOF TO SET UP FLET SECTOR J0810280
1030 | * ********************************************* J0810290
VOID FORTRAN ASM RPG OR DECREASE FXA
1032 | * J0810310
0417 0000 1033 | MOVE DC *-* J0810320
0418 6700 7782 1034 | LDX L3 BUF5 J0810330
041A 6600 05BA 1035 | LDX L2 DECST RESET POINTER J0810340
041C C212 1036 | LD 2 K320-D WD COUNT FOR DISK I/O J0810350
041D D300 1037 | STO 3 0 J0810360
1038 | * J0810370
041E 6500 7FA0 1039 | LDX L1 C J0810380
1040 | * J0810390
0420 C11E 1041 | LD 1 FXSW J0810400
0421 4C18 042B 1042 | BSC L MOVE1,+- BR IF NOT DFN FXA OP J0810410
0423 6580 05E8 1043 | LDX I1 DECDC PT. TO QUINTUPLE ENTRY 2-10 J0810415
0425 C1D5 1044 | LD 1 #WSCT LGTH OF PROG IN WS J0810420
0426 4820 1045 | BSC Z SKIP IF ZERO 2-12 J0810425
0427 9206 1046 | S 2 K1-D COMPUTE NUMBER OF 2-7 J0810430
0428 1884 1047 | SRT 4 *SECTORS MINUS ONE 2-7 J0810440
0429 82E1 1048 | A 2 DE#FP-D ADD FILE PROTECT ADRS J0810450
042A D21C 1049 | STO 2 LMV-D LAST SECTOR TO MOVE J0810460
042B C21A 1050 | MOVE1 LD 2 FAD2-D SET ADDR TO GET FROM J0810470
042C D301 1051 | STO 3 1 J0810480
042D 4400 01E7 1052 | BSI L GETX J0810490
042F C21B 1053 | LD 2 TAD2-D SET ADDR TO PUT TO J0810500
0430 D301 1054 | STO 3 1 J0810510
0431 4400 01FC 1055 | BSI L PUTX J0810520
0433 C21A 1056 | LD 2 FAD2-D WHEN LAST SCTR HAS BEEN J0810530
0434 921C 1057 | S 2 LMV-D *MOVED, EXIT J0810540
0435 4C98 0417 1058 | BSC I MOVE,+- J0810550
1059 | * J0810560
0437 7401 05D4 1060 | MDX L FAD2,+1 MODIFY FROM ADDR J0810570
0439 7401 05D5 1061 | MDX L TAD2,+1 MODIFY TO ADDR J0810580
043B 70EF 1062 | MDX MOVE1 REPEAT J0810590
UPDATE COMMA (VOID FOR,ASM,RPG)
1064 | * J0810610
043C 0000 1065 | UDCOM DC *-* UPDATE RESIDENT IMAGE J0810620
043D 6700 7782 1066 | LDX L3 BUF5 POINT XR3 TO BUFFER J0810630
043F C22B 1067 | LD 2 DERIM-D FETCH RES IMAGE SCTR NO. J0810640
0440 D301 1068 | STO 3 1 J0810650
0441 4400 01E7 1069 | BSI L GETX GET RESIDENT IMAGE J0810660
1070 | * J0810670
1071 | *************************************************** J0810680
1072 | * J0810690
1073 | * COMPARE DR NO. OF SYSTEM CIB IN $CIBA AND J0810700
1074 | * #TODR. UPDATE $CIBA ONLY IF EQUAL DR NO. J0810710
1075 | * J0810720
1076 | * SKT IS SET ONLY WHEN SHRINKING PACK J0810730
1077 | * J0810740
1078 | *************************************************** J0810750
0443 6700 002D 1079 | LDX L3 $ULET POINT XR3 TO CORE ADDR J0810760
0445 6580 05E8 1080 | LDX I1 DECDC POINT TO QUINTUPLE ENTRY J0810770
1081 | * J0810780
0447 C400 0005 1082 | LD L $CIBA SYSTEM CIB ADDR W/DR NO. J0810790
0449 F225 1083 | EOR 2 DE485-D COMPARE DRIVE NUMBERS J0810800
044A 180C 1084 | SRA 12 J0810810
044B 4C20 0452 1085 | BSC L DE391,Z UPDATE $CIBA IF AGREEMENT J0810820
1086 | * J0810830
044D C1BC 1087 | LD 1 #CIBA J0810840
044E 9220 1088 | S 2 SKT-D J0810850
044F D400 0005 1089 | STO L $CIBA UPDATE IN-CORE CIBA J0810860
0451 D1BC 1090 | STO 1 #CIBA J0810870
1091 | * J0810880
0452 7780 05E4 1092 | DE391 MDX I3 DE488 MODIFY QUINTUPLE ADDRESS J0810890
1093 | * J0810900
0454 C1D0 1094 | LD 1 #ULET LET ADDR FROM CATCO J0810910
0455 9220 1095 | S 2 SKT-D MODIFY LET ADDRESS J0810920
0456 D1D0 1096 | STO 1 #ULET J0810930
0457 D300 1097 | STO 3 0 UPDATE CORE QUINTUPLE J0810940
1098 | * J0810950
0458 C1AD 1099 | LD 1 #FPAD FROM DCOM IMAGE IN CATCO J0810960
0459 9220 1100 | S 2 SKT-D MODIFY FPAD ADDRESS J0810970
045A D1AD 1101 | STO 1 #FPAD J0810980
045B 6700 0095 1102 | LDX L3 $FPAD POINT XR3 TO CORE ADDR J0810990
045D 7780 05E4 1103 | MDX I3 DE488 MODIFY BY DRIVE NUMBER J0811000
045F D300 1104 | STO 3 0 UPDATE $FPAD QUINTUPLE J0811010
1105 | * J0811020
0460 6700 7782 1106 | LDX L3 BUF5 J0811030
0462 6600 05BA 1107 | LDX L2 D RESET POINTER J0811040
0464 4400 01FC 1108 | BSI L PUTX FILE BACK RES IMAGE J0811050
0466 4C80 043C 1109 | BSC I UDCOM RETURN J0811060
1110 | *************************************************** J0811070
0468 1112 | BSS E 0 J0811090
0468 0000 1113 | DC 0 J0811100
0469 0023 1114 | DEBBM DC DE711-* WORD COUNT ODD J0811110
046A C3C1 D9E3 40C9 C440 1115 | DE702 EBC .CART ID CYLS FXA. E J0811120
4040 4040 4040 C3E8 |
D3E2 40C6 E7C1 |
0475 4040 4040 4040 4040 1116 | DE703 EBC . DBS AVAIL . J0811130
C4C2 E240 C1E5 C1C9 |
D340 4040 4040 4040 |
0481 C6D3 C5E3 40E2 C5C3 1117 | DE704 EBC .FLET SECTOR ADDR . J0811140
E3D6 D940 C1C4 C4D9 |
4040 4040 4040 4040 |
1118 | * J0811150
048D 000A 1119 | DE711 DC DE714-* WORD COUNT J0811160
048E E9C5 D9D6 40C3 E8D3 1120 | DE712 EBC .ZERO CYLS AVAILABLE. J0811170
E240 C1E5 C1C9 D3C1 |
C2D3 C540 |
0498 1121 | DE714 BSS 0 J0811180
1122 | *************************************************** J0811190
SLET SEARCH SUBROUTINE
1124 | *************************************************** J0811210
1125 | * J0811220
1126 | * ENTER WITH THE PH ID BEING LOOKED FOR IN ACC. J0811230
1127 | * PROG WILL RETURN WITH THE ACC C/ID AND XR2 J0811240
1128 | * CONTAINING THE ADRS OF PH ID AS IT RESIDES J0811250
1129 | * IN THE IN-CORE BUFFER PROVIDED THAT THE PH J0811260
1130 | * WAS FOUND. IF NOT FOUND ACC WILL CONTAIN 0. J0811270
1131 | * J0811280
1132 | *************************************************** J0811290
1133 | * J0811300
0498 0000 1134 | FSST DC *-* TEMPORARY PHASE ID J0811310
1135 | * J0811320
0499 0000 1136 | FSS DC *-* J0811330
049A D0FD 1137 | STO FSST STORE PH ID IN TEMP LOC J0811340
049B 691B 1138 | STX 1 FR15+1 J0811350
049C C81D 1139 | LDD SLETA-1 RESET TO 1ST SCTR SLET J0811360
049D DC00 7782 1140 | STD L FSLET J0811370
049F 6700 7782 1141 | FR04 LDX L3 BUF5 J0811380
04A1 4400 01E7 1142 | BSI L GETX GET A SCTR OF SLET J0811390
04A3 6600 7784 1143 | LDX L2 FSLET+2 J0811400
04A5 6150 1144 | LDX 1 80 80 SETS PER SECTOR J0811410
04A6 C0F1 1145 | FR07 LD FSST LD PH ID BEING SOUGHT J0811420
04A7 9200 1146 | S 2 0 SUBT PH ID OF A SLET SET J0811430
04A8 4C18 04B5 1147 | BSC L FNDID,+- BR TO FOUND ID IF MATCH J0811440
04AA 7204 1148 | MDX 2 4 **ELSE BUMP TO NEXT SET J0811450
04AB 71FF 1149 | MDX 1 -1 SKIP IF 80 PROCESSED J0811460
04AC 70F9 1150 | MDX FR07 **ELSE GO ROUND AGAIN J0811470
04AD C400 7783 1151 | LD L FSLET+1 DO NOT SEARCH MORE SCTRS J0811480
04AF 900C 1152 | S SLETC *THAN SLET OCCUPIES 2-9 J0811490
04B0 4818 1153 | BSC +- J0811500
04B1 7004 1154 | MDX FR15 RESTORE XR1 AND EXIT J0811510
04B2 7401 7783 1155 | MDX L FSLET+1,1 BUMP TO NEXT SCTR OF SLET J0811520
04B4 70EA 1156 | MDX FR04 GET NEXT SCTR J0811530
1157 | * J0811540
04B5 C0E2 1158 | FNDID LD FSST SET ACCUM PLUS J0811550
04B6 6500 0000 1159 | FR15 LDX L1 *-* J0811560
04B8 4C80 0499 1160 | BSC I FSS RETURN TO MAINLINE J0811570
1161 | * J0811580
04BA 1162 | BSS E 0 J0811590
04BA 0140 1163 | DC /140 WORD COUNT J0811600
04BB 0003 1164 | SLETA DC #SLET 1ST SECTOR OF SLET J0811610
1165 | * CONSTANT REMOVED 2-9 J0811620
04BC 0005 1166 | SLETC DC #SLET+2 3RD SECTOR OF SLET 2-9 J0811630
RELOAD TABLE REPROCESS SUBROUTINE
1168 | *************************************************** J0811650
1169 | * J0811660
1170 | * PROCESS RELOAD TABLE NOW IN CORE TO FIND THE J0811670
1171 | * PHASES WHICH REQUIRE SLET TABLE INFO. J0811680
1172 | * J0811690
1173 | * USES TWO DISK BUFFERS, VIZ. BUF5 & BUF7. J0811700
1174 | * J0811710
1175 | *************************************************** J0811720
0640 1176 | BUFF1 EQU BUF7 J0811730
7782 1177 | FSLET EQU BUF5 J0811740
0206 1178 | RTBFR EQU DE400 THIS LOC TO BE OVERLAYED J0811750
1179 | * J0811760
04BD 0000 1180 | W200 DC *-* ENTRY J0811770
04BE C400 0208 1181 | W202 LD L RTBFR+2 TEST ENTRIES AND PROCESS J0811780
04C0 F07B 1182 | EOR EFF **EACH GROUP OF 3 UNTIL J0811790
04C1 4C98 04BD 1183 | BSC I W200,+- **-1 IS REACHED IN WD J0811800
04C3 F078 1184 | EOR EFF RESTORE ID TO ACC J0811810
1185 | * **FOLLOWING LAST ENTRY. J0811820
1186 | * J0811830
04C4 40D4 1187 | BSI FSS GO TO SLET SEARCH J0811840
04C5 4408 05E9 1188 | BSI L DE814,+ TO ERROR IF MISSING J0811850
04C7 6580 04BF 1189 | LDX I1 W202+1 LD XR1 W/LOC IN RELOAD J0811860
04C9 C101 1190 | LD 1 1 **TABLE BUFFER J0811870
04CA 1890 1191 | SRT 16 DETM WHICH SCTR OF PH THE J0811880
04CB A86F 1192 | D D320 **CORRECTIONS WILL BE J0811890
1193 | * **MADE IN. J0811900
04CC 8203 1194 | A 2 3 ADD QUOT TO SCTR ADDR TO J0811910
04CD D400 0641 1195 | STO L BUFF1+1 **BE UPDATED J0811920
04CF 18D0 1196 | RTE 16 REM CONTAINS REL LOC IN J0811930
04D0 D065 1197 | STO WREM **THIS SECTOR J0811940
04D1 C102 1198 | LD 1 2 SAVE THE COUNT OF SETS J0811950
04D2 D064 1199 | STO SETCT **TO BE FILLED OUT J0811960
1200 | * J0811970
04D3 4069 1201 | BSI GETB7 GET PH WHICH NEEDS DATA J0811980
1202 | * J0811990
04D4 C061 1203 | W501 LD WREM IF C/WREM IS 140 HEX WDS, J0812000
04D5 9065 1204 | S D320 **THE BUFFER IS FULL. J0812010
04D6 4C28 04DE 1205 | BSC L W520,Z+ J0812020
04D8 4071 1206 | BSI PUTB7 FILE UPDATED REQUESTING J0812030
04D9 1810 1207 | SRA 16 **PHASE, ZERO POINTER TO J0812040
04DA D05B 1208 | STO WREM **BEGINNING OF SUCCEEDING J0812050
04DB 7401 0641 1209 | MDX L BUFF1+1,1 **PHASE. J0812060
04DD 405F 1210 | BSI GETB7 READ NEXT SCTR OF PHASE J0812070
1211 | * **REQUESTING SLET DATA. J0812080
04DE 6580 0536 1212 | W520 LDX I1 WREM RESET XR1 WITH THE REM J0812090
04E0 6927 1213 | STX 1 W540+1 SAVE XR1 J0812100
04E1 C500 0642 1214 | LD L1 BUFF1+2 FETCH PH ID TO LOOK UP J0812110
04E3 40B5 1215 | BSI FSS SEARCH SLET J0812120
04E4 4C20 0507 1216 | BSC L W540,Z FALL THRU IF CANT FIND J0812130
1217 | *************************************************** J0812140
1218 | * J0812150
1219 | * CONTINUE IF FIRST OR LAST PHASE OF 2-5 J0812160
1220 | * FOR/ASM/RPG/COB IS REQUESTED DURING A 2-9*J0812170
1221 | * VOID FOR/ASM/RPG/COB LOAD. 2-9*J0812180
1222 | * J0812190
1223 | *************************************************** J0812200
04E6 72FC 1224 | MDX 2 -4 SET PT TO LAST ENTRY IN 2-5 J0812210
1225 | * *SLET SCTR, HPFLY ZEROS 2-5 J0812220
04E7 C400 059A 1226 | LD L DEFOR PH ID OF FORTRAN, 1ST 2-5 J0812230
04E9 4017 1227 | BSI W530 GO CHECK IF LOOKED FOR 2-5 J0812240
04EA C400 059E 1228 | LD L DEFL1 PH ID OF FORTRAN, LAST 2-5 J0812250
04EC 4014 1229 | BSI W530 2-5 J0812260
1230 | * 2-5 J0812270
04ED C400 05A2 1231 | LD L DEASM ASM FIRST PHASE 2-5 J0812280
04EF 4011 1232 | BSI W530 2-5 J0812290
04F0 C400 05A6 1233 | LD L DEAL1 ASM LAST PHASE 2-5 J0812300
04F2 400E 1234 | BSI W530 2-5 J0812310
1235 | * 2-5 J0812320
04F3 C400 05AA 1236 | LD L DERPG RPG 1ST PHASE 2-5 J0812330
04F5 400B 1237 | BSI W530 2-5 J0812340
04F6 C400 05AE 1238 | LD L DERL1 RPG LAST PHASE 2-5 J0812350
04F8 4008 1239 | BSI W530 2-5 J0812360
04F9 C400 05B2 1240 | LD L DECOB COBOL 1ST PHASE 2-9 J0812370
04FB 4005 1241 | BSI W530 2-9 J0812380
04FC C400 05B6 1242 | LD L DECL1 COBOL LAST PHASE 2-9 J0812390
04FE 4002 1243 | BSI W530 2-9 J0812400
1244 | * 2-5 J0812410
04FF 4400 05E9 1245 | BSI L DE814 ERROR, DEFECTIVE SLET 2-5 J0812420
1246 | * 2-5 J0812430
1247 | ************************************************2-5 J0812440
1248 | * 2-5 J0812450
0501 0000 1249 | W530 DC *-* ENTER TO CHECK A PH ID 2-5 J0812460
0502 F095 1250 | EOR FSST CMP W/ PH ID REQUESTED 2-5 J0812470
0503 4C18 0507 1251 | BSC L W540,+- MATCH, GO PLACE ZEROS 2-5 J0812480
0505 4C80 0501 1252 | BSC I W530 NO MATCH,BACK TO CALLER 2-5 J0812490
1253 | * 2-5 J0812500
1254 | ************************************************2-5 J0812510
1255 | * J0812520
0507 6500 0000 1256 | W540 LDX L1 *-* RESTORE XR1 J0812530
0509 7101 1257 | MDX 1 1 BUMP XR1 J0812540
050A 7401 0536 1258 | MDX L WREM,1 BUMP REMAINDER J0812550
050C C400 0001 1259 | LD L 1 IF XR1 OVER 319, PATCHING J0812560
050E 902B 1260 | S D319 **WILL BE DONE IN NEXT J0812570
050F 4C30 0534 1261 | BSC L W720+1,-Z **SECTOR J0812580
0511 C201 1262 | W600 LD 2 1 LOAD A SLET ENTRY J0812590
0512 D500 0642 1263 | STO L1 BUFF1+2 UPDATE SPECIAL PHASE J0812600
0514 7401 0536 1264 | MDX L WREM,1 BUMP REMAINDER J0812610
0516 1000 1265 | NOP MAY SKIP J0812620
0517 74FF 0538 1266 | MDX L WCTR3,-1 DECR ON EACH UPDATE J0812630
0519 7011 1267 | MDX W660 J0812640
051A C01E 1268 | LD D3 J0812650
051B D01C 1269 | STO WCTR3 RESTORE COUNTER J0812660
051C 74FF 0537 1270 | MDX L SETCT,-1 ONE SET HAS BEEN DONE J0812670
051E 70B5 1271 | MDX W501 PROCESS NEXT SET J0812680
051F 402A 1272 | BSI PUTB7 FILE UPDATED SECTOR J0812690
0520 7403 04BF 1273 | MDX L W202+1,3 POINT TO NEXT SET J0812700
0522 709B 1274 | MDX W202 TO CHECK NEXT ENTRY J0812710
1275 | * J0812720
0523 1810 1276 | W400 SRA 16 CLEAR SAVED REM TO 0 J0812730
0524 D011 1277 | STO WREM J0812740
0525 7401 0641 1278 | MDX L BUFF1+1,1 BUMP TO NEXT SECTOR J0812750
0527 4015 1279 | BSI GETB7 READ FROM DISK J0812760
0528 6580 0536 1280 | LDX I1 WREM LD XR1 W/NEW REMAINDER J0812770
052A 70E6 1281 | MDX W600 TO STORE SLET INFO. J0812780
1282 | * J0812790
052B C00A 1283 | W660 LD WREM IF REM IS UP TP 320, NEXT J0812800
052C 900E 1284 | S D320 **SCTR MUST BE READ DOWN J0812810
052D 4C18 0533 1285 | BSC L W720,+- J0812820
052F 7201 1286 | MDX 2 1 BUMP XR2 TO NEXT WD OF J0812830
0530 6580 0536 1287 | LDX I1 WREM **SLET AND POINT XR1 TO J0812840
0532 70DE 1288 | MDX W600 **NEXT WORD OF BUFF1 J0812850
1289 | * J0812860
0533 7201 1290 | W720 MDX 2 1 NEXT WD TO UPDATE WILL BE J0812870
0534 4015 1291 | BSI PUTB7 *1ST WD OF NEXT SECTOR J0812880
0535 70ED 1292 | MDX W400 J0812890
1293 | * J0812900
1294 | * J0812910
0536 0000 1295 | WREM DC *-* SAVED REMAINDER J0812920
0537 0000 1296 | SETCT DC *-* SAVED SET CNT TO PATCH J0812930
0538 0003 1297 | WCTR3 DC 3 CTR TO UPDATE 3 WDS/SET J0812940
0539 0003 1298 | D3 DC 3 CST TO RESET WCTR3 J0812950
053A 013F 1299 | D319 DC 319 WD COUNT OF SCTR - 1 J0812960
053B 0140 1300 | D320 DC 320 WD COUNT OF 1 SECTOR J0812970
053C FFFF 1301 | EFF DC /FFFF MASK J0812980
1302 | * J0812990
BUF7 READ/WRITE SUBROUTINES
1304 | * J0813010
053D 0000 1305 | GETB7 DC *-* ENTRY J0813020
053E 6B08 1306 | STX 3 B5+1 SAVE XR3 J0813030
053F 6700 0640 1307 | LDX L3 BUF7 POINT TO BUFF1 J0813040
0541 C400 05CC 1308 | LD L K320 FULL SECTOR J0813050
0543 D300 1309 | STO 3 0 SET WORD COUNT J0813060
0544 4400 01E7 1310 | BSI L GETX READ INTO BUFF1 J0813070
0546 6700 0000 1311 | B5 LDX L3 *-* J0813080
0548 4C80 053D 1312 | BSC I GETB7 J0813090
1313 | * J0813100
054A 0000 1314 | PUTB7 DC *-* WRITE FROM BUFF1 J0813110
054B 6B05 1315 | STX 3 B6+1 J0813120
054C 6700 0640 1316 | LDX L3 BUF7 J0813130
054E 4400 01FC 1317 | BSI L PUTX J0813140
0550 6700 0000 1318 | B6 LDX L3 *-* J0813150
0552 4C80 054A 1319 | BSC I PUTB7 J0813160
1320 | * J0813170
DISKZ UPDATE SUBROUTINE
0554 0000 1322 | DER60 DC *-* ENTRY J0813190
0555 C039 1323 | LD CILPH LOAD CIL PHASE ID J0813200
0556 4400 0499 1324 | BSI L FSS SEARCH OUT CIL FROM SLET J0813210
0558 4408 05E9 1325 | BSI L DE814,+ ERROR IF MESSING J0813220
055A C203 1326 | LD 2 3 SAVE NEW SECTOR ADDRESS J0813230
055B D035 1327 | STO SCIL SAVE J0813240
1328 | *************************************************** J0813250
1329 | * J0813260
1330 | * THE NEW SECTOR ADDRESS OF THE CIL IS PULLED J0813270
1331 | * FROM UPDATED SLET AND REPLACES OLD CIL ENTRY J0813280
1332 | * IN DISKZ. J0813290
1333 | * J0813300
1334 | *************************************************** J0813310
055C C033 1335 | LD IDDKZ J0813320
055D 4400 0499 1336 | BSI L FSS SEARCH OUT DISKZ FROM SLET J0813330
055F 4408 05E9 1337 | BSI L DE814,+ ERROR IF MISSING J0813340
0561 CA02 1338 | LDD 2 2 PLACE WD CNT AND SCTR ADDR J0813350
0562 DC00 0640 1339 | STD L BUFF1 **IN IOAR FOR BUFF1 J0813360
0564 6700 0640 1340 | LDX L3 BUFF1 J0813370
0566 4480 7DB3 1341 | BSI I GET READ FROM DISK J0813380
0568 1000 1342 | NOP J0813390
0569 6500 0640 1343 | LDX L1 BUFF1 SETUP XR1 W/LOC IN BUFFU J0813400
056B 7580 0640 1344 | MDX I1 BUFF1 **OF END OF DISKZ J0813410
056D C023 1345 | LD SCIL FETCH SAVED CIL ADDR FOR J0813420
1346 | * **DISKZ. J0813430
056E D1FF 1347 | STO 1 -1 J0813440
056F 6500 7FA0 1348 | LDX L1 C RESET INDEX REGISTER J0813450
0571 4480 7DBC 1349 | BSI I PUT FILE DISKZ BACK J0813460
0573 6600 05BA 1350 | LDX L2 DECST RESTORE POINTER J0813470
0575 CA14 1351 | LDD 2 DEPUT-D 0001 AND BUF5 TO AQ J0813480
0576 1810 1352 | SRA 16 CLEAR FOR GET J0813490
0577 D400 7783 1353 | STO L BUF5+1 SETUP TO GET SCTR 0 J0813500
0579 4400 00F2 1354 | BSI L DZ000 READ COLD START SECTOR J0813510
057B 7400 00EE 1355 | MDX L $DBSY,0 WAIT FOR OP COMPLETE J0813520
057D 70FD 1356 | MDX *-3 BR TO TEST OP COMPLETE J0813530
057E C19B 1357 | LD 1 #CIAD LOAD THE REL NO. IN DCOM J0813540
057F 8215 1358 | A 2 DEPUT+1-D ADD BUF5 ADDRESS J0813550
0580 8207 1359 | A 2 K3-D CORRECTION J0813560
0581 D004 1360 | STO DESTR+1 J0813570
0582 C00E 1361 | LD SCIL NEW CIL SECTOR ADDRESS J0813580
0583 D400 01DD 1362 | DESCL STO L $ZEND-3 PLACE IN DISKZ IN CORE J0813590
0585 D400 0000 1363 | DESTR STO L *-* PRESET J0813600
0587 CA14 1364 | LDD 2 DEPUT-D J0813610
0588 4400 00F2 1365 | BSI L DZ000 WRITE BACK J0813620
058A 7400 00EE 1366 | MDX L $DBSY,0 WAIT FOR OP COMPLETE J0813630
058C 70FD 1367 | MDX *-3 J0813640
058D 4C80 0554 1368 | BSC I DER60 RETURN J0813650
1369 | * J0813660
058F 00A0 1370 | CILPH DC CILDR CORE IMAGE LDR PHASE ID. J0813670
0590 0096 1371 | IDDKZ DC DSKZ PH ID OF DISKZ J0813680
0591 0000 1372 | SCIL DC *-* CIL SCTR ADDR FROM SLET J0813690
ERROR MESSAGES AND CONSTANTS
0050 1374 | ERM1 EQU 80 FIXED AREA PRESENT J0813710
0051 1375 | ERM2 EQU 81 ASSEMBLER NOT IN SYSTEM J0813720
0052 1376 | ERM3 EQU 82 FORTRAN NOT IN SYSTEM J0813730
0053 1377 | ERM4 EQU 83 INCREASE VALUE IN COUNT FIELD J0813740
0054 1378 | DERM8 EQU 84 DEFECTIVE SLET J0813750
0055 1379 | ERM6 EQU 85 FIXED AREA NOT PRESENT J0813760
0056 1380 | ERM7 EQU 86 DECREASE VALUE IN COUNT FIELD J0813770
0057 1381 | ERM87 EQU 87 RPG NOT IN SYSTEM 2-5 J0813780
0058 1382 | ERM88 EQU 88 COBOL NOT IN SYSTEM 2-9 J0813790
1383 | * J0813800
0065 1384 | DEVA EQU 101 ASSEMBLER VOIDED J0813810
0066 1385 | DEVF EQU 102 FORTRAN VOIDED J0813820
0067 1386 | DEVR EQU 103 RPG VOIDED 2-5 J0813830
0068 1387 | DEVC EQU 104 COBOL VOIDED 2-9 J0813840
1388 | * J0813850
000F 1389 | ERM15 EQU 15 INVALID TO FIELD FOR VOID J0813860
0046 1390 | ERM70 EQU 70 LAST ENTRY IN LET/FLET NOT 1DUMY J0813870
1391 | * J0813880
0592 1000 1392 | SSEL NOP TRACE WORD J0813890
0593 1000 1393 | NOP J0813900
0594 6904 1394 | STX 1 INBUF J0813910
0595 6500 7FA0 1395 | LDX L1 C RESET XR1 FOR CATCO J0813920
0597 4480 7DB4 1396 | BSI I LEAVE PRINT THE MESSAGE J0813930
0599 0000 1397 | INBUF DC *-* ERROR CODE NUMBER J0813940
1398 | * J0813950
1399 | *************************************************** J0813960
1400 | * J0813970
059A 001F 1401 | DEFOR DC 31 PHASE ID OF FORTRAN J0813980
059B 0000 1402 | DE#FP DC *-* SET WITH #FPAD W/O DR NO. J0813990
059C 0000 1403 | DE#CI DC *-* SET WITH #CIBA W/O DR NO. J0814000
059D 0000 1404 | FSAD DC *-* TO BE SET W/FORT ADDR J0814010
1405 | * J0814020
059E 0039 1406 | DEFL1 DC 57 PHID OF FOR, LAST PHASE 2-5 J0814030
059F 0000 1407 | SNOFF DC *-* STORAGE FOR SIGNOFF NO. 2-5 J0814040
05A0 0000 1408 | DEFL3 DC *-* TO BE SET W/ WORD CNT 2-5 J0814050
05A1 0000 1409 | DEFL4 DC *-* TO BE SET W/ SCTR ADDR 2-5 J0814060
1410 | * 2-5 J0814070
05A2 00CF 1411 | DEASM DC 207 PHASE ID OF ASSEMBLER 2-8 J0814080
05A3 0000 1412 | DE#FL DC *-* SET WITH #FLET W/O DR NO. J0814090
05A4 0000 1413 | DE#UL DC *-* SET WITH #ULET W/O DR NO. J0814100
05A5 0000 1414 | ASAD DC *-* TO BE SET W/ASM ADDR J0814110
1415 | * J0814120
05A6 00F6 1416 | DEAL1 DC 246 PHID OF ASM, LAST PHASE 2-8 J0814130
05A7 0000 1417 | ERRNO DC *-* STORAGE FOR ERR MSG NO. 2-5 J0814140
05A8 0000 1418 | DEAL3 DC *-* TO BE SET W/ WORD CNT 2-5 J0814150
05A9 0000 1419 | DEAL4 DC *-* TO BE SET W/ SCTR ADDR 2-5 J0814160
1420 | * 2-5 J0814170
05AA 00B0 1421 | DERPG DC 176 PHASE ID OF RPG COMP 2-5 J0814180
05AB 0000 1422 | ADRSV DC *-* GENERAL USAGE BUCKET J0814190
05AC 0000 1423 | DETSW DC *-* FILLED WITH C/DATSW J0814200
05AD 0000 1424 | RSAD DC *-* TO BE SET W/ RPG ADDR 2-5 J0814210
1425 | * J0814220
05AE 00CC 1426 | DERL1 DC 204 PHID OF RPG, LAST PHASE 2-5 J0814230
05AF 0000 1427 | DC *-* RESERVED 2-5 J0814240
05B0 0000 1428 | DERL3 DC *-* TO BE SET W/ WORD CNT 2-5 J0814250
05B1 0000 1429 | DERL4 DC *-* TO BE SET W/ SCTR ADDR 2-5 J0814260
1430 | * J0814270
05B2 0051 1431 | DECOB DC 81 PHASE ID OF COBOL COMPIL2-9 J0814280
05B3 0000 1432 | DC *-* UNUSED 2-9 J0814290
05B4 0000 1433 | DC *-* UNUSED 2-9 J0814300
05B5 0000 1434 | CSAD DC *-* TO BE SET W/ COBOL ADDR 2-9 J0814310
1435 | * 2-9 J0814320
05B6 005C 1436 | DECL1 DC 92 PHID COBOL, LAST PHASE 2-11 J0814330
05B7 0000 1437 | DC *-* UNUSED 2-9 J0814340
05B8 0000 1438 | DECL3 DC *-* TO BE SET W/ WD COUNT 2-9 J0814350
05B9 0000 1439 | DECL4 DC *-* TO BE SET W/ SCTR ADDR 2-9 J0814360
1440 | *************************************************** J0814370
1441 | * J0814380
05BA 0000 1442 | DECST DC *-* FOR EMERGENCY USE J0814390
05BB 9400 1443 | SK8 DC /9400 CST TO BUILD THE INSTRUC- J0814400
05BC 05C2 1444 | DC K8 *TION S L K8 J0814410
05BD 0000 1445 | DFTMP DC 0 WORK AREA J0814420
05BE 0000 1446 | DEBES DC 0 FXA CHANGE IN DBS J0814430
05BF 0000 1447 | NOCYL DC 0 NO. OF SCTRS, NOT CYLS J0814440
05C0 0001 1448 | K1 DC 1 CONSTANT J0814450
05C1 0003 1449 | K3 DC +3 CONSTANT J0814460
05C2 0008 1450 | K8 DC +8 SECTORS PER CYLINDER J0814470
05C3 000A 1451 | K10 DC 10 DECIMAL TEN J0814480
05C4 F0F0 1452 | HF0F0 DC /F0F0 EBCDIC FOR BLANK, ZERO J0814490
05C5 0010 1453 | K16 DC +16 FOR FLET SCTR HEADER J0814500
05C6 0138 1454 | K0138 DC /0138 SCTR OF WDS -8 HDR WDS J0814510
05C6 1455 | K312 EQU K0138 DITTO J0814520
05C7 0148 1456 | K0148 DC /148 HEX 138 PLUS HEX 10 J0814530
05C8 013D 1457 | K317 DC 320-3 SCTR LGTH MINUS 1 ENTRY J0814540
05C9 FF80 1458 | N80 DC -128 NEGATES ADDITION OF A CYL J0814550
05CA 0640 1459 | H0640 DC /0640 NUMBER OF SECTORS ON PACK J0814560
05CC 1460 | BSS E 0 J0814570
05CC 0140 1461 | K320 DC /140 WORD COUNT J0814580
05CD 0001 1462 | DECOM DC #DCOM SECTOR ADDR OF DCOM J0814590
05CE 0001 1463 | DEPUT DC 1 DISKZ I/O CONTROL WORD J0814600
05CF 7782 1464 | DC BUF5 *AND IOAR ADDRESS J0814610
05D0 1465 | BSS E 0 J0814620
05D0 7112 1466 | DUMNM DC /7112 1DUMY NAME W/INDR BITS J0814630
05D1 4528 1467 | DC /4528 DITTO J0814640
05D2 1468 | BSS E 0 J0814650
05D2 0000 1469 | SUBSA DC 0 UPPER SCTR TO MOVE UP J0814660
05D3 0000 1470 | SVFPA DC 0 LOWER SCTR TO MOVE UP J0814670
05D4 0000 1471 | FAD2 DC *-* 'FROM' ADDR FOR GET J0814680
05D5 0000 1472 | TAD2 DC *-* 'TO' ADDR FOR PUT J0814690
05D6 0000 1473 | LMV DC *-* LAST SCTR TO MOVE J0814700
05D7 0000 1474 | TMPST DC *-* TEMPORARY STORAGE J0814710
05D8 7784 1475 | BUFAD DC BUF5+2 DATA ADDR IN BUF5 J0814720
05D9 0000 1476 | CYL DC *-* CYLINDER CNT TO MOVE J0814730
05DA 0000 1477 | SKT DC *-* SCTR CNT TO MOVE J0814740
05DB 0000 1478 | DBS DC *-* DB CNT TO MOVE J0814750
05DC 0000 1479 | DEDBA DC *-* DBS OF AVAILABLE FXA J0814760
05DD 0000 1480 | SVMAG DC *-* MAGNITUDE OF MOVE J0814770
05DE 0000 1481 | OLDCB DC *-* ORIGINAL CIB ADDRESS J0814780
05DF 0000 1482 | DE485 DC *-* DRIVE CODE -LEFT 4 BITS J0814790
05E0 1483 | BSS E 0 J0814800
05E0 0140 1484 | RETBL DC /140 WORD COUNT J0814810
05E1 0006 1485 | DC #RTBL RELOAD TABLE SCTR ADDR J0814820
05E2 1486 | BSS E 0 J0814830
05E2 0000 1487 | DE870 DC *-* SCTRS VOIDED -WHOLE CYLS J0814840
05E3 0000 1488 | DE871 DC *-* SECTORS LEFT OVER J0814850
05E4 0000 1489 | DE488 DC *-* TO INCREMENT XR.S J0814860
05E5 0002 1490 | DERIM DC #RIAD SCTR ADDR OF RES IMAGE J0814870
05E6 0200 1491 | DEVS2 DC /0200 0 INDICATES SYSTEM PACK J0814880
05E7 0FFF 1492 | DEFFF DC /0FFF TO MASK DRIVE NUMBER J0814890
05E8 7FA0 1493 | DECDC DC C TO BE BUMPED BY DRIVE NO. J0814900
1494 | * J0814910
1495 | *************************************************** J0814920
VOID FORTRAN/ASSEMBLER/RPG
05E9 1000 1497 | DE814 NOP TRACE WORD J0814940
05EA 6154 1498 | LDX 1 DERM8 DISPLAY DEFE TIVE SLET J0814950
05EB 40A6 1499 | BSI SSEL EXIT THROUGH LEAVE J0814960
1500 | * J0814970
05EC 1000 1501 | DE852 NOP J0814980
1502 | * INSTRUCTION REMOVED 2-9 J0814985
05ED 4400 0681 1503 | BSI L DER10 GO WORK ON RELOAD TABLE J0814990
05EF 1000 1504 | NOP J0815000
05F0 4400 04BD 1505 | BSI L W200 PROCESS REBUILT TABLE J0815010
1506 | * J0815020
05F2 C0EF 1507 | LD DE870 FETCH NO. SECTOR MOVED 2-10 J0815030
05F3 1890 1508 | SRT 16 J0815040
05F4 A8CD 1509 | D K8 DETERMINE WHOLE CYLINDERS J0815050
05F5 1003 1510 | SLA 3 J0815060
05F6 D8EB 1511 | STD DE870 J0815070
05F7 6500 7FA0 1512 | LDX L1 C RESET FOR CATCO J0815080
1513 | * 2-9 J0815081
05F9 C10B 1514 | LD 1 MUHDR+1 UPDATE MUP DUP PHASE 2-9 J0815082
05FA 90E2 1515 | S SVMAG *IOAR HEADER SECTOR 2-9 J0815083
05FB D10B 1516 | STO 1 MUHDR+1 *ADDRESS 2-9 J0815084
1517 | * 2-9 J0815085
05FC C10D 1518 | LD 1 D2HDR+1 UPDATE DUP CONTROL 2 2-9 J0815086
05FD 90DF 1519 | S SVMAG *PHASE IOAR HEADER 2-9 J0815087
05FE D10D 1520 | STO 1 D2HDR+1 *SECTOR ADDRESS 2-9 J0815088
1521 | * 2-9 J0815089
05FF C1C1 1522 | LD 1 #SCRA SETUP FROM ADDR FOR MOVE J0815090
0600 D0D3 1523 | STO FAD2 J0815100
0601 90E0 1524 | S DE870 CYLINDERS VOIDED J0815110
0602 D0D2 1525 | STO TAD2 J0815120
0603 C1D5 1526 | LD 1 #WSCT J0815130
0604 90BB 1527 | S K1 COMPUTE NUMBER OF 2-7 J0815140
0605 1884 1528 | SRT 4 *SECTORS MINUS ONE 2-7 J0815150
0606 81AD 1529 | A 1 #FPAD J0815160
0607 D0CE 1530 | STO LMV LAST SECTOR TO MOVE J0815170
0608 4400 0417 1531 | BSI L MOVE SHIFT DOWN J0815180
060A 1000 1532 | NOP J0815190
060B 1810 1533 | SRA 16 J0815200
060C 90D5 1534 | S DE870 FORM NEGATIVE CYLIN COUNT J0815210
060D D09D 1535 | STO ADRSV J0815220
060E 1004 1536 | SLA 4 J0815230
060F D0AE 1537 | STO DEBES FORM NEGATIVE BYTE COUNT J0815240
0610 C1D0 1538 | LD 1 #ULET ADJUST CATCO LET ADDR J0815250
0611 90D0 1539 | S DE870 J0815260
0612 D1D0 1540 | STO 1 #ULET J0815270
1541 | * J0815280
0613 4400 038E 1542 | BSI L UPDLT UPDATE LET IN NEW POSITION J0815290
1543 | * J0815300
1544 | * REVISE ADDR'S IN CATCO J0815310
0615 C1BC 1545 | LD 1 #CIBA J0815320
0616 90CB 1546 | S DE870 J0815330
0617 D1BC 1547 | STO 1 #CIBA J0815340
1548 | * J0815350
0618 C1C1 1549 | LD 1 #SCRA J0815360
0619 90C8 1550 | S DE870 J0815370
061A D1C1 1551 | STO 1 #SCRA J0815380
1552 | * J0815390
061B C1AD 1553 | LD 1 #FPAD J0815400
061C 90C5 1554 | S DE870 J0815410
061D D1AD 1555 | STO 1 #FPAD J0815420
1556 | * J0815430
061E C1A8 1557 | LD 1 #BNDU J0815440
061F 809E 1558 | A DEBES NEGATIVE VALUE IN DEBES J0815450
0620 D1A8 1559 | STO 1 #BNDU J0815460
1560 | * J0815470
0621 C1A3 1561 | LD 1 #ANDU J0815480
0622 809B 1562 | A DEBES NEGATIVE VALUE IN DEBES J0815490
0623 D1A3 1563 | STO 1 #ANDU J0815500
1564 | * J0815510
0624 1000 1565 | NOP J0815520
0625 C1DA 1566 | LD 1 #CSHN J0815530
0626 80BC 1567 | A DE871 J0815540
0627 D1DA 1568 | STO 1 #CSHN J0815550
1569 | * J0815560
0628 4400 03C5 1570 | BSI L UPDCM UPDATE DCOM FROM CATCO J0815570
1571 | * SRT SHOULD BE ZERO J0815580
062A 4400 043C 1572 | BSI L UDCOM UPDATE RESIDENT IMAGE J0815590
1573 | * J0815600
1574 | *************************************************** J0815610
1575 | * J0815620
1576 | * LOCATE DISKZ AND RESET WITH NEW SECTOR ADDR J0815630
1577 | * OF CORE IMAGE LOADER. J0815640
1578 | * J0815650
1579 | *************************************************** J0815660
1580 | * J0815670
062C 4400 0554 1581 | BSI L DER60 TO UPDATE DISKZ J0815680
062E 6580 059F 1582 | LDX I1 SNOFF SET UP SIGN-OFF NO. AND 2-5 J0815690
0630 4400 0592 1583 | BSI L SSEL *GO THRU SSEL TO LEAVE J0815700
1584 | * J0815710
1585 | * J0815720
1586 | * J0815730
1587 | *************************************************** J0815740
1588 | * J0815750
1589 | * SET THE NECESSARY CONSTANTS FOR VOIDING 2-5 J0815760
1590 | * A PROGRAM. 2-5 J0815770
1591 | * J0815780
1592 | *************************************************** J0815790
1593 | * J0815800
0632 6152 1594 | DEVFN LDX 1 ERM3 SET FOR ERR MSG NO. 2-5 J0815810
0633 6D00 05A7 1595 | STX L1 ERRNO * 2-5 J0815820
0635 6166 1596 | LDX 1 DEVF SET FOR SIGN-OFF MSG NO.2-5 J0815830
0636 6D00 059F 1597 | STX L1 SNOFF * 2-5 J0815840
0638 C2E0 1598 | LD 2 DEFOR-D SET LOW LIMIT PHASE ID 2-5 J0815850
0639 D062 1599 | STO DELOW * 2-5 J0815860
063A C2E4 1600 | LD 2 DEFL1-D SET HIGH LIMIT PHASE ID 2-5 J0815870
063B D061 1601 | STO DEHGH * 2-5 J0815880
063C C2E3 1602 | LD 2 FSAD-D SET TO SCTR ADDR 2-5 J0815890
063D D21B 1603 | STO 2 TAD2-D * 2-5 J0815900
063E C2E7 1604 | LD 2 DEFL4-D SAVE ADDR OF LAST PHASE 2-5 J0815910
063F D21A 1605 | STO 2 FAD2-D *OF PROGRAM 2-5 J0815920
0640 C2E6 1606 | LD 2 DEFL3-D GET WD CNT OF LAST PHASE2-5 J0815930
0641 702F 1607 | MDX DE700 BR TO CALC NO. SCTRS 2-5 J0815940
1608 | * 2-5 J0815950
0642 6151 1609 | DEVAM LDX 1 ERM2 SET ASM ERR MSG NO. 2-5 J0815960
0643 6D00 05A7 1610 | STX L1 ERRNO * 2-5 J0815970
0645 6165 1611 | LDX 1 DEVA SET ASM SIGN-OFF MSG NO.2-5 J0815980
0646 6D00 059F 1612 | STX L1 SNOFF * 2-5 J0815990
0648 C2E8 1613 | LD 2 DEASM-D SET LOW LIMIT PHID 2-5 J0816000
0649 D052 1614 | STO DELOW * 2-5 J0816010
064A C2EC 1615 | LD 2 DEAL1-D SET HIGH LIMIT PHID 2-5 J0816020
064B D051 1616 | STO DEHGH * 2-5 J0816030
064C C2EB 1617 | LD 2 ASAD-D SET TO SCTR ADDR 2-5 J0816040
064D D21B 1618 | STO 2 TAD2-D * 2-5 J0816050
064E C2EF 1619 | LD 2 DEAL4-D SAVE ADDR OF LAST PHASE 2-5 J0816060
064F D21A 1620 | STO 2 FAD2-D *OF PROG 2-5 J0816070
0650 C2EE 1621 | LD 2 DEAL3-D GET WD CNT OF LAST PHASE2-5 J0816080
0651 701F 1622 | MDX DE700 BR TO CALC NO. SCTRS 2-5 J0816090
1623 | * 2-5 J0816100
0652 6157 1624 | DEVRG LDX 1 ERM87 SET RPG ERR MSG NO. 2-5 J0816110
0653 6D00 05A7 1625 | STX L1 ERRNO * 2-5 J0816120
0655 6167 1626 | LDX 1 DEVR SET RPG SICN-OFF MSG NO.2-5 J0816130
0656 6D00 059F 1627 | STX L1 SNOFF * 2-5 J0816140
0658 C2F0 1628 | LD 2 DERPG-D SET LOW LIMIT PHID 2-5 J0816150
0659 D042 1629 | STO DELOW * 2-5 J0816160
065A C2F4 1630 | LD 2 DERL1-D SET HIGH LIMIT PHID 2-5 J0816170
065B D041 1631 | STO DEHGH * 2-5 J0816180
065C C2F3 1632 | LD 2 RSAD-D SET TO SCTR ADDR 2-5 J0816190
065D D21B 1633 | STO 2 TAD2-D 2-5 J0816200
065E C2F7 1634 | LD 2 DERL4-D SAVE ADDR OF LAST PHASE 2-5 J0816210
065F D21A 1635 | STO 2 FAD2-D *OF PROG 2-5 J0816220
0660 C2F6 1636 | LD 2 DERL3-D GET WD CNT OF LAST PHASE2-5 J0816230
0661 700F 1637 | MDX DE700 BR TO CALC NO. SCTRS 2-9 J0816240
1638 | * 2-5 J0816250
0662 6158 1639 | DEVCB LDX 1 ERM88 SET COBOL ERR MSG NO. 2-9 J0816260
0663 6D00 05A7 1640 | STX L1 ERRNO * 2-9 J0816270
0665 6168 1641 | LDX 1 DEVC SET COBOL SIGNOFF MSGNO.2-9 J0816280
0666 6D00 059F 1642 | STX L1 SNOFF * 2-9 J0816290
0668 C2F8 1643 | LD 2 DECOB-D SET LOW LIMIT PHID 2-9 J0816300
0669 D032 1644 | STO DELOW * 2-9 J0816310
066A C2FC 1645 | LD 2 DECL1-D SET HIGH LIMIT PHID 2-9 J0816320
066B D031 1646 | STO DEHGH * 2-9 J0816330
066C C2FB 1647 | LD 2 CSAD-D SET TO SCTR ADDR 2-9 J0816340
066D D21B 1648 | STO 2 TAD2-D * 2-9 J0816350
066E C2FF 1649 | LD 2 DECL4-D SAVE ADDR OF LAST PHASE 2-9 J0816360
066F D21A 1650 | STO 2 FAD2-D *OF PROGRAM 2-9 J0816370
0670 C2FE 1651 | LD 2 DECL3-D GET WD CNT OF LAST PHASE2-9 J0816380
1652 | * 2-9 J0816390
0671 9206 1653 | DE700 S 2 K1-D SUBTRACT ONE FROM WD CNT2-5 J0816400
0672 1890 1654 | SRT 16 DIVIDE SCTR WD CNT 2-5 J0816410
0673 AA26 1655 | D 2 RETBL-D *BY 320 2-5 J0816420
0674 8206 1656 | A 2 K1-D ADD ONE TO QUOTIENT 2-5 J0816430
0675 821A 1657 | A 2 FAD2-D UPDATE FROM SCTR ADDR 2-5 J0816440
0676 D21A 1658 | STO 2 FAD2-D *TO 1ST SCTR ABOVE PROG 2-5 J0816450
0677 1000 1659 | NOP FOR DEBUG STOP J0816460
1660 | * J0816470
0678 C22A 1661 | LD 2 DE488-D J0816480
0679 4C08 067D 1662 | BSC L DE721,+ J0816490
067B 610F 1663 | LDX 1 ERM15 INVALID 'TO' FIELD J0816500
067C 42D8 1664 | BSI 2 SSEL-D DISPLAY ERROR AND LEAVE J0816510
1665 | * J0816520
067D C22C 1666 | DE721 LD 2 DEVS2-D TEST FOR SYSTEM CARTRIDGE J0816530
067E 4C18 06E0 1667 | BSC L DE794,+- BR TO CONTINUE IF YES J0816540
0680 406F 1668 | BSI DE801-1 *ELSE DISPLAY ERROR J0816550
1669 | * J0816560
1670 | *************************************************** J0816570
1671 | * J0816580
1672 | * THIS SUBROUTINE REMOVES FROM THE RELOAD TABLE J0816590
1673 | * THOSE PHASE ID NUMBERS WHICH BELONG TO A J0816600
1674 | * VOIDED PROGRAM. THE REMAINING SETS ARE J0816610
1675 | * COMPRESSED TO FILL EACH HOLE AS IT DEVELOPS. J0816620
1676 | * J0816630
1677 | *************************************************** J0816640
1678 | * J0816650
0681 0000 1679 | DER10 DC *-* ENTRY J0816660
0682 CC00 05E0 1680 | LDD L RETBL FETCH WD CNT & SCTR ADDR J0816670
0684 DC00 0206 1681 | STD L RTBFR OVERLAY UNUSED CORE J0816680
0686 6700 0206 1682 | LDX L3 RTBFR POINT XR3 TO CORE TABLE J0816690
0688 4480 7DB3 1683 | BSI I GET J0816700
068A 6600 0208 1684 | LDX L2 RTBFR+2 POINT XR2 TO 1ST ENTRY J0816710
068C C200 1685 | DER14 LD 2 0 J0816720
068D F04E 1686 | EOR DEFF2 J0816730
068E 4C18 06AE 1687 | BSC L DER36,+- BR IF END OF STRING J0816740
1688 | * J0816750
1689 | *************************************************** J0816760
1690 | * J0816770
1691 | * PHASE ID NUMBERS TO BE REMOVED FROM SLET AND J0816780
1692 | * FROM RELOAD TABLE ARE EQUAL TO OR LARGER J0816790
1693 | * THAN LOW LIMIT AND LESS THAN OR EQUAL TO 2-5 J0816800
1694 | * HIGH LIMIT 2-5 J0816810
1695 | * J0816820
1696 | * IF PH IS IN RANGE, PROG WILL EXIT WITH ACC J0816830
1697 | * PLUS, OTHERWISE ACC WILL BE CLEARED TO ZERO. J0816840
1698 | * J0816850
1699 | *************************************************** J0816860
1700 | * J0816870
0690 F04B 1701 | EOR DEFF2 REGAIN PHASE ID J0816880
0691 900A 1702 | S DELOW IS IT LESS TAN LOW LIMIT J0816890
0692 4C28 069A 1703 | BSC L DER20,+Z BR TO OUT OF BOUNDS IF SO J0816900
0694 8007 1704 | A DELOW PHASE IS OUTSIDE DELETE J0816910
0695 9007 1705 | S DEHGH *BOUNDS IF ABOVE HIGH 2-5 J0816920
0696 4C30 069A 1706 | BSC L DER20,-Z *LIMIT, THEN BRANCH 2-5 J0816930
0698 C200 1707 | LD 2 0 RELOAD PHASE ID TESTED J0816940
0699 7004 1708 | MDX DER23 CONTINUE J0816950
1709 | * J0816960
069A 1810 1710 | DER20 SRA 16 CLEAR TO AVOID VOIDING J0816970
069B 7002 1711 | MDX DER23 CONTINUE J0816980
1712 | * J0816990
1713 | *************************************************** J0817000
069C 0000 1714 | DELOW DC *-* STARTING PH ID TO VOID J0817010
069D 0000 1715 | DEHGH DC *-* LAST PHASE ID TO VOID 2-5 J0817020
1716 | *************************************************** J0817030
1717 | * J0817040
069E 4C20 06A2 1718 | DER23 BSC L DER25,Z BR IF ACC +, PH IN RANGE J0817050
06A0 7203 1719 | MDX 2 3 OTHERWISE BUMP TO NEXT ID J0817060
06A1 70EA 1720 | MDX DER14 BR TO COMPARE THIS PH ID J0817070
1721 | * J0817080
06A2 6A09 1722 | DER25 STX 2 DER29+1 SAVE CURRENT XR2 VALUE J0817090
06A3 7203 1723 | MDX 2 3 J0817100
06A4 C200 1724 | DER27 LD 2 0 FETCH NEXT PH ID J0817110
06A5 D2FD 1725 | STO 2 -3 MOVE BACK 3 STEPS J0817120
06A6 F035 1726 | EOR DEFF2 TEST FOR END OF STRFING J0817130
06A7 4C18 06AB 1727 | BSC L DER29,+- FALL THRU IF NOT END J0817140
06A9 7201 1728 | MDX 2 1 J0817150
06AA 70F9 1729 | MDX DER27 KEEP MOVING UNTIL END J0817160
06AB 6600 0000 1730 | DER29 LDX L2 *-* J0817170
06AD 70DE 1731 | MDX DER14 GO TEST PH MOVED INTO HOLE J0817180
1732 | * J0817190
06AE C400 0002 1733 | DER36 LD L 2 LD C/XR2 CURRENTLY J0817200
06B0 90DA 1734 | S DER14-1 SUBTRACT BUFFER START J0817210
06B1 8400 05C0 1735 | A L K1 J0817220
06B3 D300 1736 | STO 3 0 RESET WORDS TO FILE J0817230
06B4 4480 7DBC 1737 | BSI I PUT J0817240
06B6 4C80 0681 1738 | BSC I DER10 RETURN J0817250
1739 | * J0817260
1740 | *************************************************** J0817270
1741 | * J0817280
1742 | * J0817290
1743 | * THIS SUBROUTINE LOCATES 1ST SET IN SLET TO J0817300
1744 | * BE DELETED. ALL ENTRIES BELONGING TO THE J0817310
1745 | * PROGRAM WHICH WAS DELETED WILL BE SET TO 0. J0817320
1746 | * J0817330
1747 | * FINAL EXIT IS TO DE852 J0817340
1748 | * J0817350
1749 | *************************************************** J0817360
1750 | * J0817370
1751 | * INSTRUCTION REMOVED 2-9 J0817375
06B8 C0E3 1752 | DE843 LD DELOW PHASE ID OF 1ST PHASE 2-5 J0817380
06B9 4400 0499 1753 | BSI L FSS LOCATE 1ST PH ID VOIDED J0817390
06BB 4820 1754 | BSC Z J0817400
06BC 7002 1755 | MDX DE848 J0817410
06BD 4400 05E9 1756 | BSI L DE814 DEFECTIVE SLET J0817420
1757 | * J0817430
06BF 10A0 1758 | DE848 SLT 32 CLEAR ALL 4 ENTRIES J0817440
06C0 DA00 1759 | STD 2 0 J0817450
06C1 DA02 1760 | STD 2 2 J0817460
06C2 C400 0002 1761 | LD L 2 TEST FOR END OF SLET SCTR J0817470
06C4 9016 1762 | S FSAL J0817480
06C5 4C20 06CC 1763 | BSC L DE846,Z BRANCH IF NOT END 2-9 J0817490
06C7 4480 7DBC 1764 | BSI I PUT WRITE UPDATED SECTOR 2-9 J0817500
06C9 405B 1765 | BSI DE844 READ NEXT SCTR IF THERE 2-9 J0817510
06CA 700E 1766 | MDX DE847 ERROR IF END OF SLET HIT2-9 J0817520
06CB 72FC 1767 | MDX 2 -4 POINT TO LAST ENTRY 2-9 J0817530
06CC C204 1768 | DE846 LD 2 4 TEST NEXT PH ID FOR END 2-9 J0817540
06CD 90CF 1769 | S DEHGH 2-5 J0817550
06CE 4C18 06D2 1770 | BSC L DE849,+- EXIT IF EQUAL 2-5 J0817560
06D0 7204 1771 | MDX 2 4 STEP UP SLET PTR J0817570
06D1 70ED 1772 | MDX DE848 REPEAT UNTIL DONE J0817580
1773 | * J0817590
06D2 10A0 1774 | DE849 SLT 32 CLEAR THE LAST 2-5 J0817600
06D3 DA04 1775 | STD 2 4 *SLET ENTRY OF PROG 2-5 J0817610
06D4 DA06 1776 | STD 2 6 2-5 J0817620
06D5 4480 7DBC 1777 | BSI I PUT WRITE SLET SECTOR 2-9 J0817630
06D7 4C00 05EC 1778 | BSC L DE852 HEAD FOR RELOAD TABLE 2-5 J0817640
1779 | * *PROCESSING 2-5 J0817650
1780 | * 2-9 J0817660
06D9 4400 05E9 1781 | DE847 BSI L DE814 DISPLAY DEFECTIVE SLET 2-9 J0817670
1782 | * J0817680
1783 | *************************************************** J0817690
06DB 78C0 1784 | FSAL DC FSLET+2+316 ADDR OF LAST SLET SET J0817700
06DC FFFF 1785 | DEFF2 DC -1 CONSTANT J0817710
06DD 0000 1786 | DE829 DC *-* TEMPORARY SCTR STORAGE J0817720
06DE 3FFF 1787 | KAND DC /3FFF SIGN BIT MASK J0817730
06DF 0000 1788 | DE830 DC *-* STORAGE J0817740
1789 | * CONSTANT REMOVED 2-9 J0817750
1790 | * J0817760
06E0 4480 7DBA 1791 | DE794 BSI I PHIDM J0817770
06E2 0408 1792 | DC /0408 RECORD MODULE J0817780
1793 | * J0817790
06E3 6500 7FA0 1794 | LDX L1 C RESTORE XR1 2-5 J0817800
06E5 C1CB 1795 | LD 1 #FLET TEST FOR FXA PRESENT J0817810
06E6 4C18 06EB 1796 | BSC L DE800,+- OK TO VOID IF NONE J0817820
06E8 6150 1797 | LDX 1 ERM1 SET UP FOR ERROR J0817830
06E9 4400 0592 1798 | BSI L SSEL J0817840
1799 | * J0817850
06EB C0B0 1800 | DE800 LD DELOW TEST PRESET SCTR ADDR J0817860
06EC 4400 0499 1801 | BSI L FSS VERIFY PRESENCE J0817870
06EE 4C30 06F5 1802 | BSC L DE803,Z- J0817880
06F0 1000 1803 | NOP TRACE WORD J0817890
06F1 6580 05A7 1804 | DE801 LDX I1 ERRNO GET ERR MSG NO. 2-5 J0817900
06F3 4400 0592 1805 | BSI L SSEL TO SET-UP FOR ERROR J0817910
1806 | * J0817920
06F5 6600 05BA 1807 | DE803 LDX L2 D RESET POINTER J0817930
06F7 C21A 1808 | LD 2 FAD2-D GET FROM ADDR 2-10 J0817940
06F8 921B 1809 | S 2 TAD2-D *SUBTRACT TO ADDR 2-10 J0817950
06F9 D228 1810 | STO 2 DE870-D TOTAL SECTORS TO SHIFT 2-10 J0817960
06FA C1C1 1811 | LD 1 #SCRA J0817970
1812 | * 1 INSTRUCTION MOVED 2-12 J0817980
06FB 9206 1813 | S 2 K1-D J0817990
06FC D21C 1814 | STO 2 LMV-D LAST SCTR TO BE MOVED J0818000
1815 | * 2-5 J0818010
06FD 91DA 1816 | S 1 #CSHN CUSHION NOT MOVED 2-12 J0818015
06FE 921A 1817 | S 2 FAD2-D CHK IF PROG TO VOID IS 2-5 J0818020
06FF 4C28 0705 1818 | BSC L DE808,+Z *LAST SYS PROG. THEN 2-5 J0818030
1819 | * *BRANCH AROUND MOVE. 2-5 J0818040
0701 C228 1820 | LD 2 DE870-D SET SECTORS OF 2-10 J0818042
0702 D223 1821 | STO 2 SVMAG-D *SYS PROG SHIFT 2-10 J0818044
1822 | * 2-10 J0818046
0703 4400 0417 1823 | BSI L MOVE MOVE THE SYSTEM PROGRAMS J0818050
0705 1000 1824 | DE808 NOP FOR DEBUG STOP J0818060
0706 C096 1825 | LD DEHGH 2-5 J0818070
0707 4400 0499 1826 | BSI L FSS LOCATE LAST ENTRY OF 2-5 J0818080
1827 | * *PROGRAM TO VOID 2-5 J0818090
0709 4418 05E9 1828 | BSI L DE814,+- BR TO ERROR IF MISSING J0818100
070B 7204 1829 | MDX 2 4 MOVE PTR TO NEXT ENTRY 2-5 J0818110
070C C203 1830 | DE820 LD 2 3 LOAD SCTR ADDR J0818120
070D 4818 1831 | BSC +- J0818130
070E 700A 1832 | MDX DE834 NO CHANGE IF ZERO J0818140
070F D0CD 1833 | STO DE829 SAVE SCTR J0818150
0710 E0CD 1834 | AND KAND MASK OUT SIGN BIT J0818160
0711 9400 05DD 1835 | S L SVMAG DECR SCTR ADDR J0818170
0713 D0CB 1836 | STO DE830 J0818180
0714 C0C8 1837 | LD DE829 J0818190
0715 180F 1838 | SRA 15 SAVE SIGN BIT IF PRESENT J0818200
0716 100F 1839 | SLA 15 J0818210
0717 E8C7 1840 | OR DE830 OR SIGN INTO NEW SCTR ADDR J0818220
0718 D203 1841 | STO 2 3 J0818230
0719 C400 0002 1842 | DE834 LD L 2 TEST FOR END OF SECTOR J0818240
071B 90BF 1843 | S FSAL J0818250
071C 4C18 0720 1844 | DE836 BSC L DE840,+- BR WHEN END IS REACHED J0818260
071E 7204 1845 | MDX 2 4 J0818270
071F 70EC 1846 | MDX DE820 REPEAT J0818280
0720 4480 7DBC 1847 | DE840 BSI I PUT FILE BACK J0818290
0722 4002 1848 | BSI DE844 GET NEXT SLET SECTOR 2-9 J0818300
0723 7094 1849 | MDX DE843 EXIT IF SLET FINISHED 2-9 J0818310
0724 70E7 1850 | MDX DE820 PROCESS NEXT SLET SCTR 2-9 J0818320
1851 | * 2-9 J0818330
1852 | ************************************************2-9 J0818340
1853 | * 2-9 J0818350
1854 | * READ NEXT SLET SECTOR IF NOT AT END 2-9 J0818360
1855 | * DIRECT RETURN IF SLET EXHAUSTED 2-9 J0818370
1856 | * DIRECT + 1 RETURN IF NEXT SCTR READ 2-9 J0818380
1857 | * 2-9 J0818390
1858 | ************************************************2-9 J0818400
0725 0000 1859 | DE844 DC *-* 2-9 J0818410
0726 C400 7783 1860 | LD L BUF5+1 GET CURRENT SLET S/A 2-9 J0818420
0728 9400 04BC 1861 | S L SLETC TEST IF LAST ONE READ 2-9 J0818430
072A 4C18 0734 1862 | BSC L DE845,+- BRANCH IF YES 2-9 J0818440
072C 7401 0725 1863 | MDX L DE844,1 INCREMENT RETURN ADDRESS2-9 J0818450
072E 7401 7783 1864 | MDX L BUF5+1,1 FIND NEXT SLET SCTR ADDR2-9 J0818460
0730 4400 01E7 1865 | BSI L GETX READ NEXT SLET SECTOR 2-9 J0818470
0732 6600 7784 1866 | LDX L2 BUF5+2 POINT TO 1ST WORD OF SCT2-9 J0818480
0734 4C80 0725 1867 | DE845 BSC I DE844 RETURN 2-9 J0818490
1868 | *************************************************** J0818500
1870 | *************************************************** J0818520
1871 | * J0818530
1872 | * EXPANSION FOR FIXED AREA J0818540
1873 | * J0818550
1874 | *************************************************** J0818560
0736 C218 1875 | MVDSK LD 2 SUBSA-D J0818570
0737 D400 7783 1876 | STO L BUF5+1 SAD TO GET IN IOAR J0818580
0739 4400 01E7 1877 | BSI L GETX GET 1 SECTOR J0818590
073B C219 1878 | LD 2 SVFPA-D J0818600
073C D400 7783 1879 | STO L BUF5+1 SCTR ADDR TO RELOCATE TO J0818610
073E 4400 01FC 1880 | BSI L PUTX WRITE 1 SECTOR J0818620
0740 C2E2 1881 | LD 2 DE#CI-D J0818630
0741 9218 1882 | S 2 SUBSA-D HAVE ALL BEEN MOVED J0818640
0742 4C10 03EB 1883 | BSC L DKMVD,- YES 2-4 J0818650
0744 74FF 05D2 1884 | MDX L SUBSA,-1 MOVE ANOTHER SECTOR J0818660
0746 74FF 05D3 1885 | MDX L SVFPA,-1 *UNTIL DE#CI IS REACHED J0818670
0748 70ED 1886 | MDX MVDSK GO BACK TO MOVE SKTRS J0818680
1887 | * J0818690
1888 | *************************************************** J0818700
1889 | * J0818710
1890 | * WRITE 1 DUMMY FLET ENTRY J0818720
1891 | * NO PREVIOUS FLET WAS PRESENT J0818730
1892 | * J0818740
1893 | *************************************************** J0818750
0749 0000 1894 | SHDR DC +0 J0818760
074A 1000 1895 | DENOP NOP THIS NOP USED AS CONSTANT J0818770
074B 6700 7784 1896 | LDX L3 BUF5+2 POINT XR3 TO 1ST DATA WD J0818780
074D C20B 1897 | LD 2 K16-D STORE HEX 0010 TO 1ST SCTR J0818790
074E D300 1898 | STO 3 0 J0818800
074F C224 1899 | LD 2 OLDCB-D FETCH ORIGINAL CIB ADDRS J0818810
0750 8208 1900 | A 2 K8-D FORM ADDR OF NEXT CYLINDER J0818820
0751 D301 1901 | STO 3 1 J0818830
0752 1010 1902 | SLA 16 J0818840
0753 D302 1903 | STO 3 2 ZERO TO RESERVED WORD J0818850
0754 D304 1904 | STO 3 4 INDICATE LAST FLET SCTR J0818860
0755 C20C 1905 | LD 2 K0138-D SET UP AVAILABLE WORDS J0818870
0756 D303 1906 | STO 3 3 NEW FLET SECTOR J0818880
0757 CA16 1907 | LDD 2 DUMNM-D J0818890
0758 D305 1908 | STO 3 5 SETUP NAME---1DUMY J0818900
0759 18D0 1909 | RTE 16 J0818910
075A D306 1910 | STO 3 6 J0818920
075B C205 1911 | LD 2 NOCYL-D FETCH SECTOR COUNT J0818930
075C 1000 1912 | SHDR1 NOP INSTRUC MODIFIED IF NO J0818940
075D 1000 1913 | NOP *PREVIOUS FXA J0818950
075E 1004 1914 | SLA 4 MULTIPLY TO GET BYTES J0818960
075F D307 1915 | STO 3 7 FXA SIZE IN BYTES J0818970
0760 73FE 1916 | MDX 3 -2 POINT XR3 TO IOAR J0818980
1917 | * FILE FLET SECTOR J0818990
1918 | * THIS ADDR WILL ALSO BE J0819000
1919 | * *PUT IN LET J0819010
0761 4C80 0749 1920 | BSC I SHDR RETURN J0819020
1921 | * J0819030
1922 | * NO PREVIOUS FLET OR FIXED AREA J0819040
1923 | * J0819050
0763 C224 1924 | DENOF LD 2 OLDCB-D OLD CIB ADDR IS NEW FLET J0819060
0764 8225 1925 | A 2 DE485-D ADD IN THE DRIVE NO. J0819070
0765 6580 05E8 1926 | LDX I1 DECDC POINT TO QUINTUPLE ENTRY J0819080
0767 D1CB 1927 | STO 1 #FLET J0819090
0768 D2E9 1928 | STO 2 DE#FL-D J0819100
1929 | * J0819110
1930 | * XR1 HAS BEEN MODIFIED BY DRIVE NUMBER J0819120
1931 | * J0819130
0769 1000 1932 | NOP J0819140
076A C201 1933 | LD 2 SK8-D SETUP THE INSTRUCTION TO J0819150
076B D0F0 1934 | STO SHDR1 *MODIFY AMT OF FX A BEING J0819160
1935 | * *ADDED, IF NO PREV FX A J0819170
076C C202 1936 | LD 2 SK8+1-D *TO ALLOW FOR INITIATION J0819180
076D D0EF 1937 | STO SHDR1+1 *OF FLET J0819190
076E 40DA 1938 | BSI SHDR BUILD THE SECTOR HEADER J0819200
076F C0DA 1939 | LD DENOP NOP THE MODIFYING INST FOR J0819210
0770 D0EB 1940 | STO SHDR1 *USE BY OTHER PORTIONS OF J0819220
1941 | * *THE PROGRAM J0819230
0771 D0EB 1942 | STO SHDR1+1 J0819240
0772 C20F 1943 | LD 2 N80-D TO SUBTRACT FOR FLET CYL J0819250
1944 | * C/N80 IS NO. OF DBS/CYL J0819260
0773 D2F1 1945 | STO 2 ADRSV-D J0819270
0774 8204 1946 | A 2 DEBES-D CALCULATE AVAILABLE DBS J0819280
0775 D222 1947 | STO 2 DEDBA-D SAVE FOR SIGN OFF J0819290
0776 C1CB 1948 | LD 1 #FLET NEW FLET SECTOR ADDR J0819300
0777 D400 7783 1949 | STO L BUF5+1 FLET SAD TO IOAR J0819310
0779 C208 1950 | LD 2 K8-D WORDS TO WRITE ON DISK J0819320
077A D300 1951 | STO 3 +0 J0819330
077B 4400 01FC 1952 | BSI L PUTX WRITE FLET DUMMY SCTR J0819340
077D C212 1953 | LD 2 K320-D RESET WD COUNT FOR FULL J0819350
077E D300 1954 | STO 3 +0 *SECTOR J0819360
077F 4C00 0299 1955 | BSC L FINSH TO FINISH THE JOB J0819370
1956 | * J0819380
05BA 1957 | D EQU DECST J0819390
0781 1958 | BSS BUF5-/7000-*-1 AUXILARY PATCH AREA J0819400
0781 FFFF 1959 | DC /FFFF END OF DEFINE PATCH AREA J0819410
1960 | *************************************************** J0819420
1961 | * J0819430
1962 | * USE PATCH AREA NO. 1 FOR ANY PATCH NOT IN J0819440
1963 | * *VOLVING VOID FORTRAN/ASM. OTHERWISE USE J0819450
1964 | * PATCH AREA NO. 2 WHICH PRECEDES BUF7. J0819460
1965 | * J0819470
1966 | * PATCH AREA NO. 1 MUST NOT OVERLAY BUF5 J0819480
1967 | * PATCH AREA NO. 2 MUST NOT OVERLAY BUF7 J0819490
1968 | * J0819500
1969 | *************************************************** J0819510
0782 1970 | END B J0819520
There were no errors in this assembly
Program transfer address = 01DE
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#ACIN FF9C 98
#ANDU FFA3 104 1018 1020 1561 1563
#BNDU FFA8 105 1014 1016 1557 1559
#CBSW FF8A 77
#CIAD FF9B 97 1357
#CIBA FFBC 109 492 662 993 998 1087 1090 1545 1547
#CIDN FFB7 108 957
#CSHN FFDA 115 1566 1568 1816
#DBCT FF86 73
#DCOM 0001 116 1462
#DCSW FF98 94
#ECNT FFA1 103
#ENTY FF90 83
#FCNT FF87 74
#FHOL FF94 90
#FLET FFCB 112 488 555 658 670 682 756 881 885 929 1795 1927 1948
#FMAT FFC6 111
#FPAD FFAD 106 503 1006 1008 1099 1101 1529 1553 1555
#FRDR FF93 88
#FSZE FF95 91
#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
#RIAD 0002 463 1490
#RP67 FF91 84
#RTBL 0006 465 1485
#SCRA FFC1 110 1522 1549 1551 1811
#SLET 0003 464 1164 1166
#SYSC FF88 75 511
#TODR FF92 87 473 476 478
#UHOL FF96 92
#ULET FFD0 113 484 495 665 901 1002 1004 1094 1096 1538 1540
#USZE FF97 93
#WSCT FFD5 114 569 583 593 1044 1526
#X3SW FFA0 102
$1132 007F 33
$1403 0080 34
$ACDE 009F 42
$BYSW 01CB 52
$CH12 0006 4
$CIBA 0005 3 1082 1089
$COMN 0007 5
$CORE 000E 6
$CPTR 007E 32
$CTSW 000F 7
$CYLN 009A 41
$DABL 0011 9
$DADR 0010 8
$DBSY 00EE 51 1355 1366
$DCDE 0077 25
$DCYL 00A4 43
$DREQ 0012 10
$DUMP 003F 24
$EXIT 0038 22
$FPAD 0095 40 1102
$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
$IOCT 0032 16
$IREQ 002C 14
$KCSW 007C 30
$LAST 0033 17
$LINK 0039 23
$NDUP 0034 18
$NXEQ 0035 19
$PBSY 0036 20
$PGCT 0037 21
$PHSE 0078 26
$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 1079
$WRD1 007B 29
$WSDR 007A 28
$ZEND 01E0 54 266 1362
'SBFR 0FB0 118
ADDR2 003D 228
ADRSV 05AB 1422 643 653 732 828 918 922 933 978 1535 1945
ASAD 05A5 1414 1617
ASMSW 000E 152 521
B 01DE 266 267 268 269 270 271 272 273 393 1970
B5 0546 1311 1306
B6 0550 1318 1315
BINEB 7DB0 280 678 684 688
BITSW 000F 153
BLKSW 0010 154
BSIGT 01F1 429 438 441
BUF1 79B5 305 306
BUF2 7963 306 307
BUF3 7925 307 308
BUF4 78D3 308
BUF5 7782 309 310 458 632 708 743 767 859 870 1034 1066 1106 1141
1177 1353 1464 1475 1860 1864 1866 1876 1879 1896 1949 1958
BUF6 7D91 298 299 300
BUF7 0640 310 1176 1307 1316
BUFAD 05D8 1475 718 774 937
BUFF1 0640 1176 1195 1209 1214 1263 1278 1339 1340 1343 1344
C 7FA0 56 428 507 622 683 812 963 1021 1027 1039 1348 1395 1493
1512 1794
CAFXA 02A2 657
CATCO 7F1E 275 964
CIDXX 02D6 698 687 958
CIERR 0011 155
CIHDR 0008 138
CILDR 00A0 461 1370
CILPH 058F 1370 1323
CISW 0012 156
CL1 000E 151
CL2 0037 204
CLBSW 0013 157
CNTNO 0014 158
CRBUF 0057 255
CSAD 05B5 1434 1647
CYL 05D9 1476 750
D 05BA 1957 475 477 479 481 485 486 489 490 493 497 501 504
505 508 512 514 541 544 545 551 556 564 568 571
573 574 575 576 577 578 579 580 590 591 605 607
620 630 633 642 643 651 652 653 659 663 669 672
673 677 704 716 718 719 738 744 747 749 750 752
754 758 774 775 777 785 786 791 796 809 810 814
815 816 817 819 820 826 827 828 831 846 867 868
878 880 884 911 915 918 922 930 933 935 937 989
990 994 996 997 999 1003 1007 1010 1012 1015 1019 1026
1036 1046 1048 1049 1050 1053 1056 1057 1067 1083 1088 1095
1100 1107 1351 1358 1359 1364 1598 1600 1602 1603 1604 1605
1606 1613 1615 1617 1618 1619 1620 1621 1628 1630 1632 1633
1634 1635 1636 1643 1645 1647 1648 1649 1650 1651 1653 1655
1656 1657 1658 1661 1664 1666 1807 1808 1809 1810 1813 1814
1817 1820 1821 1875 1878 1881 1882 1897 1899 1900 1905 1907
1911 1924 1925 1928 1933 1936 1943 1945 1946 1947 1950 1953
D2HDR 000C 140 1518 1520
D3 0539 1298 1268
D319 053A 1299 1260
D320 053B 1300 1192 1204 1284
DATSW 0015 165 540
DBADR 0016 166 813 883
DBS 05DB 1478 754 785 880
DCADR 0058 256
DCHDR FFF0 126
DCTL 11E0 270
DCTLC 11DE 271
DE#CI 059C 1403 501 814 819 989 1881
DE#FL 05A3 1412 490 651 704 744 809 867 911 1026 1928
DE#FP 059B 1402 505 573 579 591 1048
DE#UL 05A4 1413 486
DE067 0308 749 745 797
DE071 0329 783 778
DE073 033F 801 788
DE085 035E 834 1025
DE236 033B 799 793
DE245 026B 590 581
DE246 026F 594 800
DE247 0273 599 596 623 675
DE249 027A 605 612
DE252 028C 625 597
DE312 02A0 655 841
DE315 02B1 669 664
DE320 02B6 674 660
DE333 02D8 708 713
DE345 02EE 725 781
DE360 03D5 966 960
DE364 03D6 968 961
DE366 03D8 969 962
DE369 03F7 999 995
DE372 03FD 1006 1000
DE391 0452 1092 1085
DE400 0206 457 419 1178
DE480 020A 473
DE481 0216 484 474
DE482 0226 501 494
DE485 05DF 1482 426 481 669 884 959 997 1083 1925
DE488 05E4 1489 479 1092 1103 1661
DE500 0241 540 595 601 602 616 618 621 674
DE502 024C 549 532 557
DE506 024F 553 547
DE522 0256 566
DE700 0671 1653 1607 1622 1637
DE702 046A 1115 690
DE703 0475 1116 676 680
DE704 0481 1117 686
DE711 048D 1119 627 1114
DE712 048E 1120 625
DE714 0498 1121 1119
DE721 067D 1666 1662
DE794 06E0 1791 1667
DE800 06EB 1800 1796
DE801 06F1 1804 1668
DE803 06F5 1807 1802
DE808 0705 1824 1818
DE814 05E9 1497 1188 1245 1325 1337 1756 1781 1828
DE820 070C 1830 1846 1850
DE829 06DD 1786 1833 1837
DE830 06DF 1788 1836 1840
DE834 0719 1842 1832
DE836 071C 1844
DE840 0720 1847 1844
DE843 06B8 1752 1849
DE844 0725 1859 1765 1848 1863 1867
DE845 0734 1867 1862
DE846 06CC 1768 1763
DE847 06D9 1781 1766
DE848 06BF 1758 1755 1772
DE849 06D2 1774 1770
DE852 05EC 1501 1778
DE870 05E2 1487 1507 1511 1524 1534 1539 1546 1550 1554 1810 1820
DE871 05E3 1488 1567
DEAL1 05A6 1416 1233 1615
DEAL3 05A8 1418 1621
DEAL4 05A9 1419 1619
DEASM 05A2 1411 1231 1613
DEBBM 0469 1114 694
DEBES 05BE 1446 941 979 1012 1015 1019 1537 1558 1562 1946
DECDC 05E8 1493 475 477 482 546 657 681 755 894 992 1043 1080 1926
DECFA 0300 742 543 1024
DECL1 05B6 1436 1242 1645
DECL3 05B8 1438 1651
DECL4 05B9 1439 1649
DECOB 05B2 1431 1240 1643
DECOM 05CD 1462 508
DECST 05BA 1442 457 715 737 852 863 943 1035 1350 1957
DEDBA 05DC 1479 677 786 981 1947
DEFF2 06DC 1785 1686 1701 1726
DEFFF 05E7 1492 485 489 493 504 556 659 663 868 930 994
DEFL1 059E 1406 1228 1600
DEFL3 05A0 1408 1606
DEFL4 05A1 1409 1604
DEFOR 059A 1401 396 1226 1598
DEHGH 069D 1715 1601 1616 1631 1646 1705 1769 1825
DELOW 069C 1714 1599 1614 1629 1644 1702 1704 1752 1800
DELSW 0017 167
DENOF 0763 1924 1029
DENOP 074A 1895 1939
DEPUT 05CE 1463 1351 1358 1364
DEQD 0361 845 801
DER10 0681 1679 1503 1738
DER14 068C 1685 1720 1731 1734
DER20 069A 1710 1703 1706
DER23 069E 1718 1708 1711
DER25 06A2 1722 1718
DER27 06A4 1724 1729
DER29 06AB 1730 1722 1727
DER36 06AE 1733 1687
DER60 0554 1322 1368 1581
DERIM 05E5 1490 1067
DERL1 05AE 1426 1238 1630
DERL3 05B0 1428 1636
DERL4 05B1 1429 1634
DERM8 0054 1378 1498
DERPG 05AA 1421 1236 1628
DESCL 0583 1362
DESTR 0585 1363 1360
DETSW 05AC 1423 541 544 564 749 796
DEVA 0065 1384 1611
DEVAM 0642 1609 522
DEVC 0068 1387 1641
DEVCB 0662 1639 529
DEVF 0066 1385 1596
DEVFN 0632 1594 525
DEVR 0067 1386 1626
DEVRG 0652 1624 528
DEVS2 05E6 1491 512 514 915 999 1666
DFHDR FFFC 132
DFLSW 0036 202
DFNSW 0018 168
DFTMP 05BD 1445 719 720
DISKZ 00F2 265
DKMVD 03EB 989 832 1883
DKSAD 0019 169
DLHDR FFF8 130
DMHDR FFF6 129
DMPLC 01DE 267
DSKZ 0096 460 1371
DTHDR FFFA 131
DUGET 0205 445 440
DUMMY 03DC 972 735 982
DUMNM 05D0 1466 722 777 973 1907
DUMPC 41DE 273
DUMPP 001A 170
DUPCO 7DB0 274 279 298
DUPCR 003C 222
DUPUT 0204 444 437
DXHDR FFFE 133
DZ000 00F2 53 265 1354 1365
EBCSW 0033 198
EFF 053C 1301 1182 1184
ENTER 7DB2 282
ERM1 0050 1374 1797
ERM15 000F 1389 1663
ERM2 0051 1375 1609
ERM3 0052 1376 1594
ERM4 0053 1377 550
ERM6 0055 1379 746
ERM7 0056 1380 629
ERM70 0046 1390 726
ERM87 0057 1381 1624
ERM88 0058 1382 1639
ERRNO 05A7 1417 1595 1610 1625 1640 1804
EXITC 01DE 268
FAD2 05D4 1471 815 1050 1056 1060 1523 1605 1620 1635 1650 1657 1658 1808
1817
FINSH 0299 642 740 1955
FLHDR FFF4 128
FNDID 04B5 1158 1147
FORSW 001C 171 524
FR04 049F 1141 1156
FR07 04A6 1145 1150
FR15 04B6 1159 1138 1154
FRWS 001D 172
FSAD 059D 1404 1602
FSAL 06DB 1784 1762 1843
FSKT 0383 877 869
FSLET 7782 1177 1140 1143 1151 1155 1784
FSS 0499 1136 1160 1187 1215 1324 1336 1753 1801 1826
FSST 0498 1134 1137 1145 1158 1250
FXSW 001E 173 531 1041
G7 01F4 431 422
G8 01F6 432 423
G9 01F8 433 424
GET 7DB3 283 429 445 1341 1683
GETB7 053D 1305 1201 1210 1279 1312
GETBI 7A0B 302
GETHO 7A0A 301
GETX 01E7 421 434 439 499 510 667 709 763 871 904 1052 1069 1142
1310 1865 1877
H0640 05CA 1459 578 590 820
HDBUF 0059 257
HDNSW 0034 199
HDRFL 0394 904 927
HF0F0 05C4 1452 607 620
HOLSW 001F 174
IBT 0049 246
IDDKZ 0590 1371 1335
INBUF 0599 1397 1394
INOUT 003F 235
IOADR 7A06 300 301 302 303 304 305 309
IOBLK 005A 258
IOREQ 0038 212
IOSW 0020 175
K0138 05C6 1454 1455 1905
K0148 05C7 1456 791
K1 05C0 1448 545 574 673 1046 1527 1653 1656 1735 1813
K10 05C3 1451 605
K16 05C5 1453 571 1897
K3 05C1 1449 1359
K312 05C6 1455 846
K317 05C8 1457 772
K320 05CC 1461 497 633 716 738 758 935 1036 1308 1953
K8 05C2 1450 652 672 810 1444 1509 1900 1950
KAND 06DE 1787 1834
KBREQ 003E 229
LEAVE 7DB4 284 1396
LETAR 005C 260
LETSW 0021 180
LINE 7DB5 285
LMV 05D6 1473 1049 1057 1530 1814
LOOP2 036E 859 861
LSKT 031D 772 766
LSTLF 0022 181
LTEMP 03C4 947 938 939
MASK 7DB6 286 418
MDUMP 7DB7 287
MODSW 0023 182
MOVE 0417 1033 823 1058 1531 1823
MOVE1 042B 1050 1042 1062
MUAAD 03A6 921 916
MUHDR 000A 139 1514 1516
MUPC 01DE 269
MVDSK 0736 1875 635 1886
N80 05C9 1458 1943
NAMSW 0024 183
NEGSW 0025 184 542
NEXT 005F 263
NOCYL 05BF 1447 568 576 580 642 827 996 1003 1007 1010 1911
NXSKT 0314 763 768
OLDCB 05DE 1481 990 1899 1924
P1442 0052 252
PACKB 7A0C 303
PAGE 7DB8 288
PCHBI 7A0D 304
PDMY 02F2 731 723
PDMY3 02F5 734
PEBUF 005D 261
PGMHL 0026 185
PH2 0039 213
PH3 003A 214
PH4 003B 215
PHDUP 0056 254
PHID 7DB9 289 416
PHIDM 7DBA 290 1791
PIHDR 0002 135
PRCD 0255 564 553
PRINT 7DBB 291 626 693
PRPAR 0054 253
PRPNT 7C50 299
PRSW 0027 186
PRTYB 0293 632 584
PRVFA 02D7 704 1028
PTHDR 0006 137
PTPON 0040 237
PTSW 0028 187
PUT 7DBC 292 444 1349 1737 1764 1777 1847
PUTB7 054A 1314 1206 1272 1291 1319
PUTX 01FC 436 442 736 808 864 924 944 1055 1108 1317 1880 1952
REST 7DBD 293 696
RETBL 05E0 1484 1655 1680
RPGSW 0035 200 527
RSAD 05AD 1424 1632
RSM1 0344 808 853 875
RSM2 034C 814 886
RSM3 0356 825 821
RTBFR 0206 1178 1181 1681 1682 1684
RTURN 7DBE 294
SADFL 03AE 929 908 913
SCIL 0591 1372 1327 1345 1361
SDBUF 005B 259
SETCT 0537 1296 1199 1270
SHDR 0749 1894 1920 1938
SHDR1 075C 1912 1934 1937 1940 1942
SIHDR 0004 136
SK8 05BB 1443 1933 1936
SKT 05DA 1477 752 816 826 831 877 878 1088 1095 1100
SKWDS 0029 188
SLETA 04BB 1164 1139
SLETC 04BC 1166 1152 1861
SNOFF 059F 1407 1582 1597 1612 1627 1642
SOLEN 036C 857 847
SSEL 0592 1392 551 630 727 747 1499 1583 1664 1798 1805
STCSW 002A 189
STHDR FFF2 127
STSW 002B 190
SUBSA 05D2 1469 575 1875 1882 1884
SVFPA 05D3 1470 577 1878 1885
SVMAG 05DD 1480 1515 1519 1821 1835
T3MSW 002F 194
TAD2 05D5 1472 817 1053 1061 1525 1603 1618 1633 1648 1809
TEMP1 002C 191 679 685 689
TEMP2 002D 192
THIS 005E 262
TMPST 05D7 1474 775 776 783 784 794 799 802 850
TOWS 002E 193
UASW 0030 195
UCHDR 0000 134
UDCOM 043C 1065 1022 1109 1572
UPDCM 03C5 954 655 970 1570
UPDLT 038E 893 645 834 945 1542
W200 04BD 1180 1183 1505
W202 04BE 1181 1189 1273 1274
W400 0523 1276 1292
W501 04D4 1203 1271
W520 04DE 1212 1205
W530 0501 1249 1227 1229 1232 1234 1237 1239 1241 1243 1252
W540 0507 1256 1213 1216 1251
W600 0511 1262 1281 1288
W660 052B 1283 1267
W720 0533 1290 1261 1285
WCTR3 0538 1297 1266 1269
WREM 0536 1295 1197 1203 1208 1212 1258 1264 1277 1280 1283 1287
WRTDC 7DB1 281 965
WSDC 21DE 272
WSSW 0031 196
XEQSW 0032 197