cpue.c

树大根深三棱尽所标杆ssfsfsa fdsafs

	ULONG cmask = 0x80;
	int carry = 0;
	cnt &= 63;
	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if((Shptr->regs).x) val |= 1;
	(Shptr->regs).x = carry != 0;
	}
	CFLG = (Shptr->regs).x;
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] &= ~0xff; (Shptr->regs).d[dstreg] |= (val) & 0xff;
}}}}}
void op_e118(ULONG opcode)
{
	ULONG srcreg = imm8_table[(opcode & 3584) >> 9];
	ULONG dstreg = (opcode & 7) >> 0;
{{	ULONG cnt = srcreg;
{	BYTE data = (Shptr->regs).d[dstreg];
{	UBYTE val = data;
	ULONG cmask = 0x80;
	int carry = 0;
	cnt &= 63;
	if (!cnt) { CFLG = 0; } else {	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if(carry)  val |= 1;
	}
	CFLG = carry!=0;
}
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] &= ~0xff; (Shptr->regs).d[dstreg] |= (val) & 0xff;
}}}}}
void op_e120(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	BYTE cnt = (Shptr->regs).d[srcreg];
{	BYTE data = (Shptr->regs).d[dstreg];
{	UBYTE val = data;
	ULONG cmask = 0x80;
	ULONG sign = cmask & val;
	cnt &= 63;
	VFLG = 0;
	if (!cnt) { CFLG = 0; } else { 	for(;cnt;--cnt){
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign)VFLG=1;
	}}
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	(Shptr->regs).d[dstreg] &= ~0xff; (Shptr->regs).d[dstreg] |= (val) & 0xff;
}}}}}
void op_e128(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	BYTE cnt = (Shptr->regs).d[srcreg];
{	BYTE data = (Shptr->regs).d[dstreg];
{	UBYTE val = data;
	ULONG cmask = 0x80;
	int carry = 0;
	cnt &= 63;
	if (!cnt) { CFLG = 0; } else {	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	}
	CFLG = (Shptr->regs).x = carry!=0;
}
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] &= ~0xff; (Shptr->regs).d[dstreg] |= (val) & 0xff;
}}}}}
void op_e130(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	BYTE cnt = (Shptr->regs).d[srcreg];
{	BYTE data = (Shptr->regs).d[dstreg];
{	UBYTE val = data;
	ULONG cmask = 0x80;
	int carry = 0;
	cnt &= 63;
	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if((Shptr->regs).x) val |= 1;
	(Shptr->regs).x = carry != 0;
	}
	CFLG = (Shptr->regs).x;
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] &= ~0xff; (Shptr->regs).d[dstreg] |= (val) & 0xff;
}}}}}
void op_e138(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	BYTE cnt = (Shptr->regs).d[srcreg];
{	BYTE data = (Shptr->regs).d[dstreg];
{	UBYTE val = data;
	ULONG cmask = 0x80;
	int carry = 0;
	cnt &= 63;
	if (!cnt) { CFLG = 0; } else {	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if(carry)  val |= 1;
	}
	CFLG = carry!=0;
}
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] &= ~0xff; (Shptr->regs).d[dstreg] |= (val) & 0xff;
}}}}}
void op_e140(ULONG opcode)
{
	ULONG srcreg = imm8_table[(opcode & 3584) >> 9];
	ULONG dstreg = (opcode & 7) >> 0;
{{	ULONG cnt = srcreg;
{	WORD data = (Shptr->regs).d[dstreg];
{	UWORD val = data;
	ULONG cmask = 0x8000;
	ULONG sign = cmask & val;
	cnt &= 63;
	VFLG = 0;
	if (!cnt) { CFLG = 0; } else { 	for(;cnt;--cnt){
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign)VFLG=1;
	}}
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	(Shptr->regs).d[dstreg] &= ~0xffff; (Shptr->regs).d[dstreg] |= (val) & 0xffff;
}}}}}
void op_e148(ULONG opcode)
{
	ULONG srcreg = imm8_table[(opcode & 3584) >> 9];
	ULONG dstreg = (opcode & 7) >> 0;
{{	ULONG cnt = srcreg;
{	WORD data = (Shptr->regs).d[dstreg];
{	UWORD val = data;
	ULONG cmask = 0x8000;
	int carry = 0;
	cnt &= 63;
	if (!cnt) { CFLG = 0; } else {	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	}
	CFLG = (Shptr->regs).x = carry!=0;
}
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] &= ~0xffff; (Shptr->regs).d[dstreg] |= (val) & 0xffff;
}}}}}
void op_e150(ULONG opcode)
{
	ULONG srcreg = imm8_table[(opcode & 3584) >> 9];
	ULONG dstreg = (opcode & 7) >> 0;
{{	ULONG cnt = srcreg;
{	WORD data = (Shptr->regs).d[dstreg];
{	UWORD val = data;
	ULONG cmask = 0x8000;
	int carry = 0;
	cnt &= 63;
	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if((Shptr->regs).x) val |= 1;
	(Shptr->regs).x = carry != 0;
	}
	CFLG = (Shptr->regs).x;
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] &= ~0xffff; (Shptr->regs).d[dstreg] |= (val) & 0xffff;
}}}}}
void op_e158(ULONG opcode)
{
	ULONG srcreg = imm8_table[(opcode & 3584) >> 9];
	ULONG dstreg = (opcode & 7) >> 0;
{{	ULONG cnt = srcreg;
{	WORD data = (Shptr->regs).d[dstreg];
{	UWORD val = data;
	ULONG cmask = 0x8000;
	int carry = 0;
	cnt &= 63;
	if (!cnt) { CFLG = 0; } else {	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if(carry)  val |= 1;
	}
	CFLG = carry!=0;
}
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] &= ~0xffff; (Shptr->regs).d[dstreg] |= (val) & 0xffff;
}}}}}
void op_e160(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	WORD cnt = (Shptr->regs).d[srcreg];
{	WORD data = (Shptr->regs).d[dstreg];
{	UWORD val = data;
	ULONG cmask = 0x8000;
	ULONG sign = cmask & val;
	cnt &= 63;
	VFLG = 0;
	if (!cnt) { CFLG = 0; } else { 	for(;cnt;--cnt){
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign)VFLG=1;
	}}
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	(Shptr->regs).d[dstreg] &= ~0xffff; (Shptr->regs).d[dstreg] |= (val) & 0xffff;
}}}}}
void op_e168(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	WORD cnt = (Shptr->regs).d[srcreg];
{	WORD data = (Shptr->regs).d[dstreg];
{	UWORD val = data;
	ULONG cmask = 0x8000;
	int carry = 0;
	cnt &= 63;
	if (!cnt) { CFLG = 0; } else {	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	}
	CFLG = (Shptr->regs).x = carry!=0;
}
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] &= ~0xffff; (Shptr->regs).d[dstreg] |= (val) & 0xffff;
}}}}}
void op_e170(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	WORD cnt = (Shptr->regs).d[srcreg];
{	WORD data = (Shptr->regs).d[dstreg];
{	UWORD val = data;
	ULONG cmask = 0x8000;
	int carry = 0;
	cnt &= 63;
	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if((Shptr->regs).x) val |= 1;
	(Shptr->regs).x = carry != 0;
	}
	CFLG = (Shptr->regs).x;
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] &= ~0xffff; (Shptr->regs).d[dstreg] |= (val) & 0xffff;
}}}}}
void op_e178(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	WORD cnt = (Shptr->regs).d[srcreg];
{	WORD data = (Shptr->regs).d[dstreg];
{	UWORD val = data;
	ULONG cmask = 0x8000;
	int carry = 0;
	cnt &= 63;
	if (!cnt) { CFLG = 0; } else {	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if(carry)  val |= 1;
	}
	CFLG = carry!=0;
}
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] &= ~0xffff; (Shptr->regs).d[dstreg] |= (val) & 0xffff;
}}}}}
void op_e180(ULONG opcode)
{
	ULONG srcreg = imm8_table[(opcode & 3584) >> 9];
	ULONG dstreg = (opcode & 7) >> 0;
{{	ULONG cnt = srcreg;
{	LONG data = (Shptr->regs).d[dstreg];
{	ULONG val = data;
	ULONG cmask = 0x80000000;
	ULONG sign = cmask & val;
	cnt &= 63;
	VFLG = 0;
	if (!cnt) { CFLG = 0; } else { 	for(;cnt;--cnt){
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign)VFLG=1;
	}}
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	(Shptr->regs).d[dstreg] = (val);
}}}}}
void op_e188(ULONG opcode)
{
	ULONG srcreg = imm8_table[(opcode & 3584) >> 9];
	ULONG dstreg = (opcode & 7) >> 0;
{{	ULONG cnt = srcreg;
{	LONG data = (Shptr->regs).d[dstreg];
{	ULONG val = data;
	ULONG cmask = 0x80000000;
	int carry = 0;
	cnt &= 63;
	if (!cnt) { CFLG = 0; } else {	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	}
	CFLG = (Shptr->regs).x = carry!=0;
}
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] = (val);
}}}}}
void op_e190(ULONG opcode)
{
	ULONG srcreg = imm8_table[(opcode & 3584) >> 9];
	ULONG dstreg = (opcode & 7) >> 0;
{{	ULONG cnt = srcreg;
{	LONG data = (Shptr->regs).d[dstreg];
{	ULONG val = data;
	ULONG cmask = 0x80000000;
	int carry = 0;
	cnt &= 63;
	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if((Shptr->regs).x) val |= 1;
	(Shptr->regs).x = carry != 0;
	}
	CFLG = (Shptr->regs).x;
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] = (val);
}}}}}
void op_e198(ULONG opcode)
{
	ULONG srcreg = imm8_table[(opcode & 3584) >> 9];
	ULONG dstreg = (opcode & 7) >> 0;
{{	ULONG cnt = srcreg;
{	LONG data = (Shptr->regs).d[dstreg];
{	ULONG val = data;
	ULONG cmask = 0x80000000;
	int carry = 0;
	cnt &= 63;
	if (!cnt) { CFLG = 0; } else {	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if(carry)  val |= 1;
	}
	CFLG = carry!=0;
}
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] = (val);
}}}}}
void op_e1a0(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	LONG cnt = (Shptr->regs).d[srcreg];
{	LONG data = (Shptr->regs).d[dstreg];
{	ULONG val = data;
	ULONG cmask = 0x80000000;
	ULONG sign = cmask & val;
	cnt &= 63;
	VFLG = 0;
	if (!cnt) { CFLG = 0; } else { 	for(;cnt;--cnt){
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign)VFLG=1;
	}}
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	(Shptr->regs).d[dstreg] = (val);
}}}}}
void op_e1a8(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	LONG cnt = (Shptr->regs).d[srcreg];
{	LONG data = (Shptr->regs).d[dstreg];
{	ULONG val = data;
	ULONG cmask = 0x80000000;
	int carry = 0;
	cnt &= 63;
	if (!cnt) { CFLG = 0; } else {	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	}
	CFLG = (Shptr->regs).x = carry!=0;
}
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] = (val);
}}}}}
void op_e1b0(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	LONG cnt = (Shptr->regs).d[srcreg];
{	LONG data = (Shptr->regs).d[dstreg];
{	ULONG val = data;
	ULONG cmask = 0x80000000;
	int carry = 0;
	cnt &= 63;
	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if((Shptr->regs).x) val |= 1;
	(Shptr->regs).x = carry != 0;
	}
	CFLG = (Shptr->regs).x;
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] = (val);
}}}}}
void op_e1b8(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
	ULONG dstreg = (opcode & 7) >> 0;
{{	LONG cnt = (Shptr->regs).d[srcreg];
{	LONG data = (Shptr->regs).d[dstreg];
{	ULONG val = data;
	ULONG cmask = 0x80000000;
	int carry = 0;
	cnt &= 63;
	if (!cnt) { CFLG = 0; } else {	for(;cnt;--cnt){
	carry=val&cmask; val <<= 1;
	if(carry)  val |= 1;
	}
	CFLG = carry!=0;
}
	NFLG = (val & cmask) != 0; ZFLG = val == 0; VFLG = 0;
	(Shptr->regs).d[dstreg] = (val);
}}}}}
void op_e1d0(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
{{	CPTR dataa = (Shptr->regs).a[srcreg];
	WORD data = get_word(dataa);
	VFLG = 0;
{	UWORD val = data;
	ULONG cmask = 0x8000;
	ULONG sign = cmask & val;
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign) VFLG=1;
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	put_word(dataa,val);
}}}}
void op_e1d8(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
{{	CPTR dataa = (Shptr->regs).a[srcreg];
	WORD data = get_word(dataa);
{	(Shptr->regs).a[srcreg] += 2;
	VFLG = 0;
{	UWORD val = data;
	ULONG cmask = 0x8000;
	ULONG sign = cmask & val;
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign) VFLG=1;
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	put_word(dataa,val);
}}}}}
void op_e1e0(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
{{	(Shptr->regs).a[srcreg] -= 2;
{	CPTR dataa = (Shptr->regs).a[srcreg];
	WORD data = get_word(dataa);
	VFLG = 0;
{	UWORD val = data;
	ULONG cmask = 0x8000;
	ULONG sign = cmask & val;
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign) VFLG=1;
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	put_word(dataa,val);
}}}}}
void op_e1e8(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
{{	CPTR dataa = (Shptr->regs).a[srcreg] + (LONG)(WORD)nextiword();
	WORD data = get_word(dataa);
	VFLG = 0;
{	UWORD val = data;
	ULONG cmask = 0x8000;
	ULONG sign = cmask & val;
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign) VFLG=1;
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	put_word(dataa,val);
}}}}
void op_e1f0(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
{{	CPTR dataa = (Shptr->regs).a[srcreg];
	dataa = get_disp_ea (dataa, nextiword());
{	WORD data = get_word(dataa);
	VFLG = 0;
{	UWORD val = data;
	ULONG cmask = 0x8000;
	ULONG sign = cmask & val;
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign) VFLG=1;
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	put_word(dataa,val);
}}}}}
void op_e1f8(ULONG opcode)
{
{{	CPTR dataa = (LONG)(WORD)nextiword();
	WORD data = get_word(dataa);
	VFLG = 0;
{	UWORD val = data;
	ULONG cmask = 0x8000;
	ULONG sign = cmask & val;
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign) VFLG=1;
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	put_word(dataa,val);
}}}}
void op_e1f9(ULONG opcode)
{
{{	CPTR dataa = nextilong();
	WORD data = get_word(dataa);
	VFLG = 0;
{	UWORD val = data;
	ULONG cmask = 0x8000;
	ULONG sign = cmask & val;
	CFLG=(Shptr->regs).x=(val&cmask)!=0; val <<= 1;
	if ((val&cmask)!=sign) VFLG=1;
	NFLG = (val&cmask) != 0;
	ZFLG = val == 0;
	put_word(dataa,val);
}}}}
void op_e2d0(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
{{	CPTR dataa = (Shptr->regs).a[srcreg];
	WORD data = get_word(dataa);
{	UWORD val = data;
	int carry = val&1;
	carry=val&1; val >>= 1;
	VFLG = CFLG = 0;
	ZFLG = ((WORD)(val)) == 0;
	NFLG = ((WORD)(val)) < 0;
CFLG = (Shptr->regs).x = carry!=0;
	put_word(dataa,val);
}}}}
void op_e2d8(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
{{	CPTR dataa = (Shptr->regs).a[srcreg];
	WORD data = get_word(dataa);
{	(Shptr->regs).a[srcreg] += 2;
{	UWORD val = data;
	int carry = val&1;
	carry=val&1; val >>= 1;
	VFLG = CFLG = 0;
	ZFLG = ((WORD)(val)) == 0;
	NFLG = ((WORD)(val)) < 0;
CFLG = (Shptr->regs).x = carry!=0;
	put_word(dataa,val);
}}}}}
void op_e2e0(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
{{	(Shptr->regs).a[srcreg] -= 2;
{	CPTR dataa = (Shptr->regs).a[srcreg];
	WORD data = get_word(dataa);
{	UWORD val = data;
	int carry = val&1;
	carry=val&1; val >>= 1;
	VFLG = CFLG = 0;
	ZFLG = ((WORD)(val)) == 0;
	NFLG = ((WORD)(val)) < 0;
CFLG = (Shptr->regs).x = carry!=0;
	put_word(dataa,val);
}}}}}
void op_e2e8(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
{{	CPTR dataa = (Shptr->regs).a[srcreg] + (LONG)(WORD)nextiword();
	WORD data = get_word(dataa);
{	UWORD val = data;
	int carry = val&1;
	carry=val&1; val >>= 1;
	VFLG = CFLG = 0;
	ZFLG = ((WORD)(val)) == 0;
	NFLG = ((WORD)(val)) < 0;
CFLG = (Shptr->regs).x = carry!=0;
	put_word(dataa,val);
}}}}
void op_e2f0(ULONG opcode)
{
	ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
{{	CPTR dataa = (Shptr->regs).a[srcreg];
	dataa = get_disp_ea (dataa, nextiword());
{	WORD data = get_word(dataa);
{	UWORD val = data;
	int carry = val&1;
	carry=val&1; val >>= 1;
	VFLG = CFLG = 0;
	ZFLG = ((WORD)(val)) == 0;
	NFLG = ((WORD)(val)) < 0;
CFLG = (Shptr->regs).x = carry!=0;
	put_word(dataa,val);
}}}}}
void op_e2f8(ULONG opcode)
{
{{	CPTR dataa = (LONG)(WORD)nextiword();
	WORD data = get_word(dataa);
{	UWORD val = data;
	int carry = val&1;
	carry=val&1; val >>= 1;
	VFLG = CFLG = 0;