88 lines
1.2 KiB
ArmAsm
88 lines
1.2 KiB
ArmAsm
|
|
; Monitor helper code - memory read and write
|
|
|
|
|
|
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 #$01
|
|
@1:
|
|
lda Long_PC+0,x
|
|
adc #$00
|
|
sta Long_TMP+0,x
|
|
inx
|
|
cpx #$04
|
|
bne @1
|
|
|
|
ldz #$00
|
|
|
|
; Check addressing mode
|
|
|
|
bbs7 Adr_Mode, @mode_flat
|
|
|
|
@mode_64k:
|
|
|
|
lda #$00 ; make sure this is 64K address
|
|
sta Long_TMP+2
|
|
sta Long_TMP+3
|
|
|
|
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_64k ; 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_64k:
|
|
|
|
bbr7 Long_TMP+1, @read_flat ; below $8000 we do not want to retrieve MAP/EOM banked memory
|
|
bra @read
|
|
|
|
@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: ; XXX read via helper in KERNAL_0 segment
|
|
+nop
|
|
@read:
|
|
lda (Long_TMP),Z
|
|
|
|
plz
|
|
ply
|
|
plx
|
|
|
|
rts
|