Virtual disk contents for testing

diff --git a/FIG68K.S b/FIG68K.S
index 79d462e..1b9bec1 100644 (file)
--- a/FIG68K.S
+++ b/FIG68K.S
@@ -5690,7 +5690,7 @@ VDISK     EQU     MEMEND
        DC.B    "XXX~XXX:                                                        " 14\r
        DC.B    "XXX~XXX:                                                        " 15\r
 * SCREEN 3\r
-       DC.B    "********************** fig-FORTH MODEL **********************   " 0\r
+       DC.B    "*************** Code from the fig-FORTH MODEL ***************   " 0\r
        DC.B    "                                                                " 1\r
        DC.B    "                   Through the courtesy of                      " 2\r
        DC.B    "                                                                " 3\r
@@ -5779,15 +5779,15 @@ VDISK   EQU     MEMEND
 * SCREEN 8\r
        DC.B    " ( TEXT, LINE                                     WFR-79MAY01 ) " 0\r
        DC.B    " FORTH DEFINITIONS  HEX                                         " 1\r
-       DC.B    " : TEXT                       ( ACCEPT FOLLOWING TEXT TO PAD *) " 2\r
-       DC.B    "      HERE  C/L  1+  BLANKS  WORD  HERE  PAD  C/L  1+  CMOVE  ; " 3\r
+       DC.B    "                                                                " 2\r
+       DC.B    " 64 CONSTANT C/L                                                " 3\r
        DC.B    "                                                                " 4\r
-       DC.B    " : LINE             ( RELATIVE TO SCR, LEAVE ADDRESS OF LINE *) " 5\r
-       DC.B    "       DUP  FFF0  AND   17   ?ERROR     ( KEEP ON THIS SCREEN ) " 6\r
-       DC.B    "       SCR  @  (LINE)   DROP   ;                                " 7\r
-       DC.B    "                                                                " 8\r
-       DC.B    "                                                                " 9\r
-       DC.B    "                                                                " 10\r
+       DC.B    " : TEXT                       ( ACCEPT FOLLOWING TEXT TO PAD *) " 5\r
+       DC.B    "      HERE  C/L  1+  BLANKS  WORD  HERE  PAD  C/L  1+  CMOVE  ; " 6\r
+       DC.B    "                                                                " 7\r
+       DC.B    " : LINE             ( RELATIVE TO SCR, LEAVE ADDRESS OF LINE *) " 8\r
+       DC.B    "       DUP  FFF0  AND   17   ?ERROR     ( KEEP ON THIS SCREEN ) " 9\r
+       DC.B    "       SCR  @  (LINE)   DROP   ;                                " 10\r
        DC.B    "                                                                " 11\r
        DC.B    "                                                                " 12\r
        DC.B    "                                                                " 13\r

diff --git a/FIG68KRT.S b/FIG68KRT.S
index 31ae5d7..e7d6d18 100644 (file)
--- a/FIG68KRT.S
+++ b/FIG68KRT.S
@@ -5715,7 +5715,7 @@ VDISK     EQU     MEMEND
        DC.B    "XXX~XXX:                                                        " 14\r
        DC.B    "XXX~XXX:                                                        " 15\r
 * SCREEN 3\r
-       DC.B    "********************** fig-FORTH MODEL **********************   " 0\r
+       DC.B    "*************** Code from the fig-FORTH MODEL ***************   " 0\r
        DC.B    "                                                                " 1\r
        DC.B    "                   Through the courtesy of                      " 2\r
        DC.B    "                                                                " 3\r
@@ -5804,15 +5804,15 @@ VDISK   EQU     MEMEND
 * SCREEN 8\r
        DC.B    " ( TEXT, LINE                                     WFR-79MAY01 ) " 0\r
        DC.B    " FORTH DEFINITIONS  HEX                                         " 1\r
-       DC.B    " : TEXT                       ( ACCEPT FOLLOWING TEXT TO PAD *) " 2\r
-       DC.B    "      HERE  C/L  1+  BLANKS  WORD  HERE  PAD  C/L  1+  CMOVE  ; " 3\r
+       DC.B    "                                                                " 2\r
+       DC.B    " 64 CONSTANT C/L                                                " 3\r
        DC.B    "                                                                " 4\r
-       DC.B    " : LINE             ( RELATIVE TO SCR, LEAVE ADDRESS OF LINE *) " 5\r
-       DC.B    "       DUP  FFF0  AND   17   ?ERROR     ( KEEP ON THIS SCREEN ) " 6\r
-       DC.B    "       SCR  @  (LINE)   DROP   ;                                " 7\r
-       DC.B    "                                                                " 8\r
-       DC.B    "                                                                " 9\r
-       DC.B    "                                                                " 10\r
+       DC.B    " : TEXT                       ( ACCEPT FOLLOWING TEXT TO PAD *) " 5\r
+       DC.B    "      HERE  C/L  1+  BLANKS  WORD  HERE  PAD  C/L  1+  CMOVE  ; " 6\r
+       DC.B    "                                                                " 7\r
+       DC.B    " : LINE             ( RELATIVE TO SCR, LEAVE ADDRESS OF LINE *) " 8\r
+       DC.B    "       DUP  FFF0  AND   17   ?ERROR     ( KEEP ON THIS SCREEN ) " 9\r
+       DC.B    "       SCR  @  (LINE)   DROP   ;                                " 10\r
        DC.B    "                                                                " 11\r
        DC.B    "                                                                " 12\r
        DC.B    "                                                                " 13\r