;; #LAYOUT# STD *        #TAKE
;; #LAYOUT# *   *        #IGNORE

;
; Well-known Kernal routine, described in:
;
; - [CM64] Computes Mapping the Commodore 64 - $E5B4, LP2
;
; Takes the first key from the keyboard buffer, which must not be empty, and moves the
; others up. Out: the key in A. X is kept.
;


get_from_keyboard_buffer:

	lda KEYD
	pha
	jsr pop_keyboard_buffer
	pla

	rts