Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-01 05:31:52 +00:00
Code Issues Projects Releases Wiki Activity

ds: display line of text at top

Browse Source
This commit is contained in:
Vince Weaver 2019-11-06 14:59:26 -05:00
parent eb14c0239f
commit 317da073b8
3 changed files with 77 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
demosplash/create_update_type2.s
View File

@ -54,10 +54,62 @@ create_update2_inner_loop:
;BARS_START = 46 ;BARS_START = 46
.if 0
;=========================== ;===========================
; from 40 to 168?
setup_rasterbars: setup_update_type2:
; add call to TEXT
lda #$2c ; bit C051 ; 4
sta $9003
lda #$51
sta $9004
lda #$c0
sta $9005
lda #$A5 ; lda ZERO ; 3
sta $9006
lda #$FA
sta $9007
lda #$A2 ; ldx, 1 ; 3
sta $9008
lda #$01
sta $9009
; set first 9 lines to PAGE0
lda #$54
sta $9030
sta $908E
sta $90EC
sta $914A
; add call to GRAPHICS
; line 9 (91a7)
lda #$2c ; bit C051 ; 4
sta $91aa
lda #$50
sta $91ab
lda #$c0
sta $91ac
lda #$A5 ; lda ZERO ; 3
sta $91ad
lda #$FA
sta $91ae
lda #$A2 ; ldx, 1 ; 3
sta $91af
lda #$01
sta $91b0
rts
.if 0
lda #4 ; which page lda #4 ; which page
sta RASTER_PAGE sta RASTER_PAGE

2
demosplash/demosplash.s
View File

@ -240,7 +240,7 @@ wait_until_keypressed:
.include "graphics/starbase/starbase.inc" .include "graphics/starbase/starbase.inc"
.include "graphics/starbase/ship_flames.inc" .include "graphics/starbase/ship_flames.inc"
.include "graphics/starbase/star_wipe.inc" .include "graphics/starbase/star_wipe.inc"
.include "earth.inc" ;.include "earth.inc"
.include "book_40_48d.inc" .include "book_40_48d.inc"
.include "credits_bg.inc" .include "credits_bg.inc"

37
demosplash/escape.s
View File

@ -58,25 +58,28 @@ escape:
; setup graphics ; setup graphics
jsr create_update_type2 jsr create_update_type2
; jsr setup_rasterbars jsr setup_update_type2
;============================= ;=============================
; Load graphic page0 ; Load graphic page0
lda #<earth_low ; lda #<earth_low
sta GBASL ; sta GBASL
lda #>earth_low ; lda #>earth_low
sta GBASH ; sta GBASH
lda #$c ; load to $c00 ; lda #$c ; load to $c00
jsr load_rle_gr ; jsr load_rle_gr
lda #4 lda #4
sta DRAW_PAGE sta DRAW_PAGE
jsr gr_clear_all
; jsr gr_copy_to_current ; copy to page1
jsr gr_copy_to_current ; copy to page1
; GR part ; GR part
bit PAGE1 bit PAGE1
@ -87,20 +90,22 @@ escape:
;============================= ;=============================
; Load graphic page1 ; Load graphic page1
lda #<earth_high ; lda #<earth_high
sta GBASL ; sta GBASL
lda #>earth_high ; lda #>earth_high
sta GBASH ; sta GBASH
lda #$c ; load to $c00 ; lda #$c ; load to $c00
jsr load_rle_gr ; jsr load_rle_gr
lda #0 lda #0
sta DRAW_PAGE sta DRAW_PAGE
jsr gr_clear_all
jsr gr_copy_to_current ; jsr gr_copy_to_current
lda #8 lda #8
sta DRAW_PAGE sta DRAW_PAGE
jsr gr_clear_all
lda #<score_text2 lda #<score_text2
sta OUTL sta OUTL
@ -1424,7 +1429,7 @@ asteroid_inc_after:
score_text2: score_text2:
.byte 0,0 .byte 0,0
.asciiz "LEVEL:3 LIVES:1 SCORE:000000 HI:001978" .asciiz "LEVEL:3 LIVES:1 SCORE:000000 HI:001978 "
score_before: score_before:
.assert >score_before = >score_after, error, "score crosses page" .assert >score_before = >score_after, error, "score crosses page"