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 ;