[h316.git] / programs / tools / src / asr-test.asm

* 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
*****************************************************
.
Commit	Line	Data
c08e22bb	1	* ASR-TESTPROGRAMM
	2	*
	3	*
	4	*
	5	*
	6	*STARTE BEI '1000:
	7	ORG '1000
	8	LOAD
	9	*
	10	*ERSTMAL WEGSPRINGEN
	11	JMP MAIN
	12	*
	13	MOTD BCI 10,ASR-TEST 2004-11-16
	14	DEC 13,10
	15	EMO DEC 0
	16	SP DAC MOTD
	17	EP DAC EMO
	18	VAR DEC 0
	19	*
	20	*
	21	******************************************************************
	22	* AUSGABEROUTINE *
	23	******************************************************************
	24	PRT DAC **
	25	*
	26	*ASR ANSTELLEN:
	27	OCP '0104
	28	SKS '104
	29	JMP *-1
	30	*
	31	*INDEX AKTIVIEREN:
	32	LDA* SP
	33	STA 0
	34	*
	35	*SPIEL BEGINNT:
047c458f	36	RND LDA 0
c08e22bb	37	SUB EP
	38	SNZ
	39	* SKIP WENN SP=EP >> FERTIG
	40	JMP* PRT
	41	*
	42	*
	43	LDA* 0
	44	*
	45	ICA
	46	OTA '0004
	47	JMP *-1
	48	*
	49	ICA
	50	OTA '0004
	51	JMP *-1
	52	*
	53	IRS 0
	54	NOP
	55	JMP RND
	56	*****************************************************
	57	*PAUSE
	58	CYC DEC 0
047c458f	59	CNT DEC 0
c08e22bb	60	PAUS DAC **
	61	LDA CYC
	62	STA CNT
	63	CYST NOP
	64	NOP
	65	NOP
	66	NOP
	67	NOP
	68	NOP
	69	NOP
	70	IRS CNT
	71	JMP CYST
	72	JMP* PAUS
	73	*****************************************************
	74	*TTY1
	75	TTY1 DAC **
	76	OTA 4
	77	JMP *-1
	78	JMP* TTY1
	79	*****************************************************
	80	* MAIN ROUTINE
	81	*
	82	MAIN SR1
047c458f	83	MAI2 JST PRT
047c458f	84	SR2
c08e22bb	85	JST PAUS
	86	SR3
	87	JST TTY1
	88	SR4
	89	HLT
	90	IAB
	91	AOA
	92	IAB
	93	JMP MAIN
	94	END
	95	*****************************************************
	96	.