home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / FORTH / SOURCE / DUMP.WRD < prev    next >
Encoding:
Text File  |  1992-12-01  |  1.6 KB  |  77 lines  |  [04] ASCII Text (0x0000)
  1. \ NOTE: ALL LINES SHOULD BE LESS THAN 64 CHARACTERS ------------
  2.  
  3. ( DUMP COMMANDS )
  4.  
  5. HEX
  6.  
  7. : ?ASCII  ( CHAR -- PRINTABLE-CHAR)
  8. \ ==============================================================
  9. \ USED BY DUMP ROUTINE                      
  10. \ ==============================================================
  11.    DUP   
  12.    21 < IF
  13.        DROP 2E     \ CONVERT NON-PRINTABLE TO PERIOD
  14.    ELSE
  15.        DUP 
  16.        7E > IF
  17.           DROP 2E  \ SAME FOR > $7E
  18.        THEN
  19.    THEN
  20. ;
  21.  
  22. : DUMP   ( START-ADRS COUNT -- )
  23. \ ==============================================================
  24. \ MEMORY DUMP. FROM "FORTH TOOLS AND APPLICATIONS" 
  25. \ ==============================================================
  26.    HEX CR 
  27.    0 DO 
  28.         DUP  0  4  D.R          \ PRINT ADDRESS
  29.         10 0 DO 
  30.              DUP I + C@ 3 .R    \ PRINT 16 BYTES 
  31.         LOOP
  32.         2 SPACES
  33.         10 0 DO
  34.              DUP I + C@ ?ASCII EMIT  \ PRINT ASCII 
  35.         LOOP
  36.         10 + CR             \ BUMP ADDRESS BY 16 
  37.    10 +LOOP
  38.    DROP 
  39. ;
  40.  
  41.  
  42. : S.  ( -- )
  43. \ ==============================================================
  44. \ DISPLAY CONTENTS OF STACK: FROM FORTH TOOLS AND APPLICATIONS
  45. \ ============================================================== 
  46.    ." STK= "
  47.    DEPTH ?DUP IF
  48.       1 SWAP DO 
  49.              I PICK . 
  50.       -1 +LOOP 
  51.    ELSE 
  52.       ." EMPTY"
  53.    THEN
  54. ;
  55.  
  56.  
  57. \ : MIDILINE ( ADDR -- )
  58. \   HEX CR DUP 4 .R ." : "
  59. \   DUP @ 4 .R 
  60. \   DUP 2+ C@ 4 .R 
  61. \   3 + C@ 4 .R
  62. \ ;
  63.  
  64. \ : MIDIDUMP ( ADDR -- )
  65. \    DUP MIDILINE
  66. \    BEGIN
  67. \        4 + DUP MIDILINE 
  68. \    ?TERMINAL UNTIL 
  69. \    DROP
  70. \ ;
  71.  
  72. \ : MIDIWORD ( <WORD> -- )
  73. \   FIND 4 + MIDIDUMP
  74. \ ;
  75.  
  76. DEC
  77.