PDP-10 Archive: stanford/ftp/ftpdef.unv from SRI_NIC_PERM_SRC_3

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - stanford/ftp/ftpdef.unv

There are no other files named ftpdef.unv in the archive.

x
,Q@P B@ C&9: P 
	EXTN ABpTLOC		
	SETOM ABTLOC		
ETOM ABC&:t 0 
	EXTN ABPTLOC		
	SKIPE ABTLOC		
KIPE ABCC[R )"J
	DEFINE ) A(XX,MORE) <XX A,<B,MORE>>
D@ F@ G"^i1 ~0{
	IF2,<IF~PN <.-A-VECSIZ>,<~p
		PRINTX % Vector length does no0t match expected length>>
cted G3W p 
	EXTN .CLRAB		
	JSP CX,.CLRAB		
P CX,.G3K7 0 C
	MOVX A,P<.FHSLF,,.TIMAL>	p
	TIMER%			
	 FATAL <Couldn't cl0ear timeout interrupt>
ut interG;@@ GHP G`@ H@ I`P ?ISN	  ."pUTYPE [ASCIZ A]TYPE [ASCK

t<@P K

t<VP K

vLWP K>`P KJn9` :0#W
	EXTN .E:PRMSG
	ETYPE <A :p- %J>,<JRST .ERMSG>
<JRST .ERMSKJn9q <0#g
	EXTN .E<PRMSG
	ETYPE <A><p,<JRST .ERMSG>
<JRST .ERMSG>
KJn9| ;0#_
	EXTN .E;PRMSX
	ETYPE <A>;p,<JRST .ERMSX>
<JRST .ERMSX>
KJu| 3P#ERJMP .+1ERJMP .+1KSN	  .("xdHUETYPE [ /B
					ASCIZ \A\ ]			ASCIZ \A&%"NOPQ LKcR )`"V
	DEFINE *OPMAC(A,ITEM) <IR* P ITEM <IFNB <ITE*@M>,<B>>>
	A(OP*`MAC)
	PURGE OPMAC

	PURGE OPMAKc%` pIFNDEF A,<EXTERN A> A,L@ L

-P L

-P$L@LzQ L;wQ LKsQ  L|Q LJ6Q @L$[Q L&:sP!L<]Q LMiP LMj1Q @Le}yQ Ln[SQ Lt<SP Lt<vQ  LuKsQ Lv

SP Lv;2Q @Lv=Q @L9:Q LZ:Q  L[QQ @LH:Q LN7P  L$[8P @L.	P L.	Q M$ %P"3
	EXTN SC%pREW		
	CALL [ HR&ROI B,[ASCIZ\Fata&0l - A\]
	       JRST SCREW ]
M6<[P MP M4tpP M4ulP M4vI6P M4v[YP M@@ MSi9P M`@ OZP OL @!aaH
	.PSECT pGDATA
	A:: BLOCK B	
	.ENDPS GDATA
	.ENDPSXGD&S$\Y  !	
	SKTERS@ A		
    IFNB <`B>,<IFSKP. <B>>	
    IFB <B>,<IFSKP.>		
B>,<S4\Q !	
	SKVERB  A		
    IFNB <@B>,<IFSKP. <B>>`	
    IFB <B>,<IFSKP.>		
B>,<S;] 6P#O
	..ISET=6p=-1			 
	IRP B,7<			 
		..IST0==700		 
		IFL ..ISE7PT,<..ISET==B	 
7p			    ..IST0==1>8	 
		IFE ..IST0,80<CAIE A,..ISET
8P			     CAIN A,8pB
			      C	 
			    ..ISET==-901>> 
	IFGE ..ISE9PT,<CAIN A,..ISET9p	 
		      C>		 
	      C>		S?@ U\s =0#o
	EXTN .E=PRMSJ
	ETYPE <A>=p,<JRST .ERMSJ>
<JRST .ERMSJ>
UH6 '0"Db
	EXTN SC'`REW		
	ERCAL [ H(RROI B,[ASCIZ\Fat( al - A\]
	     (@  JRST SCREW ]
 JRST SCREW ]
&aX&JSYSerrorHVVMj:P#pV+zP!VH:P @V4\YP$V<H:P  WH U%&
	[ IFNB UH<C>,<CM%FW!C>
Th	  ASCIZ \A\ ] ,, B
 \A\ ] ,W@ Wdy 
  \
	A GET,
@KF.GET		; KEEP on
` GET
	A RENAME,KF.REN	; KEEP on  RENAME
	A SEND,@KF.SND		; KEEP on SEND
 KEEP onX]P XH:P!XDL@P XD[P  XtJ9P XupP X|:P X~]P X+zP @XZ:P XH:P  XRP"X%2P X'P$X4\QP&h@X<H:P @YP YL  !Ga
	.PSECT PDATA
	A:: BLOCKp B	
	.ENDPS DATA

.ENDPS DAT&	!>1YO P!Va
	.PSECT DATPAG
	..SIZE== 1000*B
	A:: BL@OCK ..SIZE	
	PUR`GE ..SIZE
	.ENDPS DATPAG
.ENDP&
!I1[<` K`%
	XN RETRL , 1,<Retrieve>
	LXN STOR, 2,<StoreL`>
	XS YES,  3,<YL@es>
	XS NO,   4,M<No>
	XN FILE, 5M(,<Here-is-file>,NMHFETCH
	XN EOC,  Mh6,<End-of-commandN>,NFETCH
	XN COMN(M, 7,<Comment>
	NHXS VERS,10,<VersiNhon>
	XN NSTO,11,O<New-store>
	XN O(DIR, 12,<DirectorOHy>
	XN PLST,13,<OhHere-is-property-Plist>
	XN YUSR,1P(4,<You-are-user>
	XN ABOR,15,<AboPhrt>
	XN DELE,16,Q<Delete>
	XN RENQ(A,17,<Rename>
	XQHN SMAI,20,<Store-Qhmail>
	XN RMAI,2R1,<Retrieve-mail>R(
	XN FMAI,22,<FlRHush-mail>
	XS MBRhEX,23,<Mailbox-exception>
ox-ex[tUP [t+P [t;8P [v=P [u	:P [uySP [u{@P [vJP [vK8P [.

+yP [.{6P [.$[P [.%@P [.-x`P [.5P [.5X4P 	[.l)<P 	[.upP [.v=P [/LzP [/L@ 5#1		; Make s50ure we have a sta5Pndard byte pointe5pr
	TLC A,-1
	T6LCN A,-1
	 HRLI A,(POINT 7)
[/[PP [/]P [/X4P [/X4P [/KyP [/4\YP [/L\`P [/N\yP ]n=P w]}kYP 2]6<[P ].HtQ  ]~*yP ]6*yP 	]>N9  Xx%Q
	EXTN .CYOMND		
	MOVEI B,Y8[FLDDB. .CMNOI,,<YX-1,,[ASCIZ\A\]>]Yx
	CALL .COMND
	Z ERMSG <Invalid guide word>
d g]>N9) ZX%e
	EXTN .CZxOMND		
	MOVEI B,[[FLDDB. .CMNOI,,<[8-1,,[ASCIZ\A\]>,[X,,[
		 FLDDB. .C[xMNOI,,<-1,,[ASCIZ\\B\]>]]
	CALL .\8COMND
	 ERMSG <I\Xnvalid guide word>
d guide word]N.-YP _LrP _LtZP _LtI1P _LtKyP _Lt[P _Ltm=P _LuP _LuX<@ _Lu[P _Lu]P _Lui:P _LvDHP _LvH1P _LvJ8P _Lv[UP _Lv[\P _Lvk9P `@ `:]P `:P

`:H:P `:h6P

`:

{P]P `:%RP %`:-{P 1`:>

ZP 2`:mH\P 2`:t1P 2`:|:P J`:~

ZP V`;KzP V`;+zP W`;yP V`;H:P W`;j6P }`;RP "`;iP X`;$lVP "`;%[rP #`;'P #`;,qP $`;,zP $`;-h6P 0`;.

{P 1`;4\YP =`;<H:P =`;D.:P >`;FN8P >`D@ `H@ a@ a
,z7 @!
	.PSECT `A,B	
BA::BLOCK 0		
	PA==:BA _-^D9	
	.ENDPS A		

	.ENDPS a
DX2@ adX9  !6
	EXTN P@A		
	EXTN LA		
	HRLZ B,B		
	HRRI B,PA		
	SET O A,			
	MOVX C,@<PM%CNT!<1+LA-P`A>> 
	PMAP%			
> 
	PMAP%			
at@ `!&
    IRP A,<
	.PSECT A	 	
	ZA=:.-1		
	@LA==:ZA_-^D9	
`	.ENDPS A		
    >
S A		
Y9a3RP$?a:
	X AUTH,>P<AUTHOR>,USRSTL/5>p+1
	X BYTE,<BYTE?-SIZE>
	X CNAM,<?0CONNECT-NAME>
	X?P CPSW,<CONNECT-PA?pSSWORD>,USRSTL/5+@1
	X CDAT,<CREAT@0ION-DATE>
	X DEV@PI,<DEVICE>,USRSTL@p/5+1
	X DIRE,<DIARECTORY>,USRSTL/5A0+1
	X EOLC,<END-APOF-LINE-CONVENTIOApN>
	X GPRT,<GROUBP-ACCESS>,0
	X MB0LBX,<MAILBOX>,0
BP	X NAMB,<NAME-BODBpY>,NAMSTL/5+1
	XC OAUT,<ORIGINAL-AC0UTHOR>,USRSTL/5+1CP
	X OPRT,<OWNER-CpACCESS>,0
	X PLODT,<PLOT-FILE>
	XD0 PWDT,<PREVIOUS-WDPRITE-DATE>
	X PRDpOT,<PUBLIC-ACCESSE>
	X RDAT,<READ-E0DATE>
	X SNDR,<SEPENDER>,SFNSTL/5+1Ep
	X SFIL,<SERVERF-FILENAME>,SFNSTLF0/5+1
	X SIZE,<SIFPZE>
	X TFRM,<TCPFp-FORMAT>	
	X TMOGD,<TCP-MODE>	
	XG0 TYPE,<TYPE>
	X GPUACC,<USER-ACCESSGp>,0
	X UACT,<USEHR-ACCOUNT>,USRSTLH0/5+2
	X UNAM,<USHPER-NAME>
	X UPSWHp,<USER-PASSWORD>,IUSRSTL/5+1
	X VEI0RS,<VERSION>
	X IPWDAT,<WRITE-DATE>Ip
	X XBYT,<XXX-BYJTE-SIZE>	
	X XTYP,<XXX-TYPE>	
a>eZP aG-}P aJ}\ Wh%Cdp
	EXTN CMXDBLK		
	HRROI BX8,A
	MOVEM B,CMDBLK+.CMRTY
CM&'%:CXaRNK p")	
	PBEGIN CODE,1000	
	PBE0GIN GDATA,70000	
	PBEGIN DATA,100p000	
	PBEGIN DATPAG,120000	

	T0TITLE (A,B)	
P
EVEC::	JRST STARpT		
	JRST REENTR 		
	BYTE (3)VWHO 0 (9)VMAJOR (6)VMI PNOR (18)VEDIT
EV pECL==:.-EVEC			
!
DEFINE VERSTR (!0MAJ,MIN) <ASCIZ\M!PAJ'.'MIN\>
VERTX!pT::VERSTR(\VMAJOR",\VMINOR)	
				
VERDAT::0			
VE"PRWHO::BLOCK 10		
VERHST::BLOCK 10#		

SAVNAM::ASC#0IZ\A.EXE\	
PRGN#PAM::ASCIZ\A\		
#p
	.TEXT "A/SAVE$"	
	.TEXT "/HASH$0SIZE:12007"
 	.T$PEXT "/SYMSEG:PSEC$pT:CODE" 
	.REQUI%RE SYS:MACREL	
E SYS:MACREL	
eO&  2P#
   IRP 2pA,<POP P,A>		; R3ecover stuff from stack
ff fromg4P 1P#
   IRP 1pA,<PUSH P,A>		; 2Save stuff on stack
tuff on stagi9 ]%o
	X(FTP,3]8,FTPSRV)		; FTP s]Xerver
	X(Mail,7,]xMALSRV)	; Mail server
; Mail seg$W 0 	
	EXTN .PSETAB		
	EXTN ABpTLOC		
	JSP CX,.SETAB		
	XMOVEI 0CX,A		
	MOVEM CX,ABTLOC		
M Cgv=P 8g#EZP g/$\Y   |	
	EXTN V@RBSTY		
IFN <A-`VB.DEB>,<JN F%STYO,F,b+1> 
	MOVE  CX,VRBSTY		
	CA@IL CX,A		
b:!
CX,A		
b:!Q

 n		
	EXTN

 VRBSTY		
	MOVE C

@X,VRBSTY		
    I

`FN <A-VB.DEB>,<
	CAIL CX,A		
	XNE F,F%STYO		
    >
`A-VIFEE<<CAIGE CX,A>
<CAIGE gK49  !<
	.ENDPS
	.PSECT CODE		
.PSECT CODE		
gRP gXtmP gXuX6P h%uP  h%|P hDtP hMX3P"h])WP @hvJ1P$hv[P!hrP h[RP h$[8P iI  Uh%.			
	0			
	..T==.			
	it@ V(%8			
	..U=VH=.			
	RELOC ..TVh-1		
	..U-..T,,.W.U-..T	
	RELOC ..U		

	RELOC .i6|; P 7
	CLRTMO	p		
	CLRABORT		

	CLRABORT		
i6~9:  1
	EXTN AB0TCHN		

	SETABOPRT(B)		
	MOVX Ap,<.FHSLF,,.TIMEL>	
	MOVX B,^D<A>0		
	MOVX C,ABTCHPN		
	TIMER%			
p	 FATAL <Couldn't set timeout interrupt>
ut inteiPt*7P iPtJ9P iPtXQP iPu3P iPuY4P iPv3P iPvNP iPv[YP iRNK P!k	
	TITLE pAB
	SEARCH MONSYM,MACSYM
	SALL0
	.PSECT CODE

	.PSECT CODE
igP -"hUTYPE [ASCIZ \A\]PE [ASCk' k&  `kBr 4#%		; Make a40 character upperc4Pase
	TRNE A,100
	 TRZ A,40
kO=P ;kSN	   kVx + "d
	UUON==U+@UON+1
	OPDEF A +`[<UUON>B8]
IFB <,B>,<UUOS(APPEND,, %A)>
IFNB <B>,,@<UUOS(APPEND,B)>
S(APPEND,B)>kV}`P kV~0 -h&"A UUOS,<,d%UTYPE,%UWRITE,%Ud(FTPM,%UETYPE,B>P@L.	Pk_ @l@ mtI1P mt]QP mulVP mv<[P mvLYP mvlQP m:=P o%ZP oJNI  - #	
	IFNB </PB>,<UWRITE A,[AS0pCIZ \B\]>
	IFB 1<B>,<UWRITE A,[ASCIZ \A\]>
[Ap 0 %s
	SV.C==^8NSERVS
	NSERVS==NSERVS+1
ZE==Pq8 S(%
	MKA==SHB
	NMARKS==NMARKS+1
RKS==NMARKqL T%"
	MKA==T(B
	NMARKS==NMARKS+1
RKS==NMARK5H3P e|rP S@P <J9P -IVP N)1P 2|z7P ?[@P ?>9P B,uP CZP G-}P J,=@P J-h6P N$YYP N-iP O$P V6LP >}{woP