; coded by RAZMO of TSP - Now KEFRENS !

openlibrary:
	jsr loader
	jsr resetspr
execbase=4
openlib=-408
forbid=-132
	lea gfxname,a1
	move.l execbase,a6
	jsr forbid(a6)
	jsr openlib(a6)
	move.l d0,gfxbase

stopmultitasking:
	move.l gfxbase,a0
	add.l #$32,a0
	move.w #$0080,$dff096
	move.l (a0),oldcopper
	move.l #newcopper,(a0)
	move.l a0,-(a7)
	move.w #$8080,$dff096
	jmp preparements

but:
	btst #6,$bfe001
	bne key
	jmp fin
key:
	cmp.b #$76,$bfec01
	beq mainprogram
fin:
closelib=-414
	move.l (a7)+,a0
	move.l oldcopper,(a0)
	move.l execbase,a6
	move.l gfxbase,a1
	jsr closelib(a6)
	move.w #$f,$dff096
	bclr #1,$bfe001
	rts

gfxname: dc.b 'graphics.library'
gfxbase: dc.l 0
oldcopper: dc.l 0

newcopper:
	dc.w $0100,$5200
	dc.w $0102,$0000
	dc.w $0104,$0024
	dc.w $0108,$0000
	dc.w $010a,$0000

	dc.w $008e,$2c00
	dc.w $0090,$16ff
	dc.w $0092,$0038
	dc.w $0094,$00d0

	dc.w $0108,$0000
	dc.w $010a,$0000

planes:
	dc.w $00e0,$0004,$00e2,$0000
	dc.w $00e4,$0004,$00e6,$36b0
	dc.w $00e8,$0004,$00ea,$6d60
	dc.w $00ec,$0004,$00ee,$a410
	dc.w $00f0,$0004,$00f2,$dac0

colors:
	dc.w $0180,$0000
	dc.w $0182,$0fff
	dc.w $0184,$0000
	dc.w $0186,$0000
	dc.w $0188,$0000
	dc.w $018a,$000f
	dc.w $018c,$000c
	dc.w $018e,$0008
	dc.w $0190,$0005
	dc.w $0192,$0002
	dc.w $0194,$0530
	dc.w $0196,$0740
	dc.w $0198,$0950
	dc.w $019a,$0b70
	dc.w $019c,$0d80
	dc.w $019e,$0fa0
	dc.w $01a0,$0000
	dc.w $01a2,$0000
	dc.w $01a4,$0080
	dc.w $01a6,$0fff
	dc.w $01a8,$0000
	dc.w $01aa,$0000
	dc.w $01ac,$0080
	dc.w $01ae,$0fff
	dc.w $01b0,$0000
	dc.w $01b2,$0000
	dc.w $01b4,$0080
	dc.w $01b6,$0fff
	dc.w $01b8,$0000
	dc.w $01ba,$0000
	dc.w $01bc,$0080
	dc.w $01be,$0fff

sprvision:
	dc.w $0120,$0007,$0122,$0300
	dc.w $0124,$0007,$0126,$0400
	dc.w $0128,$0007,$012a,$0500
	dc.w $012c,$0007,$012e,$0600
	dc.w $0130,$0007,$0132,$0700
	dc.w $0134,$0007,$0136,$0800
	dc.w $0138,$0007,$013a,$0900
	dc.w $013c,$0007,$013e,$0a00

needle1:
	dc.w $6061,$fffe,$0180,$0fff
	dc.w $6063,$fffe,$0180,$0f00
	dc.w $60ab,$fffe,$0180,$0fff
	dc.w $60ad,$fffe,$0180,$0000
	
	dc.w $ffff,$fffe


preparements:
	move.l #bscrldat,bscrl
	move.l #$42008,$7f000
	jsr playhogan
	clr.l d0
	lea scrolltext0,a0
	lea shakes,a6
	move.l #hulkamaniacol,hulkcol
	move.b #0,d0

mainprogram:
	jsr watchraster
	cmp.b #$0,counter
	bne mp2
	jsr scrolltest0
	jsr scrollscreen0
	jmp mp3
mp2:
	sub.b #1,counter
	bchg #1,pass
	bchg #1,$bfe001
mp3:
	jsr bitscroller
	jsr runspr
butright:
	btst #10,$dff016
	bne br2
	bclr #1,$bfe001
	jmp br3
br2:
	bset #1,$bfe001
br3:
	jmp but

scrolltest0:
	cmp.b #0,d0
	bne st02
	jsr playflint
	move.b #12,d0
	jsr newcharscroll0
st02:
	rts

newcharscroll0:
	clr.l d1
	lea chars,a1
	lea addrs,a2
ncs02:
	move.b (a1),d1
	cmp.b (a0),d1
	bne ncs03
	jsr printcharscroll0
	jmp addnextcharscroll0
ncs03:
	add.l #1,a1
	add.l #4,a2
	cmp.b #0,(a1)
	bne ncs02

addnextcharscroll0:
	add.l #1,a0
	cmp.b #$41,(a0)
	bne ancs02
	add.l #1,a0
	move.b #$80,counter
	rts
ancs02:
	cmp.b #0,(a0)
	bne ancs03
	lea scrolltext0,a0
ancs03:
	rts

printcharscroll0:
	clr.l d1
	move.b #8,d1
	move.l #$701b0,a1
	move.l (a2),a3
pcs02:
	move.w (a3),(a1)
	add.l #$28,a1
	add.l #$28,a3
	dbra d1,pcs02
	rts

scrollscreen0:
	clr.l d3
	clr.l d1
	move.b #2,d1
ss02:
	jsr basescroll0
	move.l #$4126a,a1
	move.b #9,d3
ss03:
	asl.w #1,(a1)
	roxl.w #1,-2(a1)
	roxl.w #1,-4(a1)
	roxl.w #1,-6(a1)
	roxl.w #1,-8(a1)
	roxl.w #1,-10(a1)
	roxl.w #1,-12(a1)
	roxl.w #1,-14(a1)
	roxl.w #1,-16(a1)
	roxl.w #1,-18(a1)
	roxl.w #1,-20(a1)
	roxl.w #1,-22(a1)
	roxl.w #1,-24(a1)
	roxl.w #1,-26(a1)
	roxl.w #1,-28(a1)
	roxl.w #1,-30(a1)
	bclr #15,-30(a1)
	add.l #$28,a1
	subq #1,d3
	cmp.b #0,d3
	bne ss03
	dbra d1,ss02
	sub.b #2,d0
	rts

basescroll0:
	move.l #$701b0,a2
	move.l #$4126b,a3
	clr.l d2
	move.b #8,d2
bs02:
	asl.w #1,(a2)
	bcc bs03
	bset #1,(a3)
bs03:
	add.l #$28,a2
	add.l #$28,a3
	dbra d2,bs02
	bclr #1,$42052
	rts

watchraster:
	lea beamcol,a4
	clr.l d1
	clr.l d2
	clr.l d3
	clr.l d4
	move.b #$38,d1
	lea shaketable,a1
	lea colortable,a3
	move.l #shaketableend,d2
wr2:
	cmp.b $dff006,d1
	bne wr2
	move.w (a3),$dff188
	cmp.b $70300,d1
	bne fool
	move.b #1,peek
fool:
	cmp.b #1,peek
	bne cont
	move.w (a4),$dff180
	move.w 8(a4),$dff188
	move.w 12(a4),$dff186
	move.w 4(a4),$dff184
	add.l #2,a4
cont:
	cmp.b #$39,d1
	bne con
	move.w (a3),$dff186
	move.w 52(a3),$dff184
	move.w 52(a3),needle1+14
con:
	add.l #2,a1
	add.b #1,d1
	add.l #2,a3
	move.l hulkcol,a2
	cmp.w #$ffff,(a2)
	bne stay
	move.l #hulkamaniacol,hulkcol
stay:
	cmp.b #$8a,d1
	bne wr2
	move.b #$04,$dff105
	lea shaketable,a1
	lea colortable,a2
	move.w #$0000,$dff102
	move.w #$0038,$dff092
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	move.w #$0000,$dff180
	move.b #0,peek
wr3:
	move.w 2(a1),(a1)
	move.w 2(a2),(a2)
	add.l #2,a1
	add.l #2,a2
	cmp.l d2,a1
	bne wr3
	move.w (a6),shaketableend-2
	move.l hulkcol,a4
	move.w (a4),colortableend-2
	add.l #2,hulkcol
	add.l #2,a6
	move.l hulkcol,a4
	cmp.w #$ffff,(a4)
	bne stay2
	move.l #hulkamaniacol,hulkcol
stay2:
	cmp.w #$1234,(a6)
	bne wr4
	lea shakes,a6
wr4:
	clr.l d1
	move.b #$a1,d1
	lea colback,a1
	lea colfront,a2
wr5:
	cmp.b $dff006,d1
	bne wr5
	cmp.b #$0,counter
	beq wr
	btst #1,pass
	beq wrr
wr:
	move.w (a1),$dff180
wrr:
	move.w (a2),$dff182
	add.l #2,a1
	add.l #2,a2
	add.b #1,d1
	cmp.b #$ab,d1
	bne wr5
	clr.l d1
	clr.l d2
	clr.l d3
	move.b #$c3,d1
	move.l #shaketable-2,d2
	lea shaketableend-2,a1
	lea colortableend-2,a3
	lea colortable,a4
wr6:
	cmp.b $dff006,d1
	bne wr6
	cmp.b #$c3,d1
	bne go
	move.l bit1,$dff0e0
	move.l bit3,$dff0e8
	move.l bit4,$dff0ec
	move.l bit5,$dff0f0
	move.l bit2,$dff0e4
	move.w (a3),$dff186
	move.w -52(a3),$dff184
	move.b $70300,$dff183
go:
	move.w (a1),$dff102
	move.w (a3),$dff188
	move.w (a4),$dff1a0
	move.w #$0038,carry2
	move.b (a1),d3
	add.w d3,carry2
	move.w carry2,$dff092

	add.b #1,d1
	sub.l #2,a1
	sub.l #2,a3
	add.l #2,a4
	cmp.l d2,a1
	bne wr6
	
	add.b #$84,$70a00
	move.b $70a00,needle1
	move.b $70a00,needle1+8
	move.b $70a00,needle1+16
	move.b $70a00,needle1+24
	rts

shaketable: blk.w 100,0
shaketableend:
colortable: blk.w 100,0
colortableend:
carry1: dc.w 0
carry2: dc.w 0

shakes:
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000

	dc.w $0000,$0000,$0000,$0011,$0011
	dc.w $0022,$0022,$0033,$0055,$0066
	dc.w $0077,$0099,$00aa,$00cc
	dc.w $00ee,$04ff,$0400,$0422
	dc.w $0433,$0444,$0455,$0466
	dc.w $0466,$0477,$0477,$0477

	dc.w $0466,$0466,$0455,$0444
	dc.w $0433,$0422,$0400,$04ff
	dc.w $00ee,$00cc,$00aa,$0099
	dc.w $0077,$0066,$0055,$0033
	dc.w $0022,$0022,$0011,$0011

	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	
	dc.w $0000,$0000,$0000,$0011,$0011
	dc.w $0022,$0022,$0033,$0055,$0066
	dc.w $0077,$0099,$00aa,$00cc
	dc.w $00ee,$04ff,$0400,$0422
	dc.w $0433,$0444,$0455,$0466
	dc.w $0466,$0477,$0477,$0477

	dc.w $0466,$0466,$0455,$0444
	dc.w $0433,$0422,$0400,$04ff
	dc.w $00ee,$00cc,$00aa,$0099
	dc.w $0077,$0066,$0055,$0033
	dc.w $0022,$0022,$0011,$0011
	dc.w $0000,$0000,$0000,$0011,$0011
	dc.w $0022,$0022,$0033,$0055,$0066
	dc.w $0077,$0099,$00aa,$00cc
	dc.w $00ee,$04ff,$0400,$0422
	dc.w $0433,$0444,$0455,$0466
	dc.w $0466,$0477,$0477,$0477

	dc.w $0466,$0466,$0455,$0444
	dc.w $0433,$0422,$0400,$04ff
	dc.w $00ee,$00cc,$00aa,$0099
	dc.w $0077,$0066,$0055,$0033
	dc.w $0022,$0022,$0011,$0011
	dc.w $1234

hulkamaniacol:
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000

	dc.w $0000,$0000
	dc.w $0100,$0100
	dc.w $0200,$0200
	dc.w $0300,$0300
	dc.w $0400,$0400
	dc.w $0500,$0500
	dc.w $0600,$0600
	dc.w $0700,$0700
	dc.w $0800,$0800
	dc.w $0900,$0900
	dc.w $0a00,$0a00
	dc.w $0b00,$0b00
	dc.w $0c00,$0c00
	dc.w $0d00,$0d00
	dc.w $0e00,$0e00
	dc.w $0f00,$0f00
	dc.w $0e00,$0e00
	dc.w $0d00,$0d00
	dc.w $0c00,$0c00
	dc.w $0b00,$0b00
	dc.w $0a00,$0a00
	dc.w $0900,$0900
	dc.w $0800,$0800
	dc.w $0700,$0700
	dc.w $0600,$0600
	dc.w $0500,$0500
	dc.w $0400,$0400
	dc.w $0300,$0300
	dc.w $0200,$0200
	dc.w $0100,$0100

	dc.w $0000,$0000
	dc.w $0100,$0100
	dc.w $0200,$0200
	dc.w $0300,$0300
	dc.w $0400,$0400
	dc.w $0500,$0500
	dc.w $0600,$0600
	dc.w $0700,$0700
	dc.w $0800,$0800
	dc.w $0900,$0900
	dc.w $0a00,$0a00
	dc.w $0b00,$0b00
	dc.w $0c00,$0c00
	dc.w $0d00,$0d00
	dc.w $0e00,$0e00
	dc.w $0f00,$0f00
	dc.w $0e00,$0e00
	dc.w $0d00,$0d00
	dc.w $0c00,$0c00
	dc.w $0b00,$0b00
	dc.w $0a00,$0a00
	dc.w $0900,$0900
	dc.w $0800,$0800
	dc.w $0700,$0700
	dc.w $0600,$0600
	dc.w $0500,$0500
	dc.w $0400,$0400
	dc.w $0300,$0300
	dc.w $0200,$0200
	dc.w $0100,$0100

	dc.w $0000,$0000
	dc.w $0100,$0100
	dc.w $0200,$0200
	dc.w $0300,$0300
	dc.w $0400,$0400
	dc.w $0500,$0500
	dc.w $0600,$0600
	dc.w $0700,$0700
	dc.w $0800,$0800
	dc.w $0900,$0900
	dc.w $0a00,$0a00
	dc.w $0b00,$0b00
	dc.w $0c00,$0c00
	dc.w $0d00,$0d00
	dc.w $0e00,$0e00
	dc.w $0f00,$0f00
	dc.w $0e00,$0e00
	dc.w $0d00,$0d00
	dc.w $0c00,$0c00
	dc.w $0b00,$0b00
	dc.w $0a00,$0a00
	dc.w $0900,$0900
	dc.w $0800,$0800
	dc.w $0700,$0700
	dc.w $0600,$0600
	dc.w $0500,$0500
	dc.w $0400,$0400
	dc.w $0300,$0300
	dc.w $0200,$0200
	dc.w $0100,$0100

	dc.w $0000,$0000
	dc.w $0010,$0010
	dc.w $0020,$0020
	dc.w $0030,$0030
	dc.w $0040,$0040
	dc.w $0050,$0050
	dc.w $0060,$0060
	dc.w $0070,$0070
	dc.w $0080,$0080
	dc.w $0090,$0090
	dc.w $00a0,$00a0
	dc.w $00b0,$00b0
	dc.w $00c0,$00c0
	dc.w $00d0,$00d0
	dc.w $00e0,$00e0
	dc.w $00f0,$00f0
	dc.w $00e0,$00e0
	dc.w $00d0,$00d0
	dc.w $00c0,$00c0
	dc.w $00b0,$00b0
	dc.w $00a0,$00a0
	dc.w $0090,$0090
	dc.w $0080,$0080
	dc.w $0070,$0070
	dc.w $0060,$0060
	dc.w $0050,$0050
	dc.w $0040,$0040
	dc.w $0030,$0030
	dc.w $0020,$0020
	dc.w $0010,$0010

	dc.w $0000,$0000
	dc.w $0011,$0011
	dc.w $0022,$0022
	dc.w $0033,$0033
	dc.w $0044,$0044
	dc.w $0055,$0055
	dc.w $0066,$0066
	dc.w $0077,$0077
	dc.w $0088,$0088
	dc.w $0099,$0099
	dc.w $00aa,$00aa
	dc.w $00bb,$00bb
	dc.w $00cc,$00cc
	dc.w $00dd,$00dd
	dc.w $00ee,$00ee
	dc.w $00ff,$00ff
	dc.w $00ee,$00ee
	dc.w $00dd,$00dd
	dc.w $00cc,$00cc
	dc.w $00bb,$00bb
	dc.w $00aa,$00aa
	dc.w $0099,$0099
	dc.w $0088,$0088
	dc.w $0077,$0077
	dc.w $0066,$0066
	dc.w $0055,$0055
	dc.w $0044,$0044
	dc.w $0033,$0033
	dc.w $0022,$0022
	dc.w $0011,$0011

	dc.w $0000,$0000
	dc.w $0111,$0111
	dc.w $0222,$0222
	dc.w $0333,$0333
	dc.w $0444,$0444
	dc.w $0555,$0555
	dc.w $0666,$0666
	dc.w $0777,$0777
	dc.w $0888,$0888
	dc.w $0999,$0999
	dc.w $0aaa,$0aaa
	dc.w $0bbb,$0bbb
	dc.w $0ccc,$0ccc
	dc.w $0ddd,$0ddd
	dc.w $0eee,$0eee
	dc.w $0fff,$0fff
	dc.w $0eee,$0eee
	dc.w $0ddd,$0ddd
	dc.w $0ccc,$0ccc
	dc.w $0bbb,$0bbb
	dc.w $0aaa,$0aaa
	dc.w $0999,$0999
	dc.w $0888,$0888
	dc.w $0777,$0777
	dc.w $0666,$0666
	dc.w $0555,$0555
	dc.w $0444,$0444
	dc.w $0333,$0333
	dc.w $0222,$0222
	dc.w $0111,$0111

	dc.w $0000,$0000
	dc.w $0111,$0111
	dc.w $0222,$0222
	dc.w $0333,$0333
	dc.w $0444,$0444
	dc.w $0555,$0555
	dc.w $0666,$0666
	dc.w $0777,$0777
	dc.w $0888,$0888
	dc.w $0999,$0999
	dc.w $0aaa,$0aaa
	dc.w $0bbb,$0bbb
	dc.w $0ccc,$0ccc
	dc.w $0ddd,$0ddd
	dc.w $0eee,$0eee
	dc.w $0fff,$0fff
	dc.w $0eee,$0eee
	dc.w $0ddd,$0ddd
	dc.w $0ccc,$0ccc
	dc.w $0bbb,$0bbb
	dc.w $0aaa,$0aaa
	dc.w $0999,$0999
	dc.w $0888,$0888
	dc.w $0777,$0777
	dc.w $0666,$0666
	dc.w $0555,$0555
	dc.w $0444,$0444
	dc.w $0333,$0333
	dc.w $0222,$0222
	dc.w $0111,$0111

	dc.w $0000,$0000
	dc.w $0111,$0111
	dc.w $0222,$0222
	dc.w $0333,$0333
	dc.w $0444,$0444
	dc.w $0555,$0555
	dc.w $0666,$0666
	dc.w $0777,$0777
	dc.w $0888,$0888
	dc.w $0999,$0999
	dc.w $0aaa,$0aaa
	dc.w $0bbb,$0bbb
	dc.w $0ccc,$0ccc
	dc.w $0ddd,$0ddd
	dc.w $0eee,$0eee
	dc.w $0fff,$0fff
	dc.w $0eee,$0eee
	dc.w $0ddd,$0ddd
	dc.w $0ccc,$0ccc
	dc.w $0bbb,$0bbb
	dc.w $0aaa,$0aaa
	dc.w $0999,$0999
	dc.w $0888,$0888
	dc.w $0777,$0777
	dc.w $0666,$0666
	dc.w $0555,$0555
	dc.w $0444,$0444
	dc.w $0333,$0333
	dc.w $0222,$0222
	dc.w $0111,$0111

	dc.w $0000,$0000
	dc.w $0010,$0010
	dc.w $0120,$0120
	dc.w $0130,$0130
	dc.w $0240,$0240
	dc.w $0250,$0250
	dc.w $0360,$0360
	dc.w $0370,$0370
	dc.w $0480,$0480
	dc.w $0490,$0490
	dc.w $05a0,$05a0
	dc.w $05b0,$05b0
	dc.w $06c0,$06c0
	dc.w $06d0,$06d0
	dc.w $07e0,$07e0
	dc.w $07f0,$07f0
	dc.w $07e0,$07e0
	dc.w $06d0,$06d0
	dc.w $06c0,$06c0
	dc.w $05b0,$05b0
	dc.w $05a0,$05a0
	dc.w $0490,$0490
	dc.w $0480,$0480
	dc.w $0370,$0370
	dc.w $0360,$0360
	dc.w $0250,$0250
	dc.w $0240,$0240
	dc.w $0130,$0130
	dc.w $0120,$0120
	dc.w $0010,$0010

	dc.w $0000,$0000
	dc.w $0100,$0100
	dc.w $0210,$0210
	dc.w $0311,$0311
	dc.w $0421,$0421
	dc.w $0521,$0521
	dc.w $0632,$0632
	dc.w $0732,$0732
	dc.w $0842,$0842
	dc.w $0943,$0943
	dc.w $0a53,$0a53
	dc.w $0b53,$0b53
	dc.w $0c64,$0c64
	dc.w $0d64,$0d64
	dc.w $0e74,$0e74
	dc.w $0f75,$0f75
	dc.w $0e74,$0e74
	dc.w $0d64,$0d64
	dc.w $0c64,$0c64
	dc.w $0b53,$0b53
	dc.w $0a53,$0a53
	dc.w $0943,$0943
	dc.w $0842,$0842
	dc.w $0732,$0732
	dc.w $0632,$0632
	dc.w $0521,$0521
	dc.w $0421,$0421
	dc.w $0311,$0311
	dc.w $0210,$0210
	dc.w $0100,$0100

	dc.w $0000,$0000
	dc.w $0101,$0101
	dc.w $0212,$0212
	dc.w $0313,$0313
	dc.w $0424,$0424
	dc.w $0525,$0525
	dc.w $0636,$0636
	dc.w $0737,$0737
	dc.w $0848,$0848
	dc.w $0949,$0949
	dc.w $0a5a,$0a5a
	dc.w $0b5b,$0b5b
	dc.w $0c6c,$0c6c
	dc.w $0d6d,$0d6d
	dc.w $0e7e,$0e7e
	dc.w $0f7f,$0f7f
	dc.w $0e7e,$0e7e
	dc.w $0d6d,$0d6d
	dc.w $0c6c,$0c6c
	dc.w $0b5b,$0b5b
	dc.w $0a5a,$0a5a
	dc.w $0949,$0949
	dc.w $0848,$0848
	dc.w $0737,$0737
	dc.w $0636,$0636
	dc.w $0525,$0525
	dc.w $0424,$0424
	dc.w $0313,$0313
	dc.w $0212,$0212
	dc.w $0101,$0101

	dc.w $0000,$0000
	dc.w $0110,$0110
	dc.w $0221,$0221
	dc.w $0331,$0331
	dc.w $0442,$0442
	dc.w $0552,$0552
	dc.w $0663,$0663
	dc.w $0773,$0773
	dc.w $0884,$0884
	dc.w $0994,$0994
	dc.w $0aa5,$0aa5
	dc.w $0bb5,$0bb5
	dc.w $0cc6,$0cc6
	dc.w $0dd6,$0dd6
	dc.w $0ee7,$0ee7
	dc.w $0ff7,$0ff7
	dc.w $0ee7,$0ee7
	dc.w $0dd6,$0dd6
	dc.w $0cc6,$0cc6
	dc.w $0bb5,$0bb5
	dc.w $0aa5,$0aa5
	dc.w $0994,$0994
	dc.w $0884,$0884
	dc.w $0773,$0773
	dc.w $0663,$0663
	dc.w $0552,$0552
	dc.w $0442,$0442
	dc.w $0331,$0331
	dc.w $0221,$0221
	dc.w $0110,$0110

	dc.w $0000,$0000
	dc.w $0101,$0101
	dc.w $0202,$0202
	dc.w $0303,$0303
	dc.w $0404,$0404
	dc.w $0505,$0505
	dc.w $0606,$0606
	dc.w $0707,$0707
	dc.w $0808,$0808
	dc.w $0909,$0909
	dc.w $0a0a,$0a0a
	dc.w $0b0b,$0b0b
	dc.w $0c0c,$0c0c
	dc.w $0d0d,$0d0d
	dc.w $0e0e,$0e0e
	dc.w $0f0f,$0f0f
	dc.w $0e0e,$0e0e
	dc.w $0d0d,$0d0d
	dc.w $0c0c,$0c0c
	dc.w $0b0b,$0b0b
	dc.w $0a0a,$0a0a
	dc.w $0909,$0909
	dc.w $0808,$0808
	dc.w $0707,$0707
	dc.w $0606,$0606
	dc.w $0505,$0505
	dc.w $0404,$0404
	dc.w $0303,$0303
	dc.w $0202,$0202
	dc.w $0101,$0101

	dc.w $0000,$0000
	dc.w $0110,$0110
	dc.w $0220,$0220
	dc.w $0330,$0330
	dc.w $0440,$0440
	dc.w $0550,$0550
	dc.w $0660,$0660
	dc.w $0770,$0770
	dc.w $0880,$0880
	dc.w $0990,$0990
	dc.w $0aa0,$0aa0
	dc.w $0bb0,$0bb0
	dc.w $0cc0,$0cc0
	dc.w $0dd0,$0dd0
	dc.w $0ee0,$0ee0
	dc.w $0ff0,$0ff0
	dc.w $0ee0,$0ee0
	dc.w $0dd0,$0dd0
	dc.w $0cc0,$0cc0
	dc.w $0bb0,$0bb0
	dc.w $0aa0,$0aa0
	dc.w $0990,$0990
	dc.w $0880,$0880
	dc.w $0770,$0770
	dc.w $0660,$0660
	dc.w $0550,$0550
	dc.w $0440,$0440
	dc.w $0330,$0330
	dc.w $0220,$0220
	dc.w $0110,$0110

	dc.w $0000,$0000
	dc.w $0110,$0110
	dc.w $0220,$0220
	dc.w $0330,$0330
	dc.w $0440,$0440
	dc.w $0550,$0550
	dc.w $0660,$0660
	dc.w $0770,$0770
	dc.w $0880,$0880
	dc.w $0990,$0990
	dc.w $0aa0,$0aa0
	dc.w $0bb0,$0bb0
	dc.w $0cc0,$0cc0
	dc.w $0dd0,$0dd0
	dc.w $0ee0,$0ee0
	dc.w $0ff0,$0ff0
	dc.w $0ee0,$0ee0
	dc.w $0dd0,$0dd0
	dc.w $0cc0,$0cc0
	dc.w $0bb0,$0bb0
	dc.w $0aa0,$0aa0
	dc.w $0990,$0990
	dc.w $0880,$0880
	dc.w $0770,$0770
	dc.w $0660,$0660
	dc.w $0550,$0550
	dc.w $0440,$0440
	dc.w $0330,$0330
	dc.w $0220,$0220
	dc.w $0110,$0110

	dc.w $0000,$0000
	dc.w $0110,$0110
	dc.w $0220,$0220
	dc.w $0330,$0330
	dc.w $0440,$0440
	dc.w $0550,$0550
	dc.w $0660,$0660
	dc.w $0770,$0770
	dc.w $0880,$0880
	dc.w $0990,$0990
	dc.w $0aa0,$0aa0
	dc.w $0bb0,$0bb0
	dc.w $0cc0,$0cc0
	dc.w $0dd0,$0dd0
	dc.w $0ee0,$0ee0
	dc.w $0ff0,$0ff0
	dc.w $0ee0,$0ee0
	dc.w $0dd0,$0dd0
	dc.w $0cc0,$0cc0
	dc.w $0bb0,$0bb0
	dc.w $0aa0,$0aa0
	dc.w $0990,$0990
	dc.w $0880,$0880
	dc.w $0770,$0770
	dc.w $0660,$0660
	dc.w $0550,$0550
	dc.w $0440,$0440
	dc.w $0330,$0330
	dc.w $0220,$0220
	dc.w $0110,$0110

	dc.w $0000,$0000
	dc.w $001,$001
	dc.w $002,$002
	dc.w $003,$003
	dc.w $004,$004
	dc.w $005,$005
	dc.w $006,$006
	dc.w $007,$007
	dc.w $008,$008
	dc.w $009,$009
	dc.w $00a,$00a
	dc.w $00b,$00b
	dc.w $00c,$00c
	dc.w $00d,$00d
	dc.w $00e,$00e
	dc.w $00f,$00f
	dc.w $00e,$00e
	dc.w $00d,$00d
	dc.w $00c,$00c
	dc.w $00b,$00b
	dc.w $00a,$00a
	dc.w $009,$009
	dc.w $008,$008
	dc.w $007,$007
	dc.w $006,$006
	dc.w $005,$005
	dc.w $004,$004
	dc.w $003,$003
	dc.w $002,$002
	dc.w $001,$001

	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000

	dc.w $ffff

colback:
	dc.w $0400,$0600,$0900,$0d00,$0f00,$0d00,$0900,$0600,$0400
	dc.w $0000

colfront:
	dc.w $0fff,$0dde,$0bbd,$099c,$077b,$055a,$0339,$0228,$0117
	dc.w $0fff

scrolltext0:
	dc.b '   yeah!!! thiz iz razmo of the starlight project !!! '
	dc.b " a b c d e f g h i j k l m n o p q r s t u v w x y z "
	dc.b "? . ! ( ) : , - '    this demo is soon finish !!! "
	dc.b "   razmo!     A "
	dc.b '            ',0

chars:
	dc.b "abcdefghijklmnopqrstuvwxyz .?!():,-'",0
	even

addrs:
	dc.l $70000,$70002,$70004,$70006,$70008,$7000a,$7000c
	dc.l $7000e,$70010,$70012,$70014,$70016,$70018,$7001a
	dc.l $7001c,$7001e,$70020,$70022,$70024,$70026,$70190
	dc.l $70192,$70194,$70196,$70198,$7019a,$7019c,$7019e
	dc.l $701a0,$701a2,$701a4,$701a6,$701a8,$701aa,$701ac
	dc.l $701ae

playhogan:
	move.l #$5915c+104,$dff0a0
	move.l #$5915c+104,$dff0b0
	move.l #$5915c+104,$dff0c0
	move.l #$5915c+104,$dff0d0
	move.w #$3072,$dff0a4
	move.w #$3072,$dff0b4
	move.w #$3072,$dff0c4
	move.w #$3072,$dff0d4
	move.w #428,$dff0a6
	move.w #428,$dff0b6
	move.w #428,$dff0c6
	move.w #428,$dff0d6
	move.w #65,$dff0a8
	move.w #65,$dff0b8
	move.w #65,$dff0c8
	move.w #65,$dff0d8
	move.w #$808f,$dff096
	rts
playflint:
	move.l #$5f240,$dff0a0
	move.l #$5f240,$dff0b0
	move.l #$5f240,$dff0c0
	move.l #$5f240,$dff0d0
	move.w #$86e0,$dff0a4
	move.w #$86e0,$dff0b4
	move.w #$86e0,$dff0c4
	move.w #$86e0,$dff0d4
	move.w #428,$dff0a6
	move.w #428,$dff0b6
	move.w #428,$dff0c6
	move.w #428,$dff0d6
	move.w #65,$dff0a8
	move.w #65,$dff0b8
	move.w #65,$dff0c8
	move.w #65,$dff0d8
	rts

hulkcol: dc.l $0
bit1:
	dc.l $417c0-80
bit2:
	dc.l $44e82-80
bit3:
	dc.l $48520-80
bit4:
	dc.l $4bbd6-80
bit5:
	dc.l $4f262-40

bitscroller:
	clr.l d1
	move.l bscrl,a1
	move.l (a1),d1
	add.l d1,bit1
	add.l d1,bit2
	add.l d1,bit3
	add.l d1,bit4
	add.l d1,bit5
	add.l #4,bscrl
	move.l bscrl,a1
	cmp.l #$ff,(a1)
	bne bs3
	move.l #bscrldat,bscrl
bs3:
	rts
bscrl: dc.l 0

bscrldat:
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 1*40,0*40,1*40,1*40,1*40,1*40,1*40,2*40,2*40,2*40,2*40
	dc.l 3*40,3*40,3*40,3*40,4*40,4*40,4*40
	dc.l 5*40,5*40,5*40,4*40,4*40,4*40,3*40
	dc.l 3*40,3*40,3*40,2*40,2*40,2*40,2*40,1*40,1*40,1*40
	dc.l 1*40,1*40,0*40,1*40
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l -1*40,-0*40,-1*40,-1*40,-1*40,-1*40,-1*40,-2*40,-2*40,-2*40,-2*40
	dc.l -3*40,-3*40,-3*40,-3*40,-4*40,-4*40,-4*40
	dc.l -5*40,-5*40,-5*40,-4*40,-4*40,-4*40,-3*40
	dc.l -3*40,-3*40,-3*40,-2*40,-2*40,-2*40,-2*40,-1*40,-1*40
	dc.l -1*40,-1*40,-1*40,-0*40,-1*40
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.l 1*40,0*40,1*40,1*40,1*40,1*40,1*40,2*40,2*40,2*40,2*40
	dc.l 3*40,3*40,3*40,3*40,4*40,4*40,4*40
	dc.l 5*40,5*40,5*40,4*40,4*40,4*40,3*40
	dc.l 3*40,3*40,3*40,2*40,2*40,2*40,2*40,1*40,1*40
	dc.l 1*40,1*40,1*40,0*40,1*40,0,0
	dc.l -1*40,-0*40,-1*40,-1*40,-1*40,-1*40,-1*40,-2*40,-2*40,-2*40,-2*40
	dc.l -3*40,-3*40,-3*40,-3*40,-4*40,-4*40,-4*40
	dc.l -5*40,-5*40,-5*40,-4*40,-4*40,-4*40,-3*40
	dc.l -3*40,-3*40,-3*40,-2*40,-2*40,-2*40,-2*40,-1*40,-1*40
	dc.l -1*40,-1*40,-1*40,-0*40,-1*40,0,0
	dc.l 1*40,0*40,1*40,1*40,1*40,1*40,1*40,2*40,2*40,2*40,2*40
	dc.l 3*40,3*40,3*40,3*40,4*40,4*40,4*40
	dc.l 5*40,5*40,5*40,4*40,4*40,4*40,3*40
	dc.l 3*40,3*40,3*40,2*40,2*40,2*40,2*40,1*40,1*40
	dc.l 1*40,1*40,1*40,0*40,1*40,0,0
	dc.l -1*40,-0*40,-1*40,-1*40,-1*40,-1*40,-1*40,-2*40,-2*40,-2*40,-2*40
	dc.l -3*40,-3*40,-3*40,-3*40,-4*40,-4*40,-4*40
	dc.l -5*40,-5*40,-5*40,-4*40,-4*40,-4*40,-3*40
	dc.l -3*40,-3*40,-3*40,-2*40,-2*40,-2*40,-2*40,-1*40,-1*40
	dc.l -1*40,-1*40,-1*40,-0*40,-1*40,0,0
	dc.l $ff

counter: dc.b $00
	even

runspr:
	jsr hideregs
	jsr movesprite0
	jsr findregs
	rts
resetspr:
	lea sprites,a0
	move.l #$70300,a1
spr:
	move.w $dff006,$dff102
	cmp.b #$38,$dff006
	bne spr
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	move.b (a0),$dff182
	move.b (a0),(a1)
	move.b 200(a0),$100(a1)
	move.b 400(a0),$200(a1)
	move.b 600(a0),$300(a1)
	move.b 800(a0),$400(a1)
	move.b 1000(a0),$500(a1)
	move.b 1200(a0),$600(a1)
	move.b 1400(a0),$700(a1)
	add.l #1,a0
	add.l #1,a1
	cmp.l #$70400,a1
	bne spr
	rts

sprite0: dc.l $71040
sprite1: dc.l $71038
sprite2: dc.l $71030
sprite3: dc.l $71028
sprite4: dc.l $71020
sprite5: dc.l $71008
sprite6: dc.l $71004
sprite7: dc.l $71000

movesprite0:
	move.l sprite0,a0
	move.b (a0),$70301
	move.b $500(a0),$70300
	move.b $500(a0),$70302
	add.b #$14,$70302
	add.l #1,sprite0
	move.l sprite0,a0
	cmp.b #$ff,(a0)
	bne movesprite1
	move.l #$71000,sprite0

movesprite1:
	move.l sprite1,a0
	move.b (a0),$70401
	move.b $500(a0),$70400
	move.b $500(a0),$70402
	add.b #$14,$70402
	add.l #1,sprite1
	move.l sprite1,a0
	cmp.b #$ff,(a0)
	bne movesprite2
	move.l #$71000,sprite1

movesprite2:
	move.l sprite2,a0
	move.b (a0),$70501
	move.b $500(a0),$70500
	move.b $500(a0),$70502
	add.b #$14,$70502
	add.l #1,sprite2
	move.l sprite2,a0
	cmp.b #$ff,(a0)
	bne movesprite3
	move.l #$71000,sprite2

movesprite3:
	move.l sprite3,a0
	move.b (a0),$70601
	move.b $500(a0),$70600
	move.b $500(a0),$70602
	add.b #$14,$70602
	add.l #1,sprite3
	move.l sprite3,a0
	cmp.b #$ff,(a0)
	bne movesprite4
	move.l #$71000,sprite3

movesprite4:
	move.l sprite4,a0
	move.b (a0),$70701
	move.b $500(a0),$70700
	move.b $500(a0),$70702
	add.b #$14,$70702
	add.l #1,sprite4
	move.l sprite4,a0
	cmp.b #$ff,(a0)
	bne movesprite5
	move.l #$71000,sprite4

movesprite5:
	move.l sprite5,a0
	move.b (a0),$70801
	move.b $500(a0),$70800
	move.b $500(a0),$70802
	add.b #$14,$70802
	add.l #1,sprite5
	move.l sprite5,a0
	cmp.b #$ff,(a0)
	bne movesprite6
	move.l #$71000,sprite5

movesprite6:
	move.l sprite6,a0
	move.b (a0),$70901
	move.b $500(a0),$70900
	move.b $500(a0),$70902
	add.b #$14,$70902
	add.l #1,sprite6
	move.l sprite6,a0
	cmp.b #$ff,(a0)
	bne movesprite7
	move.l #$71000,sprite6

movesprite7:
	move.l sprite7,a0
	move.b (a0),$70a01
	move.b $500(a0),$70a00
	move.b $500(a0),$70a02
	add.b #$14,$70a02
	add.l #1,sprite7
	move.l sprite7,a0
	cmp.b #$ff,(a0)
	bne end
	move.l #$71000,sprite7

end:
	rts

sprites:

	dc.w $0000,$0000
	dc.w $7FFE,$0000
	dc.w $8001,$7FFE
	dc.w $BFFD,$7FFE
	dc.w $8005,$7FFE
	dc.w $7FF5,$000E
	dc.w $0015,$000E
	dc.w $0015,$000E
	dc.w $7FF5,$000E
	dc.w $8005,$7FFE
	dc.w $BFFD,$7FFE
	dc.w $A021,$7FFE
	dc.w $AFAE,$7070
	dc.w $A8A8,$7070
	dc.w $A8A8,$7070
	dc.w $A8A8,$7070
	dc.w $A8B4,$7078
	dc.w $A85A,$703C
	dc.w $A82D,$701E
	dc.w $8811,$700E
	dc.w $700E,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $7FFE,$0000
	dc.w $8001,$7FFE
	dc.w $BFFD,$7FFE
	dc.w $8005,$7FFE
	dc.w $7FF5,$000E
	dc.w $0015,$000E
	dc.w $0015,$000E
	dc.w $7FF5,$000E
	dc.w $8005,$7FFE
	dc.w $BFFD,$7FFE
	dc.w $A005,$7FFE
	dc.w $AFF5,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $8811,$700E
	dc.w $700E,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $7FFE,$0000
	dc.w $8001,$7FFE
	dc.w $BFFD,$7FFE
	dc.w $8005,$7FFE
	dc.w $7FF5,$000E
	dc.w $0015,$000E
	dc.w $0015,$000E
	dc.w $7C35,$000E
	dc.w $8245,$7C3E
	dc.w $BA5D,$7C3E
	dc.w $A241,$7C3E
	dc.w $AC3E,$7000
	dc.w $A800,$7000
	dc.w $A800,$7000
	dc.w $A800,$7000
	dc.w $AFFE,$7000
	dc.w $A001,$7FFE
	dc.w $BFFD,$7FFE
	dc.w $8001,$7FFE
	dc.w $7FFE,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $781E,$0000
	dc.w $8421,$781E
	dc.w $B24D,$7C3E
	dc.w $4995,$3E7E
	dc.w $2425,$1FFE
	dc.w $1245,$0FFE
	dc.w $0995,$07EE
	dc.w $4435,$03CE
	dc.w $A255,$418E
	dc.w $9195,$600E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $8811,$700E
	dc.w $700E,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $7FFE,$0000
	dc.w $8001,$7FFE
	dc.w $BFFD,$7FFE
	dc.w $8005,$7FFE
	dc.w $7FF5,$000E
	dc.w $0015,$000E
	dc.w $0015,$000E
	dc.w $7015,$000E
	dc.w $8815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $AFF5,$700E
	dc.w $A005,$7FFE
	dc.w $BFFD,$7FFE
	dc.w $8001,$7FFE
	dc.w $7FFE,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $7FFE,$0000
	dc.w $A815,$57EA
	dc.w $ABD5,$57EA
	dc.w $A995,$57EA
	dc.w $7DBE,$03C0
	dc.w $05A0,$03C0
	dc.w $05A0,$03C0
	dc.w $05A0,$03C0
	dc.w $05A0,$03C0
	dc.w $05A0,$03C0
	dc.w $05A0,$03C0
	dc.w $05A0,$03C0
	dc.w $05A0,$03C0
	dc.w $05A0,$03C0
	dc.w $05A0,$03C0
	dc.w $0FF0,$0180
	dc.w $15A8,$0BD0
	dc.w $15A8,$0BD0
	dc.w $1428,$0BD0
	dc.w $0FF0,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $7FFE,$0000
	dc.w $9551,$6AAE
	dc.w $B55D,$6AAE
	dc.w $B555,$6AAE
	dc.w $AFF1,$700E
	dc.w $A80E,$7000
	dc.w $A800,$7000
	dc.w $AFFE,$7000
	dc.w $AAA9,$7556
	dc.w $BAAD,$7556
	dc.w $8AAD,$7556
	dc.w $7FF5,$000E
	dc.w $0015,$000E
	dc.w $0015,$000E
	dc.w $7015,$000E
	dc.w $8FF5,$700E
	dc.w $B555,$6AAE
	dc.w $B55D,$6AAE
	dc.w $9551,$6AAE
	dc.w $7FFE,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $7FFE,$0000
	dc.w $9551,$6AAE
	dc.w $B55D,$6AAE
	dc.w $B555,$6AAE
	dc.w $AFF5,$700E
	dc.w $A815,$700E
	dc.w $A815,$700E
	dc.w $AFF5,$700E
	dc.w $AAAD,$7556
	dc.w $AAAD,$7556
	dc.w $AAA9,$7556
	dc.w $AFFE,$7000
	dc.w $A800,$7000
	dc.w $A800,$7000
	dc.w $A800,$7000
	dc.w $A800,$7000
	dc.w $A800,$7000
	dc.w $A800,$7000
	dc.w $8800,$7000
	dc.w $7000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000
	dc.w $0000,$0000

hideregs:
	move.l a0,adregs
	move.l a1,adregs+4
	rts
findregs:
	move.l adregs,a0
	move.l adregs+4,a1
	rts

adregs: dc.l 0,0,0,0,0,0,0
pass: dc.b 0
peek: dc.b 0
even:

beamcol:

	dc.w $0000
	dc.w $0000,$0111,$0222,$0333,$0444,$0555,$0666,$0777
	dc.w $0888,$0999,$0aaa,$0bbb,$0ccc,$0ddd,$0eee,$0fff
	dc.w $0eee,$0ddd,$0ccc,$0bbb,$0aaa,$0999,$0888,$0777
	dc.w $0666,$0555,$0444,$0333,$0222,$0111,$0000
	dc.w $0000,$0110,$0220,$0330,$0440,$0550,$0660,$0770
	dc.w $0880,$0990,$0aa0,$0bb0,$0cc0,$0dd0,$0ee0,$0ff0
	dc.w $0ee0,$0dd0,$0cc0,$0bb0,$0aa0,$0990,$0880,$0770
	dc.w $0660,$0550,$0440,$0330,$0220,$0110,$0000
	dc.w $0000,$0011,$0022,$0033,$0044,$0055,$0066,$0077
	dc.w $0088,$0099,$00aa,$00bb,$00cc,$00dd,$00ee,$00ff
	dc.w $00ee,$00dd,$00cc,$00bb,$00aa,$0099,$0088,$0077
	dc.w $0066,$0055,$0044,$0033,$0022,$0011,$0000

; *** LOADER ***
loader:
read=-42
open=-30
close=-36
modeold=1005
	lea dosname,a1
	move.l execbase,a6
	jsr openlib(a6)
	move.l d0,dosbase
	move.l #filepointers,a5
	jmp loader2
dosbase: dc.l $00000000
filehd: dc.l $0000000
dosname: dc.b 'dos.library',0
filename: dc.b 'ikit-3',0
	even

loader2:
	move.l #modeold,d2
	move.l (a5),a4
	jsr openfile
	bne loader3
nofile:
	move.w $dff006,$dff180
	jmp nofile

loader3:
	move.l (a4),d2
	jsr readfile
	jsr closefile
	add.l #4,a5
	cmp.l #$ffffffff,(a5)
	bne loader2
	jmp filefinish

readfile:
	move.l dosbase,a6
	move.l filehd,d1
	move.l #$fffff,d3
	jsr read(a6)
	rts

openfile:
	move.l dosbase,a6
	add.l #4,a4
	move.l a4,d1
	sub.l #4,a4
	jsr open(a6)
	move.l d0,filehd
	rts

closefile:
	move.l dosbase,a6
	move.l filehd,d1
	jsr close(a6)
	rts

filefinish:
	move.l execbase,a6
	move.l dosbase,a1
	jsr closelib(a6)
	rts

filepointers:
	dc.l file1,file2,file3,file4,file5,$ffffffff

file1: dc.l $40000
	dc.b 'hm.pic',0
	even
file2: dc.l $5f240
	dc.b 'hm.sfx',0
	even
file3: dc.l $70000
	dc.b 'hm.font',0
	even
file4: dc.l $71000
	dc.b 'hm.sindat',0
	even
file5: dc.l $5915c
	dc.b 'hm.hogan',0