home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / seedump.zip / SAMPLES / R6.BAG < prev    next >
Text File  |  1995-08-18  |  695b  |  39 lines
  1. /* */
  2. p1 = "aaa10"
  3. struct "dum"
  4.  
  5. if ( struct.1 = "STRUCT.1" )
  6. then do
  7.   say "No structure found with the name dum"
  8.   exit 1;
  9. end
  10.  
  11. say struct.0
  12. say struct.1
  13. parse value struct.1 with a b slen .
  14.  
  15. globvar p1
  16. addr = d2x(rc)
  17. slen=  d2x(slen)
  18. say p1 " at " addr " length "slen
  19.  
  20. Fetchaddr addr slen
  21. data = rc
  22. do until addr=0
  23.    Fetchaddr addr slen
  24.    data=rc
  25. do i=0 to struct.0
  26.   parse value struct.i with a b c .
  27.   if a == "next" then do
  28.      addr = intel(data,b,c)
  29. /*    say '>>'a 'at ' b ' 'c2x(addr)*/
  30.   end
  31.   if a == "nn" then do
  32.      if substr(data,b+1,7) = "nntext5" then
  33.       say '>>'a 'at ' b ' 'substr(data,b+1,c)
  34.   end
  35. end
  36. addr=c2x(addr)
  37. end
  38. return 0
  39.