[Oberon] FPGA - nRF24L01 `RPI Net' server

[Tomas Kral]

Hi,

I have coded a small procedure dumping lost/restrans counts.

PROCEDURE Observe*; 
  VAR dat: INTEGER;
BEGIN
  ReadReg1(08H, dat); (*R_OBSERVE_TX*)
  Texts.WriteInt(W, dat DIV 16, 4); (*PLOS_CNT lost*)
  Texts.WriteInt(W, dat MOD 16, 4); (*ARC_CNT retransmitted*)
  Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf);
  ReadReg1(05H, dat); SCC.WriteReg1(5, dat) (*RF_CH, reset OBSERVE lost
  count*)
END Observe;

I indeed loose even single payload packets.
 time set
   0   1
 time set
   9   1
 time set
   2   3
 time set
   5   1
 time set
  15   3
 time set
   8   3
 time set
  15   3

Now I wish to do some low level programming.

-- 
Tomas Kral <thomas.kral at email.cz>