Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-07-13 22:29:14 +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
.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

2
demosplash/demosplash.s
View File

@ -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"

37
demosplash/escape.s
View File

@ -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 GBASL
lda #>earth_low
sta GBASH
; lda #<earth_low
; sta GBASL
; 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 GBASL
lda #>earth_high
sta GBASH
lda #$c ; load to $c00
jsr load_rle_gr
; lda #<earth_high
; sta GBASL
; 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_text2
sta OUTL
@ -1424,7 +1429,7 @@ asteroid_inc_after:
score_text2:
.byte 0,0
.asciiz "LEVEL:3 LIVES:1 SCORE:000000 HI:001978"
.asciiz "LEVEL:3 LIVES:1 SCORE:000000 HI:001978 "
score_before:
.assert >score_before = >score_after, error, "score crosses page"