mirror of
https://github.com/cc65/cc65.git
synced 2024-12-28 22:30:12 +00:00
19 lines
416 B
ArmAsm
19 lines
416 B
ArmAsm
|
;
|
||
|
|
; Ullrich von Bassewitz, 22.06.2002
|
||
|
|
;
|
||
|
|
; void __fastcall__ tgi_setviewpage (unsigned char page);
|
||
|
|
; /* Set the visible page. */
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
.include "tgi-kernel.inc"
|
||
|
|
.export _tgi_setviewpage
|
||
|
|
|
||
|
|
_tgi_setviewpage:
|
||
|
|
cmp _tgi_pagecount ; Compare to available pages
|
||
|
|
bcs @L1
|
||
|
|
jmp tgi_setviewpage ; Call the driver
|
||
|
|
@L1: jmp tgi_inv_arg ; Invalid argument
|
||
|
|
|
||
|
|
|