
  PROCEDURE [XREF] amp$put_partial ALIAS 'amxputp'
    (    file_identifier: amt$file_identifier;
*if not $true(osv$unix)
         working_storage_area: ^cell;
*else
         working_storage_area: ^string ( * );
*ifend
         working_storage_length: amt$working_storage_length;
     VAR byte_address: amt$file_byte_address;
         term_option: amt$term_option;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*if not $true(osv$unix)
*copyc amc$condition_code_limits
*copyc ame$conflicting_access_level
*copyc ame$improper_file_id
*copyc ame$terminal_validation_errors
*copyc ame$put_validation_errors
*copyc ame$ring_validation_errors
*copyc ame$improper_wsl
*copyc ame$put_program_actions
*else
*copyc ame$condition_codes
*ifend
*copyc amt$file_byte_address
*copyc amt$file_identifier
*copyc amt$term_option
*copyc amt$working_storage_length
*copyc ost$status
?? POP ??
