var addr

var srh

var vzv

var if

var fn

var iat

var adrjm

var chk

var ifb

var oep

mov oep,eip

ask "Enter start iat"

cmp $RESULT,0

je quit

mov iat,$RESULT

gmi eip,CODEBASE



mov srh,$RESULT



loop:

find srh,#E9????F?FF#

cmp $RESULT,0

je quit

mov addr,$RESULT

mov adrjm,$RESULT+1

mov vzv,$RESULT+6

mov if,[adrjm]

add if,adrjm+4

mov chk,if

and chk,FF0000

cmp chk,390000 // редактировать в зависимости от куска памяти

ja ns

mov ifb,if

buf ifb

find iat,ifb

cmp $RESULT,0

je manual

wr:

mov fn,$RESULT

mov [addr],#FF25#

add addr,2

mov [addr],fn

mov srh,vzv

jmp loop

manual:

ask "enter manual"

cmp $RESULT,0

je ns

mov fn,$RESULT

jmp wr

ns:

mov srh,vzv

jmp loop

quit:

mov eip,oep

ret