mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-29 00:31:52 +00:00
182 lines
2.8 KiB
ArmAsm
182 lines
2.8 KiB
ArmAsm
; Peasant's Quest II
|
|
|
|
; maybe, well, not really
|
|
|
|
;
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
.include "zp.inc"
|
|
.include "hardware.inc"
|
|
|
|
mod7_table = $1c00
|
|
div7_table = $1d00
|
|
hposn_low = $1e00
|
|
hposn_high = $1f00
|
|
|
|
PT3_LOC = song
|
|
|
|
pq2_start:
|
|
;=====================
|
|
; initializations
|
|
;=====================
|
|
|
|
;===================
|
|
; Load graphics
|
|
;===================
|
|
|
|
bit SET_GR
|
|
bit HIRES
|
|
bit FULLGR
|
|
bit PAGE1
|
|
|
|
jsr hgr_make_tables
|
|
|
|
lda #0
|
|
jsr hgr_page1_clearscreen
|
|
|
|
;===========================
|
|
; set up music
|
|
;===========================
|
|
|
|
lda #0
|
|
sta DONE_PLAYING
|
|
lda #1
|
|
sta LOOP ; change to 1 to loop forever
|
|
|
|
|
|
jsr mockingboard_detect
|
|
jsr mockingboard_patch
|
|
|
|
jsr mockingboard_init
|
|
jsr mockingboard_setup_interrupt
|
|
|
|
jsr reset_ay_both
|
|
jsr clear_ay_both
|
|
|
|
jsr pt3_init_song
|
|
|
|
cli
|
|
|
|
|
|
|
|
;======================================
|
|
;======================================
|
|
; Pan
|
|
;======================================
|
|
;======================================
|
|
; do we have room to do page flipping?
|
|
|
|
|
|
;===========================================
|
|
; load left logo to $2000 and right to $4000
|
|
|
|
; left logo
|
|
|
|
lda #<intro_left_data
|
|
sta zx_src_l+1
|
|
|
|
lda #>intro_left_data
|
|
sta zx_src_h+1
|
|
|
|
lda #$20
|
|
|
|
jsr zx02_full_decomp
|
|
|
|
; right logo
|
|
|
|
lda #<intro_right_data
|
|
sta zx_src_l+1
|
|
lda #>intro_right_data
|
|
sta zx_src_h+1
|
|
lda #$40
|
|
jsr zx02_full_decomp
|
|
|
|
;==============================
|
|
; do the pan
|
|
;==============================
|
|
|
|
jsr horiz_pan
|
|
|
|
; wait a bit
|
|
|
|
jsr wait_until_keypress
|
|
|
|
|
|
;============================
|
|
; load dialog1 to PAGE1
|
|
;============================
|
|
|
|
lda #<dialog1_data
|
|
sta zx_src_l+1
|
|
lda #>dialog1_data
|
|
sta zx_src_h+1
|
|
lda #$20
|
|
jsr zx02_full_decomp
|
|
|
|
jsr wait_until_keypress
|
|
|
|
;============================
|
|
; load dialog2 to PAGE1
|
|
;============================
|
|
|
|
lda #<dialog2_data
|
|
sta zx_src_l+1
|
|
lda #>dialog2_data
|
|
sta zx_src_h+1
|
|
lda #$20
|
|
jsr zx02_full_decomp
|
|
|
|
jsr wait_until_keypress
|
|
|
|
|
|
|
|
|
|
done_intro:
|
|
jmp done_intro
|
|
|
|
|
|
;.align $100
|
|
.include "wait_keypress.s"
|
|
.include "zx02_optim.s"
|
|
.include "hgr_table.s"
|
|
.include "hgr_clear_screen.s"
|
|
.include "horiz_scroll.s"
|
|
.include "hgr_partial.s"
|
|
; .include "../hgr_page_flip.s"
|
|
|
|
; .include "../irq_wait.s"
|
|
|
|
|
|
intro_left_data:
|
|
.incbin "graphics/pq2_bgl.hgr.zx02"
|
|
intro_right_data:
|
|
.incbin "graphics/pq2_bgr.hgr.zx02"
|
|
|
|
dialog1_data:
|
|
.incbin "graphics/pq2_dialog1.hgr.zx02"
|
|
dialog2_data:
|
|
.incbin "graphics/pq2_dialog2.hgr.zx02"
|
|
|
|
.include "pt3_lib_core.s"
|
|
.include "pt3_lib_init.s"
|
|
.include "pt3_lib_mockingboard_setup.s"
|
|
.include "interrupt_handler.s"
|
|
; if you're self patching, detect has to be after interrupt_handler.s
|
|
.include "pt3_lib_mockingboard_detect.s"
|
|
|
|
|
|
|
|
.if 0
|
|
board_desty:
|
|
.byte 17,17,71,33,84
|
|
board_y_start:
|
|
.byte 0,38,93,110,177
|
|
board_y_end:
|
|
.byte 36,92,108,176,191
|
|
.endif
|
|
|
|
.align 256
|
|
|
|
song:
|
|
.incbin "mA2E_tune1.pt3"
|