6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-07-05 06:28:57 +00:00
Code Issues Projects Releases Wiki Activity

Don't check the IEEE status

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1539 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2002-11-18 18:22:26 +00:00
parent 89dfca1eb5
commit ad1a4c370d
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libsrc/cbm/write.s
View File

@ -61,20 +61,15 @@
bcs error bcs error
bcc @L2 bcc @L2
; Read the IEEE488 status
@L0: jsr READST
cmp #0
bne error5
; Output the next character from the buffer ; Output the next character from the buffer
ldy #0 @L0: ldy #0
lda (ptr2),y lda (ptr2),y
inc ptr2 inc ptr2
bne @L1 bne @L1
inc ptr2+1 ; A = *buf++; inc ptr2+1 ; A = *buf++;
@L1: jsr BSOUT @L1: jsr BSOUT
bcs error ; Bail out on errors
; Count characters written ; Count characters written