Multi value debugging macro.

[hutch--]

I am doing a job at the moment that needs to show multiple values at any given point of the procedure so I put this macro together. It suits my purpose at the moment to show signed values but it could be twiddled easily enough to do unsigned.

Code Select Expand


; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
    include \masm32\include\masm32rt.inc
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««

    mbDebug MACRO txt_title,args:VARARG
      LOCAL buff,bptr,slen,rslt
      pushad
      pushfd
      .data?
        buff db 8192 dup (?)
      .data
        bptr dd buff
      .code
        mov eax, OFFSET buff
        mov DWORD PTR [eax], 0
        for arg, <args>
          quot SUBSTR <arg>,1,1
            IFIDN quot,<">
              mov bptr, cat$(bptr,arg)
            ELSE
              mov bptr, cat$(bptr,sstr$(arg),"    ")
            ENDIF
        ENDM
        fn MessageBox,0,rslt,txt_title,MB_OK
      popfd
      popad
    ENDM

    .code

start:

    call main
    exit

; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««

main proc

    LOCAL var1  :DWORD
    LOCAL var2  :DWORD
    LOCAL var3  :DWORD

    mov var1, 111
    mov var2, 222
    mov var3, 333

    mbDebug "Debug Test","var1 = ",var1,"var2 = ",var2," var3 = ",var3

    ret

main endp

; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««

end start


[jj2007]

Nice, but the fn MessageBox throws an error on my installation (Masm32 v10 of 26.5.2008).
This one works fine:

              mov bptr, cat$(bptr,sstr$(arg),chr$(13,10))  ; CrLf's look better ;-)
            ENDIF
        ENDM
        invoke MessageBox,0,addr buff, reparg(txt_title),MB_OK
        ; fn MessageBox,0,rslt, txt_title,MB_OK

Errors:

Code Select Expand

tmp_file.asm(47) : error A2006: undefined symbol : ??001C
fn(5): Macro Called From
  mbDebug(20): Macro Called From
   tmp_file.asm(47): Main Line Code
tmp_file.asm(47) : error A2114: INVOKE argument type mismatch : argument : 2
fn(5): Macro Called From
  mbDebug(20): Macro Called From
   tmp_file.asm(47): Main Line Code

[hutch--]

jj,

Have you changed anything, the macro should be able to pass a quoted text and the cat$ macro should be able to put it into the list.

[herge]

 Hi jj:

I get similiar errors.

Code Select Expand


C:\masm32\bin>/masm32/bin/ML.exe /c /coff /Zi /Zd /nologo dbgmac.asm
Assembling: dbgmac.asm
dbgmac.asm(49) : error A2006: undefined symbol : ??001C
fn(5): Macro Called From
  mbDebug(19): Macro Called From
   dbgmac.asm(49): Main Line Code
dbgmac.asm(49) : error A2114: INVOKE argument type mismatch : argument : 2
fn(5): Macro Called From
  mbDebug(19): Macro Called From
   dbgmac.asm(49): Main Line Code


This is a very recent install.

Regards herge.

[hutch--]

I may have posted the wrong one.

Try this.

Code Select Expand


; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
    include \masm32\include\masm32rt.inc
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««

    mbDebug MACRO txt_title,args:VARARG
      LOCAL buff,bptr
      pushad
      pushfd
      .data?
        buff db 8192 dup (?)
      .data
        bptr dd buff
      .code
        mov eax, OFFSET buff
        mov DWORD PTR [eax], 0
        for arg, <args>
          quot SUBSTR <arg>,1,1
            IFIDN quot,<">
              mov bptr, cat$(bptr,arg," ")
            ELSE
              mov bptr, cat$(bptr,sstr$(arg),"     ")
            ENDIF
        ENDM
        fn MessageBox,0,bptr,txt_title,MB_OK
      popfd
      popad
    ENDM

    .code

start:

    call main
    exit

; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««

main proc

    LOCAL var1  :DWORD
    LOCAL var2  :DWORD
    LOCAL var3  :DWORD

    mov var1, 111
    mov var2, 222
    mov var3, 333

    mbDebug "Debug Test","var1 = ",var1,"var2 = ",var2,"var3 = ",var3

    ret

main endp

; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««

end start


[Jimg]

====SNATCH=====

I like that macro, thanks Hutch.   I made a small change to reuse the buffer space for calling from multiple places-

Code Select Expand

    mbDebug MACRO txt_title,args:VARARG
      pushad
      pushfd
      ifndef mbDebugbuff
          .data?
            mbDebugbuff db 8192 dup (?)
            mbDebugbptr dd ?
          .code
      endif
        mov eax, OFFSET mbDebugbuff
        mov mbDebugbptr,eax
        mov DWORD PTR [eax], 0
        for arg, <args>
          quot SUBSTR <arg>,1,1
            IFIDN quot,<">
              mov mbDebugbptr, cat$(mbDebugbptr,arg," ")
            ELSE
              mov mbDebugbptr, cat$(mbDebugbptr,sstr$(arg),"     ")
            ENDIF
        ENDM
        fn MessageBox,0,mbDebugbptr,txt_title,MB_OK
      popfd
      popad
    ENDM


[jj2007]

I may have posted the wrong one.

Try this.

Yep, that one works, but mine with the CrLf's is more beautiful  :toothy

[herge]

Hi hutch-:

It works for me!
Good Work.

Regards herge.

[hutch--]

I like both of the suggested mods, I originally wrote it to have different data for each call but Jims mod makes sense as it only ever displays data one at a time.

JJs change of putting a CRLF instead of the spacing is also something I would like as an option as I can see the use of both display formats. MAybe as an optional trailing parameter IFIDN arg, <CRLF> or similar.

[jj2007]

I couldn't resist the temptation to refine it a little bit...

[attachment deleted by admin]

[hutch--]

jj,

It looks good. I would like to see a version that can do either horizontal display like the original or the vertical list that your version does. It only needs an extra argument, 0 or 1 and it could choose to do either.

Code Select Expand


macroname 0,"Tite text","arg1 = ",arg1 etc ....


[jj2007]

It looks good.

Thanks :green

We are quickly approaching perfection:

   mbDebug "Show me five variables:",\
   MyCounter, My2ndVar, MyThirdVar, MyFilePath$, MyGreets$

Full code attached.

[attachment deleted by admin]

[Jimg]

jj-

Try running two or more mbdebugs in one program.

Also, once you get that fixed, if you set a permanent flag when the user stops a loop, you will not be able to use the macro again.

[jj2007]

Try running two or more mbdebugs in one program.

Delete this line:
LOCAL mbDebugbptr
Thanks for the hint...

Also, once you get that fixed, if you set a permanent flag when the user stops a loop, you will not be able to use the macro again.

That's the whole point: You are stuck in an 1000 iterations loop and want to finish the proggie without killing it. So press Cancel and you are done. I've used that feature many times...

[Jimg]

You may want to kill that particular loop, but further down in the program, you may want to look at different info with a different mbdebug.  Perhaps it should return a flag for the main program to test?
I can certainly see both sides of the issue, to each his own.

also, you can certainly save edx if you want to be able to print it-

push edx
mov edx, OFFSET mbDebugbuff
mov mbDebugbptr, edx
mov DWORD PTR [edx], 0
pop edx


or perhaps better don't use it at all-

push OFFSET mbDebugbuff
pop mbDebugbptr
mov byte ptr mbDebugbuff, 0