* ASR-TESTPROGRAMM
*
*
*
*
*STARTE BEI '1000:
	ORG	'1000
	LOAD	
*
*ERSTMAL WEGSPRINGEN
	JMP 	MAIN
*
MOTD	BCI	10,ASR-TEST 2004-11-16
	DEC	13,10
EMO	DEC	0
SP	DAC	MOTD
EP	DAC	EMO
VAR	DEC	0
*
*
******************************************************************
*			AUSGABEROUTINE                           *
******************************************************************      
PRT	DAC	**
*
*ASR ANSTELLEN:	
	OCP	'0104
	SKS	'104
	JMP	*-1
*    	
*INDEX AKTIVIEREN:
	LDA*	SP
	STA	0
*	
*SPIEL BEGINNT:
RND	LDA	0
	SUB	EP
	SNZ
* SKIP WENN SP=EP >> FERTIG
	JMP*	PRT
*	
*	
	LDA*	0
*	
	ICA
	OTA	'0004
	JMP	*-1
*	
	ICA	
	OTA	'0004
	JMP	*-1
*	
	IRS	0
	NOP
	JMP	RND	
*****************************************************
*PAUSE
CYC	DEC	0
CNT	DEC	0
PAUS	DAC	**
	LDA	CYC
	STA	CNT
CYST	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	IRS	CNT
	JMP	CYST
	JMP*	PAUS
*****************************************************
*TTY1
TTY1	DAC	**
	OTA	4
	JMP 	*-1
	JMP*	TTY1
*****************************************************
*          MAIN ROUTINE
*
MAIN	SR1
MAI2	JST	PRT
	SR2
	JST 	PAUS
	SR3
	JST	TTY1
	SR4
	HLT	
	IAB
	AOA
	IAB
	JMP	MAIN
	END
*****************************************************
.