DisplayControl.mesa_Sep78.pdf part of xerox DisplayControl.mesa Sep78 DisplayControl.mesa_Sep78.pdf, xerox mesa 4.0_1978 listing Mesa_4_System DisplayControl.mesa

Text preview for : DisplayControl.mesa_Sep78.pdf part of xerox DisplayControl.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_System DisplayControl.mesa_Sep78.pdf

Back to : DisplayControl.mesa_Sep78 | Home

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