; Monitor helper code - read and write

; XXX there is a bug somewhere with wrapping arounf $FFFF

Get_From_Memory:

	phx
	phy
	phz

	; Copy PC + .Z to TMP, set .Z to 0

	clc
	tza
	adc Long_PC+0
	sta Long_TMP+0

	ldx #$02
@1:
	lda Long_PC+1,x
	adc #$00
	sta Long_TMP+1,x
	dex
	bpl @1 

	ldz #$00

	; Check addressing mode

	bbs7 Adr_Mode, @mode_flat

@mode_64k:

	lda Long_TMP+1
	bne @read                          ; branch if no need to handle shadow memory (not zero page)
	lda Long_TMP+0
	dec
	dec
	cmp #$8E
	bcs @read                          ; branch if no need to handle shadow memory (0, 1, or above $8F)
@2:
	sta Long_TMP+0
	bra @read_shadow

@mode_flat:

	lda Long_TMP+3
	ora Long_TMP+2
	ora Long_TMP+1
	bne @read_flat

	lda Long_TMP+0
	dec
	dec
	cmp #$8E
	bcs @read_flat
	bra @2

@read_shadow:

	lda #MEMCONF_SHADOW_BZP_1
	sta Long_TMP+1
	lda #MEMCONF_SHADOW_BZP_2
	sta Long_TMP+2
	lda #MEMCONF_SHADOW_BZP_3
	sta Long_TMP+3

@read_flat:
	+nop
@read: 
	lda  (Long_TMP),Z

	plz
	ply
	plx

	rts