1) FTPSER.FAI[S,NET] and 2) FTPSER.JMR[S,NET]	1-01-89 13:36	pages 2,1

**** File 1) FTPSER.FAI[S,NET]/2P/63L
1)	History:  end of comment ⊗ 
**** File 2) FTPSER.JMR[S,NET]/1P/62L
2)	01 Jan 89 JMR	Made NLST send full file specifications, with device and PPN.
2)	History:  end of comment ⊗ 
***************


**** File 1) FTPSER.FAI[S,NET]/2P/209L
1)	QUOTEF←← 40		;QUOTED STRING IN PROGRESS
**** File 2) FTPSER.JMR[S,NET]/1P/210L
2)	NLSTFL←← 400		;DO OPERATION IS NLST AS OPPOSED TO LIST
2)	QUOTEF←← 40		;QUOTED STRING IN PROGRESS
***************


**** File 1) FTPSER.FAI[S,NET]/16P/3L
1)	NLST:
1)	LIST:	SKIPE DOACTV			;THIS CHECK MUST BE THE FIRST THING
1)		JRST RETRX0
1)		TLO FLG,LISTFL			;SET FLAG
1)		JRST STAT1
**** File 2) FTPSER.JMR[S,NET]/15P/3L
2)	NLST:	SKIPE DOACTV			;THIS CHECK MUST BE THE FIRST THING
2)		JRST RETRX0
2)		TLO FLG,LISTFL+NLSTFL		;SET FLAGS FOR NLST
2)		JRST STAT1
2)	LIST:	SKIPE DOACTV			;THIS CHECK MUST BE THE FIRST THING
2)		JRST RETRX0
2)		TLO FLG,LISTFL			;SET LIST FLAG
2)		TLZ FLG,NLSTFL			;CLEAR NLST FLAG
2)		JRST STAT1
***************


**** File 1) FTPSER.FAI[S,NET]/16P/176L
1)	LISTIT:	MOVE B,STAFL1			;PUT OUT A FILESPEC ON DATA LINK
1)		PUSHJ P,PUT6
**** File 2) FTPSER.JMR[S,NET]/15P/181L
2)	LISTIT:	TLNN FLG,NLSTFL		;Only put out device name if NLST.
2)		JRST LISTI0
2)		MOVE B,STADEV
2)		PUSHJ P,PUT6
2)		MOVEI A,":"
2)		PUSHJ P,PUT1
2)	LISTI0:	MOVE B,STAFL1			;PUT OUT A FILESPEC ON DATA LINK
2)		PUSHJ P,PUT6
***************


**** File 1) FTPSER.FAI[S,NET]/16P/183L
1)	LISTI1:
1)	REPEAT 0,<		; TENEX DOES NOT INCLUDE THE DIRECTORY NAME,
1)				; AND THIS FUCKS TOPS-20 UP THE ASS!
1)		MOVEI A,"["
**** File 2) FTPSER.JMR[S,NET]/15P/194L
2)	LISTI1:	TLNN FLG,NLSTFL		;Only put out the PPN if NLST.
2)		JRST LISTI2
2)		MOVEI A,"["
***************


**** File 1) FTPSER.FAI[S,NET]/16P/196L
1)	>;END REPEAT 0
1)		MOVEI A,15
1)		PUSHJ P,PUT1
**** File 2) FTPSER.JMR[S,NET]/15P/206L
2)	LISTI2:	MOVEI A,15
2)		PUSHJ P,PUT1
***************