for macro program

[korte]

I would like to define a macro.
Procedure generation.

first param: procedure name
second param: procedura arg number


defProc   proc1 , 3

want:

proc1 proc p1:DWORD, p2:DWORD, p3:DWORD

[dedndave]

hi korte - welcome to the forum
i seem to recall macros like that in previous threads
try using the forum search tool - i bet you'll find just what you want

[korte]

sorry dear dedndave, not found.

we tired:

Code Select Expand



proc_entry MACRO nam:REQ,nums
LOCAL cnt
lastproc equ _&nam

arg equ <>
      arg CATSTR arg,<nam >
        arg CATSTR arg,< proc >
    cnt=0
      FOR var,<nums>
if cnt gt 0
        arg CATSTR arg,<p>,cnt,<,:DWORD>
else
        arg CATSTR arg,<p>,cnt,<:DWORD>
endif
        cnt = cnt + 1
      ENDM

arg


endm

proc_entry myproc,10


[qWord]

want:

proc1 proc p1:DWORD, p2:DWORD, p3:DWORD

with a few changes to your macro it works:

Code Select Expand


proc_entry MACRO nam:REQ,nums
LOCAL cnt
lastproc equ _&nam

arg TEXTEQU <>
    arg CATSTR arg,<nam >
    arg CATSTR arg,< proc >
    cnt=0
    WHILE cnt LT nums
if cnt gt 0
       arg CATSTR arg,<p>,%cnt+1,<,:DWORD>
else
     arg CATSTR arg,<p>,%cnt+1,<:DWORD>
endif
        cnt = cnt + 1
    ENDM

arg
endm


[korte]

Code Select Expand


proc_entry MACRO nam:REQ,nums
LOCAL cnt
lastproc equ &nam

arg TEXTEQU <>
    arg CATSTR arg,<nam >
    arg CATSTR arg,< proc >
    cnt=0
    WHILE cnt LT nums
if cnt gt 0
       arg CATSTR arg,<,p>,%cnt+1,<:DWORD>
else
     arg CATSTR arg,<p>,%cnt+1,<:DWORD>
endif
        cnt = cnt + 1
    ENDM

arg
endm



thank you. Great

[Vortex]

Hi korte,

Another procedure definition by assuming that all the parameters are DWORD by default :

Code Select Expand

DefProc procname,p1,p2,p3

[korte]

Greetings, dear forum

Next "FOR" problem

work, but ugly

Code Select Expand



   FOR i, <16,17,18,19,20,21,22,23,24>
      mov [xxx+i],eax
   endm



[qWord]

... ugly

That's a question of taste.

However, similarly to your previous problem:

Code Select Expand

    cnt=16
    WHILE cnt LT 25
mov [xxx+cnt],eax
        cnt = cnt + 1
    ENDM

[korte]

I understand.
Thank you.
But not the specific case.

I would like to solve with "FOR"....

[jj2007]

What is the purpose?

Code Select Expand

include \masm32\include\masm32rt.inc

fm MACRO mem:REQ, args:VARARG
mov edx, mem
FOR arg, <args>
mov [edx+arg], eax
ENDM
ENDM

.data?
MyBuffer dd 20 dup(?)

.code
start:
fm offset MyBuffer, 16,17,18,19,20,21,22,23,24
exit ; short form of invoke ExitProcess, 0

end start