� STplay version 1.60
� By Rafael Jay
� (C) The Micro User
(:
2*KEY 0 CALLplay|M
<� PASS=0 � 2 � 2
FP%=&900:[OPT PASS
P.play_s SEI:JSRinit
ZLDA#&0F:STA&72
dLDA#&00:STA&70
nLDA&75:STA&71
x.loop1 LDY#&00
�
.loop2
�LDA(&70),Y:PHA:�#&0F
�JSRsound1:PLA:�#&F0
�LSRA:LSRA:LSRA:LSRA
�JSRsound1:INY
�BNEloop2:INC&71
�LDA&71:CMP&76:BNEloop1
�LDA#&0F:JSRsound1
�CLI:RTS
�.init LDA#&FF:STA&FE43
�LDA#&84:JSRsound
�LDA#&00:JSRsound
�LDA#&A4:JSRsound

LDA#&00:JSRsound

LDA#&C4:JSRsound

LDA#&00:JSRsound

"RTS

,.sound STA&FE4F

6LDX#&00:STX&FE40

@NOP:NOP:NOP:NOP:NOP:NOP

JLDX#&08:STX&FE40:RTS

T.sound1

^�A#&90:JSRsound

h�A#&20:JSRsound

r�#&60:JSRsound

|LDX&74:.loop3

�DEX:BNEloop3:RTS

�	.play

�STA&74:STX&75:STY&76

�
JMPplay_s

�]:�
�

00000000  0d 00 0a 19 f4 20 53 54  70 6c 61 79 20 76 65 72  |..... STplay ver|
00000010  73 69 6f 6e 20 31 2e 36  30 0d 00 14 13 f4 20 42  |sion 1.60..... B|
00000020  79 20 52 61 66 61 65 6c  20 4a 61 79 0d 00 1e 18  |y Rafael Jay....|
00000030  f4 20 28 43 29 20 54 68  65 20 4d 69 63 72 6f 20  |. (C) The Micro |
00000040  55 73 65 72 0d 00 28 05  3a 0d 00 32 15 2a 4b 45  |User..(.:..2.*KE|
00000050  59 20 30 20 43 41 4c 4c  70 6c 61 79 7c 4d 0d 00  |Y 0 CALLplay|M..|
00000060  3c 14 e3 20 50 41 53 53  3d 30 20 b8 20 32 20 88  |<.. PASS=0 . 2 .|
00000070  20 32 0d 00 46 15 50 25  3d 26 39 30 30 3a 5b 4f  | 2..F.P%=&900:[O|
00000080  50 54 20 50 41 53 53 0d  00 50 17 2e 70 6c 61 79  |PT PASS..P..play|
00000090  5f 73 20 53 45 49 3a 4a  53 52 69 6e 69 74 0d 00  |_s SEI:JSRinit..|
000000a0  5a 12 4c 44 41 23 26 30  46 3a 53 54 41 26 37 32  |Z.LDA#&0F:STA&72|
000000b0  0d 00 64 12 4c 44 41 23  26 30 30 3a 53 54 41 26  |..d.LDA#&00:STA&|
000000c0  37 30 0d 00 6e 11 4c 44  41 26 37 35 3a 53 54 41  |70..n.LDA&75:STA|
000000d0  26 37 31 0d 00 78 12 2e  6c 6f 6f 70 31 20 4c 44  |&71..x..loop1 LD|
000000e0  59 23 26 30 30 0d 00 82  0a 2e 6c 6f 6f 70 32 0d  |Y#&00.....loop2.|
000000f0  00 8c 18 4c 44 41 28 26  37 30 29 2c 59 3a 50 48  |...LDA(&70),Y:PH|
00000100  41 3a 80 23 26 30 46 0d  00 96 17 4a 53 52 73 6f  |A:.#&0F....JSRso|
00000110  75 6e 64 31 3a 50 4c 41  3a 80 23 26 46 30 0d 00  |und1:PLA:.#&F0..|
00000120  a0 17 4c 53 52 41 3a 4c  53 52 41 3a 4c 53 52 41  |..LSRA:LSRA:LSRA|
00000130  3a 4c 53 52 41 0d 00 aa  11 4a 53 52 73 6f 75 6e  |:LSRA....JSRsoun|
00000140  64 31 3a 49 4e 59 0d 00  b4 13 42 4e 45 6c 6f 6f  |d1:INY....BNEloo|
00000150  70 32 3a 49 4e 43 26 37  31 0d 00 be 1a 4c 44 41  |p2:INC&71....LDA|
00000160  26 37 31 3a 43 4d 50 26  37 36 3a 42 4e 45 6c 6f  |&71:CMP&76:BNElo|
00000170  6f 70 31 0d 00 c8 15 4c  44 41 23 26 30 46 3a 4a  |op1....LDA#&0F:J|
00000180  53 52 73 6f 75 6e 64 31  0d 00 d2 0b 43 4c 49 3a  |SRsound1....CLI:|
00000190  52 54 53 0d 00 dc 1a 2e  69 6e 69 74 20 4c 44 41  |RTS.....init LDA|
000001a0  23 26 46 46 3a 53 54 41  26 46 45 34 33 0d 00 e6  |#&FF:STA&FE43...|
000001b0  14 4c 44 41 23 26 38 34  3a 4a 53 52 73 6f 75 6e  |.LDA#&84:JSRsoun|
000001c0  64 0d 00 f0 14 4c 44 41  23 26 30 30 3a 4a 53 52  |d....LDA#&00:JSR|
000001d0  73 6f 75 6e 64 0d 00 fa  14 4c 44 41 23 26 41 34  |sound....LDA#&A4|
000001e0  3a 4a 53 52 73 6f 75 6e  64 0d 01 04 14 4c 44 41  |:JSRsound....LDA|
000001f0  23 26 30 30 3a 4a 53 52  73 6f 75 6e 64 0d 01 0e  |#&00:JSRsound...|
00000200  14 4c 44 41 23 26 43 34  3a 4a 53 52 73 6f 75 6e  |.LDA#&C4:JSRsoun|
00000210  64 0d 01 18 14 4c 44 41  23 26 30 30 3a 4a 53 52  |d....LDA#&00:JSR|
00000220  73 6f 75 6e 64 0d 01 22  07 52 54 53 0d 01 2c 13  |sound..".RTS..,.|
00000230  2e 73 6f 75 6e 64 20 53  54 41 26 46 45 34 46 0d  |.sound STA&FE4F.|
00000240  01 36 14 4c 44 58 23 26  30 30 3a 53 54 58 26 46  |.6.LDX#&00:STX&F|
00000250  45 34 30 0d 01 40 1b 4e  4f 50 3a 4e 4f 50 3a 4e  |E40..@.NOP:NOP:N|
00000260  4f 50 3a 4e 4f 50 3a 4e  4f 50 3a 4e 4f 50 0d 01  |OP:NOP:NOP:NOP..|
00000270  4a 18 4c 44 58 23 26 30  38 3a 53 54 58 26 46 45  |J.LDX#&08:STX&FE|
00000280  34 30 3a 52 54 53 0d 01  54 0b 2e 73 6f 75 6e 64  |40:RTS..T..sound|
00000290  31 0d 01 5e 13 84 41 23  26 39 30 3a 4a 53 52 73  |1..^..A#&90:JSRs|
000002a0  6f 75 6e 64 0d 01 68 13  84 41 23 26 32 30 3a 4a  |ound..h..A#&20:J|
000002b0  53 52 73 6f 75 6e 64 0d  01 72 12 82 23 26 36 30  |SRsound..r..#&60|
000002c0  3a 4a 53 52 73 6f 75 6e  64 0d 01 7c 11 4c 44 58  |:JSRsound..|.LDX|
000002d0  26 37 34 3a 2e 6c 6f 6f  70 33 0d 01 86 14 44 45  |&74:.loop3....DE|
000002e0  58 3a 42 4e 45 6c 6f 6f  70 33 3a 52 54 53 0d 01  |X:BNEloop3:RTS..|
000002f0  90 09 2e 70 6c 61 79 0d  01 9a 18 53 54 41 26 37  |...play....STA&7|
00000300  34 3a 53 54 58 26 37 35  3a 53 54 59 26 37 36 0d  |4:STX&75:STY&76.|
00000310  01 a4 0d 4a 4d 50 70 6c  61 79 5f 73 0d 01 ae 07  |...JMPplay_s....|
00000320  5d 3a ed 0d ff                                    |]:...|
00000325