home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / USRTRACE.M < prev    next >
Encoding:
Text File  |  1990-11-29  |  1.7 KB  |  3 lines
  1. ⓪ MODULE UsrTrace;
  2. ⓪ (*$L-*)
  3. ⓪ 
  4. ⓪ FROM ModCtrl IMPORT InstallModule, ReleaseModule, FirstModuleStart;
  5. ⓪ 
  6. ⓪ FROM MOSGlobals IMPORT MemArea;
  7. ⓪ 
  8. ⓪ FROM SYSTEM IMPORT ASSEMBLER;
  9. ⓪ 
  10. ⓪ VAR wsp: MemArea;
  11. ⓪ 
  12. ⓪ 
  13. ⓪ CONST   RegD0 = 04; RegD1 = 08; RegD2 = 12; RegD3 = 16; RegD4 = 20; RegD5 = 24;
  14. ⓪(RegD6 = 28; RegD7 = 32; RegA0 = 36; RegA1 = 40; RegA2 = 44; RegA3 = 48;
  15. ⓪(RegA4 = 52; RegA5 = 56; RegA6 = 60; RegA7 = 64; RegSR = 02; RegPC = 68;
  16. ⓪(RegUSP = 72; RegSSP = 76; RegBEV = 80; RegAEV = 84;
  17. ⓪ 
  18. ⓪ 
  19. ⓪ VAR
  20. ⓪"cnt: CARDINAL;
  21. ⓪ 
  22. ⓪ PROCEDURE trc;
  23. ⓪"BEGIN
  24. ⓪$ASSEMBLER
  25. ⓪(; In A0 erhält sie einen Zeiger auf die CPU-Register.
  26. ⓪(; In D0.B muß die Routine einen Wert ungleich Null liefern, wenn
  27. ⓪(; der Trace-Modus unterbrochen werden soll.
  28. ⓪(TST.B   RegA5(A0)
  29. ⓪(SNE     D0
  30. ⓪$END
  31. ⓪"END trc;
  32. ⓪ 
  33. ⓪ PROCEDURE install;
  34. ⓪"BEGIN
  35. ⓪$ASSEMBLER
  36. ⓪(MOVE.L  #trc,$3F0
  37. ⓪$END
  38. ⓪"END install;
  39. ⓪ 
  40. ⓪ PROCEDURE dummy; END dummy;
  41. ⓪ 
  42. ⓪ BEGIN
  43. ⓪"ASSEMBLER
  44. ⓪(PEA     install
  45. ⓪(MOVE    #38,-(A7)
  46. ⓪(TRAP    #14
  47. ⓪(ADDQ.L  #6,A7
  48. ⓪"END;
  49. ⓪"InstallModule (dummy,wsp)  (* Dieses Modul resident machen *)
  50. ⓪ END UsrTrace.
  51. ⓪ ə
  52. (* $FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$000003F0$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15Ç$000001ECT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$000002F5$000001EC$FFEBEA10$FFEBEA10$FFEBEA10$FFEBEA10$FFEBEA10$FFEBEA10$FFEBEA10$000003F5$0000037F$000003F6$000003C7$FFEBEA10$00000206$00000349êÇé*)
  53.