org $4000
start
	lda 88
	sta $CB
	lda 89
	sta $CC

	lda #0
	sta 709
	lda #$0F
	sta 710
	sta 712

	ldx #24
cp1 ldy #0
cp2 lda sc
	sta ($CB),y

	inc cp2+1
	bne nohi
	inc cp2+2
nohi
	iny
	cpy #40
	bne cp2
	tya
	clc
	adc $CB
	sta $CB
	bcc noicc
	inc $CC
noicc
	dex
	bne cp1
	jmp *

sc ins "simon3.atascii"
	run start