6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-06-12 02:29:27 +00:00
Code Issues Projects Releases Wiki Activity

Fix an endless loop problem within derror?

Browse Source
This commit is contained in:
Philip Zembrod 2020-12-31 23:40:47 +01:00
parent deedf5679b
commit 8f2f97e1f2
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
6502/C64/src/vf-sys-cbm.fth
View File

@ -212,7 +212,8 @@ Code bus@ ( -- 8b)
bounds ?DO bus@ I c! LOOP pause ;
: derror? ( -- flag )
disk $F busin bus@ dup Ascii 0 -
IF BEGIN emit bus@ dup #cr = UNTIL
0= cr ELSE BEGIN bus@ #cr = UNTIL
THEN 0= busoff ;
disk $F busin bus@ dup Ascii 0 =
IF drop BEGIN bus@ drop i/o-status? UNTIL false
ELSE BEGIN emit bus@ i/o-status? UNTIL emit true THEN
busoff ;