Booty: Routine at D0E2

D0E2: Set Kempston Joystick

Used by the routine at TitleScreen.
SetKempstonJoystick	D0E2	LD DE,$D9B6	DE=Messaging_ReleaseJoystick.
	D0E5	CALL PrintString	Call PrintString.
Pause to let the message sink in...
	D0E8	LD B,$64	B=64 (pause loops).
SetKempstonJoystick_PauseLoop	D0EA	PUSH BC	Stash the pause loop counter on the stack.
	D0EB	CALL SmallPause	Call SmallPause.
	D0EE	POP BC	Restore the pause loop counter from the stack.
	D0EF	DJNZ SetKempstonJoystick_PauseLoop	Decrease the pause loop counter by one and loop back to SetKempstonJoystick_PauseLoop until the counter is zero.
After the above loop we loop again, this gives the player the chance to abort setting this control method.
	D0F1	LD BC,$03E8	BC=03E8 (counter).
SetKempstonJoystick_Read	D0F4	IN A,($1F)	Read from the Kempston joystick port.
	D0F6	CP $00	Jump to TitleScreen if any control is being pressed.
	D0F8	JP NZ,TitleScreen	Jump to TitleScreen if any control is being pressed.
	D0FB	DEC BC	Decrease BC by one.
	D0FC	LD A,B	Jump to SetKempstonJoystick_Read until BC is zero.
	D0FD	OR C
	D0FE	JR NZ,SetKempstonJoystick_Read
Else, finally, set this control method.
	D100	LD A,$0C	Set Kempston joystick (0C) to *ControlMethod.
	D102	LD ($5BEA),A	Set Kempston joystick (0C) to *ControlMethod.
	D105	JP Print_TitleScreen	Jump to Print_TitleScreen.