MUSIC X = May 28, 1960

t=5046
xx=hlt
pcn=clc 100


			|feed

t64=376000
t32=374000
d32=375000
t16=370000
d16=364000
z16=362000
t8=360000
d8=350000
z8=365000
t4=340000
d4=320000
z4=353000
t2=300000
d2=240000
z2=325000
t1=200000
d1=100000
z1=252000

			|feed

	define
sta32 X
	X+t64
	r+t64
	terminate

	define
sta16 X
	X+t32
	r+t32
	terminate

	define
stad16 X
	X+d32
	r+d32
	term

	defi
sta8 X
	X+t16
	r+t16
	term

	defi
stad8 X
	X+d16
	r+d16
	term

	defi
sta4 X
	X+t8
	r+t8
	term

	defi
stad4 X
	X+d8
	r+d8
	term

	defi
sta2 X
	X+t4
	r+t4
	term

	defi
stad2 X
	X+d4
	r+d4
	term

	defi
sta1 X
	X+t2
	r+t2
	term

	defi
seq32 X
	sta32 X
	term

	defi
seqd32 X
	X+t32
	r+t64
	term

	defi
seq16 X
	sta16 X
	term

	defi
seqd16 X
	X+t16
	r+t32
	term

	defi
seq8 X
	X+d16
	r+t32
	term

	defi
seqd8 X
	X+354000
	r+t32
	term

	defi
seq4 X
	X+344000
	r+t32
	term

	defi
seqd4 X
	X+324000
	r+t32
	term

	defi
seq2 X
	X+304000
	r+t32
	term

	defi
seqd2 X
	X+244000
	r+t32
	term

	defi
seq1 X
	X+204000
	r+t32
	term

	defi
seqd1 X
	X+104000
	r+t32
	term

			|feed

	defi
vol0
	-17
	0
	term

	defi
vol1
	-17
	1
	term

	defi
vol2
	-17
	2
	term

	defi
vol3
	-17
	3
	term

	defi
vol4
	-17
	4
	term

	defi
vol5
	-17
	5
	term

	defi
vol6
	-17
	6
	term

	defi
vol7
	-17
	7
	term

			|feed
20|	r,	0

1c,		1460
1cs,	1df,	1560
1d,		1640
1ds,	1ef,	1720
1e,		2020
1f,		2120
1fs,	1gf,	2220
1g,		2320
1gs,	1af,	2440
1a,		2560
1as,	1bf,	2700
1b,		3040

2c,		3160
2cs,	2df,	3320
2d,		3500
2ds,	2ef,	3640
2e,		4040
2f,		4220
2fs,	2gf,	4440
2g,		4640
2gs,	2af,	5060
2a,		5320
2as,	2bf,	5560
2b,		6060

3c,		6340
3cs,	3df,	640
3d,		7160
3ds,	3ef,	7520
3e,		10060
3f,		10460
3fs,	3gf,	11060
3g,		11500
3gs,	3af,	12140
3a,		12640
3as,	3bf,	13360
3b,		14100

4c,		14660
4cs,	4df,	15500
4d,		16340
4ds,	4ef,	17220
4e,		20140
4f,		21120
4fs,	4gf,	22140
4g,		23200
4gs,	4af,	24320
4a,		25500
4as,	4bf,	26720
4b,		30300

5c,		31560		|middle c, 256 cps.
5cs,	5df,	33200
5d,		34700
5ds,	5ef,	36440
5e,		40320
5f,		42240
5fs,	5gf,	44300
5g,		46420
5gs,	5af,	50640
5a,		53200		|a=440 cps.
5as,	5bf,	55620
5b,		60620

6c,		63320
6cs,	6df,	66400
6d,		71560
6ds,	6ef,	75120
6e,		100620
6f,		104500
6fs,	6gf,	110600
6g,		115040
6gs,	6af,	121460
6a,		126400
6as,	6bf,	133500
6b,		141000

7c,		146600
7cs,	7df,	155000
7d,		163400
7ds,	7ef,	172200
7e,		201400
7f,		211200
7fs,	7gf,	221400
7g,		232000
7gs,	7af,	243200
7a,		255000
7as,	7bf,	267200
7b,		303000

8c,		315600
8cs,	8df,	332000
8d,		347000
8ds,	8ef,	364400
8e,		403200
8f,		422400
8fs,	8gf,	443000
8g,		464200
8gs,	8af,	506400
8a,		532000
8as,	8bf,	556600
8b,		606200

9c,		633200

			|feed
220|
				|start note storage here

5236|

x,	com
	add (tra y
	sto .+1
	xx

y,	hlt		|-0: hlt
	tra m		|-1: restart
	tra 17744	|-2: read in
	tra .		|-3: dynamic halt
	cla		|-4: print
	add g
	pna
	tra j+1
	pcn		|-10: pause
	trn .-1
	tra j
	hlt		|-13: chime
	tra j
	p6s		|-15: punch
	tra j+1
	llr (tra .+3	|-17: volume control
	slr s+1
	tra j
	cla 16000
	llr (lac
	slr s+1
	tra j+1

g,	char r

q,	0
p,	4000
o,	0

e,	llr (slr b+1
	slr n
	lac
	add (-slr-b-t
	llr b
	add (slr b+t+1

n,	xx
	sto n
	add (-slr-b-t
	trn n-1
	llr (tra v
	slr b+t
	hlt

m,	tac
	trn .+2
	tra .+3
	add (-trn
	sto p
	llr (llr 217
	slr s

j,	cla
	add s
	add (1
	sto s

s,	xx
	lac
	trn x
	cll
	add (add
	sto .+2
	cla
	xx
	sto q
	tra b

	constants

v,	sto o
	lac
	add p
	trn j
	ala
	add o

b,	add q

start add+e
