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

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

38
libsrc/atari/shadow_ram_prepare.s
View File

@@ -122,7 +122,17 @@ sramprep:
; ... issue a GRAPHICS 0 call (copied'n'pasted from TGI drivers)
ldx #$50 ; take any IOCB, hopefully free (@@@ fixme)
jsr findfreeiocb
.ifdef DEBUG ; only check in debug version, this shouldn't happen normally(tm)
beq iocbok
print_string "Internal error, no free IOCB!"
jsr delay
jsr delay
jsr delay
jsr restore ; restore stuff we've changed
jmp (DOSVEC) ; abort loading
iocbok:
.endif
; Reopen it in Graphics 0
lda #OPEN
@@ -140,20 +150,18 @@ sramprep:
lda #>screen_device_length
sta ICBLH,x
jsr CIOV_org
bpl okoko
bpl scrok
; shouldn't happen(tm)
print_string "Internal error, aborting..."
jsr delay
jsr delay
jsr delay
jsr restore ; restore stuff we've changed
jmp (DOSVEC) ; abort loading
okoko:
; Now close it again; we don't need it anymore :)
scrok: ; now close it again -- we don't need it anymore
lda #CLOSE
sta ICCOM,x
jsr CIOV_org
@@ -266,6 +274,7 @@ no_copy:
.endif
rts
.include "findfreeiocb.inc"
; my 6502 fu is rusty, so I took a routine from the internet (http://www.obelisk.demon.co.uk/6502/algorithms.html)
@@ -298,6 +307,21 @@ done: rts
.endproc
; clean up after a fatal error
restore:lda RAMTOP_save
sta RAMTOP
lda MEMTOP_save
sta MEMTOP
lda MEMTOP_save+1
sta MEMTOP+1
lda APPMHI_save
sta APPMHI
lda APPMHI_save+1
sta APPMHI+1
rts
.byte "HERE ****************** HERE ***************>>>>>>"
sramsize: