X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v1.19.git/blobdiff_plain/f3e418cdd4a888df5976f9169871aac2e09d472d..master:/src/pip.mac

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