DEFINITION MODULE OptLowlevelL {"lowlevel.library",-40};
(* 02-Apr-1994/bp *)

FROM SYSTEM IMPORT ADR,ADDRESS,LONGSET;
FROM Timer IMPORT EClockValPtr;
IMPORT R, d:LowlevelD;

CONST
  lowlevelName="lowlevel.library";

VAR
  lowlevelVersion:INTEGER;
  lowlevelBase:d.LowlevelBasePtr;

PROCEDURE(*40*) AddKBInt(
                 intRoutine{R.A0}:ADDRESS;
                 intData{R.A1}:ADDRESS
                 ):ADDRESS; CODE -60;

PROCEDURE(*40*) AddTimerInt(
                 intRoutine{R.A0}:ADDRESS;
                 intData{R.A1}:ADDRESS
                 ):ADDRESS; CODE -78;

PROCEDURE(*40*) AddVBlankInt(
                 intRoutine{R.A0}:ADDRESS;
                 intData{R.A1}:ADDRESS
                 ):ADDRESS; CODE -108;

PROCEDURE(*40*) ElapsedTime(
                 context{R.A0}:EClockValPtr
                 ):LONGCARD; CODE -102;

PROCEDURE(*40*) GetKey(
                 ):LONGCARD; CODE -48;

PROCEDURE(*40*) GetLanguageSelection(
                 ):LONGCARD; CODE -36;

PROCEDURE(*40*) QueryKeys(
                 queryArray{R.A0}:d.KeyQueryPtr;
                 arraySize{R.D1}:LONGCARD
                 ); CODE -54;

PROCEDURE(*40*) ReadJoyPort(
                 port{R.D0}:LONGCARD
                 ):d.JPSet; CODE -30;

PROCEDURE(*40*) RemKBInt(
                 intHandle{R.A1}:ADDRESS
                 ); CODE -66;

PROCEDURE(*40*) RemTimerInt(
                 intHandle{R.A1}:ADDRESS
                 ); CODE -84;

PROCEDURE(*40*) RemVBlankInt(
                 intHandle{R.A1}:ADDRESS
                 ); CODE -114;

PROCEDURE(*40*) SetJoyPortAttrsA(
                 portNumber{R.D0}:LONGCARD;
                 tagList{R.A1}:ADDRESS
                 ):BOOLEAN; CODE -132;

PROCEDURE(*40*) StartTimerInt(
                 intHandle{R.A1}:ADDRESS;
                 timeInterval{R.D0}:LONGCARD;
                 continuous{R.D1}:BOOLEAN
                 ); CODE -96;

PROCEDURE(*40*) StopTimerInt(
                 intHandle{R.A1}:ADDRESS
                 ); CODE -90;

PROCEDURE(*40*) SystemControlA(
                 tagList{R.A1}:ADDRESS
                 ):LONGCARD; CODE -72;

END OptLowlevelL.lib-40
