diff -r b3c652b3a316 -r 37b1ccb862b9 src/industry_cmd.cpp
--- a/src/industry_cmd.cpp	Mon Nov 03 12:03:00 2008 +0000
+++ b/src/industry_cmd.cpp	Mon Nov 03 19:25:52 2008 +0000
@@ -2089,6 +2089,9 @@
 				case 0xE:                         // increment production
 					increment = res == 0x0D ? -1 : 1;
 					break;
+				case 0xF:                         // Set production to higher word of register 0x100
+					i->prod_level = Clamp(GB(GetRegister(0x100), 16, 16), PRODLEVEL_MINIMUM, PRODLEVEL_MAXIMUM);
+					break;
 			}
 		}
 	}