Build FORTH.COM from CORE.F
diff --git a/FORTH.ASM b/FORTH.ASM
index 5dd77a7..8d8dc28 100644
--- a/FORTH.ASM
+++ b/FORTH.ASM
@@ -162,7 +162,6 @@
INDIRECT_START:
DW SETUP
DW QUIT
- DW BYE
SETUP:
@@ -306,41 +305,6 @@
NEXT
- DEFWORD_RAW TEST_WRITE_FILE, 'TEST-WRITE-FILE'
- MOV AL, F_WRITE
- MOV DX, DUMP
- OPENF
- JC .OPEN
-
- MOV BX, AX ; Handle
- MOV CX, 4
- MOV DX, DUMP
- WRITEF
- JC .WRITE
-
- CLOSEF
- JC .CLOSE
-
- NEXT
-
-.OPEN:
- MOV DX, MSG_OPENF_FAILED
- WRITESOUT
- NEXT
-
-.WRITE:
- ;; 06h - invalid handle
- PUSH AX
- MOV DX, MSG_WRITEF_FAILED
- WRITESOUT
- NEXT
-
-.CLOSE:
- MOV DX, MSG_CLOSEF_FAILED
- WRITESOUT
- NEXT
-
-
%INCLUDE "IOWORDS.ASM"
%INCLUDE "DICTNRY.ASM"
@@ -364,13 +328,8 @@
;;; PROGRAM DATA ;;;
MSG DB 'DOS FORTH', 0Dh, 0Ah, '$'
- DUMP DB 'DUMP.COM', 0
- DUMP_LEN EQU 8
-
- MSG_CLOSEF_FAILED DB 'CLOSEF FAILED', 0Dh, 0Ah, '$'
- MSG_WRITEF_FAILED DB 'WRITEF FAILED', 0Dh, 0Ah, '$'
- ALIGN 4
;;; FREE DATA ;;;
+ ALIGN 4
HERE_START: