ListerControl.mesa_Oct77.pdf | | ListerControl.mesa 25-0CT-77 15:08:14 Page 1
-- file ListerContro1.Mesa
-- last edited by Sandman, October 2, 1977 1:32 PM
DIRECTORY
CommanderDefs: FROM "commanderdefs",
ImageDefs: FROM "imagedefs",
IODers: FROM "iodefs",
ListerDefs: FROM "listerdefs",
StringDefs: FROM "stringdefs",
TimeDefs: FROM "timedefs";
DEFINITIONS FROM ListerDefs:
ListerContro1: PROGRAM
IMPORTS CommanderDefs, ImageDefs, ListerDefs, StringDefs, Timeoefs, IOOefs =
BEGIN
herald: STRING ~ [50];
LoadLister: PROCEDURE =
BEGIN
SetupArray[]; [] ~ De1eteArray[];
START CommanderDefs.Commander[hera1d];
START ListCode:
START ListSymbols;
START Listlnterface;
START BcdList;
START IOOefs.StreamIO[NIL, NIL];
ImageDefs.MakeImageC"Lister.Image", FALSE];
StringOefs.AppendStringCto: herald. from: "Alto/Mesa Lister "];
TimeDefs.AppendDayTime[hera1d. Timeoefs.UnpackDT[ImageDefs.ImageVersion[].time]];
herald. length ~ herald. length - 3;
RESTART Comma |