second: missing file

This commit is contained in:
Vince Weaver 2023-10-23 01:02:51 -04:00
parent 5c3e3e91ec
commit c52b42f3c2

104
demos/second/start2.s Normal file
View File

@ -0,0 +1,104 @@
; 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
;=======================
lda #1 ; THREED
sta WHICH_LOAD
jsr load_file
cli ; start music
jmp $4000 ; TODO: paramaterize
forever:
jmp forever
.include "pt3_lib_mockingboard_patch.s"
.include "hardware_detect.s"