var addr

var srh

var vzv

var if

var fn

var iat

var adrjm

var chk

var ifb

ask "Enter start iat"

cmp $RESULT,0

je quit

mov iat,$RESULT

gmi eip,CODEBASE



mov srh,$RESULT

loop:

find srh,#90E8????3?FF#

cmp $RESULT,0

je quit

mov addr,$RESULT

mov adrjm,$RESULT+2

mov vzv,$RESULT+6

mov if,[adrjm]

add if,adrjm+4

mov chk,if

and chk,F00000

cmp chk,300000

jne ns

mov ifb,if

buf ifb

find iat,ifb

cmp $RESULT,0

je manual

wr:

mov fn,$RESULT

mov [addr],#FF15#

add addr,2

mov [addr],fn

mov srh,vzv

jmp loop

manual:

ask "enter manual"

cmp $RESULT,0

je quit

mov fn,$RESULT

jmp wr

ns:

mov srh,vzv

jmp loop



quit:

ret