blk/003

@@ -13,4 +13,4 @@ Contents
  4 Number literals              6 Compilation vs meta-comp.
  8 Interpreter I/O             11 Signed-ness
 14 Addressed devices           17 DOES>
-18 Disk blocks
+

blk/018

@@ -1,16 +0,0 @@
-Disk blocks
-
-Disk blocks are Collapse OS' main access to permanent storage.
-The system is exceedingly simple: blocks are contiguous 
-chunks of 1024 bytes each living on some permanent media such
-as floppy disks or SD cards. They are mostly used for text,
-either informational or source code, which is organized into
-16 lines of 64 characters each.
-
-Blocks are referred to by number, 0-indexed. They are read
-through BLK@ and written through BLK!. When a block is read,
-its 1024 bytes content is copied to an in-memory buffer
-starting at BLK( and ending at BLK). Those read/write
-operations are often implicit. For example, LIST calls BLK@.
-
-                                                        (cont.)

blk/019

@@ -1,16 +0,0 @@
-When a word modifies the buffer, it sets the buffer as dirty
-by calling BLK!!. BLK@ checks, before it reads its buffer,
-whether the current buffer is dirty and implicitly calls BLK!
-when it is.
-
-The index of the block currently in memory is kept in BLK>.
-
-Many blocks contain code. That code can be interpreted through
-LOAD. Programs stored in blocks frequently have "loader blocks"
-that take care of loading all blocks relevant to the program.
-
-Blocks spanning multipls disks are tricky. If your media isn't
-large enough to hold all Collapse OS blocks in one unit, you'll
-have to make it span multiple disks. Block reference in
-informational texts aren't a problem: When you swap your disk,
-you mentally adjust the block number you fetch.         (cont.)

blk/020

@@ -1,8 +0,0 @@
-However, absolute LOAD operations in Collapse OS aren't aware
-of disk spanning and will not work properly in your spanned
-system.
-
-Although the usage of absolute LOAD calls are minimally used
-(relative LOADs are preferred), they are sometimes unavoidable.
-When you span Collapse OS over multiple disks, don't forget to
-adjust those absolute LOADs.

blk/056

@@ -1,13 +1,11 @@
 Logic
 
-=    n1 n2 -- f Push true if n1 == n2
+=   n1 n2 -- f Push true if n1 == n2
-<    n1 n2 -- f Push true if n1 < n2
+<   n1 n2 -- f Push true if n1 < n2
->    n1 n2 -- f Push true if n1 > n2
+>   n1 n2 -- f Push true if n1 > n2
-><   n l h -- f Push true if l < n < h
+CMP n1 n2 -- n Compare n1 and n2 and set n to -1, 0, or 1.
-=><= n l h -- f Push true if l <= n <= h
-CMP  n1 n2 -- n Compare n1 and n2 and set n to -1, 0, or 1.
                n=0: a1=a2. n=1: a1>a2. n=-1: a1<a2.
-NOT  f -- f     Push the logical opposite of f
+NOT f -- f     Push the logical opposite of f
 
 
 

blk/064

@@ -1,17 +1,15 @@
 Disk
 
-BLK>   -- a      Address of the current block variable.
+BLK>  -- a      Address of the current block variable.
-BLK(   -- a      Beginning addr of blk buf.
+BLK(  -- a      Beginning addr of blk buf.
-BLK)   -- a      Ending addr of blk buf.
+BLK)  -- a      Ending addr of blk buf.
-COPY   s d --    Copy contents of s block to d block.
+COPY  s d --    Copy contents of s block to d block.
-FLUSH  --        Write current block to disk if dirty.
+FLUSH --        Write current block to disk if dirty.
-LIST   n --      Prints the contents of the block n on screen
+LIST  n --      Prints the contents of the block n on screen
-                 in the form of 16 lines of 64 columns.
+                in the form of 16 lines of 64 columns.
-LOAD   n --      Interprets Forth code from block n
+LOAD  n --      Interprets Forth code from block n
-LOAD+  n --      Relative load. Loads active block + n.
+LOADR n1 n2 --  Load block range between n1 and n2, inclusive.
-LOADR  n1 n2 --  Load block range between n1 and n2, inclusive.
+WIPE  --        Empties current block
-LOADR+ n1 n2 --  Relative ranged load.
-WIPE   --        Empties current block
 
 
 

blk/102

@@ -1,8 +1,9 @@
-50 LOAD+ ( B152, extras )
+152 LOAD ( extras )
-1 5 LOADR+
+103 107 LOADR
 
 : BROWSE
-    L BEGIN
+    100 _LIST
+    BEGIN
         KEY CASE
             'Q' OF EXIT ENDOF
             'B' OF B ENDOF

blk/122

@@ -1 +1 @@
-1 9 LOADR+
+123 131 LOADR

blk/142

@@ -1 +1 @@
-1 2 LOADR+
+143 144 LOADR

blk/152

@@ -1,3 +1,3 @@
 '? CASE NOT [IF]
-    1 5 LOADR+
+    153 157 LOADR
 [THEN] DROP ( from '? )

blk/212

@@ -1,2 +1,2 @@
-1 LOAD+ Z80A$
+213 LOAD Z80A$
-3 37 LOADR+
+215 249 LOADR

blk/262

@@ -1 +1 @@
-1 LOAD+ 3 LOAD+ 6 LOAD+ 7 LOAD+
+263 LOAD 265 LOAD 268 LOAD 269 LOAD

blk/282

@@ -1 +1 @@
-1 51 LOADR+
+283 333 LOADR

blk/352

@@ -11,5 +11,5 @@ ACIA_MEM
   +4 ACIA(
   +6 ACIA) )
 
-1 3 LOADR+
+353 355 LOADR
 

blk/357

@@ -1 +1 @@
-1 3 LOADR+
+358 360 LOADR

blk/374

@@ -13,4 +13,4 @@
     DUP 20 = UNTIL
     DROP 0xff
 ;
-1 12 LOADR+
+375 386 LOADR

blk/393

@@ -12,4 +12,4 @@
     0 0x08 RAM+ !  ( 08 == C<* override )
     LIT< INTERPRET (find) DROP EXECUTE
 ;
-1 20 LOADR+
+394 413 LOADR

blk/394

@@ -7,9 +7,7 @@
 : >= < NOT ;
 : <= > NOT ;
 : 0>= 0< NOT ;
-( n l h -- f )
+
-: >< 2 PICK > ( n l f ) ROT ROT > AND ;
-: =><= 2 PICK >= ( n l f ) ROT ROT >= AND ;
 ( a -- a+1 c )
 : C@+ DUP C@ SWAP 1+ SWAP ;
 ( c a -- a+1 )

blk/395

@@ -5,9 +5,10 @@
 : _pdacc
     DUP 0x21 < IF DROP 1 EXIT THEN
     ( parse char )
-    ( if bad, return "r -1" )
     '0' -
-    DUP 10 < NOT IF DROP -1 EXIT THEN
+    ( if bad, return "r -1" )
+    DUP 0< IF DROP -1 EXIT THEN    ( bad )
+    DUP 9 > IF DROP -1 EXIT THEN   ( bad )
     ( good, add to running result )
     SWAP 10 * +                    ( r*10+n )
     0                              ( good )

blk/399

@@ -1,8 +1,14 @@
 ( returns negative value on error )
 : _            ( c -- n )
-    DUP '0' '9' =><= IF '0' - EXIT THEN
+    ( '0' is ASCII 48 )
-    DUP 'a' 'f' =><= IF 0x57 ( 'a' - 10 ) - EXIT THEN
+    48 -
-    DROP -1 ( bad )
+    DUP 0< ( bad ) OVER 10 < ( good ) OR IF EXIT THEN
+    ( 'a' is ASCII 97. 59 = 97 - 48 )
+    49 -
+    DUP 0< IF EXIT THEN                 ( bad )
+    DUP 6 < IF 10 + EXIT THEN           ( good )
+    ( bad )
+    255 -
 ;
 
 

blk/401

@@ -1,7 +1,10 @@
 ( returns negative value on error )
 : _            ( c -- n )
-    DUP '0' '1' =><= IF '0' - EXIT THEN
+    ( '0' is ASCII 48 )
-    DROP -1 ( bad )
+    48 -
+    DUP 0< ( bad ) OVER 2 < ( good ) OR IF EXIT THEN
+    ( bad )
+    255 -
 ;
 
 

blk/444

@@ -8,7 +8,7 @@
     DROP
     8 0 DO
         C@+
-        DUP 0x20 0x7e =><= NOT
+        DUP 0x20 < OVER 0x7e > OR
         IF DROP '.' THEN
         EMIT
     LOOP

blk/459

@@ -1,4 +1,2 @@
-: LOAD+ BLK> @ + LOAD ;
 ( b1 b2 -- )
 : LOADR 1+ SWAP DO I DUP . NL LOAD LOOP ;
-: LOADR+ BLK> @ + SWAP BLK> @ + SWAP LOADR ;

blk/492

@@ -1 +1 @@
-1 5 LOADR+
+493 497 LOADR

blk/498

@@ -1 +1 @@
-1 2 LOADR+
+499 500 LOADR