� 7
 �0,20)"Loading Sound Files"
*LOAD S.POP 3000
(*LOAD S.BOB 5800
2�7:�23;8202;0;0;0;
<�"Log Sample File player"
F�"By Rafael Jay"
P�"Modified by Mike Cook"
Z �"(C) The Micro User Jan 92"
d�assem:�
n�"1. Pop Music"
x)�"2. I can't get the laugh right Bob"
�
�:G%=�
�&�G%=�"1" A%=40:X%=&30:Y%=&58:�play
�&�G%=�"2" A%=40:X%=&58:Y%=&7C:�play
�� �
���assem
�� PASS=0 � 2 � 2
�P%=&900:[OPT PASS
�.play_s SEI:JSRinit
�LDA#&0F:STA&72
�LDA#&00:STA&70
�LDA&75:STA&71
�.loop1 LDY#&00
�
.loop2

LDA(&70),Y:PHA:�#&0F

JSRsound1:PLA:�#&F0

LSRA:LSRA:LSRA:LSRA

"JSRsound1:INY

,BNEloop2:INC&71

6LDA&71:CMP&76:BNEloop1

@LDA#&0F:JSRsound1

JCLI:RTS

T.init LDA#&FF:STA&FE43

^LDA#&84:JSRsound

hLDA#&00:JSRsound

rLDA#&A4:JSRsound

|LDA#&00:JSRsound

�LDA#&C4:JSRsound

�LDA#&00:JSRsound

�RTS

�.sound STA&FE4F

�LDX#&00:STX&FE40

�NOP:NOP:NOP:NOP:NOP:NOP

�LDX#&08:STX&FE40:RTS

�.sound1

��A#&90:JSRsound

��A#&20:JSRsound

��#&60:JSRsound

�
LDX&74

�
.loop3
DEX:BNEloop3:RTS
	.play
STA&74:STX&75:STY&76
&
JMPplay_s
0]:�
:�
�

00000000  0d 00 0a 07 eb 20 37 0d  00 14 20 f1 8a 30 2c 32  |..... 7... ..0,2|
00000010  30 29 22 4c 6f 61 64 69  6e 67 20 53 6f 75 6e 64  |0)"Loading Sound|
00000020  20 46 69 6c 65 73 22 0d  00 1e 14 2a 4c 4f 41 44  | Files"....*LOAD|
00000030  20 53 2e 50 4f 50 20 33  30 30 30 0d 00 28 14 2a  | S.POP 3000..(.*|
00000040  4c 4f 41 44 20 53 2e 42  4f 42 20 35 38 30 30 0d  |LOAD S.BOB 5800.|
00000050  00 32 16 eb 37 3a ef 32  33 3b 38 32 30 32 3b 30  |.2..7:.23;8202;0|
00000060  3b 30 3b 30 3b 0d 00 3c  1d f1 22 4c 6f 67 20 53  |;0;0;..<.."Log S|
00000070  61 6d 70 6c 65 20 46 69  6c 65 20 70 6c 61 79 65  |ample File playe|
00000080  72 22 0d 00 46 14 f1 22  42 79 20 52 61 66 61 65  |r"..F.."By Rafae|
00000090  6c 20 4a 61 79 22 0d 00  50 1c f1 22 4d 6f 64 69  |l Jay"..P.."Modi|
000000a0  66 69 65 64 20 62 79 20  4d 69 6b 65 20 43 6f 6f  |fied by Mike Coo|
000000b0  6b 22 0d 00 5a 20 f1 22  28 43 29 20 54 68 65 20  |k"..Z ."(C) The |
000000c0  4d 69 63 72 6f 20 55 73  65 72 20 4a 61 6e 20 39  |Micro User Jan 9|
000000d0  32 22 0d 00 64 0c f2 61  73 73 65 6d 3a f1 0d 00  |2"..d..assem:...|
000000e0  6e 13 f1 22 31 2e 20 50  6f 70 20 4d 75 73 69 63  |n.."1. Pop Music|
000000f0  22 0d 00 78 29 f1 22 32  2e 20 49 20 63 61 6e 27  |"..x)."2. I can'|
00000100  74 20 67 65 74 20 74 68  65 20 6c 61 75 67 68 20  |t get the laugh |
00000110  72 69 67 68 74 20 42 6f  62 22 0d 00 82 0a f5 3a  |right Bob".....:|
00000120  47 25 3d a5 0d 00 8c 26  e7 47 25 3d 97 22 31 22  |G%=....&.G%=."1"|
00000130  20 41 25 3d 34 30 3a 58  25 3d 26 33 30 3a 59 25  | A%=40:X%=&30:Y%|
00000140  3d 26 35 38 3a d6 70 6c  61 79 0d 00 96 26 e7 47  |=&58:.play...&.G|
00000150  25 3d 97 22 32 22 20 41  25 3d 34 30 3a 58 25 3d  |%=."2" A%=40:X%=|
00000160  26 35 38 3a 59 25 3d 26  37 43 3a d6 70 6c 61 79  |&58:Y%=&7C:.play|
00000170  0d 00 a0 07 fd 20 a3 0d  00 aa 0b dd f2 61 73 73  |..... .......ass|
00000180  65 6d 0d 00 b4 14 e3 20  50 41 53 53 3d 30 20 b8  |em..... PASS=0 .|
00000190  20 32 20 88 20 32 0d 00  be 15 50 25 3d 26 39 30  | 2 . 2....P%=&90|
000001a0  30 3a 5b 4f 50 54 20 50  41 53 53 0d 00 c8 17 2e  |0:[OPT PASS.....|
000001b0  70 6c 61 79 5f 73 20 53  45 49 3a 4a 53 52 69 6e  |play_s SEI:JSRin|
000001c0  69 74 0d 00 d2 12 4c 44  41 23 26 30 46 3a 53 54  |it....LDA#&0F:ST|
000001d0  41 26 37 32 0d 00 dc 12  4c 44 41 23 26 30 30 3a  |A&72....LDA#&00:|
000001e0  53 54 41 26 37 30 0d 00  e6 11 4c 44 41 26 37 35  |STA&70....LDA&75|
000001f0  3a 53 54 41 26 37 31 0d  00 f0 12 2e 6c 6f 6f 70  |:STA&71.....loop|
00000200  31 20 4c 44 59 23 26 30  30 0d 00 fa 0a 2e 6c 6f  |1 LDY#&00.....lo|
00000210  6f 70 32 0d 01 04 18 4c  44 41 28 26 37 30 29 2c  |op2....LDA(&70),|
00000220  59 3a 50 48 41 3a 80 23  26 30 46 0d 01 0e 17 4a  |Y:PHA:.#&0F....J|
00000230  53 52 73 6f 75 6e 64 31  3a 50 4c 41 3a 80 23 26  |SRsound1:PLA:.#&|
00000240  46 30 0d 01 18 17 4c 53  52 41 3a 4c 53 52 41 3a  |F0....LSRA:LSRA:|
00000250  4c 53 52 41 3a 4c 53 52  41 0d 01 22 11 4a 53 52  |LSRA:LSRA..".JSR|
00000260  73 6f 75 6e 64 31 3a 49  4e 59 0d 01 2c 13 42 4e  |sound1:INY..,.BN|
00000270  45 6c 6f 6f 70 32 3a 49  4e 43 26 37 31 0d 01 36  |Eloop2:INC&71..6|
00000280  1a 4c 44 41 26 37 31 3a  43 4d 50 26 37 36 3a 42  |.LDA&71:CMP&76:B|
00000290  4e 45 6c 6f 6f 70 31 0d  01 40 15 4c 44 41 23 26  |NEloop1..@.LDA#&|
000002a0  30 46 3a 4a 53 52 73 6f  75 6e 64 31 0d 01 4a 0b  |0F:JSRsound1..J.|
000002b0  43 4c 49 3a 52 54 53 0d  01 54 1a 2e 69 6e 69 74  |CLI:RTS..T..init|
000002c0  20 4c 44 41 23 26 46 46  3a 53 54 41 26 46 45 34  | LDA#&FF:STA&FE4|
000002d0  33 0d 01 5e 14 4c 44 41  23 26 38 34 3a 4a 53 52  |3..^.LDA#&84:JSR|
000002e0  73 6f 75 6e 64 0d 01 68  14 4c 44 41 23 26 30 30  |sound..h.LDA#&00|
000002f0  3a 4a 53 52 73 6f 75 6e  64 0d 01 72 14 4c 44 41  |:JSRsound..r.LDA|
00000300  23 26 41 34 3a 4a 53 52  73 6f 75 6e 64 0d 01 7c  |#&A4:JSRsound..||
00000310  14 4c 44 41 23 26 30 30  3a 4a 53 52 73 6f 75 6e  |.LDA#&00:JSRsoun|
00000320  64 0d 01 86 14 4c 44 41  23 26 43 34 3a 4a 53 52  |d....LDA#&C4:JSR|
00000330  73 6f 75 6e 64 0d 01 90  14 4c 44 41 23 26 30 30  |sound....LDA#&00|
00000340  3a 4a 53 52 73 6f 75 6e  64 0d 01 9a 07 52 54 53  |:JSRsound....RTS|
00000350  0d 01 a4 13 2e 73 6f 75  6e 64 20 53 54 41 26 46  |.....sound STA&F|
00000360  45 34 46 0d 01 ae 14 4c  44 58 23 26 30 30 3a 53  |E4F....LDX#&00:S|
00000370  54 58 26 46 45 34 30 0d  01 b8 1b 4e 4f 50 3a 4e  |TX&FE40....NOP:N|
00000380  4f 50 3a 4e 4f 50 3a 4e  4f 50 3a 4e 4f 50 3a 4e  |OP:NOP:NOP:NOP:N|
00000390  4f 50 0d 01 c2 18 4c 44  58 23 26 30 38 3a 53 54  |OP....LDX#&08:ST|
000003a0  58 26 46 45 34 30 3a 52  54 53 0d 01 cc 0b 2e 73  |X&FE40:RTS.....s|
000003b0  6f 75 6e 64 31 0d 01 d6  13 84 41 23 26 39 30 3a  |ound1.....A#&90:|
000003c0  4a 53 52 73 6f 75 6e 64  0d 01 e0 13 84 41 23 26  |JSRsound.....A#&|
000003d0  32 30 3a 4a 53 52 73 6f  75 6e 64 0d 01 ea 12 82  |20:JSRsound.....|
000003e0  23 26 36 30 3a 4a 53 52  73 6f 75 6e 64 0d 01 f4  |#&60:JSRsound...|
000003f0  0a 4c 44 58 26 37 34 0d  01 fe 0a 2e 6c 6f 6f 70  |.LDX&74.....loop|
00000400  33 0d 02 08 14 44 45 58  3a 42 4e 45 6c 6f 6f 70  |3....DEX:BNEloop|
00000410  33 3a 52 54 53 0d 02 12  09 2e 70 6c 61 79 0d 02  |3:RTS.....play..|
00000420  1c 18 53 54 41 26 37 34  3a 53 54 58 26 37 35 3a  |..STA&74:STX&75:|
00000430  53 54 59 26 37 36 0d 02  26 0d 4a 4d 50 70 6c 61  |STY&76..&.JMPpla|
00000440  79 5f 73 0d 02 30 07 5d  3a ed 0d 02 3a 05 e1 0d  |y_s..0.]:...:...|
00000450  ff                                                |.|
00000451