::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:
class Gilda_Run.Public  public Gilda_Run:
:
:...............................................................................


::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:
method FILE_STATUS  pure:  Status of a Stream.

 entry File[0]              :Pass in Id **cm_stream

  exit Status[0]  byte      :Place to return a status byte.
:
:  Note:  When File is a handle for reading stdin it may be modified.
:...............................................................................


::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:
method FIRST_HANDLER:  Resume processing handlers after a program fault.

 entry Message = ""  string,   &A message passed from an Assert statement.
       Context = ""  string,   &Context associated with the message.
       Method  = ""  string,   &Name of the method that failed.
       Line    = 0   word      :Line number of the failure (NYI:  Arithmetic error).

change Fault   = 0   word      :In - A type code for a machine check; else 0.
                               :Out - Nonzero to skip handlers while unwinding.
:
:...............................................................................
:
method LAST_HANDLER:  Resume processing handlers after a program fault.

 entry Message = ""  string,
       Context = ""  string, &
       Method  = ""  string, &Name of the method that failed.
       Line    = 0   word,   &Line number of the failure (NYI:  Arithmetic error).
       Fault   = 0   word    :A type code for Program Faults; else 0.
:
:...............................................................................
:
method CLEAR_FAULT  pure:  Resume processing handlers after a program fault.

  exit Message   string,    &A message passed from an Assert statement.
       Context   string,    &Context associated with the message.
       Method    string     :Name of the method that failed.
:
:...............................................................................
:
method PROGRAM_STATUS:  Set the program return code.

 entry Status  word
:
:...............................................................................
:
method EXIT_THREAD:  Close system handles and exit a thread or program.

 entry Status = 0   word     :Program exit status code.
:
:...............................................................................



::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:
method NEW.HUNK  pure

 entry Size     word        :Number of bytes to allocate (> 4).

;  exit *Target  byte        :Allocated hunk aligned to a Word.

  exit *Target[?]  byte    :Allocated hunk aligned to a Word.
:
:...............................................................................
:
method FREE.HUNK  pure:  Return a hunk of memory to the hunk pool.

 entry Size       word,        &Number of bytes to deallocate (> 4).
       Target[?]  byte         :Allocated hunk aligned to a Word.
:
:...............................................................................


end