Fix bug in dos-error? - check for non-zero instead of -1

This commit is contained in:
Philip Zembrod 2024-11-07 09:52:08 +01:00
parent 4263b89a67
commit 916ac6e0c4

View File

@ -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 ;