$SAVE NOLIST

dq$allocate:  PROCEDURE( size,
                         except$ptr ) TOKEN EXTERNAL;

DECLARE size            WORD,
        except$ptr      POINTER;

END dq$allocate;

$RESTORE