git.sur5r.net Git - cc65/blob - libsrc/joystick/joy_unload.s

   1 ;
   2 ; Ullrich von Bassewitz, 2002-11-29
   3 ;
   4 ; unsigned char __fastcall__ joy_unload (void);
   5 ; /* Unload the currently loaded driver. */
   6
   7
   8         .include        "joy-kernel.inc"
   9         .include        "joy-error.inc"
  10         .include        "modload.inc"
  11
  12 _joy_unload:
  13         lda     _joy_drv
  14         ora     _joy_drv+1
  15         beq     no_driver               ; No driver
  16
  17         jsr     _joy_deinstall          ; Deinstall the driver
  18
  19         lda     _joy_drv
  20         ldx     _joy_drv+1
  21         jsr     _mod_free               ; Free the driver
  22
  23         lda     #0
  24         sta     _joy_drv
  25         sta     _joy_drv+1               ; Clear the driver pointer
  26
  27         tax
  28         rts                             ; Return zero
  29
  30 no_driver:
  31         tax                             ; X = 0
  32         lda     #JOY_ERR_NO_DRIVER
  33         rts
  34
  35