;
; jede jede@oric.org 2017-01-22
;

        .export         _read

        .import         popax

        .include        "zeropage.inc"
        .include        "telestrat.inc"

;int read (int fd, void* buf, unsigned count);

.proc   _read

        sta     ptr1           ; count
        stx     ptr1+1         ; count
        jsr     popax          ; get buf

        sta     PTR_READ_DEST
        stx     PTR_READ_DEST+1
        sta     ptr2           ; in order to calculate nb of bytes read
        stx     ptr2+1

        jsr     popax          ; get FD

        tax                    ; send FD to X

        lda     ptr1
        ldy     ptr1+1
        BRK_TELEMON     XFREAD
        ;  compute nb of bytes read
        sec
        lda     PTR_READ_DEST
        sbc     ptr2
        pha
        lda     PTR_READ_DEST+1
        sbc     ptr2+1
        tax
        pla

        rts
.endproc