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

   1 ;
   2 ; Ullrich von Bassewitz, 21.06.2002
   3 ;
   4 ; void tgi_done (void);
   5 ; /* End graphics mode, switch back to text mode. Will NOT unload the driver! */
   6
   7         .include        "tgi-kernel.inc"
   8         .include        "tgi-error.inc"
   9
  10 .proc   _tgi_done
  11
  12         lda     _tgi_gmode              ; Is a graphics mode active?
  13         beq     @L1                     ; Jump if not
  14         jsr     tgi_done                ; Call the driver routine
  15         lda     #$00
  16         sta     _tgi_gmode              ; Reset the graph mode flag
  17 @L1:    rts
  18
  19 .endproc