Add WHERE support for words in kernel (excluding interpret/compile: for now,...

Add WHERE support for words in kernel (excluding interpret/compile: for now, and not correctly resolving aliases)
parent cc69cd8e
Pipeline #207 failed with stage
in 4 minutes and 33 seconds
This diff is collapsed.
......@@ -82,6 +82,7 @@ doc-on
has? header [IF]
1802 <> [IF] .s cr .( header start address expected!) cr uffz [THEN]
wheres-off
AConstant image-header
: forthstart image-header @ ;
[THEN]
......@@ -128,7 +129,7 @@ include kernel/pass.fs \ pass pointers from cross to target
has? header [IF]
\ set image size
here image-header 2 cells + !
." set image entry point" cr
.( set image entry point) cr
' boot >body image-header #08 cells + !
' quit >body image-header #10 cells + !
' do-execute >body image-header #11 cells + !
......
......@@ -45,4 +45,7 @@ included-files, included-files !
align here default-recognizer !
2 cells , ' rec-num A, ' rec-word A,
align here wheres !
wheres,
>ram here normal-dp !
......@@ -1291,12 +1291,12 @@ require animation.fs
' widget-sync is screen-ops
: widgets-loop ( -- ) depth { d }
: widgets-loop ( -- ) depth fdepth { d fd }
level# @ 0= IF enter-minos THEN
1 level# +!@ >r top-widget .widget-draw
BEGIN 0 looper-to# anims[] $@len ?sync or select
#looper time( ." looper: " .!time cr )
widget-sync gui( depth d u> IF ~~bt THEN )
widget-sync gui( depth d u> fdepth fd u> or IF ~~bt THEN )
level# @ r@ = UNTIL r> 0= IF leave-minos THEN ;
previous previous previous
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment