blk/004

@@ -1,2 +1 @@
 21 How blocks are organized    22 Addressed devices
-23 Branching

blk/023

@@ -1,11 +0,0 @@
-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.

blk/353

@@ -1,14 +1,13 @@
-: RAM+ [ RAMSTART LITN ] + ; : BIN+ [ BIN( @ LITN ] + ;
+: RAM+ [ RAMSTART LITN ] + ;
+: BIN+ [ BIN( @ LITN ] + ;
 : HERE 0x04 RAM+ ;
-: CURRENT* 0x51 RAM+ ; : CURRENT CURRENT* @ ;
+: CURRENT* 0x51 RAM+ ;
+: CURRENT CURRENT* @ ;
 : H@ HERE @ ;
 : 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
-    (resRS) 0 0x08 RAM+ ! ( C<* override ) (infl)
+    (resRS)
+    0 0x08 RAM+ !  ( 08 == C<* override )
     LIT< (main) FIND DROP EXECUTE
 ;
 1 25 LOADR+ ( xcomp core low )

blk/386

@@ -0,0 +1,11 @@
+( 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> ! ! ;
+

blk/397

@@ -1,7 +1,6 @@
 ( 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
-: LOOP COMPILE (loop) H@ - _bchk , ; IMMEDIATE
+: LOOP COMPILE (loop) H@ - , ; IMMEDIATE
 ( LEAVE is implemented in low xcomp )
 : LITN 32 , , ( 32 == NUMBER ) ;
 ( gets its name at the very end. can't comment afterwards )

blk/398

@@ -1,13 +1,14 @@
-: IF ( -- a | a: br cell addr )
+: IF                ( -- a | a: br cell addr )
     COMPILE (?br) H@ 2 ALLOT ( br cell allot )
 ; IMMEDIATE
-: THEN ( a -- | a: br cell addr )
-    DUP H@ -^ _bchk SWAP ( a-H a ) !
+: THEN              ( a -- | a: br cell addr )
+    DUP H@ -^ SWAP ( a-H a ) !
 ; IMMEDIATE
-: ELSE ( a1 -- a2 | a1: IF cell a2: ELSE cell )
+: ELSE              ( a1 -- a2 | a1: IF cell a2: ELSE cell )
     COMPILE (br)
     2 ALLOT
-    [COMPILE] THEN
-    H@ 2- ( push a. -2 for allot offset )
+    DUP H@ -^ SWAP  ( a-H a )
+    !
+    H@ 2-          ( push a. -2 for allot offset )
 ; IMMEDIATE
 

blk/399

@@ -1,6 +1,6 @@
 : BEGIN H@ ; IMMEDIATE
-: AGAIN COMPILE (br) H@ - _bchk , ; IMMEDIATE
-: UNTIL COMPILE (?br) H@ - _bchk , ; IMMEDIATE
+: AGAIN COMPILE (br) H@ - , ; IMMEDIATE
+: UNTIL COMPILE (?br) H@ - , ; IMMEDIATE
 : [ INTERPRET ; IMMEDIATE
 : ] R> DROP ;
 : LIT< WORD 34 , SCPY 0 C, ; IMMEDIATE