HECnet

hecnet@lists.dfupdate.se

15556 discussions

by sampsa＠mac.com

I think Steve Davidson is running SIMH on some pretty old hardware, I think a P3 might be able to pull it off. It won't be blazingly fast of course... Sampsa On 9 Mar 2010, at 15:44, Zane H. Healy wrote: 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/ |

15 years, 1 month

MONK RIP

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/ |

15 years, 1 month

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/ |

15 years, 1 month

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/ |

15 years, 1 month

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

15 years, 2 months

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>

15 years, 2 months

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

15 years, 2 months

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

15 years, 2 months

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

15 years, 2 months

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

15 years, 2 months

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

HECnet