1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-24 11:31:31 +00:00
cc65/libsrc/telestrat/write.s

88 lines
1.8 KiB
ArmAsm
Raw Normal View History

2016-12-14 20:22:10 +00:00
;
; jede jede@oric.org 2017-01-22
2016-12-14 20:22:10 +00:00
.export _write
.import popax, popptr1
2016-12-14 20:22:10 +00:00
2022-04-23 22:39:04 +00:00
.include "zeropage.inc"
.include "telestrat.inc"
2016-12-14 20:22:10 +00:00
; int write (int fd, const void* buf, int count);
2016-12-14 20:22:10 +00:00
.proc _write
sta ptr3
stx ptr3+1 ; save count as result
2020-11-01 21:59:07 +00:00
inx
stx ptr2+1
tax
inx
stx ptr2 ; save count with each byte incremented separately
2016-12-14 20:22:10 +00:00
jsr popptr1 ; get buf
2022-04-23 22:39:04 +00:00
jsr popax ; get fd
sta tmp1 ; save fd
2017-02-01 23:05:50 +00:00
; if fd=0001 then it stdout
2019-02-05 22:27:52 +00:00
cpx #0
beq next
jmp L1
next:
cmp #1
beq L1
; here it's a file opened
2019-02-05 22:27:52 +00:00
lda ptr1
sta PTR_READ_DEST
lda ptr1+1
sta PTR_READ_DEST+1
lda ptr3
ldy ptr3+1
2022-04-23 22:39:04 +00:00
ldx tmp1 ; send fd in X
2017-02-01 23:05:50 +00:00
BRK_TELEMON XFWRITE
; compute nb of bytes written
2019-02-05 22:27:52 +00:00
lda PTR_READ_DEST+1
sec
sbc ptr1+1
2019-02-05 22:27:52 +00:00
tax
lda PTR_READ_DEST
sec
sbc ptr1
2017-02-01 23:05:50 +00:00
rts
2019-02-05 22:27:52 +00:00
2020-11-01 21:59:07 +00:00
L1: dec ptr2
2016-12-14 20:22:10 +00:00
bne L2
2020-11-01 21:59:07 +00:00
dec ptr2+1
2016-12-14 20:22:10 +00:00
beq L9
L2: ldy #0
lda (ptr1),y
tax
cpx #$0A ; check for \n
2016-12-14 20:22:10 +00:00
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
2019-02-05 22:27:52 +00:00
2016-12-14 20:22:10 +00:00
ldx #$0D
2019-02-05 22:27:52 +00:00
L3:
BRK_TELEMON XWR0 ; macro
2016-12-14 20:22:10 +00:00
inc ptr1
bne L1
inc ptr1+1
jmp L1
2022-04-23 22:39:04 +00:00
; no error, return count
2016-12-14 20:22:10 +00:00
L9: lda ptr3
ldx ptr3+1
rts
.endproc