peasant: intro more or less done

This commit is contained in:
Vince Weaver 2021-08-11 15:58:10 -04:00
parent 0d1f5cc0e6
commit 9d17167758

View File

@ -37,9 +37,9 @@ hgr_display:
; Y=0, A=0 after this called ; Y=0, A=0 after this called
; HGR_PAGE=$40 ; HGR_PAGE=$40
lda #$40
sta DISP_PAGE
lda #$20 lda #$20
sta DISP_PAGE
lda #$40
sta DRAW_PAGE sta DRAW_PAGE
;************************ ;************************
@ -105,11 +105,15 @@ done_page:
iny iny
jmp animation_loop lda KEYPRESS
bpl animation_loop
; jmp animation_loop
done_loop: done_loop:
jsr wait_until_keypress ; jsr wait_until_keypress
bit KEYRESET
rts rts
@ -117,111 +121,123 @@ done_loop:
; jmp forever ; jmp forever
animation_low: animation_low:
.byte <title_anim01_lzsa .byte <videlectrix_lzsa
; .byte <title_anim01_lzsa
.byte <title_anim02_lzsa .byte <title_anim02_lzsa
.byte <title_anim03_lzsa .byte <title_anim03_lzsa
.byte <title_anim04_lzsa ; .byte <title_anim04_lzsa
.byte <title_anim05_lzsa .byte <title_anim05_lzsa
.byte <title_anim06_lzsa ; .byte <title_anim06_lzsa
.byte <title_anim07_lzsa .byte <title_anim07_lzsa
.byte <title_anim08_lzsa ; .byte <title_anim08_lzsa
.byte <title_anim09_lzsa .byte <title_anim09_lzsa
.byte <title_anim10_lzsa ; .byte <title_anim10_lzsa
.byte <title_anim11_lzsa .byte <title_anim11_lzsa
.byte <title_anim12_lzsa ; .byte <title_anim12_lzsa
.byte <title_anim13_lzsa .byte <title_anim13_lzsa
.byte <title_anim14_lzsa ; .byte <title_anim14_lzsa
.byte <title_anim15_lzsa .byte <title_anim15_lzsa
.byte <title_anim16_lzsa ; .byte <title_anim16_lzsa
.byte <title_anim17_lzsa .byte <title_anim17_lzsa
.byte <title_anim18_lzsa ; .byte <title_anim18_lzsa
.byte <title_anim19_lzsa .byte <title_anim19_lzsa
.byte <title_anim20_lzsa ; .byte <title_anim20_lzsa
.byte <title_anim21_lzsa .byte <title_anim21_lzsa
.byte <title_anim22_lzsa ; .byte <title_anim22_lzsa
.byte <title_anim23_lzsa .byte <title_anim23_lzsa
.byte <title_anim24_lzsa ; .byte <title_anim24_lzsa
.byte <title_anim25_lzsa .byte <title_anim25_lzsa
.byte <title_anim26_lzsa ; .byte <title_anim26_lzsa
.byte <title_anim27_lzsa .byte <title_anim27_lzsa
.byte <title_anim28_lzsa ; .byte <title_anim28_lzsa
.byte <title_anim29_lzsa .byte <title_anim29_lzsa
.byte <title_anim30_lzsa .byte <title_anim30_lzsa
.byte <title_anim31_lzsa .byte <title_anim31_lzsa
.byte <title_anim32_lzsa .byte <title_anim32_lzsa
.byte <title_anim33_lzsa .byte <title_anim33_lzsa
.byte <title_anim33_lzsa
.byte <title_anim33_lzsa
.byte <title_anim34_lzsa
.byte <title_anim34_lzsa .byte <title_anim34_lzsa
animation_high: animation_high:
.byte >title_anim01_lzsa .byte >videlectrix_lzsa
; .byte >title_anim01_lzsa
.byte >title_anim02_lzsa .byte >title_anim02_lzsa
.byte >title_anim03_lzsa .byte >title_anim03_lzsa
.byte >title_anim04_lzsa ; .byte >title_anim04_lzsa
.byte >title_anim05_lzsa .byte >title_anim05_lzsa
.byte >title_anim06_lzsa ; .byte >title_anim06_lzsa
.byte >title_anim07_lzsa .byte >title_anim07_lzsa
.byte >title_anim08_lzsa ; .byte >title_anim08_lzsa
.byte >title_anim09_lzsa .byte >title_anim09_lzsa
.byte >title_anim10_lzsa ; .byte >title_anim10_lzsa
.byte >title_anim11_lzsa .byte >title_anim11_lzsa
.byte >title_anim12_lzsa ; .byte >title_anim12_lzsa
.byte >title_anim13_lzsa .byte >title_anim13_lzsa
.byte >title_anim14_lzsa ; .byte >title_anim14_lzsa
.byte >title_anim15_lzsa .byte >title_anim15_lzsa
.byte >title_anim16_lzsa ; .byte >title_anim16_lzsa
.byte >title_anim17_lzsa .byte >title_anim17_lzsa
.byte >title_anim18_lzsa ; .byte >title_anim18_lzsa
.byte >title_anim19_lzsa .byte >title_anim19_lzsa
.byte >title_anim20_lzsa ; .byte >title_anim20_lzsa
.byte >title_anim21_lzsa .byte >title_anim21_lzsa
.byte >title_anim22_lzsa ; .byte >title_anim22_lzsa
.byte >title_anim23_lzsa .byte >title_anim23_lzsa
.byte >title_anim24_lzsa ; .byte >title_anim24_lzsa
.byte >title_anim25_lzsa .byte >title_anim25_lzsa
.byte >title_anim26_lzsa ; .byte >title_anim26_lzsa
.byte >title_anim27_lzsa .byte >title_anim27_lzsa
.byte >title_anim28_lzsa ; .byte >title_anim28_lzsa
.byte >title_anim29_lzsa .byte >title_anim29_lzsa
.byte >title_anim30_lzsa .byte >title_anim30_lzsa
.byte >title_anim31_lzsa .byte >title_anim31_lzsa
.byte >title_anim32_lzsa .byte >title_anim32_lzsa
.byte >title_anim33_lzsa .byte >title_anim33_lzsa
.byte >title_anim33_lzsa
.byte >title_anim33_lzsa
.byte >title_anim34_lzsa
.byte >title_anim34_lzsa .byte >title_anim34_lzsa
delays: delays:
.byte 1 ; 1 .byte 1 ; title
; .byte 1 ; 1
.byte 1 ; 2 .byte 1 ; 2
.byte 1 ; 3 .byte 1 ; 3
.byte 1 ; 4 ; .byte 1 ; 4
.byte 1 ; 5 .byte 1 ; 5
.byte 1 ; 6 ; .byte 1 ; 6
.byte 1 ; 7 .byte 1 ; 7
.byte 1 ; 8 ; .byte 1 ; 8
.byte 1 ; 9 .byte 1 ; 9
.byte 1 ; 10 ; .byte 1 ; 10
.byte 1 ; 11 .byte 1 ; 11
.byte 1 ; 12 ; .byte 1 ; 12
.byte 1 ; 13 .byte 1 ; 13
.byte 1 ; 14 ; .byte 1 ; 14
.byte 1 ; 15 .byte 1 ; 15
.byte 1 ; 16 ; .byte 1 ; 16
.byte 1 ; 17 .byte 1 ; 17
.byte 1 ; 18 ; .byte 1 ; 18
.byte 1 ; 19 .byte 1 ; 19
.byte 1 ; 20 ; .byte 1 ; 20
.byte 1 ; 21 .byte 1 ; 21
.byte 1 ; 22 ; .byte 1 ; 22
.byte 1 ; 23 .byte 1 ; 23
.byte 1 ; 24 ; .byte 1 ; 24
.byte 1 ; 25 .byte 1 ; 25
.byte 1 ; 26 ; .byte 1 ; 26
.byte 1 ; 27 .byte 1 ; 27
.byte 1 ; 28 ; .byte 1 ; 28
.byte 1 ; 29 .byte 1 ; 29
.byte 1 ; 30 .byte 1 ; 30
.byte 1 ; 31 .byte 1 ; 31
.byte 1 ; 32 .byte 1 ; 32
.byte 1 ; 33 .byte 1 ; 33
.byte 1 ; 33
.byte 1 ; 33
.byte 1 ; 34
.byte 1 ; 34 .byte 1 ; 34
.byte $FF .byte $FF
@ -231,6 +247,6 @@ delays:
;.include "decompress_overlay.s" ;.include "decompress_overlay.s"
.include "hgr_overlay.s" .include "hgr_overlay.s"
.include "wait_keypress.s" ;.include "wait_keypress.s"
.include "graphics_intro/intro_graphics.inc" .include "graphics_intro/intro_graphics.inc"