anchor.diff:  : getspace  ( -- u )    \ u is the space in the command FIFO
       4092
       wp @ GD.REG_CMD_READ GD.@
  -    dup 3 and 0<> 124 and throw
  +    dup 3 and 0<> 257 and throw
       -
       mod4K -
   ;
  
positive.code:     stream
  ;
  
  \ FT800 memory access
  : GD.c!     unstream GD.c! stream ;
  : GD.c@     unstream GD.c@ stream ;
  
negative.code:     000 hostcmd         \ ACTIVE
  
      custom @ execute
  ;
  
  : common-init
  