home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / sys / mac / programm / 14546 < prev    next >
Encoding:
Internet Message Format  |  1992-08-26  |  2.7 KB
  1. Path: sparky!uunet!usc!sdd.hp.com!uakari.primate.wisc.edu!ames!data.nas.nasa.gov!taligent!apple!NewsWatcher!user
  2. From: REEKES@applelink.apple.com (Jim Reekes)
  3. Newsgroups: comp.sys.mac.programmer
  4. Subject: Re: MacsBug symbols from assembler code?
  5. Message-ID: <REEKES-240892122200@90.10.20.67>
  6. Date: 24 Aug 92 19:22:58 GMT
  7. References: <1992Aug20.155733.6869@daimi.aau.dk> <1992Aug21.030941.6506@bilby.cs.uwa.edu.au>
  8. Sender: usenet@Apple.COM
  9. Followup-To: comp.sys.mac.programmer
  10. Organization: Apple Computer, Inc.
  11. Lines: 87
  12.  
  13. In article <1992Aug21.030941.6506@bilby.cs.uwa.edu.au>, quinn@cs.uwa.edu.au
  14. (Quinn) wrote:
  15. > 
  16. > In article <1992Aug20.155733.6869@daimi.aau.dk> Peter Andersen,
  17. > datpete@daimi.aau.dk writes:
  18. > >Am I missing something?
  19. > 
  20. > Hmm.  I had great fun getting MacsBug symbols working consistently
  21. > in my latest Asm project.  Try using the following macro (with
  22. > apologies to those people whose systems don't expand tabs
  23. > properly)...
  24. > 
  25. > ----------------------------------------------
  26. >     macro
  27. >     MacsBug    &Name,&rts:int
  28. >     lclc    &oldstr
  29. >     gbla    &debug
  30. > 
  31. >     if &debug then
  32. >     
  33. >     if &rts then 
  34. >     rts                ; force rts in specific cases
  35. >     endif
  36. >     
  37. >     dc.b    &len(&name)+$80        ; length of string + $80 marks symbol
  38. > &oldstr    setc    &setting('string')
  39. >     string    AsIs
  40. >     dc.b    '&upcase(&Name)'    ; define the string AsIs
  41. >     string    &oldstr
  42. >     align                ; pad to word boundary
  43. >     dc.w    0            ; no literals
  44. >     
  45. >     endif
  46. >     
  47. >     endm
  48. > ----------------------------------------------
  49.  
  50. Here's the macro I currently use.
  51.  
  52.  
  53.  
  54.    macro
  55.     symbol      &routineName=&SysMod,&size=0
  56.     lclc        &name, &oldString
  57.  
  58.     IF &TYPE('DEBUG') <> 'UNDEFINED' THEN
  59.         rts
  60.         if &routineName[1:1] = '''' then
  61.             &name: setc &eval(&routineName)
  62.         else
  63.             &name: setc &routineName
  64.         endif
  65.  
  66.         &oldString: setc &setting('string')
  67.         string asis
  68.         if &len(&name) < 32 then
  69.             dc.b &len(&name)+$80,'&name'
  70.         else
  71.             dc.b $80,&len(&name),'&name'
  72.         endif
  73.         string &oldString
  74.         align
  75.         dc.w &size
  76.     endif
  77.  
  78.     endm
  79.  
  80.  
  81. Just becareful where you add this.
  82.  
  83. It needs the RTS because sometimes you write Asm routines without a
  84. Link/Unlink.  The usage should be like this.
  85.  
  86. SomeRoutine   proc
  87.               ...
  88.               ...
  89.               ...
  90.               symbol "SomeRoutine"
  91.               endp
  92.  
  93.  
  94. -----------------------------------------------------------------------
  95. Jim Reekes, Polterzeitgeist  |     Macintosh Toolbox Engineering
  96.                              |          Sound Manager Expert
  97. Apple Computer, Inc.         | RAll opinions expressed are mine, and do
  98. 20525 Mariani Ave. MS: 81-KS |   not necessarily represent those of my
  99. Cupertino, CA 95014          |       employer, Apple Computer Inc.S
  100.