ASSM %1,,%2
EXTRACT %2,S
RETYPE %2,D
$STOP