home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / turbodex.lha / examplesources / Mem.dex < prev    next >
Encoding:
Text File  |  1992-10-11  |  735 b   |  36 lines
  1. /* A very small util to dump memory in a shell.
  2.    usage: MEM <adr>                                   */
  3.  
  4. PROC main(ARG)
  5.   DEF adr:REGLONG, a:REGLONG, b:REGLONG, radr:REGLONG, c:REGLONG, t:REGLONG
  6.   adr:=Val(argadr)
  7.   IF adr=-1
  8.     WRITE 'Illegal address.\nUsage: MEM <adr>\n'
  9.   ELSE
  10.     t:=adr/2*2
  11.     IF t?adr
  12.       DEC 1,adr
  13.     ENDIF
  14.     FOR a,0,7
  15.       radr:=a*16+adr
  16.       WRITE '$\r\z\m8\w8\h   ',radr
  17.       FOR b,0,3
  18.         t:=MLONG(b*4+radr)
  19.         WRITE '\r\z\w8\m8\h ',t
  20.       ENDFOR
  21.       WRITE '  "'
  22.       FOR b,0,15
  23.         c:=MCHAR(b+radr)
  24.         IF c<32
  25.           c:=46
  26.         ENDIF
  27.         IF c>126
  28.           c:=46
  29.         ENDIF
  30.         VOID Out(stdout,c)
  31.       ENDFOR
  32.       WRITE '"\n'
  33.     ENDFOR
  34.   ENDIF
  35. ENDPROC
  36.