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

small code cleanup vf-cbm-dos.fth

Browse Source
This commit is contained in:
Philip Zembrod 2020-07-24 00:13:54 +02:00
parent 6887241e40
commit 427817c3ac
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
6502/C64/src/vf-cbm-dos.fth
View File

@ -12,16 +12,12 @@
: dos ( -- ) : dos ( -- )
bl word count ?dup bl word count ?dup
IF dev 15 busout bustype IF dev $f busout bustype
busoff cr ELSE drop THEN busoff cr ELSE drop THEN
dev dos-error ; dev dos-error ;
: cat ( -- ) cr : cat ( -- ) cr
dev 2 busopen bl word count bustype dev 2 busopen bl word count bustype busoff
busoff i/o-status? IF cr dev dos-error abort THEN
\ i/o-status?abort dev 2 busin BEGIN bus@ con! i/o-status? UNTIL busoff
i/o-status? IF cr
fload-dev @ dos-error abort THEN
dev 2 busin BEGIN bus@ con!
i/o-status? UNTIL busoff
dev 2 busclose ; dev 2 busclose ;