mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-28 02:55:03 +00:00
329 lines
5.7 KiB
ArmAsm
329 lines
5.7 KiB
ArmAsm
;==========================
|
|
; 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
|
|
|
|
|
|
|
|
;===============================
|
|
;===============================
|
|
; Thunderstorm Outside
|
|
;===============================
|
|
;===============================
|
|
|
|
|
|
thunderstorm:
|
|
|
|
lda #<(intro_building_car_lzsa)
|
|
sta getsrc_smc+1 ; LZSA_SRC_LO
|
|
lda #>(intro_building_car_lzsa)
|
|
sta getsrc_smc+2 ; LZSA_SRC_HI
|
|
|
|
lda #$c ; load to off-screen $c00
|
|
jsr decompress_lzsa2_fast
|
|
|
|
jsr gr_copy_to_current
|
|
jsr page_flip
|
|
bit FULLGR
|
|
|
|
lda #<lightning_sequence
|
|
sta INTRO_LOOPL
|
|
lda #>lightning_sequence
|
|
sta INTRO_LOOPH
|
|
|
|
jsr run_sequence
|
|
|
|
lda #<bolt_sequence
|
|
sta INTRO_LOOPL
|
|
lda #>bolt_sequence
|
|
sta INTRO_LOOPH
|
|
|
|
jsr run_sequence
|
|
|
|
;outside_loop:
|
|
; lda KEYPRESS
|
|
; bpl outside_loop
|
|
; bit KEYRESET
|
|
|
|
|
|
;===============================
|
|
;===============================
|
|
; Tunnel 1
|
|
;===============================
|
|
;===============================
|
|
|
|
tunnel1:
|
|
|
|
lda #<(tunnel1_lzsa)
|
|
sta getsrc_smc+1 ; LZSA_SRC_LO
|
|
lda #>(tunnel1_lzsa)
|
|
sta getsrc_smc+2 ; LZSA_SRC_HI
|
|
|
|
lda #$c ; load to off-screen $c00
|
|
jsr decompress_lzsa2_fast
|
|
|
|
jsr gr_copy_to_current
|
|
jsr page_flip
|
|
|
|
lda #<tunnel1_sequence
|
|
sta INTRO_LOOPL
|
|
lda #>tunnel1_sequence
|
|
sta INTRO_LOOPH
|
|
|
|
jsr run_sequence
|
|
|
|
|
|
;tunnel1_loop:
|
|
; lda KEYPRESS
|
|
; bpl tunnel1_loop
|
|
; bit KEYRESET
|
|
|
|
|
|
|
|
;===============================
|
|
;===============================
|
|
; Tunnel 2
|
|
;===============================
|
|
;===============================
|
|
|
|
|
|
;=============================
|
|
; Load background to $c00
|
|
|
|
lda #<(tunnel2_lzsa)
|
|
sta getsrc_smc+1 ; LZSA_SRC_LO
|
|
lda #>(tunnel2_lzsa)
|
|
sta getsrc_smc+2 ; LZSA_SRC_HI
|
|
|
|
lda #$c ; load to off-screen $c00
|
|
jsr decompress_lzsa2_fast
|
|
|
|
jsr gr_copy_to_current
|
|
jsr page_flip
|
|
|
|
lda #<tunnel2_sequence
|
|
sta INTRO_LOOPL
|
|
lda #>tunnel2_sequence
|
|
sta INTRO_LOOPH
|
|
|
|
jsr run_sequence
|
|
|
|
|
|
;tunnel2_loop:
|
|
; lda KEYPRESS
|
|
; bpl tunnel2_loop
|
|
; bit KEYRESET
|
|
|
|
|
|
|
|
;===============================
|
|
;===============================
|
|
; Zappo / Gone
|
|
;===============================
|
|
;===============================
|
|
|
|
;=========================
|
|
; zappo
|
|
|
|
lda #<(blue_zappo_lzsa)
|
|
sta getsrc_smc+1 ; LZSA_SRC_LO
|
|
lda #>(blue_zappo_lzsa)
|
|
sta getsrc_smc+2 ; LZSA_SRC_HI
|
|
|
|
lda #$c ; load to off-screen $c00
|
|
jsr decompress_lzsa2_fast
|
|
|
|
jsr gr_copy_to_current
|
|
jsr page_flip
|
|
|
|
lda #<zappo_sequence
|
|
sta INTRO_LOOPL
|
|
lda #>zappo_sequence
|
|
sta INTRO_LOOPH
|
|
|
|
jsr run_sequence
|
|
|
|
;======================
|
|
; gone
|
|
|
|
lda #<(gone_lzsa)
|
|
sta getsrc_smc+1 ; LZSA_SRC_LO
|
|
lda #>(gone_lzsa)
|
|
sta getsrc_smc+2 ; LZSA_SRC_HI
|
|
|
|
lda #$c ; load to off-screen $c00
|
|
jsr decompress_lzsa2_fast
|
|
|
|
jsr gr_copy_to_current
|
|
jsr page_flip
|
|
|
|
lda #<gone_sequence
|
|
sta INTRO_LOOPL
|
|
lda #>gone_sequence
|
|
sta INTRO_LOOPH
|
|
|
|
|
|
jsr run_sequence
|
|
|
|
;======================
|
|
; Pause a bit
|
|
|
|
ldx #180
|
|
jsr long_wait
|
|
|
|
;gone_loop:
|
|
; lda KEYPRESS
|
|
; bpl gone_loop
|
|
; bit KEYRESET
|
|
|
|
; 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"
|
|
|
|
|
|
DATA_LOCATION = $9000
|
|
|
|
; intro8
|
|
.if 0
|
|
bolt_sequence = (DATA_LOCATION+$1484)
|
|
lightning_sequence = (DATA_LOCATION+$13D2)
|
|
building_car_lzsa = (DATA_LOCATION+$1259)
|
|
.endif
|
|
intro8_data_lzsa:
|
|
; .incbin "intro_data_08.lzsa"
|
|
.include "intro_data_08.s"
|
|
|
|
; intro9, intro10
|
|
.if 0
|
|
gone_sequence = (DATA_LOCATION+$2C66)
|
|
gone_lzsa = (DATA_LOCATION+$2039)
|
|
zappo_sequence = (DATA_LOCATION+$2C1B)
|
|
blue_zappo_lzsa = (DATA_LOCATION+$1737)
|
|
tunnel2_sequence = (DATA_LOCATION+$1718)
|
|
tunnel2_lzsa = (DATA_LOCATION+$0B0F)
|
|
tunnel1_sequence = (DATA_LOCATION+$16F2)
|
|
tunnel1_lzsa = (DATA_LOCATION+$0000)
|
|
.endif
|
|
intro9_data_lzsa:
|
|
; .incbin "intro_data_09.lzsa"
|
|
.include "intro_data_09.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"
|