/*
Name:				GetChar
Precondtions:		None.
Postcondtions:		Keyboard input is in the accumulator.
Destroys:			A, Flags.
Description:		Loads keyboard input into the Accumulator.
*/

KbdRdy = $D011
Kbd = $D010

GetChar:
			LDA KbdRdy		; Key ready?
			BPL GetChar		; Loop until ready.
			LDA Kbd			; Load character.
			RTS				; Exit.