git.gag.com Git - debian/pforth/blob - checkit.fth

   1 \ compare dictionaries\r
   2 \r
   3 anew comp\r
   4 hex\r
   5 \r
   6 : checksum  { start end -- sum }\r
   7         0\r
   8         end start\r
   9         DO\r
  10                 i @ +\r
  11         4 +LOOP\r
  12 ;\r
  13 \r
  14 : findword { target start end -- }\r
  15         end start\r
  16         DO\r
  17                 i @  target =\r
  18                 IF\r
  19                         ." found at " i u. cr\r
  20                         i 16 dump\r
  21                 THEN\r
  22         4 +LOOP\r
  23 ;\r
  24 \r
  25 echo on\r
  26 hex\r
  27 $ 01500fc4 codebase here findword\r
  28 codebase here cr .s checksum u. cr\r
  29 namebase context @ cr .s checksum u. cr\r
  30 decimal\r
  31 \r
  32 echo off\r