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

Add "a" and "A"

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-31 08:09:22 +09:00
parent 8e026766ce
commit aa1246ef45
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
core.fs
View file

@ -194,5 +194,16 @@ l!
\ Store byte 'c' to here and increment it \ Store byte 'c' to here and increment it
cB i, 'h, '@, '$, 'h, 'L, k1k0-, '+, 'h, '!, 'e, l! cB i, 'h, '@, '$, 'h, 'L, k1k0-, '+, 'h, '!, 'e, l!
kA kB B t \ 'a' ( c-addr -- a-addr ) ALIGNED
\ Round up 'a' to a multiple of CELL
ca i,
'L, Ck1k0--, '+, \ ( a+CELL-1 )
'L, Ck1k0-- k0k1- ^, \ ( a+CELL-1 ~(CELL-1) )
'&, 'e,
l!
\ 'A' ( -- ) ALIGN
\ Round up 'here' to a multiple of CELL
cA i, 'h, '@, 'a, 'h, '!, 'e, l!
Q Q