diff --git a/vimlac/bootstrap.c b/vimlac/bootstrap.c
new file mode 100644
index 0000000..e873c5d
--- /dev/null
+++ b/vimlac/bootstrap.c
@@ -0,0 +1,73 @@
+/*
+ * Define the bootstrap images.
+ */
+
+
+#include "vimlac.h"
+#include "bootstrap.h"
+
+WORD PtrROMImage[] = {0060077, /* start  lac    base  ;40 get load address */
+                      0020010, /*        dac    10    ;41 put into auto-inc reg */
+                      0104100, /*        lwc    0100  ;42 -0100 into AC */
+                      0020020, /*        dac    20    ;43 put into memory */
+                      0001061, /*        hon          ;44 start PTR */
+                      0100011, /* wait   cal          ;45 clear AC+LINK */
+                      0002400, /*        hsf          ;46 skip if PTR has data */
+                      0010046, /*        jmp    .-1   ;47 wait until is data */
+                      0001051, /*        hrb          ;50 read PTR -> AC */
+                      0074075, /*        sam    what  ;51 skip if AC == 2 */
+                      0010045, /*        jmp    wait  ;52 wait until PTR return 0 */
+                      0002400, /* loop   hsf          ;53 skip if PTR has data */
+                      0010053, /*        jmp    .-1   ;54 wait until is data */
+                      0001051, /*        hrb          ;55 read PTR -> AC */
+                      0003003, /*        ral    3     ;56 move byte into high AC */
+                      0003003, /*        ral    3     ;57 */
+                      0003002, /*        ral    2     ;60 */
+                      0102400, /*        hsn          ;61 wait until PTR moves */
+                      0010061, /*        jmp    .-1   ;62 */
+                      0002400, /*        hsf          ;63 skip if PTR has data */
+                      0010063, /*        jmp    .-1   ;64 wait until is data */
+                      0001051, /*        hrb          ;65 read PTR -> AC */
+                      0120010, /*        dac    *10   ;66 store word, inc pointer */
+                      0102400, /*        hsn          ;67 wait until PTR moves */
+                      0010067, /*        jmp    .-1   ;70 */
+                      0100011, /*        cal          ;71 clear AC & LINK */
+                      0030020, /*        isz    20    ;72 inc mem and skip zero */
+                      0010053, /*        jmp    loop  ;73 if not finished, jump */
+                      0110076, /*        jmp    *go   ;74 execute loader */
+                      0000002, /* what   data   2     ;75 */
+                      0003700, /* go     word   03700H;76 */
+                      0003677  /* base   word   03677H;77 */};
+
+WORD TtyROMImage[] = {0060077, /* start  lac    base  ;40 get load address */
+                      0020010, /*        dac    10    ;41 put into auto-inc reg */
+                      0104100, /*        lwc    0100  ;42 -0100 into AC */
+                      0020020, /*        dac    20    ;43 put into memory */
+                      0001061, /*        hon          ;44 start PTR */
+                      0100011, /* wait   cal          ;45 clear AC+LINK */
+                      0002400, /*        hsf          ;46 skip if PTR has data */
+                      0010046, /*        jmp    .-1   ;47 wait until is data */
+                      0001051, /*        hrb          ;50 read PTR -> AC */
+                      0074075, /*        sam    what  ;51 skip if AC == 2 */
+                      0010045, /*        jmp    wait  ;52 wait until PTR return 0 */
+                      0002400, /* loop   hsf          ;53 skip if PTR has data */
+                      0010053, /*        jmp    .-1   ;54 wait until is data */
+                      0001051, /*        hrb          ;55 read PTR -> AC */
+                      0003003, /*        ral    3     ;56 move byte into high AC */
+                      0003003, /*        ral    3     ;57 */
+                      0003002, /*        ral    2     ;60 */
+                      0102400, /*        hsn          ;61 wait until PTR moves */
+                      0010061, /*        jmp    .-1   ;62 */
+                      0002400, /*        hsf          ;63 skip if PTR has data */
+                      0010063, /*        jmp    .-1   ;64 wait until is data */
+                      0001051, /*        hrb          ;65 read PTR -> AC */
+                      0120010, /*        dac    *10   ;66 store word, inc pointer */
+                      0102400, /*        hsn          ;67 wait until PTR moves */
+                      0010067, /*        jmp    .-1   ;70 */
+                      0100011, /*        cal          ;71 clear AC & LINK */
+                      0030020, /*        isz    20    ;72 inc mem and skip zero */
+                      0010053, /*        jmp    loop  ;73 if not finished, jump */
+                      0110076, /*        jmp    *go   ;74 execute loader */
+                      0000002, /* what   data   2     ;75 */
+                      0003700, /* go     word   03700H;76 */
+                      0003677  /* base   word   03677H;77 */};
diff --git a/vimlac/bootstrap.h b/vimlac/bootstrap.h
new file mode 100755
index 0000000..c6f7bb3
--- /dev/null
+++ b/vimlac/bootstrap.h
@@ -0,0 +1,11 @@
+/*
+ * Interface for the bootstrap code.
+ */
+
+#ifndef BOOTSTRAP_H
+#define BOOTSTRAP_H
+
+extern WORD PtrROMImage[];
+extern WORD TtyROMImage[];
+
+#endif