Apple-2-SW/prorwts2
1
0
Fork 0
mirror of https://github.com/peterferrie/prorwts2.git synced 2024-06-08 12:29:29 +00:00
Code Issues Projects Releases Wiki Activity

force subindex preload for RWTS mode < 128kb

Browse Source
This commit is contained in:
Peter Ferrie 2021-02-22 14:28:57 -08:00
parent bf99886d11
commit e2f7f44069
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
PRORWTS2.S
View File

@ -72,11 +72,12 @@ ver_02 = 1
;uses a one-time open of a tree file, no other file access allowed ;uses a one-time open of a tree file, no other file access allowed
;use unique volume numbers to distinguish between images in the same file ;use unique volume numbers to distinguish between images in the same file
;requires override_adr, allow_trees, always_trees ;requires override_adr, allow_trees, always_trees
;or fast_subindex if file is smaller than a tree
;not compatible with enable_floppy, allow_subdir, might_exist, bounds_check ;not compatible with enable_floppy, allow_subdir, might_exist, bounds_check
mem_swap = 0 ;set to 1 if zpage can be swapped between main and aux, and swap_zp is unsuitable mem_swap = 0 ;set to 1 if zpage can be swapped between main and aux, and swap_zp is unsuitable
;(caches index registers in code instead of zpage) ;(caches index registers in code instead of zpage)
load_high = 0 ;set to 1 to load to top of RAM (either main or banked, enables a himem check) load_high = 0 ;set to 1 to load to top of RAM (either main or banked, enables a himem check)
load_aux = 0 ;load to aux memory, requires either swap_scrn or load_banked load_aux = 0 ;load to aux memory
load_banked = 1 ;set to 1 to load into banked RAM instead of main RAM (can be combined with load_aux for aux banked) load_banked = 1 ;set to 1 to load into banked RAM instead of main RAM (can be combined with load_aux for aux banked)
lc_bank = 1 ;load into specified bank (1 or 2) if load_banked=1 lc_bank = 1 ;load into specified bank (1 or 2) if load_banked=1
one_page = 0 ;set to 1 if verbose mode says that you should (smaller code) one_page = 0 ;set to 1 if verbose mode says that you should (smaller code)
@ -744,6 +745,9 @@ multicopy
dex dex
bne multicopy bne multicopy
} ;three_pages = 1 } ;three_pages = 1
!if (fast_subindex + swap_zp) > 1 {
sty zp_array + adrlo - first_zp
} ;fast_subindex = 1 and swap_zp = 1
!if swap_scrn = 1 { !if swap_scrn = 1 {
jsr saveslot jsr saveslot
@ -819,33 +823,35 @@ hddfoundname iny
sty zp_array + lastblk - first_zp ;guarantee no match sty zp_array + lastblk - first_zp ;guarantee no match
} ;swap_zp = 0 or mem_swap = 1 } ;swap_zp = 0 or mem_swap = 1
!if allow_trees = 1 { !if (allow_trees + fast_subindex) > 0 {
;fetch KEY_POINTER ;fetch KEY_POINTER
ldy #KEY_POINTER ldy #KEY_POINTER
lda (scratchlo), y lda (scratchlo), y
!if fast_trees = 0 { !if (fast_trees + fast_subindex) = 0 {
!if ((swap_zp xor 1) + mem_swap) > 0 { !if ((swap_zp xor 1) + mem_swap) > 0 {
sta treeblklo sta treeblklo
} else { ;swap_zp = 1 and mem_swap = 0 } else { ;swap_zp = 1 and mem_swap = 0
sta zp_array + treeblklo - first_zp sta zp_array + treeblklo - first_zp
} ;swap_zp = 0 or mem_swap = 1 } ;swap_zp = 0 or mem_swap = 1
} else { ;fast_trees = 1 } else { ;fast_trees = 1 or fast_subindex = 1
tax tax
} ;fast_trees = 0 } ;fast_trees = 0
iny iny
lda (scratchlo), y lda (scratchlo), y
!if fast_trees = 0 { !if (fast_trees + fast_subindex) = 0 {
!if ((swap_zp xor 1) + mem_swap) > 0 { !if ((swap_zp xor 1) + mem_swap) > 0 {
sta treeblkhi sta treeblkhi
} else { ;swap_zp = 1 and mem_swap = 0 } else { ;swap_zp = 1 and mem_swap = 0
sta zp_array + treeblkhi - first_zp sta zp_array + treeblkhi - first_zp
} ;swap_zp = 0 or mem_swap = 1 } ;swap_zp = 0 or mem_swap = 1
} else { ;fast_trees = 1 } else { ;fast_trees = 1 or fast_subindex = 1
!if fast_trees = 1 {
ldy #>hddtreebuf ldy #>hddtreebuf
} ;fast_trees = 1;
jsr hddreaddirsect jsr hddreaddirsect
} ;fast_trees = 0 } ;fast_trees = 0
} ;allow_trees = 1 } ;allow_trees = 1 or fast_subindex = 1
lda #>iob lda #>iob
ldy #<iob ldy #<iob