ListerControl.mesa_Oct77.pdf part of xerox ListerControl.mesa Oct77 ListerControl.mesa_Oct77.pdf, xerox mesa 3.0_1977 listing ListerControl.mesa

Text preview for : ListerControl.mesa_Oct77.pdf part of xerox ListerControl.mesa Oct77 xerox mesa 3.0_1977 listing ListerControl.mesa_Oct77.pdf

Back to : ListerControl.mesa_Oct77. | Home

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 CommanderDefs.Commander;
END;
LoadL ister[];
END ...