Qwerty keyboard input from G2 to G5 (3 octaves) for uxntal piano.tal

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