diff --git a/Makefile b/Makefile
index 32650fb9..1a36693e 100644
--- a/Makefile
+++ b/Makefile
@@ -4,7 +4,7 @@ EMULATOR ?= simh
 SRC = system syseng sysen1 sysen2 sysnet kshack dragon channa midas	\
       _teco_ emacs emacs1 rms klh syshst sra mrc ksc eak cstacy gren	\
       bawden _mail_ l lisp liblsp libdoc comlap lspsrc nilcom rwk	\
-      inquir acount gz sys decsys
+      inquir acount gz sys decsys alan
 DOC = info _info_ sysdoc kshack _teco_ emacs emacs1
 BIN = sysbin emacs _teco_ inquir
 
diff --git a/README.md b/README.md
index 42264773..f4de26fc 100644
--- a/README.md
+++ b/README.md
@@ -123,6 +123,7 @@ There's a [DDT cheat sheet](doc/DDT.md) for Unix users.
    - DIRDEV, list directories, sorted or subsetted.
    - DIRED, directory editor (independent from EMACS DIRED).
    - DMPCPY, crach dump copy dragon.
+   - DP Device, 7-bit conversions?
    - DQ Device, for doing hostname resolutions. Used by COMSAT.
    - DSKDEV, D - short disk device.
    - DSKUSE, disk usage information.
diff --git a/build/build.tcl b/build/build.tcl
index b787fb71..92de3bf7 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -511,6 +511,9 @@ respond "*" ":link sys2;ts chtn,sysbin;supdup bin\r"
 respond "*" ":midas sys;ts ttloc_sysen1;ttloc\r"
 expect ":KILL"
 
+respond "*" ":midas device;jobdev dp_ar5:alan;dpdev 19\r"
+expect ":KILL"
+
 respond "*" ":midas sys;ts srccom_sysen2;srccom\r"
 expect ":KILL"
 
diff --git a/src/alan/ar5.midas b/src/alan/ar5.midas
new file mode 100755
index 00000000..2e14eba8
Binary files /dev/null and b/src/alan/ar5.midas differ