NovaOps.mesa_Oct77.pdf | | 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: |