anchor.diff:  begin
     // RX
     PORTB.DIRCLR := PIN1bm;
  -
     // TX
     PORTB.OUTSET := Pin0bm;
     PORTB.DIRSET := Pin0bm;
  
positive.code:   else
      d := ord('A') + (n - 10);
    uart_transmit(d);
  end;
  
  procedure uart_transmit(const s: shortstring);
  
negative.code:   result := USART3.RXDATAL;
  end;
  
  function uart_peek(c: byte): byte;
  begin
    result := (USART3.STATUS and TUSART.RXCIFbm) = TUSART.RXCIFbm;
    c := USART3.RXDATAL;
  end;
  
  {$else}
  procedure uart_init1(const BAUD: dword; const useU2X: boolean = false);
  var
  