Service Manuals, User Guides, Schematic Diagrams or docs for : xerox mesa 4.0_1978 listing Mesa_4_Lister ListBcd.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 ListBcd.mesa_Sep78 documenatation <<

Text preview - extract from the document

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


-- ListBed.Mesa   Edited by Sandman on April 13, 1978   3:38 PM
DIRECTORY
  AltoDefs: FROM "altodefs",
  BedDefs: FROM "beddefs",
  CommanderDefs: FROM "eommanderdefs",
  ControlDefs: FROM "eontroldefs",
  10Ders: FROM "iodefs",
  ListerDefs: FROM "listerdefs",
  OutputDefs: FROM "outputdefs",
  SegmentDefs: FROM "segmentdefs",
  StringDers: FROM "stringdefs",
  SymDefs: FROM "symdefs":
DEFINITIONS FROM OutputDefs, BedDefs:
ListBed: PROGRAM
  IMPORTS CommanderDefs, IODefs, ListerDefs, OutputDefs, SegmentDefs, StringDefs
  EXPORTS ListerDefs =
  BEGIN
  bed: POINTER TO BCD:
  tb: CARDINAL:
  ssb: BedDefs.NameString:
  etb: CARDINAL:
  mtb: CARDINAL:
  itb: CARDINAL:
  etb: CARDINAL:
  sgb: CARDINAL:
  ftb: CARDINAL;
  ntb: CARDINAL;
  InstallBcd: PROCEDURE [seg: SegmentDefs.FileSegmentHandle] =
    BEGIN OPEN SegmentDefs;
    size: CARDINAL;
    IF -seg.swappedin THEN SwapIn[seg];
    bed ~ FileSegmentAddress[seg];
    IF (size~bed.nPages) # seg.pages THEN
      BEGIN
      Unloek[seg];
      MoveFileSegment[seg,seg.base,size];
      SwapIn[seg):
      bed ~ FileSegmentAddress[seg):
      END;
    tb ~ LOOPHOLE[bed);
    ssb ~ LOOPHOLE[bed+bed.ssOffset]:
    ctb ~ tb+bcd.etOffset:
    mtb ~ tb+bed.mtOffset:
    itb ~ tb+bed.impOffset:
    etb ~ tb+bed.expOffset:
    sgb ~ tb+bed.sgOffset:
    ftb ~ tb+bcd.ftOffset:
    ntb ~ tb+bed.ntOffset:
    RETURN
    END;
  UnstallBcd: PROCEDURE [seg: SegmentDefs.FileSegmentHandle] =
   BEGIN OPEN SegmentDefs;
   IF seg.swappedin THEN Unloek[seg];
   SwapOut[seg);
   RETURN
   END;
  WriteBcdID: PROCEDURE [name: STRING, bcd: POINTER TO BCD] =
   BEGIN
   PuLString[name];
   PutString[" configured "];
   PutTime[bcd.version.time);
   IF bcd.source # NullName THEN
      BEGIN
      PutString[" from "];
      PutName[bed.souree];
      END;
   PutString[" by"];
   ListerDefs.PrintMachine[bcd.version];
   IF bcd.versionident # VersionID THEN
ListBcd.mesa                  2-Sep-78 18:18:51                                      Page   2


      BEGIN PutString[" Obsolete VersionID 

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