[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:
437b3ba8	38	RND LDA 0
c08e22bb	39	SUB EP
	40	SNZ
	41	* SKIP WENN SP=EP >> FERTIG
	42	JMP* PRT
437b3ba8	43	*
c08e22bb	44	LDA* 0
437b3ba8	45	*
c08e22bb	46	ICA
	47	OTA '0004
	48	JMP *-1
	49	*
	50	ICA
	51	OTA '0004
	52	JMP *-1
	53	*
	54	IRS 0
	55	NOP
	56	JMP RND
	57	*****************************************************
	58	*****************************************************
	59	* MAIN ROUTINE
	60	*
	61	MAIN JST PRT
	62	IAB
	63	AOA
	64	IAB
	65	SR1
	66	JMP *-1
	67	JMP MAIN
	68	END
	69	*****************************************************
	70
	71
	72