opcode DlySingleB, 0, iik
  iTime, imaxdel, kMod xin
  ain zar 2 ; CHANGE 
  adel zar 1 ; CHANGE 
  aout vdelay ain, iTime+adel*kMod, imaxdel
  zaw aout, 2  ; CHANGE 
endop
