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

Text preview - extract from the document

 m1ninUB.mESA                  24-0CT-77 18:38:25                                                  Pago 1


  -- MiniNub.Mesa
  -- Edited by Sandman on October 6, 1977    4:02 PM
 DIRECTORY
   AltoFileDefs: FROM "altof11edefs",
   ControlDefs: FROM "controldefs",
   CoreSwapDefs: FROM "coreswapdefs",
   FrameDefs: FROM "framedefs",
   ImageDefs: FROM "imagedefs",
   IODefs: FROM "iodefs",
   LoaderDe's: FROM "loaderdefs",
   SegmentDefs: FROM "segmentdefs",
   StreamDefs: FROM "streamdefs",
   Str1ngDefs: FROM "stringdefs";
 MiniNub: PROGRAM
   IMPORTS CoreSwapDefs, LoaderDefs, SegmentDefs, StreamDefs, StringOefs =
 BEGIN
 Program: TYPE    = PROGRAM;
 CallOebugger: PROCEDURE =
   BEGIN -- user's entry point to debugger
   state: ControIDefs.StateVector;
   state.stkptr ~ 0;
   state.X ~ defaultframe;
   CoreSwapDefs.CoreSwap[explicitcall, @state];
   RETURN
   END;
 BadFile: SIGNAL [name: STRING]   = CODE;
_ LoadNew: PROCEDURE [name: STRING] RETURNS [Program] =
    BEGIN
    g: ControlDefs.GlobaIFrameHandle;
    9 ~ FrameDefs.New[name f BadFile, LoaderDefs.VersionMismatch, UNWIND => NULL;        A~Y   => ERROq BadFile[na
 Ume]] ;
   IF 9 # ControlDe's.NULLFrame THEN defaultframe         ~    g;
   RETURN[LOOPHOLE[g]]
   END;
 defaultframe: ControlDefs.GlobalFrameHandle     ~   REGISTER[ControIDefs.Greg];
 comcmRequest: short ImageDefs.FileRequest   ~   [
   body: short[fill:, name: "Com.Cm."],
   file: NIL,
   access: SegmentDefs.Read.
   link: ];
 Done: SIGNAL    = CODE;
 debug, start: BOOLEAN;
 ProcessSwitches: PROCEDURE [s: STRING] =
   BEGIN
   i: CARDINAL:
   inverse: BOOLEAN ~ FALSE;
   FOR i TN [0 .. s.length) DO
     SELECT sCi] FROM
        'd, '0 =) inverse ~ -(debug ~ TRUE);
        's, 'S => IF inverse THEN inverse ~ start     ~       FALSE ELSE stan .. TRUE;
        '- => inverse .. TRUE;
        ENOCASE =) inverse .. FALSE;
     fNDLOOP;
   rNO;
 TnitSwitches: PROcrOURE = BEGTN debug" fALSE; start .. TRUE; [NO;
 GelToken: PROCrOUR[ [com: StreamDers.Streamllandle, token, ext. switches: STRING]
   BEG TN
   s: STRING;
   c: CIIARACTER;
   token.length .. ext.length .. switches.length ~ 0;
   s .. token;
  WIIIlE -com.ondor[com] 00
mininUB.mESA                      24-0CT-77 18:38:25                                           Page 2.


       SELECT (c ~ com.get[com]) FROM
          IODefs.SP, IODefs.CR =)
             IF token.length # 0 OR ext. length # 0 OR switches. length   #   0 THEN RETURN:
          I.  =) s ~ ext;
          'I =) s ~ switches;
          ENDCASE =) StringDefs.AppendChar[s, c];
       ENDLOOP;
     RETURN
     END;
LoadSystems: PROCEDURE =
  BEGIN
  user: PROGRAM:
  fa: AltoFileDefs.FA;
  IF comcmRequest.file = NIL THEN RETURN;
  SegmentDefs.LockFile[comcmRequest.file];
  InitSwitches[] ;
  SkipImage[@fa]:
  IF debug THEN CallDebugger[]:
  DO
     InitSwitches[]:
     user ~ LoadUser[@fa I Done =) EXIT]:
     IF debug THEN CallDebugger[];
     IF start AND user # LOOPHOLE[ControlDefs.NULLFrame] THEN START user:
     ENDLOOP;
  SegmentDefs.UnlockFile[comcmRequest.file];
  SegmentDefs.ReleaseFile[comcmRequest.file];
  END;
LoadUser: PROCEDURE [fa: POINTER TO AltoFileDefs.FA] RETURNS [user: Program]
  BEGIN OPEN IODefs, StreamDefs;
  com: StreamHandle;
  name: STRING ~ [40];
  ext: STRING ~ [10]:
  switches: STRING ~ [5];
  com ~ CreateByteStream[comcmRequest.file, Read];
  BEGIN
  StreamDefs.JumpToFA[com, fa I ANY =) GO TO finished]:
  GetToken[com, name, ext, switches];
  IF name. length = 0 THEN GO TO finished;
  IF ext.length 

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