diff --git a/scans/check.s b/scans/check.s
index 8cda452..6e11b53 100644
--- a/scans/check.s
+++ b/scans/check.s
@@ -1,3 +1,4 @@
+"** 06-5-12.pdf page 25
 " check
 
 lac d1
@@ -60,6 +61,7 @@ iloop:
    lac iflags
    and o40
    sza
+"** 06-5-12.pdf page 26
    jmp iloop
    law idskps
    dac t1
@@ -121,6 +123,7 @@ dupcheck: 0
    lac d1
 2: alss 0
    dac bit
+"** 06-5-12.pdf page 27
    lac i t6
    and bit
    sza
@@ -182,6 +185,7 @@ part2:
    lac d1
    sys write; m5; m5s
    lac blcnt
+"** 06-5-12.pdf page 28
    jms print
    lac d1
    sys write; m6; m6s
@@ -243,6 +247,7 @@ part3:
    cla
    llss 4
    tad alsscom
+"** 06-5-12.pdf page 29
    dac 2f
    lac d1
 2: alss 0
@@ -304,6 +309,7 @@ t1: 0
 t2: 0
 t3: 0
 t4: 0
+"** 06-5-12.pdf page 30
 t5: 0
 t6: 0
 
@@ -321,4 +327,4 @@ linode: .=.+12
 iflags = linode
 idskps = iflags+1
 usetab: .=.+500
-prbuf: .=.+6
\ No newline at end of file
+prbuf: .=.+6
diff --git a/src/cmd/check.s b/src/cmd/check.s
index 7457d21..d020523 100644
--- a/src/cmd/check.s
+++ b/src/cmd/check.s
@@ -1,3 +1,4 @@
+"** 06-5-12.pdf page 25
 " check
 
 lac d1
@@ -60,6 +61,7 @@ iloop:
    lac iflags
    and o40
    sza
+"** 06-5-12.pdf page 26
    jmp iloop
    law idskps
    dac t1
@@ -121,6 +123,7 @@ dupcheck: 0
    lac d1
 2: alss 0
    dac bit
+"** 06-5-12.pdf page 27
    lac i t6
    and bit
    sza
@@ -182,6 +185,7 @@ part2:
    lac d1
    sys write; m5; m5s
    lac blcnt
+"** 06-5-12.pdf page 28
    jms print
    lac d1
    sys write; m6; m6s
@@ -243,6 +247,7 @@ part3:
    cla
    llss 4
    tad alsscom
+"** 06-5-12.pdf page 29
    dac 2f
    lac d1
 2: alss 0
@@ -304,6 +309,7 @@ t1: 0
 t2: 0
 t3: 0
 t4: 0
+"** 06-5-12.pdf page 30
 t5: 0
 t6: 0