From 7d412a05b2eb563f268d81387be0dacd1b77cac2 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sat, 2 Jan 2016 21:35:39 -0500
Subject: leave title screen showing while loading (not quite right yet)

---
 newtitle.s | 41 ++++++++++++++++++++++++-----------------
 1 file changed, 24 insertions(+), 17 deletions(-)

(limited to 'newtitle.s')

diff --git a/newtitle.s b/newtitle.s
index ae54481..f52ac57 100644
--- a/newtitle.s
+++ b/newtitle.s
@@ -5,16 +5,19 @@
  .include "atari.inc"
 
  ; where our screen was loaded (see newtitle.pl)
-screendata = $3000
+screendata = $9000
 
  ; homebrew atari xex header
  .word $ffff
- .word start
+ .word version
  .word end-1
 
- .org $5000 ; anywhere that doesn't step on the title data at
-            ; $3000, and doesn't cross a 1K boundary (since there's
-            ; a display list included here)
+ ; needs to be above the BSS (see taipan.map). we'll place it right at
+ ; the end of screendata.
+ .org $a800
+
+version:
+ .incbin "ver.dat"
 
  ; executable code here
 start:
@@ -60,18 +63,20 @@ wait4key:
  sta CH
 
  ; restore OS's display list
- lda #0
- sta SDMCTL ; disable screen again
- lda FR0
- sta SDLSTL
- lda FR0+1
- sta SDLSTH
+ ;lda #0
+ ;sta SDMCTL ; disable screen again
+ ;lda FR0
+ ;sta SDLSTL
+ ;lda FR0+1
+ ;sta SDLSTH
 
- jsr wait1jiffy
+ ;jsr wait1jiffy
 
- ; switch to normal playfield, enable screen
- lda #$22
- sta SDMCTL
+ ; switch to normal playfield, enable screen. this is now
+ ; done in atari_text_setup() in taipan.c, so the title screen
+ ; can keep displaying.
+ ;lda #$22
+ ;sta SDMCTL
 
  rts ; return to DOS
 
@@ -87,7 +92,7 @@ dlist:
  .byte $70 ; 24 scanlines of blanks
  .byte $70
  .byte $70
- .byte $30 ; 4 more since image is only 184 lines tall
+; .byte $30 ; 4 more since image is only 184 lines tall
 
  .byte $0f | $40 ; LMS, BASIC mode 8
  .word screendata
@@ -100,7 +105,9 @@ dlist:
  .repeat 55
   .byte $0f ; 55 more scanlines of mode 8
  .endrepeat
- .byte $30 ; blank 4 lines to match GR.8 (does it even matter?)
+; .byte $30 ; blank 4 lines to match GR.8 (does it even matter?)
+ .byte $02 | $40 ; LMS, 1 line of GR.0 for the version
+ .word version
  .byte $41 ; JVB, jump & wait for vblank
  .word dlist
 
-- 
cgit v1.2.3