1 /DECUS 8-152 MUSIC PLAYING PROGRAM 2 / 3 /VERSION 2.3 4 / 5 / 6 / 7 / 8 *0200 9 00200 7300 PLAY, CLA CLL 10 00201 1020 TAD WORD0 11 00202 3021 DCA WORD 12 00203 1022 TAD NOTE0 13 00204 7041 CIA 14 00205 3023 DCA NOTE 15 00206 1421 START, TAD I WORD 16 00207 7106 CLL RTL 17 00210 0037 AND MASKD 18 00211 1040 TAD DAMP0 19 00212 3041 DCA DAMP 20 00213 1441 TAD I DAMP 21 00214 3041 DCA DAMP 22 00215 1377 TAD DFIX 23 00216 3261 DCA DAMPI 24 00217 1421 TAD I WORD 25 00220 0024 AND MASKF 26 00221 1025 TAD CONSTF 27 00222 3026 DCA N0 28 00223 1426 TAD I N0 29 00224 3026 DCA N0 30 00225 1421 TAD I WORD 31 00226 0027 AND MASKA 32 00227 7110 CLL RAR 33 00230 7440 SZA 34 00231 5234 JMP .+3 35 00232 1376 TAD CDAM 36 00233 3261 DCA DAMPI 37 00234 3030 DCA AMP 38 00235 1421 TAD I WORD 39 00236 0031 AND MASKL 40 00237 7012 RTR 41 00240 7112 CLL RTR 42 00241 7010 RAR 43 00242 1032 TAD CONSTL 44 00243 3033 DCA L0 45 00244 1433 TAD I L0 46 00245 7041 CIA 47 00246 3033 DCA L0 48 00247 1033 TAD L0 49 00250 3034 DCA L 50 00251 1035 TAD CNTR 51 00252 3036 DCA CNT 52 00253 1026 TAD N0 53 00254 6554 6554 /FREQ OUT 54 00255 7300 CLA CLL 55 00256 2034 A, ISZ L 56 00257 5256 JMP A 57 00260 1030 TAD AMP 58 00261 1041 DAMPI, TAD DAMP 59 00262 7012 RTR 60 00263 6551 6551 61 00264 7006 RTL 62 00265 3030 DCA AMP 63 00266 2036 ISZ CNT 64 00267 7410 SKP 65 00270 5274 JMP FIN 66 00271 1033 TAD L0 67 00272 3034 DCA L 68 00273 5256 JMP A 69 00274 2021 FIN, ISZ WORD 70 00275 6552 6552 /FREQ OFF 71 00276 2023 ISZ NOTE 72 00277 7410 SKP 73 00300 7402 HLT 74 00301 5206 JMP START 75 / 76 / 77 / 78 / 79 / 80 / 81 82 / 83 /EDITOR PAGE 2 84 / 85 / 86 *0376 87 00376 7000 CDAM, NOP 88 00377 1041 DFIX, TAD DAMP 89 / 90 / 91 / 92 *0020 93 00020 0000 WORD0, 0000 94 00021 0000 WORD, 0000 95 00022 0000 NOTE0, 0000 96 00023 0000 NOTE, 0000 97 00024 0037 MASKF, 0037 98 00025 0100 CONSTF, 0100 99 00026 0000 N0, 0000 100 00027 3000 MASKA, 3000 101 00030 0000 AMP, 0000 102 00031 0740 MASKL, 0740 103 00032 0150 CONSTL, 0150 104 00033 0000 L0, 0000 105 00034 0000 L, 0000 106 107 00035 7740 CNTR, 7740 /TEMPO COUNTER 108 00036 0000 CNT, 0000 109 00037 0001 MASKD, 0001 110 00040 0170 DAMP0, DAMPP 111 00041 0000 DAMP, 0000 112 / 113 / 114 / 115 / 116 *0170 117 00170 7777 DAMPP, 7777 118 00171 7777 7777 119 / 120 / 121 / 122 / 123 / 124 / 125 / 126 / 127 /NOTE FREQUENCIES 128 / 129 / 130 *0100 131 00100 0373 A1, 373 132 00101 0355 A1S, 355 133 00102 0175 A2, 175 134 00103 0166 A2S, 166 135 00104 0076 A3, 76 136 00105 0072 A3S, 72 137 00106 0337 B1, 337 138 00107 0337 337 139 00110 0157 B2, 157 140 00111 0157 157 141 00112 0067 B3, 67 142 00113 0323 C1, 323 143 00114 0307 C1S, 307 144 00115 0151 C2, 151 145 00116 0143 C2S, 143 146 00117 0064 C3, 64 147 00120 0061 C3S, 61 148 00121 0274 D1, 274 149 00122 0261 D1S, 261 150 00123 0135 D2, 135 151 00124 0130 D2S, 130 152 00125 0247 E1, 247 153 00126 0247 247 154 00127 0123 E2, 123 155 00130 0236 F1, 236 156 00131 0225 F1S, 225 157 00132 0116 F2, 116 158 00133 0112 F2S, 112 159 00134 0214 G1, 214 160 00135 0204 G1S, 204 161 00136 0106 G2, 106 162 00137 0102 G2S, 102 163 / 164 / 165 /NOTE LENGTHS 166 / 167 / 168 *0150 169 00150 0010 SIXT, 0010 170 00151 0014 SIXT1, 0014 171 00152 0020 EIGHT, 0020 172 00153 0030 EIGHT1, 0030 173 00154 0040 QUART, 0040 174 00155 0060 QUART1, 0060 175 00156 0050 QUARTS, 0050 176 00157 0100 HALF, 0100 177 00160 0140 HALF1, 0140 178 00161 0110 HALFS, 0110 179 00162 0120 HALFE, 0120 180 00163 0200 WHOLE, 0200 181 00164 0300 WHOLE1, 0300 182 00165 0240 WHOLEQ, 0240 183 00166 0340 WHOLHQ, 0340 184 00167 0400 WHOLW, 0400 185 / 186 / 187 / 188 / 189 / 190 / 191 $