diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl
index 29bdce0d..4275e57a 100644
--- a/build/ka10/include.tcl
+++ b/build/ka10/include.tcl
@@ -120,3 +120,6 @@ proc bootable_tapes {} {
     respond "_" "Q"
     expect ":KILL"
 }
+
+proc update_microcode {} {
+}
diff --git a/build/ks10/include.tcl b/build/ks10/include.tcl
index 2dcff5b5..387e2860 100644
--- a/build/ks10/include.tcl
+++ b/build/ks10/include.tcl
@@ -162,3 +162,15 @@ proc bootable_tapes {} {
     respond "Input file" ".;nsalv bin\r"
     expect ":KILL"
 }
+
+proc update_microcode {} {
+    type ":ksfedr\r"
+    respond "!" "write\r"
+    respond "Are you sure" "yes\r"
+    respond "Which file" "ram\r"
+    expect "Input from"
+    sleep 1
+    respond ":" ".;ram ram\r"
+    respond "!" "quit\r"
+    expect ":KILL"
+}
diff --git a/build/misc.tcl b/build/misc.tcl
index acf11e78..a8b19d71 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -850,6 +850,8 @@ respond "*" ":kshack;micro kshack;mcr 262=kshack;its,ks10,simple,flt,extend,inou
 expect ":KILL"
 respond "*" ":copy kshack; mcr ram, .; ram ram\r"
 
+update_microcode
+
 # XXFILE
 respond "*" ":midas sysbin;xxfile bin_sysen1;xxfile\r"
 expect ":KILL"