anchor.diff:  ;
   
   : GD.wh ( -- w h ) \ size of the current screen
  -    unstream
  +    GD.finish unstream
       GD.REG_HSIZE GD.@ GD.REG_VSIZE GD.@
       GD.REG_ROTATE GD.@ 2 and if     \ deal with landscape/portrait
           swap
  
positive.code: \ These registers are not used often
  \ 302104 1024f0 gdconst GD.REG_TOUCH_MODE
  \ 302114 102500 gdconst GD.REG_TOUCH_OVERSAMPLE
  \ 00000001 constant GD.CTOUCH_MODE_COMPATIBILITY
  \ 00000000 constant GD.CTOUCH_MODE_EXTENDED
  
  
negative.code:     gd2-unsel
  ;
  
  : hostcmd2 ( u0 u1 -- )
      gd2-sel
      swap >spi
      >spi
      00 >spi
      gd2-unsel
      60 ms
  ;
  
  : hostcmd
      0 hostcmd2
  ;
  
  : measureF ( -- u ) \ measure FT800's actual clock frequency
  