From 427817c3ac4b2e94559ac08907d305b201269579 Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Fri, 24 Jul 2020 00:13:54 +0200
Subject: [PATCH] small code cleanup vf-cbm-dos.fth

---
 6502/C64/src/vf-cbm-dos.fth | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/6502/C64/src/vf-cbm-dos.fth b/6502/C64/src/vf-cbm-dos.fth
index 61d5523..17b470a 100644
--- a/6502/C64/src/vf-cbm-dos.fth
+++ b/6502/C64/src/vf-cbm-dos.fth
@@ -12,16 +12,12 @@
 
 : dos  ( -- )
    bl word count ?dup
-      IF dev 15 busout bustype
+      IF dev $f busout bustype
       busoff cr ELSE drop THEN
    dev dos-error ;
 
 : cat   ( -- ) cr
-   dev 2 busopen  bl word count bustype
-   busoff
-   \ i/o-status?abort
-   i/o-status? IF cr
-     fload-dev @ dos-error abort THEN
-   dev 2 busin  BEGIN bus@ con!
-   i/o-status? UNTIL busoff
+   dev 2 busopen  bl word count bustype busoff
+   i/o-status? IF cr dev dos-error abort THEN
+   dev 2 busin  BEGIN bus@ con! i/o-status? UNTIL busoff
    dev 2 busclose ;