anchor.diff:  
   \ : z $3A6000 d s1 ;
   : z init-all s2 ;
  +: zy init-all y s2 ;
   
   : ?
     cr ." v = show chip version           b = break next "
  
positive.code: 
  : u  $FF >mb  $E000 a ;
  
  : s1  \ show output from USART2
    uart-init 19200 uart-baud
    c
  
negative.code:   loop cr b r ;
  
  : s2  \ switch to permanent USART2 pass-through
    cr uart-irq-init 19200 uart-baud
    [: uart-irq-handler uart-task wake ;] irq-usart2 !
    multitask uart-reader&
    c
    begin
      \ break out of terminal loop when ctrl-x is seen
      key? if key ( dup 24 = if drop exit then ) uart-emit then
    again ;
  
  : x  RST ioc! 1 ms RST ios! ;
  