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

move LoadFile internals to LC RAM 2

Browse Source
This commit is contained in:
4am 2019-09-10 14:52:00 -04:00
parent 74b221e899
commit 93eeae13af
3 changed files with 68 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/4cade.a
View File

@ -108,8 +108,8 @@ LastMover
!source "src/prodos.impl.a"
!if * > $DFEF {
!error "code is too large: ends at ", *
; } else {
; !warn "LCRAM2 ends at ", *
} else {
!warn "LCRAM2 ends at ", *
}
}
EvenLasterMover

61
src/glue.prorwts2.a
View File

@ -7,7 +7,6 @@
; - LoadFile
; - LoadDHRFile
; - SaveSmallFile
; - SaveOrRestoreScreenHoles
;
; A general note about paths:
;
@ -56,24 +55,8 @@ LoadFile
jsr AddToPath
+LDPARAM 5
+STAY ldrlo ; set load address
+LDADDR gPathname
+STAY namlo ; set filename
+READ_RAM2_WRITE_RAM2
jsr traverse ; go to subdirectory, set up filename for read
lda #cmdread ; read (instead of write)
sta reqcmd
lda #0 ; 0 = read into main memory
sta auxreq
lda ldrlo+1
bne + ; if caller provided a load address, use it
sta sizelo ; otherwise query the load address from file metadata
sta sizehi ; 0 = query load address
jsr hddopendir ; call ProRWTS2
+LDAY ldrlo2
+STAY ldrlo
+ lda #$FF ; read entire file (ProRWTS2 will figure out exact size)
sta sizehi
jsr hddopendir ; exit via ProRWTS2
jsr LoadFileInternal
+READ_RAM1_WRITE_RAM1
rts
@ -99,29 +82,8 @@ LoadDHRFile
jsr SetPath
+LDPARAM 3
jsr AddToPath
+LDADDR gPathname
+STAY namlo ; set filename
+READ_RAM2_WRITE_RAM2
jsr traverse ; go to subdirectory, set up filename for read
lda #$00 ; read first $2000 bytes
sta sizelo
sta ldrlo
lda #$20
sta sizehi
asl
sta ldrhi ; into $4000
lda #1 ; 1 = read into aux memory
sta auxreq
lda #cmdread ; read (instead of write)
sta reqcmd
jsr hddopendir ; call ProRWTS2
lda #$20 ; read next $2000 bytes
sta sizehi
asl
sta ldrhi ; into $4000
dec auxreq ; 0 = read into main memory
clc ; not a subdirectory
jsr hddrdwrpart ; call ProRWTS2
jsr LoadDHRFileInternal
+READ_RAM1_WRITE_RAM1
rts
@ -143,24 +105,7 @@ SaveSmallFile
+PARAMS_ON_STACK 2
+LDPARAM 1
+STAY ldrlo ; set data buffer address for ProRWTS2
+LDADDR gPathname
+STAY namlo ; set filename for ProRWTS2
+READ_RAM2_WRITE_RAM2
jsr traverse ; go to subdirectory, set up filename for read
;;if the write address is always a fixed value then we can discard the query
lda #cmdread ; read (instead of write)
sta reqcmd
lda #0 ; 0 = read into main memory
sta sizelo
sta sizehi ; 0 = query load address
jsr hddopendir ; call ProRWTS2
lda ldrlo2
sta ldrlo
lda ldrhi2
sta ldrhi
lda #cmdwrite ; write (instead of read)
sta reqcmd
sta sizelo ; non-zero
jsr hddopendir ; exit via ProRWTS2 (must re-open the file after query)
jsr SaveSmallFileInternal
+READ_RAM1_WRITE_RAM1
rts

63
src/prodos.impl.a
View File

@ -584,3 +584,66 @@ holepatch ;sta->lda
rts
holey_stuff
!fill 64
LoadFileInternal
+LDADDR gPathname
+STAY namlo ; set filename
jsr traverse ; go to subdirectory, set up filename for read
lda #cmdread ; read (instead of write)
sta reqcmd
lda #0 ; 0 = read into main memory
sta auxreq
lda ldrlo+1
bne + ; if caller provided a load address, use it
sta sizelo ; otherwise query the load address from file metadata
sta sizehi ; 0 = query load address
jsr hddopendir ; call ProRWTS2
+LDAY ldrlo2
+STAY ldrlo
+ lda #$FF ; read entire file (ProRWTS2 will figure out exact size)
sta sizehi
jmp hddopendir ; exit via ProRWTS2
LoadDHRFileInternal
+LDADDR gPathname
+STAY namlo ; set filename
jsr traverse ; go to subdirectory, set up filename for read
lda #$00 ; read first $2000 bytes
sta sizelo
sta ldrlo
lda #$20
sta sizehi
asl
sta ldrhi ; into $4000
lda #1 ; 1 = read into aux memory
sta auxreq
lda #cmdread ; read (instead of write)
sta reqcmd
jsr hddopendir ; call ProRWTS2
lda #$20 ; read next $2000 bytes
sta sizehi
asl
sta ldrhi ; into $4000
dec auxreq ; 0 = read into main memory
clc ; not a subdirectory
jmp hddrdwrpart ; call ProRWTS2
SaveSmallFileInternal
+LDADDR gPathname
+STAY namlo ; set filename for ProRWTS2
jsr traverse ; go to subdirectory, set up filename for read
;;if the write address is always a fixed value then we can discard the query
lda #cmdread ; read (instead of write)
sta reqcmd
lda #0 ; 0 = read into main memory
sta sizelo
sta sizehi ; 0 = query load address
jsr hddopendir ; call ProRWTS2
lda ldrlo2
sta ldrlo
lda ldrhi2
sta ldrhi
lda #cmdwrite ; write (instead of read)
sta reqcmd
sta sizelo ; non-zero
jmp hddopendir ; exit via ProRWTS2 (must re-open the file after query)