outline: final tuning?

This commit is contained in:
Vince Weaver 2021-05-11 23:22:37 -04:00
parent 4c1b8ce25b
commit 71ff74f01f
3 changed files with 22 additions and 2 deletions

View File

@ -87,6 +87,8 @@ another_sequence:
.byte 128+70; .word spaceship_switch_n
.byte 128+70; .word spaceship_door_n
.byte 128+100; .word spaceship_door_open
.byte 25
.word spaceship_switch_n_lzsa
.byte 255 ; load to bg
.word spaceship_far_n_lzsa
.byte 80

View File

@ -26,6 +26,8 @@
credits:
lda #0
sta DRAW_PAGE
jsr clear_bottom
@ -36,6 +38,13 @@ credits:
sta LOGO_OFFSET
sta FRAME
;=================
; pause a bit
ldx #50
jsr long_wait
lda #1 ; default is 1
sta HGR_SCALE
@ -399,7 +408,7 @@ next_credit:
write_credits:
lda which_credit
cmp #8
cmp #9
beq done_credits
ldx #4
@ -457,6 +466,7 @@ credits_address:
.word $750+12
credits_table:
.word credits0
.word credits1
.word credits2
.word credits3
@ -467,6 +477,11 @@ credits_table:
.word credits8
credits0:
.byte " "
.byte " "
.byte " "
credits1:
.byte " CODE: "
.byte " "

View File

@ -5,6 +5,9 @@ rocket_away:
jsr HGR2 ; Hi-res graphics, no text at bottom
; Y=0, A=0 after this called
lda #1
sta DISP_PAGE
lda #<(outline_space_lzsa)
sta getsrc_smc+1
lda #>(outline_space_lzsa)
@ -165,7 +168,7 @@ herase_xloop:
donedone:
; jmp donedone
ldx #50
ldx #150
jsr long_wait
rts