Contents of /archive/adfssector/FindDirs

s%=-1
ONERRORONERROROFF:PRINTs%:PRINTREPORT$+" ("+STR$ERL+")":END

DIM B% 10240

INPUT "Start sector: "s$
s% = EVAL(s$)

REPEAT

REMIF s%MOD1000 = 0 THEN PRINT s%
SYS"ADFS_SectorDiscOp",, 1, 4<<29 OR s%, B%, 512
IF B%!1 = &6b63694e THEN PROCfound
s% += 1

UNTIL0

END


DEF PROCfound
PRINT "Directory found in sector "+STR$s%
PRINT "Contents start: (name, load, exec, size)"
d% = 5
 WHILE B%?d% > 0 AND d% < 480
  PRINT FNstr(B% + d%), ~(B%!(d% + 10)), ~(B%!(d% + 14)), (B%!(d% + 18))
  d% += 26
 ENDWHILE
ENDPROC

DEF FNstr(a%)
a$=""
WHILE ?a% > 31: a$+=CHR$(?a%): a%+=1: ENDWHILE
=LEFT$(a$,10)

1	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