anchor.diff:  ﻿namespace BreadboxF
   
   type Vic2Configuration(vBlankSet:int, cyclesPerRasterLine:int, rasterLinesPerFrame:int) =
  +    let rasterWidth = (cyclesPerRasterLine * 8)
       member val CyclesPerRasterLine = cyclesPerRasterLine
       member val HBlankSet = 0x18C - ((65 - cyclesPerRasterLine) * 8)
       member val HBlankClear = 0x1E8 - (System.Math.Max(0, 64 - cyclesPerRasterLine) * 8)
  
positive.code:         displayEnabled <- (value &&& 0x10 <> 0x00)
          rowSelect <- (value &&& 0x08 <> 0x00)
          yScroll <- (value &&& 0x07)
          value
  
      // LPX (13) (it's a 9 bit register but we only keep the upper 8)
      let mutable lightPenX = 0
  
negative.code:         mobYExpansionEnabled.[5] <- (value &&& 0x20) <> 0
          mobYExpansionEnabled.[6] <- (value &&& 0x40) <> 0
          mobYExpansionEnabled.[7] <- (value &&& 0x80) <> 0
      let SetMobYExpansionToggle (index:int) =
          mobYExpansionToggle.[index] <- true
      let ClearMobYExpansionToggle (index:int) =
          mobYExpansionToggle.[index] <- false
      let InvertMobYExpansionToggle (index:int) =
          mobYExpansionToggle.[index] <- not mobYExpansionToggle.[index]
  
      // Memory Pointers (18) (VM and CB are pre-shifted on store for speed)
      let mutable videoMemoryPointer = 0
  