TAL Programmer's Guide

Modular Programming Example
Sample Programs
096254 Tandem Computers Incorporated A–21
Example A-6e. D-Series Message Module (Page 3 of 3)
CALL WRITEX (term_file_number, buffer,
@bufptr '-' @buffer);
END; !Of MSG
?SECTION msg_close
PROC msg_close;
BEGIN
CALL FILE_CLOSE_ (term_file_number);
END;
?SECTION end_of_data_sections
?NOMAP
Compilation Maps
and Statistics
The following compilation maps and statistics are shown for the preceding modular
programming example:
Entry-point load map
Data-block load map
Statistics for the mainline compilation
Entry-Point Load Map
Figure A-1 shows the entry-point load map for the modular programming example:
Figure A-1. Entry-Point Load Map for Modular Program
ENTRY POINT MAP BY NAME
SP PEP Base Limit Entry Attr Name Date Time Lang Source File
00 012 000737 000742 000737 CLOSE_ALL 1992-04-13 13:54 TAL \XX.$VOL.PRG.INITS
00 004 000266 000331 000266 CONVERT 1992-04-13 13:54 TAL \XX.$VOL.PRG.CONVERTS
00 011 000721 000736 000721 FILE_INIT 1992-04-13 13:54 TAL \XX.$VOL.PRG.INITS
00 017 001133 001140 001133 IN_CLOSE 1992-04-13 12:59 TAL \XX.$VOL.PRG.INS
00 015 000767 001050 000773 IN_FILE_INIT 1992-04-13 12:59 TAL \XX.$VOL.PRG.INS
00 010 000421 000720 000421 MSG 1992-04-13 12:59 TAL \XX.$VOL.PRG.MSGS
00 021 001147 001154 001147 MSG_CLOSE 1992-04-13 12:59 TAL \XX.$VOL.PRG.MSGS
00 014 000751 000766 000751 MSG_INIT 1992-04-13 12:59 TAL \XX.$VOL.PRG.MSGS
00 020 001141 001146 001141 OUT_CLOSE 1992-04-13 12:59 TAL \XX.$VOL.PRG.OUTS
00 016 001051 001132 001055 OUT_FILE_INIT 1992-04-13 12:59 TAL \XX.$VOL.PRG.OUTS
00 002 000022 000111 000022 OUT_INIT 1992-04-13 13:54 TAL \XX.$VOL.PRG.CONVERTS
00 006 000340 000372 000340 READ_IN 1992-04-13 12:59 TAL \XX.$VOL.PRG.INS
00 003 000122 000265 000122 RECORD_CONVERT 1992-04-13 13:54 TAL \XX.$VOL.PRG.CONVERTS
00 013 000743 000750 000743 V STARTUP 1992-04-13 13:52 TAL \XX.PRG.INITS
00 005 000332 000337 000332 M TPRCONV 1992-04-13 13:54 TAL \XX.$VOL.PRG.CONVERTS
00 007 000373 000420 000373 WRITE_OUT 1992-04-13 12:59 TAL \XX.$VOL.PRG.OUTS