Mike's PCjr Page

Code: Select all

function joyStick1AxisQuick:longint; assembler;
{
Original by Jordan Knight, slight tweaks by Trixter.
Returns:
  AX = joystick 1 X axis
  DX = joystick 1 Y axis

Use like this:

var
  joyX,joyY:integer;
  joyPosition:longint absolute joyX;
...
joyPosition:=joystick1Axis;

...then the axis will be stored in joyX and joyY.

}
asm
        mov     cx,$4ff                 {from XT BIOS; range 1-1279}
        mov     dx,defaultstickport
        xor     ax,ax
        mov     bx,ax
        mov     bp,ax
        mov     di,ax
        pushf
        cli
        out     dx,al                   {fire off one-shots}
@loop:
        shr     al,1
        adc     bx,bp                   {bx:=bx+joy1 xaxis bit}
        add     di,ax                   {di:=di+joy1 yaxis bit}
        in      al,dx                   {read joystick bits}
        and     al,$03                  {we only care about xaxis bits}
        loopnz  @loop                   {if all bits are empty, done reading}
        {note: can increase granularity slightly by unrolling @loop 4x}
        popf
        mov     ax,bx
        mov     dx,di
end;