package 
{
	
/**
 * ゲームボーイエミュレータのテスト
 * 32KB 程度のサイズの、初期のゲームしか動きません。
 * 音も出ません。
 * 
 * Load Cartridge ボタンを押して、.gb ファイルをロードしてください。
 * 選択したファイルはサーバにはアップロードされません。
 * Flash 内に読み込まれるだけです。
 * 
 * CPU のコードは TGB Dual のものを使用させていただきました。
 * http://gigo.retrogames.com/
 * ライセンスは GPL です。
  */

import flash.display.Bitmap;
	import flash.display.BitmapData;
    import flash.display.SimpleButton;
	import flash.display.Sprite;
	import flash.events.Event;
	import flash.events.KeyboardEvent;
    import flash.events.MouseEvent;
	import flash.events.TextEvent;
    import flash.net.FileFilter;
	import flash.net.FileReference;
	import flash.text.TextField;
	import flash.text.TextFieldAutoSize;
	import flash.text.TextFieldType;
	import flash.ui.Keyboard;
	import flash.utils.ByteArray;
	import flash.utils.getTimer;

[SWF(backgroundColor=0xFFFFFF,frameRate=60)]
	public class Main extends Sprite 
	{
		private var data:ByteArray;
		private var textField:TextField;
		private var output:BitmapData;
		private var gb:GB;
 private var fileReference:FileReference;
		
 private var buttonLoad:Button;
 private var buttonReset:Button;
		
		private var stop:Boolean = false;
		
		private var keys:Vector.<Boolean>;
		private var prevKeys:Vector.<Boolean>;
		
		public function Main():void 
		{
			if (stage) init();
			else addEventListener(Event.ADDED_TO_STAGE, init);
		}
		
		private function prepare():void 
		{
			var frame:GbFrame = new GbFrame();
			frame.x = 10;
			frame.y = 10;
			addChild(frame);
			
 // Load ボタンの作成
 buttonLoad = new Button("Load Cartridge");
 buttonLoad.addEventListener(MouseEvent.MOUSE_DOWN, onButtonLoadDown);
 buttonLoad.x = 350;
 buttonLoad.y = 10;
 addChild(buttonLoad);
			
			// Reset ボタンの作成
			buttonReset = new Button("Reset");
 buttonReset.addEventListener(MouseEvent.MOUSE_DOWN, onButtonResetDown);
 buttonReset.x = 350;
 buttonReset.y = 40;
 addChild(buttonReset);
			
			// 画面の準備
			output = new BitmapData(160, 144);
			var bitmap:Bitmap = new Bitmap(output);
			bitmap.x = 85;
			bitmap.y = 48;
			addChild(bitmap);
			
			// GBの準備
			gb = new GB();
			stop = true;
			
			// キー入力情報の初期化
			keys = new Vector.<Boolean>();
			prevKeys = new Vector.<Boolean>();
			
			for (var i:int = 0; i < 230; i++) {
				keys[i] = new Boolean(false);
				prevKeys[i] = new Boolean(false);
			}
		}
		
		private function init(e:Event = null):void 
		{
			removeEventListener(Event.ADDED_TO_STAGE, init);
			// entry point
			
			prepare();
			gb.output = output;
			addEventListener(Event.ENTER_FRAME, onEnterFrame);
			stage.addEventListener(KeyboardEvent.KEY_DOWN, onKeyDown);
			stage.addEventListener(KeyboardEvent.KEY_UP, onKeyUp);
		}
		
 private function onButtonResetDown(event:MouseEvent):void 
 {
			if (data == null)
				return;
			
			gb = new GB();
			gb.loadRom(data);
		}
		
 private function onButtonLoadDown(event:MouseEvent):void 
 {
			stop = true;
 fileReference = new FileReference();
 
 // イベントの登録
 fileReference.addEventListener(Event.SELECT, onFileSelect);
 fileReference.addEventListener(Event.CANCEL, onFileCancel);
 fileReference.addEventListener(Event.COMPLETE, onFileLoadComplete);
 
 // ファイル選択ダイアログを表示する
 var fileFilter:FileFilter = new FileFilter("GB Cartridge (gb)", "*.gb");
 fileReference.browse([fileFilter]);
		}
		
 private function onFileSelect(event:Event):void
 {
 fileReference.load();
			stop = false;
 }
		
 private function onFileCancel(event:Event):void
 {
			stop = false;
 }
		
 private function onFileLoadComplete(event:Event):void
 {
			gb = new GB();
			data = fileReference.data;
			gb.loadRom(fileReference.data);
 }
		
		private function onKeyDown(event:KeyboardEvent):void 
		{
			keys[event.keyCode] = true;
		}
		
		private function onKeyUp(event:KeyboardEvent):void 
		{
			keys[event.keyCode] = false;
		}
		
		private function onEnterFrame(e:Event):void 
		{
			if (stop || gb == null || !gb.dataLoaded)
				return;
			gb.setPad(Keyboard.LEFT, keys[Keyboard.LEFT]);
			gb.setPad(Keyboard.RIGHT, keys[Keyboard.RIGHT]);
			gb.setPad(Keyboard.UP, keys[Keyboard.UP]);
			gb.setPad(Keyboard.DOWN, keys[Keyboard.DOWN]);
			gb.setPad(88, keys[88]);
			gb.setPad(90, keys[90]);
			gb.setPad(83, keys[83]);
			gb.setPad(65, keys[65]);
			
			gb.exec();
			gb.render(output);
		}
	}
	
}

import flash.display.Sprite;
class GbFrame extends Sprite
{
	import flash.display.Graphics;
	import flash.display.Sprite;
	import flash.text.TextField;
	import flash.text.TextFormat;
	
	public function GbFrame() 
	{
		var s:Sprite = new Sprite();
		var g:Graphics = s.graphics;
		
		s.cacheAsBitmap = true;
		
		// 外枠
		g.lineStyle(3, 0x808090, 1.0, true);
		g.beginFill(0xF0F0F0);
		g.drawRoundRect(0, 0, 317, 317, 10, 10);
		g.endFill();
		
		g.lineStyle(3, 0x808090, 1.0, true);
		g.moveTo(1, 15);
		g.lineTo(316, 15);
		g.moveTo(30, 1);
		g.lineTo(30, 15);
		g.moveTo(286, 1);
		g.lineTo(286, 15);
		
		// 中心
		g.lineStyle(3, 0x808090, 1.0, true);
		g.beginFill(0x606066);
		g.drawRoundRect(30, 20, 255, 170, 20, 20);
		g.endFill();
		
		g.lineStyle(1, 0xB08090);
		g.moveTo(40, 26);
		g.lineTo(115, 26);
		g.moveTo(235, 26);
		g.lineTo(275, 26);
		g.lineStyle(0);
		
		g.lineStyle(1, 0x000050);
		g.moveTo(40, 29);
		g.lineTo(115, 29);
		g.moveTo(235, 29);
		g.lineTo(275, 29);
		g.lineStyle(0);
		
		g.lineStyle(0);
		g.beginFill(0xFF0000);
		g.drawCircle(52, 75, 3);
		g.endFill();
		
		g.lineStyle(6, 0x505050);
		g.beginFill(0);
		g.drawRect(75, 38, 160, 144);
		g.endFill();
		
		// ボタン
		g.lineStyle(2, 0x505050);
		g.beginFill(0xC000C0);
		g.drawCircle(230, 250, 13);
		g.drawCircle(270, 250, 13);
		g.endFill();
		
		g.beginFill(0xC0C0C0);
		g.drawRoundRect(160, 245, 30, 8, 5, 5);
		g.drawRoundRect(115, 245, 30, 8, 5, 5);
		g.endFill();
		
		addChild(s);
		
		var text1:TextField;
		text1 = new TextField();
		text1.selectable = false;
		text1.x = 36;
		text1.y = 80;
		text1.htmlText = 'BATTERY';
		addChild(text1);
		
		var text2:TextField;
		text2 = new TextField();
		text2.selectable = false;
		text2.width = 120;
		text2.height = 10;
		text2.x = 118;
		text2.y = 23;
		text2.htmlText = 'DOT MATRIX WITHOUT STEREO SOUND';
		addChild(text2);
		
		var text3:TextField;
		text3 = new TextField();
		text3.selectable = false;
		text3.x = 32;
		text3.y = 193;
		text3.htmlText = 'Nintonde';
		addChild(text3);
		
		var text4:TextField;
		text4 = new TextField();
		text4.selectable = false;
		text4.x = 70;
		text4.y = 190;
		text4.htmlText = 'GAME BOY';
		addChild(text4);
		
		var text5:TextField;
		text5 = new TextField();
		text5.selectable = false;
		text5.x = 264;
		text5.y = 270;
		text5.htmlText = 'X';
		addChild(text5);
		
		var text6:TextField;
		text6 = new TextField();
		text6.selectable = false;
		text6.x = 224;
		text6.y = 270;
		text6.htmlText = 'Z';
		addChild(text6);
		
		var text7:TextField;
		text7 = new TextField();
		text7.selectable = false;
		text7.x = 169;
		text7.y = 270;
		text7.htmlText = 'S';
		addChild(text7);
		
		var text8:TextField;
		text8 = new TextField();
		text8.selectable = false;
		text8.x = 124;
		text8.y = 270;
		text8.htmlText = 'A';
		addChild(text8);
	}
	
}

import flash.display.SimpleButton;
class Button extends SimpleButton
{
	import flash.display.SimpleButton;
	import flash.display.Sprite;
	import flash.events.MouseEvent;
	import flash.text.TextField;
	import flash.text.TextFieldAutoSize;
	
	public function Button(caption:String = "ボタン", width:uint = 100, height:uint = 20) 
	{
        upState = makeButton(0xDDDDDD, width, height, height / 2, caption);
        overState = makeButton(0xEEEEEE, width, height, height / 2, caption);
        downState = makeButton(0xCCCCCC, width, height, height / 2, caption);
        hitTestState = upState;
	}
    
    /**
     * ボタンを作って返す
     * @param    color    色
     * @param    width    幅
     * @param    height    高さ
     * @param    round    角丸の大きさ
     * @param    text    ボタンのテキスト
     * @return    ボタン
     */
    private function makeButton(color:uint, width:int, height:int, round:int, text:String):Sprite
    {
        var t:TextField = new TextField();
        var s:Sprite = new Sprite();
        s.graphics.lineStyle(2);
        s.graphics.beginFill(color);
        s.graphics.drawRoundRect(0, 0, width, height, round);
        s.graphics.endFill();
		
        t.text = text;
        t.selectable = false;
        t.width = width;
        t.autoSize = TextFieldAutoSize.CENTER;
        s.addChild(t);
        
        return s;
    }
	
}

/**
 * ...
 * @author Hikipuro
 */
class GbCart 
{
	import flash.utils.ByteArray;
	
	public var title:String = "";
	public var type:String = "";
	public var typeCode:uint = 0;
	public var romBanks:uint = 0;
	public var ramBanks:uint = 0;
	public var haveSram:Boolean = false;
	public var sram:Vector.<uint>;
	private var rom_bank:uint;
	private var rom:Vector.<uint>;
	
	private var mbc1type:uint = 0;
	private var mbc1_0x2000:uint = 0;
	private var mbc1_0x4000:uint = 0;
	private var mbc1_ram_bank:uint = 0;
	
	public function GbCart(byteArray:ByteArray) 
	{
		if (byteArray.length < 0x150)
			return;
			
		mbc1type = 0;
		mbc1_0x2000 = 0;
		mbc1_0x4000 = 0;
		mbc1_ram_bank = 0;
		
		rom_bank = 0;
		
		rom = new Vector.<uint>();
		rom.fixed = false;
		rom.length = byteArray.length;
		rom.fixed = true;
		
		byteArray.position = 0;
		for (var i:uint = 0; i < byteArray.length; i++)
			rom[i] = (byteArray.readByte() & 0xFF);
		
		sram = new Vector.<uint>();
		sram.fixed = false;
		sram.length = 8192 * 4;
		sram.fixed = true;
		
		byteArray.position = 0x134;
		title = byteArray.readUTFBytes(15);
		
		byteArray.position = 0x147;
		typeCode = byteArray.readByte();
		switch (typeCode) 
		{
			case 0x00: type = "ROM Only"; break;
			case 0x01: type = "ROM+MBC1"; break;
			case 0x02: type = "ROM+MBC1+RAM"; haveSram = true; break;
			case 0x03: type = "ROM+MBC1+RAM+BATTERY"; haveSram = true; break;
			case 0x05: type = "ROM+MBC2"; break;
			case 0x06: type = "ROM+MBC2+BATTERY"; break;
			case 0x08: type = "ROM+RAM"; haveSram = true; break;
			case 0x09: type = "ROM+RAM+BATTERY"; haveSram = true; break;
			case 0x0B: type = "ROM+MMM01"; break;
			case 0x0C: type = "ROM+MMM01+SRAM"; haveSram = true; break;
			case 0x0D: type = "ROM+MMM01+SRAM+BATT"; haveSram = true; break;
			case 0x0F: type = "ROM+MBC3+TIMER+BATT"; break;
			case 0x10: type = "ROM+MBC3+TIMER+RAM+BATT"; haveSram = true; break;
			case 0x11: type = "ROM+MBC3"; break;
			case 0x12: type = "ROM+MBC3+RAM"; haveSram = true; break;
			case 0x13: type = "ROM+MBC3+RAM+BATT"; haveSram = true; break;
			case 0x19: type = "ROM+MBC5"; break;
			case 0x1A: type = "ROM+MBC5+RAM"; haveSram = true; break;
			case 0x1B: type = "ROM+MBC5+RAM+BATT"; haveSram = true; break;
			case 0x1C: type = "ROM+MBC5+RUMBLE"; break;
			case 0x1D: type = "ROM+MBC5+RUMBLE+SRAM"; haveSram = true; break;
			case 0x1E: type = "ROM+MBC5+RUMBLE+SRAM+BATT"; haveSram = true; break;
			case 0x1F: type = "Pocket Camera"; break;
			case 0xFD: type = "Bandai TAMA5"; break;
			case 0xFE: type = "Hudson HuC3"; break;
			case 0xFF: type = "ROM+HuC1+RAM+BATTERY"; haveSram = true; break;
		}
		byteArray.position = 0x148;
		switch (byteArray.readByte())
		{
			case 0x00: romBanks = 2; break;
			case 0x01: romBanks = 4; break;
			case 0x02: romBanks = 8; break;
			case 0x03: romBanks = 16; break;
			case 0x04: romBanks = 32; break;
			case 0x05: romBanks = 64; break;
			case 0x06: romBanks = 128; break;
			case 0x52: romBanks = 72; break;
			case 0x53: romBanks = 80; break;
			case 0x54: romBanks = 96; break;
		}
		byteArray.position = 0x149;
		switch (byteArray.readByte())
		{
			case 0x00: ramBanks = 0; break;
			case 0x01: ramBanks = 1; break;
			case 0x02: ramBanks = 1; break;
			case 0x03: ramBanks = 4; break;
			case 0x04: ramBanks = 16; break;
		}
	}
	
	public function read(adr:uint):uint
	{
		return rom[adr];
	}
	
	public function readBank(adr:uint):uint
	{
		switch (typeCode) 
		{
			case 0x00: // "ROM Only"
				return rom[adr];
			case 0x01: // "ROM+MBC1"
				return readMBC1(adr);
			case 0x02: // "ROM+MBC1+RAM"
				return readMBC1(adr);
				break;
			case 0x03: // "ROM+MBC1+RAM+BATTERY"
				return readMBC1(adr);
				break;
			case 0x05: // "ROM+MBC2"
				return readMBC2(adr);
				break;
			case 0x06: // "ROM+MBC2+BATTERY"
				return readMBC2(adr);
				break;
			case 0x08: // "ROM+RAM"
				break;
			case 0x09: // "ROM+RAM+BATTERY"
				break;
			case 0x0B: // "ROM+MMM01"
				break;
			case 0x0C: // "ROM+MMM01+SRAM"
				break;
			case 0x0D: // "ROM+MMM01+SRAM+BATT"
				break;
			case 0x0F: // "ROM+MBC3+TIMER+BATT"
				break;
			case 0x10: // "ROM+MBC3+TIMER+RAM+BATT"
				break;
			case 0x11: // "ROM+MBC3"
				break;
			case 0x12: // "ROM+MBC3+RAM"
				break;
			case 0x13: // "ROM+MBC3+RAM+BATT"
				break;
			case 0x19: // "ROM+MBC5"
				break;
			case 0x1A: // "ROM+MBC5+RAM"
				break;
			case 0x1B: // "ROM+MBC5+RAM+BATT"
				break;
			case 0x1C: // "ROM+MBC5+RUMBLE"
				break;
			case 0x1D: // "ROM+MBC5+RUMBLE+SRAM"
				break;
			case 0x1E: // "ROM+MBC5+RUMBLE+SRAM+BATT"
				break;
			case 0x1F: // "Pocket Camera"
				break;
			case 0xFD: // "Bandai TAMA5"
				break;
			case 0xFE: // "Hudson HuC3"
				break;
			case 0xFF: // "ROM+HuC1+RAM+BATTERY"
				break;
		}
		return 0;
	}
	
	public function write(adr:uint, dat:uint):void
	{
		switch (typeCode) 
		{
			case 0x00: // "ROM Only"
				break;
			case 0x01: // "ROM+MBC1"
				writeMBC1(adr, dat);
				break;
			case 0x02: // "ROM+MBC1+RAM"
				writeMBC1(adr, dat);
				break;
			case 0x03: // "ROM+MBC1+RAM+BATTERY"
				writeMBC1(adr, dat);
				break;
			case 0x05: // "ROM+MBC2"
				writeMBC2(adr, dat);
				break;
			case 0x06: // "ROM+MBC2+BATTERY"
				writeMBC2(adr, dat);
				break;
			case 0x08: // "ROM+RAM"
				break;
			case 0x09: // "ROM+RAM+BATTERY"
				break;
			case 0x0B: // "ROM+MMM01"
				break;
			case 0x0C: // "ROM+MMM01+SRAM"
				break;
			case 0x0D: // "ROM+MMM01+SRAM+BATT"
				break;
			case 0x0F: // "ROM+MBC3+TIMER+BATT"
				break;
			case 0x10: // "ROM+MBC3+TIMER+RAM+BATT"
				break;
			case 0x11: // "ROM+MBC3"
				break;
			case 0x12: // "ROM+MBC3+RAM"
				break;
			case 0x13: // "ROM+MBC3+RAM+BATT"
				break;
			case 0x19: // "ROM+MBC5"
				break;
			case 0x1A: // "ROM+MBC5+RAM"
				break;
			case 0x1B: // "ROM+MBC5+RAM+BATT"
				break;
			case 0x1C: // "ROM+MBC5+RUMBLE"
				break;
			case 0x1D: // "ROM+MBC5+RUMBLE+SRAM"
				break;
			case 0x1E: // "ROM+MBC5+RUMBLE+SRAM+BATT"
				break;
			case 0x1F: // "Pocket Camera"
				break;
			case 0xFD: // "Bandai TAMA5"
				break;
			case 0xFE: // "Hudson HuC3"
				break;
			case 0xFF: // "ROM+HuC1+RAM+BATTERY"
				break;
		}
	}
	
	public function readSram(adr:uint):uint
	{
		var offset:uint;
		switch (typeCode) 
		{
			case 0x03: // "ROM+MBC1+RAM+BATTERY"
				if (adr < 0x1000)
					return sram[adr];
				offset = mbc1_ram_bank * 0x1000;
				return sram[adr + offset];
				break;
		}
		return sram[adr];
	}
	
	public function writeSram(adr:uint, dat:uint):void
	{
		var offset:uint;
		switch (typeCode) 
		{
			case 0x03: // "ROM+MBC1+RAM+BATTERY"
				if (adr < 0x1000)
					sram[adr] = dat;
				offset = mbc1_ram_bank * 0x1000;
				sram[adr + offset] = dat;
				break;
		}
		sram[adr] = dat;
	}
	
	public function readMBC1(adr:uint):uint
	{
		var offset:uint;
		
		if (mbc1type == 0) {
			offset = mbc1_0x4000 | mbc1_0x2000;
			offset *= 0x4000;
		} else {
			offset = mbc1_0x2000;
			offset *= 0x4000;
		}
		
		adr &= 0x3FFF;
		
		return rom[adr + offset];
	}
	
	public function writeMBC1(adr:uint, dat:uint):void
	{
		if (adr >= 0x6000 && adr <= 0x7FFF) {
			mbc1type = dat & 0x01;
			return;
		}
		
		if (adr >= 0x2000 && adr <= 0x3FFF)
			mbc1_0x2000 = (dat & 0x1F);
		if (adr >= 0x4000 && adr <= 0x5FFF) {
			mbc1_0x4000 = ((dat & 0x03) << 5);
			mbc1_ram_bank = (dat & 0x03);
		}
	}
	
	public function readMBC2(adr:uint):uint
	{
		var offset:uint;
		offset = mbc1_0x4000 | mbc1_0x2000;
		offset *= 0x4000;
		
		adr &= 0x3FFF;
		
		return rom[adr + offset];
	}
	
	public function writeMBC2(adr:uint, dat:uint):void
	{
		if (adr >= 0x6000 && adr <= 0x7FFF) {
			mbc1type = dat & 0x01;
			mbc1_0x2000 = 0;
			mbc1_0x4000 = 0;
			return;
		}
		
		if (mbc1type == 0) {
			if (adr >= 0x2000 && adr <= 0x3FFF)
				mbc1_0x2000 = (dat & 0x1F);
			if (adr >= 0x4000 && adr <= 0x5FFF)
				mbc1_0x4000 = ((dat & 0x03) << 5);
		}
		else {
			if (adr >= 0x2000 && adr <= 0x3FFF)
				mbc1_0x2000 = (dat & 0x1F);
			mbc1_0x4000 = 0;
		}
	}
	
}

/**
 * ...
 */
class GbApu 
{
	import flash.events.SampleDataEvent;
	import flash.media.Sound;
	import flash.utils.ByteArray;

private var NR10:uint, NR11:uint, NR12:uint, NR13:uint, NR14:uint;
	private var NR21:uint, NR22:uint, NR23:uint, NR24:uint;
	private var NR30:uint, NR31:uint, NR32:uint, NR33:uint, NR34:uint;
	private var NR41:uint, NR42:uint, NR43:uint, NR44:uint;
	private var NR50:uint, NR51:uint, NR52:uint;
	private var WaveRAM:Vector.<uint>;
	//private var sound:Sound;
	
	private var counter1:int;
	private var length1:uint;
	private var sweep1:uint;
	private var duty1:uint;
	private var volume1:uint;
	private var decay1:uint;
	private var env_counter1:uint;
	
	private var total_clock:int;
	private var div_clock:int;
	private var tick1d256:int;
	
	private var ringBuffer:Vector.<Number>;
	private var pointer:int;
	private var pointerPlay:int;
	
	private const duty12:Array = [0, 15, 15, 15, 15, 15, 15, 15];
	private const duty25:Array = [0, 15, 15, 15];
	private const duty50:Array = [0, 15];
	private const duty75:Array = [0, 0, 0, 15];
	
	public function GbApu() 
	{
		WaveRAM = new Vector.<uint>();
		WaveRAM.length = 0x10;
		WaveRAM.fixed = true;
		
		NR10 = 0x80; NR11 = 0xBF; NR12 = 0xF3; NR14 = 0xBF;
		NR21 = 0x3F; NR22 = 0x00; NR24 = 0xBF;
		NR30 = 0x7F; NR31 = 0xFF; NR32 = 0x9F; NR33 = 0xBF;
		NR41 = 0xFF; NR42 = 0x00; NR43 = 0x00; NR44 = 0xBF;
		NR50 = 0x77; NR51 = 0xF3; NR52 = 0xF1;
		
		counter1 = 0;
		length1 = 0;
		sweep1 = 0;
		volume1 = 0;
		decay1 = 0;
		env_counter1 = 0;
		
		total_clock = 0;
		div_clock = 0;
		tick1d256 = 0;
		
		ringBuffer = new Vector.<Number>();
		ringBuffer.length = 8192 * 4;
		ringBuffer.fixed = true;
		pointer = 0;
		pointerPlay = 0;
		
		//sound = new Sound();
		//sound.addEventListener(SampleDataEvent.SAMPLE_DATA, onSampleData);
		//sound.play(0, 1);
	}
	
	public function read(adr:uint):uint 
	{
		adr &= 0x2F;
		switch (adr) 
		{
			case 0x00: return NR10 & 0xFF;
			case 0x01: return NR11 & 0xC0;
			case 0x02: return NR12 & 0xFF;
			case 0x03: return 0;
			case 0x04: return NR14 & 0x40;
			case 0x05: return 0xFF;
			case 0x06: return NR21 & 0xC0;
			case 0x07: return NR22 & 0xFF;
			case 0x08: return NR23 & 0xFF;
			case 0x09: return NR24 & 0x40;
			case 0x0A: return NR30 & 0x80;
			case 0x0B: return NR31 & 0xFF;
			case 0x0C: return NR32 & 0x60;
			case 0x0D: return NR33 & 0xFF;
			case 0x0E: return NR34 & 0x40;
			case 0x0F: return 0xFF;
			case 0x10: return NR41 & 0xFF;
			case 0x11: return NR42 & 0xFF;
			case 0x12: return NR43 & 0xFF;
			case 0x13: return NR44 & 0x40;
			case 0x14: return NR50 & 0xFF;
			case 0x15: return NR51 & 0xFF;
			case 0x16: return NR52 & 0x8F;
			case 0x17: return 0xFF;
			case 0x18: return 0xFF;
			case 0x19: return 0xFF;
			case 0x1A: return 0xFF;
			case 0x1B: return 0xFF;
			case 0x1C: return 0xFF;
			case 0x1D: return 0xFF;
			case 0x1E: return 0xFF;
			case 0x1F: return 0xFF;
			case 0x20: return WaveRAM[0x00] & 0xFF;
			case 0x21: return WaveRAM[0x01] & 0xFF;
			case 0x22: return WaveRAM[0x02] & 0xFF;
			case 0x23: return WaveRAM[0x03] & 0xFF;
			case 0x24: return WaveRAM[0x04] & 0xFF;
			case 0x25: return WaveRAM[0x05] & 0xFF;
			case 0x26: return WaveRAM[0x06] & 0xFF;
			case 0x27: return WaveRAM[0x07] & 0xFF;
			case 0x28: return WaveRAM[0x08] & 0xFF;
			case 0x29: return WaveRAM[0x09] & 0xFF;
			case 0x2A: return WaveRAM[0x0A] & 0xFF;
			case 0x2B: return WaveRAM[0x0B] & 0xFF;
			case 0x2C: return WaveRAM[0x0C] & 0xFF;
			case 0x2D: return WaveRAM[0x0D] & 0xFF;
			case 0x2E: return WaveRAM[0x0E] & 0xFF;
			case 0x2F: return WaveRAM[0x0F] & 0xFF;
		}
		return 0xFF;
	}
	
	public function write(adr:uint, dat:uint):void
	{
		adr &= 0x2F;
		dat &= 0xFF;
		switch (adr) 
		{
			case 0x00:
				NR10 = dat;
				break;
			case 0x01:
				NR11 = dat;
				length1 = soundLength1;
				break;
			case 0x02:
				NR12 = dat;
				decay1 = ((NR12 >> 4) & 0x0F);
				break;
			case 0x03:
				NR13 = dat;
				break;
			case 0x04: 
				NR14 = dat;
				if (NR14 & 0x80)
					counter1 = 0;
				break;
			case 0x05:
				return;
			case 0x06:
				NR21 = dat;
				break;
			case 0x07:
				NR22 = dat;
				break;
			case 0x08:
				NR23 = dat;
				break;
			case 0x09:
				NR24 = dat;
				break;
			case 0x0A:
				NR30 = dat;
				break;
			case 0x0B:
				NR31 = dat;
				break;
			case 0x0C:
				NR32 = dat;
				break;
			case 0x0D:
				NR33 = dat;
				break;
			case 0x0E:
				NR34 = dat;
				break;
			case 0x0F:
				return;
			case 0x10:
				NR41 = dat;
				break;
			case 0x11:
				NR42 = dat;
				break;
			case 0x12:
				NR43 = dat;
				break;
			case 0x13:
				NR44 = dat;
				break;
			case 0x14:
				NR50 = dat;
				break;
			case 0x15:
				NR51 = dat;
				break;
			case 0x16:
				NR52 = dat;
				break;
			case 0x17:
				return;
			case 0x18:
				return;
			case 0x19:
				return;
			case 0x1A:
				return;
			case 0x1B:
				return;
			case 0x1C:
				return;
			case 0x1D:
				return;
			case 0x1E:
				return;
			case 0x1F:
				return;
			case 0x20:
				WaveRAM[0x00] = dat;
				break;
			case 0x21:
				WaveRAM[0x01] = dat;
				break;
			case 0x22:
				WaveRAM[0x02] = dat;
				break;
			case 0x23:
				WaveRAM[0x03] = dat;
				break;
			case 0x24:
				WaveRAM[0x04] = dat;
				break;
			case 0x25:
				WaveRAM[0x05] = dat;
				break;
			case 0x26:
				WaveRAM[0x06] = dat;
				break;
			case 0x27:
				WaveRAM[0x07] = dat;
				break;
			case 0x28:
				WaveRAM[0x08] = dat;
				break;
			case 0x29:
				WaveRAM[0x09] = dat;
				break;
			case 0x2A:
				WaveRAM[0x0A] = dat;
				break;
			case 0x2B:
				WaveRAM[0x0B] = dat;
				break;
			case 0x2C:
				WaveRAM[0x0C] = dat;
				break;
			case 0x2D:
				WaveRAM[0x0D] = dat;
				break;
			case 0x2E:
				WaveRAM[0x0E] = dat;
				break;
			case 0x2F:
				WaveRAM[0x0F] = dat;
				break;
		}
	}
	
	private function get initialEnvelopeVolume1():uint 
	{
		return ((NR12 >> 4) & 0x0F);
	}
	
	private function get envelopeDirection1():int 
	{
		return ((NR12 >> 3) & 0x01) == 1 ? 1 : -1;
	}
	
	private function get envelopeWait1():uint
	{
		return (NR12 & 0x07);
	}
	
	private function get soundLength1():uint
	{
		return 64 - (NR11 & 0x3F);
	}
	
	private function get sweepWait1():uint
	{
		return ((NR10 >> 4) & 0x07);
	}
	
	private function get sweepDirection1():uint
	{
		return ((NR10 >> 3) & 0x01);
	}
	
	private function get sweepShift1():uint
	{
		return (NR10 & 0x07);
	}
	
	private function get wavePatternDuty1():uint
	{
		switch ((NR11 >> 6) & 0x03) {
			case 0: return 2;
			case 1: return 4;
			case 2: return 8;
			case 3: return 12;
		}
		return 0;
	}
	
	public function exec(clock:uint):void 
	{
		if (!(NR52 & 0x80)) // sound off
			return;
		return;
	
		total_clock += clock;
		div_clock += clock;
		
		var count:uint;
		var i:uint;
		
		if (NR52 & 0x01) { // Channel 1 enabled
			counter1 += clock;
			count = NR13 | ((NR14 & 0x07) << 8);
			
			// programable counter & duty cycle
			if (counter1 > count) {
				counter1 -= count;
				duty1++;
				
				if (duty1 == 16)
					duty1 = 0;
			}
			//for (i = 0; i < clock; i++)
			//{
				if (duty1 < wavePatternDuty1) {
					if ((NR12 & 0x07) == 0) { // decay off
						volume1 += (((NR12 >> 4) & 0x0F) * clock);
					} else { // decay on
						volume1 += (decay1 * clock);
					}
				}
			//}
			
		}
			
		// 1/256 second
		if (total_clock > 4096) {
			total_clock -= 4096;
			tick1d256++;
			
			tick256();
			switch (tick1d256) {
				case 2:
					tick128();
					break;
				case 4:
					tick128();
					tick64();
					tick1d256 = 0;
					break;
				
			}
		}
		
		// 1/32768 (32) second
		if (div_clock > 23) {
			var v:Number;
			
			v = 0;
			div_clock -= 23;
			
			// sound 1 enabled
			if (NR52 & 0x01) {
				if (length1 != 0)
					v += volume1;
				volume1 = 0;
			}
			
			v /= (23 * 16);
			ringBuffer[pointer] = v;
			pointer++;
			if (pointer >= ringBuffer.length)
				pointer = 0;
		}
	}
	
	private function tick256():void 
	{
		if (NR52 & 0x01) {
			if (length1 > 0)
				length1--;
			/*if (soundLength1 <= length1) {
				length1 = 0;
				// sound1 off
				if (NR14 & 0x40)
					NR52 &= 0xFE;
			}*/
		}
	}
	
	private function tick128():void 
	{
		var waveLen:int;
		
		if ((NR52 & 0x01) && (length1 != 0) && (sweepShift1 != 0)) {
			sweep1++;
			if (sweep1 >= sweepWait1) {
				sweep1 = 0;
				waveLen = NR13 | ((NR14 & 0x07) << 8);
				
				//if (waveLen <= 8)
				//	return;
				
				switch (sweepDirection1) {
				case 0: // positive
					waveLen = waveLen + (waveLen >> sweepShift1);
					//if (waveLen >= 0x800)
					//	waveLen = 0;
					break;
				case 1: // negative
					waveLen = waveLen - (waveLen >> sweepShift1);
					//if (newWaveLen < 0)
					//	newWaveLen = 0;
					break;
				}
				NR13 = (waveLen & 0xFF);
				NR14 &= 0xF8;
				NR14 |= ((waveLen >> 8) & 0x07);
			}
		}
	}
	
	private function tick64():void 
	{
		if (NR52 & 0x01) {
			env_counter1++;
			
			// decay calc & decay reload
			if (env_counter1 >= envelopeWait1) {
				env_counter1 = 0;
				decay1 += envelopeDirection1;
				//decay1 &= 0x0F;
				if (decay1 <= 0) 
					decay1 = 0;
				if (decay1 >= 16)
					decay1 = 15;
					//if (!(NR14 & 0x40)) {
					//	decay1 = initialEnvelopeVolume1;
					//} else {
					//	;//decay1 = 0;
					//}
				//}
				//}
			}
		}
	}
	
}

/**
 * ...
 */
class GB 
{
	import flash.display.BitmapData;
	import flash.geom.Point;
	import flash.geom.Rectangle;
	import flash.ui.Keyboard;
	import flash.utils.ByteArray;

private const CY:Array =
[
//   0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F
	 4,12, 8, 8, 4, 4, 8, 4,20, 8, 8, 8, 4, 4, 8, 4,//0
	 4,12, 8, 8, 4, 4, 8, 4,12, 8, 8, 8, 4, 4, 8, 4,//1
	 8,12, 8, 8, 4, 4, 8, 4, 8, 8, 8, 8, 4, 4, 8, 4,//2
	 8,12, 8, 8,12,12,12, 4, 8, 8, 8, 8, 4, 4, 8, 4,//3
	 4, 4, 4, 4, 4, 4, 8, 4, 4, 4, 4, 4, 4, 4, 8, 4,//4
	 4, 4, 4, 4, 4, 4, 8, 4, 4, 4, 4, 4, 4, 4, 8, 4,//5
	 4, 4, 4, 4, 4, 4, 8, 4, 4, 4, 4, 4, 4, 4, 8, 4,//6
	 8, 8, 8, 8, 8, 8, 4, 8, 4, 4, 4, 4, 4, 4, 8, 4,//7
	 4, 4, 4, 4, 4, 4, 8, 4, 4, 4, 4, 4, 4, 4, 8, 4,//8
	 4, 4, 4, 4, 4, 4, 8, 4, 4, 4, 4, 4, 4, 4, 8, 4,//9
	 4, 4, 4, 4, 4, 4, 8, 4, 4, 4, 4, 4, 4, 4, 8, 4,//A
	 4, 4, 4, 4, 4, 4, 8, 4, 4, 4, 4, 4, 4, 4, 8, 4,//B
	 8,12,12,16,12,16, 8,16, 8,16,12, 0,12,24, 8,16,//C
	 8,12,12, 0,12,16, 8,16, 8,16,12, 0,12, 0, 8,16,//D
	12,12, 8, 0, 0,16, 8,16,16, 4,16, 0, 0, 0, 8,16,//E
	12,12, 8, 4, 0,16, 8,16,12, 8,16, 4, 0, 0, 8,16 //F
];

private const CY_CB:Array =
[
//   0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8,
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8,
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8,
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8,
	 8, 8, 8, 8, 8, 8,12, 8, 8, 8, 8, 8, 8, 8,12, 8,
	 8, 8, 8, 8, 8, 8,12, 8, 8, 8, 8, 8, 8, 8,12, 8,
	 8, 8, 8, 8, 8, 8,12, 8, 8, 8, 8, 8, 8, 8,12, 8,
	 8, 8, 8, 8, 8, 8,12, 8, 8, 8, 8, 8, 8, 8,12, 8,
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8,
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8,
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8,
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8,
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8,
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8,
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8,
	 8, 8, 8, 8, 8, 8,16, 8, 8, 8, 8, 8, 8, 8,16, 8
];

private const ZT:Array =
[
	ZF,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
];
private function io_read(adr:uint):uint
{
	adr &= 0xFFFF;
	var ret:uint;
	switch (adr) {
	case 0xFF00://P1(パッド制御)
		if (P1 == 0x03) {
			return 0xFF;
		}
		switch ((P1 >> 4) & 0x3) {
		case 0:
			return 0xC0|((padData&0x81?0:1)|(padData&0x42?0:2)|(padData&0x24?0:4)|(padData&0x18?0:8));
		case 1:
			return 0xD0|((padData&0x01?0:1)|(padData&0x02?0:2)|(padData&0x04?0:4)|(padData&0x08?0:8));
		case 2:
			return 0xE0|((padData&0x80?0:1)|(padData&0x40?0:2)|(padData&0x20?0:4)|(padData&0x10?0:8));
		case 3:
			return 0xFF;
		}
		return 0xDF;
	case 0xFF01://SB(シリアル通信送受信)
		return SB;
	case 0xFF02://SC(シリアルコントロール)
		return (SC & 0x83) | 0x7C;
	case 0xFF03://不明
		return 0xFF;
	case 0xFF04: return DIV; //DIV(ディバイダー?)
	case 0xFF05: return TIMA; //TIMA(タイマカウンタ)
	case 0xFF06: return TMA; //TMA(タイマ調整)
	case 0xFF07: return TAC | 0xF8; //TAC(タイマコントロール)
	case 0xFF08: // 不明
	case 0xFF09:
	case 0xFF0A:
	case 0xFF0B:
	case 0xFF0C:
	case 0xFF0D:
	case 0xFF0E:
		return 0xFF;
	case 0xFF0F: return IF; //IF(割りこみフラグ)
	case 0xFF40: return LCDC; //LCDC(LCDコントロール)
	case 0xFF41: return STAT | 0x80; //STAT(LCDステータス)
	case 0xFF42: return SCY; //SCY(スクロールY)
	case 0xFF43: return SCX; //SCX(スクロールX)
	case 0xFF44: return LY; //LY(LCDC Y座標)
	case 0xFF45: return LYC; //LYC(LY比較)
	case 0xFF46: return 0; //DMA(DMA転送)
	case 0xFF47: return BGP; //BGP(背景パレット)
	case 0xFF48: return OBP1; //OBP1(オブジェクトパレット1)
	case 0xFF49: return OBP2; //OBP2(オブジェクトパレット2)
	case 0xFF4A: return WY; //WY(ウインドウY座標)
	case 0xFF4B: return WX; //WX(ウインドウX座標)
	case 0xFF4C: return 0xFF;
		//以下カラーでの追加
	case 0xFF4D://KEY1システムクロック変更
		return 0;
	case 0xFF4F: return VBK; //VBK(内部VRAMバンク切り替え)
	case 0xFF50: return 0xFF;// 不明
		
	case 0xFF51: return dma_src >> 8; //HDMA1(転送元上位)
	case 0xFF52: return dma_src & 0xff; //HDMA2(転送元下位)
	case 0xFF53: return dma_dest >> 8; //HDMA3(転送先上位)
	case 0xFF54: return dma_dest & 0xff; //HDMA4(転送先下位)
	case 0xFF55://HDMA5(転送実行)
		return 0xFF;
	case 0xFF56://RP(赤外線)
		return 0;
	case 0xFF68: return BCPS; //BCPS(BGパレット書き込み指定)
	case 0xFF69://BCPD(BGパレット書きこみデータ)
		return ret;
	case 0xFF6A: return OCPS; //OCPS(OBJパレット書きこみ指定)
	case 0xFF6B://OCPD(OBJパレット書きこみデータ)
		return ret;
	case 0xFF70: return SVBK; //SVBK(内部RAMバンク切り替え)
	case 0xFFFF: return IE; //IE(割りこみマスク)
	// undocumented register
	case 0xFF6C: return _ff6c & 1;
	case 0xFF72: return _ff72;
	case 0xFF73: return _ff73;
	case 0xFF74: return _ff74;
	case 0xFF75: return _ff75 & 0x70;
	case 0xFF76: return 0;
	case 0xFF77: return 0;
	default:
		if (adr > 0xFF0F && adr < 0xFF40) {
			return apu.read(adr - 0xFF10);
		}
		else if ((adr > 0xff70) && (adr < 0xff80)) {
			return ext_mem[adr - 0xff71] & 0xFF;
		} else
			return 0xFF;
	}
	return 0xFF;
}

private function io_write(adr:uint, dat:uint):void
{
	adr &= 0xFFFF;
	dat &= 0xFF;
	switch(adr){
	case 0xFF00://P1(パッド制御)
		P1 = dat;
		return;
	case 0xFF01://SB(シリアルシリアル通信送受信)
		SB = dat;
		return;
	case 0xFF02://SC(コントロール)
		if (gb_type==1){
			SC = dat & 0x81;
		}
		else{ // GBCでの拡張
			SC = dat & 0x83;
		}
		return;
	case 0xFF04://DIV(ディバイダー)
		DIV = 0;
		return;
	case 0xFF05://TIMA(タイマカウンタ)
		TIMA = dat;
		return;
	case 0xFF06://TMA(タイマ調整)
		TMA = dat;
		return;
	case 0xFF07://TAC(タイマコントロール)
		if ((dat & 0x04) && !(TAC & 0x04))
			sys_clock=0;
		TAC = dat;
		return;
	case 0xFF0F://IF(割りこみフラグ)
		IF = dat;
		return;
	case 0xFF40://LCDC(LCDコントロール)
		if ((dat & 0x80) && (!(LCDC & 0x80))) {
			LY = 0;
			//ref_gb->get_lcd()->clear_win_count();
		}
		LCDC = dat;
		return;
	case 0xFF41://STAT(LCDステータス)
		if (gb_type == 1) // オリジナルGBにおいてこのような現象が起こるらしい
			if (!(STAT & 0x02))
				IF |= INT_LCDC;

STAT = (STAT & 0x7) | (dat & 0x78);
		return;
	case 0xFF42://SCY(スクロールY)
		SCY = dat;
		return;
	case 0xFF43://SCX(スクロールX)
		SCX = dat;
		return;
	case 0xFF44://LY(LCDC Y座標)
		//ref_gb->get_lcd()->clear_win_count();
		return;
	case 0xFF45://LYC(LY比較)
		LYC = dat;
		return;
	case 0xFF46://DMA(DMA転送)
		if (dat > 0xF1)
			return;
		
		var i:uint;
		dat *= 256;
		for (i = 0; i < 0xA0; i++)
			oam[i] = read(dat + i);
		dma_remain = 167;
		return;
	case 0xFF47://BGP(背景パレット)
		BGP = dat;
		return;
	case 0xFF48://OBP1(オブジェクトパレット1)
		OBP1 = dat;
		return;
	case 0xFF49://OBP2(オブジェクトパレット2)
		OBP2 = dat;
		return;
	case 0xFF4A://WY(ウインドウY座標)
		WY = dat;
		return;
	case 0xFF4B://WX(ウインドウX座標)
		WX = dat;
		return;

//以下カラーでの追加
	case 0xFF4D://KEY1システムクロック変更
		KEY1 = dat & 1;
		return;
	case 0xFF4F://VBK(内部VRAMバンク切り替え)
		return;
	case 0xFF51://HDMA1(転送元上位)
		dma_src &= 0x00F0;
		dma_src |= (dat << 8);
		return;
	case 0xFF52://HDMA2(転送元下位)
		dma_src &= 0xFF00;
		dma_src |= (dat & 0xF0);
		return;
	case 0xFF53://HDMA3(転送先上位)
		dma_dest &= 0x00F0;
		dma_dest |= ((dat & 0xFF) << 8);
		return;
	case 0xFF54://HDMA4(転送先下位)
		dma_dest &= 0xFF00;
		dma_dest |= (dat & 0xF0);
		return;
	case 0xFF55://HDMA5(転送実行)
		return;
	case 0xFF56://RP(赤外線)
		return;
	case 0xFF68://BCPS(BGパレット書き込み指定)
		BCPS = dat;
		return;
	case 0xFF69://BCPD(BGパレット書きこみデータ xBBBBBGG GGGRRRRR)
		return;
	case 0xFF6A://OCPS(OBJパレット書きこみ指定)
		OCPS = dat;
		return;
	case 0xFF6B://OCPD(OBJパレット書きこみデータ)
		return;
	case 0xFF70://SVBK(内部RAMバンク切り替え)
		return;

case 0xFFFF://IE(割りこみマスク)
		IE = dat;
		return;

// undocumented register
	case 0xFF6C: _ff6c = dat & 1; return;
	case 0xFF72: _ff72 = dat; return;
	case 0xFF73: _ff73 = dat; return;
	case 0xFF74: _ff74 = dat; return;
	case 0xff75: _ff75 = dat & 0x70; return;

default:
		if (adr > 0xFF0F && adr < 0xFF40) {
			apu.write(adr - 0xFF10, dat);
			//apu.write(adr,dat,total_clock);
			return;
		}
		else if ((adr > 0xff70) && (adr < 0xff80))
			ext_mem[adr - 0xff71] = dat;
	}
}

public function ADD(arg:uint):void 
{
	A &= 0xFF;
	arg &= 0xFF;
	var tmp:uint = A + arg;
	var tmpl:uint = tmp & 0xFF;
	var tmph:uint = (tmp >> 8) & 0x01;
	F = tmph | ZTable[tmpl] | ((A ^ arg ^ tmpl) & HF);
	A = tmpl;
}

private function ADC(arg:uint):void 
{
	A &= 0xFF;
	arg &= 0xFF;
	var tmp:uint = A + arg + (F & CF);
	var tmpl:uint = tmp & 0xFF;
	var tmph:uint = (tmp >> 8) & 0x01;
	F = tmph | ZTable[tmpl] | ((A ^ arg ^ tmpl) & HF);
	A = tmpl;
}

private function SUB(arg:uint):void 
{
	A &= 0xFF;
	arg &= 0xFF;
	var tmp:uint = (A - arg) & 0x1FF;
	var tmpl:uint = tmp & 0xFF;
	var tmph:uint = (tmp >> 8) & 0x01;
	F = NF | tmph | ZTable[tmpl] | ((A ^ arg ^ tmpl) & HF);
	A = tmpl;
}

private function SBC(arg:uint):void 
{
	A &= 0xFF;
	arg &= 0xFF;
	var tmp:uint = (A - arg - (F & CF)) & 0x1FF;
	var tmpl:uint = tmp & 0xFF;
	var tmph:uint = (tmp >> 8) & 0x01;
	F = NF | tmph | ZTable[tmpl] | ((A ^ arg ^ tmpl) & HF);
	A = tmpl;
}

private function CP(arg:uint):void 
{
	A &= 0xFF;
	arg &= 0xFF;
	var tmp:uint = (A - arg) & 0x1FF;
	var tmpl:uint = tmp & 0xFF;
	var tmph:uint = (tmp >> 8) & 0x01;
	F = NF | tmph | ZTable[tmpl] | ((A ^ arg ^ tmpl) & HF);
}

private function AND(arg:uint):void 
{
	A &= arg;
	A &= 0xFF;
	F = HF | ZTable[A];
}

private function OR(arg:uint):void 
{
	A |= arg;
	A &= 0xFF;
	F = ZTable[A];
}

private function XOR(arg:uint):void 
{
	A ^= arg;
	A &= 0xFF;
	F = ZTable[A];
}

private function INC(arg:uint):uint 
{
	arg++;
	arg &= 0xFF;
	F = (F & CF) | ZTable[arg] | ((arg & 0x0F) ? 0 : HF);
	return arg;
}

private function DEC(arg:uint):uint 
{
	arg--;
	arg &= 0xFF;
	F = NF | (F & CF) | ZTable[arg] | (((arg & 0x0F) == 0x0F) ? HF : 0);
	return arg;
}

private function ADDW(arg:uint):void 
{
	arg &= 0xFFFF;
	var hl:uint = (HL & 0xFFFF);
	var tmp:uint = hl + arg;
	F = (F & ZF) | (((hl ^ arg ^ tmp) & 0x1000) ? HF : 0) | ((tmp & 0x10000) ? CF : 0);
	H = (tmp >> 8) & 0xFF;
	L = (tmp & 0xFF);
}

public var dataLoaded:Boolean = false;
	public var output:BitmapData;
	
	public var cart:GbCart;
	private var apu:GbApu = new GbApu();
	
	// VRAM のタイルを入れる
	private var tile:Vector.<BitmapData>;
	
	private var gb_type:uint = 1;
	public var padData:uint;
	public var stopPC:uint = 0;
	public var stepFlag:Boolean = false;
	public var A:uint, B:uint, C:uint, D:uint, E:uint, F:uint;
	public var H:uint, L:uint, SP:uint, PC:uint, cycles:uint, I:uint;
	private var int_desable:Boolean, halt:Boolean, tmp_clocks:uint;
	private var last_int:uint;
	public var count:uint = 0;
	
	private var sys_clock:uint, rest_clock:int, div_clock:uint, total_clock:uint;
	
	private var P1:uint, SB:uint, SC:uint, DIV:uint, TIMA:uint, TMA:uint, TAC:uint;
	private var IF:uint, LCDC:uint, STAT:uint, SCY:uint, SCX:uint, LY:uint, LYC:uint;
	private var DMA:uint, BGP:uint, OBP1:uint, OBP2:uint, WY:uint, WX:uint, IE:uint;
	
	private var KEY1:uint, VBK:uint, HDMA1:uint, HDMA2:uint, HDMA3:uint, HDMA4:uint;
	private var HDMA5:uint, RP:uint, BCPS:uint, BCPD:uint, OCPS:uint, OCPD:uint, SVBK:uint;
	
	private var _ff6c:uint, _ff72:uint, _ff73:uint, _ff74:uint, _ff75:uint;
	private var ext_mem:Vector.<uint>;
	
	private var dma_src:uint, dma_dest:uint;
	private var dma_remain:uint;
	
	private var z802gb:Vector.<uint>, gb2z80:Vector.<uint>;

private var ram:Vector.<uint>;
	private var vram:Vector.<uint>;
	private var stack:Vector.<uint>;
	private var oam:Vector.<uint>;
	private var spare_oam:Vector.<uint>;
	
	public const ZF:uint = 0x40;
	public const HF:uint = 0x10;
	public const NF:uint = 0x02;
	public const CF:uint = 0x01;
	
	public const INT_VBLANK:uint = 1;
	public const INT_LCDC:uint = 2;
	public const INT_TIMER:uint = 4;
	public const INT_SERIAL:uint = 8;
	public const INT_PAD:uint = 16;
	
	private var cys:Vector.<uint>;
	private var cys_cb:Vector.<uint>;
	private var ZTable:Vector.<uint>;
	
	public function GB() 
	{
		initTables();
		initRegisters();
		initRam();
		initRom();
	}
	
	private function get2digit(n:uint):String 
	{
		var s:String = n.toString(16).toUpperCase();
		if (s.length == 1)
			s = "0" + s;
		return s;
	}
	
	private function get4digit(n:uint):String 
	{
		var s:String = n.toString(16).toUpperCase();
		for (var i:uint = 4; i > s.length; i--)
			s = "0" + s;
		return s;
	}
	
	public function setPad(key:uint, value:Boolean):void 
	{
		var padOld:uint;
		padOld = padData;
		switch (key) {
			case Keyboard.RIGHT:
				if (value) padData |= 0x80; else padData &= 0x7F;
				break;
			case Keyboard.LEFT:
				if (value) padData |= 0x40; else padData &= 0xBF;
				break;
			case Keyboard.UP:
				if (value) padData |= 0x20; else padData &= 0xDF;
				break;
			case Keyboard.DOWN:
				if (value) padData |= 0x10; else padData &= 0xEF;
				break;
			case 88: // X (A Button)
				if (value) padData |= 0x01; else padData &= 0xFE;
				break;
			case 90: // Z (B Button)
				if (value) padData |= 0x02; else padData &= 0xFD;
				break;
			case 83: // S (Start Button)
				if (value) padData |= 0x08; else padData &= 0xF7;
				break;
			case 65: // A (Select Button)
				if (value) padData |= 0x04; else padData &= 0xFB;
				break;
		}
		if ((padOld & 0x80) != (padData & 0x80))
			irq(INT_PAD);
	}
	
	private function initRegisters():void 
	{
		A = 0x01; B = 0x00; C = 0x13; D = 0x00;
		E = 0xD8; F = 0xB0; H = 0x01; L = 0x4D;
		SP = 0xFFFE; PC = 0x100; cycles = 0;
		I = 0;
		IF = 0;
		int_desable = false;
		halt = false;
		tmp_clocks = 0;
		sys_clock = 0;
		rest_clock = 0;
		div_clock = 0;
		total_clock = 0;
		
		DIV = 0x72;
		TIMA = 0x00; TMA = 0x00; TAC = 0x00;
		LCDC = 0x91; SCY = 0x00; SCX = 0x00; LYC = 0x00;
		BGP = 0xFC; OBP1 = 0xFF; OBP2 = 0xFF;
		WY = 0x00; WX = 0x00; IE = 0x00;
		P1 = 0x00;
	}
	
	/**
	 * 配列になっているデータの初期化
	 */
	private function initTables():void 
	{
		var i:uint;
		z802gb = new Vector.<uint>();
		gb2z80 = new Vector.<uint>();
		
		z802gb.length = 256;
		z802gb.fixed = true;
		gb2z80.length = 256;
		gb2z80.fixed = true;
		
		for (i = 0; i < 256; i++) {
			z802gb[i] = ((i & 0x40)?0x80:0) | ((i & 0x10)?0x20:0) | ((i & 0x02)?0x40:0) | ((i & 0x01)?0x10:0);
			gb2z80[i] = ((i & 0x80)?0x40:0) | ((i & 0x40)?0x02:0) | ((i & 0x20)?0x10:0) | ((i & 0x10)?0x01:0);
		}
		
		ext_mem = new Vector.<uint>();
		ext_mem.length = 0x10;
		ext_mem.fixed = true;
		
		cys = new Vector.<uint>();
		cys.length = 0x102;
		cys.fixed = true;
		
		cys_cb = new Vector.<uint>();
		cys_cb.length = 0x101;
		cys_cb.fixed = true;
		
		ZTable = new Vector.<uint>();
		ZTable.length = 0x104;
		ZTable.fixed = true;
		
		for (i = 0; i < 256; i++) {
			cys[i] = CY[i];
			cys_cb[i] = CY_CB[i];
			ZTable[i] = ZT[i];
		}
		
		tile = new Vector.<BitmapData>();
		tile.length = 384;
		tile.fixed = true;
		
		for (i = 0; i < 384; i++) {
			tile[i] = new BitmapData(8, 8);
		}
	}
	
	public function read_debug_memory(adr:uint):String 
	{
		var s:String = "";
		adr &= 0xFFF0;
		
		for (var j:uint = 0; j < 16; j++)
		{
			s += get4digit(adr + j * 16) + ":";
			for (var i:uint = 0; i < 16; i++)
				s += get2digit(read(adr + i + j * 16));
			s += "\n";
		}
		return s;
	}
	
	private function writeVram(adr:uint, dat:uint):void 
	{
		var i:uint = adr >> 4;
		
		if (i >= 384)
			return;
		
		tile[i].lock();
		
		var x:uint;
		var y:uint = adr & 0x0F;
		var dat2:uint;
		var color:uint;
		
		if (y % 2 == 0) {
			dat2 = vram[i * 16 + y + 1];
			for (x = 0; x < 8; x++)
			{
				color = 0;
				if (dat & (0x80 >> x))
					color = 0x555555;
				if (dat2 & (0x80 >> x))
					color |= 0xAAAAAA;
				tile[i].setPixel(x, y / 2, 0xFFFFFF - color);
			}
		} else {
			dat2 = vram[i * 16 + y - 1];
			for (x = 0; x < 8; x++)
			{
				color = 0;
				if (dat2 & (0x80 >> x))
					color = 0x555555;
				if (dat & (0x80 >> x))
					color |= 0xAAAAAA;
				tile[i].setPixel(x, y / 2, 0xFFFFFF - color);
			}
		}
		tile[i].unlock();
	}
	
	public function render(output:BitmapData):void 
	{
		if (!(LCDC & 0x80))
			return;
			
		var rect:Rectangle = new Rectangle(0, 0, 8, 8);
		output.lock();
		
		// 背景の転送
		var x1:int;
		var y1:int;
		var dx:int;
		var dy:int;
		var ti:uint;
		var ti2:uint;
		
		if (LCDC & 0x01) { // 背景表示
			for (y1 = 0; y1 < 32; y1++)
			{
				if (LCDC & 0x08)
					ti = 0x1C00 + y1 * 32;
				else 
					ti = 0x1800 + y1 * 32;
				
				dy = y1 * 8 - SCY;
				if (dy < -8)
					dy += 256;
				if (dy >= 144)
					continue;
				for (x1 = 0; x1 < 32; x1++)
				{
					dx = x1 * 8 - SCX;
					if (dx < -8)
						dx += 256;
					if (dx >= 160)
						continue;
					if (LCDC & 0x10) {
						ti2 = vram[ti + x1];
					} else {
						if (vram[ti + x1] < 128)
							ti2 = vram[ti + x1] + 256;
						else
							ti2 = vram[ti + x1];
					}
					output.copyPixels(tile[ti2], rect, new Point(dx, dy));
				}
			}
		}
		
		if (LCDC & 0x20 && WX >= 0 && WX <= 166 && WY >= 0 && WY <= 143) { // ウインドウ表示
			for (y1 = 0; y1 < 32; y1++)
			{
				if (LCDC & 0x40)
					ti = 0x1C00 + y1 * 32;
				else 
					ti = 0x1800 + y1 * 32;
				
				dy = y1 * 8 + WY;
				if (dy <= -8 || dy >= 144)
					continue;
				for (x1 = 0; x1 < 32; x1++)
				{
					dx = x1 * 8 + WX - 7;
					if (dx <= -8 || dx >= 160)
						continue;
					if (LCDC & 0x10) {
						ti2 = vram[ti + x1];
					} else {
						if (vram[ti + x1] < 128)
							ti2 = vram[ti + x1] + 256;
						else
							ti2 = vram[ti + x1];
					}
					//copyPixel(output, tile[ti2], dx, dy, false, false);
					output.copyPixels(tile[ti2], rect, new Point(dx, dy));
				}
			}
		}
		
		// スプライトの転送
		if (LCDC & 0x02) { // スプライト表示
			var y:int;
			var x:int;
			var p:uint;
			var rx:Boolean;
			var ry:Boolean;
			if (LCDC & 0x04) { // 8x16
				for (x1 = 0; x1 < 20; x1++)
				{
					y = oam[x1 * 8] - 16;
					x = oam[x1 * 8 + 1] - 8;
					p = oam[x1 * 8 + 2];
					rx = (oam[x1 * 8 + 3] & 0x20) ? true : false;
					ry = (oam[x1 * 8 + 3] & 0x40) ? true : false;
					
					if (x <= -8 || y <= -8 || x >= 160 || y >= 144)
						continue;
					copyPixel(output, tile[p], x, y, rx, ry);
					
					p = oam[x1 * 8 + 4 + 2];
					copyPixel(output, tile[p], x, y + 8, rx, ry);
					//output.copyPixels(tile[p], rect, new Point(x, y));
				}
			} else {
				for (x1 = 0; x1 < 40; x1++)
				{
					y = oam[x1 * 4] - 16;
					x = oam[x1 * 4 + 1] - 8;
					p = oam[x1 * 4 + 2];
					rx = (oam[x1 * 4 + 3] & 0x20) ? true : false;
					ry = (oam[x1 * 4 + 3] & 0x40) ? true : false;
					
					if (x <= -8 || y <= -8 || x >= 160 || y >= 144)
						continue;
					copyPixel(output, tile[p], x, y, rx, ry);
					//output.copyPixels(tile[p], rect, new Point(x, y));
				}
			}
		}
		
		output.unlock();
	}
	
	private function copyPixel(dest:BitmapData, source:BitmapData, dx:int, dy:int, rx:Boolean, ry:Boolean):void 
	{
		dest.lock();
		//source.lock();
		var y:int;
		var x:int;
		var color:uint;
		for (y = 0; y < 8; y++)
		{
			for (x = 0; x < 8; x++)
			{
				var drx:int = x;
				var dry:int = y;
				if (rx)
					drx = 7 - x;
				if (ry)
					dry = 7 - y;
				color = source.getPixel(x, y);
				if (color == 0xFFFFFF)
					continue;
				dest.setPixel(drx + dx, dry + dy, color);
			}				
		}
		//source.unlock();
		dest.unlock();
	}
	
	private function initRam():void 
	{
		ram = new Vector.<uint>();
		ram.length = 0x2000; // 8KB
		ram.fixed = true;
		vram = new Vector.<uint>();
		vram.length = 0x2000; // 8KB
		vram.fixed = true;
		stack = new Vector.<uint>();
		stack.length = 0x80;
		stack.fixed = true;
		oam = new Vector.<uint>();
		oam.length = 0xA0;
		oam.fixed = true;
		spare_oam = new Vector.<uint>();
		spare_oam.length = 0xA0;
		spare_oam.fixed = true;
	}
	
	private function initRom():void 
	{
	}
	
	public function loadRom(byteArray:ByteArray):void 
	{
		cart = new GbCart(byteArray);
		dataLoaded = true;
		//trace("Title : " + cart.title);
		//trace("Type : " + cart.type);
		//trace("typeCode : " + cart.typeCode);
	}
	
	public function get AF():uint
	{
		A = (A & 0xFF);
		F = (F & 0xFF);
		return (A << 8) | z802gb[F];			
	}
	
	public function set AF(arg:uint):void
	{
		A = ((arg >> 8) & 0xFF);
		F = gb2z80[arg & 0xFF];			
	}
	
	public function get BC():uint
	{
		B = (B & 0xFF);
		C = (C & 0xFF);
		return (B << 8) | C;			
	}
	
	public function set BC(arg:uint):void
	{
		B = ((arg >> 8) & 0xFF);
		C = (arg & 0xFF);			
	}
	
	public function get DE():uint
	{
		D = (D & 0xFF);
		E = (E & 0xFF);
		return (D << 8) | E;			
	}
	
	public function set DE(arg:uint):void
	{
		D = ((arg >> 8) & 0xFF);
		E = (arg & 0xFF);			
	}
	
	public function get HL():uint
	{
		H = (H & 0xFF);
		L = (L & 0xFF);
		return (H << 8) | L;			
	}
	
	public function set HL(arg:uint):void
	{
		H = ((arg >> 8) & 0xFF);
		L = (arg & 0xFF);			
	}
	
	public function read(adr:uint):uint 
	{
		//adr = (adr & 0xFFFF);
		switch (adr >> 13)
		{
		case 0:
		case 1:
			return cart.read(adr);//ROM領域
		case 2:
		case 3:
			return cart.readBank(adr);//バンク可能ROM
		case 4:
			return vram[adr & 0x1FFF];//8KBVRAM
		case 5:
			return cart.readSram(adr & 0x1FFF) & 0xFF;
			break;
		case 6:
				return ram[adr & 0x1fff];// & 0xFF;
		case 7:
			if (adr < 0xFE00){
					return ram[adr & 0x1fff];// & 0xFF; // ram_bank
			}
			else if (adr < 0xFEA0)
				return oam[adr - 0xFE00];// & 0xFF;//object attribute memory
			else if (adr < 0xFF00) {
				var index:uint;
				index = (adr - 0xFEA0) >> 5;
				index <<= 3;
				index |= (adr & 7);
				return spare_oam[index];// & 0xFF;
			}
			else if (adr < 0xFF80)
				return io_read(adr) & 0xFF;//I/O
			else if (adr < 0xFFFF)
				return stack[adr - 0xFF80];// & 0xFF;//stack
			else
				return IE;// & 0xFF;//I/O
		}
		return 0;
	}

private function write(adr:uint, dat:uint):void
	{
		//adr = (adr & 0xFFFF);
		dat = (dat & 0xFF);
		
		switch ( adr >> 13 )
		{
		case 0: // ROMバンク 0
		case 1: // ROMバンク 0
		case 2: // ROMバンク 1
		case 3: // ROMバンク 1
			cart.write(adr, dat);
			break;
		case 4: // VRAM
			vram[adr & 0x1FFF] = dat;
			writeVram(adr & 0x1FFF, dat);
			break;
		case 5: // RAM バンク
			cart.writeSram(adr & 0x1FFF, dat);
			//if (ref_gb->get_mbc()->is_ext_ram())
			//	ref_gb->get_mbc()->get_sram()[adr&0x1FFF]=dat;//カートリッジRAM
			//else
			//	ref_gb->get_mbc()->ext_write(adr,dat);
			break;
		case 6: // 内部 RAM
			//if (adr&0x1000)
			//	ram_bank[adr&0x0fff]=dat;
			//else
				ram[adr & 0x1fff] = dat;
			break;
		case 7:
			if (adr < 0xFE00) {
			//	if (adr&0x1000)
			//		ram_bank[adr&0x0fff]=dat;
			//	else
					ram[adr & 0x1fff] = dat;
			}
			else if (adr < 0xFEA0)
				oam[adr - 0xFE00] = dat;
			else if (adr < 0xFF00) {
				var index:uint;
				index = (adr - 0xFEA0) >> 5;
				index <<= 3;
				index |= (adr & 7);
				spare_oam[index] = dat;
			} else if (adr < 0xFF80)
				io_write(adr,dat);//I/O
			else if (adr < 0xFFFF) {
				//if (adr == 0xFF8F)
				//	stopPC = PC;
				stack[adr - 0xFF80] = dat;//stack
			} else
				IE = dat;//I/O
			break;
		}
	}
	
	public function readw(adr:uint):uint
	{
		return read(adr) | (read(adr + 1) << 8);
	}
	
	public function writew(adr:uint, dat:uint):void
	{
		write(adr, dat);
		write(adr + 1, dat >> 8);
	}
	
	private function op_read():uint 
	{
		return read(PC++);
	}
	
	private function op_read_s():int 
	{
		var dat:uint = read(PC++);
		if (dat & 0x80)
			return (dat | 0xFFFFFF00);
		return dat;
	}
	
	private function op_readw():uint 
	{
		PC += 2; return readw(PC - 2);
	}
	
	public function irq(irq_type:uint):void 
	{
		if (!((irq_type == INT_VBLANK || irq_type == INT_LCDC) && (!(LCDC & 0x80))))
			IF |= irq_type;
	}
	
	public function irq_process():void
	{
		if (int_desable) {
			int_desable=false;
			return;
		}

if ((IF & IE) && (I || halt)) {//割りこみがかかる時
			if (halt)
				PC++;
			write(SP - 2, PC & 0xFF);
			write(SP - 1, (PC >> 8));
			SP -= 2;
			
			if (IF & IE & INT_VBLANK) {//VBlank
				PC = 0x40;
				IF &= 0xFE;
				last_int = INT_VBLANK;
			}
			else if (IF & IE & INT_LCDC) {//LCDC
				PC = 0x48;
				IF &= 0xFD;
				last_int = INT_LCDC;
			}
			else if (IF & IE & INT_TIMER) {//Timer
				PC = 0x50;
				IF &= 0xFB;
				last_int = INT_TIMER;
			}
			else if (IF & IE & INT_SERIAL) {//Serial
				PC = 0x58;
				IF &= 0xF7;
				last_int = INT_SERIAL;
			}
			else if (IF & IE & INT_PAD) {//Pad
				PC = 0x60;
				IF &= 0xEF;
				last_int = INT_PAD;
			}
			else {}

halt = false;
			I = 0;
		}
	}
	
	public function ex(clocks:uint):void 
	{
		var timer_clocks:Array = [1024, 16, 64, 256];
		var opcode:uint;
		var tmpb:uint = 0;
		var tmps:int = 0;
		
		rest_clock += clocks;
		
		if (dma_remain > 0) {
			rest_clock -= dma_remain;
			dma_remain = 0;
		}
		
		while (rest_clock > 0)
		{
			if (stopPC == PC)
				return;
			irq_process();
			opcode = read(PC++);
			tmp_clocks = cys[opcode];
			
// 0x00-0x0F
	switch (opcode) 
	{
case 0x00: break; // NOP
case 0x01: BC = op_readw(); break; //LD BC,(mn)
case 0x02: write(BC, A); break; // LD (BC),A : 00 000 010 :state 7
case 0x03: BC++; break; //INC BC
case 0x04: B = INC(B); break; //INC B
case 0x05: B = DEC(B); break; //DEC B
case 0x06: B = op_read(); break; // LD B,n
case 0x07: F = (A >> 7) & 0x01; A = ((A << 1) & 0xFE) | ((A >> 7) & 1); A &= 0xFF; break; //RLCA :state 4
case 0x08: writew(op_readw(), SP); break; //LD (mn),SP
case 0x09: ADDW(BC); break; //ADD HL,BC
case 0x0A: A = read(BC); break; // LD A,(BC) :00 001 010 :state 7
case 0x0B: BC--; break; //DEC BC
case 0x0C: C = INC(C); break; //INC C
case 0x0D: C = DEC(C); break; //DEC C
case 0x0E: C = op_read(); break; // LD C,n
case 0x0F: F = (A & 1); A = ((A >> 1) & 0x7F) | ((A << 7) & 0x80); A &= 0xFF; break; //RRCA :state 4
// 0x10-0x1F
case 0x10: halt=true;PC--;break; //STOP(HALT?)
case 0x11: DE = op_readw(); break; //LD DE,(mn)
case 0x12: write(DE, A); break; // LD (DE),A : 00 010 010 :state 7
case 0x13: DE++; break; //INC DE
case 0x14: D = INC(D); break; //INC D
case 0x15: D = DEC(D); break; //DEC D
case 0x16: D = op_read(); break; // LD D,n
case 0x17: tmpb = (A >> 7) & 0x01; A = ((A << 1) & 0xFE) | (F & CF); A &= 0xFF; F = tmpb; break; //RLA :state 4
case 0x18: {tmps=op_read_s();PC+=tmps;} break;//JR e : state 12
case 0x19: ADDW(DE); break; //ADD HL,DE
case 0x1A: A = read(DE); break; // LD A,(DE) :00 011 010 : state 7
case 0x1B: DE--; break; //DEC DE
case 0x1C: E = INC(E); break; //INC E
case 0x1D: E = DEC(E); break; //DEC E
case 0x1E: E = op_read(); break; // LD E,n
case 0x1F: tmpb = A & 1; A = ((A >> 1) & 0x7F) | ((F << 7) & 0x80); A &= 0xFF; F = tmpb; break; //RRA :state 4
// 0x20-0x2F
case 0x20: if (F & ZF) PC += 1; else {tmps=op_read_s();PC+=tmps; tmp_clocks = 12; } break;// JRNZ
case 0x21: HL = op_readw(); break; //LD HL,(mn)
case 0x22: write(HL, A); HL++; break; // LD (HLI),A : 00 110 010 :state 13
case 0x23: HL++; break; //INC HL
case 0x24: H = INC(H); break; //INC H
case 0x25: H = DEC(H); break; //DEC H
case 0x26: H = op_read(); break; // LD H,n
case 0x27://DAA :state 4
{
 var tmp:uint = (A & 0x0F);
 tmp = (F & NF)?
 (
 (F & CF)?
 (((F & HF)? 0x9A00:0xA000) + CF):
 ((F & HF)? 0xFA00:0x0000)
 )
 :
 (
 (F & CF)?
 (((F & HF)? 0x6600:((tmp < 0x0A)? 0x6000:0x6600)) + CF):
 (
 (F & HF)?
 ((A < 0xA0)? 0x0600:(0x6600 + CF)):
 (
 (tmp < 0x0A)? 
 ((A < 0xA0)? 0x0000:(0x6000 + CF)): 
	 ((A < 0x90)? 0x0600:(0x6600 + CF))
 )
 )
 );
 A += (tmp >> 8);
 A = (A & 0xFF);
 F = ZTable[A] | ((tmp & 0xFF) | (F & NF));
}
break;
case 0x28: if (F & ZF) {tmps=op_read_s();PC+=tmps; tmp_clocks = 12;} else PC += 1; break;// JRZ
case 0x29: ADDW(HL); break; //ADD HL,HL
case 0x2A: A = read(HL); HL++; break; // LD A,(HLI) : 00 111 010 :state 13
case 0x2B: HL--; break; //DEC HL
case 0x2C: L = INC(L); break; //INC L
case 0x2D: L = DEC(L); break; //DEC L
case 0x2E: L = op_read(); break; // LD L,n
case 0x2F: //CPL(1の補数) :state4
	A = ~A;
	A &= 0xFF;
	F |= (NF | HF);
	break;
// 0x30-0x3F
case 0x30: if (F & CF) PC += 1; else {tmps=op_read_s();PC+=tmps;tmp_clocks = 12;} break;// JRNC
case 0x31: SP = op_readw(); break; //LD SP,(mn)
case 0x32: write(HL, A); HL--; break; // LD (HLD),A : 00 110 010 :state 13
case 0x33: SP++; break; //INC SP
case 0x34: tmpb = read(HL); tmpb = INC(tmpb); write(HL, tmpb); break; //INC (HL) : 00 110 100 : state 11
case 0x35: tmpb = read(HL); tmpb = DEC(tmpb); write(HL, tmpb); break; //DEC (HL) : 00 110 101 : state 11
case 0x36: write(HL, op_read()); break; // LD (HL),n :00 110 110 :state 10
case 0x37: //SCF(set carry) :state 4
	F = (F & ~(NF | HF)) | CF;
	break;
case 0x38: if (F & CF) {tmps=op_read_s();PC+=tmps; tmp_clocks = 12;} else PC += 1; break;// JRC
case 0x39: ADDW(SP); break; //ADD HL,SP
case 0x3A: A = read(HL); HL--; break; // LD A,(HLD) : 00 111 010 :state 13
case 0x3B: SP--; break; //DEC SP
case 0x3C: A = INC(A); break; //INC A
case 0x3D: A = DEC(A); break; //DEC A
case 0x3E: A = op_read(); break; // LD A,n
case 0x3F: //CCF(not carry) :state 4
	F ^= 0x01;
	F = F & ~(NF | HF);
	break;
// 0x40-0x4F
case 0x40: break; // LD B,B
case 0x41: B = C; break; // LD B,C
case 0x42: B = D; break; // LD B,D
case 0x43: B = E; break; // LD B,E
case 0x44: B = H; break; // LD B,H
case 0x45: B = L; break; // LD B,L
case 0x46: B = read(HL); break; // LD B,(HL)
case 0x66: H = read(HL); break; // LD H,(HL)
case 0x47: B = A; break; // LD B,A
case 0x48: C = B; break; // LD C,B
case 0x49: break; // LD C,C
case 0x4A: C = D; break; // LD C,D
case 0x4B: C = E; break; // LD C,E
case 0x4C: C = H; break; // LD C,H
case 0x4D: C = L; break; // LD C,L
case 0x4E: C = read(HL); break; // LD C,(HL)
case 0x4F: C = A; break; // LD C,A
// 0x50-0x5F
case 0x50: D = B;break; // LD D,B
case 0x51: D = C;break; // LD D,C
case 0x52: break; // LD D,D
case 0x53: D = E; break; // LD D,E
case 0x54: D = H; break; // LD D,H
case 0x55: D = L; break; // LD D,L
case 0x56: D = read(HL); break; // LD D,(HL)
case 0x57: D = A; break; // LD D,A
case 0x58: E = B;break; // LD E,B
case 0x59: E = C;break; // LD E,C
case 0x5A: E = D;break; // LD E,D
case 0x5B: break; // LD E,E
case 0x5C: E = H;break; // LD E,H
case 0x5D: E = L;break; // LD E,L
case 0x5E: E = read(HL); break; // LD E,(HL)
case 0x5F: E = A;break; // LD E,A
// 0x60-0x6F
case 0x60: H = B; break; // LD H,B
case 0x61: H = C; break; // LD H,C
case 0x62: H = D; break; // LD H,D
case 0x63: H = E; break; // LD H,E
case 0x64: break; // LD H,H
case 0x65: H = L; break; // LD H,L
case 0x67: H = A; break; // LD H,A
case 0x68: L = B; break; // LD L,B
case 0x69: L = C; break; // LD L,C
case 0x6A: L = D; break; // LD L,D
case 0x6B: L = E; break; // LD L,E
case 0x6C: L = H; break; // LD L,H
case 0x6D: break; // LD L,L
case 0x6E: L = read(HL); break; // LD L,(HL)
case 0x6F: L = A; break; // LD L,A
// 0x70-0x7F
case 0x70: write(HL, B); break; // LD (HL),B
case 0x71: write(HL, C); break; // LD (HL),C
case 0x72: write(HL, D); break; // LD (HL),D
case 0x73: write(HL, E); break; // LD (HL),E
case 0x74: write(HL, H); break; // LD (HL),H
case 0x75: write(HL, L); break; // LD (HL),L
case 0x76:
	if (TAC & 0x04) {//タイマ割りこみ
		//var tmp:uint;
		tmpb = TIMA + (sys_clock + rest_clock) / timer_clocks[TAC & 0x03];

if (tmpb & 0xFF00) {//HALT中に割りこみがかかる場合
			//total_clock += (256 - TIMA) * timer_clocks[TAC & 0x03] - sys_clock;
			rest_clock -= (256 - TIMA) * timer_clocks[TAC & 0x03] - sys_clock;
			TIMA = TMA;
			halt = true;
			PC--;
			irq(INT_TIMER);
			sys_clock = (sys_clock + rest_clock) & (timer_clocks[TAC & 0x03] - 1);
		}
		else{
			TIMA = tmpb & 0xFF;
			sys_clock = (sys_clock + rest_clock) & (timer_clocks[TAC & 0x03] - 1);
			halt = true;
			//total_clock += rest_clock;
			rest_clock = 0;
			PC--;
		}
	}
	else{
		halt = true;
		//total_clock += rest_clock;
		div_clock += rest_clock;
		rest_clock = 0;
		PC--;
	}
	tmp_clocks = 0;
	break; //HALT : state 4
case 0x77: write(HL, A); break; // LD (HL),A
case 0x78: A = B; break; // LD A,B
case 0x79: A = C; break; // LD A,C
case 0x7A: A = D; break; // LD A,D
case 0x7B: A = E; break; // LD A,E
case 0x7C: A = H; break; // LD A,H
case 0x7D: A = L; break; // LD A,L
case 0x7E: A = read(HL); break; // LD A,(HL)
case 0x7F: break; // LD A,A
// 0x80-0x8F
case 0x80: ADD(B); break; //ADD A,B
case 0x81: ADD(C); break; //ADD A,C
case 0x82: ADD(D); break; //ADD A,D
case 0x83: ADD(E); break; //ADD A,E
case 0x84: ADD(H); break; //ADD A,H
case 0x85: ADD(L); break; //ADD A,L
case 0x86: tmpb = read(HL); ADD(tmpb); break; //ADD A,(HL) : 10 000 110 :state 7
case 0x87: ADD(A); break; //ADD A,A
case 0x88: ADC(B); break; //ADC A,B
case 0x89: ADC(C); break; //ADC A,C
case 0x8A: ADC(D); break; //ADC A,D
case 0x8B: ADC(E); break; //ADC A,E
case 0x8C: ADC(H); break; //ADC A,H
case 0x8D: ADC(L); break; //ADC A,L
case 0x8E: tmpb = read(HL); ADC(tmpb); break; //ADC A,(HL) : 10 001 110 :state 7
case 0x8F: ADC(A); break; //ADC A,A
// 0x90-0x9F
case 0x90: SUB(B); break; //SUB A,B
case 0x91: SUB(C); break; //SUB A,C
case 0x92: SUB(D); break; //SUB A,D
case 0x93: SUB(E); break; //SUB A,E
case 0x94: SUB(H); break; //SUB A,H
case 0x95: SUB(L); break; //SUB A,L
case 0x96: tmpb = read(HL); SUB(tmpb); break; //SUB A,(HL) : 10 010 110 :state 7
case 0x97: SUB(A); break; //SUB A,A
case 0x98: SBC(B); break; //SBC A,B
case 0x99: SBC(C); break; //SBC A,C
case 0x9A: SBC(D); break; //SBC A,D
case 0x9B: SBC(E); break; //SBC A,E
case 0x9C: SBC(H); break; //SBC A,H
case 0x9D: SBC(L); break; //SBC A,L
case 0x9E: tmpb = read(HL); SBC(tmpb); break; //SBC A,(HL) : 10 011 110 :state 7
case 0x9F: SBC(A); break; //SBC A,A
// 0xA0-0xAF
case 0xA0: AND(B); break; //AND A,B
case 0xA1: AND(C); break; //AND A,C
case 0xA2: AND(D); break; //AND A,D
case 0xA3: AND(E); break; //AND A,E
case 0xA4: AND(H); break; //AND A,H
case 0xA5: AND(L); break; //AND A,L
case 0xA6: tmpb = read(HL); AND(tmpb); break; //AND A,(HL) : 10 100 110 :state 7
case 0xA7: AND(A); break; //AND A,A
case 0xA8: XOR(B); break; //XOR A,B
case 0xA9: XOR(C); break; //XOR A,C
case 0xAA: XOR(D); break; //XOR A,D
case 0xAB: XOR(E); break; //XOR A,E
case 0xAC: XOR(H); break; //XOR A,H
case 0xAD: XOR(L); break; //XOR A,L
case 0xAE: tmpb = read(HL); XOR(tmpb); break; //XOR A,(HL) : 10 101 110 :state 7
case 0xAF: XOR(A); break; //XOR A,A
// 0xB0-0xBF
case 0xB0: OR(B); break; //OR A,B
case 0xB1: OR(C); break; //OR A,C
case 0xB2: OR(D); break; //OR A,D
case 0xB3: OR(E); break; //OR A,E
case 0xB4: OR(H); break; //OR A,H
case 0xB5: OR(L); break; //OR A,L
case 0xB6: tmpb = read(HL); OR(tmpb); break; //OR A,(HL) : 10 110 110 :state 7
case 0xB7: OR(A); break; //OR A,A
case 0xB8: CP(B); break; //CP A,B
case 0xB9: CP(C); break; //CP A,C
case 0xBA: CP(D); break; //CP A,D
case 0xBB: CP(E); break; //CP A,E
case 0xBC: CP(H); break; //CP A,H
case 0xBD: CP(L); break; //CP A,L
case 0xBE: tmpb = read(HL); CP(tmpb); break; //CP A,(HL) : 10 111 110 :state 7
case 0xBF: CP(A); break; //CP A,A
// 0xC0-0xCF
case 0xC0: if (!(F & ZF)) {PC = readw(SP); SP += 2; tmp_clocks = 20;} break; //RETNZ
case 0xC1: B = read(SP + 1); C = read(SP); SP += 2; break; //POP BC
case 0xC2: if (F & ZF) PC += 2; else { PC = op_readw(); tmp_clocks=16; }; break; // JPNZ mn
case 0xC3: PC = op_readw(); break;//JP mn : state 10 (16?)
case 0xC4: if (F & ZF) PC += 2; else {SP -= 2; writew(SP, PC + 2); PC = op_readw(); tmp_clocks = 24;} break; //CALLNZ mn
case 0xC5: SP -= 2; writew(SP, BC); break; //PUSH BC
case 0xC6: tmpb = op_read(); ADD(tmpb); break; //ADD A,n : 11 000 110 :state 7
case 0xC7: SP -= 2; writew(SP, PC); PC = 0x00;break; //RST 0x00
case 0xC8: if (F & ZF) {PC = readw(SP);SP += 2; tmp_clocks = 20;} break; //RETZ
case 0xC9: PC = readw(SP); SP += 2; break; //RET state 16
case 0xCA: if (F & ZF) { PC = op_readw(); tmp_clocks=16; } else PC += 2; break; // JPZ mn
case 0xCB:
	exec_0xCB();
	break;
case 0xCC: if (F & ZF) {SP -= 2; writew(SP, PC + 2); PC = op_readw(); tmp_clocks = 24;} else PC += 2; break; //CALLZ mn
case 0xCD: SP -= 2; writew(SP, PC + 2); PC = op_readw(); break; //CALL mn :state 24
case 0xCE: tmpb = op_read(); ADC(tmpb); break; //ADC A,n : 11 001 110 :state 7
case 0xCF: SP -= 2; writew(SP, PC); PC = 0x08;break; //RST 0x08
// 0xD0-0xDF
case 0xD0: if (!(F & CF)) {PC = readw(SP); SP += 2; tmp_clocks = 20;} break; //RETNC
case 0xD1: D = read(SP + 1); E = read(SP); SP += 2; break; //POP DE
case 0xD2: if (F & CF) PC += 2; else { PC = op_readw(); tmp_clocks=16; }; break; // JPNC mn
case 0xD4: if (F & CF) PC += 2; else {SP -= 2; writew(SP, PC + 2); PC = op_readw(); tmp_clocks = 24;} break; //CALLNC mn
case 0xD5: SP -= 2; writew(SP, DE); break; //PUSH DE
case 0xD6: tmpb = op_read(); SUB(tmpb); break; //SUB A,n : 11 010 110 :state 7
case 0xD7: SP -= 2; writew(SP, PC); PC = 0x10;break; //RST 0x10
case 0xD8: if (F & CF) {PC = readw(SP); SP += 2; tmp_clocks = 20;} break; //RETC
case 0xD9: I = 1; PC = readw(SP); SP += 2; int_desable = true; break;//RETI state 16
case 0xDA: if (F & CF) { PC = op_readw(); tmp_clocks=16; } else PC += 2; break; // JPC mn
case 0xDC: if (F & CF) {SP -= 2; writew(SP, PC + 2); PC = op_readw(); tmp_clocks = 24;} else PC += 2; break; //CALLC mn
case 0xDE: tmpb = op_read(); SBC(tmpb); break; //SBC A,n : 11 011 110 :state 7
case 0xDF: SP -= 2; writew(SP, PC); PC = 0x18;break; //RST 0x18
// 0xE0-0xEF
case 0xE0: write(0xFF00 + op_read(), A); break;//LDH (n),A
case 0xE1: H = read(SP + 1); L = read(SP); SP += 2; break; //POP HL
case 0xE2: write(0xFF00 + C, A); break;//LDH (C),A
case 0xE5: SP -= 2; writew(SP, HL); break; //PUSH HL
case 0xE6: tmpb = op_read(); AND(tmpb); break; //AND A,n : 11 100 110 :state 7
case 0xE7: SP -= 2; writew(SP, PC); PC = 0x20;break; //RST 0x20
case 0xE8: SP += op_read_s(); break;//ADD SP,n
case 0xE9: PC = HL; break; //JP HL : state 4 
case 0xEA: write(op_readw(), A); break;//LD (mn),A
case 0xEE: tmpb = op_read(); XOR(tmpb); break; //XOR A,n : 11 101 110 :state 7
case 0xEF: SP -= 2; writew(SP, PC); PC = 0x28;break; //RST 0x28
// 0xF0-0xFF
case 0xF0: A = read(0xFF00 + op_read()); break;//LDH A,(n)
case 0xF1: A = read(SP + 1); F = gb2z80[read(SP) & 0xF0]; SP += 2; break; //POP AF
case 0xF2: A = read(0xFF00 + C); break;//LDH A,(c)
case 0xF3: I = 0; break; //DI : state 4
case 0xF5: write(SP - 2, z802gb[F] | 0xE); write(SP - 1, A); SP -= 2; break; //PUSH AF
case 0xF6: tmpb = op_read(); OR(tmpb); break; //OR A,n : 11 110 110 :state 7
case 0xF7: SP -= 2; writew(SP, PC); PC = 0x30;break; //RST 0x30
case 0xF8: HL = SP + op_read_s(); break;//LD HL,SP+n 
case 0xF9: SP = HL; break; //LD SP,HL : 11 111 001 :state 6
case 0xFA: A = read(op_readw()); break;//LD A,(mn);
case 0xFB: I = 1; int_desable = true; break; //EI : state 4
case 0xFE: tmpb = op_read(); CP(tmpb); break; //CP A,n : 11 111 110 :state 7
case 0xFF: SP -= 2; writew(SP, PC); PC = 0x38;break; //RST 0x38
}

rest_clock -= tmp_clocks;
			div_clock += tmp_clocks;
			total_clock += tmp_clocks;
			
			if (TAC & 0x04) { //タイマ割りこみ
				sys_clock += tmp_clocks;
				if (sys_clock > timer_clocks[TAC & 0x03]) {
					sys_clock &= timer_clocks[TAC & 0x03] - 1;
					TIMA++;
					if (!TIMA) {
						irq(INT_TIMER);
						TIMA= TMA;
					}
				}
			}
			if (div_clock >= 0x100) {
				DIV -= div_clock >> 8;
				div_clock &= 0xff;
			}
		}
	}
	
	public function exec():void 
	{

for (var line:uint = 0; line < 154; line++) {
	if (LCDC & 0x80) { // LCDC 起動時
		LY = (LY + 1) % 154;

STAT &= 0xF8;
		if (LYC == LY) {
			STAT |= 4;
			if (STAT & 0x40)
				irq(INT_LCDC);
		}
		if (LY == 0) {
			return;
		}
		if (LY >= 144) { // VBlank 期間中
			STAT |= 1;
			if (LY == 144) {
				ex(72);
				irq(INT_VBLANK);
				if (STAT & 0x10)
					irq(INT_LCDC);
				ex(456 - 80);
			}
			else if (LY == 153) {
				ex(80);
				LY = 0;
				ex(456 - 80);
				LY = 153;
			}
			else
				ex(456);
		}
		else{ // VBlank 期間外
			STAT |= 2;
			if (STAT & 0x20)
				irq(INT_LCDC);
			ex(80); // state=2
			STAT |= 3;
			ex(169); // state=3
			STAT &= 0xfc;
			if (STAT & 0x08)
				irq(INT_LCDC);
			ex(207); // state=0
		}
	}
	else{ // LCDC 停止時
		LY = 0;
		STAT &= 0xF8;
		ex(456);
	}
}
	}

private function exec_0xCB():void 
	{
		var opcode:uint;
		var tmpb:uint = 0;
		
		opcode = read(PC++);
		tmp_clocks = cys_cb[opcode];
		switch (opcode)
{
case 0x40: F=((F&CF)|HF)|(((B<<6)&0x40)^0x40);break; //BIT 0,B
case 0x41: F=((F&CF)|HF)|(((C<<6)&0x40)^0x40);break; //BIT 0,C
case 0x42: F=((F&CF)|HF)|(((D<<6)&0x40)^0x40);break; //BIT 0,D
case 0x43: F=((F&CF)|HF)|(((E<<6)&0x40)^0x40);break; //BIT 0,E
case 0x44: F=((F&CF)|HF)|(((H<<6)&0x40)^0x40);break; //BIT 0,H
case 0x45: F=((F&CF)|HF)|(((L<<6)&0x40)^0x40);break; //BIT 0,L
case 0x47: F=((F&CF)|HF)|(((A<<6)&0x40)^0x40);break; //BIT 0,A

case 0x48: F=((F&CF)|HF)|(((B<<5)&0x40)^0x40);break; //BIT 1,B
case 0x49: F=((F&CF)|HF)|(((C<<5)&0x40)^0x40);break; //BIT 1,C
case 0x4A: F=((F&CF)|HF)|(((D<<5)&0x40)^0x40);break; //BIT 1,D
case 0x4B: F=((F&CF)|HF)|(((E<<5)&0x40)^0x40);break; //BIT 1,E
case 0x4C: F=((F&CF)|HF)|(((H<<5)&0x40)^0x40);break; //BIT 1,H
case 0x4D: F=((F&CF)|HF)|(((L<<5)&0x40)^0x40);break; //BIT 1,L
case 0x4F: F=((F&CF)|HF)|(((A<<5)&0x40)^0x40);break; //BIT 1,A

case 0x50: F=((F&CF)|HF)|(((B<<4)&0x40)^0x40);break; //BIT 2,B
case 0x51: F=((F&CF)|HF)|(((C<<4)&0x40)^0x40);break; //BIT 2,C
case 0x52: F=((F&CF)|HF)|(((D<<4)&0x40)^0x40);break; //BIT 2,D
case 0x53: F=((F&CF)|HF)|(((E<<4)&0x40)^0x40);break; //BIT 2,E
case 0x54: F=((F&CF)|HF)|(((H<<4)&0x40)^0x40);break; //BIT 2,H
case 0x55: F=((F&CF)|HF)|(((L<<4)&0x40)^0x40);break; //BIT 2,L
case 0x57: F=((F&CF)|HF)|(((A<<4)&0x40)^0x40);break; //BIT 2,A

case 0x58: F=((F&CF)|HF)|(((B<<3)&0x40)^0x40);break; //BIT 3,B
case 0x59: F=((F&CF)|HF)|(((C<<3)&0x40)^0x40);break; //BIT 3,C
case 0x5A: F=((F&CF)|HF)|(((D<<3)&0x40)^0x40);break; //BIT 3,D
case 0x5B: F=((F&CF)|HF)|(((E<<3)&0x40)^0x40);break; //BIT 3,E
case 0x5C: F=((F&CF)|HF)|(((H<<3)&0x40)^0x40);break; //BIT 3,H
case 0x5D: F=((F&CF)|HF)|(((L<<3)&0x40)^0x40);break; //BIT 3,L
case 0x5F: F=((F&CF)|HF)|(((A<<3)&0x40)^0x40);break; //BIT 3,A

case 0x60: F=((F&CF)|HF)|(((B<<2)&0x40)^0x40);break; //BIT 4,B
case 0x61: F=((F&CF)|HF)|(((C<<2)&0x40)^0x40);break; //BIT 4,C
case 0x62: F=((F&CF)|HF)|(((D<<2)&0x40)^0x40);break; //BIT 4,D
case 0x63: F=((F&CF)|HF)|(((E<<2)&0x40)^0x40);break; //BIT 4,E
case 0x64: F=((F&CF)|HF)|(((H<<2)&0x40)^0x40);break; //BIT 4,H
case 0x65: F=((F&CF)|HF)|(((L<<2)&0x40)^0x40);break; //BIT 4,L
case 0x67: F=((F&CF)|HF)|(((A<<2)&0x40)^0x40);break; //BIT 4,A

case 0x68: F=((F&CF)|HF)|(((B<<1)&0x40)^0x40);break; //BIT 5,B
case 0x69: F=((F&CF)|HF)|(((C<<1)&0x40)^0x40);break; //BIT 5,C
case 0x6A: F=((F&CF)|HF)|(((D<<1)&0x40)^0x40);break; //BIT 5,D
case 0x6B: F=((F&CF)|HF)|(((E<<1)&0x40)^0x40);break; //BIT 5,E
case 0x6C: F=((F&CF)|HF)|(((H<<1)&0x40)^0x40);break; //BIT 5,H
case 0x6D: F=((F&CF)|HF)|(((L<<1)&0x40)^0x40);break; //BIT 5,L
case 0x6F: F=((F&CF)|HF)|(((A<<1)&0x40)^0x40);break; //BIT 5,A

case 0x70: F=((F&CF)|HF)|(((B)&0x40)^0x40);break; //BIT 6,B
case 0x71: F=((F&CF)|HF)|(((C)&0x40)^0x40);break; //BIT 6,C
case 0x72: F=((F&CF)|HF)|(((D)&0x40)^0x40);break; //BIT 6,D
case 0x73: F=((F&CF)|HF)|(((E)&0x40)^0x40);break; //BIT 6,E
case 0x74: F=((F&CF)|HF)|(((H)&0x40)^0x40);break; //BIT 6,H
case 0x75: F=((F&CF)|HF)|(((L)&0x40)^0x40);break; //BIT 6,L
case 0x77: F=((F&CF)|HF)|(((A)&0x40)^0x40);break; //BIT 6,A

case 0x78: F=((F&CF)|HF)|(((B>>1)&0x40)^0x40);break; //BIT 7,B
case 0x79: F=((F&CF)|HF)|(((C>>1)&0x40)^0x40);break; //BIT 7,C
case 0x7A: F=((F&CF)|HF)|(((D>>1)&0x40)^0x40);break; //BIT 7,D
case 0x7B: F=((F&CF)|HF)|(((E>>1)&0x40)^0x40);break; //BIT 7,E
case 0x7C: F=((F&CF)|HF)|(((H>>1)&0x40)^0x40);break; //BIT 7,H
case 0x7D: F=((F&CF)|HF)|(((L>>1)&0x40)^0x40);break; //BIT 7,L
case 0x7F: F=((F&CF)|HF)|(((A>>1)&0x40)^0x40);break; //BIT 7,A

//state 12
case 0x46: tmpb=read(HL);F=((F&CF)|HF)|(((tmpb<<6)&0x40)^0x40);break; //BIT 0,(HL)
case 0x4E: tmpb=read(HL);F=((F&CF)|HF)|(((tmpb<<5)&0x40)^0x40);break; //BIT 1,(HL)
case 0x56: tmpb=read(HL);F=((F&CF)|HF)|(((tmpb<<4)&0x40)^0x40);break; //BIT 2,(HL)
case 0x5E: tmpb=read(HL);F=((F&CF)|HF)|(((tmpb<<3)&0x40)^0x40);break; //BIT 3,(HL)
case 0x66: tmpb=read(HL);F=((F&CF)|HF)|(((tmpb<<2)&0x40)^0x40);break; //BIT 4,(HL)
case 0x6E: tmpb=read(HL);F=((F&CF)|HF)|(((tmpb<<1)&0x40)^0x40);break; //BIT 5,(HL)
case 0x76: tmpb=read(HL);F=((F&CF)|HF)|(((tmpb)&0x40)^0x40);break; //BIT 6,(HL)
case 0x7E: tmpb=read(HL);F=((F&CF)|HF)|(((tmpb>>1)&0x40)^0x40);break; //BIT 7,(HL)

//bit set opcode
//SET b,r :11 b r : state 8

//state 16
case 0xC6: tmpb=read(HL);tmpb|=0x01;write(HL,tmpb);break; //SET 0,(HL)
case 0xCE: tmpb=read(HL);tmpb|=0x02;write(HL,tmpb);break; //SET 1,(HL)
case 0xD6: tmpb=read(HL);tmpb|=0x04;write(HL,tmpb);break; //SET 2,(HL)
case 0xDE: tmpb=read(HL);tmpb|=0x08;write(HL,tmpb);break; //SET 3,(HL)
case 0xE6: tmpb=read(HL);tmpb|=0x10;write(HL,tmpb);break; //SET 4,(HL)
case 0xEE: tmpb=read(HL);tmpb|=0x20;write(HL,tmpb);break; //SET 5,(HL)
case 0xF6: tmpb=read(HL);tmpb|=0x40;write(HL,tmpb);break; //SET 6,(HL)
case 0xFE: tmpb=read(HL);tmpb|=0x80;write(HL,tmpb);break; //SET 7,(HL)

//bit reset opcode
//RES b,r : 10 b r : state 8
case 0x80: B&=0xFE;break; //RES 0,B
case 0x81: C&=0xFE;break; //RES 0,C
case 0x82: D&=0xFE;break; //RES 0,D
case 0x83: E&=0xFE;break; //RES 0,E
case 0x84: H&=0xFE;break; //RES 0,H
case 0x85: L&=0xFE;break; //RES 0,L
case 0x87: A&=0xFE;break; //RES 0,A

case 0x88: B&=0xFD;break; //RES 1,B
case 0x89: C&=0xFD;break; //RES 1,C
case 0x8A: D&=0xFD;break; //RES 1,D
case 0x8B: E&=0xFD;break; //RES 1,E
case 0x8C: H&=0xFD;break; //RES 1,H
case 0x8D: L&=0xFD;break; //RES 1,L
case 0x8F: A&=0xFD;break; //RES 1,A

case 0x90: B&=0xFB;break; //RES 2,B
case 0x91: C&=0xFB;break; //RES 2,C
case 0x92: D&=0xFB;break; //RES 2,D
case 0x93: E&=0xFB;break; //RES 2,E
case 0x94: H&=0xFB;break; //RES 2,H
case 0x95: L&=0xFB;break; //RES 2,L
case 0x97: A&=0xFB;break; //RES 2,A

case 0x98: B&=0xF7;break; //RES 3,B
case 0x99: C&=0xF7;break; //RES 3,C
case 0x9A: D&=0xF7;break; //RES 3,D
case 0x9B: E&=0xF7;break; //RES 3,E
case 0x9C: H&=0xF7;break; //RES 3,H
case 0x9D: L&=0xF7;break; //RES 3,L
case 0x9F: A&=0xF7;break; //RES 3,A

case 0xA0: B&=0xEF;break; //RES 4,B
case 0xA1: C&=0xEF;break; //RES 4,C
case 0xA2: D&=0xEF;break; //RES 4,D
case 0xA3: E&=0xEF;break; //RES 4,E
case 0xA4: H&=0xEF;break; //RES 4,H
case 0xA5: L&=0xEF;break; //RES 4,L
case 0xA7: A&=0xEF;break; //RES 4,A

case 0xA8: B&=0xDF;break; //RES 5,B
case 0xA9: C&=0xDF;break; //RES 5,C
case 0xAA: D&=0xDF;break; //RES 5,D
case 0xAB: E&=0xDF;break; //RES 5,E
case 0xAC: H&=0xDF;break; //RES 5,H
case 0xAD: L&=0xDF;break; //RES 5,L
case 0xAF: A&=0xDF;break; //RES 5,A

case 0xB0: B&=0xBF;break; //RES 6,B
case 0xB1: C&=0xBF;break; //RES 6,C
case 0xB2: D&=0xBF;break; //RES 6,D
case 0xB3: E&=0xBF;break; //RES 6,E
case 0xB4: H&=0xBF;break; //RES 6,H
case 0xB5: L&=0xBF;break; //RES 6,L
case 0xB7: A&=0xBF;break; //RES 6,A

case 0xB8: B&=0x7F;break; //RES 7,B
case 0xB9: C&=0x7F;break; //RES 7,C
case 0xBA: D&=0x7F;break; //RES 7,D
case 0xBB: E&=0x7F;break; //RES 7,E
case 0xBC: H&=0x7F;break; //RES 7,H
case 0xBD: L&=0x7F;break; //RES 7,L
case 0xBF: A&=0x7F;break; //RES 7,A

//state 16
case 0x86: tmpb=read(HL);tmpb&=0xFE;write(HL,tmpb);break; //RES 0,(HL)
case 0x8E: tmpb=read(HL);tmpb&=0xFD;write(HL,tmpb);break; //RES 1,(HL)
case 0x96: tmpb=read(HL);tmpb&=0xFB;write(HL,tmpb);break; //RES 2,(HL)
case 0x9E: tmpb=read(HL);tmpb&=0xF7;write(HL,tmpb);break; //RES 3,(HL)
case 0xA6: tmpb=read(HL);tmpb&=0xEF;write(HL,tmpb);break; //RES 4,(HL)
case 0xAE: tmpb=read(HL);tmpb&=0xDF;write(HL,tmpb);break; //RES 5,(HL)
case 0xB6: tmpb=read(HL);tmpb&=0xBF;write(HL,tmpb);break; //RES 6,(HL)
case 0xBE: tmpb=read(HL);tmpb&=0x7F;write(HL,tmpb);break; //RES 7,(HL)

//shift rotate opcode
//RLC s : 00 000 r : state 8
case 0x00: F = (B >> 7); B = (B << 1) | (F); B &= 0xFF; F |= ZTable[B]; break;//RLC B
case 0x01: F = (C >> 7); C = (C << 1) | (F); C &= 0xFF; F |= ZTable[C]; break;//RLC C
case 0x02: F = (D >> 7); D = (D << 1) | (F); D &= 0xFF; F |= ZTable[D]; break;//RLC D
case 0x03: F = (E >> 7); E = (E << 1) | (F); E &= 0xFF; F |= ZTable[E]; break;//RLC E
case 0x04: F = (H >> 7); H = (H << 1) | (F); H &= 0xFF; F |= ZTable[H]; break;//RLC H
case 0x05: F = (L >> 7); L = (L << 1) | (F); L &= 0xFF; F |= ZTable[L]; break;//RLC L
case 0x07: F = (A >> 7); A = (A << 1) | (F); A &= 0xFF; F |= ZTable[A]; break;//RLC A

case 0x06: tmpb = read(HL); F = (tmpb >> 7); tmpb = (tmpb << 1) | (F); tmpb &= 0xFF; F |= ZTable[tmpb]; write(HL, tmpb); break;//RLC (HL) : state 16

case 0x0E: tmpb=read(HL);F=(tmpb&0x01);tmpb=(tmpb>>1)|(F<<7);tmpb &= 0xFF;F|=ZTable[tmpb];write(HL,tmpb);break;//RRC (HL) :state 16

//RL s : 00 010 r : state 8
case 0x10: tmpb = F & 0x01; F = (B >> 7); B = (B << 1) | tmpb; B &= 0xFF; F |= ZTable[B]; break;//RL B
case 0x11: tmpb = F & 0x01; F = (C >> 7); C = (C << 1) | tmpb; C &= 0xFF; F |= ZTable[C]; break;//RL C
case 0x12: tmpb = F & 0x01; F = (D >> 7); D = (D << 1) | tmpb; D &= 0xFF; F |= ZTable[D]; break;//RL D
case 0x13: tmpb = F & 0x01; F = (E >> 7); E = (E << 1) | tmpb; E &= 0xFF; F |= ZTable[E]; break;//RL E
case 0x14: tmpb = F & 0x01; F = (H >> 7); H = (H << 1) | tmpb; H &= 0xFF; F |= ZTable[H]; break;//RL H
case 0x15: tmpb = F & 0x01; F = (L >> 7); L = (L << 1) | tmpb; L &= 0xFF; F |= ZTable[L]; break;//RL L
case 0x17: tmpb = F & 0x01; F = (A >> 7); A = (A << 1) | tmpb; A &= 0xFF; F |= ZTable[A]; break;//RL A

case 0x16: //RL (HL) :state 16
	tmpb = read(HL);
	tmpb |= ((F & 0x01) << 8);
	F = ((tmpb >> 7) & 0x01);
	tmpb = ((tmpb << 1) & 0xFE) | ((tmpb >> 8) & 0x01);
	tmpb &= 0xFF;
	F |= ZTable[tmpb];
	write(HL, tmpb);
	break;

case 0x1E: //RR (HL) :state 16
	tmpb = read(HL);
	tmpb |= ((F & 0x01) << 8);
	F = (tmpb & 0x01);
	tmpb = ((tmpb >> 1) & 0xFF);
	F |= ZTable[tmpb];
	write(HL, tmpb);
	break;

//SLA s : 00 100 r : state 8
case 0x20: F = B >> 7; B <<= 1; B &= 0xFF; F |= ZTable[B]; break;//SLA B
case 0x21: F = C >> 7; C <<= 1; C &= 0xFF; F |= ZTable[C]; break;//SLA C
case 0x22: F = D >> 7; D <<= 1; D &= 0xFF; F |= ZTable[D]; break;//SLA D
case 0x23: F = E >> 7; E <<= 1; E &= 0xFF; F |= ZTable[E]; break;//SLA E
case 0x24: F = H >> 7; H <<= 1; H &= 0xFF; F |= ZTable[H]; break;//SLA H
case 0x25: F = L >> 7; L <<= 1; L &= 0xFF; F |= ZTable[L]; break;//SLA L
case 0x27: F = A >> 7; A <<= 1; A &= 0xFF; F |= ZTable[A]; break;//SLA A

case 0x26: tmpb = read(HL); F = tmpb >> 7; tmpb <<= 1; tmpb &= 0xFF; F |= ZTable[tmpb]; write(HL, tmpb); break;//SLA (HL) :state 16

//SRA s : 00 101 r : state 8
case 0x28: F=B&0x01;B=(B>>1)|(B&0x80);F|=ZTable[B];break;//SRA B
case 0x29: F=C&0x01;C=(C>>1)|(C&0x80);F|=ZTable[C];break;//SRA C
case 0x2A: F=D&0x01;D=(D>>1)|(D&0x80);F|=ZTable[D];break;//SRA D
case 0x2B: F=E&0x01;E=(E>>1)|(E&0x80);F|=ZTable[E];break;//SRA E
case 0x2C: F=H&0x01;H=(H>>1)|(H&0x80);F|=ZTable[H];break;//SRA H
case 0x2D: F=L&0x01;L=(L>>1)|(L&0x80);F|=ZTable[L];break;//SRA L
case 0x2F: F=A&0x01;A=(A>>1)|(A&0x80);F|=ZTable[A];break;//SRA A

case 0x2E: tmpb=read(HL);F=tmpb&0x01;tmpb>>=1;tmpb|=(tmpb<<1)&0x80;F|=ZTable[tmpb];write(HL,tmpb);break;//SRA (HL) :state 16

//SRL s : 00 111 r : state 8
case 0x38: F=B&0x01;B>>=1;F|=ZTable[B];break;//SRL B
case 0x39: F=C&0x01;C>>=1;F|=ZTable[C];break;//SRL C
case 0x3A: F=D&0x01;D>>=1;F|=ZTable[D];break;//SRL D
case 0x3B: F=E&0x01;E>>=1;F|=ZTable[E];break;//SRL E
case 0x3C: F=H&0x01;H>>=1;F|=ZTable[H];break;//SRL H
case 0x3D: F=L&0x01;L>>=1;F|=ZTable[L];break;//SRL L
case 0x3F: F=A&0x01;A>>=1;F|=ZTable[A];break;//SRL A

case 0x3E: tmpb=read(HL);F=tmpb&0x01;tmpb>>=1;F|=ZTable[tmpb];write(HL,tmpb);break;//SRL (HL) :state 16

//swap opcode
//SWAP n : 00 110 r :state 8
case 0x30: B = (B >> 4) | (B << 4); B &= 0xFF; F = ZTable[B]; break;//SWAP B
case 0x31: C = (C >> 4) | (C << 4); C &= 0xFF; F = ZTable[C]; break;//SWAP C
case 0x32: D = (D >> 4) | (D << 4); D &= 0xFF; F = ZTable[D]; break;//SWAP D
case 0x33: E = (E >> 4) | (E << 4); E &= 0xFF; F = ZTable[E]; break;//SWAP E
case 0x34: H = (H >> 4) | (H << 4); H &= 0xFF; F = ZTable[H]; break;//SWAP H
case 0x35: L = (L >> 4) | (L << 4); L &= 0xFF; F = ZTable[L]; break;//SWAP L
case 0x37: A = (A >> 4) | (A << 4); A &= 0xFF; F = ZTable[A]; break;//SWAP A

case 0x36: tmpb = read(HL); tmpb = (tmpb >> 4) | (tmpb << 4); tmpb &= 0xFF; F = ZTable[tmpb]; write(HL, tmpb); break;//SWAP (HL) : state 16

}

}
}

2009-3-18 Gameboy Emulator