Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-27 07:29:29 +00:00
Code Issues Projects Releases Wiki Activity

megademo: load in the sound chunks

Browse Source
This commit is contained in:
Vince Weaver 2018-10-28 11:32:07 -04:00
parent 16e40088e1
commit 62f53ab152
2 changed files with 91 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
megademo/megademo.s
View File

@ -27,7 +27,7 @@ apple_iie:
;===================
jsr HOME
jsr rocket_takeoff
; jsr rocket_takeoff
; C64 Opening Sequence

91
megademo/megaload.s
View File

@ -19,7 +19,8 @@
tmptrk = $fe ; temporary copy of current track
phase = $ff ; current phase for /seek
dirbuf = $1e00 ; note, don't put this immediately below
dirbuf = $e00
;$1e00 ; note, don't put this immediately below
; the value being read as destaddr-4
; is temporarily overwritten during read
; process
@ -31,6 +32,69 @@
start:
jsr init ; unhook DOS, init nibble table
;======================
; Language card! READ ROM, WRITE RAM, $D000 bank 1
lda $c089
lda $c089
; open and read a file
lda #<md000_filename
sta namlo
lda #>md000_filename
sta namhi
jsr opendir ; open and read entire file into memory
; copy 12k from $4000 to $d000
ldy #0
yloop:
ldx #0
xloop:
xloop_smc1:
lda $4000,X
xloop_smc2:
sta $D000,X
inx
bne xloop
iny
inc xloop_smc1+2
inc xloop_smc2+2
cpy #48
bne yloop
; open and read a file
lda #<md000x2_filename
sta namlo
lda #>md000x2_filename
sta namhi
jsr opendir ; open and read entire file into memory
; Language card! READ ROM, WRITE RAM, $D000 bank 2
lda $c081
lda $c081
; copy 4k from $4000 to $d000
ldy #0
yloop2:
ldx #0
xloop2:
xloop2_smc1:
lda $4000,X
xloop2_smc2:
sta $D000,X
inx
bne xloop2
iny
inc xloop2_smc1+2
inc xloop2_smc2+2
cpy #16
bne yloop2
; open and read a file
lda #<megademo_filename
sta namlo
@ -38,6 +102,13 @@ start:
sta namhi
jsr opendir ; open and read entire file into memory
; open and read a file
lda #<m1000_filename
sta namlo
lda #>m1000_filename
sta namhi
jsr opendir ; open and read entire file into memory
; open and read a file
lda #<c64_filename
sta namlo
@ -61,6 +132,24 @@ c64_filename: ;.byte "C64.IMG "
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
.byte $A0,$A0,$A0,$A0,$A0,$A0
m1000_filename: ;.byte "MUSIC.1000 "
.byte 'M'|$80,'U'|$80,'S'|$80,'I'|$80,'C'|$80,'.'|$80,'1'|$80,'0'|$80
.byte '0'|$80,'0'|$80,$A0,$A0,$A0,$A0,$A0,$A0
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
.byte $A0,$A0,$A0,$A0,$A0,$A0
md000_filename: ;.byte "MUSIC.D000 "
.byte 'M'|$80,'U'|$80,'S'|$80,'I'|$80,'C'|$80,'.'|$80,'D'|$80,'0'|$80
.byte '0'|$80,'0'|$80,$A0,$A0,$A0,$A0,$A0,$A0
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
.byte $A0,$A0,$A0,$A0,$A0,$A0
md000x2_filename: ;.byte "MUSIC.D000X2 "
.byte 'M'|$80,'U'|$80,'S'|$80,'I'|$80,'C'|$80,'.'|$80,'D'|$80,'0'|$80
.byte '0'|$80,'0'|$80,'X'|$80,'2'|$80,$A0,$A0,$A0,$A0
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
.byte $A0,$A0,$A0,$A0,$A0,$A0
;unhook DOS and build nibble table