xerox MiniNub.mesa Sep78 free download

File name MiniNub.mesa_Sep78.pdf

MiniNub.mesa 2-Sep-78 13:58:17 Page 1 -- MiniNub.Mesa -- Edited by Sandman on May 19, 1978 4:24 PM DIRECTORY AltoFileDefs: FROM "altofiledefs" USING [CFA, eofDA, FA], ControlDefs: FROM "controldefs" USING [ GetReturnLink, GlobalFrameHandle, NullGlobalFrame, StateVector], CoreSwapDefs: FROM "coreswapdefs" USING [CAbort, CoreSwap], ImageDefs: FROM "imagedefs" USING [AddFileRequest, FileRequest], IODefs: FROM "iodefs" USING [CR, SP], LoaderDefs: FROM "loaderdefs" USING [Load, Loader, New, VersionMismatch], MiscDefs: FROM "miscdefs", ProcessDefs: FROM "processdefs" USING [Aborted], SegmentDefs: FROM "segmentdefs" USING [ FileSegmentHandle, LockFile, Read, ReleaseFile, UnlockFile], StreamDefs: FROM "streamdefs" USING [ CreateByteStream, GetFA, JumpToFA, Read, StreamHandle], StringDefs: FROM "stringdefs" USING [ AppendChar, AppendString, EquivalentString]: MiniNub: PROGRAM IMPORTS CoreSwapDefs, LoaderDefs, ProcessDefs, SegmentDefs, StreamDefs, StringDefs EXPORTS MiscDefs = BEGIN CallDebugger: PROCEDURE - BEGIN -- user's entry point to debugger state: Contro1Defs.StateVector: state.stkptr ~ 0: state.dest ~ Contro1Defs.GetReturnLink[]: CoreSwapDefs.CoreSwap[exp1icitca11, @state]: RETURN END: BadFi1e: SIGNAL [name: STRING] = CODE: LoadNew: PROCEDURE [name: STRING, frame1inks: BOOLEAN] RETURNS [PROGRAM] = BEGIN g: Contro1Defs.G10balFrameHand1e: bcd: SegmentDefs.Fi1eSegmentHandle: bcd ~ LoaderDefs.Load[name I BadFi1e, UNWIND =) NULL: ANY =) ERROR BadFile[name]]: 9 ~ LoaderDefs.New[bcd, framelinks, FALSE I BadFile, LoaderDefs.VersionMismatch, UNWIND -) NULL: ANY =) ERROR BadFi1e[name]]: RETURN[LOOPHOLE[g]] END: comcmRequest: short ImageDefs.Fi1eRequest ~ [ body: short[fi":, name: "Com.Cm."],