supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/Power.p

142 lines
3.0 KiB
OpenEdge ABL
Raw Normal View History

2019-06-29 15:17:50 +00:00
{
Created: Saturday, July 27, 1991 at 10:29 PM
Power.p
Pascal Interface to the Macintosh Libraries
Copyright Apple Computer, Inc. 1989-1991
All rights reserved
This file is used in these builds: BigBang
Change History (most recent first):
<7> 7/31/91 JL Updated Copyright.
<6> 2/4/91 JL Added sleepQType as a synonym for slpQType.
<5> 1/30/91 JL Checked in Database generated file from DSG. Took () out of
DisableWUTime
<4> 1/25/91 stb JDR: add sleepRevoke and slpQType
<3> 1/22/91 ag MSH: Removed all Power Manager command definitions and the
parameter block definition. Added interfaces to interface glue
for modem, battery, and wakeup timer.
<2> 1/18/91 ag MSH - Removed private Power Manager equates.
To Do:
}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT Power;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingPower}
{$SETC UsingPower := 1}
{$I+}
{$SETC PowerIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingTypes}
{$I $$Shell(PInterfaces)Types.p}
{$ENDC}
{$SETC UsingIncludes := PowerIncludes}
CONST
{ Bit positions for ModemByte }
modemOnBit = 0;
ringWakeUpBit = 2;
modemInstalledBit = 3;
ringDetectBit = 4;
modemOnHookBit = 5;
{ masks for ModemByte }
modemOnMask = $1;
ringWakeUpMask = $4;
modemInstalledMask = $8;
ringDetectMask = $10;
modemOnHookMask = $20;
{ bit positions for BatteryByte }
chargerConnBit = 0;
hiChargeBit = 1;
chargeOverFlowBit = 2;
batteryDeadBit = 3;
batteryLowBit = 4;
connChangedBit = 5;
{ masks for BatteryByte }
chargerConnMask = $1;
hiChargeMask = $2;
chargeOverFlowMask = $4;
batteryDeadMask = $8;
batteryLowMask = $10;
connChangedMask = $20;
{ commands to SleepQRec sleepQProc }
sleepRequest = 1;
sleepDemand = 2;
sleepWakeUp = 3;
sleepRevoke = 4;
{ SleepQRec.sleepQFlags }
noCalls = 1;
noRequest = 2;
slpQType = 16;
sleepQType = 16;
TYPE
ModemByte = Byte;
BatteryByte = Byte;
PMResultCode = LONGINT;
SleepQRecPtr = ^SleepQRec;
SleepQRec = RECORD
sleepQLink: SleepQRecPtr;
sleepQType: INTEGER; {type = 16}
sleepQProc: ProcPtr; {Pointer to sleep routine}
sleepQFlags: INTEGER;
END;
FUNCTION DisableWUTime: OSErr;
FUNCTION GetWUTime(VAR WUTime: LONGINT;VAR WUFlag: Byte): OSErr;
FUNCTION SetWUTime(WUTime: LONGINT): OSErr;
FUNCTION BatteryStatus(VAR Status: Byte;VAR Power: Byte): OSErr;
FUNCTION ModemStatus(VAR Status: Byte): OSErr;
FUNCTION IdleUpdate: LONGINT;
INLINE $A285,$2E80;
FUNCTION GetCPUSpeed: LONGINT;
INLINE $70FF,$A485,$2E80;
PROCEDURE EnableIdle;
INLINE $7000,$A485;
PROCEDURE DisableIdle;
INLINE $7001,$A485;
PROCEDURE SleepQInstall(qRecPtr: SleepQRecPtr);
INLINE $205F,$A28A;
PROCEDURE SleepQRemove(qRecPtr: SleepQRecPtr);
INLINE $205F,$A48A;
PROCEDURE AOn;
INLINE $7004,$A685;
PROCEDURE AOnIgnoreModem;
INLINE $7005,$A685;
PROCEDURE BOn;
INLINE $7000,$A685;
PROCEDURE AOff;
INLINE $7084,$A685;
PROCEDURE BOff;
INLINE $7080,$A685;
{$ENDC} { UsingPower }
{$IFC NOT UsingIncludes}
END.
{$ENDC}