Skip to content

Instantly share code, notes, and snippets.

@Ismael-VC

Ismael-VC/chromatic-scale.tal

Last active May 11, 2023 18:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Ismael-VC/c4c0f3abf3dca0ce13ce91755c2d5eef to your computer and use it in GitHub Desktop.
Save Ismael-VC/c4c0f3abf3dca0ce13ce91755c2d5eef to your computer and use it in GitHub Desktop.
Download ZIP
Qwerty keyboard input from G2 to G5 (3 octaves) for uxntal piano.tal
Raw
chromatic-scale.tal
(
QWERTY from G2 to G5:
2 3 5 6 7 9 0 = | C#4 D#4 F#4 G#4 A#4 C#5 D#5 F#5
q w e r t y u i o p [ ] | C4 D4 E4 F4 G4 A4 B4 C5 D5 E5 F5 G5
s d g h k l ; | G#2 A#2 C#3 D#3 F#3 G#3 A#3
z x c v b n m , . / | G2 A2 B2 C3 D3 E3 F3 G3 A3 B3
)
.Controller/key DEI
[ LIT "z ] NEQk NIP ,&no-g2 JCN #1e .octave LDZ #0c MUL ADD ;play JSR2 &no-g2
[ LIT "s ] NEQk NIP ,&no-g2# JCN #1f .octave LDZ #0c MUL ADD ;play JSR2 &no-g2#
[ LIT "x ] NEQk NIP ,&no-a2 JCN #20 .octave LDZ #0c MUL ADD ;play JSR2 &no-a2
[ LIT "d ] NEQk NIP ,&no-a2# JCN #21 .octave LDZ #0c MUL ADD ;play JSR2 &no-a2#
[ LIT "c ] NEQk NIP ,&no-b2 JCN #22 .octave LDZ #0c MUL ADD ;play JSR2 &no-b2
[ LIT "v ] NEQk NIP ,&no-c3 JCN #23 .octave LDZ #0c MUL ADD ;play JSR2 &no-c3
[ LIT "g ] NEQk NIP ,&no-c3# JCN #24 .octave LDZ #0c MUL ADD ;play JSR2 &no-c3#
[ LIT "b ] NEQk NIP ,&no-d3 JCN #25 .octave LDZ #0c MUL ADD ;play JSR2 &no-d3
[ LIT "h ] NEQk NIP ,&no-d3# JCN #26 .octave LDZ #0c MUL ADD ;play JSR2 &no-d3#
[ LIT "n ] NEQk NIP ,&no-e3 JCN #27 .octave LDZ #0c MUL ADD ;play JSR2 &no-e3
[ LIT "m ] NEQk NIP ,&no-f3 JCN #28 .octave LDZ #0c MUL ADD ;play JSR2 &no-f3
[ LIT "k ] NEQk NIP ,&no-f3# JCN #29 .octave LDZ #0c MUL ADD ;play JSR2 &no-f3#
[ LIT ", ] NEQk NIP ,&no-g3 JCN #2a .octave LDZ #0c MUL ADD ;play JSR2 &no-g3
[ LIT "l ] NEQk NIP ,&no-g3# JCN #2b .octave LDZ #0c MUL ADD ;play JSR2 &no-g3#
[ LIT ". ] NEQk NIP ,&no-a3 JCN #2d .octave LDZ #0c MUL ADD ;play JSR2 &no-a3
[ LIT "; ] NEQk NIP ,&no-a3# JCN #2e .octave LDZ #0c MUL ADD ;play JSR2 &no-a3#
[ LIT "/ ] NEQk NIP ,&no-b3 JCN #2f .octave LDZ #0c MUL ADD ;play JSR2 &no-b3
[ LIT "q ] NEQk NIP ,&no-c4 JCN #30 .octave LDZ #0c MUL ADD ;play JSR2 &no-c4
[ LIT "2 ] NEQk NIP ,&no-c4# JCN #31 .octave LDZ #0c MUL ADD ;play JSR2 &no-c4#
[ LIT "w ] NEQk NIP ,&no-d4 JCN #32 .octave LDZ #0c MUL ADD ;play JSR2 &no-d4
[ LIT "3 ] NEQk NIP ,&no-d4# JCN #33 .octave LDZ #0c MUL ADD ;play JSR2 &no-d4#
[ LIT "e ] NEQk NIP ,&no-e4 JCN #34 .octave LDZ #0c MUL ADD ;play JSR2 &no-e4
[ LIT "r ] NEQk NIP ,&no-f4 JCN #35 .octave LDZ #0c MUL ADD ;play JSR2 &no-f4
[ LIT "5 ] NEQk NIP ,&no-f4# JCN #36 .octave LDZ #0c MUL ADD ;play JSR2 &no-f4#
[ LIT "t ] NEQk NIP ,&no-g4 JCN #37 .octave LDZ #0c MUL ADD ;play JSR2 &no-g4
[ LIT "6 ] NEQk NIP ,&no-g4# JCN #38 .octave LDZ #0c MUL ADD ;play JSR2 &no-g4#
[ LIT "y ] NEQk NIP ,&no-a4 JCN #39 .octave LDZ #0c MUL ADD ;play JSR2 &no-a4
[ LIT "7 ] NEQk NIP ,&no-a4# JCN #3a .octave LDZ #0c MUL ADD ;play JSR2 &no-a4#
[ LIT "u ] NEQk NIP ,&no-b4 JCN #3b .octave LDZ #0c MUL ADD ;play JSR2 &no-b4
[ LIT "i ] NEQk NIP ,&no-c5 JCN #3c .octave LDZ #0c MUL ADD ;play JSR2 &no-c5
[ LIT "9 ] NEQk NIP ,&no-c5# JCN #3d .octave LDZ #0c MUL ADD ;play JSR2 &no-c5#
[ LIT "o ] NEQk NIP ,&no-d5 JCN #3e .octave LDZ #0c MUL ADD ;play JSR2 &no-d5
[ LIT "0 ] NEQk NIP ,&no-d5# JCN #3f .octave LDZ #0c MUL ADD ;play JSR2 &no-d5#
[ LIT "p ] NEQk NIP ,&no-e5 JCN #40 .octave LDZ #0c MUL ADD ;play JSR2 &no-e5
[ LIT "[ ] NEQk NIP ,&no-f5 JCN #41 .octave LDZ #0c MUL ADD ;play JSR2 &no-f5
[ LIT "= ] NEQk NIP ,&no-f5# JCN #42 .octave LDZ #0c MUL ADD ;play JSR2 &no-f5#
[ LIT "] ] NEQk NIP ,&no-g5 JCN #43 .octave LDZ #0c MUL ADD ;play JSR2 &no-g5
[ #1b ] NEQk NIP ,&no-esc JCN #010f DEO &no-esc
POP
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment