xerox DisplayControl.mesa Sep78 free download

File name DisplayControl.mesa_Sep78.pdf

Disp1ayContro1.mesa 2-Sep-78 13:58:17 Page 1 -- file Disp1ayControl.Mesa -- last edited by Sandman. May 12. 1978 3:42 PM DIRECTORY A1toFi1eDefs: FROM "a1tofi1edefs" USING [FP]. Contro1Defs: FROM "contro1defs" USING [SD]. DirectoryDefs: FROM "directorydefs" USING [EnumerateDirectory]. Disp1ayDefs: FROM "disp1aydefs" USING [ BlinkCursor. Disp1ayOff. Disp1ayOn. InitDisp1ay. SetFont. SetTypeScript]. FontDefs: FROM "fontdefs" USING [CreateFont. FontHand1e]. ForgotDefs: FROM "forgotdefs". ImageDefs: FROM "imagedefs" USING [ AddC1eanupProcedure. AddFi1eRequest. A11Reasons. C1eanupItem. C1eanupProcedure. Fi1eRequest]. ProcessDefs: FROM "processdefs" USING [Detach. Yield]. SDDefs: FROM "sddefs" USING [sAddFi1eRequest]. SegmentDefs: FROM "segmentdefs" USING [ Append, Defau1tBase, Defau1tPages, Defau1tVersion, De1eteFi1eSegment. Fi1eHand1e, Fi1eSegmentHand1e, InsertFile, NewFi1e. NewFi1eSegment, Read. Re1easeFi1e, Write]. StreamDefs: FROM "streamdefs" USING [ C1oseDiskStream. CreateByteStream. GetIndex. DpenDiskStream. SetIndex. StreamError, StreamHand1e, StreamIndex, TruncateDiskStream]. StringDefs: FROM "stringdefs" USING [ Equiva1entString, Equiva1entSubStrings, SubStringDescriptor]. SystemDisp1ay: FROM "systemdisp1ay" USING [typescript]; Disp1ayContro1: PROGRAM IMPORTS DirectoryDefs, Disp1ayDefs, FontDefs, ImageDefs, ProcessDefs. SegmentDefs, StreamDefs, String **Defs, SystemDisp1ay EXPORTS Disp1ayDefs, ForgotDefs = BEGIN mesafont: short ImageDefs.Fi1eRequest ~ [ link: NIL, file:, access: SegmentDefs.Read. body: short[fi11:,name: "MesaFont.a1."]]; sysfont: short ImageDefs.Fi1eRequest ~ [ link: @mesafont, file:, access: SegmentDefs.Read. body: short[fi11:,name: "SysFont.a1."]]; typescript: short ImageDefs.Fi1eRequest ~ [ link: @sysfont, file:. access: SegmentDefs.Read+SegmentDefs.Write+SegmentDefs.Append. body: short[fi11:,name: "Mesa.Typescript."]]; font: FontDefs.FontHand1e; fontseg: SegmentDefs.Fi1eSegmentHandle; initialize: BOOLEAN ~ TRUE; imaging: BOOLEAN; c1eanupitem: ImageDefs.CleanupItem ~ [ link:, mask: ImageDefs.A11Reasons, proc: Cleanup]; Cleanup: ImageDefs.CleanupProcedure