{ DECK: DFT$COMMAND_BUFFER

{ Command buffer for the Task_Services tasks is allocated with the
{ constant size of (dfc$command_record_bytes) 4096 bytes.

  TYPE
    dft$p_command_buffer = ^SEQ (*),
    dft$p_allocated_command_buffer = ^dft$allocated_command_buffer,
    dft$allocated_command_buffer = record
      buffer: ALIGNED [0 MOD 4096] SEQ (*),
    recend;

  CONST
    dfc$command_buffer_size = dfc$command_record_bytes;

{ Command buffers for the Monitor tasks are allocated with the actual sizes and
{ with the layouts as illustrated below.

{   monitor_send_buffer_on_client_OR_receive_buffer_on_server = record
{     buffer_header: dft$buffer_header,
{     status: syt$monitor_status,
{     io: dft$page_io_request,
{   recend,

{   monitor_receive_buffer_on_client_OR_send_buffer_on_server = record
{     buffer_header: dft$buffer_header,
{     status: syt$monitor_status,
{     io: dft$page_io_response,
{   recend;

  TYPE
    dft$p_allocated_monitor_buffer = ^dft$allocated_monitor_buffer,
    dft$allocated_monitor_buffer = record
      buffer: ALIGNED [0 MOD 128] SEQ (*),
    recend;


?? PUSH (LISTEXT := ON) ??
*copyc dfc$esm_allocation_constants
?? POP ??
