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:      0 swap 0           ( caddr 0 u 0 )
       ?do
                          ( caddr u32 )
          over i + c@     ( caddr u32 byte )
          i 3 and dup >r
          3 lshift lshift or
          r> 3 = if
              >gd
              0
  