%
% stack: comm-resp
%
_Partner.Action
<
%
% upload to uart1 response vector
%
|8
 _Msys.Outing
 {
  _Mach.OutProg -250 left
  length
"lenaft" log)(
  dup _Msys.Counter add !Msys.Counter
"msyc" log)(
  positive
  exch !Mach.OutProg
  dup !Msys.Outing
"mout" log)(
  {
   *machseng(
  }
  {
   &" done"
  } ifelse
 }
 {
 } ifelse

> pop
%
% stack: adj-comm-resp
%