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

Text preview - extract from the document

directory.mESA                24-0CT-77 10:38:25                                        Page 1


-- Directory.Mesa   Edited by Sandman on August 23, 1977   9:40 PM
DIRECTORY
  AltoDefs: FROM "altodefs",
  BFSDefs: FROM "bfsdefs",
  DirectoryDefs: FROM "directorydefs",
  SegmentDefs: FROM "segmentdefs",
  StringDefs: FROM "stringdefs",
  StreamDefs: FROM "streamdefs",
  AltoFileDefs: FROM "altofiledefs";
DEFINITIONS FROM Segmentoefs, StringDefs, AltoFileoefs, StreamDefs;
Directory: PROGRAM
  IMPORTS BFSDefs, Segmentoefs, Streamoefs, StringDeFs EXPORTS DirectoryDeFs    BEGIN
 FPptr: TYPE    POINTER:O FP;
 DVptr: TYP.E = POINTER TO DV;
 HDptr: TYPE = POINTER TO Ho;
  BadFilename: PUBLIC SIGNAL [name:STRING] = CODE;
  BadDirectory: PUBLIC SIGNAL [name:STRING] = CODE;
  EnumerateDirectory: PUBLIC PROCEDURE (
    proc:PROCEDURE [POINTER TO FP, STRING] RETURNS [BOOLEAN]]
    BEGIN
    PassItOn: PROCEDURE [i:StreamIndex, dv:DVptr, s:STRING] RETURNS [BOOLEAN]
       BEGIN fp: FP;
       IF dv.type = DEFile THEN
          BEGIN
          BFSDefs.MakeFP[@fp,@dv.fp];
          RETURN[proc[@fp,s]]
          END;
       RETURN[FALSE]
       END;
    dir: StreamHandle ~ CreateWordStream[SysDir,Read];
    [J ~ EnumerateEntries[dir,PassItOn];
    dir.destroy[dir];
    RETURN
    END:
  DirectoryLookup: PUBLIC PROCEDURE [fp:FPptr, name:STRING, create:BOOLEAN]
    RETURNS [old:BOOLEAN] =
    BEGIN
    dir: Streamllandle; access: AccessOptions; hd: HD;
    fn: STRING ~ [FilenameChars]; ExpandFilename[name,Fn];
    access ~ IF -create THEN Read ELSE Read+Write+Append;
    dir ~ CreateWordStream[SysDir,access];
    old ~ FindName[dir,fp,fn,@hd].found;
    IF -old AND create THEN
      BEGIN
      -- should be @dir.file.fp
      BFSDefs.CreateFile[fn,fp,@SysDirFP];
      MakeEntry[dir,fp,fn,@hd];
      END:
    dir.destroy[dir]:
    RETURN
    END;
  DirectorylookupFP: PUBLIC PROCEDURE [fp:FPptr, name:STRING]
    R[TURNS [old:BOOI.[AN] 

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