prep fep_eam77,eam77#imp,n,m,c,clean
dimp11 eam77#imp
link11 /map
eam77#rel
.stack 1000
.streams 1
.name am1h
.stackseg 6
.end
eam77
destroy eam77y
rename eam77#abs,eam77y
alist11 eam77#imp/.lp23