Apple-2-SW
/
pitch-dark
mirror of https://github.com/a2-4am/pitch-dark.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

.

This commit is contained in:
4am 2018-04-13 15:20:40 -04:00
parent 158e5304a3
commit be0740a5e6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/okvs.a
View File

@ -327,7 +327,7 @@ okvs_update
; in: stack contains 4 bytes of parameters:
; +1 [word] handle to storage space
; +3 [word] address of callback
; out: <callback> will be called for each record in the store with
; out: <callback> will be called for each record in the store, in order, with
; X = numeric index of record
; A/Y = address of key
; all registers are clobbered
@ -349,7 +349,7 @@ okvs_iter
pha ; save PTR on stack (in case callback clobbers it)
phy
clc
adc #$02
adc #2 ; skip over next-record pointer (2 bytes)
bcc +
iny ; A/Y -> key
+ phx
@ -373,7 +373,7 @@ okvs_iter
; in: stack contains 4 bytes of parameters:
; +1 [word] handle to storage space
; +3 [word] address of callback
; out: <callback> will be called for each record in the store with
; out: <callback> will be called for each record in the store, in order, with
; X = numeric index of record
; A/Y = address of value
; all registers are clobbered