79 lines
1003 B
ArmAsm
79 lines
1003 B
ArmAsm
|
|
; 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
|