NAME       : HCPMONSK
 DESCRIPTION: Monitor SEEKs Mapping
 DSECT      : MONSK
 FUNCTION   : Map the data needed for monitoring SEEK CCWs
 LOCATED BY : None
 CREATED BY : Dynamically created when needed.
 DELETED BY : Dynamically deleted when 'using' task is finished.
 SERIALIZED : None
 RELOCATION CONSIDERATIONS : None
 NOTES      : This control block is bilingual.  The fields within it can
              be referenced in either ASSEMBLER or PLAS modules.
 NOTES      : The fields in this control block are used for FBA
              devices as well as CKD/ECKD devices.  For FBA
              devices a LOCATE is considered a 'SEEK', and
              cylinder values are calculated from block numbers.

 MONSK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      MONSK          Monitor SEEKs Mapping
0000    0 Signed       4 MONPOSCT       Access arm positioning count
          .... ...1      MONPOS1        1 MONPOS1 Indicate 1 ccw causing
                                        arm movement
0004    4 Signed       4 *              * IBM RESERVED *
0008    8 Signed       2 *              * IBM RESERVED *
000A   10 Signed       2 *              * IBM RESERVED *
000C   12 Signed       2 MONHEAD        Head number
000E   14 Bitstring    1 MONIFLG        Information flag
          .... ..1.      MONDPOSD       X'02' MONDPOSD Monitor SEEK data
                                        is valid
          .... ...1      MONDWRIT       X'01' MONDWRIT Chan prog has
                                        WRITE CCWs
000F   15 Bitstring    1 *              Reserved for IBM use
0010   16 Signed       8 MONPOSSM64     Sum of arm motion
          ...1 .1..      MONPOSSM       00004 MONPOSSM64+4,4
0018   24 Signed       4 MONSCYL32      1st 'SEEK' address in chan pr
          ...1 1.1.      MONSCYL        00002 MONSCYL32+2,2
001C   28 Signed       4 MONECYL32      Last 'SEEK' address in chan p
          ...1 111.      MONECYL        00002 MONECYL32+2,2
          00000004       MONSKSZ        ((*-MONSK)+7)/8 MONSK size in
                                        double words
          .... ....      MONCYL0        X'00' Cylinder 0 equate

          
*** MONSK - Monitor SEEKs Mapping
*
*     +---------------------------+---------------------------+
*   0 |         MONPOSCT          |///////////////////////////|
*     +-------------+-------------+-------------+------+------+
*   8 |/////////////|/////////////|  MONHEAD    |:IFLG |//////|
*     +-------------+-------------+-------------+------+------+
*  10 |                      MONPOSSM64                       |
*     +---------------------------+---------------------------+
*  18 |        MONSCYL32          |        MONECYL32          |
*     +---------------------------+---------------------------+
*  20
*
*** MONSK - Monitor SEEKs Mapping

 
Symbol         Dspl Value
-------------- ---- -----
MONCYL0        001C 00
MONDPOSD       000E 02
MONDWRIT       000E 01
MONECYL        001C 1E
MONECYL32      001C
MONHEAD        000C
MONIFLG        000E
MONPOSCT       0000
MONPOSSM       0010 14
MONPOSSM64     0010
MONPOS1        0000 01
MONSCYL        0018 1A
MONSCYL32      0018
MONSKSZ        001C 00000004