
  PROCEDURE [XREF] pup$put_partial ALIAS 'puxputp' (VAR file_id:
    put$file_identifier;
        wsa: ^cell;
        wsl: amt$working_storage_length;
        term_option: amt$term_option;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc PUT$FILE_IDENTIFIER
*copyc AMT$WORKING_STORAGE_LENGTH
*copyc OST$STATUS
*copyc AMT$TERM_OPTION
?? POP ??
