2 ; jede jede@oric.org 2017-01-22
6 .importzp ptr1, ptr2, ptr3, tmp1
8 .include "telestrat.inc"
10 ; int write (int fd, const void* buf, int count);
14 stx ptr3+1 ; save count as result
20 sta ptr2+1 ; remember -count-1
25 jsr popax ; get fd and discard
27 ; if fd=0001 then it stdout
35 ; here it's a file opened
43 ; compute nb of bytes written
63 cpx #$0A ; check for \n
65 BRK_TELEMON XWR0 ; macro send char to screen (channel 0 in telemon terms)
66 lda #$0D ; return to the beggining of the line
67 BRK_TELEMON XWR0 ; macro
72 BRK_TELEMON XWR0 ; macro
79 ; No error, return count