JOB CTL 6611 * * Play music over an AM radio. * This version assumes no features other than sense switches. * * Data are read into 1400... until a card with Z in column 80 * is read. * * Data for the code * ORG 251 256 DCW 001814 260 DCW 0803 266 DCW 001713 270 DCW 0814 276 DCW 001621 280 DCW 0824 286 DCW 001529 290 DCW 0834 296 DCW 001437 300 DCW 0844 306 DCW 001363 310 DCW 0852 316 DCW 001281 320 DCW 0861 326 DCW 001216 330 DCW 0868 336 DCW 001143 340 DCW 0876 346 DCW 001078 350 DCW 0883 356 DCW 001023 360 DCW 0889 366 DCW 000959 370 DCW 0896 376 DCW 000903 380 DCW 0902 386 DCW 000857 390 DCW 0907 396 DCW 000811 400 DCW 0912 406 DCW 000765 410 DCW 0917 416 DCW 000719 420 DCW 0922 426 DCW 000683 430 DCW 0926 436 DCW 000646 440 DCW 0930 446 DCW 000609 450 DCW 0934 456 DCW 000572 460 DCW 0938 466 DCW 000535 470 DCW 0942 476 DCW 000508 480 DCW 0945 486 DCW 000480 490 DCW 0948 496 DCW 000453 500 DCW 0951 506 DCW 000425 510 DCW 0954 516 DCW 000407 520 DCW 0956 526 DCW 000379 530 DCW 0959 536 DCW 000361 540 DCW 0961 546 DCW 000342 550 DCW 0963 556 DCW 000324 560 DCW 0965 566 DCW 000305 570 DCW 0967 576 DCW 000287 580 DCW 0969 586 DCW 000269 590 DCW 0971 596 DCW 000250 600 DCW 0973 606 DCW 000241 610 DCW 0974 616 DCW 000223 620 DCW 0976 626 DCW 000213 676 DCW 0977 job Executable code and work areas work7 equ 799 org 978 982work5a ds 5 org 995 999work5b ds 5 ORG 1000 1000start SW 1 1004read R 1005move MCW 80,buf&79 1012 SW move&4 1016 A k080,move&6 1023 CW move&4 1027 BCE move1,80,Z 1035 B read 1039move1 MCW kbeg,move2&3 1046move2 MCW buf&3,work4 1053 SW move2&1 1057 A k004,move2&3 1064 CW move2&1 1068 BIN mkz6b, ORG 1076 1076mn MN work4-2,move3&2 1083 MN 1084 MN work4-2,move4&2 1091 MN 1092 MN work4-2,move5&2 1099 MN 1100move3 MCW 9-0,sw&3 Second character of A addr changed 1107move4 MCW 9-0,cw&3 Second character of A addr changed 1114move5 MCW 5-0,work7 Second character of A addr changed 1121 MCW work4,work2 1128sw SW 0-0 1132move6 MCW work5b,work5b 1139 A work7,work5a 1146 C work5a-4,work2 1153 BU move6 1158cw CW 0-0 1162mkz6 MCW kz6,work5a 1169 B move2 1173tryb BSS rstart,b 1178 B move1 1182rstart MCW kagin,move&6 1189 B read 1195k080 DCW 080 1198kbeg DSA buf&3 1201k004 DCW 004 1207kz6 DCW 000000 1210kagin DSA buf&79 1214work4 DCW 0000 1216work2 DCW 00 1217more BCE tryb,work4-3,Z 1225 BCE *&5,work4-3,0 1233 B mn 1237 MCW work4,work2 1244 MCW kz25,work7 1251 SW work5b-4 1255add A work7,work5b 1262 C work5b-3,work2 1269 BU add 1274 CW work5b-4 1278 B mkz6 1287kz25 DCW 000025 1288mkz6b MCW kz6b,work5b 1295 B more 1304kz6b DCW 000000 * * Song storage * buf equ 1400 END start