git.sur5r.net Git - cc65/blob - libsrc/apple2/diosectsize.s

   1 ;
   2 ; Oliver Schmidt, 31.03.2005
   3 ;
   4 ; unsigned __fastcall__ dio_query_sectsize (dhandle_t handle);
   5 ;
   6
   7         .export         _dio_query_sectsize
   8
   9         .include        "errno.inc"
  10
  11 _dio_query_sectsize:
  12         ; Clear error
  13         stx     __oserror       ; X = 0
  14
  15         ; Return ProDOS 8 block size
  16         txa                     ; X = 0
  17         ldx     #>512
  18         rts