; helper macros for sample applications.
; these macros were tested only to work with the accompanying `sample' applications 
; and weren't intended to be used outside of this scope. 
;----------------------------------------------------------------------------------

macro ccall proc,[arg]
{ common
    size@ccall = 0
    if ~ arg eq
   reverse
    pushd arg
    size@ccall = size@ccall+4
   common
    end if
    call proc
    if size@ccall
    add esp,size@ccall
    end if }

macro pushd value
{ match pushd,pushd \{ \local ..continue
   if value eqtype ''
    call ..continue
    db value,0
    ..continue:
   else
    restore pushd
    pushd value
   end if
    \} }