Merge branch 'master' of https://github.com/DoctorWkt/pdp7-unix

src/cmd/adm.s

@@ -62,7 +62,7 @@ floop1:
    -1
    tad name
    dac 8
-   r4
+   -4
    dac c1
 1:
    lac 8 i
@@ -583,4 +583,4 @@ dpon = 0704701
 dpof = 0704704
 dpwc = 0704722
 dpop = 0704764
-dprs = 0704752
+dprs = 0704752

src/cmd/apr.s

@@ -681,4 +681,4 @@ dpon = 0704701
 dpof = 0704704
 dpwc = 0704722
 dpop = 0704764
-dprs = 0704752
+dprs = 0704752

src/cmd/as.s

@@ -248,8 +248,8 @@ proc3:
 proc4:
    jms error; .>
    lac d1
-   dac dot		" set '.' type to 1
 "** 05-1-4.pdf page 36
+   dac dot		" set '.' type to 1
    dzm dot+1		" clear dot value
    jmp skip