/*
			V0x RECORD & PLAY

			Hiroshi TODA
			1993 9/1	for GUI

*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <winb.h>
#include <te.h>
#include <fntb.h>
#include <gui.h>
#include <file_dlg.h>
#include <egb.h>
#include <mos.h>
#include <snd.h>
#include <math.h>
#include "video.h"
#include "ugoku.h"
#include "vdsysx.h"

#define RED_DIVI 12		/* 赤分割数 */
#define GRE_DIVI 8		/* 緑分割数 */
#define BLU_DIVI 6		/* 青分割数 */
#define YEL_DIVI 7		/* 黄分割数 */

#define RED_MIN .5		/* 赤最小分割数幅係数 */
#define GRE_MIN .5		/* 緑最小分割数幅係数 */
#define BLU_MIN .5		/* 青最小分割数幅係数 */
#define YEL_MIN .5		/* 黄最小分割数幅係数 */

#define RED_RATE 0		/* RATE計算赤指定 */
#define GRE_RATE 1		/* RATE計算緑指定 */
#define BLU_RATE 2		/* RATE計算青指定 */
#define YEL_RATE 3		/* RATE計算黄指定 */

/* VDXSUB.Cの関数 */
extern v_cmp_frame_dsp( int ) ;
extern file_kakuchousi_set( char *, char *, char * ) ;
/* ugoku.libの関数 */
extern vd_02_init( int, int, int ) ;
extern vd_01_2( char * ) ;
extern vd_02_c( char * ) ;

extern char *guiEgbPtr;			/* EGB work */

/* 色の濃さレート */
double gre_rate[256];
double gre_aa[256];
double gre_bb[256];

double red_rate[256];
double red_aa[256];
double red_bb[256];

double yel_rate[256];
double yel_aa[256];
double yel_bb[256];

double blu_rate[256];
double blu_aa[256];
double blu_bb[256];

/* 絵の大きさを可変出来る様にするため横と縦の大きさをグローバル変数に */
int v02xd = 128, v02yd = 96;


/* もしvdsys.tabが見つからなかった場合のためのテーブルを作成 */

direct_v02_table( int k, char *table )
{
	char *v02table1, *v02table2, *brgtoyc, *yytoy ;

	v02table1 = table ;
	v02table2 = v02table1 + 32768 ;
	brgtoyc   = v02table2 + 512   ;
	yytoy     = brgtoyc   + 65536 ;

	v00_to_v02_conv_brg_set_buffer( v02table1, k ) ;

	v00_to_v02_conv_ytable_set( v02table2, yytoy ) ;

	v00_to_v02_conv_yc_set_buffer( brgtoyc, v02table1, k ) ;

	return 0;
}

/***** 直接係数を計算しながら算出する 1993 12 *****/

/* 輝度*256+色相 → b+r*32+g*1024 */

yc_to_brg_no4( rt, n )
double rt ;
int n ;
{
	extern double v00_to_v02_conv_rate4( int, double, double ) ;
	extern double v00_to_v02_conv_crdivi_add( double ) ;
	extern double v00_to_v02_conv_cbdivi_add( double ) ;

	int b0, r0, g0 ;
	double yy, cr, cb, y, rate, cbadd, cradd ;

		 /* 中間点の値を取る */
	y = ( (n >> 8) & 0x3f ) + .5 ;
	cradd = v00_to_v02_conv_crdivi_add( y ) ;
	cbadd = v00_to_v02_conv_cbdivi_add( y ) ;

	cr = ( ( n & 0xff ) % (RED_DIVI + GRE_DIVI) - (GRE_DIVI - cradd) ) + .5 ;
	cb = ( ( n & 0xff ) / (RED_DIVI + GRE_DIVI) - (YEL_DIVI - cbadd) ) + .5 ;

	yy  = y * 31 / 64 ;

		/* yy(Y), cr(Cr), cb(Cb) */

	if( cr >= 0 )
	{
		rate = v00_to_v02_conv_rate4( RED_RATE, rt, y ) ;
	    cr = cr * rate ;
	    cr = cr * 16 / (RED_DIVI + cradd) ;
	}
	else
	{
		rate = v00_to_v02_conv_rate4( GRE_RATE, rt, y ) ;
	    cr = cr * rate ;
	    cr = cr * 16 / (GRE_DIVI - cradd) ;
	}
	if( cb >= 0 )
	{
		rate = v00_to_v02_conv_rate4( BLU_RATE, rt, y ) ;
	    cb = cb * rate ;
	    cb = cb * 16 / (BLU_DIVI + cbadd) ;
	}
	else
	{
		rate = v00_to_v02_conv_rate4( YEL_RATE, rt, y ) ;
	    cb = cb * rate ;
	    cb = cb * 16 / (YEL_DIVI - cbadd) ;
	}

	g0 = yy -  .7144070603*cr    -  .3443692095*cb     + .5 ;
	r0 = yy + 1.402581175*cr     +  .00005973490918*cb + .5 ;
	b0 = yy -  .0001300611143*cr + 1.773042678*cb      + .5 ;

	if( g0 < 0 )g0 = 0;
	if( g0 > 31 )g0 = 31;
	if( r0 < 0 )r0 = 0;
	if( r0 > 31 )r0 = 31;
	if( b0 < 0 )b0 = 0;
	if( b0 > 31 )b0 = 31;
	return  b0 + r0*32 + g0*1024;
}

/* b+r*32+g*1024 → 輝度*256+色相 */

brg_to_yc_no4( rt, n )
double rt ;
int n ;
{
	extern double v00_to_v02_conv_rate4( int, double, double ) ;
	extern double v00_to_v02_conv_cbdivi_add( double ) ;
	extern double v00_to_v02_conv_crdivi_add( double ) ;

	int b, r, g ;
	int cr, cb, yy ;
	double yyd, crd, cbd, y, rate, cbadd, cradd ;

	b = ( n & 0x1f );
	r = ( (n >> 5) & 0x1f );
	g = ( (n >> 10) & 0x1f );

	yyd =   .5870*g + .2990*r + .1140*b ;
	crd = - .4185*g + .4998*r - .0813*b ;
	cbd = - .3311*g - .1686*r + .4997*b ;

	yy = yyd * 64 / 31 ;
	y = yyd * 64 / 31 ;

	cradd = v00_to_v02_conv_crdivi_add( y ) ;

	if( crd >= 0 )
	{
		rate = v00_to_v02_conv_rate4( RED_RATE, rt, y ) ;
	    crd = crd * (RED_DIVI + cradd) / 16 ;
	    cr = crd/rate + GRE_DIVI - cradd ;
	}
	else
	{
		rate = v00_to_v02_conv_rate4( GRE_RATE, rt, y ) ;
	    crd = crd * (GRE_DIVI - cradd) / 16 ;
	    cr = crd/rate + GRE_DIVI - cradd ;
	}

	cbadd = v00_to_v02_conv_cbdivi_add( y ) ;

	if( cbd >= 0 )
	{
		rate = v00_to_v02_conv_rate4( BLU_RATE, rt, y ) ;
	    cbd = cbd * (BLU_DIVI + cbadd) / 16 ;
	    cb = cbd/rate + YEL_DIVI - cbadd ;
	}
	else
	{
		rate = v00_to_v02_conv_rate4( YEL_RATE, rt, y ) ;
	    cbd = cbd * (YEL_DIVI - cbadd) / 16 ;
	    cb = cbd/rate + YEL_DIVI - cbadd ;
	}

	if( cr < 0 )cr = 0;
	if( cr > (RED_DIVI + GRE_DIVI - 1) )cr = RED_DIVI + GRE_DIVI - 1 ;
	if( cb < 0 )cb = 0;
	if( cb > (YEL_DIVI + BLU_DIVI - 1) )cb = YEL_DIVI + BLU_DIVI - 1 ;
	if( cr + cb*(RED_DIVI + GRE_DIVI) > 255 )cb-- ;

	if( yy < 0 )yy = 0;
	if( yy > 63 )yy = 63;

	return  cr + cb*(RED_DIVI + GRE_DIVI) + ( yy << 8 );
}

/* 係数計算ルーチン */

double v00_to_v02_conv_rate4( num, rt, y )
int num ;
double rt, y ;
{
	double y1, y2, rate ;

	if( num == RED_RATE )
	{
		y1 = 64 * .299 * rt ;
		y2 = 64 * ( 1 - rt * (1 - .299) ) ;
		rate = rt ;
	}
	if( num == GRE_RATE )
	{
		y1 = 64 * .587 * rt ;
		y2 = 64 * ( 1 - rt * (1 - .587) ) ;
		rate = rt ;
	}
	if( num == BLU_RATE )
	{
		y1 = 64 * .114 * rt ;
		y2 = 64 * ( 1 - rt * (1 - .114) ) ;
		rate = rt ;
	}
	if( num == YEL_RATE )
	{
		y1 = 64 * .886 * rt ;
		y2 = 64 * ( 1 - rt * (1 - .886) ) ;
		rate = rt ;
	}

	if( y < y1 )
		rate = rt*(y+y1/8)/(y1+y1/8) ;
	if( y > y2 )
		rate = rt*((64-y)+(64-y2)/8)/((64-y2)+(64-y2)/8) ;

	return rate ;
}

double v00_to_v02_conv_cbdivi_add( y )
double y ;
{
	double y1, y2, y3, y4, add, blu, mid, yel ;

	blu = 2 ;
	mid = 0 ;
	yel = -2 ;

	y1 = 64 * .114 / 2 ;
	y2 = 64 * .114 ;
	y3 = 64 * .886 ;
	y4 = ( 64 * .886 + 64 ) / 2 ;

	if( y <= y1 )
	{
		add = blu ;
	}
	if( y > y1 && y < y2 )
	{
		add = ( blu*(y2-y) + mid*(y-y1) ) /( y2 - y1 ) ;
	}
	if( y >= y2 && y <= y3 )
	{
		add = mid ;
	}
	if( y > y3 && y < y4 )
	{
		add = ( mid*(y4-y) + yel*(y-y3) ) /( y4 - y3 ) ;
	}
	if( y >= y4 )
	{
		add = yel ;
	}

	return add ;
}

double v00_to_v02_conv_crdivi_add( y )
double y ;
{
	double y1, y2, y3, y4, add, red, mid, gre ;

	red = 2 ;
	mid = 0 ;
	gre = -2 ;

	y1 = 64 * .299 / 2 ;
	y2 = 64 * .299 ;
	y3 = 64 * .587 ;
	y4 = ( 64 * .587 + 64 ) / 2 ;

	if( y <= y1 )
	{
		add = red ;
	}
	if( y > y1 && y < y2 )
	{
		add = ( red*(y2-y) + mid*(y-y1) ) /( y2 - y1 ) ;
	}
	if( y >= y2 && y <= y3 )
	{
		add = mid ;
	}
	if( y > y3 && y < y4 )
	{
		add = ( mid*(y4-y) + gre*(y-y3) ) /( y4 - y3 ) ;
	}
	if( y >= y4 )
	{
		add = gre ;
	}

	return add ;
}




v00_to_v02_conv_yc_set_buffer( buffer, brg_buf, rate )
char *buffer, *brg_buf;
int rate;
{
	int i, temp;
	int p[] = {
		    16384*0+0,   16384*0+64,  16384*0+128, 16384*0+192,
		    16384*0+256, 16384*0+320, 16384*0+384, 16384*0+448,
		    16384*1+0,   16384*1+64,  16384*1+128, 16384*1+192,
		    16384*1+256, 16384*1+320, 16384*1+384, 16384*1+448,
		    16384*2+0,   16384*2+64,  16384*2+128, 16384*2+192,
		    16384*2+256, 16384*2+320, 16384*2+384, 16384*2+448,
		    16384*3+0,   16384*3+64,  16384*3+128, 16384*3+192,
		    16384*3+256, 16384*3+320, 16384*3+384, 16384*3+448,
	};

	for( i=0 ; i<32768 ; i++ ){			/* 32768 */
		WORD( buffer + i*2 ) = brg_to_yc_no4( .0625*rate + .25, i );
		temp = WORD( brg_buf + WORD( buffer + i*2 )*2 );
		pokew( p[i/1024]+512*((i%1024)/32)+(i%32)*2+32768,
		 0x104, temp );
	}
	return 0;
}

	/* サブ */
v00_to_v02_conv_brg_set_buffer( buffer, rate )
char *buffer;
int rate;
{
	int i;

	for( i=0 ; i<8192*2 ; i++ ){
		WORD( buffer + i*2 ) = yc_to_brg_no4( .0625*rate + .25, i );
		pokew( i*2, 0x104, WORD( buffer + i*2 ) );
	}
	return 0;
}

/*
	v00 → v02 conv.
*/

	/* サブ */
/* move box ( 8*8dot )指定されたboxを転送 */

	/* デジタル的検索 */

cnv_movebox8_cmp(flt, new_ad,x1,y1, old_ad,x2,y2)
int flt, x1,y1, x2,y2;
char *new_ad, *old_ad;
{
	int x, y, ad, n, k, d1, d2, flt1, flt2, flt3 ;
	int cr1, cr2, cb1, cb2 ;
	char *ad1, *ad2 ;

	int f1[] = { 0, 0, 0, 1, 1, 1, 1, 1, 1 };	/* Y */
	int f2[] = { 0, 0, 1, 1, 1, 1, 1, 1, 1 };	/* Cr */
	int f3[] = { 0, 1, 1, 1, 1, 1, 1, 1, 1 };	/* Cb */

	int xhf, yhf;	/* v02xd, v02ydの半分の値 */
	xhf = v02xd >> 1;
	yhf = v02yd >> 1;

	if( flt > 8 )flt = 8;
	flt1 = f1[ flt ];
	flt2 = f2[ flt ];
	flt3 = f3[ flt ];
	if( y1 < v02yd ){	/* 輝度 */
	    if(  (y2*v02xd + x2*2 < 0)
	     || (y2*v02xd + x2*2 > v02xd*(v02yd - 8) + v02xd-16) )
		return -1;
	    ad1 = new_ad + y1*v02xd + x1*2;
	    ad2 = old_ad + y2*v02xd + x2*2;
	    n = 0;
	    for( y=0 ; y<8 ; y++ ){
		k = 0;
		for( x=0 ; x<8 ; x++ ){
		    ad = y*v02xd + x*2;
		    d1 = BYTE(ad1+ad) - BYTE(ad2+ad);
		    if( d1 < 0 )d1 = -d1;
		    d2 = BYTE(ad1+ad+1) - BYTE(ad2+ad+1);
		    if( d2 < 0 )d2 = -d2;

		    if( d1 <= flt1 && d2 <= flt1 )k++;
		    else {
			if( k > 1 )n = n + k;
			k = 0;
		    }
		}
		if( k > 1 )n = n + k;
	    }
	}
	else {		/* 色相 */
	    y1 = y1 - v02yd;
	    y2 = y2 - v02yd;
	    if(  (y2*xhf + x2 < 0) || (y2*xhf + x2 > xhf*(yhf-8) + xhf-8) )
		return -1;
	    ad1 = new_ad + v02xd*v02yd + y1*xhf + x1;
	    ad2 = old_ad + v02xd*v02yd + y2*xhf + x2;
	    n = 0;
	    for( y=0 ; y<8 ; y++ ){
		k = 0;
		for( x=0 ; x<8 ; x++ ){
		    ad = y*xhf + x;

		    cr1 = ( BYTE(ad1+ad) % (RED_DIVI + GRE_DIVI) ) ; /* cr */
		    cr2 = ( BYTE(ad2+ad) % (RED_DIVI + GRE_DIVI) ) ;
		    d1 = 0 ;
		    if( (cr1 <= GRE_DIVI - 1) && (cr1 - cr2 >= 0)
		     && (cr1 - cr2 <= flt2)
		    )
			d1 = 1 ;
		    if( (cr1 >= GRE_DIVI) && (cr2 - cr1 >= 0)
		     && (cr2 - cr1 <= flt2)
		    )
			d1 = 1 ;

		    cb1 = ( BYTE(ad1+ad) / (RED_DIVI + GRE_DIVI) ) ; /* cb */
		    cb2 = ( BYTE(ad2+ad) / (RED_DIVI + GRE_DIVI) ) ;
		    d2 = 0 ;
		    if( (cb1 <= YEL_DIVI - 1) && (cb1 - cb2 >= 0)
		     && (cb1 - cb2 <= flt3)
		    )
			d2 = 1 ;
		    if( (cb1 >= YEL_DIVI) && (cb2 - cb1 >= 0)
		     && (cb2 - cb1 <= flt3)
		    )
			d2 = 1 ;

		    if( d1 && d2 )k++;
		    else {
			if( k > 1 )n = n + k;
			k = 0;
		    }
		}
		if( k > 1 )n = n + k;
	    }
	}
	return n;
}

	/* アナログ的動きサーチ */

cnv_movebox8_cmp_2(flt, new_ad,x1,y1, old_ad,x2,y2)
int flt, x1,y1, x2,y2;
char *new_ad, *old_ad;
{
	int x, y, ad, n, d1, d2;
	char *ad1, *ad2;

	int xhf, yhf;	/* v02xd, v02ydの半分の値 */
	xhf = v02xd >> 1;
	yhf = v02yd >> 1;

	if( y1 < v02yd ){	/* 輝度 */
	    if(  (y2*v02xd + x2*2 < 0)
	     || (y2*v02xd + x2*2 > v02xd*(v02yd-8) + v02xd-16) )
		return -1;
	    ad1 = new_ad + y1*v02xd + x1*2;
	    ad2 = old_ad + y2*v02xd + x2*2;
	    n = 0;
	    for( y=0 ; y<8 ; y++ ){
		for( x=0 ; x<16 ; x++ ){
		    ad = y*v02xd + x;
		    d1 = BYTE(ad1+ad) - BYTE(ad2+ad);
		    if( d1 < 0 )d1 = -d1;
		    n = n + 100 - d1;
		}
	    }
	}
	else {		/* 色相 */
	    y1 = y1 - v02yd;
	    y2 = y2 - v02yd;
	    if(  (y2*xhf + x2 < 0) || (y2*xhf + x2 > xhf*(yhf - 8) +xhf-8) )
		return -1;
	    ad1 = new_ad + v02xd*v02yd + y1*xhf + x1;
	    ad2 = old_ad + v02xd*v02yd + y2*xhf + x2;
	    n = 0;
	    for( y=0 ; y<8 ; y++ ){
		for( x=0 ; x<8 ; x++ ){
		    ad = y*xhf + x;
		    d1 = ( BYTE(ad1+ad) % (RED_DIVI + GRE_DIVI) )
		       - ( BYTE(ad2+ad) % (RED_DIVI + GRE_DIVI) ) ; /* cr */
		    if( d1 < 0 )d1 = -d1;
		    d2 = ( BYTE(ad1+ad) / (RED_DIVI + GRE_DIVI) )
		       - ( BYTE(ad2+ad) / (RED_DIVI + GRE_DIVI) ) ; /* cb */
		    if( d2 < 0 )d2 = -d2;
		    n = n +100 - d1 - d2;
		}
	    }
	}
	return n;
}

cnv_movebox8
(
 i, flt, rate, step, data2_buf, new_ad, old_ad, data1_buf, make_buf, check_buf
)
int i, flt, rate, step;
char *make_buf, *data2_buf, *data1_buf, *check_buf, *new_ad, *old_ad;
{
	int p1, p2, n;
	int j, j1, j2, j3;
	int x, y, x1, y1, x2, y2, kx, ky, d;
	int max, a1, a2, temp, temp2, total, addr1, addr2, last;
	char *mksub, *ycsub;

	WORD( data2_buf+i ) = 0x3008; i+=2;	/* move box 8 */
	p1 = i; i+=4;			/* size point */
	p2 = i; i+=4;		/* data 個数 count point */
	n = 0;			/* data 個数 count */

	int xhf, yhf;	/* v02xd, v02ydの半分の値 */
	xhf = v02xd >> 1;
	yhf = v02yd >> 1;

	mksub = data2_buf+0x1000;	/* 旧makeデータをもう1枚作る */
	total = v02xd * v02yd * 3 / 4 ;
	for( j=0 ; j<total ; j+=4 )
		DWORD( mksub+j ) = DWORD( make_buf+j );
	ycsub = mksub + total;		/* 旧YCデータをもう1枚作る */
	total = v02xd * v02yd * 5 / 4 ;
	for( j=0 ; j<total ; j+=4 )
		DWORD( ycsub+j ) = DWORD( old_ad + j );

	last = 0;
	total = v02yd * 3 / 2 ;
	for( y=0 ; y<total ; y+=8 ){

	    if( y > total-8 )
		y = total-8 ;

	    for( x=0 ; x<xhf ; x+=8 ){
		temp2 = cnv_movebox8_cmp(flt, new_ad,x,y, old_ad,x,y);
		if( temp2 >= 64-4 )goto mov02;
			/* アナログサーチ */
		max = 0;
		kx = x; ky = y;
		x1 = x; y1 = y;
		for( d=step ; d>0 ; d-- ){
		  for( j2 = -1 ; j2 <= 1 ; j2++ ){
		     for( j3 = -1 ; j3 <= 1 ; j3++ ){
			x2 = x1 + j3*d;
			y2 = y1 + j2*d;
			if( x2 < 0 )x2 = 0;
			if( y2 < 0 )y2 = 0;
			temp
			=cnv_movebox8_cmp_2(flt, new_ad,x,y, old_ad,x2,y2);
			if( temp > max ){
			    max = temp;
			    kx = x2; ky = y2;
			}
		     }
		  }
		  x1 = kx; y1 = ky;
		}
			/* デジタルサーチ */
		max = 0;
		for( d=step ; d>0 ; d-- ){
		  for( j2 = -1 ; j2 <= 1 ; j2++ ){
		     for( j3 = -1 ; j3 <= 1 ; j3++ ){
			x2 = x1 + j3*d;
			y2 = y1 + j2*d;
			if( x2 < 0 )x2 = 0;	/* はみ出しを切る */
			if( y2 < 0 )y2 = 0;
			temp
			=cnv_movebox8_cmp(flt, new_ad,x,y, old_ad,x2,y2);
			if( temp > max ){
			    max = temp;
			    kx = x2; ky = y2;
			}
		     }
		  }
		  x1 = kx; y1 = ky;
		}

		if( max > temp2+4 ){
		    addr1 = y*xhf + x - last;
		    last = y*xhf + x;
		    if( addr1<0xff ){
			BYTE( data2_buf+i ) = addr1;
			i += 1;
		    }
		    if( (addr1>=0xff) && (addr1<0xffff) ){
			BYTE( data2_buf+i ) = 0xff;
			WORD( data2_buf+i+1 ) = addr1;
			i += 3;
		    }
		    if( addr1>=0xffff ){
			BYTE( data2_buf+i ) = 0xff;
			WORD( data2_buf+i+1 ) = 0xffff;
			DWORD( data2_buf+i+3 ) = addr1;
			i += 7;
		    }
		    addr2 = ky*xhf + kx - last;
		    			 /* addr2は符号付データ */
		    if( addr2>=-127 && addr2<=127 ){
			BYTE( data2_buf+i ) = addr2;
			i += 1;
			goto mov01;
		    }
		    if( addr2>=-32767 && addr2<=32767 ){
			BYTE( data2_buf+i ) = 0x80;
			WORD( data2_buf+i+1 ) = addr2;
			i += 3;
			goto mov01;
		    }
		    if( addr2 < -32767 || addr2 > 32767 ){
			BYTE( data2_buf+i ) = 0x80;
			WORD( data2_buf+i+1 ) = 0x8000;
			DWORD( data2_buf+i+3 ) = addr2;
			i += 7;
			goto mov01;
		    }
	     mov01: n++;
				/* make data remove */
		    for( j2=0 ; j2<8 ; j2++ ){
			for( j3=0 ; j3<8 ; j3++ ){
			    j1 = ( y + j2 )*xhf + x + j3;
			    a1
			    = BYTE( mksub + (ky + j2)*xhf + kx+j3 );
			    BYTE( make_buf + j1 ) = a1;
			    a2 = BYTE( data1_buf + j1 );
			    if(
			       cnv_cmp_data( a1, a2, j1, rate ) == 0
			       &&
			       BYTE( check_buf + j1 ) == 0
			    ){
				BYTE( check_buf + j1 ) = 1;
//				j = ( (j1/(v02xd/2)) << 9 )
//				  + ( (j1%(v02xd/2)) << 1 );
//				xorw( j+(v02xd*2), 0x104, 0xffff );
			    }
			}
		    }
				/* old_ad data remove */
		    if( y < v02yd ){
			for( j2=0 ; j2<8 ; j2++ ){
			    for( j3=0 ; j3<8 ; j3++ ){
				j1 = j2*v02xd + j3*2;
				WORD( old_ad + y*v02xd + x*2 + j1 )
				= WORD( ycsub + ky*v02xd + kx*2 + j1 );
			    }
			}
		    }
		    else {
			for( j2=0 ; j2<8 ; j2++ ){
			    for( j3=0 ; j3<8 ; j3++ ){
				j1 = j2*xhf + j3 + v02xd*v02yd;
				BYTE( old_ad + (y-v02yd)*xhf + x+j1 )
				= BYTE( ycsub +(ky-v02yd)*xhf+kx+j1);
			    }
			}
		    }
		}
	mov02:  ;
	    }
	}
	DWORD( data2_buf+p2 ) = n;
	if( n == 0 )i = p2;
	DWORD( data2_buf+p1 ) = i - p2;
	return i;
}

	/* サブ */
/* movsb */
cnv_movsb_0x2104( i, rate, data2_buf, data1_buf, make_buf, check_buf )
int i, rate;
char *data1_buf, *make_buf, *check_buf, *data2_buf;
{
	int p1, p6;
	int j, j3, j4;
	int k, k1, k2, last, kankaku;
	int a1, a2;
	int n3;
	int total;

	total = v02xd * v02yd * 3 / 4 ;

	WORD( data2_buf+i ) = 0x2104; i+=2;	/* movsb brock */
	p1 = i; i+=4;			/* size point */
	p6 = i; i+=4;		/* d-address count point */
	n3 = 0;			/* d-address count */
	k = 0; k1 = 0;		/* data長count係数 */
	last = 0;
	for( j3=0 ; j3<total ; j3++ ){
		a1 = BYTE( data1_buf + j3 );
		a2 = BYTE( check_buf + j3 );
		if( a2 == 0 ){
		    k++;
		    BYTE( check_buf + j3 ) = 1;

//			j = ( (j3/(v02xd/2)) << 9 ) + ( (j3%(v02xd/2)) << 1 );
//			xorw( j+(v02xd*2), 0x104, 0xffff );

		    BYTE( make_buf + j3 ) = a1;
		    if( k == 1 ){
			n3++;
			k2 = j3;			/* address記憶 */
			kankaku = j3 - last;
			if( kankaku<0xff ){
			    BYTE( data2_buf+i ) = kankaku;
			    i += 1;
			}
			if( (kankaku>=0xff) && (kankaku<0xffff) ){
			    BYTE( data2_buf+i ) = 0xff;
			    WORD( data2_buf+i+1 ) = kankaku;
			    i += 3;
			}
			if( kankaku>=0xffff ){
			    BYTE( data2_buf+i ) = 0xff;
			    WORD( data2_buf+i+1 ) = 0xffff;
			    DWORD( data2_buf+i+3 ) = kankaku;
			    i += 7;
			}
		    }
		    if( k<0xff ){
			BYTE( data2_buf+i ) = k;
			k1 = 1;
		    }
		    if( (k>=0xff) && (k<0xffff) ){
			BYTE( data2_buf+i ) = 0xff;
			WORD( data2_buf+i+1 ) = k;
			k1 = 3;
		    }
		    if( k>=0xffff ){
			BYTE( data2_buf+i ) = 0xff;
			WORD( data2_buf+i+1 ) = 0xffff;
			DWORD( data2_buf+i+3 ) = k;
			k1 = 7;
		    }
		}
		else {
		    if( k ){
			i = i + k1;
			k = 0; k1 = 0;
			last = j3;
			for( j4=k2 ; j4<j3 ; j4++ ){ /* data write */
			    BYTE( data2_buf+i ) = BYTE( make_buf+j4 );
			    i++;
			}
		    }
		}
	movs01: ;
	}
movs02: if( k ){
		i = i + k1;
		k = 0; k1 = 0;
		for( j4=k2 ; j4<j3 ; j4++ ){ /* data write */
		    BYTE( data2_buf+i ) = BYTE( make_buf+j4 );
		    i++;
		}
	}
	DWORD( data2_buf+p6 ) = n3;
	if( n3 == 0 )i = p6;
	DWORD( data2_buf+p1 ) = i - p6;
	return i;
}

/* skip_check1 = 1:skip ( for stosb ) */

	/* サブのサブ(4つが一番よい結果がでる1993 7 ) */
cnv_stosb_skip_check4( data, n, rate, data1_buf, check_buf )
int data, n, rate;
char *data1_buf, *check_buf;
{			/* 4つdataと同じ色が続くもの以外はスキップ */
	int a, i;
	int total;

	total = v02xd * v02yd * 3 / 4 ;
	if( n > total-4 )
		return 1;
		/* ↓2つ続きの処理済直後はok */
	if( ( n > 1 )
	 && ( (DWORD( check_buf+n-2 ) & 0x00ffffff )== 0x000101 ) )
		return 0;
	if( BYTE( check_buf+n ) )return 1;
	for( i=0 ; i<4 ; i++ ){
		if( BYTE( check_buf + n + i ) )
		{
			if( i > 1 )
				return 0 ;
			if( WORD( check_buf+n+i ) == 0x0101 )
				return 0 ;
		}
		a = BYTE( data1_buf + n + i );
		if( cnv_cmp_data( data, a, n+i, rate ) )return 1;
	}
	return 0;
}

	/* サブのサブ */
cnv_stosb_skip_check( k, data, n, rate, data1_buf, check_buf )
int k, data, n, rate;
char *data1_buf, *check_buf;
{			/* k個のdataと同じ色が続くもの以外はスキップ */
	int a, i;
	int total;

	total = v02xd * v02yd * 3 / 4 ;
	if( n > total-k )return 1;
	for( i=0 ; i<k ; i++ )
	{
		if( BYTE( check_buf + n + i ) )
			return 1;
		a = BYTE( data1_buf + n + i );
		if( cnv_cmp_data( data, a, n+i, rate ) )
			return 1;
	}
	return 0;
}

	/* サブ */
/* stosb */
cnv_stosb_0x1104( i, rate, data2_buf, data1_buf, make_buf, check_buf )
int i, rate;
char *data1_buf, *make_buf, *check_buf, *data2_buf;
{
	int p1, p2, p3, p6;
	int j, j1, j3;
	int k, k1, last, kankaku;
	int data;
	int a1, a2;
	int n1, n3;
	int total;

	int zentai_kaisu, renzoku ;

	total = v02xd * v02yd * 3 / 4 ;
	WORD( data2_buf+i ) = 0x1104; i+=2;	/* stosb brock */
	p1 = i; i+=4;			/* size point */
	p2 = i; i+=4;			/* data count point */
	n1 = 0;				/* data count */

	renzoku = 8 ;

	for( zentai_kaisu=0 ; zentai_kaisu<3 ; zentai_kaisu++ )
	{

	  for( j1=0 ; j1<total ; j1++ ){
	    if( BYTE( check_buf+j1 ) )goto stos03;	/* 処理済skip */
	    data = BYTE( data1_buf+j1 );
	    if(
	      cnv_stosb_skip_check(
	       renzoku, data, j1, rate, data1_buf, check_buf )
	    )goto stos03;		/* skip check */
	    p3 = i;			/* data top point */
	    BYTE( data2_buf+i ) = data; i+=1;	/* data */
	    p6 = i; i+=4;		/* d-address count point(DWORD) */
	    n3 = 0;			/* d-address count */
	    k = 0; k1 = 0;		/* data長count係数 */
	    last = 0;			/* 間隔check用 */
	    for( j3=0 ; j3<total ; j3++ ){
		a2 = BYTE( check_buf+j3 );
		if( a2 ){			/* 処理済skip */
		    if( k ){
			last = j3;
			i = i + k1;
			k = 0; k1 = 0;
		    }
		    goto stos01;
		}
		a1 = BYTE( data1_buf + j3 );
		if( a2 == 0				 /* 手つかず */
		    && cnv_cmp_data( data,a1,j3,rate ) == 0 
							/* 同色と認め */ 
		){
		    if( k == 0 )if( 
		 	cnv_stosb_skip_check4(
		 	   data, j3, rate, data1_buf, check_buf
		 	)
		    )goto stos01;
		    k++;
		    BYTE( make_buf + j3 ) = data;
		    BYTE( check_buf + j3 ) = 1;

//			j = ( (j3/(v02xd/2)) << 9 ) + ( (j3%(v02xd/2)) << 1 );
//			xorw( j+(v02xd*2), 0x104, 0xffff );

		    if( k == 1 ){
			n3++;
			kankaku = j3 - last;
			if( kankaku<0xff ){
			    BYTE( data2_buf+i ) = kankaku;
			    i += 1;
			}
			if( (kankaku>=0xff) && (kankaku<0xffff) ){
			    BYTE( data2_buf+i ) = 0xff;
			    WORD( data2_buf+i+1 ) = kankaku;
			    i += 3;
			}
			if( kankaku>=0xffff ){
			    BYTE( data2_buf+i ) = 0xff;
			    WORD( data2_buf+i+1 ) = 0xffff;
			    DWORD( data2_buf+i+3 ) = kankaku;
			    i += 7;
			}
		    }
		    if( k<0xff ){
			BYTE( data2_buf+i ) = k;
			k1 = 1;
		    }
		    if( (k>=0xff) && (k<0xffff) ){
			BYTE( data2_buf+i ) = 0xff;
			WORD( data2_buf+i+1 ) = k;
			k1 = 3;
		    }
		    if( k>=0xffff ){
			BYTE( data2_buf+i ) = 0xff;
			WORD( data2_buf+i+1 ) = 0xffff;
			DWORD( data2_buf+i+3 ) = k;
			k1 = 7;
		    }
		}
		else {
		    if( k ){
			last = j3;
			i = i + k1;
			k = 0; k1 = 0;
		    }
		}
	stos01: ;
	    }
    stos02: i = i + k1;
	    DWORD( data2_buf+p6 ) = n3;
	    if( n3 ){
		n1++;
	    }
	    else i = p3;
    stos03: ;
	  }

	  renzoku-- ;

	}

	DWORD( data2_buf+p2 ) = n1;
	if( n1 == 0 )i = p2;
	DWORD( data2_buf+p1 ) = i - p2;
	return i;
}

v00_to_v02_soft( soft, old_ad, new_ad )
int soft ;
char  *old_ad, *new_ad;
{
	int x, y, xk, yk, data1, data2, n, n2, add;
	int total;
	int xhf, yhf;	/* v02xd, v02ydの半分の値 */
	int sft1, sft2, sft3, s ;

	int sft[][10] = {
				{ 0,0,0, 0,1,0, 0,0,0 },
				{ 0,0,0, 1,1,1, 0,0,0 },
				{ 1,2,1, 2,2,2, 1,2,1 },
				{ 1,1,1, 1,1,1, 1,1,1 },
	};
	int s1[] = { 0, 1, 2 };	/* Y */
	int s2[] = { 0, 1, 3 };	/* Cr */
	int s3[] = { 0, 1, 3 };	/* Cb */

	if( soft > 2 )soft = 2;
	if( soft < 0 )soft = 0;
	sft1 = s1[ soft ];
	sft2 = s2[ soft ];
	sft3 = s3[ soft ];

	total = v02xd * v02yd ;
	xhf = v02xd >> 1;
	yhf = v02yd >> 1;
	for( y=0 ; y<v02yd ; y++ ){	/* 輝度 */
	    for( x=0 ; x<v02xd ; x++ ){
		data1 = 0;
		n = 0;
		s = 0 ;

		for( yk=y-1 ; yk<y+2 ; yk++ ){
		    for( xk=x-1 ; xk<x+2 ; xk++ ){

			if( yk>=0 && yk<v02yd && xk>=0 && xk<v02xd ){
			    add = yk*v02xd + xk;
			    data1 = data1 + BYTE( new_ad + add )*sft[sft1][s];
			    n = n + sft[sft1][s] ;
			}
			s++ ;

		    }
		}
		if( n )data1 = ( data1 + (data1 % n ) ) / n;
		add = y*v02xd + x;
		BYTE( old_ad + add ) = data1;
	    }
	}

	for( y=0 ; y<yhf ; y++ ){	/* 色相 */
	    for( x=0 ; x<xhf ; x++ ){
		data1 = 0; data2 = 0;
		n = 0 ;
		n2 = 0 ;
		s = 0 ;

		for( yk=y-1 ; yk<y+2 ; yk++ ){
		    for( xk=x-1 ; xk<x+2 ; xk++ ){

			if( yk>=0 && yk<yhf && xk>=0 && xk<xhf ){
			    add = total + yk*xhf + xk;
			    data1 = data1
			    	    + ( BYTE( new_ad + add )
			    	    % (RED_DIVI + GRE_DIVI) ) * sft[sft2][s];
			    data2 = data2
			            + ( BYTE( new_ad + add )
			    	    / (RED_DIVI + GRE_DIVI) ) * sft[sft3][s];
			    n = n + sft[sft2][s] ;
			    n2 = n2 + sft[sft3][s] ;
			}
			s++;

		    }
		}
		if( n ){
			data1 = ( data1 + (data1 % n ) ) / n;
			data2 = ( data2 + (data2 % n2 ) ) / n2;
		}
		add = total + y*xhf + x;
		if( data1 + (RED_DIVI + GRE_DIVI)*data2 > 255 )data2-- ;
		BYTE( old_ad + add ) = data1 + (RED_DIVI + GRE_DIVI)*data2 ;
	    }
	}
	return 0;
}

/* フィルターに使用 */
v00_to_v02_filter( flt, new_ad, old_ad )
int flt;
char *new_ad, *old_ad;
{
	int i, d0, d1, cr0, cb0, cr1, cb1, flt1, flt2, flt3 ;
	int total, bf, rf ;
	int filt[][10] = {
				{ 0,1,2,3,4,5,6,7,8,9 },
				{ 0,0,2,3,4,5,6,7,8,9 },
				{ 0,0,0,2,4,5,6,7,8,9 },
	};
	int f1[] = { 0, 0, 0, 1, 1, 1, 1, 1, 2 };	/* Y */
	int f2[] = { 0, 0, 1, 1, 1, 1, 1, 1, 1 };	/* Cr */
	int f3[] = { 0, 1, 1, 1, 1, 1, 1, 1, 1 };	/* Cb */

	total = v02xd * v02yd ;

	if( flt > 8 )flt = 8;
	flt1 = f1[ flt ];
	flt2 = f2[ flt ];
	flt3 = f3[ flt ];
	if( flt ){
	    for( i=0 ; i<total ; i++ ){
		d0 = BYTE( new_ad + i );
		d1 = BYTE( old_ad + i );
		if( (d0-d1 >= 0) && (d0-d1 <= 8) )
		{
		    d0 = d1 + filt[ flt1 ][ d0-d1 ];
		}
		if( (d1-d0 > 0) && (d1-d0 <= 8) )
		{
		    d0 = d1 - filt[ flt1 ][ d1-d0 ];
		}
		BYTE( new_ad + i ) = d0;
	    }
	    for( i=total ; i<(total + total/4) ; i++ ){

		d0 = BYTE( new_ad + i );
		d1 = BYTE( old_ad + i );
		cr0 = d0 % (RED_DIVI + GRE_DIVI) ;
		cr1 = d1 % (RED_DIVI + GRE_DIVI) ;
		cb0 = d0 / (RED_DIVI + GRE_DIVI) ;
		cb1 = d1 / (RED_DIVI + GRE_DIVI) ;

		/* cr0<=GRE_DIVI-1等は色が薄くなるのを防ぐ */

		bf = 0 ;
		if(
		 (cb0-cb1 >= 0) && (cb0-cb1 <= 8)
		 && ((flt >= 5) || (cb0 <= YEL_DIVI-1))
//		 && ((flt >= 5) || (cb0 <= YEL_DIVI))
		  )
			bf = 1 ;
		if(
		 (cb1-cb0 > 0) && (cb1-cb0 <= 8)
		 && ((flt >= 4) || (cb0 >= YEL_DIVI))
//		 && ((flt >= 4) || (cb0 >= YEL_DIVI-1))
		  )
			bf = -1 ;
		rf = 0 ;
		if(
		 (cr0-cr1 >= 0) && (cr0-cr1 <= 8)
		 && ((flt >= 6) || (cr0 <= GRE_DIVI-1))
		  )
		 	rf = 1 ;
		if(
		 (cr1-cr0 > 0) && (cr1-cr0 <= 8)
		 && ((flt >= 7) || (cr0 >= GRE_DIVI))
//		 && ((flt >= 7) || (cr0 >= GRE_DIVI-1))
		  )
		 	rf = -1 ;

		if( bf > 0 && rf )
			cb0 = cb1 + filt[ flt3 ][ cb0-cb1 ];
		if( bf < 0 && rf )
			cb0 = cb1 - filt[ flt3 ][ cb1-cb0 ];

		if( rf > 0 && bf )
			cr0 = cr1 + filt[ flt2 ][ cr0-cr1 ];
		if( rf < 0 && bf )
			cr0 = cr1 - filt[ flt2 ][ cr1-cr0 ];

		if( cr0 + (RED_DIVI + GRE_DIVI)*cb0 > 255 )cb0-- ;
		BYTE( new_ad + i ) = cr0 + (RED_DIVI + GRE_DIVI)*cb0 ;
	    }
	}
	return 0;
}

/* ソフトネスに使用 */
v00_to_v02_s_filter( flt, new_ad, old_ad )
int flt;
char *new_ad, *old_ad;
{
	int i, d0, d1, cr0, cb0, cr1, cb1, flt1, flt2, flt3;
	int total;
	int filt[][10] = {
				{ 0,1,2,3,4,5,6,7,8,9 },
				{ 0,0,2,3,4,5,6,7,8,9 },
				{ 0,0,1,3,4,5,6,7,8,9 },
				{ 0,0,0,2,4,5,6,7,8,9 },
				{ 0,0,0,0,2,4,6,7,8,9 },
				{ 0,0,0,0,0,2,4,6,8,9 },
				{ 0,0,0,0,0,0,2,4,6,8 },
				{ 0,0,0,0,0,0,0,2,4,7 },
				{ 0,0,0,0,0,0,0,0,3,7 },
				{ 0,0,0,0,0,0,0,0,0,4 },
	};
	int f1[] = { 0, 0, 1, 2, 3, 4, 5, 6, 7 };
	int f2[] = { 0, 1, 1, 2, 3, 4, 5, 6, 7 };
	int f3[] = { 0, 1, 1, 2, 3, 4, 5, 6, 7 };

	total = v02xd * v02yd ;
	if( flt > 8 )flt = 8;
	flt1 = f1[ flt ];
	flt2 = f2[ flt ];
	flt3 = f3[ flt ];
	if( flt ){
	    for( i=0 ; i<total ; i++ ){
		d0 = BYTE( new_ad + i );
		d1 = BYTE( old_ad + i );
		if( (d0-d1 >= 0) && (d0-d1 <= 8) ){
		    d0 = d1 + filt[ flt1 ][ d0-d1 ];
		}
		if( (d1-d0 > 0) && (d1-d0 <= 8) ){
		    d0 = d1 - filt[ flt1 ][ d1-d0 ];
		}
		BYTE( new_ad + i ) = d0;
	    }
	    for( i=total ; i<(total + total/4) ; i++ ){
		d0 = BYTE( new_ad + i );
		d1 = BYTE( old_ad + i );
		cr0 = d0 % (RED_DIVI + GRE_DIVI) ;
		cr1 = d1 % (RED_DIVI + GRE_DIVI) ;
		cb0 = d0 / (RED_DIVI + GRE_DIVI) ;
		cb1 = d1 / (RED_DIVI + GRE_DIVI) ;

		if( (cr0-cr1 >= 0) && (cr0-cr1 <= 8) )
			cr0 = cr1 + filt[ flt2 ][ cr0-cr1 ];
		if( (cr1-cr0 > 0) && (cr1-cr0 <= 8) )
			cr0 = cr1 - filt[ flt2 ][ cr1-cr0 ];

		if( (cb0-cb1 >= 0) && (cb0-cb1 <= 8) )
			cb0 = cb1 + filt[ flt3 ][ cb0-cb1 ];
		if( (cb1-cb0 > 0) && (cb1-cb0 <= 8) )
			cb0 = cb1 - filt[ flt3 ][ cb1-cb0 ];

		if( cr0 + (RED_DIVI + GRE_DIVI)*cb0 > 255 )cb0-- ;
		BYTE( new_ad + i ) = cr0 + (RED_DIVI + GRE_DIVI)*cb0 ;
	    }
	}
	return 0;
}

	/* サブ(瞬間圧縮) */
v00_to_v02_conv_cmp3
(
flt, rate, step, soft, mode,
data2_buf, new_ad, old_ad, data1_buf, make_buf, check_buf
)
int flt, rate, step, soft, mode;
char *data2_buf, *new_ad, *old_ad, *data1_buf, *make_buf, *check_buf;
{
	int i, j, k ;

		/* mono */
	if( mode )
		for( k=v02xd*v02yd ; k<( v02xd*v02yd + v02xd*v02yd/4 ) ; k++ )
			BYTE( new_ad + k )
			 = GRE_DIVI + (RED_DIVI + GRE_DIVI)*YEL_DIVI ;

	v00_to_v02_conv_yc_to_cmpyc( data1_buf, new_ad );

	i = 0;					/* data counter */

	WORD( data2_buf + 0 ) = 1 ;
	WORD( data2_buf + 2 ) = 0x2104 ;
	DWORD( data2_buf + 4 ) = 8 + v02xd*v02yd*2*3/8 ;
	DWORD( data2_buf + 8 ) = 1 ;
	BYTE( data2_buf + 12 ) = 0 ;
	BYTE( data2_buf + 13 ) = 0xff ;
	WORD( data2_buf + 14 ) = v02xd*v02yd*2*3/8 ;

	i += 16 ;

	for( j=0 ; j<(v02xd*v02yd*2*3/8) ; j++ )
	{
		BYTE( data2_buf+16 + j ) = BYTE( data1_buf + j ) ;
		BYTE( make_buf + j ) = BYTE( data1_buf + j ) ;
	}

	i += (v02xd*v02yd*2*3/8) ;

	return i;
}

	/* サブ */
v00_to_v02_conv_cmp2
(
flt, rate, step, soft, mode,
data2_buf, new_ad, old_ad, data1_buf, make_buf, check_buf
)
int flt, rate, step, soft, mode;
char *data2_buf, *new_ad, *old_ad, *data1_buf, *make_buf, *check_buf;
{
	int i, j, k, a1, a2;
	int total;

	char *new_ad_2 ;
	char *new_ad_3 ;
	char *new_ad_4 ;

	new_ad_2 = new_ad   + v02xd * v02yd * 5 / 4 ;
	new_ad_3 = new_ad_2 + v02xd * v02yd * 5 / 4 ;
	new_ad_4 = new_ad_3 + v02xd * v02yd * 5 / 4 ;
			/* new_adにはYCデータが4つ入らなければいけない */

	total = v02xd * v02yd * 3 / 4 ;

		/* 画面clear */
//	for( k=0 ; k<256 ; k++ ){
//		for( j=v02xd ; j<256 ; j++ ){
//			pokew( k*512+j*2, 0x104, 0 );
//		}
//	}
		/* check area clear */
	for( k=0 ; k<total ; k+=4 ){
		DWORD( check_buf+k ) = 0;	/* clear */
	}
		/* mono */
	if( mode )
		for( k=v02xd*v02yd ; k<( v02xd*v02yd + v02xd*v02yd/4 ) ; k++ )
			BYTE( new_ad + k )
			 = GRE_DIVI + (RED_DIVI + GRE_DIVI)*YEL_DIVI ;

		/* 綺麗なycをnew_ad_2に保存 */
	for( k=0 ; k<( v02xd * v02yd * 5 / 4 ) ; k++ )
		BYTE( new_ad_2 + k ) = BYTE( new_ad + k ) ;
		/* new_ad_4を使ってsoft→new_ad */
	v00_to_v02_soft( 2, new_ad_4, new_ad );
	v00_to_v02_s_filter( soft, new_ad, new_ad_4 );
		/* 綺麗なycをnew_ad_3に転送 */
	for( k=0 ; k<( v02xd * v02yd * 5 / 4 ) ; k++ )
		BYTE( new_ad_3 + k ) = BYTE( new_ad_2 + k ) ;
		/* new_ad_4を使ってsoft→new_ad_3 */
	v00_to_v02_soft( 1, new_ad_4, new_ad_3 );
	v00_to_v02_s_filter( soft, new_ad_3, new_ad_4 );

		/*
		 ↑以上の処理で
			new_ad   : ソフト係数2のソフトネス
			new_ad_2 : 原画
			new_ad_3 : ソフト係数1のソフトネス
			new_ad_4 : ソフト係数1の為のワーク(強いソフト)
		  ただしソフト係数1は横方向のみのソフト
		        ソフト係数2は全方向のソフト化
		*/

	i = 0;				/* data counter */
	WORD( data2_buf+i ) = 2;
	if( step )WORD( data2_buf+i ) += 1;	/* 移動補償 */
	i+=2;
	v00_to_v02_conv_yc_to_cmpyc( data1_buf, new_ad );
	if( step ){				/* 移動補償 */
		i = cnv_movebox8
		( i, flt, rate, step, data2_buf, new_ad, old_ad,
		data1_buf, make_buf, check_buf );
	}
	v00_to_v02_filter( flt, new_ad, old_ad );
	v00_to_v02_conv_yc_to_cmpyc( data1_buf, new_ad );

		/* checkのやり直し */
	for( k=0 ; k<total ; k++ ){
		a1 = BYTE( data1_buf+k ); a2 = BYTE( make_buf+k );
		if( cnv_cmp_data( a1,a2,k,rate ) == 0 ){
			BYTE( check_buf+k ) = 1;	/* 処理印 */
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0xffff );
		}
		else {
			BYTE( check_buf+k ) = 0;	/* 未処理 */
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0x0000 );
		}
	}
	for( k=1 ; k<total-1 ; k++ ){
		if( ( DWORD( check_buf+k-1 ) & 0x00ffffff ) == 0x000100
			||
		      BYTE( check_buf+k ) == 0
		){
			if( k < (v02xd * v02yd / 2) )
				WORD( new_ad+k*2 ) = WORD( new_ad_3+k*2 ) ;
			else
				BYTE( new_ad + k + v02xd*v02yd/2 )
				= BYTE( new_ad_3 + k + v02xd*v02yd/2 ) ;

			BYTE( check_buf+k ) = 0;
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0x0000 );
		}
	}
	v00_to_v02_conv_yc_to_cmpyc( data1_buf, new_ad );
				/* cmp. YCデータの計算し直し */

		/* stosb */
	i = cnv_stosb_0x1104(
	 i, 0, data2_buf, data1_buf, make_buf, check_buf );

		/* checkのやり直し */
	for( k=0 ; k<total ; k++ ){
		a1 = BYTE( data1_buf+k ); a2 = BYTE( make_buf+k );
		if( cnv_cmp_data( a1,a2,k,rate ) == 0 ){
			BYTE( check_buf+k ) = 1;	/* 処理印 */
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0xffff );
		}
		else {
			if( k < (v02xd * v02yd / 2) )
				WORD( new_ad+k*2 ) = WORD( new_ad_2+k*2 ) ;
			else
				BYTE( new_ad + k + v02xd*v02yd/2 )
				= BYTE( new_ad_2 + k + v02xd*v02yd/2 ) ;
					/* 処理解除部分のnew_adはnew_ad_2 */

			BYTE( check_buf+k ) = 0;	/* 未処理 */
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0x0000 );
		}
	}
	v00_to_v02_conv_yc_to_cmpyc( data1_buf, new_ad );
				/* cmp. YCデータの計算し直し */

		/* checkのやり直し */
	for( k=0 ; k<total ; k++ ){
		a1 = BYTE( data1_buf+k ); a2 = BYTE( make_buf+k );
		if( cnv_cmp_data( a1,a2,k,rate ) == 0 ){
			BYTE( check_buf+k ) = 1;	/* 処理印 */
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0xffff );
		}
	}
		/* 孤立した点は処理解除 */
	for( k=1 ; k<total-1 ; k++ ){
		if( ( DWORD( check_buf+k-1 ) & 0x00ffffff ) == 0x000100
			||
		      DWORD( check_buf+k-1 ) == 0x00010100
			||
		      BYTE( check_buf+k ) == 0
		){
			if( DWORD( check_buf+k-1 ) == 0x01010001 )
			{
			    if( k < (v02xd * v02yd / 2) )
				WORD( new_ad+k*2 ) = WORD( new_ad_3+k*2 ) ;
			    else
				BYTE( new_ad + k + v02xd*v02yd/2 )
				= BYTE( new_ad_3 + k + v02xd*v02yd/2 ) ;
					/* 処理解除部分のnew_adはnew_ad_3 */
			}
			else
			{
			    if( k < (v02xd * v02yd / 2) )
				WORD( new_ad+k*2 ) = WORD( new_ad_2+k*2 ) ;
			    else
				BYTE( new_ad + k + v02xd*v02yd/2 )
				= BYTE( new_ad_2 + k + v02xd*v02yd/2 ) ;
					/* 処理解除部分のnew_adはnew_ad_2 */
			}

			BYTE( check_buf+k ) = 0;
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0x0000 );
		}
	}
	v00_to_v02_conv_yc_to_cmpyc( data1_buf, new_ad );
					/* cmp. YCデータの計算し直し */

		/* movsb */
	i = cnv_movsb_0x2104(
	 i, 0, data2_buf, data1_buf, make_buf, check_buf );

	for( k=0 ; k<( v02xd * v02yd * 5 / 4 ) ; k++ )
	{
		BYTE( old_ad + k ) = BYTE( new_ad + k ) ;
	}			/* 次の処理のためにnew_adをold_adに */

	return i;
}

	/* サブ */
v00_to_v02_conv_cmp1
(
flt, rate, step, soft, mode,
data2_buf, new_ad, old_ad, data1_buf, make_buf, check_buf
)
int flt, rate, step, soft, mode;
char *data2_buf, *new_ad, *old_ad, *data1_buf, *make_buf, *check_buf;
{
	int i, j, k, m1, m2, n, data, d, temp;
	int total, a1, a2 ;

	char *new_ad_2 ;
	char *new_ad_3 ;
	char *new_ad_4 ;

	new_ad_2 = new_ad   + v02xd * v02yd * 5 / 4 ;
	new_ad_3 = new_ad_2 + v02xd * v02yd * 5 / 4 ;
	new_ad_4 = new_ad_3 + v02xd * v02yd * 5 / 4 ;
			/* new_adにはYCデータが4つ入らなければいけない */

	total = v02xd * v02yd * 3 / 4 ;

//	for( i=0 ; i<256 ; i++ ){
//		for( j=v02xd ; j<256 ; j++ ){
//			pokew( i*512+j*2, 0x104, 0 );
//		}
//	}
		/* check area clear */
	for( k=0 ; k<total ; k+=4 ){
		DWORD( check_buf+k ) = 0;	/* clear */
	}
		/* mono */
	if( mode )
		for( k=v02xd*v02yd ; k<( v02xd*v02yd + v02xd*v02yd/4 ) ; k++ )
			BYTE( new_ad + k )
			 = GRE_DIVI + (RED_DIVI + GRE_DIVI)*YEL_DIVI ;

		/* 綺麗なycをnew_ad_2に保存 */
	for( k=0 ; k<( v02xd * v02yd * 5 / 4 ) ; k++ )
		BYTE( new_ad_2 + k ) = BYTE( new_ad + k ) ;
		/* new_ad_4を使ってsoft */
	v00_to_v02_soft( 2, new_ad_4, new_ad );
	v00_to_v02_s_filter( soft, new_ad, new_ad_4 );
		/* 綺麗なycをnew_ad_3に転送 */
	for( k=0 ; k<( v02xd * v02yd * 5 / 4 ) ; k++ )
		BYTE( new_ad_3 + k ) = BYTE( new_ad_2 + k ) ;
		/* new_ad_4を使ってsoft */
	v00_to_v02_soft( 1, new_ad_4, new_ad_3 );
	v00_to_v02_s_filter( soft, new_ad_3, new_ad_4 );

	v00_to_v02_conv_yc_to_cmpyc( data1_buf, new_ad );
	i = 0;					/* data counter */
	WORD( data2_buf+i ) = 3; i+=2;		/* brock 数 */

	m1 = v02xd * 8 / 2 ;
	m2 = total / m1;

	WORD( data2_buf+i ) = 0x1404; i+=2;	/* stosd brock */
	DWORD( data2_buf+i ) = 4+14*m2; i+=4;	/* data size */
	DWORD( data2_buf+i ) = m2; i+=4;		/* data 数 */

	for( j=0 ; j<m2 ; j++ ){
		d = j*m1;
			/* data2_buf+0x1000〜 を使って最多data検索 */

		if( j == m2 - 1 )
			m1 = total - d ;	/* 1993 4/8 修正 */

		for( k=0 ; k<256 ; k++ ){
			DWORD( data2_buf+0x1000+k*4 ) = 0;	/* clear */
		}
		for( k=d ; k<d+m1 ; k++ ){
			data = BYTE( data1_buf + k );
			DWORD( data2_buf+0x1000+data*4 ) +=1;
		}
		n = 0; data = 0;
		for( k=0 ; k<256 ; k++ ){
			if( DWORD( data2_buf+0x1000+k*4 ) > n ){
				n = DWORD( data2_buf+0x1000+k*4 );
				data = k;
			}
		}
			/* 塗り潰し */
		for( k=d ; k<d+m1 ; k++ ){
			BYTE( make_buf+k ) = data;
			if(  cnv_cmp_data(data,BYTE(data1_buf+k),k,rate) == 0 )
			{
				BYTE( check_buf+k ) = 1;

//				temp = ( (k/(v02xd/2)) << 9 )
//				     + ( (k%(v02xd/2)) << 1 );
//				pokew( temp+(v02xd*2), 0x104, 0xffff );
					/* 処理印 */
			}
		}
		DWORD( data2_buf+i )
		 = data+(data << 8)+(data << 16)+(data << 24); i+=4;
							 /* data */
		DWORD( data2_buf+i ) = 1; i+=4;		/* 個数 */
		BYTE( data2_buf+i ) = 0xff; i+=1;	/* 間隔 */
		WORD( data2_buf+i ) = d; i+=2;
		BYTE( data2_buf+i ) = 0xff; i+=1;	/* 長さ */
		WORD( data2_buf+i ) = m1 / 4; i+=2;
	}

		/* checkのやり直し */
	for( k=0 ; k<total ; k++ ){
		a1 = BYTE( data1_buf+k ); a2 = BYTE( make_buf+k );
		if( cnv_cmp_data( a1,a2,k,rate ) == 0 ){
			BYTE( check_buf+k ) = 1;	/* 処理印 */
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0xffff );
		}
		else {
			BYTE( check_buf+k ) = 0;	/* 未処理 */
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0x0000 );
		}
	}
	for( k=1 ; k<total-1 ; k++ ){
		if( ( DWORD( check_buf+k-1 ) & 0x00ffffff ) == 0x000100
			||
		      BYTE( check_buf+k ) == 0
		){
			if( k < (v02xd * v02yd / 2) )
				WORD( new_ad+k*2 ) = WORD( new_ad_3+k*2 ) ;
			else
				BYTE( new_ad + k + v02xd*v02yd/2 )
				= BYTE( new_ad_3 + k + v02xd*v02yd/2 ) ;

			BYTE( check_buf+k ) = 0;
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0x0000 );
		}
	}
	v00_to_v02_conv_yc_to_cmpyc( data1_buf, new_ad );
				/* cmp. YCデータの計算し直し */
		/* stosb */
	i = cnv_stosb_0x1104(
	 i, 0, data2_buf, data1_buf, make_buf, check_buf );

		/* checkのやり直し */
	for( k=0 ; k<total ; k++ ){
		a1 = BYTE( data1_buf+k ); a2 = BYTE( make_buf+k );
		if( cnv_cmp_data( a1,a2,k,rate ) == 0 ){
			BYTE( check_buf+k ) = 1;	/* 処理印 */
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0xffff );
		}
		else {
			if( k < (v02xd * v02yd / 2) )
				WORD( new_ad+k*2 ) = WORD( new_ad_2+k*2 ) ;
			else
				BYTE( new_ad + k + v02xd*v02yd/2 )
				= BYTE( new_ad_2 + k + v02xd*v02yd/2 ) ;
					/* 処理解除部分のnew_adはnew_ad_2 */

			BYTE( check_buf+k ) = 0;	/* 未処理 */
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0x0000 );
		}
	}
	v00_to_v02_conv_yc_to_cmpyc( data1_buf, new_ad );
				/* cmp. YCデータの計算し直し */

		/* checkのやり直し */
	for( k=0 ; k<total ; k++ ){
		a1 = BYTE( data1_buf+k ); a2 = BYTE( make_buf+k );
		if( cnv_cmp_data( a1,a2,k,rate ) == 0 ){
			BYTE( check_buf+k ) = 1;	/* 処理印 */
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0xffff );
		}
	}
		/* 孤立した点は処理解除 */
	for( k=1 ; k<total-1 ; k++ ){
		if( ( DWORD( check_buf+k-1 ) & 0x00ffffff ) == 0x000100
			||
		      DWORD( check_buf+k-1 ) == 0x00010100
			||
		      BYTE( check_buf+k ) == 0
		){
			if( DWORD( check_buf+k-1 ) == 0x01010001 )
			{
			    if( k < (v02xd * v02yd / 2) )
				WORD( new_ad+k*2 ) = WORD( new_ad_3+k*2 ) ;
			    else
				BYTE( new_ad + k + v02xd*v02yd/2 )
				= BYTE( new_ad_3 + k + v02xd*v02yd/2 ) ;
					/* 処理解除部分のnew_adはnew_ad_3 */
			}
			else
			{
			    if( k < (v02xd * v02yd / 2) )
				WORD( new_ad+k*2 ) = WORD( new_ad_2+k*2 ) ;
			    else
				BYTE( new_ad + k + v02xd*v02yd/2 )
				= BYTE( new_ad_2 + k + v02xd*v02yd/2 ) ;
					/* 処理解除部分のnew_adはnew_ad_2 */
			}

			BYTE( check_buf+k ) = 0;
//			j = ( (k/(v02xd/2)) << 9 ) + ( (k%(v02xd/2)) << 1 );
//			pokew( j+(v02xd*2), 0x104, 0x0000 );
		}
	}
	v00_to_v02_conv_yc_to_cmpyc( data1_buf, new_ad );
					/* cmp. YCデータの計算し直し */
		/* movsb */
	i = cnv_movsb_0x2104(
	 i, 0, data2_buf, data1_buf, make_buf, check_buf );

	for( k=0 ; k<( v02xd * v02yd * 5 / 4 ) ; k++ )
	{
		BYTE( old_ad + k ) = BYTE( new_ad + k ) ;
	}			/* 次の処理のためにnew_adをold_adに */

	return i;
}

	/* サブ */
/* Y領域,C領域考慮して比較(ただしC領域は単純な比較のみ) 0:same 1:def. */

cnv_cmp_data( a, b, n, rate )
int a, b, n, rate;
{
	if( a == b )return 0;
	return 1 ;
}

	/* Yデータ作成のための変数の型の宣言 */

typedef struct
{
	int		start ;		/* 開始位置 */
	int		step ;		/* データ幅 */
	int		n ;			/* data総数 */
	int		d ;			/* 2dataの間の差 */
	int		p ;			/* 次のデータとの差(d)の境界線 */
	int		min ;		/* 守備範囲最小値 */
	int		max ;		/* 守備範囲最大値 */
	int		offset1 ;	/* offset1 */
	int		offset2 ;	/* offset2 */
} YDATA ;

static YDATA	ytpara[20] ;

/*
  d = 2data間の差, 
  step = ステップ, 
  n = data総数,
  offset1 = dataの存在するoffset1,
  offset2 = dataの存在するoffset2,
  start = 開始位置adjust,
  なおstartはY領域(0〜63)のデータの始まりの位置
	例えば 2data間の差=5, ステップ=3, data総数=38, start=2ならばデータは
	(2,7), (5,10), (8,13), … ,(56,61) [これはoffset1に収納されるデータ]
	(7,2), (10,5), (13,8), … ,(61,56) [これはoffset2に収納されるデータ]
*/

static int ytotal ;
static char ycnvtable[4096] ;

/*
   ytableテーブル( ｢8bit符号｣を｢6bit+6bitのy｣に変換するもの ), 
   ycnvtableテーブル( ｢6bit+6bitのy｣を｢8bit符号｣に変換するもの )の作成
*/
v00_to_v02_conv_ytable_set( ytable, ycnvtable )
char *ytable, *ycnvtable ;
{
	int d0, d1, d2, g, i, j, n, out, temp ;

	ytpara[0].start = 0 ; ytpara[0].step = 1 ; ytpara[0].n = 64 ;
	ytpara[0].d = 0 ; ytpara[0].p = 1 ;
	ytpara[0].min = 0 ; ytpara[0].max = 63 ;

	ytpara[1].start = 0 ; ytpara[1].step = 3 ; ytpara[1].n = 42 ;
	ytpara[1].d = 1 ; ytpara[1].p = 2 ;
	ytpara[1].min = 0 ; ytpara[1].max = 63 ;

	ytpara[2].start = 1 ; ytpara[2].step = 3 ; ytpara[2].n = 42 ;
	ytpara[2].d = 2 ; ytpara[2].p = 3 ;
	ytpara[2].min = 0 ; ytpara[2].max = 63 ;

	ytpara[3].start = 1 ; ytpara[3].step = 3 ; ytpara[3].n = 40 ;
	ytpara[3].d = 5 ; ytpara[3].p = 7 ;
	ytpara[3].min = 0 ; ytpara[3].max = 63 ;

	ytpara[4].start = 2 ; ytpara[4].step = 3 ; ytpara[4].n = 36 ;
	ytpara[4].d = 10 ; ytpara[4].p = 12 ;
	ytpara[4].min = 0 ; ytpara[4].max = 63 ;

	ytpara[5].start = 3 ; ytpara[5].step = 3 ; ytpara[5].n = 32 ;
	ytpara[5].d = 15 ; ytpara[5].p = 63 ;
	ytpara[5].min = 0 ; ytpara[5].max = 63 ;

	ytotal = 6 ;


		/* ytableテーブルの作成 */
	n = 0 ;
	/* 0番目は例外処理 */
	ytpara[0].offset1 = n ; ytpara[0].offset2 = n ;
	for( i=0 ; i<ytpara[0].n ; i++ )
	{
		d1 = i ;
		d2 = d1 ;
		WORD( ytable + 2*n ) = d1 + (d2 << 8) ;
		n++ ;
	}

	for( j=1 ; j<ytotal ; j++ )
	{
		ytpara[j].offset1 = n ;
		for( i=0 ; i<(ytpara[j].n/2) ; i++ )
		{
			d1 = i*ytpara[j].step +ytpara[j].start ;
			d2 = d1 + ytpara[j].d ;
			if( d1 > 63 )d1 = 63 ;
			if( d2 > 63 )d2 = 63 ;
			WORD( ytable + 2*n ) = d1 + (d2 << 8) ;
			n++ ;
		}

		ytpara[j].offset2 = n ;
		for( i=0 ; i<(ytpara[j].n/2) ; i++ )
		{
			d2 = i*ytpara[j].step +ytpara[j].start ;
			d1 = d2 + ytpara[j].d ;
			if( d1 > 63 )d1 = 63 ;
			if( d2 > 63 )d2 = 63 ;
			WORD( ytable + 2*n ) = d1 + (d2 << 8) ;
			n++ ;
		}
	}

		/* ycnvtableテーブルの作成 */
	for( i=0 ; i<4096 ; i++ )
	{
		int ds, dmin, dmax ;

		d1 = i & 0x3f ;
		d2 = (i >> 6) & 0x3f ;

		if( d1 > d2 )
		{
			ds = d1 - d2 ;
			dmin = d2 ;
			dmax = d1 ;
		}
		else
		{
			ds = d2 - d1 ;
			dmin = d1 ;
			dmax = d2 ;
		}

		if( ds == 0 )
		{
			v00_to_v02_conv_ytable_set_sub(d1,d2, 0, &d0,&g,&out) ;
		}

		if( ds == 1 )
		{
			if( (dmin % 3) == 0 )
			{
				v00_to_v02_conv_ytable_set_sub(d1,d2, 1, &d0,&g,&out) ;
				if( out )
					v00_to_v02_conv_ytable_set_sub(d1,d2, 0, &d0,&g,&out) ;
			}
			if( (dmin % 3) == 1 )
				v00_to_v02_conv_ytable_set_sub(d1,d2, 0, &d0,&g,&out) ;
			if( (dmin % 3) == 2 )
				v00_to_v02_conv_ytable_set_sub(d1,d2, 0, &d0,&g,&out) ;
		}

		if( ds == 2 )
		{
			if( (dmin % 3) == 0 )
			{
				v00_to_v02_conv_ytable_set_sub(d1,d2, 1, &d0,&g,&out) ;
				if( out )
					v00_to_v02_conv_ytable_set_sub(d1,d2, 0, &d0,&g,&out) ;
			}
			if( (dmin % 3) == 1 )
				v00_to_v02_conv_ytable_set_sub(d1,d2, 2, &d0,&g,&out) ;
			if( (dmin % 3) == 2 )
			{
				v00_to_v02_conv_ytable_set_sub(d1,d2, 1, &d0,&g,&out) ;
				if( out )
					v00_to_v02_conv_ytable_set_sub(d1,d2, 0, &d0,&g,&out) ;
			}
		}

		if( ds == 3 )
		{
			if( (dmin % 3) == 0 )
				v00_to_v02_conv_ytable_set_sub(d1,d2, 2, &d0,&g,&out) ;
			if( (dmin % 3) == 1 )
				v00_to_v02_conv_ytable_set_sub(d1,d2, 2, &d0,&g,&out) ;
			if( (dmin % 3) == 2 )
				v00_to_v02_conv_ytable_set_sub(d1,d2, 1, &d0,&g,&out) ;
		}

		if( ds == 4 )
		{
			if( (dmin % 3) == 0 )
				v00_to_v02_conv_ytable_set_sub(d1,d2, 2, &d0,&g,&out) ;
			if( (dmin % 3) == 1 )
				v00_to_v02_conv_ytable_set_sub(d1,d2, 3, &d0,&g,&out) ;
			if( (dmin % 3) == 2 )
				v00_to_v02_conv_ytable_set_sub(d1,d2, 3, &d0,&g,&out) ;
		}

		if( ds >= 5 )
		{
			for( j=3 ; j<ytotal ; j++ )
			{
			    temp = v00_to_v02_conv_ytable_set_sub(d1,d2, j, &d0,&g,&out);
		    	if( temp )
		    	{
		    		if( out )
		    		{
		    			for( j=j ; j>=4 ; j-- )
		    			{
		    				v00_to_v02_conv_ytable_set_sub(d1,d2, j,
															&d0,&g,&out) ;
							if( out == 0 )
								break ;
						}
					}
					break ;
				}
		    }
		}

		BYTE( ycnvtable + i ) = d0 ;
	}

	return 0 ;
}

	/* サブのサブ */
/*
	入力 int d1, d2; 輝度データ
	     int j;      順番(圧縮輝度データのグループ番号)
	     int *p;     輝度圧縮データ戻り値のポインター
	     int *g;     逆断層の定量用のポインター
	     int *out;	 0:守備範囲内 1:守備班以外

	出力 p           輝度圧縮データ戻り値
	     g			 逆断層の量
	     out;		 0:守備範囲内 1:守備班以外
	     return      0:番外
		     		 1:2つのデータの差がヒット

	(注意:番外の意味は指定された圧縮輝度データのグループ番号に当該なし)
*/
v00_to_v02_conv_ytable_set_sub( d1, d2, j, p, g, out )
int d1, d2, j, *p, *g, *out ;
{
	int d0, d3, ret ;
	int t1, t2, add, o ;

	ret = 0 ;
	add = 0 ;	/* 逆断層の足し算用 */
	d3 = d2 - d1;
	o = 0 ;

	/* 0番目は例外処理 */
	if( j == 0 )
	{
		if( (d3 >= -ytpara[0].p) && (d3 <= ytpara[0].p) )
			ret = 1 ;

		d0 = ( d1 + d2 + 1 )/2 ;

		if( d0 < 0 )
		{
			d0 = 0 ;
		}
		if( d0 > ytpara[0].n-1 )
		{
			d0 = ytpara[0].n-1 ;
		}
		d0 = d0 + ytpara[0].offset1 ;
	}
	else
	{
		if( (d3 >= -ytpara[j].p) && (d3 <= ytpara[j].p) )
			ret = 1 ;

		if( d3 >= 0 )
		{
			d0 = (d1+d2 - ytpara[j].d - ytpara[j].start*2 + ytpara[j].step)
						/( ytpara[j].step*2 ) ;

			if( d0 <  0 )
			{
				d0 = 0 ;
			}
			if( d0 > ytpara[j].n/2-1 )
			{
				d0 = ytpara[j].n/2-1 ;
			}

			if( (d1 < ytpara[j].min) || (d2 > ytpara[j].max) )
				o = 1 ;

				/* 逆断層のチェック */
			t1 = d0*ytpara[j].step + ytpara[j].start ;
			t2 = d0*ytpara[j].step + ytpara[j].start + ytpara[j].d ;
			if( t1 < d1 )
			{
				add = add + ( d1 - t1 ) ;
			}
			if( t2 > d2 )
			{
				add = add + ( t2 - d2 ) ;
			}

			/* 仕上げの時には必ず次の動作を削除しなけば危険!!!! */
//			if( v00_to_v02_conv_ytable_set_sub_ck( d1, d2, j, d0 ) )
//					EGB_init(guiEgbPtr, 1536) ;

			d0 = d0 + ytpara[j].offset1 ;
		}
		else
		{
			d0 = (d1+d2 - ytpara[j].d - ytpara[j].start*2 + ytpara[j].step)
						/( ytpara[j].step*2 ) ;

			if( d0 <  0 )
			{
				d0 = 0 ;
			}
			if( d0 > ytpara[j].n/2-1 )
			{
				d0 = ytpara[j].n/2-1 ;
			}

			if( (d2 < ytpara[j].min) || (d1 > ytpara[j].max) )
				o = 1 ;

				/* 逆断層のチェック */
			t1 = d0*ytpara[j].step + ytpara[j].start ;
			t2 = d0*ytpara[j].step + ytpara[j].start + ytpara[j].d ;
			if( t1 < d2 )
			{
				add = add + ( d2 - t1 ) ;
			}
			if( t2 > d1 )
			{
				add = add + ( t2 - d1 ) ;
			}

			/* 仕上げの時には必ず次の動作を削除しなけば危険!!!! */
//			if( v00_to_v02_conv_ytable_set_sub_ck( d1, d2, j, d0 ) )
//					EGB_init(guiEgbPtr, 1536) ;

			d0 = d0 + ytpara[j].offset2 ;
		}
	}

	*p = d0 ;
	*g = add ;
	*out = o ;
	return ret ;
}

/*
上の関数の結果が本当に最適値かどうかチェックするもの(最終的には無くてもよい)
	return値が0なら最適値, 0以外なら最適値に疑問あり
*/

/*
v00_to_v02_conv_ytable_set_sub_ck( d1, d2, j, d0 )
int d1, d2, j, d0 ;
{
	int t1, t2, x1, x2, add0, add1, i, ret ;

	add0 = 0 ;	ret = 0 ;

	if( d1 < d2 )
	{
		x1 = d1 ; x2 = d2 ;
	}
	else
	{
		x1 = d2 ; x2 = d1 ;
	}

	t1 = d0*ytpara[j].step + ytpara[j].start ;
	t2 = d0*ytpara[j].step + ytpara[j].start + ytpara[j].d ;

	if( t1 < x1 )
	{
		add0 = add0 + ( x1 - t1 ) ;
	}
	else
	{
		add0 = add0 + ( t1 - x1 ) ;
	}

	if( t2 > x2 )
	{
		add0 = add0 + ( t2 - x2 ) ;
	}
	else
	{
		add0 = add0 + ( x2 - t2 ) ;
	}

	for( i=0 ; i<ytpara[j].n/2 ; i++ )
	{
		add1 = 0 ;

		t1 = i*ytpara[j].step + ytpara[j].start ;
		t2 = i*ytpara[j].step + ytpara[j].start + ytpara[j].d ;

		if( t1 < x1 )
		{
			add1 = add1 + ( x1 - t1 ) ;
		}
		else
		{
			add1 = add1 + ( t1 - x1 ) ;
		}

		if( t2 > x2 )
		{
			add1 = add1 + ( t2 - x2 ) ;
		}
		else
		{
			add1 = add1 + ( x2 - t2 ) ;
		}

		if( add1 < add0 )
		{
			ret = 1 ;
			break ;
		}
	}

	return ret ;

}
*/

	/* サブ */
v00_to_v02_conv_yc_to_cmpyc( data1_buf, buf )
char *data1_buf, *buf;
{
	int d1, d2, n, i ;
	int total, g ;
	
	total = v02xd * v02yd / 2 ;
	n = 0;
	for( i=0 ; i<total ; i++ ){
		d1 = BYTE( buf + i*2 );
		d2 = BYTE( buf + i*2 + 1 );
		BYTE( data1_buf + n ) = BYTE( ycnvtable + d1 + (d2 << 6) ) ;
		n++;
	}
	for( i=0 ; i<( total >> 1 ) ; i++ ){
		BYTE( data1_buf + n ) = WORD( buf + (total << 1) + i );
		n++;
	}
	return 0;
}

	/* サブ */
v00_to_v02_conv_brg_to_yc( buf2, buf1, yc_buf )
char *buf2, *buf1, *yc_buf;
{
	int d0, d1, n, i, j, temp ;
	int xhf, yhf, total ;
	int b, r, g ;
	int d[4], yc, k;

	xhf = v02xd >> 1 ;
	yhf = v02yd >> 1 ;
	total = v02xd * v02yd ;
	n = 0;
	for( i=0 ; i<total ; i++ ){
		d0 = WORD( buf1 + i*2 ) & 0x7fff ;
		d1 = ( ( WORD( yc_buf + d0*2 ) & 0x3f00 ) >> 8 );
		BYTE( buf2 + n ) = d1;
		n++;
	}

	for( j=0 ; j<yhf ; j++ ){
		for( i=0 ; i<xhf ; i++ ){
			temp = j*v02xd*4 + i*4;

			d[0] = WORD( buf1 + temp ) & 0x7fff ;
			d[1] = WORD( buf1 + temp + 2 ) & 0x7fff ;
			d[2] = WORD( buf1 + temp + v02xd*2 ) & 0x7fff ;
			d[3] = WORD( buf1 + temp + v02xd*2+2 ) & 0x7fff ;

			b = 0; r =0; g = 0;
			for( k=0 ; k<4 ; k++ ){
				b += ( d[k] & 0x1f );
				r += ( (d[k] >> 5) & 0x1f );
				g += ( (d[k] >> 10) & 0x1f );
			}
			b = (b + 2) >> 2;
			r = (r + 2) >> 2;
			g = (g + 2) >> 2;
			yc =  WORD( yc_buf + (b + (r << 5) + (g << 10) )*2 );

			BYTE( buf2 + n ) = yc & 0xff ;
			n++;
		}
	}
	return 0;
}

	/* メイン1 */

	/* 終わりにEGB_writePage(guiEgbPtr,1)を実行する関数 */

v00_to_v02( name1, name2, flt, soft, color, mode, packmode )
char *name1, *name2 ;
int flt, soft, color, mode, packmode ;
{
	int ret ;

	ret = v00_to_v02_conv( name1, name2, flt, soft, color, mode, 0, packmode );
	EGB_writePage(guiEgbPtr,1);			/* mode3に書き込み */
	EGB_paintMode(guiEgbPtr,0x22);
	EGB_writeMode(guiEgbPtr,0);
	return ret ;
}

	/* 終わりにEGB_writePage(guiEgbPtr,1)を実行する関数 */
	/* テーブル参照 */

static char *v02table1 ;		/* yc to brg (32768) */
static char *v02table2 ;		/* y記号 to 00Y00Y (512) */
static char *brgtoyc ;			/* brg to yc (65536) */
static char *yytoy ;			/* YY to y記号 (4096) */

v00_to_v02_t( name1, name2, flt, soft, color, mode, table, packmode )
char *name1, *name2, *table ;
int flt, soft, color, mode, packmode ;
{
	int ret ;

	v02table1 = table ;
	v02table2 = v02table1 + 32768 ;
	brgtoyc   = v02table2 + 512   ;
	yytoy     = brgtoyc   + 65536 ;

	ret = v00_to_v02_conv( name1, name2, flt, soft, color, mode, 1, packmode );
	EGB_writePage(guiEgbPtr,1);			/* mode3に書き込み */
	EGB_paintMode(guiEgbPtr,0x22);
	EGB_writeMode(guiEgbPtr,0);
	return ret ;
}

	/* V00ファイル→V02ファイル(tbckはテーブル参照フラグ) */
	/* packmode 0:normal 1:瞬間圧縮 */
v00_to_v02_conv( name1, name2, flt, soft, color, mode, tbck, packmode )
char *name1, *name2 ;
int flt, soft, color, mode, tbck, packmode ;
{
	FILE *fp2, *fp1, *fps;
	char names[100];
	int sw, cx, cy;
	int wait ;
	int i, j, size, sndflg, count, error, step, rate ;
	int scount0, scount1, cmpmode;
	int bind_point, bind, bind_size, total, file_point, frame;
	int d0, d1;

	char para2[64];
	char head[256];
	char v00_head[256];
	char bind_head[32];
	char *buffer;		/* buffer */
	char *snd_buf, *buf, *new_ad, *old_ad,
	     *brg_buf, *ytable, *yc_buf, *data1_buf,
	     *make_buf, *check_buf, *data2_buf;	/* 差分圧縮用 */
	int  snd_b, buf_b, new_b, old_b, brg_b, ytab_b, yc_b, data1_b,
	     make_b, check_b, data2_b ;	   /* 移動補償の計算でワークに使う */

	rate = 0 ; step = 2 ;	/* ラフレート, 動き補償 (固定) */

	if( ( fp1 = fopen( name1, "rb" ) ) == NULL )return 1;
	if( fread( v00_head, 256, 1, fp1 ) < 1 ){	/* ヘッダー */
		fclose(fp1);
		return 1;
	}
	if
	(
	    (DWORD( v00_head +  0 ) == 0x30304456)	/* VD00 */
	 && (DWORD( v00_head + 12 ) == 0x80008000)	/* dataの種類番号 */
	)
	{
		v02xd = DWORD( v00_head + 16 );	/* 横 */
		v02yd = DWORD( v00_head + 20 );	/* 縦 */
		wait = DWORD( v00_head + 24 );	/* wait */
	}
	else
	{
		v02xd = 128;			/* 横 */
		v02yd = 96;			/* 縦 */
		wait = 6;
		fseek( fp1, 0, SEEK_SET );
	}

	if( ( fp2 = fopen( name2, "wb" ) ) == NULL ){
		fclose(fp1);
		return 2;
	}

	snd_b = 8000; buf_b = v02xd * v02yd * 2 ;
	new_b = v02xd * v02yd * 5 / 4 * 4 ; /* 注意 4つ入らないとだめ!! */
	old_b = v02xd * v02yd * 5 / 4 ;
	brg_b = 32768 ;
	ytab_b = 512 ;
	yc_b = 65536 ;
	data1_b = v02xd * v02yd * 3 / 4 ;
	make_b =  v02xd * v02yd * 3 / 4 ;
	check_b = v02xd * v02yd * 3 / 4 ;
	data2_b = v02xd * v02yd * 4 + 0x1000 ;

	size = snd_b + buf_b + new_b + old_b
	+ brg_b + ytab_b + yc_b + data1_b + make_b + check_b + data2_b;
	if( (buffer = (char *)TL_malloc( size )) == NULL ){
		fclose(fp2);
		fclose(fp1);
		return 7;			/* out of memory */
	}
	snd_buf = buffer;
	buf     = snd_buf + snd_b; 	/* RGB org.(128*96*2) */
	new_ad  = buf + buf_b;		/* YC org.(15360) */
	old_ad  = new_ad + new_b;	/* YC 前frame(15360) */
	brg_buf = old_ad + old_b;
	ytable  = brg_buf + brg_b;
	yc_buf  = ytable + ytab_b;
	data1_buf = yc_buf + yc_b;
	make_buf = data1_buf + data1_b;
	check_buf = make_buf + make_b;
	data2_buf = check_buf + check_b;

	sndflg = 0;
	if( file_kakuchousi_set( names, name1, ".SND" ) )goto vd01;
	if( ( fps = fopen( names, "rb" ) ) == NULL )goto vd01;
	if( fread( buf, 32, 1, fps ) < 1 ){
		fclose(fps);
	}
	else sndflg = 1;			/* pcm ok */

	if( sndflg )	/* sound 先送り */
	{
		if( DWORD( buf+16 ) )
			fseek( fps, DWORD( buf+16 ), SEEK_CUR );
	}
		/* head */
vd01:	file_point = 0;
	for( i=0 ; i<64 ; i++ )DWORD( head + i*4 ) = 0;
	DWORD( head ) = 0x32304456;		/* ID = VD02 */
/*	DWORD( head + 4 ) total length	 */
/*	DWORD( head + 8 ) total frame	 */
	DWORD( head + 12 ) = 6;		/* dataの種類番号(bit/ピクセル) */
	DWORD( head + 16 ) = v02xd;		/* 横 */
	DWORD( head + 20 ) = v02yd;		/* 縦 */
	DWORD( head + 24 ) = wait;		/* wait */
	DWORD( head + 28 ) = 8;			/* バインダ内こま数 */
	DWORD( head + 32 ) = 8000*6/wait;	/* sound samp. freq */
	DWORD( head + 36 ) = 6400;		/* バインダ内snd data Byte数 */
	if( fwrite( head, 256, 1, fp2 ) < 1 ){	/* ヘッダー */
		error = 2;			/* 2 = error num. */
		goto vd10;
	}
	file_point += 256;
	total = 0;

/*	テーブルの設定1 */
	if( tbck )
	{
		for( j=0 ; j<32768 ; j += 4 )
			DWORD( brg_buf + j ) = DWORD( v02table1 + j ) ;
	}
	else
		v00_to_v02_conv_brg_set_buffer( brg_buf, color );
/* brg data set */

	if( fwrite( brg_buf, 16384*2, 1, fp2 ) < 1 ){	/* パレット1 */
		error = 2;			/* 2 = error num. */
		goto vd10;
	}
	file_point += 32768;
	total += 32768;

/*	テーブルの設定2 */
	if( tbck )
	{
		for( j=0 ; j<512 ; j += 4 )
			DWORD( ytable + j ) = DWORD( v02table2 + j ) ;
		for( j=0 ; j<4096 ; j += 4 )
			DWORD( ycnvtable + j ) = DWORD( yytoy + j ) ;
	}
	else
		v00_to_v02_conv_ytable_set( ytable, ycnvtable ) ;
/* ycnvtableとはy記号変換するためのtableでこのソース内のstatic char *変数 */

	if( fwrite( ytable, 512, 1, fp2 ) < 1 ){	/* パレット2 */
		error = 2;			/* 2 = error num. */
		goto vd10;
	}
	file_point += 512;
	total += 512;

/*	テーブルの設定3 */
	if( tbck )
	{
		for( j=0 ; j<65536 ; j += 4 )
			DWORD( yc_buf + j ) = DWORD( brgtoyc + j ) ;
	}
	else
		v00_to_v02_conv_yc_set_buffer( yc_buf, brg_buf, color );

/* yc data set */
	EGB_writePage(guiEgbPtr,0);
	EGB_color( guiEgbPtr, 1, 0 ) ;
	EGB_clearScreen( guiEgbPtr ) ;

	EGB_displayStart(guiEgbPtr,3,0,0);
	EGB_displayStart(guiEgbPtr,2,1,1);
	EGB_displayStart(guiEgbPtr,2,2,2);
	EGB_displayStart(guiEgbPtr,0,(320 - (v02xd))/2,(240 - (v02yd))/2);
	EGB_displayStart(guiEgbPtr,1,0,0);
	EGB_displayStart(guiEgbPtr,3,v02xd,v02yd);
	bind = 0;	/* バインダーカウント */
	frame = 0;	/* frameカウント */
	scount0 = v02xd*v02yd*4+100;	/* 前の絵と同じポイントのカウンター */
	while( 1 ){
			/* bind_head */
		bind_point = file_point;
		for( i=0 ; i<8 ; i++ )DWORD( bind_head + i*4 ) = 0;
		DWORD( bind_head ) = bind;
			/* sound read */
		for( i=0 ; i<1600 ; i++ )DWORD( snd_buf + i*4 ) = 0x80808080;
		if( sndflg ){
			if( fread( snd_buf, 6400, 1, fps ) < 1 ){
				fclose(fps);
				sndflg = 0;
			}
		}
		bind_size = 0;		/* バインダー内data長カウント */
		count = 0;		/* バインダー内のframeカウント */

	vd03:	MOS_rdpos(&sw,&cx,&cy);	/* sw == 3なら終了 */
		if( ( fread( buf,  v02xd * v02yd * 2, 1, fp1 ) < 1 )
		 || ( sw == 3 ) ){
				/* 終了 */
		    if( count != 0 ){	/* bindの途中なら修正あり */
				/* bind head 修正 */
			fseek( fp2, bind_point, SEEK_SET );
			DWORD( bind_head + 4 ) = bind_size;
			if( fwrite( bind_head, 32, 1, fp2 ) < 1 ){
				error = 2;	/* 2 = can't save */
				break;
			}
				/* total data size 修正 */
			fseek( fp2, 0, SEEK_SET );
			DWORD( head+4 ) = total;		/* data size */
			DWORD( head+8 ) = frame;		/* bind */
			if( fwrite( head, 256, 1, fp2 ) < 1 ){	/* ヘッダー */
				error = 2;	/* 2 = error num. */
				break;
			}
		    }
		    error = 0;	/* 原画は全部読み切った(no error) */
		    break;		/* 終了 */
		}
		if( count == 0 ){
				/* bind head 登録 */
			if( fwrite( bind_head, 32, 1, fp2 ) < 1 ){
				error = 2;
				break;
			}
			file_point += 32;
			total += 32;
				/* sound 登録 */
			if( fwrite( snd_buf, 6400, 1, fp2 ) < 1 ){
				error = 2;	/* 2 = can't save */
				break;
			}
			file_point += 6400;
			total += 6400;
			bind_size += 6400;
		}
			/* buf(原画) -> buf(yc-data) */
		v00_to_v02_conv_brg_to_yc( new_ad, buf, yc_buf );
			/* 前の絵と同じ点をカウント */
		scount1 = 0;
		for( i=0 ; i<v02xd*v02yd ; i++ ){
		    d0 = BYTE( new_ad + i ) - BYTE( old_ad + i );
		    if( d0>-2 && d0<2 )scount1++;
		}
		if( scount1 < (scount0 >> 2) )cmpmode = 0;
		else cmpmode = 1;
		scount0 = scount1;
		if( frame == 0 )
			scount0 = 0;
			/* 圧縮 */
		if( packmode )	/* 瞬間圧縮 */
		{
			size = v00_to_v02_conv_cmp3(
			flt, rate, step, soft, mode, data2_buf,
			new_ad, old_ad, data1_buf, make_buf, check_buf
			);
		}
		else			/* normal */
		{
			if( cmpmode == 0 ){
				size = v00_to_v02_conv_cmp1(
				flt, rate, step, soft, mode, data2_buf,
				new_ad, old_ad, data1_buf, make_buf, check_buf
				);
			}
			else {
				size = v00_to_v02_conv_cmp2(
				flt, rate, step, soft, mode, data2_buf,
				new_ad, old_ad, data1_buf, make_buf, check_buf
				);
			}
		}

			/* check */
		VSYNC_counter = 0;
		DWORD(para2+0) = (int)make_buf;
		DWORD(para2+4) = (int)brg_buf;
		DWORD(para2+8) = 100;
		DWORD(para2+12) = 0;
		DWORD(para2+16) = v02xd;
		DWORD(para2+20) = v02yd;
		vd_01_2( para2 );

		v_cmp_frame_dsp( frame ) ;

		if( fwrite( data2_buf, size, 1, fp2 ) < 1 ){
			error = 2;	/* 2 = can't save */
			break;
		}
		file_point = file_point + size;
		total = total + size;
		bind_size = bind_size + size;
		count++;
		frame++;
		if( count < 8 )goto vd03;

		bind++;
			/* bind head 修正 */
		fseek( fp2, bind_point, SEEK_SET );
		DWORD( bind_head + 4 ) = bind_size;
		if( fwrite( bind_head, 32, 1, fp2 ) < 1 ){
			error = 2;	/* 2 = can't save */
			break;
		}
			/* total data size 修正 */
		fseek( fp2, 0, SEEK_SET );
		DWORD( head+4 ) = total;		/* data size */
		DWORD( head+8 ) = frame;		/* bind */
		if( fwrite( head, 256, 1, fp2 ) < 1 ){	/* ヘッダー */
			error = 2;	/* 2 = error num. */
			break;
		}

		/*
			 1bind終わるごとにしめる
			( 停電で止まってもそれまでのdataを残すため)
		*/

		fclose(fp2);
		if( ( fp2 = fopen( name2, "r+b" ) ) == NULL ){
			TL_free( buffer );
			fclose(fp1);
			if( sndflg )fclose( fps );
			return 2;
		}
		fseek( fp2, file_point, SEEK_SET );
	}
vd10:	TL_free( buffer );
	fclose(fp2);
	fclose(fp1);
	if( sndflg )fclose( fps );
	return error;
}

	/* メイン2 */

	/* 終わりにEGB_writePage(guiEgbPtr,1)を実行する関数 */

mvb_to_v02( name1, name2, flt, soft, color, mode, packmode )
char *name1, *name2 ;
int flt, soft, color, mode, packmode ;
{
	int ret ;

	ret = mvb_to_v02_conv( name1, name2, flt, soft, color, mode, 0, packmode );
	EGB_writePage(guiEgbPtr,1);			/* mode3に書き込み */
	EGB_paintMode(guiEgbPtr,0x22);
	EGB_writeMode(guiEgbPtr,0);
	return ret ;
}

	/* 終わりにEGB_writePage(guiEgbPtr,1)を実行する関数 */
	/* テーブル参照 */

mvb_to_v02_t( name1, name2, flt, soft, color, mode, table, packmode )
char *name1, *name2, *table ;
int flt, soft, color, mode, packmode ;
{
	int ret ;

	v02table1 = table ;
	v02table2 = v02table1 + 32768 ;
	brgtoyc   = v02table2 + 512   ;
	yytoy     = brgtoyc   + 65536 ;

	ret = mvb_to_v02_conv( name1, name2, flt, soft, color, mode, 1, packmode );
	EGB_writePage(guiEgbPtr,1);			/* mode3に書き込み */
	EGB_paintMode(guiEgbPtr,0x22);
	EGB_writeMode(guiEgbPtr,0);
	return ret ;
}

	/* mvbファイル→V02ファイル(tbckはテーブル参照フラグ) */
	/* packmode 0:normal 1:瞬間圧縮 */
mvb_to_v02_conv( name1, name2, flt, soft, color, mode, tbck, packmode )
char *name1, *name2 ;
int flt, soft, color, mode, tbck, packmode ;
{
	FILE *fp2, *fp1, *fps;
	char names[100];
	int sw, cx, cy;
	int wait, freq, sndpack ;
	int i, j, size, sndflg, count, error, step, rate ;
	int scount0, scount1, cmpmode;
	int bind_point, bind, bind_size, total, file_point, frame;
	int d0, d1;

	char para2[64];
	char head[256];
	char mvb_head[24];
	char bind_head[32];
	char *buffer;		/* buffer */
	char *snd_buf, *buf, *new_ad, *old_ad,
	     *brg_buf, *ytable, *yc_buf, *data1_buf,
	     *make_buf, *check_buf, *data2_buf;	/* 差分圧縮用 */
	int  snd_b, buf_b, new_b, old_b, brg_b, ytab_b, yc_b, data1_b,
	     make_b, check_b, data2_b ;	   /* 移動補償の計算でワークに使う */

	rate = 0 ; step = 2 ;	/* ラフレート, 動き補償 (固定) */

	if( ( fp1 = fopen( name1, "rb" ) ) == NULL )return 1;
	if( fread( mvb_head, 24, 1, fp1 ) < 1 ){	/* ヘッダー */
		fclose(fp1);
		return 1;
	}
	if( DWORD( mvb_head + 0 ) == 0x50414d42 )	/* BMAP */
	{
		v02xd = DWORD( mvb_head + 8 );	/* 横 */
		v02yd = DWORD( mvb_head + 12 );	/* 縦 */
		wait
		 = ( 600 +  DWORD( mvb_head + 20 )/2 )
		 / DWORD( mvb_head + 20 ) ; 		/* wait */
	}
	else
	{
		fclose(fp1);
		return 58;	/* データの形式が違うエラー */
	}
	if( DWORD( mvb_head + 4 ) != 0x00000014 )	/* headの大きさ */
	{
		fseek( fp1, DWORD( mvb_head + 4 ) + 4, SEEK_SET );
	}

	if( ( fp2 = fopen( name2, "wb" ) ) == NULL ){
		fclose(fp1);
		return 2;
	}

	snd_b = 19200;
	buf_b = v02xd * v02yd * 2 ;
	new_b = v02xd * v02yd * 5 / 4 * 4 ; /* 注意 4つ入らないとだめ!! */
	old_b = v02xd * v02yd * 5 / 4 ;
	brg_b = 32768 ;
	ytab_b = 512 ;
	yc_b = 65536 ;
	data1_b = v02xd * v02yd * 3 / 4 ;
	make_b =  v02xd * v02yd * 3 / 4 ;
	check_b = v02xd * v02yd * 3 / 4 ;
	data2_b = v02xd * v02yd * 4 + 0x1000 ;

	size = snd_b + buf_b + new_b + old_b
	+ brg_b + ytab_b + yc_b + data1_b + make_b + check_b + data2_b;
	if( (buffer = (char *)TL_malloc( size )) == NULL ){
		fclose(fp2);
		fclose(fp1);
		return 7;			/* out of memory */
	}
	snd_buf = buffer;
	buf     = snd_buf + snd_b; 	/* RGB org.(128*96*2) */
	new_ad  = buf + buf_b;		/* YC org.(15360) */
	old_ad  = new_ad + new_b;	/* YC 前frame(15360) */
	brg_buf = old_ad + old_b;
	ytable  = brg_buf + brg_b;
	yc_buf  = ytable + ytab_b;
	data1_buf = yc_buf + yc_b;
	make_buf = data1_buf + data1_b;
	check_buf = make_buf + make_b;
	data2_buf = check_buf + check_b;

	sndflg = 0;
	if( file_kakuchousi_set( names, name1, ".SND" ) )goto vd01;
	if( ( fps = fopen( names, "rb" ) ) == NULL )goto vd01;
	if( fread( buf, 32, 1, fps ) < 1 ){
		fclose(fps);
	}
	else sndflg = 1;			/* pcm ok */

vd01:	if( sndflg )	/* sound 先送り */
	{
		if( DWORD( buf+16 ) )
			fseek( fps, DWORD( buf+16 ), SEEK_CUR );
	}

	freq = 9600 ;
	if( sndflg )
	{
		freq = ( ( WORD( buf+24 )*10 + 0x31 ) / 0x62 ) * 100 ;
	}
	if( freq < 0 )freq = 9600 ;
	if( freq > 19200 )freq = 19200 ;
	sndpack = freq * wait * 8 / 60 ;

		/* head */
	file_point = 0;
	for( i=0 ; i<64 ; i++ )DWORD( head + i*4 ) = 0;
	DWORD( head ) = 0x32304456;		/* ID = VD02 */
/*	DWORD( head + 4 ) total length	 */
/*	DWORD( head + 8 ) total frame	 */
	DWORD( head + 12 ) = 7;		/* dataの種類番号(bit/ピクセル) */
	DWORD( head + 16 ) = v02xd;		/* 横 */
	DWORD( head + 20 ) = v02yd;		/* 縦 */
	DWORD( head + 24 ) = wait;		/* wait */
	DWORD( head + 28 ) = 8;			/* バインダ内こま数 */
	DWORD( head + 32 ) = freq;		/* sound samp. freq */
	DWORD( head + 36 ) = sndpack;		/* バインダ内snd data Byte数 */

	if( fwrite( head, 256, 1, fp2 ) < 1 ){	/* ヘッダー */
		error = 2;			/* 2 = error num. */
		goto vd10;
	}
	file_point += 256;
	total = 0;

/*	テーブルの設定1 */
	if( tbck )
	{
		for( j=0 ; j<32768 ; j += 4 )
			DWORD( brg_buf + j ) = DWORD( v02table1 + j ) ;
	}
	else
		v00_to_v02_conv_brg_set_buffer( brg_buf, color );
/* brg data set */

	if( fwrite( brg_buf, 16384*2, 1, fp2 ) < 1 ){	/* パレット1 */
		error = 2;			/* 2 = error num. */
		goto vd10;
	}
	file_point += 32768;
	total += 32768;

/*	テーブルの設定2 */
	if( tbck )
	{
		for( j=0 ; j<512 ; j += 4 )
			DWORD( ytable + j ) = DWORD( v02table2 + j ) ;
		for( j=0 ; j<4096 ; j += 4 )
			DWORD( ycnvtable + j ) = DWORD( yytoy + j ) ;
	}
	else
		v00_to_v02_conv_ytable_set( ytable, ycnvtable ) ;
/* ycnvtableとはy記号変換するためのtableでこのソース内のstatic char *変数 */

	if( fwrite( ytable, 512, 1, fp2 ) < 1 ){	/* パレット2 */
		error = 2;			/* 2 = error num. */
		goto vd10;
	}
	file_point += 512;
	total += 512;

/*	テーブルの設定3 */
	if( tbck )
	{
		for( j=0 ; j<65536 ; j += 4 )
			DWORD( yc_buf + j ) = DWORD( brgtoyc + j ) ;
	}
	else
		v00_to_v02_conv_yc_set_buffer( yc_buf, brg_buf, color );

/* yc data set */
	EGB_writePage(guiEgbPtr,0);
	EGB_color( guiEgbPtr, 1, 0 ) ;
	EGB_clearScreen( guiEgbPtr ) ;

	EGB_displayStart(guiEgbPtr,3,0,0);
	EGB_displayStart(guiEgbPtr,2,1,1);
	EGB_displayStart(guiEgbPtr,2,2,2);
	EGB_displayStart(guiEgbPtr,0,(320 - (v02xd))/2,(240 - (v02yd))/2);
	EGB_displayStart(guiEgbPtr,1,0,0);
	EGB_displayStart(guiEgbPtr,3,v02xd,v02yd);

	bind = 0;	/* バインダーカウント */
	frame = 0;	/* frameカウント */
	scount0 = v02xd*v02yd*4+100;	/* 前の絵と同じポイントのカウンター */
	while( 1 ){
			/* bind_head */
		bind_point = file_point;
		for( i=0 ; i<8 ; i++ )DWORD( bind_head + i*4 ) = 0;
		DWORD( bind_head ) = bind;
			/* sound read */
		for( i=0 ; i<sndpack ; i++ )BYTE( snd_buf + i ) = 0x80 ;
		if( sndflg ){
			if( fread( snd_buf, sndpack, 1, fps ) < 1 ){
				fclose(fps);
				sndflg = 0;
			}
		}
		bind_size = 0;		/* バインダー内data長カウント */
		count = 0;		/* バインダー内のframeカウント */

	vd03:	MOS_rdpos(&sw,&cx,&cy);	/* sw == 3なら終了 */
		if( ( fread( buf,  v02xd * v02yd * 2, 1, fp1 ) < 1 )
		 || ( sw == 3 ) ){
				/* 終了 */
		    if( count != 0 ){	/* bindの途中なら修正あり */
				/* bind head 修正 */
			fseek( fp2, bind_point, SEEK_SET );
			DWORD( bind_head + 4 ) = bind_size;
			if( fwrite( bind_head, 32, 1, fp2 ) < 1 ){
				error = 2;	/* 2 = can't save */
				break;
			}
				/* total data size 修正 */
			fseek( fp2, 0, SEEK_SET );
			DWORD( head+4 ) = total;		/* data size */
			DWORD( head+8 ) = frame;		/* bind */
			if( fwrite( head, 256, 1, fp2 ) < 1 ){	/* ヘッダー */
				error = 2;	/* 2 = error num. */
				break;
			}
		    }
		    error = 0;	/* 原画は全部読み切った(no error) */
		    break;		/* 終了 */
		}
		if( count == 0 ){
				/* bind head 登録 */
			if( fwrite( bind_head, 32, 1, fp2 ) < 1 ){
				error = 2;
				break;
			}
			file_point += 32;
			total += 32;
				/* sound 登録 */
			if( fwrite( snd_buf, sndpack, 1, fp2 ) < 1 ){
				error = 2;	/* 2 = can't save */
				break;
			}
			file_point += sndpack;
			total += sndpack;
			bind_size += sndpack;
		}
			/* buf(原画) -> buf(yc-data) */
		v00_to_v02_conv_brg_to_yc( new_ad, buf, yc_buf );
			/* 前の絵と同じ点をカウント */
		scount1 = 0;
		for( i=0 ; i<v02xd*v02yd ; i++ ){
		    d0 = BYTE( new_ad + i ) - BYTE( old_ad + i );
		    if( d0>-2 && d0<2 )scount1++;
		}
		if( scount1 < (scount0 >> 2) )cmpmode = 0;
		else cmpmode = 1;
		scount0 = scount1;
		if( frame == 0 )
			scount0 = 0;

			/* 圧縮 */
		if( packmode )	/* 瞬間圧縮 */
		{
			size = v00_to_v02_conv_cmp3(
			flt, rate, step, soft, mode, data2_buf,
			new_ad, old_ad, data1_buf, make_buf, check_buf
			);
		}
		else			/* normal */
		{
			if( cmpmode == 0 ){
				size = v00_to_v02_conv_cmp1(
				flt, rate, step, soft, mode, data2_buf,
				new_ad, old_ad, data1_buf, make_buf, check_buf
				);
			}
			else {
				size = v00_to_v02_conv_cmp2(
				flt, rate, step, soft, mode, data2_buf,
				new_ad, old_ad, data1_buf, make_buf, check_buf
				);
			}
		}

			/* check */
		VSYNC_counter = 0;
		DWORD(para2+0) = (int)make_buf;
		DWORD(para2+4) = (int)brg_buf;
		DWORD(para2+8) = 100;
		DWORD(para2+12) = 0;
		DWORD(para2+16) = v02xd;
		DWORD(para2+20) = v02yd;
		vd_01_2( para2 );

		v_cmp_frame_dsp( frame ) ;

		if( fwrite( data2_buf, size, 1, fp2 ) < 1 ){
			error = 2;	/* 2 = can't save */
			break;
		}
		file_point = file_point + size;
		total = total + size;
		bind_size = bind_size + size;
		count++;
		frame++;
		if( count < 8 )goto vd03;

		bind++;
			/* bind head 修正 */
		fseek( fp2, bind_point, SEEK_SET );
		DWORD( bind_head + 4 ) = bind_size;
		if( fwrite( bind_head, 32, 1, fp2 ) < 1 ){
			error = 2;	/* 2 = can't save */
			break;
		}
			/* total data size 修正 */
		fseek( fp2, 0, SEEK_SET );
		DWORD( head+4 ) = total;		/* data size */
		DWORD( head+8 ) = frame;		/* bind */
		if( fwrite( head, 256, 1, fp2 ) < 1 ){	/* ヘッダー */
			error = 2;	/* 2 = error num. */
			break;
		}

		/*
			 1bind終わるごとにしめる
			( 停電で止まってもそれまでのdataを残すため)
		*/

		fclose(fp2);
		if( ( fp2 = fopen( name2, "r+b" ) ) == NULL ){
			TL_free( buffer );
			fclose(fp1);
			if( sndflg )fclose( fps );
			return 2;
		}
		fseek( fp2, file_point, SEEK_SET );
	}
vd10:	TL_free( buffer );
	fclose(fp2);
	fclose(fp1);
	if( sndflg )fclose( fps );
	return error;
}


	/* メイン3 */

	/* 終わりにEGB_writePage(guiEgbPtr,1)を実行する関数 */

v02_to_v02( name1, name2, flt, soft, color, mode )
char *name1, *name2 ;
int flt, soft, color, mode ;
{
	int ret ;

	ret = v02_to_v02_conv( name1, name2, flt, soft, color, mode, 0 ) ;
	EGB_writePage(guiEgbPtr,1);			/* mode3に書き込み */
	EGB_paintMode(guiEgbPtr,0x22);
	EGB_writeMode(guiEgbPtr,0);
	return ret ;
}

	/* 終わりにEGB_writePage(guiEgbPtr,1)を実行する関数 */
	/* テーブル参照 */

v02_to_v02_t( name1, name2, flt, soft, color, mode, table )
char *name1, *name2, *table ;
int flt, soft, color, mode ;
{
	int ret ;

	v02table1 = table ;
	v02table2 = v02table1 + 32768 ;
	brgtoyc   = v02table2 + 512   ;
	yytoy     = brgtoyc   + 65536 ;

	ret = v02_to_v02_conv( name1, name2, flt, soft, color, mode, 1 ) ;
	EGB_writePage(guiEgbPtr,1);			/* mode3に書き込み */
	EGB_paintMode(guiEgbPtr,0x22);
	EGB_writeMode(guiEgbPtr,0);
	return ret ;
}

	/* v02ファイル→V02ファイル(tbckはテーブル参照フラグ) */
v02_to_v02_conv( name1, name2, flt, soft, color, mode, tbck )
char *name1, *name2 ;
int flt, soft, color, mode, tbck ;
{
	FILE *fp2, *fp1 ;
	int sw, cx, cy;
	int wait, freq, sndpack ;
	int i, j, size, count, error, step, rate ;
	int scount0, scount1, cmpmode;
	int bind_point, bind, bind_size, total, file_point, frame;
	int d0, d1;
	int ret, koma ;

	char para2[64];
	char head[256];
	char v02_head[256];
	char bind_head[32];
	char *buffer;		/* buffer */
	char *snd_buf, *buf, *new_ad, *old_ad,
	     *brg_buf, *ytable, *yc_buf, *data1_buf,
	     *make_buf, *check_buf, *data2_buf;	/* 差分圧縮用 */
	int  snd_b, buf_b, new_b, old_b, brg_b, ytab_b, yc_b, data1_b,
	     make_b, check_b, data2_b ;	   /* 移動補償の計算でワークに使う */

	rate = 0 ; step = 2 ;	/* ラフレート, 動き補償 (固定) */

	if( ( fp1 = fopen( name1, "rb" ) ) == NULL )return 1;
	if( fread( v02_head, 256, 1, fp1 ) < 1 ){	/* ヘッダー */
		fclose(fp1);
		return 1;
	}
	if( DWORD( v02_head + 0 ) == 0x32304456 )	/* VD02 */
	{
		v02xd = DWORD( v02_head + 16 );	/* 横 */
		v02yd = DWORD( v02_head + 20 );	/* 縦 */
		wait = DWORD( v02_head + 24 ) ; /* wait */
		koma = DWORD( v02_head + 28 ) ; /* bind koma */
		if( koma == 0 )koma = 8 ;
		freq = DWORD( v02_head + 32 ) ;
		sndpack = DWORD( v02_head + 36 ) ;
		if( sndpack == 0 )sndpack = 6400 ;
	}
	else
	{
		fclose(fp1);
		return 58;	/* データの形式が違うエラー */
	}
	fclose(fp1);
	ret = v02_1step_open( name1 ) ;
	if( ret )return ret ;

	if( ( fp2 = fopen( name2, "wb" ) ) == NULL )
	{
		v02_1step_close() ;
		return 2;
	}

	snd_b = sndpack;
	buf_b = v02xd * v02yd * 2 ;
	new_b = v02xd * v02yd * 5 / 4 * 4 ; /* 注意 4つ入らないとだめ!! */
	old_b = v02xd * v02yd * 5 / 4 ;
	brg_b = 32768 ;
	ytab_b = 512 ;
	yc_b = 65536 ;
	data1_b = v02xd * v02yd * 3 / 4 ;
	make_b =  v02xd * v02yd * 3 / 4 ;
	check_b = v02xd * v02yd * 3 / 4 ;
	data2_b = v02xd * v02yd * 4 + 0x1000 ;

	size = snd_b + buf_b + new_b + old_b
	+ brg_b + ytab_b + yc_b + data1_b + make_b + check_b + data2_b;
	if( (buffer = (char *)TL_malloc( size )) == NULL ){
		v02_1step_close() ;
		fclose(fp2);
		return 7;			/* out of memory */
	}
	snd_buf = buffer;
	buf     = snd_buf + snd_b; 	/* RGB org.(128*96*2) */
	new_ad  = buf + buf_b;		/* YC org.(15360) */
	old_ad  = new_ad + new_b;	/* YC 前frame(15360) */
	brg_buf = old_ad + old_b;
	ytable  = brg_buf + brg_b;
	yc_buf  = ytable + ytab_b;
	data1_buf = yc_buf + yc_b;
	make_buf = data1_buf + data1_b;
	check_buf = make_buf + make_b;
	data2_buf = check_buf + check_b;

		/* head */
	file_point = 0;
	for( i=0 ; i<64 ; i++ )DWORD( head + i*4 ) = 0;
	DWORD( head ) = 0x32304456;		/* ID = VD02 */
/*	DWORD( head + 4 ) total length	 */
/*	DWORD( head + 8 ) total frame	 */
	if( sndpack == 6400 )
		DWORD( head + 12 ) = 6;		/* dataの種類番号(bit/ピクセル) */
	else
		DWORD( head + 12 ) = 7;		/* dataの種類番号(bit/ピクセル) */
	DWORD( head + 16 ) = v02xd;		/* 横 */
	DWORD( head + 20 ) = v02yd;		/* 縦 */
	DWORD( head + 24 ) = wait;		/* wait */
	DWORD( head + 28 ) = koma;			/* バインダ内こま数 */
	DWORD( head + 32 ) = freq;		/* sound samp. freq */
	DWORD( head + 36 ) = sndpack;		/* バインダ内snd data Byte数 */

	if( fwrite( head, 256, 1, fp2 ) < 1 ){	/* ヘッダー */
		error = 2;			/* 2 = error num. */
		goto vd10;
	}
	file_point += 256;
	total = 0;

/*	テーブルの設定1 */
	if( tbck )
	{
		for( j=0 ; j<32768 ; j += 4 )
			DWORD( brg_buf + j ) = DWORD( v02table1 + j ) ;
	}
	else
		v00_to_v02_conv_brg_set_buffer( brg_buf, color );
/* brg data set */

	if( fwrite( brg_buf, 16384*2, 1, fp2 ) < 1 ){	/* パレット1 */
		error = 2;			/* 2 = error num. */
		goto vd10;
	}
	file_point += 32768;
	total += 32768;

/*	テーブルの設定2 */
	if( tbck )
	{
		for( j=0 ; j<512 ; j += 4 )
			DWORD( ytable + j ) = DWORD( v02table2 + j ) ;
		for( j=0 ; j<4096 ; j += 4 )
			DWORD( ycnvtable + j ) = DWORD( yytoy + j ) ;
	}
	else
		v00_to_v02_conv_ytable_set( ytable, ycnvtable ) ;
/* ycnvtableとはy記号変換するためのtableでこのソース内のstatic char *変数 */

	if( fwrite( ytable, 512, 1, fp2 ) < 1 ){	/* パレット2 */
		error = 2;			/* 2 = error num. */
		goto vd10;
	}
	file_point += 512;
	total += 512;

/*	テーブルの設定3 */
	if( tbck )
	{
		for( j=0 ; j<65536 ; j += 4 )
			DWORD( yc_buf + j ) = DWORD( brgtoyc + j ) ;
	}
	else
		v00_to_v02_conv_yc_set_buffer( yc_buf, brg_buf, color );

/* yc data set */
	EGB_writePage(guiEgbPtr,0);
	EGB_color( guiEgbPtr, 1, 0 ) ;
	EGB_clearScreen( guiEgbPtr ) ;

	EGB_displayStart(guiEgbPtr,3,0,0);
	EGB_displayStart(guiEgbPtr,2,1,1);
	EGB_displayStart(guiEgbPtr,2,2,2);
	EGB_displayStart(guiEgbPtr,0,(320 - (v02xd))/2,(240 - (v02yd))/2);
	EGB_displayStart(guiEgbPtr,1,0,0);
	EGB_displayStart(guiEgbPtr,3,v02xd,v02yd);
	bind = 0;	/* バインダーカウント */
	frame = 0;	/* frameカウント */
	scount0 = v02xd*v02yd*4+100;	/* 前の絵と同じポイントのカウンター */
	while( 1 ){
			/* bind_head */
		bind_point = file_point;
		for( i=0 ; i<8 ; i++ )DWORD( bind_head + i*4 ) = 0;
		DWORD( bind_head ) = bind;
			/* sound read */
		v02_1step_snd( snd_buf ) ;
		bind_size = 0;		/* バインダー内data長カウント */
		count = 0;		/* バインダー内のframeカウント */

	vd03:
		MOS_rdpos(&sw,&cx,&cy);	/* sw == 3なら終了 */
		ret = v02_1step_frame( buf ) ;
		if( ret || ( sw == 3 ) )
		{
				/* 終了 */
		    if( count != 0 ){	/* bindの途中なら修正あり */
				/* bind head 修正 */
			fseek( fp2, bind_point, SEEK_SET );
			DWORD( bind_head + 4 ) = bind_size;
			if( fwrite( bind_head, 32, 1, fp2 ) < 1 ){
				error = 2;	/* 2 = can't save */
				break;
			}
				/* total data size 修正 */
			fseek( fp2, 0, SEEK_SET );
			DWORD( head+4 ) = total;		/* data size */
			DWORD( head+8 ) = frame;		/* bind */
			if( fwrite( head, 256, 1, fp2 ) < 1 ){	/* ヘッダー */
				error = 2;	/* 2 = error num. */
				break;
			}
		    }
		    error = 0;	/* 原画は全部読み切った(no error) */
		    break;		/* 終了 */
		}
		if( count == 0 )
		{
				/* bind head 登録 */
			if( fwrite( bind_head, 32, 1, fp2 ) < 1 ){
				error = 2;
				break;
			}
			file_point += 32;
			total += 32;
				/* sound 登録 */
			if( fwrite( snd_buf, sndpack, 1, fp2 ) < 1 ){
				error = 2;	/* 2 = can't save */
				break;
			}
			file_point += sndpack;
			total += sndpack;
			bind_size += sndpack;
		}
			/* buf(原画) -> buf(yc-data) */
		v00_to_v02_conv_brg_to_yc( new_ad, buf, yc_buf );
			/* 前の絵と同じ点をカウント */
		scount1 = 0;
		for( i=0 ; i<v02xd*v02yd ; i++ ){
		    d0 = BYTE( new_ad + i ) - BYTE( old_ad + i );
		    if( d0>-2 && d0<2 )scount1++;
		}
		if( scount1 < (scount0 >> 2) )cmpmode = 0;
		else cmpmode = 1;
		scount0 = scount1;
		if( frame == 0 )
			scount0 = 0;
			/* 圧縮 */
		if( cmpmode == 0 ){
			size = v00_to_v02_conv_cmp1(
			flt, rate, step, soft, mode, data2_buf,
			new_ad, old_ad, data1_buf, make_buf, check_buf
			);
		}
		else {
			size = v00_to_v02_conv_cmp2(
			flt, rate, step, soft, mode, data2_buf,
			new_ad, old_ad, data1_buf, make_buf, check_buf
			);
		}

			/* check */
		VSYNC_counter = 0;
		DWORD(para2+0) = (int)make_buf;
		DWORD(para2+4) = (int)brg_buf;
		DWORD(para2+8) = 100;
		DWORD(para2+12) = 0;
		DWORD(para2+16) = v02xd;
		DWORD(para2+20) = v02yd;
		vd_01_2( para2 );

		v_cmp_frame_dsp( frame ) ;

		if( fwrite( data2_buf, size, 1, fp2 ) < 1 ){
			error = 2;	/* 2 = can't save */
			break;
		}
		file_point = file_point + size;
		total = total + size;
		bind_size = bind_size + size;
		count++;
		frame++;
		if( count < koma )goto vd03;

		bind++;
			/* bind head 修正 */
		fseek( fp2, bind_point, SEEK_SET );
		DWORD( bind_head + 4 ) = bind_size;
		if( fwrite( bind_head, 32, 1, fp2 ) < 1 ){
			error = 2;	/* 2 = can't save */
			break;
		}
			/* total data size 修正 */
		fseek( fp2, 0, SEEK_SET );
		DWORD( head+4 ) = total;		/* data size */
		DWORD( head+8 ) = frame;		/* bind */
		if( fwrite( head, 256, 1, fp2 ) < 1 ){	/* ヘッダー */
			error = 2;	/* 2 = error num. */
			break;
		}

		/*
			 1bind終わるごとにしめる
			( 停電で止まってもそれまでのdataを残すため)
		*/

		fclose(fp2);
		if( ( fp2 = fopen( name2, "r+b" ) ) == NULL ){
			TL_free( buffer );
			v02_1step_close() ;
			return 2;
		}
		fseek( fp2, file_point, SEEK_SET );
	}
vd10:
	TL_free( buffer );
	fclose(fp2);
	v02_1step_close() ;
	return error;
}

/* v02 to v02 絵の取り出しサブルーチン */

static v02_1step_open( name )	/* open */
char *name ;
{
	char dummy[4] ;
	return v02_1step_read( name, 0, dummy ) ;
}

static v02_1step_snd( buf )		/* snd read */
char *buf ;
{
	char dummy[4] ;
	return v02_1step_read( dummy, 1, buf ) ;
}

static v02_1step_frame( buf )	/* frame read */
char *buf ;
{
	char dummy[4] ;
	return v02_1step_read( dummy, 2, buf ) ;
}

static v02_1step_close()		/* close */
{
	char dummy[4] ;
	return v02_1step_read( dummy, 3, dummy ) ;
}

	/*
		name: ファイル名
	    mode: 0:open, 1:sound read, 2:frame read, 3:end
		dpoint: data point
		dsize: data size
	*/

static v02_1step_read( name, mode, output )
char *name ;
char *output ;
int mode ;
{
	static	FILE *fpoint ;
	static	int frame ;
	static	int xd ;
	static	int yd ;
	static	int koma ;
	static	int sndpack ;
	static	int bsize ;		/* bind buffer の大きさの許容の最大値 */ 
	static	char *buf ;
	static	char *table ;
	static	char *bind ;
	static	char *wk ;
	static	char play_para[64] ;

	static	int fcount ;	/* frame counter */
	static	int bcount ;	/* bind内 frame counter */
	static	char *point ;	/* bind内 位置 */

	static	ret = -1 ;

	int wsize, size ;
	int i ;
	char head[256], bhead[32] ;
	char para[64] ;

	switch( mode )
	{
	case 0:
		goto mode0 ;
	case 1:
		goto mode1 ;
	case 2:
		goto mode2 ;
	case 3:
		goto mode3 ;
	}

mode0:	/* open */
	if( ( fpoint = fopen( name, "rb" ) ) == NULL )
	{
		ret = 1 ;
		return ret ;
	}
	if( fread( head, 256, 1, fpoint ) < 1 )	/* head read */
	{
		fclose( fpoint ) ;
		ret = 1 ;
		return ret ;
	}

	if( DWORD( head ) != 0x32304456		/* IDcheck (VD02) */
	 || ( DWORD( head + 12 ) != 6 &&  DWORD( head + 12 ) != 7)
	 || DWORD( head + 16 ) < 8			/* x */
	 || DWORD( head + 20 ) < 8			/* y */
	){
		fclose(fpoint);
		ret = 58 ;
		return ret ;
	}

	frame = DWORD( head + 8 );	/* total frame */
	xd = DWORD( head + 16 );			/* x */
	yd = DWORD( head + 20 );			/* y */
	koma = DWORD( head + 28 );
	if( koma == 0 )koma = 8 ;
	sndpack = DWORD( head + 36 ) ;
	if( sndpack == 0 )sndpack = 800*8 ;

	if( frame <= 0 )
	{
		fclose( fpoint ) ;
		ret = 58 ;
		return ret ;
	}

	wsize = ( xd * yd * 2 * 3 / 8 ) * 2 ;
	bsize = wsize * koma + sndpack ;

	if( (buf = (char *)TL_malloc( 32768+512+wsize+bsize+1000 )) == NULL )
	{			/* ctable + ytable + work size + bind size + クッション */
		fclose( fpoint ) ;
		ret = 7 ;
		return ret ;
	}
	table = buf ;						/* bufの割りつけ */
	wk    = table + 32768 + 512 ;
	bind  = wk + wsize ;

	if( fread( table, 32768+512, 1, fpoint ) < 1 )	/* table read */
	{
		fclose( fpoint ) ;
		TL_free( buf ) ;
		ret = 1 ;
		return ret ;
	}

	DWORD(play_para+0) = (int)bind + sndpack ;		/* 圧縮data */
	DWORD(play_para+4) = (int)wk ;					/* work */
	DWORD(play_para+8) = (int)table ;				/* table */
	DWORD(play_para+12) = 6 ;						/* wait */
	DWORD(play_para+16) = 0 ;						/* page */
	DWORD(play_para+20) = xd ;						/* 横 */
	DWORD(play_para+24) = yd ;						/* 縦 */
	DWORD(play_para+28) = xd * yd * 2 * 3 / 8 ;		/* ycdata length */
	DWORD(play_para+32) = 0;						/* 急ぎフラグ */
	VSYNC_counter = 0 ;
	vd_02_init( 6, 0x00000, 0x20000 );				/* init */
	fcount = 0 ;
	ret = NOERR ;
	return ret ;

mode1:	/* sound read ( 1bind read ) */
	if( ret )
		return ret ;
	if( fread( bhead, 32, 1, fpoint ) < 1 )		/* bind read */
		goto ed01 ;
	size = DWORD( bhead + 4 ) ;
	if( ( size > bsize ) || ( size <= 0 ) )
		goto ed01 ;
	if( fread( bind, size, 1, fpoint ) < 1 )		/* bind read */
		goto ed01 ;
	for( i=0 ; i<sndpack ; i++ )
		BYTE( output + i ) = BYTE( bind + i ) ;
	point = bind + sndpack ;		/* 圧縮data */
	bcount = 0 ;			/* bind koma counter */
	ret = NOERR ;
	return ret ;
ed01:
	fclose( fpoint ) ;
	TL_free( buf ) ;
	ret = 58 ;
	return ret ;

mode2:	/* frame read */
	if( ret )
		return ret ;
	if( fcount >= frame )goto ed02 ;
	if( bcount >= koma )goto ed02 ;
	DWORD(play_para+0) = (int)point ;		/* 圧縮data */
	point = (char *)( vd_02_c( play_para ) ) ;	/* main */
	VSYNC_counter = 0;
	DWORD(para+0) = (int)wk;
	DWORD(para+4) = (int)table;
	DWORD(para+8) = 100;
	DWORD(para+12) = 0;
	DWORD(para+16) = xd;
	DWORD(para+20) = yd;
	vd_01_2( para );
	DWORD(para+0) = (int)output;
	WORD(para+4) = 0x14;
	WORD(para+6) = 0;
	WORD(para+8) = 0;
	WORD(para+10) = v02xd-1;
	WORD(para+12) = v02yd-1;
	EGB_getBlock( guiEgbPtr, para );
	fcount++ ;
	bcount++ ;
	ret = NOERR ;
	return ret ;
ed02:
	fclose( fpoint ) ;
	TL_free( buf ) ;
	ret = 58 ;
	return ret ;

mode3: /* close */
	if( ret )
		return ret ;
	fclose( fpoint ) ;
	TL_free( buf ) ;
	ret = -1 ;
	return NOERR ;
}


/*
	v02 play
*/

int v02_short_stop_flg;

int v02_play_check()
{
	int sw;

/*	注意:sw 押されているとbit off 押されてないとbit on 	*/

	SND_joy_in_1( 0xff, &sw );		/* end check */
	sw = (sw ^ 0xff) & 0x30;
	if( sw == 0 )return 0;
c01:	SND_joy_in_1( 0xff, &sw );
	sw = (sw ^ 0xff) & 0x30;
	if( sw & 0x10 ){
		while( sw == 0x30 ){
			SND_joy_in_1( 0xff, &sw );
			sw = (sw ^ 0xff) & 0x30;
		}
		if( sw == 0x20 )goto c02;
		while( sw ){
			SND_joy_in_1( 0xff, &sw );
			sw = (sw ^ 0xff) & 0x30;
			if( sw == 0x30 )break;
		}
		return 1;
	}
c02:	if( sw )goto c01;
	v02_short_stop_flg = -1;
	return -1;
}

v02_play( name, mode, wait )
char *name;
int mode, wait;
{
	int xd, yd, size, frame, error;
	char *buffer;

vd01:	v02_short_stop_flg = 0;
	error = V02_disk_play_init( name, v02_play_check, &frame, &xd, &yd,
	&size );
	if( error )
		goto vd11;
	if( (buffer = (char *)TL_malloc( size )) == NULL )
	{
		error = 7;
		goto vd11;			/* out of memory */
	}

		/* mute */
	int s ;					/* こうするとpcmだけをonにできる */
	SND_get_elevol_mute( &s ) ;
	SND_elevol_mute( s | 0x01 ) ;

	SND_fm_timer_b_set( 0, 0 ) ;
	error = V02_disk_play( buffer, name, 0, wait );
	SND_fm_timer_b_start() ;

vd10:	TL_free( buffer );
vd11:	SND_pcm_sound_delete( -1 );
	EGB_writePage(guiEgbPtr,1);
	return error;
}

v02_graph_init( md, xd,yd )
int md, xd,yd;
{
	int x0, y0;

	if( (md < 1) || (md > 4) )
		return 100;
	x0 = 320/md - xd/2;
	if( x0 < 0 )
		x0 = 0;
	y0 = 240/md - yd/2;
	if( y0 < 0 )
		y0 = 0;

	EGB_displayPage(guiEgbPtr,1,2);
	EGB_writePage(guiEgbPtr,0);
	EGB_displayStart(guiEgbPtr,1,0,0);
	EGB_displayStart(guiEgbPtr,2,md,md);
	EGB_displayStart(guiEgbPtr,0,0,0);	/* 一端0にすると確実に切り換えok */
	EGB_displayStart(guiEgbPtr,3,xd,yd);
	EGB_displayStart(guiEgbPtr,0,x0,y0);
	EGB_writePage(guiEgbPtr,1);
	EGB_displayPage(guiEgbPtr,1,3);

	return 0;
}