TAL Programmer's Guide

Modular Programming Example
Sample Programs
096254 Tandem Computers Incorporated A–13
Example A-6b. D-Series Initialization Module (Page 2 of 2)
?SECTION startup
PROC startup (rucb, passthru, message, meslen, match)
VARIABLE;
INT .rucb, .passthru, .message, meslen, match;
BEGIN
INT .def_vol_subvol_internal_fmt[0:11] := [ 12 * [" "] ];
def_vol_subvol_internal_fmt ':=' message[1] FOR 8 WORDS;
CALL OLDFILENAME_TO_FILENAME_(def_vol_subvol_internal_fmt,
def_vol_subvol:file_name_max_len,
def_vol_subvol_len);
END;
?SECTION file_init
PROC file_init;
BEGIN
CALL INITIALIZER (,,startup);
CALL msg_init;
CALL in_file_init;
CALL out_file_init;
END;
?SECTION close_all
PROC close_all;
BEGIN
CALL in_close;
CALL out_close;
CALL msg_close;
END;
?SECTION end_of_code_sections
?NOMAP