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

Text preview - extract from the document

Zap.mesa                            25-0CT-77 15:25:35             Page 1


-- Zap.mesa
-- Edited by Sandman on September 12, 1977        9:06 AM
DIRECTORY
  AltoDefs: FROM "altodefs",
  BcdDefs: FROM "bcddefs",
  ImageDefs: FROM "imagedefs",
  InlineDefs: FROM "inlinedefs",
  IODefs: FROM "iodefs",
  SegmentDefs: FROM "segmentdefs",
  StringDefs: FROM "stringdefs",
  SymDefs: FROM "symdefs",
  SystemDefs: FROM "systemdefs",
  TimeDefs: FROM "timedefs";
DEFINITIONS FROM 10Defs, SegmentDefs;
Zap: PROGRAM
  IMPORTS IODefs. SegmentDefs, StringDefs, SystemDefs, TimeDefs
BEGIN
name: STRING ~ [40];
filename: STRING ~ [40];
file: FileHandle:
c: STRING ~ [10];
BcdBase: TYPE      = POINTER   TO BcdDefs.BCD;
Confirm: PROCEDURE RETURNS [BOOLEAN]
  BEGIN OPEN 10Defs;
 WriteString[" [confirm]"]:
  DO
     SELECT ReadChar[] FROM
       CR =) RETURN[TRUE]:
        DEL   =)
         BEGIN
         WriteString[" XXX"]:
         RETURN[FALSE]:
         END:
       ENDCASE =) WriteChar['?]:
    ENDLOOP:
  END:
DisplayVersionStamp: PROCEDURE [stamp: BcdDefs.VersionStamp]
  BEGIN OPEN IODefs:
  date: STRING ~ [40]:
 TimeDefs.AppendDayTime[date, TimeDefs.UnpackDT[stamp.time]]:
 WriteString[date]:
 WriteStringC", "]:
 WriteOetal[stamp.net]:
 WriteCharC '#]:
 WriteOctal[stamp.host]:
 Wr iteChar [' #]:
 IF stamp.zapped THEN WriteString[" zappedll"]:
 END;
FileZapper: PROCEDURE [bed: BcdBase]
  BEGIN OPEN BedDefs,StringDefs:
  fti: FTIndex;
  ftb: CARDINAL = LOOPIIOLECbed+bed. f tQffset];
  filename: STRING ~ C40];
  55: SubStringDescriptor;
  DO
     WriteStringC"filename: "];
     10Defs.ReadTD[filename];
     Ir filename. length = 0 THEN RETURN:
     ss +-[base: filename, offset: O. length: filename. length];
     rOR fti +- rrRST[fTIndex], fli+SIZE[FTRecord]
       UNTIl fti = bcd.ftLimit DO
         OPfN f: ftb + fti:
         If SameNallle[bcd,f.nallle,@ss] TIlEN
            FlfGIN
            WriteStringC" "];
            OisplayVersionStaIllPCf.version]:
Zap.mesa                      25-0CT-77 15:25:36                            Page 2


           IF Confirm[] THEN
              BEGIN f.version.zapped ~ TRUE;
              WriteString[" . . . is being zapped."]; END;
           EXIT;
          END;
        REPEAT
          FINISHED -> WriteString[" . . . can't find fi1e/"];
        ENOLOOP;
 Wr iteChar[CR];
 ENOLOOP;
 END;
FindBcd: PROCEDURE [file: Fi1eHand1e] RETURNS [seg:Fi1eSegmentHand1e] 

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