home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPC355_5.ZIP / TCOM96.ZIP / TCOM / DEBUGGER / DBGBASE.SEQ < prev    next >
Encoding:
Text File  |  1991-04-10  |  1.7 KB  |  41 lines
  1. \\ DBGBASE.SEQ       Part of a Forth code debugger              by Mike Mayo
  2. ─────────────────────────────────────────────────────────────────────────────
  3. $Header:   F:/tcom/debugger/logs/dbgbase.sev   1.0   23 Apr 1991 11:00:24   MikeM  $
  4. ─────────────────────────────────────────────────────────────────────────────
  5. ─────────────────────────────────────────────────────────────────────────────
  6. $Log:   F:/tcom/debugger/logs/dbgbase.sev  $
  7.  \ 
  8.  \    Rev 1.0   23 Apr 1991 11:00:24   MikeM
  9.  \ Initial revision.
  10. ─────────────────────────────────────────────────────────────────────────────
  11. {
  12. 10 constant dbtop       \ Debugger top line on screen
  13. 60 value rboxcol        \ Column for left side of register box
  14. dbtop value browselines \ Number of lines, at top of screen, for the browser
  15.  
  16. 0 value showingdebug
  17. 0 value next-break
  18. 0 value nextinline
  19.  
  20. 2variable rplace        \ Place to start showing registers
  21. 2variable dplace        \ Place to start showing disassembly
  22.  
  23. : rcr ( -- ) \ cr for the register box
  24.         at? nip 1+  rboxcol 1+ swap at ;
  25. : dcr ( -- ) \ cr for the disassembly box
  26.         at? nip 1+  1 swap at ;
  27.  
  28. }
  29. ─────────────────────────────────────────────────────────────────────────────
  30.   words to allow setting the debugging registers
  31. ─────────────────────────────────────────────────────────────────────────────
  32. {
  33. : reg!          ( a1 | <name> -- )      \ defining word to make register
  34.                                         \ assignment words
  35.                 create , does> @ ! ;
  36. : reg@          ( a1 | <name> -- )      \ defining word to make register
  37.                                         \ fetch words
  38.                 create , does> @ @ ;
  39.  
  40.  
  41.