TGAL Manual

TGAL Procedures
Tailoring TGAL
4–2 060865 Tandem Computers Incorporated
TGAL Procedures You can use the following procedures to modify TGAL code according to your
individualized needs. The procedures are presented in alphabetic order; each is
preceded by a brief explanation.
BANNER Procedure The BANNER procedure prints the banner string when TGAL runs interactively. The
banner can be up to 40 characters long. You should change this procedure whenever
you change any other procedure to help identify the version of TGAL you are running.
You should change the T9607B00 field to your logo or another distinctive word. In the
TGALUPS file, this procedure is:
PROC BANNER(S,L); !
STRING .s; ! 40-character banner string !
INT .L; ! length of banner !
BEGIN ! !
STRING .SP; points at end of string !
S ':=' "TGAL - T9607B00 - (01DEC84)"->@SP; ! tell who we are !
L := @SP'-'@S; ! tell them how long it is !
END; ! end of banner procedure !
The exclamation points mark off the comments in the program. You change only the
banner string, marked with an arrow. The procedure determines the length of the
banner. You do not supply additional information; for example:
PROC BANNER(S,L); !
STRING .s; ! 40-character banner string !
INT .L; ! length of banner !
BEGIN ! !
STRING .SP; points at end of string !
S ':=' "SON OF TGAL -- MORNA -- 15 October 1981"->@SP;!new banner!
L := @SP'-'@S; ! tell them how long it is !
END; ! end of banner procedure !