mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-09 15:29:29 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
73 lines
1.4 KiB
OpenEdge ABL
73 lines
1.4 KiB
OpenEdge ABL
|
|
{
|
|
Created: Sunday, July 28, 1991 at 12:14 AM
|
|
Timer.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1985-1991
|
|
All rights reserved
|
|
This file is used in these builds: Mac32 BigBang Sys606
|
|
|
|
|
|
Change History (most recent first):
|
|
|
|
<5> 7/31/91 JL Updated Copyright.
|
|
<4> 1/27/91 LN Checked in Database generate file from DSG.
|
|
<3> 12/3/90 JDR <dba> Use inlines.
|
|
<2> 10/3/90 JAL Added to Longs to end of TMTask record.
|
|
and added InsXTime.
|
|
}
|
|
|
|
|
|
{$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}
|
|
|