Add a way of building eturtle.exe, unfortunately had to muck around with startup...

diff --git a/.gitignore b/.gitignore
index 595329a..b35e4d8 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,5 @@
 *.exe
 *.obj
 *.map
+/a
+/blocks.blk

diff --git a/Makefile b/Makefile
index d158790..f0194c0 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -1,3 +1,18 @@
-hf86exe.exe: hf86exe.asm
-       tasm /ml hf86exe
-       tlink hf86exe
+all: hf86exe.exe eturtle.exe\r
+\r
+hf86exe.exe: hf86exe.asm\r
+       tasm /ml hf86exe\r
+       tlink hf86exe\r
+\r
+eturtle.exe: hf86exe.exe\r
+       type OPTIONAL.F >a\r
+       type ASM8086.F >>a\r
+       type COREEXT.F >>a\r
+       type MSDOS.F >>a\r
+       echo BL PARSE MULTI.F    INCLUDED >>a\r
+       echo BL PARSE HIOMULT2.F INCLUDED >>a\r
+       echo BL PARSE TURTLE.F   INCLUDED >>a\r
+       echo N >>a\r
+       echo SAVE-SYSTEM-AS ETURTLE.EXE >>a\r
+       echo BYE >>a\r
+       hf86exe <a\r

diff --git a/asm8086.f b/asm8086.f
index c036b06..a178c36 100644 (file)
--- a/asm8086.f
+++ b/asm8086.f
@@ -769,8 +769,9 @@ CHAR " PARSE ROM Model" COMPARE 0=
 [IF] RAM/ROM! [THEN]\r
 BASE !\r
 \r
-CHAR " PARSE FILE" ENVIRONMENT?\r
-[IF]\r
-  0= [IF] << CON [THEN]\r
-[ELSE] << CON\r
-[THEN]\r
+\ Nick\r
+\CHAR " PARSE FILE" ENVIRONMENT?\r
+\[IF]\r
+\  0= [IF] << CON [THEN]\r
+\[ELSE] << CON\r
+\[THEN]\r

diff --git a/coreext.f b/coreext.f
index 716047d..afbc3e8 100644 (file)
--- a/coreext.f
+++ b/coreext.f
@@ -381,8 +381,9 @@ CHAR " PARSE ROM Model" COMPARE 0=
 [IF] RAM/ROM! [THEN]\r
 BASE !\r
 \r
-CHAR " PARSE FILE" ENVIRONMENT?\r
-[IF]\r
-  0= [IF] << CON [THEN]\r
-[ELSE] << CON\r
-[THEN]\r
+\ Nick\r
+\CHAR " PARSE FILE" ENVIRONMENT?\r
+\[IF]\r
+\  0= [IF] << CON [THEN]\r
+\[ELSE] << CON\r
+\[THEN]\r

diff --git a/eturtle.exe b/eturtle.exe
deleted file mode 100644 (file)
index c961426..0000000
Binary files a/eturtle.exe and /dev/null differ

diff --git a/hf86exe.asm b/hf86exe.asm
index ed8a141..1f42c3b 100644 (file)
--- a/hf86exe.asm
+++ b/hf86exe.asm
@@ -1027,8 +1027,9 @@ RXFET1:   $NEXT
 ;   : set-i/o  S" CON" stdin ;                 \ MS-DOS only\r
 \r
                $COLON  NameSet_IO,Set_IO\r
-               DW      DoLIT,Set_IOstr         ;MS-DOS only\r
-               DW      COUNT,STDIN             ;MS-DOS only\r
+; Nick removed this, want to use ordinary DOS redirection instead\r
+;              DW      DoLIT,Set_IOstr         ;MS-DOS only\r
+;              DW      COUNT,STDIN             ;MS-DOS only\r
                DW      EXIT\r
 \r
 ;;;;;;;;;;;;;;;;\r

diff --git a/msdos.f b/msdos.f
index c58a2d0..e74b9aa 100644 (file)
--- a/msdos.f
+++ b/msdos.f
@@ -963,4 +963,5 @@ BASE !
 \r
 QUIT\r
 \r
-<< CON\r
+\ Nick\r
+\<< CON\r

diff --git a/multi.f b/multi.f
index 54be3bc..20f78ba 100644 (file)
--- a/multi.f
+++ b/multi.f
@@ -266,8 +266,9 @@ CHAR " PARSE EXE Model" COMPARE 0=
 SET-CURRENT\r
 BASE !\r
 \r
-CHAR " PARSE FILE" ENVIRONMENT?\r
-[IF]\r
-  0= [IF] << CON [THEN]\r
-[ELSE] << CON\r
-[THEN]\r
+\ Nick\r
+\CHAR " PARSE FILE" ENVIRONMENT?\r
+\[IF]\r
+\  0= [IF] << CON [THEN]\r
+\[ELSE] << CON\r
+\[THEN]\r

diff --git a/optional.f b/optional.f
index 4e05d10..cb7a4db 100644 (file)
--- a/optional.f
+++ b/optional.f
@@ -765,8 +765,9 @@ FORTH-WORDLIST SET-CURRENT
 \r
 BASE !\r
 \r
-CHAR " PARSE FILE" ENVIRONMENT?\r
-[IF]\r
-  0= [IF] << CON [THEN]\r
-[ELSE] << CON\r
-[THEN]\r
+\ Nick\r
+\CHAR " PARSE FILE" ENVIRONMENT?\r
+\[IF]\r
+\  0= [IF] << CON [THEN]\r
+\[ELSE] << CON\r
+\[THEN]\r