* * Micro Chroma 68 values
* LOAD	equ	$0000
* SCNBASE	equ	$d000

* MC-10 values
LOAD	equ	$4600
SCNBASE	equ	$4000

SCNLEN	equ	$0200

	org	LOAD

START	jsr	>CLRSCN

	des			Prepare the stack...
	des
	des
	des

LOOP	tsx
	ldaa	#SCNBASE/256
	ldab	#SCNBASE
	stab	3,x
	staa	2,x
	ldaa	#FRAME1/256
	ldab	#FRAME1
	stab	1,x
	staa	,x
	jsr	>WRITELN

	jsr	>DELAY

	tsx
	ldaa	#SCNBASE/256
	ldab	#SCNBASE
	stab	3,x
	staa	2,x
	ldaa	#FRAME2/256
	ldab	#FRAME2
	stab	1,x
	staa	,x
	jsr	>WRITELN

	jsr	>DELAY

	tsx
	ldaa	#SCNBASE/256
	ldab	#SCNBASE
	stab	3,x
	staa	2,x
	ldaa	#FRAME3/256
	ldab	#FRAME3
	stab	1,x
	staa	,x
	jsr	>WRITELN

	jsr	>DELAY

	tsx
	ldaa	#SCNBASE/256
	ldab	#SCNBASE
	stab	3,x
	staa	2,x
	ldaa	#FRAME4/256
	ldab	#FRAME4
	stab	1,x
	staa	,x
	jsr	>WRITELN

	jsr	>DELAY

	tsx
	ldaa	#SCNBASE/256
	ldab	#SCNBASE
	stab	3,x
	staa	2,x
	ldaa	#FRAME5/256
	ldab	#FRAME5
	stab	1,x
	staa	,x
	jsr	>WRITELN

	jsr	>DELAY

	jmp	LOOP

* Clear the screen
CLRSCN	tsx
	ldaa	#SCNBASE/256
	ldab	#SCNBASE
	pshb
	psha
	ldaa	#SCNLEN/256
	ldab	#SCNLEN
	pshb
	psha
CLSLOOP	ldaa	#$60
	tsx
	ldx	2,x
	staa	,x
	tsx
	ldaa	2,x
	ldab	3,x
	addb	#1
	adca	#0
	staa	2,x
	stab	3,x
	dec	1,x
	bne	CLSLOOP
	dec	,x
	bne	CLSLOOP

	ins
	ins
	ins
	ins

	rts

WRITELN	tsx
	ldx	2,x
	ldaa	,x
	beq	WRLNEXT
	psha			Offset stack indices by 1...
	tsx
	ldaa	3,x
	ldab	4,x
	addb	#1
	adca	#0
	staa	3,x
	stab	4,x
	pula			...until here
	cmpa	#$0d
	beq	WRLNLF
	oraa	#$40
	tsx
	ldx	4,x
	staa	,x
	tsx
	ldaa	4,x
	ldab	5,x
	addb	#1
	adca	#0
	staa	4,x
	stab	5,x
	bra	WRITELN

WRLNLF	tsx
	ldaa	4,x
	ldab	5,x
	andb	#$e0
	addb	#$20
	adca	#0
	staa	4,x
	stab	5,x
	bra	WRITELN
	
WRLNEXT	rts

DELAY	ldaa	#$40
	ldab	#$00
DLYLOOP	decb
	bne	DLYLOOP
	deca
	bne	DLYLOOP
	rts

FRAME1	fcb	$20,$20,$20,$20,$20,$20,$20,$20,$69,$3B,$69,$27,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$27,$4D,$4D,$4D,$4D,$27,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$2E,$4D,$4D,$23,$3B,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$27,$23,$4D,$4D,$49,$27,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$60,$20,$4F,$49,$4D,$4D,$4F,$49,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$60,$49,$4F,$49,$4D,$49,$4D,$27,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$3B,$4D,$3B,$23,$49,$4D,$49,$4F,$27,$60,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$4D,$4F,$4F,$4D,$4D,$4D,$23,$27,$27,$4F,$23,$27,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$4F,$49,$27,$49,$4D,$4D,$4D,$49,$4F,$20,$20,$20,$60,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$27,$27,$3B,$4D,$4D,$4D,$4F,$4D,$4D,$69,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$4D,$4D,$4D,$27,$69,$49,$4D,$49,$27,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$27,$4F,$4D,$4D,$27,$20,$20,$60,$49,$4D,$4F,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$60,$4F,$4D,$49,$69,$20,$60,$20,$20,$20,$4F,$4D,$4D,$20,$20,$20,$20,$20,$0D
	fcb	$20,$60,$49,$4F,$3B,$60,$20,$20,$20,$20,$20,$20,$27,$4D,$4D,$69,$20,$20,$20,$20,$0D
	fcb	$4F,$49,$4F,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$2E,$4D,$49,$60,$20,$20,$20,$0D
	fcb	$27,$4F,$49,$27,$27,$60,$20,$20,$20,$20,$20,$20,$20,$60,$4F,$4D,$49,$4F,$27,$60,0


FRAME2	fcb	$20,$20,$20,$20,$20,$20,$20,$20,$4F,$4F,$4F,$3B,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$60,$4D,$4D,$4D,$4D,$3B,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$20,$23,$4D,$4D,$3B,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$4F,$4D,$4D,$4D,$4F,$2E,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$60,$49,$4D,$4D,$4D,$4D,$4F,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$4F,$4D,$4D,$49,$4D,$49,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$27,$49,$23,$49,$4D,$49,$4F,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$27,$4F,$4D,$4D,$49,$4D,$49,$69,$27,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$4F,$3B,$4D,$4D,$4D,$49,$4D,$4F,$4F,$20,$60,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$60,$3B,$60,$27,$4D,$4D,$4D,$49,$27,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$20,$60,$49,$4D,$4D,$4F,$4F,$60,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$69,$4F,$4D,$4D,$23,$49,$4D,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$60,$3B,$4D,$49,$23,$27,$60,$4F,$4D,$49,$60,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$27,$4F,$49,$4F,$27,$60,$20,$20,$20,$27,$4D,$4D,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$27,$49,$23,$20,$20,$20,$20,$20,$20,$20,$4F,$49,$27,$20,$20,$20,$20,$20,$0D
	fcb	$2E,$60,$27,$27,$3B,$60,$20,$60,$2E,$60,$27,$60,$4F,$4D,$4D,$4F,$3B,$27,$20,$20,0


FRAME3	fcb	$20,$20,$20,$20,$20,$20,$20,$3B,$4D,$4D,$4D,$27,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$4F,$4D,$4D,$4D,$4F,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$60,$49,$4D,$49,$69,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$4F,$4D,$4D,$4D,$49,$27,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$60,$20,$69,$49,$4D,$49,$4D,$4F,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$27,$4D,$49,$4D,$4D,$23,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$27,$49,$4D,$49,$4D,$4F,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$60,$49,$4D,$49,$23,$49,$27,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$4F,$49,$4D,$49,$4D,$27,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$4F,$49,$23,$4D,$4F,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$27,$23,$49,$4D,$4D,$27,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$69,$49,$4D,$4D,$4F,$27,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$60,$27,$23,$49,$4D,$49,$27,$20,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$4F,$49,$4F,$27,$27,$4D,$23,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$60,$27,$4D,$27,$20,$20,$4D,$4F,$60,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$2E,$60,$20,$60,$27,$27,$20,$27,$4D,$4D,$49,$69,$27,$60,$2E,$20,$20,$20,$20,$20,0


FRAME4	fcb	$20,$20,$20,$20,$20,$20,$20,$2E,$4F,$4F,$4F,$3B,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$69,$4D,$4D,$4D,$4D,$27,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$60,$3B,$4D,$4D,$4F,$27,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$4F,$4D,$4D,$4D,$49,$60,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$60,$20,$4D,$4D,$4D,$4D,$4D,$49,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$60,$4D,$4D,$49,$4D,$4D,$4D,$27,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$3B,$4D,$4F,$4D,$4D,$4D,$49,$23,$3B,$27,$2E,$60,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$4F,$4D,$4D,$4D,$4D,$4D,$27,$27,$27,$3B,$4F,$3B,$20,$20,$20,$0D
	fcb	$20,$20,$20,$2E,$23,$49,$4D,$4D,$4D,$4D,$4D,$49,$4F,$20,$20,$20,$60,$20,$20,$20,$0D
	fcb	$20,$20,$20,$60,$27,$27,$4D,$4D,$4D,$4F,$4D,$4D,$4D,$4F,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$27,$4D,$4D,$4F,$20,$60,$27,$4D,$4D,$23,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$4F,$4D,$4F,$2E,$20,$20,$20,$4F,$4D,$4D,$60,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$4F,$4D,$4D,$2E,$20,$20,$20,$20,$23,$4D,$4D,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$4F,$4D,$4F,$20,$20,$20,$20,$20,$27,$4D,$4F,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$4F,$4D,$69,$20,$20,$20,$20,$20,$60,$49,$4D,$27,$27,$20,$20,$20,$0D
	fcb	$2E,$60,$27,$27,$49,$23,$4F,$4F,$3B,$60,$20,$60,$27,$4F,$3B,$27,$27,$27,$20,$20,0


FRAME5	fcb	$20,$20,$20,$20,$20,$20,$20,$27,$23,$4F,$4F,$27,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$20,$4F,$4D,$4D,$4D,$4F,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$60,$3B,$4D,$49,$4F,$2E,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$20,$3B,$4D,$4D,$4D,$4F,$60,$20,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$60,$2E,$4D,$49,$4D,$4D,$4D,$4F,$60,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$20,$4F,$4D,$4F,$4D,$4D,$4D,$4F,$27,$60,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$60,$49,$4D,$49,$4D,$4D,$4D,$4F,$4F,$3B,$4F,$4F,$4F,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$4F,$4D,$4D,$4D,$4D,$4D,$49,$60,$20,$20,$20,$60,$27,$20,$20,$20,$0D
	fcb	$20,$20,$60,$3B,$4D,$3B,$4D,$49,$4D,$4D,$4D,$3B,$60,$20,$20,$20,$60,$20,$20,$20,$0D
	fcb	$20,$20,$20,$27,$27,$4F,$4D,$4D,$4D,$4D,$4D,$4D,$4F,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$20,$60,$49,$4D,$49,$27,$27,$4D,$4D,$4D,$20,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$60,$4F,$4D,$4D,$27,$20,$20,$27,$4D,$4D,$4F,$20,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$20,$4F,$4D,$49,$60,$20,$20,$20,$20,$3B,$4D,$4D,$4F,$20,$20,$20,$20,$20,$0D
	fcb	$20,$20,$27,$4D,$4D,$60,$20,$20,$20,$20,$20,$20,$27,$4D,$4D,$27,$20,$20,$20,$20,$0D
	fcb	$20,$20,$4F,$4D,$69,$20,$20,$20,$20,$20,$20,$20,$20,$20,$4F,$49,$4F,$3B,$69,$20,$0D
	fcb	$2E,$27,$4F,$4F,$49,$69,$27,$60,$2E,$60,$20,$20,$20,$60,$27,$4F,$3B,$27,$27,$20,0

SAVX	rmb	2

	end	START