mirror of
https://github.com/PDP-10/its.git
synced 2026-01-22 02:26:05 +00:00
51 lines
1.6 KiB
Plaintext
51 lines
1.6 KiB
Plaintext
'<PCODE "1LSRTN">
|
|
|
|
<PACKAGE "HOSTS">
|
|
|
|
<ENTRY DO-HOST-LOAD DO-HOST-FLUSH HOST SERVER MACHINE-NAME SYSTEM-NAME HOSTNAMES
|
|
GATEWAYS ARPA-NET CHAOS-NET>
|
|
|
|
<OR <GASSIGNED? HOST-PAGE> <SETG HOST-PAGE <>>>
|
|
|
|
<OR <GASSIGNED? HOST-LEN> <SETG HOST-LEN 0>>
|
|
|
|
<SETG ARPA-NET 10>
|
|
|
|
<SETG CHAOS-NET 7>
|
|
|
|
<MANIFEST ARPA-NET CHAOS-NET>
|
|
|
|
<SETG NET-SEARCH-LIST ![,ARPA-NET ,CHAOS-NET!]>
|
|
|
|
<SETG GATEWAY-LIST [,CHAOS-NET ["MIT-MC" "MIT-AI"]]>
|
|
|
|
<SETG DO-HOST-LOAD %<RSUBR!- '[ %<PCODE!- "1LSRTN" 609> DO-HOST-LOAD #DECL (
|
|
"VALUE" <OR FIX FALSE> "OPTIONAL" <OR ATOM FALSE>) %<RGLOC HOST-PAGE T> "READ"
|
|
"SYSBIN;HOSTS2 >" %<RGLOC HOST-LEN T> T %<RGLOC NET-SEARCH-LIST T> %<RGLOC
|
|
GATEWAY-LIST T> CANT-GET-PAGES CANT-LOAD-HOST-TABLE NUMTBS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,DO-HOST-LOAD PGLUE ![1073740800!]>>
|
|
|
|
|
|
<SETG GATEWAYS %<RSUBR-ENTRY '[DO-HOST-LOAD GATEWAYS #DECL ("VALUE" <OR FALSE <
|
|
VECTOR [REST STRING]>> FIX)] 245>>
|
|
|
|
<SETG HOSTNAMES %<RSUBR-ENTRY '[DO-HOST-LOAD HOSTNAMES #DECL ("VALUE" <OR FALSE
|
|
<VECTOR [REST STRING]>> <OR FIX STRING>)] 211>>
|
|
|
|
<SETG SERVER %<RSUBR-ENTRY '[DO-HOST-LOAD SERVER #DECL ("VALUE" <OR FALSE FIX> <
|
|
OR FIX STRING>)] 198>>
|
|
|
|
<SETG SYSTEM-NAME %<RSUBR-ENTRY '[DO-HOST-LOAD SYSTEM-NAME #DECL ("VALUE" <OR
|
|
FALSE STRING FIX> <OR FIX STRING>)] 186>>
|
|
|
|
<SETG MACHINE-NAME %<RSUBR-ENTRY '[DO-HOST-LOAD MACHINE-NAME #DECL ("VALUE" <OR
|
|
FALSE STRING FIX> <OR FIX STRING>)] 171>>
|
|
|
|
<SETG HOST %<RSUBR-ENTRY '[DO-HOST-LOAD HOST #DECL ("VALUE" <OR FALSE STRING FIX
|
|
> <OR FIX STRING> "OPTIONAL" <OR FIX FALSE>)] 88>>
|
|
|
|
<SETG DO-HOST-FLUSH %<RSUBR-ENTRY '[DO-HOST-LOAD DO-HOST-FLUSH #DECL ("VALUE"
|
|
ATOM)] 63>>
|
|
|
|
<ENDPACKAGE>
|