;@ ins k k
;@ outs k
opcode CompSig, 0, 0   ; MULTIMODE support a/k?
  k1 zkr 1 ; CHANGE 
  k2 zkr 1 ; CHANGE 
  kres init 0
  
  if (k1 >= k2) then 
  	kres = 1
  	goto run
  endif	
  kres = 0
run:
  zkw kres, 2 ; CHANGE
endop
