1 EXTERNAL SYMBOL DICTIONARY PAGE 1
-SYMBOL TYPE ID ADDR LENGTH LDID ASM 0201 14.55 10/23/84
0TRACETBL LD 020DB0 0002
NEXTTTE LD 024E90 0002
ICDATA LD 024CF0 0002
ICATEXIH ER 0001
ICATS SD 0002 020000 004FC0
QUIT ER 0003
STATUS ER 0004
TRACE ER 0005
TEST ER 0006
FAKIT ER 0007
IGNORCMD ER 0008
CAT ER 0009
READ ER 000A
WRITE ER 000B
TIME ER 000C
RESTART ER 000D
TERMIO ER 000E
CONFIG ER 000F
ATTACH ER 0010
DOTERM ER 0011
READRCB ER 0012
READUTS ER 0013
WRITEUTS ER 0014
INTERUTS ER 0015
DOTERMIO ER 0016
MESSAGE ER 0017
ACCESS ER 0018
ETTE ER 0019
PARSE ER 001A
CONHEX ER 001B
CONEHEX ER 001C
CONDEC ER 001D
REJECT ER 001E
1 ICATS MAINLINE PAGE 2
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 2 *********************************************************************** ICA00020
3 * * ICA00030
4 * MODULE NAME = ICATS MAINLINE SUPERVISOR/DISPATCHER * ICA00040
5 * * ICA00050
6 * FUNCTION = RUN THE ICATS VIRTUAL MACHINE. * ICA00060
7 * * ICA00070
8 * ENTRY POINTS = ICATS * ICA00080
9 * * ICA00090
10 * LINKAGE = BALR R14,R15 FROM CMS. THIS IS THE MODULE THAT * ICA00100
11 * GETS CONTROL WHEN THIS PROGRAM IS FIRST STARTED. * ICA00110
12 * * ICA00120
13 * REGISTER CONTENTS UPON ENTRY = * ICA00130
14 * R1 = POINTS TO THE PARAMETER LIST (NOT USED) * ICA00140
15 * R14 = RETURN ADDRESS BACK TO CMS * ICA00150
16 * R15 = ENTRY POINT TO THIS MODULE * ICA00160
17 * * ICA00170
18 * REGISTER USAGE = * ICA00180
19 * R0 = USED TO PASS PARAMETERS TO SOME SUBROUTINES. * ICA00190
20 * R1 = USED TO PASS PARAMETERS TO SUBROUTINES. * ICA00200
21 * R2 = USED TO ADDRESS THE ICATS COMMON DATA AREA. * ICA00210
22 * R3 = USED TO ADDRESS THE TERMINAL CONTROL BLOCKS. * ICA00220
23 * R4 = USED TO ADDRESS THE UTS CONTROL BLOCKS. * ICA00230
24 * R5 = USED TO ADDRESS THE USER CONTROL BLOCKS. * ICA00240
25 * R6 = USED TO ADDRESS THE DISK CONTROL BLOCKS. * ICA00250
26 * R7 = MOSTLY FREE, BUT USED TO ADDRESS THE SMSG BUFFER QUEUE. * ICA00260
27 * R8-R10 = FREE * ICA00270
28 * R11 = BASE REGISTER. * ICA00280
29 * R12-R13 = FREE * ICA00290
30 * R14 = MY RETURN ADDRESS WHEN I CALL SOMEBODY * ICA00300
31 * R15 = SUBROUTINE ADDRESS * ICA00310
32 * * ICA00320
33 * LOW CORE USAGE (BECAUSE OF THIS LOW CORE USAGE, THIS PROGRAM * ICA00330
34 * TEMPORARILY CHANGES THE VIRTUAL STORAGE * ICA00340
35 * PROTECT KEY TO 0 TO AVOID PROGRAM EXCEPTIONS, * ICA00350
36 * BUT IMMEDIATELY RESTORES IT) * ICA00360
37 * 1) SAVES AND RESTORES LBENT IN NUCON (THE COUNT OF LOADER * ICA00370
38 * TABLE ENTRIES IN HIGH STORAGE) WHEN LOADING IN A * ICA00380
39 * NON-RESIDENT COMMAND PROCESSING ROUTINE. REPLACED * ICA00390
40 * AFTER THE COMMAND ROUTINE COMPLETES. * ICA00400
41 * * ICA00410
42 * MODULE LOGIC = * ICA00420
43 * I) INITIALIZE * ICA00430
44 * 1) SET UP TO HANDLE SMSGS * ICA00440
45 * A) SET UP TO HANDLE EXTERNAL INTERRUPTS * ICA00450
46 * B) SET LOW ORDER BIT OF CONTROL REGISTER 0 TO 1 * ICA00460
47 * C) AUTHORIZE MYSELF BY ISSUING DIAGNOSE X'68' * ICA00470
48 * 2) DETERMINE THE USER ID OF THIS VIRTUAL MACHINE * ICA00480
49 * AND THE NODE ID OF THIS VM SYSTEM. * ICA00490
50 * II) READ THE CONFIGURATION FILE AND CONFIGURE. * ICA00500
51 * III) TRY TO VARY ON AND ATTACH ALL THE UTS MACHINES TO ME. * ICA00510
52 * IV) CALL THE DISPATCHER TO START DOING SOME WORK. * ICA00520
53 * (DON'T LEAVE THIS LOOP UNTIL WE QUIT) * ICA00530
54 * 1) DISABLE ALL INTERRUPTS SO THAT NEW REQUESTS WON'T * ICA00540
55 * COME IN AFTER WE'VE CHECKED FOR THEM AND BEFORE * ICA00550
56 * THE WAIT STATE IN STEP 6). * ICA00560
1 ICATS MAINLINE PAGE 3
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 57 * 2) CHECK FOR ANY STACKED COMMANDS FROM THE CONSOLE. * ICA00570
58 * IF ANY, GO READ THEM AND PROCESS THE REQUEST. * ICA00580
59 * 3) CHECK FOR INTERRUPTS RECEIVED FROM ANY OF THE * ICA00590
60 * REMOTE, DIALED CONSOLES WE'RE SUPPORTING. * ICA00600
61 * IF ANY HAVE, PROCESS THAT INTERRUPT. * ICA00610
62 * 4) CHECK FOR ANY SMSG'S THAT HAVE COME IN. IF ANY * ICA00620
63 * HAVE, GO PROCESS THE SMSG REQUEST. * ICA00630
64 * 5) CHECK FOR ANY UTS ATTENTION INTERRUPTS. * ICA00640
65 * IF SO, GO READ REQUEST CONTROL BLOCK AND * ICA00650
66 * PROCESS THE REQUEST. * ICA00660
67 * 6) IF NONE OF THE ABOVE, THEN GO INTO A WAIT STATE. * ICA00670
68 * A) LOAD AN ENABLED WAIT STATE POINTING TO THE * ICA00680
69 * TOP OF THIS DISPATCH ROUTINE. WAIT FOR * ICA00690
70 * SOMETHING TO HAPPEN. CMS WILL TURN OFF THE * ICA00700
71 * WAIT BIT IN THIS PSW WHEN AN I/O INTERRUPT * ICA00710
72 * COMES IN. MY EXTERNAL INTERRUPT ROUTINE WILL * ICA00720
73 * TURN IT OFF IF AN SMSG COMES IN. * ICA00730
74 * V) SHUTDOWN * ICA00740
75 * 1) QUIT HANDLING EXTERNAL INTERRUPTS. * ICA00750
76 * 2) SET LOW ORDER BIT OF CONTROL REGISTER 0 TO 0. * ICA00760
77 * 3) UNAUTHORIZE MYSELF BY ISSUING DIAGNOSE X'68'. * ICA00770
78 * 4) RETURN TO CMS WITH A RETURN CODE OF ZERO. * ICA00780
79 * * ICA00790
80 * NORMAL EXIT = * ICA00800
81 * R15 = 0 * ICA00810
82 * * ICA00820
83 * EXTERNAL REFERENCES = ICATEXIH, QUIT, STATUS, TRACE, TEST, FAKIT, * ICA00830
84 * IGNORCMD, CAT, READ, WRITE, TIME, RESTART, * ICA00840
85 * TERMIO, CONFIG, ATTACH, DOTERM, READRCB, * ICA00850
86 * READUTS, WRITEUTS, INTERUTS, DOTERMIO, * ICA00860
87 * MESSAGE, ACCESS, ETTE, PARSE, CONHEX, * ICA00870
88 * CONEHEX, CONDEC, REJECT. * ICA00880
89 * * ICA00890
90 * CONTROL BLOCKS = ICDATA ICATS COMMON DATA AREA * ICA00900
91 * UTSCB UTS MACHINE CONTROL BLOCK * ICA00910
92 * USERCB USER FOR THIS UTS CONTROL BLOCK * ICA00920
93 * DISKCB DISK FOR THIS USER CONTROL BLOCK * ICA00930
94 * TERMCB DIAL-ABLE TERMINALS CONTROL BLOCK * ICA00940
95 * * ICA00950
96 * * ICA00960
97 * NON-STANDARD MACROS (FOUND IN ICATS MACLIB) * ICA00970
98 * ICDATA = ICATS COMMON DATA AREA DSECT. * ICA00980
99 * ETTE = ENTER TRACE TABLE ENTRY SUBROUTINE * ICA00990
100 * * ICA01000
101 * CHANGE ACTIVITY * ICA01010
102 * DATE NAME REASON FOR CHANGE * ICA01020
103 * 01/17/83 RICK JASPER INITIAL PROGRAM CREATION (DEBUG VERSION) * ICA01030
104 * 04/18/83 RICK JASPER MAJOR REVISION * ICA01040
105 * 05/24/83 RICK JASPER ADDED DIAL-ABLE TERMINAL SUPPORT. CAN * ICA01050
106 * NOW LOGON TO UTS FROM VM TERMINAL. * ICA01060
107 * 06/24/83 RICK JASPER CHANGED THE LENGTH OF THE READ FOR THE * ICA01070
108 * REQUEST CONTROL BLOCK FROM 128 TO 108. * ICA01080
109 * THIS WAS BECAUSE OF HARDWARE PROBLEMS * ICA01090
110 * WITH JEFF DOBBEK'S DOBBOX. ONE OF THESE * ICA01100
111 * DAYS HE MAY SAY TO CHANGE IT BACK. * ICA01110
1 ICATS MAINLINE PAGE 4
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 112 * * ICA01120
113 *********************************************************************** ICA01130
1 ICATS MAINLINE PAGE 5
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 115 PRINT GEN,NODATA ICA01150
116 ENTRY ICATS,TRACETBL,NEXTTTE,ICDATA ICA01160
117 EXTRN ICATEXIH ICA01170
020000 118 ICATS START X'20000' CMS LOAD ADDRESS ICA01180
00000 119 USING NUCON,R0 NUCON DOESN'T NEED A BASE REGISTER ICA01190
24CF0 120 USING ICDATA,R2 ADDRESS ICATS COMMON DATA AREA ICA01200
00000 121 USING CBTERM,R3 USE R3 TO ADDRESS TERMINAL CB'S ICA01210
00000 122 USING CBUTS,R4 USE R4 TO ADDRESS UTS CONTROL BLOCK ICA01220
00000 123 USING CBUSER,R5 USE R5 TO ADDRESS USER CONTROL BLOCK ICA01230
00000 124 USING CBDISK,R6 USE R6 TO ADDRESS DISK CONTROL BLOCK ICA01240
00000 125 USING SMSGNTRY,R7 SMSG BUFFER BASE REGISTER. R7 IS ICA01250
126 * USED ONLY OCCASIONALLY AND MUST BE RELOADED EACH TIME ICA01260
20000 127 USING *,R11,R12 R11 AND R12 BOTH WILL BE BASE REGS ICA01270
020000 18BF 128 LR R11,R15 ESTABLISH FIRST BASE REGISTER ICA01280
020002 41CB 0FFF 00FFF 129 LA R12,4095(R11) ESTABLISH SECOND BASE REGISTER ICA01290
020006 41CC 0001 00001 130 LA R12,1(R12) ICA01300
02000A 5820 B58C 2058C 131 L R2,AICDATA ESTABLISH DATA AREA ADDRESSABILITY ICA01310
02000E 50E0 B7A0 207A0 132 ST R14,SAVER14 SAVE CMS RETURN ADDRESS ICA01320
1 ICATS MAINLINE PAGE 6
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 134 *********************************************************************** ICA01340
135 * SET UP TO HANDLE SPECIAL MESSAGES (SMSG'S) * ICA01350
136 *********************************************************************** ICA01360
137 HNDEXT SET,ICATEXIH HANDLE EXTERNAL INTERRUPTS ICA01370
020012 0700 138+ CNOP 0,4 00050000
020014 4510 B024 20024 139+ BAL 1,DMS0001A 00150000
020018 E3D9C1D740404040 140+ DC CL8'TRAP' 00160000
020020 00000000 141+ DC A(ICATEXIH) 00170000
020024 0ACA 142+DMS0001A SVC 202 00180000
020026 0002002A 143+ DC AL4(*+4) 00190000
144 * ICA01380
02002A B600 B594 20594 145 STCTL C0,C0,CONTROL0 GET A COPY OF CONTROL REGISTER 0 ICA01390
02002E 9601 B597 20597 146 OI CONTROL0+3,X'01' TURN ON LOW ORDER BIT AND ICA01400
020032 B700 B594 20594 147 LCTL C0,C0,CONTROL0 RELOAD IT ICA01410
148 * ICA01420
149 * SET UP VMCF PARAMETER LIST (VMCPARM) FOR AUTHORIZE ICA01430
150 * ICA01440
020036 9220 B778 20778 151 MVI VMCPFLG1,VMCPSMSG I WILL ACCEPT SMSG'S ONLY ICA01450
152 * NO SPECIFIC OR PRIORITY REQUESTS ICA01460
02003A D201 B77A B820 2077A 20820 153 MVC VMCPFUNC,=AL2(VMCPAUTH) AUTHORIZE VMCF SUBFUNCTION ICA01470
020040 D203 B788 B808 20788 20808 154 MVC VMCPVADA,=A(SMSGBUFF) SPECIFY MY INPUT BUFFER ICA01480
020046 D203 B78C B80C 2078C 2080C 155 MVC VMCPLENA,=A(L'SMSGBUFF) ICA01490
02004C 4170 B778 20778 156 LA R7,VMCPARM ICA01500
157 DIAG R7,R8,X'0068' AUTHORIZE MYSELF TO ACCEPT SMSG'S ICA01510
020050 83780068 158+ DC 0H'0',X'83',AL.4(R7,R8),Y(X'0068') 00030000
020054 1288 159 LTR R8,R8 CHECK VMCF RETURN CODE ICA01520
020056 4780 B0AC 200AC 160 BZ CONT1 IT REALLY SHOULD NEVER FAIL ICA01530
161 LINEDIT TEXT='THE VMCP AUTHORIZE INSTRUCTION FAILED. THE RETU-ICA01540
RN CODE IS ....',SUB=(DEC,(R8)) ICA01550
02005A 4510 B0A2 200A2 162+ BAL 1,DMSA0004 01140000
02005E 10C1 163+ DC AL1(16,193) FLAG BYTES 01160000
020060 81 164+ DC AL1(DMSC0004) 00190000
020061 3F 165+DMST0004 DC AL1(DMSL0004) LENGTH OF MESSAGE TEXT 01450000
020062 E3C8C540E5D4C3D7 166+ DC C'THE VMCP AUTHORIZE INSTRUCTION FAILED. THE RETURN CODX01480000
02006A 40C1E4E3C8D6D9C9 + E IS ....'
0003F 167+DMSL0004 EQU *-DMST0004-1 TEXT LENGTH 01510000
0200A2 168+DMSA0004 DS 0H 01530000
00081 169+DMSC0004 EQU 129 SUBSTITUTION CODE 00610000
0200A2 1808 170+ LR 0,R8 00170000
0200A4 0ACB 171+ SVC 203 00190000
0200A6 FFFA 172+ DC H'-6' 00190000
0200A8 47F0 B4CA 204CA 173 B QUIT ICA01560
-
175 *********************************************************************** ICA01580
176 * DETERMINE AND SAVE MY VM USER ID AND THIS VM NODE ID. * ICA01590
177 *********************************************************************** ICA01600
200AC 178 CONT1 EQU * ICA01610
0200AC 4110 B5A0 205A0 179 LA R1,IDENTIFY ICA01620
0200B0 0ACA 180 SVC 202 THIS STACKS A LINE INTO THE CONSOLE STACK ICA01630
0200B2 000200B6 181 DC AL4(*+4) ICA01640
182 RDTERM CURRTEXT THE LINE CONTAINS 9 TOKENS LIKE SO, ICA01650
0200B6 183+ DS 0H 00050000
1 ICATS MAINLINE PAGE 7
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
00200B6 0700 184+ CNOP 0,4 00580000
0200B8 4510 B0CC 200CC 185+ BAL 1,DMS0035C 00590000
0200BC E6C1C9E3D9C44040 186+ DC CL8'WAITRD' 00600000
0200C4 01024E96 187+DMS0035A DC X'01',AL3(CURRTEXT) 00610000
0200C8 E4000000 188+DMS0035B DC C'U',AL3(0) 00620000
0200CC 0ACA 189+DMS0035C SVC 202 00630000
0200CE 000200D2 190+ DC AL4(*+4) 00640000
0200D2 4800 B0CA 200CA 191+ LH 0,DMS0035B+2 00650000
0200D6 4110 21A5 24E95 192 LA R1,CURRLEN+1 USERID . NODEID . NET-USER-ID . ICA01660
0200DA 4000 21A4 24E94 193 STH R0,CURRLEN STORE LINE LENGTH JUST BEFORE LINE ICA01670
0200DE 4100 2258 24F48 194 LA R0,PARM1 MIGHT AS WELL TEMPORARILY USE PARM1-15 ICA01680
0200E2 58F0 2020 24D10 195 L R15,APARSE ICA01690
0200E6 05EF 196 BALR R14,R15 ICA01700
0200E8 D207 2064 2258 24D54 24F48 197 MVC MYVMUID,PARM1 ICA01720
0200EE D207 205C 2268 24D4C 24F58 198 MVC MYNODEID,PARM3 ICA01710
0200F4 D207 206C 2278 24D5C 24F68 199 MVC NETVMUID,PARM5 ICA01730
1 ICATS MAINLINE PAGE 8
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 201 *********************************************************************** ICA01750
202 * GO READ IN THE CONFIGURATION FILE, CONFIGURE, AND THEN GO * ICA01760
203 * VARY ON AND ATTACH EACH UTS. * ICA01770
204 *********************************************************************** ICA01780
0200FA 58F0 B810 20810 205 L R15,=V(CONFIG) GET CONFIG MODULE'S ENTRY POINT ICA01790
0200FE 05EF 206 BALR R14,R15 GO CONFIGURE ICA01800
020100 58F0 B814 20814 207 L R15,=V(ATTACH) GO TRY TO VARY ON EACH UTS ICA01810
020104 05EF 208 BALR R14,R15 ICA01820
1 ICATS MAINLINE PAGE 9
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 210 *********************************************************************** ICA01840
211 * THIS IS THE DISPATCHER. LOOP HERE UNTIL THEY SAY TO QUIT. * ICA01850
212 * THIS IS WHERE MY WAIT STATE PSW POINTS TO WHEN THERE'S NOTHING * ICA01860
213 * TO DO. WHEN AN INTERRUPT COMES IN, THE WAIT BIT IN THAT PSW * ICA01870
214 * GETS SHUT OFF AND WE START RUNNING FROM THIS POINT. * ICA01880
215 *********************************************************************** ICA01890
216 * ICA01900
020106 217 DISPATCH DS 0H ICA01910
020106 9140 2230 24F20 218 TM FLAGA,ENDPGM TIME TO QUIT YET ?? ICA01920
02010A 4710 B4CA 204CA 219 BO QUIT YEP, GO AHEAD AND QUIT. ICA01930
02010E 8000 B589 20589 220 SSM DISABSSM SHUT OFF I/O & EXTERNAL INTERRUPTS ICA01940
221 * NUMFINRD IS A NUCON LABEL ICA01950
020112 D501 055C B822 0055C 20822 222 CLC NUMFINRD,=H'0' ANY COMMANDS FROM THE CONSOLE ?? ICA01960
020118 4770 B16C 2016C 223 BNE CONSOLE IF SO, GO BRANCH TO READ COMMAND. ICA01970
224 * ICA01980
02011C 9108 2230 24F20 225 TM FLAGA,TERMINT CHECK FOR A TERMINAL INTERRUPT ICA01990
020120 47E0 B12E 2012E 226 BNO DISPCONA IF THERE WASN'T ONE, CONTINUE ON ICA02000
020124 58F0 B818 20818 227 L R15,=V(DOTERM) ELSE CALL THE ROUTINE THAT'LL ICA02010
228 * HANDLE TERMINAL REQUESTS. ICA02020
020128 05EF 229 BALR R14,R15 GO HANDLE A TERMINAL INTERRUPT ICA02030
02012A 47F0 B106 20106 230 B DISPATCH THEN RETURN TO THE DISPATCHER. ICA02040
231 * ICA02050
02012E D503 2188 218C 24E78 24E7C 232 DISPCONA CLC CURRSMSG,NEXTSMSG SEE IF THERE'S A STACKED SMSG ICA02060
020134 4770 B1A2 201A2 233 BNE SMSG IF THERE WAS ONE, GO GET IT. ICA02070
234 * ICA02080
020138 9180 2230 24F20 235 TM FLAGA,UTSINT CHECK FOR ANY UTS INTERRUPTS ICA02090
02013C 4710 B1E0 201E0 236 BO UTS IF THERE WAS ONE, GO GET RCB. ICA02100
237 * ICA02110
238 *********************************************************************** ICA02120
239 * WE HAVEN'T ANYTHING TO DO, SO LET'S GO INTO AN ENABLED WAIT * ICA02130
240 * STATE UNTIL SOMETHING HAPPENS. IF ANY I/O INTERRUPTS TAKE * ICA02140
241 * PLACE, CMS WILL WAKE US UP BY TURNING OFF THE WAIT BIT IN OUR * ICA02150
242 * PSW. IF AN SMSG COMES IN, OUR EXTERNAL INTERRUPT HANDLER * ICA02160
243 * ROUTINE WILL SHUT IT OFF. * ICA02170
244 *********************************************************************** ICA02180
245 ETTE SLEEPTTE ICA02190
020140 246+ DS 0H ICA00040
020140 4110 B14E 2014E 247+ LA 1,SLEEPTTE GET ADDRESS OF TRACE TABLE ENTRY AND ICA00090
020144 58F0 201C 24D0C 248+ L 15,AETTE 'ENTER TRACE TABLE ENTRY' ROUTINE ICA00100
020148 05EF 249+ BALR 14,15 DO IT TO IT ICA00110
02014A 8200 2038 24D28 250 LPSW WAITPSW WAIT FOR SOMETHING TO HAPPEN ICA02200
02014E 1D 251 SLEEPTTE DC AL1(L'SLEEPTXT) ICA02210
02014F D5D6E3C8C9D5C740 252 SLEEPTXT DC C'NOTHING TO DO. TIME TO SLEEP' ICA02220
02016C 253 DS 0H ICA02230
1 ICATS MAINLINE PAGE 10
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 255 * ICA02250
256 *********************************************************************** ICA02260
257 * COME HERE FROM THE DISPATCHER ROUTINE WITH INTERRUPTS STILL * ICA02270
258 * DISABLED WHEN THERE'S A LINE WAITING TO BE READ FROM THE * ICA02280
259 * CONSOLE. * ICA02290
260 * 1) TURN ON "DOING A CONSOLE COMMAND" FLAG, * ICA02300
261 * 2) TURN THE INTERRUPTS BACK ON, * ICA02310
262 * 3) READ THE LINE, * ICA02320
263 * 4) GO PROCESS THE COMMAND. * ICA02330
264 * 5) TURN OFF "DOING A CONSOLE COMMAND" FLAG * ICA02340
265 *********************************************************************** ICA02350
266 * ICA02360
02016C 267 CONSOLE DS 0H ICA02370
02016C 9680 2231 24F21 268 OI FLAGB,CONSCMD REMEMBER YOU'RE DOING A CONSOLE CMD ICA02380
020170 8000 B588 20588 269 SSM ENABSSM TURN INTERRUPTS BACK ON ICA02390
270 RDTERM CURRTEXT READ THE LINE IN ICA02400
020174 271+ DS 0H 00050000
020174 272+ CNOP 0,4 00580000
020174 4510 B188 20188 273+ BAL 1,DMS0037C 00590000
020178 E6C1C9E3D9C44040 274+ DC CL8'WAITRD' 00600000
020180 01024E96 275+DMS0037A DC X'01',AL3(CURRTEXT) 00610000
020184 E4000000 276+DMS0037B DC C'U',AL3(0) 00620000
020188 0ACA 277+DMS0037C SVC 202 00630000
02018A 0002018E 278+ DC AL4(*+4) 00640000
02018E 4800 B186 20186 279+ LH 0,DMS0037B+2 00650000
020192 4000 21A4 24E94 280 STH R0,CURRLEN REMEMBER LINE LENGTH ICA02410
020196 45E0 B2F4 202F4 281 BAL R14,PARSECMD GO PROCESS THE COMMAND ICA02420
02019A 947F 2231 24F21 282 NI FLAGB,ALL-CONSCMD FINISHED WITH THIS CONSOLE COMMAND ICA02430
02019E 47F0 B106 20106 283 B DISPATCH GO BACK TO DISPATCHER ICA02440
1 ICATS MAINLINE PAGE 11
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 285 * ICA02460
286 *********************************************************************** ICA02470
287 * COME HERE FROM THE DISPATCHER ROUTINE WITH INTERRUPTS STILL * ICA02480
288 * DISABLED WHEN THE CURRENT SMSG POINTER IS NOT EQUAL TO THE * ICA02490
289 * NEXT SMSG POINTER (MEANING THAT THERE'S AN SMSG TO PROCESS). * ICA02500
290 * 1) MOVE THAT SMSG DATA INTO THE CURRENT SMSG AREA, * ICA02510
291 * 2) BUMP TO THE NEXT SMSG BUFFER, * ICA02520
292 * 3) TURN THE INTERRUPTS BACK ON, * ICA02530
293 * 4) GO PROCESS THE COMMAND, * ICA02540
294 * 5) TURN OFF "DOING A CONSOLE COMMAND" FLAG, * ICA02550
295 * 6) AND RETURN TO THE DISPATCHER. * ICA02560
296 *********************************************************************** ICA02570
297 * ICA02580
0201A2 298 SMSG DS 0H ICA02590
0201A2 9640 2231 24F21 299 OI FLAGB,SMSGCMD REMEMBER YOU'RE DOING AN SMSG CMD ICA02600
0201A6 5870 2188 24E78 300 L R7,CURRSMSG PICK UP NEXT SMSG ICA02610
0201AA D207 2048 7000 24D38 00000 301 MVC SMSGVMID,SMSGUID REMEMBER USER ID OF SMSG SENDER ICA02620
0201B0 D201 21A4 7008 24E94 00008 302 MVC CURRLEN,SMSGLEN MOVE SMSG LENGTH ICA02630
0201B6 D281 21A6 700A 24E96 0000A 303 MVC CURRTEXT,SMSGTEXT MOVE IN SMSG TEXT, BLANKS AND ALL ICA02640
0201BC 4177 008B 0008B 304 LA R7,139(R7) BUMP TO NEXT SMSG BUFFER AREA ICA02650
0201C0 5970 2194 24E84 305 C R7,LASTSMSG TOO BIG YET ?? ICA02660
0201C4 47D0 B1CC 201CC 306 BNH SMSGCONT NOPE, CONTINUE ON ICA02670
0201C8 5870 2190 24E80 307 L R7,FRSTSMSG ELSE USE FIRST SMSG BUFFER AGAIN ICA02680
0201CC 308 SMSGCONT DS 0H ICA02690
0201CC 5070 2188 24E78 309 ST R7,CURRSMSG SAVE IT BEFORE INTERRUPTS ARE ON ICA02700
0201D0 8000 B588 20588 310 SSM ENABSSM NOW TURN INTERRUPTS BACK ON ICA02710
0201D4 45E0 B2F4 202F4 311 BAL R14,PARSECMD GO PROCESS THE COMMAND ICA02720
0201D8 94BF 2231 24F21 312 NI FLAGB,ALL-SMSGCMD FINISHED WITH THIS SMSG COMMAND ICA02730
0201DC 47F0 B106 20106 313 B DISPATCH RETURN TO DISPATCHER ICA02740
1 ICATS MAINLINE PAGE 12
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 315 * ICA02760
316 *********************************************************************** ICA02770
317 * COME HERE FROM THE DISPATCHER ROUTINE WITH INTERRUPTS STILL * ICA02780
318 * DISABLED WHEN THERE'S A UTS MACHINE OUT THERE WAITING TO BE * ICA02790
319 * SERVICED. * ICA02800
320 * 1) LOOP THROUGH THE UTSCB CHAIN AND FIND WHICH UTS NEEDS * ICA02810
321 * SERVICING. * ICA02820
322 * A) IF NO UTS NEEDS SERVICING, THEN * ICA02830
323 * 1) TURN OFF THE A-UTS-NEEDS-SERVICING FLAG. * ICA02840
324 * 2) TURN INTERRUPTS BACK ON. * ICA02850
325 * 3) RETURN TO THE DISPATCHER. * ICA02860
326 * B) IF ONE IS FOUND, THEN * ICA02870
327 * 1) TURN OFF HIS INTERRUPT-IS-IN FLAG. * ICA02880
328 * 2) TURN ON HIS I'M-GETTING-SERVICED FLAG. * ICA02890
329 * 3) TURN ON THE I'M-DOING-A-UTS-COMMAND FLAG. * ICA02900
330 * 4) MOVE THE ADDRESS OF THIS UTSCB INTO THISUTS. * ICA02910
331 * 5) TURN INTERRUPTS BACK ON. * ICA02920
332 * 6) GO READ IN THE REQUEST CONTROL BLOCK FROM THIS UTS. * ICA02930
333 * 7) GO PROCESS THE COMMAND. * ICA02940
334 * 8) TURN OFF HIS I'M-GETTING-SERVICED FLAG. * ICA02950
335 * 9) TURN OFF THE I'M-DOING-A-UTS-COMMAND FLAG. * ICA02960
336 * 10) RETURN TO THE DISPATCHER. * ICA02970
337 *********************************************************************** ICA02980
338 * ICA02990
0201E0 339 UTS DS 0H ICA03000
340 * LOOP THROUGH THE UTSCB CHAIN TO SEE WHICH UTS NEEDED SERVICING ICA03010
341 * IT'LL BE THE ONE WITH THE INTERRUPT-IS-IN FLAG TURNED ON. ICA03020
0201E0 5840 217C 24E6C 342 L R4,CBFIRST GET ADDRESS OF FIRST UTSCB ICA03030
0201E4 1244 343 UTSLOOPA LTR R4,R4 ARE WE PAST THE END-OF-CHAIN ?? ICA03040
0201E6 4780 B1FA 201FA 344 BZ UTSNONE YEP, A NEEDY UTS WAS NOT FOUND ICA03050
0201EA 9140 4014 00014 345 TM CBUTSFGA,INTISIN ELSE, SEE IF THIS ONE'S IN NEED ICA03060
0201EE 4710 B206 20206 346 BO UTSGOTIT YEP, IT IS. GO SERVICE HIM. ICA03070
0201F2 5840 4008 00008 347 L R4,CBUTSFP HAVEN'T FOUND A NEEDY UTS YET. ICA03080
0201F6 47F0 B1E4 201E4 348 B UTSLOOPA GO CHECK THE NEXT ONE. ICA03090
349 * ICA03100
350 * COME HERE WHEN THERE'S NO UTS OUT THERE THAT NEEDS TO BE SERVICED. ICA03110
351 * THIS'LL HAPPEN AFTER WE'VE JUST GOT THROUGH SERVICING ONE AND A ICA03120
352 * NEW REQUEST FROM ANOTHER UTS HAS NOT COME IN (NORMAL CASE). ICA03130
0201FA 353 UTSNONE DS 0H ICA03140
0201FA 947F 2230 24F20 354 NI FLAGA,ALL-UTSINT TURN OFF UTS INTERRUPT SWITCH ICA03150
0201FE 8000 B588 20588 355 SSM ENABSSM TURN INTERRUPTS BACK ON ICA03160
020202 47F0 B106 20106 356 B DISPATCH RETURN TO DISPATCHER ICA03170
357 * ICA03180
358 * WE'VE FOUND A UTS THAT NEEDS SERVICING. LET'S GO DO IT. ICA03190
020206 359 UTSGOTIT DS 0H ICA03200
020206 94BF 4014 00014 360 NI CBUTSFGA,ALL-INTISIN TURN OFF INTERRUPT-IS-IN FLAG ICA03210
02020A 9620 4014 00014 361 OI CBUTSFGA,IGOTIT TURN ON I'M-GETTING-IT FLAG ICA03220
02020E 9620 2231 24F21 362 OI FLAGB,UTSCMD REMEMBER YOU'RE DOING A UTS CMD ICA03230
020212 5040 2248 24F38 363 ST R4,THISUTS REMEMBER THIS UTSCB ADDRESS ICA03240
020216 8000 B588 20588 364 SSM ENABSSM TURN INTERRUPTS BACK ON ICA03250
365 * GO GET HIS REQUEST COMMAND BLOCK ICA03260
366 * LA R0,128 R0 = LENGTH OF THE REQUEST CONTROL BLOCK ICA03270
02021A 4100 006C 0006C 367 LA R0,108 FOR NOW, ONLY READ 108 BYTES. RAJ 6-24-83 ICA03280
02021E 4110 2250 24F40 368 LA R1,PARM0 R1 = ADDRESS OF THE RCB ICA03290
020222 58F0 2000 24CF0 369 L R15,AREADRCB ICA03300
1 ICATS MAINLINE PAGE 13
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0020226 05EF 370 BALR R14,R15 GO READ IN THE REQUEST CONTROL BLOCK ICA03310
020228 12AF 371 LTR R10,R15 WERE THERE ANY I/O ERRORS ?? ICA03320
02022A 4780 B2E0 202E0 372 BZ DOUTSCMD ICA03330
02022E 4880 4016 00016 373 LH R8,CBUTSCSW ICA03340
020232 1B99 374 SR R9,R9 ICA03350
020234 4390 2171 24E61 375 IC R9,SENSE0 ICA03360
376 LINEDIT TEXT='I/O ERROR GETTING REQUEST CONTROL BLOCK. REQUES-ICA03370
T IGNORED. READRCB RC = ...., CSW STATUS = ...., SENSE -ICA03380
BYTE = ..',SUB=(DEC,(R10),HEX,(R8),HEX,(R9)),RENT=NO ICA03390
020238 4510 B2C0 202C0 377+ BAL 1,DMSA0039 01140000
02023C 08C1 378+ DC AL1(8,193) FLAG BYTES 01160000
02023E 0000000000000000 379+ DC (3)XL5'00' 00190000
02024D 71 380+DMST0039 DC AL1(DMSL0039) LENGTH OF MESSAGE TEXT 01450000
02024E C961D640C5D9D9D6 381+ DC C'I/O ERROR GETTING REQUEST CONTROL BLOCK. REQUEST IGNOX01480000
020256 D940C7C5E3E3C9D5 + RED. READRCB RC = ...., CSW STATUS = ...., SENSE BYTE =X
02025E C740D9C5D8E4C5E2 + ..'
00071 382+DMSL0039 EQU *-DMST0039-1 TEXT LENGTH 01510000
0202C0 383+DMSA0039 DS 0H 01530000
0202C0 9201 1002 00002 384+ MVI 2(1),1 SET OPTION CODE 00930000
0202C4 BEAF 1003 00003 385+ STCM R10,B'1111',3(1) 00150000
0202C8 9200 1007 00007 386+ MVI 7(1),0 SET OPTION CODE 00930000
0202CC BE8F 1008 00008 387+ STCM R8,B'1111',8(1) 00150000
0202D0 9280 100C 0000C 388+ MVI 12(1),128 SET OPTION CODE 00930000
0202D4 BE9F 100D 0000D 389+ STCM R9,B'1111',13(1) 00150000
0202D8 0ACB 390+ SVC 203 00190000
0202DA FFFA 391+ DC H'-6' 00190000
0202DC 47F0 B2E4 202E4 392 B DONTDO ICA03400
0202E0 45E0 B30A 2030A 393 DOUTSCMD BAL R14,DOCMD GO PROCESS THE COMMAND ICA03410
0202E4 94DF 2231 24F21 394 DONTDO NI FLAGB,ALL-UTSCMD FINISHED WITH THIS UTS COMMAND ICA03420
0202E8 94DF 4014 00014 395 NI CBUTSFGA,ALL-IGOTIT TURN OFF I'M-GETTING-IT FLAG ICA03430
0202EC 94EF 2232 24F22 396 NI FLAGC,ALL-FAKEINT RESET FAKE UTS INTERRUPT FLAG ICA03440
0202F0 47F0 B106 20106 397 B DISPATCH RETURN TO DISPATCHER ICA03450
1 ICATS MAINLINE PAGE 14
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 399 *********************************************************************** ICA03470
400 * THIS IS THE COMMAND PROCESSOR. COME HERE TO INTERPRET THE * ICA03480
401 * COMMAND AND TO LOCATE AND EXECUTE THE CORRECT COMMAND ROUTINE. * ICA03490
402 * THERE ARE TWO ENTRY POINTS YOU CAN BRANCH AND LINK TO, * ICA03500
403 * PARSECMD - IF YOU NEED UNFORMATTED INPUT PARSED INTO 8-BYTE * ICA03510
404 * TOKENS (USING CMS'S SCAN ROUTINE) FIRST, OR * ICA03520
405 * DOCMD - IF THE COMMAND IS ALREADY PARSED (AS IT IS WHEN THE * ICA03530
406 * COMMAND IS FROM ONE OF THE UTS MACHINES). * ICA03540
407 * UPON ENTRY, THE FOLLOWING CONDITIONS ARE SET UP; * ICA03550
408 * R2 = ADDRESS OF ICDATA (AS ALWAYS) * ICA03560
409 * R11 = FIRST BASE REGISTER * ICA03570
410 * R12 = SECOND BASE REGISTER * ICA03580
411 * R14 = MY RETURN ADDRESS. * ICA03590
412 * FLAGB = INDICATES WHETHER THIS IS A CONSOLE COMMAND, AN * ICA03600
413 * SMSG COMMAND, OR A UTS COMMAND. * ICA03610
414 * PARM0 = REQUESTOR'S USER ID (CONSOLE & SMSG CMDS ONLY). * ICA03620
415 * CURRLEN = LENGTH OF UNPARSED COMMAND IF PARSE REQUESTED. * ICA03630
416 * CURRTEXT = UNPARSED COMMAND TEXT IF PARSE REQUESTED. * ICA03640
417 * PARM0-PARM15 = UP TO 16 8-BYTE TOKENS IF COMMAND IS * ICA03650
418 * ALREADY PARSED. * ICA03660
419 * * ICA03670
420 * FUNCTION: * ICA03680
421 * 1) IF PARSING IS NEEDED, THE FIELDS CURRLEN & CURRTEXT * ICA03690
422 * ARE PARSED INTO THE FIELDS PARM1-PARM15. * ICA03700
423 * 2) PUT AN ENTRY INTO THE TRACE TABLE. * ICA03710
424 * 3) PARM1 IS TAKEN TO BE THE COMMAND NAME AND A CHECK * ICA03720
425 * IS MADE OF THE RESIDENT COMMAND ROUTINE LIST. * ICA03730
426 * IF THE COMMAND IS RESIDENT, THEN TURN ON THE * ICA03740
427 * RESIDENT-COMMAND FLAG AND GO TO STEP 5). * ICA03750
428 * 4) IF THE COMMAND IS NOT RESIDENT, LOOK ON OUR DISK * ICA03760
429 * FOR THE FILE 'COMMAND-NAME TEXT A'. IF THERE, THEN * ICA03770
430 * GO TO STEP 4), ELSE IT'S AN UNKNOWN COMMAND NAME. * ICA03780
431 * REJECT THIS REQUEST. * ICA03790
432 * 5) IF THE COMMAND EXISTS OUT ON DISK, THEN SAVE THE * ICA03800
433 * LOADER COUNT AND "INCLUDE" THE TEXT FILE IN. * ICA03810
434 * CONTINUE ON JUST AS IF THE ROUTINE WAS RESIDENT ALL * ICA03820
435 * ALONG (EXCEPT THE RESIDENT-COMMAND FLAG IS NOT SET). * ICA03830
436 * 6) BRANCH AND LINK TO THE COMMAND ROUTINE. * ICA03840
437 * 7) UPON RETURN, IF THE RESIDENT-COMMAND FLAG IS OFF, * ICA03850
438 * THEN RESTORE THE LOADER COUNT. * ICA03860
439 * 8) YOU'RE DONE PROCESSING THIS COMMAND. RETURN TO CALLER. * ICA03870
440 *********************************************************************** ICA03880
0202F4 441 PARSECMD DS 0H ICA03890
0202F4 50E0 B7A4 207A4 442 ST R14,DOCMDR14 SAVE MY RETURN ADDRESS ICA03900
0202F8 4100 2258 24F48 443 LA R0,PARM1 PUT PARMS STARTING AT PARM1, NOT PARM0 ICA03910
0202FC 4110 21A5 24E95 444 LA R1,CURRLEN+1 GET ADDRESS OF COMMAND LENGTH & TEXT ICA03920
020300 58F0 2020 24D10 445 L R15,APARSE GET ADDRESS OF PARSE ROUTINE ICA03930
020304 05EF 446 BALR R14,R15 GO PARSE THE COMMAND LINE ICA03940
020306 47F0 B30E 2030E 447 B CMDCONTB GO INTERPRET WHAT WE'VE GOT ICA03950
448 * ICA03960
449 * ALTERNATE ENTRY POINT WHEN YOU DON'T REQUIRE PARSING ICA03970
450 * ICA03980
02030A 451 DOCMD DS 0H ICA03990
02030A 50E0 B7A4 207A4 452 ST R14,DOCMDR14 SAVE MY RETURN ADDRESS ICA04000
02030E 453 CMDCONTB DS 0H ICA04010
1 ICATS MAINLINE PAGE 15
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 454 * PUT AN ENTRY INTO THE TRACE TABLE ICA04020
02030E 9120 2231 24F21 455 TM FLAGB,UTSCMD START THE TRACE TABLE ENTRY ICA04030
020312 47E0 B320 20320 456 BNO CMDTRAC1 WITH THE TYPE OF COMMAND THIS ICA04040
020316 D206 2229 B826 24F19 20826 457 MVC DISPTYPE,=C'UTS ' IS, EITHER A UTS COMMAND, A ICA04050
02031C 47F0 B338 20338 458 B CMDTRAC3 CONSOLE COMMAND, OR A SMSG ICA04060
020320 9180 2231 24F21 459 CMDTRAC1 TM FLAGB,CONSCMD COMMAND. ICA04070
020324 47E0 B332 20332 460 BNO CMDTRAC2 ICA04080
020328 D206 2229 B82D 24F19 2082D 461 MVC DISPTYPE,=C'CONSOLE' ICA04090
02032E 47F0 B338 20338 462 B CMDTRAC3 ICA04100
020332 D206 2229 B834 24F19 20834 463 CMDTRAC2 MVC DISPTYPE,=C'SMSG ' ICA04110
464 CMDTRAC3 ETTE DISPTTE RECORD PARM0 - PARM15 ICA04120
020338 465+CMDTRAC3 DS 0H ICA00040
020338 4110 2228 24F18 466+ LA 1,DISPTTE GET ADDRESS OF TRACE TABLE ENTRY AND ICA00090
02033C 58F0 201C 24D0C 467+ L 15,AETTE 'ENTER TRACE TABLE ENTRY' ROUTINE ICA00100
020340 05EF 468+ BALR 14,15 DO IT TO IT ICA00110
020342 4870 B64A 2064A 469 LH R7,CMDCNT GET COUNT OF RESIDENT COMMANDS ICA04130
020346 1277 470 LTR R7,R7 TEST FOR NO RESIDENT COMMANDS ICA04140
020348 4780 B366 20366 471 BZ NOTRES BRANCH IF THERE ARE NONE TO CHECK ICA04150
02034C 4180 B64C 2064C 472 LA R8,RESCMDS GET ADDRESS OF RESIDENT COMMAND NAMES ICA04160
020350 47F0 B358 20358 473 B CMDCONTC SKIP NEXT INSTR. FIRST TIME THROUGH ICA04170
020354 4188 000C 0000C 474 CMDUP3 LA R8,12(R8) BUMP TO THE NEXT RESIDENT COMMAND NAME ICA04180
020358 D507 2258 8000 24F48 00000 475 CMDCONTC CLC PARM1,0(R8) IS IT THIS RESIDENT COMMAND ?? ICA04190
02035E 4780 B46E 2046E 476 BE FOUNDRES YEP, GOT A RESIDENT COMMAND ICA04200
020362 4670 B354 20354 477 BCT R7,CMDUP3 NOPE, CHECK NEXT RESIDENT COMMAND NAME ICA04210
478 * ICA04220
020366 479 NOTRES DS 0H THIS COMMAND IS NOT RESIDENT, LOOK FOR IT ON DISK ICA04230
020366 D207 B608 2258 20608 24F48 480 MVC STATEFN,PARM1 MOVE COMMAND NAME INTO FSSTATE FN ICA04240
02036C 4170 B608 20608 481 LA R7,STATEFN PREPARE FOR FSSTATE MACRO ICA04250
482 FSSTATE (R7) DOES THE FILE COMMAND-NAME TEXT A EXIST ? ICA04260
020370 483+ CNOP 0,4 00840000
020370 4510 B394 20394 484+ BAL 1,DMS0095A 00850000
020374 E2E3C1E3C5404040 485+ DC CL8'STATE' 00870000
02037C 4040404040404040 486+ DC CL8' ' 00920000
020384 4040404040404040 487+ DC CL8' ' 00930000
02038C 4040 488+ DC CL2' ' 00940000
02038E 4040 489+ DC CL2' ' 00950000
020390 00000000 490+ DC AL4(0) 00960000
20394 491+DMS0095A EQU * 00970000
020394 D211 1008 7000 00008 00000 492+ MVC 8(18,1),0(R7) 00990000
02039A 0ACA 493+ SVC 202 01020000
02039C 000203A4 494+ DC AL4(*+8) 01070000
0203A0 5810 101C 0001C 495+ L 1,28(,1) 01090000
0203A4 12FF 496 LTR R15,R15 WAS THE FILE FOUND ?? ICA04270
0203A6 4770 B496 20496 497 BNZ BADCMD NO, THIS MUST BE A INVALID COMMAND ICA04280
498 *********************************************************************** ICA04290
499 * WE'VE FOUND THE FILE COMMAND-NAME TEXT ON OUR A-DISK. NOW * ICA04300
500 * LOAD IT IN (ACTUALLY DONE WITH CMS'S INCLUDE COMMAND, NOT * ICA04310
501 * CMS'S LOAD COMMAND SO THAT THE LOADER TABLES ARE PRESERVED * ICA04320
502 * AND THE COMMAND MODULE'S EXTERNAL REFERENCES GET RESOLVED) * ICA04330
503 *********************************************************************** ICA04340
0203AA 504 CMDCONTD DS 0H ICA04350
0203AA 9620 2232 24F22 505 OI FLAGC,NORESCMD TURN ON NON-RESIDENT COMMAND FLAG ICA04360
0203AE D201 B648 0590 20648 00590 506 MVC SAVTBENT,TBENT SAVE LOADER'S EXTERNAL ENTRY COUNT ICA04370
507 * SO THAT NEXT TIME WE CALL THIS COMMAND, WE WON'T GET THE ICA04380
508 * "DUPLICATE IDENTIFIER" MESSAGE FROM THE LOADER ICA04390
1 ICATS MAINLINE PAGE 16
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
00203B4 D207 B5C8 2258 205C8 24F48 509 MVC CMDNAME,PARM1 MOVE COMMAND NAME TO INCLUDE CMD FN ICA04400
0203BA 5810 B598 20598 510 L R1,AINCLCMD ICA04410
0203BE 0ACA 511 SVC 202 GO LOAD IN THE COMMAND MODULE ICA04420
0203C0 000203C4 512 DC AL4(*+4) ICA04430
0203C4 5880 B81C 2081C 513 L R8,=X'0002C000' GET COMMAND MODULE'S ENTRY POINT ICA04440
0203C8 127F 514 LTR R7,R15 DID EVERYTHING GO OK WITH THE LOAD? ICA04450
0203CA 4780 B472 20472 515 BZ CMDCONTE GREAT, CONTINUE ON ICA04460
516 *********************************************************************** ICA04470
517 * YOU GOT SOME ERROR LOADING THIS COMMAND ROUTINE IN. SEE WHO TO * ICA04480
518 * GIVE THIS ERROR MESSAGE TO, THE UTS, THE CONSOLE, OR THE SMSG'ER. * ICA04490
519 *********************************************************************** ICA04500
0203CE 9120 2231 24F21 520 TM FLAGB,UTSCMD IS THIS A UTS COMMAND ?? ICA04510
0203D2 47E0 B3EE 203EE 521 BNO LOADCONA NOPE, CONTINUE ON ICA04520
522 * SET RETCODE = X'5000' AND DATA LENGTH = 0 ICA04530
0203D6 D207 22C8 B7F8 24FB8 207F8 523 MVC PARM15,=X'5000000000000000' ICA04540
0203DC 4100 0080 00080 524 LA R0,128 PREPARE FOR REPLY-TO-UTS ROUTINE ICA04550
0203E0 4110 2250 24F40 525 LA R1,PARM0 ICA04560
0203E4 58F0 2008 24CF8 526 L R15,AWRITUTS GIVE THE REPLY CONTROL BLOCK TO THE UTS ICA04570
0203E8 05EF 527 BALR R14,R15 IGNORE ANY ERRORS ICA04580
0203EA 47F0 B46A 2046A 528 B LOADBYE RETURN TO THE DISPATCHER ICA04590
0203EE 529 LOADCONA DS 0H ICA04600
530 LINEDIT TEXT='ERROR LOADING THE ........ COMMAND ROUTINE. INC-ICA04610
LUDE COMMAND RC = ....',SUB=(CHARA,PARM1,DEC,(R7)),RENT=-ICA04620
NO,DISP=NONE,BUFFA=MYBUFR ICA04630
0203EE 4510 B448 20448 531+ BAL 1,DMSA0097 01140000
0203F2 28C3 532+ DC AL1(40,195) FLAG BYTES 01160000
0203F4 0207A8 533+ DC AL3(MYBUFR) 00190000
0203F7 0000000000000000 534+ DC (2)XL5'00' 00190000
020401 46 535+DMST0097 DC AL1(DMSL0097) LENGTH OF MESSAGE TEXT 01450000
020402 C5D9D9D6D940D3D6 536+ DC C'ERROR LOADING THE ........ COMMAND ROUTINE. INCLUDE CX01480000
02040A C1C4C9D5C740E3C8 + OMMAND RC = ....'
00046 537+DMSL0097 EQU *-DMST0097-1 TEXT LENGTH 01510000
020448 538+DMSA0097 DS 0H 01530000
020448 9242 1005 00005 539+ MVI 5(1),66 SET OPTION CODE 00930000
02044C 41F0 2258 24F48 540+ LA 15,PARM1 00170000
020450 BEF7 1006 00006 541+ STCM 15,B'0111',6(1) 00150000
020454 9281 1009 00009 542+ MVI 9(1),129 SET OPTION CODE 00930000
020458 BE7F 100A 0000A 543+ STCM R7,B'1111',10(1) 00150000
02045C 0ACB 544+ SVC 203 00190000
02045E FFFA 545+ DC H'-6' 00190000
020460 4110 B7A8 207A8 546 LA R1,MYBUFR GET ADDRESS OF INVALID COMMAND MESSAGE ICA04640
020464 58F0 2014 24D04 547 L R15,AMESSAGE GET THE ADDRESS OF THE MESSAGE ROUTINE ICA04650
020468 05EF 548 BALR R14,R15 DELIVER THE ABOVE MESSAGE ICA04660
02046A 549 LOADBYE DS 0H ICA04670
02046A 47F0 B476 20476 550 B CMDEND WE'RE FINISHED HERE. ICA04680
1 ICATS MAINLINE PAGE 17
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
002046E 552 FOUNDRES DS 0H ICA04700
02046E 5888 0008 00008 553 L R8,8(R8) GET RESIDENT COMMAND'S ENTRY POINT ICA04710
020472 554 CMDCONTE DS 0H ICA04720
555 *********************************************************************** ICA04730
556 * JOIN HERE WHETHER COMMAND IS RESIDENT OR NOT WITH ITS STARTING * ICA04740
557 * ADDRESS IN R8, WAITING FOR THE BALR TO IT. * ICA04750
558 *********************************************************************** ICA04760
020472 18F8 559 LR R15,R8 MOVE COMMAND ENTRY POINT TO R15 ICA04770
020474 05EF 560 BALR R14,R15 GO DO THIS COMMAND ICA04780
561 *********************************************************************** ICA04790
562 * WE ARE DONE PROCESSING THIS COMMAND (FOR BETTER OR FOR WORSE). * ICA04800
563 * CHECK TO SEE IF WE GOTTA RESTORE THE LOADER FLAG AND RETURN. * ICA04810
564 *********************************************************************** ICA04820
020476 565 CMDEND DS 0H ICA04830
020476 9120 2232 24F22 566 TM FLAGC,NORESCMD ICA04840
02047A 47E0 B490 20490 567 BNO CMDCONTF DON'T DO IT IF A RESIDENT CMD ICA04850
02047E B20A 0000 00000 568 SPKA 0(0) SET PSW KEY TO 0 FOR STORE, ELSE ICA04860
569 * WE'LL GET A PROTECTION EXCEPTION ICA04870
020482 D201 0590 B648 00590 20648 570 MVC TBENT,SAVTBENT RESTORE LOADER'S COUNTER IN NUCON ICA04880
020488 B20A 00E0 000E0 571 SPKA X'E0' SET PSW KEY BACK TO NORMAL (X'E') ICA04890
02048C 94DF 2232 24F22 572 NI FLAGC,ALL-NORESCMD RESET FLAG ICA04900
020490 58E0 B7A4 207A4 573 CMDCONTF L R14,DOCMDR14 ICA04910
020494 07FE 574 BR R14 RETURN TO CALLER ICA04920
1 ICATS MAINLINE PAGE 18
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 576 *********************************************************************** ICA04940
577 * COME HERE WHEN THIS COMMAND ISN'T IN OUR RESIDENT COMMAND LIST AND * ICA04950
578 * WE CAN'T FIND IT ON OUR A-DISK, THEREFORE IT'S AN INVALID COMMAND. * ICA04960
579 * DETERMINE WHERE IT CAME FROM AND TELL HIM HE SCREWED UP. * ICA04970
580 *********************************************************************** ICA04980
020496 581 BADCMD DS 0H ICA04990
020496 9120 2231 24F21 582 TM FLAGB,UTSCMD IS THIS A UTS COMMAND ?? ICA05000
02049A 47E0 B4B6 204B6 583 BNO BADCONTA NOPE, CONTINUE ON ICA05010
584 * SET RETCODE = X'1000' AND DATA LENGTH = 0 ICA05020
02049E D207 22C8 B800 24FB8 20800 585 MVC PARM15,=X'1000000000000000' ICA05030
0204A4 4100 0080 00080 586 LA R0,128 PREPARE FOR REPLY-TO-UTS ROUTINE ICA05040
0204A8 4110 2250 24F40 587 LA R1,PARM0 ICA05050
0204AC 58F0 2008 24CF8 588 L R15,AWRITUTS GIVE THE REPLY CONTROL BLOCK TO THE UTS ICA05060
0204B0 05EF 589 BALR R14,R15 IGNORE ANY ERRORS. ICA05070
0204B2 47F0 B4C6 204C6 590 B BADBYE RETURN TO THE DISPATCHER ICA05080
0204B6 591 BADCONTA DS 0H ICA05090
0204B6 D207 B755 2258 20755 24F48 592 MVC MSG1CMD,PARM1 PUT THE INVALID COMMAND IN THE MESSAGE ICA05100
0204BC 4110 B754 20754 593 LA R1,MSG1 GET ADDRESS OF INVALID COMMAND MESSAGE ICA05110
0204C0 58F0 2014 24D04 594 L R15,AMESSAGE GET THE ADDRESS OF THE MESSAGE ROUTINE ICA05120
0204C4 05EF 595 BALR R14,R15 SAY "XXX IS NOT AN ICATS COMMAND" ICA05130
596 * THE REASON I DON'T USE THE REJECT ROUTINE HERE IS BECAUSE I WANTED ICA05140
597 * TO DIFFERENTIATE BETWEEN NOT FINDING THE COMMAND MODULE AS IN THIS ICA05150
598 * CASE, AND A COMMAND MODULE REJECTING THE COMMAND. ICA05160
599 * THE FIRST CASE GIVES XXX IS NOT AN ICATS COMMAND. ICA05170
600 * THE SECOND CASE GIVES XXX IS AN INVALID ICATS COMMAND. ICA05180
0204C6 601 BADBYE DS 0H ICA05190
0204C6 47F0 B476 20476 602 B CMDEND WE'RE FINISHED HERE. ICA05200
1 ICATS MAINLINE PAGE 19
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 604 *********************************************************************** ICA05220
605 * HERE IS WHERE THE SHUTDOWN ROUTINE GOES * ICA05230
606 *********************************************************************** ICA05240
0204CA 607 QUIT DS 0H ICA05250
608 * ICA05260
609 * BLAH BLAH BLAH BLAH BLAH BLAH BLAH ICA05270
610 * THERE'S WORK TO BE DONE HERE ALSO, LIKE STOP TAKING INTERRUPTS ICA05280
611 * FROM THE UTS'S ICA05290
612 HNDEXT CLR STOP HANDLING EXTERNAL INTERRUPTS ICA05300
0204CA 0700 613+ CNOP 0,4 00050000
0204CC 4510 B4DC 204DC 614+ BAL 1,DMS0145A 00150000
0204D0 E3D9C1D740404040 615+ DC CL8'TRAP' 00160000
0204D8 00000000 616+ DC A(0) 00170000
0204DC 0ACA 617+DMS0145A SVC 202 00180000
0204DE 000204E2 618+ DC AL4(*+4) 00190000
0204E2 94FE B597 20597 619 NI CONTROL0+3,X'FE' SHUT OFF THAT BIT TO STOP TAKING ICA05310
0204E6 B700 B594 20594 620 LCTL C0,C0,CONTROL0 SMSG'S AND RESTORE CONTROL REG 0 ICA05320
621 * ICA05330
622 * SET UP VMCF PARAMETER LIST (VMCPARM) FOR UNAUTHORIZE ICA05340
623 * ICA05350
0204EA D201 B77A B824 2077A 20824 624 MVC VMCPFUNC,=AL2(VMCPUAUT) UNAUTHORIZE VMCF SUBFUNCTION ICA05360
0204F0 4170 B778 20778 625 LA R7,VMCPARM ICA05370
626 DIAG R7,R8,X'0068' ICA05380
0204F4 83780068 627+ DC 0H'0',X'83',AL.4(R7,R8),Y(X'0068') 00030000
0204F8 1288 628 LTR R8,R8 CHECK VMCF RETURN CODE ICA05390
0204FA 4780 B54E 2054E 629 BZ QUIT1 IT REALLY SHOULD NEVER FAIL ICA05400
630 LINEDIT TEXT='THE VMCP UNAUTHORIZE INSTRUCTION FAILED. THE RE-ICA05410
TURN CODE IS ....',SUB=(DEC,(R8)) ICA05420
0204FE 4510 B548 20548 631+ BAL 1,DMSA0148 01140000
020502 10C1 632+ DC AL1(16,193) FLAG BYTES 01160000
020504 81 633+ DC AL1(DMSC0148) 00190000
020505 41 634+DMST0148 DC AL1(DMSL0148) LENGTH OF MESSAGE TEXT 01450000
020506 E3C8C540E5D4C3D7 635+ DC C'THE VMCP UNAUTHORIZE INSTRUCTION FAILED. THE RETURN CX01480000
02050E 40E4D5C1E4E3C8D6 + ODE IS ....'
00041 636+DMSL0148 EQU *-DMST0148-1 TEXT LENGTH 01510000
020548 637+DMSA0148 DS 0H 01530000
00081 638+DMSC0148 EQU 129 SUBSTITUTION CODE 00610000
020548 1808 639+ LR 0,R8 00170000
02054A 0ACB 640+ SVC 203 00190000
02054C FFFA 641+ DC H'-6' 00190000
02054E 642 QUIT1 DS 0H ICA05430
643 *********************************************************************** ICA05440
644 * GET RID OF ALL THE DIALABLE TERMINALS. * ICA05450
645 *********************************************************************** ICA05460
02054E 5830 2178 24E68 646 L R3,TERM1ST GET ADDRESS OF FIRST TERMCB ICA05470
020552 1233 647 LOOPA LTR R3,R3 ARE WE PAST THE END-OF-CHAIN ?? ICA05480
020554 4780 B570 20570 648 BZ QUIT2 YEP, GET OUT OF THIS LOOP. ICA05490
020558 D202 B638 3012 20638 00012 649 MVC DROPCUU(3),CBTERMEA ICA05500
02055E 4110 B628 20628 650 LA R1,DROPCMD ICA05510
020562 0ACA 651 SVC 202 ICA05520
020564 00020568 652 DC AL4(*+4) ICA05530
020568 5830 3000 00000 653 L R3,CBTERMFP GO ON TO NEXT TERMINAL ICA05540
02056C 47F0 B552 20552 654 B LOOPA IF THERE IS A NEXT ONE. ICA05550
020570 655 QUIT2 DS 0H ICA05560
020570 41F0 0000 00000 656 LA R15,0 MAKE CMS RETURN CODE = 0 ICA05570
1 ICATS MAINLINE PAGE 20
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0020574 58E0 B7A0 207A0 657 L R14,SAVER14 ICA05580
020578 07FE 658 BR R14 RETURN TO CMS ICA05590
659 DROP R11 ICA05600
660 DROP R12 ICA05610
661 * ICA05620
662 *********************************************************************** ICA05630
663 ******************* ******************* ICA05640
664 ******************* END OF ICATS MAINLINE ******************* ICA05650
665 ******************* ******************* ICA05660
666 *********************************************************************** ICA05670
1 ICATS MAINLINE PAGE 21
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 668 PRINT GEN,NODATA ICA05690
669 * ICA05700
670 *********************************************************************** ICA05710
671 * START OF ICATS DATA AREA * ICA05720
672 *********************************************************************** ICA05730
673 * ICA05740
020580 674 DS 0D PUT PSW'S ON DOUBLEWORD BOUNDARY ICA05750
020580 675 CMSXNEW DS D SAVE AREA FOR CMS'S EXTERNAL NEW PSW ICA05760
020588 FF 676 ENABSSM DC X'FF' MASK TO ENABLE I/O & EXT. INTERRUPTS ICA05770
020589 00 677 DISABSSM DC X'00' MASK TO DISABLE I/O & EXT. INTERRUPTS ICA05780
02058A 0000
02058C 00024CF0 678 AICDATA DC A(ICDATA) ADDRESS OF ICATS COMMON DATA AREA ICA05790
020590 679 TEMP DS F TEMPORARY WORK SPACE ICA05800
020594 680 CONTROL0 DS F MY CONTROL REGISTER 0 - LATER RESTORED ICA05810
681 * THE NEXT LINE MUST BE DONE THIS WAY INSTEAD OF A LA INSTRUCTION ICA05820
020598 000205C0 682 AINCLCMD DC X'00',AL3(INCLCMD) TO INSURE HIGH ORDER BYTE IS X'00' ICA05830
0205A0 683 IDENTIFY DS 0D IDENTIFY COMMAND ICA05840
0205A0 C9C4C5D5E3C9C6E8 684 DC CL8'IDENTIFY' ICA05850
0205A8 4D40404040404040 685 DC CL8'(' ICA05860
0205B0 D3C9C6D640404040 686 DC CL8'LIFO' ICA05870
0205B8 FFFFFFFFFFFFFFFF 687 DC 8X'FF' ICA05880
688 * ICA05890
0205C0 689 INCLCMD DS 0D CMS INCLUDE COMMAND TO LOAD ICA05900
0205C0 C9D5C3D3E4C4C540 690 DC CL8'INCLUDE' NON-RESIDENT COMMAND MODULES IN WITH ICA05910
0205C8 691 CMDNAME DS CL8 ICA05920
0205D0 4D40404040404040 692 DC CL8'(' ICA05930
0205D8 D6D9C9C7C9D54040 693 DC CL8'ORIGIN' PUT HIM AT X'2C000' SINCE I'M AT ICA05940
0205E0 F2C3F0F0F0404040 694 DC CL8'2C000' X'20000' - THAT GIVES ME 48 K ICA05950
0205E8 D5D6D4C1D7404040 695 DC CL8'NOMAP' DON'T BOTHER WITH A LOAD MAP ICA05960
0205F0 D5D6C1E4E3D64040 696 DC CL8'NOAUTO' DON'T RESOLVE UNRESOLVED REFERENCES ICA05970
0205F8 D5D6D3C9C2C54040 697 DC CL8'NOLIBE' DON'T SEARCH IN ANY LIBRARIES ICA05980
020600 FFFFFFFFFFFFFFFF 698 DC 8X'FF' ICA05990
699 * ICA06000
020608 700 DS 0D ICA06010
020608 4040404040404040 701 STATEFN DC CL8' ' ICA06020
020610 E3C5E7E340404040 702 DC CL8'TEXT' ICA06030
020618 C140 703 DC CL2'A' ICA06040
02061A FFFFFFFFFFFFFFFF 704 DC 8X'FF' ICA06050
705 * ICA06060
020628 706 DS 0D ICA06070
020628 C3D7404040404040 707 DROPCMD DC CL8'CP' ICA06080
020630 C4C5E3C1C3C84040 708 DC CL8'DETACH' ICA06090
020638 4040404040404040 709 DROPCUU DC CL8' ' ICA06100
020640 FFFFFFFFFFFFFFFF 710 DC 8X'FF' ICA06110
711 * ICA06120
020648 712 SAVTBENT DS H ICA06130
713 *********************************************************************** ICA06140
714 * RESIDENT COMMAND LIST. TO MAKE A COMMAND RESIDENT, INCREMENT * ICA06150
715 * THE RESIDENT COMMAND COUNT (CMDCNT) AND INCLUDE THE COMMAND * ICA06160
716 * NAME ALONG WITH IT'S ADDRESS IN THE RESIDENT COMMAND LIST * ICA06170
717 * (RESCMDS). IF THE COMMAND MODULE IS ASSEMBLED SEPARATE * ICA06180
718 * FROM THIS ICATS MAINLINE, IT MUST HAVE A V-TYPE ADDRESS * ICA06190
719 * CONSTANT. ELSE USE AN A-TYPE ADDRESS CONSTANT. CMS WILL * ICA06200
720 * AUTOMATICALLY LOAD THE COMMAND MODULE WHEN ICATS GETS LOADED. * ICA06210
721 * THIS SCHEME ALSO ALLOWS ANY NUMBER OF ABBREVIATIONS OR * ICA06220
1 ICATS MAINLINE PAGE 22
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 722 * SYNONYMS OF RESIDENT COMMANDS ONLY (NO ABBREVIATIONS OR * ICA06230
723 * SYNONYMS FOR NON-RESIDENT COMMMANDS - MAYBE SOME DAY) BY * ICA06240
724 * SIMPLY LISTING THEM. SEE QUIT AND TRACE FOR EXAMPLES. * ICA06250
725 * ALSO, CERTAIN COMMANDS MAY BE IGNORED HERE LIKE ENTERING * ICA06260
726 * AN ASTERISK (CONSIDERED A COMMENT). * ICA06270
727 *********************************************************************** ICA06280
02064A 728 CNOP 2,4 ICA06290
02064A 0010 729 CMDCNT DC H'16' ICA06300
02064C D8E4C9E340404040 730 RESCMDS DC CL8'QUIT ',V(QUIT) ICA06310
020658 D840404040404040 731 DC CL8'Q ',V(QUIT) ICA06320
020664 E2E3C1E3E4E24040 732 DC CL8'STATUS ',V(STATUS) ICA06330
020670 E3D9C1C3C5404040 733 DC CL8'TRACE ',V(TRACE) ICA06340
02067C E3C5E2E340404040 734 DC CL8'TEST ',V(TEST) ICA06350
020688 E340404040404040 735 DC CL8'T ',V(TRACE) ICA06360
020694 C6C1D2C9E3404040 736 DC CL8'FAKIT ',V(FAKIT) ICA06370
0206A0 C640404040404040 737 DC CL8'F ',V(FAKIT) ICA06380
0206AC 5C40404040404040 738 DC CL8'* ',V(IGNORCMD) ICA06390
0206B8 4040404040404040 739 DC CL8' ',V(IGNORCMD) ICA06400
0206C4 C3C1E34040404040 740 DC CL8'CAT ',V(CAT) ICA06410
0206D0 D9C5C1C440404040 741 DC CL8'READ ',V(READ) ICA06420
0206DC E6D9C9E3C5404040 742 DC CL8'WRITE ',V(WRITE) ICA06430
0206E8 E3C9D4C540404040 743 DC CL8'TIME ',V(TIME) ICA06440
0206F4 D9C5E2E3C1D9E340 744 DC CL8'RESTART ',V(RESTART) ICA06450
020700 E3C5D9D4C9D64040 745 DC CL8'TERMIO ',V(TERMIO) ICA06460
1 ICATS MAINLINE PAGE 23
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 747 * ICA06480
748 *********************************************************************** ICA06490
749 * TRACE TABLE ENTRIES * ICA06500
750 *********************************************************************** ICA06510
02070C 17 751 CONCTTE DC AL1(L'CONCTTET) ICA06520
02070D C4C9E2D7C1E3C3C8 752 CONCTTET DC C'DISPATCH CONSOLE CMD ' ICA06530
020724 C7D6E340C1D540E2 753 SMSGCTTE DC CL24'GOT AN SMSG COMMAND. ' ICA06540
02073C C7D6E340C140E4E3 754 UTSCTTE DC CL24'GOT A UTS COMMAND. ' ICA06550
755 * ICA06560
756 *********************************************************************** ICA06570
757 * ICATS MESSAGES * ICA06580
758 *********************************************************************** ICA06590
020754 20 759 MSG1 DC AL1(MSG1EQU) ICA06600
020755 760 MSG1CMD DS CL8 PUT THE UNKNOWN COMMAND NAME HERE ICA06610
02075D 40C9E240D5D6E340 761 DC C' IS NOT AN ICATS COMMAND' ICA06620
00020 762 MSG1EQU EQU *-MSG1-1 ICA06630
1 ICATS MAINLINE PAGE 24
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 764 * * ICA06650
765 *********************************************************************** ICA06660
766 * VMCPARM CONTROL BLOCK AS DESCRIBED IN THE VM SYSTEM * ICA06670
767 * PROGRAMMERS GUIDE ON PAGE 174. THE NUMBERS AND LETTERS * ICA06680
768 * IN THE LAST PART OF THE LINE IS A GUIDE TO WHICH FIELDS * ICA06690
769 * ARE USED FOR EACH FUNCTION (0-B). * ICA06700
770 * VMCF FUNCTIONS = 0 1 2 3 4 5 6 7 8 9 A B * ICA06710
771 *********************************************************************** ICA06720
020778 772 DS 0D ICA06730
020778 773 VMCPARM DS 0CL40 ICA06740
020778 00 774 VMCPFLG1 DC X'00' 0 2 3 4 A ICA06750
00080 775 VMCPAUTS EQU X'80' ICA06760
00040 776 VMCPPRTY EQU X'40' ICA06770
00020 777 VMCPSMSG EQU X'20' ICA06780
020779 00 778 VMCPFLG2 DC X'00' ICA06790
02077A 0000 779 VMCPFUNC DC X'0000' 0 1 2 3 4 5 6 7 8 9 A B ICA06800
00000 780 VMCPAUTH EQU X'0000' ICA06810
00001 781 VMCPUAUT EQU X'0001' ICA06820
00002 782 VMCPSEND EQU X'0002' ICA06830
00003 783 VMCPSENR EQU X'0003' ICA06840
00004 784 VMCPSENX EQU X'0004' ICA06850
00005 785 VMCPRECV EQU X'0005' ICA06860
00006 786 VMCPCANC EQU X'0006' ICA06870
00007 787 VMCPREPL EQU X'0007' ICA06880
00008 788 VMCPQUIE EQU X'0008' ICA06890
00009 789 VMCPRESM EQU X'0009' ICA06900
0000A 790 VMCPIDEN EQU X'000A' ICA06910
0000B 791 VMCPRJCT EQU X'000B' ICA06920
02077C 00000000 792 VMCPMID DC X'00000000' 2 3 4 5 6 7 B ICA06930
020780 0000000000000000 793 VMCPUSER DC X'0000000000000000' 0 2 3 4 5 6 7 A B ICA06940
020788 00000000 794 VMCPVADA DC X'00000000' 0 2 3 4 5 7 ICA06950
02078C 00000000 795 VMCPLENA DC X'00000000' 0 2 3 4 5 7 ICA06960
020790 00000000 796 VMCPVADB DC X'00000000' 3 ICA06970
020794 00000000 797 VMCPLENB DC X'00000000' 3 ICA06980
020798 0000000000000000 798 VMCPUSE DC X'0000000000000000' 2 3 4 5 7 A B ICA06990
1 ICATS MAINLINE PAGE 25
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
00207A0 800 SAVER14 DS F ICA07010
0207A4 801 DOCMDR14 DS F ICA07020
0207A8 802 MYBUFR DS CL80 ICA07030
0207F8 803 LTORG ICA07040
0207F8 5000000000000000 804 =X'5000000000000000'
020800 1000000000000000 805 =X'1000000000000000'
020808 00024DB8 806 =A(SMSGBUFF)
02080C 000000A9 807 =A(L'SMSGBUFF)
020810 00000000 808 =V(CONFIG)
020814 00000000 809 =V(ATTACH)
020818 00000000 810 =V(DOTERM)
02081C 0002C000 811 =X'0002C000'
020820 0000 812 =AL2(VMCPAUTH)
020822 0000 813 =H'0'
020824 0001 814 =AL2(VMCPUAUT)
020826 E4E3E240404040 815 =C'UTS '
02082D C3D6D5E2D6D3C5 816 =C'CONSOLE'
020834 E2D4E2C7404040 817 =C'SMSG '
818 *********************************************************************** ICA07050
819 * HERE ARE ALL THE BIG DATA STRUCTURES. THEY MUST GO AFTER * ICA07060
820 * ALL THE ICATS MAINLINE DATA AREAS AND SUBROUTINES, AND * ICA07070
821 * CAN GO HERE BEFORE ALL THE COMMON SUBROUTINES THAT USE * ICA07080
822 * THEIR OWN BASE REGISTERS. NOBODY ADDRESSES THESE THINGS * ICA07090
823 * DIRECTLY, BUT RATHER EVERYBODY USES POINTERS TO THESE * ICA07100
824 * AREAS THAT RESIDE IN THE ICATS COMMON DATA AREA (ICDATA). * ICA07110
825 *********************************************************************** ICA07120
826 *********************************************************************** ICA07130
827 * SMSG BUFFER AREA. THERE'S ROOM HERE FOR 10 SMSG'S. EACH GETS * ICA07140
828 * STACKED IN A CIRCULAR QUEUE BY THE EXTERNAL INTERRUPT HANDLING * ICA07150
829 * ROUTINE AND GETS PULLED OUT BY THE SMSG COMMAND HANDLING ROUTINE. * ICA07160
830 * THE SMSG COMMAND HANDLER IS ALWAYS TRYING TO CATCH UP TO THE * ICA07170
831 * EXTERNAL INTERRUPT HANDLING ROUTINE. * ICA07180
832 * TO CHANGE THE SIZE OF THE SMSG BUFFER, SIMPLY CHANGE THE NUMBER * ICA07190
833 * 10 IN THE DC'S FOR LASTMSG AND SMSGBUFR. * ICA07200
834 *********************************************************************** ICA07210
02083B 835 SMSGBUFR DS 10CL139 SMSG BUFFER (1390 BYTES) ICA07220
836 *********************************************************************** ICA07230
837 * THIS IS THE TRACE TABLE. THERE'S ROOM FOR ABOUT 28 144-BYTE * ICA07240
838 * ENTRIES. TRACE TABLE ENTRIES ARE VARIABLE LENGTH AND IN THIS * ICA07250
839 * FORMAT; DC AL8('HEX TIME STAMP') * ICA07260
840 * DC AL1('LENGTH OF FOLLOWING ENTRY') 255 MAX * ICA07270
841 * DC C'ANY LENGTH TRACE TABLE ENTRY' PADDED TO * ICA07280
842 * END ON A 16-BYTE BOUNDARY * ICA07290
843 * TO CHANGE THE SIZE OF THE TRACE TABLE, SIMPLY CHANGE THE NUMBER * ICA07300
844 * 512 IN THE DC'S FOR LASTTTE (IN ICDATA) AND TRACETBL. * ICA07310
845 *********************************************************************** ICA07320
846 * ICA07330
020DA9 20DB0 847 ORG (*-ICATS+15)/16*16+ICATS ICA07340
020DB0 848 TRACETBL DS 512CL16 512 * 16 = 8192 = AN 8K TRACE TABLE ICA07350
849 *********************************************************************** ICA07360
850 * THIS IS THE UTS, THE USER, AND THE DISK CONTROL BLOCK CHAINS. * ICA07370
851 * TO CHANGE THE SIZE OF THE RESERVED STORAGE FOR THESE STRUCTURES, * ICA07380
852 * CHANGE THE 1000 IN THE DC'S FOR CBEND (IN ICDATA) AND CBCHAIN. * ICA07390
853 *********************************************************************** ICA07400
854 * ICA07410
1 ICATS MAINLINE PAGE 26
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0022DB0 855 CBCHAIN DS 1000D ICA07420
856 * ICA07430
1 ICATS MAINLINE PAGE 27
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 858 ICDATA GEN=REAL ICA07450
024CF0 859+ICDATA DS 0D ICD00070
860+*********************************************************************** ICD00090
861+* START OF ICATS COMMON DATA AREA * ICD00100
862+*********************************************************************** ICD00110
863+* ICD00120
864+*********************************************************************** ICD00130
865+* BALR ADDRESSES OF COMMON SUBROUTINES * ICD00140
866+*********************************************************************** ICD00150
867+*********************************************************************** ICD00240
868+* COMMON SERVICE SUBROUTINES AVAILABLE TO ALL ROUTINES * ICD00250
869+*********************************************************************** ICD00260
024CF0 00000000 870+AREADRCB DC V(READRCB) READ REQUEST CONTROL BLOCK FROM UTS ICD00270
024CF4 00000000 871+AREADUTS DC V(READUTS) READ DATA FROM THE UTS ICD00280
024CF8 00000000 872+AWRITUTS DC V(WRITEUTS) WRITE DATA TO THE UTS ICD00290
024CFC 00000000 873+AINTUTS DC V(INTERUTS) PROVIDE AN ASYNCHRONOUS INTERRUPT TO A UTS ICD00300
024D00 00000000 874+ATERMIO DC V(DOTERMIO) DO AN I/O OPERATION TO A DIALED TERMINAL ICD00310
024D04 00000000 875+AMESSAGE DC V(MESSAGE) GIVE A MESSAGE TO A VM USER ID OR CONSOLE ICD00320
024D08 00000000 876+AACCESS DC V(ACCESS) FIND AND ACCESS A DISK ICD00330
024D0C 00000000 877+AETTE DC V(ETTE) ENTER A TRACE TABLE ENTRY ICD00340
024D10 00000000 878+APARSE DC V(PARSE) PARSE A CHARACTER STRING INTO PARM0-PARM15 ICD00350
024D14 00000000 879+ACONHEX DC V(CONHEX) CONVERT A HEX EBCDIC PARM TO HEX ICD00360
024D18 00000000 880+ACONEHEX DC V(CONEHEX) CONVERT A NUMBER TO EBCDIC HEX CHARACTERS ICD00370
024D1C 00000000 881+ACONDEC DC V(CONDEC) CONVERT A DECIMAL EBCDIC PARM TO HEX ICD00380
024D20 00000000 882+AREJECT DC V(REJECT) SEND A COMMAND REJECTION NOTICE ICD00390
024D24 00000000 883+ DC F'0' EXTRA ICD00400
-
024D28 885+ DS 0D PSW'S MUST BE DOUBLEWORD ALIGNED ICD00420
024D28 FFE600000F 886+WAITPSW DC X'FFE600000F' ENABLED WAIT STATE PSW POINTING ICD00430
024D2D 020106 887+ DC AL3(DISPATCH) TO THE TOP OF THE DISPATCHER ICD00440
024D30 888+UTSCCW DS D CCW FOR ICATS I/O ICD00450
024D38 4040404040404040 889+SMSGVMID DC CL8' ' VM USER ID OF THIS SMSG I'M SERVICING ICD00460
024D40 00030000 890+ABUFFER DC X'00030000' ADDRESS OF READ/WRITE BUFFER ICD00470
024D44 00030088 891+LBUFFER DC X'00030088' LENGTH OF READ/WRITE BUFFER ICD00480
892+* BIG ENOUGH TO READ 3 65535-BYTE RECORDS IN VARIABLE ICD00490
893+* LENGTH OUTPUT FORMAT (3 * ((65535+1) + 2)) + 2 + 128) ICD00500
024D48 00040087 894+REALBUFL DC X'00040087' MORE LENGTH FOR EXCESS RECORDS ICD00510
024D4C 895+MYNODEID DS CL8 NODE ID OF THE VM SYSTEM I'M ON ICD00520
024D54 896+MYVMUID DS CL8 MY USER ID (ICATS) ICD00530
024D5C 897+NETVMUID DS CL8 USER ID OF THE NET VIRTUAL MACHINE ICD00540
024D68 898+ DS 10D RESERVED FOR FUTURE EXPANSION ICD00550
024DB8 899+ DS 0D THE SMSG BUFFER MUST BE DOUBLEWORD ALIGNED ICD00560
024DB8 900+SMSGBUFF DS CL169 SMSG BUFFER AREA. CMS WILL PUT ICD00570
901+* ALL INCOMING SMSG'S HERE. ICD00580
024E61 902+SENSE0 DS X'00' SENSE BYTE FOR UTS ICD00590
024E62 0000
024E64 00022DB0 903+CBSTART DC A(CBCHAIN) BEGINNING OF CONTROL BLOCKS ICD00600
024E68 00000000 904+TERM1ST DC F'0' FIRST TERMINAL CONTROL BLOCK ICD00610
024E6C 00000000 905+CBFIRST DC F'0' FIRST UTS CONTROL BLOCK ICD00620
024E70 00022DB0 906+CBNEXT DC A(CBCHAIN) NEXT AVAILABLE BYTE IN CBCHAIN ICD00630
024E74 00024CF0 907+CBEND DC A(CBCHAIN+(1000*8)) USED TO CHECK FOR OUT OF MEMORY ICD00680
0
1 ICATS MAINLINE PAGE 28
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0024E78 0002083B 909+CURRSMSG DC A(SMSGBUFR) CURRENT (OR NEXT) SMSG TO PROCESS ICD00710
024E7C 0002083B 910+NEXTSMSG DC A(SMSGBUFR) SPOT FOR NEXT SMSG THAT COMES IN ICD00720
024E80 0002083B 911+FRSTSMSG DC A(SMSGBUFR) ADDRESS OF FIRST SMSG BUFFER ICD00730
024E84 00020D1E 912+LASTSMSG DC A(SMSGBUFR+10*139-139) ADDRESS OF LAST SMSG BUFFER ICD00780
0
024E88 00020DB0 914+FIRSTTTE DC A(TRACETBL) ICD00810
024E8C 00022DB0 915+LASTTTE DC A(TRACETBL+512*16) FIRST BYTE PAST END OF TRACE TABLE ICD00860
024E90 00020DB0 916+NEXTTTE DC A(TRACETBL) ALWAYS POINTING TO THE NEXT ICD00880
917+* AVAILABLE BYTE IN TRACE TABLE ICD00890
024E94 918+ DS 0F ICD00900
024E94 4040 919+CURRLEN DC CL2' ' CURRENT SMSG OR CONSOLE COMMAND LENGTH ICD00910
024E96 4040404040404040 920+CURRTEXT DC CL130' ' CURRENT SMSG OR CONSOLE COMMAND TEXT ICD00920
-
922+* ICD00940
000FF 923+ALL EQU X'FF' USED TO TURN OFF BITS ICD00950
924+* LIKE THIS --> NI FLAGA,ALL-TRACE ICD00960
024F18 A7 925+DISPTTE DC AL1(DISPTTEE-*-1) START OF DISPATCHER TRACE TABLE ENTRY ICD00970
024F19 926+DISPTYPE DS CL7 TYPE OF DISPATCH CALL (CONSOLE, UTS, OR SMSG) ICD00980
024F20 00 927+FLAGA DC X'00' ICATS PROGRAM FLAG ICD00990
00080 928+UTSINT EQU X'80' A UTS MACHINE HAS REQUESTED SERVICE ICD01000
00040 929+ENDPGM EQU X'40' TIME TO QUIT AFTER THIS COMMAND ICD01010
00008 930+TERMINT EQU X'08' WE'VE GOTTEN A TERMINAL INTERRUPT ICD01020
931+* ICD01030
024F21 00 932+FLAGB DC X'00' ANOTHER ICATS PROGRAM FLAG ICD01040
00080 933+CONSCMD EQU X'80' I'M SERVICING A CONSOLE COMMAND ICD01050
00040 934+SMSGCMD EQU X'40' I'M SERVICING AN SMSG COMMAND ICD01060
00020 935+UTSCMD EQU X'20' I'M SERVICING A UTS COMMAND ICD01070
936+* ICD01080
024F22 00 937+FLAGC DC X'00' YET ANOTHER ICATS PROGRAM FLAG ICD01090
00080 938+TRACEMOD EQU X'80' TRACE MODE - ENTER TRACE TABLE ICD01100
939+* ENTRIES IF THIS BIT IS ON ICD01110
00040 940+INETTE EQU X'40' WE ARE IN THE ETTE ROUTINE ICD01120
00020 941+NORESCMD EQU X'20' THIS IS A NON-RESIDENT COMMAND ICD01130
942+* (I.E. YOU MUST RESTORE LOADER COUNT) ICD01140
00010 943+FAKEINT EQU X'10' THIS IS A FAKE UTS INTERRUPT ICD01150
944+* ICD01160
024F23 00 945+TEST0108 DC X'00' ICATS TEST FLAGS 1 - 8 ICD01170
00080 946+TEST1 EQU X'80' ICD01180
00040 947+TEST2 EQU X'40' ICD01190
00020 948+TEST3 EQU X'20' ICD01200
00010 949+TEST4 EQU X'10' ICD01210
00008 950+TEST5 EQU X'08' ICD01220
00004 951+TEST6 EQU X'04' ICD01230
00002 952+TEST7 EQU X'02' ICD01240
00001 953+TEST8 EQU X'01' ICD01250
954+* ICD01260
024F24 00 955+TEST0916 DC X'00' ICATS TEST FLAGS 9 - 16 ICD01270
00080 956+TEST9 EQU X'80' ICD01280
00040 957+TEST10 EQU X'40' ICD01290
00020 958+TEST11 EQU X'20' ICD01300
00010 959+TEST12 EQU X'10' ICD01310
00008 960+TEST13 EQU X'08' ICD01320
1 ICATS MAINLINE PAGE 29
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 00004 961+TEST14 EQU X'04' ICD01330
00002 962+TEST15 EQU X'02' ICD01340
00001 963+TEST16 EQU X'01' ICD01350
964+* ICD01360
024F25 00 965+TEST1724 DC X'00' ICATS TEST FLAGS 17 - 24 ICD01370
00080 966+TEST17 EQU X'80' ICD01380
00040 967+TEST18 EQU X'40' ICD01390
00020 968+TEST19 EQU X'20' ICD01400
00010 969+TEST20 EQU X'10' ICD01410
00008 970+TEST21 EQU X'08' ICD01420
00004 971+TEST22 EQU X'04' ICD01430
00002 972+TEST23 EQU X'02' ICD01440
00001 973+TEST24 EQU X'01' ICD01450
974+* ICD01460
024F26 00 975+TEST2532 DC X'00' ICATS TEST FLAGS 25 - 32 ICD01470
00080 976+TEST25 EQU X'80' ICD01480
00040 977+TEST26 EQU X'40' ICD01490
00020 978+TEST27 EQU X'20' ICD01500
00010 979+TEST28 EQU X'10' ICD01510
00008 980+TEST29 EQU X'08' ICD01520
00004 981+TEST30 EQU X'04' ICD01530
00002 982+TEST31 EQU X'02' ICD01540
00001 983+TEST32 EQU X'01' ICD01550
984+* ICD01560
024F27 00 985+TEST3340 DC X'00' ICATS TEST FLAGS 33 - 40 ICD01570
00080 986+TEST33 EQU X'80' ICD01580
00040 987+TEST34 EQU X'40' ICD01590
00020 988+TEST35 EQU X'20' ICD01600
00010 989+TEST36 EQU X'10' ICD01610
00008 990+TEST37 EQU X'08' ICD01620
00004 991+TEST38 EQU X'04' ICD01630
00002 992+TEST39 EQU X'02' ICD01640
00001 993+TEST40 EQU X'01' ICD01650
994+* ICD01660
024F28 00 995+TEST4148 DC X'00' ICATS TEST FLAGS 41 - 48 ICD01670
00080 996+TEST41 EQU X'80' ICD01680
00040 997+TEST42 EQU X'40' ICD01690
00020 998+TEST43 EQU X'20' ICD01700
00010 999+TEST44 EQU X'10' ICD01710
00008 1000+TEST45 EQU X'08' ICD01720
00004 1001+TEST46 EQU X'04' ICD01730
00002 1002+TEST47 EQU X'02' ICD01740
00001 1003+TEST48 EQU X'01' ICD01750
1004+* ICD01760
024F29 00 1005+TEST4956 DC X'00' ICATS TEST FLAGS 49 - 56 ICD01770
00080 1006+TEST49 EQU X'80' ICD01780
00040 1007+TEST50 EQU X'40' ICD01790
00020 1008+TEST51 EQU X'20' ICD01800
00010 1009+TEST52 EQU X'10' ICD01810
00008 1010+TEST53 EQU X'08' ICD01820
00004 1011+TEST54 EQU X'04' ICD01830
00002 1012+TEST55 EQU X'02' ICD01840
00001 1013+TEST56 EQU X'01' ICD01850
1014+* ICD01860
024F2A 00 1015+TEST5764 DC X'00' ICATS TEST FLAGS 57 - 64 ICD01870
1 ICATS MAINLINE PAGE 30
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 00080 1016+TEST57 EQU X'80' ICD01880
00040 1017+TEST58 EQU X'40' ICD01890
00020 1018+TEST59 EQU X'20' ICD01900
00010 1019+TEST60 EQU X'10' ICD01910
00008 1020+TEST61 EQU X'08' ICD01920
00004 1021+TEST62 EQU X'04' ICD01930
00002 1022+TEST63 EQU X'02' ICD01940
00001 1023+TEST64 EQU X'01' ICD01950
1024+* ICD01960
024F2B 00 1025+TEST6572 DC X'00' ICATS TEST FLAGS 65 - 72 ICD01970
00080 1026+TEST65 EQU X'80' ICD01980
00040 1027+TEST66 EQU X'40' ICD01990
00020 1028+TEST67 EQU X'20' ICD02000
00010 1029+TEST68 EQU X'10' ICD02010
00008 1030+TEST69 EQU X'08' ICD02020
00004 1031+TEST70 EQU X'04' ICD02030
00002 1032+TEST71 EQU X'02' ICD02040
00001 1033+TEST72 EQU X'01' ICD02050
1034+* ICD02060
024F2C 00 1035+TEST7380 DC X'00' ICATS TEST FLAGS 73 - 80 ICD02070
00080 1036+TEST73 EQU X'80' ICD02080
00040 1037+TEST74 EQU X'40' ICD02090
00020 1038+TEST75 EQU X'20' ICD02100
00010 1039+TEST76 EQU X'10' ICD02110
00008 1040+TEST77 EQU X'08' ICD02120
00004 1041+TEST78 EQU X'04' ICD02130
00002 1042+TEST79 EQU X'02' ICD02140
00001 1043+TEST80 EQU X'01' ICD02150
1044+* ICD02160
024F2D 00 1045+TEST8188 DC X'00' ICATS TEST FLAGS 81 - 88 ICD02170
00080 1046+TEST81 EQU X'80' ICD02180
00040 1047+TEST82 EQU X'40' ICD02190
00020 1048+TEST83 EQU X'20' ICD02200
00010 1049+TEST84 EQU X'10' ICD02210
00008 1050+TEST85 EQU X'08' ICD02220
00004 1051+TEST86 EQU X'04' ICD02230
00002 1052+TEST87 EQU X'02' ICD02240
00001 1053+TEST88 EQU X'01' ICD02250
1054+* ICD02260
024F2E 00 1055+TEST8996 DC X'00' ICATS TEST FLAGS 88 - 96 ICD02270
00080 1056+TEST89 EQU X'80' ICD02280
00040 1057+TEST90 EQU X'40' ICD02290
00020 1058+TEST91 EQU X'20' ICD02300
00010 1059+TEST92 EQU X'10' ICD02310
00008 1060+TEST93 EQU X'08' ICD02320
00004 1061+TEST94 EQU X'04' ICD02330
00002 1062+TEST95 EQU X'02' ICD02340
00001 1063+TEST96 EQU X'01' ICD02350
1064+* ICD02360
024F30 1065+ DS 0F ICD02370
024F30 1066+THISUSER DS CL8 UTS USER ID I'M CURRENTLY SERVICING ICD02380
024F38 1067+THISUTS DS F UTSCB ADDRESS OF THE UTS I'M NOW SERVICING ICD02390
024F3C 1068+THISDISK DS CL1 USER'S DISK ACCESS MODE I'M CURRENTLY DOING ICD02400
1069+* ICD02410
024F3D 00
1 ICATS MAINLINE PAGE 31
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0024F3E 1070+ CNOP 6,8 MAKE PARM0-PARM15 DOUBLEWORD ALIGNED ICD02420
024F3E 00 1071+ DC X'00' ICD02430
024F3F 80 1072+PARMMSG DC X'80' PARM0-PARM15 LENGTH FOR MESSAGES ICD02440
024F40 4040404040404040 1073+PARM0 DC CL8' ' ICD02450
024F48 4040404040404040 1074+PARM1 DC CL8' ' ICD02460
024F50 4040404040404040 1075+PARM2 DC CL8' ' ICD02470
024F58 4040404040404040 1076+PARM3 DC CL8' ' ICD02480
024F60 4040404040404040 1077+PARM4 DC CL8' ' ICD02490
024F68 4040404040404040 1078+PARM5 DC CL8' ' ICD02500
024F70 4040404040404040 1079+PARM6 DC CL8' ' ICD02510
024F78 4040404040404040 1080+PARM7 DC CL8' ' ICD02520
024F80 4040404040404040 1081+PARM8 DC CL8' ' ICD02530
024F88 4040404040404040 1082+PARM9 DC CL8' ' ICD02540
024F90 4040404040404040 1083+PARM10 DC CL8' ' ICD02550
024F98 4040404040404040 1084+PARM11 DC CL8' ' ICD02560
024FA0 4040404040404040 1085+PARM12 DC CL8' ' ICD02570
024FA8 4040404040404040 1086+PARM13 DC CL8' ' ICD02580
024FB0 4040404040404040 1087+PARM14 DC CL8' ' ICD02590
024FB8 4040404040404040 1088+PARM15 DC CL8' ' ICD02600
24FC0 1089+DISPTTEE EQU * END OF DISPATCHER TRACE TABLE ENTRY ICD02610
1090+* ICD02620
000000 1091+SMSGNTRY DSECT USED TO ADDRESS THE SMSG QUEUE (SMSGBUFR) ICD02630
000000 1092+SMSGUID DS CL8 SMSG VM USER ID (I.E. C'JASPER') ICD02640
000008 1093+SMSGLEN DS CL2 SMSG LENGTH (I.E. X'0004') ICD02650
00000A 1094+SMSGTEXT DS CL129 SMSG TEXT (I.E. C'TRACE ON') ICD02660
1095+* ICD02670
000000 1096+CBUTS DSECT LIST OF UTS MACHINES I'M SERVICING ICD02680
000000 1097+CBUTSUID DS CL8 UTS UNIQUE ID (EBCDIC) ICD02690
000008 1098+CBUTSFP DS F FORWARD POINTER TO NEXT CBUTS ICD02700
00000C 1099+CBUTSUP DS F POINTER TO USER CB CHAIN ICD02710
000010 1100+CBUTSRAD DS H THIS UTS'S REAL ADDRESS ICD02720
000012 1101+CBUTSVAD DS H MY VIRTUAL ADDRESS FOR THIS UTS ICD02730
000014 1102+CBUTSFGA DS X'00' UTS FLAG A ICD02740
00080 1103+ONLINE EQU X'80' I'M VARIED ONLINE AND ATTACHED ICD02750
00040 1104+INTISIN EQU X'40' INTERRUPT IS IN ICD02760
00020 1105+IGOTIT EQU X'20' I'M GETTING SERVICED ICD02770
000015 1106+CBUTSFGB DS X'00' UTS FLAG B ICD02780
000016 1107+CBUTSCSW DS H LAST CSW STATUS FOR THIS UTS ICD02790
000018 1108+CBUTSRQS DS H NUMBER OF REQUESTS FROM THIS UTS ICD02800
00001A 1109+CBUTSRD DS H NUMBER OF DATA READS FROM THIS UTS ICD02810
00001C 1110+CBUTSWRT DS H NUMBER OF DATA WRITES TO THIS UTS ICD02820
00001E 1111+CBUTSERR DS H NUMBER OF ERRORS ASSOCIATED WITH THIS UTS ICD02830
000020 1112+CBUTSDAT DS D DATE OF LAST INTERRUPT FROM THIS UTS ICD02840
000028 1113+CBUTSTIM DS D TIME OF LAST INTERRUPT FROM THIS UTS ICD02850
000030 1114+CBUTXTRA DS D EXTRA DOUBLEWORD FOR FUTURE EXPANSION ICD02860
1115+* ICD02870
000000 1116+CBUSER DSECT USER LIST FOR THIS UTS ICD02880
000000 1117+CBUSRUID DS CL8 UTS USER ID (EBCDIC) ICD02890
000008 1118+CBUSRFP DS F FORWARD POINTER TO NEXT CBUSER ICD02900
00000C 1119+CBUSRDP DS F POINTER TO USER DISK CB CHAIN ICD02910
000010 1120+CBUSRFGA DS X'00' USER FLAG A ICD02920
000011 1121+CBUSRFGB DS X'00' USER FLAG B ICD02930
000012 1122+CBUSRFGC DS X'00' USER FLAG C ICD02940
000013 1123+CBUSRFGD DS X'00' USER FLAG D ICD02950
000014 1124+CBUSRRQS DS H NUMBER OF REQUESTS FROM THIS USER ICD02960
1 ICATS MAINLINE PAGE 32
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0000016 1125+CBUSRRD DS H NUMBER OF DATA READS FROM THIS USER ICD02970
000018 1126+CBUSRWRT DS H NUMBER OF DATA WRITES TO THIS USER ICD02980
00001A 1127+CBUSRERR DS H NUMBER OF ERRORS ASSOCIATED WITH THIS USER ICD02990
00001C 1128+CBUSRFID DS X'00' USER FILE ID FOR READING IN SOURCE FORMAT ICD03000
00001D 1129+CBUSXTRA DS CL7 EXTRA 6 BYTES FOR FUTURE EXPANSION ICD03010
1130+* ICD03020
000000 1131+CBDISK DSECT DISK DEFINITION FOR THIS UTS USER ICD03030
000000 1132+CBDSKMOD DS CL1 USER'S ACCESS MODE (EBCDIC) ICD03040
000001 1133+CBDSKDAD DS CL3 MY REAL MINIDISK ADDRESS (EBCDIC) ICD03050
000004 1134+CBDSKFP DS F POINTER TO NEXT CBDISK IN THIS CHAIN ICD03060
000008 1135+CBDSKRPW DS CL8 USER'S READ PASSWORD FOR THIS DISK ICD03070
000010 1136+CBDSKWPW DS CL8 USER'S WRITE PASSWORD FOR THIS DISK ICD03080
000018 1137+CBDSKFGA DS X'00' DISK FLAG A ICD03090
000019 1138+CBDSKFGB DS X'00' DISK FLAG B ICD03100
00001A 1139+CBDSKFGC DS X'00' DISK FLAG C ICD03110
00001B 1140+CBDSKFGD DS X'00' DISK FLAG D ICD03120
00001C 1141+CBDSKRQS DS H NUMBER OF REQUESTS FROM THIS DISK ICD03130
00001E 1142+CBDSKRD DS H NUMBER OF DATA READS FROM UTS FOR THIS DISK ICD03140
000020 1143+CBDSKWRT DS H NUMBER OF DATA WRITES FROM UTS FOR THIS DISK ICD03150
000022 1144+CBDSKERR DS H NUMBER OF ERRORS ASSOCIATED WITH THIS DISK ICD03160
000028 1145+CBDSXTRA DS D EXTRA DOUBLEWORD FOR FUTURE EXPANSION ICD03170
1146+* ICD03180
000000 1147+CBTERM DSECT DIAL-ABLE TERMINAL CONTROL BLOCK ICD03190
000000 1148+CBTERMFP DS F POINTER TO NEXT CBTERM IN THIS CHAIN ICD03200
000004 1149+CBTERMST DS CL4 SESSION TERMINATE STRING FOR THIS TERMINAL ICD03210
000008 1150+CBTERMCS DS D CHANNEL STATUS WORD OF LAST INTERRUPT ICD03220
000010 1151+CBTERMHA DS X'0000' THIS TERMINAL'S VIRTUAL ADDRESS (HEX) ICD03230
000012 1152+CBTERMEA DS CL3 SAME THING IN EBCDIC ICD03240
000015 1153+CBTERMFA DS X'00' TERMINAL FLAG A ICD03250
00080 1154+MENUUP EQU X'80' MENU SCREEN IS NOW UP ICD03260
1155+* INTISIN EQU X'40' INTERRUPT IS IN ICD03270
1156+* IGOTIT EQU X'20' I'M GETTING SERVICED ICD03280
00010 1157+PLUGGED EQU X'10' HE'S LOGICALLY PLUGGED IN TO A UTS ICD03290
1158+*AIDVALID EQU X'08' THE FIRST BYTE IN THE READ MODIFIED ICD03300
1159+* BUFFER (THE AID BYTE) HAS NOT BEEN ICD03310
1160+* PASSED ALONG TO THE UTS YET. ICD03320
00004 1161+DATAVALD EQU X'04' DATA IN READ MODIFIED BUFFER IS VALID ICD03330
00002 1162+TTLVALID EQU X'02' TERMINAL LINE LENGTH VALUE IS VALID ICD03340
000016 1163+CBTERMDC DS H NUMBER OF VALID BYTES IN READ MODIFIED BUFFER ICD03350
000018 1164+CBTERMUP DS F ADDRESS OF UTSCB THIS TERMINAL IS PLUGGED TO ICD03360
00001C 1165+CBTERMSN DS X'00' SENSE BYTE DATA FROM LAST SENSE COMMAND ICD03370
00001D 1166+ DS X'00' EXTRA BYTE ICD03380
00001E 1167+CBTERMLL DS H PHYSICAL LINE LENGTH FOR THIS TERMINAL ICD03390
000020 1168+CBTERMDA DS D DATE OF LAST INTERRUPT (IF ANY) ICD03400
000028 1169+CBTERMTI DS D TIME OF LAST INTERRUPT (IF ANY) ICD03410
000030 1170+CBTERMRQ DS H NUMBER OF REQUESTS FROM THIS TERMINAL ICD03420
000032 1171+CBTERMRD DS H NUMBER OF DATA READS FROM UTS FOR THIS TERMINAL ICD03430
000034 1172+CBTERMWR DS H NUMBER OF DATA WRITES FROM UTS FOR THIS TERMINAL ICD03440
000036 1173+CBTERMER DS H NUMBER OF ERRORS ASSOCIATED WITH THIS TERMINAL ICD03450
000038 1174+CBTERMEX DS F EXTRA FULLWORD FOR FUTURE EXPANSION ICD03460
00003C 1175+CBTERMRM DS CL100 READ MODIFIED BUFFER FOR THIS TERMINAL ICD03470
1176+* ICD03480
024FC0 1177+ICATS CSECT ICD03490
1178+ PUSH PRINT ICD03500
1179+* DON'T GET EXCITED. YOU'RE ONLY MISSING THE REGEQU MACRO EXPANSION ICD03510
1 ICATS MAINLINE PAGE 33
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 1180+ PRINT NOGEN ICD03520
1232+ POP PRINT ICD03540
024FC0 1233+ICATS CSECT ICD03550
024FC0 1234 LTORG ICA07460
1235 NUCON ICA07470
1236+ PUSH PRINT 00140000
000000 1237+NUCON DSECT 00200000
1238+* 00350000
1239+*** NUCON - NUCLEUS CONSTANT AREA 00360000
1240+* 00370000
1241+* 0 +-------------------+-------------------+ 00380000
1242+* | RSTNPSW | RSTOPSW | 00390000
1243+* 10 +-------------------+-------------------+ 00400000
1244+* | ACMSCVT | ASYSREF | EXTOPSW | 00410000
1245+* 20 +-------------------+-------------------+ 00420000
1246+* | SVCOPSW | PGMOPSW | 00430000
1247+* 30 +-------------------+-------------------+ 00440000
1248+* | MCKOPSW | IOOPSW | 00450000
1249+* 40 +-------------------+---------+---------+ 00460000
1250+* | CSW | CAW | NUCRSV1 | 00470000
1251+* 50 +---------+---------+---------+---------+ 00480000
1252+* | TIMER | NUCRSV2 | EXTNPSW | 00490000
1253+* 60 +---------+---------+-------------------+ 00500000
1254+* | SVCNPSW | PGMNPSW | 00510000
1255+* 70 +-------------------+-------------------+ 00520000
1256+* | MCKNPSW | IONPSW | 00530000
1257+* 80 +-------------------+-------------------+ 00540000
1258+* | NUCRSV3 | 00550000
1259+* 90 +---------+----+----+---------+---------+ 00560000
1260+* | NUCRSV4 |N*1 |N*2 | PERADDR | MONCODE | 00570000
1261+* A0 +---------+----+----+---------+---------+ 00580000
1262+* | NUCCOPYR | @V62B0H2 00590000
1263+* C0 +---------------------------------------+ @V62B0H2 00600000
1264+* | | 00610000
1265+* = LOWSAVE = 00620000
1266+* | | 00630000
1267+* 160 +---------------------------------------+ 00640000
1268+* | | 00650000
1269+* = FPRLOG = 00660000
1270+* | | 00670000
1271+* 180 +---------------------------------------+ 00680000
1272+* | | 00690000
1273+* = GPRLOG = 00700000
1274+* | | 00710000
1275+* 1C0 +---------------------------------------+ 00720000
1276+* | | 00730000
1277+* = ECRLOG = 00740000
1278+* | | 00750000
1279+* 200 +---------------------------------------+ 00760000
1280+* | (CONT) | 00770000
1281+* 00780000
1282+*** NUCON - NUCLEUS CONSTANT AREA 00790000
1283+* 00800000
1 ICATS MAINLINE PAGE 34
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 1285+* 00820000
1286+*** NUCON - NUCLEUS CONSTANT AREA 00830000
1287+* 00840000
1288+* | (CONT) | 00850000
1289+* 200 +---------------------------------------+ 00860000
1290+* | | 00870000
1291+* = SYSTEMID = 00880000
1292+* | | 00890000
1293+* 220 +---------------------------------------+ 00900000
1294+* | | 00910000
1295+* = INSTALID = 00920000
1296+* | | 00930000
1297+* 260 +-------------------+----+----+---------+ 00940000
1298+* | SYSNAME |N*3 |N*4 | DEVICE | J0000SP1 00950000
1299+* 270 +----+----+---------+----+----+---------+ J0000SP1 00960000
1300+* |N*5 | | FEIBM | J0000SP1 00970000
1301+* 280 +----+----+---------+-------------------+ J0000SP1 00980000
1302+* | CURRDATE | CURRTIME | 00990000
1303+* 290 +---------+---------+---------+---------+ 01000000
1304+* |CURRVIRT |CURRCPUT |LASTVIRT |LASTCPUT | 01010000
1305+* 2A0 +---------+---------+---------+---------+ 01020000
1306+* | LASTCMND | LASTEXEC | 01030000
1307+* 2B0 +-------------------+-------------------+ 01040000
1308+* | LASTLMOD | LASTTMOD | 01050000
1309+* 2C0 +-------------------+-------------------+ 01060000
1310+* | | 01070000
1311+* = = 01080000
1312+* | | 01090000
1313+* 300 +---------+---------+---------+---------+ 01100000
1 ICATS MAINLINE PAGE 35
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 1315+* MACHINE USAGE 01120000
000000 1317+IPLPSW DS 1D - INITIAL PROGRAM LOADING PSW 01140000
000008 1318+IPLCCW1 DS 1D - INITIAL PROGRAM LOADING CCW1 01150000
000010 1319+IPLCCW2 DS 1D - INITIAL PROGRAM LOADING CCW2 01160000
000018 00000 1320+ ORG IPLPSW 01170000
000000 1321+RSTNPSW DS 1D - PSW RESTART NEW PSW 01180000
000008 1322+RSTOPSW DS 1D - PSW RESTART OLD PSW 01190000
000010 1323+ACMSCVT DS 1F - ADDRESS OF SIMULATED OS CVT 01200000
000014 1324+ASYSREF DS 1F - ADDRESS OF NUCLEUS ADDRESS TABLE 01210000
000018 1326+EXTOPSW DS 1D - EXTERNAL OLD PSW 01230000
000020 1327+SVCOPSW DS 1D - SUPERVISOR CALL OLD PSW 01240000
000028 1328+PGMOPSW DS 1D - PROGRAM OLD PSW 01250000
000030 1329+MCKOPSW DS 1D - MACHINE-CHECK OLD PSW 01260000
000038 1330+IOOPSW DS 1D - INPUT/OUTPUT OLD PSW 01270000
000040 1332+CSW DS 1D - CHANNEL STATUS WORD 01290000
000048 1333+CAW DS 1F - CHANNEL ADDRESS WORD 01300000
00004C 1335+NUCRSV1 DS 1F - RESERVED FOR FUTURE USE 01320000
000050 1336+TIMER DS 1F - INTERVAL TIMER 01330000
000054 1337+NUCRSV2 DS 1F - RESERVED FOR FUTURE USE 01340000
000058 1339+EXTNPSW DS 1D - EXTERNAL NEW PSW 01360000
000060 1340+SVCNPSW DS 1D - SUPERVISOR CALL NEW PSW 01370000
000068 1341+PGMNPSW DS 1D - PROGRAM NEW PSW 01380000
000070 1342+MCKNPSW DS 1D - MACHINE-CHECK NEW PSW 01390000
000078 1343+IONPSW DS 1D - INPUT/OUTPUT NEW PSW 01400000
000080 1345+CPULOG DS 48D - CPU LOGOUT AREA 01420000
000200 00080 1346+ ORG CPULOG 01430000
000080 1347+NUCRSV3 DS 2D - RESERVED FOR FUTURE USE 01440000
000090 1348+NUCRSV4 DS 1F - RESERVED FOR FUTURE USE 01450000
000094 1349+MONCLASS DS 1H - N*1 - MONITOR CALL CLASS NUMBER 01460000
000096 1350+PERCODE DS 1H - N*2 - PROGRAM EVENT RECORDER CODE 01470000
000098 1351+PERADDR DS 1F - PROGRAM EVENT RECORDER ADDRESS 01480000
00009C 1352+MONCODE DS 1F - MONITOR CALL CODE 01490000
0000A0 1353+NUCCOPYR DS CL32'COPYRIGHT IBM VM/SP 5664-167' CMS COPYRIGHT@V6BF1H2 01500000
0000C0 1355+LOWSAVE DS XL160 - SAVE AREA FOR 1ST 160 BYTES OF STORAGE 01520000
000160 1357+FPRLOG DS 4D - FLOATING POINT REGISTER LOGOUT AREA 01540000
000180 1358+GPRLOG DS 16F - GENERAL PURPOSE REGISTER LOGOUT AREA 01550000
0001C0 1359+ECRLOG DS 16F - EXTENDED CONTROL REGISTER LOGOUT AREA 01560000
1 ICATS MAINLINE PAGE 36
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 1362+* SYSTEM USAGE 01590000
000200 1364+SYSTEMID DS CL32 - SYSTEM NAME AND DATE 01610000
000220 1365+INSTALID DS CL64 - INSTALLATION IDENTIFICATION 01620000
000260 1366+SYSNAME DS CL8 - NAME OF IPLED SAVED SYSTEM 01630000
000268 1367+IPLADDR DS 1H - N*3 - ADDRESS OF IPLED DEVICE 01640000
00026A 1368+SYSADDR DS 1H - N*4 - ADDRESS OF SYSTEM DISK 01650000
00026C 1369+DEVICE DS 1F - NAME OF DEVICE CAUSING LAST I/O INTERRUPT 01660000
000270 1370+HLPADDR DS 1H N*5 - ADDRESS OF HELP DISK J0000SP1 01666000
000272 1371+ DS 1H - RESERVED FOR FUTURE USE J0000SP1 01672000
000274 F5F7F4F9C4D4E2F0 1372+FEIBM DC CL12'5749DMS00 ' COMPONENT ID-IPCS REFERENCED @V67CBE4 01680000
000280 1374+DIAGTIME DS CL24 - BUFFER FOR DIAGNOSE TIMER 01700000
000298 00280 1375+ ORG DIAGTIME 01710000
000280 1376+CURRDATE DS CL8 - CURRENT DATE - MM/DD/YY 01720000
000288 1377+CURRTIME DS CL8 - CURRENT TIME - HH.MM.SS 01730000
000290 1378+CURRVIRT DS 1F - CURRENT ELAPSED VIRTUAL TIME USED 01740000
000294 1379+CURRCPUT DS 1F - CURRENT ELAPSED CPU TIME USED 01750000
000298 1380+LASTVIRT DS 1F - PREVIOUS ELAPSED VIRTUAL TIME USED 01760000
00029C 1381+LASTCPUT DS 1F - PREVIOUS ELAPSED CPU TIME USED 01770000
0002A0 4040404040404040 1383+LASTCMND DC CL8' ' - LAST COMMAND ISSUED 01790000
0002A8 4040404040404040 1384+PREVCMND DC CL8' ' - NEXT TO LAST COMMAND 01800000
0002B0 4040404040404040 1385+LASTEXEC DC CL8' ' - LAST EXEC PROCEDURE 01810000
0002B8 4040404040404040 1386+PREVEXEC DC CL8' ' - NEXT TO LAST EXEC 01820000
0002C0 4040404040404040 1388+LASTLMOD DC CL8' ' LAST MODULE LOADMODED INTO MAIN STORAGE 01840000
0002C8 4040404040404040 1389+LASTTMOD DC CL8' ' LAST MODULE LOADMODED INTO TRANSIENT AREA 01850000
0002D0 0000000000000000 1391+DATIPCMS DC D'0' DATE (MM/DD/YY) AT LAST IPL CMS 01870000
0002D8 0000000000000000 1392+CLKVALMD DC D'0' TIME (STCK FORM) AT MIDNIGHT (0000 HOURS) 01880000
1394+* MACRO AND TEXT LIBRARY POINTERS 01900000
0002E0 0000000000000000 1395+MACDIRC DC 8A(0) - ADDRESS OF MACRO LIBRARY DIRECTORIES 01910000
000300 FFFFFFFFFFFFFFFF 1396+MACLIBL DC 18F'-1' - CURRENT MACRO LIBRARY NAMES 01920000
000348 00000000 1397+TXLIBSV DC F'0' LIBE SAVE AREA TXTLIBS @VM04102 01930000
00034C 00000000 1398+MACLBSV DC F'0' LIBE SAVE AREA MACLIBS @VM04102 01940000
000350 00000000 1399+TOTLIBS DC F'0' TOTAL GLOBAL CHAINS (BYTES) @VM04102 01950000
000354 00000000 1400+TXTDIRC DC A(0) - ADDRESS OF TEXT LIBRARY DIRECTORIES 01960000
000358 FFFFFFFFFFFFFFFF 1401+TXTLIBS DC 18F'-1' - CURRENT TEXT LIBRARY NAMES 01970000
1403+* DEBUG DUMP PARAMETERS 01990000
0003A0 1404+DUMPLIST DS 0D - DEBUG DUMP PARAMETER LIST 02000000
0003A0 00000180 1405+GRS015 DC A(GPRLOG) - ADDRESS OF GPR SAVE AREA 02010000
0003A4 000000C0 1406+LOC0176 DC A(LOWSAVE) - ADDRESS OF LOW CORE SAVE AREA 02020000
0003A8 00000000 1407+FIRSTDMP DC A(0) - ADDRESS OF FIRST LOCATION TO DUMP 02030000
0003AC 00000000 1408+LASTDMP DC A(0) - ADDRESS OF LAST LOCATION TO DUMP 02040000
0003B0 00000160 1409+FRS06 DC A(FPRLOG) - ADDRESS OF FPR SAVE AREA 02050000
0003B4 000003BC 1410+DMPTIT DC A(DMPTITLE) - ADDRESS OF DUMP TITLE LINE 02060000
0003B8 FFFFFFFF 1411+ DC 4X'FF' - RESERVED FOR FUTURE USE 02070000
0003BC 4040404040404040 1412+DMPTITLE DC CL132' ' - DUMP TITLE LINE 02080000
000440 00000000 1414+GLBLTABL DC F'0' RESERVED 02100000
000444 0000 1415+ DC H'0' RESERVED FOR ALIGNMENT 02110000
1 ICATS MAINLINE PAGE 37
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0000446 0ACA 1417+SVC$202 SVC 202 COMMON SVC FOR REENTRANT CODE 02130000
000448 0000044C 1418+ERR$202 DC A(*+4) USER WILL FILL IN IF NECESSARY 02140000
00044C 07FE 1419+RET$202 BR 14 RETURN TO CALLER J0000RSS 02151000
00044E 0000 1421+ DC H'0' RESERVED FOR FUTURE USE 02170000
1424+* BATCH MONITOR INFORMATION 02200000
000450 00 1425+BATFLAGS DC 1X'00' - BATCH FLAGS 02210000
00080 1426+BATRUN EQU X'80' - BATCH MONITOR RUNNING 02220000
00040 1427+BATLOAD EQU X'40' - LOADING BATCH PROCESSOR 02230000
00020 1428+BATNOEX EQU X'20' - SUPPRESS USER JOB EXECUTION 02240000
00010 1429+BATRERR EQU X'10' - BATCH READER ERROR 02250000
00008 1430+BATCPEX EQU X'08' - CP COMMAND EXECUTING 02260000
00004 1431+BATUSEX EQU X'04' - USER JOB EXECUTING 02270000
00002 1432+BATMOVE EQU X'02' - MOVEFILE EXECUTING FROM TERMINAL 02280000
00001 1433+BATTERM EQU X'01' - USER JOB BEING FLUSHED 02290000
000451 00 1435+BATFLAG2 DC 1X'00' - MORE BATCH FLAGS 02310000
00080 1436+BATXLIM EQU X'80' - USER JOB LIMIT EXCEEDED 02320000
00040 1437+BATXCPU EQU X'40' - CPU TIME EXCEEDED 02330000
00020 1438+BATXPRT EQU X'20' - NO. PRINTED LINES EXCEEDED 02340000
00010 1439+BATXPUN EQU X'10' - NO. PUNCHED CARDS EXCEEDED 02350000
00008 1440+BATDCMS EQU X'08' - DISABLED CMS COMMAND CALLED 02360000
00004 1441+BATIPLSS EQU X'04' - BATCH IPLING SAVED SYSTEM 02370000
00002 1442+BATSTOP EQU X'02' - BATCH STOPPING AFTER CURRENT JOB 02380000
00001 1443+BATSYSAB EQU X'01' SYSTEM ABEND IN PROCESS @VA05162 02390000
000452 00 1444+BATFLAG3 DC 1X'00' MORE BATCH FLAGS @VA12384 02400000
00080 1445+BATCPFNG EQU X'80' CPF LINK FAILURE @VA12384 02403000
00040 1446+BATPRT EQU X'40' LOADVFCB WAS ISSUED J0000SP1 02405000
000453 00 1447+BATFLAG4 DC 1X'00' BATCH VIRTUAL PRINTER TYPE J0000SP1 02407000
1449+* BATCH PROCESSOR ENTRY POINTS 02420000
000454 00000000 1450+ABATPROC DC A(0) - MAIN ENTRY 02430000
000458 00000000 1451+ABATABND DC A(0) - USER JOB ABEND ENTRY 02440000
00045C 00000000 1452+ABATLIMT DC A(0) - USER JOB LIMITS TABLE 02450000
000460 00000000 1453+AUSERRST DC A(0) VIRTUAL MACHINE RESTART ENTRY POINT @V60C5BE 02460000
000464 00000000 1454+NUSERFWD DC F'0' FULLWORD FOR EXCLUSIVE USE OF USER @VMI0066 02470000
000468 00000000 1455+LIBSPTR DC AL1(0),AL3(0) ANCHOR FOR LIBSRCH FACILITY G1000LSF 02480000
1457+* DOS LIBRARY POINTERS 02500000
00046C 00000000 1458+DOSLBSV DC F'0' LIBE SAVE AREA DOSLIBS @VM04102 02510000
000470 0000000000000000 1459+DOSDIRC DC 8A(0) - ADDRESS OF DOS LIBRARY DIRECTORIES 02520000
000490 FFFFFFFFFFFFFFFF 1460+DOSLIBL DC 18F'-1' - CURRENT DOS LIBRARY NAMES 02530000
0004D8 00 1461+DOSFLAGS DC X'00' - DOS SIMULATION FLAGS 02540000
00080 1462+DOSMODE EQU X'80' - DOS ENVIRONMENT FLAG 02550000
00040 1463+DOSSVC EQU X'40' - DOS SVC SIMULATION FLAG 02560000
00020 1464+DOSVSAM EQU X'20' - DOS VSAM RUNNING FLAG 02570000
00010 1465+DOSCOMP EQU X'10' - DOS COMPILER RUNNING FLAG 02580000
00008 1466+DOSPIO EQU X'08' DOS PRINTER INDICATOR 02590000
00004 1467+VSMINSTL EQU X'04' VSAM INSTAL FLAG TO RELOCATE DCSS TABLE 02600000
0004D9 00 1468+DOSRC DC X'00' - DOS RETURN CODE TO USER 02610000
0004DA 0000 1469+ DC 2X'00' - RESERVED FOR FUTURE USE 02620000
0004DC 00000000 1470+ALTASAVE DC V(LTASAVE) - ADDRESS OF LTA SAVE AREA 02630000
0004E0 00000000 1471+ABGCOM DC V(BGCOM) - ADDRESS OF PARTITION COMM. REGION 02640000
1 ICATS MAINLINE PAGE 38
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
00004E4 00000000 1472+ASYSCOM DC V(SYSCOM) - ADDRESS OF SYSTEM COMM. REGION 02650000
0004E8 00000000 1473+ADOSDCSS DC A(0) - ADDRESS OF DOS DCSS 02660000
0004EC 00000000 1474+SVC12SAV DC F'0' - WORK AREA FOR SVC12 02670000
0004F0 00000000 1475+DOSFIRST DC A(0) - ADDRESS OF FIRST DOSCB IN CHAIN 02680000
0004F4 0000 1476+DOSNUM DC H'0' - NUMBER DOSCB'S IN CHAIN 02690000
0004F6 0000 1477+DOSKPART DC H'0' - NUMBER K-BYTES IN DOS PARTITION 02700000
0004F8 00000000 1478+APPSAVE DC V(PPSAVE) - ADDRESS OF PROB. PROG. SAVE AREA 02710000
0004FC 00000000 1479+DOSTRANS DC A(0) ADDRESS OF DOS TRANSIENT AREA 02720000
1481+* FREE STORAGE POINTERS 02740000
000500 00000000 1482+MAINLIST DC A(0) - ADDR 1ST BLK USER FREE STORAGE 02750000
000504 00000000 1483+MAINSTRT DC V(USERAREA) - ADDRESS OF THE START OF USER FREE STORAGE 02760000
000508 00000000 1484+FREELIST DC V(NUCEND) - ADDRESS OF 1ST BLOCK OF SYSTEM STORAGE 02770000
00050C 00000001 1485+FREENUM DC F'1' - NUMBER OF BLOCKS OF SYSTEM STORAGE 02780000
000510 00000000 1486+MAINHIGH DC V(USERAREA) - HIGH EXTEND OF USER FREE STORAGE 02790000
000514 00000000 1487+FREELOWE DC V(NUCEND) - LOW EXTEND OF SYSTEM FREE STORAGE 02800000
000518 00000000 1488+FREELOWR DC V(TRANSAR) - LOWER LIMIT OF SYSTEM FREE STORAGE 02810000
00051C 00000000 1489+FREEUPPR DC A(0) - UPPER LIMIT OF SYSTEM FREE STORAGE 02820000
000520 00000000 1490+ANUCEND DC V(NUCEND) - ADDRESS OF END OF NUCLEUS STORAGE AREA 02830000
000524 00000000 1491+AUSRAREA DC V(INITSUB) - ADDRESS OF BEGINNING OF USER AREA 02840000
000528 00000000 1492+CURRSAVE DC A(0) - ADDRESS OF CURRENT SAVE AREA 02850000
00052C 0000 1493+CODE203 DC H'0' - CODE NUMBER OF LAST SVC 203 02860000
00052E 0002 1494+FRERESPG DC H'2' - AMOUNT OF USER STORAGE TO RESERVE *02870000
+ FOR CMS FREE STORAGE (PAGES: >=2) 02880000
000530 00000000 1495+ADMSFRT DC V(DMSFRT) DMSFRE WORK AREA 02890000
1497+* V-CONSTANTS FOR CALLING "ADTLKP/ADTNXT/ADTLKW" VIA BALR CALLS: 02910000
000534 00000000 1498+VCADTLKP DC V(DMSLAD) BALR EQUIVALENT OF "ADTLKP" 02920000
000538 00000000 1499+VCADTNXT DC V(DMSLADN) BALR EQUIVALENT OF "ADTNXT" 02930000
00053C 00000000 1500+VCADTLKW DC V(DMSLADW) BALR EQUIVALENT OF "ADTLKW" 02940000
1502+* CONSOLE I/O POINTERS 02960000
000540 00000000 1503+CURRIOOP DC A(0) - ADDRESS OF CURRENT I/O BUFFER 02970000
000544 00000000 1504+PENDREAD DC A(0) - ADDRESS OF PENDING READ OPERATION 02980000
000548 00000A60 1505+PENDWRIT DC A(CONSTACK) - ADDRESS OF PENDING WRITE OPERATION 02990000
00054C 00000000 1506+FSTFINRD DC A(0) - ADDRESS OF FINISHED READ BUFFER 03000000
000550 00000000 1507+LSTFINRD DC A(0) - ADDRESS OF LAST FINISHED READ BUFFER 03010000
000554 00000000 1508+AINTRTBL DC A(0) - ADDRESS OF USER INPUT TRANSLATE TABLE 03020000
000558 00000000 1509+AOUTRTBL DC A(0) - ADDRESS OF USER OUTPUT TRANSLATE TABLE 03030000
00055C 0000 1510+NUMFINRD DC H'0' - NUMBER OF FINISHED READ BUFFERS 03040000
00055E 0000 1511+NUMPNDWR DC H'0' - NUMBER OF PENDING WRITE OPERATIONS 03050000
1513+* LOADER INFORMATION 03070000
000560 1514+VMSIZE DS 1F - VIRTUAL MEMORY SIZE 03080000
000564 00000000 1515+ALDRTBLS DC 1F'0' ADDRESS OF LOADER TABLES 03090000
000568 00000000 1516+STRTADDR DC 1F'0' MODULE STARTING ADDRESS 03100000
00056C 00000000 1517+FRSTLOC DC 1F'0' MODULE BEGINNING ADDRESS 03110000
000570 00000000 1518+LASTLOC DC 1F'0' MODULE ENDING ADDRESS 03120000
000574 00000000 1519+LOCCNT DC 1F'0' LOADER LOCATION COUNTER 03130000
000578 00000000 1520+LDRADDR DC 1F'0' LOADER RETURN ADDRESS 03140000
00057C 00000000 1521+LDRRTCD DC 1F'0' LOADER RETURN CODE 03150000
000580 0000000000000000 1522+PSW DC 1D'0' USER'S STARTING PSW 03160000
000588 00000000 1523+LDRFLAGS DC 1F'0' LOADER FLAGS 03170000
00058C 00000000 1524+PRHOLD DC 1F'0' PSEUDO REGISTER COUNTER 03180000
000590 0000 1525+TBENT DC H'0' INITIALIZE TABLE ENTRIES TO 03190000
1 ICATS MAINLINE PAGE 39
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 1526+* ZEROES 03200000
000592 00 1527+UNRES DC X'00' 03210000
000593 00 1528+MODFLGS DC 1X'00' MOD FLAGS 03220000
00080 1529+NOMAPFLG EQU X'80' NOMAP FLAG 03230000
00040 1530+CLEAROP EQU X'40' CLEAR OPTION FLAG 03240000
00020 1531+MODGNDOS EQU X'20' MODULE GENERATED WITH DOS OPTION 03250000
00010 1532+MODGNALL EQU X'10' MODULE GENERATED WITH ALL OPTION 03260000
00008 1533+SYSLOAD EQU X'08' ALLOW LOAD >FREELOWE OR <TRANS @VA04666 03270000
00004 1534+MDPCALL EQU X'04' INDICATE CALL FROM DMSMDP 03280000
1535+*MOD6 EQU X'02' RESERVED FOR FUTURE USE J0000SHR 03286000
00002 1536+SHROPTFL EQU X'02' SHARED MODULE SEGMENT LOADED J0000SHR 03292000
00001 1537+MOD7 EQU X'01' RESERVED FOR FUTURE USE 03300000
000594 00000000 1538+GET1 DC 1F'0' DMSLSY R1 SAVE LOC 03310000
000598 0000000000000000 1539+DSYM DC 2F'0' - DMSLSY WORK SPACE 03320000
0005A0 00000000 1540+JSYM DC F'0' - DMSLSY UNIQUE SYMBOL BASE 03330000
0005A4 E9 1541+NXTSYM DC C'Z' - 1ST CHAR OF UNIQUE SYMBOL 03340000
0005A5 00000000000000 1542+ DC XL7'0' - REST OF UNIQUE SYMBOL 03350000
0005AC 00000000 1543+ALIASENT DC 1F'0' ALIAS ENTRY POINT (DYNAMIC LOAD) 03360000
0005B0 00000000 1544+DYNAEND DC 1F'0' MAX. LOAD LOC (DYNAMIC LOAD) 03370000
0005B4 00000000 1545+OSMODLDW DC F'0' SIZE OF OS SIM. IN DWORDS @VA05055 03380000
1547+* OS SIMULATION POINTERS 03400000
0005B8 00000000 1549+LABFIRST DC A(0) - ADDRESS OF FIRST LABSECT 03420000
0005BC 0000 1550+LABNUM DC H'0' - NUMBER OF LABSECT'S 03430000
0005BE 0000 1551+ DC H'0' - RESERVED HALFWORD 03440000
0005C0 1552+FCBTAB DS 0D - FCB CHAIN ANCHOR 03450000
0005C0 00000000 1553+FCBFIRST DC A(0) - ADDRESS OF FIRST FCB 03460000
0005C4 0000 1554+FCBNUM DC H'0' - NUMBER OF FCB'S IN CHAIN 03470000
0005C6 00 1555+ DC X'00' - RESERVED FOR WPL **************** 03480000
0005C7 00 1556+OSSFLAGS DC X'00' - OS SIMULATION FLAGS 03490000
00080 1557+COMPSWT EQU X'80' - COMPILER SWITCH 03500000
00040 1558+OSSMNU EQU X'40' - DMSSMN UNCONDITIONAL FLAG 03510000
00020 1559+OSRESET EQU X'20' - 03520000
00010 1560+OSWAIT EQU X'10' 03530000
00008 1561+DYLD EQU X'08' - DYNAMIC LOADING IN PROCESS 03540000
00004 1562+DYLIBO EQU X'04' - OMIT DYNAMIC LIBRARY SCAN 03550000
00002 1563+DYLIBNOW EQU X'02' - DYNAMIC LIBRARY SCAN 03560000
00001 1564+DYMBRNM EQU X'01' - LINKED VIA MEMBER NAME 03570000
0005C8 00000000 1565+ATLBMODL DC A(0) - ADDRESS OF TAPE LABEL PROCESSOR 03580000
0005CC 00000000 1566+LINKLAST DC A(0) - ADDRESS OF LAST OS LINKAGE BLOCK 03590000
0005D0 00000000 1567+LINKSTRT DC A(0) - ADDRESS OF ENTRY POINT OF LAST MODULE 03600000
0005D4 00000000 1568+TAXEADDR DC A(0) - TERMINAL ATTENTION EXIT ELEMENT ADDRESS 03610000
0005D8 00000000 1569+ATSOCPPL DC V(CPPL) - ADDRESS OF TMP PLIST FOR TSO PROGRAMS 03620000
0005DC 00000000 1570+DCBSAV DC 1F'0' DCB RESTORATION ADDRESS 03630000
1572+* SWITCHES 03650000
0005E0 00 1573+OPTFLAGS DC 1X'00' - OPTION FLAGS 03660000
00080 1574+NOIMPEX EQU X'80' - NO IMPLIED EXEC COMMANDS 03670000
00040 1575+NOIMPCP EQU X'40' - NO IMPLIED CP COMMANDS 03680000
00020 1576+NOSTDSYN EQU X'20' - NO STANDARD SYNONYMS 03690000
00010 1577+NOABBREV EQU X'10' - NO COMMAND ABBREVIATIONS 03700000
00008 1578+NOPAGREL EQU X'08' - NO AUTOMATIC PAGE RELEASE 03710000
00004 1579+NOVMREAD EQU X'04' - NO AUTOMATIC VM CONSOLE READ 03720000
00002 1580+NOFSTPB EQU X'02' - NO FSTPB SUPPORT J0000FST 03725000
1 ICATS MAINLINE PAGE 40
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 00001 1581+NOINVTBL EQU X'01' - NO INVTBL CHECK J0011DMS 03727000
0005E1 00 1583+MISFLAGS DC 1X'00' - MISCELLANEOUS FLAGS 03740000
00080 1584+KXSWITCH EQU X'80' - KILL EXECUTION SWITCH 03750000
00040 1585+KOSWITCH EQU X'40' - KILL TRACING SWITCH 03760000
00020 1586+RELPAGES EQU X'20' - RELEASE PAGES SWITCH 03770000
00010 1587+GRAFDEV EQU X'10' - GRAPHICS CONSOLE 03780000
00008 1588+QSWITCH EQU X'08' - QUIET SW FOR CRD 03790000
00004 1589+NODDSK EQU X'04' - DON'T ACCESS D DISK.. 03800000
00002 1590+NEGITS EQU X'02' NEGATIVE RETURN CODE FROM DMSITS 03810000
00001 1591+ATTNHIT EQU X'01' ATTENTION POSTED @VA05051 03820000
0005E2 00 1593+MSGFLAGS DC 1X'00' - MESSAGE FLAGS 03840000
00080 1594+NOTYPOUT EQU X'80' - NO TYPING - SET BY EXEC 03850000
00040 1595+NOTYPING EQU X'40' - NO TYPING - SET BY KT 03860000
00020 1596+NORDYMSG EQU X'20' - NO READY MESSAGE TO BE TYPED 03870000
00010 1597+NORDYTIM EQU X'10' - NO TIME ON READY MESSAGE 03880000
00008 1598+REDERRID EQU X'08' - ERROR CODE TO BE TYPED IN RED 03890000
00004 1599+NOERRMSG EQU X'04' - NO ERROR MESSAGES TO BE TYPED 03900000
00002 1600+NOERRTXT EQU X'02' - NO TEXT ON ERROR MESSAGES 03910000
00001 1601+SPECLF EQU X'01' - LINEFEED FOR TYPEWRITER CCW 03920000
0005E3 00 1603+DBGFLAGS DC 1X'00' - DEBUG FLAGS 03940000
00080 1604+DBGEXEC EQU X'80' - DEBUG EXECUTING 03950000
00040 1605+DBGPGMCK EQU X'40' - DEBUG ENTERED BY A PROGRAM CHECK 03960000
00020 1606+DBGEXINT EQU X'20' - DEGUB ENTERED BY AN EXTERNAL INTERRUPT 03970000
00010 1607+DBGABN EQU X'10' - DEBUG ENTERED FROM DMSABN 03980000
00008 1608+DBGNSHR EQU X'08' - NO SHARED-SEGMENT PRESENT 03990000
00004 1609+DBGSHR EQU X'04' - SHARED-SEGMENT PRESENT 04000000
00002 1610+DBGRECUR EQU X'02' - RECURSION FLAG 04010000
0005E4 00 1611+MISCFLG2 DC X'00' - MORE MISCELLANEOUS FLAGS G1000CSC 04020000
1613+* EQU X'80' UNUSED 04020200
1614+* EQU X'40' UNUSED G1000CSC 04020300
1615+* EQU X'20' UNUSED G1000CSC 04020400
1616+* EQU X'10' UNUSED G1000CSC 04020500
1617+* EQU X'08' UNUSED G1000CSC 04020600
1618+* EQU X'04' UNUSED G1000CSC 04020700
1619+* EQU X'02' UNUSED G1000CSC 04020800
1620+* EQU X'01' UNUSED G1000CSC 04020900
0005E5 00 1622+CPDIAGSW DC X'00' FUNCTIONS AVAILABLE VIA DIAGNOSE G1000CSC 04021100
1623+* EQU X'80' UNUSED 04021200
1624+* EQU X'40' UNUSED 04021300
1625+* EQU X'20' UNUSED G1000CSC 04021400
1626+* EQU X'10' UNUSED G1000CSC 04021500
00008 1627+PAMAVAIL EQU X'08' PAM DIAGNOSE AVAILABLE J0000PAM 04021600
1628+* EQU X'04' UNUSED G1000CSC 04021700
1629+* EQU X'02' UNUSED G1000CSC 04021800
1630+* EQU X'01' UNUSED G1000CSC 04021900
1632+* DIAGNOSE FUNCTIONS THAT MAY BE AVAILABLE IN THE CP COMPONENT G1000CSC 04022100
1633+* EQU X'0000' UNUSED 04022200
0010C 1634+PAMDIAG EQU X'010C' PAM DIAGNOSE CODE J0000PAM 04022300
1635+* EQU X'0000' UNUSED G1000CSC 04022400
1 ICATS MAINLINE PAGE 41
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 1636+* EQU X'0000' UNUSED G1000CSC 04022500
1637+* EQU X'0000' UNUSED G1000CSC 04022600
1638+* EQU X'0000' UNUSED G1000CSC 04022700
1639+* EQU X'0000' UNUSED G1000CSC 04022800
1640+* EQU X'0000' UNUSED G1000CSC 04022900
0005E6 00 1642+EXECFLAG DC 1X'00' - EXEC FLAGS 04050000
00080 1643+EXECRUN EQU X'80' - EXEC COMMAND RUNNING 04060000
0005E7 00 1645+PROTFLAG DC 1X'00' - STORAGE PROTECTION FLAGS 04080000
00080 1646+PRFPOFF EQU X'80' - STORAGE PROTECTION IS SHUT OFF 04090000
00040 1647+PRFTSYS EQU X'40' - SYSTEM ROUTINE IN TRANSIENT AREA 04100000
00020 1648+PRFUSYS EQU X'20' - SYSTEM ROUTINE IN USER AREA 04110000
0005E8 00 1650+TSOFLAGS DC 1X'00' - TSO FLAG BYTE 04130000
00080 1651+TSOATCNL EQU X'80' - READ CANCELED BY ATTENTION 04140000
0005E9 00 1653+SUBFLAG DC 1X'00' - CMS SUBSET FLAG-BYTE 04160000
00008 1654+SUBREJ EQU X'08' SUBSET COMMAND REJECT 04170000
00004 1655+SUBRTN EQU X'04' - SUBSET-RETURN 04180000
00002 1656+SUBINIT EQU X'02' - SUBSET INITIALIZATION 04190000
00001 1657+SUBACT EQU X'01' - SUBSET ACTIVE 04200000
0005EA 00 1659+DCSSFLAG DC X'00' DCSS INDICATORS 04220000
00080 1660+DCSSAVAL EQU X'80' CMSSEG SEGMENT EXISTS 04230000
00040 1661+DCSSLDED EQU X'40' CMSSEG LOADED 04240000
00020 1662+DCSSCPNV EQU X'20' CP OR NOTVALID COMMAND ISSUED 04250000
00010 1663+DCSSLDSD EQU X'10' LOADING 'S' DISK 04260000
00008 1664+DCSSVTNA EQU X'08' SVT MODULE NOT AVAILABLE 04270000
00004 1665+DCSSVTLD EQU X'04' SVT MODULE IS LOADED 04280000
00002 1666+DCSSOVLP EQU X'02' VM STORAGE OVERLAY BY DCSS 04290000
00001 1667+DCSSJLNS EQU X'01' CMSSEG JUST LOADED NON-SHARED 04300000
0005EB 00 1669+ DC X'00' RESERVED FOR FUTURE USE 04320000
0005EC 00000000 1670+ASYSNAMS DC V(SYSNAMES) - 04330000
0005F0 00000000 1671+ACMSSEG DC V(DMSSG3) ADDRESS OF CMS SAVED SEGMENT J0000RSS 04340000
0005F4 00000000 1672+ADMSLIO DC V(DMSLIO) 04350000
1674+* V-CONSTANTS FOR CALLING "FSTLKP/FSTLKW" VIA BALR CALLS: 04370000
0005F8 00000000 1675+VCFSTLKP DC V(DMSLFS) BALR EQUIVALENT OF "FSTLKP" 04380000
0005FC 00000000 1676+VCFSTLKW DC V(DMSLFSW) BALR EQUIVALENT OF "FSTLKW" 04390000
1 ICATS MAINLINE PAGE 42
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 1678+* NUCLEUS ADDRESS TABLE 04410000
000600 1680+SYSREF DS 0D 04430000
000600 00000000 1681+AFVS DC V(FVS) - 04440000
000604 00000000 1682+AOPSECT DC V(OPSECT) - 04450000
000608 00000000 1683+ADEVTAB DC V(DEVTAB) - 04460000
00060C 00000000 1684+AFSTLKP DC V(FSTLKP) - 04470000
000610 00000000 1685+AGETCLK DC V(DMSINM) - 04480000
000614 00000000 1686+AFSTLKW DC V(FSTLKW) - 04490000
000618 00000000 1687+APIE DC V(PIE) - 04500000
00061C 00000000 1688+AIADT DC V(IADT) - 04510000
000620 00000000 1689+AUSER DC V(USERSECT) - 04520000
000624 00000000 1690+ARDTK DC V(DMSDIOR) - 04530000
000628 00000000 1691+ASCANN DC V(DMSSCNN) - 04540000
00062C 00000000 1692+ASSTAT DC A(0) - 04550000
000630 00000000 1693+ATABEND DC V(TABEND) - 04560000
000634 00000000 1694+ASUBSECT DC V(SUBSECT) - 04570000
000638 00000000 1695+AOSMODL DC A(0) 04580000
00063C 00000000 1696+AWRTK DC V(DMSDIOW) - 04590000
000640 00000000 1697+ASTRINIT DC V(DMSSTGST) 04600000
000644 00000000 1698+IADT DC V(ADTSECT) - 04610000
000648 00000000 1699+AFREE DC V(FREE) - 04620000
00064C 00000000 1700+AFRET DC V(FRET) - 04630000
000650 00000000 1701+ADMSPIOC DC V(DMSPIOCC) - 04640000
000654 00000000 1702+APGMSECT DC V(PGMSECT) - 04650000
000658 00000000 1703+AIOSECT DC V(IOSECT) - 04660000
00065C 00000000 1704+ADMPEXEC DC V(DMSDBD) - 04670000
000660 00000000 1705+ADIOSECT DC V(DIOSECT) - 04680000
000664 00000000 1706+AABNSVC DC V(DMSABNUA) 04690000
000668 00000000 1707+ADMSERL DC V(DMSERL) - 04700000
00066C 00000000 1708+ADMSCRD DC V(DMSCRD) - 04710000
000670 00000000 1709+ADMSFREB DC V(DMSFREB) - 04720000
000674 00000000 1710+ASVCSECT DC V(SVCSECT) - 04730000
000678 00000000 1711+AADTLKP DC V(ADTLKP) - 04740000
00067C 00000000 1712+AUPUFD DC V(DMSAUDUP) - 04750000
000680 00000000 1713+ASTATEXT DC A(0) - 04760000
000684 00000000 1714+AOSRET DC V(OSRET) - 04770000
000688 00000000 1715+ACMSRET DC V(CMSRET) - 04780000
00068C 00000000 1716+ASCANO DC V(DMSSCNO) - 04790000
000690 00000000 1717+AEXEC DC V(DMSEXC) - 04800000
000694 00000000 1718+ASTART DC V(DMSLDRA) 04810000
000698 00000000 1719+AADTLKW DC V(ADTLKW) - 04820000
00069C 00000000 1720+AUSABRV DC V(USABRV) - 04830000
0006A0 00000000 1721+AEXTSECT DC V(EXTSECT) - 04840000
0006A4 00000000 1722+ASCBPTR DC V(SCBPTR) - 04850000
0006A8 00000000 1723+ADMSROS DC A(0) - 04860000
0006AC 0000 1724+LDMSROS DC H'0' - 04870000
0006AE 0000 1725+CDMSROS DC H'0' - 04880000
0006B0 00000000 1726+AACTLKP DC V(DMSLAF) - 04890000
0006B4 00000000 1727+AACTNXT DC V(DMSLAFNX) - 04900000
0006B8 00000000 1728+AACTFREE DC V(DMSLAFFE) - 04910000
0006BC 00000000 1729+AACTFRET DC V(DMSLAFFT) - 04920000
0006C0 00000000 1730+AADTNXT DC V(ADTNXT) 04930000
0006C4 00000000 1731+ATRKLKP DC V(DMSTRK) - 04940000
0006C8 00000000 1732+ATRKLKPX DC V(DMSTRKX) - 04950000
1 ICATS MAINLINE PAGE 43
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
00006CC 00000000 1733+AQQTRK DC V(DMSTQQ) - 04960000
0006D0 00000000 1734+AQQTRKX DC V(DMSTQQX) - 04970000
0006D4 00000000 1735+AERASE DC V(DMSERS) - 04980000
0006D8 00000000 1736+ATYPSRCH DC V(TYPSRCH) 04990000
0006DC 00000000 1737+AUPDISK DC V(DMSAUD) - 05000000
0006E0 00000000 1738+AKILLEX DC V(KILLEX) 05010000
0006E4 00000000 1739+ATFINIS DC V(DMSFNST) - 05020000
0006E8 00000000 1740+ARDBUF DC V(DMSBRD) - 05030000
0006EC 00000000 1741+AWRBUF DC V(DMSBWR) - 05040000
0006F0 00000000 1742+AFINIS DC V(DMSFNS) - 05050000
0006F4 00000000 1743+ASTATE DC V(DMSSTTE) 05060000
0006F8 00000000 1744+ASTATEW DC V(DMSSTTW) 05070000
0006FC 00000000 1745+APOINT DC V(POINT) - 05080000
1 ICATS MAINLINE PAGE 44
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 1747+* TERMINAL BUFFERS 05100000
000700 1749+ DS 0D 05120000
1750+*---------------------------------------------------------------------* 05130000
1751+* The following 2 CCWs will move to OPSECT in SP 2 * 05135000
1752+*---------------------------------------------------------------------* 05140000
000700 0000000060000000 1753+CONCCWS CCW 0,0,X'60',0 CONSOLE READ AND WRITE CCW J0000SP1 05145000
000708 0300000020000001 1754+ CCW 3,0,X'20',1 NOP TO GET CE AND DE TOGETHER J0000SP1 05150000
000710 00000000 1756+CONINBLK DC A(0) - 05160000
000714 0A 1757+ DC XL1'0A' - 05170000
000715 86 1758+ DC AL1(134) - 05180000
000716 1759+CONINBUF DS CL134 - 05190000
0007A0 1760+ DS 0D 05200000
0007A0 1761+CMNDLINE DS CL160 - 05210000
000840 1762+ DS 0D 05220000
000840 C5E7C5C340404040 1763+ DC CL8'EXEC' - 05230000
000848 1764+CMNDLIST DS CL536 - 05240000
000A60 1765+ DS 0D 05250000
000A60 1766+CONSTACK DS CL320 - 05260000
-
1768+* SAVE AREAS 05280000
000BA0 1770+FREESAVE DS 16F - 05300000
000BE0 1771+BALRSAVE DS 16F - 05310000
000C20 1772+WAITSAVE DS 16F - 05320000
1 ICATS MAINLINE PAGE 45
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 1774+* VSAM AND AMSERV CONTROL WORDS: 05340000
000C60 1775+ DS 0D 05350000
1776+* PERCENT OF AVAILABLE USER STORAGE TO RESERVE 05360000
1777+* FOR GETVIS/FREEVIS USE WHEN RUNNING VSAM: 05370000
000C60 0032 1778+PCTVSAM DC H'50' - 50 PERCENT FOR CMS/VSAM USE 05380000
000C62 1779+ DS 1H - RESERVED FOR FUTURE USE 05390000
000C64 1780+ DS 1F - RESERVED FOR FUTURE USE 05400000
1782+* BEGINNING AND END OF "IKQLAB" (WHEN IN STORAGE): 05420000
000C68 00FFFFFF 1783+ADIKQLAB DC A(X'FFFFFF') - SET TO A(IKQLAB) WHEN IT IS IN STORAGE 05430000
000C6C 00000000 1784+NDIKQLAB DC A(0) - SET TO END OF IKQLAB WHEN IN STORAGE 05440000
000C70 00000000 1786+ALOKTB DC A(0) - LOCK/UNLOCK RESOURCE TABLE @V6BE0H5 05460000
000C74 00000000 1787+ADMSVIB DC V(DMSVIB) - ADDR OF VSAM INTERFACE BOOTSTRAP 05470000
000C78 00000000 1788+AVIPWORK DC A(0) - ADDRESS OF DMSVIP WORK AREA 05480000
000C7C 00 1789+VSAMFLG1 DC X'00' - VSAM INFORMATION FLAG 05490000
00080 1790+VSAMRUN EQU X'80' - VSAM SYSTEM LOADED 05500000
00040 1791+VSJOBCAT EQU X'40' - VSAM JOB CATALOG ACTIVE 05510000
00020 1792+VIPINIT EQU X'20' - DMSVIP HAS BEEN INITIALIZED 05520000
00010 1793+VSAMSERV EQU X'10' - CMS/AMS SYSTEM LOADED (AMSERV RUNNING) 05530000
00008 1794+VIPSOP EQU X'08' - OS INTERFACE SVC 2 CALL 05540000
00004 1795+VIPTCLOS EQU X'04' - OS 'TCLOSE' CALL 05550000
00002 1796+VSAMSOS EQU X'02' - OS AMSERV RUNNING 05560000
000C7D 1797+ DS 3X - RESERVED FOR FUTURE USE 05570000
000C80 00000000 1798+AVSAMSYS DC A(0) - ADDR OF VSAM SAVED SYSTEM 05580000
000C84 00000000 1799+AAMSSYS DC A(0) - ADDR OF CMSAMS SAVED SYSTEM 05590000
000C88 00000000 1800+AVSREOJ DC V($$BEOJ4) - DMSVSR ENTRY POINT FROM VSAM $$BACLOS 05600000
000C8C 00000000 1801+AVSRWORK DC A(0) - ADDR OF DMSVSR WORKAREA 05610000
000C90 00000000 1802+ACBLIST DC A(0) - ACB LIST BUILT BY OPEN/CLOSE 05620000
000C94 1803+ DS 1F RESERVED FOR FUTURE USE @V67CBE4 05630000
000C98 00000000 1804+AABWSECT DC V(DMSABWSE) POINTER FOR IPCS @V67CBE4 05640000
000C9C 00000000 1805+ADMSZIT DC V(DMSZITEP) POINTER FOR IPCS @V67CBE4 05650000
000CA0 1806+ DS 0D 05660000
1 ICATS MAINLINE PAGE 46
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 1808+***************************************************************@V62B0E5 05680000
1809+* @V62B0E5 05690000
1810+* SECONDARY ADDRESS TABLE @V62B0E5 05700000
1811+* @V62B0E5 05710000
1812+***************************************************************@V62B0E5 05720000
-
000CA0 00000000 1814+ADMSTRKA DC V(DMSTRKAL) EDF DISK BLOCK ALLOCATE @V62B0E5 05740000
000CA4 00000000 1815+ADMSTRKM DC V(DMSTRKMA) EDF DISK BLOCK MARKFUNCTION @V62B0E5 05750000
000CA8 00000000 1816+ADMSTRKD DC V(DMSTRKDE) EDF DISK BLOCK DEALLOCATE @V62B0E5 05760000
000CAC 00000000 1817+ADMSALU DC V(DMSALU) ADDR OF RELEASE SUBROUTINE @V62B0E5 05770000
000CB0 00000000 1818+ASORTFST DC V(SORTFST) ADDR OF SORT FST SUBROUTINE @V62B0E5 05780000
000CB4 00000000 1819+ADEVSUP DC V(DMSDIOOS) CP TO OS DEV TYPE CONV TABLE @V62B0E5 05790000
000CB8 00000000 1820+ADEVIND DC V(DMSDIODI) DEV CONST TABLE INDEX @V62B0E5 05800000
000CBC 00000000 1821+ATBLIND DC V(DMSDIOTI) DEV CONSTANTS TABLE @V62B0E5 05810000
000CC0 00000000 1822+ABLKIND DC V(DMSDIOBI) DEV BLKSIZE INDEX @V62B0E5 05820000
000CC4 00000000 1823+ALABELRD DC V(DMSDIOLR) ADDR OF LABEL READ ROUTINE @V62B1E5 05830000
000CC8 00000000 1824+ALABELWR DC V(DMSDIOLW) ADDR OF LABEL WRITE ROUTINE @V62B1E5 05840000
000CCC 00000000 1825+ADMSLADN DC V(DMSLADNW) LOCATE/ADD REQUESTED ADT. @V62B3H2 05850000
000CD0 00000000 1826+ADMSBLKR DC V(DMSEBLKR) EDF BLOCK READ ROUTINE. @V62B5H2 05860000
000CD4 00000000 1827+ADMSBLKW DC V(DMSEBLKW) EDF BLOCK WRITE ROUTINE. @V62B5H2 05870000
000CD8 00000000 1828+AABBREV DC V(ABBREV) ABREV. RESOLVER IN DMSINA @V62A7E5 05880000
000CDC 00000000 1829+ADEVSUP2 DC V(DMSDIOFB) DEVICE SUPPORT TABLE FOR FBA @V62B1E5 05890000
000CE0 00000000 1830+AESTATE DC V(DMSSTTN) EXTENDED PLIST STATE @V62B0G9 05900000
000CE4 00000000 1831+AESTATEW DC V(DMSSTTNW) EXTENDED PLIST STATE FOR R/W @V62B0G9 05910000
000CE8 00000000 1832+AEPOINT DC V(DMSPNTE) EXTENDED PLIST POINT @V62B0G9 05920000
000CEC 00000000 1833+ATRUNC DC V(DMSERSTR) FILE TRUNCATE FUNCTION @V62B0E5 05930000
000CF0 00000000 1834+ABAMSYS DC F'0' POINTER TO CMSBAM DCSS @V62A1B4 05940000
000CF4 00000000 1835+NUCSCBLK DC A(0) SCBLOCK CHAIN ANCHOR @V6BD7G9 05950000
000CF8 00 1836+BAMFLAGS DC X'00' CMSBAM SHARED SEGMENT FLAGS @V62A1B4 05960000
00080 1837+DOSBAM EQU X'80' FB-512 SUPPORT AVAILABLE @V62A1B4 05970000
000CF9 00 1838+NUCOSFLG DC X'0' OS LOADER SUPPORT FLAG @V6BE17A 05980000
00080 1839+NUCOSRUN EQU X'80' OSRUN COMMAND ISSUED @V6BE17A 05990000
00040 1840+NUCSYSDF EQU X'40' $SYSLIB DEFINED BY LDR SUPRT @V6BE17A 06000000
00020 1841+NUCGLOBL EQU X'20' GLOBAL DONE BY OSRUN @V6BE1E1 06010000
00010 1842+NUCOSRLD EQU X'10' MEMBER LOADED FOR OSRUN @V6BE1E1 06020000
000CFA 1843+NUCRSVB2 DS XL2 RESERVED FOR FUTURE USE @V62A1B4 06030000
000CFC 00000000 1844+ACMSZER DC A(0) ADDRESS OF CMSZER SEGMENT @V62B0E5 06040000
000D00 00000000 1845+SEG0RELO DC A(0) RELOCATION FACTOR FOR SEG0 @V62B0E5 06050000
000D04 00000000 1846+ASSTATX DC A(0) ADDR OF SHARED COPY OF SSTAT @V62B0E5 06060000
000D08 00000000 1847+ASSTATZ DC A(0) ADDR OF DUMMY 2ND SSTAT HBLK @V62B0E5 06070000
000D0C 00000000 1848+AYSTATX DC A(0) ADDR OF SHARED COPY OF YSTAT @V62B0E5 06080000
000D10 00000000 1849+AYSTATZ DC A(0) ADDR OF DUMMY 2ND YSTAT HBLK @V62B0E5 06090000
000D14 00000000 1850+ADMSIOW DC V(DMSIOW) DMSIOW @V62B0E5 06100000
000D18 00000000 1851+ADBGSECT DC V(DBGSECT) DEBUG WORKAREA @V62B0E5 06110000
000D1C 00000000 1852+ADMSABW DC V(DMSABW) ABEND WORK AREA @V62B0E5 06120000
000D20 00000000 1853+ADMSERR DC V(DMSERR) DMSERR @V62B0E5 06130000
000D24 00000000 1854+ADMSCWT DC V(DMSCWT) DMSCWT @V62B0E5 06140000
000D28 00000000 1855+ADMSCWR DC V(DMSCWR) DMSCWR @V62B0E5 06150000
000D2C 00000000 1856+ADMSIOWR DC V(DMSIOWR) DMSIOWR @V62B0E5 06160000
000D30 00000000 1857+ADMSITI DC V(DMSITI) DMSITI @V62B0E5 06170000
000D34 00000000 1858+ADMSABN DC V(DMSABN) DMSABN @V62B0E5 06180000
000D38 00000000 1859+AABNGO DC V(DMSABNGO) DMSABNGO @V62B0E5 06190000
000D3C 00000000 1860+ALADAD DC V(DMSLADAD) DMSLADAD @V62B0E5 06200000
1 ICATS MAINLINE PAGE 47
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0000D40 00000000 1861+ACITDB DC V(DMSCITDB) DMSCITDB @V62B0E5 06210000
000D44 00000000 1862+ADMSITSR DC V(DMSITSR) DMSITSR @V62B0E5 06220000
000D48 00000000 1863+ADMSFRES DC V(DMSFRES) DMSFRES @V62B0E5 06230000
000D4C 00000000 1864+ASTGSB DC V(DMSSTGSB) DMSSTGSB @V62B0E5 06240000
000D50 00000000 1865+AINTAB DC V(DMSINTAB) DMSINTAB @V62B0E5 06250000
000D54 00000000 1866+ADMSCAT DC V(DMSCAT) DMSCAT @V62B0E5 06260000
000D58 00000000 1867+ADMSCPF DC V(DMSCPF) DMSCPF @V62B0E5 06270000
000D5C 00000000 1868+AEXCAB DC V(DMSEXCAB) ADDRESS OF EXEC ABEND RTN @V62B0E5 06280000
000D60 00000000 1869+NUCFSTLN DC A(0) FIRST LINE IN PROGRAM STACK @V6BD7G9 06290000
000D64 00000000 1870+NUCLSTLN DC A(0) LAST LINE IN PROGRAM STACK @V6BD7G9 06300000
000D68 00000000 1871+NUCNLSTK DC A(0) NUMBER OF LINES IN PROG. STACK@V6BD7G9 06310000
000D6C 00000000 1872+NUCNBSTK DC A(0) NUMBER OF PROGRAM STACK @V6BD7G9 06320000
000D70 6F40404040404040 1873+NUCTIEIN DC CL8'?' LISTING TIEIN FIELD @V6BE17A 06330000
000D78 00000000 1874+NUCAFCHS DC A(0) ADDR OF OS FETCH WORK AREA @V6BE17A 06340000
000D7C 00000000 1875+NUCCBLKS DC F'0' PTR TO MODS LOADED BY DMSLOS @V6BE17A 06350000
000D80 FFFFFFFFFFFFFFFF 1876+NUCLDLIB DC 18F'-1' LIST OF GLOBALED LOADLIBS @V6BE17A 06360000
000DC8 00000000 1877+NUCLODSV DC F'0' SAVE AREA FOR LOADLIB TOTALS @V6BE17A 06370000
000DCC 1878+NUCLDIRC DS 8A(0) PTRS TO LOADLIB DIRECTORIES @V6BE17A 06380000
000DEC 00000000 1879+NUCAPIO DC V(DMSPIO) DMSPIO ROUTINE. @V6BD7H2 06390000
000DF0 00000000 1880+ATCBPTR DC V(BGTCB) DOS TCB ADDRESS J0000SP1 06400200
000DF4 00000000 1881+AGAMSEG DC A(0) GAM/SP ANCHOR BLK ADDRESS J0000SP1 06400300
000DF8 00000000 1882+NUCALPHA DC A(0) V(DMSALP) ADDR(START OF CMS NUCL. CODE).J0000SP1 06400400
000DFC 00000000 1883+NUCSIGMA DC A(0) V(DMSSIG) ADDR(START OF NUC SHARED STOR)J0000SP1 06400500
000E00 00000000 1884+NUCOMEGA DC A(0) V(DMSOME) ADDR(END OF CMS NUCLEUS CODE).J0000SP1 06400600
000E08 1885+NUCPLIST DS 0D UNTOKENIZED PLIST. J0000SP1 06400700
000E08 00000000 1886+NUCPLCMD DC A(0) ADDRESS OF COMMAND TOKEN. J0000SP1 06400800
000E0C 00000000 1887+NUCPLBEG DC A(0) ADDR OF START OF ARG STRING. J0000SP1 06400900
000E10 00000000 1888+NUCPLEND DC A(0) ADDR OF END OF ARG STRING. J0000SP1 06401000
000E14 00000000 1889+NUCPLFID DC A(0) ADDR OF FN FT FM IDENTIFIER. J0000SP1 06401100
00E14 1890+NUCPLSWT EQU NUCPLFID 1-BYTE SWITCH USED IN DMSSCN. J0000SP1 06401200
000E18 0000000000000000 1891+ DC 4F'0' RESERVED. J0000SP1 06401300
000E28 00000000 1892+NUCSZABV DC A(0) SIZE OF AREA ABOVE NUC. FRETEDJ0000SP1 06401400
000E2C 00000000 1893+NUCADFNC DC V(DMSFNC) DMSFNC ADDRESS. J0000SP1 06401500
000E30 00000000 1894+NUCLDR0S DC F'0' SAVE R0 IN DMSLDR (NEW FORM PLJ0000SP1 06401600
000E34 00000000 1895+NUCUPPER DC V(DMSCRDUP) UPPERCASE TRANSLATE TABLE. J0000SP1 06401700
000E38 00000000 1896+NUCERT DC A(0) V(DMSERT) DMSERT WORK AREA ADDRESS. J0000SP1 06401800
000E3C 00000000 1897+NUCXCBLK DC A(0) ANCHOR FOR NUCLEUS J0000SP1 06401900
1898+* EXTENSION CHAIN. J0000SP1 06402000
000E40 00000000 1899+NUCXFRES DC F'0' CUMULATIVE AMOUNT OF J0000SP1 06402100
1900+* TYPE=NUCLEUS FREE STORAGE WHICH WILL BE RETAINED BY J0000SP1 06402200
1901+* NUCLEUS EXTENSIONS THROUGH AN ABEND. THIS DOES NOT J0000SP1 06402300
1902+* INCLUDE STORAGE ACCOUNTED FOR IN SCBLOCKS IN THE J0000SP1 06402400
1903+* NUCXCBLK CHAIN. THIS FIELD IS USED BY DMSABN WHEN J0000SP1 06402500
1904+* PERFORMING ABEND RECOVERY. J0000SP1 06402600
000E44 00000000 1905+NUCXCBEE DC A(0) SCBLOCK FREE LIST ANCHOR. J0000SP1 06402700
000E48 00000000 1906+NUCUSER1 DC F'0' FW FOR EXCLUSIVE USE OF USERS J0000SP1 06402800
000E4C 00000000 1907+NUCUSER2 DC F'0' FW FOR EXCLUSIVE USE OF USERS J0000SP1 06402900
000E50 00000000 1908+NUCUSER3 DC F'0' FW FOR EXCLUSIVE USE OF USERS J0000SP1 06403000
000E54 00000000 1909+NUCUSER4 DC F'0' FW FOR EXCLUSIVE USE OF USERS J0000SP1 06403100
1910+* J0000SP1 06403200
1911+* USERLVL IS RESERVED FOR USE BY THE USER. IT'S J0000SP1 06403300
1912+* CONTENTS ARE RETURNED IN R0 AFTER QUERY CMSLEVEL J0000SP1 06403400
1913+* IS ISSUED. J0000SP1 06403500
1914+* J0000SP1 06403600
000E58 1915+USERLVL DS F J0000SP1 06403700
1 ICATS MAINLINE PAGE 48
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0 1916+* J0000SP1 06403800
1917+* THE FOLLOWING 2 FULL WORDS ARE INITIALIZED IN DMSINI. J0000SP1 06403900
1918+* J0000SP1 06404000
1919+* THE FOLLOWING 4 BYTES ARE RESERVED FOR IBM USE ONLY. J0000SP1 06404100
1920+* THEY CONTAIN INFORMATION RELATING TO THE LEVEL J0000SP1 06404200
1921+* OF CMS BEING USED. THEY ARE RETURNED IN R1 AFTER J0000SP1 06404300
1922+* QUERY CMSLEVEL IS ISSUED. J0000SP1 06404400
1923+* J0000SP1 06404500
000E5C 1924+CMSLVL DS X RESERVED FOR FUTURE USE J0000SP1 06404600
000E5D 04 1925+CMSPROG DC X'04' UNIQUE PROGRAM PRODUCT ID J0000SP1 06404700
1926+* DEFINED IN CMSLEVEL MACRO J0000SP1 06404800
000E5E 006F 1927+CMSSERV DC H'111' CMS SERVICE LEVEL IN BINARY J0000SP1 06404900
1928+* J0000SP1 06405000
1929+* ACMSLVLM IS RESERVED FOR IBM USE ONLY. IT CONTAINS J0000SP1 06405100
1930+* A POINTER TO THE MESSAGE QUERY CMSLEVEL ISSUES. J0000SP1 06405200
1931+* J0000SP1 06405300
000E60 00000000 1932+ACMSLVLM DC V(CMSLVLM) J0000SP1 06405400
000E68 1933+ DS 0D ALIGN END OF NUCON @V6BD7G9 06410000
1934+ POP PRINT @V6BD7G9 06420000
1 ICATS MAINLINE PAGE 49
- LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 14.55 10/23/84
0024FC0 1936 ICATS CSECT RETURN TO NORMAL CSECT ICA07480
1937 * ICA07490
1938 * THE NEXT 2 LINES ARE THERE JUST TO LET CMS KNOW, VIA THE LOADER, ICA07500
1939 * HOW MUCH MEMORY I INTEND TO USE IN THIS PROGRAM. THE LAST THING ICA07510
1940 * IN MY MEMORY WILL BE THE OUTPUT BUFFER WHICH STARTS AT X'30000' ICA07520
1941 * AND GOES ON FOR X'30088' (SEE ABUFFER & LBUFFER). ICA07530
1942 * 262280 = X'40088' = (START OF BUFFER) + (LENGTH OF BUFFER) ICA07540
1943 * - START OF PROGRAM (X'20000') ICA07550
1944 * THE REASON I DO THIS IS SO THAT CMS WILL NOT ALLOCATE GETMAIN ICA07560
1945 * AND DMSFREE REQUESTS OVER THE TOP OF MY PROGRAM. ICA07570
1946 * ORG ICATS+262280 ICA07580
1947 * DC X'FA' ICA07590
1948 END ICA07600
1 RELOCATION DICTIONARY PAGE 50
-POS.ID REL.ID FLAGS ADDRESS ASM 0201 14.55 10/23/84
0 0002 0001 0C 020020
0002 0002 0C 020026
0002 0002 0C 0200B2
0002 0002 08 0200C5
0002 0002 0C 0200CE
0002 0002 08 020181
0002 0002 0C 02018A
0002 0002 0C 02039C
0002 0002 0C 0203C0
0002 0002 08 0203F4
0002 0002 0C 0204DE
0002 0002 0C 020564
0002 0002 0C 02058C
0002 0002 08 020599
0002 0002 0C 020808
0002 0002 08 024D2D
0002 0002 0C 024E64
0002 0002 0C 024E70
0002 0002 0C 024E74
0002 0002 0C 024E78
0002 0002 0C 024E7C
0002 0002 0C 024E80
0002 0002 0C 024E84
0002 0002 0C 024E88
0002 0002 0C 024E8C
0002 0002 0C 024E90
0002 0003 1C 020654
0002 0003 1C 020660
0002 0004 1C 02066C
0002 0005 1C 020678
0002 0005 1C 020690
0002 0006 1C 020684
0002 0007 1C 02069C
0002 0007 1C 0206A8
0002 0008 1C 0206B4
0002 0008 1C 0206C0
0002 0009 1C 0206CC
0002 000A 1C 0206D8
0002 000B 1C 0206E4
0002 000C 1C 0206F0
0002 000D 1C 0206FC
0002 000E 1C 020708
0002 000F 1C 020810
0002 0010 1C 020814
0002 0011 1C 020818
0002 0012 1C 024CF0
0002 0013 1C 024CF4
0002 0014 1C 024CF8
0002 0015 1C 024CFC
0002 0016 1C 024D00
0002 0017 1C 024D04
0002 0018 1C 024D08
0002 0019 1C 024D0C
0002 001A 1C 024D10
0002 001B 1C 024D14
1 RELOCATION DICTIONARY PAGE 51
-POS.ID REL.ID FLAGS ADDRESS ASM 0201 14.55 10/23/84
0 0002 001C 1C 024D18
0002 001D 1C 024D1C
0002 001E 1C 024D20
1 CROSS-REFERENCE PAGE 52
-SYMBOL LEN VALUE DEFN REFERENCES ASM 0201 14.55 10/23/84
0AETTE 00004 00024D0C 00877 00248 00467
AICDATA 00004 0002058C 00678 00131
AINCLCMD 00001 00020598 00682 00510
ALL 00001 000000FF 00923 00282 00312 00354 00360 00394 00395 00396 00572
AMESSAGE 00004 00024D04 00875 00547 00594
APARSE 00004 00024D10 00878 00195 00445
AREADRCB 00004 00024CF0 00870 00369
AWRITUTS 00004 00024CF8 00872 00526 00588
BADBYE 00002 000204C6 00601 00590
BADCMD 00002 00020496 00581 00497
BADCONTA 00002 000204B6 00591 00583
CBCHAIN 00008 00022DB0 00855 00903 00906 00907
CBDISK 00001 00000000 01131 00124
CBFIRST 00004 00024E6C 00905 00342
CBTERM 00001 00000000 01147 00121
CBTERMEA 00003 00000012 01152 00649
CBTERMFP 00004 00000000 01148 00653
CBUSER 00001 00000000 01116 00123
CBUTS 00001 00000000 01096 00122
CBUTSCSW 00002 00000016 01107 00373
CBUTSFGA 00001 00000014 01102 00345 00360 00361 00395
CBUTSFP 00004 00000008 01098 00347
CMDCNT 00002 0002064A 00729 00469
CMDCONTB 00002 0002030E 00453 00447
CMDCONTC 00006 00020358 00475 00473
CMDCONTE 00002 00020472 00554 00515
CMDCONTF 00004 00020490 00573 00567
CMDEND 00002 00020476 00565 00550 00602
CMDNAME 00008 000205C8 00691 00509
CMDTRAC1 00004 00020320 00459 00456
CMDTRAC2 00006 00020332 00463 00460
CMDTRAC3 00002 00020338 00465 00458 00462
CMDUP3 00004 00020354 00474 00477
CONCTTET 00023 0002070D 00752 00751
CONSCMD 00001 00000080 00933 00268 00282 00459
CONSOLE 00002 0002016C 00267 00223
CONSTACK 00320 00000A60 01766 01505
CONTROL0 00004 00020594 00680 00145 00146 00147 00619 00620
CONT1 00001 000200AC 00178 00160
CPULOG 00008 00000080 01345 01346
CURRLEN 00002 00024E94 00919 00192 00193 00280 00302 00444
CURRSMSG 00004 00024E78 00909 00232 00300 00309
CURRTEXT 00130 00024E96 00920 00187 00275 00303
C0 00001 00000000 01214 00145 00145 00147 00147 00620 00620
DIAGTIME 00024 00000280 01374 01375
DISABSSM 00001 00020589 00677 00220
DISPATCH 00002 00020106 00217 00230 00283 00313 00356 00397 00887
DISPCONA 00006 0002012E 00232 00226
DISPTTE 00001 00024F18 00925 00466
DISPTTEE 00001 00024FC0 01089 00925
DISPTYPE 00007 00024F19 00926 00457 00461 00463
DMPTITLE 00132 000003BC 01412 01410
DMSA0004 00002 000200A2 00168 00162
DMSA0039 00002 000202C0 00383 00377
DMSA0097 00002 00020448 00538 00531
1 CROSS-REFERENCE PAGE 53
-SYMBOL LEN VALUE DEFN REFERENCES ASM 0201 14.55 10/23/84
0DMSA0148 00002 00020548 00637 00631
DMSC0004 00001 00000081 00169 00164
DMSC0148 00001 00000081 00638 00633
DMSL0004 00001 0000003F 00167 00165
DMSL0039 00001 00000071 00382 00380
DMSL0097 00001 00000046 00537 00535
DMSL0148 00001 00000041 00636 00634
DMST0004 00001 00020061 00165 00167
DMST0039 00001 0002024D 00380 00382
DMST0097 00001 00020401 00535 00537
DMST0148 00001 00020505 00634 00636
DMS0001A 00002 00020024 00142 00139
DMS0035B 00001 000200C8 00188 00191
DMS0035C 00002 000200CC 00189 00185
DMS0037B 00001 00020184 00276 00279
DMS0037C 00002 00020188 00277 00273
DMS0095A 00001 00020394 00491 00484
DMS0145A 00002 000204DC 00617 00614
DOCMD 00002 0002030A 00451 00393
DOCMDR14 00004 000207A4 00801 00442 00452 00573
DONTDO 00004 000202E4 00394 00392
DOUTSCMD 00004 000202E0 00393 00372
DROPCMD 00008 00020628 00707 00650
DROPCUU 00008 00020638 00709 00649
ENABSSM 00001 00020588 00676 00269 00310 00355 00364
ENDPGM 00001 00000040 00929 00218
FAKEINT 00001 00000010 00943 00396
FLAGA 00001 00024F20 00927 00218 00225 00235 00354
FLAGB 00001 00024F21 00932 00268 00282 00299 00312 00362 00394 00455 00459 00520 00582
FLAGC 00001 00024F22 00937 00396 00505 00566 00572
FOUNDRES 00002 0002046E 00552 00476
FPRLOG 00008 00000160 01357 01409
FRSTSMSG 00004 00024E80 00911 00307
GPRLOG 00004 00000180 01358 01405
ICATEXIH 00001 00000000 00117 00141
ICATS 00001 00020000 00118 00116 00847 00847 01177 01233 01936
ICDATA 00008 00024CF0 00859 00116 00120 00678
IDENTIFY 00008 000205A0 00683 00179
IGOTIT 00001 00000020 01105 00361 00395
INCLCMD 00008 000205C0 00689 00682
INTISIN 00001 00000040 01104 00345 00360
IPLPSW 00008 00000000 01317 01320
LASTSMSG 00004 00024E84 00912 00305
LOADBYE 00002 0002046A 00549 00528
LOADCONA 00002 000203EE 00529 00521
LOOPA 00002 00020552 00647 00654
LOWSAVE 00160 000000C0 01355 01406
MSG1 00001 00020754 00759 00593 00762
MSG1CMD 00008 00020755 00760 00592
MSG1EQU 00001 00000020 00762 00759
MYBUFR 00080 000207A8 00802 00533 00546
MYNODEID 00008 00024D4C 00895 00198
MYVMUID 00008 00024D54 00896 00197
NETVMUID 00008 00024D5C 00897 00199
NEXTSMSG 00004 00024E7C 00910 00232
1 CROSS-REFERENCE PAGE 54
-SYMBOL LEN VALUE DEFN REFERENCES ASM 0201 14.55 10/23/84
0NEXTTTE 00004 00024E90 00916 00116
NORESCMD 00001 00000020 00941 00505 00566 00572
NOTRES 00002 00020366 00479 00471
NUCON 00001 00000000 01237 00119
NUCPLFID 00004 00000E14 01889 01890
NUMFINRD 00002 0000055C 01510 00222
PARM0 00008 00024F40 01073 00368 00525 00587
PARM1 00008 00024F48 01074 00194 00197 00443 00475 00480 00509 00540 00592
PARM15 00008 00024FB8 01088 00523 00585
PARM3 00008 00024F58 01076 00198
PARM5 00008 00024F68 01078 00199
PARSECMD 00002 000202F4 00441 00281 00311
QUIT 00002 000204CA 00607 00173 00219
QUIT1 00002 0002054E 00642 00629
QUIT2 00002 00020570 00655 00648
RESCMDS 00008 0002064C 00730 00472
R0 00001 00000000 01188 00119 00193 00194 00280 00367 00443 00524 00586
R1 00001 00000001 01189 00179 00192 00368 00444 00510 00525 00546 00587 00593 00650
R10 00001 0000000A 01198 00371 00385
R11 00001 0000000B 01199 00127 00128 00129 00659
R12 00001 0000000C 01200 00127 00129 00130 00130 00660
R14 00001 0000000E 01202 00132 00196 00206 00208 00229 00281 00311 00370 00393 00442 00446 00452 00527 00548 00560
00573 00574 00589 00595 00657 00658
R15 00001 0000000F 01203 00128 00195 00196 00205 00206 00207 00208 00227 00229 00369 00370 00371 00445 00446 00496
00496 00514 00526 00527 00547 00548 00559 00560 00588 00589 00594 00595 00656
R2 00001 00000002 01190 00120 00131
R3 00001 00000003 01191 00121 00646 00647 00647 00653
R4 00001 00000004 01192 00122 00342 00343 00343 00347 00363
R5 00001 00000005 01193 00123
R6 00001 00000006 01194 00124
R7 00001 00000007 01195 00125 00156 00158 00300 00304 00304 00305 00307 00309 00469 00470 00470 00477 00481 00492
00514 00543 00625 00627
R8 00001 00000008 01196 00158 00159 00159 00170 00373 00387 00472 00474 00474 00475 00513 00553 00553 00559 00627
00628 00628 00639
R9 00001 00000009 01197 00374 00374 00375 00389
SAVER14 00004 000207A0 00800 00132 00657
SAVTBENT 00002 00020648 00712 00506 00570
SENSE0 00001 00024E61 00902 00375
SLEEPTTE 00001 0002014E 00251 00247
SLEEPTXT 00029 0002014F 00252 00251
SMSG 00002 000201A2 00298 00233
SMSGBUFF 00169 00024DB8 00900 00806 00807
SMSGBUFR 00139 0002083B 00835 00909 00910 00911 00912
SMSGCMD 00001 00000040 00934 00299 00312
SMSGCONT 00002 000201CC 00308 00306
SMSGLEN 00002 00000008 01093 00302
SMSGNTRY 00001 00000000 01091 00125
SMSGTEXT 00129 0000000A 01094 00303
SMSGUID 00008 00000000 01092 00301
SMSGVMID 00008 00024D38 00889 00301
STATEFN 00008 00020608 00701 00480 00481
TBENT 00002 00000590 01525 00506 00570
TERMINT 00001 00000008 00930 00225
TERM1ST 00004 00024E68 00904 00646
THISUTS 00004 00024F38 01067 00363
1 CROSS-REFERENCE PAGE 55
-SYMBOL LEN VALUE DEFN REFERENCES ASM 0201 14.55 10/23/84
0TRACETBL 00016 00020DB0 00848 00116 00914 00915 00916
UTS 00002 000201E0 00339 00236
UTSCMD 00001 00000020 00935 00362 00394 00455 00520 00582
UTSGOTIT 00002 00020206 00359 00346
UTSINT 00001 00000080 00928 00235 00354
UTSLOOPA 00002 000201E4 00343 00348
UTSNONE 00002 000201FA 00353 00344
VMCPARM 00040 00020778 00773 00156 00625
VMCPAUTH 00001 00000000 00780 00812
VMCPFLG1 00001 00020778 00774 00151
VMCPFUNC 00002 0002077A 00779 00153 00624
VMCPLENA 00004 0002078C 00795 00155
VMCPSMSG 00001 00000020 00777 00151
VMCPUAUT 00001 00000001 00781 00814
VMCPVADA 00004 00020788 00794 00154
WAITPSW 00005 00024D28 00886 00250
1 LITERAL CROSS-REFERENCE PAGE 56
-SYMBOL LEN VALUE DEFN REFERENCES ASM 0201 14.55 10/23/84
0=X'5000000000000000'
00008 000207F8 00804 00523
=X'1000000000000000'
00008 00020800 00805 00585
=A(SMSGBUFF)
00004 00020808 00806 00154
=A(L'SMSGBUFF)
00004 0002080C 00807 00155
=V(CONFIG)
00004 00020810 00808 00205
=V(ATTACH)
00004 00020814 00809 00207
=V(DOTERM)
00004 00020818 00810 00227
=X'0002C000'
00004 0002081C 00811 00513
=AL2(VMCPAUTH)
00002 00020820 00812 00153
=H'0' 00002 00020822 00813 00222
=AL2(VMCPUAUT)
00002 00020824 00814 00624
=C'UTS '
00007 00020826 00815 00457
=C'CONSOLE'
00007 0002082D 00816 00461
=C'SMSG '
00007 00020834 00817 00463
1 ASSEMBLER DIAGNOSTICS AND STATISTICS PAGE 57
- ASM 0201 14.55 10/23/84
0NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS 0
OPTIONS FOR THIS ASSEMBLY
ALIGN, ALOGIC, BUFSIZE(STD), NODECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
NOMLOGIC, NUMBER, OBJECT, NORENT, RLD, STMT, NOLIBMAC, TERMINAL, NOTEST, XREF(SHORT)
SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 7294/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT 760
TOTAL RECORDS READ FROM SYSTEM LIBRARY 1935
TOTAL RECORDS PUNCHED 71
TOTAL RECORDS PRINTED 2313