6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2025-08-09 19:25:27 +00:00
Code Issues Projects Releases Wiki Activity

Fix 2@/2! discovered in unit testing

Browse Source
This commit is contained in:
mgcaret
2020-01-01 22:00:49 -08:00
parent 2bdcf695fe
commit ce9017bed6
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
asm/forth-dictionary.s
View File

@@ -1386,9 +1386,10 @@ eword
; H: ( c-addr -- n1 n2 ) fetch two consecutive cells from c-addr ; H: ( c-addr -- n1 n2 ) fetch two consecutive cells from c-addr
dword TWOFETCH,"2@" dword TWOFETCH,"2@"
jsr _popwr jsr _popwr
jsr _wrplus4
jsr _wrfetchind jsr _wrfetchind
jsr _pushay jsr _pushay
jsr _wrplus4 jsr _wrminus4
bra FETCH::fetch2 bra FETCH::fetch2
eword eword
@@ -1449,10 +1450,9 @@ eword
; H: ( n1 n2 c-addr -- ) write consecutive cells n1 and n2 to c-addr ; H: ( n1 n2 c-addr -- ) write consecutive cells n1 and n2 to c-addr
dword TWOSTORE,"2!" dword TWOSTORE,"2!"
jsr _popwr jsr _popwr
jsr _wrplus4
jsr _popay jsr _popay
jsr _wrstoreind jsr _wrstoreind
jsr _wrminus4 jsr _wrplus4
bra STORE::store2 bra STORE::store2
eword eword