OpenCores
URL https://opencores.org/ocsvn/a-z80/a-z80/trunk

Subversion Repositories a-z80

[/] [a-z80/] [trunk/] [cpu/] [toplevel/] [test_fuse.vh] - Rev 8

Go to most recent revision | Compare with Previous | Blame | View Log

// Automatically generated by genfuse.py
 
force dut.resets_.clrpc=0;
force dut.reg_file_.reg_gp_we=0;
force dut.reg_control_.ctl_reg_sys_we=0;
force dut.z80_top_ifc_n.fpga_reset=1;
#2
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode 00      NOP");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'h00;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#6 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h00) $fdisplay(f,"* Reg af f=%h !=00",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h00) $fdisplay(f,"* Reg af a=%h !=00",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h00) $fdisplay(f,"* Reg bc c=%h !=00",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h00) $fdisplay(f,"* Reg bc b=%h !=00",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h00) $fdisplay(f,"* Reg de e=%h !=00",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h00) $fdisplay(f,"* Reg de d=%h !=00",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'h00) $fdisplay(f,"* Reg hl l=%h !=00",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'h00) $fdisplay(f,"* Reg hl h=%h !=00",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode ed67    RRD");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h24;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h36;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h6a;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'hb1;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'hdb;
   force dut.reg_file_.b2v_latch_de_hi.db=8'ha4;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'hde;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'hb9;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'hed;
   ram.Mem[1] = 8'h67;
   // Preset memory
   ram.Mem[47582] = 8'h93;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#34 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h24) $fdisplay(f,"* Reg af f=%h !=24",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h33) $fdisplay(f,"* Reg af a=%h !=33",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h6a) $fdisplay(f,"* Reg bc c=%h !=6a",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'hb1) $fdisplay(f,"* Reg bc b=%h !=b1",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'hdb) $fdisplay(f,"* Reg de e=%h !=db",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'ha4) $fdisplay(f,"* Reg de d=%h !=a4",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'hde) $fdisplay(f,"* Reg hl l=%h !=de",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'hb9) $fdisplay(f,"* Reg hl h=%h !=b9",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0002) $fdisplay(f,"* PC=%h !=0002",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h02) $fdisplay(f,"* Reg ir r=%h !=02",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
   if (ram.Mem[47582]!==8'h69) $fdisplay(f,"* Mem[b9de]=%h !=69",ram.Mem[47582]);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode ed6f    RLD");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h8b;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h65;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h7a;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h7a;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'hf0;
   force dut.reg_file_.b2v_latch_de_hi.db=8'hec;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h3c;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'h40;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'hed;
   ram.Mem[1] = 8'h6f;
   // Preset memory
   ram.Mem[16444] = 8'hc4;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#34 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h2d) $fdisplay(f,"* Reg af f=%h !=2d",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h6c) $fdisplay(f,"* Reg af a=%h !=6c",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h7a) $fdisplay(f,"* Reg bc c=%h !=7a",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h7a) $fdisplay(f,"* Reg bc b=%h !=7a",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'hf0) $fdisplay(f,"* Reg de e=%h !=f0",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'hec) $fdisplay(f,"* Reg de d=%h !=ec",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'h3c) $fdisplay(f,"* Reg hl l=%h !=3c",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'h40) $fdisplay(f,"* Reg hl h=%h !=40",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0002) $fdisplay(f,"* PC=%h !=0002",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h02) $fdisplay(f,"* Reg ir r=%h !=02",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
   if (ram.Mem[16444]!==8'h45) $fdisplay(f,"* Mem[403c]=%h !=45",ram.Mem[16444]);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode 81      ADD A,C");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'hf5;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h3b;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h0f;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h0d;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h20;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'ha6;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'hdc;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'h81;
   // Preset memory
   ram.Mem[56486] = 8'h49;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#6 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h31) $fdisplay(f,"* Reg af f=%h !=31",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h30) $fdisplay(f,"* Reg af a=%h !=30",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h3b) $fdisplay(f,"* Reg bc c=%h !=3b",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h0f) $fdisplay(f,"* Reg bc b=%h !=0f",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h0d) $fdisplay(f,"* Reg de e=%h !=0d",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h20) $fdisplay(f,"* Reg de d=%h !=20",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'ha6) $fdisplay(f,"* Reg hl l=%h !=a6",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'hdc) $fdisplay(f,"* Reg hl h=%h !=dc",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode cb41    BIT 0,C");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h9e;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h43;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h1b;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h4e;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h95;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'he9;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'h7b;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'hcb;
   ram.Mem[1] = 8'h41;
   // Preset memory
   ram.Mem[31721] = 8'hf7;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#14 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h10) $fdisplay(f,"* Reg af f=%h !=10",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h9e) $fdisplay(f,"* Reg af a=%h !=9e",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h43) $fdisplay(f,"* Reg bc c=%h !=43",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h1b) $fdisplay(f,"* Reg bc b=%h !=1b",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h4e) $fdisplay(f,"* Reg de e=%h !=4e",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h95) $fdisplay(f,"* Reg de d=%h !=95",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'he9) $fdisplay(f,"* Reg hl l=%h !=e9",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'h7b) $fdisplay(f,"* Reg hl h=%h !=7b",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0002) $fdisplay(f,"* PC=%h !=0002",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h02) $fdisplay(f,"* Reg ir r=%h !=02",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode cb93    RES 2,E");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'hc2;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h05;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h4e;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'hf8;
   force dut.reg_file_.b2v_latch_de_hi.db=8'hb3;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h34;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'h22;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'hcb;
   ram.Mem[1] = 8'h93;
   // Preset memory
   ram.Mem[8756] = 8'ha0;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#14 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h00) $fdisplay(f,"* Reg af f=%h !=00",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'hc2) $fdisplay(f,"* Reg af a=%h !=c2",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h05) $fdisplay(f,"* Reg bc c=%h !=05",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h4e) $fdisplay(f,"* Reg bc b=%h !=4e",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'hf8) $fdisplay(f,"* Reg de e=%h !=f8",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'hb3) $fdisplay(f,"* Reg de d=%h !=b3",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'h34) $fdisplay(f,"* Reg hl l=%h !=34",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'h22) $fdisplay(f,"* Reg hl h=%h !=22",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0002) $fdisplay(f,"* PC=%h !=0002",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h02) $fdisplay(f,"* Reg ir r=%h !=02",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode cbe5    SET 4,L");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'hca;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h0d;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'hdf;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h88;
   force dut.reg_file_.b2v_latch_de_hi.db=8'hd5;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h8f;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'hb4;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'hcb;
   ram.Mem[1] = 8'he5;
   // Preset memory
   ram.Mem[46223] = 8'hcf;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#14 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h00) $fdisplay(f,"* Reg af f=%h !=00",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'hca) $fdisplay(f,"* Reg af a=%h !=ca",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h0d) $fdisplay(f,"* Reg bc c=%h !=0d",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'hdf) $fdisplay(f,"* Reg bc b=%h !=df",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h88) $fdisplay(f,"* Reg de e=%h !=88",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'hd5) $fdisplay(f,"* Reg de d=%h !=d5",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'h9f) $fdisplay(f,"* Reg hl l=%h !=9f",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'hb4) $fdisplay(f,"* Reg hl h=%h !=b4",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0002) $fdisplay(f,"* PC=%h !=0002",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h02) $fdisplay(f,"* Reg ir r=%h !=02",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode 8c      ADC A,H");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'hf5;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h3b;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h0f;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h0d;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h20;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'ha6;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'hdc;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'h8c;
   // Preset memory
   ram.Mem[56486] = 8'h49;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#6 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h91) $fdisplay(f,"* Reg af f=%h !=91",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'hd1) $fdisplay(f,"* Reg af a=%h !=d1",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h3b) $fdisplay(f,"* Reg bc c=%h !=3b",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h0f) $fdisplay(f,"* Reg bc b=%h !=0f",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h0d) $fdisplay(f,"* Reg de e=%h !=0d",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h20) $fdisplay(f,"* Reg de d=%h !=20",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'ha6) $fdisplay(f,"* Reg hl l=%h !=a6",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'hdc) $fdisplay(f,"* Reg hl h=%h !=dc",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode 92      SUB D");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'hf5;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h3b;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h0f;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h0d;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h20;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'ha6;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'hdc;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'h92;
   // Preset memory
   ram.Mem[56486] = 8'h49;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#6 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h82) $fdisplay(f,"* Reg af f=%h !=82",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'hd5) $fdisplay(f,"* Reg af a=%h !=d5",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h3b) $fdisplay(f,"* Reg bc c=%h !=3b",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h0f) $fdisplay(f,"* Reg bc b=%h !=0f",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h0d) $fdisplay(f,"* Reg de e=%h !=0d",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h20) $fdisplay(f,"* Reg de d=%h !=20",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'ha6) $fdisplay(f,"* Reg hl l=%h !=a6",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'hdc) $fdisplay(f,"* Reg hl h=%h !=dc",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode 9d      SBC A,L");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'hf5;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h3b;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h0f;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h0d;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h20;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'ha6;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'hdc;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'h9d;
   // Preset memory
   ram.Mem[56486] = 8'h49;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#6 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h1a) $fdisplay(f,"* Reg af f=%h !=1a",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h4f) $fdisplay(f,"* Reg af a=%h !=4f",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h3b) $fdisplay(f,"* Reg bc c=%h !=3b",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h0f) $fdisplay(f,"* Reg bc b=%h !=0f",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h0d) $fdisplay(f,"* Reg de e=%h !=0d",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h20) $fdisplay(f,"* Reg de d=%h !=20",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'ha6) $fdisplay(f,"* Reg hl l=%h !=a6",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'hdc) $fdisplay(f,"* Reg hl h=%h !=dc",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode a3      AND E");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'hf5;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h3b;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h0f;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h0d;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h20;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'ha6;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'hdc;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'ha3;
   // Preset memory
   ram.Mem[56486] = 8'h49;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#6 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h14) $fdisplay(f,"* Reg af f=%h !=14",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h05) $fdisplay(f,"* Reg af a=%h !=05",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h3b) $fdisplay(f,"* Reg bc c=%h !=3b",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h0f) $fdisplay(f,"* Reg bc b=%h !=0f",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h0d) $fdisplay(f,"* Reg de e=%h !=0d",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h20) $fdisplay(f,"* Reg de d=%h !=20",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'ha6) $fdisplay(f,"* Reg hl l=%h !=a6",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'hdc) $fdisplay(f,"* Reg hl h=%h !=dc",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode ae      XOR (HL)");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'hf5;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h3b;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h0f;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h0d;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h20;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'ha6;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'hdc;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'hae;
   // Preset memory
   ram.Mem[56486] = 8'h49;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#12 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'ha8) $fdisplay(f,"* Reg af f=%h !=a8",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'hbc) $fdisplay(f,"* Reg af a=%h !=bc",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h3b) $fdisplay(f,"* Reg bc c=%h !=3b",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h0f) $fdisplay(f,"* Reg bc b=%h !=0f",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h0d) $fdisplay(f,"* Reg de e=%h !=0d",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h20) $fdisplay(f,"* Reg de d=%h !=20",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'ha6) $fdisplay(f,"* Reg hl l=%h !=a6",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'hdc) $fdisplay(f,"* Reg hl h=%h !=dc",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode b4      OR H");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'hf5;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h3b;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h0f;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h0d;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h20;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'ha6;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'hdc;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'hb4;
   // Preset memory
   ram.Mem[56486] = 8'h49;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#6 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'ha8) $fdisplay(f,"* Reg af f=%h !=a8",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'hfd) $fdisplay(f,"* Reg af a=%h !=fd",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h3b) $fdisplay(f,"* Reg bc c=%h !=3b",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h0f) $fdisplay(f,"* Reg bc b=%h !=0f",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h0d) $fdisplay(f,"* Reg de e=%h !=0d",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h20) $fdisplay(f,"* Reg de d=%h !=20",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'ha6) $fdisplay(f,"* Reg hl l=%h !=a6",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'hdc) $fdisplay(f,"* Reg hl h=%h !=dc",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode bf      CP A");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'hf5;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h3b;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h0f;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h0d;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h20;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'ha6;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'hdc;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'hbf;
   // Preset memory
   ram.Mem[56486] = 8'h49;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#6 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h62) $fdisplay(f,"* Reg af f=%h !=62",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'hf5) $fdisplay(f,"* Reg af a=%h !=f5",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h3b) $fdisplay(f,"* Reg bc c=%h !=3b",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h0f) $fdisplay(f,"* Reg bc b=%h !=0f",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h0d) $fdisplay(f,"* Reg de e=%h !=0d",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h20) $fdisplay(f,"* Reg de d=%h !=20",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'ha6) $fdisplay(f,"* Reg hl l=%h !=a6",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'hdc) $fdisplay(f,"* Reg hl h=%h !=dc",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode 43      LD B,E");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h02;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h98;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'hcf;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'hd8;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h90;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h69;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'ha1;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'h43;
   // Preset memory
   ram.Mem[41321] = 8'h50;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#6 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h00) $fdisplay(f,"* Reg af f=%h !=00",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h02) $fdisplay(f,"* Reg af a=%h !=02",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h98) $fdisplay(f,"* Reg bc c=%h !=98",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'hd8) $fdisplay(f,"* Reg bc b=%h !=d8",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'hd8) $fdisplay(f,"* Reg de e=%h !=d8",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h90) $fdisplay(f,"* Reg de d=%h !=90",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'h69) $fdisplay(f,"* Reg hl l=%h !=69",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'ha1) $fdisplay(f,"* Reg hl h=%h !=a1",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode 6e      LD L,(HL)");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h02;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h98;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'hcf;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'hd8;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h90;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h69;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'ha1;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'h6e;
   // Preset memory
   ram.Mem[41321] = 8'h50;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#12 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h00) $fdisplay(f,"* Reg af f=%h !=00",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h02) $fdisplay(f,"* Reg af a=%h !=02",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h98) $fdisplay(f,"* Reg bc c=%h !=98",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'hcf) $fdisplay(f,"* Reg bc b=%h !=cf",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'hd8) $fdisplay(f,"* Reg de e=%h !=d8",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h90) $fdisplay(f,"* Reg de d=%h !=90",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'h50) $fdisplay(f,"* Reg hl l=%h !=50",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'ha1) $fdisplay(f,"* Reg hl h=%h !=a1",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode e3      EX (SP),HL");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h22;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'h4d;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h73;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h03;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'he3;
   // Preset memory
   ram.Mem[883] = 8'h8e;
   ram.Mem[884] = 8'he1;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#36 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h00) $fdisplay(f,"* Reg af f=%h !=00",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h00) $fdisplay(f,"* Reg af a=%h !=00",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h00) $fdisplay(f,"* Reg bc c=%h !=00",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h00) $fdisplay(f,"* Reg bc b=%h !=00",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h00) $fdisplay(f,"* Reg de e=%h !=00",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h00) $fdisplay(f,"* Reg de d=%h !=00",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'h8e) $fdisplay(f,"* Reg hl l=%h !=8e",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'he1) $fdisplay(f,"* Reg hl h=%h !=e1",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h73) $fdisplay(f,"* Reg sp p=%h !=73",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h03) $fdisplay(f,"* Reg sp s=%h !=03",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
   if (ram.Mem[883]!==8'h22) $fdisplay(f,"* Mem[373]=%h !=22",ram.Mem[883]);
   if (ram.Mem[884]!==8'h4d) $fdisplay(f,"* Mem[374]=%h !=4d",ram.Mem[884]);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode 03      INC BC");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h9a;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h78;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'h03;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#10 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h00) $fdisplay(f,"* Reg af f=%h !=00",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h00) $fdisplay(f,"* Reg af a=%h !=00",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h9b) $fdisplay(f,"* Reg bc c=%h !=9b",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h78) $fdisplay(f,"* Reg bc b=%h !=78",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h00) $fdisplay(f,"* Reg de e=%h !=00",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h00) $fdisplay(f,"* Reg de d=%h !=00",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'h00) $fdisplay(f,"* Reg hl l=%h !=00",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'h00) $fdisplay(f,"* Reg hl h=%h !=00",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode 3b      DEC SP");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h36;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h9d;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'h3b;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#10 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h00) $fdisplay(f,"* Reg af f=%h !=00",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h00) $fdisplay(f,"* Reg af a=%h !=00",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h00) $fdisplay(f,"* Reg bc c=%h !=00",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h00) $fdisplay(f,"* Reg bc b=%h !=00",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h00) $fdisplay(f,"* Reg de e=%h !=00",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h00) $fdisplay(f,"* Reg de d=%h !=00",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'h00) $fdisplay(f,"* Reg hl l=%h !=00",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'h00) $fdisplay(f,"* Reg hl h=%h !=00",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h35) $fdisplay(f,"* Reg sp p=%h !=35",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h9d) $fdisplay(f,"* Reg sp s=%h !=9d",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode 07      RLCA");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h88;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'h07;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#6 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h01) $fdisplay(f,"* Reg af f=%h !=01",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h11) $fdisplay(f,"* Reg af a=%h !=11",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h00) $fdisplay(f,"* Reg bc c=%h !=00",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h00) $fdisplay(f,"* Reg bc b=%h !=00",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h00) $fdisplay(f,"* Reg de e=%h !=00",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h00) $fdisplay(f,"* Reg de d=%h !=00",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'h00) $fdisplay(f,"* Reg hl l=%h !=00",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'h00) $fdisplay(f,"* Reg hl h=%h !=00",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode 1f      RRA");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'hc4;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h01;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'h1f;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#6 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'hc5) $fdisplay(f,"* Reg af f=%h !=c5",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h00) $fdisplay(f,"* Reg af a=%h !=00",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h00) $fdisplay(f,"* Reg bc c=%h !=00",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h00) $fdisplay(f,"* Reg bc b=%h !=00",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h00) $fdisplay(f,"* Reg de e=%h !=00",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'h00) $fdisplay(f,"* Reg de d=%h !=00",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'h00) $fdisplay(f,"* Reg hl l=%h !=00",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'h00) $fdisplay(f,"* Reg hl h=%h !=00",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0001) $fdisplay(f,"* PC=%h !=0001",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h01) $fdisplay(f,"* Reg ir r=%h !=01",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode cb09    RRC C");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h18;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h5c;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'h12;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h97;
   force dut.reg_file_.b2v_latch_de_hi.db=8'hdd;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'hc6;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'h59;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] = 8'hcb;
   ram.Mem[1] = 8'h09;
   // Preset memory
   ram.Mem[22982] = 8'h9e;
   force dut.z80_top_ifc_n.fpga_reset=0;
   force dut.address_latch_.Q=16'h0000;
   release dut.reg_control_.ctl_reg_sys_we;
   release dut.reg_file_.reg_gp_we;
#3
   release dut.address_latch_.Q;
#1
#14 // Execute
   force dut.reg_control_.ctl_reg_sys_we=0;
#2 pc=z.A;
#2
#1 force dut.reg_file_.reg_gp_we=0;
   force dut.z80_top_ifc_n.fpga_reset=1;
   if (dut.reg_file_.b2v_latch_af_lo.latch!==8'h2c) $fdisplay(f,"* Reg af f=%h !=2c",dut.reg_file_.b2v_latch_af_lo.latch);
   if (dut.reg_file_.b2v_latch_af_hi.latch!==8'h18) $fdisplay(f,"* Reg af a=%h !=18",dut.reg_file_.b2v_latch_af_hi.latch);
   if (dut.reg_file_.b2v_latch_bc_lo.latch!==8'h2e) $fdisplay(f,"* Reg bc c=%h !=2e",dut.reg_file_.b2v_latch_bc_lo.latch);
   if (dut.reg_file_.b2v_latch_bc_hi.latch!==8'h12) $fdisplay(f,"* Reg bc b=%h !=12",dut.reg_file_.b2v_latch_bc_hi.latch);
   if (dut.reg_file_.b2v_latch_de_lo.latch!==8'h97) $fdisplay(f,"* Reg de e=%h !=97",dut.reg_file_.b2v_latch_de_lo.latch);
   if (dut.reg_file_.b2v_latch_de_hi.latch!==8'hdd) $fdisplay(f,"* Reg de d=%h !=dd",dut.reg_file_.b2v_latch_de_hi.latch);
   if (dut.reg_file_.b2v_latch_hl_lo.latch!==8'hc6) $fdisplay(f,"* Reg hl l=%h !=c6",dut.reg_file_.b2v_latch_hl_lo.latch);
   if (dut.reg_file_.b2v_latch_hl_hi.latch!==8'h59) $fdisplay(f,"* Reg hl h=%h !=59",dut.reg_file_.b2v_latch_hl_hi.latch);
   if (dut.reg_file_.b2v_latch_af2_lo.latch!==8'h00) $fdisplay(f,"* Reg af2 f=%h !=00",dut.reg_file_.b2v_latch_af2_lo.latch);
   if (dut.reg_file_.b2v_latch_af2_hi.latch!==8'h00) $fdisplay(f,"* Reg af2 a=%h !=00",dut.reg_file_.b2v_latch_af2_hi.latch);
   if (dut.reg_file_.b2v_latch_bc2_lo.latch!==8'h00) $fdisplay(f,"* Reg bc2 c=%h !=00",dut.reg_file_.b2v_latch_bc2_lo.latch);
   if (dut.reg_file_.b2v_latch_bc2_hi.latch!==8'h00) $fdisplay(f,"* Reg bc2 b=%h !=00",dut.reg_file_.b2v_latch_bc2_hi.latch);
   if (dut.reg_file_.b2v_latch_de2_lo.latch!==8'h00) $fdisplay(f,"* Reg de2 e=%h !=00",dut.reg_file_.b2v_latch_de2_lo.latch);
   if (dut.reg_file_.b2v_latch_de2_hi.latch!==8'h00) $fdisplay(f,"* Reg de2 d=%h !=00",dut.reg_file_.b2v_latch_de2_hi.latch);
   if (dut.reg_file_.b2v_latch_hl2_lo.latch!==8'h00) $fdisplay(f,"* Reg hl2 l=%h !=00",dut.reg_file_.b2v_latch_hl2_lo.latch);
   if (dut.reg_file_.b2v_latch_hl2_hi.latch!==8'h00) $fdisplay(f,"* Reg hl2 h=%h !=00",dut.reg_file_.b2v_latch_hl2_hi.latch);
   if (dut.reg_file_.b2v_latch_ix_lo.latch!==8'h00) $fdisplay(f,"* Reg ix x=%h !=00",dut.reg_file_.b2v_latch_ix_lo.latch);
   if (dut.reg_file_.b2v_latch_ix_hi.latch!==8'h00) $fdisplay(f,"* Reg ix i=%h !=00",dut.reg_file_.b2v_latch_ix_hi.latch);
   if (dut.reg_file_.b2v_latch_iy_lo.latch!==8'h00) $fdisplay(f,"* Reg iy y=%h !=00",dut.reg_file_.b2v_latch_iy_lo.latch);
   if (dut.reg_file_.b2v_latch_iy_hi.latch!==8'h00) $fdisplay(f,"* Reg iy i=%h !=00",dut.reg_file_.b2v_latch_iy_hi.latch);
   if (dut.reg_file_.b2v_latch_sp_lo.latch!==8'h00) $fdisplay(f,"* Reg sp p=%h !=00",dut.reg_file_.b2v_latch_sp_lo.latch);
   if (dut.reg_file_.b2v_latch_sp_hi.latch!==8'h00) $fdisplay(f,"* Reg sp s=%h !=00",dut.reg_file_.b2v_latch_sp_hi.latch);
   if (pc!==16'h0002) $fdisplay(f,"* PC=%h !=0002",pc);
   if (dut.reg_file_.b2v_latch_ir_lo.latch!==8'h02) $fdisplay(f,"* Reg ir r=%h !=02",dut.reg_file_.b2v_latch_ir_lo.latch);
   if (dut.reg_file_.b2v_latch_ir_hi.latch!==8'h00) $fdisplay(f,"* Reg ir i=%h !=00",dut.reg_file_.b2v_latch_ir_hi.latch);
//--------------------------------------------------------------------------------
   force dut.ir_.ctl_ir_we=1;
   force dut.ir_.db=0;
#2 release dut.ir_.ctl_ir_we;
   release dut.ir_.db;
$fdisplay(f,"Testing opcode cb11    RL C");
   // Preset af
   force dut.reg_file_.b2v_latch_af_lo.we=1;
   force dut.reg_file_.b2v_latch_af_hi.we=1;
   force dut.reg_file_.b2v_latch_af_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af_hi.db=8'h65;
#2 release dut.reg_file_.b2v_latch_af_lo.we;
   release dut.reg_file_.b2v_latch_af_hi.we;
   release dut.reg_file_.b2v_latch_af_lo.db;
   release dut.reg_file_.b2v_latch_af_hi.db;
   // Preset bc
   force dut.reg_file_.b2v_latch_bc_lo.we=1;
   force dut.reg_file_.b2v_latch_bc_hi.we=1;
   force dut.reg_file_.b2v_latch_bc_lo.db=8'h5c;
   force dut.reg_file_.b2v_latch_bc_hi.db=8'he2;
#2 release dut.reg_file_.b2v_latch_bc_lo.we;
   release dut.reg_file_.b2v_latch_bc_hi.we;
   release dut.reg_file_.b2v_latch_bc_lo.db;
   release dut.reg_file_.b2v_latch_bc_hi.db;
   // Preset de
   force dut.reg_file_.b2v_latch_de_lo.we=1;
   force dut.reg_file_.b2v_latch_de_hi.we=1;
   force dut.reg_file_.b2v_latch_de_lo.db=8'h8a;
   force dut.reg_file_.b2v_latch_de_hi.db=8'h4b;
#2 release dut.reg_file_.b2v_latch_de_lo.we;
   release dut.reg_file_.b2v_latch_de_hi.we;
   release dut.reg_file_.b2v_latch_de_lo.db;
   release dut.reg_file_.b2v_latch_de_hi.db;
   // Preset hl
   force dut.reg_file_.b2v_latch_hl_lo.we=1;
   force dut.reg_file_.b2v_latch_hl_hi.we=1;
   force dut.reg_file_.b2v_latch_hl_lo.db=8'h42;
   force dut.reg_file_.b2v_latch_hl_hi.db=8'hed;
#2 release dut.reg_file_.b2v_latch_hl_lo.we;
   release dut.reg_file_.b2v_latch_hl_hi.we;
   release dut.reg_file_.b2v_latch_hl_lo.db;
   release dut.reg_file_.b2v_latch_hl_hi.db;
   // Preset af2
   force dut.reg_file_.b2v_latch_af2_lo.we=1;
   force dut.reg_file_.b2v_latch_af2_hi.we=1;
   force dut.reg_file_.b2v_latch_af2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_af2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_af2_lo.we;
   release dut.reg_file_.b2v_latch_af2_hi.we;
   release dut.reg_file_.b2v_latch_af2_lo.db;
   release dut.reg_file_.b2v_latch_af2_hi.db;
   // Preset bc2
   force dut.reg_file_.b2v_latch_bc2_lo.we=1;
   force dut.reg_file_.b2v_latch_bc2_hi.we=1;
   force dut.reg_file_.b2v_latch_bc2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_bc2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_bc2_lo.we;
   release dut.reg_file_.b2v_latch_bc2_hi.we;
   release dut.reg_file_.b2v_latch_bc2_lo.db;
   release dut.reg_file_.b2v_latch_bc2_hi.db;
   // Preset de2
   force dut.reg_file_.b2v_latch_de2_lo.we=1;
   force dut.reg_file_.b2v_latch_de2_hi.we=1;
   force dut.reg_file_.b2v_latch_de2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_de2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_de2_lo.we;
   release dut.reg_file_.b2v_latch_de2_hi.we;
   release dut.reg_file_.b2v_latch_de2_lo.db;
   release dut.reg_file_.b2v_latch_de2_hi.db;
   // Preset hl2
   force dut.reg_file_.b2v_latch_hl2_lo.we=1;
   force dut.reg_file_.b2v_latch_hl2_hi.we=1;
   force dut.reg_file_.b2v_latch_hl2_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_hl2_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_hl2_lo.we;
   release dut.reg_file_.b2v_latch_hl2_hi.we;
   release dut.reg_file_.b2v_latch_hl2_lo.db;
   release dut.reg_file_.b2v_latch_hl2_hi.db;
   // Preset ix
   force dut.reg_file_.b2v_latch_ix_lo.we=1;
   force dut.reg_file_.b2v_latch_ix_hi.we=1;
   force dut.reg_file_.b2v_latch_ix_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ix_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ix_lo.we;
   release dut.reg_file_.b2v_latch_ix_hi.we;
   release dut.reg_file_.b2v_latch_ix_lo.db;
   release dut.reg_file_.b2v_latch_ix_hi.db;
   // Preset iy
   force dut.reg_file_.b2v_latch_iy_lo.we=1;
   force dut.reg_file_.b2v_latch_iy_hi.we=1;
   force dut.reg_file_.b2v_latch_iy_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_iy_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_iy_lo.we;
   release dut.reg_file_.b2v_latch_iy_hi.we;
   release dut.reg_file_.b2v_latch_iy_lo.db;
   release dut.reg_file_.b2v_latch_iy_hi.db;
   // Preset sp
   force dut.reg_file_.b2v_latch_sp_lo.we=1;
   force dut.reg_file_.b2v_latch_sp_hi.we=1;
   force dut.reg_file_.b2v_latch_sp_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_sp_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_sp_lo.we;
   release dut.reg_file_.b2v_latch_sp_hi.we;
   release dut.reg_file_.b2v_latch_sp_lo.db;
   release dut.reg_file_.b2v_latch_sp_hi.db;
   // Preset wz
   force dut.reg_file_.b2v_latch_wz_lo.we=1;
   force dut.reg_file_.b2v_latch_wz_hi.we=1;
   force dut.reg_file_.b2v_latch_wz_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_wz_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_wz_lo.we;
   release dut.reg_file_.b2v_latch_wz_hi.we;
   release dut.reg_file_.b2v_latch_wz_lo.db;
   release dut.reg_file_.b2v_latch_wz_hi.db;
   // Preset pc
   force dut.reg_file_.b2v_latch_pc_lo.we=1;
   force dut.reg_file_.b2v_latch_pc_hi.we=1;
   force dut.reg_file_.b2v_latch_pc_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_pc_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_pc_lo.we;
   release dut.reg_file_.b2v_latch_pc_hi.we;
   release dut.reg_file_.b2v_latch_pc_lo.db;
   release dut.reg_file_.b2v_latch_pc_hi.db;
   // Preset ir
   force dut.reg_file_.b2v_latch_ir_lo.we=1;
   force dut.reg_file_.b2v_latch_ir_hi.we=1;
   force dut.reg_file_.b2v_latch_ir_lo.db=8'h00;
   force dut.reg_file_.b2v_latch_ir_hi.db=8'h00;
#2 release dut.reg_file_.b2v_latch_ir_lo.we;
   release dut.reg_file_.b2v_latch_ir_hi.we;
   release dut.reg_file_.b2v_latch_ir_lo.db;
   release dut.reg_file_.b2v_latch_ir_hi.db;
   // Preset memory
   ram.Mem[0] =