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



Back to : SystemDisplay.mesa_Sep78. | Home

SystemDisplay.mesa 2-Sep-78 18:05:56 Page 1



-- SystemDisplay.mesa; edited by Sandman; Aug 30. 1978 9:30 AM
DIRECTORY
AltoDefs: FROM "altodefs" USING [PageSize. wordlength].
BitBltDefs: FROM "bitbltdefs" USING [BBptr. BBTable. BITBlT].
DisplayDefs: FROM "displaydefs" USING [Background].
FontDefs: FROM "fontdefs" USING [BitmapState. FontHandle].
ImageDefs: FROM "imagedefs" USING [
AddCleanupProcedure. CleanupItem. CleanupMask. CleanupProcedure].
InlineDefs: FROM "inlinedefs" USING [BITSHIFT. BITXOR. COPY].
SegmentDefs: FROM "segmentdefs" USING [
DataSegmentAddress. DataSegmen~Handle. DefaultBase. DeleteDataSegment.
NewDataSegment].
StreamDefs: FROM "streamdefs" USING [
DiskHandle. DisplayHandle. GetIndex. ModifyIndex. SetIndex. StreamError.
StreamHandle. StreamIndex. StreamObject]:
SystemDisplay: PROGRAM
IMPORTS ImageDefs. SegmentDefs. StreamDefs
EXPORTS DisplayDefs. StreamDefs
SHARES StreamDefs D
BEGIN
BitsPerWord: CARDINAL a AltoDefs.wordlength;
StreamHandle: TYPE ~ StreamDefs.StreamHandle;
OrderedPOINTER: TYPE = ORDERED POINTER;
OrderedNIL: OrderedPOINTER = LOOPHOlE[NIl];
TAB: CHARACTER