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


;--- 32-bit: extending size if target is :VARARG

	.386
	.model flat, stdcall
	option proc:private

?PRINT equ 0

if ?PRINT
printf proto c :vararg
vprintf proto c :ptr byte, :ptr
endif

CStr macro text:vararg
local xxx
	.const
xxx  db text,0
	.code
	exitm <offset xxx>
endm

	.code

px proc c args:VARARG
if ?PRINT
	invoke vprintf, CStr( "px: a1=%d a2=%d  l1=%d l2=%d l3=%d",10 ), addr args
endif
	ret
px endp

p1 proc a1:dword, a2:word
local l1:dword
local l2:word
local l3:byte
	mov word ptr l1+0, LOWWORD -11
	mov word ptr l1+2, HIGHWORD -11
	mov l2, -12
	mov l3, -13
if ?PRINT
	invoke printf, CStr( "p1: a1=%d a2=%d  l1=%d l2=%d l3=%d",10 ), a1, a2, l1, l2, l3
endif
	invoke px, a1, a2, l1, l2, l3
	ret
p1 endp

p2 proc a1:sdword, a2:sword
local l1:sdword
local l2:sword
local l3:sbyte
	mov word ptr l1+0, LOWWORD -11
	mov word ptr l1+2, HIGHWORD -11
	mov l2, -12
	mov l3, -13
if ?PRINT
	invoke printf, CStr( "p2: a1=%d a2=%d  l1=%d l2=%d l3=%d",10 ), a1, a2, l1, l2, l3
endif
	invoke px, a1, a2, l1, l2, l3
	ret
p2 endp

if ?PRINT
main proc c public
	invoke p1, -1, -2
	invoke p2, -1, -2
	ret
main endp
endif

end