fpc main.pas 
cat test.asm
nasm -o test.bin -f bin test.asm
#nasm -f elf32 test.asm
#gcc -m32 -march=i486 -ffreestanding -o test test.o
#objcopy -O binary --only-section=.text test test.bin
ndisasm -b32 test.bin
gcc -g -Wall -std=c99 -o emul emul.c -lunicorn -lcapstone -pthread
./emul test.bin
#./test