git.sur5r.net Git - cc65/blob - libsrc/telestrat/read.s

   1 ;
   2 ; jede jede@oric.org 2017-01-22
   3 ;
   4
   5     .export         _read
   6
   7     .import         popax
   8
   9     .include        "zeropage.inc"
  10     .include        "telestrat.inc"
  11
  12 ;int read (int fd, void* buf, unsigned count);
  13
  14 .proc   _read
  15     sta     ptr1 ; count
  16     stx     ptr1+1 ; count
  17     jsr     popax ; get buf
  18
  19     sta     PTR_READ_DEST
  20     stx     PTR_READ_DEST+1
  21     sta     ptr2 ; in order to calculate nb of bytes read
  22     stx     ptr2+1 ;
  23
  24     ; jsr popax ; fp pointer don't care in this version
  25
  26     lda     ptr1 ;
  27     ldy     ptr1+1 ;
  28     BRK_TELEMON     XFREAD ; calls telemon30 routine
  29     ;  compute nb of bytes read
  30     lda     PTR_READ_DEST+1
  31     sec
  32     sbc     ptr2+1
  33     tax
  34     lda     PTR_READ_DEST
  35     sec
  36     sbc     ptr2
  37     ; Here A and X contains number of bytes read
  38     rts
  39 .endproc