;@ map d DLYsmp
;@ map d BUT002

;@ ins k k
;@ outs k
opcode ClkDiv, 0, ii
  iDivider, iType xin
  kyClk zkr 1 ; CHANGE 
  kyRes zkr 2 ; CHANGE 
  kCounter init 0

  if (kyRes == 1) then
  	kCounter = 0
  	kOut = 0
  endif

  
  if (kyClk != 0) then
  	kCounter+= 1
  endif

  kDiv = kCounter%iDivider
  
  if (kDiv == 1) then
  	kOut = 1
  	if (iType == 0) goto run
  	kOut = 0
  endif

  run:
  zkw kOut, 1 ; CHANGE
endop
