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 (10)    Host TCW (64 byte boundary)
0050   80 Dbl-Word     8 FXTTSB (8)     Host TSB (DWord boundary)
      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 (33)   Host TCCB (max length) DWord
                                        boundary
      Status fields
01B8  440 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
01B9  441 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
01BA  442 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
01BB  443 Bitstring    1 *              Reserved for IBM use
      Extraneous static fields in the first FXTBK
01BC  444 Address      4 FXTHLINT       HLA(Host Interrogate TCW)
01C0  448 Address      4 FXTGCPA        GAA(Guest TCW)
01C4  452 Address      4 FXTMDEXT       Total minidisk cylinders - 1
01C8  456 Address      4 FXTSEEKG       Guest SEEK address
01CC  460 Address      4 FXTUTXAN       HLA(UTX Entry anchor)
01D0  464 Signed       4 FXTEOTR        End of track
01D4  468 Signed       4 FXTVCCHH       Virtual track address
01D8  472 Address      4 FXTFLB64       HLA(Queue of 64 bit TLBs)
01DC  476 Address      4 FXTEHLCP       HLA(End of host CP)
01E0  480 Address      4 FXTLAST        HLA(Last FXTBK queued or this
                                        FXTBK if no other FXTBKs)
01E4  484 Address      4 FXTVDEV        HLA(VDEV)
01E8  488 Address      4 FXTRDEV        DEBUG: HLA(RDEV)
01EC  492 Address      4 FXTIORBK       DEBUG: HLA(IORBK)
01F0  496 Address      4 FXTVMDBK       DEBUG: HLA(VMDBK)
       Common fields shared among the EPs in FXT.
01F4  500 Address      4 FXTNXFRE       HLA(Next free stg in FXTBK)
01F8  504 Address      4 FXTEOFRE       HLA(End of free stg area)
01FC  508 Address      4 FXTLOG@        HL page addr of last translated
                                        FXTBK address
0200  512 Address      4 FXTABS@        HA page addr of last translated
                                        FXTBK address
0208  520 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                         =
*     |                                                       |
*     +-------------------------------------------------------+
*  50 |                                                       |
*     =                        FXTTSB                         =
*     |                                                       |
*     +-------------------------------------------------------+
*  90 |                       FXTTCCB1                        |
*     |                                                       |
*     +-------------------------------------------------------+
*  A0 |                       FXTTCCB2                        |
*     |                                                       |
*     +-------------------------------------------------------+
*  B0 |                                                       |
*     =                       FXTTCCB                         =
*     |                                                       |
*     +------+------+------+------+---------------------------+
* 1B8 |:FCXST|:FCXPF|:RANST|//////|         FXTHLINT          |
*     +------+------+------+------+---------------------------+
* 1C0 |         FXTGCPA           |         FXTMDEXT          |
*     +---------------------------+---------------------------+
* 1C8 |         FXTSEEKG          |         FXTUTXAN          |
*     +---------------------------+---------------------------+
* 1D0 |         FXTEOTR           |         FXTVCCHH          |
*     +---------------------------+---------------------------+
* 1D8 |         FXTFLB64          |         FXTEHLCP          |
*     +---------------------------+---------------------------+
* 1E0 |         FXTLAST           |         FXTVDEV           |
*     +---------------------------+---------------------------+
* 1E8 |         FXTRDEV           |         FXTIORBK          |
*     +---------------------------+---------------------------+
* 1F0 |         FXTVMDBK          |         FXTNXFRE          |
*     +---------------------------+---------------------------+
* 1F8 |         FXTEOFRE          |         FXTLOG@           |
*     +---------------------------+---------------------------+
* 200 |         FXTABS@           |///////////////////////////|
*     +---------------------------+---------------------------+
*
*** Overlay for FXTFREES in FXTBK

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