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

   1 ;
   2 ; Ullrich von Bassewitz, 22.06.2002
   3 ;
   4 ; void __fastcall__ tgi_setviewpage (unsigned char page);
   5 ; /* Set the visible page. */
   6
   7
   8
   9         .include        "tgi-kernel.inc"
  10         .export         _tgi_setviewpage
  11
  12 _tgi_setviewpage:
  13         cmp     _tgi_pagecount  ; Compare to available pages
  14         bcs     @L1
  15         jmp     tgi_setviewpage ; Call the driver
  16 @L1:    jmp     tgi_inv_arg     ; Invalid argument
  17
  18