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