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

Add file-not-found detection and error display to include and cat

Browse Source
This commit is contained in:
Philip Zembrod 2020-06-09 23:37:43 +02:00
parent 1990c113e5
commit 095026976d
2 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
6502/C64/disks/file-words.d64
View File

Binary file not shown.

44
6502/C64/disks/file-words.fth
View File

@ -281,16 +281,19 @@
\ *** Block No. 10, Hexblock a
\ include loadscreen 08jun20pz
\ include loadscreen 09jun20pz
: i/o-status? $90 c@ ;
: dos-error ( dev -- )
15 busin
BEGIN bus@ con! i/o-status? UNTIL
busoff ;
: unloop rdrop rdrop rdrop ;
: dev (drv @ 8 + ;
: lo/hi> ( lo hi -- u )
: lo/hi> ( lo hi -- u )
255 and 256 * swap 255 and + ;
@ -304,9 +307,6 @@
\ *** Block No. 11, Hexblock b
\ fload-dev freadline 25apr20pz
@ -337,14 +337,18 @@
\ *** Block No. 12, Hexblock c
\ fload-open fload-close 25apr20pz
\ fload-open fload-close 09jun20pz
| : i/o-status?abort i/o-status? IF cr
fload-dev @ dos-error abort THEN ;
| : fload-open ( addr c -- )
fload-dev @
fload-2nd @ 1- dup fload-2nd !
busopen
2dup cr type bustype
" ,s,r" count bustype busoff ;
" ,s,r" count bustype busoff
i/o-status?abort ;
| : fload-close ( -- )
fload-dev @ fload-2nd @
@ -359,14 +363,14 @@
fload-dev @ I busclose -1 +LOOP
15 fload-2nd ! THEN ;
\ *** Block No. 13, Hexblock d
\ include 09jun20pz
: \ ( -- )
blk @ IF [compile] \ exit THEN
#tib @ >in ! ; immediate
\ *** Block No. 13, Hexblock d
\ include 10may20pz
create >tib-orig >tib @ ,
fib >tib !
@ -387,13 +391,10 @@
\ *** Block No. 14, Hexblock e
\ dir dos cat 08jun20pz
\ dir dos cat 09jun20pz
| : dev fload-dev @ ;
: dir ( -- )
dev 0 busopen ascii $ bus! busoff
@ -408,13 +409,12 @@
bl word count ?dup
IF dev 15 busout bustype
busoff cr ELSE drop THEN
dev 15 busin
BEGIN bus@ con! i/o-status? UNTIL
busoff ;
dev dos-error ;
: cat ( -- ) cr
dev 2 busopen bl word count bustype
busoff dev 2 busin BEGIN bus@ con!
busoff i/o-status?abort
dev 2 busin BEGIN bus@ con!
i/o-status? UNTIL busoff
dev 2 busclose ;