ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020 Source File: \jidexit.asm DEXIT- RESIDENT COMMA 2 AUG 67 2 | ABS J0900020 0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE J0900030 0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 J0900040 0007 5 | $COMN EQU /7 WORD COUNT OF COMMON J0900050 000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) J0900060 000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED J0900070 0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED J0900080 0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) J0900090 0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O J0900100 0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY J0900110 0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS J0900120 0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP J0900130 002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE J0900140 002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 J0900150 0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS J0900160 0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD J0900170 0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP J0900180 0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ J0900190 0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY J0900200 0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS J0900210 0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT J0900220 0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT J0900230 003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT J0900240 0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR J0900250 0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE J0900260 0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA J0900270 007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE J0900280 007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD J0900290 007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW J0900300 007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE J0900310 007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP J0900320 007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 J0900330 0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 J0900340 0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 J0900350 0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 J0900360 0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 J0900370 008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 J0900380 0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP J0900390 0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 J0900400 009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 J0900410 009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 J0900420 00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 J0900430 00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 J0900440 00B8 45 | $I205 EQU /B8 J0900450 00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 J0900460 00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 J0900470 00D3 48 | $I405 EQU /D3 J0900480 00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 J0900490 00D5 50 | $I410 EQU /D5 J0900500 00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY J0900510 01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL J0900520 00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT J0900530 01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ J0900540 7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE J0900560 57 | *************************************************** J0900570 58 | * * J0900580 59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J0900590 60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * J0900600 61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * J0900610 62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J0900620 63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * J0900630 64 | * FROM .C. * J0900640 65 | * * J0900650 66 | *************************************************** J0900660 67 | * * J0900670 68 | * CATCO DCOM IMAGE * J0900680 69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J0900690 70 | * * J0900700 71 | *************************************************** J0900710 FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM J0900720 FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM J0900730 FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO = NO FILES J0900740 FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE J0900750 FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE J0900760 FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI J0900770 FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS J0900780 FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED J0900790 FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS J0900800 FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER J0900810 FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS J0900820 FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG J0900830 FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 J0900840 85 | * J0900850 86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * J0900860 FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE J0900870 FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE J0900880 89 | * * J0900890 FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE J0900900 FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA J0900910 FF96 92 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE J0900920 FF97 93 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA J0900930 FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL J0900940 FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR J0900950 FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR J0900960 FF9B 97 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR J0900970 FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR2-8 J0900980 FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR 2-8 J0900990 FF9E 100 | #GCNT EQU 30-/80 NO. G2250 RECORDS 2-8 J0901000 FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALLS-LOCAL INDR 2-8 J0901010 FFA0 102 | #X3SW EQU 32-/80 SPECIAL ILS SWITCH 2-8 J0901020 FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RCDS 2-8 J0901030 FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 J0901040 FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 J0901050 FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) J0901060 FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 J0901070 FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 J0901080 FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 J0901090 FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 J0901100 FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 J0901110 FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 J0901120 FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 J0901130 FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 J0901140 FFDA 115 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 J0901150 0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM J0901160 0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING J0901170 0FB0 118 | @SBFR EQU /FB0 2-8 J0901180 CONCATENATED COMMON AREA (CATCO) 120 | *************************************************** J0901200 121 | * * J0901210 122 | * CATCO IOAR HDRS FOR DUP PHASES J0901220 123 | * * J0901230 124 | *************************************************** J0901240 FFF0 125 | ORG -/10 J0901250 FFF0 126 | DCHDR BSS 2 DUP CONTROL PH02 J0901260 FFF2 127 | STHDR BSS 2 STORE PH03 J0901270 FFF4 128 | FLHDR BSS 2 FILEQ PH04 J0901280 FFF6 129 | DMHDR BSS 2 DUMP PH05 J0901290 FFF8 130 | DLHDR BSS 2 DUMPLET PH06 J0901300 FFFA 131 | DTHDR BSS 2 DELETE PH07 J0901310 FFFC 132 | DFHDR BSS 2 DEFINE PH08 J0901320 FFFE 133 | DXHDR BSS 2 DUP EXIT PH09 J0901330 0000 134 | UCHDR BSS 2 DUP UPCOR PH13 J0901340 0002 135 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 J0901350 0004 136 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 J0901360 0006 137 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 J0901370 0008 138 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER J0901380 000A 139 | MUHDR BSS 2 MACRO UPDATE PH206 2-8 J0901390 000C 140 | D2HDR BSS 2 DUP CONTROL 2 PH205 2-8 J0901400 DEXIT- CATCO DUP SWITCHES 142 | *************************************************** J0901420 143 | * J0901430 144 | * CATCO DUP SWITCHES * J0901440 145 | * WORDS USED FOR COMMUNICATION OF DATA J0901450 146 | * BETWEEN DUP ROUTINES. J0901460 147 | * * J0901470 148 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * J0901480 149 | * J0901490 150 | *************************************************** J0901500 000E 151 | CL1 EQU * J0901510 000E 152 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM J0901520 000F 153 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S J0901530 0010 154 | BLKSW BSS 1 NON ZERO IF BYPASSING REC J0901540 0011 155 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 J0901550 0012 156 | CISW BSS 1 NON ZERO IF STORE CI J0901560 0013 157 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED J0901570 0014 158 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD J0901580 159 | * * J0901590 160 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * J0901600 161 | * DUP CONTROL RECORD. * J0901610 162 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J0901620 163 | * USED FOR COUNT OF RECORDS TO READ AFTER A * J0901630 164 | * STORE CI DUP CONTROL RECORD. * J0901640 0015 165 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD J0901650 0016 166 | DBADR BSS 1 DB ADDR OF REFERENCED PROG J0901660 0017 167 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 J0901670 0018 168 | DFNSW BSS 1 NON ZERO IF DEFINE FXA J0901680 0019 169 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE J0901690 001A 170 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP J0901700 001C 171 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR J0901710 001D 172 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS J0901720 001E 173 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD J0901730 001F 174 | HOLSW BSS 1 NON ZERO IF NO CONV REQD J0901740 0020 175 | IOSW BSS 1 NON ZERO IF IN/OUT REQD J0901750 176 | * * J0901760 177 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J0901770 178 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J0901780 179 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * J0901790 0021 180 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* J0901800 0022 181 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD J0901810 0023 182 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC J0901820 0024 183 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F J0901830 0025 184 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA J0901840 0026 185 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR J0901850 0027 186 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT J0901860 0028 187 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD J0901870 0029 188 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT J0901880 002A 189 | STCSW BSS 1 NON ZERO IF STORE DATA CI J0901890 002B 190 | STSW BSS 1 NON ZERO IF STORE TYPE J0901900 002C 191 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT J0901910 002D 192 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT J0901920 002E 193 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS J0901930 002F 194 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL J0901940 0030 195 | UASW BSS 1 NON ZERO IF USER AREA REQD J0901950 0031 196 | WSSW BSS 1 NON ZERO IF WORK STG REQD J0901960 0032 197 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET J0901970 0033 198 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 J0901980 0034 199 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-8 J0901990 0035 200 | RPGSW BSS 1 POSITIVE=DEFINE VOID RPG2-9 J0902000 201 | * *NEG=DEFINE VOID COBOL 2-9 J0902001 0036 202 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 J0902010 0037 203 | BSS 1 RESERVED FOR ADDITION 2-8 J0902020 0037 204 | CL2 EQU *-1 J0902030 DEXIT- CATCO DUP SWITCHES 206 | *************************************************** J0902050 207 | * * J0902060 208 | * CATCO DUP SWITCHES * J0902070 209 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * J0902080 210 | * * J0902090 211 | *************************************************** J0902100 0038 212 | IOREQ BSS 1 MON-ZERO,AUX I/O SET REQ J0902110 0039 213 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE J0902120 003A 214 | PH3 BSS 1 NON-ZERO IF STORE IN CORE J0902130 003B 215 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE J0902140 216 | ************************************************2-8 J0902150 217 | * 2-8 J0902160 218 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 J0902170 219 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J0902180 220 | * 2-8 J0902190 221 | ************************************************2-8 J0902200 003C 222 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 J0902210 223 | *************************************************** J0902220 224 | * * J0902230 225 | * CATCO DUP SWITCHES SET BY CCAT SUBR * J0902240 226 | * * J0902250 227 | *************************************************** J0902260 003D 228 | ADDR2 BSS 1 KB INTERRUPT ADDRESS J0902270 003E 229 | KBREQ BSS 1 CONTENTS OF LOC 13 J0902280 230 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE J0902290 231 | * PRINCIPAL INPUT DEVICE J0902300 232 | * - IS PAPER TAPE J0902310 233 | * 0 IS CARD J0902320 234 | * + IS KEYBOARD J0902330 003F 235 | INOUT BSS 1 PRINCIPAL INPUT SWITCH J0902340 236 | * J0902350 0040 237 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS J0902360 238 | *************************************************** J0902370 239 | * * J0902380 240 | * LEVEL 4 INTERRUPT BRANCH TABLE * J0902390 241 | * ADDRESSES. INITIALIZED BY CCAT, * J0902400 242 | * AND CARD/PAPER TAPE INTERFACES. * J0902410 243 | * * J0902420 244 | *************************************************** J0902430 0049 245 | ORG /0049 J0902440 0049 246 | IBT BSS 9 9 WD INTRPT BRANCH TABLE J0902450 247 | *************************************************** J0902460 248 | * * J0902470 249 | * CATCO I/O ADDRESSES REQUIRED BY DUP * J0902480 250 | * * J0902490 251 | *************************************************** J0902500 0052 252 | P1442 BSS E 2 SYS 1442 IOAR HEADER J0902510 0054 253 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT J0902520 0056 254 | PHDUP BSS 1 LAST DUP PHASE IN CORE J0902530 0057 255 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS J0902540 0058 256 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR J0902550 0059 257 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR J0902560 005A 258 | IOBLK BSS 1 ADDR OF DUP I/O PHASE J0902570 005B 259 | SDBUF BSS 1 STORE/DUMP BUFFER J0902580 005C 260 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER J0902590 005D 261 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC J0902600 005E 262 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 J0902610 005F 263 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 J0902620 00F2 265 | DISKZ EQU DZ000 DISKZ ENTRY POINT J0902640 01DE 266 | B EQU $ZEND-2 J0902650 01DE 267 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT J0902660 01DE 268 | EXITC EQU B IOAR CORE ADDR FOR DEXIT J0902670 01DE 269 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 J0902680 11E0 270 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL J0902690 11DE 271 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL J0902700 21DE 272 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE J0902710 41DE 273 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP J0902720 7DB0 274 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO J0902730 7F1E 275 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER J0902740 276 | * * J0902750 277 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J0902760 278 | * * J0902770 7DB0 279 | ORG DUPCO J0902780 7DB0 280 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC J0902790 7DB1 281 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE J0902800 7DB2 282 | ENTER BSS 1 SAVE XR-S AND CONDITIONS J0902810 7DB3 283 | GET BSS 1 READ FROM DISK USING DISKZ J0902820 7DB4 284 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP J0902830 7DB5 285 | LINE BSS 1 SPACES PRINTER 1 LINE J0902840 7DB6 286 | MASK BSS 1 INHIBITS KB INT REQUEST J0902850 7DB7 287 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S J0902860 7DB8 288 | PAGE BSS 1 SKIPS TO NEXT PAGE J0902870 7DB9 289 | PHID BSS 1 RECORDS PHASE ID J0902880 7DBA 290 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER J0902890 7DBB 291 | PRINT BSS 1 USE SYS PR SUBR TO PRINT J0902900 7DBC 292 | PUT BSS 1 WRITES TO DISK USING DISKZ J0902910 7DBD 293 | REST BSS 1 RESTORE CATCO,GO TO DCTL J0902920 7DBE 294 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS J0902930 295 | * * J0902940 296 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * J0902950 297 | * * J0902960 7D91 298 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER J0902970 7C50 299 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC. PTR J0902980 7A06 300 | IOADR EQU BUF6-/38B START OF I/O INTERFACE J0902990 7A0A 301 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE J0903000 7A0B 302 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY J0903010 7A0C 303 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY J0903020 7A0D 304 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY J0903030 79B5 305 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER J0903040 7963 306 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER J0903050 7925 307 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER J0903060 78D3 308 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER J0903070 7782 309 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR J0903080 0640 310 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR J0903090 EXIT-MAINLINE 312 | *************************************************** J0903110 313 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * J0903120 314 | * * J0903130 315 | *FUNCTION/OPERATION- * J0903140 316 | * * EX000 IS ONE OF THE OVERLAYS IN THE DISK * J0903150 317 | * UTILITY PROGRAM (DUP). THIS MODULE PERFORMS * J0903160 318 | * THE FUNCTIONS NECESSARY TO GIVE CONTROL TO * J0903170 319 | * SOME OTHER PART OF THE SYSTEM. THERE ARE * J0903180 320 | * 5 WAYS TO EXIT FROM DUP. IN ADDITION TO THE * J0903190 321 | * EXITING FUNCTIONS PERFORMED BY EX000, IT ALSO* J0903200 322 | * PRINTS MOST OF THE ERROR MESSAGES FOR DUP. * J0903210 323 | * ON ENTRY TO EX000 INDEX REGISTER 2 CONTAINS * J0903220 324 | * THE ADDRESS OF A CODE THAT CONTROLS THE * J0903230 325 | * FUNCTION TO BE PERFORMED. THE NUMBER 0 MEANS * J0903240 326 | * A NORMAL EXIT. THE NUMBER -2 MEANS THAT * J0903250 327 | * THE INTERRUPT REQUEST KEY WAS PRESSED WHEN * J0903260 328 | * DUP WAS IN MASK MODE. THE NUMBER -3 MEANS * J0903270 329 | * THAT STORE WANTS CONTROL PASSED TO THE CORE * J0903280 330 | * LOAD BUILDER. THE NUMBER -4 MEANS CONTROL * J0903290 331 | * SHOULD BE PASSED TO SUP TO EXECUTE ADRWS. * J0903300 332 | * ANY NUMBER THAT IS POSITIVE IS THE NUMBER * J0903310 333 | * OF AN ERROR MESSAGE THAT IS TO BE PRINTED. * J0903320 334 | * * J0903330 335 | * A NORMAL EXIT IS WHEN DUP ENCOUNTERS A * J0903340 336 | * DOUBLE SLASH RECORD (MONITOR CONTROL RECORD).* J0903350 337 | * THE DISK COMMUNICATION AREA IS WRITTEN ONTO * J0903360 338 | * THE MASTER CARTRIDGE. * J0903370 339 | * THE TRAPPED CONTROL RECORD IS MOVED TO THE * J0903380 340 | * SUPERVISOR BUFFER. A CHECK IS MADE TO SEE IF * J0903390 341 | * THE MODIFICATION PROGRAM IS USING DUP AND IF * J0903400 342 | * NOT RETURNS TO SUP. IF THE MODIFICATION * J0903410 343 | * PROGRAM WAS USING DUP THEN CONTROL IS RETURED* J0903420 344 | * TO IT. * J0903430 345 | * * J0903440 346 | * THE INTERRUPT REQUEST FUNCTION WRITES DCOM * J0903450 347 | * (DISK COMMUNICATION AREA) ON THE MASTER CART * J0903460 348 | * AND EXITS TO THE SYSTEM DUMP PROGRAM WITH * J0903470 349 | * A CODE OF -2. SUP WILL THEN READ RECORDS * J0903480 350 | * FROM THE INPUT STREAM UNTIL THE NEXT JOB * J0903490 351 | * CONTROL RECORD IS DETECTED. * J0903500 352 | * * J0903510 353 | * THE STORE CORE IMAGE FUNCTION WRITES DCOM * J0903520 354 | * ON THE MASTER DRIVE AFTER WHICH IT SETS UP * J0903530 355 | * THE INDICATORS REQUIRED BY THE CORE LOAD * J0903540 356 | * BUILDER. SOME OF CORE IS SAVED ON THE DISK * J0903550 357 | * TO ALLOW DUP TO CONTINUE WHEN IT AGAIN GETS * J0903560 358 | * CONTROL. EX000 MOVES A SMALL PROGRAM TO THE * J0903570 359 | * 1132 SCAN AREA THAT READS IN PHASE 0/1 OF * J0903580 360 | * THE CORE LOAD BUILDER. * J0903590 361 | * * J0903600 362 | * THE LINK TO ADRWS FUNCTION WRITES DCOM ON THE* J0903610 363 | * MASTER DRIVE AND SAVES SOME OF CORE BEFORE * J0903620 364 | * DOING A CALL LINK FOR ADRWS. * J0903630 365 | * * J0903640 366 | * THE ERROR MESSAGE FUNCTION WRITES DCOM ON THE* J0903650 367 | * MASTER DRIVE AND SEARCHES THE ERROR MESSAGE * J0903660 368 | * TABLE. THE MESSAGE IS PRINTED AND CONTROL * J0903670 369 | * IS PASSED TO REST IN DUPCO. * J0903680 370 | * * J0903690 371 | *ENTRY POINTS- * J0903700 372 | * *EX000-THIS IS THE ONLY ENTRY POINT, AND IT * J0903710 373 | * PERFORMS THE ABOVE FUNCTIONS. * J0903720 374 | * * J0903730 375 | *INPUT- * J0903740 376 | * *N/A * J0903750 377 | * * J0903760 378 | *OUTPUT- * J0903770 379 | * *DCOM IS WRITTEN ON THE MASTER DRIVE, AND * J0903780 380 | * ERROR MESSAGES ARE PRINTED. * J0903790 381 | * * J0903800 382 | *EXTERNAL REFERENCES- * J0903810 383 | * *$CTSW-THIS WORD IS SET TO -1 TO INDICATE THAT* J0903820 384 | * A VALID DOUBLE SLASH TRAP HAS OCCURED. * J0903830 385 | * * J0903840 386 | * *$EXIT-THIS IS THE EXITING RETURN TO THE * J0903850 387 | * SUPERVISOR. * J0903860 388 | * * J0903870 389 | * *$DUMP-ENTRY POINT TO THE SKELETON SUPERVISOR * J0903880 390 | * TO CAUSE THE CURRENT JOB TO BE TERMINATED. * J0903890 391 | * * J0903900 392 | * *UCHDR-THIS TWO WORD AREA CONTAINS THE IOAR * J0903910 393 | * NEEDED TO SAVE UP CORE FOR DUP. * J0903920 394 | * *IOADR-THIS IS WHERE THE CONTENTS OF UCHDR * J0903930 395 | * ARE PLACED TO SAVE UPCORE. * J0903940 396 | * * J0903950 397 | * *$WSDR-THIS WORD CONTAINS THE LOGICAL NUMBER * J0903960 398 | * OF SYSTEM WORKING STORAGE. * J0903970 399 | * * J0903980 400 | * *$FPAD-THIS GROUP OF WORDS CONTAIN THE ADDRESS* J0903990 401 | * OF WORKING STORAGE ON THE DRIVES. * J0904000 402 | * * J0904010 403 | * *$DADR-THIS WORD CONTAINS THE DB ADDRESS OF * J0904020 404 | * THE PROGRAM FOR THE CORE LOAD BUILDER. * J0904030 405 | * * J0904040 406 | * *$DCDE-THIS WORD CONTAINS THE DRIVE CODE THAT * J0904050 407 | * THE PROGRAM IS ON FOR THE CORE LOAD BUILDER. * J0904060 408 | * * J0904070 409 | * *DZ000-THIS IS THE ENTRY POINT TO THE DISK * J0904080 410 | * ROUTINE. * J0904090 411 | * * J0904100 412 | * *$DBSY-THIS IS THE DISK BUSY INDICATOR * J0904110 413 | * * J0904120 414 | * *#CBSW-THIS WORD INDICATES THAT THE CORE * J0904130 415 | * LOAD BUILDER SHOUL RETURN TO DUP. * J0904140 416 | * * J0904150 417 | * *$LINK-THIS IS THE CALL LINK ENTRY POINT TO * J0904160 418 | * THE SUPERVISOR. * J0904170 419 | * * J0904180 420 | * *$IREQ-THIS WORD CONTAINS THE ADDRESS TO WHERE* J0904190 421 | * THE INTERRUPT REQUEST KEY GOES. * J0904200 422 | * * J0904210 423 | * *#MDF2-THIS WORD IS AN INDICATOR TO TELL IF * J0904220 424 | * THE MODIFICATION PROGRAM WANTS CONTROL AFTER * J0904230 425 | * DUP. * J0904240 426 | * * J0904250 427 | *EXITS- * J0904260 428 | * *NORMAL-THERE ARE 6 EXITS FROM EX000 EXPLAINED* J0904270 429 | * UNDER FUNCTION. * J0904280 430 | * * J0904290 431 | * *ERROR-N/A * J0904300 432 | * * J0904310 433 | *TABLES/WORK AREAS- * J0904320 434 | * *EX110-THIS IS THE SLET ENTRY FOR THE CORE * J0904330 435 | * LOAD BUILDER. * J0904340 436 | * * J0904350 437 | * *EX120-THIS IS THE SLET ENTRY FOR THE MODIF * J0904360 438 | * PROGRAM. * J0904370 439 | * * J0904380 440 | * *EX800-THIS IS THE ERROR MESSAGE TABLE. * J0904390 441 | * * J0904400 442 | *ATTRIBUTES- * J0904410 443 | * SERIALLY REUSEABLE * J0904420 444 | * * J0904430 445 | *NOTES-N/A * J0904440 446 | *************************************************** J0904450 EXIT-MAINLINE 448 | * J0904470 449 | * SYSTEM LOADER INFORMATION USED TO LOAD THE J0904480 450 | * EXIT PHASE OF DUP J0904490 451 | * J0904500 01DE 452 | ORG EXITC J0904510 01DE 0000 453 | DC *-* FOR SYSTEM LOADER J0904520 01DF FFF7 454 | DC -9 PHASE ID NUMBER FOR SLET J0904530 01E0 0076 455 | DC EX110-*+1 ADDRESS OF SET TABLE J0904540 01E1 0002 456 | DC 2 NO OF SLET ENTRIES J0904550 01E0 457 | ORG *-2 J0904560 458 | * J0904570 459 | * INDICATE THE PHASE OF THE SYSTEM THAT HAS J0904580 460 | * CONTROL OF THE MACHINE J0904590 461 | * J0904600 01E0 4480 7DB9 462 | EX000 BSI I PHID PLACE PHASE ID NUMBER J0904610 01E2 0009 463 | DC /0009 PHASE ID OF DUP EXIT J0904620 464 | * J0904630 465 | * DETECT THE TYPE OF FUNCTION TO BE PREFORMED J0904640 466 | * J0904650 01E3 7200 467 | MDX 2 0 TEST FUNCTION FOR 0 J0904660 01E4 7001 468 | MDX *+1 BRANCH IF NOT J0904670 01E5 700A 469 | MDX EX020 BRANCH IF ZERO J0904680 01E6 7204 470 | MDX 2 4 TEST FOR NEGATIVE FUNCTION J0904690 01E7 7078 471 | MDX EX130 BRANCH IF POSITIVE J0904700 472 | * J0904710 01E8 72FC 473 | MDX 2 -4 RESTORE VALUE OF ENTRY CODE J0904720 01E9 1000 474 | NOP MIGHT SKIP J0904730 01EA 4E80 01F0 475 | BSC I2 EX010 BRANCH TO FUNCTION J0904740 01EC 024B 476 | DC EX100 ADDRESS OF -4 FUNCTION J0904750 01ED 021B 477 | DC EX070 ADDRESS OF -3 FUNCTION J0904760 01EE 0216 478 | DC EX050 ADDRESS OF -2 FUNCTION J0904770 01EF 01F4 479 | DC EX022 ADDR OF -1 FUNCTION 2-8 J0904780 01F0 480 | EX010 EQU * J0904790 EXIT-EX020 (NORMAL EXIT) 482 | * J0904850 483 | * MOVE CARD TO BE INTERPRETED BY THE SUPERVISOR J0904860 484 | * J0904870 01F0 63FF 485 | EX020 LDX 3 -1 2-10 J0904880 01F1 6F00 000F 486 | STX L3 $CTSW SET CARD TRAP SWITCH J0904890 01F3 7006 487 | MDX EX024 BRANCH TO MOVE RECORD 2-8 J0904900 488 | * 2-8 J0904910 489 | * EXIT-EX022 // RCD DETECTED BY FILEQ 2-8 J0904920 490 | * 2-8 J0904930 491 | * 2-10 J0904940 01F4 6C00 000F 492 | EX022 STX L $CTSW SET SW FOR SUPERVISOR 2-10 J0904950 01F6 6C00 0035 493 | STX L $NXEQ SET NON-XEQ SW 2-8 J0904960 01F8 6C00 0034 494 | STX L $NDUP SET NON-DUP SW 2-8 J0904970 495 | * 2-8 J0904980 01FA C580 003D 496 | EX024 LD I1 ADDR2 LOAD INT INDICATOR 2-11 J0904985 01FC D014 497 | STO EX905 STORE TEMPORARILY 2-11 J0904990 01FD 6780 7FF7 498 | LDX I3 CRBUF+C POINT AT DUP BUFFER J0904995 01FF 6600 0FAF 499 | LDX L2 @SBFR-1 POINT AT SUP BUFFER 2-8 J0905000 0201 6151 500 | LDX 1 81 WORD COUNT TO MOVE J0905010 0202 C300 501 | EX030 LD 3 0 J0905020 0203 D200 502 | STO 2 0 MOVE 1 WORD OF CARD J0905030 0204 7301 503 | MDX 3 1 INCREMENT DUP POINTER J0905040 0205 1000 504 | NOP J0905050 0206 7201 505 | MDX 2 1 INCREMENT SUP POINTER J0905060 0207 1000 506 | NOP J0905070 0208 71FF 507 | MDX 1 -1 DECREMENT WORD COUNT J0905080 0209 70F8 508 | MDX EX030 BRANCH IF NOT ZERO J0905090 020A 6500 7FA0 509 | LDX L1 C XR1 IS CATCO MIDPOINT 2-10 J0905094 020C 4400 02B9 510 | BSI L EX180 WRITE DCOM ON MASTER 2-10 J0905095 511 | * J0905100 512 | * CHECK TO SEE IF MODIF CALL TO DUP J0905110 513 | * J0905120 020E 4400 02D7 514 | BSI L EX190 LINK TO CHECK MODIF CALL J0905130 0210 6038 515 | LDX 0 $EXIT RETURN TO SUPERVISOR J0905140 516 | * J0905150 517 | * CONSTANTS AND WORKING AREA J0905160 518 | * J0905170 0211 0000 519 | EX905 DC *-* TEMP SAVE WORD 2-11 J0905175 0212 0002 520 | EX930 DC 2 CONSTANT J0905200 0213 0100 521 | EX940 DC /100 INCR FOR #MDF1 ERROR COUNT J0905210 0214 0021 522 | EX950 DC 33 COMPARE FOR EXIT CODE = 33 J0905220 0215 003B 523 | EX960 DC 59 (92-33) FOR EXIT CODE = 92 J0905230 EXIT-EX050 (KEYBOARD REQUEST) 525 | * J0905250 526 | * WRITE DCOM ON MASTER CARTRIDGE J0905260 527 | * J0905270 0216 4400 02B9 528 | EX050 BSI L EX180 J0905280 529 | * J0905290 530 | * TERMINATE CURRENT JOB J0905300 531 | * J0905310 0218 4400 003F 532 | EX060 BSI L $DUMP ENTRY OF SYSTEM DUMP PROG J0905320 021A FFFE 533 | DC -2 CODE TO TERMINATE JOB J0905330 EXIT-EX070 (STORE CORE IMAGE) 535 | * J0905350 536 | * WRITE DCOM ON MASTER CARTRIDGE J0905360 537 | * J0905370 021B 4400 02B9 538 | EX070 BSI L EX180 J0905380 539 | * J0905390 540 | * WRITE DUP UPCOR ON THE MASTER CARTRIDGE J0905400 541 | * J0905410 021D C900 542 | LDD 1 UCHDR J0905420 021E 6700 7782 543 | LDX L3 BUF5 XR3 POINTS TO IOAR ADDR J0905430 0220 DB00 544 | STD 3 0 IOAR HEADER FOR UPCOR J0905440 0221 4480 7DBC 545 | BSI I PUT LINK TO SAVE UP-CORE J0905450 546 | * J0905460 547 | * GIVE CORE LOAD BUILDER DB ADDRESS J0905470 548 | * J0905480 0223 6680 7F33 549 | LDX I2 #FRDR+C J0905490 0225 C600 0095 550 | LD L2 $FPAD J0905500 0227 1004 551 | SLA 4 J0905510 0228 D400 0010 552 | STO L $DADR DB ADR OF REQD WS J0905520 553 | * J0905530 554 | * GIVE CORE LOAD BUILDER WORKING STORAGE DRIVE J0905540 555 | * CODE J0905550 556 | * J0905560 022A C193 557 | LD 1 #FRDR J0905570 022B 100C 558 | SLA 12 J0905580 022C D400 0077 559 | STO L $DCDE DRIVE NO. OF REQUIRED WS J0905590 560 | * J0905600 561 | * SET UP TO READ IN CORE LOAD BUILDER J0905610 562 | * J0905620 022E C829 563 | LDD EX110+2 J0905630 022F DC80 0257 564 | STD I EX110+1 PLACE IOAR HEADER J0905640 0231 C025 565 | LD EX110+1 J0905650 0232 D010 566 | STO EX080+1 SET-UP DISKZ PARAMETERS J0905660 0233 80DE 567 | A EX930 J0905670 0234 D015 568 | STO EX090+6 CALCULATE ENTRY ADDRESS J0905680 569 | * J0905690 570 | * MOVE READING PROGRAM TO LOW CORE J0905700 571 | * J0905710 0235 6220 572 | LDX 2 32 J0905720 0236 C80D 573 | LDD EX090 J0905730 0237 DA00 574 | STD 2 0 MOVE BSI INSTRUCTION J0905740 0238 C80D 575 | LDD EX090+2 J0905750 0239 DA02 576 | STD 2 2 MOVE MDX INSTRUCTION J0905760 023A C80D 577 | LDD EX090+4 J0905770 023B DA04 578 | STD 2 4 MOVE MDX INSTRUCTION J0905780 023C C80D 579 | LDD EX090+6 J0905790 023D DA06 580 | STD 2 6 MOVE BSC INSTRUCTION J0905800 581 | * J0905810 582 | * GO TO LOW CORE TO READ IN CORE LOAD BUILDER J0905820 583 | * J0905830 023E C803 584 | LDD EX080 LOAD ACC AND EXTENSION J0905840 023F 4C00 0020 585 | BSC L 32 BRANCH TO READ IN CLB J0905850 586 | * J0905860 587 | * PROGRAM TO READ IN CLB J0905870 588 | * J0905880 0242 589 | BSS E 0 J0905890 0242 7000 590 | EX080 DC /7000 DISK READ FUNCTION J0905900 0243 0000 591 | DC *-* ADDRESS OF WORD COUNT J0905910 0244 4400 00F2 592 | EX090 BSI L DZ000 LINK TO READ IN CLB J0905920 0246 7400 00EE 593 | MDX L $DBSY,0 TEST BUSY SWITCH J0905930 0248 70FD 594 | MDX *-3 BRANCH IF STILL BUSY J0905940 0249 4C00 0000 595 | BSC L *-* BRANCH TO ENTER CLB J0905950 EXIT-EX100 (LINK TO ADRWS) 024B 1010 597 | EX100 SLA 16 J0905970 024C D18C 598 | STO 1 #MPSW CLEAR CLB MAP SWITCH J0905980 024D 406B 599 | BSI EX180 WRITE DCOM TO LOGICAL ZERO J0905990 600 | * J0906000 601 | * INDICATE DISKN REQUIRED J0906010 602 | * J0906020 024E 6101 603 | LDX 1 1 DISKN CODE J0906030 024F 6D00 0012 604 | STX L1 $DREQ SET DK REQ INDICATOR J0906040 605 | * J0906050 606 | * LINK TO EXECUTE ADRWS ROUTINE J0906060 607 | * J0906070 0251 4400 0039 608 | BSI L $LINK LINK TO SUPERVISOR J0906080 0253 0111 609 | DC /0111 ADRWS J0906090 0254 99A2 610 | DC /99A2 J0906100 EXIT-SLET ENTRIES 612 | * J0906120 613 | * SLET ENTRY FOR CORE LOAD BUILDER J0906130 614 | * J0906140 0256 615 | BSS E 0 MAKE ADDRESS EVEN J0906150 0256 0078 616 | EX110 DC 120 ID NO. OF CORE LOAD BUILDER J0906160 0257 0000 617 | DC *-* CORE ADDRESS J0906170 0258 0000 618 | DC *-* WORD COUNT J0906180 0259 0000 619 | DC *-* SECTOR ADDRESS J0906190 620 | * J0906200 621 | * SLET ENTRY FOR MODIF J0906210 622 | * J0906220 025A 0012 623 | EX120 DC 18 ID NO. OF MODIF J0906230 025B 0000 624 | DC *-* CORE ADDRESS J0906240 025C 0000 625 | DC *-* WORD COUNT J0906250 025D 0000 626 | DC *-* SECTOR ADDRESS J0906260 627 | * 212 J0906262 628 | *CONSTANTS 212 J0906264 629 | * 212 J0906266 025E 00C0 631 | EX900 DC /00C0 EBCDIC FORCING VALUE 212 J0906268 025F 0000 632 | EX990 DC *-* TEMPORARY SAVE AREA 212 J0906269 EXIT-EX130 (PRINT THE ERROR MESSAGE) 0260 1010 634 | EX130 SLA 16 J0906280 0261 D18A 635 | STO 1 #CBSW CLEAR CLB SW ON ERROR MSG J0906290 636 | * * J0906300 0262 C18D 637 | LD 1 #MDF1 J0906310 0263 80AF 638 | A EX940 J0906320 0264 D18D 639 | STO 1 #MDF1 INCR #MDF1 ERROR COUNT J0906330 640 | * J0906340 641 | * LINK TO WRITE DCOM ON MASTER CARTRIDGE J0906350 642 | * J0906360 0265 4053 643 | BSI EX180 J0906370 644 | * J0906380 645 | * LOOK FOR MESSAGE IN TABLE J0906390 646 | * J0906400 0266 72FC 647 | MDX 2 -4 RESTORE MESSAGE NUMBER J0906410 0267 6A0E 648 | STX 2 EX150 STORE MESSAGE NUMBER J0906420 0268 6700 0305 649 | LDX L3 EX800 REGISTER 3 POINTS AT TABLE J0906430 026A C300 650 | EX140 LD 3 0 LOAD MESSAGE J0906440 026B 4C18 0277 651 | BSC L EX160,+- BRANCH ZERO (END OF TABLE) J0906450 026D 9008 652 | S EX150 CHECK MESSAGE NUMBER J0906460 026E 4C18 0277 653 | BSC L EX160,+- BRANCH IF SPACE MESSAGE NO J0906470 0270 C301 654 | LD 3 1 J0906480 0271 D001 655 | STO *+1 STORE MESSAGE LENTH J0906490 0272 7700 0000 656 | MDX L3 *-* INCREMENT TO NEXT MESSAGE J0906500 0274 7302 657 | MDX 3 2 J0906510 0275 70F4 658 | MDX EX140 BRANCH J0906520 0276 0000 659 | EX150 DC *-* MESSAGE NUMBER J0906530 660 | * J0906540 661 | * PLACE THE MESSAGE NUMBER IN THE ZERO MESSAGE J0906550 662 | * J0906560 0277 C300 663 | EX160 LD 3 0 LOAD ERROR NUMBER2 212 J0906561 0278 9400 0336 664 | S L XXX03 ERROR = D05? 212 J0906562 027A 4C20 029C 665 | BSC L EX165,Z NO, GO PRINT IT 212 J0906563 027C C984 666 | LDD 1 #NAME PICK UP NAME CODE 212 J0906564 027D 1002 667 | SLA 2 ISOLATE 212 J0906565 027E 180A 668 | SRA 10 *FIRST CHARACTER 212 J0906566 027F E8DE 669 | OR EX900 CHANGE TO EBCDIC 212 J0906567 0280 D400 0343 670 | STO L XXX04 SAVE IN MESSAGE BUFFER 212 J0906568 0282 C984 671 | LDD 1 #NAME RELOAD NAME CODE R 212 J0906569 0283 1008 672 | SLA 8 ISOLATE 2ND 212 J0906570 0284 180A 673 | SRA 10 *CHARACTER 212 J0906571 0285 E8D8 674 | OR EX900 FORCE EBCDIC 212 J0906572 0286 1008 675 | SLA 8 *AND STORE 212 J0906573 0287 D0D7 676 | STO EX990 *TEMPORARILY 212 J0906574 0288 C984 677 | LDD 1 #NAME RELOAD NAME CODE 212 J0906575 0289 108E 678 | SLT 14 ISOLATE 3RD 212 J0906576 028A 180A 679 | SRA 10 *CHARACTER 212 J0906577 028B E8D2 680 | OR EX900 FORCE EBCDIC 212 J0906578 028C E8D2 681 | OR EX990 *AND 2ND EBCDIC 212 J0906579 028D D400 0344 682 | STO L XXX04+1 SAVE IN MESSAGE BUFFER 212 J0906580 028F C984 683 | LDD 1 #NAME RELOAD NAME CODE 212 J0906581 0290 1094 684 | SLT 20 ISOLATE 4TH 212 J0906582 0291 180A 685 | SRA 10 *CHARACTER 212 J0906583 0292 E8CB 686 | OR EX900 FORCE EBCDIC 212 J0906584 0293 1008 687 | SLA 8 *AND SAVE 212 J0906585 0294 D0CA 688 | STO EX990 * TEMPORARILY 212 J0906586 0295 C984 689 | LDD 1 #NAME RELOAD NAME CODE 212 J0906587 0296 109A 690 | SLT 26 ISOLATE 5TH 212 J0906588 0297 180A 691 | SRA 10 *CHARACTER 212 J0906589 0298 E8C5 692 | OR EX900 FORCE EBCDIC VALUE 212 J0906590 0299 E8C5 693 | OR EX990 COMBINE WITH 4TH CHAR 212 J0906591 029A D400 0345 694 | STO L XXX04+2 SAVE IN MESSAGE BUFFER 212 J0906592 029C 7301 695 | EX165 MDX 3 1 POINT TO MESSAGE COUNT 212 J0906593 029D 6B08 696 | STX 3 EX170 SAVE ADDRESS OF MESSAGE 212 J0906594 029E C0D7 697 | LD EX150 LOAD MESSAGE NUMBER 212 J0906595 029F 4480 7DB0 698 | BSI I BINEB CONVERT TO EBCDIC J0906600 02A1 C12D 699 | LD 1 TEMP1+1 LOAD LAST TWO CHARACTERS J0906610 02A2 D400 06C6 700 | STO L XXX00-1 PLACE IN MESSAGE ZERO J0906620 701 | * J0906630 702 | * PRINT THE MESSAGE J0906640 703 | * J0906650 02A4 4480 7DBB 704 | BSI I PRINT LINK TO PRINT LINE J0906660 02A6 0000 705 | EX170 DC *-* ADDRESS OF MESSAGE J0906670 02A7 4480 7DB5 706 | BSI I LINE LINK TO SPACE ONE LINE J0906680 02A9 C0CC 707 | LD EX150 CHECK FOR CODE = 33 OR 92 J0906690 02AA 9400 0214 708 | S L EX950 J0906700 02AC 4C18 02B2 709 | BSC L EX172,+- BRANCH IF CODE = 33 J0906710 710 | * * J0906720 02AE 9400 0215 711 | S L EX960 J0906730 02B0 4C20 02B7 712 | BSC L EX174,Z BRANCH IF CODE NOT 92 J0906740 713 | * * J0906750 02B2 4400 003F 714 | EX172 BSI L $DUMP CALL SYSTEM DUMP J0906760 02B4 0000 715 | DC 0 CODE FOR CORE DUMP J0906770 02B5 0000 716 | DC 0 DUMP ALL OF CORE IN J0906780 02B6 0000 717 | DC 0 *STANDARD HEX FORMAT J0906790 718 | * * J0906800 02B7 4480 7DBD 719 | EX174 BSI I REST EXIT TO CONTROL ROUTINES J0906810 EXIT-WRITE DCOM ON MASTER CARTRIDGE 02B9 0000 721 | EX180 DC *-* LINK WORD J0906830 02BA 6700 7F1E 722 | LDX L3 CATCO XR3 POINTS TO DCOM IOAR J0906840 02BC C301 723 | LD 3 1 (DAAA/XXXX) J0906850 02BD 1004 724 | SLA 4 (AAA0/XXXX) J0906860 02BE 1804 725 | SRA 4 (0AAA/XXXX) J0906870 02BF D301 726 | STO 3 1 SET LOGICAL 0 DRIVE J0906880 02C0 4009 727 | BSI EX185 LINK TO WRITE DCOM J0906890 728 | * J0906900 729 | * CHECK FOR INTERRUPT REQUEST J0906910 730 | * J0906920 02C1 C13E 731 | LD 1 KBREQ J0906930 02C2 D400 002C 732 | STO L $IREQ RESTORE SYSTEM INTRPT REQ J0906940 02C4 C400 0211 733 | LD L EX905 LOAD INT INDICATOR 2-11 J0906950 02C6 4C98 02B9 734 | BSC I EX180,+- BRANCH IF NOT J0906960 02C8 4C00 0218 735 | BSC L EX060 BRANCH TO ADMIT INTERRUPT J0906970 02CA 0000 736 | EX185 DC *-* ENTRY POINT J0906980 02CB 6F00 0243 737 | STX L3 EX080+1 PLACE IOAR ADDRESS J0906990 02CD CC00 0242 738 | LDD L EX080 LOAD ACC AND EXTENSION J0907000 02CF 180E 739 | SRA 14 CHANGE READ CODE TO WRITE J0907010 02D0 4400 00F2 740 | BSI L DZ000 WRITE DCOM J0907020 02D2 7400 00EE 741 | MDX L $DBSY,0 CHECK DISK BUSY J0907030 02D4 70FD 742 | MDX *-3 BRANCH IF BUSY J0907040 02D5 4C80 02CA 743 | BSC I EX185 RETURN J0907050 EXIT-CHECK FOR MODIF CALL TO DUP 745 | * J0907070 746 | * BRANCH IF MODIFICATIONS ARE NOT BEING DONE J0907080 747 | * J0907090 02D7 0000 748 | EX190 DC *-* LINK WORD J0907100 02D8 6500 7FA0 749 | LDX L1 C XR1 IS CATCO MIDPOINT J0907110 02DA C18E 750 | LD 1 #MDF2 J0907120 02DB 4C98 02D7 751 | BSC I EX190,+- BRANCH IF NOT MODIF CALL J0907130 02DD D400 025B 752 | STO L EX120+1 INTLZ MODIF EXIT CORE ADDR J0907140 753 | * J0907150 754 | * CLEAR MODF2 TO ZERO J0907160 755 | * J0907170 02DF 1010 756 | SLA 16 J0907180 02E0 D18E 757 | STO 1 #MDF2 CLEAR MODIF INDICATOR J0907190 02E1 6700 7F1E 758 | LDX L3 CATCO POINT XR3 AT OUTPUT AREA J0907200 02E3 C301 759 | LD 3 +1 (DAAA/XXXX) J0907210 02E4 1004 760 | SLA 4 (AAA0/XXXX) J0907220 02E5 1804 761 | SRA 4 (0AAA/XXXX) J0907230 02E6 D301 762 | STO 3 +1 DCOM SCTR ADDR, LOGICAL 0 J0907240 02E7 40E2 763 | BSI EX185 LINK TO WRITE DCOM J0907250 764 | * J0907260 765 | * SET UP TO READ IN MODIF J0907270 766 | * J0907280 02E8 CC00 025C 767 | LDD L EX120+2 J0907290 02EA DC80 025B 768 | STD I EX120+1 PLACE IOAR HEADER J0907300 02EC C400 025B 769 | LD L EX120+1 J0907310 02EE D400 0243 770 | STO L EX080+1 SET ACC AND EXT J0907320 02F0 8400 0212 771 | A L EX930 J0907330 02F2 D400 024A 772 | STO L EX090+6 CALCULATE ENTRY ADDRESS J0907340 773 | * J0907350 774 | * MOVE READING PROGRAM J0907360 775 | * J0907370 02F4 6220 776 | LDX 2 32 J0907380 02F5 CC00 0244 777 | LDD L EX090 J0907390 02F7 DA00 778 | STD 2 0 MOVE BSI INSTRUCTION J0907400 02F8 CC00 0246 779 | LDD L EX090+2 J0907410 02FA DA02 780 | STD 2 2 MOVE MDX INSTRUCTION J0907420 02FB CC00 0248 781 | LDD L EX090+4 J0907430 02FD DA04 782 | STD 2 4 MOVE MDX INSTRUCTION J0907440 02FE CC00 024A 783 | LDD L EX090+6 J0907450 0300 DA06 784 | STD 2 6 MOVE BSC INSTRUCTION J0907460 785 | * J0907470 786 | * GO TO LOW CORE TO READ IN MODIF J0907480 787 | * J0907490 0301 CC00 0242 788 | LDD L EX080 LOAD ACC AND EXTENSION J0907500 0303 4C00 0020 789 | BSC L 32 BRANCH TO READ IN MODIF J0907510 EXIT-ERROR MESSAGE TABLE 791 | * J0907530 792 | * DUP ERROR MESSAGE TABLE J0907540 793 | * J0907550 0305 794 | EX800 EQU * J0907560 0305 0001 795 | DC 1 MESSAGE NUMBER J0907570 0306 000E 796 | DC XXX01-* WORD COUNT J0907580 0307 C440 F0F1 40D5 C1D4 797 | EBC .D 01 NAME IS NOT PRIME ENTRY. J0907590 C540 C9E2 40D5 D6E3 | 40D7 D9C9 D4C5 40C5 | D5E3 D9E8 | 0315 798 | XXX01 EQU * J0907600 0315 0002 799 | DC 2 MESSAGE NUMBER J0907610 0316 0010 800 | DC XXX02-* WORD COUNT J0907620 0317 C440 F0F2 40C9 D5E5 801 | EBC .D 02 INVALID HEADER RECORD TYPE. J0907630 C1D3 C9C4 40C8 C5C1 | C4C5 D940 D9C5 C3D6 | D9C4 40E3 E8D7 C540 | 0327 802 | XXX02 EQU * J0907640 0327 0003 803 | DC 3 MESSAGE NUMBER J0907650 0328 000D 804 | DC XXX03-* WORD COUNT J0907660 0329 C440 F0F3 40C9 D5E5 805 | EBC .D 03 INVALID HEADER LENGTH. J0907670 C1D3 C9C4 40C8 C5C1 | C4C5 D940 D3C5 D5C7 | E3C8 | 0336 806 | XXX03 EQU * J0907680 0336 0005 807 | DC 5 MESSAGE NUMBER J0907690 0337 0012 808 | DC XXX05-* WORD COUNT J0907700 0338 C440 F0F5 40E2 C5C3 809 | EBC .D 05 SECONDARY ENTRY. 212 J0907710 D6D5 C4C1 D9E8 40C5 | D5E3 D9E8 | 0342 4040 810 | DC /4040 212 J0907722 0343 0000 811 | XXX04 DC *-* 212 J0907724 0344 0000 812 | DC *-* 212 J0907726 0345 0000 813 | DC *-* 212 J0907728 0346 4040 C9D5 40D3 C5E3 814 | EBC . IN LET. 212 J0907729 034A 815 | XXX05 EQU * J0907730 034A 0006 816 | DC 6 MESSAGE NUMBER J0907740 034B 0015 817 | DC XXX06-* WORD COUNT J0907750 034C C440 F0F6 40C5 D5E3 818 | EBC .D 06 ENTRY POINT NAME ALREADY IN L. J0907760 D9E8 40D7 D6C9 D5E3 | 40D5 C1D4 C540 C1D3 | D9C5 C1C4 E840 C9D5 | 40D3 | 035D C5E3 61C6 D3C5 E340 819 | EBC .ET/FLET. J0907770 0361 820 | XXX06 EQU * J0907780 0361 000C 821 | DC 12 MESSAGE NUMBER J0907790 0362 0010 822 | DC XXX12-* WORD COUNT J0907800 0363 C440 F1F2 40C9 D5E5 823 | EBC .D 12 INVALID DISK I/O SPECIFIED. J0907810 C1D3 C9C4 40C4 C9E2 | D240 C961 D640 E2D7 | C5C3 C9C6 C9C5 C440 | 0373 824 | XXX12 EQU * J0907820 0373 000D 825 | DC 13 MESSAGE NUMBER J0907830 0374 000E 826 | DC XXX13-* WORD COUNT J0907840 0375 C440 F1F3 40C9 D5E5 827 | EBC .D 13 INVALID FUNCTION FIELD . 2-10 J0907850 C1D3 C9C4 40C6 E4D5 | C3E3 C9D6 D540 C6C9 | C5D3 C440 | 0383 828 | XXX13 EQU * J0907860 0383 000E 829 | DC 14 MESSAGE NUMBER J0907870 0384 0011 830 | DC XXX14-* WORD COUNT J0907880 0385 C440 F1F4 40C9 D5E5 831 | EBC .D 14 INVALID FROM FIELD (CC 13-14). J0907890 C1D3 C9C4 40C6 D9D6 | D440 C6C9 C5D3 C440 | 4DC3 C340 F1F3 60F1 | F45D | 0396 832 | XXX14 EQU * J0907900 0396 000F 833 | DC 15 MESSAGE NUMBER J0907910 0397 0010 834 | DC XXX15-* WORD COUNT J0907920 0398 C440 F1F5 40C9 D5E5 835 | EBC .D 15 INVALID TO FIELD (CC 17-18). J0907930 C1D3 C9C4 40E3 D640 | C6C9 C5D3 C440 4DC3 | C340 F1F7 60F1 F85D | 03A8 836 | XXX15 EQU * J0907940 03A8 0010 837 | DC 16 MESSAGE NUMBER J0907950 03A9 0011 838 | DC XXX16-* WORD COUNT J0907960 03AA C440 F1F6 40C9 D5E5 839 | EBC .D 16 INVALID NAME FIELD (CC 21-25). J0907970 C1D3 C9C4 40D5 C1D4 | C540 C6C9 C5D3 C440 | 4DC3 C340 F2F1 60F2 | F55D | 03BB 840 | XXX16 EQU * J0907980 03BB 0011 841 | DC 17 MESSAGE NUMBER J0907990 03BC 0012 842 | DC XXX17-* WORD COUNT J0908000 03BD C440 F1F7 40C9 D5E5 843 | EBC .D 17 INVALID COUNT FIELD (CC 27-30). J0908010 C1D3 C9C4 40C3 D6E4 | D5E3 40C6 C9C5 D3C4 | 404D C3C3 40F2 F760 | F3F0 5D40 | 03CF 844 | XXX17 EQU * J0908020 03CF 0012 845 | DC 18 MESSAGE NUMBER J0908030 03D0 0015 846 | DC XXX18-* WORD COUNT J0908040 03D1 C440 F1F8 40C9 D5E5 847 | EBC .D 18 INVALID FUNCTION DURING TEMPO. J0908050 C1D3 C9C4 40C6 E4D5 | C3E3 C9D6 D540 C4E4 | D9C9 D5C7 40E3 C5D4 | D7D6 | 03E2 D9C1 D9E8 40D1 D6C2 848 | EBC .RARY JOB. J0908060 03E6 849 | XXX18 EQU * J0908070 03E6 0013 850 | DC 19 MESSAGE NUMBER J0908080 03E7 000E 851 | DC XXX19-* WORD COUNT J0908090 03E8 C440 F1F9 40C3 C1D9 852 | EBC .D 19 CARTRIDGE NOT ON SYSTEM. J0908100 E3D9 C9C4 C7C5 40D5 | D6E3 40D6 D540 E2E8 | E2E3 C5D4 | 03F6 853 | XXX19 EQU * J0908110 03F6 0014 854 | DC 20 MESSAGE NUMBER J0908120 03F7 0019 855 | DC XXX20-* WORD COUNT J0908130 03F8 C440 F2F0 40C3 C1D9 856 | EBC .D 20 CARTRIDGE ID OUTSIDE VALID RA. J0908140 E3D9 C9C4 C7C5 40C9 | C440 D6E4 E3E2 C9C4 | C540 E5C1 D3C9 C440 | D9C1 | 0409 D5C7 C540 4DF0 F0F0 857 | EBC .NGE (0001-7FFF). J0908150 F160 F7C6 C6C6 5D40 | 0411 858 | XXX20 EQU * J0908160 0411 0015 859 | DC 21 MESSAGE NUMBER J0908170 0412 001C 860 | DC XXX21-* WORD COUNT J0908180 0413 C440 F2F1 40C9 D5E5 861 | EBC .D 21 INVALID STOREMOD. SIZE OF REP. J0908190 C1D3 C9C4 40E2 E3D6 | D9C5 D4D6 C440 | 041E D3C1 C3C5 D4C5 D5E3 862 | EBC .LACEMENT EXCEEDS SIZE OF ORIGINAL. J0908200 40C5 E7C3 C5C5 C4E2 | 40E2 C9E9 C540 D6C6 | 40D6 D9C9 C7C9 D5C1 | D340 | 042F 863 | XXX21 EQU * J0908210 042F 0016 864 | DC 22 MESSAGE NUMBER J0908220 0430 0012 865 | DC XXX22-* WORD COUNT J0908230 0431 C440 F2F2 40D7 D9D6 866 | EBC .D 22 PROGRAM NOT IN WORKING STORAGE. J0908240 C7D9 C1D4 40D5 D6E3 | 40C9 D540 E6D6 D9D2 | C9D5 C740 E2E3 D6D9 | C1C7 C540 | 0443 867 | XXX22 EQU * J0908250 0443 0017 868 | DC 23 MESSAGE NUMBER J0908260 0444 0017 869 | DC XXX23-* WORD COUNT J0908270 0445 C440 F2F3 40C9 D5E5 870 | EBC .D 23 INVALID SYSTEM OVERLAY SUBTYP. J0908280 C1D3 C9C4 40E2 E8E2 | E3C5 D440 D6E5 C5D9 | D3C1 E840 E2E4 C2E3 | E8D7 | 0456 C540 E2D7 C5C3 C9C6 871 | EBC .E SPECIFIED. J0908290 C9C5 C440 | 045C 872 | XXX23 EQU * J0908300 045C 0018 873 | DC 24 MESSAGE NUMBER J0908310 045D 000D 874 | DC XXX24-* WORD COUNT J0908320 045E C440 F2F4 40C3 D6E4 875 | EBC .D 24 COUNT FIELD TOO LARGE. J0908330 D5E3 40C6 C9C5 D3C4 | 40E3 D6D6 40D3 C1D9 | C7C5 | 046B 876 | XXX24 EQU * J0908340 046B 0019 877 | DC 25 MESSAGE NUMBER J0908350 046C 000F 878 | DC XXX25-* WORD COUNT J0908360 046D C440 F2F5 40D9 C5D8 879 | EBC .D 25 REQUIRED FORMAT NOT IN WS. J0908370 E4C9 D9C5 C440 C6D6 | D9D4 C1E3 40D5 D6E3 | 40C9 D540 E6E2 | 047C 880 | XXX25 EQU * J0908380 047C 001A 881 | DC 26 MESSAGE NUMBER J0908390 047D 0010 882 | DC XXX26-* WORD COUNT J0908400 047E C440 F2F6 40D5 C1D4 883 | EBC .D 26 NAME NOT FOUND IN LET/FLET. J0908410 C540 D5D6 E340 C6D6 | E4D5 C440 C9D5 40D3 | C5E3 61C6 D3C5 E340 | 048E 884 | XXX26 EQU * J0908420 048E 001B 885 | DC 27 MESSAGE NUMBER J0908430 048F 000B 886 | DC XXX27-* WORD COUNT J0908440 0490 C440 F2F7 40E2 D6E4 887 | EBC .D 27 SOURCE NOT IN DSF. J0908450 D9C3 C540 D5D6 E340 | C9D5 40C4 E2C6 | 049B 888 | XXX27 EQU * J0908460 049B 001E 889 | DC 30 MESSAGE NUMBER J0908470 049C 000C 890 | DC XXX30-* WORD COUNT J0908480 049D C440 F3F0 40C9 D5E5 891 | EBC .D 30 INVALID RECORD TYPE. J0908490 C1D3 C9C4 40D9 C5C3 | D6D9 C440 E3E8 D7C5 | 04A9 892 | XXX30 EQU * J0908500 04A9 001F 893 | DC 31 MESSAGE NUMBER J0908510 04AA 0019 894 | DC XXX31-* WORD COUNT J0908520 04AB C440 F3F1 40D7 D9D6 895 | EBC .D 31 PROGRAM OR DATA EXCEEDS DESTI. J0908530 C7D9 C1D4 40D6 D940 | C4C1 E3C1 40C5 E7C3 | C5C5 C4E2 40C4 C5E2 | E3C9 | 04BC D5C1 E3C9 D6D5 40C4 896 | EBC .NATION DISK AREA. J0908540 C9E2 D240 C1D9 C5C1 | 04C4 897 | XXX31 EQU * J0908550 04C4 0020 898 | DC 32 MESSAGE NUMBER J0908560 04C5 0011 899 | DC XXX32-* WORD COUNT J0908570 04C6 C440 F3F2 40C9 D5E5 900 | EBC .D 32 INVALID CORE IMAGE CONVERSION. J0908580 C1D3 C9C4 40C3 D6D9 | C540 C9D4 C1C7 C540 | C3D6 D5E5 C5D9 E2C9 | D6D5 | 04D7 901 | XXX32 EQU * J0908590 04D7 0021 902 | DC 33 MESSAGE NUMBER J0908600 04D8 0010 903 | DC XXX33-* WORD COUNT J0908610 04D9 C440 F3F3 40D3 C5E3 904 | EBC .D 33 LET/FLET OVERFLOW. A CORE DUM. J0908620 61C6 D3C5 E340 D6E5 | C5D9 C6D3 D6E6 | 04E4 D740 C6D6 D3D3 D6E6 905 | EBC .P FOLLOWS. J0908630 E240 | 04E9 906 | XXX33 EQU * J0908640 04E9 0029 907 | DC 41 MESSAGE NUMBER J0908650 04EA 0012 908 | DC XXX41-* WORD COUNT J0908660 04EB C440 F4F1 40C9 D5E5 909 | EBC .D 41 INVALID STORECI CONTROL RECOR. J0908670 C1D3 C9C4 40E2 E3D6 | D9C5 C3C9 40C3 D6D5 | E3D9 D6D3 40D9 C5C3 | D6D9 | 04FC C440 910 | EBC .D. J0908680 04FD 911 | XXX41 EQU * J0908690 04FD 002A 912 | DC 42 MESSAGE NUMBER J0908700 04FE 0018 913 | DC XXX42-* WORD COUNT J0908710 04FF C440 F4F2 40E2 E3D6 914 | EBC .D 42 STORECI CONTROL RECORDS INCOR. J0908720 D9C5 C3C9 40C3 D6D5 | E3D9 D6D3 40D9 C5C3 | D6D9 C4E2 40C9 D5C3 | D6D9 | 0510 D9C5 C3E3 D3E8 40D6 915 | EBC .RECTLY ORDERED. J0908730 D9C4 C5D9 C5C4 | 0517 916 | XXX42 EQU * J0908740 0517 002B 917 | DC 43 MESSAGE NUMBER J0908750 0518 000E 918 | DC XXX43-* WORD COUNT J0908760 0519 C440 F4F3 40C9 D5C3 919 | EBC .D 43 INCORRECT CONTINUATION. J0908770 D6D9 D9C5 C3E3 40C3 | D6D5 E3C9 D5E4 C1E3 | C9D6 D540 | 0527 920 | XXX43 EQU * J0908780 0527 002C 921 | DC 44 MESSAGE NUMBER J0908790 0528 0010 922 | DC XXX44-* WORD COUNT J0908800 0529 C440 F4F4 40C9 D3D3 923 | EBC .D 44 ILLEGAL CHARACTER IN RECORD. J0908810 C5C7 C1D3 40C3 C8C1 | D9C1 C3E3 C5D9 40C9 | D540 D9C5 C3D6 D9C4 | 0539 924 | XXX44 EQU * J0908820 0539 002D 925 | DC 45 MESSAGE NUMBER J0908830 053A 000C 926 | DC XXX45-* WORD COUNT J0908840 053B C440 F4F5 40C9 D3D3 927 | EBC .D 45 ILLEGAL FILE NUMBER. J0908850 C5C7 C1D3 40C6 C9D3 | C540 D5E4 D4C2 C5D9 | 0547 928 | XXX45 EQU * J0908860 0547 002E 929 | DC 46 MESSAGE NUMBER J0908870 0548 0009 930 | DC XXX46-* WORD COUNT J0908880 0549 C440 F4F6 40C9 D3D3 931 | EBC .D 46 ILLEGAL NAME. J0908890 C5C7 C1D3 40D5 C1D4 | C540 | 0552 932 | XXX46 EQU * J0908900 0552 002F 933 | DC 47 MESSAGE NUMBER J0908910 0553 000D 934 | DC XXX47-* WORD COUNT J0908920 0554 C440 F4F7 40C9 D3D3 935 | EBC .D 47 ILLEGAL CARTRIDGE ID. J0908930 C5C7 C1D3 40C3 C1D9 | E3D9 C9C4 C7C5 40C9 | C440 | 0561 936 | XXX47 EQU * J0908940 0561 0030 937 | DC 48 MESSAGE NUMBER J0908950 0562 000D 938 | DC XXX48-* WORD COUNT J0908960 0563 C440 F4F8 40E2 C3D9 939 | EBC .D 48 SCRA BUFFER OVERFLOW. J0908970 C140 C2E4 C6C6 C5D9 | 40D6 E5C5 D9C6 D3D6 | E640 | 0570 940 | XXX48 EQU * J0908980 0570 0046 941 | DC 70 MESSAGE NUMBER J0908990 0571 0014 942 | DC XXX70-* WORD COUNT J0909000 0572 C440 F7F0 40D3 C1E2 943 | EBC .D 70 LAST ENTRY IN LET/FLET NOT A . J0909010 E340 C5D5 E3D9 E840 | C9D5 40D3 C5E3 61C6 | D3C5 E340 D5D6 E340 | C140 | 0583 F1C4 E4D4 E840 944 | EBC .1DUMY. J0909020 0586 945 | XXX70 EQU * J0909030 0586 0047 946 | DC 71 MESSAGE NUMBER J0909040 0587 0022 947 | DC XXX71-* WORD COUNT J0909050 0588 C440 F7F1 40F1 C4E4 948 | EBC .D 71 1DUMY ENTRY IN LET/FLET IS FO. J0909060 D4E8 40C5 D5E3 D9E8 | 40C9 D540 D3C5 E361 | C6D3 C5E3 40C9 E240 | C6D6 | 0599 D3D3 D6E6 C5C4 40C2 949 | EBC .LLOWED BY A SECONDARY ENTRY POINT. J0909070 E840 C140 E2C5 C3D6 | D5C4 C1D9 E840 C5D5 | E3D9 E840 D7D6 C9D5 | E340 | 05AA 950 | XXX71 EQU * J0909080 05AA 0048 951 | DC 72 MESSAGE NUMBER J0909090 05AB 001F 952 | DC XXX72-* WORD COUNT J0909100 05AC C440 F7F2 40C6 C9D9 953 | EBC .D 72 FIRST ENTRY IN LET/FLET SECTO. J0909110 E2E3 40C5 D5E3 D9E8 | 40C9 D540 D3C5 E361 | C6D3 C5E3 40E2 C5C3 | E3D6 | 05BD D940 C9E2 40C1 40E2 954 | EBC .R IS A SECONDARY ENTRY POINT. J0909120 C5C3 D6D5 C4C1 D9E8 | 40C5 D5E3 D9E8 40D7 | D6C9 D5E3 | 05CB 955 | XXX72 EQU * J0909130 05CB 0050 956 | DC 80 MESSAGE NUMBER J0909140 05CC 000C 957 | DC XXX80-* WORD COUNT J0909150 05CD C440 F8F0 40C6 C9E7 958 | EBC .D 80 FIXED AREA PRESENT. J0909160 C5C4 40C1 D9C5 C140 | D7D9 C5E2 C5D5 E340 | 05D9 959 | XXX80 EQU * J0909170 05D9 0051 960 | DC 81 MESSAGE NUMBER J0909180 05DA 000E 961 | DC XXX81-* WORD COUNT J0909190 05DB C440 F8F1 40C1 E2E2 962 | EBC .D 81 ASSEMBLER NOT IN SYSTEM. J0909200 C5D4 C2D3 C5D9 40D5 | D6E3 40C9 D540 E2E8 | E2E3 C5D4 | 05E9 963 | XXX81 EQU * J0909210 05E9 0052 964 | DC 82 MESSAGE NUMBER J0909220 05EA 000D 965 | DC XXX82-* WORD COUNT J0909230 05EB C440 F8F2 40C6 D6D9 966 | EBC .D 82 FORTRAN NOT IN SYSTEM. J0909240 E3D9 C1D5 40D5 D6E3 | 40C9 D540 E2E8 E2E3 | C5D4 | 05F8 967 | XXX82 EQU * J0909250 05F8 0053 968 | DC 83 MESSAGE NUMBER J0909260 05F9 0017 969 | DC XXX83-* WORD COUNT J0909270 05FA C440 F8F3 40C9 D5C3 970 | EBC .D 83 INCREASE VALUE IN COUNT FIELD. J0909280 D9C5 C1E2 C540 E5C1 | D3E4 C540 C9D5 40C3 | D6E4 D5E3 40C6 C9C5 | D3C4 | 060B 404D C3C3 40F2 F760 971 | EBC . (CC 27-30). J0909290 F3F0 5D40 | 0611 972 | XXX83 EQU * J0909300 0611 0054 973 | DC 84 MESSAGE NUMBER J0909310 0612 000F 974 | DC XXX84-* WORD COUNT J0909320 0613 C440 F8F4 40C4 C5C6 975 | EBC .D 84 DEFECTIVE SLET. DEFINE VOID T. J0909330 C5C3 E3C9 E5C5 40E2 | D3C5 E340 | 061D C5D9 D4C9 D5C1 E3C5 976 | EBC .ERMINATED. J0909340 C440 | 0622 977 | XXX84 EQU * J0909350 0622 0055 978 | DC 85 MESSAGE NUMBER J0909360 0623 000E 979 | DC XXX85-* WORD COUNT J0909370 0624 C440 F8F5 40C6 C9E7 980 | EBC .D 85 FIXED AREA NOT PRESENT. J0909380 C5C4 40C1 D9C5 C140 | D5D6 E340 D7D9 C5E2 | C5D5 E340 | 0632 981 | XXX85 EQU * J0909390 0632 0056 982 | DC 86 MESSAGE NUMBER J0909400 0633 0017 983 | DC XXX86-* WORD COUNT J0909410 0634 C440 F8F6 40C4 C5C3 984 | EBC .D 86 DECREASE VALUE IN COUNT FIELD . J0909420 D9C5 C1E2 C540 E5C1 | D3E4 C540 C9D5 40C3 | D6E4 D5E3 40C6 C9C5 | D3C4 4040 | 0646 4DC3 C340 F2F7 60F3 985 | EBC .(CC 27-30). J0909430 F05D | 064B 986 | XXX86 EQU * J0909440 064B 0057 987 | DC 87 MESSAGE NUMBER 2-5 J0909450 064C 000B 988 | DC XXX87-* WORD COUNT 2-5 J0909460 064D C440 F8F7 40D9 D7C7 989 | EBC .D 87 RPG NOT IN SYSTEM. 2-5 J0909470 40D5 D6E3 40C9 D540 | E2E8 E2E3 C5D4 | 0658 990 | XXX87 EQU * 2-5 J0909480 0658 0058 991 | DC 88 MESSAGE NUMBER 2-9 J0909483 0659 000C 992 | DC XXX88-* WORD COUNT 2-9 J0909484 065A C440 F8F8 40C3 D6C2 993 | EBC .D 88 COBOL NOT IN SYSTEM. 2-9 J0909485 D6D3 40D5 D6E3 40C9 | D540 E2E8 E2E3 C5D4 | 0666 994 | XXX88 EQU * 2-9 J0909486 0666 005A 995 | DC 90 MESSAGE NUMBER J0909490 0667 000A 996 | DC XXX90-* WORD COUNT J0909500 0668 C440 F9F0 40C3 C8C5 997 | EBC .D 90 CHECK SUM ERROR. J0909510 C3D2 40E2 E4D4 40C5 | D9D9 D6D9 | 0672 998 | XXX90 EQU * J0909520 0672 005C 999 | DC 92 MESSAGE NUMBER J0909530 0673 0011 1000 | DC XXX92-* WORD COUNT J0909540 0674 C440 F9F2 40C9 D5E5 1001 | EBC .D 92 INVALID DISKZ CALL. A CORE DU. J0909550 C1D3 C9C4 40C4 C9E2 | D2E9 40C3 C1D3 D340 | 0680 D4D7 40C6 D6D3 D3D6 1002 | EBC .MP FOLLOWS. J0909560 E6E2 | 0685 1003 | XXX92 EQU * J0909570 0685 005D 1004 | DC 93 MESSAGE NUMBER J0909580 0686 000C 1005 | DC XXX93-* WORD COUNT J0909590 0687 C440 F9F3 40C3 C1D9 1006 | EBC .D 93 CARTRIDGE OVERFLOW. J0909600 E3D9 C9C4 C7C5 40D6 | E5C5 D9C6 D3D6 E640 | 0693 1007 | XXX93 EQU * J0909610 0693 0065 1008 | DC 101 MESSAGE NUMBER J0909620 0694 0008 1009 | DC XX101-* WORD COUNT J0909630 0695 C1E2 E2C5 D4C2 D3C5 1010 | EBC .ASSEMBLER VOIDED. J0909640 D940 E5D6 C9C4 C5C4 | 069D 1011 | XX101 EQU * J0909650 069D 0066 1012 | DC 102 MESSAGE NUMBER J0909660 069E 0007 1013 | DC XX102-* WORD COUNT J0909670 069F C6D6 D9E3 D9C1 D540 1014 | EBC .FORTRAN VOIDED. J0909680 E5D6 C9C4 C5C4 | 06A6 1015 | XX102 EQU * J0909690 06A6 0067 1016 | DC 103 MESSAGE NO. 2-5 J0909700 06A7 0005 1017 | DC XX103-* WORD COUNT 2-5 J0909710 06A8 D9D7 C740 E5D6 C9C4 1018 | EBC .RPG VOIDED. 2-5 J0909720 C5C4 | 06AD 1019 | XX103 EQU * 2-5 J0909730 06AD 0068 1020 | DC 104 MESSAGE NUMBER 2-9 J0909735 06AE 0006 1021 | DC XX104-* WORD COUNT 2-9 J0909736 06AF C3D6 C2D6 D340 E5D6 1022 | EBC .COBOL VOIDED. 2-9 J0909737 C9C4 C5C4 | 06B5 1023 | XX104 EQU * J0909738 06B5 0000 1024 | DC 0 MESSAGE NUMBER J0909740 06B6 0010 1025 | DC XXX00-* WORD COUNT J0909750 06B7 D5D6 40E2 E4C3 C840 1026 | EBC .NO SUCH ERROR MESSAGE NUMBER. J0909760 C5D9 D9D6 D940 D4C5 | E2E2 C1C7 C540 D5E4 | D4C2 C5D9 | 06C5 4040 E7E7 1027 | EBC . XX. J0909770 06C7 1028 | XXX00 EQU * J0909780 06C7 1029 | BSS $ZEND+/4FF-* PATCH AREA J0909790 06DF FFFF 1030 | DC /FFFF END OF DEXIT PATCH AREA J0909800 06E0 1031 | END EX000 J0909810 There were no errors in this assembly Program transfer address = 01E0 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #ACIN FF9C 98 #ANDU FFA3 104 #BNDU FFA8 105 #CBSW FF8A 77 635 #CIAD FF9B 97 #CIBA FFBC 109 #CIDN FFB7 108 #CSHN FFDA 115 #DBCT FF86 73 #DCOM 0001 116 #DCSW FF98 94 #ECNT FFA1 103 #ENTY FF90 83 #FCNT FF87 74 #FHOL FF94 90 #FLET FFCB 112 #FMAT FFC6 111 #FPAD FFAD 106 #FRDR FF93 88 549 557 #FSZE FF95 91 #GCNT FF9E 100 #GRPH FF9D 99 #HDNG 0007 117 #JBSW FF89 76 #LCNT FF8B 78 #LOSW FF9F 101 #MDF1 FF8D 80 637 639 #MDF2 FF8E 81 750 757 #MPSW FF8C 79 598 #NAME FF84 72 666 671 677 683 689 #NCNT FF8F 82 #PCID FFB2 107 #PIOD FF99 95 #PPTR FF9A 96 #RP67 FF91 84 #SCRA FFC1 110 #SYSC FF88 75 #TODR FF92 87 #UHOL FF96 92 #ULET FFD0 113 #USZE FF97 93 #WSCT FFD5 114 #X3SW FFA0 102 $1132 007F 33 $1403 0080 34 $ACDE 009F 42 $BYSW 01CB 52 $CH12 0006 4 $CIBA 0005 3 $COMN 0007 5 $CORE 000E 6 $CPTR 007E 32 $CTSW 000F 7 486 492 $CYLN 009A 41 $DABL 0011 9 $DADR 0010 8 552 $DBSY 00EE 51 593 741 $DCDE 0077 25 559 $DCYL 00A4 43 $DREQ 0012 10 604 $DUMP 003F 24 532 714 $EXIT 0038 22 515 $FPAD 0095 40 550 $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 732 $KCSW 007C 30 $LAST 0033 17 $LINK 0039 23 608 $NDUP 0034 18 494 $NXEQ 0035 19 493 $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 $WRD1 007B 29 $WSDR 007A 28 $ZEND 01E0 54 266 1029 'SBFR 0FB0 118 499 ADDR2 003D 228 496 ASMSW 000E 152 B 01DE 266 267 268 269 270 271 272 273 BINEB 7DB0 280 698 BITSW 000F 153 BLKSW 0010 154 BUF1 79B5 305 306 BUF2 7963 306 307 BUF3 7925 307 308 BUF4 78D3 308 BUF5 7782 309 310 543 BUF6 7D91 298 299 300 BUF7 0640 310 C 7FA0 56 498 509 549 749 CATCO 7F1E 275 722 758 CIERR 0011 155 CIHDR 0008 138 CISW 0012 156 CL1 000E 151 CL2 0037 204 CLBSW 0013 157 CNTNO 0014 158 CRBUF 0057 255 498 D2HDR 000C 140 DATSW 0015 165 DBADR 0016 166 DCADR 0058 256 DCHDR FFF0 126 DCTL 11E0 270 DCTLC 11DE 271 DELSW 0017 167 DFHDR FFFC 132 DFLSW 0036 202 DFNSW 0018 168 DISKZ 00F2 265 DKSAD 0019 169 DLHDR FFF8 130 DMHDR FFF6 129 DMPLC 01DE 267 DTHDR FFFA 131 DUMPC 41DE 273 DUMPP 001A 170 DUPCO 7DB0 274 279 298 DUPCR 003C 222 DXHDR FFFE 133 DZ000 00F2 53 265 592 740 EBCSW 0033 198 ENTER 7DB2 282 EX000 01E0 462 1031 EX010 01F0 480 475 EX020 01F0 485 469 EX022 01F4 492 479 EX024 01FA 496 487 EX030 0202 501 508 EX050 0216 528 478 EX060 0218 532 735 EX070 021B 538 477 EX080 0242 590 566 584 737 738 770 788 EX090 0244 592 568 573 575 577 579 772 777 779 781 783 EX100 024B 597 476 EX110 0256 616 455 563 564 565 EX120 025A 623 752 767 768 769 EX130 0260 634 471 EX140 026A 650 658 EX150 0276 659 648 652 697 707 EX160 0277 663 651 653 EX165 029C 695 665 EX170 02A6 705 696 EX172 02B2 714 709 EX174 02B7 719 712 EX180 02B9 721 510 528 538 599 643 734 EX185 02CA 736 727 743 763 EX190 02D7 748 514 751 EX800 0305 794 649 EX900 025E 631 669 674 680 686 692 EX905 0211 519 497 733 EX930 0212 520 567 771 EX940 0213 521 638 EX950 0214 522 708 EX960 0215 523 711 EX990 025F 632 676 681 688 693 EXITC 01DE 268 452 FLHDR FFF4 128 FORSW 001C 171 FRWS 001D 172 FXSW 001E 173 GET 7DB3 283 GETBI 7A0B 302 GETHO 7A0A 301 HDBUF 0059 257 HDNSW 0034 199 HOLSW 001F 174 IBT 0049 246 INOUT 003F 235 IOADR 7A06 300 301 302 303 304 305 309 IOBLK 005A 258 IOREQ 0038 212 IOSW 0020 175 KBREQ 003E 229 731 LEAVE 7DB4 284 LETAR 005C 260 LETSW 0021 180 LINE 7DB5 285 706 LSTLF 0022 181 MASK 7DB6 286 MDUMP 7DB7 287 MODSW 0023 182 MUHDR 000A 139 MUPC 01DE 269 NAMSW 0024 183 NEGSW 0025 184 NEXT 005F 263 P1442 0052 252 PACKB 7A0C 303 PAGE 7DB8 288 PCHBI 7A0D 304 PEBUF 005D 261 PGMHL 0026 185 PH2 0039 213 PH3 003A 214 PH4 003B 215 PHDUP 0056 254 PHID 7DB9 289 462 PHIDM 7DBA 290 PIHDR 0002 135 PRINT 7DBB 291 704 PRPAR 0054 253 PRPNT 7C50 299 PRSW 0027 186 PTHDR 0006 137 PTPON 0040 237 PTSW 0028 187 PUT 7DBC 292 545 REST 7DBD 293 719 RPGSW 0035 200 RTURN 7DBE 294 SDBUF 005B 259 SIHDR 0004 136 SKWDS 0029 188 STCSW 002A 189 STHDR FFF2 127 STSW 002B 190 T3MSW 002F 194 TEMP1 002C 191 699 TEMP2 002D 192 THIS 005E 262 TOWS 002E 193 UASW 0030 195 UCHDR 0000 134 542 WRTDC 7DB1 281 WSDC 21DE 272 WSSW 0031 196 XEQSW 0032 197 XX101 069D 1011 1009 XX102 06A6 1015 1013 XX103 06AD 1019 1017 XX104 06B5 1023 1021 XXX00 06C7 1028 700 1025 XXX01 0315 798 796 XXX02 0327 802 800 XXX03 0336 806 664 804 XXX04 0343 811 670 682 694 XXX05 034A 815 808 XXX06 0361 820 817 XXX12 0373 824 822 XXX13 0383 828 826 XXX14 0396 832 830 XXX15 03A8 836 834 XXX16 03BB 840 838 XXX17 03CF 844 842 XXX18 03E6 849 846 XXX19 03F6 853 851 XXX20 0411 858 855 XXX21 042F 863 860 XXX22 0443 867 865 XXX23 045C 872 869 XXX24 046B 876 874 XXX25 047C 880 878 XXX26 048E 884 882 XXX27 049B 888 886 XXX30 04A9 892 890 XXX31 04C4 897 894 XXX32 04D7 901 899 XXX33 04E9 906 903 XXX41 04FD 911 908 XXX42 0517 916 913 XXX43 0527 920 918 XXX44 0539 924 922 XXX45 0547 928 926 XXX46 0552 932 930 XXX47 0561 936 934 XXX48 0570 940 938 XXX70 0586 945 942 XXX71 05AA 950 947 XXX72 05CB 955 952 XXX80 05D9 959 957 XXX81 05E9 963 961 XXX82 05F8 967 965 XXX83 0611 972 969 XXX84 0622 977 974 XXX85 0632 981 979 XXX86 064B 986 983 XXX87 0658 990 988 XXX88 0666 994 992 XXX90 0672 998 996 XXX92 0685 1003 1000 XXX93 0693 1007 1005