dos33fsprogs/games/peasant/vid_logo.s

; Videlectrix Intro

; o/~ Make Good Graphics o/~

; HGR is a pain

; by Vince `deater` Weaver	vince@deater.net

; with apologies to everyone

.include "hardware.inc"

NIBCOUNT	= $09
GBASL		= $26
GBASH		= $27
CURSOR_X	= $62
CURSOR_Y	= $63
HGR_COLOR	= $E4
HGR_PAGE	= $E6
DISP_PAGE	= $F0
DRAW_PAGE	= $F1

;P0      = $F1
;P1      = $F2
;P2      = $F3
;P3      = $F4
;P4      = $F5
;P5      = $F6

INL		= $FC
INH		= $FD
OUTL		= $FE
OUTH		= $FF


hgr_display:
	jsr	HGR2		; Hi-res graphics, no text at bottom
				; Y=0, A=0 after this called
				; HGR_PAGE=$40

	lda	#$20
	sta	DISP_PAGE
	lda	#$40
	sta	DRAW_PAGE

	;************************
	; Intro
	;************************


	; Load logo offscreen at $9000

	lda	#<(videlectrix_lzsa)
	sta	getsrc_smc+1
	lda	#>(videlectrix_lzsa)
	sta	getsrc_smc+2

	lda	#$90

	jsr	decompress_lzsa2_fast

;	jsr	wait_until_keypress


	ldy	#0
animation_loop:

	lda	DRAW_PAGE
	cmp	#$40
	beq	show_page2

show_page1:
	bit	PAGE1
	lda	#$40
	bne	done_page	; bra

show_page2:
	bit	PAGE2
	lda	#$20

done_page:
	sta	DRAW_PAGE
	eor	#$60
	sta	DISP_PAGE


	lda	delays,Y
	bmi	done_loop

	lda	animation_low,Y
	sta	getsrc_smc+1
	lda	animation_high,Y
	sta	getsrc_smc+2

	tya
	pha

	lda	DRAW_PAGE

	jsr	decompress_lzsa2_fast

	jsr	hgr_overlay

	pla
	tay

	iny

	lda	KEYPRESS
	bpl	animation_loop

;	jmp	animation_loop

done_loop:

;	jsr	wait_until_keypress
	bit	KEYRESET

	rts

;forever:
;	jmp	forever

animation_low:
	.byte	<videlectrix_lzsa
;	.byte	<title_anim01_lzsa
	.byte	<title_anim02_lzsa
	.byte	<title_anim03_lzsa
;	.byte	<title_anim04_lzsa
	.byte	<title_anim05_lzsa
;	.byte	<title_anim06_lzsa
	.byte	<title_anim07_lzsa
;	.byte	<title_anim08_lzsa
	.byte	<title_anim09_lzsa
;	.byte	<title_anim10_lzsa
	.byte	<title_anim11_lzsa
;	.byte	<title_anim12_lzsa
	.byte	<title_anim13_lzsa
;	.byte	<title_anim14_lzsa
	.byte	<title_anim15_lzsa
;	.byte	<title_anim16_lzsa
	.byte	<title_anim17_lzsa
;	.byte	<title_anim18_lzsa
	.byte	<title_anim19_lzsa
;	.byte	<title_anim20_lzsa
	.byte	<title_anim21_lzsa
;	.byte	<title_anim22_lzsa
	.byte	<title_anim23_lzsa
;	.byte	<title_anim24_lzsa
	.byte	<title_anim25_lzsa
;	.byte	<title_anim26_lzsa
	.byte	<title_anim27_lzsa
;	.byte	<title_anim28_lzsa
	.byte	<title_anim29_lzsa
	.byte	<title_anim30_lzsa
	.byte	<title_anim31_lzsa
	.byte	<title_anim32_lzsa
	.byte	<title_anim33_lzsa
	.byte	<title_anim33_lzsa
	.byte	<title_anim33_lzsa
	.byte	<title_anim34_lzsa
	.byte	<title_anim34_lzsa

animation_high:
	.byte	>videlectrix_lzsa
;	.byte	>title_anim01_lzsa
	.byte	>title_anim02_lzsa
	.byte	>title_anim03_lzsa
;	.byte	>title_anim04_lzsa
	.byte	>title_anim05_lzsa
;	.byte	>title_anim06_lzsa
	.byte	>title_anim07_lzsa
;	.byte	>title_anim08_lzsa
	.byte	>title_anim09_lzsa
;	.byte	>title_anim10_lzsa
	.byte	>title_anim11_lzsa
;	.byte	>title_anim12_lzsa
	.byte	>title_anim13_lzsa
;	.byte	>title_anim14_lzsa
	.byte	>title_anim15_lzsa
;	.byte	>title_anim16_lzsa
	.byte	>title_anim17_lzsa
;	.byte	>title_anim18_lzsa
	.byte	>title_anim19_lzsa
;	.byte	>title_anim20_lzsa
	.byte	>title_anim21_lzsa
;	.byte	>title_anim22_lzsa
	.byte	>title_anim23_lzsa
;	.byte	>title_anim24_lzsa
	.byte	>title_anim25_lzsa
;	.byte	>title_anim26_lzsa
	.byte	>title_anim27_lzsa
;	.byte	>title_anim28_lzsa
	.byte	>title_anim29_lzsa
	.byte	>title_anim30_lzsa
	.byte	>title_anim31_lzsa
	.byte	>title_anim32_lzsa
	.byte	>title_anim33_lzsa
	.byte	>title_anim33_lzsa
	.byte	>title_anim33_lzsa
	.byte	>title_anim34_lzsa
	.byte	>title_anim34_lzsa

delays:
	.byte	1	; title
;	.byte	1	; 1
	.byte	1	; 2
	.byte	1	; 3
;	.byte	1	; 4
	.byte	1	; 5
;	.byte	1	; 6
	.byte	1	; 7
;	.byte	1	; 8
	.byte	1	; 9
;	.byte	1	; 10
	.byte	1	; 11
;	.byte	1	; 12
	.byte	1	; 13
;	.byte	1	; 14
	.byte	1	; 15
;	.byte	1	; 16
	.byte	1	; 17
;	.byte	1	; 18
	.byte	1	; 19
;	.byte	1	; 20
	.byte	1	; 21
;	.byte	1	; 22
	.byte	1	; 23
;	.byte	1	; 24
	.byte	1	; 25
;	.byte	1	; 26
	.byte	1	; 27
;	.byte	1	; 28
	.byte	1	; 29
	.byte	1	; 30
	.byte	1	; 31
	.byte	1	; 32
	.byte	1	; 33
	.byte	1	; 33
	.byte	1	; 33
	.byte	1	; 34
	.byte	1	; 34
	.byte	$FF


.include "decompress_fast_v2.s"
.include "hgr_overlay.s"

;.include "wait_keypress.s"

.include "graphics_vid/vid_graphics.inc"
peasant: add opening animation 2021-08-11 03:43:30 +00:00			`; Videlectrix Intro`

peasant: rename all the rest tested it seems to work again 2021-08-14 19:01:59 +00:00			`; o/~ Make Good Graphics o/~`

peasant: add opening animation 2021-08-11 03:43:30 +00:00			`; HGR is a pain`

			; by Vince `deater` Weaver vince@deater.net

			`; with apologies to everyone`

			`.include "hardware.inc"`

			`NIBCOUNT = $09`
			`GBASL = $26`
			`GBASH = $27`
			`CURSOR_X = $62`
			`CURSOR_Y = $63`
			`HGR_COLOR = $E4`
peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00			`HGR_PAGE = $E6`
			`DISP_PAGE = $F0`
			`DRAW_PAGE = $F1`

peasant: only save part of hires screen trying to avoid peasant flicker, seems to be improved 2021-08-16 05:31:49 +00:00			`;P0 = $F1`
			`;P1 = $F2`
			`;P2 = $F3`
			`;P3 = $F4`
			`;P4 = $F5`
			`;P5 = $F6`
peasant: add opening animation 2021-08-11 03:43:30 +00:00
			`INL = $FC`
			`INH = $FD`
			`OUTL = $FE`
			`OUTH = $FF`



			`hgr_display:`
			`jsr HGR2 ; Hi-res graphics, no text at bottom`
			`; Y=0, A=0 after this called`
peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00			`; HGR_PAGE=$40`

			`lda #$20`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`sta DISP_PAGE`
			`lda #$40`
peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00			`sta DRAW_PAGE`
peasant: add opening animation 2021-08-11 03:43:30 +00:00
			`;************************`
peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00			`; Intro`
peasant: add opening animation 2021-08-11 03:43:30 +00:00			`;************************`

peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00
			`; Load logo offscreen at $9000`

peasant: add opening animation 2021-08-11 03:43:30 +00:00			`lda #<(videlectrix_lzsa)`
			`sta getsrc_smc+1`
			`lda #>(videlectrix_lzsa)`
			`sta getsrc_smc+2`

peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00			`lda #$90`
peasant: add opening animation 2021-08-11 03:43:30 +00:00
			`jsr decompress_lzsa2_fast`

peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00			`; jsr wait_until_keypress`
peasant: add opening animation 2021-08-11 03:43:30 +00:00
peasant: load everything again 2021-08-11 04:41:29 +00:00
			`ldy #0`
			`animation_loop:`

peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00			`lda DRAW_PAGE`
			`cmp #$40`
			`beq show_page2`

			`show_page1:`
			`bit PAGE1`
			`lda #$40`
			`bne done_page ; bra`

			`show_page2:`
			`bit PAGE2`
			`lda #$20`

			`done_page:`
			`sta DRAW_PAGE`
			`eor #$60`
			`sta DISP_PAGE`


peasant: load everything again 2021-08-11 04:41:29 +00:00			`lda delays,Y`
			`bmi done_loop`

			`lda animation_low,Y`
			`sta getsrc_smc+1`
			`lda animation_high,Y`
			`sta getsrc_smc+2`

			`tya`
			`pha`

peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00			`lda DRAW_PAGE`
peasant: load everything again 2021-08-11 04:41:29 +00:00
			`jsr decompress_lzsa2_fast`

peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00			`jsr hgr_overlay`

peasant: load everything again 2021-08-11 04:41:29 +00:00			`pla`
			`tay`

			`iny`

peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`lda KEYPRESS`
			`bpl animation_loop`

			`; jmp animation_loop`
peasant: load everything again 2021-08-11 04:41:29 +00:00
			`done_loop:`
peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; jsr wait_until_keypress`
			`bit KEYRESET`
peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00
peasant: load everything again 2021-08-11 04:41:29 +00:00			`rts`

			`;forever:`
			`; jmp forever`

			`animation_low:`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`.byte <videlectrix_lzsa`
			`; .byte <title_anim01_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim02_lzsa`
			`.byte <title_anim03_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim04_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim05_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim06_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim07_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim08_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim09_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim10_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim11_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim12_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim13_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim14_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim15_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim16_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim17_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim18_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim19_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim20_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim21_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim22_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim23_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim24_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim25_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim26_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim27_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte <title_anim28_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim29_lzsa`
			`.byte <title_anim30_lzsa`
			`.byte <title_anim31_lzsa`
			`.byte <title_anim32_lzsa`
			`.byte <title_anim33_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`.byte <title_anim33_lzsa`
			`.byte <title_anim33_lzsa`
			`.byte <title_anim34_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte <title_anim34_lzsa`

			`animation_high:`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`.byte >videlectrix_lzsa`
			`; .byte >title_anim01_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim02_lzsa`
			`.byte >title_anim03_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim04_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim05_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim06_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim07_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim08_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim09_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim10_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim11_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim12_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim13_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim14_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim15_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim16_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim17_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim18_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim19_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim20_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim21_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim22_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim23_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim24_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim25_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim26_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim27_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte >title_anim28_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim29_lzsa`
			`.byte >title_anim30_lzsa`
			`.byte >title_anim31_lzsa`
			`.byte >title_anim32_lzsa`
			`.byte >title_anim33_lzsa`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`.byte >title_anim33_lzsa`
			`.byte >title_anim33_lzsa`
			`.byte >title_anim34_lzsa`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte >title_anim34_lzsa`

			`delays:`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`.byte 1 ; title`
			`; .byte 1 ; 1`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 2`
			`.byte 1 ; 3`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 4`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 5`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 6`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 7`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 8`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 9`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 10`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 11`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 12`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 13`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 14`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 15`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 16`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 17`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 18`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 19`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 20`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 21`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 22`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 23`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 24`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 25`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 26`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 27`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`; .byte 1 ; 28`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 29`
			`.byte 1 ; 30`
			`.byte 1 ; 31`
			`.byte 1 ; 32`
			`.byte 1 ; 33`
peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`.byte 1 ; 33`
			`.byte 1 ; 33`
			`.byte 1 ; 34`
peasant: load everything again 2021-08-11 04:41:29 +00:00			`.byte 1 ; 34`
			`.byte $FF`

peasant: add opening animation 2021-08-11 03:43:30 +00:00

			`.include "decompress_fast_v2.s"`
peasant: intro animation works, but is really slow 2021-08-11 19:49:03 +00:00			`.include "hgr_overlay.s"`

peasant: intro more or less done 2021-08-11 19:58:10 +00:00			`;.include "wait_keypress.s"`
peasant: add opening animation 2021-08-11 03:43:30 +00:00
peasant: re-arrange stuff in case I make this actually playable 2021-08-14 18:04:46 +00:00			`.include "graphics_vid/vid_graphics.inc"`