git.sur5r.net Git - cc65/blob - libsrc/tgi/tgi_unload.s

   1 ;
   2 ; Ullrich von Bassewitz, 21.06.2002
   3 ;
   4 ; void __fastcall__ tgi_unload (void);
   5 ; /* Unload the currently loaded driver. */
   6
   7
   8         .include        "tgi-kernel.inc"
   9         .include        "modload.inc"
  10
  11         .import         tgi_clear_ptr
  12
  13 .proc   _tgi_unload
  14
  15         jsr     _tgi_done               ; Switch off graphics
  16         jsr     tgi_uninstall           ; Allow the driver to clean up
  17
  18         lda     _tgi_drv
  19         ldx     _tgi_drv+1
  20         jsr     _mod_free               ; Free the driver
  21
  22         jmp     tgi_clear_ptr           ; Clear the driver pointer and exit
  23
  24 .endproc
  25