<> <> <> <> <> <> <<>> <> DIRECTORY Allocator USING [NHeaderP], Collector USING [Disposition], PrincOps USING [zMISC, zWCDBL, alpha], SafeStorage USING [Type], ZCT USING [ZeroCountTable]; CedarMicrocode: DEFINITIONS = BEGIN <> microcodeVersion: CARDINAL = 4; <> <<>> alpha: TYPE = PrincOps.alpha; aRECLAIMEDREF: alpha = 140B; <> <<>> aENABLEMICROCODE: alpha = 141B; <<>> aDISABLEMICROCODE: alpha = 142B; <<>> aCREATEREF: alpha = 143B; <> <<>> aRECLAIMABLEREF: alpha = 144B; <> <<>> aALLOCATEOBJECT: alpha = 145B; <<>> aFREEOBJECT: alpha = 146B; <<>> aGETCANONICALREFERENTTYPE: alpha = 72B; <> aRTMOVESTATUS: alpha = 63B; -- A VESTIGE, for compatibility in the interim <<>> <> <> <> <> <> ASSIGNREF: PROC[refNew: REF, refPtr: LONG POINTER TO REF] = MACHINE CODE { PrincOps.zWCDBL, 0 }; CREATEREF: PROC[nhp: Allocator.NHeaderP] = MACHINE CODE { PrincOps.zMISC, aCREATEREF }; <<>> RECLAIMABLEREF: PROC[nhp: Allocator.NHeaderP] RETURNS[Collector.Disposition] = MACHINE CODE { PrincOps.zMISC, aRECLAIMABLEREF }; <<>> RECLAIMEDREF: PROC[ref: REF] RETURNS[REF] = MACHINE CODE { PrincOps.zMISC, aRECLAIMEDREF }; <<>> ENABLEMICROCODE: PROC[zct: ZCT.ZeroCountTable] RETURNS [ucVersion: NAT] = MACHINE CODE { PrincOps.zMISC, aENABLEMICROCODE }; <<>> DISABLEMICROCODE: PROC[zct: ZCT.ZeroCountTable] = MACHINE CODE { PrincOps.zMISC, aDISABLEMICROCODE }; <<>> ALLOCATE: PROC[size: CARDINAL, type: SafeStorage.Type] RETURNS[r: REF _ NIL] = MACHINE CODE { PrincOps.zMISC, aALLOCATEOBJECT }; <<>> FREEPLEASE: PROC[nhp: Allocator.NHeaderP] RETURNS[success: BOOL] = MACHINE CODE { PrincOps.zMISC, aFREEOBJECT }; <<>> GETCANONICALREFERENTTYPE: PROC[ref: REF] RETURNS[SafeStorage.Type] = MACHINE CODE { PrincOps.zMISC, aGETCANONICALREFERENTTYPE }; <<>> RTMOVESTATUS: PROC[msOperation: CARDINAL, gcStateBank: CARDINAL _ 0] RETURNS[CARDINAL] = MACHINE CODE { PrincOps.zMISC, aRTMOVESTATUS }; <> END.