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