try to fix race condition with SpartaDOS TDLINE

1 files changed, 12 insertions, 1 deletions

diff --git a/checkmem.s b/checkmem.s
index ad67f50..fedbc25 100644
--- a/checkmem.s
+++ b/checkmem.s
@@ -122,7 +122,18 @@ gr_0:
  sta ICBAL,x
  lda #>S
  sta ICBAH,x
- jmp CIOV
+ jsr CIOV
+
+ ; save display list pointer where taipan.c's main() can find it.
+ ; this is done ASAP after the CIO call, to avoid saving the DL
+ ; after SpartaDOS's TDLINE has had a chance to modify it.
+ ; we use FR1 because the menu code in newtitle.s trashes FR0.
+ lda SDLSTL
+ sta FR1
+ lda SDLSTH
+ sta FR1+1
+
+ rts
 
 end:
  .word INITAD