diff --git a/rl02.cpp b/rl02.cpp
index 344211f..42a73ee 100644
--- a/rl02.cpp
+++ b/rl02.cpp
@@ -148,7 +148,7 @@ void rl02::writeWord(const uint16_t addr, uint16_t v)
 
 		DOLOG(debug, false, "RL02 set command %d, exec: %d (%s)", command, do_exec, commands[command]);
 
-		int           device  = 0;  // TODO
+		int           device  = (v >> 8) & 3;
 
 		bool          do_int  = false;