use first free IOCB for "GRAPHICS 0" call instead of using a hard-coded one

This commit is contained in:
Christian Groessler
2013-06-25 01:27:47 +02:00
parent df1165e0e0
commit a03b3574b6
2 changed files with 37 additions and 12 deletions

View File

@@ -20,6 +20,7 @@
.import sram_init
.if .defined(__ATARIXL__)
.import scrdev
.import findfreeiocb
.endif
.include "zeropage.inc"
@@ -181,11 +182,9 @@ _exit: jsr donelib ; Run module destructors
sta APPMHI+1
; ... issue a GRAPHICS 0 call (copied'n'pasted from TGI drivers)
ldx #$50 ; take any IOCB, hopefully free (@@@ fixme)
jsr findfreeiocb
; Reopen it in Graphics 0
lda #OPEN
@@ -203,8 +202,10 @@ _exit: jsr donelib ; Run module destructors
lda #0
sta ICBLH,x
jsr CIOV_org
; add error checking here...
lda #CLOSE
sta ICCOM,x
jsr CIOV_org
.endif