anchor.diff:  ;
   
   : GD.nocrystal ( -- ) \ initialize the FT800 for no-crystal
  -    062 hostcmd     \ CLK48M used for no-crystal parts like Gameduino2
  +    000 hostcmd     \ ACTIVE
  +    062 hostcmd     \ CLK48M: for no-crystal parts like GD2
       068 hostcmd     \ CORERST
       tune
       common-init
   ;
   
   : GD.crystal ( -- ) \ initialize the FT800 for external crystal
  -    044 hostcmd     \ CLKEXT, use external crystal
  +    000 hostcmd     \ ACTIVE
  +    044 hostcmd     \ CLKEXT: use external crystal
       068 hostcmd     \ CORERST
       common-init
  +;
  +
  +create plltab
  +\   0       1X      2X      3X      4X      5X      6X
  +    0 c,    001 c,  002 c,  003 c,  044 c,  045 c,  046 c,
  +
  +: GD.pll ( u -- ) 
  +    042 hostcmd
  +    061 swap plltab + c@ hostcmd2
   ;
   
   : GD.setcustom ( xt -- ) \ Set the custom initialization word
  
positive.code: ;
  
  : GD.wh ( -- w h ) \ size of the current screen
      unstream
      GD.REG_HSIZE GD.@ GD.REG_VSIZE GD.@
      GD.REG_ROTATE GD.@ 2 and if     \ deal with landscape/portrait
          swap
  
negative.code: 30207c 102478 gdconst GD.REG_TAG
  302074 102470 gdconst GD.REG_TAG_X
  302078 102474 gdconst GD.REG_TAG_Y
  30218c 102574 gdconst GD.REG_TOUCH_DIRECT_XY
  302190 102578 gdconst GD.REG_TOUCH_DIRECT_Z1Z2
  30211c 102508 gdconst GD.REG_TOUCH_RAW_XY
  302120 10250c gdconst GD.REG_TOUCH_RZ
  302118 102504 gdconst GD.REG_TOUCH_RZTHRESH
  302124 102510 gdconst GD.REG_TOUCH_SCREEN_XY
  30212c 102518 gdconst GD.REG_TOUCH_TAG
  302128 102514 gdconst GD.REG_TOUCH_TAG_XY
  302150 10251c gdconst GD.REG_TOUCH_TRANSFORM_A
  