TGI Implementation

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

View File

@@ -13,9 +13,8 @@ _tgi_done:
beq @L1 ; Jump if not
jsr tgi_done ; Call the driver routine
jsr tgi_fetch_error ; Get the error code
lda _tgi_error ; Did we have an error?
bne @L1 ; Jump if yes
sta _tgi_mode ; Reset the current mode
bne @L1 ; Jump if we had an error
sta _tgi_mode ; Reset the current mode (A = 0)
@L1: rts