anchor.diff:              | 38 | 40 | 42 | 44 | 46 -> readR()
               | x ->
                   if (x &&& 1 = 0) then
  -                    if (x < 128) then
  +                    if (x >= 48 && x < 128) then
                           readG()
                       else
                           readI()
                   else
  -                    if (x < 128) then
  +                    if (x >= 47 && x < 127) then
                           readC()
   
       let ClockBaAec() =
  
positive.code:                         else
                              characterBankPointer ||| (GetVideoMatrixLineMemory() &&& 0xFF) ||| rowCounter
                      else
                          SetVideoMatrixLineMemory(0)
                          0x3FFF
                  )
              graphicsShiftRegister <- (graphicsShiftRegister <<< 8) ||| (data &&& 0xFF)
              IncrementVideoCounter()
          let readI () =
              readMemory(0x3FFF) |> ignore
  
negative.code:             DecrementRefreshCounter()
              readMemory(0x3F00 ||| refreshCounter) |> ignore
          match GetMemoryAccessCycle() with
              | -1 -> ()
              |  0 -> if (config.CyclesPerRasterLine < 64) then readG() else readI()
              |  2 |  4 -> readI()
              |  6 -> readP(0)
  