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

make sure CMOVE and CMOVE> are according to spec

This commit is contained in:
mgcaret 2020-01-05 15:39:37 -08:00
parent 5eacf0b3f4
commit e1e010cc8a
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
asm/forth-dictionary.s
View File

@ -3772,26 +3772,31 @@ dword DOTH,".H"
JUMP DOTD::tmpbase
eword
; H: ( addr1 addr2 len -- ) move memory
dword MOVE,"MOVE"
.proc _popxryrwr
jsr _popxr
jsr _popyr
jsr _popwr
jmp _popwr
.endproc
; H: ( addr1 addr2 len -- ) move memory
dword MOVE,"MOVE"
jsr _popxryrwr
jsr _memmove
NEXT
eword
; H: ( addr1 addr2 len -- ) move memory
; H: ( addr1 addr2 len -- ) move startomg from the bottom
dword CMOVE,"CMOVE"
bra MOVE::code
jsr _popxryrwr
clc
jsr _memmove_c
NEXT
eword
; H: ( addr1 addr2 len -- ) move memory up
; H: ( addr1 addr2 len -- ) move starting from the top
dword CMOVEUP,"CMOVE>"
jsr _popxr
jsr _popyr
jsr _popwr
clc
jsr _popxryrwr
sec
jsr _memmove_c
NEXT
eword
@ -3800,9 +3805,7 @@ eword
; IEEE 1275
dword COMP,"COMP"
stz ZR ; case sensitive
docomp: jsr _popxr ; length
jsr _popyr ; addr2
jsr _popwr ; addr1
docomp: jsr _popxryrwr
sep #SHORT_A
.a8
ldy #$0000