git.sur5r.net Git - cc65/blob - libsrc/atari/dioqsize.s

   1 ;
   2 ; Christian Groessler, February 2005
   3 ;
   4 ; unsigned __fastcall__ dio_query_sectsize(dhandle_t handle);
   5 ;
   6
   7         .include        "atari.inc"
   8         .export         _dio_query_sectsize
   9         .importzp       ptr1,tmp1
  10         .import         popax, __oserror
  11
  12 .proc   _dio_query_sectsize
  13
  14         sta     ptr1            ; handle
  15         stx     ptr1+1
  16
  17         lda     #0
  18         sta     __oserror
  19
  20         ldy     #sst_sectsize+1
  21         lda     (ptr1),y
  22         tax
  23         dey
  24         lda     (ptr1),y
  25         rts
  26
  27 .endproc