org $2000


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

; A=0
;	jmp *
;	ldy #0
;	ldx #0
;	tax
	ldy #17 ;tay
mm
	jsr get
	sta $CC
	jsr get
	sta $CB
	jsr get
	sta ($CB),y
	bpl mm
	bmi *
get
	lda hom_a,y
	dey
	rts
hom_a
 dta h(homer_dl)
 dta a($9e55-255)

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

 dta $21
 dta a(559-5)

 dta $0F
 dta a(708-8)

 dta $1F
 dta a(709-11)

 dta $39 ; 26
 dta a(710-14)


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

    run start