MiniNub.mesa_Sep78.pdf part of xerox MiniNub.mesa Sep78 MiniNub.mesa_Sep78.pdf, xerox mesa 4.0_1978 listing Mesa_4_System MiniNub.mesa

Text preview for : MiniNub.mesa_Sep78.pdf part of xerox MiniNub.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_System MiniNub.mesa_Sep78.pdf

Back to : MiniNub.mesa_Sep78.pdf | Home

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."],