* 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