the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

TGI Implementation

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1315 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2002-06-21 16:25:56 +00:00
parent 7fc24b058a
commit 579e1ae267
14 changed files with 149 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
libsrc/tgi/tgi_init.s
View File

@@ -14,11 +14,12 @@
_tgi_init:
pha ; Save mode
jsr _tgi_done ; Switch off graphics if needed
jsr tgi_init ; Initialize the mode
pla
sta _tgi_mode ; Remember the mode
jsr tgi_init ; Go into graphics mode
jsr tgi_fetch_error ; Get the error code
pla ; Restore the mode
ldx _tgi_error ; Did we have an error before?
bne @L1 ; Jump if yes
sta _tgi_mode ; Set the current mode if not
beq @L1 ; Jump if no error
lda #$00
sta _tgi_mode ; Clear the mode if init was not successful
@L1: rts