gistfile1.nim

type
  tPIm = proc (ob: tNavmBackend,v: tNavmSCell,f: bool)
  tP = proc (ob: tNavmBackend,f: bool)

proc compCond (ob:tNavmFrontend,v: tNavmSCell,p: tPIm,q: tP,r: tNavmSCell,f: bool) =
  val n: tNavmSCell = v shr r
  if f != false:
  if n < 1:
     p (ob,v,ob.ob.fDisAsm)
     ob.oCodeMem = ob.oCodeMem + 1
  else:
     q (ob,ob.fDisAsm)
     ob.oCodeMem = ob.oCodeMem + 1