*** empty log message ***

[h316.git] / programs / small-things / src / play.asm

diff --git a/programs/small-things/src/play.asm b/programs/small-things/src/play.asm
new file mode 100644 (file)
index 0000000..42bc25a
--- /dev/null
+++ b/programs/small-things/src/play.asm
@@ -0,0 +1,83 @@
+* SUPERCOOLES SONDERPROGRAMM!
+*
+       ABS
+       ORG     '1000
+*
+*
+*
+       LDA     =-50
+       STA     LCNT    LOOP COUNTER
+       CRA     
+       STA     0       ACTIVE PATTERN
+       LDA     ='125252
+       IAB
+       LDA     ='000770
+       STA     MUS
+*
+L1S    LDA     =-'47777        INNER DELAY
+       STA     CNT
+       LDA     MUS
+L1     IRS     CNT
+       JMP     *-1
+       STA     MUS
+*
+       LDA     MUS     
+       JST*    DISP,1          CALL INDEXED TO TABLE,HUI!
+       STA     MUS     
+*                      
+       IRS     LCNT
+       JMP     L1S     NOT READY TO CHANGE PATTERN
+*      
+       LDA     =-50    REINITIALIZE LOOP COUNTER
+       STA     LCNT
+*      
+       LDA     0
+       AOA
+       ANA     =7
+       STA     0
+*      
+       JMP     L1S     LOOP AGAIN INNER
+*      
+MUS    DEC     0
+LCNT   DEC     0
+CNT    DEC     0
+*                              
+DISP   DAC     P0
+       DAC     P0
+       DAC     P2
+       DAC     P3
+       DAC     P4
+       DAC     P5
+       DAC     P6
+       DAC     P7
+*              
+*
+P0     DAC     **
+       LLR     1
+       JMP*    P0      
+P1     DAC     **
+       LRR     1
+       JMP*    P1
+P2     DAC     **
+       LLR     2
+       JMP*    P2
+P3     DAC     **
+       LRR     2
+       JMP*    P3
+P4     DAC     **
+       CMA
+       JMP*    P4
+P5     DAC     **
+       IAB
+       JMP*    P5
+P6     DAC     **
+       ICA
+       JMP*    P6
+P7     DAC     **
+       ALR     1
+       JMP*    P7
+*
+*
+* THAT'S IT!
+*
+       END