Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Change semantics of 'm'

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-31 19:36:45 +09:00
parent 1da940ba1b
commit bc96fe9863
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
core.fs
View file

@ -189,21 +189,19 @@ c~ i,
\ Store byte 'c' to here and increment it
cB i, 'h, '@, '$, 'h, '@, 'L, k1k0-, '+, 'h, '!, 'e, l!
\ 'm' ( c-from c-to u -- ) CMOVE
\ Copy u bytes from c-from to c-to.
\ It is not safe when two region overlaps.
\ 'm' ( c-addr u -- ) CMOVE,
\ Copy u bytes from c-addr to here,
\ increment here u bytes.
cm i,
\ <loop>
'#, 'J, kDk0-C*, \ goto <exit> if u=0
'#, 'J, k>k0-C*, \ goto <exit> if u=0
'{, \ preserve u
'o, '?, \ read character ( c-from c-to c )
'o, '$, \ store c to c-to ( c-from c-to )
'{, 'L, k1k0-, '+, \ increment c-from
'}, 'L, k1k0-, '+, \ increment c-to
'#, '?, 'B, \ copy byte
'L, k1k0-, '+, \ increment c-addr
'}, 'L, k1k0-, '-, \ decrement u
'j, k0kE-C*, \ goto <loop>
'j, k0k?-C*, \ goto <loop>
\ <exit>
'_, '_, '_,
'_, '_,
'e, l!
\ 'a' ( c-addr -- a-addr ) ALIGNED