-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathPCRGETC.LISTING
398 lines (395 loc) · 33.4 KB
/
PCRGETC.LISTING
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
¤
High Level Assembler Option Summary (PTF UI65289) Page 1
HLASM R6.0 2020/06/17 09.39
No Overriding ASMAOPT Parameters
No Overriding Parameters
No Process Statements
Options for this Assembly
NOADATA
ALIGN
NOASA
BATCH
CODEPAGE(047C)
NOCOMPAT
NODATAMAP
NODBCS
NODECK
DXREF
ESD
NOEXIT
FAIL(NOMSG,NOMNOTE,MAXERRS(500))
FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOLONGER,NOPAGE0,PUSH,RECORD,NOSIGNED,NOSUBSTR,NOTRUNC,USING0)
NOFOLD
NOGOFF
NOINFO
ILMA
LANGUAGE(EN)
NOLIBMAC
LINECOUNT(60)
LIST(121)
MACHINE(,NOLIST)
MXREF(SOURCE)
OBJECT
OPTABLE(UNI,NOLIST)
NOPCONTROL
NOPESTOP
NOPROFILE
NORA2
NORENT
RLD
RXREF
SECTALGN(8)
SIZE(MAX)
NOSUPRWARN
SYSPARM()
NOTERM
NOTEST
THREAD
NOTRANSLATE
TYPECHECK(MAGNITUDE,REGISTER)
USING(NOLIMIT,MAP,WARN(15))
NOWORKFILE
XREF(SHORT,UNREFS)
No Overriding DD Names
¤
External Symbol Dictionary Page 2
Symbol Type Id Address Length Owner Id Flags Alias-of HLASM R6.0 2020/06/17 09.39
PCRGETC SD 00000001 00000000 00000054 06
¤
Page 3
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2020/06/17 09.39
1 *********************************************************************** PCR00010
2 * PLI SubRoutine PCR00020
3 * Will return the User Word from the Nucext PCR, which should point PCR00030
4 * to the active PCRCB. PCR00040
5 * This routine will be linkedited into any PL/I module that calls PCR00050
6 * it to obtain the address of the active PCRCB. PCR00060
7 * PCR00070
8 PCRGETC AMODE 31 PCR00080
9 PCRGETC RMODE ANY PCR00090
000000 00000 00054 10 PCRGETC CSECT PCR00100
12 REGEQU PCR00120
13+ PUSH PRINT 01-REGEQ
14+*
15+*** SYMBOLIC REGISTER EQUATES
16+*
18+* GENERAL PURPOSE REGISTERS
00000 20+R0 EQU 0 01-REGEQ
00001 21+R1 EQU 1 01-REGEQ
00002 22+R2 EQU 2 01-REGEQ
00003 23+R3 EQU 3 01-REGEQ
00004 24+R4 EQU 4 01-REGEQ
00005 25+R5 EQU 5 01-REGEQ
00006 26+R6 EQU 6 01-REGEQ
00007 27+R7 EQU 7 01-REGEQ
00008 28+R8 EQU 8 01-REGEQ
00009 29+R9 EQU 9 01-REGEQ
0000A 30+R10 EQU 10 01-REGEQ
0000B 31+R11 EQU 11 01-REGEQ
0000C 32+R12 EQU 12 01-REGEQ
0000D 33+R13 EQU 13 01-REGEQ
0000E 34+R14 EQU 14 01-REGEQ
0000F 35+R15 EQU 15 01-REGEQ
37+* FLOATING POINT REGISTERS
00000 39+F0 EQU 0 01-REGEQ
00002 40+F2 EQU 2 01-REGEQ
00004 41+F4 EQU 4 01-REGEQ
00006 42+F6 EQU 6 01-REGEQ
44+* EXTENDED CONTROL REGISTERS
00000 46+C0 EQU 0 01-REGEQ
00001 47+C1 EQU 1 01-REGEQ
00002 48+C2 EQU 2 01-REGEQ
00003 49+C3 EQU 3 01-REGEQ
00004 50+C4 EQU 4 01-REGEQ
00005 51+C5 EQU 5 01-REGEQ
00006 52+C6 EQU 6 01-REGEQ
00007 53+C7 EQU 7 01-REGEQ
i 00008 54+C8 EQU 8 01-REGEQ
Page 4
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2020/06/17 09.39
00009 55+C9 EQU 9 01-REGEQ
0000A 56+C10 EQU 10 01-REGEQ
0000B 57+C11 EQU 11 01-REGEQ
0000C 58+C12 EQU 12 01-REGEQ
0000D 59+C13 EQU 13 01-REGEQ
0000E 60+C14 EQU 14 01-REGEQ
i 0000F 61+C15 EQU 15 01-REGEQ
Page 5
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2020/06/17 09.39
63+ POP PRINT 01-REGEQ
000000 90EC D00C 0000C 64 STM R14,R12,12(R13) PCR00130
000004 18AF 65 LR R10,R15 PCR00140
R:A 00000 66 USING PCRGETC,R10 PCR00150
67 * PCR00160
68 * Where to put the value? PCR00170
69 * PCR00180
000006 5821 0000 00000 70 L R2,0(R1) ;Here's the address to modify PCR00190
71 * PCR00200
72 * Get the PCR User Word PCR00210
73 * PCR00220
74 NUCEXT QUERY,NAME='PCR',ERROR=LEAVE PCR00230
00000A 0700 79+ CNOP 0,4 @VR1BR4Z 02-DMSPG
00000C 80+ DS 0X @VR1BR4Z 02-DMSPG
00000C 4110 A014 00014 81+ LA 1,*+8 @VR1BR4Z 02-DMSPG
000010 47F0 A02C 0002C 82+ B DMS0003A 02-DMSPG
000014 D5E4C3C5E7E34040 91+ DC CL8'NUCEXT' 04-DMSPW
00001C D7C3D94040404040 101+ DC CL8'PCR' 04-DMSPW
000024 00000000 110+ DC AL4(0) 04-DMSPW
000028 FFFFFFFF 120+ DC XL4'FFFFFFFF' 04-DMSPW
00002C 125+DMS0003A DS 0H 03-DMSPW
00002C 128+ DS 0H @V6PXJCT 02-CMSCA
00002C 1BFF 129+ SR 15,15 @V6PXJCT 02-CMSCA
00002E 56F0 A050 00050 130+ O 15,=X'04000000' @V6PXJKG 02-CMSCA
000032 0ACC 131+ SVC 204 @V6PXJCT 02-CMSCA
000034 12FF 132+ LTR 15,15 @V6PXJCT 02-CMSCA
000036 4770 A046 00046 133+ BNZ LEAVE @V6PXJCT 02-CMSCA
R:1 00000 134 USING SCBLOCK,R1 PCR00240
00003A 5830 1004 00004 135 L R3,SCBWKWRD PCR00250
00003E D203 2000 3000 00000 00000 136 MVC 0(4,R2),0(R3) PCR00260
137 DROP R1 PCR00270
000044 17FF 138 XR R15,R15 PCR00280
00046 139 LEAVE EQU * PCR00290
000046 50FD 0010 00010 140 ST R15,16(R13) PCR00300
00004A 98EC D00C 0000C 141 LM R14,R12,12(R13) PCR00310
00004E 07FE 142 BR R14 PCR00320
143 * PCR00330
144 SCBLOCK PCR00340
145+ PUSH PRINT @V6BD7G9 01-SCBLO
146+* @V6BD7G9
147+*noprint @SG8859E
148+*** SCBLOCK - SUBCOMMAND CONTROL BLOCK @V6BD7G9
149+* @V6BD7G9
150+* 0 +-------------------+-------------------+ @V6BD7G9
151+* | SCBFWPTR | SCBWKWRD | @V6BD7G9
152+* 8 +-------------------+-------------------+ @V6BD7G9
153+* | SCBNAME | @V6BD7G9
154+* 10 +---------------------------------------+ @V6BD7G9
155+* | SCBPSW | @V6BD7G9
156+* 18 +-------------------+-------------------+ @V6DF9DA
157+* | SCBXORG | SCBXLEN | @V6DF9DA
158+* 20 +----+--------------+-------------------+ @VA34091
159+* | F*2| Available | SCBSEGID | @VA34091
160+* 28 +----+--------------+-------------------+ @VA34091
i 161+* | SCBSEGID | SCBTESTK | @VA34091
Page 6
Active Usings: PCRGETC,R10
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2020/06/17 09.39
162+* 30 +-------------------+-------------------+ @VA34091
163+* @VA34091
164+* NOTE: also change EXISBLK if the size of SCBLOCK changes. @VA34091
165+* @VA34091
166+*** SCBLOCK - SUBCOMMAND CONTROL BLOCK @V6BD7G9
167+*enoprint @SG8859E
168+* @V6BD7G9
170+************************************************************** @SI1469E
171+* @SI1469E
172+* Name - SCBLOCK @SI1469E
173+* @SI1469E
174+* Description - Subcommand Control Block @SI1469E
175+* @SI1469E
176+* DSECT - SCBLOCK @SI1469E
177+* @SI1469E
178+* Function - The SCBLOCK describes the dynamic @SI1469E
179+* entry point for the SUBCOM function and is @SI1469E
180+* dynamically allocated from free storage by @SI1469E
181+* DMSITS. @SI1469E
182+* @SI1469E
183+************************************************************** @SI1469E
000000 00000 00030 184+SCBLOCK DSECT @V6BD7G9 01-SCBLO
000000 185+SCBFWPTR DS F CHAIN POINTER TO NEXT SCBLOCK @V6BD7G9 01-SCBLO
000004 00000000 186+SCBWKWRD DC A(0) AVAILABLE FOR USER INFORMATION @V6BD7G9 01-SCBLO
000008 187+SCBNAME DS CL8 NAME OF SUBCOMMAND ENVIRONMENT @V6BD7G9 01-SCBLO
000010 188+SCBPSW DS 0D STARTING PSW FOR SUBCOMMAND @V6BD7G9 01-SCBLO
000010 189+SCBINT DS 1X PSW INTERRUPT BITS @VA59251 01-SCBLO
190+* @VA38649
191+* The following table shows the combination of bits @VA38649
192+* in SCBPSW that determine what the various INTTYPEs are. @VA38649
193+* @VA38649
194+*noformat @SG8859E
195+* INTTYPE |BIT 0|BIT 1| |BIT 7|HEX value @VA38649
196+* -------------------------------------------------------- @VA38649
197+* NONE 0 0 ... 0 00 @VA38649
198+* EXTERNAL 0 0 ... 1 01 @VA38649
199+* NONCONSOLE 0 1 ... 0 40 @VA38649
200+* NONCONSOLE & EXTERNAL 0 1 ... 1 41 @VA38649
201+* CONSOLE 1 0 ... 0 80 @VA38649
202+* CONSOLE & EXTERNAL 1 0 ... 1 81 @VA38649
203+* IO 1 1 ... 0 C0 @VA38649
204+* ALL 1 1 ... 1 C1 @VA38649
205+* @VA38649
206+*enoformat @SG8859E
207+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *@V6DF9DA
208+* NUCX FIELDS. THESE ARE PRESENT, BUT NOT USED, *@V6DF9DA
209+* IN SCBLOCKS ON THE NUCSCBLK CHAIN. *@V6DF9DA
210+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *@V6DF9DA
000011 211+SCBKEY DS 1X PSW KEY @VA59251 01-SCBLO
000012 212+SCBSFLAG DS 1X SYSTEM FLAG BYTE. @V6SS0KB 01-SCBLO
00080 213+SCBSFSYS EQU X'80' DENOTES "SYSTEM" ROUTINE -- @V6DF9DA 01-SCBLO
214+* WILL NOT BE AUTOMATICALLY DELETED DURING ABEND @V6DF9DA
215+* PROCESSING. @V6DF9DA
i 00040 216+SCBSFSER EQU X'40' DENOTES "SERVICE" ROUTINE -- @V6DF9DA 01-SCBLO
Page 7
Active Usings: PCRGETC,R10
D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2020/06/17 09.39
217+* WILL BE CALLED WITH "PURGE" ARGUMENT DURING ABEND @V6DF9DA
218+* PROCESSING. @V6DF9DA
00020 219+SCBSFABN EQU X'20' USED DURING ABEND @V6DF9DA 01-SCBLO
220+* PROCESSING. @V6DF9DA
00010 221+SCBSFEND EQU X'10' DENOTES 'END OF COMMAND' @V6GM4T6 01-SCBLO
222+* ROUTINE @V6GM4T6
00020 223+SCBSFINT EQU SCBSFABN USED DURING END OF COMMAND @V6GM4T6 01-SCBLO
224+* PROCESSING. @V6GM4T6
00008 225+SCBSPERM EQU X'08' DENOTES THAT THIS NUCLEUS @VR100KB 01-SCBLO
226+* EXTENSION WON'T BE DELETED @VR100KB
227+* DURING NUCXDROP ALL PROCESS @VR100KB
00004 228+SCBSFIMM EQU X'04' DENOTES THAT THIS NUCLEUS @V6GM3H9 01-SCBLO
229+* EXTENSION CAN ALSO BE CALLED @V6GM3H9
230+* AS AN IMMEDIATE COMMAND @V6GM3H9
00002 231+SCBSFX EQU X'02' DENOTES A LOOK-ASIDE @V6DF9DA 01-SCBLO
232+* ENTRY POINTING TO A REAL CMS NUCLEUS ROUTINE. @V6DF9DA
00001 233+SCBSHIDE EQU X'01' USED TO HIDE A NUCLEUS @VA17031 01-SCBLO
234+* EXTENSION TEMPORARILY. @VA17031
000013 235+SCBUFLAG DS 1X USER FLAG BYTE. @V6SS0KB 01-SCBLO
236+* @V6DF9DA
237+* @V6DF9DA
000014 238+SCBENTR DS A ENTRY POINT ADDRESS IN PSW @V6SS0KB 01-SCBLO
239+* @V6SS0KB
000018 240+SCBXORG DS A ADDRESS WHERE NUCLEUS @V6DF9DA 01-SCBLO
241+* EXTENSION WAS LOADED IN FREE STORAGE. @V6DF9DA
242+* @V6DF9DA
00001C 243+SCBXLEN DS F LENGTH IN BYTES OF NUCLEUS @V6DF9DA 01-SCBLO
244+* EXTENSION. MAY BE ZERO FOR SECONDARY ENTRY POINTS. @V6DF9DA
245+* @V6DF9DA
000020 246+SCBSFLG2 DS X F*2 SECOND FLAG BYTE @VA34091 01-SCBLO
00080 247+SCBSFA31 EQU X'80' EXTENSION IS AMODE 31 @V6PXVLZ 01-SCBLO
00040 248+SCBSFA24 EQU X'40' EXTENSION IS AMODE 24 @V6PXVLZ 01-SCBLO
00020 249+SCBSFSEG EQU X'20' SEGMENT RESIDENT @V6PXPVC 01-SCBLO
250+* WHEN BOTH ON, EXTENSION IS AMODE ANY, @V6PXVLZ
251+* WHEN BOTH OFF, EXTENSION IS AMODE SAME. @V6PXVLZ
00010 252+SCBSFUNC EQU X'10' Indicate function can not be S5U29592 01-SCBLO
253+* invoked from the command line
00008 254+SCBSMT EQU X'08' mt subcom @V6PXPVC 01-SCBLO
00004 255+SCBSTPRV EQU X'04' thread private subcom @V6PXPVC 01-SCBLO
000021 256+ DS 3X RESERVED FOR FURTURE USE @V6PXVLZ 01-SCBLO
000024 257+SCBSEGID DS CL8 LOGICAL SEGMENT IDENTIFIER @V6RXPVC 01-SCBLO
00002C 258+SCBTESTK DS F thread execomm stack @VR2LML7 01-SCBLO
000030 259+ DS 0D KEEP DOUBLEWORD ALIGNED @V6PXVT4 01-SCBLO
00030 260+SCBLOCKB EQU *-SCBLOCK LENGTH IN BYTES @V6BD7G9 01-SCBLO
i 00006 261+SCBLOCKD EQU (SCBLOCKB+7)/8 LENGTH IN DWORD @V6BD7G9 01-SCBLO
Page 8
Active Usings: PCRGETC,R10
D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2020/06/17 09.39
263+ POP PRINT @V6BD7G9 01-SCBLO
264 END PCR00350
000050 04000000 265 =X'04000000'
¤
Ordinary Symbol and Literal Cross Reference Page 9
Symbol Length Value Id R Type Asm Program Defn References HLASM R6.0 2020/06/17 09.39
DMS0003A 2 0000002C 00000001 H H 125 82B
LEAVE 1 00000046 00000001 U 139 133B
PCRGETC 1 00000000 00000001 J 10 8 9 66U
R1 1 00000001 00000001 A U 21 70 134U 137D
R10 1 0000000A 00000001 A U 30 65M 66U
R12 1 0000000C 00000001 A U 32 64 141M
R13 1 0000000D 00000001 A U 33 64 140 141
R14 1 0000000E 00000001 A U 34 64 141M 142B
R15 1 0000000F 00000001 A U 35 65 138M 138 140
R2 1 00000002 00000001 A U 22 70M 136
R3 1 00000003 00000001 A U 23 135M 136
SCBLOCK 1 00000000 FFFFFFFF J 184 134U 260
SCBLOCKB 1 00000030 FFFFFFFF A U 260 261
SCBSFABN 1 00000020 FFFFFFFF A U 219 223
SCBWKWRD 4 00000004 FFFFFFFF A A 186 135
=X'04000000'
4 00000050 00000001 X 265 130
¤
Unreferenced Symbols Defined in CSECTs Page 10
Defn Symbol HLASM R6.0 2020/06/17 09.39
46 C0
47 C1
56 C10
57 C11
58 C12
59 C13
60 C14
61 C15
48 C2
49 C3
50 C4
51 C5
52 C6
53 C7
54 C8
55 C9
39 F0
40 F2
41 F4
42 F6
20 R0
31 R11
24 R4
25 R5
26 R6
27 R7
28 R8
29 R9
¤
Macro and Copy Code Source Summary Page 11
Con Source Volume Members HLASM R6.0 2020/06/17 09.39
L2 DMSGPI MACLIB S2 MNT190 CMSCALL DMSPGEN DMSPLGN DMSPLIN DMSPLTL DMSPVER
DMSPWOC DMSPWPC DMSPWUQ DMSPWVF NUCEXT REGEQU
SCBLOCK
¤
Dsect Cross Reference Page 12
Dsect Length Id Defn HLASM R6.0 2020/06/17 09.39
SCBLOCK 00000030 FFFFFFFF 184
¤
Using Map Page 13
HLASM R6.0 2020/06/17 09.39
Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text
Count Id Type Value Range Id Disp Stmt
66 00000006 00000001 USING ORDINARY 00000000 00001000 00000001 10 00050 133 PCRGETC,R10
134 0000003A 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 1 00004 135 SCBLOCK,R1
137 00000044 00000001 DROP 1 R1
¤
General Purpose Register Cross Reference Page 14
Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R6.0 2020/06/17 09.39
0(0) 64 141M
1(1) 64 70N 81M 134U 137D 141M
2(2) 64 70M 136 141M
3(3) 64 135M 136 141M
4(4) 64 141M
5(5) 64 141M
6(6) 64 141M
7(7) 64 141M
8(8) 64 141M
9(9) 64 141M
10(A) 64 65M 66U 141M
11(B) 64 141M
12(C) 64 141M
13(D) 64 140N 141
14(E) 64 141M 142B
15(F) 64 65 129M 129 130M 132M 132 138M 138 140 141M
¤
Diagnostic Cross Reference and Assembler Summary Page 15
HLASM R6.0 2020/06/17 09.39
No Statements Flagged in this Assembly
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 6.0, PTF UI65289
SYSTEM: CMS 29 JOBNAME: (NOJOB) STEPNAME: (NOSTEP) PROCSTEP: (NOPROC)
Data Sets Allocated for this Assembly
Con DDname Data Set Name Volume Member
P1 SYSIN PCRGETC ASSEMBLE B1 ** SFS
L1 SYSLIB PCR MACLIB B1 ** SFS
L2 DMSGPI MACLIB S2 MNT190
SYSLIN PCRGETC TEXT B1 ** SFS
SYSPRINT PCRGETC LISTING B1 ** SFS
19372K allocated to Buffer Pool Storage required 416K
35 Primary Input Records Read 2563 Library Records Read 0 Work File Reads
0 ASMAOPT Records Read 398 Primary Print Records Written 0 Work File Writes
4 Object Records Written 0 ADATA Records Written
Assembly Start Time: 09.39.29 Stop Time: 09.39.29 Processor Time: 00.00.00.1026
Return Code 000