mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2024-09-28 11:54:37 +00:00
62 lines
1.1 KiB
OpenEdge ABL
62 lines
1.1 KiB
OpenEdge ABL
{
|
|
Created: Sunday, January 6, 1991 at 11:25 PM
|
|
Timer.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1985-1990
|
|
All rights reserved
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Timer;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingTimer}
|
|
{$SETC UsingTimer := 1}
|
|
|
|
{$I+}
|
|
{$SETC TimerIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingOSUtils}
|
|
{$I $$Shell(PInterfaces)OSUtils.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := TimerIncludes}
|
|
|
|
TYPE
|
|
TMTaskPtr = ^TMTask;
|
|
TMTask = RECORD
|
|
qLink: QElemPtr;
|
|
qType: INTEGER;
|
|
tmAddr: ProcPtr;
|
|
tmCount: LONGINT;
|
|
tmWakeUp: LONGINT;
|
|
tmReserved: LONGINT;
|
|
END;
|
|
|
|
|
|
PROCEDURE InsTime(tmTaskPtr: QElemPtr);
|
|
INLINE $205F,$A058;
|
|
PROCEDURE InsXTime(tmTaskPtr: QElemPtr);
|
|
INLINE $205F,$A458;
|
|
PROCEDURE PrimeTime(tmTaskPtr: QElemPtr;count: LONGINT);
|
|
INLINE $201F,$205F,$A05A;
|
|
PROCEDURE RmvTime(tmTaskPtr: QElemPtr);
|
|
INLINE $205F,$A059;
|
|
|
|
|
|
{$ENDC} { UsingTimer }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|