izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 05:08:06 +11:00
Code Issues Releases Wiki Activity

wip

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
blk/420
View File

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

4
blk/434
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 )

5
blk/435 → blk/437
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

0
blk/436 → blk/438
View File