procedure Proc1(procedure* SomeProc; function* SomeFunc){
  SomeProc();
  eax = SomeFunc();
}

procedure Proc2(){}
function Func1(){return true;}

Proc1(Proc2, Func1);

procedure* SomeProc(dword p1, p2)

program RAW_IMAGE 'test';

#set bits 32;

procedure TestA(pointer P) {
  procedure* MyProc(dword x, y, z); MyProc = P;
  MyProc(1, 2, 3);
}
procedure TestB(pointer P) {
  procedure* MyProc(dword x, y, z); MyProc = P;
  MyProc(1, 2, 3);
}
TestA(0); TestB(0);

procedure TestA(pointer P) {
  procedure* MyProc(dword x, y, z); MyProc = P;
  MyProc(1, 2, 3);
}

[@MyProc] = P

  function* MyProc(dword x, y, z): DWord; MyProc = P;