aboutsummaryrefslogtreecommitdiff
path: root/newtitle.s
diff options
context:
space:
mode:
authorB. Watson <yalhcru@gmail.com>2016-01-02 21:35:39 -0500
committerB. Watson <yalhcru@gmail.com>2016-01-02 21:35:39 -0500
commit7d412a05b2eb563f268d81387be0dacd1b77cac2 (patch)
treecb8d2c1a5356a2f83d21f3eebcef6d7edf3b3da0 /newtitle.s
parentd3395e701c2a14d30508a7f36c84be620ff2261a (diff)
downloadtaipan-7d412a05b2eb563f268d81387be0dacd1b77cac2.tar.gz
leave title screen showing while loading (not quite right yet)
Diffstat (limited to 'newtitle.s')
-rw-r--r--newtitle.s41
1 files changed, 24 insertions, 17 deletions
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