.ENABLE SUBSTITUTION
	.ENABLE ESCAPE
	.SETS X ".;"
.;
.; MODIFIED:
.;	L. M. FRASER		2-MAY-80	FOR RSX11M-PLUS
.;	L. M. FRASER		1-JUL-80	PARAMETER INPUT SINGLE PASS
.;
.; PARAMETERS
.;	P1	- FILESPEC TO BE PROCESSED
.;	P2	- FILE NAME FOR OUTPUT LISTING FILE
.;	P3	- FLAG TO INCLUDE ANNOTATION SPACE AT END OF DIRECTORY
.;
	.IF P1 NE "" .GOTO LIST
;
;   P I P L S T . C M D
;
TIM
.TOP:
'X'
'X' THIS COMMAND FILE IS USED TO:
'X'
'X'	1. REQUEST A DEVICE AND UIC.
'X'	   IF <CR> EXIT.
'X'
'X'	2. ISSUE A PIP REQUEST FOR 
'X'	   A DIRECTORY LISTING.
'X'
'X'	3. ISSUE A REQUEST FOR TECO
'X'	   WITH AN INDIRECT COMMAND
'X'	   FILE ''PIPLST.TEC'' AND AGAIN
'X'	   WITH ''PIPTB.TEC''
'X'
'X'	4. ISSUE A REQUESTS FOR FLY.
'X'
'X'	5. DELETE THE TEMP FILES AND
'X'	   RETURN TO START FOR ANOTHER
'X'	   ENTRY.
'X'
'X'
'X' MAIN LOOP IS HERE
'X'
.START:
	.ASKS DEVUIC ENTER DEVICE AND UIC
	.IF DEVUIC EQ "help" .SETS DEVUIC "HELP"
	.IF DEVUIC EQ "HELP" .SETS X ";"
	.IF DEVUIC EQ "HELP" .GOTO TOP
	.IFT <ESCAPE> .SETS X ";"
	.IFT <ESCAPE> .GOTO TOP
	.IF DEVUIC EQ "" .GOTO END
'X'
'X' CREATE LISTING FILE
'X'
.LIST:	.IF P1 NE "" .SETS DEVUIC P1
	PIP PIP.LST='DEVUIC'/LI
	.SETS TMP " "
	.IF P3 NE "" .SETS TMP P3[1:1]
	.IF TMP EQ "Q" .ENABLE QUIET
	.SETF ANNOT
	.IF TMP EQ "A" .SETT ANNOT
'X'
'X' EXTRACT LISTING FILE INFORMATION
'X'
	.SETF REMTEX
	.IFNINS ...TEX .SETT REMTEX
.; SELECT PROPER LINE BELOW FOR OPERATING SYSTEM
.;	.IFNINS ...TEX INS $TEC/TASK=...TEX/PRI=20.
	.IFNINS	...TEX INS $TECFSL/TASK=...TEX/PRI=20.
	.IFT ANNOT TEX @LB:[1,2]PIPLSTANN
	.IFF ANNOT TEX @LB:[1,2]PIPLST
	TEX @LB:[1,2]PIPTB
'X'
'X' RE-FORMAT OUTPUT INTO MULTIPLE COLUMNS
'X'
	.SETF REMFLY
	.IFNINS ...FLY .SETT REMFLY
	.IFNINS ...FLY INS LB:$FLY
	FLY PIP.LST=PIPLST.LST/CL:5/-SP/TR/NH
	FLY PIP.TMP=PIPTB.LST/CL:4/-SP/TR/NH
'X'
'X' DELETE TEMPORARY FILES
'X'
	PIP PIP.LST=PIP.TMP/AP
.; SELECT PROPER SET OF COMMANDS BELOW FOR OPERATING SYSTEM
.;
.;  RSX11M V3.2
.;	.IF P2 NE "" PIP 'P2'.LST/RE=PIP.LST
.;	.IF P2 NE "" PIP 'P2'.LST/SP
.;	PIP PIP.LST/SP
.;
.;  RSX11M-PLUS
	.IF P2 EQ "" PRINT/NAME:PIPLST PIP.LST
	.SETN LENG 6
	.TEST P2
	.IF <STRLEN> LT 6 .SETN LENG <STRLEN>
	.IF P2 NE "" .SETS P2 P2[1:LENG]
	.IF P2 NE "" PRINT/NAME:'P2' PIP.LST
.;
	PIP PIPTB.LST/PU,PIPLST.LST
	PIP PIP.TMP;*/DE
	.DISABLE QUIET
	.IF P1 NE "" .EXIT
'X'
'X' LOOP FOR MORE DEVICES AND/OR UICS
'X'
	.SETS X "'X'"
	.GOTO START
.END:
	.IFT REMTEX REM TEX
	.IFT REMFLY REM FLY
	PIP PIP.LST/PU
;