let MakeLink (PPTR WR Target, PTR Source) WR_PTR
{
  PTIB Thread_IB = [%FS];

  if (Target > Thread_IB->Stack_limit_address)
  {
    ...
  }
  else
  {
    ;
  }
}