.org $0
; Zero Page
.org $0100
; User Ram
.org $8000

RESET:
	cld
	ldx $FF
	lda $35
	txs


NMI:
	nop

IRQ:
	nop


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


; 6502 Vextor
.org $FFFA
.dc.w NMI			; NMI
.dc.w RESET			; RESET
.dc.w IRQ			; IRQ