Move all parsing words to Inner core

This allows us to get rid of the (parse*) indirection.

blk/060

@@ -4,8 +4,6 @@ I/O
                   result in n as well as whether parsing was a
                   success in f (false = failure, true =
                   success)
-(parse*) -- a     Variable holding the current pointer for
-                  system number parsing. By default, (parse).
 (print)  a --     Print string at addr a.
 .        n --     Print n in its decimal form
 .x       n --     Print n's LSB in hex form. Always 2
@@ -13,4 +11,6 @@ I/O
 .X       n --     Print n in hex form. Always 4 characters.
                   Numbers are never considered negative.
                   "-1 .X" --> ffff
+
+
                                                         (cont.)

blk/081

@@ -4,7 +4,7 @@ RAMSTART  INITIAL_SP           +55       (key) override
 +04       HERE                 +59       blk's variables
 +06       C<?                  +5b       z80a's variables
 +08       C<* override         +5d       adev's variables
-+0a       PARSEPTR             +5f       FUTURE USES
++0a       RESERVED             +5f       FUTURE USES
 +0c       C<*                  +70       DRIVERS
 +0e       WORDBUF              +80       RAMEND
 +2e       BOOT C< PTR

blk/089

@@ -10,7 +10,7 @@ very few things.
 
 In a normal system, BOOT is in icore and does a few things:
 
-1. Find "(parse)" and set "(parse*)" to it.
+1. Find "(c<)" a set CINPTR to it (what C< calls).
-2. Find "(c<)" a set CINPTR to it (what C< calls).
+2. Initialize all overrides to 0.
-3. Write LATEST in SYSTEM SCRATCHPAD ( see below )
+3. Write LATEST in BOOT C< PTR ( see below )
 4. Find "INIT". If found, execute. Otherwise, "INTERPRET"(cont)

blk/090

@@ -1,7 +1,7 @@
-(cont.) On a bare system (only boot+icore), this sequence will
+On a bare system (only boot+icore), this sequence will result
-result in "(parse)" reading only decimals and (c<) reading
+in (c<) reading characters from memory starting from CURRENT
-characters from memory starting from CURRENT (this is why we
+(this is why we put CURRENT in BOOT C< PTR, it tracks current
-put CURRENT in SYSTEM SCRATCHPAD, it tracks current pos ).
+pos ).
 
 This means that you can put initialization code in source form
 right into your binary, right after your last compiled dict

blk/265

@@ -8,7 +8,7 @@
     ELSE ( w )
         0x02 RAM+ @ SWAP ( cur w ) _find ( a f )
         IF DUP IMMED? NOT IF ABORT THEN EXECUTE
-        ELSE (parse*) @ EXECUTE LITN THEN
+        ELSE (parse) LITN THEN
     THEN
     AGAIN
 ;

blk/393

@@ -1,6 +1,5 @@
 : RAM+ [ RAMSTART LITN ] + ;
 : BIN+ [ BIN( @ LITN ] + ;
-: (parse*) 0x0a RAM+ ;
 : HERE 0x04 RAM+ ;
 : CURRENT* 0x51 RAM+ ;
 : CURRENT CURRENT* @ ;
@@ -13,4 +12,4 @@
     0 0x08 RAM+ !  ( 08 == C<* override )
     LIT< INTERPRET (find) DROP EXECUTE
 ;
-394 407 LOADR
+394 413 LOADR

blk/394

@@ -4,5 +4,11 @@
 : < CMP -1 = ;
 : > CMP 1 = ;
 : 0< 32767 > ;
+: >= < NOT ;
+: <= > NOT ;
+: 0>= 0< NOT ;
 
-
+( a -- a+1 c )
+: C@+ DUP C@ SWAP 1+ SWAP ;
+( c a -- a+1 )
+: C!+ SWAP OVER C! 1+ ;

blk/398

@@ -1,16 +1,11 @@
-( This is only the "early parser" in earlier stages. No need
+( strings being sent to parse routines are always null
-  for an abort message )
+  terminated )
-: (parse) (parsed) NOT IF ABORT THEN ;
 
-: C<? 0x06 RAM+ @ ;
+: (parsec)          ( a -- n f )
-: C<
+    ( apostrophe is ASCII 39 )
-    0x08 RAM+ @  ( 08 == C<* override )
+    DUP C@ 39 = OVER 2+ C@ 39 = AND     ( a f )
-    DUP NOT IF DROP 0x0c RAM+ @ THEN  ( 0c == C<* )
+    NOT IF 0 EXIT THEN   ( a 0 )
-    EXECUTE
+    ( surrounded by apos, good, return )
+    1+ C@ 1                             ( n 1 )
 ;
 
-: , HERE @ ! HERE @ 2+ HERE ! ;
-
-: C, HERE @ C! HERE @ 1+ HERE ! ;
-
-

blk/399

@@ -1,12 +1,14 @@
-( The NOT is to normalize the negative/positive numbers to 1
+( returns negative value on error )
-  or 0. Hadn't we wanted to normalize, we'd have written:
+: _            ( c -- n )
-  32 CMP 1 - )
+    ( '0' is ASCII 48 )
-: WS? 33 CMP 1+ NOT ;
+    48 -
-
+    DUP 0< ( bad ) OVER 10 < ( good ) OR IF EXIT THEN
-: TOWORD
+    ( 'a' is ASCII 97. 59 = 97 - 48 )
-    BEGIN
+    49 -
-        C< DUP WS? NOT IF EXIT THEN DROP
+    DUP 0< IF EXIT THEN                 ( bad )
-    AGAIN
+    DUP 6 < IF 10 + EXIT THEN           ( good )
+    ( bad )
+    255 -
 ;
 
 

blk/400

@@ -1,16 +1,15 @@
-( Read word from C<, copy to WORDBUF, null-terminate, and
+: (parseh)          ( a -- n f )
-  return, make HL point to WORDBUF. )
+    ( '0': ASCII 0x30 'x': 0x78 0x7830: 30768 )
-: WORD
+    DUP @ 30768 = NOT IF 0 EXIT THEN    ( a 0 )
-    0x0e RAM+  ( 0e == WORDBUF )
+    ( We have "0x" prefix )
-    TOWORD     ( a c )
+    2+
+    0  ( a r )
     BEGIN
-        ( We take advantage of the fact that char MSB is
+    SWAP C@+                            ( r a+1 c )
-          always zero to pre-write our null-termination )
+    DUP NOT IF 2DROP 1 EXIT THEN        ( r, 1 )
-        OVER ! 1+            ( a+1 )
+    _                                   ( r a n )
-        C<                   ( a c )
+    DUP 0< IF ROT 2DROP 0 EXIT THEN     ( a 0 )
-        DUP WS?
+    ROT 16 * +                          ( a r*16+n )
-    UNTIL
+    AGAIN
-    ( a this point, PS is: a WS )
+;
-    ( null-termination is already written )
+
-    2DROP
-    0x0e RAM+ ;

blk/401

@@ -1,10 +1,10 @@
-: SCPY
+( returns negative value on error )
-    BEGIN         ( a )
+: _            ( c -- n )
-        DUP C@    ( a c )
+    ( '0' is ASCII 48 )
-        DUP C,    ( a c )
+    48 -
-        NOT IF DROP EXIT THEN
+    DUP 0< ( bad ) OVER 2 < ( good ) OR IF EXIT THEN
-        1+        ( a+1 )
+    ( bad )
-    AGAIN
+    255 -
 ;
 
 

blk/402

@@ -1,15 +1,16 @@
-: [entry]
+: (parseb)          ( a -- n f )
-    HERE @       ( w h )
+    ( '0': ASCII 0x30 'b': 0x62 0x6230: 25136 )
-    SWAP SCPY    ( h )
+    DUP @ 25136 = NOT IF 0 EXIT THEN    ( a 0 )
-    ( Adjust HERE -1 because SCPY copies the null )
+    ( We have "0b" prefix )
-    HERE @ 1-    ( h h' )
+    2+
-    DUP HERE !   ( h h' )
+    0  ( a r )
-    SWAP -       ( sz )
+    BEGIN
-    ( write prev value )
+    SWAP C@+                               ( r a+1 c )
-    HERE @ CURRENT @ - ,
+    DUP NOT IF 2DROP 1 EXIT THEN           ( r 1 )
-    ( write size )
+    _                                      ( r a n )
-    C,
+    DUP 0< IF ROT 2DROP 0 EXIT THEN        ( a 0 )
-    HERE @ CURRENT !
+    ROT 2 * +                              ( a r*2+n )
+    AGAIN
 ;
 
-: (entry) WORD [entry] ;
+

blk/403

@@ -1,9 +1,8 @@
-: INTERPRET
+: (parse)           ( a -- n )
-    BEGIN
+    (parsec) IF EXIT THEN
-    WORD
+    (parseh) IF EXIT THEN
-    (find)
+    (parseb) IF EXIT THEN
-    NOT IF (parse*) @ THEN EXECUTE
+    (parsed) IF EXIT THEN
-    C<? NOT IF LIT< (ok) (find) IF EXECUTE THEN THEN
+    ( nothing works )
-    AGAIN
+    LIT< (wnf) (find) IF EXECUTE ELSE ABORT THEN
 ;
-

blk/404

@@ -1,11 +1,12 @@
-( system c< simply reads source from binary, starting at
+: C<? 0x06 RAM+ @ ;
-  LATEST. Convenient way to bootstrap a new system. )
+: C<
-: (boot<)
+    0x08 RAM+ @  ( 08 == C<* override )
-    ( 2e == BOOT C< PTR )
+    DUP NOT IF DROP 0x0c RAM+ @ THEN  ( 0c == C<* )
-    0x2e RAM+ @   ( a )
+    EXECUTE
-    DUP C@        ( a c )
-    SWAP 1 +      ( c a+1 )
-    0x2e RAM+ !   ( c )
 ;
 
+: , HERE @ ! HERE @ 2+ HERE ! ;
+
+: C, HERE @ C! HERE @ 1+ HERE ! ;
+
 

blk/405

@@ -1,15 +1,12 @@
-: BOOT
+( The NOT is to normalize the negative/positive numbers to 1
-    0x02 RAM+ CURRENT* !
+  or 0. Hadn't we wanted to normalize, we'd have written:
-    LIT< (parse) (find) DROP (parse*) !
+  32 CMP 1 - )
-    CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )
+: WS? 33 CMP 1+ NOT ;
-    0 0x08 RAM+ !  ( 08 == C<* override )
+
-    0 0x53 RAM+ !  ( 53 == (emit) override )
+: TOWORD
-    0 0x55 RAM+ !  ( 55 == (key) override )
+    BEGIN
-    ( 0c == C<* )
+        C< DUP WS? NOT IF EXIT THEN DROP
-    LIT< (boot<) (find) DROP 0x0c RAM+ !
+    AGAIN
-    ( boot< always has a char waiting. 06 == C<?* )
-    1 0x06 RAM+ !
-    LIT< INIT (find)
-    IF EXECUTE ELSE DROP INTERPRET THEN
 ;
 
+

blk/406

@@ -1,14 +1,16 @@
-( LITN has to be defined after the last immediate usage of
+( Read word from C<, copy to WORDBUF, null-terminate, and
-  it to avoid bootstrapping issues )
+  return, make HL point to WORDBUF. )
-: LITN 32 , , ( 32 == NUMBER ) ;
+: WORD
-
+    0x0e RAM+  ( 0e == WORDBUF )
-: IMMED? 1- C@ 0x80 AND ;
+    TOWORD     ( a c )
-
+    BEGIN
-( ';' can't have its name right away because, when created, it
+        ( We take advantage of the fact that char MSB is
-  is not an IMMEDIATE yet and will not be treated properly by
+          always zero to pre-write our null-termination )
-  xcomp. )
+        OVER ! 1+            ( a+1 )
-: _
+        C<                   ( a c )
-    ['] EXIT ,
+        DUP WS?
-    R> DROP     ( exit : )
+    UNTIL
-; IMMEDIATE
+    ( a this point, PS is: a WS )
-
+    ( null-termination is already written )
+    2DROP
+    0x0e RAM+ ;

blk/407

@@ -1,16 +1,10 @@
-XCURRENT @ ( to PSP )
+: SCPY
-: :
+    BEGIN         ( a )
-    (entry)
+        DUP C@    ( a c )
-    ( We cannot use LITN as IMMEDIATE because of bootstrapping
+        DUP C,    ( a c )
-      issues. Same thing for ",".
+        NOT IF DROP EXIT THEN
-      32 == NUMBER 14 == compiledWord )
+        1+        ( a+1 )
-    [ 32 H@ ! 2 ALLOT 14 H@ ! 2 ALLOT ] C,
+    AGAIN
-    BEGIN
+;
-        WORD
+
-        (find)
+
-        ( is word )
-        IF DUP IMMED? IF EXECUTE ELSE , THEN
-        ( maybe number )
-        ELSE (parse*) @ EXECUTE LITN THEN
-    AGAIN ;
-( from PSP ) ';' SWAP 4 - C!

blk/408

@@ -0,0 +1,15 @@
+: [entry]
+    HERE @       ( w h )
+    SWAP SCPY    ( h )
+    ( Adjust HERE -1 because SCPY copies the null )
+    HERE @ 1-    ( h h' )
+    DUP HERE !   ( h h' )
+    SWAP -       ( sz )
+    ( write prev value )
+    HERE @ CURRENT @ - ,
+    ( write size )
+    C,
+    HERE @ CURRENT !
+;
+
+: (entry) WORD [entry] ;

blk/409

@@ -0,0 +1,9 @@
+: INTERPRET
+    BEGIN
+    WORD
+    (find)
+    NOT IF (parse) ELSE EXECUTE THEN
+    C<? NOT IF LIT< (ok) (find) IF EXECUTE THEN THEN
+    AGAIN
+;
+

blk/410

@@ -0,0 +1,11 @@
+( system c< simply reads source from binary, starting at
+  LATEST. Convenient way to bootstrap a new system. )
+: (boot<)
+    ( 2e == BOOT C< PTR )
+    0x2e RAM+ @   ( a )
+    DUP C@        ( a c )
+    SWAP 1 +      ( c a+1 )
+    0x2e RAM+ !   ( c )
+;
+
+

blk/411

@@ -0,0 +1,14 @@
+: BOOT
+    0x02 RAM+ CURRENT* !
+    CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )
+    0 0x08 RAM+ !  ( 08 == C<* override )
+    0 0x53 RAM+ !  ( 53 == (emit) override )
+    0 0x55 RAM+ !  ( 55 == (key) override )
+    ( 0c == C<* )
+    LIT< (boot<) (find) DROP 0x0c RAM+ !
+    ( boot< always has a char waiting. 06 == C<?* )
+    1 0x06 RAM+ !
+    LIT< INIT (find)
+    IF EXECUTE ELSE DROP INTERPRET THEN
+;
+

blk/412

@@ -0,0 +1,14 @@
+( LITN has to be defined after the last immediate usage of
+  it to avoid bootstrapping issues )
+: LITN 32 , , ( 32 == NUMBER ) ;
+
+: IMMED? 1- C@ 0x80 AND ;
+
+( ';' can't have its name right away because, when created, it
+  is not an IMMEDIATE yet and will not be treated properly by
+  xcomp. )
+: _
+    ['] EXIT ,
+    R> DROP     ( exit : )
+; IMMEDIATE
+

blk/413

@@ -0,0 +1,16 @@
+XCURRENT @ ( to PSP )
+: :
+    (entry)
+    ( We cannot use LITN as IMMEDIATE because of bootstrapping
+      issues. Same thing for ",".
+      32 == NUMBER 14 == compiledWord )
+    [ 32 H@ ! 2 ALLOT 14 H@ ! 2 ALLOT ] C,
+    BEGIN
+        WORD
+        (find)
+        ( is word )
+        IF DUP IMMED? IF EXECUTE ELSE , THEN
+        ( maybe number )
+        ELSE (parse) LITN THEN
+    AGAIN ;
+( from PSP ) ';' SWAP 4 - C!

blk/436

@@ -8,7 +8,3 @@
     DROP
 ;
 
-( a -- a+1 c )
-: C@+ DUP C@ SWAP 1+ SWAP ;
-( c a -- a+1 )
-: C!+ SWAP OVER C! 1+ ;

blk/438

@@ -1,3 +0,0 @@
-: >= < NOT ;
-: <= > NOT ;
-: 0>= 0< NOT ;

blk/446

@@ -1,11 +0,0 @@
-( strings being sent to parse routines are always null
-  terminated )
-
-: (parsec)          ( a -- n f )
-    ( apostrophe is ASCII 39 )
-    DUP C@ 39 = OVER 2+ C@ 39 = AND     ( a f )
-    NOT IF 0 EXIT THEN   ( a 0 )
-    ( surrounded by apos, good, return )
-    1+ C@ 1                             ( n 1 )
-;
-

blk/447

@@ -1,14 +0,0 @@
-( returns negative value on error )
-: _            ( c -- n )
-    ( '0' is ASCII 48 )
-    48 -
-    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/448

@@ -1,15 +0,0 @@
-: (parseh)          ( a -- n f )
-    ( '0': ASCII 0x30 'x': 0x78 0x7830: 30768 )
-    DUP @ 30768 = NOT IF 0 EXIT THEN    ( a 0 )
-    ( We have "0x" prefix )
-    2+
-    0  ( a r )
-    BEGIN
-    SWAP C@+                            ( r a+1 c )
-    DUP NOT IF 2DROP 1 EXIT THEN        ( r, 1 )
-    _                                   ( r a n )
-    DUP 0< IF ROT 2DROP 0 EXIT THEN     ( a 0 )
-    ROT 16 * +                          ( a r*16+n )
-    AGAIN
-;
-

blk/449

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

blk/450

@@ -1,16 +0,0 @@
-: (parseb)          ( a -- n f )
-    ( '0': ASCII 0x30 'b': 0x62 0x6230: 25136 )
-    DUP @ 25136 = NOT IF 0 EXIT THEN    ( a 0 )
-    ( We have "0b" prefix )
-    2+
-    0  ( a r )
-    BEGIN
-    SWAP C@+                               ( r a+1 c )
-    DUP NOT IF 2DROP 1 EXIT THEN           ( r 1 )
-    _                                      ( r a n )
-    DUP 0< IF ROT 2DROP 0 EXIT THEN        ( a 0 )
-    ROT 2 * +                              ( a r*2+n )
-    AGAIN
-;
-
-

blk/451

@@ -1,10 +0,0 @@
-: (parse)           ( a -- n )
-    (parsec) IF EXIT THEN
-    (parseh) IF EXIT THEN
-    (parseb) IF EXIT THEN
-    (parsed) IF EXIT THEN
-    ( nothing works )
-    LIT< (wnf) (find) IF EXECUTE ELSE ABORT THEN
-;
-
-' (parse) (parse*) !