From de4f979dbf3e64ec582c787edbc8b2e4569a9d6d Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Fri, 7 Jan 2022 01:29:19 -0500
Subject: [PATCH] drum machine

---
 drums.tal | 99 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 99 insertions(+)
 create mode 100644 drums.tal

diff --git a/drums.tal b/drums.tal
new file mode 100644
index 0000000..3440c0d
--- /dev/null
+++ b/drums.tal
@@ -0,0 +1,99 @@
+( drums.tal )
+( )
+( very very simple drum machine )
+
+|20 @Screen [ &vector $2 &width    $2 &height $2 &pad $2 &x    $2 &y      $2 &addr $2 &pixel  $1 &sprite $1 ]
+|30 @Audio0 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch  $1 ]
+|40 @Audio1 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch  $1 ]
+|50 @Audio2 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch  $1 ]
+|60 @Audio3 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch  $1 ]
+
+|0000
+    @timer $2
+
+|0100
+    ( bass )
+    ;noise .Audio0/addr   DEO2 ( sample )
+    #0100  .Audio0/length DEO2 ( length )
+    #0100  .Audio0/adsr   DEO2 ( envelope )
+    #99    .Audio0/volume DEO  ( volume )
+
+    ( snare )
+    ;noise .Audio1/addr   DEO2 ( sample )
+    #0100  .Audio1/length DEO2 ( length )
+    #0102  .Audio1/adsr   DEO2 ( envelope )
+    #df    .Audio1/volume DEO  ( volume )
+
+    ( hi-hat )
+    ;noise .Audio2/addr   DEO2 ( sample )
+    #0100  .Audio2/length DEO2 ( length )
+    #0001  .Audio2/adsr   DEO2 ( envelope )
+    #fb    .Audio2/volume DEO  ( volume )
+
+    ( cymbal )
+    ;noise .Audio3/addr   DEO2 ( sample )
+    #0100  .Audio3/length DEO2 ( length )
+    #0035  .Audio3/adsr   DEO2 ( envelope )
+    #af    .Audio3/volume DEO  ( volume )
+
+    ( set up clock timer, each tick is 1/60 second )
+    #0000 .timer STZ2
+
+    ( this callback updates tick 60x a second )
+    ;tick .Screen/vector DEO2 
+    BRK
+
+@tick
+    ( this mask/shift defines the tempo )
+    ( each sixteenth note is 8/60 seconds, i.e. 133ms )
+    ( this makes the tempo 128 bpm )
+    .timer LDZ2 DUP2 INC2 .timer STZ2 ( t += 1 )
+    DUP #07 AND ,&done JCN ( done if t&7!=0 )
+    #03 SFT2 #000f AND2 ( beat=(t>>3)&f )
+    STH2k  ;bass   ;play-beat JSR2
+    STH2kr ;snare  ;play-beat JSR2
+    STH2kr ;hi-hat ;play-beat JSR2
+    STH2r  ;cymbal ;play-beat JSR2
+    &done BRK
+
+@play-beat ( beat* addr* -- )
+    STH2k ADD2 LDA ,&on JCN POP2r JMP2r
+    &on STH2r #0010 ADD2 LDA2 DEO JMP2r
+
+( each track has 16 notes )
+( followed by 2 bytes describing pitch/channel to use )
+
+@bass
+    01 00 00 01   00 00 00 00   00 00 01 00   00 00 00 00
+    00 3f ( #00 Audio0/pitch DEO )
+
+@snare
+    00 00 00 00   01 00 00 00   00 00 00 00   01 01 00 01
+    0c 4f ( #0c Audio1/pitch DEO )
+
+@hi-hat
+    01 00 01 00   01 00 01 01   01 01 01 00   01 00 01 00
+    3c 5f ( #3c Audio2/pitch DEO )
+
+@cymbal
+    01 00 00 00   00 00 00 00   00 00 00 00   00 00 00 00
+    48 6f ( #4a Audio3/pitch DEO )
+
+( 256 random bytes to create noise )
+@noise
+    c1 be 88 3c e5 55 c0 a1 3a b8 8c e7 a3 40 b4 b7
+    fa 20 52 fd 39 88 ef 3d d0 d2 37 12 81 56 40 1e
+    f1 de 86 9d 2a cd ba 2c 8c b2 a3 e5 17 2a bf a3
+    33 e9 ab f3 3d 7c ac 00 a3 77 a7 a9 d8 10 2f af
+    b1 ba 68 0f 12 d3 7b e0 62 68 ef 0f 8a ea 7f b5
+    ad 5c 43 c6 f0 f6 29 33 9b c6 2f 24 34 41 d2 3d
+    16 53 27 ae b7 ba f4 53 0e 78 bf b9 16 7d 18 56
+    4e 95 8a e4 10 08 6c 9d bc 99 f7 ad d4 5b db f4
+    17 ea e3 c8 e6 67 8f 66 29 48 13 1c 9c ed 6f 26
+    1a 55 77 6d ee 8a d1 63 f2 88 92 17 7c fc d8 55
+    11 20 a8 6b 9e 48 d2 97 a2 6c dc 73 3a 82 13 f7
+    03 9c 25 5f 01 62 c1 f0 6e 71 aa 41 2f a7 a0 e1
+    78 07 c9 e5 0b 31 0c 23 00 0a c9 86 fe 2d 60 97
+    8b df 01 dd fe 68 5b 7e e6 28 a5 a2 5f 96 57 36
+    0a b4 b5 fd 21 4e ff 50 fb 00 c8 ae 25 ca 02 c9
+    5f b4 4b 5b f7 59 0b 08 98 52 29 81 97 85 1c 6d