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. ~CommUtilDefs.Mesa Copyright c 1985 by Xerox Corporation. All rights reserved. BLyon January 19, 1981 12:05 PM for finding out where we really are Buffer/IOCB Allocation Lock Interrupt routines This is needed because of Process/ProcessDefs LONG/Short complications Shortens in the Alto world, noop in Pilot world Debugging things Other goodies This is a hack for debugging Κ­˜codešœ™Kšœ Οmœ1™