OpenEuphoria

RE: Euphoria and DPMI

• Posted by kennethroger at prodigy.net Mar 27, 2002
• 385 views

--how to I --etc.

Example:

function lfnshortpath(sequence longname)
  sequence reg, spath
  atom lnamelow, spathlow, p
  lnamelow=allocate_low(length(longname)+1)
  poke(lnamelow,longname&0)
  spathlow=allocate_low(128)
  poke(spathlow,0)
  spath=""
  reg=repeat(0,10)
  reg[REG_AX]=#7160
  reg[REG_CX]=#0001
  reg[REG_DS]=floor(lnamelow/16)
  reg[REG_SI]=remainder(lnamelow,16)
  reg[REG_ES]=floor(spathlow/16)
  reg[REG_DI]=remainder(spathlow,16)
  reg=dos_interrupt(#21,reg)
  p=spathlow
  while peek(p) do spath&=peek(p) p+=1 end while
  free_low(lnamelow)
  free_low(spathlow)
  return spath
  end function