mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-02 06:30:55 +11:00
Compare commits
2 Commits
02e6979a46
...
ed2b91411a
Author | SHA1 | Date | |
---|---|---|---|
|
ed2b91411a | ||
|
5bbc256faf |
1
blk/004
1
blk/004
@ -1 +1,2 @@
|
|||||||
21 How blocks are organized 22 Addressed devices
|
21 How blocks are organized 22 Addressed devices
|
||||||
|
23 Branching
|
||||||
|
11
blk/023
Normal file
11
blk/023
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
Branching
|
||||||
|
|
||||||
|
Branching in Collapse OS is limited to 8-bit. This represents
|
||||||
|
64 word references forward or backward. While this might seem
|
||||||
|
a bit tight at first, having this limit saves us a non-
|
||||||
|
negligible amount of resource usage.
|
||||||
|
|
||||||
|
The reasoning behind this intentional limit is that huge
|
||||||
|
branches are generally a indicator that a logic ought to be
|
||||||
|
simplified. So here's one more constraint for you to help you
|
||||||
|
towards simplicity.
|
13
blk/353
13
blk/353
@ -1,13 +1,14 @@
|
|||||||
: RAM+ [ RAMSTART LITN ] + ;
|
: RAM+ [ RAMSTART LITN ] + ; : BIN+ [ BIN( @ LITN ] + ;
|
||||||
: BIN+ [ BIN( @ LITN ] + ;
|
|
||||||
: HERE 0x04 RAM+ ;
|
: HERE 0x04 RAM+ ;
|
||||||
: CURRENT* 0x51 RAM+ ;
|
: CURRENT* 0x51 RAM+ ; : CURRENT CURRENT* @ ;
|
||||||
: CURRENT CURRENT* @ ;
|
|
||||||
: H@ HERE @ ;
|
: H@ HERE @ ;
|
||||||
: FIND ( w -- a f ) CURRENT @ SWAP _find ;
|
: FIND ( w -- a f ) CURRENT @ SWAP _find ;
|
||||||
|
: IN> 0x30 RAM+ ; ( current position in INBUF )
|
||||||
|
: IN( 0x32 RAM+ @ ; ( points to INBUF )
|
||||||
|
: IN) 0x40 ( buffer size ) IN( + ; ( INBUF's end )
|
||||||
|
: (infl) 0 IN( DUP IN> ! ! ; ( flush input buffer )
|
||||||
: QUIT
|
: QUIT
|
||||||
(resRS)
|
(resRS) 0 0x08 RAM+ ! ( C<* override ) (infl)
|
||||||
0 0x08 RAM+ ! ( 08 == C<* override )
|
|
||||||
LIT< (main) FIND DROP EXECUTE
|
LIT< (main) FIND DROP EXECUTE
|
||||||
;
|
;
|
||||||
1 25 LOADR+ ( xcomp core low )
|
1 25 LOADR+ ( xcomp core low )
|
||||||
|
11
blk/386
11
blk/386
@ -1,11 +0,0 @@
|
|||||||
( current position in INBUF )
|
|
||||||
: IN> 0x30 RAM+ ;
|
|
||||||
( points to INBUF )
|
|
||||||
: IN( 0x32 RAM+ @ ;
|
|
||||||
( points to INBUF's end )
|
|
||||||
: IN) 0x40 ( buffer size ) IN( + ;
|
|
||||||
|
|
||||||
( flush input buffer )
|
|
||||||
( set IN> to IN( and set IN> @ to null )
|
|
||||||
: (infl) 0 IN( DUP IN> ! ! ;
|
|
||||||
|
|
3
blk/397
3
blk/397
@ -1,6 +1,7 @@
|
|||||||
( Now we have "as late as possible" stuff )
|
( Now we have "as late as possible" stuff )
|
||||||
|
: _bchk DUP 0x7f + 0xff > IF LIT< br-ovfl (print) ABORT THEN ;
|
||||||
: DO COMPILE 2>R H@ ; IMMEDIATE
|
: DO COMPILE 2>R H@ ; IMMEDIATE
|
||||||
: LOOP COMPILE (loop) H@ - , ; IMMEDIATE
|
: LOOP COMPILE (loop) H@ - _bchk , ; IMMEDIATE
|
||||||
( LEAVE is implemented in low xcomp )
|
( LEAVE is implemented in low xcomp )
|
||||||
: LITN 32 , , ( 32 == NUMBER ) ;
|
: LITN 32 , , ( 32 == NUMBER ) ;
|
||||||
( gets its name at the very end. can't comment afterwards )
|
( gets its name at the very end. can't comment afterwards )
|
||||||
|
5
blk/398
5
blk/398
@ -2,13 +2,12 @@
|
|||||||
COMPILE (?br) H@ 2 ALLOT ( br cell allot )
|
COMPILE (?br) H@ 2 ALLOT ( br cell allot )
|
||||||
; IMMEDIATE
|
; IMMEDIATE
|
||||||
: THEN ( a -- | a: br cell addr )
|
: THEN ( a -- | a: br cell addr )
|
||||||
DUP H@ -^ SWAP ( a-H a ) !
|
DUP H@ -^ _bchk SWAP ( a-H a ) !
|
||||||
; IMMEDIATE
|
; IMMEDIATE
|
||||||
: ELSE ( a1 -- a2 | a1: IF cell a2: ELSE cell )
|
: ELSE ( a1 -- a2 | a1: IF cell a2: ELSE cell )
|
||||||
COMPILE (br)
|
COMPILE (br)
|
||||||
2 ALLOT
|
2 ALLOT
|
||||||
DUP H@ -^ SWAP ( a-H a )
|
[COMPILE] THEN
|
||||||
!
|
|
||||||
H@ 2- ( push a. -2 for allot offset )
|
H@ 2- ( push a. -2 for allot offset )
|
||||||
; IMMEDIATE
|
; IMMEDIATE
|
||||||
|
|
||||||
|
4
blk/399
4
blk/399
@ -1,6 +1,6 @@
|
|||||||
: BEGIN H@ ; IMMEDIATE
|
: BEGIN H@ ; IMMEDIATE
|
||||||
: AGAIN COMPILE (br) H@ - , ; IMMEDIATE
|
: AGAIN COMPILE (br) H@ - _bchk , ; IMMEDIATE
|
||||||
: UNTIL COMPILE (?br) H@ - , ; IMMEDIATE
|
: UNTIL COMPILE (?br) H@ - _bchk , ; IMMEDIATE
|
||||||
: [ INTERPRET ; IMMEDIATE
|
: [ INTERPRET ; IMMEDIATE
|
||||||
: ] R> DROP ;
|
: ] R> DROP ;
|
||||||
: LIT< WORD 34 , SCPY 0 C, ; IMMEDIATE
|
: LIT< WORD 34 , SCPY 0 C, ; IMMEDIATE
|
||||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user