diff --git a/Makefile.objs b/Makefile.objs
index fd6779e..cc4f43e 100644
--- a/Makefile.objs
+++ b/Makefile.objs
@@ -102,6 +102,7 @@ common-obj-y += disas/
 
 util-obj-y += instrument/
 target-obj-y += instrument/
+common-obj-y += instrument/
 
 ######################################################################
 # guest agent
diff --git a/hmp-commands.hx b/hmp-commands.hx
index cef7708..6cce724 100644
--- a/hmp-commands.hx
+++ b/hmp-commands.hx
@@ -1650,6 +1650,48 @@ STEXI
 show available trace events and their state
 ETEXI
 
+    {
+        .name       = "instr-dynamic",
+        .args_type  = "",
+        .params     = "",
+        .help       = "whether dynamic trace instrumentation is available",
+        .mhandler.cmd = hmp_instr_dynamic,
+    },
+
+STEXI
+@item instr-dynamic
+@findex instr-dynamic
+Whether dynamic trace instrumentation is available.
+ETEXI
+
+    {
+        .name       = "instr-load",
+        .args_type  = "path:F,args:s?",
+        .params     = "path [args]",
+        .help       = "load a dynamic instrumentation library",
+        .mhandler.cmd = hmp_instr_load,
+    },
+
+STEXI
+@item instr-load @var{path} [name=value[,...]]
+@findex instr-load
+Load a dynamic instrumentation library.
+ETEXI
+
+    {
+        .name       = "instr-unload",
+        .args_type  = "",
+        .params     = "",
+        .help       = "unload the current dynamic instrumentation library",
+        .mhandler.cmd = hmp_instr_unload,
+    },
+
+STEXI
+@item instr-unload
+@findex instr-unload
+Unload the current dynamic instrumentation library.
+ETEXI
+
 STEXI
 @end table
 ETEXI
diff --git a/instrument/Makefile.objs b/instrument/Makefile.objs
index 0d3b70b..adae4a9 100644
--- a/instrument/Makefile.objs
+++ b/instrument/Makefile.objs
@@ -65,3 +65,5 @@ endif
 # Control code
 
 target-obj-y += control.o
+
+common-obj-$(CONFIG_SOFTMMU) += hmp.o
diff --git a/instrument/hmp.c b/instrument/hmp.c
new file mode 100644
index 0000000..82fdcd7
--- /dev/null
+++ b/instrument/hmp.c
@@ -0,0 +1,65 @@
+/*
+ * HMP interface for dynamic trace instrumentation control commands.
+ *
+ * Copyright (C) 2012 Lluís Vilanova <vilanova@ac.upc.edu>
+ *
+ * This work is licensed under the terms of the GNU GPL, version 2 or later.
+ * See the COPYING file in the top-level directory.
+ */
+
+#include "instrument/hmp.h"
+
+#include <dlfcn.h>
+
+#include "monitor/monitor.h"
+#include "instrument/control.h"
+
+
+void hmp_instr_dynamic(Monitor *mon, const QDict *qdict)
+{
+    monitor_printf(mon, instr_dynamic() ? "true\n" : "false\n");
+}
+
+void hmp_instr_load(Monitor *mon, const QDict *qdict)
+{
+    /* @todo: Unify with qerror messages? */
+
+    const char *path = qdict_get_try_str(qdict, "path");
+    const char *args = qdict_get_try_str(qdict, "args");
+    InstrLoadError err = instr_load(path, args);
+    switch (err) {
+    case INSTR_LOAD_OK:
+        monitor_printf(mon, "OK\n");
+        break;
+    case INSTR_LOAD_UNAVAILABLE:
+        monitor_printf(mon, "Not available\n");
+        break;
+    case INSTR_LOAD_LOADED:
+        monitor_printf(mon, "Already loaded\n");
+        break;
+    case INSTR_LOAD_DL:
+        monitor_printf(mon, "Error loading library: %s\n", dlerror());
+        break;
+    }
+}
+
+void hmp_instr_unload(Monitor *mon, const QDict *qdict)
+{
+    /* @todo: Unify with qerror messages? */
+
+    InstrLoadError err = instr_unload();
+    switch (err) {
+    case INSTR_UNLOAD_OK:
+        monitor_printf(mon, "OK\n");
+        break;
+    case INSTR_UNLOAD_UNAVAILABLE:
+        monitor_printf(mon, "Not available\n");
+        break;
+    case INSTR_UNLOAD_UNLOADED:
+        monitor_printf(mon, "Already unloaded\n");
+        break;
+    case INSTR_UNLOAD_DL:
+        monitor_printf(mon, "Error unloading library: %s\n", dlerror());
+        break;
+    }
+}
diff --git a/instrument/hmp.h b/instrument/hmp.h
new file mode 100644
index 0000000..b7d56dd
--- /dev/null
+++ b/instrument/hmp.h
@@ -0,0 +1,21 @@
+/*
+ * HMP interface for dynamic trace instrumentation control commands.
+ *
+ * Copyright (C) 2012 Lluís Vilanova <vilanova@ac.upc.edu>
+ *
+ * This work is licensed under the terms of the GNU GPL, version 2 or later.
+ * See the COPYING file in the top-level directory.
+ */
+
+#ifndef INSTRUMENT__HMP_H
+#define INSTRUMENT__HMP_H
+
+#include "qemu-common.h"
+#include "qapi/qmp/qdict.h"
+
+
+void hmp_instr_dynamic(Monitor *mon, const QDict *qdict);
+void hmp_instr_load(Monitor *mon, const QDict *qdict);
+void hmp_instr_unload(Monitor *mon, const QDict *qdict);
+
+#endif  /* INSTRUMENT__HMP_H */
diff --git a/monitor.c b/monitor.c
index 2fff049..de4403d 100644
--- a/monitor.c
+++ b/monitor.c
@@ -68,6 +68,7 @@
 #include "exec/memory.h"
 #include "qmp-commands.h"
 #include "hmp.h"
+#include "instrument/hmp.h"
 #include "qemu/thread.h"
 
 /* for pic/irq_info */
