[=TrakSess]
[Reset]
"Con10.txt" ofconn read
"[" """" replall "]" """ [(]" replall execstr
[Any?]
{
 1 [@Index] !prior
 empty
 [Count]
 countdown
 {
%%%"conn1 " count - & &" " log)(
  dup !stkidx
  [@Index]
%
% stack: build-str base
% seek the next 10 80-second bit intervals
%
  dup _prior sub exch !prior &" , " &_prior
%%%"conn2 " count - & &" " log)(
%
% stack: build-str line-str
%
  _prior 1 [@Index] from 3600000 gt
  {
%
% can mark data bits
%
   0 !counter
   0 !rdata

   _prior 15000 add
%%%"conn3 " count - & &" " log)(
%
% stack: build-str line-str this+30
%
dup !Xper.Msec
">>>>>>>>> " &2 ^3) exch
"1111111111111111111111111111111111111111111111111111111111111111"
60 left
!Bitex

   _stkidx - !newidx
   {
    _newidx [@Index]
%%%"conn4 " count - & &" " log)(

   dup
   _Xper.Msec sub 30000 div normint
%%%"bx " log)(
   !Bitval
%
% strike the bit at the minute position
%
   _Bitex _Bitval + + minus left
   ^"0"
   _Bitex _Bitval + left ^
   !Bitex

   _Sim.Msec
%%% "xper " log)(
   _Transition sub 60000.0 div normint
%%% "detect " log)(
   !Bitval

%
% stack: build-str line-str this+30 higher
%
    exch
    60000 add
%
% stack: build-str line-str higher thistep
%

    2 copy lt
    {
%
% later conn before this bit step
%
     -:newidx
     0
    }
    {
     1
    } ifelse
%
% stack: build-str line-str higher thistep bitdata
%
    +counter 48 lt
    {
%%%"conn5 " count - & &" " log)(
     _rdata 1 shift or !rdata
     pop2nd
%
% stack: build-str line-str thistep
%
     false
    }
    {
%%%"conn6 " count - & &" " log)(
     pop2
%
% stack: build-str line-str higher
%
     true
    } ifelse
    ?
%%%"conn7 " count - & &" " log)(
   } loop
%
% stack: build-str line-str new-base
%
   pop

  } if
%
% stack: build-str line-str
%
  &" , "

  _rdata 2 base 48 prezero ^"&B"
 &
  &;
 &_Bitex
&;
  &
%%%"conn8 " count - & &" " log)(
 } for
} if


"connmap.txt" ofconn write