ecomp-c/tests/procedure_call.easm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

format binary
use32
org $1000000
jmp __global_0
; DECL i -> integer, 0
; PROC proc
__global_proc:
push ebp
push esp
pop ebp
; LET i <- 1 
mov eax, 1
push eax
pop eax
mov [i], eax
pop ebp
ret
__global_0:
call __global_proc
hlt
i: dd $00000000