! dummy account prog to fit with jb xgate
!
! date: 07.may.82

%control k'100001'

%include "deimosperm"
%begin

%recordformat mef(%record (mef) %name l, %integerarray a(0:125))
%recordformat pf(%byte ser, reply, a1, a2, %record (mef) %name mes, %c
  %byte c1, c2)
%record (pf) p

%constinteger buffer manager = 17
%constinteger release buffer = 1

      %routine free buffer(%record(mef)%name mes)
         p_ser=buffer manager;   p_reply=id
         p_a1=release buffer;   p_mes==mes
         pon(p)
      %end

linkin(27)
%cycle
      p_ser = 0; poff(p)
      %unless p_mes == null %then free buffer(p_mes)
%repeat
%endofprogram