6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-07-04 13:29:35 +00:00
Code Issues Projects Releases Wiki Activity

Better cleanup on program exit on atarixl target

Browse Source
This commit is contained in:
Christian Groessler 2013-06-13 01:17:53 +02:00
parent 7eca62f8e4
commit e621ca0cce
1 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
libsrc/atari/crt0.s
View File

@ -18,7 +18,9 @@
.import __RAM_START__, __RAM_SIZE__
.import zpsave
.import sram_init
.if .defined(__ATARIXL__)
.import scrdev
.endif
.include "zeropage.inc"
.include "atari.inc"
@ -167,6 +169,8 @@ _exit: jsr donelib ; Run module destructors
lda PORTB_save
sta PORTB
lda RAMTOP_save
sta RAMTOP
lda MEMTOP_save
sta MEMTOP
lda MEMTOP_save+1
@ -175,6 +179,33 @@ _exit: jsr donelib ; Run module destructors
sta APPMHI
lda APPMHI_save+1
sta APPMHI+1
; ... issue a GRAPHICS 0 call (copied'n'pasted from TGI drivers)
ldx #$50 ; take any IOCB, hopefully free (@@@ fixme)
; Reopen it in Graphics 0
lda #OPEN
sta ICCOM,x
lda #OPNIN | OPNOT
sta ICAX1,x
lda #0
sta ICAX2,x
lda #<scrdev
sta ICBAL,x
lda #>scrdev
sta ICBAH,x
lda #3
sta ICBLL,x
lda #0
sta ICBLH,x
jsr CIOV_org
.endif