anchor.diff:              // 105 (VOP_IRQ)
               [| Uop.FetchDummy; Uop.FetchDummy; Uop.PushPch; Uop.PushPcl; Uop.PushPIrq; Uop.FetchPclVector; Uop.FetchPchVector; Uop.EndSuppressInterrupt |];
               // 106 (VOP_RESET)
  -            [| Uop.FetchDummy; Uop.FetchDummy; Uop.PushDummy; Uop.PushDummy; Uop.PushPReset; Uop.FetchPclVector; Uop.FetchPchVector; Uop.EndSuppressInterrupt |];
  +            [| Uop.FetchDummy; Uop.FetchDummy; Uop.FetchDummy; Uop.PushDummy; Uop.PushDummy; Uop.PushPReset; Uop.FetchPclVector; Uop.FetchPchVector; Uop.EndSuppressInterrupt |];
               // 107 (VOP_Fetch1_NoInterrupt)
               [| Uop.Fetch1Real |];
           |]
  
positive.code:                     mi <- -1
                  else
                      if interruptPending then
                          branchIrqHack <- true
              rdy
  
          let RelBranchStage4 () =
              if rdy then
                  FetchDummy()
                  pc <- (pc + (if aluTemp < 0 then -256 else 256)) &&& 0xFFFF
              rdy
  
          let Nop () =
              if rdy then
                  FetchDummy()
              rdy
  
          let DecS () =
              if rdy then
                  FetchDummy()
                  DecrementS()
              rdy
  
          let IncS () =
              if rdy then
                  FetchDummy()
                  IncrementS()
              rdy
  
          let Jsr () =
              if rdy then
                  pc <- (ReadMemory(pc) <<< 8) ||| opcode2
              rdy
  
          let PullP () =
              if rdy then
                  ReadMemoryS() |> SetP
                  IncrementS()
              rdy
  
          let PullPcl () =
              if rdy then
                  pc <- (pc &&& 0xFF00) ||| ReadMemoryS()
                  IncrementS()
              rdy
  
          let PullPchNoInc () =
              if rdy then
                  pc <- (pc &&& 0x00FF) ||| (ReadMemoryS() <<< 8)
              rdy
  
          let AbsReadLda () =
              if rdy then
                  a <- ReadMemory((opcode3 <<< 8) ||| opcode2)
                  NZ a
              rdy
  
          let AbsReadLdy () =
              if rdy then
                  y <- ReadMemory((opcode3 <<< 8) ||| opcode2)
                  NZ y
              rdy
  
          let AbsReadLdx () =
              if rdy then
                  x <- ReadMemory((opcode3 <<< 8) ||| opcode2)
                  NZ x
              rdy
  
          let AbsReadBit () =
              if rdy then
                  ReadMemory((opcode3 <<< 8) ||| opcode2) |> Bit
              rdy
  
          let AbsReadLax () =
              if rdy then
                  aluTemp <- ReadMemory((opcode3 <<< 8) ||| opcode2)
                  a <- aluTemp
                  x <- a
                  NZ a
              rdy
  
          let AbsReadAnd () =
              if rdy then
                  ReadMemory((opcode3 <<< 8) ||| opcode2) |> And
              rdy
  
          let AbsReadEor () =
              if rdy then
                  ReadMemory((opcode3 <<< 8) ||| opcode2) |> Eor
              rdy
  
          let AbsReadOra () =
              if rdy then
                  ReadMemory((opcode3 <<< 8) ||| opcode2) |> Ora
              rdy
  
          let AbsReadAdc () =
              if rdy then
                  ReadMemory((opcode3 <<< 8) ||| opcode2) |> Adc
              rdy
  
          let AbsReadCmp () =
              if rdy then
                  ReadMemory((opcode3 <<< 8) ||| opcode2) |> Cmp a
              rdy
  
          let AbsReadCpy () =
              if rdy then
                  ReadMemory((opcode3 <<< 8) ||| opcode2) |> Cmp y
              rdy
  
          let AbsReadNop () =
              if rdy then
                  ReadMemory((opcode3 <<< 8) ||| opcode2) |> ignore
              rdy
  
          let AbsReadCpx () =
              if rdy then
                  ReadMemory((opcode3 <<< 8) ||| opcode2) |> Cmp x
              rdy
  
          let AbsReadSbc () =
              if rdy then
                  ReadMemory((opcode3 <<< 8) ||| opcode2) |> Sbc
              rdy
  
          let ZpIdxStage3X () =
              if rdy then
  
negative.code:             z <- (value &&& 0xFF) = 0
              n <- (value &&& 0x80) <> 0
  
          let ReadMemoryInternal address =
              memory.Read address
  
          let ReadMemory address operation =
              if rdy then
                  ReadMemoryInternal address |> operation
              rdy
  
          let WriteMemory address value operation =
              memory.Write(address, value)
              value |> operation
              true
  
          let ReadMemoryPcIncrement operation =
              ReadMemory pc (fun mem ->
                  pc <- pc + 1
                  mem |> operation)
  
          let ReadMemoryS operation =
              ReadMemory (0x100 ||| s) operation
  
          let WriteMemoryS value operation =
              WriteMemory (0x100 ||| s) value operation
  
          let Push value operation =
              WriteMemoryS value (fun mem ->
                  mem |> operation
                  s <- (s - 1 &&& 0xFF))
  
          let Pull operation =
              ReadMemoryS (fun mem ->
                  mem |> operation
                  s <- (s + 1 &&& 0xFF))
  
          let GetP () =
              0x20 |||
  