� 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

6 LDA&71:CMP&76:BNEloop1

@ LDA#&0F:JSRsound1

J CLI:RTS

T .init LDA#&FF:STA&FE43

^ LDA#&84:JSRsound

h LDA#&00:JSRsound

r LDA#&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 08 20 eb 20 37  0d 00 14 21 20 f1 8a 30  |.... . 7...! ..0|
00000010  2c 32 30 29 22 4c 6f 61  64 69 6e 67 20 53 6f 75  |,20)"Loading Sou|
00000020  6e 64 20 46 69 6c 65 73  22 0d 00 1e 15 20 2a 4c  |nd Files".... *L|
00000030  4f 41 44 20 53 2e 50 4f  50 20 33 30 30 30 0d 00  |OAD S.POP 3000..|
00000040  28 15 20 2a 4c 4f 41 44  20 53 2e 42 4f 42 20 35  |(. *LOAD S.BOB 5|
00000050  38 30 30 0d 00 32 17 20  eb 37 3a ef 32 33 3b 38  |800..2. .7:.23;8|
00000060  32 30 32 3b 30 3b 30 3b  30 3b 0d 00 3c 1e 20 f1  |202;0;0;0;..<. .|
00000070  22 4c 6f 67 20 53 61 6d  70 6c 65 20 46 69 6c 65  |"Log Sample File|
00000080  20 70 6c 61 79 65 72 22  0d 00 46 15 20 f1 22 42  | player"..F. ."B|
00000090  79 20 52 61 66 61 65 6c  20 4a 61 79 22 0d 00 50  |y Rafael Jay"..P|
000000a0  1d 20 f1 22 4d 6f 64 69  66 69 65 64 20 62 79 20  |. ."Modified by |
000000b0  4d 69 6b 65 20 43 6f 6f  6b 22 0d 00 5a 21 20 f1  |Mike Cook"..Z! .|
000000c0  22 28 43 29 20 54 68 65  20 4d 69 63 72 6f 20 55  |"(C) The Micro U|
000000d0  73 65 72 20 4a 61 6e 20  39 32 22 0d 00 64 0d 20  |ser Jan 92"..d. |
000000e0  f2 61 73 73 65 6d 3a f1  0d 00 6e 14 20 f1 22 31  |.assem:...n. ."1|
000000f0  2e 20 50 6f 70 20 4d 75  73 69 63 22 0d 00 78 2a  |. Pop Music"..x*|
00000100  20 f1 22 32 2e 20 49 20  63 61 6e 27 74 20 67 65  | ."2. I can't ge|
00000110  74 20 74 68 65 20 6c 61  75 67 68 20 72 69 67 68  |t the laugh righ|
00000120  74 20 42 6f 62 22 0d 00  82 0b 20 f5 3a 47 25 3d  |t Bob".... .:G%=|
00000130  a5 0d 00 8c 27 20 e7 47  25 3d 97 22 31 22 20 41  |....' .G%=."1" A|
00000140  25 3d 34 30 3a 58 25 3d  26 33 30 3a 59 25 3d 26  |%=40:X%=&30:Y%=&|
00000150  35 38 3a d6 70 6c 61 79  0d 00 96 27 20 e7 47 25  |58:.play...' .G%|
00000160  3d 97 22 32 22 20 41 25  3d 34 30 3a 58 25 3d 26  |=."2" A%=40:X%=&|
00000170  35 38 3a 59 25 3d 26 37  43 3a d6 70 6c 61 79 0d  |58:Y%=&7C:.play.|
00000180  00 a0 08 20 fd 20 a3 0d  00 aa 0c 20 dd f2 61 73  |... . ..... ..as|
00000190  73 65 6d 0d 00 b4 15 20  e3 20 50 41 53 53 3d 30  |sem.... . PASS=0|
000001a0  20 b8 20 32 20 88 20 32  0d 00 be 16 20 50 25 3d  | . 2 . 2.... P%=|
000001b0  26 39 30 30 3a 5b 4f 50  54 20 50 41 53 53 0d 00  |&900:[OPT PASS..|
000001c0  c8 18 20 2e 70 6c 61 79  5f 73 20 53 45 49 3a 4a  |.. .play_s SEI:J|
000001d0  53 52 69 6e 69 74 0d 00  d2 13 20 4c 44 41 23 26  |SRinit.... LDA#&|
000001e0  30 46 3a 53 54 41 26 37  32 0d 00 dc 13 20 4c 44  |0F:STA&72.... LD|
000001f0  41 23 26 30 30 3a 53 54  41 26 37 30 0d 00 e6 12  |A#&00:STA&70....|
00000200  20 4c 44 41 26 37 35 3a  53 54 41 26 37 31 0d 00  | LDA&75:STA&71..|
00000210  f0 13 20 2e 6c 6f 6f 70  31 20 4c 44 59 23 26 30  |.. .loop1 LDY#&0|
00000220  30 0d 00 fa 0b 20 2e 6c  6f 6f 70 32 0d 01 04 19  |0.... .loop2....|
00000230  20 4c 44 41 28 26 37 30  29 2c 59 3a 50 48 41 3a  | LDA(&70),Y:PHA:|
00000240  80 23 26 30 46 0d 01 0e  18 20 4a 53 52 73 6f 75  |.#&0F.... JSRsou|
00000250  6e 64 31 3a 50 4c 41 3a  80 23 26 46 30 0d 01 18  |nd1:PLA:.#&F0...|
00000260  18 20 4c 53 52 41 3a 4c  53 52 41 3a 4c 53 52 41  |. LSRA:LSRA:LSRA|
00000270  3a 4c 53 52 41 0d 01 22  12 20 4a 53 52 73 6f 75  |:LSRA..". JSRsou|
00000280  6e 64 31 3a 49 4e 59 0d  01 2c 14 20 42 4e 45 6c  |nd1:INY..,. BNEl|
00000290  6f 6f 70 32 3a 49 4e 43  26 37 31 0d 01 36 1b 20  |oop2:INC&71..6. |
000002a0  4c 44 41 26 37 31 3a 43  4d 50 26 37 36 3a 42 4e  |LDA&71:CMP&76:BN|
000002b0  45 6c 6f 6f 70 31 0d 01  40 16 20 4c 44 41 23 26  |Eloop1..@. LDA#&|
000002c0  30 46 3a 4a 53 52 73 6f  75 6e 64 31 0d 01 4a 0c  |0F:JSRsound1..J.|
000002d0  20 43 4c 49 3a 52 54 53  0d 01 54 1b 20 2e 69 6e  | CLI:RTS..T. .in|
000002e0  69 74 20 4c 44 41 23 26  46 46 3a 53 54 41 26 46  |it LDA#&FF:STA&F|
000002f0  45 34 33 0d 01 5e 15 20  4c 44 41 23 26 38 34 3a  |E43..^. LDA#&84:|
00000300  4a 53 52 73 6f 75 6e 64  0d 01 68 15 20 4c 44 41  |JSRsound..h. LDA|
00000310  23 26 30 30 3a 4a 53 52  73 6f 75 6e 64 0d 01 72  |#&00:JSRsound..r|
00000320  15 20 4c 44 41 23 26 41  34 3a 4a 53 52 73 6f 75  |. LDA#&A4:JSRsou|
00000330  6e 64 0d 01 7c 15 20 4c  44 41 23 26 30 30 3a 4a  |nd..|. LDA#&00:J|
00000340  53 52 73 6f 75 6e 64 0d  01 86 15 20 4c 44 41 23  |SRsound.... LDA#|
00000350  26 43 34 3a 4a 53 52 73  6f 75 6e 64 0d 01 90 15  |&C4:JSRsound....|
00000360  20 4c 44 41 23 26 30 30  3a 4a 53 52 73 6f 75 6e  | LDA#&00:JSRsoun|
00000370  64 0d 01 9a 08 20 52 54  53 0d 01 a4 14 20 2e 73  |d.... RTS.... .s|
00000380  6f 75 6e 64 20 53 54 41  26 46 45 34 46 0d 01 ae  |ound STA&FE4F...|
00000390  15 20 4c 44 58 23 26 30  30 3a 53 54 58 26 46 45  |. LDX#&00:STX&FE|
000003a0  34 30 0d 01 b8 1c 20 4e  4f 50 3a 4e 4f 50 3a 4e  |40.... NOP:NOP:N|
000003b0  4f 50 3a 4e 4f 50 3a 4e  4f 50 3a 4e 4f 50 0d 01  |OP:NOP:NOP:NOP..|
000003c0  c2 19 20 4c 44 58 23 26  30 38 3a 53 54 58 26 46  |.. LDX#&08:STX&F|
000003d0  45 34 30 3a 52 54 53 0d  01 cc 0c 20 2e 73 6f 75  |E40:RTS.... .sou|
000003e0  6e 64 31 0d 01 d6 14 20  84 41 23 26 39 30 3a 4a  |nd1.... .A#&90:J|
000003f0  53 52 73 6f 75 6e 64 0d  01 e0 14 20 84 41 23 26  |SRsound.... .A#&|
00000400  32 30 3a 4a 53 52 73 6f  75 6e 64 0d 01 ea 13 20  |20:JSRsound.... |
00000410  82 23 26 36 30 3a 4a 53  52 73 6f 75 6e 64 0d 01  |.#&60:JSRsound..|
00000420  f4 0b 20 4c 44 58 26 37  34 0d 01 fe 0b 20 2e 6c  |.. LDX&74.... .l|
00000430  6f 6f 70 33 0d 02 08 15  20 44 45 58 3a 42 4e 45  |oop3.... DEX:BNE|
00000440  6c 6f 6f 70 33 3a 52 54  53 0d 02 12 0a 20 2e 70  |loop3:RTS.... .p|
00000450  6c 61 79 0d 02 1c 19 20  53 54 41 26 37 34 3a 53  |lay.... STA&74:S|
00000460  54 58 26 37 35 3a 53 54  59 26 37 36 0d 02 26 0e  |TX&75:STY&76..&.|
00000470  20 4a 4d 50 70 6c 61 79  5f 73 0d 02 30 08 20 5d  | JMPplay_s..0. ]|
00000480  3a ed 0d 02 3a 06 20 e1  0d ff                    |:...:. ...|
0000048a