NAME       : HCPFXTBK
 DESCRIPTION: FcX channel program Translation BlocK
 DSECT      : FXTBK
 FUNCTION   : This block contains room to hold translated
              guest DCWs and control information.
 LOCATED BY : IORCPA
 CREATED BY : HCPFXRAN
 DELETED BY : HCPFXRAN, HCPFXRUN
 NOTES      : FXTBKs are ALIGNED 1024 byte (128 DWD) blocks
              FXTBKs are obtained by HCPGETST with ALIGNED parm
              FXTBKs are released by HCPRELST with ALIGNED parm
              DEBUG fields are provided as debugging aids only and
              are not used for FCX translation support.

 FXTBK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      FXTBK          FcX channel program Translation BlocK
0000    0 Dbl-Word     8 FXTFREES (126) Free storage area
          000003F0       FXTFRESZ       *-FXTBK Free storage size in
                                        bytes
      Fixed fields common to all FXTBKs
03F0 1008 Dbl-Word     8 FXTTRLR (2)    FXTBK trailer
03F0 1008 Signed       4 *              Reserved for IBM use
03F4 1012 Signed       4 FXTFIRST       DEBUG: HLA(first FXTBK)
03F8 1016 Signed       4 FXTNEXT        HLA(next FXTBK)
03FC 1020 Bitstring    1 *              Reserved for IBM use
03FD 1021 Character    3 FXTEYE         Eye catcher 'FXT'
          00000400       FXTBYSZ        *-FXTBK Size in bytes
          00000080       FXTDWSZ        (((*-FXTBK)+7)/8) Size in
                                        doublewords
      Fixed fields in the *first* FXTBK.
      The architected FCX control blocks are all neatly defined
      at the top of the first FXTBK to aid in debugging and to
      simplify coding.
      The TCW must be on a 64-byte boundary.  That is why this
      control block is allocated as ALIGNED storage.
0000    0 Dbl-Word     8 FXTTCW (8)     Host TCW (64 byte boundary)
0040   64 Address      8 FXTGATSB       64b GAA(TSB assoc with this TCW)
0048   72 Address      4 *              RESERVED
004C   76 Bitstring    4 *              Reserved for IBM use
0050   80 Dbl-Word     8 * (8)          Reserved for IBM use
      Enforce a quadword boundary for 2 host TIDAWs to point to
      the host TCCB.
          00000090       FXTQW          *-FXTBK
0090  144 Unknown      0 *              Force QWord bdy
0090  144 Dbl-Word     8 FXTTCCB1 (2)   First Host TCCB TIDAW
00A0  160 Dbl-Word     8 FXTTCCB2 (2)   Second Host TCCB TIDAW
00B0  176 Dbl-Word     8 FXTTCCB (34)   Host TCCB (max length) DWord
                                        boundary
      Status fields
01C0  448 Bitstring    1 FXTFCXST       FCX Status byte
          1... ....      FXTITCWA       X'80' FXTITCWA Invalid TCW
                                        Address
          .1.. ....      FXTITCW        X'40' FXTITCW Invalid TCW
          ..1. ....      FXTITCBA       X'20' FXTITCBA Invalid TCCB
                                        Address
          ...1 ....      FXTITCCB       X'10' FXTITCCB Invalid TCCB
          .... 1...      FXTITSBA       X'08' FXTITSBA Invalid TSB
                                        Address
          .... .1..      FXTIIDAT       X'04' FXTIIDAT Invalid Input Data
                                        Address
          .... ..1.      FXTIODAT       X'02' FXTIODAT Invalid Output
                                        Data Address
01C1  449 Bitstring    1 FXTFCXPF       FCX Process Flags byte
          1... ....      FXTINPUT       X'80' FXTINPUT This is an input
                                        operation
          .1.. ....      FXTCCB         X'40' FXTCCB Processing a TCCB
          ..1. ....      FXTGTIC        X'20' FXTGTIC Prev TIDAW = guest
                                        TIC
          .... .1..      FXTINVT        X'04' FXTINVT Invalid TIDAW found
          .... ..1.      FXTPROGC       X'02' FXTPROGC Program Check
          .... ...1      FXTPROTC       X'01' FXTPROTC Protection
                                        Exception
01C2  450 Bitstring    1 FXTRANST       FCX Translation Status byte
          1... ....      FXTDCWTR       X'80' FXTDCWTR DCW(s) translated
                                        Indicates non-FP mdisk.
          .1.. ....      FXTSEEK        X'40' FXTSEEK SEEK address was
                                        translated
          ..1. ....      FXTSEEKV       X'20' FXTSEEKV SEEK address is
                                        valid
          ...1 ....      FXTXRC         X'10' FXTXRC XRC processing
                                        required
          .... 1...      FXTHPAVV       X'08' FXTHPAVV PREFIX valid for
                                        HPAV I/O
01C3  451 Bitstring    1 *              Reserved for IBM use
      Extraneous static fields in the first FXTBK
01C4  452 Address      4 FXTHLINT       HLA(Host Interrogate TCW)
01C8  456 Address      4 FXTGCPA        GAA(Guest TCW)
01CC  460 Address      4 FXTMDEXT       Total minidisk cylinders - 1
01D0  464 Address      4 FXTSEEKG       Guest SEEK address
01D4  468 Address      4 FXTUTXAN       HLA(UTX Entry anchor)
01D8  472 Signed       4 FXTEOTR        End of track
01DC  476 Signed       4 FXTVCCHH       Virtual track address
01E0  480 Address      4 FXTFLB64       HLA(Queue of 64 bit TLBs)
01E4  484 Address      4 FXTEHLCP       HLA(End of host CP)
01E8  488 Address      4 FXTLAST        HLA(Last FXTBK queued or this
                                        FXTBK if no other FXTBKs)
01EC  492 Address      4 FXTVDEV        HLA(VDEV)
01F0  496 Address      4 FXTRDEV        DEBUG: HLA(RDEV)
01F4  500 Address      4 FXTIORBK       HLA(IORBK)
01F8  504 Address      4 FXTVMDBK       DEBUG: HLA(VMDBK)
       Common fields shared among the EPs in FXT.
01FC  508 Address      4 FXTNXFRE       HLA(Next free stg in FXTBK)
0200  512 Address      4 FXTEOFRE       HLA(End of free stg area)
0204  516 Address      4 FXTLOG@        HL page addr of last translated
                                        FXTBK address
0208  520 Address      4 FXTABS@        HA page addr of last translated
                                        FXTBK address
0210  528 Dbl-Word     8 FXTWORK1 (0)   Work area (eg. for TIDAWs)
      These equates are not directly related to the FXTBK.
      They are part of the FCX trace support and are passed to
      various HCPFXT trace routines to indicate the type of data
      being traced.

          
*** FXTBK - FcX channel program Translation BlocK
*
*     +-------------------------------------------------------+
*   0 |                                                       |
*     =                       FXTFREES                        =
*     |                                                       |
*     +-------------------------------------------------------+
* 3F0 |                       FXTTRLR                         |
*     |                                                       |
*     +-------------------------------------------------------+
* 400
*
*** FXTBK - FcX channel program Translation BlocK
          
*** Overlay for FXTTRLR in FXTBK
*
*     +---------------------------+---------------------------+
* 3F0 |///////////////////////////|         FXTFIRST          |
*     +---------------------------+------+--------------------+
* 3F8 |         FXTNEXT           |//////|      FXTEYE        |
*     +---------------------------+------+--------------------+
* 400
*
*** Overlay for FXTTRLR in FXTBK
          
*** Overlay for FXTFREES in FXTBK
*
*     +-------------------------------------------------------+
*   0 |                                                       |
*     =                        FXTTCW                         =
*     |                                                       |
*     +-------------------------------------------------------+
*  40 |                       FXTGATSB                        |
*     +---------------------------+---------------------------+
*  48 |///////////////////////////|///////////////////////////|
*     +---------------------------+---------------------------+
*  50 |///////////////////////////////////////////////////////|
*     =///////////////////////////////////////////////////////=
*     |///////////////////////////////////////////////////////|
*     +-------------------------------------------------------+
*  90 |                       FXTTCCB1                        |
*     |                                                       |
*     +-------------------------------------------------------+
*  A0 |                       FXTTCCB2                        |
*     |                                                       |
*     +-------------------------------------------------------+
*  B0 |                                                       |
*     =                       FXTTCCB                         =
*     |                                                       |
*     +------+------+------+------+---------------------------+
* 1C0 |:FCXST|:FCXPF|:RANST|//////|         FXTHLINT          |
*     +------+------+------+------+---------------------------+
* 1C8 |         FXTGCPA           |         FXTMDEXT          |
*     +---------------------------+---------------------------+
* 1D0 |         FXTSEEKG          |         FXTUTXAN          |
*     +---------------------------+---------------------------+
* 1D8 |         FXTEOTR           |         FXTVCCHH          |
*     +---------------------------+---------------------------+
* 1E0 |         FXTFLB64          |         FXTEHLCP          |
*     +---------------------------+---------------------------+
* 1E8 |         FXTLAST           |         FXTVDEV           |
*     +---------------------------+---------------------------+
* 1F0 |         FXTRDEV           |         FXTIORBK          |
*     +---------------------------+---------------------------+
* 1F8 |         FXTVMDBK          |         FXTNXFRE          |
*     +---------------------------+---------------------------+
* 200 |         FXTEOFRE          |         FXTLOG@           |
*     +---------------------------+---------------------------+
* 208 |         FXTABS@           |///////////////////////////|
*     +---------------------------+---------------------------+
*
*** Overlay for FXTFREES in FXTBK

 
Symbol         Dspl Value
-------------- ---- -----
FXTABS@        0208
FXTBYSZ        03FD 00000400
FXTCCB         01C1 40
FXTDCWTR       01C2 80
FXTDWSZ        03FD 00000080
FXTEHLCP       01E4
FXTEOFRE       0200
FXTEOTR        01D8
FXTEYE         03FD
FXTFCXPF       01C1
FXTFCXST       01C0
FXTFIRST       03F4
FXTFLB64       01E0
FXTFREES       0000
FXTFRESZ       0000 000003F0
FXTGATSB       0040
FXTGCPA        01C8
FXTGTIC        01C1 20
FXTHLINT       01C4
FXTHPAVV       01C2 08
FXTIIDAT       01C0 04
FXTINPUT       01C1 80
FXTINVT        01C1 04
FXTIODAT       01C0 02
FXTIORBK       01F4
FXTITCBA       01C0 20
FXTITCCB       01C0 10
FXTITCW        01C0 40
FXTITCWA       01C0 80
FXTITSBA       01C0 08
FXTLAST        01E8
FXTLOG@        0204
FXTMDEXT       01CC
FXTNEXT        03F8
FXTNXFRE       01FC
FXTPROGC       01C1 02
FXTPROTC       01C1 01
FXTQW          0050 00000090
FXTRANST       01C2
FXTRDEV        01F0
FXTSEEK        01C2 40
FXTSEEKG       01D0
FXTSEEKV       01C2 20
FXTTCCB        00B0
FXTTCCB1       0090
FXTTCCB2       00A0
FXTTCW         0000
FXTTRLR        03F0
FXTUTXAN       01D4
FXTVCCHH       01DC
FXTVDEV        01EC
FXTVMDBK       01F8
FXTWORK1       0210
FXTXRC         01C2 10