1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 04:38:06 +11:00
This commit is contained in:
Virgil Dupras 2020-05-14 08:33:06 -04:00
parent 40a756cf1c
commit b17bd4dca0
4 changed files with 5 additions and 6 deletions

View File

@ -1 +1 @@
1 16 LOADR+ ( xcomp core high ) 1 18 LOADR+ ( xcomp core high )

View File

@ -2,7 +2,3 @@
( b1 b2 -- ) ( b1 b2 -- )
: LOADR 1+ SWAP DO I DUP . NL LOAD LOOP ; : LOADR 1+ SWAP DO I DUP . NL LOAD LOOP ;
: LOADR+ BLK> @ + SWAP BLK> @ + SWAP LOADR ; : LOADR+ BLK> @ + SWAP BLK> @ + SWAP LOADR ;
( Now we have "as late as possible" stuff )
: DO COMPILE 2>R H@ ; IMMEDIATE
: LOOP COMPILE (loop) H@ - , ; IMMEDIATE
( LEAVE is implemented in low xcomp )

View File

@ -1,3 +1,7 @@
( Now we have "as late as possible" stuff )
: DO COMPILE 2>R H@ ; IMMEDIATE
: LOOP COMPILE (loop) H@ - , ; IMMEDIATE
( LEAVE is implemented in low xcomp )
: LITN 32 , , ( 32 == NUMBER ) ; : LITN 32 , , ( 32 == NUMBER ) ;
( ';' can't have its name right away because, when created, it ( ';' can't have its name right away because, when created, it
@ -7,4 +11,3 @@
['] EXIT , ['] EXIT ,
R> DROP ( exit : ) R> DROP ( exit : )
; IMMEDIATE ; IMMEDIATE

View File