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

   1 ;
   2 ; Ullrich von Bassewitz, 21.06.2002
   3 ;
   4 ; void __fastcall__ 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         jsr     tgi_geterror            ; Get the error code
  16         sta     _tgi_error              ; Save it for reference
  17         cmp     #TGI_ERR_OK
  18         bne     @L1                     ; Jump if we had an error
  19         sta     _tgi_gmode              ; Reset the graph mode flag (A = 0)
  20 @L1:    rts
  21
  22 .endproc
  23