diff --git a/scans/README.md b/scans/README.md
index 9a0d8ab..ea10023 100644
--- a/scans/README.md
+++ b/scans/README.md
@@ -55,6 +55,7 @@ Details of the files:
 * as.s: pages 32-48 of 05-1-4.pdf
 * ed1.s: pages 7-20 of 08-rest.pdf
 * ed2.s: pages 21-29 of 08-rest.pdf
+* pd.s: page 1 of 11-45-91.pdf
 * salv.s: pages 25-29 of 11-45-91.pdf
 * sh.s: pages 30-36 of 11-45-91.pdf
 * st-1.s pages 1-5 of 12-92-119.pdf
diff --git a/scans/pd.s b/scans/pd.s
new file mode 100644
index 0000000..6196348
--- /dev/null
+++ b/scans/pd.s
@@ -0,0 +1,59 @@
+" ** 11-45-91.pdf page 1
+" pd
+	
+   sys open; dotdot; 0
+   spa; jms error
+   dac df
+   law dir-1
+   dac 8
+1:
+   lac df
+   sys read; tbuf; 8
+   spa; jms error
+   sna
+   jmp 1f
+   lac tbuf
+   sna
+   jmp 1b
+   -8
+   dac c1
+   law tbuf-1
+   dac 9
+2:
+   lac 9 i
+   dac 8 i
+   isz c1
+   jmp 2b
+   jmp 1b
+
+1:
+   lac df
+   sys close
+   law 017
+   sys creat; dotdot
+   spa; jms error
+   dac df
+   law dir-2
+   cma
+   tad 8
+   dac .+4
+   lac df
+   sys write; dir; ..
+   spa; jms error
+   lac df
+   sys close
+   sys exit
+
+error: 0
+   -1
+   tad error
+   hlt
+   sys save
+
+dotdot:
+   056056; 040040; 040040; 040040
+
+c1: .=.+1
+df: .=.+1
+tbuf: .=.+8
+dir: