2023-10-23 05:02:51 +00:00
|
|
|
; startup for disk2
|
|
|
|
|
|
|
|
|
|
;
|
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
|
|
|
|
|
|
;.include "zp.inc"
|
|
|
|
|
;.include "hardware.inc"
|
|
|
|
|
;.include "qload.inc"
|
|
|
|
|
.include "music.inc"
|
|
|
|
|
|
|
|
|
|
second_start:
|
|
|
|
|
;=====================
|
|
|
|
|
; initializations
|
|
|
|
|
;=====================
|
|
|
|
|
|
|
|
|
|
jsr hardware_detect
|
|
|
|
|
|
|
|
|
|
;===================
|
|
|
|
|
; restart?
|
|
|
|
|
;===================
|
|
|
|
|
restart:
|
|
|
|
|
lda #0
|
|
|
|
|
sta DRAW_PAGE
|
|
|
|
|
|
|
|
|
|
;==================================
|
|
|
|
|
; load sound into the language card
|
|
|
|
|
; into $D000 set 1
|
|
|
|
|
;==================================
|
|
|
|
|
|
|
|
|
|
; read/write RAM, use $d000 bank1
|
|
|
|
|
bit $C083
|
|
|
|
|
bit $C083
|
|
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
|
sta WHICH_LOAD
|
|
|
|
|
|
|
|
|
|
jsr load_file
|
|
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
|
sta DONE_PLAYING
|
|
|
|
|
|
|
|
|
|
lda #1
|
|
|
|
|
sta LOOP
|
|
|
|
|
|
|
|
|
|
; patch mockingboard
|
|
|
|
|
|
|
|
|
|
jsr mockingboard_patch ; patch to work in slots other than 4?
|
|
|
|
|
|
|
|
|
|
;=======================
|
|
|
|
|
; Set up 50Hz interrupt
|
|
|
|
|
;========================
|
|
|
|
|
|
|
|
|
|
jsr mockingboard_init
|
|
|
|
|
jsr mockingboard_setup_interrupt
|
|
|
|
|
|
|
|
|
|
;============================
|
|
|
|
|
; Init the Mockingboard
|
|
|
|
|
;============================
|
|
|
|
|
|
|
|
|
|
jsr reset_ay_both
|
|
|
|
|
jsr clear_ay_both
|
|
|
|
|
|
|
|
|
|
;==================
|
|
|
|
|
; init song
|
|
|
|
|
;==================
|
|
|
|
|
|
|
|
|
|
jsr pt3_init_song
|
|
|
|
|
|
|
|
|
|
dont_enable_mc:
|
|
|
|
|
|
|
|
|
|
skip_all_checks:
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;===================
|
|
|
|
|
; Load graphics
|
|
|
|
|
;===================
|
|
|
|
|
load_loop:
|
|
|
|
|
|
|
|
|
|
bit SET_GR
|
|
|
|
|
; bit HIRES
|
|
|
|
|
bit FULLGR
|
|
|
|
|
bit PAGE1
|
|
|
|
|
|
|
|
|
|
;=======================
|
|
|
|
|
; load
|
|
|
|
|
;=======================
|
|
|
|
|
|
2023-10-24 05:56:32 +00:00
|
|
|
; lda #1 ; THREED
|
|
|
|
|
lda #2 ; CREDITS
|
2023-10-23 05:02:51 +00:00
|
|
|
sta WHICH_LOAD
|
|
|
|
|
|
|
|
|
|
jsr load_file
|
|
|
|
|
|
|
|
|
|
cli ; start music
|
|
|
|
|
|
2023-10-24 05:56:32 +00:00
|
|
|
; jmp $4000 ; TODO: paramaterize
|
|
|
|
|
jmp $6000 ; TODO: paramaterize
|
2023-10-23 05:02:51 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
forever:
|
|
|
|
|
jmp forever
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.include "pt3_lib_mockingboard_patch.s"
|
|
|
|
|
|
|
|
|
|
.include "hardware_detect.s"
|
