/* Created by SDL V3.1-7     */
/* Source:  4-AUG-1988 20:36:48 EMULEX$DISK:[JOE.VMS5]DTK$ROUTINES.SDI;1 */
#ifndef DTK$ROUTINES_H
#define DTK$ROUTINES_H
 
/*** MODULE DTK$ROUTINES ***/
/*+~dtk$answer_phone~+*/
unsigned long int dtk$answer_phone(
    const unsigned long int  *voice_id,
    ...
    /* const long int  *number_of_rings, */
    /* const struct dsc$descriptor *text, */
    /* const long int  *timeout */
    ) ;
/*~-dtk$answer_phone-~*/
/*+~dtk$check_hdwr_status~+*/
unsigned long int dtk$check_hdwr_status(
    const unsigned long int  *voice_id,
    unsigned long int  *hdwr_status
    ) ;
/*~-dtk$check_hdwr_status-~*/
/*+~dtk$dial_phone~+*/
unsigned long int dtk$dial_phone(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *phone_number,
    ...
    /* const unsigned long int  *dial_mode, */
    /* const struct dsc$descriptor *text, */
    /* const long int  *timeout */
    ) ;
/*~-dtk$dial_phone-~*/
/*+~dtk$hangup_phone~+*/
unsigned long int dtk$hangup_phone(
    const unsigned long int  *voice_id,
    ...
    /* const struct dsc$descriptor *text */
    ) ;
/*~-dtk$hangup_phone-~*/
/*+~dtk$initialize~+*/
unsigned long int dtk$initialize(
    unsigned long int  *voice_id,
    const struct dsc$descriptor *output_device,
    ...
    /* long int  *device_type */
    ) ;
/*~-dtk$initialize-~*/
/*+~dtk$load_dictionary~+*/
unsigned long int dtk$load_dictionary(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *text,
    const struct dsc$descriptor *substitution
    ) ;
/*~-dtk$load_dictionary-~*/
/*+~dtk$read_keystroke~+*/
unsigned long int dtk$read_keystroke(
    const unsigned long int  *voice_id,
    long int  *key_code,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* const long int  *timeout */
    ) ;
/*~-dtk$read_keystroke-~*/
/*+~dtk$read_string~+*/
unsigned long int dtk$read_string(
    const unsigned long int  *voice_id,
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* const long int  *timeout, */
    /* long int  *longword_integer_termin_code */
    ) ;
/*~-dtk$read_string-~*/
/*+~dtk$return_last_index~+*/
unsigned long int dtk$return_last_index(
    const unsigned long int  *voice_id,
    long int  *p_index
    ) ;
/*~-dtk$return_last_index-~*/
/*+~dtk$spell_text~+*/
unsigned long int dtk$spell_text(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *text,
    ...
    /* const unsigned long int  *completion_mode */
    ) ;
/*~-dtk$spell_text-~*/
/*+~dtk$speak_file~+*/
unsigned long int dtk$speak_file(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *filespec,
    ...
    /* const unsigned long int  *completion_mode */
    ) ;
/*~-dtk$speak_file-~*/
/*+~dtk$speak_phonemic_text~+*/
unsigned long int dtk$speak_phonemic_text(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *text,
    ...
    /* const unsigned long int  *completion_mode */
    ) ;
/*~-dtk$speak_phonemic_text-~*/
/*+~dtk$speak_text~+*/
unsigned long int dtk$speak_text(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *text,
    ...
    /* const unsigned long int  *completion_mode */
    ) ;
/*~-dtk$speak_text-~*/
/*+~dtk$set_index~+*/
unsigned long int dtk$set_index(
    const unsigned long int  *voice_id,
    const long int  *p_index
    ) ;
/*~-dtk$set_index-~*/
/*+~dtk$set_keypad_mode~+*/
unsigned long int dtk$set_keypad_mode(
    const unsigned long int  *voice_id,
    const unsigned long int  *keypad_mode
    ) ;
/*~-dtk$set_keypad_mode-~*/
/*+~dtk$set_logging_mode~+*/
unsigned long int dtk$set_logging_mode(
    const unsigned long int  *voice_id,
    ...
    /* const unsigned long int  *new_mode, */
    /* unsigned long int  *old_mode */
    ) ;
/*~-dtk$set_logging_mode-~*/
/*+~dtk$set_mode~+*/
unsigned long int dtk$set_mode(
    const unsigned long int  *voice_id,
    ...
    /* const unsigned long int  *new_mode, */
    /* unsigned long int  *old_mode */
    ) ;
/*~-dtk$set_mode-~*/
/*+~dtk$set_speech_mode~+*/
unsigned long int dtk$set_speech_mode(
    const unsigned long int  *voice_id,
    const unsigned long int  *new_mode,
    ...
    /* unsigned long int  *old_mode */
    ) ;
/*~-dtk$set_speech_mode-~*/
/*+~dtk$set_terminal_mode~+*/
unsigned long int dtk$set_terminal_mode(
    const unsigned long int  *voice_id,
    ...
    /* const unsigned long int  *new_mode, */
    /* unsigned long int  *old_mode */
    ) ;
/*~-dtk$set_terminal_mode-~*/
/*+~dtk$set_voice~+*/
unsigned long int dtk$set_voice(
    const unsigned long int  *voice_id,
    ...
    /* const long int  *new_voice, */
    /* const long int  *speech_rate, */
    /* const unsigned long int  *comma_pause, */
    /* const unsigned long int  *period_pause */
    ) ;
/*~-dtk$set_voice-~*/
/*+~dtk$terminate~+*/
unsigned long int dtk$terminate(
    const unsigned long int  *voice_id
    ) ;
/*~-dtk$terminate-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  4-AUG-1988 20:36:26 EMULEX$DISK:[JOE.VMS5]LIB$ROUTINES.SDI;1 */
#ifndef LIB$ROUTINES_H
#define LIB$ROUTINES_H
 
/*** MODULE LIB$ROUTINES ***/
/*+~lib$adawi~+*/
unsigned long int lib$adawi(
    const short int  *add,
    short int  *sum,
    short int  *result
    ) ;
/*~-lib$adawi-~*/
/*+~lib$add_times~+*/
unsigned long int lib$add_times(
    const unsigned int  *time1 [2],
    const unsigned int  *time2 [2],
    unsigned int  *resultant_time [2]
    ) ;
/*~-lib$add_times-~*/
/*+~lib$addx~+*/
unsigned long int lib$addx(
    const int  *addend_array,
    const int  *augend_array,
    int  *resultant_array,
    ...
    /* const long int  *array_length */
    ) ;
/*~-lib$addx-~*/
/*+~lib$analyze_sdesc~+*/
unsigned long int lib$analyze_sdesc(
    const unsigned int  *input_descriptor [2],
    unsigned short int  *data_length,
    int * *data_address
    ) ;
/*~-lib$analyze_sdesc-~*/
/*+~lib$asn_wth_mbx~+*/
unsigned long int lib$asn_wth_mbx(
    const struct dsc$descriptor *device_name,
    const long int  *maximum_message_size,
    const long int  *buffer_quota,
    unsigned short int  *device_channel,
    unsigned short int  *mailbox_channel
    ) ;
/*~-lib$asn_wth_mbx-~*/
/*+~lib$ast_in_prog~+*/
char lib$ast_in_prog() ;
/*~-lib$ast_in_prog-~*/
/*+~lib$attach~+*/
unsigned long int lib$attach(
    const unsigned long int  *process_id
    ) ;
/*~-lib$attach-~*/
/*+~lib$bbcci~+*/
unsigned long int lib$bbcci(
    const long int  *position,
    const int *bit_zero_address
    ) ;
/*~-lib$bbcci-~*/
/*+~lib$bbssi~+*/
unsigned long int lib$bbssi(
    const long int  *position,
    const int *bit_zero_address
    ) ;
/*~-lib$bbssi-~*/
/*+~lib$callg~+*/
unsigned long int lib$callg(
    const int  *argument_list,
    const int *user_procedure
    ) ;
/*~-lib$callg-~*/
/*+~lib$create_dir~+*/
unsigned long int lib$create_dir(
    const struct dsc$descriptor *device_directory_spec,
    ...
    /* const unsigned long int  *owner_uic, */
    /* const unsigned short int  *protection_enable, */
    /* const unsigned short int  *protection_value, */
    /* const unsigned short int  *maximum_versions, */
    /* const unsigned short int  *relative_volume_number */
    ) ;
/*~-lib$create_dir-~*/
/*+~lib$char~+*/
unsigned long int lib$char(
    struct dsc$descriptor *one_character_string,
    const unsigned char  *ascii_code
    ) ;
/*~-lib$char-~*/
/*+~lib$convert_date_string~+*/
unsigned long int lib$convert_date_string(
    const struct dsc$descriptor *date_string,
    unsigned int  *date_time [2],
    ...
    /* unsigned long int  *user_context, */
    /* const unsigned long int  *flags, */
    /* const unsigned short int  *defaults [1], */
    /* unsigned long int  *defaulted_fields */
    ) ;
/*~-lib$convert_date_string-~*/
/*+~lib$crc~+*/
unsigned long int lib$crc(
    const long int  *crc_table [1],
    const long int  *initial_crc,
    const struct dsc$descriptor *stream
    ) ;
/*~-lib$crc-~*/
/*+~lib$crc_table~+*/
int lib$crc_table(
    const unsigned long int  *polynomial_coefficient,
    long int  *crc_table [1]
    ) ;
/*~-lib$crc_table-~*/
/*+~lib$crf_ins_key~+*/
int lib$crf_ins_key(
    const long int  *control_table [1],
    const struct dsc$descriptor *key_string,
    const long int  *symbol_value,
    const unsigned long int  *flags
    ) ;
/*~-lib$crf_ins_key-~*/
/*+~lib$crf_ins_ref~+*/
int lib$crf_ins_ref(
    const long int  *control_table [1],
    const long int  *longword_integer_key,
    const struct dsc$descriptor *reference_string,
    long int  *longword_integer_reference,
    const long int  *ref_definition_indicator
    ) ;
/*~-lib$crf_ins_ref-~*/
/*+~lib$crf_output~+*/
int lib$crf_output(
    const long int  *control_table [1],
    const long int  *output_line_width,
    const long int  *page1,
    const long int  *page2,
    const long int  *mode_indicator,
    const long int  *delete_save_indicator
    ) ;
/*~-lib$crf_output-~*/
/*+~lib$currency~+*/
unsigned long int lib$currency(
    struct dsc$descriptor *currency_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$currency-~*/
/*+~lib$create_user_vm_zone~+*/
unsigned long int lib$create_user_vm_zone(
    unsigned long int  *zone_id,
    ...
    /* const unsigned long int  *user_argument, */
    /* const int *user_allocation_procedure, */
    /* const int *user_deallocation_procedure, */
    /* const int *user_reset_procedure, */
    /* const int *user_delete_procedure, */
    /* const struct dsc$descriptor *zone_name */
    ) ;
/*~-lib$create_user_vm_zone-~*/
/*+~lib$cvt_dx_dx~+*/
unsigned long int lib$cvt_dx_dx(
    const int  *source_item,
    int  *destination_item,
    ...
    /* unsigned short int  *word_integer_dest_length */
    ) ;
/*~-lib$cvt_dx_dx-~*/
/*+~lib$cvtf_from_internal_time~+*/
unsigned long int lib$cvtf_from_internal_time(
    const unsigned long int  *operation,
    float  *resultant_time,
    const unsigned int  *input_time [2]
    ) ;
/*~-lib$cvtf_from_internal_time-~*/
/*+~lib$cvt_from_internal_time~+*/
unsigned long int lib$cvt_from_internal_time(
    const unsigned long int  *operation,
    unsigned long int  *resultant_time,
    ...
    /* const unsigned int  *input_time [2] */
    ) ;
/*~-lib$cvt_from_internal_time-~*/
/*+~lib$cvtf_to_internal_time~+*/
unsigned long int lib$cvtf_to_internal_time(
    const unsigned long int  *operation,
    const float  *input_time,
    unsigned int  *resultant_time [2]
    ) ;
/*~-lib$cvtf_to_internal_time-~*/
/*+~lib$cvt_to_internal_time~+*/
unsigned long int lib$cvt_to_internal_time(
    const unsigned long int  *operation,
    const long int  *input_time,
    unsigned int  *resultant_time [2]
    ) ;
/*~-lib$cvt_to_internal_time-~*/
/*+~lib$cvt_vectim~+*/
unsigned long int lib$cvt_vectim(
    const unsigned short int  *input_time [1],
    unsigned int  *resultant_time [2]
    ) ;
/*~-lib$cvt_vectim-~*/
/*+~lib$cvt_dtb~+*/
unsigned long int lib$cvt_dtb(
    const long int byte_count,
    const char  *numeric_string,
    long int  *result
    ) ;
/*~-lib$cvt_dtb-~*/
/*+~lib$cvt_htb~+*/
unsigned long int lib$cvt_htb(
    const long int byte_count,
    const char  *numeric_string,
    long int  *result
    ) ;
/*~-lib$cvt_htb-~*/
/*+~lib$cvt_otb~+*/
unsigned long int lib$cvt_otb(
    const long int byte_count,
    const char  *numeric_string,
    long int  *result
    ) ;
/*~-lib$cvt_otb-~*/
/*+~lib$create_vm_zone~+*/
unsigned long int lib$create_vm_zone(
    unsigned long int  *zone_id,
    ...
    /* const long int  *algorithm, */
    /* const long int  *algorithm_argument, */
    /* const unsigned long int  *flags, */
    /* const long int  *extend_size, */
    /* const long int  *initial_size, */
    /* const long int  *block_size, */
    /* const long int  *alignment, */
    /* const long int  *page_limit, */
    /* const long int  *smallest_block_size, */
    /* const struct dsc$descriptor *zone_name, */
    /* const long int  *number_of_areas, */
    /* const int *get_page, */
    /* const int *free_page */
    ) ;
/*~-lib$create_vm_zone-~*/
/*+~lib$date_time~+*/
unsigned long int lib$date_time(
    struct dsc$descriptor *date_time_string
    ) ;
/*~-lib$date_time-~*/
/*+~lib$day~+*/
unsigned long int lib$day(
    long int  *number_of_days,
    ...
    /* const unsigned int  *user_time [2], */
    /* long int  *day_time */
    ) ;
/*~-lib$day-~*/
/*+~lib$day_of_week~+*/
unsigned long int lib$day_of_week(
    const unsigned int  *user_time [2],
    unsigned long int  *day_number
    ) ;
/*~-lib$day_of_week-~*/
/*+~lib$dec_over~+*/
unsigned long int lib$dec_over(
    const unsigned long int  *new_setting
    ) ;
/*~-lib$dec_over-~*/
/*+~lib$decode_fault~+*/
unsigned long int lib$decode_fault(
    const int  *signal_arguments,
    const int  *mechanism_arguments,
    const struct dsc$descriptor *user_procedure,
    ...
    /* const int unspecified_user_argument, */
    /* const unsigned char  *instruction_definitions [1] */
    ) ;
/*~-lib$decode_fault-~*/
/*+~lib$delete_file~+*/
unsigned long int lib$delete_file(
    const struct dsc$descriptor *filespec,
    ...
    /* const struct dsc$descriptor *default_filespec, */
    /* const struct dsc$descriptor *related_filespec, */
    /* const int *user_success_procedure, */
    /* const int *user_error_procedure, */
    /* const int *user_confirm_procedure, */
    /* const int user_specified_argument, */
    /* struct dsc$descriptor *resultant_name, */
    /* unsigned long int  *file_scan_context */
    ) ;
/*~-lib$delete_file-~*/
/*+~lib$digit_sep~+*/
unsigned long int lib$digit_sep(
    struct dsc$descriptor *digit_separator_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$digit_sep-~*/
/*+~lib$disable_ctrl~+*/
unsigned long int lib$disable_ctrl(
    const unsigned long int  *disable_mask,
    ...
    /* unsigned long int  *old_mask */
    ) ;
/*~-lib$disable_ctrl-~*/
/*+~lib$delete_logical~+*/
unsigned long int lib$delete_logical(
    const struct dsc$descriptor *logical_name,
    ...
    /* const struct dsc$descriptor *table_name */
    ) ;
/*~-lib$delete_logical-~*/
/*+~lib$do_command~+*/
unsigned long int lib$do_command(
    const struct dsc$descriptor *command_string
    ) ;
/*~-lib$do_command-~*/
/*+~lib$delete_symbol~+*/
unsigned long int lib$delete_symbol(
    const struct dsc$descriptor *symbol,
    ...
    /* const long int  *table_type_indicator */
    ) ;
/*~-lib$delete_symbol-~*/
/*+~lib$format_date_time~+*/
unsigned long int lib$format_date_time(
    struct dsc$descriptor *date_string,
    ...
    /* const unsigned int  *date [2], */
    /* unsigned long int  *user_context, */
    /* long int  *date_length, */
    /* const unsigned long int  *flags */
    ) ;
/*~-lib$format_date_time-~*/
/*+~lib$delete_vm_zone~+*/
unsigned long int lib$delete_vm_zone(
    const unsigned long int  *zone_id
    ) ;
/*~-lib$delete_vm_zone-~*/
/*+~lib$ediv~+*/
unsigned long int lib$ediv(
    const long int  *longword_integer_divisor,
    const int  *quadword_integer_dividend [2],
    long int  *longword_integer_quotient,
    long int  *remainder
    ) ;
/*~-lib$ediv-~*/
/*+~lib$emodd~+*/
unsigned long int lib$emodd(
    const double float  *floating_point_multiplier,
    const unsigned char  *multiplier_extension,
    const double float  *floating_point_multiplicand,
    long int  *integer_portion,
    double float  *fractional_portion
    ) ;
/*~-lib$emodd-~*/
/*+~lib$emodf~+*/
unsigned long int lib$emodf(
    const float  *floating_point_multiplier,
    const unsigned char  *multiplier_extension,
    const float  *floating_point_multiplicand,
    long int  *integer_portion,
    float  *fractional_portion
    ) ;
/*~-lib$emodf-~*/
/*+~lib$emodg~+*/
unsigned long int lib$emodg(
    const double float  *floating_point_multiplier,
    const unsigned short int  *multiplier_extension,
    const double float  *floating_point_multiplicand,
    long int  *integer_portion,
    double float  *fractional_portion
    ) ;
/*~-lib$emodg-~*/
/*+~lib$emodh~+*/
unsigned long int lib$emodh(
    const struct {int floating$$ret_0_ [4];}  *floating_point_multiplier,
    const unsigned short int  *multiplier_extension,
    const struct {int floating$$ret_1_ [4];}  *floating_point_multiplicand,
    long int  *integer_portion,
    struct {int fraction$$ret_0_ [4];}  *fractional_portion
    ) ;
/*~-lib$emodh-~*/
/*+~lib$emul~+*/
unsigned long int lib$emul(
    const long int  *longword_integer_multiplier,
    const long int  *longword_integer_multiplicand,
    const long int  *addend,
    int  *product [2]
    ) ;
/*~-lib$emul-~*/
/*+~lib$enable_ctrl~+*/
unsigned long int lib$enable_ctrl(
    const unsigned long int  *enable_mask,
    ...
    /* unsigned long int  *old_mask */
    ) ;
/*~-lib$enable_ctrl-~*/
/*+~lib$establish~+*/
int *lib$establish(
    const int *new_handler
    ) ;
/*~-lib$establish-~*/
/*+~lib$extv~+*/
long int lib$extv(
    const long int  *position,
    const unsigned char  *size,
    const int *base_address
    ) ;
/*~-lib$extv-~*/
/*+~lib$extzv~+*/
long int lib$extzv(
    const long int  *position,
    const unsigned char  *size,
    const int *base_address
    ) ;
/*~-lib$extzv-~*/
/*+~lib$free_date_time_context~+*/
unsigned long int lib$free_date_time_context(
    /* unsigned long int  *user_context */
    ) ;
/*~-lib$free_date_time_context-~*/
/*+~lib$free_ef~+*/
unsigned long int lib$free_ef(
    const unsigned long int  *event_flag_number
    ) ;
/*~-lib$free_ef-~*/
/*+~lib$find_file_end~+*/
unsigned long int lib$find_file_end(
    const unsigned long int  *context
    ) ;
/*~-lib$find_file_end-~*/
/*+~lib$find_file~+*/
unsigned long int lib$find_file(
    const struct dsc$descriptor *filespec,
    struct dsc$descriptor *resultant_filespec,
    unsigned long int  *context,
    ...
    /* const struct dsc$descriptor *default_filespec, */
    /* const struct dsc$descriptor *related_filespec, */
    /* unsigned long int  *status_value, */
    /* const unsigned long int  *flags */
    ) ;
/*~-lib$find_file-~*/
/*+~lib$ffc~+*/
unsigned long int lib$ffc(
    const long int  *position,
    const unsigned char  *size,
    const int * *base,
    long int  *find_position
    ) ;
/*~-lib$ffc-~*/
/*+~lib$ffs~+*/
unsigned long int lib$ffs(
    const long int  *position,
    const unsigned char  *size,
    const int * *base,
    long int  *find_position
    ) ;
/*~-lib$ffs-~*/
/*+~lib$fid_to_name~+*/
unsigned long int lib$fid_to_name(
    const struct dsc$descriptor *device_name,
    const unsigned short int  *file_id,
    struct dsc$descriptor *filespec,
    ...
    /* unsigned short int  *filespec_length, */
    /* const unsigned short int  *directory_id [1], */
    /* unsigned long int  *acp_status */
    ) ;
/*~-lib$fid_to_name-~*/
/*+~lib$find_image_symbol~+*/
unsigned long int lib$find_image_symbol(
    const struct dsc$descriptor *filename,
    const struct dsc$descriptor *symbol,
    long int  *symbol_value,
    ...
    /* const struct dsc$descriptor *image_name */
    ) ;
/*~-lib$find_image_symbol-~*/
/*+~lib$fixup_flt~+*/
unsigned long int lib$fixup_flt(
    const int  *signal_arguments,
    const int  *mechanism_arguments,
    ...
    /* const float  *new_operand */
    ) ;
/*~-lib$fixup_flt-~*/
/*+~lib$flt_under~+*/
unsigned long int lib$flt_under(
    const unsigned long int  *new_setting
    ) ;
/*~-lib$flt_under-~*/
/*+~lib$free_lun~+*/
unsigned long int lib$free_lun(
    const long int  *logical_unit_number
    ) ;
/*~-lib$free_lun-~*/
/*+~lib$free_vm_page~+*/
unsigned long int lib$free_vm_page(
    const long int  *number_of_pages,
    const int * *base_address
    ) ;
/*~-lib$free_vm_page-~*/
/*+~lib$file_scan~+*/
unsigned long int lib$file_scan(
    const int  *fab,
    const int *user_success_procedure,
    const int *user_error_procedure,
    ...
    /* unsigned long int  *context */
    ) ;
/*~-lib$file_scan-~*/
/*+~lib$file_scan_end~+*/
unsigned long int lib$file_scan_end(
    /* int  *fab, */
    /* unsigned long int  *context */
    ) ;
/*~-lib$file_scan_end-~*/
/*+~lib$free_timer~+*/
unsigned long int lib$free_timer(
    int * *handle_address
    ) ;
/*~-lib$free_timer-~*/
/*+~lib$free_vm~+*/
unsigned long int lib$free_vm(
    const long int  *number_of_bytes,
    const int * *base_address,
    ...
    /* const unsigned long int  *zone_id */
    ) ;
/*~-lib$free_vm-~*/
/*+~lib$find_vm_zone~+*/
unsigned long int lib$find_vm_zone(
    unsigned long int  *context,
    unsigned long int  *zone_id
    ) ;
/*~-lib$find_vm_zone-~*/
/*+~lib$get_command~+*/
unsigned long int lib$get_command(
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$get_command-~*/
/*+~lib$get_common~+*/
unsigned long int lib$get_common(
    struct dsc$descriptor *resultant_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$get_common-~*/
/*+~lib$get_date_format~+*/
unsigned long int lib$get_date_format(
    struct dsc$descriptor *format_string,
    ...
    /* unsigned long int  *user_context */
    ) ;
/*~-lib$get_date_format-~*/
/*+~lib$get_maximum_date_length~+*/
unsigned long int lib$get_maximum_date_length(
    long int  *date_length,
    ...
    /* unsigned long int  *user_context, */
    /* const unsigned long int  *flags */
    ) ;
/*~-lib$get_maximum_date_length-~*/
/*+~lib$getdvi~+*/
unsigned long int lib$getdvi(
    const long int  *item_code,
    ...
    /* const unsigned short int  *channel, */
    /* const struct dsc$descriptor *device_name, */
    /* long int  *longword_integer_value, */
    /* struct dsc$descriptor *resultant_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$getdvi-~*/
/*+~lib$get_ef~+*/
unsigned long int lib$get_ef(
    unsigned long int  *event_flag_number
    ) ;
/*~-lib$get_ef-~*/
/*+~lib$get_foreign~+*/
unsigned long int lib$get_foreign(
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* unsigned short int  *resultant_length, */
    /* unsigned long int  *flags */
    ) ;
/*~-lib$get_foreign-~*/
/*+~lib$get_input~+*/
unsigned long int lib$get_input(
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$get_input-~*/
/*+~lib$getjpi~+*/
unsigned long int lib$getjpi(
    const long int  *item_code,
    ...
    /* unsigned long int  *process_id, */
    /* const struct dsc$descriptor *process_name, */
    /* int  *resultant_value, */
    /* struct dsc$descriptor *resultant_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$getjpi-~*/
/*+~lib$get_users_language~+*/
unsigned long int lib$get_users_language(
    struct dsc$descriptor *language
    ) ;
/*~-lib$get_users_language-~*/
/*+~lib$get_lun~+*/
unsigned long int lib$get_lun(
    long int  *logical_unit_number
    ) ;
/*~-lib$get_lun-~*/
/*+~lib$get_vm_page~+*/
unsigned long int lib$get_vm_page(
    const long int  *number_of_pages,
    int * *base_address
    ) ;
/*~-lib$get_vm_page-~*/
/*+~lib$getqui~+*/
unsigned long int lib$getqui(
    const long int  *function_code,
    ...
    /* const long int  *item_code, */
    /* const long int  *search_number, */
    /* const struct dsc$descriptor *search_name, */
    /* const unsigned long int  *search_flags, */
    /* int  *resultant_value, */
    /* struct dsc$descriptor *resultant_string, */
    /* short int  *resultant_length */
    ) ;
/*~-lib$getqui-~*/
/*+~lib$getsyi~+*/
unsigned long int lib$getsyi(
    const long int  *item_code,
    ...
    /* int  *resultant_value, */
    /* struct dsc$descriptor *resultant_string, */
    /* unsigned short int  *resultant_length, */
    /* unsigned long int  *cluster_system_id, */
    /* const struct dsc$descriptor *node_name */
    ) ;
/*~-lib$getsyi-~*/
/*+~lib$get_symbol~+*/
unsigned long int lib$get_symbol(
    const struct dsc$descriptor *symbol,
    struct dsc$descriptor *resultant_string,
    ...
    /* unsigned short int  *resultant_length, */
    /* long int  *table_type_indicator */
    ) ;
/*~-lib$get_symbol-~*/
/*+~lib$get_vm~+*/
unsigned long int lib$get_vm(
    const long int  *number_of_bytes,
    int * *base_address,
    ...
    /* const unsigned long int  *zone_id */
    ) ;
/*~-lib$get_vm-~*/
/*+~lib$ichar~+*/
unsigned long int lib$ichar(
    const struct dsc$descriptor *source_string
    ) ;
/*~-lib$ichar-~*/
/*+~lib$index~+*/
unsigned long int lib$index(
    const struct dsc$descriptor *source_string,
    const struct dsc$descriptor *sub_string
    ) ;
/*~-lib$index-~*/
/*+~lib$init_timer~+*/
unsigned long int lib$init_timer(
    /* unsigned long int  *context */
    ) ;
/*~-lib$init_timer-~*/
/*+~lib$insert_tree~+*/
long int lib$insert_tree(
    int * *treehead,
    const int  *symbol,
    const unsigned long int  *flags,
    const int *user_compare_routine,
    const int *user_allocation_procedure,
    int * *new_node,
    ...
    /* const int user_data */
    ) ;
/*~-lib$insert_tree-~*/
/*+~lib$insqhi~+*/
unsigned long int lib$insqhi(
    int  *entry,
    int  *header [2],
    ...
    /* const unsigned long int  *retry_count */
    ) ;
/*~-lib$insqhi-~*/
/*+~lib$insqti~+*/
unsigned long int lib$insqti(
    int  *entry,
    int  *header [2],
    ...
    /* const unsigned long int  *retry_count */
    ) ;
/*~-lib$insqti-~*/
/*+~lib$insv~+*/
int lib$insv(
    const long int  *longword_integer_source,
    const long int  *position,
    const unsigned char  *size,
    const unsigned long int base_address
    ) ;
/*~-lib$insv-~*/
/*+~lib$int_over~+*/
unsigned long int lib$int_over(
    const unsigned long int  *new_setting
    ) ;
/*~-lib$int_over-~*/
/*+~lib$init_date_time_context~+*/
unsigned long int lib$init_date_time_context(
    unsigned long int  *user_context,
    const long int  *component,
    const struct dsc$descriptor *init_string
    ) ;
/*~-lib$init_date_time_context-~*/
/*+~lib$len~+*/
unsigned short int lib$len(
    const struct dsc$descriptor *source_string
    ) ;
/*~-lib$len-~*/
/*+~lib$locc~+*/
unsigned long int lib$locc(
    const struct dsc$descriptor *character_string,
    const struct dsc$descriptor *source_string
    ) ;
/*~-lib$locc-~*/
/*+~lib$lookup_key~+*/
unsigned long int lib$lookup_key(
    const struct dsc$descriptor *search_string,
    const int  *key_table_array,
    ...
    /* unsigned long int  *key_value, */
    /* struct dsc$descriptor *keyword_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$lookup_key-~*/
/*+~lib$lookup_tree~+*/
unsigned long int lib$lookup_tree(
    const int * *treehead,
    const int  *symbol,
    const int *user_compare_routine,
    int * *new_node
    ) ;
/*~-lib$lookup_tree-~*/
/*+~lib$lp_lines~+*/
long int lib$lp_lines() ;
/*~-lib$lp_lines-~*/
/*+~lib$matchc~+*/
unsigned long int lib$matchc(
    const struct dsc$descriptor *sub_string,
    const struct dsc$descriptor *source_string
    ) ;
/*~-lib$matchc-~*/
/*+~lib$match_cond~+*/
unsigned long int lib$match_cond(
    const unsigned long int  *match_condition_value,
    const unsigned long int  *compare_condition_value
    ) ;
/*~-lib$match_cond-~*/
/*+~lib$movc3~+*/
int lib$movc3(
    const unsigned short int  *word_integer_length,
    const int  *source,
    int  *destination
    ) ;
/*~-lib$movc3-~*/
/*+~lib$movc5~+*/
int lib$movc5(
    const unsigned short int  *word_integer_source_length,
    const int  *source,
    const char  *fill,
    const unsigned short int  *word_integer_destination_length,
    int  *destination
    ) ;
/*~-lib$movc5-~*/
/*+~lib$movtc~+*/
unsigned long int lib$movtc(
    const struct dsc$descriptor *source_string,
    const struct dsc$descriptor *fill_character,
    const struct dsc$descriptor *translation_table,
    struct dsc$descriptor *destination_string
    ) ;
/*~-lib$movtc-~*/
/*+~lib$movtuc~+*/
unsigned long int lib$movtuc(
    const struct dsc$descriptor *source_string,
    const struct dsc$descriptor *stop_character,
    const struct dsc$descriptor *translation_table,
    struct dsc$descriptor *destination_string,
    ...
    /* const struct dsc$descriptor *fill_character */
    ) ;
/*~-lib$movtuc-~*/
/*+~lib$mult_delta_time~+*/
unsigned long int lib$mult_delta_time(
    const long int  *multiplier,
    unsigned int  *delta_time [2]
    ) ;
/*~-lib$mult_delta_time-~*/
/*+~lib$multf_delta_time~+*/
unsigned long int lib$multf_delta_time(
    const float  *multiplier,
    unsigned int  *delta_time [2]
    ) ;
/*~-lib$multf_delta_time-~*/
/*+~lib$pause~+*/
unsigned long int lib$pause() ;
/*~-lib$pause-~*/
/*+~lib$polyd~+*/
unsigned long int lib$polyd(
    const double float  *polynomial_argument,
    const short int  *degree,
    const double float  *coefficient [1],
    double float  *floating_point_result
    ) ;
/*~-lib$polyd-~*/
/*+~lib$polyf~+*/
unsigned long int lib$polyf(
    const float  *polynomial_argument,
    const short int  *degree,
    const float  *coefficient [1],
    float  *floating_point_result
    ) ;
/*~-lib$polyf-~*/
/*+~lib$polyg~+*/
unsigned long int lib$polyg(
    const double float  *polynomial_argument,
    const short int  *degree,
    const double float  *coefficient [1],
    double float  *floating_point_result
    ) ;
/*~-lib$polyg-~*/
/*+~lib$polyh~+*/
unsigned long int lib$polyh(
    const struct {int polynomi$$ret_0_ [4];}  *polynomial_argument,
    const short int  *degree,
    const struct {int coeffici$$ret_0_ [4];}  *coefficient [1],
    struct {int floating$$ret_0_ [4];}  *floating_point_result
    ) ;
/*~-lib$polyh-~*/
/*+~lib$put_common~+*/
unsigned long int lib$put_common(
    const struct dsc$descriptor *source_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$put_common-~*/
/*+~lib$put_output~+*/
unsigned long int lib$put_output(
    const struct dsc$descriptor *message_string
    ) ;
/*~-lib$put_output-~*/
/*+~lib$radix_point~+*/
unsigned long int lib$radix_point(
    struct dsc$descriptor *radix_point_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$radix_point-~*/
/*+~lib$remqhi~+*/
unsigned long int lib$remqhi(
    int  *header [2],
    int * *remque_address,
    ...
    /* const unsigned long int  *retry_count */
    ) ;
/*~-lib$remqhi-~*/
/*+~lib$remqti~+*/
unsigned long int lib$remqti(
    int  *header [2],
    int * *remque_address,
    ...
    /* const unsigned long int  *retry_count */
    ) ;
/*~-lib$remqti-~*/
/*+~lib$rename_file~+*/
unsigned long int lib$rename_file(
    const struct dsc$descriptor *old_filespec,
    const struct dsc$descriptor *new_filespec,
    ...
    /* const struct dsc$descriptor *default_filespec, */
    /* const struct dsc$descriptor *related_filespec, */
    /* const unsigned long int  *flags, */
    /* const int *user_success_procedure, */
    /* const int *user_error_procedure, */
    /* const int *user_confirm_procedure, */
    /* const int user_specified_argument, */
    /* struct dsc$descriptor *old_resultant_name, */
    /* struct dsc$descriptor *new_resultant_name, */
    /* unsigned long int  *file_scan_context */
    ) ;
/*~-lib$rename_file-~*/
/*+~lib$reserve_ef~+*/
unsigned long int lib$reserve_ef(
    const unsigned long int  *event_flag_number
    ) ;
/*~-lib$reserve_ef-~*/
/*+~lib$reset_vm_zone~+*/
unsigned long int lib$reset_vm_zone(
    const unsigned long int  *zone_id
    ) ;
/*~-lib$reset_vm_zone-~*/
/*+~lib$revert~+*/
int *lib$revert() ;
/*~-lib$revert-~*/
/*+~lib$run_program~+*/
unsigned long int lib$run_program(
    const struct dsc$descriptor *program_name
    ) ;
/*~-lib$run_program-~*/
/*+~lib$sys_asctim~+*/
unsigned long int lib$sys_asctim(
    unsigned short int  *resultant_length,
    struct dsc$descriptor *time_string,
    ...
    /* const unsigned int  *user_time [2], */
    /* const unsigned long int  *flags */
    ) ;
/*~-lib$sys_asctim-~*/
/*+~lib$scanc~+*/
unsigned long int lib$scanc(
    const struct dsc$descriptor *source_string,
    const unsigned char  *table_array [1],
    const unsigned char  *byte_integer_mask
    ) ;
/*~-lib$scanc-~*/
/*+~lib$scopy_dxdx~+*/
unsigned long int lib$scopy_dxdx(
    const struct dsc$descriptor *source_string,
    struct dsc$descriptor *destination_string
    ) ;
/*~-lib$scopy_dxdx-~*/
/*+~lib$scopy_r_dx~+*/
unsigned long int lib$scopy_r_dx(
    const unsigned short int  *word_integer_source_length,
    const int *source_string_address,
    const struct dsc$descriptor *destination_string
    ) ;
/*~-lib$scopy_r_dx-~*/
/*+~lib$set_logical~+*/
unsigned long int lib$set_logical(
    const struct dsc$descriptor *logical_name,
    ...
    /* const struct dsc$descriptor *value_string, */
    /* const struct dsc$descriptor *table, */
    /* const unsigned long int  *attributes, */
    /* const int  *item_list */
    ) ;
/*~-lib$set_logical-~*/
/*+~lib$set_symbol~+*/
unsigned long int lib$set_symbol(
    const struct dsc$descriptor *symbol,
    const struct dsc$descriptor *value_string,
    ...
    /* const long int  *table_type_indicator */
    ) ;
/*~-lib$set_symbol-~*/
/*+~lib$sys_fao~+*/
unsigned long int lib$sys_fao(
    const struct dsc$descriptor *character_string,
    unsigned short int  *resultant_length,
    struct dsc$descriptor *resultant_string,
    ...
    /* const int  *directive_argument */
    ) ;
/*~-lib$sys_fao-~*/
/*+~lib$sys_faol~+*/
unsigned long int lib$sys_faol(
    const struct dsc$descriptor *character_string,
    unsigned short int  *resultant_length,
    struct dsc$descriptor *resultant_string,
    const unsigned long int  *directive_argument_address [1]
    ) ;
/*~-lib$sys_faol-~*/
/*+~lib$sfree1_dd~+*/
unsigned long int lib$sfree1_dd(
    unsigned int  *descriptor_address [2]
    ) ;
/*~-lib$sfree1_dd-~*/
/*+~lib$sfreen_dd~+*/
unsigned long int lib$sfreen_dd(
    const unsigned long int  *number_of_descriptors,
    unsigned int  *first_descriptor_array [2] [1]
    ) ;
/*~-lib$sfreen_dd-~*/
/*+~lib$sget1_dd~+*/
unsigned long int lib$sget1_dd(
    const unsigned short int  *word_integer_length,
    unsigned int  *descriptor_part [2]
    ) ;
/*~-lib$sget1_dd-~*/
/*+~lib$sys_getmsg~+*/
unsigned long int lib$sys_getmsg(
    const unsigned long int  *message_id,
    unsigned short int  *message_length,
    struct dsc$descriptor *destination_string,
    ...
    /* const unsigned long int  *flags, */
    /* int  *unsigned_resultant_array */
    ) ;
/*~-lib$sys_getmsg-~*/
/*+~lib$show_timer~+*/
unsigned long int lib$show_timer(
    /* const int * *handle_address, */
    /* const long int  *code, */
    /* const int *user_action_procedure, */
    /* const int user_argument_value */
    ) ;
/*~-lib$show_timer-~*/
/*+~lib$show_vm~+*/
unsigned long int lib$show_vm(
    /* const long int  *code, */
    /* const int *user_action_procedure, */
    /* const int user_specified_argument */
    ) ;
/*~-lib$show_vm-~*/
/*+~lib$show_vm_zone~+*/
unsigned long int lib$show_vm_zone(
    const unsigned long int  *zone_id,
    ...
    /* const long int  *detail_level, */
    /* const int *user_action_procedure, */
    /* const int user_arg */
    ) ;
/*~-lib$show_vm_zone-~*/
/*+~lib$signal~+*/
int lib$signal(
    const unsigned long int condition_value,
    ...
    /* const long int number_of_arguments, */
    /* const int fao_argument */
    ) ;
/*~-lib$signal-~*/
/*+~lib$sig_to_ret~+*/
unsigned long int lib$sig_to_ret(
    const int  *signal_arguments,
    const int  *mechanism_arguments
    ) ;
/*~-lib$sig_to_ret-~*/
/*+~lib$sig_to_stop~+*/
unsigned long int lib$sig_to_stop(
    int  *signal_arguments,
    const int  *mechanism_arguments
    ) ;
/*~-lib$sig_to_stop-~*/
/*+~lib$sim_trap~+*/
unsigned long int lib$sim_trap(
    int  *signal_arguments,
    const int  *mechanism_arguments
    ) ;
/*~-lib$sim_trap-~*/
/*+~lib$skpc~+*/
unsigned long int lib$skpc(
    const struct dsc$descriptor *character_string,
    const struct dsc$descriptor *source_string
    ) ;
/*~-lib$skpc-~*/
/*+~lib$spanc~+*/
unsigned long int lib$spanc(
    const struct dsc$descriptor *source_string,
    const unsigned char  *table_array [1],
    const unsigned char  *byte_integer_mask
    ) ;
/*~-lib$spanc-~*/
/*+~lib$spawn~+*/
unsigned long int lib$spawn(
    /* const struct dsc$descriptor *command_string, */
    /* const struct dsc$descriptor *input_file, */
    /* const struct dsc$descriptor *output_file, */
    /* const unsigned long int  *flags, */
    /* const struct dsc$descriptor *process_name, */
    /* unsigned long int  *process_id, */
    /* const int *completion_status_address, */
    /* const unsigned char  *byte_integer_event_flag_num, */
    /* const int *ast_address, */
    /* const int varying_ast_argument, */
    /* const struct dsc$descriptor *prompt_string, */
    /* const struct dsc$descriptor *cli */
    ) ;
/*~-lib$spawn-~*/
/*+~lib$stat_timer~+*/
unsigned long int lib$stat_timer(
    const long int  *code,
    int  *value_argument,
    ...
    /* const int * *handle_address */
    ) ;
/*~-lib$stat_timer-~*/
/*+~lib$stat_vm~+*/
unsigned long int lib$stat_vm(
    const long int  *code,
    int  *value_argument
    ) ;
/*~-lib$stat_vm-~*/
/*+~lib$stop~+*/
int lib$stop(
    const unsigned long int condition_value,
    ...
    /* const long int number_of_arguments, */
    /* const int fao_argument */
    ) ;
/*~-lib$stop-~*/
/*+~lib$sys_trnlog~+*/
unsigned long int lib$sys_trnlog(
    const struct dsc$descriptor *logical_name,
    unsigned short int  *word_integer_dest_length,
    struct dsc$descriptor *destination_string,
    ...
    /* char  *byte_integer_table, */
    /* unsigned char  *access_mode, */
    /* const unsigned char  *byte_integer_disable_mask */
    ) ;
/*~-lib$sys_trnlog-~*/
/*+~lib$stat_vm_zone~+*/
unsigned long int lib$stat_vm_zone(
    const unsigned long int  *zone_id,
    const long int  *item_code,
    ...
    /* long int  *resultant_value, */
    /* struct dsc$descriptor *resultant_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$stat_vm_zone-~*/
/*+~lib$sub_times~+*/
unsigned long int lib$sub_times(
    const unsigned int  *time1 [2],
    const unsigned int  *time2 [2],
    unsigned int  *resultant_time [2]
    ) ;
/*~-lib$sub_times-~*/
/*+~lib$subx~+*/
unsigned long int lib$subx(
    const int  *minuend_array,
    const int  *subtrahend_array,
    int  *difference_array,
    ...
    /* const long int  *array_length */
    ) ;
/*~-lib$subx-~*/
/*+~lib$tparse~+*/
unsigned long int lib$tparse(
    int * *argument_block,
    const int * *state_table,
    const int * *key_table
    ) ;
/*~-lib$tparse-~*/
/*+~lib$tra_asc_ebc~+*/
unsigned long int lib$tra_asc_ebc(
    const struct dsc$descriptor *source_string,
    struct dsc$descriptor *byte_integer_dest_string
    ) ;
/*~-lib$tra_asc_ebc-~*/
/*+~lib$tra_ebc_asc~+*/
unsigned long int lib$tra_ebc_asc(
    const struct dsc$descriptor *byte_integer_source_string,
    struct dsc$descriptor *destination_string
    ) ;
/*~-lib$tra_ebc_asc-~*/
/*+~lib$traverse_tree~+*/
unsigned long int lib$traverse_tree(
    const int * *treehead,
    const int *user_action_procedure,
    ...
    /* const int  *user_data_address */
    ) ;
/*~-lib$traverse_tree-~*/
/*+~lib$trim_filespec~+*/
unsigned long int lib$trim_filespec(
    const struct dsc$descriptor *old_filespec,
    struct dsc$descriptor *new_filespec,
    ...
    /* const unsigned short int  *word_integer_width, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$trim_filespec-~*/
/*+~lib$verify_vm_zone~+*/
unsigned long int lib$verify_vm_zone(
    const unsigned long int  *zone_id
    ) ;
/*~-lib$verify_vm_zone-~*/
/*+~lib$wait~+*/
unsigned long int lib$wait(
    const float  *seconds
    ) ;
/*~-lib$wait-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  4-AUG-1988 20:36:57 EMULEX$DISK:[JOE.VMS5]MTH$ROUTINES.SDI;1 */
#ifndef MTH$ROUTINES_H
#define MTH$ROUTINES_H
 
/*** MODULE MTH$ROUTINES ***/
/*+~mth$acos~+*/
float mth$acos(
    const float  *cosine
    ) ;
/*~-mth$acos-~*/
/*+~mth$dacos~+*/
double float mth$dacos(
    const double float  *cosine
    ) ;
/*~-mth$dacos-~*/
/*+~mth$gacos~+*/
double float mth$gacos(
    const double float  *cosine
    ) ;
/*~-mth$gacos-~*/
/*+~mth$acosd~+*/
float mth$acosd(
    const float  *cosine
    ) ;
/*~-mth$acosd-~*/
/*+~mth$dacosd~+*/
double float mth$dacosd(
    const double float  *cosine
    ) ;
/*~-mth$dacosd-~*/
/*+~mth$gacosd~+*/
double float mth$gacosd(
    const double float  *cosine
    ) ;
/*~-mth$gacosd-~*/
/*+~mth$asin~+*/
float mth$asin(
    const float  *sine
    ) ;
/*~-mth$asin-~*/
/*+~mth$dasin~+*/
double float mth$dasin(
    const double float  *sine
    ) ;
/*~-mth$dasin-~*/
/*+~mth$gasin~+*/
double float mth$gasin(
    const double float  *sine
    ) ;
/*~-mth$gasin-~*/
/*+~mth$asind~+*/
float mth$asind(
    const float  *sine
    ) ;
/*~-mth$asind-~*/
/*+~mth$dasind~+*/
double float mth$dasind(
    const double float  *sine
    ) ;
/*~-mth$dasind-~*/
/*+~mth$gasind~+*/
double float mth$gasind(
    const double float  *sine
    ) ;
/*~-mth$gasind-~*/
/*+~mth$atan~+*/
float mth$atan(
    const float  *tangent
    ) ;
/*~-mth$atan-~*/
/*+~mth$datan~+*/
double float mth$datan(
    const double float  *tangent
    ) ;
/*~-mth$datan-~*/
/*+~mth$gatan~+*/
double float mth$gatan(
    const double float  *tangent
    ) ;
/*~-mth$gatan-~*/
/*+~mth$atan2~+*/
float mth$atan2(
    const float  *sine,
    const float  *cosine
    ) ;
/*~-mth$atan2-~*/
/*+~mth$datan2~+*/
double float mth$datan2(
    const double float  *sine,
    const double float  *cosine
    ) ;
/*~-mth$datan2-~*/
/*+~mth$gatan2~+*/
double float mth$gatan2(
    const double float  *sine,
    const double float  *cosine
    ) ;
/*~-mth$gatan2-~*/
/*+~mth$atand~+*/
float mth$atand(
    const float  *tangent
    ) ;
/*~-mth$atand-~*/
/*+~mth$datand~+*/
double float mth$datand(
    const double float  *tangent
    ) ;
/*~-mth$datand-~*/
/*+~mth$gatand~+*/
double float mth$gatand(
    const double float  *tangent
    ) ;
/*~-mth$gatand-~*/
/*+~mth$atanh~+*/
float mth$atanh(
    const float  *hyperbolic_tangent
    ) ;
/*~-mth$atanh-~*/
/*+~mth$datanh~+*/
double float mth$datanh(
    const double float  *hyperbolic_tangent
    ) ;
/*~-mth$datanh-~*/
/*+~mth$gatanh~+*/
double float mth$gatanh(
    const double float  *hyperbolic_tangent
    ) ;
/*~-mth$gatanh-~*/
/*+~mth$atand2~+*/
float mth$atand2(
    const float  *sine,
    const float  *cosine
    ) ;
/*~-mth$atand2-~*/
/*+~mth$datand2~+*/
double float mth$datand2(
    const double float  *sine,
    const double float  *cosine
    ) ;
/*~-mth$datand2-~*/
/*+~mth$gatand2~+*/
double float mth$gatand2(
    const double float  *sine,
    const double float  *cosine
    ) ;
/*~-mth$gatand2-~*/
/*+~mth$cabs~+*/
float mth$cabs(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cabs-~*/
/*+~mth$cdabs~+*/
double float mth$cdabs(
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdabs-~*/
/*+~mth$cgabs~+*/
double float mth$cgabs(
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cgabs-~*/
/*+~mth$ccos~+*/
FFLOAT_COMPLEXmth$ccos(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$ccos-~*/
/*+~mth$cexp~+*/
FFLOAT_COMPLEXmth$cexp(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cexp-~*/
/*+~mth$clog~+*/
FFLOAT_COMPLEXmth$clog(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$clog-~*/
/*+~mth$cmplx~+*/
FFLOAT_COMPLEXmth$cmplx(
    const float  *real_part,
    const float  *imaginary_part
    ) ;
/*~-mth$cmplx-~*/
/*+~mth$dcmplx~+*/
int mth$dcmplx(
    DFLOAT_COMPLEX *complx,
    const double float  *real_part,
    const double float  *imaginary_part
    ) ;
/*~-mth$dcmplx-~*/
/*+~mth$gcmplx~+*/
int mth$gcmplx(
    GFLOAT_COMPLEX *complx,
    const double float  *real_part,
    const double float  *imaginary_part
    ) ;
/*~-mth$gcmplx-~*/
/*+~mth$conjg~+*/
FFLOAT_COMPLEXmth$conjg(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$conjg-~*/
/*+~mth$dconjg~+*/
int mth$dconjg(
    DFLOAT_COMPLEX *complex_conjugate,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$dconjg-~*/
/*+~mth$gconjg~+*/
int mth$gconjg(
    GFLOAT_COMPLEX *complex_conjugate,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$gconjg-~*/
/*+~mth$cos~+*/
float mth$cos(
    const float  *angle_in_radians
    ) ;
/*~-mth$cos-~*/
/*+~mth$dcos~+*/
double float mth$dcos(
    const double float  *angle_in_radians
    ) ;
/*~-mth$dcos-~*/
/*+~mth$gcos~+*/
double float mth$gcos(
    const double float  *angle_in_radians
    ) ;
/*~-mth$gcos-~*/
/*+~mth$cosd~+*/
float mth$cosd(
    const float  *angle_in_degrees
    ) ;
/*~-mth$cosd-~*/
/*+~mth$dcosd~+*/
double float mth$dcosd(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$dcosd-~*/
/*+~mth$gcosd~+*/
double float mth$gcosd(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$gcosd-~*/
/*+~mth$cosh~+*/
float mth$cosh(
    const float  *floating_point_input_value
    ) ;
/*~-mth$cosh-~*/
/*+~mth$dcosh~+*/
double float mth$dcosh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dcosh-~*/
/*+~mth$gcosh~+*/
double float mth$gcosh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$gcosh-~*/
/*+~mth$csin~+*/
FFLOAT_COMPLEXmth$csin(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$csin-~*/
/*+~mth$csqrt~+*/
FFLOAT_COMPLEXmth$csqrt(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$csqrt-~*/
/*+~mth$cvt_d_g~+*/
double float mth$cvt_d_g(
    const double float  *floating_point_input_val
    ) ;
/*~-mth$cvt_d_g-~*/
/*+~mth$cvt_g_d~+*/
double float mth$cvt_g_d(
    const double float  *floating_point_input_val
    ) ;
/*~-mth$cvt_g_d-~*/
/*+~mth$cvt_da_ga~+*/
int mth$cvt_da_ga(
    const double float  *floating_point_input_array [1],
    double float  *floating_point_dest_array [1],
    ...
    /* const long int  *array_size */
    ) ;
/*~-mth$cvt_da_ga-~*/
/*+~mth$cvt_ga_da~+*/
int mth$cvt_ga_da(
    const double float  *floating_point_input_array [1],
    double float  *floating_point_dest_array [1],
    ...
    /* const long int  *array_size */
    ) ;
/*~-mth$cvt_ga_da-~*/
/*+~mth$cdcos~+*/
int mth$cdcos(
    DFLOAT_COMPLEX *complex_cosine,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdcos-~*/
/*+~mth$cgcos~+*/
int mth$cgcos(
    GFLOAT_COMPLEX *complex_cosine,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cgcos-~*/
/*+~mth$cdexp~+*/
int mth$cdexp(
    DFLOAT_COMPLEX *complex_exponent,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdexp-~*/
/*+~mth$cgexp~+*/
int mth$cgexp(
    GFLOAT_COMPLEX *complex_exponent,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cgexp-~*/
/*+~mth$cdlog~+*/
int mth$cdlog(
    DFLOAT_COMPLEX *complex_natural_log,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdlog-~*/
/*+~mth$cglog~+*/
int mth$cglog(
    GFLOAT_COMPLEX *complex_natural_log,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cglog-~*/
/*+~mth$cdsin~+*/
int mth$cdsin(
    DFLOAT_COMPLEX *complex_sine,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdsin-~*/
/*+~mth$cgsin~+*/
int mth$cgsin(
    GFLOAT_COMPLEX *complex_sine,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cgsin-~*/
/*+~mth$cdsqrt~+*/
int mth$cdsqrt(
    DFLOAT_COMPLEX *complex_square_root,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdsqrt-~*/
/*+~mth$cgsqrt~+*/
int mth$cgsqrt(
    GFLOAT_COMPLEX *complex_square_root,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cgsqrt-~*/
/*+~mth$exp~+*/
float mth$exp(
    const float  *floating_point_input_value
    ) ;
/*~-mth$exp-~*/
/*+~mth$dexp~+*/
double float mth$dexp(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dexp-~*/
/*+~mth$gexp~+*/
double float mth$gexp(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$gexp-~*/
/*+~mth$hacos~+*/
int mth$hacos(
    struct {int h_radian$$ret_0_ [4];}  *h_radians,
    const struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hacos-~*/
/*+~mth$hacosd~+*/
int mth$hacosd(
    struct {int h_degree$$ret_0_ [4];}  *h_degrees,
    const struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hacosd-~*/
/*+~mth$hasin~+*/
int mth$hasin(
    struct {int h_radian$$ret_0_ [4];}  *h_radians,
    const struct {int sine$$ret_0_ [4];}  *sine
    ) ;
/*~-mth$hasin-~*/
/*+~mth$hasind~+*/
int mth$hasind(
    struct {int h_degree$$ret_0_ [4];}  *h_degrees,
    const struct {int sine$$ret_0_ [4];}  *sine
    ) ;
/*~-mth$hasind-~*/
/*+~mth$hatan~+*/
int mth$hatan(
    struct {int h_radian$$ret_0_ [4];}  *h_radians,
    const struct {int tangent$$ret_0_ [4];}  *tangent
    ) ;
/*~-mth$hatan-~*/
/*+~mth$hatan2~+*/
int mth$hatan2(
    struct {int h_radian$$ret_0_ [4];}  *h_radians,
    const struct {int sine$$ret_0_ [4];}  *sine,
    const struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hatan2-~*/
/*+~mth$hatand~+*/
int mth$hatand(
    struct {int h_degree$$ret_0_ [4];}  *h_degrees,
    const struct {int tangent$$ret_0_ [4];}  *tangent
    ) ;
/*~-mth$hatand-~*/
/*+~mth$hatanh~+*/
int mth$hatanh(
    struct {int h_atanh$$ret_0_ [4];}  *h_atanh,
    const struct {int hyperbol$$ret_0_ [4];}  *hyperbolic_tangent
    ) ;
/*~-mth$hatanh-~*/
/*+~mth$hcos~+*/
int mth$hcos(
    struct {int h_cosine$$ret_0_ [4];}  *h_cosine,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_radians
    ) ;
/*~-mth$hcos-~*/
/*+~mth$hcosd~+*/
int mth$hcosd(
    struct {int h_cosine$$ret_0_ [4];}  *h_cosine,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_degrees
    ) ;
/*~-mth$hcosd-~*/
/*+~mth$hcosh~+*/
int mth$hcosh(
    struct {int h_cosh$$ret_0_ [4];}  *h_cosh,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hcosh-~*/
/*+~mth$hexp~+*/
int mth$hexp(
    struct {int h_exp$$ret_0_ [4];}  *h_exp,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hexp-~*/
/*+~mth$hlog10~+*/
int mth$hlog10(
    struct {int h_log10$$ret_0_ [4];}  *h_log10,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hlog10-~*/
/*+~mth$hlog~+*/
int mth$hlog(
    struct {int h_natlog$$ret_0_ [4];}  *h_natlog,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hlog-~*/
/*+~mth$hlog2~+*/
int mth$hlog2(
    struct {int h_log2$$ret_0_ [4];}  *h_log2,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hlog2-~*/
/*+~mth$hsin~+*/
int mth$hsin(
    struct {int h_sine$$ret_0_ [4];}  *h_sine,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_radians
    ) ;
/*~-mth$hsin-~*/
/*+~mth$hsind~+*/
int mth$hsind(
    struct {int h_sine$$ret_0_ [4];}  *h_sine,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_degrees
    ) ;
/*~-mth$hsind-~*/
/*+~mth$hsinh~+*/
int mth$hsinh(
    struct {int h_sinh$$ret_0_ [4];}  *h_sinh,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hsinh-~*/
/*+~mth$hsqrt~+*/
int mth$hsqrt(
    struct {int h_sqrt$$ret_0_ [4];}  *h_sqrt,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hsqrt-~*/
/*+~mth$htan~+*/
int mth$htan(
    struct {int h_tan$$ret_0_ [4];}  *h_tan,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_radians
    ) ;
/*~-mth$htan-~*/
/*+~mth$htand~+*/
int mth$htand(
    struct {int h_tan$$ret_0_ [4];}  *h_tan,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_degrees
    ) ;
/*~-mth$htand-~*/
/*+~mth$htanh~+*/
int mth$htanh(
    struct {int h_tanh$$ret_0_ [4];}  *h_tanh,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$htanh-~*/
/*+~mth$hatand2~+*/
int mth$hatand2(
    struct {int h_degree$$ret_0_ [4];}  *h_degrees,
    const struct {int sine$$ret_0_ [4];}  *sine,
    const struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hatand2-~*/
/*+~mth$aimag~+*/
float mth$aimag(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$aimag-~*/
/*+~mth$dimag~+*/
double float mth$dimag(
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$dimag-~*/
/*+~mth$gimag~+*/
double float mth$gimag(
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$gimag-~*/
/*+~mth$alog~+*/
float mth$alog(
    const float  *floating_point_input_value
    ) ;
/*~-mth$alog-~*/
/*+~mth$dlog~+*/
double float mth$dlog(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dlog-~*/
/*+~mth$glog~+*/
double float mth$glog(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$glog-~*/
/*+~mth$alog10~+*/
float mth$alog10(
    const float  *floating_point_input_value
    ) ;
/*~-mth$alog10-~*/
/*+~mth$dlog10~+*/
double float mth$dlog10(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dlog10-~*/
/*+~mth$glog10~+*/
double float mth$glog10(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$glog10-~*/
/*+~mth$alog2~+*/
float mth$alog2(
    const float  *floating_point_input_value
    ) ;
/*~-mth$alog2-~*/
/*+~mth$dlog2~+*/
double float mth$dlog2(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dlog2-~*/
/*+~mth$glog2~+*/
double float mth$glog2(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$glog2-~*/
/*+~mth$random~+*/
float mth$random(
    unsigned long int  *seed
    ) ;
/*~-mth$random-~*/
/*+~mth$real~+*/
float mth$real(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$real-~*/
/*+~mth$dreal~+*/
double float mth$dreal(
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$dreal-~*/
/*+~mth$greal~+*/
double float mth$greal(
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$greal-~*/
/*+~mth$sin~+*/
float mth$sin(
    const float  *angle_in_radians
    ) ;
/*~-mth$sin-~*/
/*+~mth$dsin~+*/
double float mth$dsin(
    const double float  *angle_in_radians
    ) ;
/*~-mth$dsin-~*/
/*+~mth$gsin~+*/
double float mth$gsin(
    const double float  *angle_in_radians
    ) ;
/*~-mth$gsin-~*/
/*+~mth$sind~+*/
float mth$sind(
    const float  *angle_in_degrees
    ) ;
/*~-mth$sind-~*/
/*+~mth$dsind~+*/
double float mth$dsind(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$dsind-~*/
/*+~mth$gsind~+*/
double float mth$gsind(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$gsind-~*/
/*+~mth$sinh~+*/
float mth$sinh(
    const float  *floating_point_input_value
    ) ;
/*~-mth$sinh-~*/
/*+~mth$dsinh~+*/
double float mth$dsinh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dsinh-~*/
/*+~mth$gsinh~+*/
double float mth$gsinh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$gsinh-~*/
/*+~mth$sincos~+*/
int mth$sincos(
    const float  *angle_in_radians,
    float  *sine,
    float  *cosine
    ) ;
/*~-mth$sincos-~*/
/*+~mth$dsincos~+*/
int mth$dsincos(
    const double float  *angle_in_radians,
    double float  *sine,
    double float  *cosine
    ) ;
/*~-mth$dsincos-~*/
/*+~mth$gsincos~+*/
int mth$gsincos(
    const double float  *angle_in_radians,
    double float  *sine,
    double float  *cosine
    ) ;
/*~-mth$gsincos-~*/
/*+~mth$hsincos~+*/
int mth$hsincos(
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_radians,
    struct {int sine$$ret_0_ [4];}  *sine,
    struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hsincos-~*/
/*+~mth$sincosd~+*/
int mth$sincosd(
    const float  *angle_in_degrees,
    float  *sine,
    float  *cosine
    ) ;
/*~-mth$sincosd-~*/
/*+~mth$dsincosd~+*/
int mth$dsincosd(
    const double float  *angle_in_degrees,
    double float  *sine,
    double float  *cosine
    ) ;
/*~-mth$dsincosd-~*/
/*+~mth$gsincosd~+*/
int mth$gsincosd(
    const double float  *angle_in_degrees,
    double float  *sine,
    double float  *cosine
    ) ;
/*~-mth$gsincosd-~*/
/*+~mth$hsincosd~+*/
int mth$hsincosd(
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_degrees,
    struct {int sine$$ret_0_ [4];}  *sine,
    struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hsincosd-~*/
/*+~mth$sqrt~+*/
float mth$sqrt(
    const float  *floating_point_input_value
    ) ;
/*~-mth$sqrt-~*/
/*+~mth$dsqrt~+*/
double float mth$dsqrt(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dsqrt-~*/
/*+~mth$gsqrt~+*/
double float mth$gsqrt(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$gsqrt-~*/
/*+~mth$tan~+*/
float mth$tan(
    const float  *angle_in_radians
    ) ;
/*~-mth$tan-~*/
/*+~mth$dtan~+*/
double float mth$dtan(
    const double float  *angle_in_radians
    ) ;
/*~-mth$dtan-~*/
/*+~mth$gtan~+*/
double float mth$gtan(
    const double float  *angle_in_radians
    ) ;
/*~-mth$gtan-~*/
/*+~mth$tand~+*/
float mth$tand(
    const float  *angle_in_degrees
    ) ;
/*~-mth$tand-~*/
/*+~mth$dtand~+*/
double float mth$dtand(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$dtand-~*/
/*+~mth$gtand~+*/
double float mth$gtand(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$gtand-~*/
/*+~mth$tanh~+*/
float mth$tanh(
    const float  *floating_point_input_value
    ) ;
/*~-mth$tanh-~*/
/*+~mth$dtanh~+*/
double float mth$dtanh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dtanh-~*/
/*+~mth$gtanh~+*/
double float mth$gtanh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$gtanh-~*/
/*+~mth$umax~+*/
unsigned long int mth$umax(
    const unsigned long int  *argument
    ) ;
/*~-mth$umax-~*/
/*+~mth$umin~+*/
unsigned long int mth$umin(
    const unsigned long int  *argument
    ) ;
/*~-mth$umin-~*/
/*+~mth$abs~+*/
float mth$abs(
    const float  *f_floating
    ) ;
/*~-mth$abs-~*/
/*+~mth$dabs~+*/
double float mth$dabs(
    const double float  *d_floating
    ) ;
/*~-mth$dabs-~*/
/*+~mth$gabs~+*/
double float mth$gabs(
    const double float  *g_floating
    ) ;
/*~-mth$gabs-~*/
/*+~mth$habs~+*/
int mth$habs(
    struct {int h_abs_va$$ret_0_ [4];}  *h_abs_val,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$habs-~*/
/*+~mth$iiabs~+*/
short int mth$iiabs(
    const short int  *word
    ) ;
/*~-mth$iiabs-~*/
/*+~mth$jiabs~+*/
long int mth$jiabs(
    const long int  *longword
    ) ;
/*~-mth$jiabs-~*/
/*+~mth$iiand~+*/
unsigned short int mth$iiand(
    const unsigned short int  *word1,
    const unsigned short int  *word2
    ) ;
/*~-mth$iiand-~*/
/*+~mth$jiand~+*/
unsigned long int mth$jiand(
    const unsigned long int  *longword1,
    const unsigned long int  *longword2
    ) ;
/*~-mth$jiand-~*/
/*+~mth$dble~+*/
double float mth$dble(
    const float  *f_floating
    ) ;
/*~-mth$dble-~*/
/*+~mth$gdble~+*/
double float mth$gdble(
    const float  *f_floating
    ) ;
/*~-mth$gdble-~*/
/*+~mth$dim~+*/
float mth$dim(
    const float  *f_floating1,
    const float  *f_floating2
    ) ;
/*~-mth$dim-~*/
/*+~mth$ddim~+*/
double float mth$ddim(
    const double float  *d_floating1,
    const double float  *d_floating2
    ) ;
/*~-mth$ddim-~*/
/*+~mth$gdim~+*/
double float mth$gdim(
    const double float  *g_floating1,
    const double float  *g_floating2
    ) ;
/*~-mth$gdim-~*/
/*+~mth$hdim~+*/
int mth$hdim(
    struct {int h_floati$$ret_1_ [4];}  *h_floating,
    const struct {int h_floati$$ret_2_ [4];}  *h_floating1,
    const struct {int h_floati$$ret_3_ [4];}  *h_floating2
    ) ;
/*~-mth$hdim-~*/
/*+~mth$iidim~+*/
short int mth$iidim(
    const short int  *word1,
    const short int  *word2
    ) ;
/*~-mth$iidim-~*/
/*+~mth$jidim~+*/
long int mth$jidim(
    const long int  *longword1,
    const long int  *longword2
    ) ;
/*~-mth$jidim-~*/
/*+~mth$iieor~+*/
unsigned short int mth$iieor(
    const unsigned short int  *word1,
    const unsigned short int  *word2
    ) ;
/*~-mth$iieor-~*/
/*+~mth$jieor~+*/
unsigned long int mth$jieor(
    const unsigned long int  *longword1,
    const unsigned long int  *longword2
    ) ;
/*~-mth$jieor-~*/
/*+~mth$iifix~+*/
short int mth$iifix(
    const float  *f_floating
    ) ;
/*~-mth$iifix-~*/
/*+~mth$jifix~+*/
long int mth$jifix(
    const float  *f_floating
    ) ;
/*~-mth$jifix-~*/
/*+~mth$floati~+*/
float mth$floati(
    const short int  *word
    ) ;
/*~-mth$floati-~*/
/*+~mth$dfloti~+*/
double float mth$dfloti(
    const short int  *word
    ) ;
/*~-mth$dfloti-~*/
/*+~mth$gfloti~+*/
double float mth$gfloti(
    const short int  *word
    ) ;
/*~-mth$gfloti-~*/
/*+~mth$floatj~+*/
float mth$floatj(
    const long int  *longword
    ) ;
/*~-mth$floatj-~*/
/*+~mth$dflotj~+*/
double float mth$dflotj(
    const long int  *longword
    ) ;
/*~-mth$dflotj-~*/
/*+~mth$gflotj~+*/
double float mth$gflotj(
    const long int  *longword
    ) ;
/*~-mth$gflotj-~*/
/*+~mth$floor~+*/
float mth$floor(
    const float  *f_floating
    ) ;
/*~-mth$floor-~*/
/*+~mth$dfloor~+*/
double float mth$dfloor(
    const double float  *d_floating
    ) ;
/*~-mth$dfloor-~*/
/*+~mth$gfloor~+*/
double float mth$gfloor(
    const double float  *g_floating
    ) ;
/*~-mth$gfloor-~*/
/*+~mth$hfloor~+*/
int mth$hfloor(
    struct {int max_h_fl$$ret_0_ [4];}  *max_h_float,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$hfloor-~*/
/*+~mth$aint~+*/
float mth$aint(
    const float  *f_floating
    ) ;
/*~-mth$aint-~*/
/*+~mth$dint~+*/
double float mth$dint(
    const double float  *d_floating
    ) ;
/*~-mth$dint-~*/
/*+~mth$iidint~+*/
short int mth$iidint(
    const double float  *d_floating
    ) ;
/*~-mth$iidint-~*/
/*+~mth$jidint~+*/
long int mth$jidint(
    const double float  *d_floating
    ) ;
/*~-mth$jidint-~*/
/*+~mth$gint~+*/
double float mth$gint(
    const double float  *g_floating
    ) ;
/*~-mth$gint-~*/
/*+~mth$iigint~+*/
short int mth$iigint(
    const double float  *g_floating
    ) ;
/*~-mth$iigint-~*/
/*+~mth$jigint~+*/
long int mth$jigint(
    const double float  *g_floating
    ) ;
/*~-mth$jigint-~*/
/*+~mth$hint~+*/
int mth$hint(
    struct {int trunc_h_$$ret_0_ [4];}  *trunc_h_flt,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$hint-~*/
/*+~mth$iihint~+*/
short int mth$iihint(
    const struct {int h_floati$$ret_1_ [4];}  *h_floating
    ) ;
/*~-mth$iihint-~*/
/*+~mth$jihint~+*/
long int mth$jihint(
    const struct {int h_floati$$ret_2_ [4];}  *h_floating
    ) ;
/*~-mth$jihint-~*/
/*+~mth$iint~+*/
short int mth$iint(
    const float  *f_floating
    ) ;
/*~-mth$iint-~*/
/*+~mth$jint~+*/
long int mth$jint(
    const float  *f_floating
    ) ;
/*~-mth$jint-~*/
/*+~mth$iior~+*/
unsigned short int mth$iior(
    const unsigned short int  *word1,
    const unsigned short int  *word2
    ) ;
/*~-mth$iior-~*/
/*+~mth$jior~+*/
unsigned long int mth$jior(
    const unsigned long int  *longword1,
    const unsigned long int  *longword2
    ) ;
/*~-mth$jior-~*/
/*+~mth$aimax0~+*/
float mth$aimax0(
    const short int  *word
    ) ;
/*~-mth$aimax0-~*/
/*+~mth$ajmax0~+*/
float mth$ajmax0(
    const long int  *longword
    ) ;
/*~-mth$ajmax0-~*/
/*+~mth$imax0~+*/
short int mth$imax0(
    const short int  *word
    ) ;
/*~-mth$imax0-~*/
/*+~mth$jmax0~+*/
long int mth$jmax0(
    const long int  *longword
    ) ;
/*~-mth$jmax0-~*/
/*+~mth$amax1~+*/
float mth$amax1(
    const float  *f_floating
    ) ;
/*~-mth$amax1-~*/
/*+~mth$dmax1~+*/
double float mth$dmax1(
    const double float  *d_floating
    ) ;
/*~-mth$dmax1-~*/
/*+~mth$gmax1~+*/
double float mth$gmax1(
    const double float  *g_floating
    ) ;
/*~-mth$gmax1-~*/
/*+~mth$hmax1~+*/
int mth$hmax1(
    struct {int h_float_$$ret_0_ [4];}  *h_float_max,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$hmax1-~*/
/*+~mth$imax1~+*/
short int mth$imax1(
    const float  *f_floating
    ) ;
/*~-mth$imax1-~*/
/*+~mth$jmax1~+*/
long int mth$jmax1(
    const float  *f_floating
    ) ;
/*~-mth$jmax1-~*/
/*+~mth$aimin0~+*/
float mth$aimin0(
    const short int  *word
    ) ;
/*~-mth$aimin0-~*/
/*+~mth$ajmin0~+*/
float mth$ajmin0(
    const long int  *longword
    ) ;
/*~-mth$ajmin0-~*/
/*+~mth$imin0~+*/
short int mth$imin0(
    const short int  *word
    ) ;
/*~-mth$imin0-~*/
/*+~mth$jmin0~+*/
long int mth$jmin0(
    const long int  *longword
    ) ;
/*~-mth$jmin0-~*/
/*+~mth$amin1~+*/
float mth$amin1(
    const float  *f_floating
    ) ;
/*~-mth$amin1-~*/
/*+~mth$dmin1~+*/
double float mth$dmin1(
    const double float  *d_floating
    ) ;
/*~-mth$dmin1-~*/
/*+~mth$gmin1~+*/
double float mth$gmin1(
    const double float  *g_floating
    ) ;
/*~-mth$gmin1-~*/
/*+~mth$hmin1~+*/
int mth$hmin1(
    struct {int h_float_$$ret_0_ [4];}  *h_float_max,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$hmin1-~*/
/*+~mth$imin1~+*/
short int mth$imin1(
    const float  *f_floating
    ) ;
/*~-mth$imin1-~*/
/*+~mth$jmin1~+*/
long int mth$jmin1(
    const float  *f_floating
    ) ;
/*~-mth$jmin1-~*/
/*+~mth$amod~+*/
float mth$amod(
    const float  *dividend,
    const float  *divisor
    ) ;
/*~-mth$amod-~*/
/*+~mth$dmod~+*/
double float mth$dmod(
    const double float  *dividend,
    const double float  *divisor
    ) ;
/*~-mth$dmod-~*/
/*+~mth$gmod~+*/
double float mth$gmod(
    const double float  *dividend,
    const double float  *divisor
    ) ;
/*~-mth$gmod-~*/
/*+~mth$hmod~+*/
int mth$hmod(
    struct {int h_mod$$ret_0_ [4];}  *h_mod,
    const struct {int dividend$$ret_0_ [4];}  *dividend,
    const struct {int divisor$$ret_0_ [4];}  *divisor
    ) ;
/*~-mth$hmod-~*/
/*+~mth$imod~+*/
short int mth$imod(
    const short int  *dividend,
    const short int  *divisor
    ) ;
/*~-mth$imod-~*/
/*+~mth$jmod~+*/
long int mth$jmod(
    const long int  *dividend,
    const long int  *divisor
    ) ;
/*~-mth$jmod-~*/
/*+~mth$anint~+*/
float mth$anint(
    const float  *f_floating
    ) ;
/*~-mth$anint-~*/
/*+~mth$dnint~+*/
double float mth$dnint(
    const double float  *d_floating
    ) ;
/*~-mth$dnint-~*/
/*+~mth$iidnnt~+*/
short int mth$iidnnt(
    const double float  *d_floating
    ) ;
/*~-mth$iidnnt-~*/
/*+~mth$jidnnt~+*/
long int mth$jidnnt(
    const double float  *d_floating
    ) ;
/*~-mth$jidnnt-~*/
/*+~mth$gnint~+*/
double float mth$gnint(
    const double float  *g_floating
    ) ;
/*~-mth$gnint-~*/
/*+~mth$iignnt~+*/
short int mth$iignnt(
    const double float  *g_floating
    ) ;
/*~-mth$iignnt-~*/
/*+~mth$jignnt~+*/
long int mth$jignnt(
    const double float  *g_floating
    ) ;
/*~-mth$jignnt-~*/
/*+~mth$hnint~+*/
int mth$hnint(
    struct {int nearst_h$$ret_0_ [4];}  *nearst_h_flt,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$hnint-~*/
/*+~mth$iihnnt~+*/
short int mth$iihnnt(
    const struct {int h_floati$$ret_1_ [4];}  *h_floating
    ) ;
/*~-mth$iihnnt-~*/
/*+~mth$jihnnt~+*/
long int mth$jihnnt(
    const struct {int h_floati$$ret_2_ [4];}  *h_floating
    ) ;
/*~-mth$jihnnt-~*/
/*+~mth$inint~+*/
short int mth$inint(
    const float  *f_floating
    ) ;
/*~-mth$inint-~*/
/*+~mth$jnint~+*/
long int mth$jnint(
    const float  *f_floating
    ) ;
/*~-mth$jnint-~*/
/*+~mth$inot~+*/
unsigned short int mth$inot(
    const unsigned short int  *word
    ) ;
/*~-mth$inot-~*/
/*+~mth$jnot~+*/
unsigned long int mth$jnot(
    const unsigned long int  *longword
    ) ;
/*~-mth$jnot-~*/
/*+~mth$dprod~+*/
double float mth$dprod(
    const float  *f_floating1,
    const float  *f_floating2
    ) ;
/*~-mth$dprod-~*/
/*+~mth$gprod~+*/
double float mth$gprod(
    const float  *f_floating1,
    const float  *f_floating2
    ) ;
/*~-mth$gprod-~*/
/*+~mth$sgn~+*/
long int mth$sgn(
    const int  *f_or_d_floating
    ) ;
/*~-mth$sgn-~*/
/*+~mth$iishft~+*/
unsigned short int mth$iishft(
    const unsigned short int  *word,
    const short int  *shift_cnt
    ) ;
/*~-mth$iishft-~*/
/*+~mth$jishft~+*/
unsigned long int mth$jishft(
    const unsigned long int  *longword,
    const long int  *shift_cnt
    ) ;
/*~-mth$jishft-~*/
/*+~mth$sign~+*/
float mth$sign(
    const float  *f_float_x,
    const float  *f_float_y
    ) ;
/*~-mth$sign-~*/
/*+~mth$dsign~+*/
double float mth$dsign(
    const double float  *d_float_x,
    const double float  *d_float_y
    ) ;
/*~-mth$dsign-~*/
/*+~mth$gsign~+*/
double float mth$gsign(
    const double float  *g_float_x,
    const double float  *g_float_y
    ) ;
/*~-mth$gsign-~*/
/*+~mth$hsign~+*/
int mth$hsign(
    struct {int h_result$$ret_0_ [4];}  *h_result,
    const struct {int h_float_$$ret_0_ [4];}  *h_float_x,
    const struct {int h_float_$$ret_1_ [4];}  *h_float_y
    ) ;
/*~-mth$hsign-~*/
/*+~mth$iisign~+*/
short int mth$iisign(
    const short int  *word_x,
    const short int  *word_y
    ) ;
/*~-mth$iisign-~*/
/*+~mth$jisign~+*/
long int mth$jisign(
    const long int  *longwrd_x,
    const long int  *longwrd_y
    ) ;
/*~-mth$jisign-~*/
/*+~mth$sngl~+*/
float mth$sngl(
    const double float  *d_floating
    ) ;
/*~-mth$sngl-~*/
/*+~mth$snglg~+*/
float mth$snglg(
    const double float  *g_floating
    ) ;
/*~-mth$snglg-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  4-AUG-1988 20:37:14 EMULEX$DISK:[JOE.VMS5]NCS$ROUTINES.SDI;1 */
#ifndef NCS$ROUTINES_H
#define NCS$ROUTINES_H
 
/*** MODULE NCS$ROUTINES ***/
/*+~ncs$compare~+*/
long int ncs$compare(
    const unsigned long int  *cs_id,
    const struct dsc$descriptor *string_1,
    const struct dsc$descriptor *string_2
    ) ;
/*~-ncs$compare-~*/
/*+~ncs$convert~+*/
unsigned long int ncs$convert(
    const unsigned long int  *cf_id,
    const struct dsc$descriptor *source,
    struct dsc$descriptor *dest,
    unsigned short int  *ret_length
    ) ;
/*~-ncs$convert-~*/
/*+~ncs$end_cf~+*/
unsigned long int ncs$end_cf(
    unsigned long int  *cf_id
    ) ;
/*~-ncs$end_cf-~*/
/*+~ncs$end_cs~+*/
unsigned long int ncs$end_cs(
    unsigned long int  *cs_id
    ) ;
/*~-ncs$end_cs-~*/
/*+~ncs$get_cf~+*/
unsigned long int ncs$get_cf(
    unsigned long int  *cf_id,
    ...
    /* const struct dsc$descriptor *cfname, */
    /* const struct dsc$descriptor *librar */
    ) ;
/*~-ncs$get_cf-~*/
/*+~ncs$get_cs~+*/
unsigned long int ncs$get_cs(
    unsigned long int  *cs_id,
    ...
    /* const struct dsc$descriptor *csname, */
    /* const struct dsc$descriptor *librar */
    ) ;
/*~-ncs$get_cs-~*/
/*+~ncs$restore_cf~+*/
unsigned long int ncs$restore_cf(
    unsigned long int  *cf_id,
    ...
    /* const unsigned long int  *length, */
    /* const unsigned long int  *address */
    ) ;
/*~-ncs$restore_cf-~*/
/*+~ncs$restore_cs~+*/
unsigned long int ncs$restore_cs(
    unsigned long int  *cs_id,
    ...
    /* const unsigned long int  *length, */
    /* const unsigned long int  *address */
    ) ;
/*~-ncs$restore_cs-~*/
/*+~ncs$save_cf~+*/
unsigned long int ncs$save_cf(
    const unsigned long int  *cf_id,
    ...
    /* unsigned long int  *length, */
    /* unsigned long int  *address */
    ) ;
/*~-ncs$save_cf-~*/
/*+~ncs$save_cs~+*/
unsigned long int ncs$save_cs(
    const unsigned long int  *cs_id,
    ...
    /* unsigned long int  *length, */
    /* unsigned long int  *address */
    ) ;
/*~-ncs$save_cs-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  4-AUG-1988 20:37:28 EMULEX$DISK:[JOE.VMS5]OTS$ROUTINES.SDI;1 */
#ifndef OTS$ROUTINES_H
#define OTS$ROUTINES_H
 
/*** MODULE OTS$ROUTINES ***/
/*+~ots$cvt_t_d~+*/
unsigned long int ots$cvt_t_d(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    double float  *floating_point_value,
    ...
    /* const unsigned long int digits_in_fraction, */
    /* const long int scale_factor, */
    /* const unsigned long int flags_value, */
    /* char  *extension_bits */
    ) ;
/*~-ots$cvt_t_d-~*/
/*+~ots$cvt_t_f~+*/
unsigned long int ots$cvt_t_f(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    float  *floating_point_value,
    ...
    /* const unsigned long int digits_in_fraction, */
    /* const long int scale_factor, */
    /* const unsigned long int flags_value, */
    /* char  *extension_bits */
    ) ;
/*~-ots$cvt_t_f-~*/
/*+~ots$cvt_t_g~+*/
unsigned long int ots$cvt_t_g(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    double float  *floating_point_value,
    ...
    /* const unsigned long int digits_in_fraction, */
    /* const long int scale_factor, */
    /* const unsigned long int flags_value, */
    /* short int  *extension_bits */
    ) ;
/*~-ots$cvt_t_g-~*/
/*+~ots$cvt_t_h~+*/
unsigned long int ots$cvt_t_h(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    struct {int floating$$ret_0_ [4];}  *floating_point_value,
    ...
    /* const unsigned long int digits_in_fraction, */
    /* const long int scale_factor, */
    /* const unsigned long int flags_value, */
    /* short int  *extension_bits */
    ) ;
/*~-ots$cvt_t_h-~*/
/*+~ots$div_pk_long~+*/
int ots$div_pk_long(
    const int  *packed_decimal_dividend,
    const int  *packed_decimal_divisor,
    const short int divisor_precision,
    int  *packed_decimal_quotient,
    const short int quotient_precision,
    const short int precision_data,
    const short int scale_data
    ) ;
/*~-ots$div_pk_long-~*/
/*+~ots$div_pk_short~+*/
int ots$div_pk_short(
    const int  *packed_decimal_dividend,
    const int  *packed_decimal_divisor,
    const short int divisor_precision,
    int  *packed_decimal_quotient,
    const short int quotient_precision,
    const short int precision_data
    ) ;
/*~-ots$div_pk_short-~*/
/*+~ots$move3~+*/
int ots$move3(
    const long int length_value,
    const unsigned char  *source_array [1],
    unsigned char  *destination_array [1]
    ) ;
/*~-ots$move3-~*/
/*+~ots$move5~+*/
int ots$move5(
    const long int longword_int_source_length,
    const unsigned char  *source_array [1],
    const unsigned char fill_value,
    const long int longword_int_dest_length,
    unsigned char  *destination_array [1]
    ) ;
/*~-ots$move5-~*/
/*+~ots$cnvout~+*/
unsigned long int ots$cnvout(
    const double float  *d_g_or_h_float_pt_input_val,
    struct dsc$descriptor *fixed_length_resultant_string,
    const unsigned long int digits_in_fraction
    ) ;
/*~-ots$cnvout-~*/
/*+~ots$cnvout_g~+*/
unsigned long int ots$cnvout_g(
    const double float  *d_g_or_h_float_pt_input_val,
    struct dsc$descriptor *fixed_length_resultant_string,
    const unsigned long int digits_in_fraction
    ) ;
/*~-ots$cnvout_g-~*/
/*+~ots$cnvout_h~+*/
unsigned long int ots$cnvout_h(
    const struct {int d_g_or_h$$ret_0_ [4];}  *d_g_or_h_float_pt_input_val,
    struct dsc$descriptor *fixed_length_resultant_string,
    const unsigned long int digits_in_fraction
    ) ;
/*~-ots$cnvout_h-~*/
/*+~ots$powii~+*/
short int ots$powii(
    const short int word_integer_base,
    const short int word_integer_exponent
    ) ;
/*~-ots$powii-~*/
/*+~ots$powjj~+*/
long int ots$powjj(
    const long int longword_integer_base,
    const long int longword_integer_exponent
    ) ;
/*~-ots$powjj-~*/
/*+~ots$powlulu~+*/
unsigned long int ots$powlulu(
    const unsigned long int unsigned_lword_int_base,
    const unsigned long int unsigned_lword_int_exponent
    ) ;
/*~-ots$powlulu-~*/
/*+~ots$powrj~+*/
float ots$powrj(
    const float f_floating_point_base,
    const long int longword_integer_exponent
    ) ;
/*~-ots$powrj-~*/
/*+~ots$powrr~+*/
float ots$powrr(
    const float f_floating_point_base,
    const float f_floating_point_exponent
    ) ;
/*~-ots$powrr-~*/
/*+~ots$powrlu~+*/
float ots$powrlu(
    const float floating_point_base,
    const unsigned long int unsigned_lword_int_exponent
    ) ;
/*~-ots$powrlu-~*/
/*+~ots$scopy_dxdx~+*/
unsigned short int ots$scopy_dxdx(
    const struct dsc$descriptor *source_string,
    struct dsc$descriptor *destination_string
    ) ;
/*~-ots$scopy_dxdx-~*/
/*+~ots$scopy_r_dx~+*/
unsigned short int ots$scopy_r_dx(
    const unsigned short int word_int_source_length_val,
    const char  *source_string_address,
    struct dsc$descriptor *destination_string
    ) ;
/*~-ots$scopy_r_dx-~*/
/*+~ots$sfree1_dd~+*/
int ots$sfree1_dd(
    unsigned int  *dynamic_descriptor [2]
    ) ;
/*~-ots$sfree1_dd-~*/
/*+~ots$sfreen_dd~+*/
int ots$sfreen_dd(
    const unsigned long int descriptor_count_value,
    unsigned int  *first_descriptor [2]
    ) ;
/*~-ots$sfreen_dd-~*/
/*+~ots$sget1_dd~+*/
int ots$sget1_dd(
    const unsigned short int word_integer_length_value,
    unsigned int  *dynamic_descriptor [2]
    ) ;
/*~-ots$sget1_dd-~*/
/*+~ots$cvt_l_tb~+*/
unsigned long int ots$cvt_l_tb(
    const int  *varying_input_value,
    struct dsc$descriptor *fixed_length_resultant_string,
    ...
    /* const long int number_of_digits, */
    /* const long int input_value_size */
    ) ;
/*~-ots$cvt_l_tb-~*/
/*+~ots$cvt_l_ti~+*/
unsigned long int ots$cvt_l_ti(
    const int  *varying_input_value,
    struct dsc$descriptor *fixed_length_resultant_string,
    ...
    /* const long int number_of_digits, */
    /* const long int input_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_l_ti-~*/
/*+~ots$cvt_l_tl~+*/
unsigned long int ots$cvt_l_tl(
    const long int  *longword_integer_value,
    struct dsc$descriptor *fixed_length_resultant_string
    ) ;
/*~-ots$cvt_l_tl-~*/
/*+~ots$cvt_l_to~+*/
unsigned long int ots$cvt_l_to(
    const int  *varying_input_value,
    struct dsc$descriptor *fixed_length_resultant_string,
    ...
    /* const long int number_of_digits, */
    /* const long int input_value_size */
    ) ;
/*~-ots$cvt_l_to-~*/
/*+~ots$cvt_l_tu~+*/
unsigned long int ots$cvt_l_tu(
    const int  *varying_input_value,
    struct dsc$descriptor *fixed_length_resultant_string,
    ...
    /* const long int number_of_digits, */
    /* const long int input_value_size */
    ) ;
/*~-ots$cvt_l_tu-~*/
/*+~ots$cvt_l_tz~+*/
unsigned long int ots$cvt_l_tz(
    const int  *varying_input_value,
    struct dsc$descriptor *fixed_length_resultant_string,
    ...
    /* const long int number_of_digits, */
    /* const long int input_value_size */
    ) ;
/*~-ots$cvt_l_tz-~*/
/*+~ots$cvt_tb_l~+*/
unsigned long int ots$cvt_tb_l(
    const struct dsc$descriptor *input_string,
    int  *varying_output_value,
    ...
    /* const long int output_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_tb_l-~*/
/*+~ots$cvt_ti_l~+*/
unsigned long int ots$cvt_ti_l(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    int  *varying_output_value,
    ...
    /* const long int output_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_ti_l-~*/
/*+~ots$cvt_tl_l~+*/
unsigned long int ots$cvt_tl_l(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    int  *varying_output_value,
    ...
    /* const long int output_value_size */
    ) ;
/*~-ots$cvt_tl_l-~*/
/*+~ots$cvt_to_l~+*/
unsigned long int ots$cvt_to_l(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    int  *varying_output_value,
    ...
    /* const long int output_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_to_l-~*/
/*+~ots$cvt_tu_l~+*/
unsigned long int ots$cvt_tu_l(
    const struct dsc$descriptor *fixed_length_input_string,
    int  *varying_output_value,
    ...
    /* const long int output_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_tu_l-~*/
/*+~ots$cvt_tz_l~+*/
unsigned long int ots$cvt_tz_l(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    int  *varying_input_value,
    ...
    /* const long int input_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_tz_l-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  4-AUG-1988 20:37:47 EMULEX$DISK:[JOE.VMS5]PPL$ROUTINES.SDI;1 */
#ifndef PPL$ROUTINES_H
#define PPL$ROUTINES_H
 
/*** MODULE PPL$ROUTINES ***/
/*+~ppl$adjust_quorum~+*/
unsigned long int ppl$adjust_quorum(
    const unsigned long int  *barrier_id,
    const short int  *amount
    ) ;
/*~-ppl$adjust_quorum-~*/
/*+~ppl$await_event~+*/
unsigned long int ppl$await_event(
    const unsigned long int  *event_id
    ) ;
/*~-ppl$await_event-~*/
/*+~ppl$create_barrier~+*/
unsigned long int ppl$create_barrier(
    unsigned long int  *barrier_id,
    ...
    /* const struct dsc$descriptor *barrier_name, */
    /* const short int  *quorum */
    ) ;
/*~-ppl$create_barrier-~*/
/*+~ppl$create_event~+*/
unsigned long int ppl$create_event(
    unsigned long int  *event_id,
    ...
    /* const struct dsc$descriptor *event_name */
    ) ;
/*~-ppl$create_event-~*/
/*+~ppl$create_spin_lock~+*/
unsigned long int ppl$create_spin_lock(
    unsigned long int  *lock_id,
    ...
    /* const struct dsc$descriptor *lock_name */
    ) ;
/*~-ppl$create_spin_lock-~*/
/*+~ppl$create_shared_memory~+*/
unsigned long int ppl$create_shared_memory(
    const struct dsc$descriptor *section_name,
    unsigned long int  *memory_area [1],
    ...
    /* const unsigned long int flags, */
    /* const struct dsc$descriptor *file_name */
    ) ;
/*~-ppl$create_shared_memory-~*/
/*+~ppl$create_semaphore~+*/
unsigned long int ppl$create_semaphore(
    unsigned long int  *semaphore_id,
    ...
    /* const struct dsc$descriptor *semaphore_name, */
    /* const short int  *semaphore_maximum, */
    /* const short int  *semaphore_initial */
    ) ;
/*~-ppl$create_semaphore-~*/
/*+~ppl$create_vm_zone~+*/
unsigned long int ppl$create_vm_zone(
    unsigned long int  *zone_id,
    ...
    /* const long int  *algorithm, */
    /* const long int  *algorithm_argument, */
    /* const unsigned long int  *flags, */
    /* const long int  *extend_size, */
    /* const long int  *initial_size, */
    /* const long int  *block_size, */
    /* const long int  *alignment, */
    /* const long int  *page_limit, */
    /* const long int  *smallest_block_size, */
    /* const struct dsc$descriptor *zone_name */
    ) ;
/*~-ppl$create_vm_zone-~*/
/*+~ppl$decrement_semaphore~+*/
unsigned long int ppl$decrement_semaphore(
    const unsigned long int  *semaphore_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*~-ppl$decrement_semaphore-~*/
/*+~ppl$delete_shared_memory~+*/
unsigned long int ppl$delete_shared_memory(
    const struct dsc$descriptor *section_name,
    ...
    /* const unsigned long int  *memory_area [1], */
    /* const unsigned long int flags */
    ) ;
/*~-ppl$delete_shared_memory-~*/
/*+~ppl$enable_event_ast~+*/
unsigned long int ppl$enable_event_ast(
    const unsigned long int  *event_id,
    const int * *astadr,
    ...
    /* const int astprm */
    ) ;
/*~-ppl$enable_event_ast-~*/
/*+~ppl$enable_event_signal~+*/
unsigned long int ppl$enable_event_signal(
    const unsigned long int  *event_id,
    ...
    /* const unsigned long int signal_value */
    ) ;
/*~-ppl$enable_event_signal-~*/
/*+~ppl$flush_shared_memory~+*/
unsigned long int ppl$flush_shared_memory(
    const struct dsc$descriptor *section_name,
    ...
    /* const unsigned long int  *memory_area [1], */
    /* const unsigned long int flags */
    ) ;
/*~-ppl$flush_shared_memory-~*/
/*+~ppl$find_synch_element_id~+*/
unsigned long int ppl$find_synch_element_id(
    unsigned long int  *element_id,
    const struct dsc$descriptor *element_name
    ) ;
/*~-ppl$find_synch_element_id-~*/
/*+~ppl$get_index~+*/
unsigned long int ppl$get_index(
    unsigned long int  *participant_index
    ) ;
/*~-ppl$get_index-~*/
/*+~ppl$increment_semaphore~+*/
unsigned long int ppl$increment_semaphore(
    const unsigned long int  *semaphore_id
    ) ;
/*~-ppl$increment_semaphore-~*/
/*+~ppl$index_to_pid~+*/
unsigned long int ppl$index_to_pid(
    const unsigned long int  *participant_index,
    unsigned long int  *pid
    ) ;
/*~-ppl$index_to_pid-~*/
/*+~ppl$initialize~+*/
unsigned long int ppl$initialize(
    /* const unsigned long int  *size */
    ) ;
/*~-ppl$initialize-~*/
/*+~ppl$pid_to_index~+*/
unsigned long int ppl$pid_to_index(
    const unsigned long int  *pid,
    unsigned long int  *participant_index
    ) ;
/*~-ppl$pid_to_index-~*/
/*+~ppl$read_barrier~+*/
unsigned long int ppl$read_barrier(
    const unsigned long int  *barrier_id,
    short int  *quorum,
    short int  *waiters
    ) ;
/*~-ppl$read_barrier-~*/
/*+~ppl$read_event~+*/
unsigned long int ppl$read_event(
    const unsigned long int  *event_id,
    unsigned long int  *occurred
    ) ;
/*~-ppl$read_event-~*/
/*+~ppl$read_semaphore~+*/
unsigned long int ppl$read_semaphore(
    const unsigned long int  *semaphore_id,
    ...
    /* short int  *semaphore_value, */
    /* short int  *semaphore_maximum */
    ) ;
/*~-ppl$read_semaphore-~*/
/*+~ppl$release_spin_lock~+*/
unsigned long int ppl$release_spin_lock(
    const unsigned long int  *lock_id
    ) ;
/*~-ppl$release_spin_lock-~*/
/*+~ppl$spawn~+*/
unsigned long int ppl$spawn(
    unsigned long int  *copies,
    ...
    /* const struct dsc$descriptor *program_name, */
    /* unsigned long int  *children_ids, */
    /* const unsigned long int  *flags, */
    /* const struct dsc$descriptor *std_input_file, */
    /* const struct dsc$descriptor *std_output_file */
    ) ;
/*~-ppl$spawn-~*/
/*+~ppl$set_quorum~+*/
unsigned long int ppl$set_quorum(
    const unsigned long int  *barrier_id,
    const short int  *quorum
    ) ;
/*~-ppl$set_quorum-~*/
/*+~ppl$stop~+*/
unsigned long int ppl$stop(
    const unsigned long int  *participant_index
    ) ;
/*~-ppl$stop-~*/
/*+~ppl$seize_spin_lock~+*/
unsigned long int ppl$seize_spin_lock(
    const unsigned long int  *lock_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*~-ppl$seize_spin_lock-~*/
/*+~ppl$terminate~+*/
unsigned long int ppl$terminate(
    /* const unsigned long int  *flags */
    ) ;
/*~-ppl$terminate-~*/
/*+~ppl$trigger_event~+*/
unsigned long int ppl$trigger_event(
    const unsigned long int  *event_id,
    ...
    /* const unsigned long int event_param, */
    /* const unsigned long int flags */
    ) ;
/*~-ppl$trigger_event-~*/
/*+~ppl$unique_name~+*/
unsigned long int ppl$unique_name(
    const struct dsc$descriptor *name_string,
    struct dsc$descriptor *resultant_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-ppl$unique_name-~*/
/*+~ppl$wait_at_barrier~+*/
unsigned long int ppl$wait_at_barrier(
    const unsigned long int  *barrier_id
    ) ;
/*~-ppl$wait_at_barrier-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source: 14-JUL-1988 23:21:27 EMULEX$DISK:[JOE.VMS5]SMG$ROUTINES.SDI;1 */
#ifndef SMG$ROUTINES_H
#define SMG$ROUTINES_H
 
/*** MODULE SMG$ROUTINES ***/
/**************************************************************************** */
/*          *                                                                 */
/*  COPYRIGHT (c) 1988 BY                   *                                 */
/*  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.          *         */
/*  ALL RIGHTS RESERVED.    *                                                 */
/*          *                                                                 */
/*  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED   * */
/*  ONLY IN  ACCORDANCE WITH  THE  TERMS  OF  SUCH  LICENSE  AND WITH THE   * */
/*  INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR  ANY  OTHER   * */
/*  COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY   * */
/*  OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE IS  HEREBY   * */
/*  TRANSFERRED.            *                                                 */
/*          *                                                                 */
/*  THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE   * */
/*  AND  SHOULD  NOT  BE  CONSTRUED AS  A COMMITMENT BY DIGITAL EQUIPMENT   * */
/*  CORPORATION.    *                                                         */
/*          *                                                                 */
/*  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE  OR  RELIABILITY OF ITS   * */
/*  SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.         *         */
/*          *                                                                 */
/*          *                                                                 */
/**************************************************************************** */
/*    SMG$ADD_KEY_DEF                                                         */
/*                                                                            */
/*    Add Key Definition                                                      */
/*                                                                            */
/*    The Add Key Definition routine adds a keypad key definition to a table  */
/*    of key definitions.                                                     */
/*                                                                            */
unsigned long int smg$add_key_def(
    const unsigned long int  *key_table_id,
    const struct dsc$descriptor *key_name,
    ...
    /* const struct dsc$descriptor *if_state, */
    /* const unsigned long int  *attributes, */
    /* const struct dsc$descriptor *equivalence_string, */
    /* const struct dsc$descriptor *state_string */
    ) ;
/*    SMG$ALLOW_ESCAPE                                                        */
/*                                                                            */
/*    Allow Escape Sequences                                                  */
/*                                                                            */
/*    SMG$ALLOW_ESCAPE enables or disables SMG parsing of escape sequences which are  */
/*    output to a virtual display.                                            */
/*                                                                            */
unsigned long int smg$allow_escape(
    const unsigned long int  *display_id,
    const unsigned long int  *flags
    ) ;
/*    SMG$BEGIN_DISPLAY_UPDATE                                                */
/*                                                                            */
/*    Begin Batching of Display Updates                                       */
/*                                                                            */
/*    The Begin Batching of Display Updates routine saves, or batches, all    */
/*    output to a virtual display until a matching call to                    */
/*    SMG$END_DISPLAY_UPDATE is encountered.                                  */
/*                                                                            */
unsigned long int smg$begin_display_update(
    const unsigned long int  *display_id
    ) ;
/*    SMG$BEGIN_PASTEBOARD_UPDATE                                             */
/*                                                                            */
/*    Begin Batching of Pasteboard Updates                                    */
/*                                                                            */
/*    The Begin Batching of Pasteboard Updates routine saves, or batches,     */
/*    all output to a pasteboard until a matching call to                     */
/*    SMG$END_PASTEBOARD_UPDATE is encountered.                               */
/*                                                                            */
unsigned long int smg$begin_pasteboard_update(
    const unsigned long int  *pasteboard_id
    ) ;
/*    SMG$CANCEL_INPUT                                                        */
/*                                                                            */
/*    Cancel Input Request                                                    */
/*                                                                            */
/*    The Cancel Input Request routine immediately cancels any                */
/*    read-in-progress that was issued by SMG$READ_COMPOSED_LINE,             */
/*    SMG$READ_KEYSTROKE, SMG$READ_STRING or SMG$READ_VERIFY.                 */
/*                                                                            */
unsigned long int smg$cancel_input(
    const unsigned long int  *keyboard_id
    ) ;
/*    SMG$CURSOR_COLUMN                                                       */
/*                                                                            */
/*    Return Cursor Column Position                                           */
/*                                                                            */
/*    The Return Cursor Column Position routine returns the virtual cursor's  */
/*    current column position in a specified virtual display.                 */
/*                                                                            */
unsigned long int smg$cursor_column(
    const unsigned long int  *display_id
    ) ;
/*    SMG$CHECK_FOR_OCCLUSION                                                 */
/*                                                                            */
/*    Check For Occlusion                                                     */
/*                                                                            */
/*    The Check for Occlusion routine checks to see whether a virtual         */
/*    display is covered (occluded) by another virtual display.               */
/*                                                                            */
unsigned long int smg$check_for_occlusion(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id,
    long int  *occlusion_state
    ) ;
/*    SMG$CHANGE_VIEWPORT                                                     */
/*                                                                            */
/*    Change the Viewport                                                     */
/*                                                                            */
/*    The Change the Viewport Associated with a Virtual Display routine       */
/*    changes the size of an existing viewport in a virtual display. The      */
/*    text that is currently in the viewport is remapped to fit the new       */
/*    dimensions.                                                             */
/*                                                                            */
unsigned long int smg$change_viewport(
    const unsigned long int  *display_id,
    ...
    /* const long int  *viewport_row_start, */
    /* const long int  *viewport_column_start, */
    /* const long int  *viewport_number_rows, */
    /* const long int  *viewport_number_columns */
    ) ;
/*    SMG$CREATE_KEY_TABLE                                                    */
/*                                                                            */
/*    Create Key Table                                                        */
/*                                                                            */
/*    The Create Key Table routine creates a table for key definitions.       */
/*                                                                            */
unsigned long int smg$create_key_table(
    unsigned long int  *key_table_id
    ) ;
/*    SMG$CREATE_MENU                                                         */
/*                                                                            */
/*    Fill the Virtual Display With a Menu                                    */
/*                                                                            */
/*    The Fill the Virtual Display with a Menu routine displays menu choices  */
/*    in the virtual display indicated, starting at the specified row.        */
/*                                                                            */
unsigned long int smg$create_menu(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *choices,
    ...
    /* const unsigned long int  *menu_type, */
    /* const unsigned long int  *flags, */
    /* const long int  *row, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*    SMG$CONTROL_MODE                                                        */
/*                                                                            */
/*    Control Mode                                                            */
/*                                                                            */
/*    The Control Mode routine controls the mode of the pasteboard. This      */
/*    includes buffering, minimal updating, whether the screen is cleared     */
/*    when the pasteboard is deleted, and whether tab characters are used     */
/*    for screen formatting.                                                  */
/*                                                                            */
unsigned long int smg$control_mode(
    const unsigned long int  *pasteboard_id,
    ...
    /* const unsigned long int  *new_mode, */
    /* unsigned long int  *old_mode, */
    /* const unsigned short int  *buffer_size */
    ) ;
/*    SMG$COPY_VIRTUAL_DISPLAY                                                */
/*                                                                            */
/*    Copy a Virtual Display                                                  */
/*                                                                            */
/*    The Copy a Virtual Display routine creates a copy of an existing        */
/*    virtual display and assigns to it a new virtual display identifier.     */
/*                                                                            */
unsigned long int smg$copy_virtual_display(
    const unsigned long int  *current_display_id,
    unsigned long int  *new_display_id
    ) ;
/*    SMG$CREATE_PASTEBOARD                                                   */
/*                                                                            */
/*    Create a Pasteboard                                                     */
/*                                                                            */
/*    The Create Pasteboard routine creates a pasteboard and returns its assigned     */
/*    pasteboard identifier.                                                  */
/*                                                                            */
unsigned long int smg$create_pasteboard(
    unsigned long int  *pasteboard_id,
    ...
    /* const struct dsc$descriptor *output_device, */
    /* long int  *number_of_pasteboard_rows, */
    /* long int  *number_of_pasteboard_columns, */
    /* const unsigned long int  *flags, */
    /* unsigned long int  *type_of_terminal */
    ) ;
/*    SMG$CHANGE_PBD_CHARACTERISTICS                                          */
/*                                                                            */
/*    Change Pasteboard Characteristics                                       */
/*                                                                            */
/*    The Change Pasteboad Characteristics routine lets you change the characteristics*/
/*    associated with a pasteboard.                                           */
/*                                                                            */
unsigned long int smg$change_pbd_characteristics(
    const unsigned long int  *pasteboard_id,
    ...
    /* const long int  *desired_width, */
    /* long int  *width, */
    /* const long int  *desired_height, */
    /* long int  *height, */
    /* const unsigned long int  *desired_background_color, */
    /* unsigned long int  *background_color */
    ) ;
/*    SMG$CHANGE_RENDITION                                                    */
/*                                                                            */
/*    Change Default Rendition                                                */
/*                                                                            */
/*    The Change Default Rendition routine changes the video attributes for all or part of a  */
/*    virtual display.                                                        */
/*                                                                            */
unsigned long int smg$change_rendition(
    const unsigned long int  *display_id,
    const long int  *start_row,
    const long int  *start_column,
    const long int  *number_of_rows,
    const long int  *number_of_columns,
    ...
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*    SMG$CURSOR_ROW                                                          */
/*                                                                            */
/*    Return Cursor Row Position                                              */
/*                                                                            */
/*    The Return Cursor Row Position routine returns the virtual cursor's     */
/*    current row position in a specified virtual display.                    */
/*                                                                            */
unsigned long int smg$cursor_row(
    const unsigned long int  *display_id
    ) ;
/*    SMG$CREATE_SUBPROCESS                                                   */
/*                                                                            */
/*    Create and Initialize a Subprocess                                      */
/*                                                                            */
/*    The Create and Initialize a Subprocess routine creates a DCL            */
/*    subprocess and associates it with a virtual display.                    */
/*                                                                            */
unsigned long int smg$create_subprocess(
    const unsigned long int  *display_id,
    ...
    /* const int *ast_routine, */
    /* const unsigned long int ast_argument */
    ) ;
/*    SMG$CREATE_VIRTUAL_DISPLAY                                              */
/*                                                                            */
/*    Create a Virtual Display                                                */
/*                                                                            */
/*    The Create Virtual Display routine creates a virtual display and returns its    */
/*    assigned display identifier                                             */
/*                                                                            */
unsigned long int smg$create_virtual_display(
    const long int  *number_of_rows,
    const long int  *number_of_columns,
    unsigned long int  *display_id,
    ...
    /* const unsigned long int  *display_attributes, */
    /* const unsigned long int  *video_attributes, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$CHANGE_VIRTUAL_DISPLAY                                              */
/*                                                                            */
/*    Change Virtual Display                                                  */
/*                                                                            */
/*    The Change Virtual Display routine lets you change the dimensions, border, and video    */
/*    attributes of a virtual display.                                        */
/*                                                                            */
unsigned long int smg$change_virtual_display(
    const unsigned long int  *display_id,
    ...
    /* const long int  *number_of_rows, */
    /* const long int  *number_of_columns, */
    /* const unsigned long int  *display_attributes, */
    /* const unsigned long int  *video_attributes, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$CREATE_VIRTUAL_KEYBOARD                                             */
/*                                                                            */
/*    Create a Virtual Keyboard                                               */
/*                                                                            */
/*    The Create Virtual Keyboard routine creates a virtual keyboard and returns its assigned */
/*    keyboard identifier.                                                    */
/*                                                                            */
unsigned long int smg$create_virtual_keyboard(
    unsigned long int  *keyboard_id,
    ...
    /* const struct dsc$descriptor *input_device, */
    /* const struct dsc$descriptor *default_filespec, */
    /* struct dsc$descriptor *resultant_filespec, */
    /* const unsigned char  *recall_size */
    ) ;
/*    SMG$CREATE_VIEWPORT                                                     */
/*                                                                            */
/*    Create a Virtual Viewport                                               */
/*                                                                            */
/*    The Create a Virtual Viewport routine creates a viewport and            */
/*    associates it with a virtual display. The location and size of the      */
/*    viewport are specified by the caller.                                   */
/*                                                                            */
unsigned long int smg$create_viewport(
    const unsigned long int  *display_id,
    const long int  *viewport_row_start,
    const long int  *viewport_column_start,
    const long int  *viewport_number_rows,
    const long int  *viewport_number_columns
    ) ;
/*    SMG$DELETE_CHARS                                                        */
/*                                                                            */
/*    Delete Characters                                                       */
/*                                                                            */
/*    The Delete Characters routine deletes characters in a virtual display.  */
/*                                                                            */
unsigned long int smg$delete_chars(
    const unsigned long int  *display_id,
    const long int  *number_of_characters,
    const long int  *start_row,
    const long int  *start_column
    ) ;
/*    SMG$DEFINE_KEY                                                          */
/*                                                                            */
/*    Perform a DEFINE/KEY Command                                            */
/*                                                                            */
/*    The Perform a DEFINE/KEY Command routine performs the DEFINE/KEY        */
/*    command you provide.                                                    */
/*                                                                            */
unsigned long int smg$define_key(
    const unsigned long int  *key_table_id,
    const struct dsc$descriptor *command_string
    ) ;
/*    SMG$DISABLE_BROADCAST_TRAPPING                                          */
/*                                                                            */
/*    Disable Broadcast Trapping                                              */
/*                                                                            */
/*    The Disable Broadcast Trapping routine disables trapping of broadcast   */
/*    messages for the specified terminal.                                    */
/*                                                                            */
unsigned long int smg$disable_broadcast_trapping(
    const unsigned long int  *pasteboard_id
    ) ;
/*    SMG$DISABLE_UNSOLICITED_INPUT                                           */
/*                                                                            */
/*    Disable Unsolicited Input                                               */
/*                                                                            */
/*    The Disable Unsolicited Input routine disables the trapping of          */
/*    unsolicited input.                                                      */
/*                                                                            */
unsigned long int smg$disable_unsolicited_input(
    const unsigned long int  *pasteboard_id
    ) ;
/*    SMG$DELETE_KEY_DEF                                                      */
/*                                                                            */
/*    Delete Key Definition                                                   */
/*                                                                            */
/*    The Delete Key Definition routine deletes a key definition from the     */
/*    specified table of key definitions.                                     */
/*                                                                            */
unsigned long int smg$delete_key_def(
    const unsigned long int  *key_table_id,
    const struct dsc$descriptor *key_name,
    ...
    /* const struct dsc$descriptor *if_state */
    ) ;
/*    SMG$DELETE_LINE                                                         */
/*                                                                            */
/*    Delete Line                                                             */
/*                                                                            */
/*    The Delete Line routine deletes lines from a virtual display.           */
/*                                                                            */
unsigned long int smg$delete_line(
    const unsigned long int  *display_id,
    const long int  *start_row,
    ...
    /* const long int  *number_of_rows */
    ) ;
/*    SMG$DELETE_MENU                                                         */
/*                                                                            */
/*    End Access to a Menu in the Virtual Display                             */
/*                                                                            */
/*    The End Access to a Menu in the Virtual Display routine ends access to  */
/*    the menu choices in the specified virtual display.                      */
/*                                                                            */
unsigned long int smg$delete_menu(
    const unsigned long int  *display_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*    SMG$DELETE_PASTEBOARD                                                   */
/*                                                                            */
/*    Delete Pasteboard                                                       */
/*                                                                            */
/*    The Delete Pasteboard routine deletes a pasteboard.                     */
/*                                                                            */
unsigned long int smg$delete_pasteboard(
    const unsigned long int  *pasteboard_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*    SMG$DRAW_CHAR                                                           */
/*                                                                            */
/*    Draw a Character in a Virtual Display                                   */
/*                                                                            */
/*    The Draw a Character in a Virtual Display routine draws a character at  */
/*    the specified position in a virtual display.                            */
/*                                                                            */
unsigned long int smg$draw_char(
    const unsigned long int  *display_id,
    const unsigned long int  *flags,
    ...
    /* const long int  *row, */
    /* const long int  *column, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*    SMG$DRAW_LINE                                                           */
/*                                                                            */
/*    Draw A Line                                                             */
/*                                                                            */
/*    The Draw a Line routine draws a horizontal or vertical line.            */
/*                                                                            */
unsigned long int smg$draw_line(
    const unsigned long int  *display_id,
    const long int  *start_row,
    const long int  *start_column,
    const long int  *end_row,
    const long int  *end_column,
    ...
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*    SMG$DRAW_RECTANGLE                                                      */
/*                                                                            */
/*    Draw a Rectangle                                                        */
/*                                                                            */
/*    The Draw a Rectangle routine draws a rectangle.                         */
/*                                                                            */
unsigned long int smg$draw_rectangle(
    const unsigned long int  *display_id,
    const long int  *start_row,
    const long int  *start_column,
    const long int  *end_row,
    const long int  *end_column,
    ...
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*    SMG$DELETE_SUBPROCESS                                                   */
/*                                                                            */
/*    Terminate a Subprocess                                                  */
/*                                                                            */
/*    The Terminate a Subprocess routine deletes a subprocess that was        */
/*    created with the SMG$CREATE_SUBPROCESS routine.                         */
/*                                                                            */
unsigned long int smg$delete_subprocess(
    const unsigned long int  *display_id
    ) ;
/*    SMG$DEL_TERM_TABLE                                                      */
/*                                                                            */
/*    Delete Terminal Table                                                   */
/*                                                                            */
/*    The Delete Terminal Table routine terminates access to a private TERMTABLE.EXE  */
/*    and frees the associated virtual address space.                         */
/*                                                                            */
unsigned long int smg$del_term_table() ;
/*    SMG$DELETE_VIRTUAL_DISPLAY                                              */
/*                                                                            */
/*    Delete Virtual Display                                                  */
/*                                                                            */
/*    The Delete Virtual Display routine deletes a virtual display.           */
/*                                                                            */
unsigned long int smg$delete_virtual_display(
    const unsigned long int  *display_id
    ) ;
/*    SMG$DELETE_VIRTUAL_KEYBOARD                                             */
/*                                                                            */
/*    Delete Virtual Keyboard                                                 */
/*                                                                            */
/*    The Delete Virtual Keyboard routine deletes a virtual keyboard.         */
/*                                                                            */
unsigned long int smg$delete_virtual_keyboard(
    const unsigned long int  *keyboard_id
    ) ;
/*    SMG$DELETE_VIEWPORT                                                     */
/*                                                                            */
/*    Delete a Viewport                                                       */
/*                                                                            */
/*    The Delete a Viewport routine deletes the specified viewport from any   */
/*    pasteboards to which it is pasted.                                      */
/*                                                                            */
unsigned long int smg$delete_viewport(
    const unsigned long int  *display_id
    ) ;
/*    SMG$ERASE_CHARS                                                         */
/*                                                                            */
/*    Erase Characters                                                        */
/*                                                                            */
/*    The Erase Characters routine erases characters in a virtual display by  */
/*    replacing them with blanks.                                             */
/*                                                                            */
unsigned long int smg$erase_chars(
    const unsigned long int  *display_id,
    const long int  *number_of_characters,
    const long int  *start_row,
    const long int  *start_column
    ) ;
/*    SMG$END_DISPLAY_UPDATE                                                  */
/*                                                                            */
/*    End Display Update                                                      */
/*                                                                            */
/*    The End Display Update routine ends update batching for a virtual display.      */
/*                                                                            */
unsigned long int smg$end_display_update(
    const unsigned long int  *display_id
    ) ;
/*    SMG$END_PASTEBOARD_UPDATE                                               */
/*                                                                            */
/*    End Pasteboard Update                                                   */
/*                                                                            */
/*    The End Pasteboard Update routine ends update batching for a pasteboard.*/
/*                                                                            */
unsigned long int smg$end_pasteboard_update(
    const unsigned long int  *pasteboard_id
    ) ;
/*    SMG$ENABLE_UNSOLICITED_INPUT                                            */
/*                                                                            */
/*    Enable Unsolicited Input                                                */
/*                                                                            */
/*    The Enable Unsolicited Input routine detects unsolicited input and      */
/*    calls an AST routine in response.                                       */
/*                                                                            */
unsigned long int smg$enable_unsolicited_input(
    const unsigned long int  *pasteboard_id,
    const int *ast_routine,
    ...
    /* const unsigned long int ast_argument */
    ) ;
/*    SMG$ERASE_COLUMN                                                        */
/*                                                                            */
/*    Erase Column from Display                                               */
/*                                                                            */
/*    The Erase Column From Display routine erases the specified portion of   */
/*    the virtual display from the given position to the end of the column.   */
/*                                                                            */
unsigned long int smg$erase_column(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *column_number, */
    /* const long int  *end_row */
    ) ;
/*    SMG$ERASE_DISPLAY                                                       */
/*                                                                            */
/*    Erase Virtual Display                                                   */
/*                                                                            */
/*    The Erase Virtual Display routine erases all or part of a virtual       */
/*    display by replacing text characters with blanks.                       */
/*                                                                            */
unsigned long int smg$erase_display(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const long int  *end_row, */
    /* const long int  *end_column */
    ) ;
/*    SMG$ERASE_LINE                                                          */
/*                                                                            */
/*    Erase Line                                                              */
/*                                                                            */
/*    The Erase Line routine erases all or part of a line in a virtual display.       */
/*                                                                            */
unsigned long int smg$erase_line(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column */
    ) ;
/*    SMG$ERASE_PASTEBOARD                                                    */
/*                                                                            */
/*    Erase  Pasteboard                                                       */
/*                                                                            */
/*    The Erase Pasteboard routine erases the contents of a pasteboard.       */
/*                                                                            */
unsigned long int smg$erase_pasteboard(
    const unsigned long int  *pasteboard_id
    ) ;
/*    SMG$EXECUTE_COMMAND                                                     */
/*                                                                            */
/*    Execute Command in a Subprocess                                         */
/*                                                                            */
/*    The Execute Command in a Subprocess routine executes the specified      */
/*    command in the subprocess created with the SMG$CREATE_SUBPROCESS        */
/*    routine.                                                                */
/*                                                                            */
unsigned long int smg$execute_command(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *command_desc,
    ...
    /* const unsigned long int  *flags, */
    /* unsigned long int  *ret_status */
    ) ;
/*    SMG$FIND_CURSOR_DISPLAY                                                 */
/*                                                                            */
/*    Find Display that Contains the Cursor                                   */
/*                                                                            */
/*    The Find Display that Contains the Cursor routine returns the           */
/*    identifier of the most recently pasted virtual display that contains    */
/*    the physical cursor.                                                    */
/*                                                                            */
unsigned long int smg$find_cursor_display(
    const unsigned long int  *pasteboard_id,
    unsigned long int  *display_id,
    ...
    /* const long int  *pasteboard_row, */
    /* const long int  *pasteboard_column */
    ) ;
/*    SMG$FLUSH_BUFFER                                                        */
/*                                                                            */
/*    Flush Buffer                                                            */
/*                                                                            */
/*    The Flush Buffer routine flushes all buffered output to the terminal.   */
/*                                                                            */
unsigned long int smg$flush_buffer(
    const unsigned long int  *pasteboard_id
    ) ;
/*    SMG$GET_BROADCAST_MESSAGE                                               */
/*                                                                            */
/*    Get Broadcast Message                                                   */
/*                                                                            */
/*    The Get Broadcast Message routine determines whether a message has      */
/*    been broadcast to the pasteboard and returns the message.               */
/*                                                                            */
unsigned long int smg$get_broadcast_message(
    const unsigned long int  *pasteboard_id,
    ...
    /* struct dsc$descriptor *message, */
    /* unsigned short int  *message_length, */
    /* unsigned short int  *message_type */
    ) ;
/*    SMG$GET_CHAR_AT_PHYSICAL_CURSOR                                         */
/*                                                                            */
/*    Return Character At Cursor                                              */
/*                                                                            */
/*    The Return Character At Cursor routine returns the character at the     */
/*    current physical cursor position.                                       */
/*                                                                            */
unsigned long int smg$get_char_at_physical_cursor(
    const unsigned long int  *pasteboard_id,
    unsigned char  *character_code
    ) ;
/*    SMG$GET_DISPLAY_ATTR                                                    */
/*                                                                            */
/*    Get Display Attributes                                                  */
/*                                                                            */
/*    The Get Display Attributes routine returns the attributes associated    */
/*    with a virtual display.                                                 */
/*                                                                            */
unsigned long int smg$get_display_attr(
    const unsigned long int  *display_id,
    ...
    /* long int  *height, */
    /* long int  *width, */
    /* unsigned long int  *display_attributes, */
    /* unsigned long int  *video_attributes, */
    /* const unsigned long int  *character_set, */
    /* unsigned long int  *flags */
    ) ;
/*    SMG$GET_KEYBOARD_ATTRIBUTES                                             */
/*                                                                            */
/*    Get Keyboard Attributes                                                 */
/*                                                                            */
/*    The Get Keyboard Attributes routine gets information about a virtual    */
/*    keyboard and leaves it in a user-supplied area: the keyboard            */
/*    information table (KIT).                                                */
/*                                                                            */
unsigned long int smg$get_keyboard_attributes(
    const unsigned long int  *keyboard_id,
    int * *p_kit,
    const unsigned long int  *p_kit_size
    ) ;
/*    SMG$GET_KEY_DEF                                                         */
/*                                                                            */
/*    Get Key Definition                                                      */
/*                                                                            */
/*    The Get Key Definition routine returns the key definition for a specified key.  */
/*                                                                            */
unsigned long int smg$get_key_def(
    const unsigned long int  *key_table_id,
    const struct dsc$descriptor *key_name,
    ...
    /* const struct dsc$descriptor *if_state, */
    /* unsigned long int  *attributes, */
    /* struct dsc$descriptor *equivalence_string, */
    /* struct dsc$descriptor *state_string */
    ) ;
/*    SMG$GET_NUMERIC_DATA                                                    */
/*                                                                            */
/*    Get Numeric Terminal Data                                               */
/*                                                                            */
/*    The Get Numeric Terminal Data routine accesses TERMTABLE.EXE and        */
/*    returns the numeric sequence that causes a terminal to perform a        */
/*    specified operation.                                                    */
/*                                                                            */
unsigned long int smg$get_numeric_data(
    const int * *termtable_address,
    const unsigned long int  *request_code,
    int * *buffer_address
    ) ;
/*    SMG$GET_PASTING_INFO                                                    */
/*                                                                            */
/*    Return Pasting Information                                              */
/*                                                                            */
/*    Provided that the specified virtual display is currently pasted, the    */
/*    Return Pasting Information routine returns the row and column of the    */
/*    pasting.                                                                */
/*                                                                            */
unsigned long int smg$get_pasting_info(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id,
    ...
    /* unsigned long int  *flags, */
    /* long int  *pasteboard_row, */
    /* long int  *pasteboard_column */
    ) ;
/*    SMG$GET_PASTEBOARD_ATTRIBUTES                                           */
/*                                                                            */
/*    Get Pasteboard Attributes                                               */
/*                                                                            */
/*    The Get Pasteboard Attributes routine gets pasteboard attributes and    */
/*    stores them in the pasteboard information table.                        */
/*                                                                            */
unsigned long int smg$get_pasteboard_attributes(
    const unsigned long int  *pasteboard_id,
    int  *pasteboard_info_table,
    const unsigned long int  *pasteboard_info_table_size
    ) ;
/*    SMG$GET_TERM_DATA                                                       */
/*                                                                            */
/*    Get Terminal Data                                                       */
/*                                                                            */
/*    The Get Terminal Data routine accesses TERMTABLE.EXE and returns the    */
/*    character sequence that causes a terminal to perform a specified        */
/*    operation.                                                              */
/*                                                                            */
unsigned long int smg$get_term_data(
    const int * *termtable_address,
    const unsigned long int  *request_code,
    const long int  *maximum_buffer_length,
    long int  *return_length,
    int * *buffer_address,
    ...
    /* const unsigned long int  *input_argument_vector [1] */
    ) ;
/*    SMG$GET_VIEWPORT_CHAR                                                   */
/*                                                                            */
/*    Get Characteristics of Display Viewport                                 */
/*                                                                            */
/*    The Get Characteristics of Display Viewport routine returns the         */
/*    characteristics of the specified viewport.                              */
/*                                                                            */
unsigned long int smg$get_viewport_char(
    const unsigned long int  *display_id,
    ...
    /* long int  *viewport_row_start, */
    /* long int  *viewport_column_start, */
    /* long int  *viewport_number_rows, */
    /* long int  *viewport_number_columns */
    ) ;
/*    SMG$HOME_CURSOR                                                         */
/*                                                                            */
/*    Home Cursor                                                             */
/*                                                                            */
/*    The Home Cursor routine moves the virtual cursor to the specified       */
/*    corner of a virtual display.                                            */
/*                                                                            */
unsigned long int smg$home_cursor(
    const unsigned long int  *display_id,
    ...
    /* const unsigned long int  *position_code */
    ) ;
/*    SMG$INIT_TERM_TABLE                                                     */
/*                                                                            */
/*    Initialize Terminal Table                                               */
/*                                                                            */
/*    The Initialize Terminal Table routine initializes the TERMTABLE         */
/*    database for the terminal named, so that subsequent calls to            */
/*    SMG$GET_TERM_DATA can extract information and command strings for that  */
/*    terminal.                                                               */
/*                                                                            */
unsigned long int smg$init_term_table(
    const struct dsc$descriptor *terminal_name,
    int * *termtable_address
    ) ;
/*    SMG$INSERT_CHARS                                                        */
/*                                                                            */
/*    Insert Characters                                                       */
/*                                                                            */
/*    The Insert Characters routine inserts characters into a virtual display.*/
/*                                                                            */
unsigned long int smg$insert_chars(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *character_string,
    const long int  *start_row,
    const long int  *start_column,
    ...
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$INSERT_LINE                                                         */
/*                                                                            */
/*    Insert Line                                                             */
/*                                                                            */
/*    The Insert Line routine inserts a line into a virtual display and       */
/*    scrolls the display.                                                    */
/*                                                                            */
unsigned long int smg$insert_line(
    const unsigned long int  *display_id,
    const long int  *start_row,
    ...
    /* const struct dsc$descriptor *character_string, */
    /* const unsigned long int  *direction, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$INIT_TERM_TABLE_BY_TYPE                                             */
/*                                                                            */
/*    Initialize TERMTABLE By VMS Terminal Type                               */
/*                                                                            */
/*    The Initialize TERMTABLE by VMS Terminal Type routine initializes the   */
/*    TERMTABLE database for the terminal named, so that subsequent calls to  */
/*    SMG$GET_TERM_DATA can extract information and command strings for that  */
/*    terminal.                                                               */
/*                                                                            */
unsigned long int smg$init_term_table_by_type(
    const char  *terminal_type,
    int * *termtable_address,
    ...
    /* struct dsc$descriptor *terminal_name */
    ) ;
/*    SMG$INVALIDATE_DISPLAY                                                  */
/*                                                                            */
/*    Mark a Display As Invalid                                               */
/*                                                                            */
/*    The Mark a Display as Invalid routine marks a display as invalid and    */
/*    causes the entire display to be redrawn.                                */
/*                                                                            */
unsigned long int smg$invalidate_display(
    const unsigned long int  *display_id
    ) ;
/*    SMG$KEYCODE_TO_NAME                                                     */
/*                                                                            */
/*    Translate a Key Code into a Key Name                                    */
/*                                                                            */
/*    The Translate a Key Code into a Key Name routine translates the key code        */
/*    of a key on the keyboard into its associated key name.                  */
/*                                                                            */
unsigned long int smg$keycode_to_name(
    const unsigned short int  *key_code,
    struct dsc$descriptor *key_name
    ) ;
/*    SMG$LABEL_BORDER                                                        */
/*                                                                            */
/*    Label A Virtual Display Border                                          */
/*                                                                            */
/*    The Label a Virtual Display Border routine supplies a label for a       */
/*    virtual display's border.                                               */
/*                                                                            */
unsigned long int smg$label_border(
    const unsigned long int  *display_id,
    ...
    /* const struct dsc$descriptor *text, */
    /* const unsigned long int  *position_code, */
    /* const long int  *units, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$LOAD_KEY_DEFS                                                       */
/*                                                                            */
/*    Load Key Definitions                                                    */
/*                                                                            */
/*    The Load Key Definitions routine loads a file of key definitions        */
/*    (DEFINE/KEY commands) into a specified key table.                       */
/*                                                                            */
unsigned long int smg$load_key_defs(
    const unsigned long int  *key_table_id,
    const struct dsc$descriptor *filespec,
    ...
    /* const struct dsc$descriptor *default_filespec, */
    /* const unsigned long int  *flags */
    ) ;
/*    SMG$LIST_KEY_DEFS                                                       */
/*                                                                            */
/*    List Key Definitions                                                    */
/*                                                                            */
/*    The List Key Definitions routine returns, one at a time, the            */
/*    definition (equivalence string) associated with a specified             */
/*    keys in a specified key table.                                          */
/*                                                                            */
unsigned long int smg$list_key_defs(
    const unsigned long int  *key_table_id,
    unsigned long int  *context,
    ...
    /* struct dsc$descriptor *key_name, */
    /* struct dsc$descriptor *if_state, */
    /* unsigned long int  *attributes, */
    /* struct dsc$descriptor *equivalence_string, */
    /* struct dsc$descriptor *state_string */
    ) ;
/*    SMG$LIST_PASTING_ORDER                                                  */
/*                                                                            */
/*    Return Pasting Information                                              */
/*                                                                            */
/*    The Return Pasting Information routine returns the identifiers of the   */
/*    virtual displays pasted to a specified pasteboard. Optionally, the      */
/*    pasteboard row 1 and column 1 (origins) of the virtual                  */
/*    display are also returned.                                              */
/*                                                                            */
unsigned long int smg$list_pasting_order(
    const unsigned long int  *pasteboard_id,
    unsigned long int  *context,
    unsigned long int  *display_id,
    ...
    /* long int  *pasteboard_row, */
    /* long int  *pasteboard_column */
    ) ;
/*    SMG$LOAD_VIRTUAL_DISPLAY                                                */
/*                                                                            */
/*    Load a Virtual Display from a File                                      */
/*                                                                            */
/*    The Load a Virtual Display from a File routine creates a new virtual    */
/*    display and loads it with a virtual display saved with                  */
/*    SMG$SAVE_VIRTUAL_DISPLAY.                                               */
/*                                                                            */
unsigned long int smg$load_virtual_display(
    unsigned long int  *display_id,
    ...
    /* const struct dsc$descriptor *filespec */
    ) ;
/*    SMG$MOVE_VIRTUAL_DISPLAY                                                */
/*                                                                            */
/*    Move Virtual Display                                                    */
/*                                                                            */
/*    The Move Virtual Display routine relocates a virtual display on a pasteboard and*/
/*    preserves the pasting order.                                            */
/*                                                                            */
unsigned long int smg$move_virtual_display(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id,
    const long int  *pasteboard_row,
    const long int  *pasteboard_column,
    ...
    /* const unsigned long int  *top_display_id */
    ) ;
/*    SMG$MOVE_TEXT                                                           */
/*                                                                            */
/*    Move Text from One Virtual Display to Another                           */
/*                                                                            */
/*    The Move Text from One Virtual Display to                               */
/*    Another routine moves a rectangle of text from one virtual display to   */
/*    another virtual display. Given two points in opposite corners of the    */
/*    rectangle, SMG$MOVE_TEXT determines the desired width and height of     */
/*    the new virtual display.                                                */
/*                                                                            */
unsigned long int smg$move_text(
    const unsigned long int  *display_id,
    const unsigned long int  *top_left_row,
    const unsigned long int  *top_left_column,
    const unsigned long int  *bottom_right_row,
    const unsigned long int  *bottom_right_column,
    const unsigned long int  *display_id2,
    ...
    /* const unsigned long int  *top_left_row2, */
    /* const unsigned long int  *top_left_column2, */
    /* const unsigned long int  *flags */
    ) ;
/*    SMG$NAME_TO_KEYCODE                                                     */
/*                                                                            */
/*    Translate a Key Name into a Key Code                                    */
/*                                                                            */
/*    The Translate a Key Name into a Key Code routine translates the key     */
/*    name of a key on the keyboard into its associated key code.             */
/*                                                                            */
unsigned long int smg$name_to_keycode(
    const struct dsc$descriptor *key_name,
    unsigned short int  *key_code
    ) ;
/*    SMG$PASTE_VIRTUAL_DISPLAY                                               */
/*                                                                            */
/*    Paste Virtual Display                                                   */
/*                                                                            */
/*    The Paste Virtual Display routine pastes a virtual display to a pasteboard.     */
/*                                                                            */
unsigned long int smg$paste_virtual_display(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id,
    const long int  *pasteboard_row,
    const long int  *pasteboard_column,
    ...
    /* const unsigned long int  *top_display_id */
    ) ;
/*    SMG$PUT_CHARS                                                           */
/*                                                                            */
/*    Write Characters to a Virtual Display                                   */
/*                                                                            */
/*    The Write Characters to a Virtual Display routine writes                */
/*    characters in a virtual display with the text you specify.              */
/*                                                                            */
unsigned long int smg$put_chars(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$PUT_CHARS_HIGHWIDE                                                  */
/*                                                                            */
/*    Write Double-Height Double-Width Characters                             */
/*                                                                            */
/*    The Write Double-Height Double-Width Characters routine writes          */
/*    double-height, double-width characters to a virtual display.            */
/*                                                                            */
unsigned long int smg$put_chars_highwide(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$PUT_CHARS_MULTI                                                     */
/*                                                                            */
/*    Put Text with Multiple Renditions to Display                            */
/*                                                                            */
/*    The Put Text with Multiple Renditions to Display routine writes text with       */
/*    multiple renditions to the virtual display.                             */
/*                                                                            */
unsigned long int smg$put_chars_multi(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *line_number, */
    /* const long int  *column_number, */
    /* const unsigned long int  *flags, */
    /* const struct dsc$descriptor *rendition_set, */
    /* const struct dsc$descriptor *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$PUT_CHARS_WIDE                                                      */
/*                                                                            */
/*    Write Double-Width Characters                                           */
/*                                                                            */
/*    The Write Double-Width Characters routine writes double-width characters to a   */
/*    virtual display.                                                        */
/*                                                                            */
unsigned long int smg$put_chars_wide(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$PUT_HELP_TEXT                                                       */
/*                                                                            */
/*    Output HELP Text to the Display                                         */
/*                                                                            */
/*    The Output HELP Text to the Display routine retrieves and outputs the   */
/*    HELP text for the specified topic in the virtual display provided.      */
/*                                                                            */
unsigned long int smg$put_help_text(
    const unsigned long int  *display_id,
    ...
    /* const unsigned long int  *keyboard_id, */
    /* const struct dsc$descriptor *help_topic, */
    /* const struct dsc$descriptor *help_library, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*    SMG$PUT_LINE                                                            */
/*                                                                            */
/*    Write Line to Virtual Display                                           */
/*                                                                            */
/*    The Write Line to Virtual Display routine writes a line of text to a    */
/*    virtual display.                                                        */
/*                                                                            */
unsigned long int smg$put_line(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *line_advance, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *character_set, */
    /* const unsigned long int  *direction */
    ) ;
/*    SMG$PUT_LINE_HIGHWIDE                                                   */
/*                                                                            */
/*    Write Double-Height and Double-Width Line                               */
/*                                                                            */
/*    The Write Double-Height and Double-Width Line routine writes line of    */
/*    text with double-height and double-width characters.                    */
/*                                                                            */
unsigned long int smg$put_line_highwide(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *line_advance, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$PUT_LINE_MULTI                                                      */
/*                                                                            */
/*    Write line with Multiple Renditions to Display                          */
/*                                                                            */
/*    The Write Line with Multiple Renditions to Display routine              */
/*    writes lines with multiple renditions to the virtual display,           */
/*    optionally followed by cursor movement sequences.                       */
/*                                                                            */
unsigned long int smg$put_line_multi(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    const struct dsc$descriptor *rendition_set,
    ...
    /* const struct dsc$descriptor *rendition_complement, */
    /* const long int  *line_advance, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *direction, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$PUT_LINE_WIDE                                                       */
/*                                                                            */
/*    Write Double-Width Line                                                 */
/*                                                                            */
/*    The Write Double-Width Line routine writes a line of double-width text  */
/*    to a virtual display.                                                   */
/*                                                                            */
unsigned long int smg$put_line_wide(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *line_advance, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$POP_VIRTUAL_DISPLAY                                                 */
/*                                                                            */
/*    Delete a Series of Virtual Displays                                     */
/*                                                                            */
/*    The Delete a Series of Virtual Displays routine deletes a specified     */
/*    virtual display and all displays that were pasted on the specified      */
/*    pasteboard on top of the specified virtual display.                     */
/*                                                                            */
unsigned long int smg$pop_virtual_display(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id
    ) ;
/*    SMG$PUT_PASTEBOARD                                                      */
/*                                                                            */
/*    Output Pasteboard Using Routine                                         */
/*                                                                            */
/*    The Output Pasteboard Using Routine routine accesses the contents of a  */
/*    pasteboard.                                                             */
/*                                                                            */
unsigned long int smg$put_pasteboard(
    const unsigned long int  *pasteboard_id,
    const int *action_routine,
    const int user_argument,
    const unsigned long int  *flags
    ) ;
/*    SMG$PRINT_PASTEBOARD                                                    */
/*                                                                            */
/*    Print Pasteboard Using a Print Queue                                    */
/*                                                                            */
/*    The Print Pasteboard Using a Print Queue routine prints the contents    */
/*    of the specified pasteboard on a line printer.                          */
/*                                                                            */
unsigned long int smg$print_pasteboard(
    const unsigned long int  *pasteboard_id,
    ...
    /* const struct dsc$descriptor *queue_name, */
    /* const long int  *copies, */
    /* const struct dsc$descriptor *form_name */
    ) ;
/*    SMG$PUT_STATUS_LINE                                                     */
/*                                                                            */
/*    Output Line of Text to Hardware Status Line                             */
/*                                                                            */
/*    The Output Line of Text to Hardware Status Line routine outputs a line  */
/*    of text to the hardware status line.                                    */
/*                                                                            */
unsigned long int smg$put_status_line(
    const unsigned long int  *pasteboard_id,
    const struct dsc$descriptor *text
    ) ;
/*    SMG$PUT_VIRTUAL_DISPLAY_ENCODED                                         */
/*                                                                            */
/*    Write Encoded String To Display                                         */
/*                                                                            */
/*    SMG$PUT_VIRTUAL_DISPLAY_ENCODED lets you write a string that has multiple video */
/*    renditions to a virtual display.                                        */
/*                                                                            */
unsigned long int smg$put_virtual_display_encoded(
    const unsigned long int  *display_id,
    const long int  *encoded_length,
    const int  *encoded_text,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const unsigned long int  *placeholder_argument, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$PUT_WITH_SCROLL                                                     */
/*                                                                            */
/*    Write Text and Scroll                                                   */
/*                                                                            */
/*    SMG$PUT_WITH_SCROLL writes a line of text to a virtual display and scrolls the  */
/*    display if necessary.                                                   */
/*                                                                            */
unsigned long int smg$put_with_scroll(
    const unsigned long int  *display_id,
    ...
    /* const struct dsc$descriptor *text, */
    /* const unsigned long int  *direction, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *character_set */
    ) ;
/*    SMG$RING_BELL                                                           */
/*                                                                            */
/*    Ring the Terminal Bell or Buzzer                                        */
/*                                                                            */
/*    The Ring the Terminal Bell or Buzzer routine sounds the terminal bell or buzzer.*/
/*                                                                            */
unsigned long int smg$ring_bell(
    const unsigned long int  *display_id,
    ...
    /* const long int  *number_of_times */
    ) ;
/*    SMG$READ_COMPOSED_LINE                                                  */
/*                                                                            */
/*    Read Composed Line                                                      */
/*                                                                            */
/*    The Read Composed Line routine reads a line of input composed of        */
/*    normal keystrokes and equivalence strings.                              */
/*                                                                            */
unsigned long int smg$read_composed_line(
    const unsigned long int  *keyboard_id,
    const unsigned long int  *key_table_id,
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* unsigned short int  *resultant_length, */
    /* const unsigned long int  *display_id, */
    /* const unsigned long int  *flags, */
    /* const struct dsc$descriptor *initial_string, */
    /* const long int  *timeout, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* unsigned short int  *word_terminator_code */
    ) ;
/*    SMG$REMOVE_LINE                                                         */
/*                                                                            */
/*    Remove a Line from a Virtual Display                                    */
/*                                                                            */
/*    The Remove a Line from a Virtual Display routine removes a line from a  */
/*    specified virtual display that was drawn with the SMG$DRAW_LINE or      */
/*    SMG$DRAW_RECTANGLE routines.                                            */
/*                                                                            */
unsigned long int smg$remove_line(
    const unsigned long int  *display_id,
    const long int  *start_row,
    const long int  *start_column,
    const long int  *end_row,
    const long int  *end_column
    ) ;
/*    SMG$REPLACE_INPUT_LINE                                                  */
/*                                                                            */
/*    Replace Input Line                                                      */
/*                                                                            */
/*    The Replace Input Line routine replaces the specified lines in the      */
/*    recall buffer with the specified string.                                */
/*                                                                            */
unsigned long int smg$replace_input_line(
    const unsigned long int  *keyboard_id,
    ...
    /* const struct dsc$descriptor *replace_string, */
    /* const unsigned char  *line_count */
    ) ;
/*    SMG$RETURN_INPUT_LINE                                                   */
/*                                                                            */
/*    Return Input Line                                                       */
/*                                                                            */
/*    The Return Input Line routine returns to the caller the requested line from the recall  */
/*    buffer. This line is retrieved either by matching it with a specified string or */
/*    by specifying the appropriate line number.                              */
/*                                                                            */
unsigned long int smg$return_input_line(
    const unsigned long int  *keyboard_id,
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *match_string, */
    /* const unsigned char  *byte_integer_line_number, */
    /* unsigned short int  *resultant_length */
    ) ;
/*    SMG$READ_FROM_DISPLAY                                                   */
/*                                                                            */
/*    Read Text from Display                                                  */
/*                                                                            */
/*    The Read Text from Display routine reads a line of text from a virtual display. */
/*                                                                            */
unsigned long int smg$read_from_display(
    const unsigned long int  *display_id,
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *terminator_string, */
    /* const long int  *start_row */
    ) ;
/*    SMG$READ_KEYSTROKE                                                      */
/*                                                                            */
/*    Read a Single Character                                                 */
/*                                                                            */
/*    The Read a Single Character routine reads a keystroke and returns that  */
/*    keystroke's terminator code.                                            */
/*                                                                            */
unsigned long int smg$read_keystroke(
    const unsigned long int  *keyboard_id,
    unsigned short int  *word_terminator_code,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* const long int  *timeout, */
    /* const unsigned long int  *display_id, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*    SMG$REPAINT_LINE                                                        */
/*                                                                            */
/*    Repaint One or More Lines on the Current Pasteboard                     */
/*                                                                            */
/*    The Repaint One or More Lines on the Current Pasteboard routine repaints a      */
/*    series of lines on the current pasteboard.                              */
/*                                                                            */
unsigned long int smg$repaint_line(
    const unsigned long int  *pasteboard_id,
    const long int  *start_row,
    ...
    /* const long int  *number_of_lines */
    ) ;
/*    SMG$REPAINT_SCREEN                                                      */
/*                                                                            */
/*    Repaint Current Pasteboard                                              */
/*                                                                            */
/*    The Repaint Current Pasteboard routine repaints the specified           */
/*    pasteboard after non-SMG I/O has occurred.                              */
/*                                                                            */
unsigned long int smg$repaint_screen(
    const unsigned long int  *pasteboard_id
    ) ;
/*    SMG$REPASTE_VIRTUAL_DISPLAY                                             */
/*                                                                            */
/*    Repaste Virtual Display                                                 */
/*                                                                            */
/*    The Repaste Virtual Display routine moves a virtual display to a new    */
/*    position on the pasteboard. The pasting order is not preserved.         */
/*                                                                            */
unsigned long int smg$repaste_virtual_display(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id,
    const long int  *pasteboard_row,
    const long int  *pasteboard_column,
    ...
    /* const unsigned long int  *top_display_id */
    ) ;
/*    SMG$RESTORE_PHYSICAL_SCREEN                                             */
/*                                                                            */
/*    Restore Physical Pasteboard                                             */
/*                                                                            */
/*    The Restore Physical Pasteboard routine rewrites the pasteboard image as it     */
/*    was at the time the SMG$SAVE_PHYSICAL_SCREEN routine was called.        */
/*                                                                            */
unsigned long int smg$restore_physical_screen(
    const unsigned long int  *pasteboard_id,
    const unsigned long int  *display_id
    ) ;
/*    SMG$READ_STRING                                                         */
/*                                                                            */
/*    Read String                                                             */
/*                                                                            */
/*    The Read String routine reads a string from a virtual keyboard.         */
/*                                                                            */
unsigned long int smg$read_string(
    const unsigned long int  *keyboard_id,
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* const long int  *maximum_length, */
    /* const unsigned long int  *modifiers, */
    /* const long int  *timeout, */
    /* const int  *terminator_set, */
    /* unsigned short int  *resultant_length, */
    /* unsigned short int  *word_terminator_code, */
    /* const unsigned long int  *display_id, */
    /* const struct dsc$descriptor *initial_string, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const struct dsc$descriptor *terminator_string */
    ) ;
/*    SMG$RETURN_CURSOR_POS                                                   */
/*                                                                            */
/*    Return Cursor Position                                                  */
/*                                                                            */
/*    The Return Cursor Position routine returns the current virtual cursor   */
/*    position in a specified virtual display.                                */
/*                                                                            */
unsigned long int smg$return_cursor_pos(
    const unsigned long int  *display_id,
    long int  *start_row,
    long int  *start_column
    ) ;
/*    SMG$READ_VERIFY                                                         */
/*                                                                            */
/*    Read and Verify a String                                                */
/*                                                                            */
/*    The Read and Verify a String routine reads a sequence of characters     */
/*    and verifies the sequence.                                              */
/*                                                                            */
unsigned long int smg$read_verify(
    const unsigned long int  *keyboard_id,
    struct dsc$descriptor *resultant_string,
    const struct dsc$descriptor *initial_string,
    const struct dsc$descriptor *picture_string,
    const struct dsc$descriptor *fill_character,
    const struct dsc$descriptor *clear_character,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* const unsigned long int  *modifiers, */
    /* const long int  *timeout, */
    /* const int  *terminator_set, */
    /* const long int  *initial_offset, */
    /* unsigned short int  *word_terminator_code, */
    /* const unsigned long int  *display_id, */
    /* const struct dsc$descriptor *alternate_echo_string, */
    /* const long int  *alternate_display_id, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*    SMG$SET_BROADCAST_TRAPPING                                              */
/*                                                                            */
/*    Enable Broadcast Trapping                                               */
/*                                                                            */
/*    The Enable Broadcast Trapping routine enables the trapping of broadcast */
/*    messages.                                                               */
/*                                                                            */
unsigned long int smg$set_broadcast_trapping(
    const unsigned long int  *pasteboard_id,
    ...
    /* const int *ast_routine, */
    /* const unsigned long int ast_argument */
    ) ;
/*    SMG$SCROLL_DISPLAY_AREA                                                 */
/*                                                                            */
/*    Scroll Display Area                                                     */
/*                                                                            */
/*    The Scroll Display Area routine scrolls a rectangular region of a       */
/*    virtual display.                                                        */
/*                                                                            */
unsigned long int smg$scroll_display_area(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const long int  *height, */
    /* const long int  *width, */
    /* const unsigned long int  *direction, */
    /* const long int  *count */
    ) ;
/*    SMG$SET_CURSOR_ABS                                                      */
/*                                                                            */
/*    Set Absolute Cursor Position                                            */
/*                                                                            */
/*    The Set Absolute Cursor Position routine moves the virtual cursor to    */
/*    the specified position in a virtual display.                            */
/*                                                                            */
unsigned long int smg$set_cursor_abs(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column */
    ) ;
/*    SMG$SET_CURSOR_REL                                                      */
/*                                                                            */
/*    Move Cursor\Relative To Current Position                                */
/*                                                                            */
/*    The Move Cursor Relative to Current Position routine moves the virtual  */
/*    cursor the specified number of rows and columns from the current        */
/*    virtual cursor position in a virtual display.                           */
/*                                                                            */
unsigned long int smg$set_cursor_rel(
    const unsigned long int  *display_id,
    ...
    /* const long int  *delta_row, */
    /* const long int  *delta_column */
    ) ;
/*    SMG$SCROLL_VIEWPORT                                                     */
/*                                                                            */
/*    Scroll a Display Under a Viewport                                       */
/*                                                                            */
/*    The Scroll a Display Under a Viewport routine scrolls a virtual display under its associated    */
/*    viewport.                                                               */
/*                                                                            */
unsigned long int smg$scroll_viewport(
    const unsigned long int  *display_id,
    ...
    /* const unsigned long int  *direction, */
    /* const long int  *count */
    ) ;
/*    SMG$SET_DISPLAY_SCROLL_REGION                                           */
/*                                                                            */
/*    Create Display Scrolling Region                                         */
/*                                                                            */
/*    The Create Display Scrolling Region routine creates a scrolling region  */
/*    in a virtual display.                                                   */
/*                                                                            */
unsigned long int smg$set_display_scroll_region(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *end_row */
    ) ;
/*    SMG$SELECT_FROM_MENU                                                    */
/*                                                                            */
/*    Make a Selection From the Menu                                          */
/*                                                                            */
/*    The Make a Selection from the Menu routine lets you move between the    */
/*    menu choices using the arrow keys and lets you make a selection by      */
/*    pressing RETURN.                                                        */
/*                                                                            */
unsigned long int smg$select_from_menu(
    const unsigned long int  *keyboard_id,
    const unsigned long int  *display_id,
    unsigned short int  *selected_choice_number,
    ...
    /* const unsigned short int  *default_choice_number, */
    /* const unsigned long int  *flags, */
    /* const struct dsc$descriptor *help_library, */
    /* const long int  *timeout, */
    /* unsigned short int  *terminator_code, */
    /* struct dsc$descriptor *selected_choice_string, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*    SMG$SET_CURSOR_MODE                                                     */
/*                                                                            */
/*    Set the Cursor Mode                                                     */
/*                                                                            */
/*    The Set the Cursor Mode                                                 */
/*    routine turns the physical cursor on or off and selects                 */
/*    jump or smooth scrolling.                                               */
/*                                                                            */
unsigned long int smg$set_cursor_mode(
    const unsigned long int  *pasteboard_id,
    const unsigned long int  *flags
    ) ;
/*    SMG$SET_KEYPAD_MODE                                                     */
/*                                                                            */
/*    Set Keypad Mode                                                         */
/*                                                                            */
/*    The Set Keypad Mode routine sets the terminal's numeric keypad to either numeric*/
/*    or applications mode.                                                   */
/*                                                                            */
unsigned long int smg$set_keypad_mode(
    const unsigned long int  *keyboard_id,
    const unsigned long int  *flags
    ) ;
/*    SMG$SNAPSHOT                                                            */
/*                                                                            */
/*    Write Snapshot                                                          */
/*                                                                            */
/*    The Write Snapshot routine writes the current pasteboard buffer to the  */
/*    file or hardcopy terminal specified by the pasteboard identifier.       */
/*                                                                            */
unsigned long int smg$snapshot(
    const unsigned long int  *pasteboard_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*    SMG$SET_OUT_OF_BAND_ASTS                                                */
/*                                                                            */
/*    Set Out-of-Band ASTs                                                    */
/*                                                                            */
/*    The Set Out-of-Band ASTs routine either enables or disables the         */
/*    trapping of out-of-band control characters.                             */
/*                                                                            */
unsigned long int smg$set_out_of_band_asts(
    const unsigned long int  *pasteboard_id,
    const unsigned long int  *control_character_mask,
    const int *ast_routine,
    ...
    /* const unsigned long int ast_argument */
    ) ;
/*    SMG$SET_PHYSICAL_CURSOR                                                 */
/*                                                                            */
/*    Set Cursor on Physical Screen                                           */
/*                                                                            */
/*    The Set Cursor on Physical Screen routine moves the physical cursor to  */
/*    the specified position on the pasteboard.                               */
/*                                                                            */
unsigned long int smg$set_physical_cursor(
    const unsigned long int  *pasteboard_id,
    const long int  *pasteboard_row,
    const long int  *pasteboard_column
    ) ;
/*    SMG$SET_DEFAULT_STATE                                                   */
/*                                                                            */
/*    Set Default State                                                       */
/*                                                                            */
/*    The Set Default State routine sets and/or returns the current default   */
/*    state for a key table.                                                  */
/*                                                                            */
unsigned long int smg$set_default_state(
    const unsigned long int  *key_table_id,
    ...
    /* const struct dsc$descriptor *new_state, */
    /* struct dsc$descriptor *old_state */
    ) ;
/*    SMG$SET_TERM_CHARACTERISTICS                                            */
/*                                                                            */
/*    Change Terminal Characterisitics                                        */
/*                                                                            */
/*    The Change Terminal Characteristics routine changes or retrieves the    */
/*    terminal characteristics for a given pasteboard.                        */
/*                                                                            */
unsigned long int smg$set_term_characteristics(
    const unsigned long int  *pasteboard_id,
    ...
    /* const unsigned long int  *on_characteristics1, */
    /* const unsigned long int  *on_characteristics2, */
    /* const unsigned long int  *off_characteristics1, */
    /* const unsigned long int  *off_characteristics2, */
    /* unsigned long int  *old_characteristics1, */
    /* unsigned long int  *old_characteristics2 */
    ) ;
/*    SMG$SAVE_VIRTUAL_DISPLAY                                                */
/*                                                                            */
/*    Save the Virtual Display to a File                                      */
/*                                                                            */
/*    The Save the Virtual Display to a File routine saves the contents of a  */
/*    virtual display and stores it in a file.                                */
/*                                                                            */
unsigned long int smg$save_virtual_display(
    const unsigned long int  *display_id,
    ...
    /* const struct dsc$descriptor *filespec */
    ) ;
/*    SMG$SAVE_PHYSICAL_SCREEN                                                */
/*                                                                            */
/*    Save Physical Screen                                                    */
/*                                                                            */
/*    The Save Physical Screen routine saves the contents of the pasteboard so*/
/*    that a later call to SMG$RESTORE_PHYSICAL_SCREEN can restore it.        */
/*                                                                            */
unsigned long int smg$save_physical_screen(
    const unsigned long int  *pasteboard_id,
    unsigned long int  *display_id,
    ...
    /* const long int  *desired_start_row, */
    /* const long int  *desired_end_row */
    ) ;
/*    SMG$UNPASTE_VIRTUAL_DISPLAY                                             */
/*                                                                            */
/*    Remove Virtual Display                                                  */
/*                                                                            */
/*    The Remove Virtual Display routine removes a virtual display from a pasteboard. */
/*                                                                            */
unsigned long int smg$unpaste_virtual_display(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id
    ) ;
#endif
/* Created by SDL V3.1-7     */
/* Source:  4-AUG-1988 20:38:01 EMULEX$DISK:[JOE.VMS5]SOR$ROUTINES.SDI;1 */
#ifndef SOR$ROUTINES_H
#define SOR$ROUTINES_H
 
/*** MODULE SOR$ROUTINES ***/
/*+~sor$begin_merge~+*/
unsigned long int sor$begin_merge(
    /* const int  *key_buffer, */
    /* const unsigned short int  *lrl, */
    /* const unsigned long int  *options, */
    /* const unsigned char  *merge_order, */
    /* const int *user_compare, */
    /* const int *user_equal, */
    /* const int *user_input, */
    /* unsigned long int  *context */
    ) ;
/*~-sor$begin_merge-~*/
/*+~sor$begin_sort~+*/
unsigned long int sor$begin_sort(
    /* const int  *key_buffer, */
    /* const unsigned short int  *lrl, */
    /* const unsigned long int  *options, */
    /* const unsigned long int  *file_alloc, */
    /* const int *user_compare, */
    /* const int *user_equal, */
    /* const unsigned char  *sort_process, */
    /* const unsigned char  *work_files, */
    /* unsigned long int  *context */
    ) ;
/*~-sor$begin_sort-~*/
/*+~sor$do_merge~+*/
long int sor$do_merge() ;
/*~-sor$do_merge-~*/
/*+~sor$end_sort~+*/
unsigned long int sor$end_sort(
    /* unsigned long int  *context */
    ) ;
/*~-sor$end_sort-~*/
/*+~sor$init_merge~+*/
long int sor$init_merge(
    /* const unsigned char  *merge_order, */
    /* const int  *key_buffer, */
    /* const unsigned short int  *lrl, */
    /* const unsigned long int  *options, */
    /* const int *user_compare, */
    /* const int *user_equal */
    ) ;
/*~-sor$init_merge-~*/
/*+~sor$init_sort~+*/
long int sor$init_sort(
    /* const int  *key_buffer, */
    /* const unsigned short int  *lrl, */
    /* const unsigned long int  *file_alloc, */
    /* const unsigned char  *work_files, */
    /* const unsigned char  *sort_process, */
    /* const unsigned char  *key_size, */
    /* const int *user_compare, */
    /* const unsigned long int  *options */
    ) ;
/*~-sor$init_sort-~*/
/*+~sor$pass_files~+*/
unsigned long int sor$pass_files(
    /* const struct dsc$descriptor *inp_desc, */
    /* const struct dsc$descriptor *out_desc, */
    /* const unsigned char  *org, */
    /* const unsigned char  *rfm, */
    /* const unsigned char  *bks, */
    /* const unsigned short int  *bls, */
    /* const unsigned short int  *mrs, */
    /* const unsigned long int  *alq, */
    /* const unsigned long int  *fop, */
    /* const unsigned char  *fsz, */
    /* unsigned long int  *context */
    ) ;
/*~-sor$pass_files-~*/
/*+~sor$release_rec~+*/
unsigned long int sor$release_rec(
    const struct dsc$descriptor *desc,
    ...
    /* unsigned long int  *context */
    ) ;
/*~-sor$release_rec-~*/
/*+~sor$return_rec~+*/
unsigned long int sor$return_rec(
    struct dsc$descriptor *desc,
    ...
    /* unsigned short int  *length, */
    /* unsigned long int  *context */
    ) ;
/*~-sor$return_rec-~*/
/*+~sor$sort_merge~+*/
unsigned long int sor$sort_merge(
    /* unsigned long int  *context */
    ) ;
/*~-sor$sort_merge-~*/
/*+~sor$spec_file~+*/
unsigned long int sor$spec_file(
    /* const struct dsc$descriptor *spec_file, */
    /* const struct dsc$descriptor *spec_buffer, */
    /* unsigned long int  *context */
    ) ;
/*~-sor$spec_file-~*/
/*+~sor$stat~+*/
unsigned long int sor$stat(
    const unsigned short int  *code,
    unsigned long int  *result,
    ...
    /* unsigned long int  *context */
    ) ;
/*~-sor$stat-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  4-AUG-1988 20:38:12 EMULEX$DISK:[JOE.VMS5]STR$ROUTINES.SDI;1 */
#ifndef STR$ROUTINES_H
#define STR$ROUTINES_H
 
/*** MODULE STR$ROUTINES ***/
/*+~str$add~+*/
unsigned long int str$add(
    const unsigned long int  *asign,
    const long int  *aexp,
    const struct dsc$descriptor *adigits,
    const unsigned long int  *bsign,
    const long int  *bexp,
    const struct dsc$descriptor *bdigits,
    unsigned long int  *csign,
    long int  *cexp,
    struct dsc$descriptor *cdigits
    ) ;
/*~-str$add-~*/
/*+~str$analyze_sdesc~+*/
int str$analyze_sdesc(
    const struct dsc$descriptor *input_descriptor,
    unsigned short int  *word_integer_length,
    int * *data_address
    ) ;
/*~-str$analyze_sdesc-~*/
/*+~str$append~+*/
unsigned long int str$append(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string
    ) ;
/*~-str$append-~*/
/*+~str$case_blind_compare~+*/
long int str$case_blind_compare(
    const struct dsc$descriptor *first_source_string,
    const struct dsc$descriptor *second_source_string
    ) ;
/*~-str$case_blind_compare-~*/
/*+~str$compare~+*/
long int str$compare(
    const struct dsc$descriptor *first_source_string,
    const struct dsc$descriptor *second_source_string
    ) ;
/*~-str$compare-~*/
/*+~str$concat~+*/
unsigned long int str$concat(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string
    ) ;
/*~-str$concat-~*/
/*+~str$copy_dx~+*/
unsigned long int str$copy_dx(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string
    ) ;
/*~-str$copy_dx-~*/
/*+~str$copy_r~+*/
unsigned long int str$copy_r(
    struct dsc$descriptor *destination_string,
    const unsigned short int  *word_integer_source_length,
    const char  *source_string_address
    ) ;
/*~-str$copy_r-~*/
/*+~str$divide~+*/
unsigned long int str$divide(
    const unsigned long int  *asign,
    const long int  *aexp,
    const struct dsc$descriptor *adigits,
    const unsigned long int  *bsign,
    const long int  *bexp,
    const struct dsc$descriptor *bdigits,
    const long int  *total_digits,
    const unsigned long int  *round_truncate_indicator,
    unsigned long int  *csign,
    long int  *cexp,
    struct dsc$descriptor *cdigits
    ) ;
/*~-str$divide-~*/
/*+~str$dupl_char~+*/
unsigned long int str$dupl_char(
    struct dsc$descriptor *destination_string,
    ...
    /* const long int  *repetition_count, */
    /* const char  *ascii_character */
    ) ;
/*~-str$dupl_char-~*/
/*+~str$element~+*/
unsigned long int str$element(
    struct dsc$descriptor *destination_string,
    const long int  *element_number,
    struct dsc$descriptor *delimiter_string,
    struct dsc$descriptor *source_string
    ) ;
/*~-str$element-~*/
/*+~str$compare_eql~+*/
unsigned long int str$compare_eql(
    const struct dsc$descriptor *first_source_string,
    const struct dsc$descriptor *second_source_string
    ) ;
/*~-str$compare_eql-~*/
/*+~str$find_first_in_set~+*/
long int str$find_first_in_set(
    const struct dsc$descriptor *source_string,
    const struct dsc$descriptor *set_of_characters
    ) ;
/*~-str$find_first_in_set-~*/
/*+~str$find_first_not_in_set~+*/
long int str$find_first_not_in_set(
    const struct dsc$descriptor *source_string,
    const struct dsc$descriptor *set_of_characters
    ) ;
/*~-str$find_first_not_in_set-~*/
/*+~str$free1_dx~+*/
unsigned long int str$free1_dx(
    struct dsc$descriptor *string_descriptor
    ) ;
/*~-str$free1_dx-~*/
/*+~str$find_first_substring~+*/
unsigned long int str$find_first_substring(
    const struct dsc$descriptor *source_string,
    long int  *index,
    long int  *substring_index,
    ...
    /* const struct dsc$descriptor *substring */
    ) ;
/*~-str$find_first_substring-~*/
/*+~str$get1_dx~+*/
unsigned long int str$get1_dx(
    const unsigned short int  *word_integer_length,
    struct dsc$descriptor *character_string
    ) ;
/*~-str$get1_dx-~*/
/*+~str$left~+*/
unsigned long int str$left(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string,
    const long int  *end_position
    ) ;
/*~-str$left-~*/
/*+~str$len_extr~+*/
unsigned long int str$len_extr(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string,
    const long int  *start_position,
    const long int  *longword_integer_length
    ) ;
/*~-str$len_extr-~*/
/*+~str$match_wild~+*/
unsigned long int str$match_wild(
    const struct dsc$descriptor *candidate_string,
    const struct dsc$descriptor *pattern_string
    ) ;
/*~-str$match_wild-~*/
/*+~str$mul~+*/
unsigned long int str$mul(
    const unsigned long int  *asign,
    const long int  *aexp,
    const struct dsc$descriptor *adigits,
    const unsigned long int  *bsign,
    const long int  *bexp,
    const struct dsc$descriptor *bdigits,
    unsigned long int  *csign,
    long int  *cexp,
    struct dsc$descriptor *cdigits
    ) ;
/*~-str$mul-~*/
/*+~str$compare_multi~+*/
long int str$compare_multi(
    const struct dsc$descriptor *first_source_string,
    const struct dsc$descriptor *second_source_string,
    ...
    /* const unsigned long int flags_value, */
    /* const unsigned long int foreign_language */
    ) ;
/*~-str$compare_multi-~*/
/*+~str$pos_extr~+*/
unsigned long int str$pos_extr(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string,
    const long int  *start_position,
    const long int  *end_position
    ) ;
/*~-str$pos_extr-~*/
/*+~str$position~+*/
unsigned long int str$position(
    const struct dsc$descriptor *source_string,
    const struct dsc$descriptor *substring,
    ...
    /* const long int  *start_position */
    ) ;
/*~-str$position-~*/
/*+~str$prefix~+*/
unsigned long int str$prefix(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string
    ) ;
/*~-str$prefix-~*/
/*+~str$recip~+*/
unsigned long int str$recip(
    const unsigned long int  *asign,
    const long int  *aexp,
    const struct dsc$descriptor *adigits,
    const unsigned long int  *bsign,
    const long int  *bexp,
    const struct dsc$descriptor *bdigits,
    unsigned long int  *csign,
    long int  *cexp,
    struct dsc$descriptor *cdigits
    ) ;
/*~-str$recip-~*/
/*+~str$replace~+*/
unsigned long int str$replace(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string,
    const long int  *start_position,
    const long int  *end_position,
    const struct dsc$descriptor *replacement_string
    ) ;
/*~-str$replace-~*/
/*+~str$right~+*/
unsigned long int str$right(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string,
    const long int  *start_position
    ) ;
/*~-str$right-~*/
/*+~str$round~+*/
unsigned long int str$round(
    const long int  *places,
    const unsigned long int  *flags,
    const unsigned long int  *asign,
    const long int  *aexp,
    const struct dsc$descriptor *adigits,
    unsigned long int  *csign,
    long int  *cexp,
    struct dsc$descriptor *cdigits
    ) ;
/*~-str$round-~*/
/*+~str$translate~+*/
unsigned long int str$translate(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string,
    const struct dsc$descriptor *translation_string,
    const struct dsc$descriptor *match_string
    ) ;
/*~-str$translate-~*/
/*+~str$trim~+*/
unsigned long int str$trim(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-str$trim-~*/
/*+~str$upcase~+*/
unsigned long int str$upcase(
    struct dsc$descriptor *destination_string,
    const struct dsc$descriptor *source_string
    ) ;
/*~-str$upcase-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  4-AUG-1988 20:45:46 EMULEX$DISK:[JOE.VMS5]SYS$ROUTINES.SDI;1 */
#ifndef SYS$ROUTINES_H
#define SYS$ROUTINES_H
 
/*** MODULE STARLET ***/
/*+~sys$add_holder~+*/
long int sys$add_holder(
    const unsigned long int id,
    const unsigned int  *holder [2],
    const unsigned long int attrib
    ) ;
/*~-sys$add_holder-~*/
/*+~sys$add_ident~+*/
long int sys$add_ident(
    const struct dsc$descriptor *name,
    const unsigned long int id,
    const unsigned long int attrib,
    unsigned long int  *resid
    ) ;
/*~-sys$add_ident-~*/
/*+~sys$adjstk~+*/
long int sys$adjstk(
    const unsigned long int acmode,
    const short int adjust,
    unsigned long int  *newadr
    ) ;
/*~-sys$adjstk-~*/
/*+~sys$adjwsl~+*/
long int sys$adjwsl(
    const long int pagcnt,
    unsigned long int  *wsetlm
    ) ;
/*~-sys$adjwsl-~*/
/*+~sys$alloc~+*/
long int sys$alloc(
    const struct dsc$descriptor *devnam,
    unsigned short int  *phylen,
    struct dsc$descriptor *phybuf,
    const unsigned long int acmode,
    const unsigned long int flags
    ) ;
/*~-sys$alloc-~*/
/*+~sys$ascefc~+*/
long int sys$ascefc(
    const unsigned long int efn,
    const struct dsc$descriptor *name,
    const char prot,
    const char perm
    ) ;
/*~-sys$ascefc-~*/
/*+~sys$asctim~+*/
long int sys$asctim(
    unsigned short int  *timlen,
    struct dsc$descriptor *timbuf,
    const unsigned int  *timadr [2],
    const char cvtflg
    ) ;
/*~-sys$asctim-~*/
/*+~sys$asctoid~+*/
long int sys$asctoid(
    const struct dsc$descriptor *name,
    unsigned long int  *id,
    unsigned long int  *attrib
    ) ;
/*~-sys$asctoid-~*/
/*+~sys$assign~+*/
long int sys$assign(
    const struct dsc$descriptor *devnam,
    unsigned short int  *chan,
    const unsigned long int acmode,
    const struct dsc$descriptor *mbxnam
    ) ;
/*~-sys$assign-~*/
/*+~sys$bintim~+*/
long int sys$bintim(
    const struct dsc$descriptor *timbuf,
    unsigned int  *timadr [2]
    ) ;
/*~-sys$bintim-~*/
/*+~sys$brdcst~+*/
long int sys$brdcst(
    const struct dsc$descriptor *msgbuf,
    const struct dsc$descriptor *devnam,
    const unsigned long int flags,
    const unsigned long int carcon
    ) ;
/*~-sys$brdcst-~*/
/*+~sys$brkthru~+*/
long int sys$brkthru(
    const unsigned long int efn,
    const struct dsc$descriptor *msgbuf,
    const struct dsc$descriptor *sendto,
    const unsigned long int sndtyp,
    unsigned int  *iosb [2],
    const unsigned long int carcon,
    const unsigned long int flags,
    const unsigned long int reqid,
    const unsigned long int timout,
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$brkthru-~*/
/*+~sys$brkthruw~+*/
long int sys$brkthruw(
    const unsigned long int efn,
    const struct dsc$descriptor *msgbuf,
    const struct dsc$descriptor *sendto,
    const unsigned long int sndtyp,
    unsigned int  *iosb [2],
    const unsigned long int carcon,
    const unsigned long int flags,
    const unsigned long int reqid,
    const unsigned long int timout,
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$brkthruw-~*/
/*+~sys$cancel~+*/
long int sys$cancel(
    const unsigned short int chan
    ) ;
/*~-sys$cancel-~*/
/*+~sys$canexh~+*/
long int sys$canexh(
    const int  *desblk
    ) ;
/*~-sys$canexh-~*/
/*+~sys$cantim~+*/
long int sys$cantim(
    const unsigned long int reqidt,
    const unsigned long int acmode
    ) ;
/*~-sys$cantim-~*/
/*+~sys$canwak~+*/
long int sys$canwak(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam
    ) ;
/*~-sys$canwak-~*/
/*+~sys$change_acl~+*/
long int sys$change_acl(
    const unsigned short int chan,
    const unsigned long int  *objtyp,
    const struct dsc$descriptor *objnam,
    const int  *itmlst,
    const unsigned long int  *acmode,
    unsigned int  *iosb [2],
    unsigned long int  *contxt,
    const int * *routin,
    const unsigned long int  *orbadr
    ) ;
/*~-sys$change_acl-~*/
/*+~sys$change_class~+*/
long int sys$change_class(
    const unsigned long int  *objtyp,
    const struct dsc$descriptor *objnam,
    const int  *itmlst,
    const unsigned long int acmode,
    const unsigned long int  *orbadr
    ) ;
/*~-sys$change_class-~*/
/*+~sys$check_access~+*/
long int sys$check_access(
    const unsigned long int  *objtyp,
    const struct dsc$descriptor *objnam,
    const struct dsc$descriptor *usrnam,
    const int  *itmlst,
    const unsigned long int  *orbadr
    ) ;
/*~-sys$check_access-~*/
/*+~sys$chkpro~+*/
long int sys$chkpro(
    const int  *itmlst
    ) ;
/*~-sys$chkpro-~*/
/*+~sys$clref~+*/
long int sys$clref(
    const unsigned long int efn
    ) ;
/*~-sys$clref-~*/
/*+~sys$close~+*/
long int sys$close(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$close-~*/
/*+~sys$cmexec~+*/
long int sys$cmexec(
    const int * *routin,
    const int  *arglst
    ) ;
/*~-sys$cmexec-~*/
/*+~sys$cmkrnl~+*/
long int sys$cmkrnl(
    const int * *routin,
    const int  *arglst
    ) ;
/*~-sys$cmkrnl-~*/
/*+~sys$connect~+*/
long int sys$connect(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$connect-~*/
/*+~sys$cntreg~+*/
long int sys$cntreg(
    const unsigned long int pagcnt,
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const char region
    ) ;
/*~-sys$cntreg-~*/
/*+~sys$create~+*/
long int sys$create(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$create-~*/
/*+~sys$create_rdb~+*/
long int sys$create_rdb(
    const unsigned int  *sysid [2]
    ) ;
/*~-sys$create_rdb-~*/
/*+~sys$crelnm~+*/
long int sys$crelnm(
    const unsigned long int  *attr,
    const struct dsc$descriptor *tabnam,
    const struct dsc$descriptor *lognam,
    const unsigned char  *acmode,
    const int  *itmlst
    ) ;
/*~-sys$crelnm-~*/
/*+~sys$crelnt~+*/
long int sys$crelnt(
    const unsigned long int  *attr,
    struct dsc$descriptor *resnam,
    unsigned short int  *reslen,
    const unsigned long int  *quota,
    const unsigned short int  *promsk,
    const struct dsc$descriptor *tabnam,
    const struct dsc$descriptor *partab,
    const unsigned char  *acmode
    ) ;
/*~-sys$crelnt-~*/
/*+~sys$crelog~+*/
long int sys$crelog(
    const unsigned long int tblflg,
    const struct dsc$descriptor *lognam,
    const struct dsc$descriptor *eqlnam,
    const unsigned long int acmode
    ) ;
/*~-sys$crelog-~*/
/*+~sys$crembx~+*/
long int sys$crembx(
    const char prmflg,
    unsigned short int  *chan,
    const unsigned long int maxmsg,
    const unsigned long int bufquo,
    const unsigned long int promsk,
    const unsigned long int acmode,
    const struct dsc$descriptor *lognam
    ) ;
/*~-sys$crembx-~*/
/*+~sys$creprc~+*/
long int sys$creprc(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *image,
    const struct dsc$descriptor *input,
    const struct dsc$descriptor *output,
    const struct dsc$descriptor *error,
    const unsigned int  *prvadr [2],
    const int  *quota,
    const struct dsc$descriptor *prcnam,
    const unsigned long int baspri,
    const unsigned long int uic,
    const unsigned short int mbxunt,
    const unsigned long int stsflg,
    const int  *itmlst
    ) ;
/*~-sys$creprc-~*/
/*+~sys$cretva~+*/
long int sys$cretva(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$cretva-~*/
/*+~sys$crmpsc~+*/
long int sys$crmpsc(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const unsigned long int flags,
    const struct dsc$descriptor *gsdnam,
    const unsigned int  *ident [2],
    const unsigned long int relpag,
    const unsigned short int chan,
    const unsigned long int pagcnt,
    const unsigned long int vbn,
    const unsigned long int prot,
    const unsigned long int pfc
    ) ;
/*~-sys$crmpsc-~*/
/*+~sys$dacefc~+*/
long int sys$dacefc(
    const unsigned long int efn
    ) ;
/*~-sys$dacefc-~*/
/*+~sys$dalloc~+*/
long int sys$dalloc(
    const struct dsc$descriptor *devnam,
    const unsigned long int acmode
    ) ;
/*~-sys$dalloc-~*/
/*+~sys$dassgn~+*/
long int sys$dassgn(
    const unsigned short int chan
    ) ;
/*~-sys$dassgn-~*/
/*+~sys$dclast~+*/
long int sys$dclast(
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned long int acmode
    ) ;
/*~-sys$dclast-~*/
/*+~sys$dclcmh~+*/
long int sys$dclcmh(
    const int * *addres,
    unsigned long int  *prvhnd,
    const char type
    ) ;
/*~-sys$dclcmh-~*/
/*+~sys$dclexh~+*/
long int sys$dclexh(
    const int  *desblk
    ) ;
/*~-sys$dclexh-~*/
/*+~sys$delete~+*/
long int sys$delete(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$delete-~*/
/*+~sys$dellnm~+*/
long int sys$dellnm(
    const struct dsc$descriptor *tabnam,
    const struct dsc$descriptor *lognam,
    const unsigned char  *acmode
    ) ;
/*~-sys$dellnm-~*/
/*+~sys$dellog~+*/
long int sys$dellog(
    const unsigned long int tblflg,
    const struct dsc$descriptor *lognam,
    const unsigned long int acmode
    ) ;
/*~-sys$dellog-~*/
/*+~sys$delmbx~+*/
long int sys$delmbx(
    const unsigned short int chan
    ) ;
/*~-sys$delmbx-~*/
/*+~sys$delprc~+*/
long int sys$delprc(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam
    ) ;
/*~-sys$delprc-~*/
/*+~sys$deltva~+*/
long int sys$deltva(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$deltva-~*/
/*+~sys$deq~+*/
long int sys$deq(
    const unsigned long int lkid,
    int  *valblk,
    const unsigned long int acmode,
    const unsigned long int flags
    ) ;
/*~-sys$deq-~*/
/*+~sys$dgblsc~+*/
long int sys$dgblsc(
    const unsigned long int flags,
    const struct dsc$descriptor *gsdnam,
    const unsigned int  *ident [2]
    ) ;
/*~-sys$dgblsc-~*/
/*+~sys$disconnect~+*/
long int sys$disconnect(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$disconnect-~*/
/*+~sys$dismou~+*/
long int sys$dismou(
    const struct dsc$descriptor *devnam,
    const unsigned long int flags
    ) ;
/*~-sys$dismou-~*/
/*+~sys$display~+*/
long int sys$display(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$display-~*/
/*+~sys$dlcefc~+*/
long int sys$dlcefc(
    const struct dsc$descriptor *name
    ) ;
/*~-sys$dlcefc-~*/
/*+~sys$enq~+*/
long int sys$enq(
    const unsigned long int efn,
    const unsigned long int lkmode,
    int  *lksb,
    const unsigned long int flags,
    const struct dsc$descriptor *resnam,
    const unsigned long int parid,
    const int * *astadr,
    const unsigned long int astprm,
    const int * *blkast,
    const unsigned long int acmode,
    const unsigned long int prot
    ) ;
/*~-sys$enq-~*/
/*+~sys$enqw~+*/
long int sys$enqw(
    const unsigned long int efn,
    const unsigned long int lkmode,
    int  *lksb,
    const unsigned long int flags,
    const struct dsc$descriptor *resnam,
    const unsigned long int parid,
    const int * *astadr,
    const unsigned long int astprm,
    const int * *blkast,
    const unsigned long int acmode,
    const unsigned long int prot
    ) ;
/*~-sys$enqw-~*/
/*+~sys$enter~+*/
long int sys$enter(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$enter-~*/
/*+~sys$erapat~+*/
long int sys$erapat(
    const long int type,
    const unsigned long int count,
    unsigned long int  *patadr
    ) ;
/*~-sys$erapat-~*/
/*+~sys$erase~+*/
long int sys$erase(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$erase-~*/
/*+~sys$exit~+*/
long int sys$exit(
    const unsigned long int code
    ) ;
/*~-sys$exit-~*/
/*+~sys$expreg~+*/
long int sys$expreg(
    const unsigned long int pagcnt,
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const char region
    ) ;
/*~-sys$expreg-~*/
/*+~sys$extend~+*/
long int sys$extend(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$extend-~*/
/*+~sys$fao~+*/
long int sys$fao(
    const struct dsc$descriptor *ctrstr,
    unsigned short int  *outlen,
    struct dsc$descriptor *outbuf,
    const long int p1
    ) ;
/*~-sys$fao-~*/
/*+~sys$faol~+*/
long int sys$faol(
    const struct dsc$descriptor *ctrstr,
    unsigned short int  *outlen,
    struct dsc$descriptor *outbuf,
    const int  *prmlst
    ) ;
/*~-sys$faol-~*/
/*+~sys$filescan~+*/
long int sys$filescan(
    const struct dsc$descriptor *srcstr,
    int  *valuelst,
    unsigned long int  *fldflags
    ) ;
/*~-sys$filescan-~*/
/*+~sys$find~+*/
long int sys$find(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$find-~*/
/*+~sys$find_held~+*/
long int sys$find_held(
    const unsigned int  *holder [2],
    unsigned long int  *id,
    unsigned long int  *attrib,
    unsigned long int  *contxt
    ) ;
/*~-sys$find_held-~*/
/*+~sys$find_holder~+*/
long int sys$find_holder(
    const unsigned long int id,
    unsigned int  *holder [2],
    unsigned long int  *attrib,
    unsigned long int  *contxt
    ) ;
/*~-sys$find_holder-~*/
/*+~sys$finish_rdb~+*/
long int sys$finish_rdb(
    unsigned long int  *contxt
    ) ;
/*~-sys$finish_rdb-~*/
/*+~sys$forcex~+*/
long int sys$forcex(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const unsigned long int code
    ) ;
/*~-sys$forcex-~*/
/*+~sys$format_acl~+*/
long int sys$format_acl(
    const struct dsc$descriptor *aclent,
    unsigned short int  *acllen,
    struct dsc$descriptor *aclstr,
    const unsigned short int  *width,
    const struct dsc$descriptor *trmdsc,
    const unsigned short int  *indent,
    const int  *accnam,
    const int * *routin
    ) ;
/*~-sys$format_acl-~*/
/*+~sys$format_class~+*/
long int sys$format_class(
    const int  *itmlst,
    const int * *routin
    ) ;
/*~-sys$format_class-~*/
/*+~sys$free~+*/
long int sys$free(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$free-~*/
/*+~sys$flush~+*/
long int sys$flush(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$flush-~*/
/*+~sys$get~+*/
long int sys$get(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$get-~*/
/*+~sys$getchn~+*/
long int sys$getchn(
    const unsigned short int chan,
    unsigned short int  *prilen,
    struct dsc$descriptor *pribuf,
    unsigned short int  *scdlen,
    struct dsc$descriptor *scdbuf
    ) ;
/*~-sys$getchn-~*/
/*+~sys$getdev~+*/
long int sys$getdev(
    const struct dsc$descriptor *devnam,
    unsigned short int  *prilen,
    struct dsc$descriptor *pribuf,
    unsigned short int  *scdlen,
    struct dsc$descriptor *scdbuf
    ) ;
/*~-sys$getdev-~*/
/*+~sys$getdvi~+*/
long int sys$getdvi(
    const unsigned long int efn,
    const unsigned short int chan,
    const struct dsc$descriptor *devnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned int  *nullarg [2]
    ) ;
/*~-sys$getdvi-~*/
/*+~sys$getdviw~+*/
long int sys$getdviw(
    const unsigned long int efn,
    const unsigned short int chan,
    const struct dsc$descriptor *devnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned int  *nullarg [2]
    ) ;
/*~-sys$getdviw-~*/
/*+~sys$getjpi~+*/
long int sys$getjpi(
    const unsigned long int efn,
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getjpi-~*/
/*+~sys$getjpiw~+*/
long int sys$getjpiw(
    const unsigned long int efn,
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getjpiw-~*/
/*+~sys$getlki~+*/
long int sys$getlki(
    const unsigned long int efn,
    unsigned long int  *lkidadr,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned long int reserved
    ) ;
/*~-sys$getlki-~*/
/*+~sys$getlkiw~+*/
long int sys$getlkiw(
    const unsigned long int efn,
    unsigned long int  *lkidadr,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned long int reserved
    ) ;
/*~-sys$getlkiw-~*/
/*+~sys$getmsg~+*/
long int sys$getmsg(
    const unsigned long int msgid,
    unsigned short int  *msglen,
    struct dsc$descriptor *bufadr,
    const unsigned long int flags,
    unsigned char  *outadr [4]
    ) ;
/*~-sys$getmsg-~*/
/*+~sys$getpti~+*/
long int sys$getpti(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const unsigned long int mask,
    const unsigned long int pagcnt
    ) ;
/*~-sys$getpti-~*/
/*+~sys$getqui~+*/
long int sys$getqui(
    const unsigned long int efn,
    const unsigned short int func,
    const unsigned long int nullarg,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getqui-~*/
/*+~sys$getquiw~+*/
long int sys$getquiw(
    const unsigned long int efn,
    const unsigned short int func,
    const unsigned long int nullarg,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getquiw-~*/
/*+~sys$getsyi~+*/
long int sys$getsyi(
    const unsigned long int efn,
    unsigned long int  *csidadr,
    const struct dsc$descriptor *nodename,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getsyi-~*/
/*+~sys$getsyiw~+*/
long int sys$getsyiw(
    const unsigned long int efn,
    unsigned long int  *csidadr,
    const struct dsc$descriptor *nodename,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getsyiw-~*/
/*+~sys$gettim~+*/
long int sys$gettim(
    unsigned int  *timadr [2]
    ) ;
/*~-sys$gettim-~*/
/*+~sys$getuai~+*/
long int sys$getuai(
    const unsigned long int efn,
    const unsigned long int  *contxt,
    const struct dsc$descriptor *usrnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getuai-~*/
/*+~sys$grantid~+*/
long int sys$grantid(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    unsigned int  *id [2],
    const struct dsc$descriptor *name,
    unsigned long int  *prvatr
    ) ;
/*~-sys$grantid-~*/
/*+~sys$grant_license~+*/
long int sys$grant_license(
    const struct dsc$descriptor *prdnam,
    const struct dsc$descriptor *prducer,
    const unsigned long int  *contxt [4],
    const int  *itmlst
    ) ;
/*~-sys$grant_license-~*/
/*+~sys$hiber~+*/
long int sys$hiber() ;
/*~-sys$hiber-~*/
/*+~sys$idtoasc~+*/
long int sys$idtoasc(
    const unsigned long int id,
    unsigned short int  *namlen,
    struct dsc$descriptor *nambuf,
    unsigned long int  *resid,
    unsigned long int  *attrib,
    unsigned long int  *contxt
    ) ;
/*~-sys$idtoasc-~*/
/*+~sys$imgact~+*/
long int sys$imgact(
    const struct dsc$descriptor *name,
    const struct dsc$descriptor *dflnam,
    int * *hdrbuf,
    const unsigned long int imgctl,
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned int  *ident [2],
    const unsigned long int acmode
    ) ;
/*~-sys$imgact-~*/
/*+~sys$imgfix~+*/
long int sys$imgfix() ;
/*~-sys$imgfix-~*/
/*+~sys$lckpag~+*/
long int sys$lckpag(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$lckpag-~*/
/*+~sys$lkwset~+*/
long int sys$lkwset(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$lkwset-~*/
/*+~sys$mgblsc~+*/
long int sys$mgblsc(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const unsigned long int flags,
    const struct dsc$descriptor *gsdnam,
    const unsigned int  *ident [2],
    const unsigned long int relpag
    ) ;
/*~-sys$mgblsc-~*/
/*+~sys$modify~+*/
long int sys$modify(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$modify-~*/
/*+~sys$mod_holder~+*/
long int sys$mod_holder(
    const unsigned long int id,
    const unsigned int  *holder [2],
    const unsigned long int set_attrib,
    const unsigned long int clr_attrib
    ) ;
/*~-sys$mod_holder-~*/
/*+~sys$mod_ident~+*/
long int sys$mod_ident(
    const unsigned long int id,
    const unsigned long int set_attrib,
    const unsigned long int clr_attrib,
    const struct dsc$descriptor *new_name,
    const unsigned long int new_value
    ) ;
/*~-sys$mod_ident-~*/
/*+~sys$mount~+*/
long int sys$mount(
    const int  *itmlst
    ) ;
/*~-sys$mount-~*/
/*+~sys$mtaccess~+*/
long int sys$mtaccess(
    const unsigned long int  *lblnam,
    const unsigned long int uic,
    const unsigned long int std_version,
    const unsigned long int access_char,
    const unsigned long int access_spec,
    const unsigned long int type
    ) ;
/*~-sys$mtaccess-~*/
/*+~sys$numtim~+*/
long int sys$numtim(
    unsigned short int  *timbuf [7],
    const unsigned int  *timadr [2]
    ) ;
/*~-sys$numtim-~*/
/*+~sys$nxtvol~+*/
long int sys$nxtvol(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$nxtvol-~*/
/*+~sys$open~+*/
long int sys$open(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$open-~*/
/*+~sys$parse~+*/
long int sys$parse(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$parse-~*/
/*+~sys$parse_acl~+*/
long int sys$parse_acl(
    const struct dsc$descriptor *aclstr,
    struct dsc$descriptor *aclent,
    unsigned short int  *errpos,
    const int  *accnam,
    const int * *routin
    ) ;
/*~-sys$parse_acl-~*/
/*+~sys$parse_class~+*/
long int sys$parse_class(
    const int  *itmlst,
    const int * *routin
    ) ;
/*~-sys$parse_class-~*/
/*+~sys$purgws~+*/
long int sys$purgws(
    const unsigned long int  *inadr [2]
    ) ;
/*~-sys$purgws-~*/
/*+~sys$put~+*/
long int sys$put(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$put-~*/
/*+~sys$putmsg~+*/
long int sys$putmsg(
    const int  *msgvec,
    const int * *actrtn,
    const struct dsc$descriptor *facnam,
    const unsigned long int actprm
    ) ;
/*~-sys$putmsg-~*/
/*+~sys$qio~+*/
long int sys$qio(
    const unsigned long int efn,
    const unsigned short int chan,
    const unsigned short int func,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const int  *p1,
    const long int p2,
    const long int p3,
    const long int p4,
    const long int p5,
    const long int p6
    ) ;
/*~-sys$qio-~*/
/*+~sys$qiow~+*/
long int sys$qiow(
    const unsigned long int efn,
    const unsigned short int chan,
    const unsigned short int func,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const int  *p1,
    const long int p2,
    const long int p3,
    const long int p4,
    const long int p5,
    const long int p6
    ) ;
/*~-sys$qiow-~*/
/*+~sys$read~+*/
long int sys$read(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$read-~*/
/*+~sys$readef~+*/
long int sys$readef(
    const unsigned long int efn,
    unsigned long int  *state
    ) ;
/*~-sys$readef-~*/
/*+~sys$release~+*/
long int sys$release(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$release-~*/
/*+~sys$release_license~+*/
long int sys$release_license(
    const int  *contxt
    ) ;
/*~-sys$release_license-~*/
/*+~sys$remove~+*/
long int sys$remove(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$remove-~*/
/*+~sys$rem_holder~+*/
long int sys$rem_holder(
    const unsigned long int id,
    const unsigned int  *holder [2]
    ) ;
/*~-sys$rem_holder-~*/
/*+~sys$rem_ident~+*/
long int sys$rem_ident(
    const unsigned long int id
    ) ;
/*~-sys$rem_ident-~*/
/*+~sys$rename~+*/
long int sys$rename(
    int  *oldfab,
    const int * *err,
    const int * *suc,
    int  *newfab
    ) ;
/*~-sys$rename-~*/
/*+~sys$resume~+*/
long int sys$resume(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam
    ) ;
/*~-sys$resume-~*/
/*+~sys$revokid~+*/
long int sys$revokid(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    unsigned int  *id [2],
    const struct dsc$descriptor *name,
    unsigned long int  *prvatr
    ) ;
/*~-sys$revokid-~*/
/*+~sys$rewind~+*/
long int sys$rewind(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$rewind-~*/
/*+~sys$rundwn~+*/
long int sys$rundwn(
    const unsigned long int acmode
    ) ;
/*~-sys$rundwn-~*/
/*+~sys$schdwk~+*/
long int sys$schdwk(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const unsigned int  *daytim [2],
    const unsigned int  *reptim [2]
    ) ;
/*~-sys$schdwk-~*/
/*+~sys$search~+*/
long int sys$search(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$search-~*/
/*+~sys$setast~+*/
long int sys$setast(
    const char enbflg
    ) ;
/*~-sys$setast-~*/
/*+~sys$setef~+*/
long int sys$setef(
    const unsigned long int efn
    ) ;
/*~-sys$setef-~*/
/*+~sys$setexv~+*/
long int sys$setexv(
    const unsigned long int vector,
    const int * *addres,
    const unsigned long int acmode,
    unsigned long int  *prvhnd
    ) ;
/*~-sys$setexv-~*/
/*+~sys$setime~+*/
long int sys$setime(
    const unsigned int  *timadr [2]
    ) ;
/*~-sys$setime-~*/
/*+~sys$setimr~+*/
long int sys$setimr(
    const unsigned long int efn,
    const unsigned int  *daytim [2],
    const int * *astadr,
    const unsigned long int reqidt,
    const unsigned long int flags
    ) ;
/*~-sys$setimr-~*/
/*+~sys$setpfm~+*/
long int sys$setpfm(
    const unsigned long int pfmflg,
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned long int acmode
    ) ;
/*~-sys$setpfm-~*/
/*+~sys$setpra~+*/
long int sys$setpra(
    const int * *astadr,
    const unsigned long int acmode
    ) ;
/*~-sys$setpra-~*/
/*+~sys$setpri~+*/
long int sys$setpri(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const unsigned long int pri,
    unsigned long int  *prvpri
    ) ;
/*~-sys$setpri-~*/
/*+~sys$setprn~+*/
long int sys$setprn(
    const struct dsc$descriptor *prcnam
    ) ;
/*~-sys$setprn-~*/
/*+~sys$setprt~+*/
long int sys$setprt(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const unsigned long int prot,
    unsigned char  *prvprt
    ) ;
/*~-sys$setprt-~*/
/*+~sys$setprv~+*/
long int sys$setprv(
    const char enbflg,
    const unsigned int  *prvadr [2],
    const char prmflg,
    unsigned int  *prvprv [2]
    ) ;
/*~-sys$setprv-~*/
/*+~sys$setrwm~+*/
long int sys$setrwm(
    const char watflg
    ) ;
/*~-sys$setrwm-~*/
/*+~sys$setsfm~+*/
long int sys$setsfm(
    const char enbflg
    ) ;
/*~-sys$setsfm-~*/
/*+~sys$setssf~+*/
long int sys$setssf(
    const unsigned long int mask
    ) ;
/*~-sys$setssf-~*/
/*+~sys$setstk~+*/
long int sys$setstk(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$setstk-~*/
/*+~sys$setswm~+*/
long int sys$setswm(
    const char swpflg
    ) ;
/*~-sys$setswm-~*/
/*+~sys$setuai~+*/
long int sys$setuai(
    const unsigned long int efn,
    const unsigned long int  *contxt,
    const struct dsc$descriptor *usrnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$setuai-~*/
/*+~sys$sndacc~+*/
long int sys$sndacc(
    const struct dsc$descriptor *msgbuf,
    const unsigned short int chan
    ) ;
/*~-sys$sndacc-~*/
/*+~sys$snderr~+*/
long int sys$snderr(
    const struct dsc$descriptor *msgbuf
    ) ;
/*~-sys$snderr-~*/
/*+~sys$sndopr~+*/
long int sys$sndopr(
    const struct dsc$descriptor *msgbuf,
    const unsigned short int chan
    ) ;
/*~-sys$sndopr-~*/
/*+~sys$sndsmb~+*/
long int sys$sndsmb(
    const struct dsc$descriptor *msgbuf,
    const unsigned short int chan
    ) ;
/*~-sys$sndsmb-~*/
/*+~sys$sndjbc~+*/
long int sys$sndjbc(
    const unsigned long int efn,
    const unsigned short int func,
    const unsigned long int nullarg,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$sndjbc-~*/
/*+~sys$sndjbcw~+*/
long int sys$sndjbcw(
    const unsigned long int efn,
    const unsigned short int func,
    const unsigned long int nullarg,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$sndjbcw-~*/
/*+~sys$space~+*/
long int sys$space(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$space-~*/
/*+~sys$suspnd~+*/
long int sys$suspnd(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const unsigned long int flags
    ) ;
/*~-sys$suspnd-~*/
/*+~sys$synch~+*/
long int sys$synch(
    const unsigned long int efn,
    unsigned int  *iosb [2]
    ) ;
/*~-sys$synch-~*/
/*+~sys$trnlnm~+*/
long int sys$trnlnm(
    const unsigned long int  *attr,
    const struct dsc$descriptor *tabnam,
    const struct dsc$descriptor *lognam,
    const unsigned char  *acmode,
    const int  *itmlst
    ) ;
/*~-sys$trnlnm-~*/
/*+~sys$trnlog~+*/
long int sys$trnlog(
    const struct dsc$descriptor *lognam,
    unsigned short int  *rsllen,
    struct dsc$descriptor *rslbuf,
    unsigned char  *table,
    unsigned char  *acmode,
    const unsigned long int dsbmsk
    ) ;
/*~-sys$trnlog-~*/
/*+~sys$truncate~+*/
long int sys$truncate(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$truncate-~*/
/*+~sys$ulkpag~+*/
long int sys$ulkpag(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$ulkpag-~*/
/*+~sys$ulwset~+*/
long int sys$ulwset(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$ulwset-~*/
/*+~sys$unwind~+*/
long int sys$unwind(
    const unsigned long int  *depadr,
    const unsigned long int  *newpc
    ) ;
/*~-sys$unwind-~*/
/*+~sys$update~+*/
long int sys$update(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$update-~*/
/*+~sys$updsec~+*/
long int sys$updsec(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const char updflg,
    const unsigned long int efn,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$updsec-~*/
/*+~sys$updsecw~+*/
long int sys$updsecw(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const char updflg,
    const unsigned long int efn,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$updsecw-~*/
/*+~sys$wait~+*/
long int sys$wait(
    int  *rab
    ) ;
/*~-sys$wait-~*/
/*+~sys$waitfr~+*/
long int sys$waitfr(
    const unsigned long int efn
    ) ;
/*~-sys$waitfr-~*/
/*+~sys$wake~+*/
long int sys$wake(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam
    ) ;
/*~-sys$wake-~*/
/*+~sys$wfland~+*/
long int sys$wfland(
    const unsigned long int efn,
    const unsigned long int mask
    ) ;
/*~-sys$wfland-~*/
/*+~sys$wflor~+*/
long int sys$wflor(
    const unsigned long int efn,
    const unsigned long int mask
    ) ;
/*~-sys$wflor-~*/
/*+~sys$write~+*/
long int sys$write(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$write-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  8-AUG-1988 10:10:04 EMULEX$DISK:[MEADOWS.UNSDL.VMS5-0_H]DTK$ROUTINE */
#ifndef DTK$ROUTINES.TEMPLATE_
#define DTK$ROUTINES.TEMPLATE_
 
/*** MODULE DTK$ROUTINES ***/
/*+~dtk$answer_phone~+*/
unsigned long int dtk$answer_phone(
    const unsigned long int  *voice_id,
    ...
    /* const long int  *number_of_rings, */
    /* const struct dsc$descriptor *text, */
    /* const long int  *timeout */
    ) ;
/*~-dtk$answer_phone-~*/
/*+~dtk$check_hdwr_status~+*/
unsigned long int dtk$check_hdwr_status(
    const unsigned long int  *voice_id,
    unsigned long int  *hdwr_status
    ) ;
/*~-dtk$check_hdwr_status-~*/
/*+~dtk$dial_phone~+*/
unsigned long int dtk$dial_phone(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *phone_number,
    ...
    /* const unsigned long int  *dial_mode, */
    /* const struct dsc$descriptor *text, */
    /* const long int  *timeout */
    ) ;
/*~-dtk$dial_phone-~*/
/*+~dtk$hangup_phone~+*/
unsigned long int dtk$hangup_phone(
    const unsigned long int  *voice_id,
    ...
    /* const struct dsc$descriptor *text */
    ) ;
/*~-dtk$hangup_phone-~*/
/*+~dtk$initialize~+*/
unsigned long int dtk$initialize(
    unsigned long int  *voice_id,
    const struct dsc$descriptor *output_device,
    ...
    /* long int  *device_type */
    ) ;
/*~-dtk$initialize-~*/
/*+~dtk$load_dictionary~+*/
unsigned long int dtk$load_dictionary(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *text,
    const struct dsc$descriptor *substitution
    ) ;
/*~-dtk$load_dictionary-~*/
/*+~dtk$read_keystroke~+*/
unsigned long int dtk$read_keystroke(
    const unsigned long int  *voice_id,
    long int  *key_code,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* const long int  *timeout */
    ) ;
/*~-dtk$read_keystroke-~*/
/*+~dtk$read_string~+*/
unsigned long int dtk$read_string(
    const unsigned long int  *voice_id,
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* const long int  *timeout, */
    /* long int  *longword_integer_termin_code */
    ) ;
/*~-dtk$read_string-~*/
/*+~dtk$return_last_index~+*/
unsigned long int dtk$return_last_index(
    const unsigned long int  *voice_id,
    long int  *p_index
    ) ;
/*~-dtk$return_last_index-~*/
/*+~dtk$spell_text~+*/
unsigned long int dtk$spell_text(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *text,
    ...
    /* const unsigned long int  *completion_mode */
    ) ;
/*~-dtk$spell_text-~*/
/*+~dtk$speak_file~+*/
unsigned long int dtk$speak_file(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *filespec,
    ...
    /* const unsigned long int  *completion_mode */
    ) ;
/*~-dtk$speak_file-~*/
/*+~dtk$speak_phonemic_text~+*/
unsigned long int dtk$speak_phonemic_text(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *text,
    ...
    /* const unsigned long int  *completion_mode */
    ) ;
/*~-dtk$speak_phonemic_text-~*/
/*+~dtk$speak_text~+*/
unsigned long int dtk$speak_text(
    const unsigned long int  *voice_id,
    const struct dsc$descriptor *text,
    ...
    /* const unsigned long int  *completion_mode */
    ) ;
/*~-dtk$speak_text-~*/
/*+~dtk$set_index~+*/
unsigned long int dtk$set_index(
    const unsigned long int  *voice_id,
    const long int  *p_index
    ) ;
/*~-dtk$set_index-~*/
/*+~dtk$set_keypad_mode~+*/
unsigned long int dtk$set_keypad_mode(
    const unsigned long int  *voice_id,
    const unsigned long int  *keypad_mode
    ) ;
/*~-dtk$set_keypad_mode-~*/
/*+~dtk$set_logging_mode~+*/
unsigned long int dtk$set_logging_mode(
    const unsigned long int  *voice_id,
    ...
    /* const unsigned long int  *new_mode, */
    /* unsigned long int  *old_mode */
    ) ;
/*~-dtk$set_logging_mode-~*/
/*+~dtk$set_mode~+*/
unsigned long int dtk$set_mode(
    const unsigned long int  *voice_id,
    ...
    /* const unsigned long int  *new_mode, */
    /* unsigned long int  *old_mode */
    ) ;
/*~-dtk$set_mode-~*/
/*+~dtk$set_speech_mode~+*/
unsigned long int dtk$set_speech_mode(
    const unsigned long int  *voice_id,
    const unsigned long int  *new_mode,
    ...
    /* unsigned long int  *old_mode */
    ) ;
/*~-dtk$set_speech_mode-~*/
/*+~dtk$set_terminal_mode~+*/
unsigned long int dtk$set_terminal_mode(
    const unsigned long int  *voice_id,
    ...
    /* const unsigned long int  *new_mode, */
    /* unsigned long int  *old_mode */
    ) ;
/*~-dtk$set_terminal_mode-~*/
/*+~dtk$set_voice~+*/
unsigned long int dtk$set_voice(
    const unsigned long int  *voice_id,
    ...
    /* const long int  *new_voice, */
    /* const long int  *speech_rate, */
    /* const unsigned long int  *comma_pause, */
    /* const unsigned long int  *period_pause */
    ) ;
/*~-dtk$set_voice-~*/
/*+~dtk$terminate~+*/
unsigned long int dtk$terminate(
    const unsigned long int  *voice_id
    ) ;
/*~-dtk$terminate-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  8-AUG-1988 10:13:36 EMULEX$DISK:[MEADOWS.UNSDL.VMS5-0_H]LIB$ROUTINE */
#ifndef LIB$ROUTINES.TEMPLATE_
#define LIB$ROUTINES.TEMPLATE_
 
/*** MODULE LIB$ROUTINES ***/
/*+~lib$adawi~+*/
unsigned long int lib$adawi(
    const short int  *add,
    short int  *sum,
    short int  *result
    ) ;
/*~-lib$adawi-~*/
/*+~lib$add_times~+*/
unsigned long int lib$add_times(
    const unsigned int  *time1 [2],
    const unsigned int  *time2 [2],
    unsigned int  *resultant_time [2]
    ) ;
/*~-lib$add_times-~*/
/*+~lib$addx~+*/
unsigned long int lib$addx(
    const int  *addend_array,
    const int  *augend_array,
    int  *resultant_array,
    ...
    /* const long int  *array_length */
    ) ;
/*~-lib$addx-~*/
/*+~lib$analyze_sdesc~+*/
unsigned long int lib$analyze_sdesc(
    const unsigned int  *input_descriptor [2],
    unsigned short int  *data_length,
    int * *data_address
    ) ;
/*~-lib$analyze_sdesc-~*/
/*+~lib$asn_wth_mbx~+*/
unsigned long int lib$asn_wth_mbx(
    const struct dsc$descriptor *device_name,
    const long int  *maximum_message_size,
    const long int  *buffer_quota,
    unsigned short int  *device_channel,
    unsigned short int  *mailbox_channel
    ) ;
/*~-lib$asn_wth_mbx-~*/
/*+~lib$ast_in_prog~+*/
char lib$ast_in_prog() ;
/*~-lib$ast_in_prog-~*/
/*+~lib$attach~+*/
unsigned long int lib$attach(
    const unsigned long int  *process_id
    ) ;
/*~-lib$attach-~*/
/*+~lib$bbcci~+*/
unsigned long int lib$bbcci(
    const long int  *position,
    const int *bit_zero_address
    ) ;
/*~-lib$bbcci-~*/
/*+~lib$bbssi~+*/
unsigned long int lib$bbssi(
    const long int  *position,
    const int *bit_zero_address
    ) ;
/*~-lib$bbssi-~*/
/*+~lib$callg~+*/
unsigned long int lib$callg(
    const int  *argument_list,
    const int *user_procedure
    ) ;
/*~-lib$callg-~*/
/*+~lib$create_dir~+*/
unsigned long int lib$create_dir(
    const struct dsc$descriptor *device_directory_spec,
    ...
    /* const unsigned long int  *owner_uic, */
    /* const unsigned short int  *protection_enable, */
    /* const unsigned short int  *protection_value, */
    /* const unsigned short int  *maximum_versions, */
    /* const unsigned short int  *relative_volume_number */
    ) ;
/*~-lib$create_dir-~*/
/*+~lib$char~+*/
unsigned long int lib$char(
    struct dsc$descriptor *one_character_string,
    const unsigned char  *ascii_code
    ) ;
/*~-lib$char-~*/
/*+~lib$convert_date_string~+*/
unsigned long int lib$convert_date_string(
    const struct dsc$descriptor *date_string,
    unsigned int  *date_time [2],
    ...
    /* unsigned long int  *user_context, */
    /* const unsigned long int  *flags, */
    /* const unsigned short int  *defaults [1], */
    /* unsigned long int  *defaulted_fields */
    ) ;
/*~-lib$convert_date_string-~*/
/*+~lib$crc~+*/
unsigned long int lib$crc(
    const long int  *crc_table [1],
    const long int  *initial_crc,
    const struct dsc$descriptor *stream
    ) ;
/*~-lib$crc-~*/
/*+~lib$crc_table~+*/
int lib$crc_table(
    const unsigned long int  *polynomial_coefficient,
    long int  *crc_table [1]
    ) ;
/*~-lib$crc_table-~*/
/*+~lib$crf_ins_key~+*/
int lib$crf_ins_key(
    const long int  *control_table [1],
    const struct dsc$descriptor *key_string,
    const long int  *symbol_value,
    const unsigned long int  *flags
    ) ;
/*~-lib$crf_ins_key-~*/
/*+~lib$crf_ins_ref~+*/
int lib$crf_ins_ref(
    const long int  *control_table [1],
    const long int  *longword_integer_key,
    const struct dsc$descriptor *reference_string,
    long int  *longword_integer_reference,
    const long int  *ref_definition_indicator
    ) ;
/*~-lib$crf_ins_ref-~*/
/*+~lib$crf_output~+*/
int lib$crf_output(
    const long int  *control_table [1],
    const long int  *output_line_width,
    const long int  *page1,
    const long int  *page2,
    const long int  *mode_indicator,
    const long int  *delete_save_indicator
    ) ;
/*~-lib$crf_output-~*/
/*+~lib$currency~+*/
unsigned long int lib$currency(
    struct dsc$descriptor *currency_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$currency-~*/
/*+~lib$create_user_vm_zone~+*/
unsigned long int lib$create_user_vm_zone(
    unsigned long int  *zone_id,
    ...
    /* const unsigned long int  *user_argument, */
    /* const int *user_allocation_procedure, */
    /* const int *user_deallocation_procedure, */
    /* const int *user_reset_procedure, */
    /* const int *user_delete_procedure, */
    /* const struct dsc$descriptor *zone_name */
    ) ;
/*~-lib$create_user_vm_zone-~*/
/*+~lib$cvt_dx_dx~+*/
unsigned long int lib$cvt_dx_dx(
    const int  *source_item,
    int  *destination_item,
    ...
    /* unsigned short int  *word_integer_dest_length */
    ) ;
/*~-lib$cvt_dx_dx-~*/
/*+~lib$cvtf_from_internal_time~+*/
unsigned long int lib$cvtf_from_internal_time(
    const unsigned long int  *operation,
    float  *resultant_time,
    const unsigned int  *input_time [2]
    ) ;
/*~-lib$cvtf_from_internal_time-~*/
/*+~lib$cvt_from_internal_time~+*/
unsigned long int lib$cvt_from_internal_time(
    const unsigned long int  *operation,
    unsigned long int  *resultant_time,
    ...
    /* const unsigned int  *input_time [2] */
    ) ;
/*~-lib$cvt_from_internal_time-~*/
/*+~lib$cvtf_to_internal_time~+*/
unsigned long int lib$cvtf_to_internal_time(
    const unsigned long int  *operation,
    const float  *input_time,
    unsigned int  *resultant_time [2]
    ) ;
/*~-lib$cvtf_to_internal_time-~*/
/*+~lib$cvt_to_internal_time~+*/
unsigned long int lib$cvt_to_internal_time(
    const unsigned long int  *operation,
    const long int  *input_time,
    unsigned int  *resultant_time [2]
    ) ;
/*~-lib$cvt_to_internal_time-~*/
/*+~lib$cvt_vectim~+*/
unsigned long int lib$cvt_vectim(
    const unsigned short int  *input_time [1],
    unsigned int  *resultant_time [2]
    ) ;
/*~-lib$cvt_vectim-~*/
/*+~lib$cvt_dtb~+*/
unsigned long int lib$cvt_dtb(
    const long int byte_count,
    const char  *numeric_string,
    long int  *result
    ) ;
/*~-lib$cvt_dtb-~*/
/*+~lib$cvt_htb~+*/
unsigned long int lib$cvt_htb(
    const long int byte_count,
    const char  *numeric_string,
    long int  *result
    ) ;
/*~-lib$cvt_htb-~*/
/*+~lib$cvt_otb~+*/
unsigned long int lib$cvt_otb(
    const long int byte_count,
    const char  *numeric_string,
    long int  *result
    ) ;
/*~-lib$cvt_otb-~*/
/*+~lib$create_vm_zone~+*/
unsigned long int lib$create_vm_zone(
    unsigned long int  *zone_id,
    ...
    /* const long int  *algorithm, */
    /* const long int  *algorithm_argument, */
    /* const unsigned long int  *flags, */
    /* const long int  *extend_size, */
    /* const long int  *initial_size, */
    /* const long int  *block_size, */
    /* const long int  *alignment, */
    /* const long int  *page_limit, */
    /* const long int  *smallest_block_size, */
    /* const struct dsc$descriptor *zone_name, */
    /* const long int  *number_of_areas, */
    /* const int *get_page, */
    /* const int *free_page */
    ) ;
/*~-lib$create_vm_zone-~*/
/*+~lib$date_time~+*/
unsigned long int lib$date_time(
    struct dsc$descriptor *date_time_string
    ) ;
/*~-lib$date_time-~*/
/*+~lib$day~+*/
unsigned long int lib$day(
    long int  *number_of_days,
    ...
    /* const unsigned int  *user_time [2], */
    /* long int  *day_time */
    ) ;
/*~-lib$day-~*/
/*+~lib$day_of_week~+*/
unsigned long int lib$day_of_week(
    const unsigned int  *user_time [2],
    unsigned long int  *day_number
    ) ;
/*~-lib$day_of_week-~*/
/*+~lib$dec_over~+*/
unsigned long int lib$dec_over(
    const unsigned long int  *new_setting
    ) ;
/*~-lib$dec_over-~*/
/*+~lib$decode_fault~+*/
unsigned long int lib$decode_fault(
    const int  *signal_arguments,
    const int  *mechanism_arguments,
    const struct dsc$descriptor *user_procedure,
    ...
    /* const int unspecified_user_argument, */
    /* const unsigned char  *instruction_definitions [1] */
    ) ;
/*~-lib$decode_fault-~*/
/*+~lib$delete_file~+*/
unsigned long int lib$delete_file(
    const struct dsc$descriptor *filespec,
    ...
    /* const struct dsc$descriptor *default_filespec, */
    /* const struct dsc$descriptor *related_filespec, */
    /* const int *user_success_procedure, */
    /* const int *user_error_procedure, */
    /* const int *user_confirm_procedure, */
    /* const int user_specified_argument, */
    /* struct dsc$descriptor *resultant_name, */
    /* unsigned long int  *file_scan_context */
    ) ;
/*~-lib$delete_file-~*/
/*+~lib$digit_sep~+*/
unsigned long int lib$digit_sep(
    struct dsc$descriptor *digit_separator_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$digit_sep-~*/
/*+~lib$disable_ctrl~+*/
unsigned long int lib$disable_ctrl(
    const unsigned long int  *disable_mask,
    ...
    /* unsigned long int  *old_mask */
    ) ;
/*~-lib$disable_ctrl-~*/
/*+~lib$delete_logical~+*/
unsigned long int lib$delete_logical(
    const struct dsc$descriptor *logical_name,
    ...
    /* const struct dsc$descriptor *table_name */
    ) ;
/*~-lib$delete_logical-~*/
/*+~lib$do_command~+*/
unsigned long int lib$do_command(
    const struct dsc$descriptor *command_string
    ) ;
/*~-lib$do_command-~*/
/*+~lib$delete_symbol~+*/
unsigned long int lib$delete_symbol(
    const struct dsc$descriptor *symbol,
    ...
    /* const long int  *table_type_indicator */
    ) ;
/*~-lib$delete_symbol-~*/
/*+~lib$format_date_time~+*/
unsigned long int lib$format_date_time(
    struct dsc$descriptor *date_string,
    ...
    /* const unsigned int  *date [2], */
    /* unsigned long int  *user_context, */
    /* long int  *date_length, */
    /* const unsigned long int  *flags */
    ) ;
/*~-lib$format_date_time-~*/
/*+~lib$delete_vm_zone~+*/
unsigned long int lib$delete_vm_zone(
    const unsigned long int  *zone_id
    ) ;
/*~-lib$delete_vm_zone-~*/
/*+~lib$ediv~+*/
unsigned long int lib$ediv(
    const long int  *longword_integer_divisor,
    const int  *quadword_integer_dividend [2],
    long int  *longword_integer_quotient,
    long int  *remainder
    ) ;
/*~-lib$ediv-~*/
/*+~lib$emodd~+*/
unsigned long int lib$emodd(
    const double float  *floating_point_multiplier,
    const unsigned char  *multiplier_extension,
    const double float  *floating_point_multiplicand,
    long int  *integer_portion,
    double float  *fractional_portion
    ) ;
/*~-lib$emodd-~*/
/*+~lib$emodf~+*/
unsigned long int lib$emodf(
    const float  *floating_point_multiplier,
    const unsigned char  *multiplier_extension,
    const float  *floating_point_multiplicand,
    long int  *integer_portion,
    float  *fractional_portion
    ) ;
/*~-lib$emodf-~*/
/*+~lib$emodg~+*/
unsigned long int lib$emodg(
    const double float  *floating_point_multiplier,
    const unsigned short int  *multiplier_extension,
    const double float  *floating_point_multiplicand,
    long int  *integer_portion,
    double float  *fractional_portion
    ) ;
/*~-lib$emodg-~*/
/*+~lib$emodh~+*/
unsigned long int lib$emodh(
    const struct {int floating$$ret_0_ [4];}  *floating_point_multiplier,
    const unsigned short int  *multiplier_extension,
    const struct {int floating$$ret_1_ [4];}  *floating_point_multiplicand,
    long int  *integer_portion,
    struct {int fraction$$ret_0_ [4];}  *fractional_portion
    ) ;
/*~-lib$emodh-~*/
/*+~lib$emul~+*/
unsigned long int lib$emul(
    const long int  *longword_integer_multiplier,
    const long int  *longword_integer_multiplicand,
    const long int  *addend,
    int  *product [2]
    ) ;
/*~-lib$emul-~*/
/*+~lib$enable_ctrl~+*/
unsigned long int lib$enable_ctrl(
    const unsigned long int  *enable_mask,
    ...
    /* unsigned long int  *old_mask */
    ) ;
/*~-lib$enable_ctrl-~*/
/*+~lib$establish~+*/
int *lib$establish(
    const int *new_handler
    ) ;
/*~-lib$establish-~*/
/*+~lib$extv~+*/
long int lib$extv(
    const long int  *position,
    const unsigned char  *size,
    const int *base_address
    ) ;
/*~-lib$extv-~*/
/*+~lib$extzv~+*/
long int lib$extzv(
    const long int  *position,
    const unsigned char  *size,
    const int *base_address
    ) ;
/*~-lib$extzv-~*/
/*+~lib$free_date_time_context~+*/
unsigned long int lib$free_date_time_context(
    /* unsigned long int  *user_context */
    ) ;
/*~-lib$free_date_time_context-~*/
/*+~lib$free_ef~+*/
unsigned long int lib$free_ef(
    const unsigned long int  *event_flag_number
    ) ;
/*~-lib$free_ef-~*/
/*+~lib$find_file_end~+*/
unsigned long int lib$find_file_end(
    const unsigned long int  *context
    ) ;
/*~-lib$find_file_end-~*/
/*+~lib$find_file~+*/
unsigned long int lib$find_file(
    const struct dsc$descriptor *filespec,
    struct dsc$descriptor *resultant_filespec,
    unsigned long int  *context,
    ...
    /* const struct dsc$descriptor *default_filespec, */
    /* const struct dsc$descriptor *related_filespec, */
    /* unsigned long int  *status_value, */
    /* const unsigned long int  *flags */
    ) ;
/*~-lib$find_file-~*/
/*+~lib$ffc~+*/
unsigned long int lib$ffc(
    const long int  *position,
    const unsigned char  *size,
    const int * *base,
    long int  *find_position
    ) ;
/*~-lib$ffc-~*/
/*+~lib$ffs~+*/
unsigned long int lib$ffs(
    const long int  *position,
    const unsigned char  *size,
    const int * *base,
    long int  *find_position
    ) ;
/*~-lib$ffs-~*/
/*+~lib$fid_to_name~+*/
unsigned long int lib$fid_to_name(
    const struct dsc$descriptor *device_name,
    const unsigned short int  *file_id,
    struct dsc$descriptor *filespec,
    ...
    /* unsigned short int  *filespec_length, */
    /* const unsigned short int  *directory_id [1], */
    /* unsigned long int  *acp_status */
    ) ;
/*~-lib$fid_to_name-~*/
/*+~lib$find_image_symbol~+*/
unsigned long int lib$find_image_symbol(
    const struct dsc$descriptor *filename,
    const struct dsc$descriptor *symbol,
    long int  *symbol_value,
    ...
    /* const struct dsc$descriptor *image_name */
    ) ;
/*~-lib$find_image_symbol-~*/
/*+~lib$fixup_flt~+*/
unsigned long int lib$fixup_flt(
    const int  *signal_arguments,
    const int  *mechanism_arguments,
    ...
    /* const float  *new_operand */
    ) ;
/*~-lib$fixup_flt-~*/
/*+~lib$flt_under~+*/
unsigned long int lib$flt_under(
    const unsigned long int  *new_setting
    ) ;
/*~-lib$flt_under-~*/
/*+~lib$free_lun~+*/
unsigned long int lib$free_lun(
    const long int  *logical_unit_number
    ) ;
/*~-lib$free_lun-~*/
/*+~lib$free_vm_page~+*/
unsigned long int lib$free_vm_page(
    const long int  *number_of_pages,
    const int * *base_address
    ) ;
/*~-lib$free_vm_page-~*/
/*+~lib$file_scan~+*/
unsigned long int lib$file_scan(
    const int  *fab,
    const int *user_success_procedure,
    const int *user_error_procedure,
    ...
    /* unsigned long int  *context */
    ) ;
/*~-lib$file_scan-~*/
/*+~lib$file_scan_end~+*/
unsigned long int lib$file_scan_end(
    /* int  *fab, */
    /* unsigned long int  *context */
    ) ;
/*~-lib$file_scan_end-~*/
/*+~lib$free_timer~+*/
unsigned long int lib$free_timer(
    int * *handle_address
    ) ;
/*~-lib$free_timer-~*/
/*+~lib$free_vm~+*/
unsigned long int lib$free_vm(
    const long int  *number_of_bytes,
    const int * *base_address,
    ...
    /* const unsigned long int  *zone_id */
    ) ;
/*~-lib$free_vm-~*/
/*+~lib$find_vm_zone~+*/
unsigned long int lib$find_vm_zone(
    unsigned long int  *context,
    unsigned long int  *zone_id
    ) ;
/*~-lib$find_vm_zone-~*/
/*+~lib$get_command~+*/
unsigned long int lib$get_command(
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$get_command-~*/
/*+~lib$get_common~+*/
unsigned long int lib$get_common(
    struct dsc$descriptor *resultant_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$get_common-~*/
/*+~lib$get_date_format~+*/
unsigned long int lib$get_date_format(
    struct dsc$descriptor *format_string,
    ...
    /* unsigned long int  *user_context */
    ) ;
/*~-lib$get_date_format-~*/
/*+~lib$get_maximum_date_length~+*/
unsigned long int lib$get_maximum_date_length(
    long int  *date_length,
    ...
    /* unsigned long int  *user_context, */
    /* const unsigned long int  *flags */
    ) ;
/*~-lib$get_maximum_date_length-~*/
/*+~lib$getdvi~+*/
unsigned long int lib$getdvi(
    const long int  *item_code,
    ...
    /* const unsigned short int  *channel, */
    /* const struct dsc$descriptor *device_name, */
    /* long int  *longword_integer_value, */
    /* struct dsc$descriptor *resultant_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$getdvi-~*/
/*+~lib$get_ef~+*/
unsigned long int lib$get_ef(
    unsigned long int  *event_flag_number
    ) ;
/*~-lib$get_ef-~*/
/*+~lib$get_foreign~+*/
unsigned long int lib$get_foreign(
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* unsigned short int  *resultant_length, */
    /* unsigned long int  *flags */
    ) ;
/*~-lib$get_foreign-~*/
/*+~lib$get_input~+*/
unsigned long int lib$get_input(
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$get_input-~*/
/*+~lib$getjpi~+*/
unsigned long int lib$getjpi(
    const long int  *item_code,
    ...
    /* unsigned long int  *process_id, */
    /* const struct dsc$descriptor *process_name, */
    /* int  *resultant_value, */
    /* struct dsc$descriptor *resultant_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$getjpi-~*/
/*+~lib$get_users_language~+*/
unsigned long int lib$get_users_language(
    struct dsc$descriptor *language
    ) ;
/*~-lib$get_users_language-~*/
/*+~lib$get_lun~+*/
unsigned long int lib$get_lun(
    long int  *logical_unit_number
    ) ;
/*~-lib$get_lun-~*/
/*+~lib$get_vm_page~+*/
unsigned long int lib$get_vm_page(
    const long int  *number_of_pages,
    int * *base_address
    ) ;
/*~-lib$get_vm_page-~*/
/*+~lib$getqui~+*/
unsigned long int lib$getqui(
    const long int  *function_code,
    ...
    /* const long int  *item_code, */
    /* const long int  *search_number, */
    /* const struct dsc$descriptor *search_name, */
    /* const unsigned long int  *search_flags, */
    /* int  *resultant_value, */
    /* struct dsc$descriptor *resultant_string, */
    /* short int  *resultant_length */
    ) ;
/*~-lib$getqui-~*/
/*+~lib$getsyi~+*/
unsigned long int lib$getsyi(
    const long int  *item_code,
    ...
    /* int  *resultant_value, */
    /* struct dsc$descriptor *resultant_string, */
    /* unsigned short int  *resultant_length, */
    /* unsigned long int  *cluster_system_id, */
    /* const struct dsc$descriptor *node_name */
    ) ;
/*~-lib$getsyi-~*/
/*+~lib$get_symbol~+*/
unsigned long int lib$get_symbol(
    const struct dsc$descriptor *symbol,
    struct dsc$descriptor *resultant_string,
    ...
    /* unsigned short int  *resultant_length, */
    /* long int  *table_type_indicator */
    ) ;
/*~-lib$get_symbol-~*/
/*+~lib$get_vm~+*/
unsigned long int lib$get_vm(
    const long int  *number_of_bytes,
    int * *base_address,
    ...
    /* const unsigned long int  *zone_id */
    ) ;
/*~-lib$get_vm-~*/
/*+~lib$ichar~+*/
unsigned long int lib$ichar(
    const struct dsc$descriptor *source_string
    ) ;
/*~-lib$ichar-~*/
/*+~lib$index~+*/
unsigned long int lib$index(
    const struct dsc$descriptor *source_string,
    const struct dsc$descriptor *sub_string
    ) ;
/*~-lib$index-~*/
/*+~lib$init_timer~+*/
unsigned long int lib$init_timer(
    /* unsigned long int  *context */
    ) ;
/*~-lib$init_timer-~*/
/*+~lib$insert_tree~+*/
long int lib$insert_tree(
    int * *treehead,
    const int  *symbol,
    const unsigned long int  *flags,
    const int *user_compare_routine,
    const int *user_allocation_procedure,
    int * *new_node,
    ...
    /* const int user_data */
    ) ;
/*~-lib$insert_tree-~*/
/*+~lib$insqhi~+*/
unsigned long int lib$insqhi(
    int  *entry,
    int  *header [2],
    ...
    /* const unsigned long int  *retry_count */
    ) ;
/*~-lib$insqhi-~*/
/*+~lib$insqti~+*/
unsigned long int lib$insqti(
    int  *entry,
    int  *header [2],
    ...
    /* const unsigned long int  *retry_count */
    ) ;
/*~-lib$insqti-~*/
/*+~lib$insv~+*/
int lib$insv(
    const long int  *longword_integer_source,
    const long int  *position,
    const unsigned char  *size,
    const unsigned long int base_address
    ) ;
/*~-lib$insv-~*/
/*+~lib$int_over~+*/
unsigned long int lib$int_over(
    const unsigned long int  *new_setting
    ) ;
/*~-lib$int_over-~*/
/*+~lib$init_date_time_context~+*/
unsigned long int lib$init_date_time_context(
    unsigned long int  *user_context,
    const long int  *component,
    const struct dsc$descriptor *init_string
    ) ;
/*~-lib$init_date_time_context-~*/
/*+~lib$len~+*/
unsigned short int lib$len(
    const struct dsc$descriptor *source_string
    ) ;
/*~-lib$len-~*/
/*+~lib$locc~+*/
unsigned long int lib$locc(
    const struct dsc$descriptor *character_string,
    const struct dsc$descriptor *source_string
    ) ;
/*~-lib$locc-~*/
/*+~lib$lookup_key~+*/
unsigned long int lib$lookup_key(
    const struct dsc$descriptor *search_string,
    const int  *key_table_array,
    ...
    /* unsigned long int  *key_value, */
    /* struct dsc$descriptor *keyword_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$lookup_key-~*/
/*+~lib$lookup_tree~+*/
unsigned long int lib$lookup_tree(
    const int * *treehead,
    const int  *symbol,
    const int *user_compare_routine,
    int * *new_node
    ) ;
/*~-lib$lookup_tree-~*/
/*+~lib$lp_lines~+*/
long int lib$lp_lines() ;
/*~-lib$lp_lines-~*/
/*+~lib$matchc~+*/
unsigned long int lib$matchc(
    const struct dsc$descriptor *sub_string,
    const struct dsc$descriptor *source_string
    ) ;
/*~-lib$matchc-~*/
/*+~lib$match_cond~+*/
unsigned long int lib$match_cond(
    const unsigned long int  *match_condition_value,
    const unsigned long int  *compare_condition_value
    ) ;
/*~-lib$match_cond-~*/
/*+~lib$movc3~+*/
int lib$movc3(
    const unsigned short int  *word_integer_length,
    const int  *source,
    int  *destination
    ) ;
/*~-lib$movc3-~*/
/*+~lib$movc5~+*/
int lib$movc5(
    const unsigned short int  *word_integer_source_length,
    const int  *source,
    const char  *fill,
    const unsigned short int  *word_integer_destination_length,
    int  *destination
    ) ;
/*~-lib$movc5-~*/
/*+~lib$movtc~+*/
unsigned long int lib$movtc(
    const struct dsc$descriptor *source_string,
    const struct dsc$descriptor *fill_character,
    const struct dsc$descriptor *translation_table,
    struct dsc$descriptor *destination_string
    ) ;
/*~-lib$movtc-~*/
/*+~lib$movtuc~+*/
unsigned long int lib$movtuc(
    const struct dsc$descriptor *source_string,
    const struct dsc$descriptor *stop_character,
    const struct dsc$descriptor *translation_table,
    struct dsc$descriptor *destination_string,
    ...
    /* const struct dsc$descriptor *fill_character */
    ) ;
/*~-lib$movtuc-~*/
/*+~lib$mult_delta_time~+*/
unsigned long int lib$mult_delta_time(
    const long int  *multiplier,
    unsigned int  *delta_time [2]
    ) ;
/*~-lib$mult_delta_time-~*/
/*+~lib$multf_delta_time~+*/
unsigned long int lib$multf_delta_time(
    const float  *multiplier,
    unsigned int  *delta_time [2]
    ) ;
/*~-lib$multf_delta_time-~*/
/*+~lib$pause~+*/
unsigned long int lib$pause() ;
/*~-lib$pause-~*/
/*+~lib$polyd~+*/
unsigned long int lib$polyd(
    const double float  *polynomial_argument,
    const short int  *degree,
    const double float  *coefficient [1],
    double float  *floating_point_result
    ) ;
/*~-lib$polyd-~*/
/*+~lib$polyf~+*/
unsigned long int lib$polyf(
    const float  *polynomial_argument,
    const short int  *degree,
    const float  *coefficient [1],
    float  *floating_point_result
    ) ;
/*~-lib$polyf-~*/
/*+~lib$polyg~+*/
unsigned long int lib$polyg(
    const double float  *polynomial_argument,
    const short int  *degree,
    const double float  *coefficient [1],
    double float  *floating_point_result
    ) ;
/*~-lib$polyg-~*/
/*+~lib$polyh~+*/
unsigned long int lib$polyh(
    const struct {int polynomi$$ret_0_ [4];}  *polynomial_argument,
    const short int  *degree,
    const struct {int coeffici$$ret_0_ [4];}  *coefficient [1],
    struct {int floating$$ret_0_ [4];}  *floating_point_result
    ) ;
/*~-lib$polyh-~*/
/*+~lib$put_common~+*/
unsigned long int lib$put_common(
    const struct dsc$descriptor *source_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$put_common-~*/
/*+~lib$put_output~+*/
unsigned long int lib$put_output(
    const struct dsc$descriptor *message_string
    ) ;
/*~-lib$put_output-~*/
/*+~lib$radix_point~+*/
unsigned long int lib$radix_point(
    struct dsc$descriptor *radix_point_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$radix_point-~*/
/*+~lib$remqhi~+*/
unsigned long int lib$remqhi(
    int  *header [2],
    int * *remque_address,
    ...
    /* const unsigned long int  *retry_count */
    ) ;
/*~-lib$remqhi-~*/
/*+~lib$remqti~+*/
unsigned long int lib$remqti(
    int  *header [2],
    int * *remque_address,
    ...
    /* const unsigned long int  *retry_count */
    ) ;
/*~-lib$remqti-~*/
/*+~lib$rename_file~+*/
unsigned long int lib$rename_file(
    const struct dsc$descriptor *old_filespec,
    const struct dsc$descriptor *new_filespec,
    ...
    /* const struct dsc$descriptor *default_filespec, */
    /* const struct dsc$descriptor *related_filespec, */
    /* const unsigned long int  *flags, */
    /* const int *user_success_procedure, */
    /* const int *user_error_procedure, */
    /* const int *user_confirm_procedure, */
    /* const int user_specified_argument, */
    /* struct dsc$descriptor *old_resultant_name, */
    /* struct dsc$descriptor *new_resultant_name, */
    /* unsigned long int  *file_scan_context */
    ) ;
/*~-lib$rename_file-~*/
/*+~lib$reserve_ef~+*/
unsigned long int lib$reserve_ef(
    const unsigned long int  *event_flag_number
    ) ;
/*~-lib$reserve_ef-~*/
/*+~lib$reset_vm_zone~+*/
unsigned long int lib$reset_vm_zone(
    const unsigned long int  *zone_id
    ) ;
/*~-lib$reset_vm_zone-~*/
/*+~lib$revert~+*/
int *lib$revert() ;
/*~-lib$revert-~*/
/*+~lib$run_program~+*/
unsigned long int lib$run_program(
    const struct dsc$descriptor *program_name
    ) ;
/*~-lib$run_program-~*/
/*+~lib$sys_asctim~+*/
unsigned long int lib$sys_asctim(
    unsigned short int  *resultant_length,
    struct dsc$descriptor *time_string,
    ...
    /* const unsigned int  *user_time [2], */
    /* const unsigned long int  *flags */
    ) ;
/*~-lib$sys_asctim-~*/
/*+~lib$scanc~+*/
unsigned long int lib$scanc(
    const struct dsc$descriptor *source_string,
    const unsigned char  *table_array [1],
    const unsigned char  *byte_integer_mask
    ) ;
/*~-lib$scanc-~*/
/*+~lib$scopy_dxdx~+*/
unsigned long int lib$scopy_dxdx(
    const struct dsc$descriptor *source_string,
    struct dsc$descriptor *destination_string
    ) ;
/*~-lib$scopy_dxdx-~*/
/*+~lib$scopy_r_dx~+*/
unsigned long int lib$scopy_r_dx(
    const unsigned short int  *word_integer_source_length,
    const int *source_string_address,
    const struct dsc$descriptor *destination_string
    ) ;
/*~-lib$scopy_r_dx-~*/
/*+~lib$set_logical~+*/
unsigned long int lib$set_logical(
    const struct dsc$descriptor *logical_name,
    ...
    /* const struct dsc$descriptor *value_string, */
    /* const struct dsc$descriptor *table, */
    /* const unsigned long int  *attributes, */
    /* const int  *item_list */
    ) ;
/*~-lib$set_logical-~*/
/*+~lib$set_symbol~+*/
unsigned long int lib$set_symbol(
    const struct dsc$descriptor *symbol,
    const struct dsc$descriptor *value_string,
    ...
    /* const long int  *table_type_indicator */
    ) ;
/*~-lib$set_symbol-~*/
/*+~lib$sys_fao~+*/
unsigned long int lib$sys_fao(
    const struct dsc$descriptor *character_string,
    unsigned short int  *resultant_length,
    struct dsc$descriptor *resultant_string,
    ...
    /* const int  *directive_argument */
    ) ;
/*~-lib$sys_fao-~*/
/*+~lib$sys_faol~+*/
unsigned long int lib$sys_faol(
    const struct dsc$descriptor *character_string,
    unsigned short int  *resultant_length,
    struct dsc$descriptor *resultant_string,
    const unsigned long int  *directive_argument_address [1]
    ) ;
/*~-lib$sys_faol-~*/
/*+~lib$sfree1_dd~+*/
unsigned long int lib$sfree1_dd(
    unsigned int  *descriptor_address [2]
    ) ;
/*~-lib$sfree1_dd-~*/
/*+~lib$sfreen_dd~+*/
unsigned long int lib$sfreen_dd(
    const unsigned long int  *number_of_descriptors,
    unsigned int  *first_descriptor_array [2] [1]
    ) ;
/*~-lib$sfreen_dd-~*/
/*+~lib$sget1_dd~+*/
unsigned long int lib$sget1_dd(
    const unsigned short int  *word_integer_length,
    unsigned int  *descriptor_part [2]
    ) ;
/*~-lib$sget1_dd-~*/
/*+~lib$sys_getmsg~+*/
unsigned long int lib$sys_getmsg(
    const unsigned long int  *message_id,
    unsigned short int  *message_length,
    struct dsc$descriptor *destination_string,
    ...
    /* const unsigned long int  *flags, */
    /* int  *unsigned_resultant_array */
    ) ;
/*~-lib$sys_getmsg-~*/
/*+~lib$show_timer~+*/
unsigned long int lib$show_timer(
    /* const int * *handle_address, */
    /* const long int  *code, */
    /* const int *user_action_procedure, */
    /* const int user_argument_value */
    ) ;
/*~-lib$show_timer-~*/
/*+~lib$show_vm~+*/
unsigned long int lib$show_vm(
    /* const long int  *code, */
    /* const int *user_action_procedure, */
    /* const int user_specified_argument */
    ) ;
/*~-lib$show_vm-~*/
/*+~lib$show_vm_zone~+*/
unsigned long int lib$show_vm_zone(
    const unsigned long int  *zone_id,
    ...
    /* const long int  *detail_level, */
    /* const int *user_action_procedure, */
    /* const int user_arg */
    ) ;
/*~-lib$show_vm_zone-~*/
/*+~lib$signal~+*/
int lib$signal(
    const unsigned long int condition_value,
    ...
    /* const long int number_of_arguments, */
    /* const int fao_argument */
    ) ;
/*~-lib$signal-~*/
/*+~lib$sig_to_ret~+*/
unsigned long int lib$sig_to_ret(
    const int  *signal_arguments,
    const int  *mechanism_arguments
    ) ;
/*~-lib$sig_to_ret-~*/
/*+~lib$sig_to_stop~+*/
unsigned long int lib$sig_to_stop(
    int  *signal_arguments,
    const int  *mechanism_arguments
    ) ;
/*~-lib$sig_to_stop-~*/
/*+~lib$sim_trap~+*/
unsigned long int lib$sim_trap(
    int  *signal_arguments,
    const int  *mechanism_arguments
    ) ;
/*~-lib$sim_trap-~*/
/*+~lib$skpc~+*/
unsigned long int lib$skpc(
    const struct dsc$descriptor *character_string,
    const struct dsc$descriptor *source_string
    ) ;
/*~-lib$skpc-~*/
/*+~lib$spanc~+*/
unsigned long int lib$spanc(
    const struct dsc$descriptor *source_string,
    const unsigned char  *table_array [1],
    const unsigned char  *byte_integer_mask
    ) ;
/*~-lib$spanc-~*/
/*+~lib$spawn~+*/
unsigned long int lib$spawn(
    /* const struct dsc$descriptor *command_string, */
    /* const struct dsc$descriptor *input_file, */
    /* const struct dsc$descriptor *output_file, */
    /* const unsigned long int  *flags, */
    /* const struct dsc$descriptor *process_name, */
    /* unsigned long int  *process_id, */
    /* const int *completion_status_address, */
    /* const unsigned char  *byte_integer_event_flag_num, */
    /* const int *ast_address, */
    /* const int varying_ast_argument, */
    /* const struct dsc$descriptor *prompt_string, */
    /* const struct dsc$descriptor *cli */
    ) ;
/*~-lib$spawn-~*/
/*+~lib$stat_timer~+*/
unsigned long int lib$stat_timer(
    const long int  *code,
    int  *value_argument,
    ...
    /* const int * *handle_address */
    ) ;
/*~-lib$stat_timer-~*/
/*+~lib$stat_vm~+*/
unsigned long int lib$stat_vm(
    const long int  *code,
    int  *value_argument
    ) ;
/*~-lib$stat_vm-~*/
/*+~lib$stop~+*/
int lib$stop(
    const unsigned long int condition_value,
    ...
    /* const long int number_of_arguments, */
    /* const int fao_argument */
    ) ;
/*~-lib$stop-~*/
/*+~lib$sys_trnlog~+*/
unsigned long int lib$sys_trnlog(
    const struct dsc$descriptor *logical_name,
    unsigned short int  *word_integer_dest_length,
    struct dsc$descriptor *destination_string,
    ...
    /* char  *byte_integer_table, */
    /* unsigned char  *access_mode, */
    /* const unsigned char  *byte_integer_disable_mask */
    ) ;
/*~-lib$sys_trnlog-~*/
/*+~lib$stat_vm_zone~+*/
unsigned long int lib$stat_vm_zone(
    const unsigned long int  *zone_id,
    const long int  *item_code,
    ...
    /* long int  *resultant_value, */
    /* struct dsc$descriptor *resultant_string, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$stat_vm_zone-~*/
/*+~lib$sub_times~+*/
unsigned long int lib$sub_times(
    const unsigned int  *time1 [2],
    const unsigned int  *time2 [2],
    unsigned int  *resultant_time [2]
    ) ;
/*~-lib$sub_times-~*/
/*+~lib$subx~+*/
unsigned long int lib$subx(
    const int  *minuend_array,
    const int  *subtrahend_array,
    int  *difference_array,
    ...
    /* const long int  *array_length */
    ) ;
/*~-lib$subx-~*/
/*+~lib$tparse~+*/
unsigned long int lib$tparse(
    int * *argument_block,
    const int * *state_table,
    const int * *key_table
    ) ;
/*~-lib$tparse-~*/
/*+~lib$tra_asc_ebc~+*/
unsigned long int lib$tra_asc_ebc(
    const struct dsc$descriptor *source_string,
    struct dsc$descriptor *byte_integer_dest_string
    ) ;
/*~-lib$tra_asc_ebc-~*/
/*+~lib$tra_ebc_asc~+*/
unsigned long int lib$tra_ebc_asc(
    const struct dsc$descriptor *byte_integer_source_string,
    struct dsc$descriptor *destination_string
    ) ;
/*~-lib$tra_ebc_asc-~*/
/*+~lib$traverse_tree~+*/
unsigned long int lib$traverse_tree(
    const int * *treehead,
    const int *user_action_procedure,
    ...
    /* const int  *user_data_address */
    ) ;
/*~-lib$traverse_tree-~*/
/*+~lib$trim_filespec~+*/
unsigned long int lib$trim_filespec(
    const struct dsc$descriptor *old_filespec,
    struct dsc$descriptor *new_filespec,
    ...
    /* const unsigned short int  *word_integer_width, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-lib$trim_filespec-~*/
/*+~lib$verify_vm_zone~+*/
unsigned long int lib$verify_vm_zone(
    const unsigned long int  *zone_id
    ) ;
/*~-lib$verify_vm_zone-~*/
/*+~lib$wait~+*/
unsigned long int lib$wait(
    const float  *seconds
    ) ;
/*~-lib$wait-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  8-AUG-1988 10:17:25 EMULEX$DISK:[MEADOWS.UNSDL.VMS5-0_H]MTH$ROUTINE */
#ifndef MTH$ROUTINES.TEMPLATE_
#define MTH$ROUTINES.TEMPLATE_
 
/*** MODULE MTH$ROUTINES ***/
/*+~mth$acos~+*/
float mth$acos(
    const float  *cosine
    ) ;
/*~-mth$acos-~*/
/*+~mth$dacos~+*/
double float mth$dacos(
    const double float  *cosine
    ) ;
/*~-mth$dacos-~*/
/*+~mth$gacos~+*/
double float mth$gacos(
    const double float  *cosine
    ) ;
/*~-mth$gacos-~*/
/*+~mth$acosd~+*/
float mth$acosd(
    const float  *cosine
    ) ;
/*~-mth$acosd-~*/
/*+~mth$dacosd~+*/
double float mth$dacosd(
    const double float  *cosine
    ) ;
/*~-mth$dacosd-~*/
/*+~mth$gacosd~+*/
double float mth$gacosd(
    const double float  *cosine
    ) ;
/*~-mth$gacosd-~*/
/*+~mth$asin~+*/
float mth$asin(
    const float  *sine
    ) ;
/*~-mth$asin-~*/
/*+~mth$dasin~+*/
double float mth$dasin(
    const double float  *sine
    ) ;
/*~-mth$dasin-~*/
/*+~mth$gasin~+*/
double float mth$gasin(
    const double float  *sine
    ) ;
/*~-mth$gasin-~*/
/*+~mth$asind~+*/
float mth$asind(
    const float  *sine
    ) ;
/*~-mth$asind-~*/
/*+~mth$dasind~+*/
double float mth$dasind(
    const double float  *sine
    ) ;
/*~-mth$dasind-~*/
/*+~mth$gasind~+*/
double float mth$gasind(
    const double float  *sine
    ) ;
/*~-mth$gasind-~*/
/*+~mth$atan~+*/
float mth$atan(
    const float  *tangent
    ) ;
/*~-mth$atan-~*/
/*+~mth$datan~+*/
double float mth$datan(
    const double float  *tangent
    ) ;
/*~-mth$datan-~*/
/*+~mth$gatan~+*/
double float mth$gatan(
    const double float  *tangent
    ) ;
/*~-mth$gatan-~*/
/*+~mth$atan2~+*/
float mth$atan2(
    const float  *sine,
    const float  *cosine
    ) ;
/*~-mth$atan2-~*/
/*+~mth$datan2~+*/
double float mth$datan2(
    const double float  *sine,
    const double float  *cosine
    ) ;
/*~-mth$datan2-~*/
/*+~mth$gatan2~+*/
double float mth$gatan2(
    const double float  *sine,
    const double float  *cosine
    ) ;
/*~-mth$gatan2-~*/
/*+~mth$atand~+*/
float mth$atand(
    const float  *tangent
    ) ;
/*~-mth$atand-~*/
/*+~mth$datand~+*/
double float mth$datand(
    const double float  *tangent
    ) ;
/*~-mth$datand-~*/
/*+~mth$gatand~+*/
double float mth$gatand(
    const double float  *tangent
    ) ;
/*~-mth$gatand-~*/
/*+~mth$atanh~+*/
float mth$atanh(
    const float  *hyperbolic_tangent
    ) ;
/*~-mth$atanh-~*/
/*+~mth$datanh~+*/
double float mth$datanh(
    const double float  *hyperbolic_tangent
    ) ;
/*~-mth$datanh-~*/
/*+~mth$gatanh~+*/
double float mth$gatanh(
    const double float  *hyperbolic_tangent
    ) ;
/*~-mth$gatanh-~*/
/*+~mth$atand2~+*/
float mth$atand2(
    const float  *sine,
    const float  *cosine
    ) ;
/*~-mth$atand2-~*/
/*+~mth$datand2~+*/
double float mth$datand2(
    const double float  *sine,
    const double float  *cosine
    ) ;
/*~-mth$datand2-~*/
/*+~mth$gatand2~+*/
double float mth$gatand2(
    const double float  *sine,
    const double float  *cosine
    ) ;
/*~-mth$gatand2-~*/
/*+~mth$cabs~+*/
float mth$cabs(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cabs-~*/
/*+~mth$cdabs~+*/
double float mth$cdabs(
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdabs-~*/
/*+~mth$cgabs~+*/
double float mth$cgabs(
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cgabs-~*/
/*+~mth$ccos~+*/
FFLOAT_COMPLEXmth$ccos(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$ccos-~*/
/*+~mth$cexp~+*/
FFLOAT_COMPLEXmth$cexp(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cexp-~*/
/*+~mth$clog~+*/
FFLOAT_COMPLEXmth$clog(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$clog-~*/
/*+~mth$cmplx~+*/
FFLOAT_COMPLEXmth$cmplx(
    const float  *real_part,
    const float  *imaginary_part
    ) ;
/*~-mth$cmplx-~*/
/*+~mth$dcmplx~+*/
int mth$dcmplx(
    DFLOAT_COMPLEX *complx,
    const double float  *real_part,
    const double float  *imaginary_part
    ) ;
/*~-mth$dcmplx-~*/
/*+~mth$gcmplx~+*/
int mth$gcmplx(
    GFLOAT_COMPLEX *complx,
    const double float  *real_part,
    const double float  *imaginary_part
    ) ;
/*~-mth$gcmplx-~*/
/*+~mth$conjg~+*/
FFLOAT_COMPLEXmth$conjg(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$conjg-~*/
/*+~mth$dconjg~+*/
int mth$dconjg(
    DFLOAT_COMPLEX *complex_conjugate,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$dconjg-~*/
/*+~mth$gconjg~+*/
int mth$gconjg(
    GFLOAT_COMPLEX *complex_conjugate,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$gconjg-~*/
/*+~mth$cos~+*/
float mth$cos(
    const float  *angle_in_radians
    ) ;
/*~-mth$cos-~*/
/*+~mth$dcos~+*/
double float mth$dcos(
    const double float  *angle_in_radians
    ) ;
/*~-mth$dcos-~*/
/*+~mth$gcos~+*/
double float mth$gcos(
    const double float  *angle_in_radians
    ) ;
/*~-mth$gcos-~*/
/*+~mth$cosd~+*/
float mth$cosd(
    const float  *angle_in_degrees
    ) ;
/*~-mth$cosd-~*/
/*+~mth$dcosd~+*/
double float mth$dcosd(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$dcosd-~*/
/*+~mth$gcosd~+*/
double float mth$gcosd(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$gcosd-~*/
/*+~mth$cosh~+*/
float mth$cosh(
    const float  *floating_point_input_value
    ) ;
/*~-mth$cosh-~*/
/*+~mth$dcosh~+*/
double float mth$dcosh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dcosh-~*/
/*+~mth$gcosh~+*/
double float mth$gcosh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$gcosh-~*/
/*+~mth$csin~+*/
FFLOAT_COMPLEXmth$csin(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$csin-~*/
/*+~mth$csqrt~+*/
FFLOAT_COMPLEXmth$csqrt(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$csqrt-~*/
/*+~mth$cvt_d_g~+*/
double float mth$cvt_d_g(
    const double float  *floating_point_input_val
    ) ;
/*~-mth$cvt_d_g-~*/
/*+~mth$cvt_g_d~+*/
double float mth$cvt_g_d(
    const double float  *floating_point_input_val
    ) ;
/*~-mth$cvt_g_d-~*/
/*+~mth$cvt_da_ga~+*/
int mth$cvt_da_ga(
    const double float  *floating_point_input_array [1],
    double float  *floating_point_dest_array [1],
    ...
    /* const long int  *array_size */
    ) ;
/*~-mth$cvt_da_ga-~*/
/*+~mth$cvt_ga_da~+*/
int mth$cvt_ga_da(
    const double float  *floating_point_input_array [1],
    double float  *floating_point_dest_array [1],
    ...
    /* const long int  *array_size */
    ) ;
/*~-mth$cvt_ga_da-~*/
/*+~mth$cdcos~+*/
int mth$cdcos(
    DFLOAT_COMPLEX *complex_cosine,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdcos-~*/
/*+~mth$cgcos~+*/
int mth$cgcos(
    GFLOAT_COMPLEX *complex_cosine,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cgcos-~*/
/*+~mth$cdexp~+*/
int mth$cdexp(
    DFLOAT_COMPLEX *complex_exponent,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdexp-~*/
/*+~mth$cgexp~+*/
int mth$cgexp(
    GFLOAT_COMPLEX *complex_exponent,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cgexp-~*/
/*+~mth$cdlog~+*/
int mth$cdlog(
    DFLOAT_COMPLEX *complex_natural_log,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdlog-~*/
/*+~mth$cglog~+*/
int mth$cglog(
    GFLOAT_COMPLEX *complex_natural_log,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cglog-~*/
/*+~mth$cdsin~+*/
int mth$cdsin(
    DFLOAT_COMPLEX *complex_sine,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdsin-~*/
/*+~mth$cgsin~+*/
int mth$cgsin(
    GFLOAT_COMPLEX *complex_sine,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cgsin-~*/
/*+~mth$cdsqrt~+*/
int mth$cdsqrt(
    DFLOAT_COMPLEX *complex_square_root,
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cdsqrt-~*/
/*+~mth$cgsqrt~+*/
int mth$cgsqrt(
    GFLOAT_COMPLEX *complex_square_root,
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$cgsqrt-~*/
/*+~mth$exp~+*/
float mth$exp(
    const float  *floating_point_input_value
    ) ;
/*~-mth$exp-~*/
/*+~mth$dexp~+*/
double float mth$dexp(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dexp-~*/
/*+~mth$gexp~+*/
double float mth$gexp(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$gexp-~*/
/*+~mth$hacos~+*/
int mth$hacos(
    struct {int h_radian$$ret_0_ [4];}  *h_radians,
    const struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hacos-~*/
/*+~mth$hacosd~+*/
int mth$hacosd(
    struct {int h_degree$$ret_0_ [4];}  *h_degrees,
    const struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hacosd-~*/
/*+~mth$hasin~+*/
int mth$hasin(
    struct {int h_radian$$ret_0_ [4];}  *h_radians,
    const struct {int sine$$ret_0_ [4];}  *sine
    ) ;
/*~-mth$hasin-~*/
/*+~mth$hasind~+*/
int mth$hasind(
    struct {int h_degree$$ret_0_ [4];}  *h_degrees,
    const struct {int sine$$ret_0_ [4];}  *sine
    ) ;
/*~-mth$hasind-~*/
/*+~mth$hatan~+*/
int mth$hatan(
    struct {int h_radian$$ret_0_ [4];}  *h_radians,
    const struct {int tangent$$ret_0_ [4];}  *tangent
    ) ;
/*~-mth$hatan-~*/
/*+~mth$hatan2~+*/
int mth$hatan2(
    struct {int h_radian$$ret_0_ [4];}  *h_radians,
    const struct {int sine$$ret_0_ [4];}  *sine,
    const struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hatan2-~*/
/*+~mth$hatand~+*/
int mth$hatand(
    struct {int h_degree$$ret_0_ [4];}  *h_degrees,
    const struct {int tangent$$ret_0_ [4];}  *tangent
    ) ;
/*~-mth$hatand-~*/
/*+~mth$hatanh~+*/
int mth$hatanh(
    struct {int h_atanh$$ret_0_ [4];}  *h_atanh,
    const struct {int hyperbol$$ret_0_ [4];}  *hyperbolic_tangent
    ) ;
/*~-mth$hatanh-~*/
/*+~mth$hcos~+*/
int mth$hcos(
    struct {int h_cosine$$ret_0_ [4];}  *h_cosine,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_radians
    ) ;
/*~-mth$hcos-~*/
/*+~mth$hcosd~+*/
int mth$hcosd(
    struct {int h_cosine$$ret_0_ [4];}  *h_cosine,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_degrees
    ) ;
/*~-mth$hcosd-~*/
/*+~mth$hcosh~+*/
int mth$hcosh(
    struct {int h_cosh$$ret_0_ [4];}  *h_cosh,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hcosh-~*/
/*+~mth$hexp~+*/
int mth$hexp(
    struct {int h_exp$$ret_0_ [4];}  *h_exp,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hexp-~*/
/*+~mth$hlog10~+*/
int mth$hlog10(
    struct {int h_log10$$ret_0_ [4];}  *h_log10,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hlog10-~*/
/*+~mth$hlog~+*/
int mth$hlog(
    struct {int h_natlog$$ret_0_ [4];}  *h_natlog,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hlog-~*/
/*+~mth$hlog2~+*/
int mth$hlog2(
    struct {int h_log2$$ret_0_ [4];}  *h_log2,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hlog2-~*/
/*+~mth$hsin~+*/
int mth$hsin(
    struct {int h_sine$$ret_0_ [4];}  *h_sine,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_radians
    ) ;
/*~-mth$hsin-~*/
/*+~mth$hsind~+*/
int mth$hsind(
    struct {int h_sine$$ret_0_ [4];}  *h_sine,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_degrees
    ) ;
/*~-mth$hsind-~*/
/*+~mth$hsinh~+*/
int mth$hsinh(
    struct {int h_sinh$$ret_0_ [4];}  *h_sinh,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hsinh-~*/
/*+~mth$hsqrt~+*/
int mth$hsqrt(
    struct {int h_sqrt$$ret_0_ [4];}  *h_sqrt,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$hsqrt-~*/
/*+~mth$htan~+*/
int mth$htan(
    struct {int h_tan$$ret_0_ [4];}  *h_tan,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_radians
    ) ;
/*~-mth$htan-~*/
/*+~mth$htand~+*/
int mth$htand(
    struct {int h_tan$$ret_0_ [4];}  *h_tan,
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_degrees
    ) ;
/*~-mth$htand-~*/
/*+~mth$htanh~+*/
int mth$htanh(
    struct {int h_tanh$$ret_0_ [4];}  *h_tanh,
    const struct {int floating$$ret_0_ [4];}  *floating_point_input_value
    ) ;
/*~-mth$htanh-~*/
/*+~mth$hatand2~+*/
int mth$hatand2(
    struct {int h_degree$$ret_0_ [4];}  *h_degrees,
    const struct {int sine$$ret_0_ [4];}  *sine,
    const struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hatand2-~*/
/*+~mth$aimag~+*/
float mth$aimag(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$aimag-~*/
/*+~mth$dimag~+*/
double float mth$dimag(
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$dimag-~*/
/*+~mth$gimag~+*/
double float mth$gimag(
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$gimag-~*/
/*+~mth$alog~+*/
float mth$alog(
    const float  *floating_point_input_value
    ) ;
/*~-mth$alog-~*/
/*+~mth$dlog~+*/
double float mth$dlog(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dlog-~*/
/*+~mth$glog~+*/
double float mth$glog(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$glog-~*/
/*+~mth$alog10~+*/
float mth$alog10(
    const float  *floating_point_input_value
    ) ;
/*~-mth$alog10-~*/
/*+~mth$dlog10~+*/
double float mth$dlog10(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dlog10-~*/
/*+~mth$glog10~+*/
double float mth$glog10(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$glog10-~*/
/*+~mth$alog2~+*/
float mth$alog2(
    const float  *floating_point_input_value
    ) ;
/*~-mth$alog2-~*/
/*+~mth$dlog2~+*/
double float mth$dlog2(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dlog2-~*/
/*+~mth$glog2~+*/
double float mth$glog2(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$glog2-~*/
/*+~mth$random~+*/
float mth$random(
    unsigned long int  *seed
    ) ;
/*~-mth$random-~*/
/*+~mth$real~+*/
float mth$real(
    const FFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$real-~*/
/*+~mth$dreal~+*/
double float mth$dreal(
    const DFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$dreal-~*/
/*+~mth$greal~+*/
double float mth$greal(
    const GFLOAT_COMPLEX *complex_number
    ) ;
/*~-mth$greal-~*/
/*+~mth$sin~+*/
float mth$sin(
    const float  *angle_in_radians
    ) ;
/*~-mth$sin-~*/
/*+~mth$dsin~+*/
double float mth$dsin(
    const double float  *angle_in_radians
    ) ;
/*~-mth$dsin-~*/
/*+~mth$gsin~+*/
double float mth$gsin(
    const double float  *angle_in_radians
    ) ;
/*~-mth$gsin-~*/
/*+~mth$sind~+*/
float mth$sind(
    const float  *angle_in_degrees
    ) ;
/*~-mth$sind-~*/
/*+~mth$dsind~+*/
double float mth$dsind(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$dsind-~*/
/*+~mth$gsind~+*/
double float mth$gsind(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$gsind-~*/
/*+~mth$sinh~+*/
float mth$sinh(
    const float  *floating_point_input_value
    ) ;
/*~-mth$sinh-~*/
/*+~mth$dsinh~+*/
double float mth$dsinh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dsinh-~*/
/*+~mth$gsinh~+*/
double float mth$gsinh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$gsinh-~*/
/*+~mth$sincos~+*/
int mth$sincos(
    const float  *angle_in_radians,
    float  *sine,
    float  *cosine
    ) ;
/*~-mth$sincos-~*/
/*+~mth$dsincos~+*/
int mth$dsincos(
    const double float  *angle_in_radians,
    double float  *sine,
    double float  *cosine
    ) ;
/*~-mth$dsincos-~*/
/*+~mth$gsincos~+*/
int mth$gsincos(
    const double float  *angle_in_radians,
    double float  *sine,
    double float  *cosine
    ) ;
/*~-mth$gsincos-~*/
/*+~mth$hsincos~+*/
int mth$hsincos(
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_radians,
    struct {int sine$$ret_0_ [4];}  *sine,
    struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hsincos-~*/
/*+~mth$sincosd~+*/
int mth$sincosd(
    const float  *angle_in_degrees,
    float  *sine,
    float  *cosine
    ) ;
/*~-mth$sincosd-~*/
/*+~mth$dsincosd~+*/
int mth$dsincosd(
    const double float  *angle_in_degrees,
    double float  *sine,
    double float  *cosine
    ) ;
/*~-mth$dsincosd-~*/
/*+~mth$gsincosd~+*/
int mth$gsincosd(
    const double float  *angle_in_degrees,
    double float  *sine,
    double float  *cosine
    ) ;
/*~-mth$gsincosd-~*/
/*+~mth$hsincosd~+*/
int mth$hsincosd(
    const struct {int angle_in$$ret_0_ [4];}  *angle_in_degrees,
    struct {int sine$$ret_0_ [4];}  *sine,
    struct {int cosine$$ret_0_ [4];}  *cosine
    ) ;
/*~-mth$hsincosd-~*/
/*+~mth$sqrt~+*/
float mth$sqrt(
    const float  *floating_point_input_value
    ) ;
/*~-mth$sqrt-~*/
/*+~mth$dsqrt~+*/
double float mth$dsqrt(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dsqrt-~*/
/*+~mth$gsqrt~+*/
double float mth$gsqrt(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$gsqrt-~*/
/*+~mth$tan~+*/
float mth$tan(
    const float  *angle_in_radians
    ) ;
/*~-mth$tan-~*/
/*+~mth$dtan~+*/
double float mth$dtan(
    const double float  *angle_in_radians
    ) ;
/*~-mth$dtan-~*/
/*+~mth$gtan~+*/
double float mth$gtan(
    const double float  *angle_in_radians
    ) ;
/*~-mth$gtan-~*/
/*+~mth$tand~+*/
float mth$tand(
    const float  *angle_in_degrees
    ) ;
/*~-mth$tand-~*/
/*+~mth$dtand~+*/
double float mth$dtand(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$dtand-~*/
/*+~mth$gtand~+*/
double float mth$gtand(
    const double float  *angle_in_degrees
    ) ;
/*~-mth$gtand-~*/
/*+~mth$tanh~+*/
float mth$tanh(
    const float  *floating_point_input_value
    ) ;
/*~-mth$tanh-~*/
/*+~mth$dtanh~+*/
double float mth$dtanh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$dtanh-~*/
/*+~mth$gtanh~+*/
double float mth$gtanh(
    const double float  *floating_point_input_value
    ) ;
/*~-mth$gtanh-~*/
/*+~mth$umax~+*/
unsigned long int mth$umax(
    const unsigned long int  *argument
    ) ;
/*~-mth$umax-~*/
/*+~mth$umin~+*/
unsigned long int mth$umin(
    const unsigned long int  *argument
    ) ;
/*~-mth$umin-~*/
/*+~mth$abs~+*/
float mth$abs(
    const float  *f_floating
    ) ;
/*~-mth$abs-~*/
/*+~mth$dabs~+*/
double float mth$dabs(
    const double float  *d_floating
    ) ;
/*~-mth$dabs-~*/
/*+~mth$gabs~+*/
double float mth$gabs(
    const double float  *g_floating
    ) ;
/*~-mth$gabs-~*/
/*+~mth$habs~+*/
int mth$habs(
    struct {int h_abs_va$$ret_0_ [4];}  *h_abs_val,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$habs-~*/
/*+~mth$iiabs~+*/
short int mth$iiabs(
    const short int  *word
    ) ;
/*~-mth$iiabs-~*/
/*+~mth$jiabs~+*/
long int mth$jiabs(
    const long int  *longword
    ) ;
/*~-mth$jiabs-~*/
/*+~mth$iiand~+*/
unsigned short int mth$iiand(
    const unsigned short int  *word1,
    const unsigned short int  *word2
    ) ;
/*~-mth$iiand-~*/
/*+~mth$jiand~+*/
unsigned long int mth$jiand(
    const unsigned long int  *longword1,
    const unsigned long int  *longword2
    ) ;
/*~-mth$jiand-~*/
/*+~mth$dble~+*/
double float mth$dble(
    const float  *f_floating
    ) ;
/*~-mth$dble-~*/
/*+~mth$gdble~+*/
double float mth$gdble(
    const float  *f_floating
    ) ;
/*~-mth$gdble-~*/
/*+~mth$dim~+*/
float mth$dim(
    const float  *f_floating1,
    const float  *f_floating2
    ) ;
/*~-mth$dim-~*/
/*+~mth$ddim~+*/
double float mth$ddim(
    const double float  *d_floating1,
    const double float  *d_floating2
    ) ;
/*~-mth$ddim-~*/
/*+~mth$gdim~+*/
double float mth$gdim(
    const double float  *g_floating1,
    const double float  *g_floating2
    ) ;
/*~-mth$gdim-~*/
/*+~mth$hdim~+*/
int mth$hdim(
    struct {int h_floati$$ret_1_ [4];}  *h_floating,
    const struct {int h_floati$$ret_2_ [4];}  *h_floating1,
    const struct {int h_floati$$ret_3_ [4];}  *h_floating2
    ) ;
/*~-mth$hdim-~*/
/*+~mth$iidim~+*/
short int mth$iidim(
    const short int  *word1,
    const short int  *word2
    ) ;
/*~-mth$iidim-~*/
/*+~mth$jidim~+*/
long int mth$jidim(
    const long int  *longword1,
    const long int  *longword2
    ) ;
/*~-mth$jidim-~*/
/*+~mth$iieor~+*/
unsigned short int mth$iieor(
    const unsigned short int  *word1,
    const unsigned short int  *word2
    ) ;
/*~-mth$iieor-~*/
/*+~mth$jieor~+*/
unsigned long int mth$jieor(
    const unsigned long int  *longword1,
    const unsigned long int  *longword2
    ) ;
/*~-mth$jieor-~*/
/*+~mth$iifix~+*/
short int mth$iifix(
    const float  *f_floating
    ) ;
/*~-mth$iifix-~*/
/*+~mth$jifix~+*/
long int mth$jifix(
    const float  *f_floating
    ) ;
/*~-mth$jifix-~*/
/*+~mth$floati~+*/
float mth$floati(
    const short int  *word
    ) ;
/*~-mth$floati-~*/
/*+~mth$dfloti~+*/
double float mth$dfloti(
    const short int  *word
    ) ;
/*~-mth$dfloti-~*/
/*+~mth$gfloti~+*/
double float mth$gfloti(
    const short int  *word
    ) ;
/*~-mth$gfloti-~*/
/*+~mth$floatj~+*/
float mth$floatj(
    const long int  *longword
    ) ;
/*~-mth$floatj-~*/
/*+~mth$dflotj~+*/
double float mth$dflotj(
    const long int  *longword
    ) ;
/*~-mth$dflotj-~*/
/*+~mth$gflotj~+*/
double float mth$gflotj(
    const long int  *longword
    ) ;
/*~-mth$gflotj-~*/
/*+~mth$floor~+*/
float mth$floor(
    const float  *f_floating
    ) ;
/*~-mth$floor-~*/
/*+~mth$dfloor~+*/
double float mth$dfloor(
    const double float  *d_floating
    ) ;
/*~-mth$dfloor-~*/
/*+~mth$gfloor~+*/
double float mth$gfloor(
    const double float  *g_floating
    ) ;
/*~-mth$gfloor-~*/
/*+~mth$hfloor~+*/
int mth$hfloor(
    struct {int max_h_fl$$ret_0_ [4];}  *max_h_float,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$hfloor-~*/
/*+~mth$aint~+*/
float mth$aint(
    const float  *f_floating
    ) ;
/*~-mth$aint-~*/
/*+~mth$dint~+*/
double float mth$dint(
    const double float  *d_floating
    ) ;
/*~-mth$dint-~*/
/*+~mth$iidint~+*/
short int mth$iidint(
    const double float  *d_floating
    ) ;
/*~-mth$iidint-~*/
/*+~mth$jidint~+*/
long int mth$jidint(
    const double float  *d_floating
    ) ;
/*~-mth$jidint-~*/
/*+~mth$gint~+*/
double float mth$gint(
    const double float  *g_floating
    ) ;
/*~-mth$gint-~*/
/*+~mth$iigint~+*/
short int mth$iigint(
    const double float  *g_floating
    ) ;
/*~-mth$iigint-~*/
/*+~mth$jigint~+*/
long int mth$jigint(
    const double float  *g_floating
    ) ;
/*~-mth$jigint-~*/
/*+~mth$hint~+*/
int mth$hint(
    struct {int trunc_h_$$ret_0_ [4];}  *trunc_h_flt,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$hint-~*/
/*+~mth$iihint~+*/
short int mth$iihint(
    const struct {int h_floati$$ret_1_ [4];}  *h_floating
    ) ;
/*~-mth$iihint-~*/
/*+~mth$jihint~+*/
long int mth$jihint(
    const struct {int h_floati$$ret_2_ [4];}  *h_floating
    ) ;
/*~-mth$jihint-~*/
/*+~mth$iint~+*/
short int mth$iint(
    const float  *f_floating
    ) ;
/*~-mth$iint-~*/
/*+~mth$jint~+*/
long int mth$jint(
    const float  *f_floating
    ) ;
/*~-mth$jint-~*/
/*+~mth$iior~+*/
unsigned short int mth$iior(
    const unsigned short int  *word1,
    const unsigned short int  *word2
    ) ;
/*~-mth$iior-~*/
/*+~mth$jior~+*/
unsigned long int mth$jior(
    const unsigned long int  *longword1,
    const unsigned long int  *longword2
    ) ;
/*~-mth$jior-~*/
/*+~mth$aimax0~+*/
float mth$aimax0(
    const short int  *word
    ) ;
/*~-mth$aimax0-~*/
/*+~mth$ajmax0~+*/
float mth$ajmax0(
    const long int  *longword
    ) ;
/*~-mth$ajmax0-~*/
/*+~mth$imax0~+*/
short int mth$imax0(
    const short int  *word
    ) ;
/*~-mth$imax0-~*/
/*+~mth$jmax0~+*/
long int mth$jmax0(
    const long int  *longword
    ) ;
/*~-mth$jmax0-~*/
/*+~mth$amax1~+*/
float mth$amax1(
    const float  *f_floating
    ) ;
/*~-mth$amax1-~*/
/*+~mth$dmax1~+*/
double float mth$dmax1(
    const double float  *d_floating
    ) ;
/*~-mth$dmax1-~*/
/*+~mth$gmax1~+*/
double float mth$gmax1(
    const double float  *g_floating
    ) ;
/*~-mth$gmax1-~*/
/*+~mth$hmax1~+*/
int mth$hmax1(
    struct {int h_float_$$ret_0_ [4];}  *h_float_max,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$hmax1-~*/
/*+~mth$imax1~+*/
short int mth$imax1(
    const float  *f_floating
    ) ;
/*~-mth$imax1-~*/
/*+~mth$jmax1~+*/
long int mth$jmax1(
    const float  *f_floating
    ) ;
/*~-mth$jmax1-~*/
/*+~mth$aimin0~+*/
float mth$aimin0(
    const short int  *word
    ) ;
/*~-mth$aimin0-~*/
/*+~mth$ajmin0~+*/
float mth$ajmin0(
    const long int  *longword
    ) ;
/*~-mth$ajmin0-~*/
/*+~mth$imin0~+*/
short int mth$imin0(
    const short int  *word
    ) ;
/*~-mth$imin0-~*/
/*+~mth$jmin0~+*/
long int mth$jmin0(
    const long int  *longword
    ) ;
/*~-mth$jmin0-~*/
/*+~mth$amin1~+*/
float mth$amin1(
    const float  *f_floating
    ) ;
/*~-mth$amin1-~*/
/*+~mth$dmin1~+*/
double float mth$dmin1(
    const double float  *d_floating
    ) ;
/*~-mth$dmin1-~*/
/*+~mth$gmin1~+*/
double float mth$gmin1(
    const double float  *g_floating
    ) ;
/*~-mth$gmin1-~*/
/*+~mth$hmin1~+*/
int mth$hmin1(
    struct {int h_float_$$ret_0_ [4];}  *h_float_max,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$hmin1-~*/
/*+~mth$imin1~+*/
short int mth$imin1(
    const float  *f_floating
    ) ;
/*~-mth$imin1-~*/
/*+~mth$jmin1~+*/
long int mth$jmin1(
    const float  *f_floating
    ) ;
/*~-mth$jmin1-~*/
/*+~mth$amod~+*/
float mth$amod(
    const float  *dividend,
    const float  *divisor
    ) ;
/*~-mth$amod-~*/
/*+~mth$dmod~+*/
double float mth$dmod(
    const double float  *dividend,
    const double float  *divisor
    ) ;
/*~-mth$dmod-~*/
/*+~mth$gmod~+*/
double float mth$gmod(
    const double float  *dividend,
    const double float  *divisor
    ) ;
/*~-mth$gmod-~*/
/*+~mth$hmod~+*/
int mth$hmod(
    struct {int h_mod$$ret_0_ [4];}  *h_mod,
    const struct {int dividend$$ret_0_ [4];}  *dividend,
    const struct {int divisor$$ret_0_ [4];}  *divisor
    ) ;
/*~-mth$hmod-~*/
/*+~mth$imod~+*/
short int mth$imod(
    const short int  *dividend,
    const short int  *divisor
    ) ;
/*~-mth$imod-~*/
/*+~mth$jmod~+*/
long int mth$jmod(
    const long int  *dividend,
    const long int  *divisor
    ) ;
/*~-mth$jmod-~*/
/*+~mth$anint~+*/
float mth$anint(
    const float  *f_floating
    ) ;
/*~-mth$anint-~*/
/*+~mth$dnint~+*/
double float mth$dnint(
    const double float  *d_floating
    ) ;
/*~-mth$dnint-~*/
/*+~mth$iidnnt~+*/
short int mth$iidnnt(
    const double float  *d_floating
    ) ;
/*~-mth$iidnnt-~*/
/*+~mth$jidnnt~+*/
long int mth$jidnnt(
    const double float  *d_floating
    ) ;
/*~-mth$jidnnt-~*/
/*+~mth$gnint~+*/
double float mth$gnint(
    const double float  *g_floating
    ) ;
/*~-mth$gnint-~*/
/*+~mth$iignnt~+*/
short int mth$iignnt(
    const double float  *g_floating
    ) ;
/*~-mth$iignnt-~*/
/*+~mth$jignnt~+*/
long int mth$jignnt(
    const double float  *g_floating
    ) ;
/*~-mth$jignnt-~*/
/*+~mth$hnint~+*/
int mth$hnint(
    struct {int nearst_h$$ret_0_ [4];}  *nearst_h_flt,
    const struct {int h_floati$$ret_0_ [4];}  *h_floating
    ) ;
/*~-mth$hnint-~*/
/*+~mth$iihnnt~+*/
short int mth$iihnnt(
    const struct {int h_floati$$ret_1_ [4];}  *h_floating
    ) ;
/*~-mth$iihnnt-~*/
/*+~mth$jihnnt~+*/
long int mth$jihnnt(
    const struct {int h_floati$$ret_2_ [4];}  *h_floating
    ) ;
/*~-mth$jihnnt-~*/
/*+~mth$inint~+*/
short int mth$inint(
    const float  *f_floating
    ) ;
/*~-mth$inint-~*/
/*+~mth$jnint~+*/
long int mth$jnint(
    const float  *f_floating
    ) ;
/*~-mth$jnint-~*/
/*+~mth$inot~+*/
unsigned short int mth$inot(
    const unsigned short int  *word
    ) ;
/*~-mth$inot-~*/
/*+~mth$jnot~+*/
unsigned long int mth$jnot(
    const unsigned long int  *longword
    ) ;
/*~-mth$jnot-~*/
/*+~mth$dprod~+*/
double float mth$dprod(
    const float  *f_floating1,
    const float  *f_floating2
    ) ;
/*~-mth$dprod-~*/
/*+~mth$gprod~+*/
double float mth$gprod(
    const float  *f_floating1,
    const float  *f_floating2
    ) ;
/*~-mth$gprod-~*/
/*+~mth$sgn~+*/
long int mth$sgn(
    const int  *f_or_d_floating
    ) ;
/*~-mth$sgn-~*/
/*+~mth$iishft~+*/
unsigned short int mth$iishft(
    const unsigned short int  *word,
    const short int  *shift_cnt
    ) ;
/*~-mth$iishft-~*/
/*+~mth$jishft~+*/
unsigned long int mth$jishft(
    const unsigned long int  *longword,
    const long int  *shift_cnt
    ) ;
/*~-mth$jishft-~*/
/*+~mth$sign~+*/
float mth$sign(
    const float  *f_float_x,
    const float  *f_float_y
    ) ;
/*~-mth$sign-~*/
/*+~mth$dsign~+*/
double float mth$dsign(
    const double float  *d_float_x,
    const double float  *d_float_y
    ) ;
/*~-mth$dsign-~*/
/*+~mth$gsign~+*/
double float mth$gsign(
    const double float  *g_float_x,
    const double float  *g_float_y
    ) ;
/*~-mth$gsign-~*/
/*+~mth$hsign~+*/
int mth$hsign(
    struct {int h_result$$ret_0_ [4];}  *h_result,
    const struct {int h_float_$$ret_0_ [4];}  *h_float_x,
    const struct {int h_float_$$ret_1_ [4];}  *h_float_y
    ) ;
/*~-mth$hsign-~*/
/*+~mth$iisign~+*/
short int mth$iisign(
    const short int  *word_x,
    const short int  *word_y
    ) ;
/*~-mth$iisign-~*/
/*+~mth$jisign~+*/
long int mth$jisign(
    const long int  *longwrd_x,
    const long int  *longwrd_y
    ) ;
/*~-mth$jisign-~*/
/*+~mth$sngl~+*/
float mth$sngl(
    const double float  *d_floating
    ) ;
/*~-mth$sngl-~*/
/*+~mth$snglg~+*/
float mth$snglg(
    const double float  *g_floating
    ) ;
/*~-mth$snglg-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  8-AUG-1988 10:19:20 EMULEX$DISK:[MEADOWS.UNSDL.VMS5-0_H]NCS$ROUTINE */
#ifndef NCS$ROUTINES.TEMPLATE_
#define NCS$ROUTINES.TEMPLATE_
 
/*** MODULE NCS$ROUTINES ***/
/*+~ncs$compare~+*/
long int ncs$compare(
    const unsigned long int  *cs_id,
    const struct dsc$descriptor *string_1,
    const struct dsc$descriptor *string_2
    ) ;
/*~-ncs$compare-~*/
/*+~ncs$convert~+*/
unsigned long int ncs$convert(
    const unsigned long int  *cf_id,
    const struct dsc$descriptor *source,
    struct dsc$descriptor *dest,
    unsigned short int  *ret_length
    ) ;
/*~-ncs$convert-~*/
/*+~ncs$end_cf~+*/
unsigned long int ncs$end_cf(
    unsigned long int  *cf_id
    ) ;
/*~-ncs$end_cf-~*/
/*+~ncs$end_cs~+*/
unsigned long int ncs$end_cs(
    unsigned long int  *cs_id
    ) ;
/*~-ncs$end_cs-~*/
/*+~ncs$get_cf~+*/
unsigned long int ncs$get_cf(
    unsigned long int  *cf_id,
    ...
    /* const struct dsc$descriptor *cfname, */
    /* const struct dsc$descriptor *librar */
    ) ;
/*~-ncs$get_cf-~*/
/*+~ncs$get_cs~+*/
unsigned long int ncs$get_cs(
    unsigned long int  *cs_id,
    ...
    /* const struct dsc$descriptor *csname, */
    /* const struct dsc$descriptor *librar */
    ) ;
/*~-ncs$get_cs-~*/
/*+~ncs$restore_cf~+*/
unsigned long int ncs$restore_cf(
    unsigned long int  *cf_id,
    ...
    /* const unsigned long int  *length, */
    /* const unsigned long int  *address */
    ) ;
/*~-ncs$restore_cf-~*/
/*+~ncs$restore_cs~+*/
unsigned long int ncs$restore_cs(
    unsigned long int  *cs_id,
    ...
    /* const unsigned long int  *length, */
    /* const unsigned long int  *address */
    ) ;
/*~-ncs$restore_cs-~*/
/*+~ncs$save_cf~+*/
unsigned long int ncs$save_cf(
    const unsigned long int  *cf_id,
    ...
    /* unsigned long int  *length, */
    /* unsigned long int  *address */
    ) ;
/*~-ncs$save_cf-~*/
/*+~ncs$save_cs~+*/
unsigned long int ncs$save_cs(
    const unsigned long int  *cs_id,
    ...
    /* unsigned long int  *length, */
    /* unsigned long int  *address */
    ) ;
/*~-ncs$save_cs-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  8-AUG-1988 10:23:29 EMULEX$DISK:[MEADOWS.UNSDL.VMS5-0_H]OTS$ROUTINE */
#ifndef OTS$ROUTINES.TEMPLATE_
#define OTS$ROUTINES.TEMPLATE_
 
/*** MODULE OTS$ROUTINES ***/
/*+~ots$cvt_t_d~+*/
unsigned long int ots$cvt_t_d(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    double float  *floating_point_value,
    ...
    /* const unsigned long int digits_in_fraction, */
    /* const long int scale_factor, */
    /* const unsigned long int flags_value, */
    /* char  *extension_bits */
    ) ;
/*~-ots$cvt_t_d-~*/
/*+~ots$cvt_t_f~+*/
unsigned long int ots$cvt_t_f(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    float  *floating_point_value,
    ...
    /* const unsigned long int digits_in_fraction, */
    /* const long int scale_factor, */
    /* const unsigned long int flags_value, */
    /* char  *extension_bits */
    ) ;
/*~-ots$cvt_t_f-~*/
/*+~ots$cvt_t_g~+*/
unsigned long int ots$cvt_t_g(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    double float  *floating_point_value,
    ...
    /* const unsigned long int digits_in_fraction, */
    /* const long int scale_factor, */
    /* const unsigned long int flags_value, */
    /* short int  *extension_bits */
    ) ;
/*~-ots$cvt_t_g-~*/
/*+~ots$cvt_t_h~+*/
unsigned long int ots$cvt_t_h(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    struct {int floating$$ret_0_ [4];}  *floating_point_value,
    ...
    /* const unsigned long int digits_in_fraction, */
    /* const long int scale_factor, */
    /* const unsigned long int flags_value, */
    /* short int  *extension_bits */
    ) ;
/*~-ots$cvt_t_h-~*/
/*+~ots$div_pk_long~+*/
int ots$div_pk_long(
    const int  *packed_decimal_dividend,
    const int  *packed_decimal_divisor,
    const short int divisor_precision,
    int  *packed_decimal_quotient,
    const short int quotient_precision,
    const short int precision_data,
    const short int scale_data
    ) ;
/*~-ots$div_pk_long-~*/
/*+~ots$div_pk_short~+*/
int ots$div_pk_short(
    const int  *packed_decimal_dividend,
    const int  *packed_decimal_divisor,
    const short int divisor_precision,
    int  *packed_decimal_quotient,
    const short int quotient_precision,
    const short int precision_data
    ) ;
/*~-ots$div_pk_short-~*/
/*+~ots$move3~+*/
int ots$move3(
    const long int length_value,
    const unsigned char  *source_array [1],
    unsigned char  *destination_array [1]
    ) ;
/*~-ots$move3-~*/
/*+~ots$move5~+*/
int ots$move5(
    const long int longword_int_source_length,
    const unsigned char  *source_array [1],
    const unsigned char fill_value,
    const long int longword_int_dest_length,
    unsigned char  *destination_array [1]
    ) ;
/*~-ots$move5-~*/
/*+~ots$cnvout~+*/
unsigned long int ots$cnvout(
    const double float  *d_g_or_h_float_pt_input_val,
    struct dsc$descriptor *fixed_length_resultant_string,
    const unsigned long int digits_in_fraction
    ) ;
/*~-ots$cnvout-~*/
/*+~ots$cnvout_g~+*/
unsigned long int ots$cnvout_g(
    const double float  *d_g_or_h_float_pt_input_val,
    struct dsc$descriptor *fixed_length_resultant_string,
    const unsigned long int digits_in_fraction
    ) ;
/*~-ots$cnvout_g-~*/
/*+~ots$cnvout_h~+*/
unsigned long int ots$cnvout_h(
    const struct {int d_g_or_h$$ret_0_ [4];}  *d_g_or_h_float_pt_input_val,
    struct dsc$descriptor *fixed_length_resultant_string,
    const unsigned long int digits_in_fraction
    ) ;
/*~-ots$cnvout_h-~*/
/*+~ots$powii~+*/
short int ots$powii(
    const short int word_integer_base,
    const short int word_integer_exponent
    ) ;
/*~-ots$powii-~*/
/*+~ots$powjj~+*/
long int ots$powjj(
    const long int longword_integer_base,
    const long int longword_integer_exponent
    ) ;
/*~-ots$powjj-~*/
/*+~ots$powlulu~+*/
unsigned long int ots$powlulu(
    const unsigned long int unsigned_lword_int_base,
    const unsigned long int unsigned_lword_int_exponent
    ) ;
/*~-ots$powlulu-~*/
/*+~ots$powrj~+*/
float ots$powrj(
    const float f_floating_point_base,
    const long int longword_integer_exponent
    ) ;
/*~-ots$powrj-~*/
/*+~ots$powrr~+*/
float ots$powrr(
    const float f_floating_point_base,
    const float f_floating_point_exponent
    ) ;
/*~-ots$powrr-~*/
/*+~ots$powrlu~+*/
float ots$powrlu(
    const float floating_point_base,
    const unsigned long int unsigned_lword_int_exponent
    ) ;
/*~-ots$powrlu-~*/
/*+~ots$scopy_dxdx~+*/
unsigned short int ots$scopy_dxdx(
    const struct dsc$descriptor *source_string,
    struct dsc$descriptor *destination_string
    ) ;
/*~-ots$scopy_dxdx-~*/
/*+~ots$scopy_r_dx~+*/
unsigned short int ots$scopy_r_dx(
    const unsigned short int word_int_source_length_val,
    const char  *source_string_address,
    struct dsc$descriptor *destination_string
    ) ;
/*~-ots$scopy_r_dx-~*/
/*+~ots$sfree1_dd~+*/
int ots$sfree1_dd(
    unsigned int  *dynamic_descriptor [2]
    ) ;
/*~-ots$sfree1_dd-~*/
/*+~ots$sfreen_dd~+*/
int ots$sfreen_dd(
    const unsigned long int descriptor_count_value,
    unsigned int  *first_descriptor [2]
    ) ;
/*~-ots$sfreen_dd-~*/
/*+~ots$sget1_dd~+*/
int ots$sget1_dd(
    const unsigned short int word_integer_length_value,
    unsigned int  *dynamic_descriptor [2]
    ) ;
/*~-ots$sget1_dd-~*/
/*+~ots$cvt_l_tb~+*/
unsigned long int ots$cvt_l_tb(
    const int  *varying_input_value,
    struct dsc$descriptor *fixed_length_resultant_string,
    ...
    /* const long int number_of_digits, */
    /* const long int input_value_size */
    ) ;
/*~-ots$cvt_l_tb-~*/
/*+~ots$cvt_l_ti~+*/
unsigned long int ots$cvt_l_ti(
    const int  *varying_input_value,
    struct dsc$descriptor *fixed_length_resultant_string,
    ...
    /* const long int number_of_digits, */
    /* const long int input_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_l_ti-~*/
/*+~ots$cvt_l_tl~+*/
unsigned long int ots$cvt_l_tl(
    const long int  *longword_integer_value,
    struct dsc$descriptor *fixed_length_resultant_string
    ) ;
/*~-ots$cvt_l_tl-~*/
/*+~ots$cvt_l_to~+*/
unsigned long int ots$cvt_l_to(
    const int  *varying_input_value,
    struct dsc$descriptor *fixed_length_resultant_string,
    ...
    /* const long int number_of_digits, */
    /* const long int input_value_size */
    ) ;
/*~-ots$cvt_l_to-~*/
/*+~ots$cvt_l_tu~+*/
unsigned long int ots$cvt_l_tu(
    const int  *varying_input_value,
    struct dsc$descriptor *fixed_length_resultant_string,
    ...
    /* const long int number_of_digits, */
    /* const long int input_value_size */
    ) ;
/*~-ots$cvt_l_tu-~*/
/*+~ots$cvt_l_tz~+*/
unsigned long int ots$cvt_l_tz(
    const int  *varying_input_value,
    struct dsc$descriptor *fixed_length_resultant_string,
    ...
    /* const long int number_of_digits, */
    /* const long int input_value_size */
    ) ;
/*~-ots$cvt_l_tz-~*/
/*+~ots$cvt_tb_l~+*/
unsigned long int ots$cvt_tb_l(
    const struct dsc$descriptor *input_string,
    int  *varying_output_value,
    ...
    /* const long int output_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_tb_l-~*/
/*+~ots$cvt_ti_l~+*/
unsigned long int ots$cvt_ti_l(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    int  *varying_output_value,
    ...
    /* const long int output_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_ti_l-~*/
/*+~ots$cvt_tl_l~+*/
unsigned long int ots$cvt_tl_l(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    int  *varying_output_value,
    ...
    /* const long int output_value_size */
    ) ;
/*~-ots$cvt_tl_l-~*/
/*+~ots$cvt_to_l~+*/
unsigned long int ots$cvt_to_l(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    int  *varying_output_value,
    ...
    /* const long int output_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_to_l-~*/
/*+~ots$cvt_tu_l~+*/
unsigned long int ots$cvt_tu_l(
    const struct dsc$descriptor *fixed_length_input_string,
    int  *varying_output_value,
    ...
    /* const long int output_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_tu_l-~*/
/*+~ots$cvt_tz_l~+*/
unsigned long int ots$cvt_tz_l(
    const struct dsc$descriptor *fixed_or_dynamic_input_string,
    int  *varying_input_value,
    ...
    /* const long int input_value_size, */
    /* const unsigned long int flags_value */
    ) ;
/*~-ots$cvt_tz_l-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  8-AUG-1988 10:25:24 EMULEX$DISK:[MEADOWS.UNSDL.VMS5-0_H]PPL$ROUTINE */
#ifndef PPL$ROUTINES.TEMPLATE_
#define PPL$ROUTINES.TEMPLATE_
 
/*** MODULE PPL$ROUTINES ***/
/*+~ppl$adjust_quorum~+*/
unsigned long int ppl$adjust_quorum(
    const unsigned long int  *barrier_id,
    const short int  *amount
    ) ;
/*~-ppl$adjust_quorum-~*/
/*+~ppl$await_event~+*/
unsigned long int ppl$await_event(
    const unsigned long int  *event_id
    ) ;
/*~-ppl$await_event-~*/
/*+~ppl$create_barrier~+*/
unsigned long int ppl$create_barrier(
    unsigned long int  *barrier_id,
    ...
    /* const struct dsc$descriptor *barrier_name, */
    /* const short int  *quorum */
    ) ;
/*~-ppl$create_barrier-~*/
/*+~ppl$create_event~+*/
unsigned long int ppl$create_event(
    unsigned long int  *event_id,
    ...
    /* const struct dsc$descriptor *event_name */
    ) ;
/*~-ppl$create_event-~*/
/*+~ppl$create_spin_lock~+*/
unsigned long int ppl$create_spin_lock(
    unsigned long int  *lock_id,
    ...
    /* const struct dsc$descriptor *lock_name */
    ) ;
/*~-ppl$create_spin_lock-~*/
/*+~ppl$create_shared_memory~+*/
unsigned long int ppl$create_shared_memory(
    const struct dsc$descriptor *section_name,
    unsigned long int  *memory_area [1],
    ...
    /* const unsigned long int flags, */
    /* const struct dsc$descriptor *file_name */
    ) ;
/*~-ppl$create_shared_memory-~*/
/*+~ppl$create_semaphore~+*/
unsigned long int ppl$create_semaphore(
    unsigned long int  *semaphore_id,
    ...
    /* const struct dsc$descriptor *semaphore_name, */
    /* const short int  *semaphore_maximum, */
    /* const short int  *semaphore_initial */
    ) ;
/*~-ppl$create_semaphore-~*/
/*+~ppl$create_vm_zone~+*/
unsigned long int ppl$create_vm_zone(
    unsigned long int  *zone_id,
    ...
    /* const long int  *algorithm, */
    /* const long int  *algorithm_argument, */
    /* const unsigned long int  *flags, */
    /* const long int  *extend_size, */
    /* const long int  *initial_size, */
    /* const long int  *block_size, */
    /* const long int  *alignment, */
    /* const long int  *page_limit, */
    /* const long int  *smallest_block_size, */
    /* const struct dsc$descriptor *zone_name */
    ) ;
/*~-ppl$create_vm_zone-~*/
/*+~ppl$decrement_semaphore~+*/
unsigned long int ppl$decrement_semaphore(
    const unsigned long int  *semaphore_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*~-ppl$decrement_semaphore-~*/
/*+~ppl$delete_shared_memory~+*/
unsigned long int ppl$delete_shared_memory(
    const struct dsc$descriptor *section_name,
    ...
    /* const unsigned long int  *memory_area [1], */
    /* const unsigned long int flags */
    ) ;
/*~-ppl$delete_shared_memory-~*/
/*+~ppl$enable_event_ast~+*/
unsigned long int ppl$enable_event_ast(
    const unsigned long int  *event_id,
    const int * *astadr,
    ...
    /* const int astprm */
    ) ;
/*~-ppl$enable_event_ast-~*/
/*+~ppl$enable_event_signal~+*/
unsigned long int ppl$enable_event_signal(
    const unsigned long int  *event_id,
    ...
    /* const unsigned long int signal_value */
    ) ;
/*~-ppl$enable_event_signal-~*/
/*+~ppl$flush_shared_memory~+*/
unsigned long int ppl$flush_shared_memory(
    const struct dsc$descriptor *section_name,
    ...
    /* const unsigned long int  *memory_area [1], */
    /* const unsigned long int flags */
    ) ;
/*~-ppl$flush_shared_memory-~*/
/*+~ppl$find_synch_element_id~+*/
unsigned long int ppl$find_synch_element_id(
    unsigned long int  *element_id,
    const struct dsc$descriptor *element_name
    ) ;
/*~-ppl$find_synch_element_id-~*/
/*+~ppl$get_index~+*/
unsigned long int ppl$get_index(
    unsigned long int  *participant_index
    ) ;
/*~-ppl$get_index-~*/
/*+~ppl$increment_semaphore~+*/
unsigned long int ppl$increment_semaphore(
    const unsigned long int  *semaphore_id
    ) ;
/*~-ppl$increment_semaphore-~*/
/*+~ppl$index_to_pid~+*/
unsigned long int ppl$index_to_pid(
    const unsigned long int  *participant_index,
    unsigned long int  *pid
    ) ;
/*~-ppl$index_to_pid-~*/
/*+~ppl$initialize~+*/
unsigned long int ppl$initialize(
    /* const unsigned long int  *size */
    ) ;
/*~-ppl$initialize-~*/
/*+~ppl$pid_to_index~+*/
unsigned long int ppl$pid_to_index(
    const unsigned long int  *pid,
    unsigned long int  *participant_index
    ) ;
/*~-ppl$pid_to_index-~*/
/*+~ppl$read_barrier~+*/
unsigned long int ppl$read_barrier(
    const unsigned long int  *barrier_id,
    short int  *quorum,
    short int  *waiters
    ) ;
/*~-ppl$read_barrier-~*/
/*+~ppl$read_event~+*/
unsigned long int ppl$read_event(
    const unsigned long int  *event_id,
    unsigned long int  *occurred
    ) ;
/*~-ppl$read_event-~*/
/*+~ppl$read_semaphore~+*/
unsigned long int ppl$read_semaphore(
    const unsigned long int  *semaphore_id,
    ...
    /* short int  *semaphore_value, */
    /* short int  *semaphore_maximum */
    ) ;
/*~-ppl$read_semaphore-~*/
/*+~ppl$release_spin_lock~+*/
unsigned long int ppl$release_spin_lock(
    const unsigned long int  *lock_id
    ) ;
/*~-ppl$release_spin_lock-~*/
/*+~ppl$spawn~+*/
unsigned long int ppl$spawn(
    unsigned long int  *copies,
    ...
    /* const struct dsc$descriptor *program_name, */
    /* unsigned long int  *children_ids, */
    /* const unsigned long int  *flags, */
    /* const struct dsc$descriptor *std_input_file, */
    /* const struct dsc$descriptor *std_output_file */
    ) ;
/*~-ppl$spawn-~*/
/*+~ppl$set_quorum~+*/
unsigned long int ppl$set_quorum(
    const unsigned long int  *barrier_id,
    const short int  *quorum
    ) ;
/*~-ppl$set_quorum-~*/
/*+~ppl$stop~+*/
unsigned long int ppl$stop(
    const unsigned long int  *participant_index
    ) ;
/*~-ppl$stop-~*/
/*+~ppl$seize_spin_lock~+*/
unsigned long int ppl$seize_spin_lock(
    const unsigned long int  *lock_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*~-ppl$seize_spin_lock-~*/
/*+~ppl$terminate~+*/
unsigned long int ppl$terminate(
    /* const unsigned long int  *flags */
    ) ;
/*~-ppl$terminate-~*/
/*+~ppl$trigger_event~+*/
unsigned long int ppl$trigger_event(
    const unsigned long int  *event_id,
    ...
    /* const unsigned long int event_param, */
    /* const unsigned long int flags */
    ) ;
/*~-ppl$trigger_event-~*/
/*+~ppl$unique_name~+*/
unsigned long int ppl$unique_name(
    const struct dsc$descriptor *name_string,
    struct dsc$descriptor *resultant_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-ppl$unique_name-~*/
/*+~ppl$wait_at_barrier~+*/
unsigned long int ppl$wait_at_barrier(
    const unsigned long int  *barrier_id
    ) ;
/*~-ppl$wait_at_barrier-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  8-AUG-1988 10:29:24 EMULEX$DISK:[MEADOWS.UNSDL.VMS5-0_H]SMG$ROUTINE */
#ifndef SMG$ROUTINES.TEMPLATE_
#define SMG$ROUTINES.TEMPLATE_
 
/*** MODULE SMG$ROUTINES ***/
/*+~smg$add_key_def~+*/
unsigned long int smg$add_key_def(
    const unsigned long int  *key_table_id,
    const struct dsc$descriptor *key_name,
    ...
    /* const struct dsc$descriptor *if_state, */
    /* const unsigned long int  *attributes, */
    /* const struct dsc$descriptor *equivalence_string, */
    /* const struct dsc$descriptor *state_string */
    ) ;
/*~-smg$add_key_def-~*/
/*+~smg$allow_escape~+*/
unsigned long int smg$allow_escape(
    const unsigned long int  *display_id,
    const unsigned long int  *flags
    ) ;
/*~-smg$allow_escape-~*/
/*+~smg$begin_display_update~+*/
unsigned long int smg$begin_display_update(
    const unsigned long int  *display_id
    ) ;
/*~-smg$begin_display_update-~*/
/*+~smg$begin_pasteboard_update~+*/
unsigned long int smg$begin_pasteboard_update(
    const unsigned long int  *pasteboard_id
    ) ;
/*~-smg$begin_pasteboard_update-~*/
/*+~smg$cancel_input~+*/
unsigned long int smg$cancel_input(
    const unsigned long int  *keyboard_id
    ) ;
/*~-smg$cancel_input-~*/
/*+~smg$cursor_column~+*/
unsigned long int smg$cursor_column(
    const unsigned long int  *display_id
    ) ;
/*~-smg$cursor_column-~*/
/*+~smg$check_for_occlusion~+*/
unsigned long int smg$check_for_occlusion(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id,
    long int  *occlusion_state
    ) ;
/*~-smg$check_for_occlusion-~*/
/*+~smg$change_viewport~+*/
unsigned long int smg$change_viewport(
    const unsigned long int  *display_id,
    ...
    /* const long int  *viewport_row_start, */
    /* const long int  *viewport_column_start, */
    /* const long int  *viewport_number_rows, */
    /* const long int  *viewport_number_columns */
    ) ;
/*~-smg$change_viewport-~*/
/*+~smg$create_key_table~+*/
unsigned long int smg$create_key_table(
    unsigned long int  *key_table_id
    ) ;
/*~-smg$create_key_table-~*/
/*+~smg$create_menu~+*/
unsigned long int smg$create_menu(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *choices,
    ...
    /* const unsigned long int  *menu_type, */
    /* const unsigned long int  *flags, */
    /* const long int  *row, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*~-smg$create_menu-~*/
/*+~smg$control_mode~+*/
unsigned long int smg$control_mode(
    const unsigned long int  *pasteboard_id,
    ...
    /* const unsigned long int  *new_mode, */
    /* unsigned long int  *old_mode, */
    /* const unsigned short int  *buffer_size */
    ) ;
/*~-smg$control_mode-~*/
/*+~smg$copy_virtual_display~+*/
unsigned long int smg$copy_virtual_display(
    const unsigned long int  *current_display_id,
    unsigned long int  *new_display_id
    ) ;
/*~-smg$copy_virtual_display-~*/
/*+~smg$create_pasteboard~+*/
unsigned long int smg$create_pasteboard(
    unsigned long int  *pasteboard_id,
    ...
    /* const struct dsc$descriptor *output_device, */
    /* long int  *number_of_pasteboard_rows, */
    /* long int  *number_of_pasteboard_columns, */
    /* const unsigned long int  *flags, */
    /* unsigned long int  *type_of_terminal */
    ) ;
/*~-smg$create_pasteboard-~*/
/*+~smg$change_pbd_characteristics~+*/
unsigned long int smg$change_pbd_characteristics(
    const unsigned long int  *pasteboard_id,
    ...
    /* const long int  *desired_width, */
    /* long int  *width, */
    /* const long int  *desired_height, */
    /* long int  *height, */
    /* const unsigned long int  *desired_background_color, */
    /* unsigned long int  *background_color */
    ) ;
/*~-smg$change_pbd_characteristics-~*/
/*+~smg$change_rendition~+*/
unsigned long int smg$change_rendition(
    const unsigned long int  *display_id,
    const long int  *start_row,
    const long int  *start_column,
    const long int  *number_of_rows,
    const long int  *number_of_columns,
    ...
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*~-smg$change_rendition-~*/
/*+~smg$cursor_row~+*/
unsigned long int smg$cursor_row(
    const unsigned long int  *display_id
    ) ;
/*~-smg$cursor_row-~*/
/*+~smg$create_subprocess~+*/
unsigned long int smg$create_subprocess(
    const unsigned long int  *display_id,
    ...
    /* const int *ast_routine, */
    /* const unsigned long int ast_argument */
    ) ;
/*~-smg$create_subprocess-~*/
/*+~smg$create_virtual_display~+*/
unsigned long int smg$create_virtual_display(
    const long int  *number_of_rows,
    const long int  *number_of_columns,
    unsigned long int  *display_id,
    ...
    /* const unsigned long int  *display_attributes, */
    /* const unsigned long int  *video_attributes, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$create_virtual_display-~*/
/*+~smg$change_virtual_display~+*/
unsigned long int smg$change_virtual_display(
    const unsigned long int  *display_id,
    ...
    /* const long int  *number_of_rows, */
    /* const long int  *number_of_columns, */
    /* const unsigned long int  *display_attributes, */
    /* const unsigned long int  *video_attributes, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$change_virtual_display-~*/
/*+~smg$create_virtual_keyboard~+*/
unsigned long int smg$create_virtual_keyboard(
    unsigned long int  *keyboard_id,
    ...
    /* const struct dsc$descriptor *input_device, */
    /* const struct dsc$descriptor *default_filespec, */
    /* struct dsc$descriptor *resultant_filespec, */
    /* const unsigned char  *recall_size */
    ) ;
/*~-smg$create_virtual_keyboard-~*/
/*+~smg$create_viewport~+*/
unsigned long int smg$create_viewport(
    const unsigned long int  *display_id,
    const long int  *viewport_row_start,
    const long int  *viewport_column_start,
    const long int  *viewport_number_rows,
    const long int  *viewport_number_columns
    ) ;
/*~-smg$create_viewport-~*/
/*+~smg$delete_chars~+*/
unsigned long int smg$delete_chars(
    const unsigned long int  *display_id,
    const long int  *number_of_characters,
    const long int  *start_row,
    const long int  *start_column
    ) ;
/*~-smg$delete_chars-~*/
/*+~smg$define_key~+*/
unsigned long int smg$define_key(
    const unsigned long int  *key_table_id,
    const struct dsc$descriptor *command_string
    ) ;
/*~-smg$define_key-~*/
/*+~smg$disable_broadcast_trapping~+*/
unsigned long int smg$disable_broadcast_trapping(
    const unsigned long int  *pasteboard_id
    ) ;
/*~-smg$disable_broadcast_trapping-~*/
/*+~smg$disable_unsolicited_input~+*/
unsigned long int smg$disable_unsolicited_input(
    const unsigned long int  *pasteboard_id
    ) ;
/*~-smg$disable_unsolicited_input-~*/
/*+~smg$delete_key_def~+*/
unsigned long int smg$delete_key_def(
    const unsigned long int  *key_table_id,
    const struct dsc$descriptor *key_name,
    ...
    /* const struct dsc$descriptor *if_state */
    ) ;
/*~-smg$delete_key_def-~*/
/*+~smg$delete_line~+*/
unsigned long int smg$delete_line(
    const unsigned long int  *display_id,
    const long int  *start_row,
    ...
    /* const long int  *number_of_rows */
    ) ;
/*~-smg$delete_line-~*/
/*+~smg$delete_menu~+*/
unsigned long int smg$delete_menu(
    const unsigned long int  *display_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*~-smg$delete_menu-~*/
/*+~smg$delete_pasteboard~+*/
unsigned long int smg$delete_pasteboard(
    const unsigned long int  *pasteboard_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*~-smg$delete_pasteboard-~*/
/*+~smg$draw_char~+*/
unsigned long int smg$draw_char(
    const unsigned long int  *display_id,
    const unsigned long int  *flags,
    ...
    /* const long int  *row, */
    /* const long int  *column, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*~-smg$draw_char-~*/
/*+~smg$draw_line~+*/
unsigned long int smg$draw_line(
    const unsigned long int  *display_id,
    const long int  *start_row,
    const long int  *start_column,
    const long int  *end_row,
    const long int  *end_column,
    ...
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*~-smg$draw_line-~*/
/*+~smg$draw_rectangle~+*/
unsigned long int smg$draw_rectangle(
    const unsigned long int  *display_id,
    const long int  *start_row,
    const long int  *start_column,
    const long int  *end_row,
    const long int  *end_column,
    ...
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*~-smg$draw_rectangle-~*/
/*+~smg$delete_subprocess~+*/
unsigned long int smg$delete_subprocess(
    const unsigned long int  *display_id
    ) ;
/*~-smg$delete_subprocess-~*/
/*+~smg$del_term_table~+*/
unsigned long int smg$del_term_table() ;
/*~-smg$del_term_table-~*/
/*+~smg$delete_virtual_display~+*/
unsigned long int smg$delete_virtual_display(
    const unsigned long int  *display_id
    ) ;
/*~-smg$delete_virtual_display-~*/
/*+~smg$delete_virtual_keyboard~+*/
unsigned long int smg$delete_virtual_keyboard(
    const unsigned long int  *keyboard_id
    ) ;
/*~-smg$delete_virtual_keyboard-~*/
/*+~smg$delete_viewport~+*/
unsigned long int smg$delete_viewport(
    const unsigned long int  *display_id
    ) ;
/*~-smg$delete_viewport-~*/
/*+~smg$erase_chars~+*/
unsigned long int smg$erase_chars(
    const unsigned long int  *display_id,
    const long int  *number_of_characters,
    const long int  *start_row,
    const long int  *start_column
    ) ;
/*~-smg$erase_chars-~*/
/*+~smg$end_display_update~+*/
unsigned long int smg$end_display_update(
    const unsigned long int  *display_id
    ) ;
/*~-smg$end_display_update-~*/
/*+~smg$end_pasteboard_update~+*/
unsigned long int smg$end_pasteboard_update(
    const unsigned long int  *pasteboard_id
    ) ;
/*~-smg$end_pasteboard_update-~*/
/*+~smg$enable_unsolicited_input~+*/
unsigned long int smg$enable_unsolicited_input(
    const unsigned long int  *pasteboard_id,
    const int *ast_routine,
    ...
    /* const unsigned long int ast_argument */
    ) ;
/*~-smg$enable_unsolicited_input-~*/
/*+~smg$erase_column~+*/
unsigned long int smg$erase_column(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *column_number, */
    /* const long int  *end_row */
    ) ;
/*~-smg$erase_column-~*/
/*+~smg$erase_display~+*/
unsigned long int smg$erase_display(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const long int  *end_row, */
    /* const long int  *end_column */
    ) ;
/*~-smg$erase_display-~*/
/*+~smg$erase_line~+*/
unsigned long int smg$erase_line(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column */
    ) ;
/*~-smg$erase_line-~*/
/*+~smg$erase_pasteboard~+*/
unsigned long int smg$erase_pasteboard(
    const unsigned long int  *pasteboard_id
    ) ;
/*~-smg$erase_pasteboard-~*/
/*+~smg$execute_command~+*/
unsigned long int smg$execute_command(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *command_desc,
    ...
    /* const unsigned long int  *flags, */
    /* unsigned long int  *ret_status */
    ) ;
/*~-smg$execute_command-~*/
/*+~smg$find_cursor_display~+*/
unsigned long int smg$find_cursor_display(
    const unsigned long int  *pasteboard_id,
    unsigned long int  *display_id,
    ...
    /* const long int  *pasteboard_row, */
    /* const long int  *pasteboard_column */
    ) ;
/*~-smg$find_cursor_display-~*/
/*+~smg$flush_buffer~+*/
unsigned long int smg$flush_buffer(
    const unsigned long int  *pasteboard_id
    ) ;
/*~-smg$flush_buffer-~*/
/*+~smg$get_broadcast_message~+*/
unsigned long int smg$get_broadcast_message(
    const unsigned long int  *pasteboard_id,
    ...
    /* struct dsc$descriptor *message, */
    /* unsigned short int  *message_length, */
    /* unsigned short int  *message_type */
    ) ;
/*~-smg$get_broadcast_message-~*/
/*+~smg$get_char_at_physical_cursor~+*/
unsigned long int smg$get_char_at_physical_cursor(
    const unsigned long int  *pasteboard_id,
    unsigned char  *character_code
    ) ;
/*~-smg$get_char_at_physical_cursor-~*/
/*+~smg$get_display_attr~+*/
unsigned long int smg$get_display_attr(
    const unsigned long int  *display_id,
    ...
    /* long int  *height, */
    /* long int  *width, */
    /* unsigned long int  *display_attributes, */
    /* unsigned long int  *video_attributes, */
    /* const unsigned long int  *character_set, */
    /* unsigned long int  *flags */
    ) ;
/*~-smg$get_display_attr-~*/
/*+~smg$get_keyboard_attributes~+*/
unsigned long int smg$get_keyboard_attributes(
    const unsigned long int  *keyboard_id,
    int * *p_kit,
    const unsigned long int  *p_kit_size
    ) ;
/*~-smg$get_keyboard_attributes-~*/
/*+~smg$get_key_def~+*/
unsigned long int smg$get_key_def(
    const unsigned long int  *key_table_id,
    const struct dsc$descriptor *key_name,
    ...
    /* const struct dsc$descriptor *if_state, */
    /* unsigned long int  *attributes, */
    /* struct dsc$descriptor *equivalence_string, */
    /* struct dsc$descriptor *state_string */
    ) ;
/*~-smg$get_key_def-~*/
/*+~smg$get_numeric_data~+*/
unsigned long int smg$get_numeric_data(
    const int * *termtable_address,
    const unsigned long int  *request_code,
    int * *buffer_address
    ) ;
/*~-smg$get_numeric_data-~*/
/*+~smg$get_pasting_info~+*/
unsigned long int smg$get_pasting_info(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id,
    ...
    /* unsigned long int  *flags, */
    /* long int  *pasteboard_row, */
    /* long int  *pasteboard_column */
    ) ;
/*~-smg$get_pasting_info-~*/
/*+~smg$get_pasteboard_attributes~+*/
unsigned long int smg$get_pasteboard_attributes(
    const unsigned long int  *pasteboard_id,
    int  *pasteboard_info_table,
    const unsigned long int  *pasteboard_info_table_size
    ) ;
/*~-smg$get_pasteboard_attributes-~*/
/*+~smg$get_term_data~+*/
unsigned long int smg$get_term_data(
    const int * *termtable_address,
    const unsigned long int  *request_code,
    const long int  *maximum_buffer_length,
    long int  *return_length,
    int * *buffer_address,
    ...
    /* const unsigned long int  *input_argument_vector [1] */
    ) ;
/*~-smg$get_term_data-~*/
/*+~smg$get_viewport_char~+*/
unsigned long int smg$get_viewport_char(
    const unsigned long int  *display_id,
    ...
    /* long int  *viewport_row_start, */
    /* long int  *viewport_column_start, */
    /* long int  *viewport_number_rows, */
    /* long int  *viewport_number_columns */
    ) ;
/*~-smg$get_viewport_char-~*/
/*+~smg$home_cursor~+*/
unsigned long int smg$home_cursor(
    const unsigned long int  *display_id,
    ...
    /* const unsigned long int  *position_code */
    ) ;
/*~-smg$home_cursor-~*/
/*+~smg$init_term_table~+*/
unsigned long int smg$init_term_table(
    const struct dsc$descriptor *terminal_name,
    int * *termtable_address
    ) ;
/*~-smg$init_term_table-~*/
/*+~smg$insert_chars~+*/
unsigned long int smg$insert_chars(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *character_string,
    const long int  *start_row,
    const long int  *start_column,
    ...
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$insert_chars-~*/
/*+~smg$insert_line~+*/
unsigned long int smg$insert_line(
    const unsigned long int  *display_id,
    const long int  *start_row,
    ...
    /* const struct dsc$descriptor *character_string, */
    /* const unsigned long int  *direction, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$insert_line-~*/
/*+~smg$init_term_table_by_type~+*/
unsigned long int smg$init_term_table_by_type(
    const char  *terminal_type,
    int * *termtable_address,
    ...
    /* struct dsc$descriptor *terminal_name */
    ) ;
/*~-smg$init_term_table_by_type-~*/
/*+~smg$invalidate_display~+*/
unsigned long int smg$invalidate_display(
    const unsigned long int  *display_id
    ) ;
/*~-smg$invalidate_display-~*/
/*+~smg$keycode_to_name~+*/
unsigned long int smg$keycode_to_name(
    const unsigned short int  *key_code,
    struct dsc$descriptor *key_name
    ) ;
/*~-smg$keycode_to_name-~*/
/*+~smg$label_border~+*/
unsigned long int smg$label_border(
    const unsigned long int  *display_id,
    ...
    /* const struct dsc$descriptor *text, */
    /* const unsigned long int  *position_code, */
    /* const long int  *units, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$label_border-~*/
/*+~smg$load_key_defs~+*/
unsigned long int smg$load_key_defs(
    const unsigned long int  *key_table_id,
    const struct dsc$descriptor *filespec,
    ...
    /* const struct dsc$descriptor *default_filespec, */
    /* const unsigned long int  *flags */
    ) ;
/*~-smg$load_key_defs-~*/
/*+~smg$list_key_defs~+*/
unsigned long int smg$list_key_defs(
    const unsigned long int  *key_table_id,
    unsigned long int  *context,
    ...
    /* struct dsc$descriptor *key_name, */
    /* struct dsc$descriptor *if_state, */
    /* unsigned long int  *attributes, */
    /* struct dsc$descriptor *equivalence_string, */
    /* struct dsc$descriptor *state_string */
    ) ;
/*~-smg$list_key_defs-~*/
/*+~smg$list_pasting_order~+*/
unsigned long int smg$list_pasting_order(
    const unsigned long int  *pasteboard_id,
    unsigned long int  *context,
    unsigned long int  *display_id,
    ...
    /* long int  *pasteboard_row, */
    /* long int  *pasteboard_column */
    ) ;
/*~-smg$list_pasting_order-~*/
/*+~smg$load_virtual_display~+*/
unsigned long int smg$load_virtual_display(
    unsigned long int  *display_id,
    ...
    /* const struct dsc$descriptor *filespec */
    ) ;
/*~-smg$load_virtual_display-~*/
/*+~smg$move_virtual_display~+*/
unsigned long int smg$move_virtual_display(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id,
    const long int  *pasteboard_row,
    const long int  *pasteboard_column,
    ...
    /* const unsigned long int  *top_display_id */
    ) ;
/*~-smg$move_virtual_display-~*/
/*+~smg$move_text~+*/
unsigned long int smg$move_text(
    const unsigned long int  *display_id,
    const unsigned long int  *top_left_row,
    const unsigned long int  *top_left_column,
    const unsigned long int  *bottom_right_row,
    const unsigned long int  *bottom_right_column,
    const unsigned long int  *display_id2,
    ...
    /* const unsigned long int  *top_left_row2, */
    /* const unsigned long int  *top_left_column2, */
    /* const unsigned long int  *flags */
    ) ;
/*~-smg$move_text-~*/
/*+~smg$name_to_keycode~+*/
unsigned long int smg$name_to_keycode(
    const struct dsc$descriptor *key_name,
    unsigned short int  *key_code
    ) ;
/*~-smg$name_to_keycode-~*/
/*+~smg$paste_virtual_display~+*/
unsigned long int smg$paste_virtual_display(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id,
    const long int  *pasteboard_row,
    const long int  *pasteboard_column,
    ...
    /* const unsigned long int  *top_display_id */
    ) ;
/*~-smg$paste_virtual_display-~*/
/*+~smg$put_chars~+*/
unsigned long int smg$put_chars(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$put_chars-~*/
/*+~smg$put_chars_highwide~+*/
unsigned long int smg$put_chars_highwide(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$put_chars_highwide-~*/
/*+~smg$put_chars_multi~+*/
unsigned long int smg$put_chars_multi(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *line_number, */
    /* const long int  *column_number, */
    /* const unsigned long int  *flags, */
    /* const struct dsc$descriptor *rendition_set, */
    /* const struct dsc$descriptor *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$put_chars_multi-~*/
/*+~smg$put_chars_wide~+*/
unsigned long int smg$put_chars_wide(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$put_chars_wide-~*/
/*+~smg$put_help_text~+*/
unsigned long int smg$put_help_text(
    const unsigned long int  *display_id,
    ...
    /* const unsigned long int  *keyboard_id, */
    /* const struct dsc$descriptor *help_topic, */
    /* const struct dsc$descriptor *help_library, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*~-smg$put_help_text-~*/
/*+~smg$put_line~+*/
unsigned long int smg$put_line(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *line_advance, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *character_set, */
    /* const unsigned long int  *direction */
    ) ;
/*~-smg$put_line-~*/
/*+~smg$put_line_highwide~+*/
unsigned long int smg$put_line_highwide(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *line_advance, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$put_line_highwide-~*/
/*+~smg$put_line_multi~+*/
unsigned long int smg$put_line_multi(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    const struct dsc$descriptor *rendition_set,
    ...
    /* const struct dsc$descriptor *rendition_complement, */
    /* const long int  *line_advance, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *direction, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$put_line_multi-~*/
/*+~smg$put_line_wide~+*/
unsigned long int smg$put_line_wide(
    const unsigned long int  *display_id,
    const struct dsc$descriptor *text,
    ...
    /* const long int  *line_advance, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$put_line_wide-~*/
/*+~smg$pop_virtual_display~+*/
unsigned long int smg$pop_virtual_display(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id
    ) ;
/*~-smg$pop_virtual_display-~*/
/*+~smg$put_pasteboard~+*/
unsigned long int smg$put_pasteboard(
    const unsigned long int  *pasteboard_id,
    const int *action_routine,
    const int user_argument,
    const unsigned long int  *flags
    ) ;
/*~-smg$put_pasteboard-~*/
/*+~smg$print_pasteboard~+*/
unsigned long int smg$print_pasteboard(
    const unsigned long int  *pasteboard_id,
    ...
    /* const struct dsc$descriptor *queue_name, */
    /* const long int  *copies, */
    /* const struct dsc$descriptor *form_name */
    ) ;
/*~-smg$print_pasteboard-~*/
/*+~smg$put_status_line~+*/
unsigned long int smg$put_status_line(
    const unsigned long int  *pasteboard_id,
    const struct dsc$descriptor *text
    ) ;
/*~-smg$put_status_line-~*/
/*+~smg$put_virtual_display_encoded~+*/
unsigned long int smg$put_virtual_display_encoded(
    const unsigned long int  *display_id,
    const long int  *encoded_length,
    const int  *encoded_text,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const unsigned long int  *placeholder_argument, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$put_virtual_display_encoded-~*/
/*+~smg$put_with_scroll~+*/
unsigned long int smg$put_with_scroll(
    const unsigned long int  *display_id,
    ...
    /* const struct dsc$descriptor *text, */
    /* const unsigned long int  *direction, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const unsigned long int  *flags, */
    /* const unsigned long int  *character_set */
    ) ;
/*~-smg$put_with_scroll-~*/
/*+~smg$ring_bell~+*/
unsigned long int smg$ring_bell(
    const unsigned long int  *display_id,
    ...
    /* const long int  *number_of_times */
    ) ;
/*~-smg$ring_bell-~*/
/*+~smg$read_composed_line~+*/
unsigned long int smg$read_composed_line(
    const unsigned long int  *keyboard_id,
    const unsigned long int  *key_table_id,
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* unsigned short int  *resultant_length, */
    /* const unsigned long int  *display_id, */
    /* const unsigned long int  *flags, */
    /* const struct dsc$descriptor *initial_string, */
    /* const long int  *timeout, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* unsigned short int  *word_terminator_code */
    ) ;
/*~-smg$read_composed_line-~*/
/*+~smg$remove_line~+*/
unsigned long int smg$remove_line(
    const unsigned long int  *display_id,
    const long int  *start_row,
    const long int  *start_column,
    const long int  *end_row,
    const long int  *end_column
    ) ;
/*~-smg$remove_line-~*/
/*+~smg$replace_input_line~+*/
unsigned long int smg$replace_input_line(
    const unsigned long int  *keyboard_id,
    ...
    /* const struct dsc$descriptor *replace_string, */
    /* const unsigned char  *line_count */
    ) ;
/*~-smg$replace_input_line-~*/
/*+~smg$return_input_line~+*/
unsigned long int smg$return_input_line(
    const unsigned long int  *keyboard_id,
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *match_string, */
    /* const unsigned char  *byte_integer_line_number, */
    /* unsigned short int  *resultant_length */
    ) ;
/*~-smg$return_input_line-~*/
/*+~smg$read_from_display~+*/
unsigned long int smg$read_from_display(
    const unsigned long int  *display_id,
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *terminator_string, */
    /* const long int  *start_row */
    ) ;
/*~-smg$read_from_display-~*/
/*+~smg$read_keystroke~+*/
unsigned long int smg$read_keystroke(
    const unsigned long int  *keyboard_id,
    unsigned short int  *word_terminator_code,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* const long int  *timeout, */
    /* const unsigned long int  *display_id, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*~-smg$read_keystroke-~*/
/*+~smg$repaint_line~+*/
unsigned long int smg$repaint_line(
    const unsigned long int  *pasteboard_id,
    const long int  *start_row,
    ...
    /* const long int  *number_of_lines */
    ) ;
/*~-smg$repaint_line-~*/
/*+~smg$repaint_screen~+*/
unsigned long int smg$repaint_screen(
    const unsigned long int  *pasteboard_id
    ) ;
/*~-smg$repaint_screen-~*/
/*+~smg$repaste_virtual_display~+*/
unsigned long int smg$repaste_virtual_display(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id,
    const long int  *pasteboard_row,
    const long int  *pasteboard_column,
    ...
    /* const unsigned long int  *top_display_id */
    ) ;
/*~-smg$repaste_virtual_display-~*/
/*+~smg$restore_physical_screen~+*/
unsigned long int smg$restore_physical_screen(
    const unsigned long int  *pasteboard_id,
    const unsigned long int  *display_id
    ) ;
/*~-smg$restore_physical_screen-~*/
/*+~smg$read_string~+*/
unsigned long int smg$read_string(
    const unsigned long int  *keyboard_id,
    struct dsc$descriptor *resultant_string,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* const long int  *maximum_length, */
    /* const unsigned long int  *modifiers, */
    /* const long int  *timeout, */
    /* const int  *terminator_set, */
    /* unsigned short int  *resultant_length, */
    /* unsigned short int  *word_terminator_code, */
    /* const unsigned long int  *display_id, */
    /* const struct dsc$descriptor *initial_string, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement, */
    /* const struct dsc$descriptor *terminator_string */
    ) ;
/*~-smg$read_string-~*/
/*+~smg$return_cursor_pos~+*/
unsigned long int smg$return_cursor_pos(
    const unsigned long int  *display_id,
    long int  *start_row,
    long int  *start_column
    ) ;
/*~-smg$return_cursor_pos-~*/
/*+~smg$read_verify~+*/
unsigned long int smg$read_verify(
    const unsigned long int  *keyboard_id,
    struct dsc$descriptor *resultant_string,
    const struct dsc$descriptor *initial_string,
    const struct dsc$descriptor *picture_string,
    const struct dsc$descriptor *fill_character,
    const struct dsc$descriptor *clear_character,
    ...
    /* const struct dsc$descriptor *prompt_string, */
    /* const unsigned long int  *modifiers, */
    /* const long int  *timeout, */
    /* const int  *terminator_set, */
    /* const long int  *initial_offset, */
    /* unsigned short int  *word_terminator_code, */
    /* const unsigned long int  *display_id, */
    /* const struct dsc$descriptor *alternate_echo_string, */
    /* const long int  *alternate_display_id, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*~-smg$read_verify-~*/
/*+~smg$set_broadcast_trapping~+*/
unsigned long int smg$set_broadcast_trapping(
    const unsigned long int  *pasteboard_id,
    ...
    /* const int *ast_routine, */
    /* const unsigned long int ast_argument */
    ) ;
/*~-smg$set_broadcast_trapping-~*/
/*+~smg$scroll_display_area~+*/
unsigned long int smg$scroll_display_area(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column, */
    /* const long int  *height, */
    /* const long int  *width, */
    /* const unsigned long int  *direction, */
    /* const long int  *count */
    ) ;
/*~-smg$scroll_display_area-~*/
/*+~smg$set_cursor_abs~+*/
unsigned long int smg$set_cursor_abs(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *start_column */
    ) ;
/*~-smg$set_cursor_abs-~*/
/*+~smg$set_cursor_rel~+*/
unsigned long int smg$set_cursor_rel(
    const unsigned long int  *display_id,
    ...
    /* const long int  *delta_row, */
    /* const long int  *delta_column */
    ) ;
/*~-smg$set_cursor_rel-~*/
/*+~smg$scroll_viewport~+*/
unsigned long int smg$scroll_viewport(
    const unsigned long int  *display_id,
    ...
    /* const unsigned long int  *direction, */
    /* const long int  *count */
    ) ;
/*~-smg$scroll_viewport-~*/
/*+~smg$set_display_scroll_region~+*/
unsigned long int smg$set_display_scroll_region(
    const unsigned long int  *display_id,
    ...
    /* const long int  *start_row, */
    /* const long int  *end_row */
    ) ;
/*~-smg$set_display_scroll_region-~*/
/*+~smg$select_from_menu~+*/
unsigned long int smg$select_from_menu(
    const unsigned long int  *keyboard_id,
    const unsigned long int  *display_id,
    unsigned short int  *selected_choice_number,
    ...
    /* const unsigned short int  *default_choice_number, */
    /* const unsigned long int  *flags, */
    /* const struct dsc$descriptor *help_library, */
    /* const long int  *timeout, */
    /* unsigned short int  *terminator_code, */
    /* struct dsc$descriptor *selected_choice_string, */
    /* const unsigned long int  *rendition_set, */
    /* const unsigned long int  *rendition_complement */
    ) ;
/*~-smg$select_from_menu-~*/
/*+~smg$set_cursor_mode~+*/
unsigned long int smg$set_cursor_mode(
    const unsigned long int  *pasteboard_id,
    const unsigned long int  *flags
    ) ;
/*~-smg$set_cursor_mode-~*/
/*+~smg$set_keypad_mode~+*/
unsigned long int smg$set_keypad_mode(
    const unsigned long int  *keyboard_id,
    const unsigned long int  *flags
    ) ;
/*~-smg$set_keypad_mode-~*/
/*+~smg$snapshot~+*/
unsigned long int smg$snapshot(
    const unsigned long int  *pasteboard_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*~-smg$snapshot-~*/
/*+~smg$set_out_of_band_asts~+*/
unsigned long int smg$set_out_of_band_asts(
    const unsigned long int  *pasteboard_id,
    const unsigned long int  *control_character_mask,
    const int *ast_routine,
    ...
    /* const unsigned long int ast_argument */
    ) ;
/*~-smg$set_out_of_band_asts-~*/
/*+~smg$set_physical_cursor~+*/
unsigned long int smg$set_physical_cursor(
    const unsigned long int  *pasteboard_id,
    const long int  *pasteboard_row,
    const long int  *pasteboard_column
    ) ;
/*~-smg$set_physical_cursor-~*/
/*+~smg$set_default_state~+*/
unsigned long int smg$set_default_state(
    const unsigned long int  *key_table_id,
    ...
    /* const struct dsc$descriptor *new_state, */
    /* struct dsc$descriptor *old_state */
    ) ;
/*~-smg$set_default_state-~*/
/*+~smg$set_term_characteristics~+*/
unsigned long int smg$set_term_characteristics(
    const unsigned long int  *pasteboard_id,
    ...
    /* const unsigned long int  *on_characteristics1, */
    /* const unsigned long int  *on_characteristics2, */
    /* const unsigned long int  *off_characteristics1, */
    /* const unsigned long int  *off_characteristics2, */
    /* unsigned long int  *old_characteristics1, */
    /* unsigned long int  *old_characteristics2 */
    ) ;
/*~-smg$set_term_characteristics-~*/
/*+~smg$save_virtual_display~+*/
unsigned long int smg$save_virtual_display(
    const unsigned long int  *display_id,
    ...
    /* const struct dsc$descriptor *filespec */
    ) ;
/*~-smg$save_virtual_display-~*/
/*+~smg$save_physical_screen~+*/
unsigned long int smg$save_physical_screen(
    const unsigned long int  *pasteboard_id,
    unsigned long int  *display_id,
    ...
    /* const long int  *desired_start_row, */
    /* const long int  *desired_end_row */
    ) ;
/*~-smg$save_physical_screen-~*/
/*+~smg$unpaste_virtual_display~+*/
unsigned long int smg$unpaste_virtual_display(
    const unsigned long int  *display_id,
    const unsigned long int  *pasteboard_id
    ) ;
/*~-smg$unpaste_virtual_display-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  8-AUG-1988 10:31:39 EMULEX$DISK:[MEADOWS.UNSDL.VMS5-0_H]SOR$ROUTINE */
#ifndef SOR$ROUTINES.TEMPLATE_
#define SOR$ROUTINES.TEMPLATE_
 
/*** MODULE SOR$ROUTINES ***/
/*+~sor$begin_merge~+*/
unsigned long int sor$begin_merge(
    /* const int  *key_buffer, */
    /* const unsigned short int  *lrl, */
    /* const unsigned long int  *options, */
    /* const unsigned char  *merge_order, */
    /* const int *user_compare, */
    /* const int *user_equal, */
    /* const int *user_input, */
    /* unsigned long int  *context */
    ) ;
/*~-sor$begin_merge-~*/
/*+~sor$begin_sort~+*/
unsigned long int sor$begin_sort(
    /* const int  *key_buffer, */
    /* const unsigned short int  *lrl, */
    /* const unsigned long int  *options, */
    /* const unsigned long int  *file_alloc, */
    /* const int *user_compare, */
    /* const int *user_equal, */
    /* const unsigned char  *sort_process, */
    /* const unsigned char  *work_files, */
    /* unsigned long int  *context */
    ) ;
/*~-sor$begin_sort-~*/
/*+~sor$do_merge~+*/
long int sor$do_merge() ;
/*~-sor$do_merge-~*/
/*+~sor$end_sort~+*/
unsigned long int sor$end_sort(
    /* unsigned long int  *context */
    ) ;
/*~-sor$end_sort-~*/
/*+~sor$init_merge~+*/
long int sor$init_merge(
    /* const unsigned char  *merge_order, */
    /* const int  *key_buffer, */
    /* const unsigned short int  *lrl, */
    /* const unsigned long int  *options, */
    /* const int *user_compare, */
    /* const int *user_equal */
    ) ;
/*~-sor$init_merge-~*/
/*+~sor$init_sort~+*/
long int sor$init_sort(
    /* const int  *key_buffer, */
    /* const unsigned short int  *lrl, */
    /* const unsigned long int  *file_alloc, */
    /* const unsigned char  *work_files, */
    /* const unsigned char  *sort_process, */
    /* const unsigned char  *key_size, */
    /* const int *user_compare, */
    /* const unsigned long int  *options */
    ) ;
/*~-sor$init_sort-~*/
/*+~sor$pass_files~+*/
unsigned long int sor$pass_files(
    /* const struct dsc$descriptor *inp_desc, */
    /* const struct dsc$descriptor *out_desc, */
    /* const unsigned char  *org, */
    /* const unsigned char  *rfm, */
    /* const unsigned char  *bks, */
    /* const unsigned short int  *bls, */
    /* const unsigned short int  *mrs, */
    /* const unsigned long int  *alq, */
    /* const unsigned long int  *fop, */
    /* const unsigned char  *fsz, */
    /* unsigned long int  *context */
    ) ;
/*~-sor$pass_files-~*/
/*+~sor$release_rec~+*/
unsigned long int sor$release_rec(
    const struct dsc$descriptor *desc,
    ...
    /* unsigned long int  *context */
    ) ;
/*~-sor$release_rec-~*/
/*+~sor$return_rec~+*/
unsigned long int sor$return_rec(
    struct dsc$descriptor *desc,
    ...
    /* unsigned short int  *length, */
    /* unsigned long int  *context */
    ) ;
/*~-sor$return_rec-~*/
/*+~sor$sort_merge~+*/
unsigned long int sor$sort_merge(
    /* unsigned long int  *context */
    ) ;
/*~-sor$sort_merge-~*/
/*+~sor$spec_file~+*/
unsigned long int sor$spec_file(
    /* const struct dsc$descriptor *spec_file, */
    /* const struct dsc$descriptor *spec_buffer, */
    /* unsigned long int  *context */
    ) ;
/*~-sor$spec_file-~*/
/*+~sor$stat~+*/
unsigned long int sor$stat(
    const unsigned short int  *code,
    unsigned long int  *result,
    ...
    /* unsigned long int  *context */
    ) ;
/*~-sor$stat-~*/
#endif
/* Created by SDL V3.1-7     */
/* Source:  8-AUG-1988 10:42:05 EMULEX$DISK:[MEADOWS.UNSDL.VMS5-0_H]STARLET.SDI */
#ifndef SYS$ROUTINES.TEMPLATE_
#define SYS$ROUTINES.TEMPLATE_
 
/*** MODULE STARLET ***/
/*+~sys$add_holder~+*/
long int sys$add_holder(
    const unsigned long int id,
    const unsigned int  *holder [2],
    const unsigned long int attrib
    ) ;
/*~-sys$add_holder-~*/
/*+~sys$add_ident~+*/
long int sys$add_ident(
    const struct dsc$descriptor *name,
    const unsigned long int id,
    const unsigned long int attrib,
    unsigned long int  *resid
    ) ;
/*~-sys$add_ident-~*/
/*+~sys$adjstk~+*/
long int sys$adjstk(
    const unsigned long int acmode,
    const short int adjust,
    unsigned long int  *newadr
    ) ;
/*~-sys$adjstk-~*/
/*+~sys$adjwsl~+*/
long int sys$adjwsl(
    const long int pagcnt,
    unsigned long int  *wsetlm
    ) ;
/*~-sys$adjwsl-~*/
/*+~sys$alloc~+*/
long int sys$alloc(
    const struct dsc$descriptor *devnam,
    unsigned short int  *phylen,
    struct dsc$descriptor *phybuf,
    const unsigned long int acmode,
    const unsigned long int flags
    ) ;
/*~-sys$alloc-~*/
/*+~sys$ascefc~+*/
long int sys$ascefc(
    const unsigned long int efn,
    const struct dsc$descriptor *name,
    const char prot,
    const char perm
    ) ;
/*~-sys$ascefc-~*/
/*+~sys$asctim~+*/
long int sys$asctim(
    unsigned short int  *timlen,
    struct dsc$descriptor *timbuf,
    const unsigned int  *timadr [2],
    const char cvtflg
    ) ;
/*~-sys$asctim-~*/
/*+~sys$asctoid~+*/
long int sys$asctoid(
    const struct dsc$descriptor *name,
    unsigned long int  *id,
    unsigned long int  *attrib
    ) ;
/*~-sys$asctoid-~*/
/*+~sys$assign~+*/
long int sys$assign(
    const struct dsc$descriptor *devnam,
    unsigned short int  *chan,
    const unsigned long int acmode,
    const struct dsc$descriptor *mbxnam
    ) ;
/*~-sys$assign-~*/
/*+~sys$bintim~+*/
long int sys$bintim(
    const struct dsc$descriptor *timbuf,
    unsigned int  *timadr [2]
    ) ;
/*~-sys$bintim-~*/
/*+~sys$brdcst~+*/
long int sys$brdcst(
    const struct dsc$descriptor *msgbuf,
    const struct dsc$descriptor *devnam,
    const unsigned long int flags,
    const unsigned long int carcon
    ) ;
/*~-sys$brdcst-~*/
/*+~sys$brkthru~+*/
long int sys$brkthru(
    const unsigned long int efn,
    const struct dsc$descriptor *msgbuf,
    const struct dsc$descriptor *sendto,
    const unsigned long int sndtyp,
    unsigned int  *iosb [2],
    const unsigned long int carcon,
    const unsigned long int flags,
    const unsigned long int reqid,
    const unsigned long int timout,
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$brkthru-~*/
/*+~sys$brkthruw~+*/
long int sys$brkthruw(
    const unsigned long int efn,
    const struct dsc$descriptor *msgbuf,
    const struct dsc$descriptor *sendto,
    const unsigned long int sndtyp,
    unsigned int  *iosb [2],
    const unsigned long int carcon,
    const unsigned long int flags,
    const unsigned long int reqid,
    const unsigned long int timout,
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$brkthruw-~*/
/*+~sys$cancel~+*/
long int sys$cancel(
    const unsigned short int chan
    ) ;
/*~-sys$cancel-~*/
/*+~sys$canexh~+*/
long int sys$canexh(
    const int  *desblk
    ) ;
/*~-sys$canexh-~*/
/*+~sys$cantim~+*/
long int sys$cantim(
    const unsigned long int reqidt,
    const unsigned long int acmode
    ) ;
/*~-sys$cantim-~*/
/*+~sys$canwak~+*/
long int sys$canwak(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam
    ) ;
/*~-sys$canwak-~*/
/*+~sys$change_acl~+*/
long int sys$change_acl(
    const unsigned short int chan,
    const unsigned long int  *objtyp,
    const struct dsc$descriptor *objnam,
    const int  *itmlst,
    const unsigned long int  *acmode,
    unsigned int  *iosb [2],
    unsigned long int  *contxt,
    const int * *routin,
    const unsigned long int  *orbadr
    ) ;
/*~-sys$change_acl-~*/
/*+~sys$change_class~+*/
long int sys$change_class(
    const unsigned long int  *objtyp,
    const struct dsc$descriptor *objnam,
    const int  *itmlst,
    const unsigned long int acmode,
    const unsigned long int  *orbadr
    ) ;
/*~-sys$change_class-~*/
/*+~sys$check_access~+*/
long int sys$check_access(
    const unsigned long int  *objtyp,
    const struct dsc$descriptor *objnam,
    const struct dsc$descriptor *usrnam,
    const int  *itmlst,
    const unsigned long int  *orbadr
    ) ;
/*~-sys$check_access-~*/
/*+~sys$chkpro~+*/
long int sys$chkpro(
    const int  *itmlst
    ) ;
/*~-sys$chkpro-~*/
/*+~sys$clref~+*/
long int sys$clref(
    const unsigned long int efn
    ) ;
/*~-sys$clref-~*/
/*+~sys$close~+*/
long int sys$close(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$close-~*/
/*+~sys$cmexec~+*/
long int sys$cmexec(
    const int * *routin,
    const int  *arglst
    ) ;
/*~-sys$cmexec-~*/
/*+~sys$cmkrnl~+*/
long int sys$cmkrnl(
    const int * *routin,
    const int  *arglst
    ) ;
/*~-sys$cmkrnl-~*/
/*+~sys$connect~+*/
long int sys$connect(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$connect-~*/
/*+~sys$cntreg~+*/
long int sys$cntreg(
    const unsigned long int pagcnt,
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const char region
    ) ;
/*~-sys$cntreg-~*/
/*+~sys$create~+*/
long int sys$create(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$create-~*/
/*+~sys$create_rdb~+*/
long int sys$create_rdb(
    const unsigned int  *sysid [2]
    ) ;
/*~-sys$create_rdb-~*/
/*+~sys$crelnm~+*/
long int sys$crelnm(
    const unsigned long int  *attr,
    const struct dsc$descriptor *tabnam,
    const struct dsc$descriptor *lognam,
    const unsigned char  *acmode,
    const int  *itmlst
    ) ;
/*~-sys$crelnm-~*/
/*+~sys$crelnt~+*/
long int sys$crelnt(
    const unsigned long int  *attr,
    struct dsc$descriptor *resnam,
    unsigned short int  *reslen,
    const unsigned long int  *quota,
    const unsigned short int  *promsk,
    const struct dsc$descriptor *tabnam,
    const struct dsc$descriptor *partab,
    const unsigned char  *acmode
    ) ;
/*~-sys$crelnt-~*/
/*+~sys$crelog~+*/
long int sys$crelog(
    const unsigned long int tblflg,
    const struct dsc$descriptor *lognam,
    const struct dsc$descriptor *eqlnam,
    const unsigned long int acmode
    ) ;
/*~-sys$crelog-~*/
/*+~sys$crembx~+*/
long int sys$crembx(
    const char prmflg,
    unsigned short int  *chan,
    const unsigned long int maxmsg,
    const unsigned long int bufquo,
    const unsigned long int promsk,
    const unsigned long int acmode,
    const struct dsc$descriptor *lognam
    ) ;
/*~-sys$crembx-~*/
/*+~sys$creprc~+*/
long int sys$creprc(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *image,
    const struct dsc$descriptor *input,
    const struct dsc$descriptor *output,
    const struct dsc$descriptor *error,
    const unsigned int  *prvadr [2],
    const int  *quota,
    const struct dsc$descriptor *prcnam,
    const unsigned long int baspri,
    const unsigned long int uic,
    const unsigned short int mbxunt,
    const unsigned long int stsflg,
    const int  *itmlst
    ) ;
/*~-sys$creprc-~*/
/*+~sys$cretva~+*/
long int sys$cretva(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$cretva-~*/
/*+~sys$crmpsc~+*/
long int sys$crmpsc(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const unsigned long int flags,
    const struct dsc$descriptor *gsdnam,
    const unsigned int  *ident [2],
    const unsigned long int relpag,
    const unsigned short int chan,
    const unsigned long int pagcnt,
    const unsigned long int vbn,
    const unsigned long int prot,
    const unsigned long int pfc
    ) ;
/*~-sys$crmpsc-~*/
/*+~sys$dacefc~+*/
long int sys$dacefc(
    const unsigned long int efn
    ) ;
/*~-sys$dacefc-~*/
/*+~sys$dalloc~+*/
long int sys$dalloc(
    const struct dsc$descriptor *devnam,
    const unsigned long int acmode
    ) ;
/*~-sys$dalloc-~*/
/*+~sys$dassgn~+*/
long int sys$dassgn(
    const unsigned short int chan
    ) ;
/*~-sys$dassgn-~*/
/*+~sys$dclast~+*/
long int sys$dclast(
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned long int acmode
    ) ;
/*~-sys$dclast-~*/
/*+~sys$dclcmh~+*/
long int sys$dclcmh(
    const int * *addres,
    unsigned long int  *prvhnd,
    const char type
    ) ;
/*~-sys$dclcmh-~*/
/*+~sys$dclexh~+*/
long int sys$dclexh(
    const int  *desblk
    ) ;
/*~-sys$dclexh-~*/
/*+~sys$delete~+*/
long int sys$delete(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$delete-~*/
/*+~sys$dellnm~+*/
long int sys$dellnm(
    const struct dsc$descriptor *tabnam,
    const struct dsc$descriptor *lognam,
    const unsigned char  *acmode
    ) ;
/*~-sys$dellnm-~*/
/*+~sys$dellog~+*/
long int sys$dellog(
    const unsigned long int tblflg,
    const struct dsc$descriptor *lognam,
    const unsigned long int acmode
    ) ;
/*~-sys$dellog-~*/
/*+~sys$delmbx~+*/
long int sys$delmbx(
    const unsigned short int chan
    ) ;
/*~-sys$delmbx-~*/
/*+~sys$delprc~+*/
long int sys$delprc(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam
    ) ;
/*~-sys$delprc-~*/
/*+~sys$deltva~+*/
long int sys$deltva(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$deltva-~*/
/*+~sys$deq~+*/
long int sys$deq(
    const unsigned long int lkid,
    int  *valblk,
    const unsigned long int acmode,
    const unsigned long int flags
    ) ;
/*~-sys$deq-~*/
/*+~sys$dgblsc~+*/
long int sys$dgblsc(
    const unsigned long int flags,
    const struct dsc$descriptor *gsdnam,
    const unsigned int  *ident [2]
    ) ;
/*~-sys$dgblsc-~*/
/*+~sys$disconnect~+*/
long int sys$disconnect(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$disconnect-~*/
/*+~sys$dismou~+*/
long int sys$dismou(
    const struct dsc$descriptor *devnam,
    const unsigned long int flags
    ) ;
/*~-sys$dismou-~*/
/*+~sys$display~+*/
long int sys$display(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$display-~*/
/*+~sys$dlcefc~+*/
long int sys$dlcefc(
    const struct dsc$descriptor *name
    ) ;
/*~-sys$dlcefc-~*/
/*+~sys$enq~+*/
long int sys$enq(
    const unsigned long int efn,
    const unsigned long int lkmode,
    int  *lksb,
    const unsigned long int flags,
    const struct dsc$descriptor *resnam,
    const unsigned long int parid,
    const int * *astadr,
    const unsigned long int astprm,
    const int * *blkast,
    const unsigned long int acmode,
    const unsigned long int prot
    ) ;
/*~-sys$enq-~*/
/*+~sys$enqw~+*/
long int sys$enqw(
    const unsigned long int efn,
    const unsigned long int lkmode,
    int  *lksb,
    const unsigned long int flags,
    const struct dsc$descriptor *resnam,
    const unsigned long int parid,
    const int * *astadr,
    const unsigned long int astprm,
    const int * *blkast,
    const unsigned long int acmode,
    const unsigned long int prot
    ) ;
/*~-sys$enqw-~*/
/*+~sys$enter~+*/
long int sys$enter(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$enter-~*/
/*+~sys$erapat~+*/
long int sys$erapat(
    const long int type,
    const unsigned long int count,
    unsigned long int  *patadr
    ) ;
/*~-sys$erapat-~*/
/*+~sys$erase~+*/
long int sys$erase(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$erase-~*/
/*+~sys$exit~+*/
long int sys$exit(
    const unsigned long int code
    ) ;
/*~-sys$exit-~*/
/*+~sys$expreg~+*/
long int sys$expreg(
    const unsigned long int pagcnt,
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const char region
    ) ;
/*~-sys$expreg-~*/
/*+~sys$extend~+*/
long int sys$extend(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$extend-~*/
/*+~sys$fao~+*/
long int sys$fao(
    const struct dsc$descriptor *ctrstr,
    unsigned short int  *outlen,
    struct dsc$descriptor *outbuf,
    const long int p1
    ) ;
/*~-sys$fao-~*/
/*+~sys$faol~+*/
long int sys$faol(
    const struct dsc$descriptor *ctrstr,
    unsigned short int  *outlen,
    struct dsc$descriptor *outbuf,
    const int  *prmlst
    ) ;
/*~-sys$faol-~*/
/*+~sys$filescan~+*/
long int sys$filescan(
    const struct dsc$descriptor *srcstr,
    int  *valuelst,
    unsigned long int  *fldflags
    ) ;
/*~-sys$filescan-~*/
/*+~sys$find~+*/
long int sys$find(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$find-~*/
/*+~sys$find_held~+*/
long int sys$find_held(
    const unsigned int  *holder [2],
    unsigned long int  *id,
    unsigned long int  *attrib,
    unsigned long int  *contxt
    ) ;
/*~-sys$find_held-~*/
/*+~sys$find_holder~+*/
long int sys$find_holder(
    const unsigned long int id,
    unsigned int  *holder [2],
    unsigned long int  *attrib,
    unsigned long int  *contxt
    ) ;
/*~-sys$find_holder-~*/
/*+~sys$finish_rdb~+*/
long int sys$finish_rdb(
    unsigned long int  *contxt
    ) ;
/*~-sys$finish_rdb-~*/
/*+~sys$forcex~+*/
long int sys$forcex(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const unsigned long int code
    ) ;
/*~-sys$forcex-~*/
/*+~sys$format_acl~+*/
long int sys$format_acl(
    const struct dsc$descriptor *aclent,
    unsigned short int  *acllen,
    struct dsc$descriptor *aclstr,
    const unsigned short int  *width,
    const struct dsc$descriptor *trmdsc,
    const unsigned short int  *indent,
    const int  *accnam,
    const int * *routin
    ) ;
/*~-sys$format_acl-~*/
/*+~sys$format_class~+*/
long int sys$format_class(
    const int  *itmlst,
    const int * *routin
    ) ;
/*~-sys$format_class-~*/
/*+~sys$free~+*/
long int sys$free(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$free-~*/
/*+~sys$flush~+*/
long int sys$flush(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$flush-~*/
/*+~sys$get~+*/
long int sys$get(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$get-~*/
/*+~sys$getchn~+*/
long int sys$getchn(
    const unsigned short int chan,
    unsigned short int  *prilen,
    struct dsc$descriptor *pribuf,
    unsigned short int  *scdlen,
    struct dsc$descriptor *scdbuf
    ) ;
/*~-sys$getchn-~*/
/*+~sys$getdev~+*/
long int sys$getdev(
    const struct dsc$descriptor *devnam,
    unsigned short int  *prilen,
    struct dsc$descriptor *pribuf,
    unsigned short int  *scdlen,
    struct dsc$descriptor *scdbuf
    ) ;
/*~-sys$getdev-~*/
/*+~sys$getdvi~+*/
long int sys$getdvi(
    const unsigned long int efn,
    const unsigned short int chan,
    const struct dsc$descriptor *devnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned int  *nullarg [2]
    ) ;
/*~-sys$getdvi-~*/
/*+~sys$getdviw~+*/
long int sys$getdviw(
    const unsigned long int efn,
    const unsigned short int chan,
    const struct dsc$descriptor *devnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned int  *nullarg [2]
    ) ;
/*~-sys$getdviw-~*/
/*+~sys$getjpi~+*/
long int sys$getjpi(
    const unsigned long int efn,
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getjpi-~*/
/*+~sys$getjpiw~+*/
long int sys$getjpiw(
    const unsigned long int efn,
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getjpiw-~*/
/*+~sys$getlki~+*/
long int sys$getlki(
    const unsigned long int efn,
    unsigned long int  *lkidadr,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned long int reserved
    ) ;
/*~-sys$getlki-~*/
/*+~sys$getlkiw~+*/
long int sys$getlkiw(
    const unsigned long int efn,
    unsigned long int  *lkidadr,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned long int reserved
    ) ;
/*~-sys$getlkiw-~*/
/*+~sys$getmsg~+*/
long int sys$getmsg(
    const unsigned long int msgid,
    unsigned short int  *msglen,
    struct dsc$descriptor *bufadr,
    const unsigned long int flags,
    unsigned char  *outadr [4]
    ) ;
/*~-sys$getmsg-~*/
/*+~sys$getpti~+*/
long int sys$getpti(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const unsigned long int mask,
    const unsigned long int pagcnt
    ) ;
/*~-sys$getpti-~*/
/*+~sys$getqui~+*/
long int sys$getqui(
    const unsigned long int efn,
    const unsigned short int func,
    const unsigned long int nullarg,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getqui-~*/
/*+~sys$getquiw~+*/
long int sys$getquiw(
    const unsigned long int efn,
    const unsigned short int func,
    const unsigned long int nullarg,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getquiw-~*/
/*+~sys$getsyi~+*/
long int sys$getsyi(
    const unsigned long int efn,
    unsigned long int  *csidadr,
    const struct dsc$descriptor *nodename,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getsyi-~*/
/*+~sys$getsyiw~+*/
long int sys$getsyiw(
    const unsigned long int efn,
    unsigned long int  *csidadr,
    const struct dsc$descriptor *nodename,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getsyiw-~*/
/*+~sys$gettim~+*/
long int sys$gettim(
    unsigned int  *timadr [2]
    ) ;
/*~-sys$gettim-~*/
/*+~sys$getuai~+*/
long int sys$getuai(
    const unsigned long int efn,
    const unsigned long int  *contxt,
    const struct dsc$descriptor *usrnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$getuai-~*/
/*+~sys$grantid~+*/
long int sys$grantid(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    unsigned int  *id [2],
    const struct dsc$descriptor *name,
    unsigned long int  *prvatr
    ) ;
/*~-sys$grantid-~*/
/*+~sys$grant_license~+*/
long int sys$grant_license(
    const struct dsc$descriptor *prdnam,
    const struct dsc$descriptor *prducer,
    const unsigned long int  *contxt [4],
    const int  *itmlst
    ) ;
/*~-sys$grant_license-~*/
/*+~sys$hiber~+*/
long int sys$hiber() ;
/*~-sys$hiber-~*/
/*+~sys$idtoasc~+*/
long int sys$idtoasc(
    const unsigned long int id,
    unsigned short int  *namlen,
    struct dsc$descriptor *nambuf,
    unsigned long int  *resid,
    unsigned long int  *attrib,
    unsigned long int  *contxt
    ) ;
/*~-sys$idtoasc-~*/
/*+~sys$imgact~+*/
long int sys$imgact(
    const struct dsc$descriptor *name,
    const struct dsc$descriptor *dflnam,
    int * *hdrbuf,
    const unsigned long int imgctl,
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned int  *ident [2],
    const unsigned long int acmode
    ) ;
/*~-sys$imgact-~*/
/*+~sys$imgfix~+*/
long int sys$imgfix() ;
/*~-sys$imgfix-~*/
/*+~sys$lckpag~+*/
long int sys$lckpag(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$lckpag-~*/
/*+~sys$lkwset~+*/
long int sys$lkwset(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$lkwset-~*/
/*+~sys$mgblsc~+*/
long int sys$mgblsc(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const unsigned long int flags,
    const struct dsc$descriptor *gsdnam,
    const unsigned int  *ident [2],
    const unsigned long int relpag
    ) ;
/*~-sys$mgblsc-~*/
/*+~sys$modify~+*/
long int sys$modify(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$modify-~*/
/*+~sys$mod_holder~+*/
long int sys$mod_holder(
    const unsigned long int id,
    const unsigned int  *holder [2],
    const unsigned long int set_attrib,
    const unsigned long int clr_attrib
    ) ;
/*~-sys$mod_holder-~*/
/*+~sys$mod_ident~+*/
long int sys$mod_ident(
    const unsigned long int id,
    const unsigned long int set_attrib,
    const unsigned long int clr_attrib,
    const struct dsc$descriptor *new_name,
    const unsigned long int new_value
    ) ;
/*~-sys$mod_ident-~*/
/*+~sys$mount~+*/
long int sys$mount(
    const int  *itmlst
    ) ;
/*~-sys$mount-~*/
/*+~sys$mtaccess~+*/
long int sys$mtaccess(
    const unsigned long int  *lblnam,
    const unsigned long int uic,
    const unsigned long int std_version,
    const unsigned long int access_char,
    const unsigned long int access_spec,
    const unsigned long int type
    ) ;
/*~-sys$mtaccess-~*/
/*+~sys$numtim~+*/
long int sys$numtim(
    unsigned short int  *timbuf [7],
    const unsigned int  *timadr [2]
    ) ;
/*~-sys$numtim-~*/
/*+~sys$nxtvol~+*/
long int sys$nxtvol(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$nxtvol-~*/
/*+~sys$open~+*/
long int sys$open(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$open-~*/
/*+~sys$parse~+*/
long int sys$parse(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$parse-~*/
/*+~sys$parse_acl~+*/
long int sys$parse_acl(
    const struct dsc$descriptor *aclstr,
    struct dsc$descriptor *aclent,
    unsigned short int  *errpos,
    const int  *accnam,
    const int * *routin
    ) ;
/*~-sys$parse_acl-~*/
/*+~sys$parse_class~+*/
long int sys$parse_class(
    const int  *itmlst,
    const int * *routin
    ) ;
/*~-sys$parse_class-~*/
/*+~sys$purgws~+*/
long int sys$purgws(
    const unsigned long int  *inadr [2]
    ) ;
/*~-sys$purgws-~*/
/*+~sys$put~+*/
long int sys$put(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$put-~*/
/*+~sys$putmsg~+*/
long int sys$putmsg(
    const int  *msgvec,
    const int * *actrtn,
    const struct dsc$descriptor *facnam,
    const unsigned long int actprm
    ) ;
/*~-sys$putmsg-~*/
/*+~sys$qio~+*/
long int sys$qio(
    const unsigned long int efn,
    const unsigned short int chan,
    const unsigned short int func,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const int  *p1,
    const long int p2,
    const long int p3,
    const long int p4,
    const long int p5,
    const long int p6
    ) ;
/*~-sys$qio-~*/
/*+~sys$qiow~+*/
long int sys$qiow(
    const unsigned long int efn,
    const unsigned short int chan,
    const unsigned short int func,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm,
    const int  *p1,
    const long int p2,
    const long int p3,
    const long int p4,
    const long int p5,
    const long int p6
    ) ;
/*~-sys$qiow-~*/
/*+~sys$read~+*/
long int sys$read(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$read-~*/
/*+~sys$readef~+*/
long int sys$readef(
    const unsigned long int efn,
    unsigned long int  *state
    ) ;
/*~-sys$readef-~*/
/*+~sys$release~+*/
long int sys$release(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$release-~*/
/*+~sys$release_license~+*/
long int sys$release_license(
    const int  *contxt
    ) ;
/*~-sys$release_license-~*/
/*+~sys$remove~+*/
long int sys$remove(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$remove-~*/
/*+~sys$rem_holder~+*/
long int sys$rem_holder(
    const unsigned long int id,
    const unsigned int  *holder [2]
    ) ;
/*~-sys$rem_holder-~*/
/*+~sys$rem_ident~+*/
long int sys$rem_ident(
    const unsigned long int id
    ) ;
/*~-sys$rem_ident-~*/
/*+~sys$rename~+*/
long int sys$rename(
    int  *oldfab,
    const int * *err,
    const int * *suc,
    int  *newfab
    ) ;
/*~-sys$rename-~*/
/*+~sys$resume~+*/
long int sys$resume(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam
    ) ;
/*~-sys$resume-~*/
/*+~sys$revokid~+*/
long int sys$revokid(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    unsigned int  *id [2],
    const struct dsc$descriptor *name,
    unsigned long int  *prvatr
    ) ;
/*~-sys$revokid-~*/
/*+~sys$rewind~+*/
long int sys$rewind(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$rewind-~*/
/*+~sys$rundwn~+*/
long int sys$rundwn(
    const unsigned long int acmode
    ) ;
/*~-sys$rundwn-~*/
/*+~sys$schdwk~+*/
long int sys$schdwk(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const unsigned int  *daytim [2],
    const unsigned int  *reptim [2]
    ) ;
/*~-sys$schdwk-~*/
/*+~sys$search~+*/
long int sys$search(
    int  *fab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$search-~*/
/*+~sys$setast~+*/
long int sys$setast(
    const char enbflg
    ) ;
/*~-sys$setast-~*/
/*+~sys$setef~+*/
long int sys$setef(
    const unsigned long int efn
    ) ;
/*~-sys$setef-~*/
/*+~sys$setexv~+*/
long int sys$setexv(
    const unsigned long int vector,
    const int * *addres,
    const unsigned long int acmode,
    unsigned long int  *prvhnd
    ) ;
/*~-sys$setexv-~*/
/*+~sys$setime~+*/
long int sys$setime(
    const unsigned int  *timadr [2]
    ) ;
/*~-sys$setime-~*/
/*+~sys$setimr~+*/
long int sys$setimr(
    const unsigned long int efn,
    const unsigned int  *daytim [2],
    const int * *astadr,
    const unsigned long int reqidt,
    const unsigned long int flags
    ) ;
/*~-sys$setimr-~*/
/*+~sys$setpfm~+*/
long int sys$setpfm(
    const unsigned long int pfmflg,
    const int * *astadr,
    const unsigned long int astprm,
    const unsigned long int acmode
    ) ;
/*~-sys$setpfm-~*/
/*+~sys$setpra~+*/
long int sys$setpra(
    const int * *astadr,
    const unsigned long int acmode
    ) ;
/*~-sys$setpra-~*/
/*+~sys$setpri~+*/
long int sys$setpri(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const unsigned long int pri,
    unsigned long int  *prvpri
    ) ;
/*~-sys$setpri-~*/
/*+~sys$setprn~+*/
long int sys$setprn(
    const struct dsc$descriptor *prcnam
    ) ;
/*~-sys$setprn-~*/
/*+~sys$setprt~+*/
long int sys$setprt(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const unsigned long int prot,
    unsigned char  *prvprt
    ) ;
/*~-sys$setprt-~*/
/*+~sys$setprv~+*/
long int sys$setprv(
    const char enbflg,
    const unsigned int  *prvadr [2],
    const char prmflg,
    unsigned int  *prvprv [2]
    ) ;
/*~-sys$setprv-~*/
/*+~sys$setrwm~+*/
long int sys$setrwm(
    const char watflg
    ) ;
/*~-sys$setrwm-~*/
/*+~sys$setsfm~+*/
long int sys$setsfm(
    const char enbflg
    ) ;
/*~-sys$setsfm-~*/
/*+~sys$setssf~+*/
long int sys$setssf(
    const unsigned long int mask
    ) ;
/*~-sys$setssf-~*/
/*+~sys$setstk~+*/
long int sys$setstk(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$setstk-~*/
/*+~sys$setswm~+*/
long int sys$setswm(
    const char swpflg
    ) ;
/*~-sys$setswm-~*/
/*+~sys$setuai~+*/
long int sys$setuai(
    const unsigned long int efn,
    const unsigned long int  *contxt,
    const struct dsc$descriptor *usrnam,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$setuai-~*/
/*+~sys$sndacc~+*/
long int sys$sndacc(
    const struct dsc$descriptor *msgbuf,
    const unsigned short int chan
    ) ;
/*~-sys$sndacc-~*/
/*+~sys$snderr~+*/
long int sys$snderr(
    const struct dsc$descriptor *msgbuf
    ) ;
/*~-sys$snderr-~*/
/*+~sys$sndopr~+*/
long int sys$sndopr(
    const struct dsc$descriptor *msgbuf,
    const unsigned short int chan
    ) ;
/*~-sys$sndopr-~*/
/*+~sys$sndsmb~+*/
long int sys$sndsmb(
    const struct dsc$descriptor *msgbuf,
    const unsigned short int chan
    ) ;
/*~-sys$sndsmb-~*/
/*+~sys$sndjbc~+*/
long int sys$sndjbc(
    const unsigned long int efn,
    const unsigned short int func,
    const unsigned long int nullarg,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$sndjbc-~*/
/*+~sys$sndjbcw~+*/
long int sys$sndjbcw(
    const unsigned long int efn,
    const unsigned short int func,
    const unsigned long int nullarg,
    const int  *itmlst,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$sndjbcw-~*/
/*+~sys$space~+*/
long int sys$space(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$space-~*/
/*+~sys$suspnd~+*/
long int sys$suspnd(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam,
    const unsigned long int flags
    ) ;
/*~-sys$suspnd-~*/
/*+~sys$synch~+*/
long int sys$synch(
    const unsigned long int efn,
    unsigned int  *iosb [2]
    ) ;
/*~-sys$synch-~*/
/*+~sys$trnlnm~+*/
long int sys$trnlnm(
    const unsigned long int  *attr,
    const struct dsc$descriptor *tabnam,
    const struct dsc$descriptor *lognam,
    const unsigned char  *acmode,
    const int  *itmlst
    ) ;
/*~-sys$trnlnm-~*/
/*+~sys$trnlog~+*/
long int sys$trnlog(
    const struct dsc$descriptor *lognam,
    unsigned short int  *rsllen,
    struct dsc$descriptor *rslbuf,
    unsigned char  *table,
    unsigned char  *acmode,
    const unsigned long int dsbmsk
    ) ;
/*~-sys$trnlog-~*/
/*+~sys$truncate~+*/
long int sys$truncate(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$truncate-~*/
/*+~sys$ulkpag~+*/
long int sys$ulkpag(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$ulkpag-~*/
/*+~sys$ulwset~+*/
long int sys$ulwset(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode
    ) ;
/*~-sys$ulwset-~*/
/*+~sys$unwind~+*/
long int sys$unwind(
    const unsigned long int  *depadr,
    const unsigned long int  *newpc
    ) ;
/*~-sys$unwind-~*/
/*+~sys$update~+*/
long int sys$update(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$update-~*/
/*+~sys$updsec~+*/
long int sys$updsec(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const char updflg,
    const unsigned long int efn,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$updsec-~*/
/*+~sys$updsecw~+*/
long int sys$updsecw(
    const unsigned long int  *inadr [2],
    unsigned long int  *retadr [2],
    const unsigned long int acmode,
    const char updflg,
    const unsigned long int efn,
    unsigned int  *iosb [2],
    const int * *astadr,
    const unsigned long int astprm
    ) ;
/*~-sys$updsecw-~*/
/*+~sys$wait~+*/
long int sys$wait(
    int  *rab
    ) ;
/*~-sys$wait-~*/
/*+~sys$waitfr~+*/
long int sys$waitfr(
    const unsigned long int efn
    ) ;
/*~-sys$waitfr-~*/
/*+~sys$wake~+*/
long int sys$wake(
    unsigned long int  *pidadr,
    const struct dsc$descriptor *prcnam
    ) ;
/*~-sys$wake-~*/
/*+~sys$wfland~+*/
long int sys$wfland(
    const unsigned long int efn,
    const unsigned long int mask
    ) ;
/*~-sys$wfland-~*/
/*+~sys$wflor~+*/
long int sys$wflor(
    const unsigned long int efn,
    const unsigned long int mask
    ) ;
/*~-sys$wflor-~*/
/*+~sys$write~+*/
long int sys$write(
    int  *rab,
    ...
    /* const int * *err, */
    /* const int * *suc */
    ) ;
/*~-sys$write-~*/
#endif