diff --git a/apr.c b/apr.c
index e5ba860..cd48acb 100644
--- a/apr.c
+++ b/apr.c
@@ -7,6 +7,8 @@ decode_ch(void)
 {
 	int ir6_8;
 	ir6_8 = apr.ir>>9 & 7;
+	apr.ch_inc = apr.ch_inc_op = apr.ch_n_inc_op = 0;
+	apr.ch_load = apr.ch_dep = 0;
 	if((apr.ir & 0770000) == 0130000){
 		apr.ch_inc = ((ir6_8 & 5) == 4 || ir6_8 == 3) && !apr.chf5;
 		apr.ch_inc_op = apr.ch_inc && !apr.chf7;
@@ -14,10 +16,13 @@ decode_ch(void)
 		                  apr.ch_inc && apr.chf7;
 		apr.ch_load = (ir6_8 & 6) == 4 && apr.chf5;
 		apr.ch_dep = (ir6_8 & 6) == 6 && apr.chf5;
-	}else{
-		apr.ch_inc =  apr.ch_inc_op = apr.ch_n_inc_op = 0;
-		apr.ch_load = apr.ch_dep = 0;
 	}
+	if(apr.ch_inc_op || apr.ch_n_inc_op || apr.ch_load)
+		apr.fac_inh = 1;
+	if(apr.ch_n_inc_op || apr.ch_load)
+		apr.fc_e = 1;
+	if(apr.ch_dep || apr.ch_inc_op)
+		apr.fc_e_pse = 1;
 }
 
 void
@@ -32,14 +37,39 @@ decode_2xx(void)
 		apr.fwt_01 = (apr.inst & 03) == 1;
 		apr.fwt_10 = (apr.inst & 03) == 2;
 		apr.fwt_11 = (apr.inst & 03) == 3;
+		if(apr.fwt_00 || apr.fwt_01 || apr.fwt_11)
+			apr.fac_inh = 1;
+		if(apr.fwt_00)
+			apr.fc_e = 1;
+		if(apr.fwt_11)
+			apr.fc_e_pse = 1;
 	}
-	if(apr.inst >= 0244 && apr.inst <= 0246 ||
-	   (apr.inst & 0774) == 0234)
-		apr.fac2 = 1;
+	apr.fac2 = apr.inst >= 0244 && apr.inst <= 0246 ||
+	           (apr.inst & 0774) == 0234;
 	apr.fc_c_acrt = (apr.inst & 0776) == 0262;
 	apr.fc_c_aclt = apr.inst == 0251 || apr.inst == 0267;
+	
+	apr.ir_md = (apr.inst & 0760) == 0220;
+	if(apr.ir_md && (apr.inst & 03) != 1)
+		apr.fc_e = 1;
+
+	if(apr.inst == 0250)	/* EXCH */
+		apr.fc_e_pse = 1;
+	if((apr.inst & 0774) == 0254)
+		apr.fac_inh = 1;
+	if(apr.inst == 0256)	/* XCT */
+		apr.fac_inh = apr.fc_e = 1;
 
 	apr.ir_jp = (apr.inst & 0770) == 0260;
+	if(apr.ir_jp)
+		apr.e_long = 1;
+	if(apr.inst == 0260)	/* PUSHJ */
+		apr.mb_pc_sto = 1;
+	if(apr.inst == 0261)	/* PUSH */
+		apr.fc_e = 1;
+	if((apr.inst & 0776) == 0264)	/* JSR, JSP */
+		apr.mb_pc_sto = apr.fac_inh = 1;
+
 	apr.ir_as = (apr.inst & 0770) == 0270;
 }
 
@@ -49,33 +79,54 @@ decodeir(void)
 	bool iot_a, jrst_a, uuo_a;
 
 	apr.inst = apr.ir>>9 & 0777;
-	apr.fac2 = 0;
-	apr.boole_as_00 = apr.boole_as_01 = 0;
-	apr.boole_as_10 = apr.boole_as_11 = 0;
-	apr.hwt_00 = apr.hwt_01 = apr.hwt_10 = apr.hwt_11 = 0;
-	apr.ir_memac = apr.ir_memac_mem = 0;
+	apr.fac_inh = 0;
+	apr.fc_e = 0;
+	apr.fc_e_pse = 0;
+	apr.e_long = 0;
 
 	decode_ch();
+
+	apr.ir_fp = (apr.inst & 0740) == 0140;
+	if(apr.ir_fp)
+		apr.fc_e = 1;
+
 	decode_2xx();
 
 	/* ACCP v MEMAC */
+	apr.ir_accp = apr.ir_memac = apr.ir_memac_mem = apr.ir_memac_ac = 0;
 	if((apr.inst & 0700) == 0300){
-		apr.ir_memac = apr.inst & 0060;
-		apr.ir_memac_mem = apr.ir_memac && apr.inst & 0010;
+		apr.ir_memac = apr.inst & 060;
+		apr.ir_accp = !apr.ir_memac;
+		apr.ir_memac_mem = apr.ir_memac && apr.inst & 010;
+		apr.ir_memac_ac = apr.ir_memac && !apr.ir_memac_mem;
+		if(apr.ir_memac_mem)
+			apr.fac_inh = apr.fc_e_pse = 1;
+		if(apr.ir_accp && apr.inst & 010)
+			apr.fc_e = 1;
+		apr.e_long = 1;
 	}
 
 	/* BOOLE */
+	apr.boole_as_00 = apr.boole_as_01 = 0;
+	apr.boole_as_10 = apr.boole_as_11 = 0;
 	apr.ir_boole = (apr.inst & 0700) == 0400;
 	if(apr.ir_boole)
 		apr.ir_boole_op = apr.inst>>2 & 017;
 
 	/* HWT */
+	apr.hwt_00 = apr.hwt_01 = apr.hwt_10 = apr.hwt_11 = 0;
 	apr.ir_hwt = (apr.inst & 0700) == 0500;
 	if(apr.ir_hwt){
 		apr.hwt_00 = (apr.inst & 03) == 0;
 		apr.hwt_01 = (apr.inst & 03) == 1;
 		apr.hwt_10 = (apr.inst & 03) == 2;
 		apr.hwt_11 = (apr.inst & 03) == 3;
+		if(apr.hwt_00)
+			apr.fc_e = 1;
+		if(apr.hwt_11)
+			apr.fac_inh = 1;
+		if(apr.hwt_10 || apr.hwt_11)
+			apr.fc_e_pse = 1;
 	}
 
 	if(apr.ir_boole || apr.ir_as){
@@ -83,8 +134,20 @@ decodeir(void)
 		apr.boole_as_01 = (apr.inst & 03) == 1;
 		apr.boole_as_10 = (apr.inst & 03) == 2;
 		apr.boole_as_11 = (apr.inst & 03) == 3;
+		if(apr.boole_as_00)
+			apr.fc_e = 1;
+		if(apr.boole_as_10 || apr.boole_as_11)
+			apr.fc_e_pse = 1;
 	}
 
+	/* ACBM */
+	apr.ir_acbm = (apr.inst & 0700) == 0600;
+	if(apr.ir_acbm){
+		if(apr.inst & 010)
+			apr.fc_e = 1;
+		apr.e_long = 1;
+	} 
+
 	uuo_a = (apr.inst & 0700) == 0;
 	iot_a = (apr.inst & 0700) == 0700;
 	jrst_a = apr.inst == 0254;
@@ -95,8 +158,23 @@ decodeir(void)
 		jrst_a && (apr.ir & 0000600) && apr.ex_user;
 	apr.ir_jrst = !apr.ex_ir_uuo && jrst_a;
 	apr.ir_iot = !apr.ex_ir_uuo && iot_a;
-	apr.iot_blk = apr.ir_iot && (apr.ir & 0000240) == 0;
-	apr.iot_dataio = apr.ir_iot && (apr.ir & 0000240) == 0040;
+	apr.iot_blk = apr.ir_iot && (apr.ir & 0240) == 0;
+	apr.iot_dataio = apr.ir_iot && (apr.ir & 0240) == 0040;
+
+	if(apr.ir_jrst)
+		apr.mb_pc_sto = 1;
+
+	if(apr.ex_ir_uuo || apr.ir_iot)
+		apr.fac_inh = 1;
+	if(apr.iot_blk)
+		apr.fc_e_pse = 1;
+	if(apr.iot_dataio && apr.ir & 0100)		/* DATAO */
+		apr.fc_e = 1;
+	if(apr.ir_iot && (apr.inst & 0300) == 0300 ||	/* CONSZ, CONSO */
+	   apr.mb_pc_sto)
+		apr.e_long = 1;
+	/* No need to check PC +1 for E LONG, it's already implied.
+	 * We have to wait until ET5 for PC SET */
 }
 
 void
@@ -108,9 +186,47 @@ swap(word *a, word *b)
 	*b = tmp;
 }
 
+bool
+accp_et_al_test(void)
+{
+	bool lt, cond;
+	lt = !!(apr.ar & SGN) != apr.ar_cry0_xor_cry1;
+	cond = (apr.inst & 2) && apr.ar == 0 ||
+               (apr.ir_accp || apr.ir_memac) && (apr.inst & 1) && lt;
+	return cond != !!(apr.inst & 040);
+}
+
+bool
+selected_flag(void)
+{
+	return apr.ir & 0400 && apr.ar_ov_flag ||
+	       apr.ir & 0200 && apr.ar_cry0_flag ||
+	       apr.ir & 0100 && apr.ar_cry1_flag ||
+	       apr.ir & 0040 && apr.ar_pc_chg_flag;
+}
+
+bool
+pc_set_enable(void)
+{
+	// 5-12
+	return apr.inst == 0252 && !(apr.ar & SGN) ||	/* AOBJP */
+	       apr.inst == 0253 && apr.ar & SGN ||	/* AOBJN */
+	       apr.ir_memac_ac && accp_et_al_test() ||
+	       apr.inst == 0255 && selected_flag();	/* JFCL */
+}
+
+bool
+pc_inc_enable(void)
+{
+	return (apr.ir_accp || apr.ir_acbm || apr.ir_memac_mem) && accp_et_al_test() ||
+	       apr.ir_iot && ((apr.inst & 0340) == 0300 && apr.ar == 0 ||
+	                      (apr.inst & 0340) == 0340 && apr.ar != 0);
+}
+
 void
 ar_cry(void)
 {
+	// 6-10
 	apr.ar_cry0_xor_cry1 = apr.ar_cry0 != apr.ar_cry1 &&
 	                       !((apr.inst & 0700) == 0300 &&
 	                         (apr.inst & 0060) != 0020);
@@ -128,21 +244,6 @@ ar_cry_in(word c)
 	ar_cry();
 }
 
-/*
-void
-ar_add(word w)
-{
-	int a, b, s;
-	a = apr.ar>>35 & 1;
-	b = w>>35 & 1;
-	apr.ar += w;
-	s = apr.ar>>35 & 3;
-	apr.ar &= FW;
-	apr.ar_cry0 = !!(s & 2);
-	apr.ar_cry1 = s-a-b;
-}
-*/
-
 void
 set_ex_mode_sync(bool value)
 {
@@ -271,7 +372,7 @@ pulse(pi_reset){
 
 pulse(ar_flag_clr){
 	printf("AR FLAG CLR\n");
-	apr.pc_chg_flag = 0;	// 6-10
+	apr.ar_pc_chg_flag = 0;	// 6-10
 	apr.ar_ov_flag = 0;	// 6-10
 	apr.ar_cry0_flag = 0;	// 6-10
 	apr.ar_cry1_flag = 0;	// 6-10
@@ -409,7 +510,7 @@ pulse(ar_negate_t0){
 }
 
 pulse(ar_ast2){
-	printf("AR AST1\n");
+	printf("AR2\n");
 	ar_cry_in((~apr.ar & apr.mb) << 1);
 	if(apr.ar_com_cont)
 		return ar_cry_comp;
@@ -464,6 +565,15 @@ pulse(et10){
 		apr.pi_ov = 0;
 		apr.pi_cyc = 0;
 	}
+	if(apr.ir_jrst || apr.inst == 0260 || apr.inst == 0261)
+		apr.ma |= apr.mb & RT;
+	// TODO: MB <- AR(J)
+	if(apr.ir_jp && !(apr.inst & 04))
+		swap(&apr.mb, &apr.ar);
+	if(apr.ir_memac || apr.ir_as){
+		apr.ar_cry0_flag = apr.ar_cry0;
+		apr.ar_cry1_flag = apr.ar_cry1;
+	}
 
 	if(apr.hwt_10 || apr.hwt_11 || apr.fwt_10 || apr.fwt_11)
 		apr.mb = apr.ar;
@@ -473,22 +583,85 @@ pulse(et10){
 		if(apr.cpa_arov_en)
 			;
 	}
-	if(apr.ir_memac || apr.ir_as){
-		apr.ar_cry0_flag = apr.ar_cry0;
-		apr.ar_cry1_flag = apr.ar_cry1;
+	if(apr.ir_jp && !(apr.inst & 04) && apr.ar_cry0){
+		apr.cpa_pdl_ov = 1;
+		;
 	}
 	return NULL;
 }
 
+pulse(et9){
+	bool pc_inc;
+
+	printf("ET9\n");
+	pc_inc = apr.inst == 0264 || apr.inst == 0266 || pc_inc_enable();
+	if(pc_inc)
+		apr.pc = apr.pc+1 & FW;
+	if((apr.pc_set || pc_inc) && !(apr.ir_jrst && apr.ir & 0100)){
+		apr.ar_pc_chg_flag = 1;
+		if(apr.cpa_pc_chg_en)
+			;
+	}
+
+	if(apr.ir_acbm || apr.ir_jp && apr.inst != 0264)
+		swap(&apr.mb, &apr.ar);
+	if(apr.ir_jrst || apr.inst == 0260 || apr.inst == 0261)
+		apr.ma = 0;
+	return et10;
+}
+
+pulse(et8){
+	printf("ET8\n");
+	if(apr.pc_set)
+		apr.pc |= apr.ma;	// 5-12
+	return et9;
+}
+
+pulse(et7){
+	printf("ET7\n");
+	if(apr.pc_set)
+		apr.pc = 0;		// 5-12
+	if(apr.inst == 0264 && (apr.ex_pi_sync || apr.ex_ill_op))
+		apr.ex_user = 0;	// 5-13
+
+	if(apr.ir_acbm)
+		apr.ar = ~apr.ar;
+	return et8;
+}
+
 pulse(et6){
 	printf("ET6\n");
-	return NULL;
+	if(apr.mb_pc_sto || apr.inst == 0266)
+		apr.mb |= apr.pc;
+	if(apr.inst == 0261 || apr.inst == 0264 || apr.inst == 0265){
+		// 6-4
+		if(apr.ar_ov_flag)     apr.mb |= 0400000000000;
+		if(apr.ar_cry0_flag)   apr.mb |= 0200000000000;
+		if(apr.ar_cry1_flag)   apr.mb |= 0100000000000;
+		if(apr.ar_pc_chg_flag) apr.mb |= 0040000000000;
+		if(apr.chf7)           apr.mb |= 0020000000000;
+		if(apr.ex_user)        apr.mb |= 0010000000000;
+	}
+
+	if(apr.ir_acbm && (apr.inst & 060) == 020)	/* Z */
+		apr.mb &= apr.ar;
+	return et7;
 }
 
 pulse(et5){
 	printf("ET5\n");
-//	if(apr.e_long)
-//		return et6;
+	if(apr.mb_pc_sto)
+		apr.mb = 0;
+
+	if(apr.ir_acbm)
+		apr.ar = ~apr.ar;
+
+	// 5-12
+	apr.pc_set = apr.ir_jp && !(apr.inst == 0261 || apr.inst == 0262) ||	/* JMP */
+	             apr.ir_jrst ||
+	             pc_set_enable();
+	if(apr.e_long | apr.pc_set)
+		return et6;
 	return et10;
 }
 
@@ -520,6 +693,9 @@ pulse(et4){
 
 	if(apr.ir_fwt_swap)
 		swap(&apr.mb, &apr.ar);	// 6-3
+
+	if(apr.ir_acbm)
+		swap(&apr.mb, &apr.ar);
 	return et5;
 }
 
@@ -542,6 +718,20 @@ pulse(et3){
 		else
 			return ar_ast1;
 	}
+
+	if(apr.ir_accp){
+		apr.et4_ar_pse = 1;		// 5-5
+		apr.art3_ret = et4;
+		return ar_ast0;
+	}
+	if(apr.ir_memac){
+		apr.et4_ar_pse = 1;		// 5-5
+		apr.art3_ret = et4;
+		if((apr.inst & 070) == 040)	// +1
+			return ar_pm1_t1;
+		if((apr.inst & 070) == 060)	// -1
+			return ar_pm1_t0;
+	}
 	return et4;
 };
 
@@ -580,6 +770,14 @@ pulse(et1){
 		apr.mb = apr.mb<<18 & LT | apr.mb>>18 & RT;	// 6-3
 	if(apr.ir_hwt && apr.inst & 0030)
 		apr.ar = 0;			// 6-8
+
+	if(apr.ir_acbm){
+		apr.mb &= apr.ar;
+		if((apr.inst & 060) == 040)	/* C */
+			apr.ar ^= apr.mb;
+		if((apr.inst & 060) == 060)	/* O */
+			apr.ar |= apr.mb;
+	}
 	return et3;
 }
 
@@ -614,7 +812,7 @@ pulse(et0a){
 	if(apr.key_dep_sync)
 		apr.key_dep_st = 1;
 	if(apr.key_inst_stop ||
-	   apr.ir_jrst && (apr.ir & 0000200) && !apr.ex_user)
+	   apr.ir_jrst && (apr.ir & 0200) && !apr.ex_user)
 		apr.run = 0;
 
 	if(apr.ir_boole && (apr.ir_boole_op == 00 ||
@@ -635,6 +833,9 @@ pulse(et0a){
 	if(apr.inst == 0250 ||		/* EXCH */
 	   apr.hwt_10)
 		swap(&apr.mb, &apr.ar);	// 6-3
+
+	if(apr.ir_acbm && apr.inst & 1)
+		apr.mb = apr.mb<<18 & LT | apr.mb>>18 & RT;	// 6-3
 	return NULL;
 }
 
@@ -666,31 +867,11 @@ pulse(ft6){
 }
 
 pulse(ft5){
-	bool fc_e, fc_e_pse;
-
 	printf("FT5\n");
 	apr.ma = apr.mb & RT;		// 7-3
-
-	// 5-4
-	fc_e = (apr.inst & 0710) == 0610 ||		/* ACBM DIR */
-		(apr.inst & 0770) == 0310 ||	/* ACCP DIR */
-		apr.boole_as_00 || apr.ch_n_inc_op || apr.ch_load ||
-		apr.fwt_00 || apr.hwt_00 ||
-		apr.iot_dataio && (apr.ir & 0100) ||	/* DATAO */
-		(apr.inst & 0740) == 0140 ||	/* IR FP */
-		(apr.inst & 0760) == 0220 &&
-		 (apr.inst & 0003) != 1 ||	/* MD FC(E) */
-		apr.inst == 0256 ||			/* XCT */
-		(apr.inst & 0776) == 0260;		/* PUSH */
-	fc_e_pse = apr.boole_as_10 || apr.boole_as_11 ||
-		apr.ch_dep || apr.ch_inc_op ||
-		apr.fwt_11 || apr.hwt_10 || apr.hwt_11 ||
-		apr.iot_blk ||
-		apr.inst == 0250 ||	/* EXCH */
-		apr.ir_memac_mem;
-	if(fc_e)
+	if(apr.fc_e)
 		return ft6;
-	if(fc_e_pse)
+	if(apr.fc_e_pse)
 		return ft7;
 	return ft6a;
 }
@@ -699,7 +880,6 @@ pulse(ft4a){
 	printf("FT4A\n");
 	apr.f4a = 0;			// 5-4
 	apr.ma = 0;			// 7-3
-
 	swap(&apr.mb, &apr.mq);		// 6-3, 6-13
 	return ft5;			// 5-4
 }
@@ -746,18 +926,8 @@ pulse(ft1){
 }
 
 pulse(ft0){
-	bool fac_inh;
-
 	printf("FT0\n");
-	// 5-4
-	fac_inh = apr.ch_inc_op || apr.ch_n_inc_op || apr.ch_load ||
-		apr.ex_ir_uuo ||
-		apr.fwt_00 || apr.fwt_01 || apr.fwt_11 || apr.hwt_11 ||
-		(apr.inst & 0703) == 0503 || apr.ir_iot ||
-		(apr.inst & 0774) == 0254 ||	/* 254-257 */
-		(apr.inst & 0776) == 0264 ||	/* JSR, JSP */
-		apr.ir_memac_mem;
-	if(fac_inh)
+	if(apr.fac_inh)
 		return ft5;		// 5-4
 	return ft1;			// 5-4
 }
diff --git a/io.c b/io.c
new file mode 100644
index 0000000..7ca1d0a
--- /dev/null
+++ b/io.c
@@ -0,0 +1,3 @@
+#include "pdp6.h"
+
+word iobus0, iobus1;
diff --git a/main.c b/main.c
index 9d56c96..9cb1a80 100644
--- a/main.c
+++ b/main.c
@@ -829,7 +829,7 @@ error:
 		ff_lght[20].state = apr.ar_ov_flag;
 		ff_lght[21].state = apr.ar_cry0_flag;
 		ff_lght[22].state = apr.ar_cry1_flag;
-		ff_lght[23].state = apr.pc_chg_flag;
+		ff_lght[23].state = apr.ar_pc_chg_flag;
 		ff_lght[24].state = apr.cpa_non_exist_mem;
 		ff_lght[25].state = apr.cpa_clock_en;
 		ff_lght[26].state = apr.cpa_clock_flag;
diff --git a/pdp6.h b/pdp6.h
index 8cadd12..2ab59f0 100644
--- a/pdp6.h
+++ b/pdp6.h
@@ -55,7 +55,7 @@ struct Apr {
 
 	/* flip-flops */
 	bool ex_mode_sync, ex_uuo_sync, ex_pi_sync, ex_ill_op, ex_user;
-	bool pc_chg_flag, ar_ov_flag, ar_cry0_flag, ar_cry1_flag;
+	bool ar_pc_chg_flag, ar_ov_flag, ar_cry0_flag, ar_cry1_flag;
 	bool ar_cry0, ar_cry1, ar_com_cont;
 	bool ar_cry0_xor_cry1;
 
@@ -83,23 +83,27 @@ struct Apr {
 	/* temporaries */
 	bool ex_inh_rel;
 	bool pi_hold;
-	int inst;
 
 	/* decoded instructions */
-	bool ir_jp, ir_as;
-	bool ir_boole;
-	int ir_boole_op;
-	bool boole_as_00, boole_as_01, boole_as_10, boole_as_11;
+	int inst;
+	bool ir_fp;
+	bool ch_inc, ch_inc_op, ch_n_inc_op, ch_load, ch_dep;
 	bool ir_fwt, ir_fwt_swap;
 	bool fwt_00, fwt_01, fwt_10, fwt_11;
+	bool ir_md, ir_jp, ir_as;
+	bool ir_accp, ir_memac, ir_memac_mem, ir_memac_ac;
+	bool ir_boole;
+	bool boole_as_00, boole_as_01, boole_as_10, boole_as_11;
+	int ir_boole_op;
 	bool ir_hwt;
 	bool hwt_00, hwt_01, hwt_10, hwt_11;
-	bool ir_memac, ir_memac_mem;
 	bool iot_blk, iot_dataio;
-
-	bool ch_inc, ch_inc_op, ch_n_inc_op, ch_load, ch_dep;
+	bool ir_acbm;
 	bool ex_ir_uuo, ir_iot, ir_jrst;
+
 	bool fac2, fc_c_acrt, fc_c_aclt;
+	bool fac_inh, fc_e, fc_e_pse;
+	bool e_long, mb_pc_sto, pc_set, pc_inc;
 
 	/* needed for the emulation */
 	int extpulse;