home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / oplexamp / DEVTYPE.OPL < prev    next >
Text File  |  1993-01-14  |  684b  |  41 lines
  1. #define FilManager   $0087
  2. #define FilStatusDevice $0a00
  3.  
  4. PROC DevType$:(s$)
  5.  
  6.     LOCAL ax%,bx%,cx%,dx%,si%,di%
  7.     LOCAL flags%,err%,ret$(30)
  8.  
  9.     LOCAL slot$(8),pslot%
  10.     LOCAL buff%(32),pbuff%
  11.  
  12.  
  13.     slot$  = "LOC::" + s$ + ":" + CHR$(0)
  14.     pslot% = ADDR(slot$) + 1
  15.     pbuff% = ADDR(buff%())
  16.  
  17.     ax% = FilStatusDevice
  18.     bx% = pslot%
  19.     cx% = pbuff%
  20.  
  21.     flags% = OS(FilManager,ADDR(ax%))
  22.  
  23.     IF flags% AND 1                
  24.         err% = ax% OR $ff00            
  25.         ret$ = ERR$(err%)        
  26.     ELSE
  27.         IF (buff%(2) AND $07) = 3
  28.             ret$ = "Flash"
  29.         ELSEIF (buff%(2) AND $07) = 4
  30.             ret$ = "RAM"
  31.         ELSEIF (buff%(2) AND $07) = 5
  32.             ret$ = "ROM"
  33.         ELSE
  34.             ret$ = "Unknown"
  35.         ENDIF
  36.     ENDIF
  37.  
  38.     RETURN ret$
  39.     
  40. ENDP
  41.