Reading jagpad A from GFABASIC - Revision history

AtariWikiSysop: 4 revisions imported

2018-06-03T23:12:53Z

4 revisions imported

Wongck at 12:21, 13 October 2011

2011-10-13T12:21:06Z

Tompee: categorise

2008-10-26T04:31:46Z

categorise

Zorro 2 at 14:53, 11 September 2006

2006-09-11T14:53:28Z

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>

← Older revision		Revision as of 12: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]]

← Older revision		Revision as of 04: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]]

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

← Older revision	Revision as of 23:12, 3 June 2018
(No difference)