Service Manuals, User Guides, Schematic Diagrams or docs for : xerox mesa 3.0_1977 listing ListSymbols.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 ListSymbols.mesa_Oct77 documenatation <<

Text preview - extract from the document

listSymbols.mesa              25-0CT-77 15:08:14                                        Page 1


-- file listsymbols.mesa
-- last modified by Sandman, October 17, 1977   9:10 AM
DIRECTORY
  AltoDefs: FROM "altodefs",
  BcdDefs: FROM "bcddefs",
  CommanderDefs: FROM "commanderdefs",
  IODefs: FROM "iodefs",
  ListerDefs: FROM "listerdefs",
  OutputDefs: FROM "outputdefs",
  SegmentDefs: FROM "segmentdefs",
  StringDefs: FROM "stringdefs",
  SymbolTableDefs: FROM "symboltabledefs",
  SymDefs: FROM "symdefs";
DEFINITIONS FROM ListerDefs, OutputDefs, SymDefs;
ListSymbols: PROGRAM IMPORTS ListerDefs, CommanderDefs, IODefs, OutputDefs, SegmentDefs, StringDefs, Sy
**mbolTableDefs
  EXPORTS ListerDefs
  BEGIN
  FileSegmentHandle: TYPE = SegmentDefs.FileSegmentHandle;
  symbols: SymbolTableDefs.SymbolTableBase;
  PutSubString: PROCEDURE [ss: StringDefs.SubString] =
    BEGIN
    i: CARDINAL;
    FOR i IN [ss.offset .. ss.offset+ss.length)
      DO
      PutChar[ss.base[i]]
      ENDLOOP;
    RETURN
    END;
  PrintSymbols: PROCEDURE =
    BEGIN
    ctx: CTXIndex;
    ctx ~ FIRST[CTXIndex];
    UNTIL ctx = LOOPHOLE[symbols.stHand1e.ctxSize,CTXIndex]
      DO
       PutCR; PrintContext[ctx];
      ctx ~ ctx + (WITH (symbo1s.ctxb+ctx) SELECT FROM
         included =) SIZE [included CTXRecord],
         imported =) SIZE [imported CTXRecord],
         ENDCASE =) SIZE [simple CTXRecord]);
       ENDLOOP;
    PutCR; RETURN
    END;
  PrintContext: PROCEOURE [ctx: CTXIndex] 

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