home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Programming / YAEC / testsrc / Mem.e < prev    next >
Encoding:
Text File  |  2001-02-23  |  766 b   |  31 lines
  1. /* A very small util to dump memory in a shell.
  2.    usage: MEM <adr>                    
  3.  
  4.   simply dumps memory in a shell, usefull for hardcore-kamikaze
  5.   debugging and the like.
  6.  
  7.   try:
  8.    1> mem $f80000        ; only if you have a non-moved kick2.0 or better
  9.  
  10. */
  11.  
  12. PROC main()
  13.   DEF adr,a,b,radr:PTR TO LONG,c,r
  14.   adr:=Val(arg)
  15.   r := D1 -> yaec -> second returnval trick for now
  16.   IF r=0
  17.     WriteF('Usage: MEM <adr>\n')
  18.   ELSE
  19.     adr:=adr AND 0-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.