Annotation 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	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