perm filename TSTSER.MID[S,NET] blob sn#820028 filedate 1986-06-27 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	X PDL TSTSER ECHLUP SUICID ...LIT SVRRTS ERRTNS ERRHAN ERRINS
C00004 ENDMK
CāŠ—;
;X PDL TSTSER ECHLUP SUICID ...LIT SVRRTS ERRTNS ERRHAN ERRINS

TITLE TSTSER
SUBTTL Definitions

; Mark Crispin, SU-AI, September 1978

; Assembly switches

IFNDEF SVRSKT,SVRSKT==19.		; default listen socket
IFNDEF PDLLEN,PDLLEN==50		; stack length

; AC definitions.  0ā†’3 are used by NETWRK

X=4 ? A=5 ? B=6 ? P=17

PDL:	BLOCK PDLLEN			; stack

TSTSER:	JFCL
	RESET
	MOVE ['TSTSER]
	SETNAM
	MOVE P,[PDL(-PDLLEN)]
	MOVEI [DEBREAK ? JRST SUICID]
	MOVEM JOBAPR
	CLKINT 5.*60.*60.		; must die if around too long
	OUTSTR [ASCIZ/TSTSER started
/]

; Listen for a connection on our socket

	MOVEI SVRSKT
	MOVEM LSNSKT
	PUSHJ P,LISTEN
	MOVEI 5,<" >
ECHLUP:	TRZE 5,200
	 JRST .-2
	MOVEI (5)
	PUSHJ P,NETOCH			; send character to user
	AOJA 5,ECHLUP

SUICID:	RESET ? EXIT

...LIT:	CONSTANTS

; Wonderful network routines

SVRRTS==-1				; include server routines
ERRTNS==-1				; include error routines
ERRHAN==-1				; include automagic error handling
ERRINS==<JRST SUICID>			; error instruction

.INSRT NETWRK

END TSTSER