
{ WARNING! WARNING! WARNING! WARNING! WARNING! WARNING! WARNING!
{   1.  Any changes to this deck must have corresponding changes in the deck DSA$CPU_PP_COMMUNICATION_BLOCK.
{
{   2.  MTM$MONITOR_INTERRUPT_HANDLER and DSM$BOOT_INTERRUPT_HANDLER access the CPU/PP communication block.

{ PURPOSE:
{   This defines the format of the CPU/PP communication block.  The first word is the DFT/SCI relocation
{   control word defined in dst$dft_sci_relocation_control.  The next words are used by CPU/PP handshaking.

TYPE

  dst$cpu_pp_communication_block = packed record

{  DFT/SCI relocation control:

    relocation: ALIGNED [0 MOD 8] dst$dft_sci_relocation_control,

{  CPU/PP handshaking control:

    monitor_time: ALIGNED [0 MOD 8] integer,
    sci_time: ALIGNED [0 MOD 8] integer,
    dft_time: ALIGNED [0 MOD 8] integer,
    dfts_time: ALIGNED [0 MOD 8] integer,

  recend;

{   This defines the format of the DFT/SCI relocation control word.  Relocation
{   is used on Cyber 930 mainframes in order to allow more drivers to be used
{   in the CIP cluster; SCI never needs to be in the CIP cluster, and DFT needs
{   to be there only during NOS/VE deadstart.
{
{   The format is designed to be easy to use from PPs.  Any changes to this
{   definition should be made with that restriction in mind, and any changes
{   will probably require changes in DFT and SCI code as well as in the CYBIL
{   callers of this deck.

  TYPE
    dst$dft_sci_relocation_control = packed record

{ PP byte 0:

      initialized: boolean, { D8RLP pointer initialized
      rfu_1: 0 .. 3f(16), { 6 bits unused
      dft_died: boolean,
      dft_idled: boolean,
      dft_idle_pending: boolean,
      dft_pp_number: 0 .. 77(8),

{ PP byte 1:

      rfu_2: 0 .. 7f(16), { 7 bits unused
      sci_died: boolean,
      sci_idled: boolean,
      sci_idle_pending: boolean,
      sci_pp_number: 0 .. 77(8),

{ PP byte 2:

      rfu_3: 0 .. 3ff(16), { 10 bits unused
      dft_pp_at_deadstart: 0 .. 77(8),

{ PP byte 3:

      rfu_4: 0 .. 3ff(16), { 10 bits unused
      sci_pp_at_deadstart: 0 .. 77(8),

    recend;
