HECnet

hecnet@lists.dfupdate.se

7 participants
15595 discussions

by healyzh＠aracnet.com

The UNIX box that is still running is a Pentium III that is close to 10 years old, and honestly probably on its last legs. I don't think it could handle a VAX instance. I've considered this, and if I do it, it will be using a new Intel Atom board, but I have my doubts on the ability of that class board to handle the load of a SIMH instance. Zane At 9:49 AM +0000 3/9/10, Sampsa Laine wrote: You could always get a SIMH VAX instance running on the UNIX box... Sampsa On 9 Mar 2010, at 03:39, Zane H. Healy wrote: At some point over the past few days MONK lost his power supply. Additionally I wasn't sure what the state of PDXVAX was, as MONK was my primary method of access, and the console wasn't responding so I pulled the plug on PDXVAX and powered off both systems drive arrays. While I have to try to bring MONK back up at some point to recover data (thankfully I have a second XP1000), I don't think I'll be leaving it running 24x7 anymore. I was already thinking about shutting down my servers to save power. Right now my UNIX server is the only one still running, and I'm preparing to copy the data off, and redirect my DNS back to my .Mac account like I had it last Winter while we were house-hunting. I really don't have time to keep my own servers running anymore. Zane -- | Zane H. Healy | UNIX Systems Administrator | | healyzh at aracnet.com (primary) | OpenVMS Enthusiast | | MONK::HEALYZH (DECnet) | Classic Computer Collector | +----------------------------------+----------------------------+ | Empire of the Petal Throne and Traveller Role Playing, | | PDP-10 Emulation and Zane's Computer Museum. | | http://www.aracnet.com/~healyzh/ | -- | Zane H. Healy | UNIX Systems Administrator | | healyzh at aracnet.com | OpenVMS Enthusiast | | | Classic Computer Collector | +----------------------------------+----------------------------+ | Empire of the Petal Throne and Traveller Role Playing, | | PDP-10 Emulation and Zane's Computer Museum. | | http://www.aracnet.com/~healyzh/ |

16 years

MONK RIP

by sampsa＠mac.com

You could always get a SIMH VAX instance running on the UNIX box... Sampsa On 9 Mar 2010, at 03:39, Zane H. Healy wrote: At some point over the past few days MONK lost his power supply. Additionally I wasn't sure what the state of PDXVAX was, as MONK was my primary method of access, and the console wasn't responding so I pulled the plug on PDXVAX and powered off both systems drive arrays. While I have to try to bring MONK back up at some point to recover data (thankfully I have a second XP1000), I don't think I'll be leaving it running 24x7 anymore. I was already thinking about shutting down my servers to save power. Right now my UNIX server is the only one still running, and I'm preparing to copy the data off, and redirect my DNS back to my .Mac account like I had it last Winter while we were house-hunting. I really don't have time to keep my own servers running anymore. Zane -- | Zane H. Healy | UNIX Systems Administrator | | healyzh at aracnet.com (primary) | OpenVMS Enthusiast | | MONK::HEALYZH (DECnet) | Classic Computer Collector | +----------------------------------+----------------------------+ | Empire of the Petal Throne and Traveller Role Playing, | | PDP-10 Emulation and Zane's Computer Museum. | | http://www.aracnet.com/~healyzh/ |

16 years

MONK RIP

by healyzh＠aracnet.com

At some point over the past few days MONK lost his power supply. Additionally I wasn't sure what the state of PDXVAX was, as MONK was my primary method of access, and the console wasn't responding so I pulled the plug on PDXVAX and powered off both systems drive arrays. While I have to try to bring MONK back up at some point to recover data (thankfully I have a second XP1000), I don't think I'll be leaving it running 24x7 anymore. I was already thinking about shutting down my servers to save power. Right now my UNIX server is the only one still running, and I'm preparing to copy the data off, and redirect my DNS back to my .Mac account like I had it last Winter while we were house-hunting. I really don't have time to keep my own servers running anymore. Zane -- | Zane H. Healy | UNIX Systems Administrator | | healyzh at aracnet.com (primary) | OpenVMS Enthusiast | | MONK::HEALYZH (DECnet) | Classic Computer Collector | +----------------------------------+----------------------------+ | Empire of the Petal Throne and Traveller Role Playing, | | PDP-10 Emulation and Zane's Computer Museum. | | http://www.aracnet.com/~healyzh/ |

16 years

REXEC-type feature over DECNET?

by bernier＠pescadoo.net

At 9:29 AM -0500 2/22/10, Steve Davidson wrote: The task object mechanism works great! I have used this with FORTRAN when I supported it for DEC. For the fun: This VAX program draws sliders on a VT100, then send the position of the sliders in real time to a remote task named 'ihma' on node named 'syter' running on a PDP-11 under RSX. I suppose it makes no difference if 'syter' is a VAX node. I don't run VMS so I can't compile it, but it may be fun to play with. #include stdio /***************************/ /* COMMUNICATION AVEC SYTER*/ /***************************/ FILE *syter; static char ihma[] = "syter\"user pass\"::\"task=ihma\""; static char Command[255], Reponse[255]; EnvoyerAvecAR (msg) char* msg; { strcpy (Command, msg); write (fileno(syter), &Command, strlen(Command)); read (fileno(syter), &Reponse, sizeof(Reponse)); } EnvoyerSansAR (msg) char* msg; { strcpy (Command, msg); write (fileno(syter), &Command, strlen(Command)); } /************************************/ /* ENTRES-SORTIES TERMINAL PAR QIOS */ /************************************/ #define IO$_WRITEVBLK 0x30 #define IO$_READVBLK 0x31 #define IO$M_NOECHO 0x0040 typedef unsigned short int channel; channel Assign (device) char *device; { channel chan; int devDescr[2]; devDescr[1] = device; devDescr[0] = strlen(device); SYS$ASSIGN (&devDescr, &chan, 0,0); return (chan); } QioRead (chan, bufa, bufl) channel chan; char *bufa; int bufl; { unsigned int iostatus[2]; SYS$QIOW (0, chan, (long) (IO$_READVBLK|IO$M_NOECHO), &iostatus,0, 0, bufa, bufl, 0,0,0,0); } QioWrite (chan, bufa, bufl) channel chan; char *bufa; int bufl; { unsigned int iostatus[2]; SYS$QIOW (0, chan, (long) IO$_WRITEVBLK, &iostatus,0, 0, bufa, bufl, 0,0,0,0); } char NextChar (chan) channel chan; { char ch; QioRead (chan, &ch, 1); return (ch); } /***************************/ /* SEQUENCES D'ESCAPE ANSI */ /***************************/ #define FROM '0' /* code pour effacement depuis le curseur */ #define UPTO '1' /* code pour effacement jusqu'au curseur */ #define ALL '2' /* code pour effacement entite complete */ #define NORMAL '0' /* attribut video rendement normal */ #define BOLD '1' /* attribut video surintensite */ #define UNDER '4' /* attribut video soulignement */ #define BLINK '5' /* attribut video clignotement */ #define REVER '7' /* attribut video inversion */ #define NEWLIN '0' /* mode new line */ #define KEYPAD '1' /* mode application */ #define COL132 '3' /* mode 132 colonnes */ #define SMOOTH '4' /* mode montee lente */ #define WHITEB '5' /* mode fond blanc */ #define RELATI '6' /* mode adressage relatif */ #define WRAPAR '7' /* mode pliage de ligne */ #define REPEAT '8' /* mode repetition auto */ #define INTERL '9' /* mode balayage entrelace */ #define ON 'h' /* selection modes ci-dessus */ #define OFF 'l' /* deselection modes ci-dessus */ #define UK 'A' /* jeu de caracteres United Kingdom */ #define US 'B' /* jeu de caracteres United States */ #define SG '0' /* jeu de caracteres Semi Graphics */ #define A1 '1' /* jeu de caracteres Alternate 1 */ #define A2 '2' /* jeu de caracteres Alternate 2 */ #define vtposit(lin, col) printf ("\33[%u;%uf", lin, col) #define vtwindo(li1, li2) printf ("\33[%u;%ur", li1, li2) #define vtattri(attribut) printf ("\33[%cm", attribut) #define vtsmode(car, sel) printf ("\33[?%c%c", car, sel) #define vtcursr(sel) printf ("\33[?25%c", sel) #define vtclscr(mode) printf ("\33[%cJ", mode) #define vtcline(mode) printf ("\33[%cK", mode) #define vtcarac(cset) printf ("\33(%c", cset) #define GetTime(tim) SYS$GETTIM (tim) #define putstr(str) printf ("%s",str) #define max(x,y) (x>y ? x : y) #define min(x,y) (x>y ? y : x) #define NON 0 #define OUI 1 #define VALMIN 0 #define VALMAX 1000 typedef struct { char name [16]; short lmin, cmin; /* ligne et colonne minimum */ short lmax, cmax; /* ligne et colonne maximum */ short lcur, ccur; /* ligne et colonne curseur */ int value; } potard; static int PALLOC = 0; static potard PLIST [16]; potard *CreatePot (lmin, lmax, cmin, cmax, label) short lmin, lmax, cmin, cmax; char *label; { potard *w; w = &PLIST [PALLOC++]; w->value = VALMIN; w->lmin = lmin; w->cmin = cmin; w->lmax = lmax; w->cmax = cmax; w->lcur = lmax-1; w->ccur = (cmax+cmin)/2; strcpy (w->name, label); DrawPot (w); return (w); } DrawLabl (w, hiLite) potard *w; int hiLite; { if (hiLite) vtattri (REVER); vtposit (w->lmax+1, w->cmin); putstr (w->name); if (hiLite) vtattri (NORMAL); } DrawValu (w) potard *w; { vtposit (w->lmin-1, w->cmin); printf (" %+06u ", w->value); } DrawCurs (w, drawIt) potard *w; int drawIt; { vtposit (w->lcur, w->ccur); if (drawIt) putchar ('`'); else putchar (' '); } DrawPot (w) potard *w; { int i; char *deb, *fin, buff[132]; deb = fin = &buff; /* LIGNES HORIZONTALES */ for (i=0; i<=w->cmax-w->cmin; ++i) *fin++ = 'q'; *fin = 0; *deb='l'; *(fin-1)='k'; vtposit (w->lmin,w->cmin); putstr (&buff); *deb='m'; *(fin-1)='j'; vtposit (w->lmax,w->cmin); putstr (&buff); deb = fin = &buff; /* LIGNES VERTICALES */ for (i=0; i<=w->cmax-w->cmin; ++i) *fin++ = ' '; *fin = 0; *deb = 't'; *(deb+1) = 'q'; *(fin-1) = 'x'; for (i = w->lmin+1; i < w->lmax; ++i) { vtposit (i, w->cmin); putstr (&buff); } DrawCurs (w, OUI); DrawLabl (w, NON); DrawValu (w); } Slide (pot, incr) int pot; int incr; { potard *w; int newpos; char msg[255]; w = &PLIST[pot]; w->value += incr; if (w->value < VALMIN) w->value = VALMIN; if (w->value > VALMAX) w->value = VALMAX; newpos = w->lmax-1 - (w->lmax-w->lmin-2) * (w->value-VALMIN) / (VALMAX-VALMIN); if (newpos != w->lcur) { DrawCurs (w,NON); w->lcur = newpos; DrawCurs (w,OUI); } DrawValu (w); sprintf (&msg, "ER %u %u.", pot+1, w->value); EnvoyerSansAR (msg); } #define ESC '\033' DragPots () { channel term; int doIt=OUI; char kbd; int select=0, delta=1, delai; unsigned int avant[4], apres[4]; DrawLabl (&PLIST[select], OUI); term = Assign ("TT"); do { GetTime (&avant); do ; while (NextChar(term) != ESC); GetTime (&apres); delai = (apres[0]-avant[0])/100000; if (delai < 1) { if (delta < 100) ++delta; } else if (delai < 10) { if (delta > 10) ++delta; } else delta = 1; NextChar(term); switch (NextChar(term)) { /* ^ */ case 'A': { Slide (select, delta); break; } /* V */ case 'B': { Slide (select, -delta); break; } /* < */ case 'D': { DrawLabl (&PLIST[select], NON); select = (select+7)%8; DrawLabl (&PLIST[select], OUI); break; } /* > */ case 'C': { DrawLabl (&PLIST[select], NON); select = (select+1)%8; DrawLabl (&PLIST[select], OUI); break; } default: doIt = NON; } } while (doIt); } main () { syter = fopen (&ihma, "w"); printf ("Connexion Syter, status = %u\n", ferror (syter)); getchar (); EnvoyerAvecAR ("RI SYG$LIBRARY:S8"); EnvoyerAvecAR ("EX"); vtcarac (SG); vtclscr (ALL); vtcursr (OFF); CreatePot (02, 23, 02, 09, " V.LECT "); CreatePot (02, 23, 12, 19, " TRANSP "); CreatePot (02, 23, 22, 29, " FR.PRE "); CreatePot (02, 23, 32, 39, " BAND.P "); CreatePot (02, 23, 42, 49, " GAIN.P "); CreatePot (02, 23, 52, 59, " FR.INF "); CreatePot (02, 23, 62, 69, " FR.SUP "); CreatePot (02, 23, 72, 79, " VOLUME "); DragPots (); vtclscr (ALL); vtcursr (ON); vtcarac (US); EnvoyerAvecAR ("AR"); EnvoyerAvecAR ("FI"); fclose (syter); } -- Jean-Yves Bernier

16 years, 1 month

REXEC-type feature over DECNET?

by sampsa＠mac.com

Do DECNET proxies work for this as well, so if I've got a proxy set up between two systems, the remote user gets the appropriate privs? Sampsa On 22 Feb 2010, at 14:29, Steve Davidson wrote: The task object mechanism works great! I have used this with FORTRAN when I supported it for DEC. -Steve ________________________________ From: owner-hecnet at Update.UU.SE on behalf of Kari Uusim ki Sent: Mon 2/22/2010 08:43 To: hecnet at Update.UU.SE Subject: Re: [HECnet] REXEC-type feature over DECNET? On 22.2.2010 14:05, Sampsa Laine wrote: is there any simple way to execute a command on another DECNET node remotely, a la rexec or ssh? Sampsa . Yes, indeed. You can use the TASK object to execute a command at a remote DECnet node. Maybe it is best that you read through the chapter 8 of the DECnet for OpenVMS networking manual: http://h71000.www7.hp.com/doc/73final/documentation/pdf/DECNET_OVMS_NET_MAN… Kari <winmail.dat>

16 years, 1 month

REXEC-type feature over DECNET?

by jeep＠scshome.net

The task object mechanism works great! I have used this with FORTRAN when I supported it for DEC. -Steve ________________________________ From: owner-hecnet at Update.UU.SE on behalf of Kari Uusim ki Sent: Mon 2/22/2010 08:43 To: hecnet at Update.UU.SE Subject: Re: [HECnet] REXEC-type feature over DECNET? On 22.2.2010 14:05, Sampsa Laine wrote: is there any simple way to execute a command on another DECNET node remotely, a la rexec or ssh? Sampsa . Yes, indeed. You can use the TASK object to execute a command at a remote DECnet node. Maybe it is best that you read through the chapter 8 of the DECnet for OpenVMS networking manual: http://h71000.www7.hp.com/doc/73final/documentation/pdf/DECNET_OVMS_NET_MAN… Kari

16 years, 1 month

REXEC-type feature over DECNET?

by uusimaki＠exdecfinland.org

On 22.2.2010 14:05, Sampsa Laine wrote: is there any simple way to execute a command on another DECNET node remotely, a la rexec or ssh? Sampsa . Yes, indeed. You can use the TASK object to execute a command at a remote DECnet node. Maybe it is best that you read through the chapter 8 of the DECnet for OpenVMS networking manual: http://h71000.www7.hp.com/doc/73final/documentation/pdf/DECNET_OVMS_NET_MAN… Kari

16 years, 1 month

REXEC-type feature over DECNET?

by bqt＠softjar.se

Sampsa Laine wrote: is there any simple way to execute a command on another DECNET node remotely, a la rexec or ssh? Not sure about VMS, but in RSX this can all be controlled from software. There is a library of functions to run, abort and fool around with tasks on other hosts. There are also parts available from the command line: .nft /he NFT is the Network File Transfer utility. It can perform file transfers and file operations over the network. Information is available for the following operations: APPEND (/AP) .............. File Append commands COPY ...................... File Transfer commands DELETE (/DE) .............. File Deletion commands DEFAULTS (/DF) ............ Set/Examine Defaults commands DIRECTORY (/AT,/BR,/LI,/FU) Directory list commands EXECUTE (/EX) ............. File Execution commands IDENTIFY (/ID) ............ Identify commands PROTECTION (/PR)........... File Protection commands RENAME (/RE) .............. File Rename command SPOOL (/SP) ............... File Spooling commands SUBMIT (/SB) .............. File Submission commands And the following subjects: DATA CHECKING (/DC) ....... Remote file transfer data checking FILESPECS ................. File Specification syntax NODE NAMES ................ Node and Access control syntax MODES (/AS,/AX,/BK,/IM,/RC) File transfer Mode switches QUOTES .................... Quoting foreign filespecs SWITCHES .................. NFT switch summary VERSION NUMBERS ........... Version number processing . So, you can both run, submit to the spooler or the batch, files to remote machines. Johnny

16 years, 1 month

REXEC-type feature over DECNET?

by sampsa＠mac.com

is there any simple way to execute a command on another DECNET node remotely, a la rexec or ssh? Sampsa

16 years, 1 month

DEC Legacy Event & HECNet possibilities

by bqt＠softjar.se

Mark Wickens wrote: Hi guys, I've now secured an internet connection for the DEC Legacy event in April and wanted to pick your collective brains about what might be interesting to hecnet hobbyists who won't be able to attend the event if we can get some of the machines that will be in attendance connected up to hecnet on the day. A couple of my machines will be there - probably the VAX 4000/90 and either the DEC 3000/600 or the ZX6000 itanium workstation - I'm presuming I'll need to supply an updated IP address for Jonny to patch me in given that my bridge will be on a different IP address? Also, would it be possible for those attendees who've not been connected previously to get connected up on the day, given that they won't have to worry about the bridge setup? Would anyone fancy participating in a coding competition? Anyone have any other suggestions? Hi, Mark. Sounds like fun. Too bad I'm not there. :-) I see no real problems with hooking this up to HECnet. Technically it is easy, as long as we have a defined endpoint to hook up to. The rest is mostly a question of making sure that any machines getting online are configured with an acceptable DECnet address, or else it might become confusion and bad karma. Coding competitions? Doing what? DECnet programs? If you accept someone doing something from an RSX, sure. I might be game. ;-) I'm writing a totally new mail client and server right now. At the moment it will only talk local and DECnet, but in the longer run, it will also be able to talk TCP/IP, once I get down and fix a few things in my TCP/IP for RSX. That will also create a totally new gateway between DECnet and IP, in which I have control of all the code, and knows how it works and can fix things... :-) I hate not having the sources of things. When I find problems, things always gets so much more complicated... Johnny -- Johnny Billquist || "I'm on a bus || on a psychedelic trip email: bqt at softjar.se || Reading murder books pdp is alive! || tryin' to stay hip" - B. Idol

16 years, 1 month

Jump to page:

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

HECnet