For directory device drivers this is quite easy:
Code: Select all
10140 REMark create string array with list of directory device drivers:
10150 __sys__dirdevs%=0:DIM __sys__dirdev$(19,10)
10160 dd=PEEK_L(VER$(-2)+72):REMark get pointer to list of directory device drivers
10170 FOR i%=0TO 32767:REMark "endless" loop
10180 IF NOT dd:__sys__dirdevs%=i%:__sys__dirdev$(i%)='':EXIT i%
10190 l=PEEK_W(dd+36):__sys__dirdev$(i%)=FILL$('xy',l)
10200 FOR c=1TO l:__sys__dirdev$(i%,c)=CHR$(PEEK(dd+37+c))
10210 PRINT __sys__dirdev$(i%)
10220 dd=PEEK_L(dd)
10230 END FOR i%