Reading jagpad A from GFABASIC - Revision history

>Wongck at 12:21, 13 October 2011

2011-10-13T12:21:06Z

← Older revision		Revision as of 08:21, 13 October 2011
Line 84:		Line 84:
	Back to [[Game_%26_Demo_programming_techniques]]		Back to [[Game_%26_Demo_programming_techniques]]

	~~[[Category:Programming]]~~[[Category:GFA Basic]]
			[[Category:GFA Basic]]

>Tompee: categorise

2008-10-26T04:31:46Z

categorise

← Older revision		Revision as of 00:31, 26 October 2008
Line 83:		Line 83:
	</pre>		</pre>
	Back to [[Game_%26_Demo_programming_techniques]]		Back to [[Game_%26_Demo_programming_techniques]]

			[[Category:Programming]][[Category:GFA Basic]]

>Zorro 2 at 14:53, 11 September 2006

2006-09-11T14:53:28Z

← Older revision		Revision as of 10:53, 11 September 2006
Line 82:		Line 82:
	ENDFUNC		ENDFUNC
	</pre>		</pre>
			Back to [[Game_%26_Demo_programming_techniques]]

>Simonsunnyboy at 10:05, 5 July 2006

2006-07-05T10:05:07Z

New page

<pre>
'
' Jagpad routine in GFABASIC
' by Simon Sunnyboy / Paradize
'
DO
jag%=FN jagpad_a
EXIT IF jag% AND 128 ! exit if button
IF jag% AND 1
PRINT "UP ";
ENDIF
IF jag% AND 2
PRINT "DOWN ";
ENDIF
IF jag% AND 4
PRINT "LEFT ";
ENDIF
IF jag% AND 8
PRINT "RIGHT ";
ENDIF
IF jag% AND 16
PRINT "OPTIONS ";
ENDIF
IF jag% AND 32
PRINT "BUTC ";
ENDIF
IF jag% AND 64
PRINT "BUTB ";
ENDIF
LOOP
EDIT
'
FUNCTION jagpad_a
LOCAL vec%,pad%
'
' returns the state of Jagpad A as a vector
' Bits 0-3 standard joystick directions (compatible with IKBD)
' Bit 4 Options button
' Bit 5 Button C
' Bit 6 Button B
' Bit 7 Button A
' directions
vec%=0
SDPOKE &HFF9202,&HFFFE
pad%=NOT (DPEEK(&HFF9202) AND &HF00)
IF pad% AND 2048 ! right
vec%=vec% OR 8
ENDIF
IF pad% AND 1024 ! left
vec%=vec% OR 4
ENDIF
IF pad% AND 512 ! down
vec%=vec% OR 2
ENDIF
IF pad% AND 256 ! up
vec%=vec% OR 1
ENDIF
'
SDPOKE &HFF9202,&HFFFE
pad%=NOT (DPEEK(&HFF9200) AND &HF)
IF pad% AND 2
vec%=vec% OR 128 ! button A
ENDIF
SDPOKE &HFF9202,&HFFFD
pad%=NOT (DPEEK(&HFF9200) AND &HF)
IF pad% AND 2
vec%=vec% OR 64 ! button B
ENDIF
SDPOKE &HFF9202,&HFFFB
pad%=NOT (DPEEK(&HFF9200) AND &HF)
IF pad% AND 2
vec%=vec% OR 32 ! button C
ENDIF
'
SDPOKE &HFF9202,&HFFF7
pad%=NOT (DPEEK(&HFF9200) AND &HF)
IF pad% AND 2
vec%=vec% OR 16 ! Options
ENDIF
'
RETURN vec%
ENDFUNC
</pre>