               job  Radio music, first revision
               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.
     *
     * First revision -- just straighten out code, use MA or MA macro.
     *
     * Data for the code
     *
               org  251
               dcw  001814
               dcw  0803
               dcw  001713
               dcw  0814
               dcw  001621
               dcw  0824
               dcw  001529
               dcw  0834
               dcw  001437
               dcw  0844
               dcw  001363
               dcw  0852
               dcw  001281
               dcw  0861
               dcw  001216
               dcw  0868
               dcw  001143
               dcw  0876
               dcw  001078
               dcw  0883
               dcw  001023
               dcw  0889
               dcw  000959
               dcw  0896
               dcw  000903
               dcw  0902
               dcw  000857
               dcw  0907
               dcw  000811
               dcw  0912
               dcw  000765
               dcw  0917
               dcw  000719
               dcw  0922
               dcw  000683
               dcw  0926
               dcw  000646
               dcw  0930
               dcw  000609
               dcw  0934
               dcw  000572
               dcw  0938
               dcw  000535
               dcw  0942
               dcw  000508
               dcw  0945
               dcw  000480
               dcw  0948
               dcw  000453
               dcw  0951
               dcw  000425
               dcw  0954
               dcw  000407
               dcw  0956
               dcw  000379
               dcw  0959
               dcw  000361
               dcw  0961
               dcw  000342
               dcw  0963
               dcw  000324
               dcw  0965
               dcw  000305
               dcw  0967
               dcw  000287
               dcw  0969
               dcw  000269
               dcw  0971
               dcw  000250
               dcw  0973
               dcw  000241
               dcw  0974
               dcw  000223
               dcw  0976
               dcw  000213
               dcw  0977
               job  Executable code and work areas
     work7     equ  799
               org  978
     work5a    ds   5
               org  995
     work5b    ds   5
               org  1000
     start     sw   1
     rstart    mcw  kagin,move&6    Restart base address for song
     read      r
     move      mcw  80,buf&79
               ma   k080,move&6
               bce  move1,80,Z
               b    read
     tryb      bss  rstart,b
     move1     mcw  kbeg,move2&3
     move2     mcw  buf&3,work4
               ma   k004,move2&3
     mkz6b     mcw  kz6b,work5b
               bce  tryb,work4-3,Z
               bce  *&5,work4-3,0
               b    mn
               mcw  work4,work2
               mcw  kz25,work7
               sw   work5b-4
     add       a    work7,work5b
               c    work5b-3,work2
               bu   add
               cw   work5b-4
               b    mkz6
     mn        mn   work4-2,move3&2
               mn
               mn   work4-2,move4&2
               mn
               mn   work4-2,move5&2
               mn
     move3     mcw  9-0,sw&3     Second character of A addr changed
     move4     mcw  9-0,cw&3     Second character of A addr changed
     move5     mcw  5-0,work7    Second character of A addr changed
               mcw  work4,work2
     sw        sw   0-0
     move6     mcw  work5b,work5b
               a    work7,work5a
               c    work5a-4,work2
               bu   move6
     cw        cw   0-0
     mkz6      mcw  kz6,work5a
               b    move2
     k080      dcw  080
     kbeg      DSA  buf&3
     k004      dcw  004
     kz6       dcw  000000
     kagin     DSA  buf&79
     work4     dcw  0000
     work2     dcw  00
     kz25      dcw  000025
     kz6b      dcw  000000
     buf       equ  1400
               end  start
