From ad1a4c370d8882b495d5e80b6df4e36ef48668d7 Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Mon, 18 Nov 2002 18:22:26 +0000
Subject: [PATCH] Don't check the IEEE status

git-svn-id: svn://svn.cc65.org/cc65/trunk@1539 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/cbm/write.s | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/libsrc/cbm/write.s b/libsrc/cbm/write.s
index 508deb6b8..7a1441fe0 100644
--- a/libsrc/cbm/write.s
+++ b/libsrc/cbm/write.s
@@ -61,20 +61,15 @@
         bcs     error
         bcc     @L2
 
-; Read the IEEE488 status
-
-@L0:    jsr     READST
-        cmp     #0
-        bne     error5
-
 ; Output the next character from the buffer
 
-        ldy     #0
+@L0:    ldy     #0
         lda     (ptr2),y
         inc     ptr2
         bne     @L1
         inc     ptr2+1          ; A = *buf++;
 @L1:    jsr     BSOUT
+        bcs     error           ; Bail out on errors
 
 ; Count characters written
 
-- 
2.39.5