6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-02-16 21:30:59 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Philip Zembrod 2024-11-07 09:52:08 +01:00
parent 4263b89a67
commit 916ac6e0c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
8080/CPM/src/vf-bdos.fth
View File

@ -83,7 +83,7 @@ Input: keyboard [ here input ! ]
Dos definitions Dos definitions
' 2- | Alias dosfcb> ' 2+ | Alias >dosfcb ' 2- | Alias dosfcb> ' 2+ | Alias >dosfcb
: dos-error? ( n -- f ) $FF = ; : dos-error? ( n -- f ) 0<> ;
$5C Constant fcb $5C Constant fcb
: reset ( -- ) 0 &13 bdos ; : reset ( -- ) 0 &13 bdos ;