[h316.git] / programs / first-steps / src / spiel.asm

****
*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
*****************************************************
Commit	Line	Data
c08e22bb	1	****
	2	*HACHTI'S AKTUELLES PROGRAMM.SAGT HALLO AUF DEM TELETYPE UND IST
	3	*AUCH SONST GANZ TOLL
	4	*
	5	*STARTE BEI '1000:
	6	ORG '1000
	7	*
	8	*LOAD MODUS, DER ASSEMBLER VERBIETET SICH JEDE INTELLIGENZ
	9	*BEI DER ADRESSIERUNG
	10	LOAD
	11	*
	12	*ERSTMAL WEGSPRINGEN
	13	JMP MAIN
	14	*
	15	*GELABER WAR SCHON IMMER MEINE STAERKE :-)
	16	MOTD BCI 21,HEY, HIER IST HACHTI'S ERSTES PROGRAM :-)
	17	DEC 13,10,13,10
	18	BCI 9,DAS REICHT ERSTMAL
	19	DEC 13,10
	20	EMO DEC 0
	21	SP DAC MOTD
	22	EP DAC EMO
	23	*
	24	*
	25	******************************************************************
	26	* AUSGABEROUTINE *
	27	******************************************************************
	28	PRT DAC **
	29	*
	30	*ASR ANSTELLEN:
	31	OCP '0104
	32	*
	33	*INDEX AKTIVIEREN:
	34	LDA* SP
	35	STA 0
	36	*
	37	*SPIEL BEGINNT:
	38	RND LDA 0
	39	SUB EP
	40	SNZ
	41	* SKIP WENN SP=EP >> FERTIG
	42	JMP* PRT
	43	*
	44	*
	45	LDA* 0
	46	*
	47	ICA
	48	OTA '0004
	49	JMP *-1
	50	*
	51	ICA
	52	OTA '0004
	53	JMP *-1
	54	*
	55	IRS 0
	56	NOP
	57	JMP RND
	58	*****************************************************
	59	*****************************************************
	60	* MAIN ROUTINE
	61	*
	62	MAIN JST PRT
	63	IAB
	64	AOA
65	IAB
66	SR1
67	JMP *-1
68	JMP MAIN
69	END
70	*****************************************************
71
72
73