Compact procedure_call macro

[HSE]

Hi Hutch!

Here an alternative more compact of the macro:

Code Select Expand

    procedure_call MACRO fname:REQ,a1:VARARG

    LOCAL lead,wrd2,ssize,sreg,svar
 
      arg1_n = 0 
      FOR arg2, <a1>
        ;; **************************
        ;; first 4 register arguments
        ;; **************************
          IF arg1_n eq 0
            REGISTER arg2,cl,cx,ecx,rcx,xmm0
          ENDIF
       
          IF arg1_n eq 1
            REGISTER arg2,dl,dx,edx,rdx,xmm1
          ENDIF
       
          IF arg1_n eq 2
            REGISTER arg2,r8b,r8w,r8d,r8,xmm2
          ENDIF
       
          IF arg1_n eq 3
            REGISTER arg2,r9b,r9w,r9d,r9,xmm3
          ENDIF
        ;; **************************
        ;; following stack arguments
        ;; **************************
          IF arg1_n gt 3
            STACKARG arg2,arg1_n*8
          ENDIF

          arg1_n = arg1_n + 1
      ENDM

      call fname

    ENDM


Regards, HSE.