$SAVE NOLIST

dq$free:  PROCEDURE( segment$t,
                     except$ptr ) EXTERNAL;

DECLARE segment$t       TOKEN,
        except$ptr      POINTER;

END dq$free;

$RESTORE