[Oberon] PO2013 - Real time measurement

[Tomas Kral]

On Thu, 11 Apr 2019 11:39:00 +0100
Paul Reed <paulreed at paddedcell.com> wrote:

> (My.Picl)
> MODULE My;
> 
> BEGIN
>    !~S.5; !~S.6; A := 0; B := 0;
>    !S.5; A := 0; B := 0; !~S.5
> END My.

Very code efficient, quite shorter to pic asm!
S -> status
A -> port A
B -> port B

Meanwhile I tried `picprog' I have built `JDM' programmer for. I know
I was warned.

Burning pic with this hex file I got.., correct pic id is autodetected.

Using >1 µs delays. --rdtsc may work for faster timings.
/dev/ttyS1: id 0x04c5: detected pic16f818 version 0x05
Device pic16f818, program memory: 1024, data memory: 128.
Erased and removed code protection.
Burning program memory, 39 locations,
burning data memory, 0 locations,
burning id words, 0 locations,
burning fuses, 1 location,
done.

:020000040000FA
:100000000B20A001200886001F20A00A1030200627
:10001000031D0228012885018601831685018601BA
:1000200083120800FA300000FF3E031D1428080068
:10003000A100F83014201C28A10B19280800FA3060
:0E0040001820FA301820FA301820FA3018284C
:02400E00723FFF
:00000001FF

Reading the same pic I got..

:08000000200B01A008200086201F0AA0301006202F
:080008001D032802280101850186168301850186CA
:080010001283000830FA00003EFF1D032814000880
:0800180000A130F82014281C0BA12819000830FA80
:07002000201830FA201830FA201830FA281873
:012007003F7227
:00000001FF

I can almost see some nibbles are in there, but in wrong places. While
address locations differ. `picprog' does not complain on verify
pass, though. 

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