xerox NubControl.mesa Oct77 free download

File name NubControl.mesa_Oct77.pdf

nubcONTROL.mESA 24-0CT-77 18:38:26 Page 1 -- NubControl.Mesa -- Edited by Sandman on October 6, 1977 4:31 PM DIRECTORY AltoFileDefs: FROM "altofiledefs", ControlDefs: FROM "con troldefs", CoreSwapDefs: FROM "coreswapdefs", FrameDefs: FROM "framedefs", ImageDefs: FROM "imagedefs", IODefs: FROM" iodefs", LoaderDefs: FROM "loaderdefs", SegmentDefs: FROM "segmentdefs", StreamDefs: FROM "streamdefs", StringDefs: FROM "stringdefs", Rectangles: FROM "rectangles", Windows: FROM "windows", TimeDefs: FROM "timedefs": NubControl: PROGRAM IMPORTS CoreSwapDefs, FrameDefs, ImageDefs, IODefs, LoaderDefs, SegmentDefs, StreamDefs, StringDefs, **TimeDefs. Rectangles, Windows 8EGIN -- System Signals are converted to these to prevent NubCommand -- from catching user generated signals Delete: SIGNAL = CODE: nee Rubout StringTooLong: ERROR = CODE: nee LineOverflow BadFile: ERROR [badname: STRING] = CODE: -- nee FileNameError BadNumber: ERROR = CODE: -- nee InvalidNumber Program: TYPE = PROGRAM: CallDebugger: PROCEDURE = BEGIN -- user's entry point to debugger state: ControlOefs.StateVector: state.stkptr ~ 0: state.X ~ defaultframe: CoreSwapDefs.CoreSwap[explicitcall. @state]: RETURN END: CommandChar: TYPE = {N,S.M.D,Q}: CommandString: ARRAY CommandChar OF STRING = ["New". "Start", "Makelmage". "Debug". "Quit"]: Command: PROCEDURE = BEGIN OPEN IODefs: c: CHARACTER: i: CommandChar; f: ControlDefs.GlobalFramelfandle: IF comcmRequest.file # NIL THEN NubHack[]: SELECT cpReadChar[] FROM 'N. 'n => BEGIN WriteString[CommandString[N]]: f .. LoadNew[getfilename[".bcd"]]; IF f # ControlOefs . NUl.l.Frame TIIEN defaul tframe .. f; END: 'S, 's => BEGIN WriteString[CommandString[S]]: f .. getgframe[]: WritefOL[]: If f.pc = ControlDefs.WordPC[O] TII[N START LOOPIIOl.f[f, Program] flS[ RESTART f; END; '0, 'd => BfGIN WriteSlring[CommandString[O]]; confil'm[]; CallDebugger[]; rNO: 'Q, 'q ~> nubcONTROL.mESA 24-0CT-77 18:38:25 Pago 2 BEGIN WriteString[CommandStrlng[Q]]: confirm[]: ImageDefs.StopMesa[]: END: 'M, 'm => BEGIN WriteString[CommandString[M]]: ImageDefs.Makelmage[getfilename[".lmage"], FALSE]: END: CR,SP => NULL: ENDCASE => BEGIN WriteChar[c] : WriteString[" Commands are:"]: FOR i IN CommandChar DO WriteChar[' ]: WriteString[CommandString[i]]; ENDlOOP; END; RETURN END: LoadNew: PROCEDURE [name: STRING] RETURNS [g: ControlDefs.GlobalFrameHandle] : BEGIN g ~ FrameOefs.New[name I BadF