6502
/
of816
mirror of https://github.com/mgcaret/of816.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix 2@/2! discovered in unit testing

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
Show Stats 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
dword TWOFETCH,"2@"
jsr _popwr
jsr _wrplus4
jsr _wrfetchind
jsr _pushay
jsr _wrplus4
jsr _wrminus4
bra FETCH::fetch2
eword
@ -1449,10 +1450,9 @@ eword
; H: ( n1 n2 c-addr -- ) write consecutive cells n1 and n2 to c-addr
dword TWOSTORE,"2!"
jsr _popwr
jsr _wrplus4
jsr _popay
jsr _wrstoreind
jsr _wrminus4
jsr _wrplus4
bra STORE::store2
eword