6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2025-02-12 21:30:55 +00:00
Code Issues Projects Releases Wiki Activity

make sure CMOVE and CMOVE> are according to spec

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