;@ outs k k
opcode CtrlRcv, 0, kkkk
   kCtrl, kChnl, krcv, kval xin

   kdata init 0
   kVal init 0

  if (gkstatus==176 && gkchan==kChnl && gkdata1==kCtrl) then
    kdata = gkdata2
    kTrig changed kdata
    if kTrig != 1 goto Out
  	   zkw kdata, kval
  	   zkw 1, krcv
  endif
  Out:
  zkw 0, krcv
endop
