/[james]/archive/adfssector/FindDirs
ViewVC logotype

Annotation of /archive/adfssector/FindDirs

Parent Directory Parent Directory | Revision Log Revision Log


Revision 22 - (hide annotations) (download)
Thu Mar 13 12:01:06 2003 UTC (21 years, 7 months ago) by james
File size: 597 byte(s)
Initial import.

1 james 22 s%=-1
2     ONERRORONERROROFF:PRINTs%:PRINTREPORT$+" ("+STR$ERL+")":END
3    
4     DIM B% 10240
5    
6     INPUT "Start sector: "s$
7     s% = EVAL(s$)
8    
9     REPEAT
10    
11     REMIF s%MOD1000 = 0 THEN PRINT s%
12     SYS"ADFS_SectorDiscOp",, 1, 4<<29 OR s%, B%, 512
13     IF B%!1 = &6b63694e THEN PROCfound
14     s% += 1
15    
16     UNTIL0
17    
18     END
19    
20    
21     DEF PROCfound
22     PRINT "Directory found in sector "+STR$s%
23     PRINT "Contents start: (name, load, exec, size)"
24     d% = 5
25     WHILE B%?d% > 0 AND d% < 480
26     PRINT FNstr(B% + d%), ~(B%!(d% + 10)), ~(B%!(d% + 14)), (B%!(d% + 18))
27     d% += 26
28     ENDWHILE
29     ENDPROC
30    
31     DEF FNstr(a%)
32     a$=""
33     WHILE ?a% > 31: a$+=CHR$(?a%): a%+=1: ENDWHILE
34     =LEFT$(a$,10)
35    

  ViewVC Help
Powered by ViewVC 1.1.26