RosettaCodeData/Task/Machine-code/BBC-BASIC/machine-code.bbc
2015-02-20 09:02:09 -05:00

18 lines
334 B
Text

REM Claim 9 bytes of memory
SYS "GlobalAlloc",0,9 TO code%
REM Poke machine code into it
P%=code%
[OPT 0
mov EAX, [ESP+4]
add EAX, [ESP+8]
ret
]
REM Run code
SYS code%,7,12 TO result%
PRINT result%
REM Free memory
SYS "GlobalFree",code%
END