NETRFC - serve ARPANET connections.

src/sysen2/netrfc.3

@@ -0,0 +1,47 @@
+	TITLE	NETRFC BOOTSTRAPPER
+.MLLIT==1
+A=1
+B=2
+Q=16
+
+BEG:	MOVE	A,[SQUOZE 0,IMPBPQ]
+	.EVAL	A,
+	 JRST	ENDQ
+	MOVE	Q,A
+NEXTQ:	MOVSS	Q
+	HRRI	Q,Q
+	.GETLOC	Q,
+	JUMPL	Q,ENDQ		;-1 IS END OF LIST
+	MOVSI	A,1(Q)
+	HRRI	A,A
+	.GETLOC	A,		;GET SLOT 1, LCL SOCK
+	CAIL	A,1000		;SKIP IF SHOULD SIGNAL
+	 JRST	NEXTQ		;JUMP TO TRY ANOTHER ONE
+	DPB	A,[000300,,LOGNAM] ;STASH IN 'RFC000
+	LSH	A,-3
+	DPB	A,[060300,,LOGNAM]
+	LSH	A,-3
+	DPB	A,[140300,,LOGNAM]
+	.CALL	[SETZ ? 'DEMSIG ? LOGNAM ? SETZ [-1]]
+	 JRST	NORFC		;FAIL-LEAVE TRAIL
+	JRST	ENDQ
+
+NORFC:	MOVSI	A,3(Q)		;SLOT 3, HOST CALLING
+	HRRI	A,A
+	.GETLOC	A,
+	LSH	A,-8		;GET HOST #
+	DPB	A,[000300,,TRMNAM]
+	LSH	A,-3
+	DPB	A,[060300,,TRMNAM]
+	LSH	A,-3
+	DPB	A,[140300,,TRMNAM]
+	.CALL	[SETZ ? 'LOGIN_6 ? LOGNAM ? SETZ TRMNAM]
+	 JFCL			;DONT SVEAT IT
+ENDQ:	.LOGOUT
+	.VALUE
+
+LOGNAM:	'RFC000
+TRMNAM:	'HST000
+
+	END	BEG
+