anchor.diff:      000 hostcmd         \ ACTIVE
   
       custom @ execute
  -
  -    unstream
  -
  -    083 GD.REG_GPIO_DIR     GD.c!
  -    080 GD.REG_GPIO         GD.c!
  -    stream
   ;
   
   : common-init
  
positive.code:     stream
  ;
  
  \ FT800 memory access
  : GD.c!     unstream GD.c! stream ;
  : GD.c@     unstream GD.c@ stream ;
  
negative.code: 
  : GD.calibrate  \ run the FT800's interactive calibration procedure
      GD.Clear
      unstream
      GD.REG_HSIZE GD.@ 2/
      GD.REG_VSIZE GD.@ 3 10 */
      30
      stream
      GD.OPT_CENTERX s" please tap on the dot" GD.cmd_text 
      GD.cmd_calibrate
      GD.finish
      GD.cmd_dlstart
  