home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / vmsnet / sources / 480 < prev    next >
Encoding:
Internet Message Format  |  1993-01-05  |  16.1 KB
  1. Path: sparky!uunet!paladin.american.edu!gatech!swrinde!network.ucsd.edu!mvb.saic.com!vmsnet-sources
  2. Newsgroups: vmsnet.sources
  3. From: mailrus!samsung!ulowell!aspen.ulowell.edu!welchb@uunet.UU.NET
  4. Subject: yet another correction to nodeinfo.com, part 01/01
  5. Message-ID: <9910294@MVB.SAIC.COM>
  6. Lines: 324
  7. Organization: University of Lowell
  8. Date: Mon, 04 Jan 1993 22:14:03 GMT
  9. Lines: 324
  10. Approved: Mark.Berryman@Mvb.Saic.Com
  11.  
  12. Submitted-by: mailrus!samsung!ulowell!aspen.ulowell.edu!welchb@uunet.UU.NET
  13. Posting-number: Volume 4, Issue 34
  14. Archive-name: nodeinfo/part01
  15. Supersedes: nodeinfo: Volume 4, Issue 19
  16.  
  17.          [ This is a DCL procedure that displays most of the
  18.            data returned by F$GETSYI for the node on which it
  19.            is executed.  It will also attempt to do a $SHOW
  20.            CPU/FULL and to show your internet address via UCX. ]
  21. -- 
  22. Brendan Welch, UMass/Lowell, W1LPG,  welchb@woods.ulowell.edu
  23.  
  24. $! ------------------ CUT HERE -----------------------
  25. $ v='f$verify(f$trnlnm("SHARE_UNPACK_VERIFY"))'
  26. $!
  27. $! This archive created by VMS_SHARE Version 8.1
  28. $!   On  4-JAN-1993 13:47:43.59   By user BERRYMAN    
  29. $!
  30. $! The VMS_SHARE software that created this archive
  31. $!    was written by  Andy Harper, Kings College London UK
  32. $!    -- September 1992
  33. $!
  34. $! Credit is due to these people for their original ideas:
  35. $!    James Gray, Michael Bednarek 
  36. $!
  37. $! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
  38. $! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
  39. $!
  40. $! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
  41. $!       1. NODEINFO.COM;1
  42. $!       2. X.X;1
  43. $!
  44. $set="set"
  45. $set symbol/scope=(nolocal,noglobal)
  46. $f=f$parse("SHARE_UNPACK_TEMP","SYS$SCRATCH:."+f$getjpi("","PID"))
  47. $e="write sys$error  ""%UNPACK"", "
  48. $w="write sys$output ""%UNPACK"", "
  49. $ if .not. f$trnlnm("SHARE_UNPACK_LOG") then $ w = "!"
  50. $ ve=f$getsyi("version")
  51. $ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto start
  52. $ e "-E-OLDVER, Must run at least VMS 4.4"
  53. $ v=f$verify(v)
  54. $ exit 44
  55. $unpack: subroutine ! P1=filename, P2=checksum, P3=attributes
  56. $ if f$search(P1) .eqs. "" then $ goto file_absent
  57. $ e "-W-EXISTS, File ''P1' exists. Skipped."
  58. $ delete 'f'*
  59. $ exit
  60. $file_absent:
  61. $ if f$parse(P1) .nes. "" then $ goto dirok
  62. $ dn=f$parse(P1,,,"DIRECTORY")
  63. $ w "-I-CREDIR, Creating directory ''dn'"
  64. $ create/dir 'dn'
  65. $ if $status then $ goto dirok
  66. $ e "-E-CREDIRFAIL, Unable to create ''dn' File skipped."
  67. $ delete 'f'*
  68. $ exit
  69. $dirok:
  70. $ w "-I-UNPACK, Unpacking file ''P1'"
  71. $ n=P1
  72. $ if P3 .nes. "" then $ n=f
  73. $ if .not. f$verify() then $ define/user sys$output nl:
  74. $ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='n'
  75. PROCEDURE GetHex LOCAL x1,x2;x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,
  76. ERASE_CHARACTER(1))-1;RETURN 16*x1+x2;ENDPROCEDURE;
  77. PROCEDURE SkipPartsep LOOP EXITIF INDEX(ERASE_LINE,"-+-+-+-+-+-+-+-+")=1;
  78. ENDLOOP;ENDPROCEDURE;
  79. PROCEDURE ExpandChar CASE CURRENT_CHARACTER FROM ' ' TO 'z' ["`"]
  80. :ERASE_CHARACTER(1);COPY_TEXT(ASCII(GetHex));[" "]:ERASE_CHARACTER(1);[
  81. OUTRANGE,INRANGE]:MOVE_HORIZONTAL(1);ENDCASE;ENDPROCEDURE;
  82. PROCEDURE ProcessLine s:=ERASE_CHARACTER(1);LOOP EXITIF CURRENT_OFFSET>=LENGTH(
  83. CURRENT_LINE);ExpandChar;ENDLOOP;IF s="V" THEN APPEND_LINE;ENDIF;ENDPROCEDURE;
  84. PROCEDURE AdvanceLine MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);
  85. ENDPROCEDURE;PROCEDURE Decode POSITION(BEGINNING_OF(b));LOOP EXITIF MARK(NONE)=
  86. END_OF(b);IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+-")=1 THEN SkipPartSep;
  87. ELSE ProcessLine;AdvanceLine;ENDIF;ENDLOOP;ENDPROCEDURE;SET(FACILITY_NAME,
  88. "UNPACK");SET(SUCCESS,OFF);SET(INFORMATIONAL,OFF);t:="0123456789ABCDEF";f:=
  89. GET_INFO(COMMAND_LINE,"file_name");b:=CREATE_BUFFER(f,f);Decode;WRITE_FILE(b,
  90. GET_INFO(COMMAND_LINE,"output_file"));QUIT;
  91. $ if p3 .eqs. "" then $ goto dl
  92. $ open/write fdl &f
  93. $ write fdl "RECORD"
  94. $ write fdl P3
  95. $ close fdl
  96. $ w "-I-CONVRFM, Converting record format to ", P3
  97. $ convert/fdl=&f &f-1 &P1
  98. $dl: delete 'f'*
  99. $ if P2 .eqs. "" then $ goto ckskip
  100. $ checksum 'P1'
  101. $ if checksum$checksum .nes. P2 then $ -
  102.   e "-E-CHKSMFAIL, Checksum of ''P1' failed."
  103. $ exit
  104. $ckskip: e "-W-CHKSUMSKIP, checksum validation unavailable for ''P1'"
  105. $ endsubroutine
  106. $start:
  107. $!
  108. $ create 'f'
  109. X$`20say`20:=`20write`20sys$output
  110. X$`20say`20"You`20are`20on`20a`20",`20f$getsyi("HW_NAME"),`20"`20named`20",`20f
  111. V$getsyi("NODENAME"),`20"."
  112. X$`20say`20"It`20was`20last`20booted`20on`20",`20f$getsyi("boottime"),"."
  113. X$`20say`20"This`20system`20has`20",`20f$getsyi("availcpu_cnt"),"`20cpu(s);"
  114. V`20-
  115. X`20,`20"`20",`20f$getsyi("activecpu_cnt"),"`20is/are`20active."
  116. X$`20if`20.not`20f$getsyi("cluster_member")
  117. X$`20then
  118. X$`20`20say`20"It`20is`20not`20a`20member`20of`20a`20VAXCluster."
  119. X$`20else
  120. X$`20`20say`20"It`20is`20a`20member`20of`20a`20VAXcluster`20containing`20"-
  121. X`20`20`20,`20f$getsyi("cluster_nodes"),"`20nodes."
  122. X$`20`20say`20"This`20VAXcluster`20has`20a`20total`20cluster`20quorum`20of`20"-
  123. V
  124. X`20`20`20,`20f$getsyi("cluster_quorum"),"`20votes,`20and`20"
  125. X$`20`20say`20"`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20",f$getsyi
  126. V("cluster_votes"),`20"`20total`20cluster`20vote(s)."
  127. X$`20`20say`20"This`20node's`20quorum`20value`20is`20",`20f$getsyi("node_quorum
  128. V")-
  129. X`20`20`20,"`20and`20it`20has`20",`20f$getsyi("node_votes"),"`20vote(s)."
  130. X$`20endif
  131. X$`20say`20"`20"
  132. X$`20say`20"We`20will`20now`20execute`20the`20equivalent`20of`20showing`20F$GET
  133. VSYI(*)"
  134. X$`20say`20f$getsyi("activecpu_cnt"),`20`20"`09`20`09`09=activecpu_cnt"
  135. X$`20say`20f$getsyi("availcpu_cnt"),`20`20"`09`20`09`09=availcpu_cnt"
  136. X$`20say`20f$getsyi("archflag"),`20`20`09`20"`09`20`09`09=archflag"
  137. X$`20say`20f$getsyi("boottime"),`20`20`09`20"`09=boottime"
  138. X$`20say`20f$getsyi("character_emulated"),`20`09`20"`09`20`09`09=character_emul
  139. Vated"
  140. X$`20say`20f$getsyi("contig_gblpages"),`20`09`20"`20`09`09`09=contig_gblpages"
  141. X$`20say`20f$getsyi("cpu"),`20`20`09`20"`09`20`09`09=cpu"
  142. X$`20say`20f$getsyi("decimal_emulated"),`20`09`20"`09`20`09`09=decimal_emulated
  143. V"
  144. X$`20say`20f$getsyi("d_float_emulated"),`20`09`20"`09`20`09`09=d_float_emulated
  145. V"
  146. X$`20say`20f$getsyi("f_float_emulated"),`20`09`20"`09`20`09`09=f_float_emulated
  147. V"
  148. X$`20say`20f$getsyi("free_gblpages"),`20`09`20"`09`20`09`09=free_gbl_pages"
  149. X$`20say`20f$getsyi("free_gblsects"),`20`09`20"`09`20`09`09=free_gbl_sects"
  150. X$`20say`20f$getsyi("g_float_emulated"),`20`09`20"`09`20`09`09=g_float_emulated
  151. V"
  152. X$`20say`20f$getsyi("pagefile_free"),`20`09`20"`09`20`09`09=pagefile_free"
  153. X$`20say`20f$getsyi("pagefile_page"),`20`09`20"`09`20`09`09=pagefile_page"
  154. X$`20say`20f$getsyi("sid"),`20`20`09`20"`09`20`09=sid"
  155. X$`20say`20f$getsyi("swapfile_free"),`20`09`20"`09`20`09`09=swapfile_free"
  156. X$`20say`20f$getsyi("swapfile_page"),`20`09`20"`09`20`09`09=swapfile_page"
  157. X$`20say`20f$getsyi("version"),`20`20`09`20"`09`20`09=version"
  158. X$`20say`20"`20"
  159. X$`20say`20f$getsyi("cluster_fsysid"),`20`20"`09`20`09=cluster_fsysid"
  160. X$`20say`20f$getsyi("cluster_ftime"),`20`20`20"`09`20=cluster_ftime"
  161. X$`20say`20f$getsyi("cluster_member"),`20`20"`09`09`09`20=cluster_member"
  162. X$`20say`20f$getsyi("cluster_nodes"),`20`20`20"`09`09`09`20=cluster_nodes"
  163. X$`20say`20f$getsyi("cluster_quorum"),`20`20"`09`09`09`20=cluster_quorum"
  164. X$`20say`20f$getsyi("cluster_votes"),`20`20`20"`09`09`09`20=cluster_votes"
  165. X$`20say`20f$getsyi("hw_model"),`20`20`20`20`20`20`20`20"`09`09`09`20=hw_model"
  166. V
  167. X$!`20hw_model`20>`201023`20is`20an`20ALPHA;`20otherwise`20VAX
  168. X$`20say`20f$getsyi("hw_name"),`20`20`20`20`20`20`20`20`20"`09`09`20=hw_name"
  169. X$`20say`20f$getsyi("nodename"),`20`20`20`20`20`20`20`20"`09`09`09`20=nodename"
  170. V
  171. X$`20nn`20=`20f$getsyi("nodename")`09!`20for`20use`20below
  172. X$`20say`20f$getsyi("node_area"),`20`20`20`20`20`20`20"`09`09`09`20=node_area"
  173. X$`20say`20f$getsyi("node_csid"),`20`20`20`20`20`20`20"`09`09`20=node_csid"
  174. X$`20say`20f$getsyi("node_hwtype"),`20`20`20`20`20"`09`09`09`20=node_hwtype"
  175. X$`20say`20f$getsyi("node_hwvers"),`20`20`20`20`20"`09=node_hwvers"
  176. X$`20say`20f$getsyi("node_number"),`20`20`20`20`20"`09`09`09`20=node_number"
  177. X$`20say`20f$getsyi("node_quorum"),`20`20`20`20`20"`09`09`09`20=node_quorum"
  178. X$`20say`20f$getsyi("node_swincarn"),`20`20`20"`09`20=node_swincarn"
  179. X$`20say`20f$getsyi("node_swtype"),`20`20`20`20`20"`09`09`09`20=node_swtype"
  180. X$`20say`20f$getsyi("node_swvers"),`20`20`20`20`20"`09`09`09`20=node_swvers"
  181. X$`20say`20f$getsyi("node_systemid"),`20`20`20"`09`20=node_systemid"
  182. X$`20say`20f$getsyi("node_votes"),`20`20`20`20`20`20"`09`09`09`20=node_votes"
  183. X$`20say`20f$getsyi("scs_exists"),`20`20`20`20`20`20"`09`09`09`20=scs_exists"
  184. X$`20say`20f$getsyi("system_rights"),`20`20`20"`09`20=system_rights"
  185. X$`20say`20f$getsyi("vector_emulator"),`20"`09`09`09`20=vector_emulator"
  186. X$`20say`20f$getsyi("vp_mask"),`20`20`20`20`20`20`20`20`20"`09`09`09`20=vp_mask
  187. V"
  188. X$`20say`20f$getsyi("vp_number"),`20`20`20`20`20`20`20"`09`09`09`20=vp_number"
  189. X$`20say`20"================================================================="
  190. X$`20say`20"We`20will`20now`20execute`20`20$SHOW`20CPU/FULL"
  191. X$`20on`20error`20then`20continue
  192. X$`20show`20cpu/full
  193. X$`20say`20"================================================================="
  194. X$`20say`20"We`20will`20try`20to`20show`20Internet`20address."
  195. X$!`20Another`20way`20would`20be`20to`20telnet`20to`20nn`20(which`20gives`20its
  196. V`20address),`20then
  197. X$!`20ctrl-`5D,`20then`20`20exit
  198. X$!`20and`20another`20way`20would`20be`20$`20ucx`20show`20host`20'nn',`20where
  199. V`20nn`20was`20saved`20above.
  200. X$`20ucx`20show`20host`20'f$trnlnm("ucx$inet_host")
  201. X$!Last`20line`20suggested`20by`20Shawn`20Clifford.
  202. $ call unpack NODEINFO.COM;1 1065120042 ""
  203. $!
  204. $ create 'f'
  205. XReceived:`20from`20rodan.UU.NET`20(`5B153.39.128.10`5D)`20by`20MVB.SAIC.COM
  206. V`20(CHCS-MailMan`20V7.2)`20with`20SMTP
  207. X`09id`209806918;`20Tue,`2022`20Dec`201992`2015:37:04`20PST
  208. XReceived:`20from`20relay2.UU.NET`20by`20rodan.UU.NET`20with`20SMTP`20
  209. X`09(5.61/UUNET-mail-drop)`20id`20AA29459;`20Tue,`2022`20Dec`2092`2018:24:12
  210. V`20-0500
  211. XReceived:`20from`20uunet.uu.net`20(via`20LOCALHOST.UU.NET)`20by`20relay2.UU.NE
  212. VT`20with`20SMTP`20
  213. X`09(5.61/UUNET-internet-primary)`20id`20AA16009;`20Tue,`2022`20Dec`2092`2018:2
  214. V4:19`20-0500
  215. XReceived:`20from`20mailrus.UUCP`20by`20uunet.uu.net`20with`20UUCP/RMAIL
  216. X`09(queueing-rmail)`20id`20182352.1491;`20Tue,`2022`20Dec`201992`2018:23:52
  217. V`20EST
  218. XReceived:`20from`20mailrus.cc.umich.edu`20by`20destroyer.rs.itd.umich.edu`20(5
  219. V.65/2.2)
  220. X`09id`20AA22930;`20Tue,`2022`20Dec`2092`2016:36:55`20-0500
  221. XReceived:`20by`20mailrus.cc.umich.edu`20(5.65/1123-1.0)
  222. X`09id`20AA02933;`20Tue,`2022`20Dec`2092`2016:36:40`20-0500
  223. XReceived:`20by`20ulowell.ulowell.edu`20id`20AA02639
  224. X`20`20(5.65c+/IDA-1.4.4`20for`20uunet!vmsnet-sources);`20Tue,`2022`20Dec`20199
  225. V2`2016:02:15`20-0500
  226. XNewsgroups:`20vmsnet.sources
  227. XPath:`20woods.ulowell.edu!welchb
  228. XFrom:`20mailrus!samsung!ulowell!aspen.ulowell.edu!welchb@uunet.UU.NET
  229. XSubject:`20yet`20another`20correction`20to`20nodeinfo.com
  230. XMessage-Id:`20<1992Dec22.160148.1@woods.ulowell.edu>
  231. XLines:`2079
  232. XSender:`20mailrus!samsung!ulowell!usenet@uunet.UU.NET`20(News`20manager`20-
  233. V`20ulowell)
  234. XOrganization:`20University`20of`20Lowell
  235. XDate:`20Tue,`2022`20Dec`201992`2021:01:48`20GMT
  236. XApparently-To:`20ulowell!uunet!vmsnet-sources
  237. X
  238. X$`20say`20:=`20write`20sys$output
  239. X$`20say`20"You`20are`20on`20a`20",`20f$getsyi("HW_NAME"),`20"`20named`20",`20f
  240. V$getsyi("NODENAME"),`20"."
  241. X$`20say`20"It`20was`20last`20booted`20on`20",`20f$getsyi("boottime"),"."
  242. X$`20say`20"This`20system`20has`20",`20f$getsyi("availcpu_cnt"),"`20cpu(s);"
  243. V`20-
  244. X`20,`20"`20",`20f$getsyi("activecpu_cnt"),"`20is/are`20active."
  245. X$`20if`20.not`20f$getsyi("cluster_member")
  246. X$`20then
  247. X$`20`20say`20"It`20is`20not`20a`20member`20of`20a`20VAXCluster."
  248. X$`20else
  249. X$`20`20say`20"It`20is`20a`20member`20of`20a`20VAXcluster`20containing`20"-
  250. X`20`20`20,`20f$getsyi("cluster_nodes"),"`20nodes."
  251. X$`20`20say`20"This`20VAXcluster`20has`20a`20total`20cluster`20quorum`20of`20"-
  252. V
  253. X`20`20`20,`20f$getsyi("cluster_quorum"),"`20votes,`20and`20"
  254. X$`20`20say`20"`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20",f$getsyi
  255. V("cluster_votes"),`20"`20total`20cluster`20vote(s)."
  256. X$`20`20say`20"This`20node's`20quorum`20value`20is`20",`20f$getsyi("node_quorum
  257. V")-
  258. X`20`20`20,"`20and`20it`20has`20",`20f$getsyi("node_votes"),"`20vote(s)."
  259. X$`20endif
  260. X$`20say`20"`20"
  261. X$`20say`20"We`20will`20now`20execute`20the`20equivalent`20of`20showing`20F$GET
  262. VSYI(*)"
  263. X$`20say`20f$getsyi("activecpu_cnt"),`20`20"`09`20`09`09=activecpu_cnt"
  264. X$`20say`20f$getsyi("availcpu_cnt"),`20`20"`09`20`09`09=availcpu_cnt"
  265. X$`20say`20f$getsyi("archflag"),`20`20`09`20"`09`20`09`09=archflag"
  266. X$`20say`20f$getsyi("boottime"),`20`20`09`20"`09=boottime"
  267. X$`20say`20f$getsyi("character_emulated"),`20`09`20"`09`20`09`09=character_emul
  268. Vated"
  269. X$`20say`20f$getsyi("contig_gblpages"),`20`09`20"`20`09`09`09=contig_gblpages"
  270. X$`20say`20f$getsyi("cpu"),`20`20`09`20"`09`20`09`09=cpu"
  271. X$`20say`20f$getsyi("decimal_emulated"),`20`09`20"`09`20`09`09=decimal_emulated
  272. V"
  273. X$`20say`20f$getsyi("d_float_emulated"),`20`09`20"`09`20`09`09=d_float_emulated
  274. V"
  275. X$`20say`20f$getsyi("f_float_emulated"),`20`09`20"`09`20`09`09=f_float_emulated
  276. V"
  277. X$`20say`20f$getsyi("free_gblpages"),`20`09`20"`09`20`09`09=free_gbl_pages"
  278. X$`20say`20f$getsyi("free_gblsects"),`20`09`20"`09`20`09`09=free_gbl_sects"
  279. X$`20say`20f$getsyi("g_float_emulated"),`20`09`20"`09`20`09`09=g_float_emulated
  280. V"
  281. X$`20say`20f$getsyi("pagefile_free"),`20`09`20"`09`20`09`09=pagefile_free"
  282. X$`20say`20f$getsyi("pagefile_page"),`20`09`20"`09`20`09`09=pagefile_page"
  283. X$`20say`20f$getsyi("sid"),`20`20`09`20"`09`20`09=sid"
  284. X$`20say`20f$getsyi("swapfile_free"),`20`09`20"`09`20`09`09=swapfile_free"
  285. X$`20say`20f$getsyi("swapfile_page"),`20`09`20"`09`20`09`09=swapfile_page"
  286. X$`20say`20f$getsyi("version"),`20`20`09`20"`09`20`09=version"
  287. X$`20say`20"`20"
  288. X$`20say`20f$getsyi("cluster_fsysid"),`20`20"`09`20`09=cluster_fsysid"
  289. X$`20say`20f$getsyi("cluster_ftime"),`20`20`20"`09`20=cluster_ftime"
  290. X$`20say`20f$getsyi("cluster_member"),`20`20"`09`09`09`20=cluster_member"
  291. X$`20say`20f$getsyi("cluster_nodes"),`20`20`20"`09`09`09`20=cluster_nodes"
  292. X$`20say`20f$getsyi("cluster_quorum"),`20`20"`09`09`09`20=cluster_quorum"
  293. X$`20say`20f$getsyi("cluster_votes"),`20`20`20"`09`09`09`20=cluster_votes"
  294. X$`20say`20f$getsyi("hw_model"),`20`20`20`20`20`20`20`20"`09`09`09`20=hw_model"
  295. V
  296. X$!`20hw_model`20>`201023`20is`20an`20ALPHA;`20otherwise`20VAX
  297. X$`20say`20f$getsyi("hw_name"),`20`20`20`20`20`20`20`20`20"`09`09`20=hw_name"
  298. X$`20say`20f$getsyi("nodename"),`20`20`20`20`20`20`20`20"`09`09`09`20=nodename"
  299. V
  300. X$`20nn`20=`20f$getsyi("nodename")`09!`20for`20use`20below
  301. X$`20say`20f$getsyi("node_area"),`20`20`20`20`20`20`20"`09`09`09`20=node_area"
  302. X$`20say`20f$getsyi("node_csid"),`20`20`20`20`20`20`20"`09`09`20=node_csid"
  303. X$`20say`20f$getsyi("node_hwtype"),`20`20`20`20`20"`09`09`09`20=node_hwtype"
  304. X$`20say`20f$getsyi("node_hwvers"),`20`20`20`20`20"`09=node_hwvers"
  305. X$`20say`20f$getsyi("node_number"),`20`20`20`20`20"`09`09`09`20=node_number"
  306. X$`20say`20f$getsyi("node_quorum"),`20`20`20`20`20"`09`09`09`20=node_quorum"
  307. X$`20say`20f$getsyi("node_swincarn"),`20`20`20"`09`20=node_swincarn"
  308. X$`20say`20f$getsyi("node_swtype"),`20`20`20`20`20"`09`09`09`20=node_swtype"
  309. X$`20say`20f$getsyi("node_swvers"),`20`20`20`20`20"`09`09`09`20=node_swvers"
  310. X$`20say`20f$getsyi("node_systemid"),`20`20`20"`09`20=node_systemid"
  311. X$`20say`20f$getsyi("node_votes"),`20`20`20`20`20`20"`09`09`09`20=node_votes"
  312. X$`20say`20f$getsyi("scs_exists"),`20`20`20`20`20`20"`09`09`09`20=scs_exists"
  313. X$`20say`20f$getsyi("system_rights"),`20`20`20"`09`20=system_rights"
  314. X$`20say`20f$getsyi("vector_emulator"),`20"`09`09`09`20=vector_emulator"
  315. X$`20say`20f$getsyi("vp_mask"),`20`20`20`20`20`20`20`20`20"`09`09`09`20=vp_mask
  316. V"
  317. X$`20say`20f$getsyi("vp_number"),`20`20`20`20`20`20`20"`09`09`09`20=vp_number"
  318. X$`20say`20"================================================================="
  319. X$`20say`20"We`20will`20now`20execute`20`20$SHOW`20CPU/FULL"
  320. X$`20on`20error`20then`20continue
  321. X$`20show`20cpu/full
  322. X$`20say`20"================================================================="
  323. X$`20say`20"We`20will`20try`20to`20show`20Internet`20address."
  324. X$!`20Another`20way`20would`20be`20to`20telnet`20to`20nn`20(which`20gives`20its
  325. V`20address),`20then
  326. X$!`20ctrl-`5D,`20then`20`20exit
  327. X$!`20and`20another`20way`20would`20be`20$`20ucx`20show`20host`20'nn',`20where
  328. V`20nn`20was`20saved`20above.
  329. X$`20ucx`20show`20host`20'f$trnlnm("ucx$inet_host")
  330. X$!Last`20line`20suggested`20by`20Shawn`20Clifford.
  331. X--`20
  332. XBrendan`20Welch,`20UMass/Lowell,`20W1LPG,`20`20welchb@woods.ulowell.edu
  333. $ call unpack X.X;1 1582657335 ""
  334. $ v=f$verify(v)
  335. $ exit
  336.