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