;@ map d LVLlev

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