supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/Retrace.p
2019-06-29 23:17:50 +08:00

69 lines
1.6 KiB
OpenEdge ABL

{
Created: Saturday, July 27, 1991 at 11:16 PM
Retrace.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):
<6> 7/31/91 JL Updated Copyright.
<5> 1/27/91 LN Checked in Database generate file from DSG.
<4> 12/14/90 dba <JDR> INLINEs for SlotVInstall, SlotVRemove, AttachVBL,
DoVBLTask, VInstall, VRemove
<3> 10/10/90 JL Fixing GetVBLQHdr
<2> 10/3/90 JAL Added Inline for GetVBLQHdr.
}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT Retrace;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingRetrace}
{$SETC UsingRetrace := 1}
{$I+}
{$SETC RetraceIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingTypes}
{$I $$Shell(PInterfaces)Types.p}
{$ENDC}
{$IFC UNDEFINED UsingOSUtils}
{$I $$Shell(PInterfaces)OSUtils.p}
{$ENDC}
{$SETC UsingIncludes := RetraceIncludes}
FUNCTION GetVBLQHdr: QHdrPtr;
INLINE $2EBC,$0000,$0160;
FUNCTION SlotVInstall(vblBlockPtr: QElemPtr;theSlot: INTEGER): OSErr;
INLINE $301F,$205F,$A06F,$3E80;
FUNCTION SlotVRemove(vblBlockPtr: QElemPtr;theSlot: INTEGER): OSErr;
INLINE $301F,$205F,$A070,$3E80;
FUNCTION AttachVBL(theSlot: INTEGER): OSErr;
INLINE $301F,$A071,$3E80;
FUNCTION DoVBLTask(theSlot: INTEGER): OSErr;
INLINE $301F,$A072,$3E80;
FUNCTION VInstall(vblTaskPtr: QElemPtr): OSErr;
INLINE $205F,$A033,$3E80;
FUNCTION VRemove(vblTaskPtr: QElemPtr): OSErr;
INLINE $205F,$A034,$3E80;
{$ENDC} { UsingRetrace }
{$IFC NOT UsingIncludes}
END.
{$ENDC}