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