programs/small-things/src/play.asm

   1 * SUPERCOOLES SONDERPROGRAMM!
   2 *
   3         ABS
   4         ORG     '1000
   5 *
   6 *
   7 *
   8         LDA     =-50
   9         STA     LCNT    LOOP COUNTER
  10         CRA
  11         STA     0       ACTIVE PATTERN
  12         LDA     ='125252
  13         IAB
  14         LDA     ='000770
  15         STA     MUS
  16 *
  17 L1S     LDA     =-'47777        INNER DELAY
  18         STA     CNT
  19         LDA     MUS
  20 L1      IRS     CNT
  21         JMP     *-1
  22         STA     MUS
  23 *
  24         LDA     MUS
  25         JST*    DISP,1          CALL INDEXED TO TABLE,HUI!
  26         STA     MUS
  27 *
  28         IRS     LCNT
  29         JMP     L1S     NOT READY TO CHANGE PATTERN
  30 *
  31         LDA     =-50    REINITIALIZE LOOP COUNTER
  32         STA     LCNT
  33 *
  34         LDA     0
  35         AOA
  36         ANA     =7
  37         STA     0
  38 *
  39         JMP     L1S     LOOP AGAIN INNER
  40 *
  41 MUS     DEC     0
  42 LCNT    DEC     0
  43 CNT     DEC     0
  44 *
  45 DISP    DAC     P0
  46         DAC     P0
  47         DAC     P2
  48         DAC     P3
  49         DAC     P4
  50         DAC     P5
  51         DAC     P6
  52         DAC     P7
  53 *
  54 *
  55 P0      DAC     **
  56         LLR     1
  57         JMP*    P0
  58 P1      DAC     **
  59         LRR     1
  60         JMP*    P1
  61 P2      DAC     **
  62         LLR     2
  63         JMP*    P2
  64 P3      DAC     **
  65         LRR     2
  66         JMP*    P3
  67 P4      DAC     **
  68         CMA
  69         JMP*    P4
  70 P5      DAC     **
  71         IAB
  72         JMP*    P5
  73 P6      DAC     **
  74         ICA
  75         JMP*    P6
  76 P7      DAC     **
  77         ALR     1
  78         JMP*    P7
  79 *
  80 *
  81 * THAT'S IT!
  82 *
  83         END