               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
