Cleanup of typos.

[retro-software/dec/tops10/v1.19.git] / src / pip.mac

diff --git a/src/pip.mac b/src/pip.mac
index d789804..a62369f 100644 (file)
--- a/src/pip.mac
+++ b/src/pip.mac
@@ -2486,7 +2486,7 @@ DTALST:   PUSHJ   P,DTCHECK       ;CHECK FOR DTA INPUT-MUST BE DECTAPE AND
        LDB     T1,[POINT 5,16(T5),14]\r
        CAIE    T1,36           ; SKIP DIR HEADER IF\r
        JRST    PDIR1B          ; DECTAPE HAS NO PROTECTION\r
-       LSTLIN  HEDL1           ; PRINT HEADER\r
+;      LSTLIN  HEDL1           ; PRINT HEADER\r
        MOVE    T2,DTAID\r
        JUMPE   T2,DTALS4\r
        MOVEI   T2,5            ; CHARACTER COUNT\r
@@ -2621,7 +2621,7 @@ IFN WCH,<
        HRRZ    T1,IBF\r
        SUBM    T5,T1\r
        LDB     0,[POINT 9,DBUF+200(T1),8]\r
-       PUSHJ   P,PROTO         ; OUTPUT PROTECTION\r
+;      PUSHJ   P,PROTO         ; OUTPUT PROTECTION\r
 PDIR3B:\r
 IFE WCH,<\r
        MOVE    0,151(T5)       ;GET ENTRY DATE>\r
@@ -3199,6 +3199,8 @@ INMTA1:   BLOCK 1
 MTANAM:        BLOCK 2\r
 MATCH: BLOCK   2       ;NAME AND EXT FOR /L OR (RX)\r
 RENSN: BLOCK   1       ;-1 IF RENAME MESSAGE SEEN\r
+DTBLK: BLOCK 1         ; OPEN DTA DIRECTORY BLOCK\r
+DTDEV: BLOCK 2         ; SIXBIT /DTAN/\r
 \r
 \fSUBTTL        RIM LOADER\r
 IFE RIMSW,<\r
@@ -4035,8 +4037,6 @@ LIN:      BLOCK 1                 ;COUNT FOR DSK DIR LIST
 UFDIN: BLOCK 3                 ;HEADER FOR READING DISK DIRECTORY\r
 UFD:   BLOCK 4                 ;[P,P] OR *FD*\r
                                ;UFD OR SYS\r
-DTBLK: BLOCK 1         ; OPEN DTA DIRECTORY BLOCK\r
-DTDEV: BLOCK 2         ; SIXBIT /DTAN/\r
 IFN DISK30,<\r
 BLKHD: BLOCK 3                 ;HEADER FOR READING BLOCKS OFF 10/30 DISK\r
 MASK:   BLOCK 1                        ;PROJ,PROG # 10/30 DISK>\r