6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-11-26 02:49:17 +00:00
Code Issues Projects Releases Wiki Activity

Fix include so that printing the file name is outside the file open flow.

Browse Source 
Else include doesn't work if cr and type log to a file themselves.
This commit is contained in:
Philip Zembrod 2020-06-30 23:35:18 +02:00
parent af3bf842af
commit 6dbe30064d
2 changed files with 7 additions and 7 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.

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

@ -281,7 +281,7 @@
\ *** Block No. 10, Hexblock a
\ include loadscreen 14jun20pz
\ include loadscreen 30jun20pz
: i/o-status? $90 c@ ;
@ -300,9 +300,9 @@
1 4 +thru
: .filename 2dup cr type ;
' .filename IS on-fload
@ -337,16 +337,16 @@
\ *** Block No. 12, Hexblock c
\ fload-open fload-close 09jun20pz
\ 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 -- )
fload-dev @
on-fload fload-dev @
fload-2nd @ 1- dup fload-2nd !
busopen
2dup cr type bustype
busopen bustype
" ,s,r" count bustype busoff
i/o-status?abort ;