File interim-20130422.patch of Package simh

--- interim-20130422/pdp10_rp.c~	2012-12-09 15:44:25.000000000 +0100
+++ interim-20130422/pdp10_rp.c	2013-04-22 15:12:59.688307792 +0200
@@ -808,7 +808,7 @@
         return;
 
     case FNC_UNLOAD:                                    /* unload */
-        if (drv_tab[dtype].ctrl == RM_CTRL) {           /* RM? */
+        if (drv_tab[dtype].ctrl == MBA_RM_CTRL) {           /* RM? */
             rp_set_er (ER1_ILF, drv);                   /* not supported */
             break;
             }
--- interim-20130422/pdp10_rp.c~	2013-04-22 15:12:59.000000000 +0200
+++ interim-20130422/pdp10_rp.c	2013-04-22 15:28:15.262059900 +0200
@@ -809,7 +809,7 @@
 
     case FNC_UNLOAD:                                    /* unload */
         if (drv_tab[dtype].ctrl == MBA_RM_CTRL) {           /* RM? */
-            rp_set_er (ER1_ILF, drv);                   /* not supported */
+            set_rper (ER1_ILF, drv);                    /* not supported */
             break;
             }
         rp_detach (uptr);                               /* detach unit */