Move core's fmt to xcomp core (high)

blk/420

@@ -1 +1 @@
-1 4 LOADR+ ( xcomp core high )
+1 7 LOADR+ ( xcomp core high )

blk/423

@@ -1,14 +1,16 @@
-( 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 ,
+    999 SWAP        ( stop indicator )
-    R> DROP     ( exit : )
+    DUP 0 = IF '0' EXIT THEN    ( 0 is a special case )
-; IMMEDIATE
+    BEGIN
-
+        DUP 0 = IF DROP EXIT THEN
+        10 /MOD         ( r q )
+        SWAP '0' + SWAP ( d q )
+    AGAIN ;
+: . ( n -- )
+    ( handle negative )
+    DUP 0< IF '-' EMIT -1 * THEN
+    _
+    BEGIN
+        DUP '9' > IF DROP EXIT THEN  ( stop indicator )
+        EMIT
+    AGAIN ;

blk/424

@@ -1,16 +1,16 @@
-XCURRENT @ ( to PSP )
+: ? @ . ;
-: :
+: _
-    (entry)
+    DUP 9 > IF 10 - 'a' +
-    ( We cannot use LITN as IMMEDIATE because of bootstrapping
+    ELSE '0' + THEN
-      issues. Same thing for ",".
+;
-      32 == NUMBER 14 == compiledWord )
+( For hex display, there are no negatives )
-    [ 32 H@ ! 2 ALLOT 14 H@ ! 2 ALLOT ] C,
+: .x
-    BEGIN
+    256 MOD     ( ensure < 0x100 )
-        WORD
+    16 /MOD     ( l h )
-        (find)
+    _ EMIT      ( l )
-        ( is word )
+    _ EMIT
-        IF DUP IMMED? IF EXECUTE ELSE , THEN
+;
-        ( maybe number )
+: .X
-        ELSE (parse) LITN THEN
+    256 /MOD    ( l h )
-    AGAIN ;
+    .x .x
-( from PSP ) ';' SWAP 4 - C!
+;

blk/425

@@ -0,0 +1,13 @@
+: _ ( a -- a+8 )
+    DUP ( a a )
+    ':' EMIT DUP .x SPC
+    4 0 DO DUP @ 256 /MOD SWAP .x .x SPC 2+ LOOP
+    DROP ( a )
+    8 0 DO
+        C@+ DUP 0x20 0x7e =><= NOT IF DROP '.' THEN EMIT
+    LOOP NL ;
+: DUMP ( n a -- )
+    LF
+    SWAP 8 /MOD SWAP IF 1+ THEN
+    0 DO _ LOOP
+;

blk/426

@@ -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/427

@@ -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/442

@@ -1,16 +0,0 @@
-: _
-    999 SWAP        ( stop indicator )
-    DUP 0 = IF '0' EXIT THEN    ( 0 is a special case )
-    BEGIN
-        DUP 0 = IF DROP EXIT THEN
-        10 /MOD         ( r q )
-        SWAP '0' + SWAP ( d q )
-    AGAIN ;
-: . ( n -- )
-    ( handle negative )
-    DUP 0< IF '-' EMIT -1 * THEN
-    _
-    BEGIN
-        DUP '9' > IF DROP EXIT THEN  ( stop indicator )
-        EMIT
-    AGAIN ;

blk/443

@@ -1,16 +0,0 @@
-: ? @ . ;
-: _
-    DUP 9 > IF 10 - 'a' +
-    ELSE '0' + THEN
-;
-( For hex display, there are no negatives )
-: .x
-    256 MOD     ( ensure < 0x100 )
-    16 /MOD     ( l h )
-    _ EMIT      ( l )
-    _ EMIT
-;
-: .X
-    256 /MOD    ( l h )
-    .x .x
-;

blk/444

@@ -1,16 +0,0 @@
-: _ ( a -- a+8 )
-    DUP         ( save for 2nd loop )
-    ':' EMIT DUP .x SPC
-    4 0 DO
-        DUP @ 256 /MOD SWAP
-        .x .x SPC 2+
-    LOOP
-    DROP
-    8 0 DO
-        C@+
-        DUP 0x20 0x7e =><= NOT
-        IF DROP '.' THEN
-        EMIT
-    LOOP
-    NL
-;

blk/445

@@ -1,6 +0,0 @@
-: DUMP ( n a -- )
-    LF
-    SWAP 8 /MOD SWAP IF 1+ THEN
-    0 DO _ LOOP
-;
-