6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-15 02:29:32 +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
txa
eor #$FF
sta ptr2+1 ; Remember -count-1
sta ptr2+1 ; remember -count-1
jsr popax ; get buf
sta ptr1
@ -32,7 +32,7 @@ next:
cmp #1
beq L1
; Here it's a file opened
; here it's a file opened
lda ptr1
sta PTR_READ_DEST
lda ptr1+1
@ -40,6 +40,16 @@ next:
lda ptr3
ldy ptr3+1
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
@ -50,23 +60,23 @@ L1: inc ptr2
L2: ldy #0
lda (ptr1),y
tax
cpx #$0A ; Check for \n
cpx #$0A ; check for \n
bne L3
BRK_TELEMON XWR0 ; Macro send char to screen (channel 0 in telemon terms)
lda #$0D ; return to the beggining of the line
BRK_TELEMON XWR0 ; Macro ;
BRK_TELEMON XWR0 ; macro send char to screen (channel 0 in telemon terms)
lda #$0D ; return to the beggining of the line
BRK_TELEMON XWR0 ; macro
ldx #$0D
L3:
BRK_TELEMON XWR0 ; Macro
BRK_TELEMON XWR0 ; macro
inc ptr1
bne L1
inc ptr1+1
jmp L1
; No error, return count
; No error, return count
L9: lda ptr3
ldx ptr3+1