mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-01 23:41:27 +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.
137 lines
2.7 KiB
OpenEdge ABL
137 lines
2.7 KiB
OpenEdge ABL
|
|
{
|
|
Created: Friday, August 2, 1991 at 11:20 PM
|
|
RTLib.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1990-1991
|
|
All rights reserved
|
|
This file is used in these builds: ROM System
|
|
|
|
|
|
Change History (most recent first):
|
|
|
|
<2> 8/8/91 JL Updated Copyright. Standardized header.
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT RTLib;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingRTLib}
|
|
{$SETC UsingRTLib := 1}
|
|
|
|
{$I+}
|
|
{$SETC RTLibIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := RTLibIncludes}
|
|
|
|
|
|
CONST
|
|
{
|
|
Error Codes
|
|
}
|
|
eRTNoErr = 0;
|
|
eRTBadVersion = 2;
|
|
eRTInvalidOp = 4;
|
|
eRTInvalidJTPtr = 6;
|
|
|
|
{
|
|
Action Codes
|
|
}
|
|
kRTSysErr = 0;
|
|
kRTRetry = 1;
|
|
kRTContinue = 2;
|
|
|
|
{
|
|
Runtime Operations
|
|
}
|
|
kRTGetVersion = 10;
|
|
kRTGetVersionA5 = 11;
|
|
kRTGetJTAddress = 12;
|
|
kRTGetJTAddressA5 = 13;
|
|
kRTSetPreLoad = 14;
|
|
kRTSetPreLoadA5 = 15;
|
|
kRTSetSegLoadErr = 16;
|
|
kRTSetSegLoadErrA5 = 17;
|
|
kRTSetPostLoad = 18;
|
|
kRTSetPostLoadA5 = 19;
|
|
kRTSetPreUnload = 20;
|
|
kRTSetPreUnloadA5 = 21;
|
|
kRTPreLaunch = 22;
|
|
kRTPostLaunch = 23;
|
|
|
|
{
|
|
Version Definitions
|
|
}
|
|
kVERSION32BIT = $FFFF;
|
|
kVERSION16BIT = $0000;
|
|
|
|
|
|
TYPE
|
|
{
|
|
RTState Definition
|
|
}
|
|
RTState = RECORD
|
|
fVersion: INTEGER; { run-time version }
|
|
fSP: Ptr; { SP: &-of user return address }
|
|
fJTAddr: Ptr; { PC: &-of called jump table entry }
|
|
fRegisters: Array[0..14] of LONGINT; { registers D0-D7 and A0-A6 when }
|
|
{ _LoadSeg was called }
|
|
fSegNo: INTEGER; { segment number }
|
|
fSegType: ResType; { segment type (normally 'CODE') }
|
|
fSegSize: LONGINT; { segment size }
|
|
fSegInCore: BOOLEAN; { true if segment is in memory }
|
|
fReserved1: BOOLEAN; { (reserved for future use) }
|
|
fOSErr: OSErr; { error number }
|
|
fReserved2: LONGINT; { (reserved for future use) }
|
|
END;
|
|
|
|
RTStatePtr = ^RTState;
|
|
|
|
{
|
|
Runtime Parameter Block
|
|
}
|
|
|
|
RTParam = (RTGetVersionParam, RTGetJTAddrParam, RTSetSegLoadParam);
|
|
|
|
RTPB = RECORD
|
|
fOperation: INTEGER; { operation }
|
|
fA5: Ptr; { A5-world }
|
|
CASE RTParam OF
|
|
RTGetVersionParam:
|
|
(fVersion: INTEGER); { run-time version (returned) }
|
|
|
|
RTGetJTAddrParam:
|
|
(fJTAddr: Ptr; { ptr to jt entry }
|
|
fCodeAddr: Ptr); { code address w/i jt entry (returned) }
|
|
|
|
RTSetSegLoadParam:
|
|
(fUserHdlr: Ptr; { ptr to user handler }
|
|
fOldUserHdlr: Ptr); { ptr to old user handler (returned) }
|
|
END;
|
|
|
|
RTPBPtr = ^RTPB;
|
|
|
|
|
|
FUNCTION Runtime (runtime_parms: RTPBPtr): OSErr;
|
|
|
|
|
|
{$ENDC} { UsingRTLib }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|