home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / oplexamp / DEVLIST.OPL < prev    next >
Text File  |  1992-08-26  |  567b  |  32 lines
  1. PROC devlist:
  2.     local nh%,dh%
  3.     local dev$(128)
  4.     local ret%
  5.     ioopen(nh%,"FIL:",$60)
  6.     while 1
  7.         ret%=iow(nh%,1,#addr(dev$)+1,#0)
  8.         if ret% :break :endif
  9.         patchlen:(addr(dev$))
  10.         print "Filing system:",dev$
  11.         get
  12.         ret%=ioopen(dh%,dev$,$50)
  13.         if ret%
  14.             print "  No devices supported"
  15.             continue
  16.         endif
  17.         while 1
  18.             ret%=iow(dh%,1,#addr(dev$)+1,#0)
  19.             if ret% :break :endif
  20.             patchlen:(addr(dev$))
  21.             print "  Device:",dev$
  22.         endwh
  23.         ioclose(dh%)
  24.     endwh
  25.     ioclose(nh%)
  26.     get
  27. ENDP
  28.  
  29. PROC patchlen:(a%)
  30.     pokeb a%,call($b9,0,0,0,0,a%+1)
  31. ENDP
  32.