PROCEDURE Damage_stack; ASSEMBLER; {$FRAME-}
ASM
   //Если 32-й бит в v9501 = 1, модифицируем.
   MOV EAX, DWORD PTR DS:[$890AD8]
   SHR EAX, 31
   TEST EAX, EAX
   JNZ @@Modify
   
   //Восстановление изначального кода: вызов функции, вычисляющей адрес конструкций для атакованного на определённой позиции (запись в EAX).
   MOV EAX, $4E7230
   CALL EAX
   JMP @@Exit
   
   //Модифицирование кода: проверка, надо ли атаковать текущий стек и запись адреса его конструкций или 0 в EAX.
   @@Modify:

   @@Exit:
   PUSH $44009A
END;

BEGIN
   HookCode(POINTER($440095), @Damage_stack, C_HOOKTYPE_JUMP);
END.