Service Manuals, User Guides, Schematic Diagrams or docs for : xerox mesa 4.0_1978 listing Mesa_4_Lister ListSymbols.mesa_Sep78

<< 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_Sep78 documenatation <<

Text preview - extract from the document

ListSymbols.mesa              2-Sep-78 18:18:51                                         Page   1



-- ListSymbols.mesa; modified by Johnsson, July 20, 1978     1:42 PM
DIRECTORY
  AltoDefs: FROM "altodefs",
  BedDefs: FROM "beddefs",
  CommanderDefs: FROM "eommanderdefs",
  10Defs: FROM "iodefs",
  ListerDefs: FROM "listerdefs",
  LitDefs: FROM "litdefs",
  OutputDefs: FROM "outputdefs",
  SegmentDefs: FROM "segmentdefs",
  StringDefs: FROM "stringdefs",
  SymbolTableDefs: FROM "symboltabledefs",
  SymDefs: FROM "symdefs",
  SymSegDefs: FROM "symsegdefs",
  SymTabDefs: FROM "symtabdefs",
  TableDefs: FROM "tabledefs",
  TreeDefs: FROM "treedefs";
DEFINITIONS FROM ListerDefs, OutputDefs, SymDefs;
ListSymbols: PROGRAM IMPORTS CommanderDefs, IODefs, ListerDefs, LitDefs, OutputDefs, SegmentDefs, Strin
**gDefs, SymbolTableDefs, SymSegDefs, TableDefs, TreeDefs
  EXPORTS ListerDefs =
  BEGIN
  FileSegmentHandle: TYPE = SegmentDefs.FileSegmentHandle;
  CR: CHARACTER = IODefs.CR;
  symbols: SymbolTableDefs.SymbolTableBase;
  -- uti 1 ities
  seb, etxb, htb, ltb, tb: TableDefs.TableBase;
  ListSymbolsNotify: TableDefs.TableNotifier   =
    BEGIN
    tb ~ base[TreeDefs.treetype];
    ltb ~ base[LitDefs.lttype]:
    seb ~ base[SymDefs.setype]:
    etxb ~ base[SymDefs.etxtype]:
    htb ~ base[SymDefs.httype];
    END;
  -- tree printing
  PrintLiteral: PROCEDURE[t: literal TreeDefs.TreeLink] ..
    BEGIN OPEN LitDefs;
    dese: Li toeser i ptor;
    i: CARDINAL;
    v: WORD;
    WITH t.info SELECT FROM
      string =)
         BEGIN PutChar['"];
         PutString[StringLiteralValue[index]];
         PutChar['"];
         IF index # MasterString[index] THEN PutChar['L]:
         END;
      word =)
         BEGIN
         dese ~ LitDeseriptorValue[index];
         IF dese.length # 1 THEN PutChar['[]:
         FOR i IN [0 .. dese. length)
           DO
           IF (v ~ (ltb+dese.offset)[i]) < 1000
              THEN PutDecimal[v]
              ELSE PutOctal[v];
           IF i+1 # dese.length THEN PutChar[',]:
           ENDLOOP:
         IF dese.length # 1 THEN PutChar[']];
         END;
      ENDCA5E;
    END;
  PrintSubTree: PROCEDURE [t: TreeDefs.TreeLink, nBlanks: CARDINAL] ..
    BEGIN OPEN TreeDefs:
ListSymbols.mesa                2-Sep-78 18:18:51                           Page   2


    Printer: TreeMap -
      BEGIN
      node: TreeIndex:
      Indent[nBlanks]:
      WITH s: t SELECT FROM
        hash -> PrintHti[s.index]:
        symbol -> PrintSei[s.index]:
        literal

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