d6
/
kodiak
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 5 Wiki Activity

basic music is working

This commit is contained in:
~d6 2024-08-02 01:05:33 -04:00
parent 2e155a9a2c
commit 2280d2a48e
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
kodiak.tal
View File

@ -85,7 +85,8 @@
;square .Audio0/addr DEO2 ( ; square wave ) ;square .Audio0/addr DEO2 ( ; square wave )
#77 .Audio0/vol DEO ( ; about 50% volume ) #77 .Audio0/vol DEO ( ; about 50% volume )
( #00 .Audio0/pitch DEO ( start ) ) ( once testing is over should this default to off? )
start-audio
reset BRK reset BRK
@ -433,13 +434,14 @@
#00 .audio STZ #00 .Audio0/pitch DEO JMP2r #00 .audio STZ #00 .Audio0/pitch DEO JMP2r
@start-audio ( -> ) @start-audio ( -> )
#01 .audio STZ #0000 .audio/pos STZ2 !play-audio #0000 .audio/pos #01 .audio STZ STZ2 !play-audio
@play-audio ( -> ) @play-audio ( -> )
.audio/pos LDZ2 ( pos* ) .audio/pos LDZ2 ( pos* )
;music OVR2 ADD2 LDA ( pos* pitch^ ) ;music OVR2 ADD2 LDA ( pos* pitch^ )
.Audio0/pitch DEO ( pos* ) .Audio0/pitch DEO ( pos* )
INC2 #0007 AND2 ( ) ( TODO: compute this dynamically using `;music/end ;music INC2 SUB2` )
INC2 #003f AND2 ( )
.audio/pos STZ2 JMP2r ( ) .audio/pos STZ2 JMP2r ( )
@on-audio ( -> brk ) @on-audio ( -> brk )
@ -915,4 +917,8 @@
( 6c 6d 6e 6f 70 71 72 73 74 75 76 77 ) ( 6c 6d 6e 6f 70 71 72 73 74 75 76 77 )
( 78 79 7a 7b 7c 7d 7e 7f ) ( 78 79 7a 7b 7c 7d 7e 7f )
@music 18 18 1a 1b 1f 24 1a 1b @music
18 18 1a 1b 1f 24 1a 1b 18 18 1a 1b 1f 24 1a 1b
18 18 1a 1b 1f 24 1a 1b 18 18 1a 1b 1f 24 1a 1b
20 20 22 24 2b 2c 22 24 20 20 22 24 2b 2c 22 24
1f 1f 20 22 29 2b 20 22 1f 1f 20 22 29 2b 20 22