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

Redefine TICK

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

27
core.fs
View file

@ -336,8 +336,22 @@ I \ Enter 2nd Stage
r C + R \ Drop 1st stage interpreter from call stack
\ '\'' ( "name" -- xt )
\ Redefine existing '\'' which uses 'k' and 'f'
\ to use 'W' and 'F'.
c ' i , ' W , ' F , ' G , ' e , l !
\ : ( "<spaces>name" -- R:w ) COLON
\ [ immediate ( -- )
\ Switch to immediate mode
c [ i , ' L , k 0 k 0 - , ' M , ' ! , ' e , l !
\ Toggle immediate-bit of [
l @ C + # { ? k @ k @ + | } $
\ ] ( -- )
\ Switch to compile mode
c ] i , ' L , k 1 k 0 - , ' M , ' ! , ' e , l !
\ : ( "name" -- R:w ) COLON
\ Read name, create word, push it to return stack,
\ compile 'docol' and enter compile mode.
c : i ,
@ -352,8 +366,7 @@ c : i ,
' m , \ fill name
' A , \ align here
' i , ' , , \ compile docol
\ enter compile mode
' L , k 1 k 0 - , ' M , ' ! ,
' ] , \ enter compile mode
' e , l !
\ ; immediate ( R:w -- ) SEMICOLON
@ -362,11 +375,9 @@ c ; i ,
' L , ' e , ' , , \ compile exit
\ pick 2nd element of return stack
' } , ' } , ' ~ , ' { ,
' l , ' ! , \ update latest
\ enter immediate mode
' L , k 0 k 0 - , ' M , ' ! ,
' } , ' } , ' ~ , ' { ,
' l , ' ! , \ update latest
' [ , \ enter immediate mode
' e , l !
\ Toggle immediate-bit of ';'
l @ C + # { ? k @ k @ + | } $