[NEWTUNE
[VARIANT ON MUSIC 1965
[PLAY START 20
[START 400 TO TRANSLATE TUNE STORED IN LAP 6 WORKING AREA
$17
HLT
SETi1
4777
#1C LDHi1
AZEi
JMP 17
SHDi
4700
JMP 1D
SHDi
7700
JMP 1E
ADAi
1L-1
STC 1A
LDH 1
ADAi
1M-1
STC 1B
SETi15
-20
LDAi
#4Z 5470
ROL 1
XSKi15
JMP p-2
#1F LDHi1
MULi
#1G 1
COM
STC 15
SET 16
#1B 1M
SET 17
#1A 1L
COM
XSKi17
JMP p-1
XSKi16
JMP 1A-1
XSKi15
JMP 1B-1
LDAi
17
STC 1A+1
JMP 1C
#1E LDAi
16
STC 1A+1
LDAi
1L
STC 1A
LDAi
1M
STC 1B
JMP 1F
[PITCH TABLE
#1L -210
-200
-170
-162
-154
-146
-137
-132
-125
-120
-114
-110
-104
-100
-74
-71
-66
-63
-60
-55
-53
-50
-46
-44
-42
-40
-36
-34
-33
-31
-30
[DURATION MODIFIERS
#1M -3
-3
-3
-3
-3
-4
-4
-4
-4
-4
-5
-5
-5
-6
-6
-7
-7
-10
-10
-11
-11
-12
-12
-13
-13
-14
-14
-15
-16
-17
-20
#1D LDHi1
STC 1G
JMP 1C
$377
JMP 2A-3
[WRITE
$400
SETi2
777
CLR
STAi2
XSK 2
JMP p-2
SETi2
4777
SETi12
7401
RDC
#4B 7350
CLR
STC 2D
STC 2G
#2A LDA
12
SAEi
7777
JMP p+2
JMP 4C
LDHi12
SHDi
7700
JMP 4F
SHDi
4000
JMP 2A
SHDi
3700
JMP 2B
SHDi
5000
JMP 2C
SHDi
4700
JMP 2T
SHDi
2200
JMP 2E
SHDi
6500
JMP 2F
SHDi
1600
JMP 2F
SHDi
1200
JMP 2K
SHDi
1400
JMP 2U
ADAi
-6
APOi
JMP 2H
ADD 2H+1
ADAi
240
STC p+2
ADD 2E+1
ROL 6
ADMi
#2G 0
JMP 2A
#2H ADAi
6
ADAi
2J+6001-24
STC 2J
#2J JMP
JMP 2L
JMP 2M
JMP 2N
JMP 2P
JMP 2Q
JMP 2R
JMP 2S
#2U LDAi
77
STC 2D
JMP 2A
#2L LDAi
15
JMP 2D-1
#2M LDAi
17
JMP 2D-1
#2N LDAi
20
JMP 2D-1
#2P LDAi
22
JMP 2D-1
#2Q LDAi
24
JMP 2D-1
#2R LDAi
25
JMP 2D-1
#2S LDAi
27
JMP 2D-1
#2T STC 2D
JMP 2A
#2B LDAi
-14
JMP 2D-1
#2C LDAi
14
ADMi
#2D 0
JMP 2A
#2E LDAi
1
JMP 2D-1
#2F LDAi
-1
JMP 2D-1
#2K LDA
2D
STHi2
LDA
2G
STHi2
JMP 2A-3
#4C LDA
4B
ADAi
1
STC p+2
RDC
7351
SETi12
7377
JMP 2A
#4F JMP 20
[END
[END NEWTUNE