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

clean up and document LoadIndexedFile

Browse Source
This commit is contained in:
4am 2021-10-13 18:04:56 -04:00
parent c04f9eaca3
commit e34993178d
6 changed files with 125 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/constants.a
View File

@ -7,7 +7,7 @@
;
; LC RAM BANK 1
; D000..E789 - persistent data structures (gGlobalPrefsStore, gGamesListStore)
; E95E..FFF1 - main program code
; E911..FFF1 - main program code
; FFF2..FFF9 - API functions and global constants available for main program
; code, prelaunchers, transition effects, &c.
; (Wait/UnwaitForVBL, MockingboardStuff, MachineStatus)

90
src/glue.prorwts2.a
View File

@ -1,22 +1,24 @@
;license:MIT
;(c) 2018-2020 by 4am & qkumba
;(c) 2018-2021 by 4am & qkumba
;
; ProRWTS2 glue functions
;
; Public functions
; - LoadFile
; - LoadAuxFile
; - LoadDHRFile
; - LoadIndexedFile
;
; Public variables
; - gRootDirectory
;
; A general note about paths:
;
; LoadFile, LoadDHRFile, and SaveSmallFile support subdirectories.
; Directories are delimited by '/' like ProDOS. At program startup, we get the
; current directory and save it; that is the PROGRAM ROOT DIRECTORY. All
; pathnames are relative to the PROGRAM ROOT DIRECTORY. There is no concept of
; setting or changing the 'current' directory.
; Load[*]File routines support subdirectories. Directories are delimited by '/'
; like ProDOS. At program startup, we get the current directory and save it;
; that is the PROGRAM ROOT DIRECTORY. All pathnames are relative to the PROGRAM
; ROOT DIRECTORY. There is no concept of setting or changing the 'current'
; directory.
;
; The PROGRAM ROOT DIRECTORY is not guaranteed to be the root directory of the
; underlying ProDOS disk (although it can be). But it doesn't matter, because
@ -109,5 +111,81 @@ LoadDHRFile
jsr LoadDHRFileInternal
jmp SwitchToBank1
;------------------------------------------------------------------------------
; LoadIndexedFile
; Load a file from inside an indexed file, all at once
;
; To save disk space, some collections of small, related files (e.g. per-game
; help files) are merged into a single data file with an associated index file.
; The index stores the original filename along with an offset (into the merged
; data file) and a length.
;
; Callers are responsible for loading the index file and finding the relevant
; record within the index. Most callers use okvs_find() for this.
;
; in: stack contains 6 bytes of parameters:
; +1 [word] pointer to filename of merged data file
; +3 [word] address of load destination
; +5 [word] pointer to index record (see note)
; out: all flags clobbered
; all registers clobbered
;------------------------------------------------------------------------------
LoadIndexedFile
+PARAMS_ON_STACK 6
+LDPARAM 1
+ST16 @filename
+LDPARAM 3
+ST16 @address
+LDPARAM 5
+ST16 zpword
inc $BF0E ; disable ROM mapping on return
ldx #2
ldy #0
lda (zpword), y
tay
- iny
lda (zpword), y
sta @offset, x
dex
bpl -
dex
- iny
lda (zpword), y
sta @size - $fe, x
inx
bmi -
jsr $bf00 ; yes, ProDOS abstraction
!byte $c8
!word @c8_parms
jsr $bf00
!byte $ce
!word @ce_parms
jsr $bf00
!byte $ca
!word @ca_parms
jsr $bf00
!byte $cc
!word @cc_parms
dec $BF0E ; re-enable ROM mapping on return
jmp SwitchToBank1
@c8_parms
!byte 3
@filename
!word $DFDF ; SMC
!byte 0
@ce_parms
!byte $d0
!byte 1
@offset !byte 0, 0, 0 ; SMC
!byte $ff
@ca_parms
!byte $ff
@cc_parms
!byte 1
@address !word $DFDF ; SMC
@size !word $DFDF ; SMC
!word $ffff
gRootDirectory
!word $FDFD

6
src/ui.attract.dhgr.a
View File

@ -144,7 +144,7 @@ LoadDHGRTransition
jsr pref_get ; get DHGR transition effect from prefs
!word kNextDFX
!word -
+ST16 zpword ; A/Y = filename (don't load file yet)
+ST16 @indexRecordPtr ; A/Y = filename (don't load file yet)
; $WINDEX = index of the transition in DFX store
+LDADDR -
jsr okvs_next ; get transition after this one
@ -154,9 +154,11 @@ LoadDHGRTransition
!word kNextDFX
+ !word $FDFD ; SMC
jsr LoadFulFile
jsr LoadIndexedFile
!word kDFXFile
!word $6000
@indexRecordPtr
!word $FDFD ; SMC
rts
;------------------------------------------------------------------------------

10
src/ui.attract.hgr.a
View File

@ -37,7 +37,7 @@ HGRActionSlideshow
jsr okvs_iter ; cycle through all listed HGR files
!word gSlideshowStore
!word HGRActionCallback ; address of callback (called on each file)
HGRRTS rts ; exit with last picture still visible
rts ; exit with last picture still visible
;------------------------------------------------------------------------------
; HGRSingle
@ -75,7 +75,7 @@ LoadHGRTransition
jsr pref_get ; get HGR transition effect from prefs
!word kNextFX
!word -
+ST16 zpword ; A/Y = filename (don't load file yet)
+ST16 @indexRecordPtr ; A/Y = filename (don't load file yet)
; $WINDEX = index of the transition in FX store
+LDADDR -
jsr okvs_next ; get transition after this one
@ -85,10 +85,12 @@ LoadHGRTransition
!word kNextFX
+ !word $FDFD ; SMC
jsr LoadFulFile
jsr LoadIndexedFile
!word kFXFile
!word $6000
rts
@indexRecordPtr
!word $FDFD ; SMC
HGRRTS rts
;------------------------------------------------------------------------------
; HGRTitleCallback [private]

14
src/ui.attract.mode.a
View File

@ -78,13 +78,18 @@ MiniAttractMode
!word kRootDirectory
!word kMiniAttractIndexFile
- !word $6000
jsr okvs_find
!word -
+ !word $FDFD ; SMC
+ST16 zpword
jsr LoadFulFile
+ST16 @indexRecordPtr
jsr LoadIndexedFile
!word kAttractModeFulFile
- !word $6000
@indexRecordPtr
!word $FDFD ; SMC
+LDADDR -
jsr okvs_len
lda WCOUNT
@ -180,10 +185,11 @@ RunAttractModule
jsr okvs_find
!word -
@key2 !word $FDFD ; SMC
+ST16 zpword
jsr LoadFulFile
+ST16 +
jsr LoadIndexedFile
!word kAttractModeSlideshowFulFile
!word $800
+ !word $FDFD ; SMC
pla ; restore module type
- and #$0F ; convert ASCII digit to int

97
src/ui.credits.a
View File

@ -6,7 +6,6 @@
; Public functions
; - Credits
; - Help
; - LoadFulFile
;
;------------------------------------------------------------------------------
@ -22,10 +21,12 @@ Credits
!word kRootDirectory
!word kCreditsFile
!word $8000
-- jsr ForceHGRMode
.clearAndDisplayHelp
jsr ForceHGRMode
jsr ClearOffscreen
ldx #0
- lda OffscreenPage
.displayHelp
lda OffscreenPage
ror ; draw on offscreen page
+LDADDR $8000
jsr DrawPage ; draw credits
@ -53,90 +54,32 @@ Credits
Help
jsr GetGameToLaunch
bcs @global
+ST16 ++
+ST16 @game
jsr LoadFile
!word kRootDirectory
!word kGameHelpIndexFile
- !word $6000
@okvsPtr !word $6000
jsr okvs_find
!word -
++ !word $DFDF ; SMC
+ST16 zpword
jsr LoadFulFile
!word @okvsPtr
@game !word $FDFD ; SMC
+ST16 @indexRecordPtr
jsr LoadIndexedFile
!word kGameHelpFile
!word $8000
@indexRecordPtr
!word $FDFD ; SMC
clc
bcc -- ; always branches
bcc .clearAndDisplayHelp ; always branches
@global jsr LoadFile ; load help text into $8000
!word kRootDirectory
!word kHelpTextFile
!word $8000
jsr LoadHelpOffscreen ; load fancy backdrop
ldx #7
bne -- ; always branches
;------------------------------------------------------------------------------
; LoadFulFile
; Load a *ful file (compiled okvs with offset value) into memory all at once
;
; in: stack contains 4 bytes of parameters:
; +1 [word] pointer to filename to open
; +3 [word] address of load destination
; zpword: pointer to okvs key field
; out: all flags clobbered
; all registers clobbered
;------------------------------------------------------------------------------
LoadFulFile
+PARAMS_ON_STACK 4
+LDPARAM 1
+ST16 @filename
+LDPARAM 3
+ST16 @address
inc $BF0E ; disable ROM mapping on return
ldx #2
ldy #0
lda (zpword), y
tay
- iny
lda (zpword), y
sta @offset, x
dex
bpl -
dex
- iny
lda (zpword), y
sta @size - $fe, x
inx
bmi -
jsr $bf00 ; yes, ProDOS abstraction
!byte $c8
!word @c8_parms
jsr $bf00
!byte $ce
!word @ce_parms
jsr $bf00
!byte $ca
!word @ca_parms
jsr $bf00
!byte $cc
!word @cc_parms
dec $BF0E ; re-enable ROM mapping on return
jmp SwitchToBank1
@c8_parms
!byte 3
@filename
!word $DFDF ; SMC
!byte 0
@ce_parms
!byte $d0
!byte 1
@offset !byte 0, 0, 0 ; SMC
!byte $ff
@ca_parms
!byte $ff
@cc_parms
!byte 1
@address !word $DFDF ; SMC
@size !word $DFDF ; SMC
!word $ffff
bne .displayHelp ; always branches