prep ring8s,ring8s#imp,n
dimp11 ring8s#imp
link11 /map
ring8s
.stack 1000
.streams 1
.stackseg 6
.end
ring8s
destroy ring8y
rename ring8s#abs,ring8y