Service Manuals, User Guides, Schematic Diagrams or docs for : xerox mesa 3.0_1977 listing Rectangles.mesa_Oct77

<< Back | Home

Most service manuals and schematics are PDF files, so You will need Adobre Acrobat Reader to view : Acrobat Download Some of the files are DjVu format. Readers and resources available here : DjVu Resources
For the compressed files, most common are zip and rar. Please, extract files with Your favorite compression software ( WinZip, WinRAR ... ) before viewing. If a document has multiple parts, You should download all, before extracting.
Good luck. Repair on Your own risk. Make sure You know what You are doing.



Image preview - the first page of the document



>> Download Rectangles.mesa_Oct77 documenatation <<

Text preview - extract from the document

rectang1es,mESA                24-0CT-77 18:38:25                                          Page 1


-- Rectang1es,Mesa   Edited by Sandman on September 27, 1977       11:26 AM
OIRECTORY
  AltoDefs: FROM "altodefs",
  Contro1Defs: FROM "contro1defs",
  ImageDefs: FROM "imagedefs",
  In1ineDefs: FROM "in1inedefs",
  IODefs: FROM "iodefs",
  MiscDefs: FROM "miscdefs",
  NovaOps: FROM "novaops",
  OsStaticDefs: FROM "osstaticdefs",
  SystemDefs: FROM "systemdefs",
  SegmentDefs: FROM "segmentdefs",
  StreamDefs: FROM "streamdefs",
  Rectang1eDefs: FROM "rectang1edefs";
DEFINITIONS FROM In1ineDefs, SystemDefs, SegmentDefs,       Stream~efs,   Rectang1eDefs:
Rectangles: PROGRAM[pagesformap, mapwordsper1ine: CARDINAL]
    IMPORTS ImageDefs, MiscDefs, SystemDefs, SegmentDefs, StreamDefs
    EXPORTS RectangleDefs SHARES Rectang1eDefs =
 BEGIN
-- CHARACTER constants
  CR: CHARACTER = IODefs.CR:
  Space: CHARACTER = IODefs.SP:
  DEL: CHARACTER = IODefs.DEL:
-- GLOBAL PUBLIC Data (all PUBLIC for initialization guy ?1)
  savedfirstDCB: DCBptr ~ NIL:
  tempDCB: UNSPECIFIED:
  bitmaps: PUBLIC BMHandl e .. NIL:
  defaultmapdata: PUBLIC BMHand1e ~ NIL;
  defaultfont: PUBLIC Fptr .. NIL;          points to start of font
  defaultpfont: PUBLIC FAptr ~ NIL:         pOints to self relative ptrs
  defaultfontsegment: FileSegmentHandle .. NIL;
  defaultlineheight: PUBLIC INTEGER;     assuming alII ines equal:
  defaultcharwidths: STRING ~ [128]: -- should be byte ARRAY (later!!)
-- GLOBAL Data
 wordsinpage: INTEGER = AltoOefs.PageSize:
 bbtable: ARRAY [0 .. SIZE[BBTable]+l] OF WORD:
 bbptr: BBptr ~ LOOPHOLE[@bbtable]:
-- Bitmap Rectangle Routines
 CreateRectangle: PUBLIC PROCEDURE
   [bitmap: BMHandle, xO, width: xCoord, yO, height: yCoord) RETURNS[Rptr]
   BEGIN
   -- define locals
     rectangle: Rptr;
   -- allocate rectangle object and init it
     rectangle ~ AllocatefieapNode[SIZE[Rectangle]];
     rectangle'!' .. Rectangle[NIL, FALSE" bitmap, xO, width, 0, yO, height, 0]:
     rectangle.options .. ROptions[FALSE,FALSE);
   -- I ink it into the I istof rectangles and fix it up
     rectangle. link .. bitmap. rectangles;
     bitmap. rectangles .. rectangle:
     rixupRectangle[rectang1e]:
     RETURN[rectangle]:
   [NO:
 DestroyRectangle: PUBLIC PROCroURE [rectangle: Rptr]
   B[GTN
   -- der ine locals
      prey: Rptr:
      bitmap: BMHandle .. rectangle.bitmap:
   - - del ink i t r r om til eli s tor r e c tan 9 I e s
      IF bitmap.rectangles = rectangle THEN
        bitmap.rectangles ~ rectangle.link
      rl Sf
        B[GTN
        prey .. bitmap.rectangles:
        UNTIL rectangle = pf

◦ Jabse Service Manual Search 2024 ◦ Jabse Pravopis ◦ onTap.bg ◦ Other service manual resources online : Fixya ◦ eServiceinfo