{ 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 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}