%%s 0/0/0 %%d D 1.1 26-Mar-82 12:29:59 v1.1 1 0 %%c Version 1.1 is the Spring 1982 Distribution of the LBL/Hughes release %%c of the Software Tools Virtual Operating System software and documentation. %%T %%I 1 #-h- addr.r 1641 asc 25-mar-82 07:25:27 v1.1 (sw-tools v1.1) #-h- main 1287 asc 25-mar-82 07:25:12 v1.1 (sw-tools v1.1) DRIVER(addr) character buffer(513), buf(MAXLINE), outbuf(MAXLINE) integer int, i, j, k, l, m, n integer open, readf string accnt "LB0:[0,0]RSX11.SYS" call query("usage: addr [>file].") int = open(accnt, READ) if (int == ERR) call cant(accnt) while (readf(buffer, 512, int) == 512) for (j=1; j <= 512; j=j+128) { k = j for (l=1; l <= 128; l=l+1) { buf(l) = buffer(k) k = k + 1 } if (buf(1) == 0) break 2 l = 1 call jcopy(buf, 13, 14, outbuf, l) call chcopy(' ', outbuf, l) call jcopy(buf, 47, 4, outbuf, l) call jcopy(":[", 1, 2, outbuf, l) call jcopy(buf, 1, 3, outbuf, l) call chcopy(',', outbuf, l) call jcopy(buf, 4, 3, outbuf, l) call jcopy("] [", 1, 8, outbuf, l) call jcopy(buf, 1, 3, outbuf, l) call chcopy(',', outbuf, l) call jcopy(buf, 4, 3, outbuf, l) call jcopy("] @"", 1, 8, outbuf, l) n = 0 for (m=27; m <= 38 & buf(m) != ' '; m=m+1) n=n+1 if (n > 0) { call jcopy(buf, 27, n, outbuf, l) call chcopy(' ', outbuf, l) } n = 0 for (m=13; m <= 26 & buf(m) != ' '; m=m+1) n = n + 1 if (n > 0) call jcopy(buf, 13, n, outbuf, l) call chcopy('"', outbuf, l) call fold(outbuf) call putlin(outbuf, STDOUT) call putch('@n', STDOUT) } call close(int) DRETURN end #-h- jcopy 208 asc 25-mar-82 07:25:13 v1.1 (sw-tools v1.1) subroutine jcopy(in, start, n, out, i) character in(ARB), out(ARB) integer start, n, i, j, k k = start for (j=1; j <= n; j=j+1) { out(i) = in(k) k = k + 1 i = i + 1 } return end #-h- addr.frm 489 asc 25-mar-82 07:25:29 v1.1 (sw-tools v1.1) .so ~bin/manhdr .hd Addr (1) 12-Mar-82 generate address file .sy addr [>file] .ds `addr' reads the RSX-11M account file lb:[0,0]rsx11.sys and generates the lines for the file ~msg/address. The output of `addr' should be piped through sort before placing it on ~msg/address. It is a good idea to run the following command whenever the system is booted or when the account file is changed: .ce .sp >shl -c "addr | sort >~msg/address" .sp .fl lb:[0,0]rsx11.sys .sa .di .au Joe Sventek .bu %%E 1