
{     * * * warning * * * }
{     any changes made to mlc$c170_rqst_blk must also be reflected
{     in EIE.

  CONST

{ mli function values

    signon = 0,
    signoff = 1,
    addspl = 2,
    delspl = 3,
    send = 4,
    receive = 5,
    fetchrl = 6,
    confirm = 7,
    kill = 8,
    kill_all = 9,
    swapout_ucp = 10,  { used for nos/be only }

{ word offsets into mli parameter block

    aname = 0,
    sname = 1,
    pstatus = 2,
    funct = 3,
    rindex = 4,
    fwa = 5,
    buflen = 6,
    signal = 7,
    arbinfo = 8,
    msglen = 9,
    mlpsv = 10,
    mlpv1 = 11,
    mlpv2 = 12,
    mlpv3 = 13,
    jsn = fwa,
    maxmsg = rindex,
    count = rindex;

  CONST
{  values for the opstatus field
    idle = 0,
    wait180 = 1,
    wait170 = 2,
    smip = 3,
    rmip = 4,
    not_available = 5,
{ values for the reject_calls field
    reject_all_calls = 0,
    accept_dsc_calls = 1,
    accept_all_calls = 2,
    initial_buffer_count = 2,
    mlimi = 10;

  TYPE
    mlt$c170_rqst_blk = packed record
      arr: packed array [0 .. mlimi - 1] of packed record
        op_status: ALIGNED [0 MOD 8] integer,
        copy_length: integer,
        time: integer,
        jsn: integer,
        restart: integer,
        used: integer,
        mli_packet: array [0 .. 13] of integer,
      recend,
      req: ^tmt$rb_ready_task,
      buffers: ^array [0 .. mlimi - 1] of array [0 .. mlc$max_message_length]
        of cell,
      max_length: integer,
      reject_calls: integer,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc TMT$RB_READY_TASK
*copyc MLD$MEMORY_LINK_DECLARATIONS
?? POP ??
