diff --git a/PDP10/kx10_defs.h b/PDP10/kx10_defs.h
index 00bea88..1c58791 100644
--- a/PDP10/kx10_defs.h
+++ b/PDP10/kx10_defs.h
@@ -192,6 +192,7 @@ extern DEBTAB crd_debug[];
 #define INST_V_XR       18                              /* index */
 #define INST_M_XR       017
 #define OP_JRST         0254                            /* JRST */
+#define OP_JUMPA        0324                            /* JUMPA */
 #define AC_XPCW         07                              /* XPCW */
 #define OP_JSR          0264                            /* JSR */
 #define GET_OP(x)       ((int32) (((x) >> INST_V_OP) & INST_M_OP))
@@ -201,7 +202,7 @@ extern DEBTAB crd_debug[];
 #define GET_XR(x)       ((int32) (((x) >> INST_V_XR) & INST_M_XR))
 #define GET_ADDR(x)     ((uint32) ((x) & RMASK))
 #define LRZ(x)          (((x) >> 18) & RMASK)
-
+#define JRST1           (((uint64)OP_JRST << 27) + 1)
 
 #if PDP6
 #define NODIV   000000
diff --git a/PDP10/kx10_sys.c b/PDP10/kx10_sys.c
index c192c93..dac5912 100644
--- a/PDP10/kx10_sys.c
+++ b/PDP10/kx10_sys.c
@@ -228,6 +228,7 @@ DEBTAB              crd_debug[] = {
 #define FMT_S   2                                       /* SAV */
 #define FMT_E   3                                       /* EXE */
 #define FMT_D   4                                       /* WAITS DMP */
+#define FMT_I   5                                       /* ITS SBLK */
 
 #define EXE_DIR 01776                                   /* EXE directory */
 #define EXE_VEC 01775                                   /* EXE entry vec */
@@ -272,6 +273,144 @@ t_stat load_dmp (FILE *fileref)
 }
 
 
+int get_evac(FILE *fileref, uint64 *word)
+{
+    static uint64 data = 0;
+    static int bits = 0;
+    unsigned char buf[4];
+    unsigned char octet;
+
+    while (bits < 36) {
+        if (sim_fread(&octet, 1, 1, fileref) != 1)
+            return 1;
+
+        if (octet <= 011 ||
+            (octet >= 013 && octet <= 014) ||
+            (octet >= 016 && octet <= 0176)) {
+            data <<= 7;
+            data |= octet;
+            bits += 7;
+        } else if (octet == 012) {
+            data <<= 14;
+            data |= 015 << 7 | 012;
+            bits += 14;
+        } else if (octet == 015) {
+            data <<= 7;
+            data |= 012;
+            bits += 7;
+        } else if (octet == 0177) {
+            data <<= 14;
+            data |= 0177 << 7 | 7;
+            bits += 14;
+        } else if ((octet >= 0200 && octet <= 0206) ||
+                   (octet >= 0210 && octet <= 0211) ||
+                   (octet >= 0213 && octet <= 0214) ||
+                   (octet >= 0216 && octet <= 0355)) {
+            data <<= 14;
+            data |= 0177 << 7 | (octet - 0200);
+            bits += 14;
+        } else if (octet == 0207) {
+            data <<= 14;
+            data |= 0177 << 7 | 0177;
+            bits += 14;
+        } else if (octet == 0212) {
+            data <<= 14;
+            data |= 0177 << 7 | 015;
+            bits += 14;
+        } else if (octet == 0215) {
+            data <<= 14;
+            data |= 0177 << 7 | 012;
+            bits += 14;
+        } else if (octet == 0356) {
+            data <<= 7;
+            data |= 015;
+            bits += 7;
+        } else if (octet == 0357) {
+            data <<= 7;
+            data |= 0177;
+            bits += 7;
+        } else if (octet >= 0360) {
+            if (bits != 0)
+                return 1;
+
+            if (sim_fread(&buf, 1, 4, fileref) != 4)
+                return 1;
+
+            data = (uint64)(octet & 017) << 32;
+            data |= (uint64)(buf[0]) << 24;
+            data |= (uint64)(buf[1]) << 16;
+            data |= (uint64)(buf[2]) << 8;
+            data |= (uint64)(buf[3]);
+            bits = 36;
+        }
+
+        if (bits == 35) {
+            data <<= 1;
+            bits++;
+        }
+    }
+
+    if (bits == 42) {
+        *word = (data >> 6) & -2LL;
+        data &= 0177;
+        bits = 7;
+    } else {
+        *word = data;
+        data = 0;
+        bits = 0;
+    }
+
+    return 0;
+}
+
+/* ITS SBLK loader.
+
+   The SBLK format is similar to SAV.  However, ITS files stored as
+   octet streams are usually in the "evacuate" format.
+*/
+t_stat load_sblk (FILE *fileref)
+{
+    uint64 word;
+    uint64 check;
+    int count, addr;
+
+    /* First, skip over the paper tape bootstrap.  It ends with a
+       JRST 1. */
+    do {
+        if (get_evac (fileref, &word))
+            return SCPE_FMT;
+    } while (word != JRST1);
+
+    /* Load all "simple blocks".  They start with an AOBJN pointer,
+       and then comes the data.  Last is a checksum word.  */
+    while (get_evac (fileref, &word) == 0 && (word & SMASK)) {
+        check = word;
+        count = -((word >> 18) | (-1 << 18));
+        addr = word & RMASK;
+        while (count-- > 0) {
+            if (get_evac (fileref, &word))
+                return SCPE_FMT;
+            M[addr++] = word;
+            check = (check << 1) + (check >> 35) + word;
+            check &= FMASK;
+        }
+        if (get_evac (fileref, &word))
+            return SCPE_FMT;
+        if (check != word)
+            return SCPE_FMT;
+    }
+
+    /* After the simple blocks comes a start instruction.  It should
+       be a JRST or JUMPA. */
+    if ((word >> 27) != OP_JRST && (word >> 27) != OP_JUMPA)
+        return SCPE_FMT;
+
+    PC = word & FMASK;
+
+    return SCPE_OK;
+}
+
+
 /* RIM10 loader
 
    RIM10 format is a binary paper tape format (all data frames
@@ -543,6 +682,8 @@ else if (sim_switches & SWMASK ('E'))                   /* -e? */
     fmt = FMT_E;
 else if (sim_switches & SWMASK ('D'))                   /* -d? */
     fmt = FMT_D;
+else if (sim_switches & SWMASK ('I'))                   /* -i? */
+    fmt = FMT_I;
 else if (match_ext (fnam, "RIM"))                       /* .RIM? */
     fmt = FMT_R;
 else if (match_ext (fnam, "SAV"))                       /* .SAV? */
@@ -551,6 +692,8 @@ else if (match_ext (fnam, "EXE"))                       /* .EXE? */
     fmt = FMT_E;
 else if (match_ext (fnam, "DMP"))                       /* .DMP? */
     fmt = FMT_D;
+else if (match_ext (fnam, "BIN"))                       /* .BIN? */
+    fmt = FMT_I;
 else {
     wc = sim_fread (&data, sizeof (uint64), 1, fileref);/* read hdr */
     if (wc == 0)                                        /* error? */
@@ -575,6 +718,9 @@ switch (fmt) {                                          /* case fmt */
 
     case FMT_D:                                         /* DMP */
         return load_dmp (fileref);
+
+    case FMT_I:                                         /* SBLK */
+        return load_sblk (fileref);
         }
 
 printf ("Can't determine load file format\n");