
<<Tex.mod>>
<<Modified by: Ramshaw, February 3, 1984 6:30 pm>>
<<Modified by: Plass, December 30, 1982 9:47 am>>
<<Last changed by Pavel on May 29, 1985 7:05:00 pm PDT>>
    <<Michael Plass, September 27, 1985 10:03:21 am PDT>>
(configuration tex(basic_time, commander, convert, f_s, i_o, message_window, rope, safe_storage, sir_press, unsafe_storage, 
user_profile, v_m);
definitions pascal_basic; external;
definitions pascal_wizard_files; external;
program pascal_basic_impl; external;
program pascal_wizard_files_impl; external;
program no_file; trash;
definitions tex_types(pascal_basic*, pascal_wizard_files*); forward;
definitions tex_init(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_sysdep(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_sysdep_inline.hint$(pascal_basic, tex_types, tex_sysdep, sir_press); forward;
definitions te_x_export.hint$*(commander*); forward;
definitions tex_interaction(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_memory(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_symbols(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_scan(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_dvi(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_ops(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_paragraph(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_build_page(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_math(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_rest(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
definitions tex_extensions(pascal_basic*, pascal_wizard_files*, tex_types*); forward;
program tex_sysdep_impl.hint$(pascal_basic, pascal_wizard_files, tex_types, tex_init, tex_sysdep, tex_interaction, tex_memory, 
tex_symbols, tex_scan, tex_dvi, tex_ops, tex_paragraph, tex_build_page, tex_math, tex_rest, tex_extensions, tex_sysdep_inline, 
te_x_export, sir_press); forward;
program tex_sysdep_inline_impl.hint$(sir_press*, tex_memory, tex_sysdep_inline); forward;
program tex_init_impl(pascal_basic, pascal_wizard_files, tex_types, tex_init*, tex_sysdep, tex_sysdep_inline, tex_interaction, 
tex_memory, tex_symbols, tex_scan*, tex_dvi, tex_ops, tex_paragraph, tex_build_page, tex_rest); forward;
program tex_init2_impl(pascal_basic*, pascal_wizard_files, tex_types, tex_init*, tex_sysdep*, tex_sysdep_inline, tex_interaction, 
tex_memory, tex_symbols, tex_ops, tex_paragraph, tex_rest); forward;
program tex_interaction_impl(pascal_basic, pascal_wizard_files, tex_types, tex_interaction*, tex_scan, tex_symbols, tex_rest, 
tex_sysdep); forward;
program tex_memory_impl(pascal_basic, tex_types, tex_interaction, tex_memory*, tex_symbols, tex_paragraph, tex_sysdep_inline); 
forward;
program tex_memory2_impl(pascal_basic, tex_types*, tex_interaction, tex_memory, tex_symbols, tex_build_page*, tex_scan, tex_ops, 
tex_extensions, tex_rest*, tex_sysdep*, tex_sysdep_inline); forward;
program tex_memory3_impl(pascal_basic*, tex_types, tex_interaction, tex_memory, tex_symbols, tex_build_page, tex_scan*, tex_ops*, 
tex_extensions*, tex_rest, tex_sysdep, tex_sysdep_inline); forward;
program tex_symbols_impl(pascal_basic, tex_types, tex_interaction, tex_memory, tex_symbols, tex_ops, tex_sysdep, 
tex_sysdep_inline); forward;
program tex_symbols2_impl(pascal_basic, pascal_wizard_files, tex_types, tex_sysdep, tex_sysdep_inline, tex_interaction, tex_memory, 
tex_symbols, tex_scan, tex_ops, tex_rest); forward;
program tex_scan_impl(pascal_basic*, pascal_wizard_files*, tex_types*, tex_sysdep*, tex_sysdep_inline, tex_interaction, 
tex_build_page*, tex_memory, tex_symbols, tex_scan, tex_ops*, tex_rest*); forward;
program tex_scan2_impl(pascal_basic, pascal_wizard_files*, tex_sysdep*, tex_types, tex_interaction, tex_build_page, tex_memory, 
tex_symbols, tex_scan, tex_ops, tex_rest, tex_sysdep_inline); forward;
program tex_scan3_impl(pascal_basic*, pascal_wizard_files, tex_sysdep, tex_types, tex_interaction, tex_memory, tex_symbols, 
tex_scan, tex_ops, tex_rest, tex_sysdep_inline); forward;
program tex_scan4_impl(pascal_basic, pascal_wizard_files, tex_sysdep, tex_types, tex_interaction, tex_memory*, tex_symbols, 
tex_scan, tex_ops, tex_rest*); forward;
program tex_scan5_impl(pascal_basic, pascal_wizard_files*, tex_sysdep, tex_types, tex_interaction, tex_build_page*, tex_memory, 
tex_symbols, tex_scan, tex_ops, tex_rest, tex_sysdep_inline); forward;
program tex_dvi_impl(pascal_basic, pascal_wizard_files, tex_types*, tex_sysdep, tex_sysdep_inline, tex_interaction, tex_memory, 
tex_symbols, tex_scan, tex_dvi, tex_ops, tex_build_page, tex_extensions); forward;
program tex_dvi2_impl(pascal_basic, tex_types*, tex_sysdep, tex_sysdep_inline, tex_interaction, tex_memory, tex_symbols, tex_dvi, 
tex_ops, tex_build_page, tex_extensions); forward;
program tex_ops_impl(pascal_basic, tex_types, tex_interaction, tex_memory, tex_symbols, tex_scan, tex_ops, tex_rest, 
tex_sysdep_inline); forward;
program tex_ops2_impl(pascal_basic, tex_types, tex_interaction, tex_memory, tex_symbols, tex_scan, tex_ops, tex_build_page, 
tex_math, tex_rest*, tex_sysdep_inline); forward;
program tex_ops3_impl(pascal_basic, tex_types, tex_interaction, tex_memory, tex_symbols, tex_scan*, tex_ops, tex_build_page, 
tex_math*, tex_rest, tex_sysdep_inline); forward;
program tex_paragraph_impl(pascal_basic, tex_types, tex_interaction, tex_memory, tex_symbols, tex_ops, tex_paragraph*, 
tex_sysdep_inline); forward;
program tex_paragraph2_impl(pascal_basic*, tex_types, tex_interaction, tex_memory, tex_symbols, tex_ops, tex_paragraph, 
tex_sysdep_inline); forward;
program tex_paragraph3_impl(pascal_basic*, tex_types, tex_interaction, tex_memory, tex_symbols, tex_ops, tex_paragraph, 
tex_sysdep_inline); forward;
program tex_hyph_impl(pascal_basic, tex_types, tex_init, tex_interaction, tex_memory, tex_symbols, tex_scan, tex_paragraph, 
tex_sysdep_inline); forward;
program tex_align_impl(tex_types*, tex_interaction, tex_symbols, tex_ops, tex_build_page); forward;
program tex_build_page_impl(pascal_basic*, tex_types, tex_interaction, tex_memory, tex_symbols, tex_scan*, tex_dvi*, tex_ops*, 
tex_build_page, tex_rest, tex_sysdep_inline); forward;
program tex_build_page2_impl(pascal_basic*, tex_types, tex_interaction, tex_memory, tex_symbols, tex_ops, tex_paragraph, 
tex_build_page, tex_scan, tex_dvi, tex_rest, tex_sysdep_inline); forward;
program tex_build_page3_impl(pascal_basic, tex_types, tex_interaction, tex_memory, tex_symbols, tex_scan, tex_dvi, tex_ops, 
tex_paragraph, tex_build_page, tex_math, tex_rest, tex_sysdep_inline); forward;
program tex_math_impl(pascal_basic, tex_types*, tex_interaction, tex_memory, tex_symbols, tex_scan, tex_ops, tex_paragraph, 
tex_build_page, tex_math, tex_sysdep_inline); forward;
program tex_math2_impl(pascal_basic, tex_types*, tex_interaction, tex_math*, tex_memory, tex_symbols, tex_ops, tex_sysdep_inline); 
forward;
program tex_math3_impl(pascal_basic, tex_types, tex_interaction, tex_memory, tex_symbols, tex_ops, tex_math, tex_sysdep_inline); 
forward;
program tex_math4_impl(pascal_basic, tex_types, tex_interaction, tex_memory, tex_symbols, tex_scan, tex_ops, tex_build_page, 
tex_math, tex_rest, tex_sysdep_inline); forward;
program tex_rest_impl(pascal_basic*, pascal_wizard_files*, tex_types, tex_interaction, tex_memory, tex_symbols, tex_scan*, 
tex_ops*, tex_paragraph*, tex_build_page, tex_rest*, tex_sysdep_inline); forward;
program tex_rest2_impl(pascal_basic, pascal_wizard_files, tex_types, tex_sysdep, tex_sysdep_inline, tex_init, tex_interaction, 
tex_memory, tex_symbols, tex_scan, tex_ops, tex_paragraph, tex_build_page, tex_rest); forward;
program tex_finalize_impl(pascal_basic, pascal_wizard_files, tex_types, tex_sysdep, tex_sysdep_inline, tex_interaction, tex_memory, 
tex_symbols, tex_scan, tex_dvi, tex_ops, tex_paragraph, tex_build_page, tex_rest); forward;
program tex_maincontrol_impl(pascal_basic, tex_types, tex_interaction, tex_memory, tex_symbols, tex_scan, tex_ops, tex_build_page, 
tex_math, tex_rest, tex_extensions, tex_sysdep_inline); forward;
program tex_extensions_impl(pascal_basic*, tex_types, tex_sysdep, tex_sysdep_inline, tex_interaction, tex_memory, tex_symbols, 
tex_scan, tex_dvi, tex_build_page, tex_rest, tex_extensions*); forward;
program tex_main(pascal_basic, pascal_wizard_files*, tex_types*, tex_init*, tex_interaction*, tex_memory*, tex_symbols*, tex_scan*, 
tex_ops*, tex_rest*); forward;
begin
tex_types, no_file := $other_types$, $other_consts$;
tex_init, tex_init_impl := pool_name, bad;
tex_init, tex_init_impl := initialize, init_terminal, init_pattern_memory, get_strings_started;
tex_init, tex_init2_impl := init_prim, init_strings, load_fmt_file;
tex_sysdep, tex_sysdep_impl := a_open_in, a_open_out, b_open_in, b_open_out, w_open_in, w_open_out, a_close, b_close, w_close, 
a_make_name_string, b_make_name_string, w_make_name_string, press_make_name_string, reset_term_in, rewrite_term_out, write_dvi, 
profile_asks_for_press, press_open_out, read_the_clock, file_get_pos, set_pool_name, get_pype_code, press_set_font, 
press_show_rule, flush_pype, press_write_page, press_close_file, read_profile_for_directories, set_normal_priority, 
set_background_priority, stuff_on_cmd_line, register_tex_commands, pack_buffered_name, pack_default_area, pack_all_default;
tex_sysdep_inline, no_file := mem, press_set_x, press_set_y, press_show_char;
tex_interaction, tex_interaction_impl := xord, xchr, name_of_file, name_length, buffer, first, last, max_buf_stack, term_in, 
term_out, str_pool, str_start, pool_ptr, str_ptr, pool_file, log_file, selector, dig, tally, term_offset, file_offset, trick_buf, 
trick_count, first_count, interaction, deletions_allowed, spotless, error_count, help_line, help_ptr, interrupt, ok_to_interrupt, 
arith_error, remainder, temp_ptr, tex_area, tex_font_area;
tex_interaction, tex_interaction_impl := input_ln, make_string, str_eq_buf, str_eq_str, print_ln, print_char, print, slow_print, 
print_nl, print_esc, print_digs, print_int, print_two, print_hex, print_ascii, print_roman_int, print_current_string, get_token, 
term_input, jump_out, error, int_error, fatal_error, overflow, confusion, pause_for_instructions, half, round_decimals, nx_plus_y, 
x_over_n, xn_over_d, print_scaled, print_word, badness, print_memory_word;
tex_memory, tex_memory_impl := var_used, dyn_used, max_var_used, avail, mem_end, rover, hi_mem_min, lo_mem_max;
tex_memory, tex_memory_impl := get_avail, get_node, new_null_box, new_rule, new_ligature, new_disc, new_math, new_spec, 
new_param_glue, new_glue, new_skip_param, new_kern, new_penalty, flush_list, free_node, sort_avail, check_mem, search_mem;
tex_memory, tex_memory2_impl := short_display, print_font_and_char, print_mark, print_rule_dimen, print_glue, print_spec, 
show_node_list, show_box, delete_token_ref, delete_glue_ref, flush_node_list;
tex_memory, tex_memory3_impl := copy_node_list, print_mode, push_nest, pop_nest, show_activities, print_skip_param, print_param, 
fix_date_and_time, begin_diagnostic, end_diagnostic;
tex_symbols, tex_symbols_impl := print_length_param, show_eqtb, id_lookup, print_cs, sprint_cs, primitive, new_save_level, 
eq_destroy, eq_save, eq_define, eq_word_define, geq_define, geq_word_define, save_for_after, unsave, restore_trace, prepare_mag, 
show_token_list, token_show, print_meaning, print_cmd_chr, show_cur_cmd_chr;
tex_symbols, tex_symbols2_impl := font_in_short_display, depth_threshold, breadth_max, nest, nest_ptr, max_nest_stack, cur_list, 
shown_mode, old_setting, eqtb, xeq_level, hash, hash_used, no_new_control_sequence, cur_cs, cs_count, save_stack, save_ptr, 
max_save_stack, cur_level, cur_group, cur_boundary, mag_set, use_press_format, cur_cmd, cur_chr, cur_tok, input_stack, input_ptr, 
max_in_stack, cur_input, in_open, input_file, line, line_stack, scanner_status, warning_index, def_ref, param_stack, param_ptr, 
max_param_stack, align_state, base_ptr, par_loc, par_token, cur_mark, long_state, pstack, cur_val, cur_val_level, radix, cur_order, 
read_file, read_open, cond_ptr, if_limit, cur_if, skip_line, cur_name, cur_area, cur_ext, area_delimiter, ext_delimiter;
tex_symbols, tex_symbols2_impl := runaway, show_context, push_input, pop_input, begin_token_list, end_token_list, back_input, 
back_error, ins_error, begin_file_reading, end_file_reading, clear_for_error_prompt, check_outer_validity, firm_up_the_line, 
get_next, insert_relax, get_x_token, expand_calls, x_token;
tex_scan, tex_scan_impl := job_name, dvi_file, output_file_name;
tex_scan, tex_scan_impl := scan_left_brace, scan_optional_equals, scan_keyword, mu_error, scan_the, scan_seven_bit_int, 
scan_eight_bit_int, scan_four_bit_int, scan_char_num, scan_fifteen_bit_int, scan_twenty_seven_bit_int, scan_int;
tex_scan, tex_scan2_impl := scan_something_internal, scan_dimen, scan_glue, scan_rule_specstr_toks;
tex_scan, tex_scan3_impl := more_name, end_name, print_file_name, pack_file_name, open_fmt_file, make_name_string, scan_file_name, 
pack_job_name, prompt_file_name, open_log_file, start_input, scan_font_ident, find_font_dimen, scan_tex_info, char_warning, 
new_character, normalize_selector;
tex_scan, tex_scan4_impl := read_font_info;
tex_scan, tex_scan5_impl := the_toks, ins_the_toks, conv_toks, scan_toks, read_toks, pass_text, change_if_limit, conditional, 
begin_name, expand;
tex_dvi, tex_dvi_impl := dvi_buf, half_buf, dvi_limit, dvi_ptr, dvi_offset, dvi_gone, down_ptr, right_ptr, dvi_h, dvi_v, cur_h, 
cur_v, dvi_f;
tex_dvi, tex_dvi_impl := dvi_swap, dvi_four, dvi_pop, dvi_font_def, movement, prune_movements, vlist_out, hlist_out, ship_out;
tex_dvi, tex_dvi2_impl := vlist_press_out, hlist_press_out;
tex_ops, tex_ops_impl := tfm_file, font_info, fmem_ptr, font_ptr, font_ident, font_check, font_size, font_dsize, font_params, 
font_name, font_area, font_bc, font_ec, font_glue, font_used, char_base, width_base, height_base, depth_base, italic_base, 
lig_kern_base, kern_base, exten_base, param_base, null_character, cur_s, total_stretch, total_shrink, par_begin_line, empty_field, 
null_delimiter, cur_mlist, cur_style, cur_size, cur_mu, mlist_penalties, cur_f, cur_c, cur_i, magic_offset, cur_align, cur_span, 
align_ptr, just_box, font_family, font_face, font_pype_code;
tex_ops, tex_ops_impl := scan_spec, scan_rule_spec, hpack, vpackage, append_to_vlist, new_noad, new_style, new_choice, 
print_fam_and_char, print_delimiter, show_info, print_subsidiary_data, print_style, print_size, var_delimiter, char_box;
tex_ops, tex_ops2_impl := height_plus_depth, rebox, clean_box, make_left_right, stack_into_box, flush_math, fetch, push_alignment, 
pop_alignment, init_align, get_preamble_token, align_peek, init_row, init_span, init_col, fin, fin_row, fin_col;
tex_ops, tex_ops3_impl := fin_align;
tex_paragraph, tex_paragraph_impl := passive, print_head, pass_number, active_width, cur_active_width, background, break_width, 
no_shrink_error_yet, cur_p, second_pass, threshold, minimal_demerits, minimum_demerits, best_place, best_pl_line, disc_width, 
easy_line, last_special_line, first_width, second_width, first_indent, second_indent, best_bet, fewest_demerits, best_line, 
actual_looseness, line_diff, hc, hn, ha, hb, hf, hu, hyf, hyphen_passed, trie, hyf_distance, hyf_num, hyf_next, hyph_word, 
hyph_list, hyph_count, trie_op_hash, trie_op_ptr, trie_c, trie_o, trie_l, trie_r, trie_ptr, trie_hash, trie_taken, trie_min, 
trie_max;
tex_paragraph, tex_paragraph_impl := finite_shrink, reconstitute, post_line_break;
tex_paragraph, tex_paragraph2_impl := line_break;
tex_paragraph, tex_paragraph3_impl := try_break;
tex_paragraph, tex_hyph_impl := hyphenate, new_trie_op, trie_node, compress_trie, new_hyph_exceptions, init_trie_memory, first_fit, 
trie_pack, trie_fix, new_patterns;
tex_ops, tex_align_impl := align_error, no_align_error, omit_error, do_endv, cs_error;
tex_build_page, tex_build_page_impl := total_pages, max_v, max_h, max_push, last_bop, dead_cycles, doing_leaders, c, f, rule_ht, 
rule_dp, rule_wd, g, lq, lr, lx;
tex_build_page, tex_build_page_impl := build_page;
tex_build_page, tex_build_page2_impl := prune_page_top, vert_break, vsplit, print_totals, freeze_page_specs, box_error, 
ensure_vbox, missing_font, app_space, insert_dollar_sign, you_cant, report_illegal_case, privileged, its_all_over, fire_up, 
delete_last;
tex_build_page, tex_build_page3_impl := append_glue, append_kern, off_save, handle_right_brace, extra_right_brace, 
normal_paragraph, box_end, begin_box, scan_box, package, new_graf, indent_in_hmode, head_for_vmode, end_graf, 
begin_insert_or_adjust, make_mark, change_aux, append_penalty, delete_skip, unpackage, append_italic_correction, 
append_discretionary, build_discretionary, ins_the, make_accent;
tex_math, tex_math_impl := mlist_to_hlist, push_math, init_math;
tex_math, tex_math2_impl := math_glue, make_op, math_kern, fraction_rule, overbar, make_over, make_under, make_vcenter;
tex_math, tex_math3_impl := make_radical, make_math_accent, make_fraction, make_ord, make_scripts;
tex_math, tex_math4_impl := start_eq_no, scan_math, set_math_char, math_limit_switch, scan_delimiter, math_radical, math_ac, 
math_non_script, sub_sup, math_fraction, fin_mlist, math_left_right, fin_math, append_choices, build_choices, after_math;
tex_rest, tex_rest_impl := macro_call, str_toks, resume_after_display;
tex_rest, tex_rest2_impl := prefixed_command, get_r_token, trap_zero_glue, do_register_command, alter_aux, alter_prev_graf, 
alter_page_so_far, alter_integer, alter_box_dimen, new_font, new_interaction, do_assignments, open_or_close_in, issue_message, 
give_err_help, shift_case, show_whatever, the_real_tex;
tex_rest, tex_finalize_impl := store_fmt_file, close_files_and_terminate, final_cleanup, debug_help;
tex_rest, tex_maincontrol_impl := best_height_plus_depth, page_tail, page_contents, page_size, page_depth_max, best_page_break, 
least_page_badness, best_size, page_so_far, cur_page_depth, last_page_glue, ins_penalties, output_active, cur_box, err_help_seen, 
format_ident, fmt_file, start_like_initex, write_file, write_open, write_loc;
tex_rest, tex_maincontrol_impl := main_control;
tex_extensions, tex_extensions_impl := do_extension, new_whatsit, new_write_whatsit, print_write_whatsit, special_out, write_out, 
out_what, press_out_what;
tex_types, tex_main := $other_vars$, $other_procs$, $global_labels$, $main$
end):= tex.pas;
COMPILERSWITCHES '-b-n';
INLINE mem, press_set_x, press_set_y, press_show_char;
INVENTFILENAMES FALSE;
MAKEFILE compile_tex;
PROCARRAY mem;
SPECIAL ARRAY open_log_file.months;
TARGET cedar;