User`s guide

0228
F31E T-293
022A
E4Al
If
(V4#hex
key) sklp
022C r41E
I=294
022r. E5A1
lf(vs#hex
key)
skip
0230
F51E
T=295
0232
E6Al
If
(v6#hex
key)
skip
0234
F6LE T=296
0236
ETA1
If
(v7#hex
k.y)
skip
0238
F71E
T=297
023A
ESA1
If
(V9#hex
k.y) sklp
023C
F81E
I=298
023E
E9AI If
(V9#hex
key) skip
0240
Fg
lE
T=299
0242
EAAl If
(VA#hex
key) skip
0244
FA1E
T=29A
0246
EBAI
If
(\m#hex
k.y)
sktp
0248 FB lE
T=298
A24L
EcAl
If
(VC#hex
k.y)
skip
024C
FCIE T=29C
0248
EDA1
If(VD#hex
key)
skip
0250 FD1E T=29D
Scan
Keyboard
for
Octave
Change
0252
EEAI rf(\rErthex
key)
skip
0254
1278
Go
to 0278
Subroutlne
to
lncrement octave
0256
EFAI If(VF#hex
key)
skip
0258 L284
Go
to 0284
025A, F21E
I=I*V2
Select
octave
Check
for
No
Key
Pressed
O25C F065
VO=MI Get
tone
O25E
4OOO
lf(v0rl00)
skip
0260 L27O
Go
to 270
Subroutine for
No
Key
Pressed
Sound
Generated
0262
8100
Output
port=VO
0264 FF18
Tone duration=VF
A266
L220
Go
to
0220
Subroutine
for
No Key
Pressed
027
0
6100
V1=00
0272
Fl18
Tone duratl-on=Vl
027
4 6101 V1=01
Reset
Vl
,O27
5
I22O
co
to
0220
Increment
Octave
0278
422A
rf
(v2*2A)
sktp
027L
L22O
Go
to
A220
027C 72AE
Y2-Y2+0E
0278
EEAI If
(VE*hex
k.y) skip
0280
L27E
Go
to 0278
hlalt
for
key
release
0282 L220
Go to 0220
2,OB/O7.
35