perm filename SURVEY.MID[NET,MRC] blob sn#385345 filedate 1978-09-30 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	H SOCKET PDL SURVEY GETSKT GOTSKT NXTHST HSTDUN NIORTS ERRHAN ERRINS HSTTAB
C00004 ENDMK
C⊗;
;H SOCKET PDL SURVEY GETSKT GOTSKT NXTHST HSTDUN NIORTS ERRHAN ERRINS HSTTAB

TITLE SURVEY

IFNDEF PDLLEN,PDLLEN==20

H=16 ? P=17

SOCKET:	0
PDL:	BLOCK PDLLEN

SURVEY:	JFCL ? RESET
	OUTSTR [ASCIZ/Socket?/]
	SETZ
GETSKT:	INCHWL 1
	CAIL 1,"0
	 CAILE 1,"7
	  JRST GOTSKT
	LSH 3
	ADDI -"0(1)
	JRST GETSKT

GOTSKT:	CAIN 1,↑M
	 INCHWL 1
	CAIE 1,↑J
	 JRST [CLRBFI ? JRST SURVEY]
	MOVEM SOCKET
	MOVE P,[PDL(-PDLLEN)]
	MOVEI H,1
	OUTSTR [ASCIZ/ARPAnet survey started.

/]
	PUSHJ P,MAPHST
NXTHST:	MOVE P,[PDL(-PDLLEN)]
	MOVEI (H)
	PUSHJ P,HSTNUM
	 JRST HSTDUN
	JUMPGE 2,HSTDUN
	LDB [060300,,H]
	ADDI "0
	OUTCHR
	LDB [030300,,H]
	ADDI "0
	OUTCHR
	LDB [000300,,H]
	ADDI "0
	OUTCHR
	OUTCHR [↑I]
	OUTSTR (1)
	OUTSTR [ASCIZ/.../]
	MOVEM H,HOST
	MOVE SOCKET
	MOVEM ICPSKT
	PUSHJ P,CONECT
	OUTSTR [ASCIZ/server up
/]
	RESET
HSTDUN:	CAIE H,377
	 AOJA H,NXTHST
	EXIT

NIORTS==-1
ERRHAN==-1
ERRINS==JRST HSTDUN
HSTTAB==-1

.INSRT NETWRK

END SURVEY