Cleanup typos.

[retro-software/dec/tops10/v4.5.git] / src / copy.mac

diff --git a/src/copy.mac b/src/copy.mac
index 3a2533b..cfad827 100644 (file)
--- a/src/copy.mac
+++ b/src/copy.mac
@@ -605,7 +605,7 @@ ERRCMD:     MOVEI   BP,MESCMD
 MESCMD:        SIXBIT  /?COMMAND ERROR#/\r
 ERRSW: MOVEI   BP,MESSW\r
        PUSHJ   P,TYPEIT\r
-       JRST    ST\r\r\r
+       JRST    ST\r
 MESSW: SIXBIT  /?SWITCH ERROR#/\r
 ERRIN1:        SKIPA   T,IDEV\r
 ERRIN2:        MOVE    T,ODEV\r
@@ -776,7 +776,7 @@ COPOUT:     OUTPUT  2,LISTC         ;COPY AND ZERO
        PUSHJ   P,VERIFY                ;VERIFY AND EXIT THIS PAGE\r
 VERONE:        SETSTS  1,136           ;SET\r
        SETSTS  2,136           ;DUMP MODE\r
-       MOVEI   LOC,1           ;START AT BLOCK 1\r\r\r
+       MOVEI   LOC,1           ;START AT BLOCK 1\r
 VERSET:        MOVE    V1,LISTV1       ;IOWDS\r
        MOVE    V2,LISTV2       ;TO ACS\r
        USETI   1,(LOC)         ;MASTER\r
@@ -873,7 +873,7 @@ NEWBLK:     PUSHJ   P,GETWRD        ;GET ONE WORD FROM PTR FILE
        CAIN    TYPE,1          ;BLKTYP=1?\r
        PUSH    I,W             ;YEP, SAVE THE BITS\r
        CAIG    TYPE,7          ;ILL-BLK-TYP?\r
-       JRST    @TYPTAB(TYPE)   ;NO, OFF TO BLOCK HANDLER\r\r\r
+       JRST    @TYPTAB(TYPE)   ;NO, OFF TO BLOCK HANDLER\r
 \r
 TTCALL 3,[ASCIZ /?ILLEGAL BLOCK TPYE\r
 /]\r
@@ -950,7 +950,7 @@ BLK4A:      HRLI    CNT,-22         ;
        TRNN    CNT,-1          ;\r
        JRST    NEWBLK          ;\r
        PUSHJ   P,GETWRD        ;\r
-       AOBJN   CNT,BLK4A+1     ;PASS/IGNORE \r
+       AOBJN   CNT,.-1         ;PASS/IGNORE \r
        TRNN    CNT,-1          ;\r
        JRST    NEWBLK          ;\r
        PUSHJ   P,GETWRD        ;\r