TTL	'ADE advert'

RED	EQU	129

WHITE	EQU	RED+7


POS	EQU	&78		;FOR SCROLL


	ORG	&2000

START	LDA	#RED

	STA	&71

LOOP	LDX	#0

CONT	BIT	&FF		;ESC?

	BMI	EXIT

	LDA	TEXT,X

	CMP	#$FF

	BEQ	DONE

	CMP	#'*

	BNE	L1

	JSR	CRLF

L3	INX

	BNE	CONT


L1	CMP	#'$

	BNE	L2

	JSR	DELAY

	JMP	L3


L2	JSR	&FFEE

	JSR	DEL1

	INX

	BNE	CONT


DONE	LDX	#5		;LONG DELAY

WAIT	JSR	DELAY

	DEX

	BNE	WAIT

	LDX	&71		;CHANGE COLOUR

	CPX	#WHITE+1

	BCC	*+4

	LDX	#RED-1

	INX

	STX	&71

	JSR	SCROLL

	DEC	RUNS

	BNE	LOOP

	RTS


DEL1	LDY	#$20

	STY	&70

DEL10	DEY

	BNE	DEL10

	DEC	&70

	BNE	DEL10

EXIT	RTS




DELAY	LDA	#6

	STA	&70

	TXA

	PHA

DLP	DEX

	BNE	DLP

	DEY

	BNE	DLP

	DEC	&70

	BNE	DLP

	PLA

	TAX

	RTS


CRLF	LDA	#10

	JSR	&FFEE

	LDA	#13

	JSR	&FFEE

	LDA	&71		;colour

	JMP	&FFEE


	; SIDEWAYS SCROLL


SCROLL	LDA	#0

	STA	POS

	STA	POS+1

SLP	LDA	#31		;POS CURSOR

	JSR	&FFEE

	LDA	#0

	JSR	&FFEE

	LDA	#22

	JSR	&FFEE

	LDA	&71		;COL

	JSR	&FFEE

	LDX	POS		;START HERE

	LDY	#0		;CHAR COUNT

SC2	CPY	#39		;DONE?

	BEQ	SDONE

	CPX	#39		;AT END?

	BNE	SC1

	LDX	#0		;WRAP

SC1	LDA	STX,X

	JSR	&FFEE

	INX

	INY

	BNE	SC2


SDONE	JSR	DEL1

	JSR	DEL1

	INC	POS

	LDA	POS

	CMP	#39

	BNE	SC3

	LDA	#0

SC3	STA	POS

	INC	POS+1

	BNE	SLP

	JMP	DELAY


STX	ASC	'SYSTEM software:the programmers choice '


TEXT	DFB	22,7,23,1,0,0,0,0,0,0,0,0,0

	ASC	"*****This is a demonstra"

	ASC	"tion$  of  SYSTEM's*"

	ASC	"ADE  chip. $ Which  "

	ASC	"is  a  16k   EPROM$*"

	ASC	"containing  a  macro"

	ASC	"  Assembler$,  the*S"

	ASC	"PY  debugger$  and  "

	ASC	"a  powerful  text*Ed"

	ASC	"itor.***$    See Us"

	ASC	"er guide for details    "

	ASC	"*"

	DFB	$FF


RUNS	DFB	1