xerox ListBcd.mesa_Sep78 free download

File name ListBcd.mesa_Sep78.pdf

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