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