bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

remove TABs

Browse Source
This commit is contained in:
Christian Groessler
2019-02-05 23:27:52 +01:00
parent 2190703a57
commit 58484449b4
21 changed files with 164 additions and 169 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
libsrc/telestrat/write.s
View File

@@ -23,34 +23,34 @@
jsr popax ; get fd and discard
; if fd=0001 then it stdout
cpx #0
beq next
jmp L1
next:
cmp #1
beq L1
cpx #0
beq next
jmp L1
next:
cmp #1
beq L1
; here it's a file opened
lda ptr1
sta PTR_READ_DEST
lda ptr1+1
sta PTR_READ_DEST+1
lda ptr3
ldy ptr3+1
lda ptr1
sta PTR_READ_DEST
lda ptr1+1
sta PTR_READ_DEST+1
lda ptr3
ldy ptr3+1
BRK_TELEMON XFWRITE
; compute nb of bytes written
lda PTR_READ_DEST+1
sec
sbc ptr1+1
tax
tax
lda PTR_READ_DEST
sec
sbc ptr1
rts
L1: inc ptr2
bne L2
inc ptr2+1
@@ -63,10 +63,10 @@ L2: ldy #0
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:
L3:
BRK_TELEMON XWR0 ; macro
inc ptr1
@@ -81,5 +81,3 @@ L9: lda ptr3
rts
.endproc