/* joy */

pos = "CenterUp    Up-Rt Right Dn-Rt Down  Dn-Lt Left  Up-Lt "

PIA = '00bfe001'X
JOY = '00dff00c'X

do FOREVER

val = import(PIA,1)

if bittst(val,7) = 1 then do
	match = -1
	val = import(JOY,2)
	if bittst(val,1) then match = 6
	if bittst(val,9) then match = 2
	rval = d2c(c2d(bitclr(val,0),2)/2,2)
	rval = bitxor(val,rval)
	if bittst(rval,8) = 1 then do
		if match >= 0 then
			if match = 2 then match = 1
			else match = 7
		else match = 0
	end
	if bittst(rval,0) = 1 then do
		if match >= 0 then
			if match = 2 then match = 3
			else match = 5
		else match = 4
	end

	say substr(pos,1 + (match + 1) * 6,6)
end

else say "FIRE!"

end