// #LAYOUT# STD *       #TAKE
// #LAYOUT# *   BASIC_0 #TAKE
// #LAYOUT# *   *       #IGNORE

//
// Fetches a single character
//


fetch_character:

	ldy #0

#if CONFIG_MEMORY_MODEL_60K

	ldx #<TXTPTR
	jsr peek_under_roms

#else // CONFIG_MEMORY_MODEL_38K

	lda (TXTPTR),y

#endif

	// FALLTHROUGH
	
consume_character:

	// Advance basic text pointer

#if !HAS_OPCODES_65CE02

	inc TXTPTR+0
	bne !+
	inc TXTPTR+1
!:

#else // HAS_OPCODES_65CE02

	inw TXTPTR

#endif

	rts