uasm 1.0.9+2.57

A library to build the UASM compiler, for usage in build scripts.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126


;--- test option:stackbase in 32-bit

    .686
    .model flat,stdcall
    option casemap:none
    option proc:private

    includelib <kernel32.lib>

    option stackbase:esp
    option renamekeyword: <push>=@@push
    option renamekeyword: <pushd>=@@pushd
    option renamekeyword: <pushw>=@@pushw
    option renamekeyword: <pop>=@@pop
    option renamekeyword: <invoke>=@@invoke
    option renamekeyword: <sub>=@@sub
    option renamekeyword: <add>=@@add
    option renamekeyword: <endp>=@@endp

;--- start FPO redefinitions

push macro x:vararg
    @@push x
  if (@ProcStatus and 7) eq 4  ;outside prologue/epilogue and fpo?
    if type (x)
        @StackBase = @StackBase + type (x)
    else
        @StackBase = @StackBase + @WordSize
    endif
  endif
endm

pushd macro x:vararg
    @@pushd x
  if ( @ProcStatus and 7) eq 4 ;outside prologue/epilogue and fpo?
    @StackBase = @StackBase + 4
  endif
endm

pushw macro x:vararg
    @@pushw x
  if (@ProcStatus and 7) eq 4 ;outside prologue/epilogue and fpo?
    @StackBase = @StackBase + 2
  endif
endm

pop macro x:vararg
  if (@ProcStatus and 7) eq 4 ;outside prologue/epilogue and fpo?
    if type (x)
        @StackBase = @StackBase - type (x)
    else
        @StackBase = @StackBase - @WordSize
    endif
    .errnz @StackBase lt 0, <@StackBase below 0!!>
  endif
    @@pop x
endm

invoke macro args:varargml
  if @ProcStatus and 4
    SavedBase = @StackBase
    @@invoke args
    @StackBase = SavedBase
  else
    @@invoke args
  endif
endm


sub macro dst:req, opnd:req
    @@sub dst, opnd
  if (@ProcStatus and 7) eq 4 ;outside prologue/epilogue and fpo?
    ifidni <dst>,<esp>
      if ( opattr opnd ) and 4 
        @StackBase = @StackBase + (opnd)
      endif
    endif
  endif
endm

add macro dst:req, opnd:req
    @@add dst, opnd
  if (@ProcStatus and 7) eq 4 ;outside prologue/epilogue and fpo?
    ifidni <dst>,<esp>
      if ( opattr opnd ) and 4 
        @StackBase = @StackBase - (opnd)
      endif
    endif
  endif
endm

endp macro name_:label
  if (@ProcStatus and 4) ;fpo on?
    .errnz @StackBase, <@StackBase not zero!!>
  endif
    name_ @@endp
endm

;--- end FPO redefinitions

    .code

xxx proc uses ebx esi a1:dword

local x1:qword
local x2:dword

    mov eax, a1
    mov x2, eax
    add eax, eax
    ret
xxx endp

WinMain proc uses ebx esi hInst:ptr, hPrevInst:ptr, CmdLine:ptr, CmdShow:DWORD

    mov eax, hInst
    invoke xxx, 1
    ret
WinMain endp

start:
    invoke WinMain, 0, 0, 0, 0
    ret

end start