Programmer 7500/MAX_PROGRAMMERS.iso/PROGRAMS/UTILS/MOUSE/TPASJOY.ZIP/BUTTONS.INC

Text File | 1987-03-26 | 517 b | 31 lines

{BUTTONS.INC}
{
Author:        David Howorth
Last updated:  March 26,1987
Application:   Functions to read the status of the four joystick buttons.
}

function ButtonA1 : boolean;

begin
  ButtonA1 := ((port[$201] and $10) = 0);
end;

function ButtonA2 : boolean;

begin
  ButtonA2 := ((port[$201] and $20) = 0);
end;

function ButtonB1 : boolean;

begin
  ButtonB1 := ((port[$201] and $40) = 0);
end;

function ButtonB2 : boolean;

begin
  ButtonB2 := ((port[$201] and $80) = 0);
end;