; some system include files...

;        Output Ram:FirstDemo

         include exec/types.i

         include exec/libraries.i

         include exec/exec_lib.i

         include intuition/intuition.i

         include intuition/screens.i
    
* --------------------------------------------------------------------    
; a macro to extend LINKLIB and thus avoid the explicit use 
; of the _LVO prefixes in the function names...

CALLSYS  MACRO

         LINKLIB _LVO\1,\2
    
         ENDM

* --------------------------------------------------------------------    

; System EQUates...

;_AbsExecBase       EQU        4

_LVOOpenScreen     EQU     -198

_LVOCloseScreen    EQU      -66

_LVOOpenWindow     EQU     -204

_LVOCloseWindow    EQU      -72
 
_LVOLoadRGB        EQU     -192

_LVOPrintIText     EQU     -216

_LVODrawImage      EQU     -114


; Colour map EQUates...

BLACK             EQU        0               

GREY              EQU        1

WHITE             EQU        2

RED               EQU        3

GREEN             EQU        4

BLUE              EQU        5 

YELLOW            EQU        6 

MAUVE             EQU        7


; Screen EQUates...

SCREENWIDTH       EQU      320

SCREENHEIGHT      EQU      256

DEPTH             EQU        3


; General EQUates...

NULL              EQU        0

TRUE              EQU        1

* --------------------------------------------------------------------
; main program code...

                  move.l  _AbsExecBase,_SysBase    store Exec library base
         
                  lea     intuition_name,a1        library name start in a1
    
                  moveq   #0,d0                    any version will do
    
                  CALLSYS OpenLibrary,_SysBase     macro (see text for details) 

                  move.l  d0,_IntuitionBase        store returned value

                  beq     EXIT                     test result for success


                  lea     graphics_name,a1         library name start in a1
    
                  moveq   #0,d0                    any version will do
    
                  CALLSYS OpenLibrary,_SysBase     macro (see text for details) 

                  move.l  d0,_GfxBase              store returned value

                  beq     CLOSE_INTUITION          test result for success



OPEN_SCREEN       lea     new_screen,a0            new_screen base address

                  CALLSYS OpenScreen,_IntuitionBase
                  
                  move.l  d0,screen_p
                  
                  beq     CLOSE_GRAPHICS


LOAD_COLOURS      add.l    #sc_ViewPort,d0         screen_p already in d0

                  move.l   d0,a0                   viewport address now in a0

                  lea     colour_table,a1          pointer to colour map

                  move.w  #colour_table_SIZEOF,d0  colour map size

                  CALLSYS LoadRGB,_GfxBase
                  

OPEN_WINDOW       lea     new_window,a0            new_window base address
 
                  move.l  screen_p,nw_Screen(a0)   set screen pointer

                  CALLSYS OpenWindow,_IntuitionBase
                  
                  move.l  d0,window_p
                  
                  beq     CLOSE_SCREEN
                  
                  
PRINT_ITEXT       move.l  window_p,a1              get window address

                  move.l  wd_RPort(a1),a0          get rastport address           

                  lea     intuitext1,a1
                  
                  move.l  #0,d0                    no additional offsets
                  
                  move.l  #0,d1

                  CALLSYS PrintIText,_IntuitionBase
            
                                    
DRAW_IMAGE        move.l  window_p,a1              get window address

                  move.l  wd_RPort(a1),a0          get rastport address           

                  lea     image1,a1
                  
                  move.l  #0,d0                    no additional offsets
                  
                  move.l  #0,d1

                  CALLSYS DrawImage,_IntuitionBase
      
             
S:	BSR	MT_INIT

EVER:	MOVE.L	$DFF004,D0
	AND.L	#$1FF00,D0
	CMP.L	#$08000,D0
	BNE.S	EVER

EV2:	MOVE.W	#0,$DFF180
	move.w	$dff006,d0
	move.l	d0,ti
	BSR	MT_MUSIC
	move.l	ti,d0
	moveq	#0,d1
	move.w	$dff006,d1
	sub.w	d0,d1
	cmp.l	TIME,D1
	BLE.S	NONEW
	MOVE.L	D1,TIME

NONEW:	BTST	#6,$BFE001
	BNE	EVER
	BSR	MT_END
	BSR	CLOSE_WINDOW
	MOVEQ	#0,D0
	RTS

  
  
CLOSE_WINDOW      move.l  window_p,a0

                  CALLSYS CloseWindow,_IntuitionBase


CLOSE_SCREEN      move.l  screen_p,a0

                  CALLSYS CloseScreen,_IntuitionBase
                                    


; now close the libraries and quit...

CLOSE_GRAPHICS    move.l  _GfxBase,a1              base needed in a1         
    
                  CALLSYS CloseLibrary,_SysBase


CLOSE_INTUITION   move.l  _IntuitionBase,a1        base needed in a1         
    
                  CALLSYS CloseLibrary,_SysBase
    
EXIT              clr.l    d0

                  rts                              logical end of program



; variables and static data...
    
_GfxBase          ds.l    1

_IntuitionBase    ds.l    1

_SysBase          ds.l    1

screen_p          ds.l    1

window_p          ds.l    1

intuition_name    dc.b 'intuition.library',0

graphics_name     dc.b 'graphics.library',0


        cnop 0,2        
        
new_screen

    dc.w    0,0                                    screen top left
    
    dc.w    SCREENWIDTH,SCREENHEIGHT               screen width and height

    dc.w    DEPTH                                  bitplane depth
    
    dc.b    WHITE,GREY                             detail and block pens
    
    dc.w    0                                      no special view modes
    
    dc.w    CUSTOMSCREEN                           screen type
    
    dc.l    NULL                                   no special font
    
    dc.l    NULL                                   no title
    
    dc.l    NULL                                   no gagdets
    
    dc.l    NULL                                   no custom bitmap
    
           
        cnop 0,2

new_window

    dc.w    0,0                                    window XY origin 

    dc.w    SCREENWIDTH,SCREENHEIGHT               width and height

    dc.b    WHITE,GREY                             detail and block pens

    dc.l    NULL                                   IDCMP flags

    dc.l    SMART_REFRESH                          window flags

    dc.l    NULL                                   no gadgets 

    dc.l    NULL                                   no CHECKMARK imagery

    dc.l    NewWindowName                          window title

    dc.l    NULL                                   screen set at run-time

    dc.l    NULL                                   no custom bitmap

    dc.w    0,0                                    minimum width and height

    dc.w    0,0                                    maximum width and height

    dc.w    CUSTOMSCREEN                           screen type


NewWindowName

    dc.b    '* Press the left mouse button to exit *',0

    cnop 0,2


colour_table

    dc.w    $0000                                  BLACK (background)
    
    dc.w    $0620
       
    dc.w    $0731
        
    dc.w    $0742
    
    dc.w    $0854

    dc.w    $0976
    
    dc.w    $0988
   
    dc.w    $0AAA 

colour_table_SIZEOF EQU  *-colour_table


    cnop 0,2 
    

intuitext1

    dc.b    WHITE,NULL,RP_JAM2,0                   pens, drawmode and fill byte

    dc.w    15,25                                  XY origin

    dc.l    NULL                                   default font

    dc.l    ITextText1                             text pointer

    dc.l    intuitext2                             next IntuiText structure


ITextText1

    dc.b    'Coding and Graphics by KINGY/M.D.M.A',0

    cnop 0,2


intuitext2

    dc.b    BLUE,NULL,RP_JAM2,0                    pens, drawmode and fill byte

    dc.w    55,50                                  XY origin 

    dc.l    NULL                                   default font

    dc.l    ITextText2                             text pointer

    dc.l    NULL                                   next IntuiText structure


ITextText2

    dc.b    'Greetz to Steph and Tracey',0

    cnop 0,2



image1

	dc.w	90,80                              XY origin 

	dc.w	121,141                            image width and height

	dc.w	3                                  depth

	dc.l	ImageData1                         image data

	dc.b	$0007,$0000                        plane configurations

	dc.l	NULL                               no next image



MT_INIT:lea	mt_data,a0
	lea	mt_mulu(pc),a1
	move.l	#mt_data+$c,d0
	moveq	#$1f,d1
	moveq	#$1e,d3
mt_lop4:move.l	d0,(a1)+
	add.l	d3,d0
	dbf	d1,mt_lop4

	lea	$3b8(a0),a1
	moveq	#$7f,d0
	moveq	#0,d1
	moveq	#0,d2
mt_lop2:move.b	(a1)+,d1
	cmp.b	d2,d1
	ble.s	mt_lop
	move.l	d1,d2
mt_lop:	dbf	d0,mt_lop2
	addq.w	#1,d2

	asl.l	#8,d2
	asl.l	#2,d2
	lea	4(a1,d2.l),a2
	lea	mt_samplestarts(pc),a1
	add.w	#$2a,a0
	moveq	#$1e,d0
mt_lop3:clr.l	(a2)
	move.l	a2,(a1)+
	moveq	#0,d1
	move.b	d1,2(a0)
	move.w	(a0),d1
	asl.l	#1,d1
	add.l	d1,a2
	add.l	d3,a0
	dbf	d0,mt_lop3

	move.l	$78.w,mt_oldirq-mt_samplestarts-$7c(a1)
	or.b	#2,$bfe001
	move.b	#6,mt_speed-mt_samplestarts-$7c(a1)
	moveq	#0,d0
	lea	$dff000,a0
	move.w	d0,$a8(a0)
	move.w	d0,$b8(a0)
	move.w	d0,$c8(a0)
	move.w	d0,$d8(a0)
	move.b	d0,mt_songpos-mt_samplestarts-$7c(a1)
	move.b	d0,mt_counter-mt_samplestarts-$7c(a1)
	move.w	d0,mt_pattpos-mt_samplestarts-$7c(a1)
	rts


MT_END:	moveq	#0,d0
	lea	$dff000,a0
	move.w	d0,$a8(a0)
	move.w	d0,$b8(a0)
	move.w	d0,$c8(a0)
	move.w	d0,$d8(a0)
	move.w	#$f,$dff096
	rts


MT_MUSIC:
	lea	mt_data,a0
	lea	mt_voice1(pc),a4
	addq.b	#1,mt_counter-mt_voice1(a4)
	move.b	mt_counter(pc),d0
	cmp.b	mt_speed(pc),d0
	blt	mt_nonew
	moveq	#0,d0
	move.b	d0,mt_counter-mt_voice1(a4)
	move.w	d0,mt_dmacon-mt_voice1(a4)
	lea	mt_data,a0
	lea	$3b8(a0),a2
	lea	$43c(a0),a0

	moveq	#0,d1
	move.b	mt_songpos(pc),d0
	move.b	(a2,d0.w),d1
	lsl.w	#8,d1
	lsl.w	#2,d1
	add.w	mt_pattpos(pc),d1

	lea	$dff0a0,a5
	lea	mt_samplestarts-4(pc),a1
	lea	mt_playvoice(pc),a6
	jsr	(a6)
	addq.l	#4,d1
	lea	$dff0b0,a5
	lea	mt_voice2(pc),a4
	jsr	(a6)
	addq.l	#4,d1
	lea	$dff0c0,a5
	lea	mt_voice3(pc),a4
	jsr	(a6)
	addq.l	#4,d1
	lea	$dff0d0,a5
	lea	mt_voice4(pc),a4
	jsr	(a6)

	move.w	mt_dmacon(pc),d0
	beq.s	mt_nodma

	lea	$bfd000,a3
	move.b	#$7f,$d00(a3)
	move.w	#$2000,$dff09c
	move.w	#$a000,$dff09a
	move.l	#mt_irq1,$78.w
	moveq	#0,d0
	move.b	d0,$e00(a3)
	move.b	#$a8,$400(a3)
	move.b	d0,$500(a3)
	or.w	#$8000,mt_dmacon-mt_voice4(a4)
	move.b	#$11,$e00(a3)
	move.b	#$81,$d00(a3)

mt_nodma:
	add.w	#$10,mt_pattpos-mt_voice4(a4)
	cmp.w	#$400,mt_pattpos-mt_voice4(a4)
	bne.s	mt_exit
mt_next:clr.w	mt_pattpos-mt_voice4(a4)
	clr.b	mt_break-mt_voice4(a4)
	addq.b	#1,mt_songpos-mt_voice4(a4)
	and.b	#$7f,mt_songpos-mt_voice4(a4)
	move.b	-2(a2),d0
	cmp.b	mt_songpos(pc),d0
	bne.s	mt_exit
	move.b	-1(a2),mt_songpos-mt_voice4(a4)
mt_exit:tst.b	mt_break-mt_voice4(a4)
	bne.s	mt_next
	rts

mt_nonew:
	lea	$dff0a0,a5
	lea	mt_com(pc),a6
	jsr	(a6)
	lea	mt_voice2(pc),a4
	lea	$dff0b0,a5
	jsr	(a6)
	lea	mt_voice3(pc),a4
	lea	$dff0c0,a5
	jsr	(a6)
	lea	mt_voice4(pc),a4
	lea	$dff0d0,a5
	jsr	(a6)
	tst.b	mt_break-mt_voice4(a4)
	bne.s	mt_next
	rts

mt_irq1:tst.b	$bfdd00
	move.w	mt_dmacon(pc),$dff096
	move.l	#mt_irq2,$78.w
	move.w	#$2000,$dff09c
	rte

mt_irq2:tst.b	$bfdd00
	movem.l	a3/a4,-(a7)
	lea	mt_voice1(pc),a4
	lea	$dff000,a3
	move.l	$a(a4),$a0(a3)
	move.w	$e(a4),$a4(a3)
	move.l	$a+$1c(a4),$b0(a3)
	move.w	$e+$1c(a4),$b4(a3)
	move.l	$a+$38(a4),$c0(a3)
	move.w	$e+$38(a4),$c4(a3)
	move.l	$a+$54(a4),$d0(a3)
	move.w	$e+$54(a4),$d4(a3)
	movem.l	(a7)+,a3/a4
	move.b	#0,$bfde00
	move.b	#$7f,$bfdd00
	move.l	mt_oldirq(pc),$78.w
	move.w	#$2000,$dff09c
	move.w	#$2000,$dff09a
	rte

mt_playvoice:
	move.l	(a0,d1.l),(a4)
	moveq	#0,d2
	move.b	2(a4),d2
	lsr.b	#4,d2
	move.b	(a4),d0
	and.b	#$f0,d0
	or.b	d0,d2
	beq	mt_oldinstr

	asl.w	#2,d2
	move.l	(a1,d2.l),4(a4)
	move.l	mt_mulu(pc,d2.w),a3
	move.w	(a3)+,8(a4)
	move.w	(a3)+,$12(a4)
	move.l	4(a4),d0
	moveq	#0,d3
	move.w	(a3)+,d3
	beq	mt_noloop
	asl.w	#1,d3
	add.l	d3,d0
	move.l	d0,$a(a4)
	move.w	-2(a3),d0
	add.w	(a3),d0
	move.w	d0,8(a4)
	bra	mt_hejaSverige

mt_mulu	ds.l	$20

mt_noloop:
	add.l	d3,d0
	move.l	d0,$a(a4)
mt_hejaSverige:
	move.w	(a3),$e(a4)
	move.w	$12(a4),8(a5)

mt_oldinstr:
	move.w	(a4),d3
	and.w	#$fff,d3
	beq	mt_com2
	tst.w	8(a4)
	beq.s	mt_stopsound
	move.b	2(a4),d0
	and.b	#$f,d0
	cmp.b	#5,d0
	beq.s	mt_setport
	cmp.b	#3,d0
	beq.s	mt_setport

	move.w	d3,$10(a4)
	move.w	$1a(a4),$dff096
	clr.b	$19(a4)

	move.l	4(a4),(a5)
	move.w	8(a4),4(a5)
	move.w	$10(a4),6(a5)

	move.w	$1a(a4),d0
	or.w	d0,mt_dmacon-mt_playvoice(a6)
	bra	mt_com2

mt_stopsound:
	move.w	$1a(a4),$dff096
	bra	mt_com2

mt_setport:
	move.w	(a4),d2
	and.w	#$fff,d2
	move.w	d2,$16(a4)
	move.w	$10(a4),d0
	clr.b	$14(a4)
	cmp.w	d0,d2
	beq.s	mt_clrport
	bge	mt_com2
	move.b	#1,$14(a4)
	bra	mt_com2
mt_clrport:
	clr.w	$16(a4)
	rts

mt_port:moveq	#0,d0
	move.b	3(a4),d2
	beq.s	mt_port2
	move.b	d2,$15(a4)
	move.b	d0,3(a4)
mt_port2:
	tst.w	$16(a4)
	beq.s	mt_rts
	move.b	$15(a4),d0
	tst.b	$14(a4)
	bne.s	mt_sub
	add.w	d0,$10(a4)
	move.w	$16(a4),d0
	cmp.w	$10(a4),d0
	bgt.s	mt_portok
	move.w	$16(a4),$10(a4)
	clr.w	$16(a4)
mt_portok:
	move.w	$10(a4),6(a5)
mt_rts:	rts

mt_sub:	sub.w	d0,$10(a4)
	move.w	$16(a4),d0
	cmp.w	$10(a4),d0
	blt.s	mt_portok
	move.w	$16(a4),$10(a4)
	clr.w	$16(a4)
	move.w	$10(a4),6(a5)
	rts

mt_sin:
	dc.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
	dc.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18

mt_vib:	move.b	$3(a4),d0
	beq.s	mt_vib2
	move.b	d0,$18(a4)

mt_vib2:move.b	$19(a4),d0
	lsr.w	#2,d0
	and.w	#$1f,d0
	moveq	#0,d2
	move.b	mt_sin(pc,d0.w),d2
	move.b	$18(a4),d0
	and.w	#$f,d0
	mulu	d0,d2
	lsr.w	#7,d2
	move.w	$10(a4),d0
	tst.b	$19(a4)
	bmi.s	mt_vibsub
	add.w	d2,d0
	bra.s	mt_vib3
mt_vibsub:
	sub.w	d2,d0
mt_vib3:move.w	d0,6(a5)
	move.b	$18(a4),d0
	lsr.w	#2,d0
	and.w	#$3c,d0
	add.b	d0,$19(a4)
	rts


mt_arplist:
	dc.b 0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1

mt_arp:	moveq	#0,d0
	move.b	mt_counter(pc),d0
	move.b	mt_arplist(pc,d0.w),d0
	beq.s	mt_normper
	cmp.b	#2,d0
	beq.s	mt_arp2
mt_arp1:move.b	3(a4),d0
	lsr.w	#4,d0
	bra.s	mt_arpdo
mt_arp2:move.b	3(a4),d0
	and.w	#$f,d0
mt_arpdo:
	asl.w	#1,d0
	move.w	$10(a4),d1
	lea	mt_periods(pc),a0
mt_arp3:cmp.w	(a0)+,d1
	blt.s	mt_arp3
	move.w	-2(a0,d0.w),6(a5)
	rts

mt_normper:
	move.w	$10(a4),6(a5)
	rts

mt_com:	move.w	2(a4),d0
	and.w	#$fff,d0
	beq.s	mt_normper
	move.b	2(a4),d0
	and.b	#$f,d0
	beq.s	mt_arp
	cmp.b	#6,d0
	beq.s	mt_volvib
	cmp.b	#4,d0
	beq	mt_vib
	cmp.b	#5,d0
	beq.s	mt_volport
	cmp.b	#3,d0
	beq	mt_port
	cmp.b	#1,d0
	beq.s	mt_portup
	cmp.b	#2,d0
	beq.s	mt_portdown
	move.w	$10(a4),6(a5)
	cmp.b	#$a,d0
	beq.s	mt_volslide
	rts

mt_portup:
	moveq	#0,d0
	move.b	3(a4),d0
	sub.w	d0,$10(a4)
	move.w	$10(a4),d0
	cmp.w	#$71,d0
	bpl.s	mt_portup2
	move.w	#$71,$10(a4)
mt_portup2:
	move.w	$10(a4),6(a5)
	rts

mt_portdown:
	moveq	#0,d0
	move.b	3(a4),d0
	add.w	d0,$10(a4)
	move.w	$10(a4),d0
	cmp.w	#$358,d0
	bmi.s	mt_portdown2
	move.w	#$358,$10(a4)
mt_portdown2:
	move.w	$10(a4),6(a5)
	rts

mt_volvib:
	 bsr	mt_vib2
	 bra.s	mt_volslide
mt_volport:
	 bsr	mt_port2

mt_volslide:
	moveq	#0,d0
	move.b	3(a4),d0
	lsr.b	#4,d0
	beq.s	mt_vol3
	add.b	d0,$13(a4)
	cmp.b	#$40,$13(a4)
	bmi.s	mt_vol2
	move.b	#$40,$13(a4)
mt_vol2:move.w	$12(a4),8(a5)
	rts

mt_vol3:move.b	3(a4),d0
	and.b	#$f,d0
	sub.b	d0,$13(a4)
	bpl.s	mt_vol4
	clr.b	$13(a4)
mt_vol4:move.w	$12(a4),8(a5)
	rts

mt_com2:move.b	2(a4),d0
	and.b	#$f,d0
	beq	mt_rts
	cmp.b	#$e,d0
	beq.s	mt_filter
	cmp.b	#$d,d0
	beq.s	mt_pattbreak
	cmp.b	#$b,d0
	beq.s	mt_songjmp
	cmp.b	#$c,d0
	beq.s	mt_setvol
	cmp.b	#$f,d0
	beq.s	mt_setspeed
	rts

mt_filter:
	move.b	3(a4),d0
	and.b	#1,d0
	asl.b	#1,d0
	and.b	#$fd,$bfe001
	or.b	d0,$bfe001
	rts

mt_pattbreak:
	move.b	#1,mt_break-mt_playvoice(a6)
	rts

mt_songjmp:
	move.b	#1,mt_break-mt_playvoice(a6)
	move.b	3(a4),d0
	subq.b	#1,d0
	move.b	d0,mt_songpos-mt_playvoice(a6)
	rts

mt_setvol:
	cmp.b	#$40,3(a4)
	bls.s	mt_sv2
	move.b	#$40,3(a4)
mt_sv2:	moveq	#0,d0
	move.b	3(a4),d0
	move.b	d0,$13(a4)
	move.w	d0,8(a5)
	rts

mt_setspeed:
	moveq	#0,d0
	move.b	3(a4),d0
	cmp.b	#$1f,d0
	bls.s	mt_sp2
	moveq	#$1f,d0
mt_sp2:	tst.w	d0
	bne.s	mt_sp3
	moveq	#1,d0
mt_sp3:	move.b	d0,mt_speed-mt_playvoice(a6)
	rts

mt_periods:
	dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
	dc.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
	dc.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
	dc.w $007f,$0078,$0071,$0000

mt_speed:	dc.b	6
mt_counter:	dc.b	0
mt_pattpos:	dc.w	0
mt_songpos:	dc.b	0
mt_break:	dc.b	0
mt_dmacon:	dc.w	0
mt_samplestarts	ds.l	$1f
mt_voice1:	ds.w	13
		dc.w	1
mt_voice2:	ds.w	13
		dc.w	2
mt_voice3:	ds.w	13
		dc.w	4
mt_voice4:	ds.w	13
		dc.w	8
mt_oldirq:	dc.l	0

ti:	dc.l	0
TIME:	DC.L	0

mt_data	INCBIN "st-00:modules/mod.tv-disco"



	SECTION IMAGE,DATA_C

ImageData1	dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00511,65535,65535,00000,00000,00000,00000
		dc.w	00000,00512,00000,00000,32768,00000,00000,00000
		dc.w	00000,01535,65535,65535,16384,00000,00000,00000
		dc.w	00000,02560,00000,00000,40960,00000,00000,00000
		dc.w	00000,05631,65535,65535,20480,00000,00000,00000
		dc.w	00000,11263,65535,65535,43008,00000,00000,00000
		dc.w	00000,22527,65535,65535,54272,00000,00000,00000
		dc.w	00000,45024,00000,00007,59904,00000,00000,00000
		dc.w	00000,45023,65535,65531,59904,00000,00000,00000
		dc.w	00000,44960,00000,00005,59904,00000,00000,00000
		dc.w	00000,44885,02644,12114,59904,00000,00000,00000
		dc.w	00000,44710,00000,00005,59904,00000,00000,00000
		dc.w	00000,44715,32767,65531,59904,00000,00000,00000
		dc.w	00000,44710,32768,00007,59904,00000,00000,00000
		dc.w	00000,44725,32767,65535,54272,00000,00000,00000
		dc.w	00000,44730,65535,65535,43008,00000,00000,00000
		dc.w	00000,44725,65535,65535,20480,00000,00000,00000
		dc.w	00000,44715,63488,00000,40960,00000,00000,00000
		dc.w	00000,44715,63487,65535,16384,00000,00000,00000
		dc.w	00000,44715,59392,00000,32768,00000,00000,00000
		dc.w	00000,44715,55295,65535,00000,00000,00000,00000
		dc.w	00000,44715,43008,00000,00000,00000,00000,00000
		dc.w	00000,44715,43008,00000,00000,00000,00000,00000
		dc.w	00000,44715,43008,00000,00000,00000,00000,00000
		dc.w	00000,44715,43008,00000,00000,00000,00000,00000
		dc.w	00000,44715,43008,00000,00000,00000,00000,00000
		dc.w	00000,44715,43008,00000,00000,00000,00000,00000
		dc.w	00000,44715,43008,00000,65535,61503,65535,00000
		dc.w	00000,44715,43008,00001,00000,02112,00000,32768
		dc.w	00000,44715,43008,00002,65535,62655,65535,16384
		dc.w	00000,44715,45055,32773,00000,02880,00000,40960
		dc.w	00000,44715,40960,16394,65535,62655,65535,20480
		dc.w	00000,44715,49151,40981,65535,64383,65535,43008
		dc.w	00000,44715,32768,20523,65535,64767,65535,54272
		dc.w	00000,44715,65535,43095,49152,16120,00007,54272
		dc.w	00000,44725,65535,54359,43943,40694,00027,54272
		dc.w	00000,44730,65535,59991,02003,52973,65517,54272
		dc.w	00000,44709,00003,62807,02048,07403,65527,54272
		dc.w	00000,44730,65533,62807,06143,64238,00029,54272
		dc.w	00000,44711,00002,62807,28671,63230,65503,54272
		dc.w	00000,44713,65533,30039,07168,02814,56159,54272
		dc.w	00000,44717,00002,62807,24063,62206,65503,54272
		dc.w	00000,44714,65533,62807,23808,02806,00027,54272
		dc.w	00000,44717,00003,62807,07551,64235,65525,54272
		dc.w	00000,44714,65535,59991,23872,02797,65519,54272
		dc.w	00000,44725,65535,54359,07488,02794,00021,54272
		dc.w	00000,44715,65535,43095,07488,02794,00021,54272
		dc.w	00000,44715,32768,20567,07488,02813,65517,54272
		dc.w	00000,44715,49151,41047,07488,02795,65525,54272
		dc.w	00000,44715,40960,16471,23872,02790,00027,54272
		dc.w	00000,44715,45055,32855,07488,02798,65501,54272
		dc.w	00000,44715,43008,00087,23872,02814,32863,54272
		dc.w	00000,44715,43008,00087,23872,02814,48989,54272
		dc.w	00000,44715,43008,00087,07488,02814,41311,54272
		dc.w	00000,44715,43008,00087,23872,02806,41307,54272
		dc.w	00000,44715,43008,00087,07488,02790,41305,54272
		dc.w	00000,44715,43008,00087,07488,02790,41307,54272
		dc.w	00000,44715,43008,00087,23872,02790,41305,54272
		dc.w	00000,44715,43008,00087,07488,02798,41309,54272
		dc.w	00000,44887,43008,00087,23872,02806,41309,54272
		dc.w	00000,44975,43008,00087,40256,02814,41309,54272
		dc.w	00000,45023,43008,00087,64832,02814,41311,54272
		dc.w	00000,22527,20480,00043,64128,01405,16559,43008
		dc.w	00000,11262,40960,00021,62720,00698,32855,20480
		dc.w	00000,05629,16384,00010,02560,00325,00040,40960
		dc.w	00000,02562,32768,00005,62464,00186,00023,16384
		dc.w	00000,01533,00000,00002,02048,00068,00008,32768
		dc.w	00000,00514,00000,00001,61440,00056,00007,00000
		dc.w	00000,00508,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,32512,00000,01020,00000,00000
		dc.w	00000,00000,00000,32896,00000,01026,00000,00000
		dc.w	00000,00000,00001,32576,00000,03069,00000,00000
		dc.w	00000,00000,00002,32928,00000,05122,32768,00000
		dc.w	00000,00000,00005,32592,00000,11261,16384,00000
		dc.w	00000,00000,00010,65448,00000,22525,16384,00000
		dc.w	00000,00000,00021,65492,00000,44941,16384,00000
		dc.w	00000,00000,00021,65492,00001,24413,16384,00000
		dc.w	00000,00000,00021,62420,00002,48826,32768,00000
		dc.w	00000,00000,00021,57812,00005,32117,00000,00000
		dc.w	00000,00000,00021,58836,00010,64234,00000,00000
		dc.w	00000,00000,00021,58836,00021,62932,00000,00000
		dc.w	00000,00000,00021,58836,00043,58280,00000,00000
		dc.w	00000,00000,00021,60884,00087,55120,00000,00000
		dc.w	00000,00000,00021,58836,00175,44704,00000,00000
		dc.w	00000,00000,00021,60884,00351,23872,00000,00000
		dc.w	00000,00000,00021,59860,00702,47744,00000,00000
		dc.w	00000,00000,00021,60884,01405,29952,00000,00000
		dc.w	00000,00000,00021,58836,02810,59904,00000,00000
		dc.w	00000,00000,00021,60884,05621,54272,00000,00000
		dc.w	00000,00000,00021,59860,11243,43008,00000,00000
		dc.w	00000,00000,00021,60884,22487,20480,00000,00000
		dc.w	00000,00000,00021,59860,44974,40960,00000,00000
		dc.w	00000,00000,00021,57813,24413,16384,00000,00000
		dc.w	00000,00000,00021,59862,48826,32768,00000,00000
		dc.w	00000,00000,00021,57813,32117,00000,00000,00000
		dc.w	00000,00000,00021,59858,64234,00000,00000,00000
		dc.w	00255,65535,65493,57813,62933,65535,65535,32768
		dc.w	00256,00000,00053,58843,60330,00000,00000,16384
		dc.w	00767,65535,65493,57815,55125,65535,65535,40960
		dc.w	01280,00000,00037,58831,44714,00000,00000,20480
		dc.w	02581,59925,24213,57823,23893,49215,41278,43008
		dc.w	05291,21546,46413,58878,55977,21165,21181,21504
		dc.w	10623,41047,59413,57853,46423,41087,41086,02560
		dc.w	10941,21167,20645,58106,46421,21165,21181,18944
		dc.w	10750,00383,32885,59751,47830,33150,33150,35328
		dc.w	05460,43701,19117,57624,48489,17085,17085,05120
		dc.w	02720,06136,02005,60087,23892,00506,00506,10240
		dc.w	01280,00000,00037,58223,44714,00000,00000,20480
		dc.w	00767,65535,65493,60063,53077,65535,65535,40960
		dc.w	00256,00000,00053,57721,55122,00000,00000,16384
		dc.w	00255,65535,65493,60149,60329,65535,65535,32768
		dc.w	00000,00000,00021,58858,62420,00000,00000,00000
		dc.w	00000,00000,00021,60885,30164,00000,00000,00000
		dc.w	00000,00000,00021,59862,47850,00000,00000,00000
		dc.w	00000,00000,00021,60886,48373,00000,00000,00000
		dc.w	00000,00000,00021,59861,23925,00000,00000,00000
		dc.w	00000,00000,00021,57812,44730,32768,00000,00000
		dc.w	00000,00000,00021,59860,44829,16384,00000,00000
		dc.w	00000,00000,00021,59860,22334,40960,00000,00000
		dc.w	00000,00000,00021,59860,11166,40960,00000,00000
		dc.w	00000,00000,00021,57812,05583,20480,00000,00000
		dc.w	00000,00000,00021,60884,05607,43008,00000,00000
		dc.w	00000,00000,00021,61908,02795,43008,00000,00000
		dc.w	00000,00000,00021,58836,01397,54272,00000,00000
		dc.w	00000,00000,00021,57812,00699,59904,00000,00000
		dc.w	00000,00000,00021,58836,00699,59904,00000,00000
		dc.w	00000,00000,00021,57812,00349,29952,00000,00000
		dc.w	00000,00000,00021,58836,00174,64128,00000,00000
		dc.w	00000,00000,00021,60884,00174,31360,00000,00000
		dc.w	00000,00000,00021,62420,00087,32064,00000,00000
		dc.w	00000,00000,00021,65492,00043,48448,00000,00000
		dc.w	00000,00000,00021,65492,00021,48448,00000,00000
		dc.w	00000,00000,00010,65448,00021,64832,00000,00000
		dc.w	00000,00000,00005,32592,00010,64128,00000,00000
		dc.w	00000,00000,00002,32928,00005,01280,00000,00000
		dc.w	00000,00000,00001,32576,00002,64000,00000,00000
		dc.w	00000,00000,00000,32896,00001,01024,00000,00000
		dc.w	00000,00000,00000,32512,00000,63488,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00511,65535,65535,00000,00000,00000,00000
		dc.w	00000,00512,00000,00000,32768,00000,00000,00000
		dc.w	00000,01024,00000,00000,16384,00000,00000,00000
		dc.w	00000,02559,65535,65535,08192,00000,00000,00000
		dc.w	00000,05119,65535,65535,36864,00000,00000,00000
		dc.w	00000,10239,65535,65535,51200,00000,00000,00000
		dc.w	00000,20479,65535,65535,58368,00000,00000,00000
		dc.w	00000,40959,65535,65535,61952,00000,00000,00000
		dc.w	00000,40928,00000,00007,61952,00000,00000,00000
		dc.w	00000,40896,00000,00003,61952,00000,00000,00000
		dc.w	00000,40842,65364,00169,61952,00000,00000,00000
		dc.w	00000,40753,32768,00003,61952,00000,00000,00000
		dc.w	00000,40761,00000,00007,61952,00000,00000,00000
		dc.w	00000,40758,32767,65535,61952,00000,00000,00000
		dc.w	00000,40748,65535,65535,58368,00000,00000,00000
		dc.w	00000,40745,65535,65535,51200,00000,00000,00000
		dc.w	00000,40755,65535,65535,36864,00000,00000,00000
		dc.w	00000,40743,65535,65535,08192,00000,00000,00000
		dc.w	00000,40743,63488,00000,16384,00000,00000,00000
		dc.w	00000,40743,61440,00000,32768,00000,00000,00000
		dc.w	00000,40743,59391,65535,00000,00000,00000,00000
		dc.w	00000,40743,51200,00000,00000,00000,00000,00000
		dc.w	00000,40743,51200,00000,00000,00000,00000,00000
		dc.w	00000,40743,51200,00000,00000,00000,00000,00000
		dc.w	00000,40743,51200,00000,00000,00000,00000,00000
		dc.w	00000,40743,51200,00000,00000,00000,00000,00000
		dc.w	00000,40743,51200,00000,00000,00000,00000,00000
		dc.w	00000,40743,51200,00000,65535,61503,65535,00000
		dc.w	00000,40743,51200,00001,00000,02112,00000,32768
		dc.w	00000,40743,51200,00002,00000,01152,00000,16384
		dc.w	00000,40743,53247,32772,65535,62271,65535,08192
		dc.w	00000,40743,49152,16393,65535,63615,65535,36864
		dc.w	00000,40743,49152,08211,65535,64767,65535,51200
		dc.w	00000,40743,65535,36903,65535,65535,65535,58368
		dc.w	00000,40743,65535,51279,65535,65535,65535,58368
		dc.w	00000,40755,65535,58447,55200,32761,65511,58368
		dc.w	00000,40745,65535,62031,50128,16371,65523,58368
		dc.w	00000,40740,65535,63823,51199,65527,65529,58368
		dc.w	00000,40746,00003,63823,53247,65015,65531,58368
		dc.w	00000,40743,00001,63823,40959,63975,00057,58368
		dc.w	00000,40754,65532,63823,65535,61927,15033,58368
		dc.w	00000,40757,00001,63823,48640,00487,00057,58368
		dc.w	00000,40754,00003,63823,48640,02535,65529,58368
		dc.w	00000,40756,65535,63823,48767,63975,65529,58368
		dc.w	00000,40761,65535,62031,48704,02531,65521,58368
		dc.w	00000,40755,65535,58447,48704,02529,65505,58368
		dc.w	00000,40743,65535,51279,48704,02529,65505,58368
		dc.w	00000,40743,65535,36943,48704,02547,65521,58368
		dc.w	00000,40743,49152,08271,48704,02535,65529,58368
		dc.w	00000,40743,49152,16463,65088,02535,65531,58368
		dc.w	00000,40743,53247,32847,48704,02543,00061,58368
		dc.w	00000,40743,51200,00079,65088,02559,00063,58368
		dc.w	00000,40743,51200,00079,65088,02559,16189,58368
		dc.w	00000,40743,51200,00079,65088,02559,08511,58368
		dc.w	00000,40743,51200,00079,65088,02559,08511,58368
		dc.w	00000,40743,51200,00079,65088,02559,08511,58368
		dc.w	00000,40743,51200,00079,65088,02559,08511,58368
		dc.w	00000,40743,51200,00079,48704,02559,08511,58368
		dc.w	00000,40743,51200,00079,65088,02551,08507,58368
		dc.w	00000,40847,51200,00079,48704,02543,08507,58368
		dc.w	00000,40927,51200,00079,65088,02535,08507,58368
		dc.w	00000,40959,51200,00079,65088,02535,08505,58368
		dc.w	00000,20479,36864,00039,64640,01278,16543,51200
		dc.w	00000,10239,08192,00019,63744,00636,32847,36864
		dc.w	00000,05118,16384,00009,61952,00313,00039,08192
		dc.w	00000,02556,32768,00004,01024,00130,00016,16384
		dc.w	00000,01025,00000,00002,02048,00068,00008,32768
		dc.w	00000,00514,00000,00001,61440,00056,00007,00000
		dc.w	00000,00508,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,32512,00000,01020,00000,00000
		dc.w	00000,00000,00000,32896,00000,01026,00000,00000
		dc.w	00000,00000,00001,00064,00000,02049,00000,00000
		dc.w	00000,00000,00002,32544,00000,05116,32768,00000
		dc.w	00000,00000,00004,65424,00000,10238,16384,00000
		dc.w	00000,00000,00009,65480,00000,20478,16384,00000
		dc.w	00000,00000,00019,65508,00000,40958,16384,00000
		dc.w	00000,00000,00019,65508,00001,16318,16384,00000
		dc.w	00000,00000,00019,65508,00002,32636,32768,00000
		dc.w	00000,00000,00019,65508,00004,65273,00000,00000
		dc.w	00000,00000,00019,64484,00009,65010,00000,00000
		dc.w	00000,00000,00019,64484,00019,64484,00000,00000
		dc.w	00000,00000,00019,64484,00039,63432,00000,00000
		dc.w	00000,00000,00019,62436,00079,61328,00000,00000
		dc.w	00000,00000,00019,64484,00159,57120,00000,00000
		dc.w	00000,00000,00019,62436,00319,48704,00000,00000
		dc.w	00000,00000,00019,62436,00639,31872,00000,00000
		dc.w	00000,00000,00019,62436,01278,63744,00000,00000
		dc.w	00000,00000,00019,64484,02557,61952,00000,00000
		dc.w	00000,00000,00019,62436,05115,58368,00000,00000
		dc.w	00000,00000,00019,62436,10231,51200,00000,00000
		dc.w	00000,00000,00019,62436,20463,36864,00000,00000
		dc.w	00000,00000,00019,62436,40927,08192,00000,00000
		dc.w	00000,00000,00019,62437,16318,16384,00000,00000
		dc.w	00000,00000,00019,62438,32636,32768,00000,00000
		dc.w	00000,00000,00019,62436,65273,00000,00000,00000
		dc.w	00000,00000,00019,62433,65010,00000,00000,00000
		dc.w	00255,65535,65491,62435,64485,65535,65535,32768
		dc.w	00256,00000,00051,63463,63434,00000,00000,16384
		dc.w	00512,00000,00019,62447,61332,00000,00000,08192
		dc.w	01279,65535,65475,63487,57129,65535,65535,36864
		dc.w	02538,00021,24547,62463,48722,16383,40961,18432
		dc.w	04948,00042,49139,63487,15526,45053,20482,41984
		dc.w	09856,00087,65515,62462,31048,24575,40961,61952
		dc.w	09536,00687,65371,61948,31050,45053,20482,45568
		dc.w	09728,00383,65419,63736,31945,32766,32769,29184
		dc.w	04608,43711,62803,61607,32358,49149,16386,58368
		dc.w	02304,06143,63523,64079,48723,65530,00005,51200
		dc.w	01279,65535,65475,62239,57129,65535,65535,36864
		dc.w	00512,00000,00019,64127,65428,00000,00000,08192
		dc.w	00256,00000,00051,61695,61330,00000,00000,16384
		dc.w	00255,65535,65491,63995,63433,65535,65535,32768
		dc.w	00000,00000,00019,63473,65508,00000,00000,00000
		dc.w	00000,00000,00019,65508,64484,00000,00000,00000
		dc.w	00000,00000,00019,65510,32242,00000,00000,00000
		dc.w	00000,00000,00019,65510,32761,00000,00000,00000
		dc.w	00000,00000,00019,65509,16121,00000,00000,00000
		dc.w	00000,00000,00019,65508,40828,32768,00000,00000
		dc.w	00000,00000,00019,65508,40958,16384,00000,00000
		dc.w	00000,00000,00019,65508,20479,08192,00000,00000
		dc.w	00000,00000,00019,65508,10207,08192,00000,00000
		dc.w	00000,00000,00019,65508,05103,36864,00000,00000
		dc.w	00000,00000,00019,64484,05111,51200,00000,00000
		dc.w	00000,00000,00019,65508,02555,51200,00000,00000
		dc.w	00000,00000,00019,64484,01277,58368,00000,00000
		dc.w	00000,00000,00019,65508,00639,61952,00000,00000
		dc.w	00000,00000,00019,64484,00637,61952,00000,00000
		dc.w	00000,00000,00019,65508,00318,63744,00000,00000
		dc.w	00000,00000,00019,64484,00159,31872,00000,00000
		dc.w	00000,00000,00019,62436,00159,48256,00000,00000
		dc.w	00000,00000,00019,65508,00079,40512,00000,00000
		dc.w	00000,00000,00019,65508,00039,56896,00000,00000
		dc.w	00000,00000,00019,65508,00019,52800,00000,00000
		dc.w	00000,00000,00009,65480,00019,65088,00000,00000
		dc.w	00000,00000,00004,65424,00009,64640,00000,00000
		dc.w	00000,00000,00002,32544,00004,63744,00000,00000
		dc.w	00000,00000,00001,00064,00002,00512,00000,00000
		dc.w	00000,00000,00000,32896,00001,01024,00000,00000
		dc.w	00000,00000,00000,32512,00000,63488,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00511,65535,65535,00000,00000,00000,00000
		dc.w	00000,01023,65535,65535,32768,00000,00000,00000
		dc.w	00000,02047,65535,65535,49152,00000,00000,00000
		dc.w	00000,04095,65535,65535,57344,00000,00000,00000
		dc.w	00000,08191,65535,65535,61440,00000,00000,00000
		dc.w	00000,16383,65535,65535,63488,00000,00000,00000
		dc.w	00000,32767,65535,65535,64512,00000,00000,00000
		dc.w	00000,32767,65535,65535,64512,00000,00000,00000
		dc.w	00000,32767,65535,65535,64512,00000,00000,00000
		dc.w	00000,32736,00171,65535,64512,00000,00000,00000
		dc.w	00000,32715,32767,65535,64512,00000,00000,00000
		dc.w	00000,32710,65535,65535,64512,00000,00000,00000
		dc.w	00000,32713,65535,65535,64512,00000,00000,00000
		dc.w	00000,32707,65535,65535,63488,00000,00000,00000
		dc.w	00000,32711,65535,65535,61440,00000,00000,00000
		dc.w	00000,32719,65535,65535,57344,00000,00000,00000
		dc.w	00000,32735,65535,65535,49152,00000,00000,00000
		dc.w	00000,32735,65535,65535,32768,00000,00000,00000
		dc.w	00000,32735,65535,65535,00000,00000,00000,00000
		dc.w	00000,32735,63488,00000,00000,00000,00000,00000
		dc.w	00000,32735,61440,00000,00000,00000,00000,00000
		dc.w	00000,32735,61440,00000,00000,00000,00000,00000
		dc.w	00000,32735,61440,00000,00000,00000,00000,00000
		dc.w	00000,32735,61440,00000,00000,00000,00000,00000
		dc.w	00000,32735,61440,00000,00000,00000,00000,00000
		dc.w	00000,32735,61440,00000,00000,00000,00000,00000
		dc.w	00000,32735,61440,00000,00000,00000,00000,00000
		dc.w	00000,32735,61440,00000,65535,61503,65535,00000
		dc.w	00000,32735,61440,00001,65535,63615,65535,32768
		dc.w	00000,32735,61440,00003,65535,64767,65535,49152
		dc.w	00000,32735,65535,32775,65535,65535,65535,57344
		dc.w	00000,32735,65535,49167,65535,65535,65535,61440
		dc.w	00000,32735,65535,57375,65535,65535,65535,63488
		dc.w	00000,32735,65535,61503,65535,65535,65535,63488
		dc.w	00000,32719,65535,63551,49247,65535,65535,63488
		dc.w	00000,32727,65535,64575,63535,65535,65535,63488
		dc.w	00000,32731,65535,65087,65535,65535,65535,63488
		dc.w	00000,32725,65535,65087,65535,65535,65535,63488
		dc.w	00000,32728,65535,65087,65535,65535,65535,63488
		dc.w	00000,32732,00003,65087,65535,65535,34303,63488
		dc.w	00000,32730,65535,65087,65535,65535,65535,63488
		dc.w	00000,32733,65535,65087,65535,63487,65535,63488
		dc.w	00000,32731,65535,65087,65408,02047,65535,63488
		dc.w	00000,32727,65535,64575,65408,02047,65535,63488
		dc.w	00000,32719,65535,63551,65408,02047,65535,63488
		dc.w	00000,32735,65535,61503,65408,02047,65535,63488
		dc.w	00000,32735,65535,57407,65408,02031,65535,63488
		dc.w	00000,32735,65535,49215,65408,02047,65535,63488
		dc.w	00000,32735,65535,32831,49024,02047,65533,63488
		dc.w	00000,32735,61440,00063,65408,02039,65531,63488
		dc.w	00000,32735,61440,00063,49024,02023,65529,63488
		dc.w	00000,32735,61440,00063,49024,02023,49403,63488
		dc.w	00000,32735,61440,00063,49024,02023,49401,63488
		dc.w	00000,32735,61440,00063,49024,02023,49401,63488
		dc.w	00000,32735,61440,00063,49024,02023,49401,63488
		dc.w	00000,32735,61440,00063,49024,02023,49401,63488
		dc.w	00000,32735,61440,00063,49024,02023,49401,63488
		dc.w	00000,32735,61440,00063,49024,02023,49401,63488
		dc.w	00000,32767,61440,00063,49024,02023,49401,63488
		dc.w	00000,32767,61440,00063,65408,02023,49401,63488
		dc.w	00000,32767,61440,00063,65408,02023,49401,63488
		dc.w	00000,16383,57344,00031,65280,01023,32895,61440
		dc.w	00000,08191,49152,00015,65024,00511,00063,57344
		dc.w	00000,04095,32768,00007,64512,00254,00031,49152
		dc.w	00000,02047,00000,00003,63488,00124,00015,32768
		dc.w	00000,01022,00000,00001,61440,00056,00007,00000
		dc.w	00000,00508,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,32512,00000,01020,00000,00000
		dc.w	00000,00000,00000,65408,00000,02046,00000,00000
		dc.w	00000,00000,00001,65472,00000,04095,00000,00000
		dc.w	00000,00000,00003,65504,00000,08191,32768,00000
		dc.w	00000,00000,00007,65520,00000,16383,32768,00000
		dc.w	00000,00000,00015,65528,00000,32767,32768,00000
		dc.w	00000,00000,00015,65528,00000,65535,32768,00000
		dc.w	00000,00000,00015,65528,00001,65535,00000,00000
		dc.w	00000,00000,00015,65528,00003,65534,00000,00000
		dc.w	00000,00000,00015,65528,00007,65532,00000,00000
		dc.w	00000,00000,00015,65528,00015,65528,00000,00000
		dc.w	00000,00000,00015,65528,00031,65520,00000,00000
		dc.w	00000,00000,00015,65528,00063,65504,00000,00000
		dc.w	00000,00000,00015,65528,00127,65472,00000,00000
		dc.w	00000,00000,00015,65528,00255,65408,00000,00000
		dc.w	00000,00000,00015,65528,00511,65280,00000,00000
		dc.w	00000,00000,00015,65528,01023,65024,00000,00000
		dc.w	00000,00000,00015,65528,02047,64512,00000,00000
		dc.w	00000,00000,00015,65528,04095,63488,00000,00000
		dc.w	00000,00000,00015,65528,08191,61440,00000,00000
		dc.w	00000,00000,00015,65528,16383,57344,00000,00000
		dc.w	00000,00000,00015,65528,32767,49152,00000,00000
		dc.w	00000,00000,00015,65528,65535,32768,00000,00000
		dc.w	00000,00000,00015,65529,65535,00000,00000,00000
		dc.w	00000,00000,00015,65531,65534,00000,00000,00000
		dc.w	00000,00000,00015,65535,65532,00000,00000,00000
		dc.w	00000,00000,00015,65535,65528,00000,00000,00000
		dc.w	00255,65535,65487,64511,65521,65535,65535,32768
		dc.w	00511,65535,65519,65535,65507,65535,65535,49152
		dc.w	01023,65535,65535,64511,65479,65535,65535,57344
		dc.w	02047,65514,41023,65535,65422,00000,24575,61440
		dc.w	04095,65493,16415,64511,65308,00002,45055,63488
		dc.w	08191,65448,00015,65535,65080,00000,24575,64512
		dc.w	08191,64848,00015,65535,65080,00002,45055,64512
		dc.w	08191,65152,00015,63487,65336,00001,32767,64512
		dc.w	04095,21824,00031,65535,65436,00002,49151,63488
		dc.w	02047,59392,00063,62975,65422,00005,65535,61440
		dc.w	01023,65535,65535,64767,65479,65535,65535,57344
		dc.w	00511,65535,65519,62975,65507,65535,65535,49152
		dc.w	00255,65535,65487,65535,65505,65535,65535,32768
		dc.w	00000,00000,00015,63487,65520,00000,00000,00000
		dc.w	00000,00000,00015,64511,65528,00000,00000,00000
		dc.w	00000,00000,00015,62459,65528,00000,00000,00000
		dc.w	00000,00000,00015,62457,65532,00000,00000,00000
		dc.w	00000,00000,00015,62457,65534,00000,00000,00000
		dc.w	00000,00000,00015,62456,65534,00000,00000,00000
		dc.w	00000,00000,00015,62456,32767,00000,00000,00000
		dc.w	00000,00000,00015,62456,32735,32768,00000,00000
		dc.w	00000,00000,00015,62456,16351,49152,00000,00000
		dc.w	00000,00000,00015,62456,08175,49152,00000,00000
		dc.w	00000,00000,00015,62456,04087,57344,00000,00000
		dc.w	00000,00000,00015,62456,04095,61440,00000,00000
		dc.w	00000,00000,00015,60408,02039,61440,00000,00000
		dc.w	00000,00000,00015,62456,01019,63488,00000,00000
		dc.w	00000,00000,00015,62456,00509,64512,00000,00000
		dc.w	00000,00000,00015,62456,00508,64512,00000,00000
		dc.w	00000,00000,00015,62456,00254,32256,00000,00000
		dc.w	00000,00000,00015,62456,00127,32512,00000,00000
		dc.w	00000,00000,00015,62456,00127,16128,00000,00000
		dc.w	00000,00000,00015,65528,00063,40832,00000,00000
		dc.w	00000,00000,00015,65528,00031,57216,00000,00000
		dc.w	00000,00000,00015,65528,00015,53120,00000,00000
		dc.w	00000,00000,00007,65520,00015,65408,00000,00000
		dc.w	00000,00000,00003,65504,00007,65280,00000,00000
		dc.w	00000,00000,00001,65472,00003,65024,00000,00000
		dc.w	00000,00000,00000,65408,00001,64512,00000,00000
		dc.w	00000,00000,00000,32512,00000,63488,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000
		dc.w	00000,00000,00000,00000,00000,00000,00000,00000