****
*HACHTI'S AKTUELLES PROGRAMM.SAGT HALLO AUF DEM TELETYPE UND IST
*AUCH SONST GANZ TOLL
*   
*STARTE BEI '1000:
	ORG	'1000
*
*LOAD MODUS, DER ASSEMBLER VERBIETET SICH JEDE INTELLIGENZ
*BEI DER ADRESSIERUNG
	LOAD	
*
*ERSTMAL WEGSPRINGEN
	JMP 	MAIN
*
*GELABER WAR SCHON IMMER MEINE STAERKE :-)
MOTD	BCI	21,HEY, HIER IST HACHTI'S ERSTES PROGRAM :-)
	DEC	13,10,13,10
	BCI	9,DAS REICHT ERSTMAL
	DEC	13,10
EMO	DEC	0
SP	DAC	MOTD
EP	DAC	EMO
*
*
******************************************************************
*			AUSGABEROUTINE                           *
******************************************************************
PRT	DAC	**
*
*ASR ANSTELLEN:	
	OCP	'0104
*    	
*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	
*****************************************************
*****************************************************
*          MAIN ROUTINE
*
MAIN	JST	PRT
	IAB
	AOA
	IAB
	SR1	
	JMP	*-1
	JMP	MAIN
	END
*****************************************************