Text preview for : NovaOps.mesa_Oct77.pdf part of xerox NovaOps.mesa Oct77 xerox mesa 3.0_1977 listing NovaOps.mesa_Oct77.pdf



Back to : NovaOps.mesa_Oct77.pdf | Home

novlloPS.mESA Z4-0CT-77 18:38:25 Page 1


--File: NovaOps.mesa
--Last edited by Sandman on August 23, 1977 9:28 PM
DIRECTORY
Mopcodes: FROM "mopcodes",
AltoFileDefs: FROM "altofiledefs":
DEFINITIONS FROM
Mopcodes,
AltoF 11 eDefs:
NovaOps: DEFINITIONS
8EGIN
-- in the definitions below, Finish/Abort must be all
NovaOpcode: TYPE = {Finish.Abort,OutLd,InLrl,Punt,JSR};
CleanupReason: TYPE = {Finish,Abort.OutLd,InLd.Save,Restore.Check.Restart};
Stop: MACHINE CODE [code: NovaOpcode] = INLINE [zSTOP];
Finish: NovaOpcode = 0;
Abort: NovaOpcode = 1;
Punt: NovaOpcode = 4;
NovaOutLd: MACIiINE CODE [code: NovaOpcode. file: POINTER TO CFP. message: POINTER] RETURNS [[0 .. 2]]
= INLINE [zSTOP];
OutLd: NovaOpcode = 2;
-- return 0=> normal return; 1=> just InLd'ed; 2=> just booted
NovaInLd: MACHINE CODE [code: NovaOpcode. file: POINTER TO CFP. message: POINTER]
= INLINE [zSTOP];
InLd: NovaOpcode = 3;
NovaJSR: MACHINE CODE [code: NovaOpcode, address: POINTER, arg: UNSPECIFIED] RETURNS [UNSPECIFIED]
= INLINE [zSTOP];
JSR: NovaOpcode = 5;
END ...