From 6812352db308806b6b240785a6cda18be5ab3cf5 Mon Sep 17 00:00:00 2001 From: Philip Zembrod Date: Wed, 6 Jul 2022 01:36:15 +0200 Subject: [PATCH] Detect and message file-not-found condition in INCLUDE --- 6502/C64/src/vf-cbm-file.fth | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/6502/C64/src/vf-cbm-file.fth b/6502/C64/src/vf-cbm-file.fth index 5e0d647..210db63 100644 --- a/6502/C64/src/vf-cbm-file.fth +++ b/6502/C64/src/vf-cbm-file.fth @@ -18,10 +18,14 @@ dup 0= swap #cr = or IF 0 exit THEN i/o-status? IF 1 exit THEN -1 ; +| : i/o-status?abort i/o-status? 3 and IF c64cr + fload-dev @ dos-error abort THEN ; + | : freadline ( -- eof ) fload-dev @ fload-2nd @ busin + i/o-status?abort tib /tib bounds - DO bus@ dup eol? under + DO bus@ i/o-status?abort dup eol? under IF I c! ELSE drop THEN dup 0< IF drop ELSE I + tib - #tib ! UNLOOP @@ -35,9 +39,6 @@ \ fload-open fload-close 30jun20pz -| : i/o-status?abort i/o-status? IF cr - fload-dev @ dos-error abort THEN ; - defer on-fload ' noop is on-fload | : fload-open ( addr c -- ) on-fload fload-dev @