From 916ac6e0c4b2891d245d2ad71a10682b51e7a5eb Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@gmail.com>
Date: Thu, 7 Nov 2024 09:52:08 +0100
Subject: [PATCH] Fix bug in dos-error? - check for non-zero instead of -1

---
 8080/CPM/src/vf-bdos.fth | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/8080/CPM/src/vf-bdos.fth b/8080/CPM/src/vf-bdos.fth
index 2844a60..d5c79a1 100644
--- a/8080/CPM/src/vf-bdos.fth
+++ b/8080/CPM/src/vf-bdos.fth
@@ -83,7 +83,7 @@ Input:  keyboard    [ here input ! ]
 Dos definitions
 ' 2- | Alias dosfcb>         ' 2+ | Alias >dosfcb
 
-: dos-error? ( n -- f )   $FF = ;
+: dos-error? ( n -- f )   0<> ;
 
 $5C Constant fcb
 : reset     (   --     )  0 &13 bdos ;