home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
seedump.zip
/
SAMPLES
/
R7.BAG
< prev
next >
Wrap
Text File
|
1995-08-18
|
990b
|
50 lines
/* */
trace o
p1 = "aaa10"
struct "dum"
if ( struct.1 = "STRUCT.1" )
then do
say "No structure found with the name dum"
exit 1;
end
say struct.1
parse value struct.1 with a b slen .
globvar p1
addr = d2x(rc)
slen= d2x(slen)
say p1 " at " addr " length "slen
Fetchaddr addr slen
data = rc
do until addr=0
Fetchaddr addr slen
data=rc
do i=0 to struct.0
parse value struct.i with a b c .
if a == "next" then do
addr = intel(data,b,c)
end
if a == "nn" then do
if substr(data,b+1,7) = "nntext1" then
do
say '>>'a 'at ' b ' name is 'substr(data,b+1,c)
sform( addr, data )
return 0
end
end
end
addr=c2x(addr)
end
return 0
sform: procedure expose struct.
say c2x(arg(1))
do i=2 to struct.0
parse value struct.i with a b c .
if substr(a,1,4) <> 'rest' then
say a " : " c2x(substr(arg(2),b+1,c ))
end
return 0