6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-24 11:31:31 +00:00
Code Issues Projects Releases Wiki Activity

Bug corrected : Fwrite did not return number of byte written.

Browse Source
This commit is contained in:
jede 2017-11-14 22:04:57 +01:00
parent 3c97a04b25
commit 4e0958eae6
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
libsrc/telestrat/write.s
View File

@ -17,7 +17,7 @@
sta ptr2 sta ptr2
txa txa
eor #$FF eor #$FF
sta ptr2+1 ; Remember -count-1 sta ptr2+1 ; remember -count-1
jsr popax ; get buf jsr popax ; get buf
sta ptr1 sta ptr1
@ -32,7 +32,7 @@ next:
cmp #1 cmp #1
beq L1 beq L1
; Here it's a file opened ; here it's a file opened
lda ptr1 lda ptr1
sta PTR_READ_DEST sta PTR_READ_DEST
lda ptr1+1 lda ptr1+1
@ -40,6 +40,16 @@ next:
lda ptr3 lda ptr3
ldy ptr3+1 ldy ptr3+1
BRK_TELEMON XFWRITE BRK_TELEMON XFWRITE
; compute nb of bytes written
lda PTR_READ_DEST+1
sec
sbc ptr1+1
tax
lda PTR_READ_DEST
sec
sbc ptr1
rts rts
@ -50,23 +60,23 @@ L1: inc ptr2
L2: ldy #0 L2: ldy #0
lda (ptr1),y lda (ptr1),y
tax tax
cpx #$0A ; Check for \n cpx #$0A ; check for \n
bne L3 bne L3
BRK_TELEMON XWR0 ; Macro send char to screen (channel 0 in telemon terms) BRK_TELEMON XWR0 ; macro send char to screen (channel 0 in telemon terms)
lda #$0D ; return to the beggining of the line lda #$0D ; return to the beggining of the line
BRK_TELEMON XWR0 ; Macro ; BRK_TELEMON XWR0 ; macro
ldx #$0D ldx #$0D
L3: L3:
BRK_TELEMON XWR0 ; Macro BRK_TELEMON XWR0 ; macro
inc ptr1 inc ptr1
bne L1 bne L1
inc ptr1+1 inc ptr1+1
jmp L1 jmp L1
; No error, return count ; No error, return count
L9: lda ptr3 L9: lda ptr3
ldx ptr3+1 ldx ptr3+1