variable support cleanup
This commit is contained in:
FeralChild64 committed
1 parent
51aec45c8d
commit
09f85cea8a
64 files changed
+266
-87
No files matched your search
@@ -0,0 +1,352 @@
|
||||
// #LAYOUT# STD * #TAKE
|
||||
// #LAYOUT# * BASIC_0 #TAKE
|
||||
// #LAYOUT# * * #IGNORE
|
||||
|
||||
|
||||
varstr_garbage_collect:
|
||||
|
||||
// The routine utilizes the 'shift_mem_up' - which leaves INDEX+0 and INDEX+1
|
||||
// free to be used, but INDEX+2 and beyond would be overwritten
|
||||
|
||||
// We will reuse TXTPTR as the moving pointer, so store it on the stack
|
||||
|
||||
lda TXTPTR+0
|
||||
pha
|
||||
lda TXTPTR+1
|
||||
pha
|
||||
|
||||
// Similarly, we will reuse OLDTXT as the pointer to string descriptor
|
||||
|
||||
lda OLDTXT+0
|
||||
pha
|
||||
lda OLDTXT+1
|
||||
pha
|
||||
|
||||
// INDEX+0 and INDEX+1 will be our cumulative shift counter
|
||||
|
||||
lda #$00
|
||||
sta INDEX+0
|
||||
sta INDEX+1
|
||||
|
||||
// Start from the highest string and go downwards
|
||||
|
||||
lda MEMSIZ+0
|
||||
sta TXTPTR+0
|
||||
lda MEMSIZ+1
|
||||
sta TXTPTR+1
|
||||
|
||||
varstr_garbage_collect_loop:
|
||||
|
||||
// Check if this was the last (lowest) string (if FRETOP == TXTPTR)
|
||||
|
||||
lda FRETOP+1
|
||||
cmp TXTPTR+1
|
||||
bne varstr_garbage_collect_check_bptr
|
||||
lda FRETOP+0
|
||||
cmp TXTPTR+0
|
||||
bne varstr_garbage_collect_check_bptr
|
||||
|
||||
// End of strings - adapt FRETOP
|
||||
|
||||
clc
|
||||
lda INDEX+0
|
||||
adc FRETOP+0
|
||||
sta FRETOP+0
|
||||
lda INDEX+1
|
||||
adc FRETOP+1
|
||||
sta FRETOP+1
|
||||
|
||||
// FALLTROUGH
|
||||
|
||||
varstr_garbage_collect_end:
|
||||
|
||||
// Restore OLDTXT and TXTPTR, and quit
|
||||
|
||||
pla
|
||||
sta OLDTXT+1
|
||||
pla
|
||||
sta OLDTXT+0
|
||||
pla
|
||||
sta TXTPTR+1
|
||||
pla
|
||||
sta TXTPTR+0
|
||||
|
||||
rts
|
||||
|
||||
varstr_garbage_collect_check_bptr:
|
||||
|
||||
// Decrement TXTPTR by 2, so that it points to the back-pointer
|
||||
|
||||
#if !HAS_OPCODES_65CE02
|
||||
lda #$02
|
||||
jsr helper_TXTPTR_down_A
|
||||
#else // HAS_OPCODES_65CE02
|
||||
dew TXTPTR
|
||||
dew TXTPTR
|
||||
#endif
|
||||
|
||||
// Copy the back-pointer to OLDTXT, check if it is NULL
|
||||
|
||||
ldy #$00
|
||||
|
||||
#if CONFIG_MEMORY_MODEL_60K
|
||||
ldx #<TXTPTR
|
||||
jsr peek_under_roms
|
||||
sta OLDTXT+0
|
||||
iny
|
||||
jsr peek_under_roms
|
||||
sta OLDTXT+1
|
||||
#elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
|
||||
// XXX consider optimized version without multiple JSRs
|
||||
jsr peek_under_roms_via_TXTPTR
|
||||
sta OLDTXT+0
|
||||
iny
|
||||
jsr peek_under_roms_via_TXTPTR
|
||||
sta OLDTXT+1
|
||||
#else // CONFIG_MEMORY_MODEL_38K
|
||||
lda (TXTPTR),y
|
||||
sta OLDTXT+0
|
||||
iny
|
||||
lda (TXTPTR),y
|
||||
sta OLDTXT+1
|
||||
#endif
|
||||
|
||||
ora OLDTXT+0
|
||||
beq_16 varstr_garbage_collect_unused
|
||||
|
||||
// The back-pointer is not NULL - string is used
|
||||
|
||||
// Setup 'memmove__size' - number of bytes to copy
|
||||
|
||||
ldy #$00
|
||||
|
||||
#if CONFIG_MEMORY_MODEL_60K
|
||||
ldx #<OLDTXT
|
||||
jsr peek_under_roms
|
||||
#elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
|
||||
jsr peek_under_roms_via_OLDTXT
|
||||
#else // CONFIG_MEMORY_MODEL_38K
|
||||
lda (OLDTXT),y
|
||||
#endif
|
||||
|
||||
sta memmove__size+0
|
||||
lda #$00
|
||||
sta memmove__size+1
|
||||
|
||||
// The 'memmove__size' contains string length - add back-pointer size
|
||||
|
||||
#if !HAS_OPCODES_65CE02
|
||||
clc
|
||||
lda memmove__size+0
|
||||
adc #$02
|
||||
sta memmove__size+0
|
||||
bcc !+
|
||||
inc memmove__size+1
|
||||
!:
|
||||
#else // HAS_OPCODES_65CE02
|
||||
inw memmove__size
|
||||
inw memmove__size
|
||||
#endif
|
||||
|
||||
// Setup 'memmove__src' - last byte of source
|
||||
|
||||
iny
|
||||
|
||||
#if CONFIG_MEMORY_MODEL_60K
|
||||
jsr peek_under_roms
|
||||
sta memmove__src+0
|
||||
iny
|
||||
jsr peek_under_roms
|
||||
sta memmove__src+1
|
||||
#elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
|
||||
// XXX consider optimized version without multiple JSRs
|
||||
jsr peek_under_roms_via_OLDTXT
|
||||
sta memmove__src+0
|
||||
iny
|
||||
jsr peek_under_roms_via_OLDTXT
|
||||
sta memmove__src+1
|
||||
#else // CONFIG_MEMORY_MODEL_38K
|
||||
lda (OLDTXT),y
|
||||
sta memmove__src+0
|
||||
iny
|
||||
lda (OLDTXT),y
|
||||
sta memmove__src+1
|
||||
#endif
|
||||
|
||||
// The 'memmove__src' contains the first byte of source - add 'memmove__size' to it
|
||||
|
||||
clc
|
||||
lda memmove__src+0
|
||||
adc memmove__size+0
|
||||
sta memmove__src+0
|
||||
lda memmove__src+1
|
||||
adc memmove__size+1
|
||||
sta memmove__src+1
|
||||
|
||||
// Shift 'memmove__src' to point last byte of source
|
||||
|
||||
#if !HAS_OPCODES_65CE02
|
||||
sec
|
||||
lda memmove__src+0
|
||||
sbc #$01
|
||||
sta memmove__src+0
|
||||
bcs !+
|
||||
dec memmove__src+1
|
||||
!:
|
||||
#else // HAS_OPCODES_65CE02
|
||||
dew memmove__src
|
||||
#endif
|
||||
|
||||
// Setup 'memmove__dst' - last byte of destination
|
||||
|
||||
clc
|
||||
lda memmove__src+0
|
||||
adc INDEX+0
|
||||
sta memmove__dst+0
|
||||
lda memmove__src+1
|
||||
adc INDEX+1
|
||||
sta memmove__dst+1
|
||||
|
||||
// Increase the string descriptor pointer by INDEX, so that it will point to the new position
|
||||
|
||||
ldy #$01
|
||||
|
||||
#if CONFIG_MEMORY_MODEL_60K
|
||||
|
||||
ldx #<OLDTXT
|
||||
jsr peek_under_roms
|
||||
clc
|
||||
adc INDEX+0
|
||||
php
|
||||
jsr poke_under_roms
|
||||
|
||||
iny
|
||||
jsr peek_under_roms
|
||||
plp
|
||||
adc INDEX+1
|
||||
jsr poke_under_roms
|
||||
|
||||
#elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
|
||||
// XXX consider optimized version without multiple JSRs
|
||||
|
||||
jsr peek_under_roms_via_OLDTXT
|
||||
clc
|
||||
adc INDEX+0
|
||||
sta (OLDTXT),y
|
||||
iny
|
||||
|
||||
php
|
||||
jsr peek_under_roms_via_OLDTXT
|
||||
plp
|
||||
adc INDEX+1
|
||||
sta (OLDTXT),y
|
||||
|
||||
#else // CONFIG_MEMORY_MODEL_38K
|
||||
|
||||
lda (OLDTXT),y
|
||||
clc
|
||||
adc INDEX+0
|
||||
sta (OLDTXT),y
|
||||
iny
|
||||
lda (OLDTXT),y
|
||||
adc INDEX+1
|
||||
sta (OLDTXT),y
|
||||
|
||||
#endif
|
||||
|
||||
// Move string memory up
|
||||
|
||||
jsr shift_mem_up
|
||||
|
||||
// Update TXTPTR
|
||||
|
||||
ldy #$00
|
||||
|
||||
#if CONFIG_MEMORY_MODEL_60K
|
||||
ldx #<OLDTXT
|
||||
jsr peek_under_roms
|
||||
#elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
|
||||
jsr peek_under_roms_via_OLDTXT
|
||||
#else // CONFIG_MEMORY_MODEL_38K
|
||||
lda (OLDTXT),y
|
||||
#endif
|
||||
|
||||
jsr helper_TXTPTR_down_A
|
||||
|
||||
// Check if variable descriptor in __FAC1 matches the previously moved string;
|
||||
// if so - adapt it too
|
||||
|
||||
lda __FAC1+2
|
||||
cmp TXTPTR+1
|
||||
bne !+
|
||||
lda __FAC1+1
|
||||
cmp TXTPTR+0
|
||||
bne !+
|
||||
|
||||
clc
|
||||
adc INDEX+0
|
||||
sta __FAC1+1
|
||||
lda __FAC1+2
|
||||
adc INDEX+1
|
||||
sta __FAC1+2
|
||||
!:
|
||||
// Same for __FAC2
|
||||
|
||||
lda __FAC2+2
|
||||
cmp TXTPTR+1
|
||||
bne !+
|
||||
lda __FAC2+1
|
||||
cmp TXTPTR+0
|
||||
bne !+
|
||||
|
||||
clc
|
||||
adc INDEX+0
|
||||
sta __FAC2+1
|
||||
lda __FAC2+2
|
||||
adc INDEX+1
|
||||
sta __FAC2+2
|
||||
!:
|
||||
// Next iteration
|
||||
|
||||
jmp varstr_garbage_collect_loop
|
||||
|
||||
varstr_garbage_collect_unused:
|
||||
|
||||
// The back-pointer is NULL - string is a garbage to collect
|
||||
// Fetch the string length
|
||||
|
||||
#if !HAS_OPCODES_65CE02
|
||||
lda #$01
|
||||
jsr helper_TXTPTR_down_A
|
||||
#else // HAS_OPCODES_65CE02
|
||||
dew TXTPTR
|
||||
#endif
|
||||
|
||||
ldy #$00
|
||||
|
||||
#if CONFIG_MEMORY_MODEL_60K
|
||||
ldx #<TXTPTR
|
||||
jsr peek_under_roms
|
||||
#elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
|
||||
jsr peek_under_roms_via_TXTPTR
|
||||
#else // CONFIG_MEMORY_MODEL_38K
|
||||
lda (TXTPTR),y
|
||||
#endif
|
||||
|
||||
tax
|
||||
|
||||
// Increase INDEX (shift offset) by string length + back-pointer length
|
||||
|
||||
lda #$03
|
||||
jsr helper_INDEX_up_A
|
||||
txa
|
||||
jsr helper_INDEX_up_A
|
||||
|
||||
// Decrease TXTPTR by unused string length-1
|
||||
|
||||
txa
|
||||
jsr helper_TXTPTR_down_A
|
||||
|
||||
// Next iteration
|
||||
|
||||
jmp varstr_garbage_collect_loop
|
||||
Reference in new issue
Block a user