more work on monitor integration
This commit is contained in:
1 parent
81e45fd7ac
commit
bbcc20529d
5 files changed
+90
-9
No files matched your search
@@ -0,0 +1,78 @@
|
||||
|
||||
; 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
|
||||
Reference in new issue
Block a user