diff --git a/demosplash/create_update_type2.s b/demosplash/create_update_type2.s index ed5525fd..1dcbd626 100644 --- a/demosplash/create_update_type2.s +++ b/demosplash/create_update_type2.s @@ -54,10 +54,62 @@ create_update2_inner_loop: ;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 sta RASTER_PAGE diff --git a/demosplash/demosplash.s b/demosplash/demosplash.s index 97df2adb..b8b053c3 100644 --- a/demosplash/demosplash.s +++ b/demosplash/demosplash.s @@ -240,7 +240,7 @@ wait_until_keypressed: .include "graphics/starbase/starbase.inc" .include "graphics/starbase/ship_flames.inc" .include "graphics/starbase/star_wipe.inc" -.include "earth.inc" +;.include "earth.inc" .include "book_40_48d.inc" .include "credits_bg.inc" diff --git a/demosplash/escape.s b/demosplash/escape.s index 0dc3e6ac..e0d0c4ed 100644 --- a/demosplash/escape.s +++ b/demosplash/escape.s @@ -58,25 +58,28 @@ escape: ; setup graphics jsr create_update_type2 -; jsr setup_rasterbars + jsr setup_update_type2 ;============================= ; Load graphic page0 - lda #earth_low - sta GBASH +; lda #earth_low +; sta GBASH - lda #$c ; load to $c00 - jsr load_rle_gr +; lda #$c ; load to $c00 +; jsr load_rle_gr lda #4 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 bit PAGE1 @@ -87,20 +90,22 @@ escape: ;============================= ; Load graphic page1 - lda #earth_high - sta GBASH - lda #$c ; load to $c00 - jsr load_rle_gr +; lda #earth_high +; sta GBASH +; lda #$c ; load to $c00 +; jsr load_rle_gr lda #0 sta DRAW_PAGE + jsr gr_clear_all - jsr gr_copy_to_current +; jsr gr_copy_to_current lda #8 sta DRAW_PAGE + jsr gr_clear_all lda #score_before = >score_after, error, "score crosses page"