$SAVE NOLIST

dq$write:  PROCEDURE( conn,
                      buff$ptr,
                      count,
                      except$ptr ) EXTERNAL;

DECLARE conn            TOKEN,
        buff$ptr        POINTER,
        count           WORD,
        except$ptr      POINTER;

END dq$write;

$RESTORE