org $2000


start
    lda #3 ; open graphics 8 mode (320x200)
    jsr $ef9c ; openmode=$ef9c

; A=0
;	jmp *
;	ldy #0
;	ldx #0
	tax
	tay
mm
	jsr get
	sta $CB
	jsr get
	sta $CC
	jsr get
	sta ($CB),y
	cpx #[homer_dl-hom_a]
	bne mm
	beq *
get
	lda hom_a,x
	inx
	rts
hom_a
; dta a($230)
; dta l(homer_dl)
;
; dta a($231)
; dta h(homer_dl)

 dta a($9e54)
 dta l(homer_dl)

 dta a($9e55)
 dta h(homer_dl)

 dta a(559)
 dta $21

 dta a(708)
 dta $0F

 dta a(709)
 dta $1F

 dta a(710)
 dta $26

homer_dl
; dta 112,112,112
; dta $48
; dta a(homer)
;:23 dta 8
; dta $41
; dta a(homer_dl)
homer
 ins "hom.data"

    run start