inline function Absi(x){eax =  $x ; cdq ; xor eax , edx ; eax -= edx ; $return eax }

  print( Absi(-100)  , '\r\n');    

program WIN32CUI 'Test';

#include 'ch.zir';

inline function Absi($x) {
  eax = $x;
  test eax, eax
  jns @notsigned;
  neg eax
  @notsigned:
  $return eax;
}

print(-100, ' ', Absi(-100)  , ' ', Absi(100), '\r\n'); 

wait_key();

ExitProcess(0);

program RAW_IMAGE 'test';
#set bits 32;

inline procedure test($a){
  $a = eax;
}
Dword a;
test(a);

program RAW_IMAGE 'test';
#set bits 32;

inline procedure test($p1){
  $p1 = eax;
}
Dword a;
test(a);