M src/assets.tal => src/assets.tal +11 -0
@@ 48,6 48,17 @@
&q 0000 0000 1010 1111
&h 0000 1010 1010 1111
+@monitor-icns
+ 0000 0000 0000 0000
+ 0000 0000 0000 00ff
+ 0000 0000 0000 ffff
+ 0000 0000 00ff ffff
+ 0000 0000 ffff ffff
+ 0000 00ff ffff ffff
+ 0000 ffff ffff ffff
+ 00ff ffff ffff ffff
+ ffff ffff ffff ffff
+
@font ( atari8 )
0000 0000 0000 0000 6060 6060 6000 6000
6666 6600 0000 0000 006c fe6c 6cfe 6c00
M src/main.tal => src/main.tal +16 -4
@@ 55,13 55,9 @@
;left-txt ;print-str JSR2
( setup synth )
- #0f04 .Audio0/adsr DEO2
#ff .Audio0/volume DEO
- #0f04 .Audio1/adsr DEO2
#ff .Audio1/volume DEO
- #0f04 .Audio2/adsr DEO2
#ff .Audio2/volume DEO
- #0f04 .Audio3/adsr DEO2
#ff .Audio3/volume DEO
#03 ;set-octave JSR2
@@ 95,6 91,7 @@ BRK
.time/frame LDZ2 ;play-frame JSR2
&skip
,&rate LDR INC ,&rate STR
+ ;draw-monitor JSR2
BRK
@@ 446,6 443,21 @@ JMP2r
JMP2r
&th "th $1
+@draw-monitor ( -- )
+
+ #01 .Screen/auto DEO
+ #0008 .Screen/y DEO2
+ #0050 .Screen/x DEO2
+ #00
+ .Audio0/output DEI #0f AND
+ .Audio1/output DEI #0f AND ADD
+ .Audio2/output DEI #0f AND ADD
+ .Audio3/output DEI #0f AND ADD
+ #32 SFT ;monitor-icns ADD2 .Screen/addr DEO2
+ #01 .Screen/sprite DEO
+
+JMP2r
+
@draw-time ( -- )
( pos* )
M src/song.tal => src/song.tal +4 -4
@@ 17,12 17,12 @@
&ch0
&piano-pcm 0000
&piano-len 0000
- &piano-env 0f04
+ &piano-env 0008
&piano-vol 0000
- &ch1 0000 0000 0f04 0000
- &ch2 0000 0000 0f04 0000
- &ch3 0000 0000 0f04 0000
+ &ch1 0000 0000 0008 0000
+ &ch2 0000 0000 0008 0000
+ &ch3 0000 0000 0008 0000
( drum )
&kck