1 /DECUS 8-152A MUSIC CODING 2 / 3 /VERSION 1.2 4 / 5 / 6 / 7 /EDITOR PAGE 1 8 / 9 / 10 *0600 11 00600 0000 END, 0 12 00601 7200 CLA 13 00602 1031 TAD TEMP 14 00603 1322 TAD ARR 15 00604 7440 SZA 16 00605 5600 JMP I END 17 00606 7402 HLT 18 00607 4327 JMS LEADER 19 00610 1323 TAD ORGW 20 00611 4277 JMS ORIGIN 21 00612 1020 TAD WORD0 22 00613 4311 JMS PUNC 23 00614 1020 TAD WORD0 24 00615 4277 JMS ORIGIN 25 00616 1063 TAD NLOOP 26 00617 7041 CIA 27 00620 3063 DCA NLOOP 28 00621 1057 TAD LCO0 29 00622 3060 DCA LCO 30 00623 1061 TAD LCC0 31 00624 3062 DCA LCC 32 00625 3022 DCA NOTE0 33 00626 1462 LOOP0, TAD I LCC 34 00627 7041 CIA 35 00630 1460 TAD I LCO 36 00631 3031 DCA TEMP 37 00632 1031 TAD TEMP 38 00633 7041 CIA 39 00634 1022 TAD NOTE0 40 00635 3022 DCA NOTE0 41 00636 1020 TAD WORD0 42 00637 1460 TAD I LCO 43 00640 3021 DCA WORD 44 00641 1421 LOOP1, TAD I WORD 45 00642 4311 JMS PUNC 46 00643 7300 CLA CLL 47 00644 2021 ISZ WORD 48 00645 2031 ISZ TEMP 49 00646 5241 JMP LOOP1 50 00647 2060 ISZ LCO 51 00650 2062 ISZ LCC 52 00651 2063 ISZ NLOOP 53 00652 5226 JMP LOOP0 54 00653 1324 TAD ORGN 55 00654 4277 JMS ORIGIN 56 00655 1022 TAD NOTE0 57 00656 4311 JMS PUNC 58 00657 4311 JMS PUNC 59 00660 5345 JMP CKSUM 60 00661 0000 PUNCH, 0 61 00662 6046 TLS 62 00663 6041 TSF 63 00664 5263 JMP .-1 64 00665 1351 TAD CHKSUM 65 00666 3351 DCA CHKSUM 66 00667 7200 CLA 67 00670 5661 JMP I PUNCH 68 00671 0000 FIX, 0 69 00672 7012 RTR 70 00673 7012 RTR 71 00674 7012 RTR 72 00675 0325 AND MASK 73 00676 5671 JMP I FIX 74 00677 0000 ORIGIN, 0 75 00700 3034 DCA TA 76 00701 1034 TAD TA 77 00702 4271 JMS FIX 78 00703 1326 TAD ORG 79 00704 4261 JMS PUNCH 80 00705 1034 TAD TA 81 00706 0325 AND MASK 82 00707 4261 JMS PUNCH 83 00710 5677 JMP I ORIGIN 84 00711 0000 PUNC, 0 85 00712 3034 DCA TA 86 00713 1034 TAD TA 87 00714 4271 JMS FIX 88 00715 4261 JMS PUNCH 89 00716 1034 TAD TA 90 00717 0325 AND MASK 91 00720 4261 JMS PUNCH 92 00721 5711 JMP I PUNC 93 00722 0244 ARR, 0244 94 00723 0020 ORGW, 0020 95 00724 0022 ORGN, 0022 96 00725 0077 MASK, 0077 97 00726 0100 ORG, 0100 98 00727 0000 LEADER, 0000 99 00730 7300 CLA CLL 100 00731 1342 TAD M30 101 00732 3343 DCA T1 102 00733 1344 TAD P200 103 00734 4261 JMS PUNCH 104 00735 2343 ISZ T1 105 00736 5333 JMP .-3 106 00737 7300 CLA CLL 107 00740 3351 DCA CHKSUM 108 00741 5727 JMP I LEADER 109 00742 7750 M30, -30 110 00743 0000 T1, 0000 111 00744 0200 P200, 0200 112 00745 1351 CKSUM, TAD CHKSUM 113 00746 4311 JMS PUNC 114 00747 4327 JMS LEADER 115 00750 7402 HLT 116 00751 0000 CHKSUM, 0000 117 / 118 / 119 / 120 *0020 121 00020 1000 WORD0, 1000 122 00021 0000 WORD, 0 123 00022 0000 NOTE0, 0 124 00023 0000 CNT, 0 125 00024 0377 RB, 0377 126 00025 0212 LF0, 0212 127 00026 0215 CR, 0215 128 00027 0252 AST, 0252 129 00030 0240 SP, 0240 130 00031 0000 TEMP, 0 131 00032 0000 LEN0, 0 132 00033 0000 FREQ0, 0000 133 00034 0000 TA, 0000 134 00035 0257 BRA, 0257 135 00036 0044 SS0, 0044 136 00037 0301 AA0, 0301 137 00040 0013 RR0, 0013 138 00041 0000 AMP0, 0000 139 00042 0261 LL0, 0261 140 00043 0511 ASTI, ASTK 141 00044 0600 ENDI, END 142 00045 0400 LENI, LEN 143 00046 0003 MASKL, 0003 144 00047 0260 CORR, 260 145 00050 0540 UPARRI, UPARR 146 00051 0336 UPA, 336 147 00052 4000 DAMP, 4000 148 00053 0000 DAMP0, 0 149 00054 0200 FREQI, FREQ 150 00055 0274 OBR0, 0274 151 00056 0276 CBR0, 0276 152 00057 7400 LCO0, 7400 153 00060 0000 LCO, 0 154 00061 7500 LCC0, 7500 155 00062 0000 LCC, 0 156 00063 0000 NLOOP, 0 157 00064 0350 OBRI, OBR 158 00065 0473 CBRI, CBR 159 00066 0333 READI, READ 160 161 / 162 /EDITOR PAGE 2 163 / 164 / 165 *0100 166 00100 7300 D00100, CLA CLL 167 00101 6014 D00101, RFC 168 00102 1020 TAD WORD0 169 00103 3021 DCA WORD 170 00104 3022 DCA NOTE0 171 00105 3063 DCA NLOOP 172 00106 4116 START, JMS ACCEPT 173 00107 4443 JMS I ASTI 174 00110 4444 JMS I ENDI 175 00111 4464 P00111, JMS I OBRI 176 00112 4465 JMS I CBRI 177 00113 4450 JMS I UPARRI 178 00114 4454 JMS I FREQI 179 00115 5106 JMP START 180 00116 0000 ACCEPT, 0000 181 00117 7300 CLA CLL 182 00120 6011 RSF 183 00121 5120 JMP .-1 184 00122 6016 RRB RFC 185 00123 7041 CIA 186 00124 3031 DCA TEMP 187 00125 1031 TAD TEMP 188 00126 5516 JMP I ACCEPT 189 / 190 / 191 *0200 192 00200 0000 FREQ, 0000 193 00201 7300 CLA CLL 194 00202 1031 TAD TEMP 195 00203 1037 TAD AA0 196 00204 7450 SNA 197 00205 5234 JMP AA 198 00206 7001 IAC 199 00207 7450 SNA 200 00210 5237 JMP BB 201 00211 7001 IAC 202 00212 7450 SNA 203 00213 5242 JMP CC 204 00214 7001 IAC 205 00215 7450 SNA 206 00216 5245 JMP DD 207 00217 7001 IAC 208 00220 7450 SNA 209 00221 5250 JMP EE 210 00222 7001 IAC 211 00223 7450 SNA 212 00224 5253 JMP FF 213 00225 7001 IAC 214 00226 7450 SNA 215 00227 5256 JMP GG 216 00230 1040 TAD RR0 217 00231 7450 SNA 218 00232 5261 JMP RR 219 00233 5600 JMP I FREQ 220 00234 7300 AA, CLA CLL 221 00235 3033 DCA FREQ0 222 00236 5272 JMP FINF 223 00237 1365 BB, TAD B 224 00240 3033 DCA FREQ0 225 00241 5272 JMP FINF 226 00242 1366 CC, TAD C 227 00243 3033 DCA FREQ0 228 00244 5272 JMP FINF 229 00245 1367 DD, TAD D 230 00246 3033 DCA FREQ0 231 00247 5272 JMP FINF 232 00250 1370 EE, TAD E 233 00251 3033 DCA FREQ0 234 00252 5272 JMP FINF 235 00253 1371 FF, TAD F 236 00254 3033 DCA FREQ0 237 00255 5272 JMP FINF 238 00256 1372 GG, TAD G 239 00257 3033 DCA FREQ0 240 00260 5272 JMP FINF 241 00261 1041 RR, TAD AMP0 242 00262 3034 DCA TA 243 00263 3041 DCA AMP0 244 00264 3033 DCA FREQ0 245 00265 7240 CLA CMA 246 00266 3023 DCA CNT 247 00267 2022 ISZ NOTE0 248 00270 2021 ISZ WORD 249 00271 5445 JMP I LENI 250 00272 2022 FINF, ISZ NOTE0 251 00273 2021 ISZ WORD 252 00274 4116 JMS ACCEPT 253 00275 1042 TAD LL0 254 00276 7450 SNA 255 00277 5316 JMP FINF1 256 00300 7001 IAC 257 00301 7450 SNA 258 00302 5307 JMP TW 259 00303 7001 IAC 260 00304 7450 SNA 261 00305 5313 JMP TH 262 00306 5272 JMP FINF 263 00307 1033 TW, TAD FREQ0 264 00310 1373 TAD TWO 265 00311 3033 DCA FREQ0 266 00312 5316 JMP FINF1 267 00313 1033 TH, TAD FREQ0 268 00314 1374 TAD THREE 269 00315 3033 DCA FREQ0 270 00316 4116 FINF1, JMS ACCEPT 271 00317 1035 TAD BRA 272 00320 7450 SNA 273 00321 5332 JMP FINFS 274 00322 1036 TAD SS0 275 00323 7450 SNA 276 00324 5326 JMP SS 277 00325 5316 JMP FINF1 278 00326 1033 SS, TAD FREQ0 279 00327 7001 IAC 280 00330 3033 DCA FREQ0 281 00331 5316 JMP FINF1 282 00332 5445 FINFS, JMP I LENI 283 00333 0000 READ, 0000 284 00334 7200 CLA 285 00335 4116 JMS ACCEPT 286 00336 1047 TAD CORR 287 00337 7041 CIA 288 00340 7106 CLL RTL 289 00341 7004 RAL 290 00342 3034 DCA TA 291 00343 4116 JMS ACCEPT 292 00344 1047 TAD CORR 293 00345 7041 CIA 294 00346 1034 TAD TA 295 00347 5733 JMP I READ 296 00350 0000 OBR, 0000 297 00351 7300 CLA CLL 298 00352 1031 TAD TEMP 299 00353 1055 TAD OBR0 300 00354 7440 SZA 301 00355 5750 JMP I OBR 302 00356 4333 JMS READ 303 00357 1057 TAD LCO0 304 00360 3060 DCA LCO 305 00361 1022 TAD NOTE0 306 00362 7001 IAC 307 00363 3460 DCA I LCO 308 00364 5106 JMP START 309 00365 0006 B, 6 310 00366 0013 C, 13 311 00367 0021 D, 21 312 00370 0025 E, 25 313 00371 0030 F, 30 314 00372 0034 G, 34 315 00373 0002 TWO, 2 316 00374 0003 THREE, 3 317 / 318 / 319 / 320 / 321 322 /EDITOR PAGE 3 323 / 324 *0400 325 00400 4116 LEN, JMS ACCEPT 326 00401 1326 TAD EI0 327 00402 7450 SNA 328 00403 5221 JMP EI 329 00404 1327 TAD HA0 330 00405 7450 SNA 331 00406 5224 JMP HA 332 00407 1330 TAD QA0 333 00410 7450 SNA 334 00411 5227 JMP QA 335 00412 1331 TAD SI0 336 00413 7450 SNA 337 00414 5232 JMP SI 338 00415 1332 TAD WH0 339 00416 7450 SNA 340 00417 5235 JMP WH 341 00420 5200 JMP LEN 342 00421 1333 EI, TAD ET 343 00422 3032 DCA LEN0 344 00423 5240 JMP FINL 345 00424 1334 HA, TAD H0 346 00425 3032 DCA LEN0 347 00426 5240 JMP FINL 348 00427 1335 QA, TAD Q 349 00430 3032 DCA LEN0 350 00431 5240 JMP FINL 351 00432 7300 SI, CLA CLL 352 00433 3032 DCA LEN0 353 00434 5240 JMP FINL 354 00435 1336 WH, TAD W 355 00436 3032 DCA LEN0 356 00437 5240 JMP FINL 357 00440 4116 FINL, JMS ACCEPT 358 00441 1337 TAD DOT0 359 00442 7450 SNA 360 00443 5250 JMP DOT 361 00444 7001 IAC 362 00445 7450 SNA 363 00446 5254 JMP FINL1 364 00447 5240 JMP FINL 365 00450 1032 DOT, TAD LEN0 366 00451 7001 IAC 367 00452 3032 DCA LEN0 368 00453 5240 JMP FINL 369 00454 1032 FINL1, TAD LEN0 370 00455 7106 CLL RTL 371 00456 7006 RTL 372 00457 7004 RAL 373 00460 1041 TAD AMP0 374 / 375 /VRS: The stuff below is missing from the write-up. 376 00461 1033 TAD FREQ0 377 00462 1053 TAD DAMP0 378 00463 3421 DCA I WORD 379 00464 2023 ISZ CNT 380 00465 5270 JMP .+3 381 00466 1034 TAD TA 382 00467 3041 DCA AMP0 383 00470 3023 DCA CNT 384 00471 3053 DCA DAMP0 385 00472 5106 JMP START 386 387 00473 0000 CBR, 0 388 00474 7300 CLA CLL 389 00475 1031 TAD TEMP 390 00476 1056 TAD CBR0 391 00477 7440 SZA 392 00500 5673 JMP I CBR 393 00501 4466 JMS I READI 394 00502 1061 TAD LCC0 395 00503 3062 DCA LCC 396 00504 1022 TAD NOTE0 397 00505 7001 IAC 398 00506 3462 DCA I LCC 399 00507 2063 ISZ NLOOP 400 00510 5106 JMP START 401 402 00511 0000 ASTK, 0 403 00512 7300 CLA CLL 404 00513 1031 TAD TEMP 405 00514 1027 TAD AST 406 00515 7440 SZA 407 00516 5711 JMP I ASTK 408 00517 4116 JMS ACCEPT 409 00520 7041 CIA 410 00521 0046 AND MASKL 411 00522 7112 CLL RTR 412 00523 7012 RTR 413 00524 3041 DCA AMP0 414 00525 5106 JMP START 415 416 00526 0305 EI0, 305 417 00527 0003 HA0, 3 418 00530 0011 QA0, 11 419 00531 0002 SI0, 2 420 00532 0004 WH0, 4 421 00533 0002 ET, 2 422 00534 0007 H0, 7 423 00535 0004 Q, 4 424 00536 0013 W, 13 425 00537 0256 DOT0, 256 426 427 00540 0000 UPARR, 0 428 00541 7300 CLA CLL 429 00542 1031 TAD TEMP 430 00543 1051 TAD UPA 431 00544 7440 SZA 432 00545 5740 JMP I UPARR 433 00546 1052 TAD DAMP 434 00547 3053 DCA DAMP0 435 00550 5106 JMP START 436 $