FUNCTION	SETUPRECJOY
REM	; setsup recorder
REM	;
SETUPRECJOY	LDA	$FF03
	ANDA	#247
	ADDA	#8
	STA	$FF03
; x axis setup
	LDA	$FF01
	ANDA	#247
	STA	$FF01	;cleared mux bit
	RTS
ENDFUNCTION
; 
FUNCTION	ENDRECJOY
REM	; setsup recorder
REM	;
ENDRECJOY	LDA	$FF03
	ANDA	#247
	STA	$FF03
	LDA	$FF01
	ANDA	#247
	STA	$FF01
	RTS
ENDFUNCTION
; 
; 
FUNCTION	SAMPLEJOY
; *****************************************
; * sample joystick sound 1 bit audio
; *****************************************
REM	; saves sound on b
REM	; hopefully reports at same rate
SAVEIT	FCB	0
SAMPLEJOY	LDB	#32
JOYLX	STB	$FF20
	LDA	$FF00
	BPL	JOYLXD
	LDB	#1
	RTS
JOYLXD	CLRB
	RTS
ENDFUNCTION
