Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2025-03-27 04:31:01 +00:00
Code Issues Projects Releases Wiki Activity

close any open files on re-enter

Browse Source
This commit is contained in:
Peter Ferrie 2018-11-11 18:13:27 -08:00
parent d49cc0393c
commit a2e4f1f583
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/4cade.a
View File

@ -12,6 +12,7 @@ FirstMover
!pseudopc $D000 { !pseudopc $D000 {
Reenter ; self-running demos should call this to exit back to 4cade Reenter ; self-running demos should call this to exit back to 4cade
+READ_RAM1_WRITE_RAM1 +READ_RAM1_WRITE_RAM1
jsr CloseHandles ; close any open handles to restore ProRWTS state to original
Main Main
ldx #$FF ldx #$FF
txs txs

6
src/glue.prorwts2.a
View File

@ -292,7 +292,13 @@ end_promote
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
packet = $40 ;word packet = $40 ;word
buffer = $42 ;word buffer = $42 ;word
ProDOS_enter ProDOS_enter
!ifdef PASS2 {
!set CloseHandles = @imp_close
} else { ;PASS2
!set PASS2=1
}
pla pla
sta @fetchaddr+1 sta @fetchaddr+1
pla pla