<> <> <> DIRECTORY Process USING [EnableAborts], PrincOps USING [FrameHandle, returnOffset, zBLTL, zLLB]; CommUtilDefs: DEFINITIONS IMPORTS Process = BEGIN <> thisIsAnAlto: BOOLEAN = FALSE; <> AllocateBuffers: PROC [nwords: CARDINAL] RETURNS [base: LONG POINTER]; FreeBuffers: PROC [base: LONG POINTER, nwords: CARDINAL]; AllocateIocb: PROC [CARDINAL] RETURNS [LONG POINTER]; FreeIocb: PROC [LONG POINTER]; <> LockCode: PROC [UNSPECIFIED] = INLINE {}; -- useful in Alto world UnlockCode: PROC [UNSPECIFIED] = INLINE {}; -- useful in Alto world <> <> MaybeShorten: PROC [p: LONG POINTER] RETURNS [LONG POINTER] = INLINE { RETURN[p]}; GetEthernetHostNumber: PROC RETURNS [CARDINAL]; <> FrameHandle: TYPE = PrincOps.FrameHandle; GetReturnFrame: PROC RETURNS [FrameHandle] = MACHINE CODE BEGIN PrincOps.zLLB, PrincOps.returnOffset END; <> EnableAborts: PROC [condPtr: LONG POINTER TO CONDITION] = INLINE {Process.EnableAborts[condPtr]}; Zero: PROC [POINTER, CARDINAL]; CopyLong: PROC [from: LONG POINTER, nwords: CARDINAL, to: LONG POINTER] = MACHINE CODE BEGIN PrincOps.zBLTL END; FriendOfCopyLong: PROC [from: LONG POINTER, nwords: CARDINAL, to: LONG POINTER]; <> SetDebuggingPointer: PROC [LONG POINTER] = INLINE {}; -- useful in Alto world END...... July 19, 1980 3:33 PM By: Forrest Action: Removed references to Interupt levels. Remove pointer into middle of page 1. Change ControlDefs to Runtime.