$SAVE NOLIST

dq$switch$buffer:  PROCEDURE( buffer$ptr,
                              except$ptr ) WORD EXTERNAL;

DECLARE buffer$ptr      POINTER,
        except$ptr      POINTER;

END dq$switch$buffer;

$RESTORE