git.sur5r.net Git - cc65/blob - libsrc/geos-cbm/disk/dio_write.s

   1 ;
   2 ; 2001-07-02, Maciej 'YTM/Elysium' Witkowiak
   3 ; 2015-08-27, Greg King
   4 ;
   5 ; this file provides the _dio_write function
   6 ;
   7 ; unsigned char __fastcall__ dio_write (dhandle_t handle, unsigned sect_num, const void *buffer);
   8 ;
   9
  10             .export _dio_write
  11             .import dio_params, setoserror
  12
  13             .include "geossym.inc"
  14             .include "jumptab.inc"
  15
  16 _dio_write:
  17         jsr dio_params
  18         tay
  19         bne err
  20         jsr WriteBlock
  21         jmp setoserror
  22
  23 err:    rts