section ax,code_c
	opt c-,d+,w-,o+	
	
	include 'df2:insert/custom registers'
	
badd=(320*256)/8

	lea $dff000,a6
	move.w #$87e0,dmacon(a6)
	jsr mt_init
	move.l #table,a3
	move.l a3,baz
	jsr cop_init
 	move.l $6c,oldirq
 	move.l #newirq,$6c
mse:
 	cmp.b #$f0,$dff006
 	bne mse
zog:
 	btst #6,$bfe001
	bne mse
 	jsr mt_end
 	move.l oldirq,$6c
 	move.l copaddr,a0
 	move.l oldcop,(a0)
nolib:	
	 rts	
newirq:  
	movem.l d0-d7/a0-a6,$75000
	cmpi.w #$0000,boh
	bne whodo
	move.w #$00ff,boh
	jsr bobsetup
	jsr printy
	jmp who
whodo:	subi.w #$0011,boh
who:	jsr mt_music
	movem.l $75000,d0-d7/a0-a6
	dc.w $4ef9
	
oldirq: dc.l 0
countx: dc.b 0
baz:	dc.l 0
yaz:	dc.b 0
gook:	dc.b 0
ook:	dc.b 0
	even

cop_init:
 	lea screen,a0
 	move.l a0,d0
 	move.w d0,lo1
 	swap d0
 	move.w d0,hi1
 	lea screen+badd,a0
 	move.l a0,d0
 	move.w d0,lo2
 	swap d0
 	move.w d0,hi2
 	lea screen+badd*2,a0
 	move.l a0,d0
 	move.w d0,lo3
 	swap d0
 	move.w d0,hi3
 	lea screen+badd*3,a0
 	move.l a0,d0
 	move.w d0,lo4
 	swap d0
 	move.w d0,hi4
 	lea screen+badd*4,a0
 	move.l a0,d0
 	move.w d0,lo5
 	swap d0
 	move.w d0,hi5
 	moveq #$00,d0
 	lea grafname,a1
 	move.l $4,a6
 	jsr -132(A6)
 	move.l $4,A6
 	jsr -408(a6)
 	tst d0
 	beq nolib
 	move.l d0,grafbase
 	move.l d0,a6
 	add.l #$32,d0
 	move.l d0,a0
 	move.l a0,copaddr
 	move.l (a0),oldcop
 	move.l #newcop,(a0)
 	rts
 
	even
	  
grafname: dc.b "graphics.library",0
grafbase: dc.l 0
oldcop:   dc.l 0
copaddr:  dc.l 0

	even
 
newcop:	 dc.w $0100,$1200
 	 dc.w $0102
boh: 	 dc.w $00ff
	 dc.w $0120
sp1l:	 dc.w $0000,$0122
sp1h: 	 dc.w $0000 
	 dc.w $0124
sp2l:	 dc.w $0000,$0126
sp2h: 	 dc.w $0000 
	 dc.w $0128
sp3l:	 dc.w $0000,$012a
sp3h: 	 dc.w $0000 
	 dc.w $012c
sp4l:	 dc.w $0000,$012e
sp4h: 	 dc.w $0000
	 dc.w $0130
sp5l:	 dc.w $0000,$132
sp5h: 	 dc.w $0000

 scr:  	 dc.w $2001,$fffe
 	 dc.w $00e0
 hi1:	 dc.w $0000
	 dc.w $00e2
 lo1:	 dc.w $0000 	
	 dc.w $00e4
 hi2:	 dc.w $0000
	 dc.w $00e6
 lo2:	 dc.w $0000 
	 dc.w $00e8
 hi3:	 dc.w $0000
	 dc.w $00ea
 lo3:	 dc.w $0000 
	 dc.w $00ec
 hi4:	 dc.w $0000
	 dc.w $00ee
 lo4:	 dc.w $0000 
	 dc.w $00f0
 hi5:	 dc.w $0000
	 dc.w $00f2
 lo5:	 dc.w $0000
         dc.w $0108,8
         dc.w $010a,8
         dc.w $182,$fff
         dc.w $008e,$3021 
	 dc.w $0090,$30f1
	 dc.w $0092,$0020
	 dc.w $0094,$00d8
	 ;dc.w $0108,$0008
	 dc.w $6001,$fffe
         dc.w $0108,-84	
	
         dc.w $180,$000,$182,$000,$184,$fdb,$186,$db9
	 dc.w $188,$c97,$18a,$a75,$18c,$853,$18e,$033,$190,$c60
	 dc.w $192,$ba5,$194,$962,$196,$530,$198,$db4,$19a,$558
	 dc.w $19c,$447,$19e,$336,$1a0,$a40,$1a2,$f44,$1a4,$b00
	 dc.w $1a6,$222,$1a8,$333,$1aa,$444,$1ac,$555,$1ae,$666
	 dc.w $1b0,$777,$1b2,$888,$1b4,$999,$1b6,$aaa,$1b8,$ccc
	 dc.w $1ba,$ddd,$1bc,$eee,$1be,$fff
         dc.w $5001,$fffe
	 dc.w $0182,$0fff
	 dc.w $0180,$0006
	 dc.w $7001,$fffe
	 dc.w $0100,$0000
	 dc.w $0180,$0000
	 dc.w $ffff,$fffe
	 
	 even

picdata:
	 incbin "df2:graphics/bbc.chrset.raw"

screen:
	 ds.b 1*badd
	 
	 
bobsetup:
 	lea $dff000,a6
 	move.w #$09f0,bltcon0(a6)
 	clr.w bltcon1(a6)
 	clr.w bltamod(a6)
 	move.w #56-50,bltdmod(a6)             ;Destination Modulo
 	move.w #56-50,bltamod(a6)             ;Source Modulo (Scr Width - bob width)
 	move.l #screen-2+(56*40),bltdpt(a6)   ;Destination Start
 	move.l #screen+(56*40),bltapt(a6)     ;Source Start
 	move.w #%0000001000011001,bltsize(a6) ;Size (Lo 6 Bits Horiz)	
 	rts

printy:
	 move.l baz,a3
	 move.b (a3),yaz
	 move.b (a3)+,ook
	 move.l a3,baz
	 cmpi.b #0,yaz
	 bne frek
	 move.l #table,a3
	 move.l a3,baz
	 jmp ik
frek:
	 cmpi.b #65,yaz  ;A
	 bne char2
char1:	 
	 move.b picdata+320,screen+48+(56*40)
	 move.b picdata+360,screen+48+(56*41)
	 move.b picdata+400,screen+48+(56*42)
	 move.b picdata+440,screen+48+(56*43)
	 move.b picdata+480,screen+48+(56*44)
	 move.b picdata+520,screen+48+(56*45)
	 move.b picdata+560,screen+48+(56*46)
	 move.b picdata+600,screen+48+(56*47)
	 jmp ik
char2:   
	 cmpi.b #66,yaz  ;B
	 bne char3
 	 move.b picdata+320+1,screen+48+(56*40)
	 move.b picdata+360+1,screen+48+(56*41)
	 move.b picdata+400+1,screen+48+(56*42)
	 move.b picdata+440+1,screen+48+(56*43)
	 move.b picdata+480+1,screen+48+(56*44)
	 move.b picdata+520+1,screen+48+(56*45)
	 move.b picdata+560+1,screen+48+(56*46)
	 move.b picdata+600+1,screen+48+(56*47)
	 jmp ik
char3:
 	 cmpi.b #67,yaz  ;C
	 bne char4
 	 move.b picdata+320+2,screen+48+(56*40)
	 move.b picdata+360+2,screen+48+(56*41)
	 move.b picdata+400+2,screen+48+(56*42)
	 move.b picdata+440+2,screen+48+(56*43)
	 move.b picdata+480+2,screen+48+(56*44)
	 move.b picdata+520+2,screen+48+(56*45)
	 move.b picdata+560+2,screen+48+(56*46)
	 move.b picdata+600+2,screen+48+(56*47)
	 jmp ik
char4:
 	 cmpi.b #68,yaz  ;D
	 bne char5
 	 move.b picdata+320+3,screen+48+(56*40)
	 move.b picdata+360+3,screen+48+(56*41)
	 move.b picdata+400+3,screen+48+(56*42)
	 move.b picdata+440+3,screen+48+(56*43)
	 move.b picdata+480+3,screen+48+(56*44)
	 move.b picdata+520+3,screen+48+(56*45)
	 move.b picdata+560+3,screen+48+(56*46)
	 move.b picdata+600+3,screen+48+(56*47)
	 jmp ik
char5:
	 cmpi.b #69,yaz  ;E
	 bne char6
 	 move.b picdata+320+4,screen+48+(56*40)
	 move.b picdata+360+4,screen+48+(56*41)
	 move.b picdata+400+4,screen+48+(56*42)
	 move.b picdata+440+4,screen+48+(56*43)
	 move.b picdata+480+4,screen+48+(56*44)
	 move.b picdata+520+4,screen+48+(56*45)
	 move.b picdata+560+4,screen+48+(56*46)
	 move.b picdata+600+4,screen+48+(56*47)
	 jmp ik
char6:
 	 cmpi.b #70,yaz  ;F
	 bne char7
 	 move.b picdata+320+5,screen+48+(56*40)
	 move.b picdata+360+5,screen+48+(56*41)
	 move.b picdata+400+5,screen+48+(56*42)
	 move.b picdata+440+5,screen+48+(56*43)
	 move.b picdata+480+5,screen+48+(56*44)
	 move.b picdata+520+5,screen+48+(56*45)
	 move.b picdata+560+5,screen+48+(56*46)
	 move.b picdata+600+5,screen+48+(56*47)
	 jmp ik
char7:	
	 cmpi.b #71,yaz  ;G
	 bne char8
 	 move.b picdata+320+6,screen+48+(56*40)
	 move.b picdata+360+6,screen+48+(56*41)
	 move.b picdata+400+6,screen+48+(56*42)
	 move.b picdata+440+6,screen+48+(56*43)
	 move.b picdata+480+6,screen+48+(56*44)
	 move.b picdata+520+6,screen+48+(56*45)
	 move.b picdata+560+6,screen+48+(56*46)
	 move.b picdata+600+6,screen+48+(56*47)
	 jmp ik 
char8:
	 cmpi.b #72,yaz  ;H
	 bne char9
 	 move.b picdata+320+7,screen+48+(56*40)
	 move.b picdata+360+7,screen+48+(56*41)
	 move.b picdata+400+7,screen+48+(56*42)
	 move.b picdata+440+7,screen+48+(56*43)
	 move.b picdata+480+7,screen+48+(56*44)
	 move.b picdata+520+7,screen+48+(56*45)
	 move.b picdata+560+7,screen+48+(56*46)
	 move.b picdata+600+7,screen+48+(56*47)
	 jmp ik 
char9:
	 cmpi.b #73,yaz  ;I
	 bne char10
 	 move.b picdata+320+8,screen+48+(56*40)
	 move.b picdata+360+8,screen+48+(56*41)
	 move.b picdata+400+8,screen+48+(56*42)
	 move.b picdata+440+8,screen+48+(56*43)
	 move.b picdata+480+8,screen+48+(56*44)
	 move.b picdata+520+8,screen+48+(56*45)
	 move.b picdata+560+8,screen+48+(56*46)
	 move.b picdata+600+8,screen+48+(56*47)
	 jmp ik
char10:
	 cmpi.b #74,yaz  ;J
	 bne char11
 	 move.b picdata+320+9,screen+48+(56*40)
	 move.b picdata+360+9,screen+48+(56*41)
	 move.b picdata+400+9,screen+48+(56*42)
	 move.b picdata+440+9,screen+48+(56*43)
	 move.b picdata+480+9,screen+48+(56*44)
	 move.b picdata+520+9,screen+48+(56*45)
	 move.b picdata+560+9,screen+48+(56*46)
	 move.b picdata+600+9,screen+48+(56*47)
	 jmp ik
char11:
	 cmpi.b #75,yaz  ;K
	 bne char12
 	 move.b picdata+320+10,screen+48+(56*40)
	 move.b picdata+360+10,screen+48+(56*41)
	 move.b picdata+400+10,screen+48+(56*42)
	 move.b picdata+440+10,screen+48+(56*43)
	 move.b picdata+480+10,screen+48+(56*44)
	 move.b picdata+520+10,screen+48+(56*45)
	 move.b picdata+560+10,screen+48+(56*46)
	 move.b picdata+600+10,screen+48+(56*47)
	 jmp ik
char12:
	 cmpi.b #76,yaz  ;L
	 bne char13
 	 move.b picdata+320+11,screen+48+(56*40)
	 move.b picdata+360+11,screen+48+(56*41)
	 move.b picdata+400+11,screen+48+(56*42)
	 move.b picdata+440+11,screen+48+(56*43)
	 move.b picdata+480+11,screen+48+(56*44)
	 move.b picdata+520+11,screen+48+(56*45)
	 move.b picdata+560+11,screen+48+(56*46)
	 move.b picdata+600+11,screen+48+(56*47)
	 jmp ik
char13:
	 cmpi.b #77,yaz  ;M
	 bne char14
 	 move.b picdata+320+12,screen+48+(56*40)
	 move.b picdata+360+12,screen+48+(56*41)
	 move.b picdata+400+12,screen+48+(56*42)
	 move.b picdata+440+12,screen+48+(56*43)
	 move.b picdata+480+12,screen+48+(56*44)
	 move.b picdata+520+12,screen+48+(56*45)
	 move.b picdata+560+12,screen+48+(56*46)
	 move.b picdata+600+12,screen+48+(56*47)
	 jmp ik
char14:  
	 cmpi.b #78,yaz  ;N
	 bne char15
 	 move.b picdata+320+13,screen+48+(56*40)
	 move.b picdata+360+13,screen+48+(56*41)
	 move.b picdata+400+13,screen+48+(56*42)
	 move.b picdata+440+13,screen+48+(56*43)
	 move.b picdata+480+13,screen+48+(56*44)
	 move.b picdata+520+13,screen+48+(56*45)
	 move.b picdata+560+13,screen+48+(56*46)
	 move.b picdata+600+13,screen+48+(56*47)
	 jmp ik
char15:
 	 cmpi.b #79,yaz  ;O
	 bne char16
 	 move.b picdata+320+14,screen+48+(56*40)
	 move.b picdata+360+14,screen+48+(56*41)
	 move.b picdata+400+14,screen+48+(56*42)
	 move.b picdata+440+14,screen+48+(56*43)
	 move.b picdata+480+14,screen+48+(56*44)
	 move.b picdata+520+14,screen+48+(56*45)
	 move.b picdata+560+14,screen+48+(56*46)
	 move.b picdata+600+14,screen+48+(56*47)
	 jmp ik
char16:
	 cmpi.b #80,yaz  ;P
	 bne char17
 	 move.b picdata+320+15,screen+48+(56*40)
	 move.b picdata+360+15,screen+48+(56*41)
	 move.b picdata+400+15,screen+48+(56*42)
	 move.b picdata+440+15,screen+48+(56*43)
	 move.b picdata+480+15,screen+48+(56*44)
	 move.b picdata+520+15,screen+48+(56*45)
	 move.b picdata+560+15,screen+48+(56*46)
	 move.b picdata+600+15,screen+48+(56*47)
	 jmp ik
char17:
	 cmpi.b #81,yaz  ;Q
	 bne char18
 	 move.b picdata+320+16,screen+48+(56*40)
	 move.b picdata+360+16,screen+48+(56*41)
	 move.b picdata+400+16,screen+48+(56*42)
	 move.b picdata+440+16,screen+48+(56*43)
	 move.b picdata+480+16,screen+48+(56*44)
	 move.b picdata+520+16,screen+48+(56*45)
	 move.b picdata+560+16,screen+48+(56*46)
	 move.b picdata+600+16,screen+48+(56*47)
	 jmp ik
char18:
 	 cmpi.b #82,yaz  ;R
	 bne char19
 	 move.b picdata+320+17,screen+48+(56*40)
	 move.b picdata+360+17,screen+48+(56*41)
	 move.b picdata+400+17,screen+48+(56*42)
	 move.b picdata+440+17,screen+48+(56*43)
	 move.b picdata+480+17,screen+48+(56*44)
	 move.b picdata+520+17,screen+48+(56*45)
	 move.b picdata+560+17,screen+48+(56*46)
	 move.b picdata+600+17,screen+48+(56*47)
	 jmp ik
char19:
	 cmpi.b #83,yaz  ;S
	 bne char20
 	 move.b picdata+320+18,screen+48+(56*40)
	 move.b picdata+360+18,screen+48+(56*41)
	 move.b picdata+400+18,screen+48+(56*42)
	 move.b picdata+440+18,screen+48+(56*43)
	 move.b picdata+480+18,screen+48+(56*44)
	 move.b picdata+520+18,screen+48+(56*45)
	 move.b picdata+560+18,screen+48+(56*46)
	 move.b picdata+600+18,screen+48+(56*47)
	 jmp ik
char20:
	 cmpi.b #84,yaz  ;T
	 bne char21
 	 move.b picdata+320+19,screen+48+(56*40)
	 move.b picdata+360+19,screen+48+(56*41)
	 move.b picdata+400+19,screen+48+(56*42)
	 move.b picdata+440+19,screen+48+(56*43)
	 move.b picdata+480+19,screen+48+(56*44)
	 move.b picdata+520+19,screen+48+(56*45)
	 move.b picdata+560+19,screen+48+(56*46)
	 move.b picdata+600+19,screen+48+(56*47)
	 jmp ik
char21:
	 cmpi.b #85,yaz  ;U
	 bne char22
 	 move.b picdata+320+20,screen+48+(56*40)
	 move.b picdata+360+20,screen+48+(56*41)
	 move.b picdata+400+20,screen+48+(56*42)
	 move.b picdata+440+20,screen+48+(56*43)
	 move.b picdata+480+20,screen+48+(56*44)
	 move.b picdata+520+20,screen+48+(56*45)
	 move.b picdata+560+20,screen+48+(56*46)
	 move.b picdata+600+20,screen+48+(56*47)
	 jmp ik
char22:
	 cmpi.b #86,yaz  ;V
	 bne char23
 	 move.b picdata+320+21,screen+48+(56*40)
	 move.b picdata+360+21,screen+48+(56*41)
	 move.b picdata+400+21,screen+48+(56*42)
	 move.b picdata+440+21,screen+48+(56*43)
	 move.b picdata+480+21,screen+48+(56*44)
	 move.b picdata+520+21,screen+48+(56*45)
	 move.b picdata+560+21,screen+48+(56*46)
	 move.b picdata+600+21,screen+48+(56*47)
	 jmp ik
char23:
	 cmpi.b #87,yaz  ;W
	 bne char24
 	 move.b picdata+320+22,screen+48+(56*40)
	 move.b picdata+360+22,screen+48+(56*41)
	 move.b picdata+400+22,screen+48+(56*42)
	 move.b picdata+440+22,screen+48+(56*43)
	 move.b picdata+480+22,screen+48+(56*44)
	 move.b picdata+520+22,screen+48+(56*45)
	 move.b picdata+560+22,screen+48+(56*46)
	 move.b picdata+600+22,screen+48+(56*47)
	 jmp ik
char24:
	 cmpi.b #88,yaz  ;X
	 bne char25
 	 move.b picdata+320+23,screen+48+(56*40)
	 move.b picdata+360+23,screen+48+(56*41)
	 move.b picdata+400+23,screen+48+(56*42)
	 move.b picdata+440+23,screen+48+(56*43)
	 move.b picdata+480+23,screen+48+(56*44)
	 move.b picdata+520+23,screen+48+(56*45)
	 move.b picdata+560+23,screen+48+(56*46)
	 move.b picdata+600+23,screen+48+(56*47)
	 jmp ik
char25:
	 cmpi.b #89,yaz  ;Y
	 bne char26
 	 move.b picdata+320+24,screen+48+(56*40)
	 move.b picdata+360+24,screen+48+(56*41)
	 move.b picdata+400+24,screen+48+(56*42)
	 move.b picdata+440+24,screen+48+(56*43)
	 move.b picdata+480+24,screen+48+(56*44)
	 move.b picdata+520+24,screen+48+(56*45)
	 move.b picdata+560+24,screen+48+(56*46)
	 move.b picdata+600+24,screen+48+(56*47)
	 jmp ik	
char26:
	 cmpi.b #90,yaz  ;Z
	 bne char27
 	 move.b picdata+320+25,screen+48+(56*40)
	 move.b picdata+360+25,screen+48+(56*41)
	 move.b picdata+400+25,screen+48+(56*42)
	 move.b picdata+440+25,screen+48+(56*43)
	 move.b picdata+480+25,screen+48+(56*44)
	 move.b picdata+520+25,screen+48+(56*45)
	 move.b picdata+560+25,screen+48+(56*46)
	 move.b picdata+600+25,screen+48+(56*47)
	 jmp ik	
char27:
	 cmpi.b #32,yaz  ;SPACE
	 bne char32
 	 move.b picdata,screen+48+(56*40)
	 move.b picdata+40,screen+48+(56*41)
	 move.b picdata+80,screen+48+(56*42)
	 move.b picdata+120,screen+48+(56*43)
	 move.b picdata+160,screen+48+(56*44)
	 move.b picdata+200,screen+48+(56*45)
	 move.b picdata+240,screen+48+(56*46)
	 move.b picdata+280,screen+48+(56*47)
	 jmp ik	

char32:
 	 cmpi.b #46,yaz  ;. 
	 bne char33
 	 move.b picdata+11,screen+48+(56*40)
	 move.b picdata+40+11,screen+48+(56*41)
	 move.b picdata+80+11,screen+48+(56*42)
	 move.b picdata+120+11,screen+48+(56*43)
	 move.b picdata+160+11,screen+48+(56*44)
	 move.b picdata+200+11,screen+48+(56*45)
	 move.b picdata+240+11,screen+48+(56*46)
	 move.b picdata+280+11,screen+48+(56*47)
	 jmp ik
char33:
	 cmpi.b #48,yaz  ;0 
	 bne char34
 	 move.b picdata+10,screen+48+(56*40)
	 move.b picdata+40+10,screen+48+(56*41)
	 move.b picdata+80+10,screen+48+(56*42)
	 move.b picdata+120+10,screen+48+(56*43)
	 move.b picdata+160+10,screen+48+(56*44)
	 move.b picdata+200+10,screen+48+(56*45)
	 move.b picdata+240+10,screen+48+(56*46)
	 move.b picdata+280+10,screen+48+(56*47)
	 jmp ik
char34:
	 cmpi.b #49,yaz  ;1 
	 bne char35
 	 move.b picdata+1,screen+48+(56*40)
	 move.b picdata+40+1,screen+48+(56*41)
	 move.b picdata+80+1,screen+48+(56*42)
	 move.b picdata+120+1,screen+48+(56*43)
	 move.b picdata+160+1,screen+48+(56*44)
	 move.b picdata+200+1,screen+48+(56*45)
	 move.b picdata+240+1,screen+48+(56*46)
	 move.b picdata+280+1,screen+48+(56*47)
	 jmp ik	
char35:
	 cmpi.b #50,yaz  ;2 
	 bne char36
 	 move.b picdata+2,screen+48+(56*40)
	 move.b picdata+40+2,screen+48+(56*41)
	 move.b picdata+80+2,screen+48+(56*42)
	 move.b picdata+120+2,screen+48+(56*43)
	 move.b picdata+160+2,screen+48+(56*44)
	 move.b picdata+200+2,screen+48+(56*45)
	 move.b picdata+240+2,screen+48+(56*46)
	 move.b picdata+280+2,screen+48+(56*47)
	 jmp ik		
	 
char36:
	 cmpi.b #51,yaz  ;3 
	 bne char37
 	 move.b picdata+3,screen+48+(56*40)
	 move.b picdata+40+3,screen+48+(56*41)
	 move.b picdata+80+3,screen+48+(56*42)
	 move.b picdata+120+3,screen+48+(56*43)
	 move.b picdata+160+3,screen+48+(56*44)
	 move.b picdata+200+3,screen+48+(56*45)
	 move.b picdata+240+3,screen+48+(56*46)
	 move.b picdata+280+3,screen+48+(56*47)
	 jmp ik		
char37:
	 cmpi.b #52,yaz  ;4
	 bne char38
 	 move.b picdata+4,screen+48+(56*40)
	 move.b picdata+40+4,screen+48+(56*41)
	 move.b picdata+80+4,screen+48+(56*42)
	 move.b picdata+120+4,screen+48+(56*43)
	 move.b picdata+160+4,screen+48+(56*44)
	 move.b picdata+200+4,screen+48+(56*45)
	 move.b picdata+240+4,screen+48+(56*46)
	 move.b picdata+280+4,screen+48+(56*47)
	 jmp ik
char38:
	 cmpi.b #53,yaz  ;5
	 bne char39
 	 move.b picdata+5,screen+48+(56*40)
	 move.b picdata+40+5,screen+48+(56*41)
	 move.b picdata+80+5,screen+48+(56*42)
	 move.b picdata+120+5,screen+48+(56*43)
	 move.b picdata+160+5,screen+48+(56*44)
	 move.b picdata+200+5,screen+48+(56*45)
	 move.b picdata+240+5,screen+48+(56*46)
	 move.b picdata+280+5,screen+48+(56*47)
	 jmp ik
char39:
	 cmpi.b #54,yaz  ;6
	 bne char40
 	 move.b picdata+6,screen+48+(56*40)
	 move.b picdata+40+6,screen+48+(56*41)
	 move.b picdata+80+6,screen+48+(56*42)
	 move.b picdata+120+6,screen+48+(56*43)
	 move.b picdata+160+6,screen+48+(56*44)
	 move.b picdata+200+6,screen+48+(56*45)
	 move.b picdata+240+6,screen+48+(56*46)
	 move.b picdata+280+6,screen+48+(56*47)
	 jmp ik	 
char40:
	 cmpi.b #55,yaz  ;7
	 bne char41
 	 move.b picdata+7,screen+48+(56*40)
	 move.b picdata+40+7,screen+48+(56*41)
	 move.b picdata+80+7,screen+48+(56*42)
	 move.b picdata+120+7,screen+48+(56*43)
	 move.b picdata+160+7,screen+48+(56*44)
	 move.b picdata+200+7,screen+48+(56*45)
	 move.b picdata+240+7,screen+48+(56*46)
	 move.b picdata+280+7,screen+48+(56*47)
	 jmp ik		 
char41:
	 cmpi.b #56,yaz  ;8
	 bne char42
 	 move.b picdata+8,screen+48+(56*40)
	 move.b picdata+40+8,screen+48+(56*41)
	 move.b picdata+80+8,screen+48+(56*42)
	 move.b picdata+120+8,screen+48+(56*43)
	 move.b picdata+160+8,screen+48+(56*44)
	 move.b picdata+200+8,screen+48+(56*45)
	 move.b picdata+240+8,screen+48+(56*46)
	 move.b picdata+280+8,screen+48+(56*47)
	 jmp ik	 
char42:
	 cmpi.b #57,yaz  ;9
	 bne char43
	 move.b picdata+9,screen+48+(56*40)
	 move.b picdata+40+9,screen+48+(56*41)
	 move.b picdata+80+9,screen+48+(56*42)
	 move.b picdata+120+9,screen+48+(56*43)
	 move.b picdata+160+9,screen+48+(56*44)
	 move.b picdata+200+9,screen+48+(56*45)
	 move.b picdata+240+9,screen+48+(56*46)
	 move.b picdata+280+9,screen+48+(56*47)
	 jmp ik	
	 
char43:
	 cmpi.b #91,yaz  ;` = [
	 bne char44
	 move.b picdata+13,screen+48+(56*40)
	 move.b picdata+40+13,screen+48+(56*41)
	 move.b picdata+80+13,screen+48+(56*42)
	 move.b picdata+120+13,screen+48+(56*43)
	 move.b picdata+160+13,screen+48+(56*44)
	 move.b picdata+200+13,screen+48+(56*45)
	 move.b picdata+240+13,screen+48+(56*46)
	 move.b picdata+280+13,screen+48+(56*47)
	 jmp ik	 

char44:
	 cmpi.b #93,yaz  ;' = ]
	 bne char47
	 move.b picdata+14,screen+48+(56*40)
	 move.b picdata+40+14,screen+48+(56*41)
	 move.b picdata+80+14,screen+48+(56*42)
	 move.b picdata+120+14,screen+48+(56*43)
	 move.b picdata+160+14,screen+48+(56*44)
	 move.b picdata+200+14,screen+48+(56*45)
	 move.b picdata+240+14,screen+48+(56*46)
	 move.b picdata+280+14,screen+48+(56*47)
	 jmp ik	

char47:
ik:	 cmpi.b #1,gook
	 beq baj
	 move.b screen+48+(56*40),screen+47+(56*40)
	 move.b screen+48+(56*41),screen+47+(56*41)
	 move.b screen+48+(56*42),screen+47+(56*42)
	 move.b screen+48+(56*43),screen+47+(56*43)
	 move.b screen+48+(56*44),screen+47+(56*44)
	 move.b screen+48+(56*45),screen+47+(56*45)
	 move.b screen+48+(56*46),screen+47+(56*46)
	 move.b screen+48+(56*47),screen+47+(56*47)
	 move.b #1,gook
	 jmp printy
baj:	 move.b #0,gook
	 rts
table:
	 dc.b 'BLACK BOX PROUDLY PRESENT A FULL SCREEN BLITTER SCROLL. '
	 dc.b 'WRITTEN BY AX. [SUCK IT ARSEHOLES] BECAUSE THIS WAS DONE IN 1990'
	 dc.b ' BY THE BEST. GREETINGS TO NOBODY. SHIT OFF.            '
	 dc.b '[AND ALL OF A SUDDEN HE WAS SOBER AGAIN]'
	 dc.b '              KOTZ KOTZ KOTZ KOTZ KOTZ KOTZ KOTZ KOTZ HIC.'
	 dc.b '              MY NAME IS NAMRON 7.                        '
	 dc.b '[WE HAVENT COME HERE TO PISS ABOUT]                      '
	 dc.b 'FELLOW MEMBERS ARE GIZ [GRAPHIX] AND SLUDGE [PSEUDO MUSICIAN].'
	 dc.b '             TELEPHONE 0742 325224 FOR ONE LONG INSULT.       '
	 dc.b '   STEAMING FAECES TO YOU ALL.                            '
	 dc.b ' MUSIC BY CHRONOS.                '
	 dc.b 'WRAP THIS SHAT.                                          '
	 dc.b '                   '
	 dc.b 0
	 
	 even	
	  
	 include 'df2:insert/noisetracker insert'