|
Hex Dec Type/Val Lng Label (dup) Comments
---- ---- --------- ---- -------------- --------
0000 0 Structure LABK Map the Load Anchor Block
0000 0 Dbl-Word 8 LABUSRD1 Reserved for non-IBM use
0008 8 Dbl-Word 8 LABUSRD2 Reserved for non-IBM use
0010 16 Signed 4 LABUSRF1 Reserved for non-IBM use
0014 20 Signed 4 LABUSRF2 Reserved for non-IBM use
0018 24 Signed 2 LABUSRH1 Reserved for non-IBM use
001A 26 Signed 2 LABUSRH2 Reserved for non-IBM use
001C 28 Bitstring 1 LABUSRX1 Reserved for non-IBM use
001D 29 Bitstring 1 LABUSRX2 Reserved for non-IBM use
001E 30 Bitstring 1 LABUSRX3 Reserved for non-IBM use
001F 31 Bitstring 1 LABUSRX4 Reserved for non-IBM use
0020 32 Character 32 LABFID (0) File being loaded
0020 32 Character 8 LABFIDFN File name to start loading
0028 40 Character 8 LABFIDFT File type to start loading
0030 48 Signed 2 LABFIDFM File mode to start loading
0032 50 Signed 2 * Reserved for future IBM use
0034 52 Address 4 * Reserved for future IBM use
0038 56 Character 8 LABFIDMB Member to start loading
0040 64 Address 4 LABFWD Address of the next LABK on the
DLULABK chain of successful
CPXLOAD operations
0044 68 Address 4 LABCTLEP Address of control ep for
TYPE=DIRECT
0048 72 Character 8 LABID ID string for the CPXLOAD
operation. This ID string is used
in the CPXUNLOAD command to
identify this CPXLOAD request.
The format of LABID is explained
in the descriptions of LABIDH and
LABIDL.
0050 80 Character 16 LABCTL The control epname to call during
CPXLOAD processing and before
CPXUNLOAD processing. This field
is defined like ICRBK
0060 96 Dbl-Word 8 LABTOD TOD clock value when the CPXLOAD
operation was initiated.
0068 104 Character 8 LABUID Userid (SYSTEM if performed by
SYSTEM CONFIG processing) who
initiated the CPXLOAD operation
0070 112 Address 4 LABBUFAD Address of I/O buffer. LABBUFAD
points to GSDDATA in a GSDBK. Use
the contents of LABBUFAD, back up
by the value (GSDDATA-GSDBK), and
that gives the base address of
the GSDBK for passing to HCPSCCFG
for parsing. LABBUFAD and
LABBUFSZ are copied to their
corresponding DRBK fields for
each call to HCPZIGET. This may
be backed anywhere in storage
since format 2 IDAW lists will be
used.
0074 116 Address 4 LABBUFSZ Length of I/O buffer, in bytes
0078 120 Signed 4 * Reserved for future IBM use
007C 124 Address 4 LABDRBK Address of DRBK for loading file
DRBBUFAD points to GSDDATA in a
GSDBK. Use the contents of
DRBBUFAD, back up by the value
(GSDDATA-GSDBK), and that gives
the base address of the GSDBK for
passing to HCPSCCFG for parsing.
0080 128 Signed 4 LABMAXID Largest ESDID since last END. If
the number of pages gotten for
ESDID pointers (indicated by
LABESDP#) can't hold this many
ESDIDs, then more pages will be
obtained.
0084 132 Signed 4 LABMSGNO Error message for HCPCONSL
0088 136 Signed 4 LABRC Final return code
008C 140 Address 4 LABGSDQ Address of 1st GSDBK in chain of
error message GSDBKs
0090 144 Address 4 LABGSDQE Address of end GSDBK in chain of
error message GSDBKs
0094 148 Address 4 LABWORDP Address of token causing error
0098 152 Signed 4 LABWORDL Length of token causing error
009C 156 Address 4 LABSUBTX Address of substitution text
The length of the LABSYMTB field for BLOCKMAP is 20
00A0 160 Bitstring 20 LABSYMTB SYMTB entry when locating an
external symbol during ad-con
relocation.
00B4 180 Address 4 * Reserved for future IBM use
00B8 184 Address 4 LABESDQ1 Address of chain of ESDBKs built
during processing of the present
portion of TEXT stmts.
00BC 188 Address 4 LABESDQ2 Address of chain of ESDBKs built
during processing of the prior
portions of TEXT stmts.
00C0 192 Signed 4 * Reserved for future IBM use
00C4 196 Address 4 LABLDQ Address of chain of LD entries
00C8 200 Address 4 LABCHGQ Address of chain of CHGBKs
00CC 204 Address 4 LABRLDQ Address of chain of RLDBKs
00D0 208 Signed 4 * Reserved for future IBM use
00D4 212 Signed 2 * Reserved for future IBM use
00D6 214 Signed 2 LABESDP# How many pages for LABESDP
00D8 216 Address 4 LABESDP@ Pointer to 1 or more frames of
1024 addresses each, where the
n-th pointer (n starts at 0) is
the address of the ESDBK for
ESDID n. If the ESDID exceeds
1023, then multiple contiguous
frames will be obtained to
contain all defined ESDIDs. But,
1023 should be enough for all but
the must unusual situations.
00DC 220 Signed 4 LAB2PST Start record number for any
required 2nd pass. To start the
second pass, processing for the
.END statement will place this
value minus 1 into DRBRECNO of
the top DRBK. Hence, the file
that started the CSECT must be
the same file that ends the
CSECT, else DRBRECNO will point
to some strange place in a
different file.
00E0 224 Signed 4 LABUPBSZ UPB value from .UPB card
00E4 228 Address 4 LABESD0L Addr of ESDBK of 0 length
Bit definitions in LABK.LABBF should match the bit
definitions in LRBK.LRBBF. This is because these fields
are frequently moved from one control block to the other.
00E8 232 Bitstring 4 LABBF (0) Flags
00E8 232 Bitstring 1 LABBF0 Options
.1.. .... ICRRLONG X'40' ICRRLONG Caller is LONGREG
..1. .... ICRELONG X'20' ICRELONG Callee is LONGREG
...1 .... ICRESTA X'10' ICRESTA callee uses static
savearea
.... 1... ICRRMP X'08' ICRRMP caller MP capable
.... .1.. ICRERES X'04' ICRERES callee Resident
.... ..1. ICREMP X'02' ICREMP callee MP capable
.... ...1 ICRTRC X'01' ICRTRC issue TRACE
instruction
00E9 233 Bitstring 1 LABBF1 Flags
...1 .... LABBF1TX X'10' LABBF1TX TEXT record
encountered
.... 1... LABBF12P X'08' LABBF12P 2nd pass required
.... .1.. LABBF1OC X'04' LABBF1OC Outside CSECT
.... ..1. LABBF1LT X'02' LABBF1LT LDT, or eof, has
occurred
.... ...1 LABBF1ZZ X'01' LABBF1ZZ fatal error
00EA 234 Bitstring 1 LABBF2 Options copied from LRBK.LRBBF2.
These options would typically be
from CPXLOAD, but anybody could
allocate a Load Request Block
(LRBK) and set LRBK.LRBBF2 bits
as desired.
1... .... LRBBF2LT X'80' LRBBF2LT LET option
.1.. .... LRBBF2NL X'40' LRBBF2NL NOLET option
..1. .... LRBBF2DL X'20' LRBBF2DL DELAY option
...1 .... LRBBF2ND X'10' LRBBF2ND NODELAY option
.... 1... LRBBF2MP X'08' LRBBF2MP MP option
.... .1.. LRBBF2UP X'04' LRBBF2UP NONMP option
00EB 235 Bitstring 1 LABBF3 Options copied from LRBK.LRBBF3.
These options would typically be
from CPXLOAD, but anybody could
allocate a Load Request Block
(LRBK) and set LRBK.LRBBF3 bits
as desired.
.1.. .... LRBBF3SY X'40' LRBBF3SY SYNC specified
..1. .... LRBBF3LK X'20' LRBBF3LK LOCK specified
...1 .... LRBBF3NL X'10' LRBBF3NL NOLOCK specified
.... 1... LRBBF3CN X'08' LRBBF3CN CONTROL specified
.... .1.. LRBBF3NC X'04' LRBBF3NC NOCONTROL
specified
.... ..1. LRBBF3PE X'02' LRBBF3PE PERMANENT
specified
.... ...1 LRBBF3TE X'01' LRBBF3TE TEMPORARY
specified
00EC 236 Character 1 LABPAD Pad character (from .PAD)
00ED 237 Signed 1 LABPASSN In pass number 'n'
00EE 238 Bitstring 1 LABBF4 Options from the OPTIONS
directive. These options are the
actual values from LRBK.LRBBF2 if
specified, or from the OPTIONS
statement otherwise. LRBK.LRBBF2
bits will not be changed by
anything on the OPTIONS
statement.
1... .... LRBBF2LT X'80' LRBBF2LT LET option
.1.. .... LRBBF2NL X'40' LRBBF2NL NOLET option
..1. .... LRBBF2DL X'20' LRBBF2DL DELAY option
...1 .... LRBBF2ND X'10' LRBBF2ND NODELAY option
.... 1... LRBBF2MP X'08' LRBBF2MP MP option
.... .1.. LRBBF2UP X'04' LRBBF2UP NONMP option
00EF 239 Bitstring 1 LABBF5 Options from the OPTIONS
directive. These options are the
actual values from LRBK.LRBBF3 if
specified, or from the OPTIONS
statement otherwise. LRBK.LRBBF3
bits will not be changed by
anything on the OPTIONS
statement.
.1.. .... LRBBF3SY X'40' LRBBF3SY SYNC specified
..1. .... LRBBF3LK X'20' LRBBF3LK LOCK specified
...1 .... LRBBF3NL X'10' LRBBF3NL NOLOCK specified
.... 1... LRBBF3CN X'08' LRBBF3CN CONTROL specified
.... .1.. LRBBF3NC X'04' LRBBF3NC NOCONTROL
specified
.... ..1. LRBBF3PE X'02' LRBBF3PE PERMANENT
specified
.... ...1 LRBBF3TE X'01' LRBBF3TE TEMPORARY
specified
00F0 240 Address 4 LABBASSD ESDBK addr of current base SD or
PC
00F4 244 Signed 4 * Reserved for future IBM use
00F8 248 Dbl-Word 8 LAB$END (0) The end
0048 72 Signed 4 LABIDH If the ID was assigned by
CPXLOAD, then this high order
word of the ID field LABID will
be binary zero. If the ID was
assigned by the user, then this
high order word of the ID field
LABID will be the first 4
characters of the ID.
004C 76 Signed 4 LABIDL If the ID was assigned by
CPXLOAD, then this low order word
of the ID field LABID will be the
binary ID value. If the ID was
assigned by the user, then this
low order word of the ID field
LABID will be the second 4
characters of the ID.
| |