home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Utils / Mem.e < prev    next >
Encoding:
Text File  |  1994-10-02  |  754 b   |  31 lines
  1. /* Un très petit utilitaire pour récupérer la mémoire dans un shell.
  2.    usage: MEM <adr>
  3.  
  4.   dumpe la mémore dans un shell siplement, util pour les debbugages
  5.   kamikases et du style.
  6.  
  7.   Essayez:
  8.    1> mem $f80000        ; seulement si vous avez un kick 2.0 à sa place
  9.                            ou mieux
  10.  
  11. */
  12.  
  13. PROC main()
  14.   DEF adr,a,b,radr:PTR TO LONG,c,r
  15.   adr,r:=Val(arg)
  16.   IF r=0
  17.     WriteF('Usage: MEM <adr>\n')
  18.   ELSE
  19.     adr:=adr AND -2     /* no odd adr */
  20.     FOR a:=0 TO 7
  21.       radr:=a*16+adr
  22.       WriteF('$\r\z\h[8]:   ',radr)
  23.       FOR b:=0 TO 3 DO WriteF('\r\z\h[8] ',radr[b])
  24.       WriteF('  "')
  25.       c:=radr
  26.       FOR b:=0 TO 15 DO Out(stdout,IF (c[b]<32) OR (c[b]>126) THEN "." ELSE c[b])
  27.       WriteF('"\n')
  28.     ENDFOR
  29.   ENDIF
  30. ENDPROC
  31.