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

Merge branch 'master' of https://github.com/a2-4am/4cade

Browse Source
This commit is contained in:
4am 2021-10-14 15:14:47 -04:00
commit 14d0666e13
2 changed files with 7 additions and 19 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 ; LC RAM BANK 1
; D000..E789 - persistent data structures (gGlobalPrefsStore, gGamesListStore) ; D000..E789 - persistent data structures (gGlobalPrefsStore, gGamesListStore)
; E962..FFF1 - main program code ; E976..FFF1 - main program code
; FFF2..FFF9 - API functions and global constants available for main program ; FFF2..FFF9 - API functions and global constants available for main program
; code, prelaunchers, transition effects, &c. ; code, prelaunchers, transition effects, &c.
; (Wait/UnwaitForVBL, MockingboardStuff, MachineStatus) ; (Wait/UnwaitForVBL, MockingboardStuff, MachineStatus)

24
src/okvs.a
View File

@ -95,11 +95,13 @@ okvs_init
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; okvs_len ; okvs_len
; okvs_len_imm
; ;
; in: A/Y = handle to storage space ; in: A/Y = handle to storage space
; out: $WCOUNT contains number of keys in this store ; out: $WCOUNT contains number of keys in this store
; X preserved ; X preserved
; A, Y clobbered ; A, Y clobbered
; Z set if no keys
; $00/$01 clobbered ; $00/$01 clobbered
; $02/$03 clobbered ; $02/$03 clobbered
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
@ -107,11 +109,13 @@ okvs_len
jsr GetStoreAddressFromAY jsr GetStoreAddressFromAY
; PTR -> store ; PTR -> store
; Y = 0 ; Y = 0
okvs_len_imm
lda (PTR), y ; get number of keys in store (word) lda (PTR), y ; get number of keys in store (word)
sta WCOUNT sta WCOUNT
iny iny
lda (PTR), y lda (PTR), y
sta WCOUNT+1 sta WCOUNT+1
ora WCOUNT
rts rts
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
@ -242,16 +246,8 @@ okvs_get
jsr GetStoreAddress jsr GetStoreAddress
; PTR -> store ; PTR -> store
; Y = 0 ; Y = 0
lda (PTR),y ; A = number of keys in store jsr okvs_len_imm
sta WCOUNT
iny
lda (PTR),y
sta WCOUNT+1
bne +
dey
lda (PTR),y
beq @fail ; no keys, fail immediately beq @fail ; no keys, fail immediately
+
jsr incptr4 jsr incptr4
; PTR -> first record ; PTR -> first record
+LDPARAMPTR 3, SRC ; SRC -> key we want to find +LDPARAMPTR 3, SRC ; SRC -> key we want to find
@ -433,16 +429,8 @@ okvs_iter_values
jsr GetStoreAddress jsr GetStoreAddress
; PTR -> store ; PTR -> store
; Y = 0 ; Y = 0
lda (PTR),y ; get number of keys in store (word) jsr okvs_len_imm
sta WCOUNT
iny
lda (PTR),y
sta WCOUNT+1
bne +
dey
lda (PTR),y
beq @exit ; no keys, exit immediately beq @exit ; no keys, exit immediately
+
+LDPARAMPTR 3, @callback +LDPARAMPTR 3, @callback
jsr incptr4 jsr incptr4
; PTR -> first record ; PTR -> first record