diff --git a/scans/adm.s b/scans/adm.s
index f747395..e5102a2 100644
--- a/scans/adm.s
+++ b/scans/adm.s
@@ -1,3 +1,4 @@
+"** 05-1-4.pdf page 2
 " adm
 
    lac 017777 i
@@ -54,12 +55,13 @@ floop1:
    tad d4
    dac name
 
-   sys open; name; ..; 0
+   sys open; name: ..; 0
    spa
    jmp ferror
    dac fi
 
    -1
+"** 05-1-4.pdf page 3
    tad name
    dac 8
    r4
@@ -121,6 +123,7 @@ eof:
    dac buf+3 " final check sum
    jms putcard
    jmp floop
+"** 05-1-4.pdf page 4
 
 getword: 0
    lac ipt
@@ -182,6 +185,7 @@ putcard: 0
 
    jmp floop
 
+"** 05-1-4.pdf page 5
 ferror:
    lac name
    dac 1f
@@ -189,7 +193,7 @@ ferror:
    sys write; 1:..; 4
    lac d1
    sys write; 1f; 1
-   fmp floop1
+   jmp floop1
 1: 077012
 
 hangup:
@@ -249,6 +253,7 @@ flush: 0
    law tbuf
    dac opt
    dzm noc
+"** 05-1-4.pdf page 6
    jmp flush i
 
 gcard: 0
@@ -304,6 +309,7 @@ putw: 0
 1: 0
 
 putc: 0
+"** 05-1-4.pdf page 7
    and o177
    dac opt i
    -0141
@@ -364,6 +370,7 @@ connect: 0
    and ilock
    sna
    jmp 1b
+"** 05-1-4.pdf page 8
    law 041
    dac echoch
    law 0102
@@ -425,6 +432,7 @@ retry:
    jms transch
    isz c2
    jmp 1b
+"** 05-1-4.pdf page 9
 
 " put out etx character
 2:
@@ -486,6 +494,7 @@ retry:
    lac opch
    sad o122
    jmp i message
+"** 05-1-4.pdf page 10
    lac distlg
    sna
    jmp discon
@@ -547,6 +556,7 @@ d14: 14
 o400000: 0400000
 o577777: 0577777
 o200500: 0200500
+"** 05-1-4.pdf page 11
 o122: 0122
 o3: 3
 o2: 2
diff --git a/scans/ald.s b/scans/ald.s
index 363e632..12a81fa 100644
--- a/scans/ald.s
+++ b/scans/ald.s
@@ -1,3 +1,4 @@
+"** 05-1-4.pdf page 13
 " ald
 
    law 17
@@ -60,6 +61,7 @@ cloop:
    tad buf+2
    cma
    dac c1
+"** 05-1-4.pdf page 14
    law buf+3
    dac 10
 1:
@@ -86,7 +88,7 @@ cloop:
 holcard: 0
    jms rawcard
    lac 1f
-   dac buff
+   dac buf
    lac 1f+1
    dac buf+1
    lac 1f+2
@@ -121,6 +123,7 @@ bincard: 0
    xor 1f+2
    dac 9 i
    isz c
+"** 05-1-4.pdf page 15
    jmp 1b
    jmp bincard i
 1: 0;0;0
@@ -160,7 +163,7 @@ badcksum:
    lac d1
    sys write; m1; m1s
    jms wait
-   cmp cloop
+   jmp cloop
 
 badseq:
    lac d1
@@ -182,6 +185,7 @@ timeout:
 
 m1:
   <ba>;<d 040; <ch>;<ec>;<ks>;<um>; 012
+"** 05-1-4.pdf page 16
 m1s = .-m1
 
 m2:
@@ -242,6 +246,7 @@ sum: .=.+1
 obuf: .=.+2048
 noc: .=.+1
 opt: .=.+1
+"** 05-1-4.pdf page 17
 systime: .=.+1
 crread: .=.+1
 crchar: .=.+1
diff --git a/scans/apr.s b/scans/apr.s
index 464422b..bf8f84b 100644
--- a/scans/apr.s
+++ b/scans/apr.s
@@ -1,3 +1,4 @@
+"** 05-1-4.pdf page 19
 " apr
 
    lac 017777 i
@@ -60,9 +61,10 @@ floop1:
    dac 017777 i
    lac name
    tad d4
+"** 05-1-4.pdf page 20
    dac name
 
-   sys open; name; ..; 0
+   sys open; name: ..; 0
    spa
    jmp ferror
    dac fi
@@ -72,7 +74,7 @@ ferror:
    lac name
    dac 1f
    lac d1
-   sys write; 1;..; 4
+   sys write; 1:..; 4
    lac d1
    sys write; 1f; 1
    jmp floop1
@@ -99,6 +101,13 @@ cloop:
    jmp pass2
    sad o10
    jmp bksp
+" -------------- sad o11
+"                jmp tab	"tab:
+"                       	"isz eol
+"                       	"lac col
+"                       	"ell: >div; 5
+"                               "jmp tab
+"                       	"jmp ell
    sad o15
    jmp cret
    sad o40
@@ -121,6 +130,7 @@ inb2:
    dac t
    dac crflg
    lac ch
+"** 05-1-4.pdf page 21
    dac t i
    isz col
    jmp cloop
@@ -134,7 +144,7 @@ bksp:
    jmp cloop
 
 cret:
-   czm col
+   dzm col
    jmp cloop
 
 pass2:
@@ -182,6 +192,7 @@ p2loop:
    lac t i
    sad o44
    jmp dol
+"** 05-1-4.pdf page 22
    sad o41
    law 045
    sad o77
@@ -243,6 +254,7 @@ p2test:
 
 getc: 0
    lac ipt
+"** 05-1-4.pdf page 23
    sad eipt
    jmp 1f
    dac 2f
@@ -278,6 +290,7 @@ hangup:
 abort:
    lac d1
    sys write; m2; m2s
+   jmp stop
 
 nofiles:
    lac d1
@@ -303,6 +316,7 @@ m3s = .-m3
 m4:
    <di>;<sc>;<on>;<ne>;<ct>;<ed>;012
 m4s = .-m4
+"** 05-1-4.pdf page 24
 
 stop:
    dpof
@@ -317,7 +331,7 @@ noc: 0
 carrier: 0100000
 ilock: 040000
 totime: 300
-disflg: 0
+disflg: 0	" 2: both cases
 
 casetab:
    2;2;2;2;2;2;2;2
@@ -327,9 +341,9 @@ casetab:
    2;1;2;2;2;0;0;2
    2;2;2;2;2;0;2;2
    2;2;2;2;2;2;2;2
-   2;2;2;2;2;2;2;1
-   0;0;0;0;0;0;0;0
-   0;0;0;0;0;0;0;0
+   2;2;2;2;2;2;2;1	" 0 - 100 case
+   0;0;0;0;0;0;0;0	" 1 - 200 case
+   0;0;0;0;0;0;0;0	" 2 - 300 case
    0;0;0;0;0;0;0;0
    0;0;0;0;0;0;2;1
    2;1;1;1;1;1;1;1
@@ -341,15 +355,15 @@ gcard: 0
    lac gcard i
    isz gcard
    sna
-   jmp gcard i
-   irss 9
-   sad o45
-   jmp 1f
-   jms putc
-   jmp gcard+1
-1:
-   -1
-   tad gcard i
+   jmp gcard i	"circled with 3f written in and to the right:
+   lrss 9	"3: lac noc
+   sad o45	"sna
+   jmp 1f	"jmp gcard i
+   jms putc	"sad d80
+   jmp gcard+1  "jmp gcard i
+1:            	"law 040
+   -1         	"jms putc
+   tad gcard i	"jmp 3b
    cma
    dac 2f
    isz gcard
@@ -364,6 +378,7 @@ gcard: 0
 done:
    lac noc
    sna
+"** 05-1-4.pdf page 25
    jmp 1f
    sad d72
    jmp 1f
@@ -425,6 +440,7 @@ connect: 0
    dac dpwrite
    tad d1
    dac dpchar
+"** 05-1-4.pdf page 26
    dzm dpstat i
    las
    dac opch
@@ -449,14 +465,14 @@ message: 0
    dac stsch
 
 retry:
-   lac dpstat i
+   lac dpstat i	"* lac dpstat crossed through and dpstart written in
    and carrier
    sza
    jmp retry
    dprs
-   and ilock
-   sna
-   jmp hangup
+   and ilock	"* arrow to note carrier drops + iloc
+   sna		"* carrier = 0
+   jmp hangup	"* ilock = 1
    lac d1
    dac dpwrite i
    sys time
@@ -485,7 +501,7 @@ retry:
 " echo the sequence character
    lac echoch
    jms transch
-
+"** 05-1-4.pdf page 27
 " if there is a buffer pointer
 " put out 160 words of data
    -1
@@ -546,6 +562,7 @@ retry:
    and o177
    sza
    jmp error
+"** 05-1-4.pdf page 28
 
 " and exit
    lac seqch
@@ -607,6 +624,7 @@ recvch: 0
 
 checktim: 0
    lac systime i
+"** 05-1-4.pdf page 29
    cma
    tad rctim
    spa
@@ -668,6 +686,7 @@ echoch: .=.+1
 seqch: .=.+1
 tbuf: .=.+144
 rbuf: .=.+64
+"** 05-1-4.pdf page 30
 rctim: .=.+1
 sum: .=.+1
 ch: .=.+1
diff --git a/scans/as.s b/scans/as.s
index 8fc5957..6d2398f 100644
--- a/scans/as.s
+++ b/scans/as.s
@@ -1,3 +1,4 @@
+"** 05-1-4.pdf page 32
 " as
 
    jms init1
@@ -60,6 +61,7 @@ assm3:
    dzm name+3
    jms tlookup
    -1
+"** 05-1-4.pdf page 33
    dac fbflg
 assm4:
    lac rand+1
@@ -121,6 +123,7 @@ init1: 0
 
 init2: 0
    lac d1
+"** 05-1-4.pdf page 34
    dac passno
    sys write; 1f; 2f-1f
    jms init
@@ -181,7 +184,7 @@ finis:
    lac bfi
    sys close
    sys exit
-
+"** 05-1-4.pdf page 35
 n.out:
    0156056;0157165;0164040;040040
 
@@ -243,6 +246,7 @@ proc3:
 proc4:
    jms error; .>
    lac d1
+"** 05-1-4.pdf page 34
    dac dot
    dzm dot+1
    jmp skip
@@ -261,7 +265,7 @@ bufwr: 0
    dac maxsto
    jmp i bufwr
 
-number: 0
+:number: 0
    dac 3f
    lac d1000
    dac 2f
@@ -304,6 +308,7 @@ putsc: 0
    lac i putsc
    dac sctalp
    isz putsc
+"** 05-1-4.pdf page 37
    lac i sctalp
    dac sctal
    add o400000
@@ -365,6 +370,7 @@ copyz: 0
    isz 2f
    jmp 1b
    jmp i copyz
+"** 05-1-4.pdf page 38
 2: 0
 
 error: 0
@@ -426,6 +432,7 @@ ioinit: 0
    dac tal
    -129
    dac talc
+"** 05-1-4.pdf page 39
    jmp i ioinit
 
 nextfil: 0
@@ -487,6 +494,7 @@ gchar: 0
    jms getsc; tal
    sna
    jmp gchar+1
+"** 05-1-4.pdf page 40
    sad o177
    jmp gchar+1
    sad o12
@@ -548,6 +556,7 @@ badchr:
    jms gchar
    lac char
    sad o12
+"** 05-1-4.pdf page 41
    skp
    jmp 1b
    dac savchr
@@ -609,6 +618,7 @@ gnam3:
    dac savchr
 1:
    lac o40
+"** 05-1-4.pdf page 42
    jms putsc; tal1
    isz tal1c
    jmp 1b
@@ -670,6 +680,7 @@ tlookup: 0
 lookup: 0
       dzm tlookup
 1:
+"** 05-1-4.pdf page 43
    -1
    tad namlstp
    dac 8
@@ -731,6 +742,7 @@ lu2:
    -3
    tad 8
    dac rand+1
+"** 05-1-4.pdf page 44
       lac tlookup
       sza
       jmp i tlookup
@@ -792,6 +804,7 @@ exp1:
    jms grand
    lac orator
    sad d4
+"** 05-1-4.pdf page 45
    jmp exp2
    jms oper; rand
    jmp exp1
@@ -853,6 +866,7 @@ opsw:
    jmp .-1
    jmp oplus
    jmp ominus
+"** 05-1-4.pdf page 46
    tad r
    dac r
    lac r+1
@@ -914,6 +928,7 @@ o142: 0142
 o40040: 040040
 o56056: 056056
 o56040: 056040
+"** 05-1-4.pdf page 47
 o146: 0146
 o17777: 017777
 d1000: 1000
@@ -975,6 +990,7 @@ lineno: .=.+1
 fakename: .=.+6
 namlst:
 .=.+4
+"** 05-1-4.pdf page 48
 dot:
 .=.+6
 cmflx:
diff --git a/src/cmd/lcase.b b/src/cmd/lcase.b
index df6c6df..41c6e37 100644
--- a/src/cmd/lcase.b
+++ b/src/cmd/lcase.b
@@ -1,3 +1,4 @@
+/* ** 08-rest.pdf page 4 */
 main $(
    auto ch;
    extrn read, write;
@@ -8,6 +9,7 @@ main $(
             ch = ch + 040;
       if (ch==015) goto loop;
       if (ch==014) goto loop;
+/*  -->------------------------> if (ch == 0177) goto loop; */
       if (ch==011)
        $( ch = 040040;
           write(040040);