From be6706ab0b2df53bc1cc9e8492a84698e1fd0f1c Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sun, 28 Feb 2016 05:05:56 -0500
Subject: try to fix race condition with SpartaDOS TDLINE

---
 checkmem.s | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'checkmem.s')

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
-- 
cgit v1.2.3