diff --git a/scans/dmabs.s b/scans/dmabs.s
index fce7825..a030ed4 100644
--- a/scans/dmabs.s
+++ b/scans/dmabs.s
@@ -1,3 +1,4 @@
+"** 07-13-19.pdf page 23
    " dmabs
 
    lac o17
@@ -60,6 +61,7 @@ dump2:
 dump3:
    -1
    tad bufp
+"** 07-13-19.pdf page 24
    dac 8
    -64
    dac c1
@@ -121,6 +123,7 @@ dump4:
 done:
    lac tracmd
    jms put
+"** 07-13-19.pdf page 25
    cla
    jms put
    lac oldsum
@@ -182,6 +185,7 @@ boot:
 2:
    jms get1-boot+org
    dac cmd-boot+org
+"** 07-13-19.pdf page 26
    jms get1-boot+org
    cma
    dac cnt-boot+org
@@ -231,7 +235,7 @@ mes:
 comand: 0
 tracmd: 0
    d1: 1
-.17777: 017777
+o17777: 017777
 o77: 077
 o200: 0200
 o300: 0300
@@ -243,6 +247,7 @@ punout: <pp>;<to>;<ut>;040040
 o17: 017
 
 fi: 0
+"** 07-13-19.pdf page 27
 fo: 0
 count: 0
 oldsum: 0
@@ -253,4 +258,4 @@ initcmd: dac 0
 c1: 0
 buf:
 
-iot = 0700000
\ No newline at end of file
+iot = 0700000
diff --git a/src/cmd/dmabs.s b/src/cmd/dmabs.s
index 7621f33..6da1dd8 100644
--- a/src/cmd/dmabs.s
+++ b/src/cmd/dmabs.s
@@ -1,3 +1,4 @@
+"** 07-13-19.pdf page 23
    " dmabs
 
 	" takes a list of files on command line and punches out each
@@ -74,6 +75,7 @@ dump2:		" (label not used)
 dump3:				" block loop
    -1				" reset i8 to buffer
    tad bufp
+"** 07-13-19.pdf page 24
    dac 8
    -64				" get count
    dac c1
@@ -135,6 +137,7 @@ dump4:				" end of block
 done:				" here at end of input file
    lac tracmd			" get transfer command (jmp)
    jms put			" write to tape
+"** 07-13-19.pdf page 25
    cla				" write a zero word
    jms put
    lac oldsum			" get checksum
@@ -196,6 +199,7 @@ boot:
 2:
    jms get1-boot+org		" get command word from tape
    dac cmd-boot+org
+"** 07-13-19.pdf page 26
    jms get1-boot+org		" get count from tape
    cma
    dac cnt-boot+org		" store complemented (incremented below)
@@ -257,6 +261,7 @@ punout: <pp>;<to>;<ut>;040040
 o17: 017
 
 fi: 0
+"** 07-13-19.pdf page 27
 fo: 0
 count: 0
 oldsum: 0