Add word ,"

blk/061

@@ -1,3 +1,4 @@
+," xxx" --     Write xxx to HERE
 ." xxx" --     *I* Compiles string literal xxx followed by a
                call to (print).
 C<?     -- f   Returns whether there's a char waiting in buf.
@@ -11,6 +12,5 @@ IN>     -- a   Address of variable containing current pos in
 KEY     -- c   Get char c from direct input
 PC!     c a -- Spit c to port a
 PC@     a -- c Fetch c from port a
-WORD    -- a   Read one word from buffered input and push its
+
-               addr.
                                                         (cont.)

blk/062

@@ -1,4 +1,5 @@
-(cont.)
+WORD    -- a   Read one word from buffered input and push its
+               addr.
 There are also ascii const emitters:
 BS
 CR
@@ -13,4 +14,3 @@ SPC
 
 
 
-

blk/443

@@ -1,11 +1,12 @@
-: ."
+: ,"
-    34 ,        ( 34 == litWord )
     BEGIN
         C<
         ( 34 is ASCII for " )
-        DUP 34 = IF DROP 0 THEN
+        DUP 34 = IF DROP EXIT THEN C,
-        DUP C,
+    AGAIN ;
-    NOT UNTIL
+
+: ."
+    34 , ( 34 == litWord ) ," 0 C,
     COMPILE (print)
 ; IMMEDIATE
 

forth/print.fs

@@ -12,14 +12,15 @@
     AGAIN
 ;
 
-: ."
+: ,"
-    34 ,        ( 34 == litWord )
     BEGIN
         C<
         ( 34 is ASCII for " )
-        DUP 34 = IF DROP 0 THEN
+        DUP 34 = IF DROP EXIT THEN C,
-        DUP C,
+    AGAIN ;
-    NOT UNTIL
+
+: ."
+    34 , ( 34 == litWord ) ," 0 C,
     COMPILE (print)
 ; IMMEDIATE