/	***** PM SYSTEM 1 *****
/	JOYSTICK DRIVER SUBROUTINE - JOY.ST
/	3 APR 1977 - A. SLATER
/
/	ENTER FROM FORTRAN WITH CALL JOY(ISTIKS)
/	RETURNS TO FORTRAN WITH:
/	   ISTIKS(1)=LEFT HORIZONTAL
/	   ISTIKS(2)=LEFT VERTICAL
/	   ISTIKS(3)=RIGHT HORIZONTAL
/	   ISTIKS(4)=RIGHT VERTICAL
/	   ISTIKS(5) NON ZERO IF LEFT BUTTON PRESSED
/	   ISTIKS(6) NON ZERO IF RIGHT BUTTON PRESSED
        SECT8   JOY
	BASE	0
	STARTD
	FLDA	0	/GET RETURN ADDRESS
	FSTA	ADCRET	/STORE RETURN ADDRESS
ADCRET,	JA	.
L2,	0;2
L3,	0;3