6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2024-06-08 12:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Fix J (and optional K) problem discovered in unit tests

Browse Source
This commit is contained in:
mgcaret 2020-01-05 16:18:27 -08:00
parent 1e4c84d86a
commit b626a7a790
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
asm/forth-dictionary.s
View File

@ -2589,18 +2589,18 @@ eword
; H: ( -- n ) copy second-inner loop index to stack ; H: ( -- n ) copy second-inner loop index to stack
dword JX,"J",F_CONLY dword JX,"J",F_CONLY
lda 13,s lda 17,s
tay tay
lda 15,s lda 19,s
PUSHNEXT PUSHNEXT
eword eword
.if 0 .if 0
; H: ( -- n ) copy third-inner loop index to stack ; H: ( -- n ) copy third-inner loop index to stack
dword KX,"K",F_CONLY dword KX,"K",F_CONLY
lda 21,s lda 29,s
tay tay
lda 23,s lda 31,s
PUSHNEXT PUSHNEXT
eword eword
.endif .endif