dos33fsprogs/games/ootw/intro/intro.s

;==========================
; OOTW -- The Famous Intro
;==========================

.include "../zp.inc"
.include "../hardware.inc"

intro:
	lda	#0
	sta	INTRO_REPEAT		; by default, don't repeat
	bit	KEYRESET		; clear keyboard buffer

repeat_intro:
	;===========================
	; Enable graphics

	bit	LORES			; 40x40 lo-res
	bit	SET_GR
	bit	FULLGR			; full screen

	;===========================
	; Setup pages

	lda	#4			; page to draw
	sta	DRAW_PAGE
	lda	#0			; page to display
	sta	DISP_PAGE

;	jmp	tunnel1			; debug, skip ahead

	;===============================
	; Opening scene with car

	jsr	intro_01_building

	;===============================
	; Walking to door

	jsr	intro_02_outer_door

	;===============================
	; Elevator

	jsr	intro_03_elevator

	;===============================
	; Keypad

	jsr	intro_04_keypad

	;===============================
	; Scanner

	jsr	intro_05_scanner

	;===============================
	; Nuclear Physics, part 1

	jsr	intro_06_console_part1

	;===============================
	; Drinking some Soda

	jsr	intro_07_soda

	;===============================
	; Nuclear Physics, part 2

	jsr	intro_06_console_part2

	;===============================
	; Lightning outside

	jsr	intro_08_lightning

	;===============================
	; Down in the tunnels

	jsr	intro_09_tunnel

	;===============================
	; Zapped

	jsr	intro_10_gone


	; see if R pressed, if so, repeat
	; otherwise, return and indicate we want to start the game

	lda	KEYPRESS
	bpl	check_repeat	; if no keypress, jump ahead

	and	#$7f		; clear high bit

	cmp	#'R'
	bne	check_repeat

	lda	INTRO_REPEAT
	eor	#$1
	sta	INTRO_REPEAT


check_repeat:
	bit	KEYRESET	; reset keyboard strobe
	lda	INTRO_REPEAT
	beq	done_intro

	jmp	repeat_intro

done_intro:
	lda	#1		; start game
	sta	WHICH_LOAD

	rts


.include "../gr_pageflip.s"
;.include "../gr_unrle.s"
;.include "../lz4_decode.s"
.include "../decompress_fast_v2.s"
.include "../gr_copy.s"
.include "../gr_offsets.s"
.include "../gr_overlay.s"
.include "../gr_vlin.s"
.include "../gr_plot.s"
.include "../gr_fast_clear.s"
.include "../gr_putsprite.s"
.include "../text_print.s"
.include "../gr_run_sequence.s"


	;========================
	; load all the sub-parts
	;========================

	.include "intro_01_building.s"
	.include "intro_02_outer_door.s"
	.include "intro_03_elevator.s"
	.include "intro_04_keypad.s"
	.include "intro_05_scanner.s"
	.include "intro_06_console.s"
	.include "intro_07_soda.s"
	.include "intro_08_lightning.s"
	.include "intro_09_tunnel.s"
	.include "intro_10_gone.s"
intro: break off part1 2021-03-23 02:05:03 +00:00			`;==========================`
			`; OOTW -- The Famous Intro`
			`;==========================`
ootw: start adding intro 2019-01-27 02:27:20 +00:00
ootw: re-optimizing the intro with LZSA 2021-03-23 01:24:43 +00:00			`.include "../zp.inc"`
			`.include "../hardware.inc"`
ootw: update intro 2019-01-27 02:52:00 +00:00
ootw: start adding intro 2019-01-27 02:27:20 +00:00			`intro:`
ootw: intro: allow continuing to game 2019-03-03 19:05:00 +00:00			`lda #0`
ootw: re-optimizing the intro with LZSA 2021-03-23 01:24:43 +00:00			`sta INTRO_REPEAT ; by default, don't repeat`
			`bit KEYRESET ; clear keyboard buffer`
ootw: start adding intro 2019-01-27 02:27:20 +00:00
ootw: intro: allow continuing to game 2019-03-03 19:05:00 +00:00			`repeat_intro:`
ootw: update intro 2019-01-27 02:52:00 +00:00			`;===========================`
			`; Enable graphics`

ootw: re-optimizing the intro with LZSA 2021-03-23 01:24:43 +00:00			`bit LORES ; 40x40 lo-res`
ootw: update intro 2019-01-27 02:52:00 +00:00			`bit SET_GR`
ootw: re-optimizing the intro with LZSA 2021-03-23 01:24:43 +00:00			`bit FULLGR ; full screen`
ootw: update intro 2019-01-27 02:52:00 +00:00
			`;===========================`
ootw: add support for "overlay" on top of background also now the RLE format supports color A, just less efficiently 2019-02-03 05:55:45 +00:00			`; Setup pages`
ootw: update intro 2019-01-27 02:52:00 +00:00
ootw: re-optimizing the intro with LZSA 2021-03-23 01:24:43 +00:00			`lda #4 ; page to draw`
ootw: update intro 2019-01-27 02:52:00 +00:00			`sta DRAW_PAGE`
ootw: re-optimizing the intro with LZSA 2021-03-23 01:24:43 +00:00			`lda #0 ; page to display`
ootw: update intro 2019-01-27 02:52:00 +00:00			`sta DISP_PAGE`

ootw: re-optimizing the intro with LZSA 2021-03-23 01:24:43 +00:00			`; jmp tunnel1 ; debug, skip ahead`
ootw: intro, lots of elevator work 2019-02-06 04:46:31 +00:00
intro: break off part1 2021-03-23 02:05:03 +00:00			`;===============================`
			`; Opening scene with car`
ootw: intro: more work, diminishing returns 2019-03-01 21:31:10 +00:00
intro: break off part1 2021-03-23 02:05:03 +00:00			`jsr intro_01_building`
ootw: add support for "overlay" on top of background also now the RLE format supports color A, just less efficiently 2019-02-03 05:55:45 +00:00
ootw: intro: more splitting up 2021-03-23 02:26:56 +00:00			`;===============================`
			`; Walking to door`
ootw: off the elevator now 2019-02-06 05:32:54 +00:00
ootw: intro: more splitting up 2021-03-23 02:26:56 +00:00			`jsr intro_02_outer_door`
ootw: off the elevator now 2019-02-06 05:32:54 +00:00
ootw: intro: more splitting up 2021-03-23 02:26:56 +00:00			`;===============================`
			`; Elevator`
ootw: intro: fine tuning a bit 2019-03-02 16:42:59 +00:00
ootw: intro: more splitting up 2021-03-23 02:26:56 +00:00			`jsr intro_03_elevator`
ootw: add more intro pictures 2019-01-27 05:20:20 +00:00
ootw: intro: split off keypad 2021-03-23 02:39:48 +00:00			`;===============================`
			`; Keypad`
ootw: update door opening 2019-02-13 04:19:49 +00:00
ootw: intro: split off keypad 2021-03-23 02:39:48 +00:00			`jsr intro_04_keypad`
ootw: update door opening 2019-02-13 04:19:49 +00:00
ootw: intro: split off scanner 2021-03-23 02:48:39 +00:00			`;===============================`
			`; Scanner`
ootw: update door opening 2019-02-13 04:19:49 +00:00
ootw: intro: split off scanner 2021-03-23 02:48:39 +00:00			`jsr intro_05_scanner`
ootw: intro: fine tuning a bit 2019-03-02 16:42:59 +00:00
ootw: intro: split off console 2021-03-23 02:58:32 +00:00			`;===============================`
			`; Nuclear Physics, part 1`
ootw: update intro 2019-01-27 02:52:00 +00:00
ootw: intro: split off console 2021-03-23 02:58:32 +00:00			`jsr intro_06_console_part1`
ootw: intro: looking good, up to the storm 2019-03-02 17:07:03 +00:00
ootw: intro: split off soda 2021-03-23 03:02:27 +00:00			`;===============================`
			`; Drinking some Soda`
ootw: update intro 2019-01-27 02:52:00 +00:00
ootw: intro: split off soda 2021-03-23 03:02:27 +00:00			`jsr intro_07_soda`
ootw: intro: more work, diminishing returns 2019-03-01 21:31:10 +00:00
ootw: intro: split off console 2021-03-23 02:58:32 +00:00			`;===============================`
			`; Nuclear Physics, part 2`
ootw: intro: all accelerator stuff done 2019-02-18 19:31:26 +00:00
ootw: intro: split off console 2021-03-23 02:58:32 +00:00			`jsr intro_06_console_part2`
ootw: more intro additions 2019-01-27 17:42:52 +00:00
ootw: intro: split off lightning 2021-03-23 03:06:58 +00:00			`;===============================`
			`; Lightning outside`
ootw: intro: split out gr_make_quake saved 100 bytes 2019-03-01 16:53:56 +00:00
ootw: intro: split off lightning 2021-03-23 03:06:58 +00:00			`jsr intro_08_lightning`
ootw: intro: some fine tuning also working on some of text segments 2019-02-16 18:54:09 +00:00
ootw: intro: break off tunnel 2021-03-23 03:12:51 +00:00			`;===============================`
			`; Down in the tunnels`
ootw: intro: more work, diminishing returns 2019-03-01 21:31:10 +00:00
ootw: intro: break off tunnel 2021-03-23 03:12:51 +00:00			`jsr intro_09_tunnel`
ootw: add more intro pictures 2019-01-27 05:20:20 +00:00
ootw: intro: split off last part 2021-03-23 03:16:36 +00:00			`;===============================`
			`; Zapped`
ootw: intro: re-arrange the size hack a bit 2019-03-01 21:41:44 +00:00
ootw: intro: split off last part 2021-03-23 03:16:36 +00:00			`jsr intro_10_gone`
ootw: intro: allow continuing to game 2019-03-03 19:05:00 +00:00

			`; see if R pressed, if so, repeat`
			`; otherwise, return and indicate we want to start the game`

ootw: add more intro pictures 2019-01-27 05:20:20 +00:00			`lda KEYPRESS`
ootw: intro: allow continuing to game 2019-03-03 19:05:00 +00:00			`bpl check_repeat ; if no keypress, jump ahead`

			`and #$7f ; clear high bit`

			`cmp #'R'`
			`bne check_repeat`

			`lda INTRO_REPEAT`
			`eor #$1`
			`sta INTRO_REPEAT`


			`check_repeat:`
			`bit KEYRESET ; reset keyboard strobe`
			`lda INTRO_REPEAT`
			`beq done_intro`

			`jmp repeat_intro`
ootw: intro: re-arrange the size hack a bit 2019-03-01 21:41:44 +00:00
ootw: intro: allow continuing to game 2019-03-03 19:05:00 +00:00			`done_intro:`
			`lda #1 ; start game`
			`sta WHICH_LOAD`
ootw: update intro 2019-01-27 02:52:00 +00:00
ootw: start adding intro 2019-01-27 02:27:20 +00:00			`rts`

ootw: intro: more work, diminishing returns 2019-03-01 21:31:10 +00:00
ootw: re-optimizing the intro with LZSA 2021-03-23 01:24:43 +00:00			`.include "../gr_pageflip.s"`
			`;.include "../gr_unrle.s"`
			`;.include "../lz4_decode.s"`
			`.include "../decompress_fast_v2.s"`
			`.include "../gr_copy.s"`
			`.include "../gr_offsets.s"`
			`.include "../gr_overlay.s"`
			`.include "../gr_vlin.s"`
			`.include "../gr_plot.s"`
			`.include "../gr_fast_clear.s"`
			`.include "../gr_putsprite.s"`
			`.include "../text_print.s"`
ootw: more lzsa: c2 done, fits on floppy again 2021-03-24 15:25:26 +00:00			`.include "../gr_run_sequence.s"`
ootw: intro: up to soda working now 2019-02-18 18:04:02 +00:00

intro: break off part1 2021-03-23 02:05:03 +00:00			`;========================`
			`; load all the sub-parts`
			`;========================`

			`.include "intro_01_building.s"`
ootw: intro: more splitting up 2021-03-23 02:26:56 +00:00			`.include "intro_02_outer_door.s"`
			`.include "intro_03_elevator.s"`
ootw: intro: split off keypad 2021-03-23 02:39:48 +00:00			`.include "intro_04_keypad.s"`
ootw: intro: split off scanner 2021-03-23 02:48:39 +00:00			`.include "intro_05_scanner.s"`
ootw: intro: split off console 2021-03-23 02:58:32 +00:00			`.include "intro_06_console.s"`
ootw: intro: split off soda 2021-03-23 03:02:27 +00:00			`.include "intro_07_soda.s"`
ootw: intro: split off lightning 2021-03-23 03:06:58 +00:00			`.include "intro_08_lightning.s"`
ootw: intro: break off tunnel 2021-03-23 03:12:51 +00:00			`.include "intro_09_tunnel.s"`
ootw: intro: split off last part 2021-03-23 03:16:36 +00:00			`.include "intro_10_gone.s"`