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

Text preview - extract from the document

LoadState.mesa                   2-Sep-78 13:58:17                                Page   1


-- LoadState.mesa
-- Last Modified by Sandman,     May 12, 1978   2:34 PM
DIRECTORY
  AltoFileDefs: FROM "altofiledefs" USING [eofDA],
  InlineDefs: FROM "inlinedefs" USING [COPY],
  LoadStateDefs: FROM "loadstatedefs" USING [
    BcdAddress, BcdArrayLength, ConfigGFI, ConfigIndex, ConfigNull,
    EnumerationDirection, FileSegmentHandle, GFTIndex, LoadState,
    LoadStateGFT, Relocation],
  MiscDefs: FROM "miscdefs" USING [SetBlock, Zero],
  NucleusDefs: FROM "nucleusdefs",
  SDDefs: FROM "sddefs" USING [SD,'sGFTLength],
  SegmentDefs: FROM "segmentdefs" USING [
     FileHandle, FileHint, FileSegmentAddress, GetFileFP, InsertFile,
    NewFileSegment, Read, SwapIn, SwapOut, Unlock],
  SystemDefs: FROM "systemdefs" USING [AllocateHeapNode, FreeHeapNode];
DEFINITIONS FROM LoadStateDefs;
LoadState: PROGRAM [state, initstate, bcdseg: FileSegmentHandle]
  IMPORTS MiscDefs, SegmentDefs, SystemDefs
  EXPORTS LoadStateDefs, NucleusDefs = PUBLIC
  BEGIN
  loadstate: LoadState;
  gft: LoadStateGFT;
  nbcds: ConfigIndex;
  LoadStateFull: ERROR = CODE;
  InputLoadState: PROCEDURE RETURNS [ConfigIndex] c
    BEGIN OPEN SegmentDefs;
    i: GFTIndex;
    SwapIn[state];
    loadstate ~ FileSegmentAddress[state];
    gft ~ DESCRIPTOR[@loadstate.gft, SDDefs.SD[SDDefs.sGFTLength]];/
    nbcds ~ 0;
    fOR i IN [O .. LENGTH[gft]) DO
      IF gft[i].config # ConfigNull THEN nbcds ~ MAX[nbcds, gft[i].config];
      ENDLOOP;
    nbcas ~ nbcds + 1;
    RETURN[nbcds]
    END;
  UpdateLoadState: PROCEDURE [
   bcd: ConfigIndex, bcdseg: FileSegmentHandle, unresolved, exports: BOOLEAN] =
    BEGIN OPEN SegmentDefs;
    IF bcd )= LAST[ConfigIndex] THEN ERROR LoadStateFull:
    loadstate.bcds[bcd] ~
      [fp:, da:, base: bcdseg.base, unresolved: unresolved,
      fill:, exports: exports, pages: bcdseg.pages];
    loadstate.bcds[bcd].da ~ WITH s: bcdseg SELECT FROM
      disk =) s.hint.da,
      ENDCASE =) AltofileDefs.eofDA:
    GetfileFP[bcdseg.file, @loadstate.bcds[bcd].fp];
    nbcds ~ nbcds + 1;
    END;
RemoveConfig: PUBLIC PROCEDURE [rel: Relocation, config: ConfigIndex] 

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