RosettaCodeData/Task/Machine-code/Phix/machine-code-1.phix

6 lines
162 B
Plaintext

atom mem = allocate(9)
poke(mem,{#8B,#44,#24,#04,#03,#44,#24,#08,#C3})
constant mfunc = define_c_func({},mem,{C_INT,C_INT},C_INT)
?c_func(mfunc,{12,7})
free(mem)