TTL	'ADE demonstration'


RDCHV	EQU	$210

PAUSE	EQU	3		;delay factor


	ORG	&B00

	LDA	#>GETC

	STA	RDCHV

	LDA	#<GETC

	STA	RDCHV+1		;INPUT FROM HERE

	RTS


	; NEXT KEY INPUT FROM THIS ROUTINE


GETC	TXA

	PHA

	TYA

	PHA

	LDA	#PAUSE

	STA	WAIT

DELAY	DEX

	BNE	DELAY

	DEY

	BNE	DELAY

	DEC	WAIT

	BNE	DELAY

	LDX	INDEX		;WHICH CHAR

L2	LDA	CHARS,X

	CMP	#255

	BNE	L1

	LDX	#0

	STX	INDEX

	JMP	L2


L1	INC	INDEX

	STA	CHAR

	PLA

	TAY

	PLA

	TAX

	LDA	CHAR

	CLC

	RTS


WAIT	DS	1


CHAR	DS	1


INDEX	DFB	0


	; 256 KEY PRESSES


CHARS	ASC	'.|M'

	ASC	'SPY|M'	;8

	ASC	'2000M'		;13

	ASC	'*LOAD AD|M '	;23

	ASC	'          '

	ASC	'L@ZZZZZZZZZZZZZZZ' ;40

	ASC	'ZZZZZZZZZZZZZZZZZ'

	ASC	'L1900M'

	ASC	'|M|M|M|M|M|M'

	ASC	'//////////'

	ASC	'++++++++++'

	ASC	'----------'

	ASC	'G"ADE"00|M|M' ;55

	ASC	'|I      |I      L    L'

	ASC	'*ADE|M'	;64

	ASC	'LST|M'	;69

	ASC	'2000|M'	;74

	ASC	'2100|M'	;79

	ASC	'           |M'	;91

	ASC	'TV0,1|M'

	ASC	'MODE 3|M'

	ASC	'TYPE T.ADV|M'

	ASC	'           |M'

	ASC	'ASM T.ADV AD|M'

	ASC	'          |M'

	ASC	'AD|M'

	DFB	255