X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fsmall-things%2Fsrc%2Fplay.asm;fp=programs%2Fsmall-things%2Fsrc%2Fplay.asm;h=42bc25a8a687048796f8d787d050ccfc54e02f62;hb=e5c436a28690c7ae2d45932e1d74cb55a4ab211f;hp=0000000000000000000000000000000000000000;hpb=c6be4ceec9e04d59a5538fa5c7b8464f42f8dd98;p=h316.git

diff --git a/programs/small-things/src/play.asm b/programs/small-things/src/play.asm
new file mode 100644
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