       *>===============================================================
       *> MVS FSA and PL/I DSA. It is mapped / initialized like a PL/I
       *> DSA. This DSA is to be addressed by R13 when the first ASM
       *> module is entered. Also pointed to by TCB_FSA.
       *>  - unless otherwise stated, all data is S/390 style
       *>
       *> Copyright (C) 1996-2006 Micro Focus (IP) Limited. All rights
       *>                         reserved.
       *>===============================================================
       01 (tag).
          03 (tag)-word1-id    pic x(4).
          03 filler            pointer.              *> back chain
          03 filler            pointer.              *> fwd chain
          03 filler            pointer occurs 3 times.  *> R14, R15, R0
          03 (tag)-r1          pointer. *> R1
          03 filler            pointer occurs 10 times.  *> R2 thru R11
          03 (tag)-tca         pointer. *> TCA ptr also R12
          03 (tag)-psa         pointer. *> our "LWS"
          03 (tag)-nab         pointer. *> NAB
          03 (tag)-mvs-spec-parm pointer. *>->MVS-spec... for mfjxe00
             *> native ptr
          03 filler            pic x(4).   *> make sure stg(dsa) >= 88

       78 (tag)-word1-id-ebc    value x'00C4E2C1'.   *> ' DSA'e
       78 (tag)-word1-id-asc    value x'00' & 'DSA'.
       *>===============================================================
