.SEGMENT "0"
.FUNCT DIRECTION-CONVERSION
CALL2 GET-NP,INTDIR
GET STACK,2
GETB STACK,6
RSTACK
.ENDSEG
.ENDI