;; used preprocessor rules ;;
%macro machine (mid)
.machine (mid)
%end

%macro import func (fid)
.extern (fid)
.type function (fid)
%end

%macro section (part)
.section .(part)
%end

%macro export func (fid) as (linkage)
.type function (fid)
.global (fid)
.linkage (fid), global, function, (linkage)
%end

%macro cdecl begin
push bp
mov sp, bp
%end

%macro cdecl end
pop bp
%end

;;;; 写不下.... 🙈

machine x86
import func puts

section text
export func main as _start

impl main:
  cdecl fbegin
  stack << text
  puts ()
  cdecl fend

section rodata
data text

text = string "Hello, world!"

#include <stdafx.h>
#include <tlhelp32.h>

HANDLE RunRemoteThread(HANDLE hProcess, void (*fun)()) {
  PTHREAD_START_ROUTINE pfnThreadRtn = (PTHREAD_START_ROUTINE) fun;
  if (pfnThreadRtn == NULL) return -1;
  return CreateRemoteThread(hProcess, NULL, 0, pfnThreadRtn, NULL, 0, NULL);
}