diff --git a/scans/ds.s b/scans/ds.s
index d6d2ea2..3405ffd 100644
--- a/scans/ds.s
+++ b/scans/ds.s
@@ -67,7 +67,7 @@ loop:
    jmp 1b
 
    lac ddfilp
-   tad i1
+   tad d1
    dac i1
    lac i1 i
    dac .+3
@@ -111,7 +111,7 @@ loop:
    dzm fflg
    law fbuf
    dac i2
-   r1
+   -1
    tad nfiles
    cma
    dac c2
@@ -126,7 +126,7 @@ loop:
    -1
    tad i1
    dac i3
-   iac i3 i
+   lac i3 i
    dac c3
    law fbuf
    dac i3
diff --git a/src/cmd/ds.s b/src/cmd/ds.s
index adac31b..474e48e 100644
--- a/src/cmd/ds.s
+++ b/src/cmd/ds.s
@@ -72,7 +72,7 @@ loop:
    jmp 1b
 
    lac ddfilp
-   tad i1
+   tad d1
    dac i1
    lac i1 i
    dac .+3
@@ -382,7 +382,7 @@ octal: 0
    lac octal i		" Save the actual number of print digits into c
    dac c		" as a negative number.
 1:
-   cla
+   ecla
    llss 3		" Shift 3 more bits into AC
    tad o60		" Add AC to ASCII '0'
    jms putc		" and print out the digit