.org $0
	.org $8000
reset:
	cld
	ldx #$FF
	txs
print2:
print:
	lda $4000,x
	cmp $FF
	beq loop
	jsr print_char
	sta $3000

loop:
	jsr loop2
	sta $7000
	lda #$BE
	jmp print2

loop2:
	sta $5000
	rts

print_char:
	sta $6000
	rts

.org $FFFA
.dc.w loop
.dc.w reset
.dc.w print_char