Remove trailing garbage in PRUFD source.

src/sysen2/prufd.10

@@ -301,104 +301,3 @@ PAT:	BLOCK 40
 PATCHE=.-1
 
 END BEG
-HAVE AN "EXCESSIVE" NUMBER OF TRACKS?
-	JRST CRLF	;NO
-	PUSHJ P,TAB	;YES
-	MOVE AA,[SIXBIT /??????/]	;FLAG HIM
-	PUSHJ P,SXTYOT	;AS A LOSER!
-	JRST CRLF	;END WITH CRLF
-
-UFDINI:	MOVE AA,MFD(E)	;GET SYSTEM NAME AGAIN
-	PUSHJ P,SXTYOT	;TYPE IT OUT
-	SETZB C,NLINKS	;CLEAR BLOCK COUNT AND LINK COUNT
-	POPJ P,
-;STILL IN ASSEMBLY CONDITIONAL
-
-		;F POINTS TO FILE, HACK WITH IT
-
-HAKFIL:	MOVE A,UNRNDM(F)	;GET THE "IMPORTANT" WORD DESCRIBING FILE
-	TLNN A,UNLINK	;LINK?
-	JRST HF2	;NO
-	AOS NLINKS'	;YES, ANOTHER LINK
-	POPJ P,
-
-		;F POINTS TO REAL FILE (AS OPPOSED TO LINK)
-
-HF2:	ANDI A,17777	;MASK TO CHARACTER ADDRESS OF DESCRIPTION
-	IDIVI A,6	;NOW CALCULATE BYTE POINTER
-	ADD A,HFBPT(AA)	;GET BYTE POINTER IN A
-	ILDB T,A	;GET CHARACTER
-	XCT HF2TB(T)	;DO SOMETHING
-	TRNE T,40
-	IBP A
-	AOJA C,.-4	;INCREMENT BLOCK COUNT AND LOOP
-
-		;TABLE OF THINGS TO DO WITH CHARACTERS
-
-HF2TB:	POPJ P,				;0 => DONE
-	REPEAT 12.,ADDI C,.RPCNT	;1 - 12. => TAKE THAT MANY (N-1 NOW, 1 LATER)
-	REPEAT 30.-13.+1,JFCL		;13. - 30. => TAKE 1
-	POPJ P,				;31. => DONE
-	REPEAT 40,IBP A			;32. - 63., READ NEXT CHAR. AND TAKE A BLOCK
-
-		;TABLE OF BYTE POINTERS (FOR ILDB'ING) TO DESCRIPTOR AREA
-
-HFBPT:	POINTI 6,UFD+UDDESC
-
-		;DONE
-
-PRDUN:	PUSHJ P,CRLF	;SEPARATE THIS CRUFT FROM PREV. WITH CRLF
-	IRPS TYP,,[BLOCKS LINKS]LOC,,[NFBLKS TNLKS]
-	MOVE AA,[SIXBIT /TYP/]
-	PUSHJ P,SXTYOT
-	MOVE A,LOC
-	PUSHJ P,DECTYO
-	PUSHJ P,CRLF
-	TERMIN
-	MOVEI A,14
-	PUSHJ P,TYO
-	.CLOSE LPTC,
-	POPJ P,
-
-]	;END IFE PROG, CONDITIONAL
-
-IFE PROG-1,[	;LIST ALL FILES ON PACK
-
-PACK:	-1		;INSERT PACK NUMBER HERE FROM DDT
-
-;ROUTINES:
-	;PRINI	;INITIALIZE
-	;UFDINI	;INITIALIZE FOR THIS USER DIRECTORY
-	;HAKFIL	;PROCESS FILE
-	;UDIRDN	;DONE WITH THIS USER DIRECTORY
-	;PRDUN	;DONE
-
-PRINI:	SKIPGE PACK	;CHECK PACK NUMBER FOR VALIDITY
-NOPACK:	.VALUE		;NO PACK NUMBER SPECIFIED
-	.OPEN LPTC,[1,,SIXBIT /   LPTPRUFD WPAPER/]
-	.VALUE
-	INSIRP PUSHJ P,[PAKTYP TIMTYP PAKTYP]
-	JRST CRLF
-
-PAKTYP:	MOVE AA,[SIXBIT /PACK/]
-	PUSHJ P,SXTYOT
-	MOVE A,PACK
-	JRST DECTYO
-
-UFDINI:	SETOM FILCT'	;INITIALIZE FOR USER DIRECTORY: SET SWITCH (MAYBE DON'T PRINT ANYTHING FOR THIS USER)
-	POPJ P,
-
-HAKFIL:	LDB T,[UNPKN,,UNRNDM(F)]	;GET PACK NUMBER
-	CAME T,PACK	;SKIP IF ON PACK BEING CHECKED
-UDIRDN:	POPJ P,		;NOT ON THIS PACK (ALSO ROUTINE FOR DONE WITH THIS DIRECTORY)
-	AOSN FILCT
-	PUSHJ P,HAKFII	;THIS FIRST RELEVANT FILE THIS DIRECTORY
-	MOVE A,UNRNDM(F)
-	TLNN A,UNIGFL	;CHECK TO SEE IF FILE REALLY THERE
-	SKIPA A,SPACE	;YES
-	MOVEI A,"*	;NO
-	PUSHJ P,TYO
-	MOVE AA,(F)	;FN1
-	PUSHJ P,SXTYOT
-	MOVE AA,1(F)	;FN2
-