Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2025-02-20 12:29:04 +00:00
Code Issues Projects Releases Wiki Activity

allow override of write address

Browse Source
This commit is contained in:
Peter Ferrie 2018-11-17 15:50:13 -08:00
parent 3ca6a4bdbc
commit 9b6a21e2ea
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/glue.prorwts2.a
View File

@ -132,6 +132,8 @@ SaveSmallFile
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
traverse traverse
+LDAY gRootDirectory +LDAY gRootDirectory
sta (reloc + unrhddblocklo - unrelochdd) + 1
sty (reloc + unrhddblockhi - unrelochdd) + 1
sta @myreadblock+1 sta @myreadblock+1
sty @myreadblock+3 ; reset 'root' directory (saved at program start) sty @myreadblock+3 ; reset 'root' directory (saved at program start)

6
src/prorwts2.a
View File

@ -2200,6 +2200,9 @@ hddfoundname iny
;cache AUX_TYPE (load offset for binary files) ;cache AUX_TYPE (load offset for binary files)
!if override_adr = 0 { !if override_adr = 0 {
lda reqcmd
lsr
bne + ;cmdwrite
ldy #AUX_TYPE ldy #AUX_TYPE
lda (bloklo), y lda (bloklo), y
!if (allow_subdir + allow_saplings + allow_trees + (aligned_read xor 1)) > 0 { !if (allow_subdir + allow_saplings + allow_trees + (aligned_read xor 1)) > 0 {
@ -2209,7 +2212,8 @@ hddfoundname iny
lda (bloklo), y lda (bloklo), y
sta ldrhi sta ldrhi
sta ldrhi2 sta ldrhi2
} else { ;allow_subdir = 0 and allow_saplings = 0 and allow_trees = 0 and aligned_read = 1 +
} else { ;allow_subdir = 0 and allow_saplings = 0 and allow_trees = 0 and aligned_read = 1
pha pha
iny iny
lda (bloklo), y lda (bloklo), y