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

* 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
Commit	Line	Data
e5c436a2	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