1 INFO-VAX	Sat, 29 Mar 2003	Volume 2003 : Issue 174       Contents:' Re: Another day without VMS advertising ( Re: AS4100 / DEC Server 7300 differences( Re: AS4100 / DEC Server 7300 differences Re: COV Sponsors Re: COV Sponsors Re: COV Sponsors Re: Default Gateway  FAO: Peter "EPLAN" LANGSTOEGER" Re: FAO: Peter "EPLAN" LANGSTOEGER Fortran Guru requested Re: Fortran Guru requested Re: Fortran Guru requested Re: Fortran Guru requested Re: High RMS file activity3 Re: Hoff, what is the status of your book ? (Again) , Re: LCD panel, 500au, ELSA Gloria Card, How?* Legato vs TSM for VMS backup pros and cons# Re: problems with accountn.dat file 3 Re: SIMH Emulation of VAX KA650-A, KA650-B, KA655-A ' Re: SIMH VAX build with MS Visual C++ 6 . Space Invaders was: Re: Fortran Guru requested2 Re: Space Invaders was: Re: Fortran Guru requested% Re: System reqirements of OpenVMS 7.3 " TCPIP Services and IP masquerading& Re: TCPIP Services and IP masquerading& Re: TCPIP Services and IP masquerading& RE: TCPIP Services and IP masquerading& RE: TCPIP Services and IP masquerading/ Re: Three questions re: the VMS startup process  VAX XDM, help needed please!  Re: VAX XDM, help needed please!3 VMS Software Product & Online Documentation Library 7 Re: VMS Software Product & Online Documentation Library  VMS Upgrade Questions  Re: VMS Upgrade Questions  Re: VMS Upgrade Questions 9 Re: Which PAK for DECNET Phase IV under Hobbyist Program? 9 Re: Which PAK for DECNET Phase IV under Hobbyist Program? 9 Re: Which PAK for DECNET Phase IV under Hobbyist Program? 9 Re: Which PAK for DECNET Phase IV under Hobbyist Program? # [DECmcc EMS V3.0] Anyone using it ?   F ----------------------------------------------------------------------   Date: 29 Mar 03 11:55:58 +0100) From: p_sture@elias.decus.ch (Paul Sture) 0 Subject: Re: Another day without VMS advertising) Message-ID: <6L24mfT7geNa@elias.decus.ch>   g In article <3E831DF2.922A43FD@blueyonder.co.uk>, Tim Llewellyn <tim.llewellyn@blueyonder.co.uk> writes:  >  >  > John Smith wrote:  >   E >> I keep waking up from nightmares at night, bathed in a cold sweat, I >> saying over and over "I don't believe in Erich von Daniken's theories. B >> I don't believe in alien crop circles. I don't believe in alienG >> abduction. I don't believe in Roswell aliens. I don't believe George G >> Bush. But I do believe that HP is trying to kill VMS in the market."  > E > I was chatting yesterday to an agent trying to market Oracle skills H > locally. He had not heard of VMS. Oracle runs on VMS. Sort of backs up > your last sentence.  >   J In the same vein I came across a site which is hoping to provide somewhereH folks can market their technical skills. There was a drop down list withG a comprehensive set of skills across the whole of IT. The only VMS ones  were (from memory)   o - VAX VMS Operations o - VMS DCL programming   E It appears that something like Jobserve was used to compile that list  of skills. Depressing...   --  
 Paul Sture   ------------------------------  % Date: Sat, 29 Mar 2003 13:06:22 +0100 " From: "Hans Vlems" <hvlems@iae.nl>1 Subject: Re: AS4100 / DEC Server 7300 differences 5 Message-ID: <b64282$1fvuf$1@ID-143435.news.dfncis.de>   > "Roland Barmettler" <sendhere@spammail.com> schreef in bericht5 news:20030328220823.4abbf7dd.sendhere@spammail.com...  > Hello  > C > I've been wondering whether it would be possible so load SRM onto E > a DEC Server 7310 and run VMS on it. The systems seem very similar.  > Thanks for any answers.  ;-) >  > Greetings, Roland   / Is a 7310 a dual processor version of the 7305?   ) The HP site only lists the 7300 and 7305: A http://ftp.digital.com/pub/DEC/Alpha/firmware/readmes/as4x00.html ; The firmware upgrade is called: alpha4100_v60_fw_relnote.ps   < So the 7300 is a white box version of the Alpha Server 4100. In SRM mode try this:    P00>>> show s*   My 5305 returns: sys_model_num   1200  $ I guess you system will return 4100.  " If you add the following commands:   >>> set boot_reset on  >>> set srm_boot on   I then you'll be able to install VMS, provided the hardware is supported by = VMS. Make sure you have at least a supported SCSI controller.  Hans   ------------------------------  % Date: Sat, 29 Mar 2003 14:22:57 +0100 / From: Roland Barmettler <sendhere@spammail.com> 1 Subject: Re: AS4100 / DEC Server 7300 differences ; Message-ID: <20030329142257.3c441f70.sendhere@spammail.com>   
 Hello Hans  1 > Is a 7310 a dual processor version of the 7305?   5 The 7310 apparently can have up to four 600 MHz CPUs.    > My 5305 returns: > sys_model_num   1200  @ So I take it you do run VMS on a "NT only" AlphaServer ? Cool...   Thanks for the information!    Greetings, Roland   E --------------------------------------------------------------------- 4  Roland Barmettler    |   EMail:  roli@freestone.net5  Zuercherstrasse 16   |           roli@barmettler.net =  CH-8107 Buchs  ZH    |   WWW   : http://roli.barmettler.net/    ------------------------------  # Date: Sat, 29 Mar 2003 11:54:57 GMT " From:   VAXman-  @SendSpamHere.ORG Subject: Re: COV Sponsors 0 Message-ID: <00A1D948.94EC2F02@SendSpamHere.ORG>  q In article <857e9e41.0303282030.7bdb425a@posting.google.com>, susan_skonetski@hotmail.com (Sue Skonetski) writes: E >Does anyone else get a side bar with the COV sponser that says "help 5 >in migrating off VMS to Linux and a few other OS's"?  >  >sue  I Well, since I typically belly up right to the front of the bar, I suppose I I have missed them.  At which bar and to which side of it will I find the 	 sponsors?      --O VAXman- OpenVMS APE certification number: AAA-0001     VAXman(at)TMESIS(dot)COM              5   "Well my son, life is like a beanstalk, isn't it?"     ------------------------------  # Date: Sat, 29 Mar 2003 12:27:48 GMT 7 From: brad@.homeportal.2wire.net (Bradford J. Hamilton)  Subject: Re: COV Sponsors ? Message-ID: <8jgha.273632$6b3.830394@rwcrnsc51.ops.asp.att.net>   U In article <3E852EF0.6154355B@eps.zk.dec.com>, Hein <hein_cov@eps.zk.dec.com> writes: > >I have send Sue a mail. We'll get her on an add-free internal
 >news-reader. G >On the other hand... it is always good to know what 'the others' might  >be seeing!    Hopefully not too OT...   L When I use Google to search the c.o.v. archives, one of the "advertisements"F that inevitably shows up at the top of the page is a link to Sector 7.  K IBM sure knows how to manipulate Google...apologies to Larry if I have left A anything unsaid here; I assume he knows what/who Sector 7 is/are.    >  >Cheers, >Hein. >  >Sue Skonetski wrote:  > G >> Does anyone else get a side bar with the COV sponser that says "help 7 >> in migrating off VMS to Linux and a few other OS's"?  >> >> sue >   A _________________________________________________________________ 0 Bradford J. Hamilton			"All opinions are my own"/ bMradAhamiPltSon@atMtAbi.cPoSm		"Lose the MAPS"    ------------------------------   Date: 29 Mar 03 14:36:40 +0100) From: p_sture@elias.decus.ch (Paul Sture)  Subject: Re: COV Sponsors ) Message-ID: <lAp10bswWZCE@elias.decus.ch>   U In article <00A1D948.94EC2F02@SendSpamHere.ORG>,   VAXman-  @SendSpamHere.ORG writes: s > In article <857e9e41.0303282030.7bdb425a@posting.google.com>, susan_skonetski@hotmail.com (Sue Skonetski) writes: F >>Does anyone else get a side bar with the COV sponser that says "help6 >>in migrating off VMS to Linux and a few other OS's"? >> >>sue  > K > Well, since I typically belly up right to the front of the bar, I suppose K > I have missed them.  At which bar and to which side of it will I find the  > sponsors?  >   H The clue is in Sue's message Id and Organization fields. She used GoogleH Groups to post that message, and that is where the offending message can be seen.   --  
 Paul Sture   ------------------------------  % Date: Sat, 29 Mar 2003 01:56:18 -0400 0 From: JF Mezei <jfmezei.spamnot@vl.videotron.ca> Subject: Re: Default Gateway/ Message-ID: <3E85357F.37D7DE58@vl.videotron.ca>    routerwoman wrote: > N > Is it possible to set up a default gateway on a VMS system.  I have a systemN > that's running RIPv1 just to talk to the one and only router in the network.G > Seems like a static route to the Gateway would stop all that chatter.     = Assuming you have the TCPIP Services stack (the Digital one):   3 $TCPIP SET ROUTE /DEFAULT/GATEWAY=router.ip.address > $TCPIP SET ROUTE /DEFAULT/GATEWAY=router.ip.address /PERMANENT   TCPIP> HELP SET ROUTE    ------------------------------  % Date: Sat, 29 Mar 2003 10:32:51 -0000 2 From: "Nicholas Scott" <nick.scott@ukonline.co.uk>' Subject: FAO: Peter "EPLAN" LANGSTOEGER ; Message-ID: <qefha.107$ZZ5.94@newsfep3-gui.server.ntli.net>   K Re the VAX/VMS installation media, thanks for your offer.  I'd like to take I you up on that, but unfortunately, any emails that I send you are bounced K immediately.  I've tried to email you from two different accounts, but with  no success.   G Please could you email me with perhaps, an alternate account that I can  reach you from?    Many Thanks, Nick S.   K P.S.  My apologies go to the newsgroup for posting a personal message here, I but I have no other way of reaching Peter, and I don't want him to thinks ; I'm being ignorant after he took the trouble to contact me.    ------------------------------  # Date: Sat, 29 Mar 2003 17:37:44 GMT 6 From: peter@langstoeger.at (Peter 'EPLAN' LANGSTOEGER)+ Subject: Re: FAO: Peter "EPLAN" LANGSTOEGER 3 Message-ID: <IRkha.34181$Xa3.328001@news.chello.at>   p In article <qefha.107$ZZ5.94@newsfep3-gui.server.ntli.net>, "Nicholas Scott" <nick.scott@ukonline.co.uk> writes:L >Re the VAX/VMS installation media, thanks for your offer.  I'd like to takeJ >you up on that, but unfortunately, any emails that I send you are bouncedL >immediately.  I've tried to email you from two different accounts, but with >no success.  + Yup. My Anti-SPAM filter rejected the mails   P MX SMTP server: rejected message from <NICK.SCOTT@ukonline.co.uk> sent by black-7 holed system [212.135.6.13] (on list MULTIHOP.DSBL.ORG) P MX SMTP server: rejected message from <nick.scott@ukonline.co.uk> sent by black-7 holed system [212.135.6.10] (on list MULTIHOP.DSBL.ORG)   % I've yet to find the other address...   H >Please could you email me with perhaps, an alternate account that I can >reach you from?   I'll contact you again.    --   Peter "EPLAN" LANGSTOEGER % Network and OpenVMS system specialist  E-mail  peter@langstoeger.atF A-1030 VIENNA  AUSTRIA              I'm not a pessimist, I'm a realist   ------------------------------  % Date: Sat, 29 Mar 2003 13:12:04 +0100 1 From: PRSTSC::DTL <Didier.Morandi.nospam@Free.fr>  Subject: Fortran Guru requested 4 Message-ID: <3e858dd7$0$28763$626a54ce@news.free.fr>  P I encounter some trouble porting a fortran/vax program to Alpha (no warnings at + compile time, either with or without /F77):    $ run spcinv ../..   P %SYSTEM-F-ACCVIO, access violation, reason mask=00, virtual address=000000000000& 0030, PC=FFFFFFFF808E5380, PS=0000001B/ %TRACE-F-TRACEBACK, symbolic stack dump follows K    image    module    routine             line      rel PC           abs PC P                                              0 0000000000000000 FFFFFFFF808E5380P   SPCINV  INVADERS  SLEEP                  141 0000000000000ADC 0000000000030ADCP   SPCINV  INVADERS  SPECIAL_GRAPHIC        579 0000000000002BB8 0000000000032BB8P   SPCINV  INVADERS  MOVE                    42 00000000000003D0 00000000000303D0P   SPCINV  INVADERS  INVADERS                27 0000000000000000 0000000000000000P                                              0 FFFFFFFF802513D4 FFFFFFFF802513D4  ! 132         SUBROUTINE SLEEP(TAG) L 133 C       Set timer and wait for TAG seconds.  TAG is a CHARACTER*5 stringO 134 C       of the form ##.##, which is the seconds, and hundredths of seconds. > 135 C       To delay game for 5 seconds, TAG would be '05.00'.$ 136         IMPLICIT INTEGER*4 (A-Z) 137         EXTERNAL SS$_NORMAL ! 138         DOUBLE PRECISION TIME ( 139         CHARACTER DELTA_TIME*9,TAG*5 140 A 141         DELTA_TIME='0 ::'//TAG          !Concatenate strings. J 142         RET_STAT=SYS$BINTIM(DELTA_TIME,TIME)    !ASCII to binary time.@ 143         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'BINTIM failed.'M 144         RET_STAT=SYS$SETIMR(,TIME,,)            !Set timer, event flag 0. @ 145         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'SETIMR failed.'O 146         RET_STAT=SYS$WAITFR(%VAL(0))            !Wait for flag 0 to be set. @ 147         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'WAITFR failed.' 148         RETURN 149         END    Thanks,    D.   ------------------------------    Date: 29 Mar 2003 04:36:17 -0800, From: john babiarz <john_member@newsguy.com># Subject: Re: Fortran Guru requested ) Message-ID: <b6440102329@drn.newsguy.com>   H In article <3e858dd7$0$28763$626a54ce@news.free.fr>, PRSTSC::DTL says... > P >I encounter some trouble porting a fortran/vax program to Alpha (no warnings at, >compile time, either with or without /F77): > 
 >$ run spcinv  >../.. > Q >%SYSTEM-F-ACCVIO, access violation, reason mask=00, virtual address=000000000000 ' >0030, PC=FFFFFFFF808E5380, PS=0000001B 0 >%TRACE-F-TRACEBACK, symbolic stack dump followsL >   image    module    routine             line      rel PC           abs PC$ >0 0000000000000000 FFFFFFFF808E5380O >SPCINV  INVADERS  SLEEP                  141 0000000000000ADC 0000000000030ADC O >SPCINV  INVADERS  SPECIAL_GRAPHIC        579 0000000000002BB8 0000000000032BB8 O >SPCINV  INVADERS  MOVE                    42 00000000000003D0 00000000000303D0 O >SPCINV  INVADERS  INVADERS                27 0000000000000000 0000000000000000 $ >0 FFFFFFFF802513D4 FFFFFFFF802513D4 > " >132         SUBROUTINE SLEEP(TAG)M >133 C       Set timer and wait for TAG seconds.  TAG is a CHARACTER*5 string P >134 C       of the form ##.##, which is the seconds, and hundredths of seconds.? >135 C       To delay game for 5 seconds, TAG would be '05.00'. % >136         IMPLICIT INTEGER*4 (A-Z)   >137         EXTERNAL SS$_NORMAL" >138         DOUBLE PRECISION TIME) >139         CHARACTER DELTA_TIME*9,TAG*5  >140B >141         DELTA_TIME='0 ::'//TAG          !Concatenate strings.K >142         RET_STAT=SYS$BINTIM(DELTA_TIME,TIME)    !ASCII to binary time. A >143         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'BINTIM failed.' N >144         RET_STAT=SYS$SETIMR(,TIME,,)            !Set timer, event flag 0.A >145         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'SETIMR failed.' P >146         RET_STAT=SYS$WAITFR(%VAL(0))            !Wait for flag 0 to be set.A >147         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'WAITFR failed.'  >148         RETURN  >149         END >  >Thanks, >  >D.  >          PROGRAM FORT3  	IMPLICIT NONE   	CHARACTER*5 TAG 	TAG = '05.00' 	CALL SLEEP(TAG)   	END   	SUBROUTINE SLEEP(TAG)H C       Set timer and wait for TAG seconds.  TAG is a CHARACTER*5 stringK C       of the form ##.##, which is the seconds, and hundredths of seconds. : C       To delay game for 5 seconds, TAG would be '05.00'.   	IMPLICIT INTEGER*4 (A-Z)  	EXTERNAL SS$_NORMAL 	DOUBLE PRECISION TIME 	CHARACTER DELTA_TIME*9,TAG*5  	 6 	DELTA_TIME='0 ::'//TAG          !Concatenate strings.? 	RET_STAT=SYS$BINTIM(DELTA_TIME,TIME)    !ASCII to binary time. 5 	IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'BINTIM failed.' B 	RET_STAT=SYS$SETIMR(,TIME,,)            !Set timer, event flag 0.5 	IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'SETIMR failed.' D 	RET_STAT=SYS$WAITFR(%VAL(0))            !Wait for flag 0 to be set.5 	IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'WAITFR failed.'  	RETURN  	END    I This worked for me VMS 7.2-1 Fortran version 7.2-780 both in F90 and /F77  on an alpha 1000-400   john babiarz   ------------------------------  % Date: Sat, 29 Mar 2003 16:14:56 +0100 1 From: PRSTSC::DTL <Didier.Morandi.nospam@Free.fr> # Subject: Re: Fortran Guru requested 4 Message-ID: <3e85b8b2$0$28743$626a54ce@news.free.fr>   john babiarz wrote:  > K > This worked for me VMS 7.2-1 Fortran version 7.2-780 both in F90 and /F77  > on an alpha 1000-400  O it works for me too, but not for the Space Invaders... Same error when running  ( in nodebug mode. In debug mode, I have a   DBG> go E %SYSTEM-F-HPARITH, high performance arithmetic trap, Imask=00000000,  < Fmask=00000001, summary=02, PC=0000000000032C18, PS=0000001BN -SYSTEM-F-FLTINV, floating invalid operation, PC=0000000000032C18, PS=0000001BA break on unhandled exception preceding INVADERS\MOVE\%LINE 601+48   M I tried to replace all implicit integer*2 (A-Z) to Integer*4, same result. I  8 tried to compile/OLD_F77, same plus a hollerith warning.  & I post the source in the next message.O BTW, it is not the same program as the one which used to lurk around at DEC in  	 the 80's.    D.   ------------------------------  % Date: Sat, 29 Mar 2003 16:19:03 +0100 4 From: Didier Morandi <Didier.Morandi.nospam@Free.fr># Subject: Re: Fortran Guru requested & Message-ID: <3E85B967.1010304@Free.fr>  ! C			Video Terminal Space Invaders  C : C	Originally written in C by Jude Miller, 1979, Cambridge.8 C	Translated to FORTRAN-77 by Jonathan Boswell, July '81; C	at the University of Virginia, Charlottesville, Virginia.  C H C	Machine dependent subroutines are SLEEP, CLEAR, MOVE, SPECIAL_GRAPHIC,C C	and FUNCTION INCHAR.  These subroutines are written for a VAX/VMS - C	operating system employing VT100 terminals.  C  	PROGRAM INVADERS  	IMPLICIT INTEGER*2 (A-Z)  	LOGICAL FLIP,FLOP,LEFT,SLOW 	CHARACTER*80 BARR 	COMMON/CHRS/BARR(4) 	PARAMETER MAX_BOMBS=4, 	COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME8 	1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT 	2 ,FALLING_BOMBS,SLOW1 	3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL F 	4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS) 	5 ,SHIP_VAL,SHIP_COL,SHIP_VEL; 	DATA GAME,SCORES,BASES,DANGER,MAX_DANGER,MAX_BOMB_ROW,SLOW  	1 /0,0,3,11,22,20,.FALSE./    	CALL CLEAR  	CALL MOVE(5,0) / 	TYPE*,'Attention: Alien invasion in progress!'  	TYPE*< 	TYPE*,'Instructions:   <1>     to move the laser base left'7 	TYPE*,'                <2>     to halt the laser base' = 	TYPE*,'                <3>     to move the laser base right' 5 	TYPE*,'                <space> to fire a laser beam' ( 	TYPE*,'                <Q>     to quit' 	TYPE*2 	TYPE*,'        Type:   <1>     to play Bloodbath'9 	TYPE*,'                <2>     to play We Come in Peace' ? 	TYPE*,'                <3>     to play Invasion of the Aliens' @ 	TYPE*,'                <4>     to play Invisible Alien Weasels'
 	ACCEPT*,GAME    	CALL SPECIAL_GRAPHIC(.TRUE.) + 1	CALL TABLEAU	!Draw starting game tableau. * 	CALL SLEEP('04.00')	!Pause a few seconds.1 2	CALL COMMAND	!See if there's a command waiting.  	CALL BEAM	!Update laser beam.$ 	CALL BASE	!Slide laser base around. 	CALL BOMB	!Drop alien bombs. 2 	CALL SHIP	!Fly mystery ship across top of screen.  	CALL ADVANCE	!Advance an alien.% 	CALL ADVANCE	!Advance another alien.   	IF (ALIENS_LEFT.EQ.0)   GO TO 1 	GO TO 2 	END     	SUBROUTINE TABLEAU * C	Tableau draws the starting game tableau. 	IMPLICIT INTEGER*2 (A-Z)  	LOGICAL FLIP,FLOP,LEFT,SLOW 	CHARACTER*80 BARR 	COMMON/CHRS/BARR(4) 	PARAMETER MAX_BOMBS=4, 	COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME8 	1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT 	2 ,FALLING_BOMBS,SLOW1 	3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL F 	4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS) 	5 ,SHIP_VAL,SHIP_COL,SHIP_VEL 	CHARACTER*80 INIT_BARR(4) 	DATA INIT_BARR/8 	1'         lwwwwwwk          lklklklk          lklklklk 	2          lwwwwwwk         ', 9 	3'        lnnvvvvnnk        lvnvvvvnvk        lvnvvvvnvk  	4        lnnvvvvnnk       ', 9 	5'        tnu    tnu        tqu    tqu        tqu    tqu  	6        tnu    tnu       ', 9 	7'        mvj    mvj        mqj    mqj        mqj    mqj  	8        mvj    mvj        '/ 	CALL CLEAR  	CALL MOVE(0,0)  	CALL SEND('SCORE:') 	CALL SEND_INT(SCORES) 	CALL MOVE(0,18); 	CALL SEND('I N V A S I O N   O F   T H E   A L I E N S !')  	CALL MOVE(0,70) 	CALL SEND('BASES:') 	CALL SEND_INT(BASES)   % C	Initialize alien co-ords, display !  	ALIENS_LEFT = 55    	DO 20 J=0,4 		CALL MOVE(DANGER-(2*J),0)  		DO 20 I=1,11' 			CALL DS_OBJ(((I+J).AND.1)+(2*(J/2)))  			CALL SEND(' ') % 			ALIEN_ROW(11*J+I) = DANGER - (2*J)   20			ALIEN_COL(11*J+I) = 6*(I-1) 	ALIEN = 55  	FLIP = .FALSE.  	FLOP = .FALSE.  	LEFT = .FALSE.   + C	Initialize laser base position, velocity.  	BASE_ROW = 23 	BASE_COL = 72 	BASE_VEL = -1
 	BEAM_ROW = 0  	CALL MOVE(BASE_ROW,BASE_COL)  	CALL DS_OBJ(7)   1 C	Initialize bomb arrays. (ROW = 0 implies empty)  	DO 30 I=1,MAX_BOMBS 30	BOMB_ROW(I) = 0 	B = 0 	FALLING_BOMBS = 0   C	Initialize barricades. 	DO 40 I=MAX(1,DANGER-17),4  		CALL MOVE(I+18,0)  		CALL SEND(INIT_BARR(I)) 5 40		BARR(I)=INIT_BARR(I)	!String assignment, 1 to 80. C 	DANGER=MIN(MAX_DANGER,DANGER+1) !Get ready for next set of aliens.    C	Initialize mystery ships. 
 	SHIP_VEL = 0  	RETURN  	END     	SUBROUTINE SLEEP(TAG)B C	Set timer and wait for TAG seconds.  TAG is a CHARACTER*5 stringE C	of the form ##.##, which is the seconds, and hundredths of seconds. 4 C	To delay game for 5 seconds, TAG would be '05.00'. 	IMPLICIT INTEGER*4 (A-Z)  	EXTERNAL SS$_NORMAL 	DOUBLE PRECISION TIME 	CHARACTER DELTA_TIME*9,TAG*5   . 	DELTA_TIME='0 ::'//TAG		!Concatenate strings.< 	RET_STAT=SYS$BINTIM(DELTA_TIME,TIME)	!ASCII to binary time.5 	IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'BINTIM failed.' 8 	RET_STAT=SYS$SETIMR(,TIME,,)		!Set timer, event flag 0.5 	IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'SETIMR failed.' : 	RET_STAT=SYS$WAITFR(%VAL(0))		!Wait for flag 0 to be set.5 	IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'WAITFR failed.'  	RETURN  	END     	SUBROUTINE COMMAND  	IMPLICIT INTEGER*2 (A-Z)  	LOGICAL FLIP,FLOP,LEFT,SLOW 	CHARACTER*80 BARR 	COMMON/CHRS/BARR(4) 	PARAMETER MAX_BOMBS=4, 	COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME8 	1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT 	2 ,FALLING_BOMBS,SLOW1 	3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL F 	4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS) 	5 ,SHIP_VAL,SHIP_COL,SHIP_VEL 	BYTE INCHAR,INPT   6 	IF(SLOW)CALL SLEEP('04.00')	!Use all five characters. 	IF (GAME.EQ.1) THEN# 		IF (BASE_COL.LE.1)   BASE_VEL = 1 $ 		IF (BASE_COL.GE.72)  BASE_VEL = -1 		ENDIF   1 	INPT=INCHAR()		!Take in character from keyboard.  	IF(INPT.EQ.' ')THEN$ 		IF (BEAM_ROW.EQ.0)   BEAM_ROW = 23 		RETURN( 	ELSE IF(INPT.EQ.'Q'.OR.INPT.EQ.'q')THEN 		CALL HALT  		ENDIF  	IF(GAME.EQ.1)RETURN9 	IF(INPT.LE.'3'.AND.INPT.GE.'1') BASE_VEL=INPT-ICHAR('2')  	RETURN  	END     	BYTE FUNCTION INCHAR() ; C	Take in single character from terminal, but don't wait if  C	it isn't there.  	IMPLICIT INTEGER*4 (A-Z)  	INTEGER*2 TTIOSB(4)- 	EXTERNAL IO$_READLBLK,IO$M_TIMED,IO$M_NOECHO   	EXTERNAL SS$_NORMAL,SS$_TIMEOUT 	CHARACTER*63 TERMINAL 	LOGICAL FIRST 	DATA FIRST/.TRUE./    	IF(FIRST)THEN# C		Find out what terminal we're on. & 		SSCODE=SYS$TRNLOG('TT',,TERMINAL,,,): 		IF(SSCODE.NE.%LOC(SS$_NORMAL))STOP'Translation failure.' C		Assign channel.' 		SSCODE=SYS$ASSIGN(TERMINAL,TT_CHAN,,) 9 		IF(SSCODE.NE.%LOC(SS$_NORMAL))STOP'Assignment failure.'  		FIRST=.FALSE. ; C		Manufacture QIO command with NOECHO and TIMED modifiers. 5 		TIMED_IO = IOR(%LOC(IO$_READLBLK),%LOC(IO$M_TIMED)) , 		TIMED_IO = IOR(TIMED_IO,%LOC(IO$M_NOECHO)) 		ENDIF   9 C	Read character from TT_CHAN into INCHAR with 0 timeout. 6 1	SSCODE=SYS$QIOW(%VAL(0),%VAL(TT_CHAN),%VAL(TIMED_IO)' 	1 ,TTIOSB,,,INCHAR,%VAL(1),%VAL(0),,,) 8 	IF(SSCODE.NE.%LOC(SS$_NORMAL))STOP'QIO argument error.'   	ERROR=TTIOSB(1)$ 	IF(ERROR.EQ.%LOC(SS$_TIMEOUT)) THEN
 		INCHAR=0 		RETURN 		ENDIF % 	IF(ERROR.EQ.%LOC(SS$_NORMAL)) RETURN  	STOP'QIO return error.' 	END     	SUBROUTINE BASE  C	Move laser base left or right. 	IMPLICIT INTEGER*2 (A-Z)  	LOGICAL FLIP,FLOP,LEFT,SLOW 	CHARACTER*80 BARR 	COMMON/CHRS/BARR(4) 	PARAMETER MAX_BOMBS=4, 	COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME8 	1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT 	2 ,FALLING_BOMBS,SLOW1 	3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL F 	4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS) 	5 ,SHIP_VAL,SHIP_COL,SHIP_VEL   	OLD_COL=BASE_COL  	BASE_COL=BASE_COL+BASE_VEL  	IF (BASE_COL.LT.1) THEN 		BASE_COL = 1 	ELSE IF (BASE_COL.GT.72) THEN 		BASE_COL = 72  		ENDIF   	IF (BASE_COL.EQ.OLD_COL) RETURN 	CALL MOVE(BASE_ROW,BASE_COL)  	CALL DS_OBJ(7)  	RETURN  	END       	SUBROUTINE BEAM1 C	Activate or advance the laser beam if required.  	IMPLICIT INTEGER*2 (A-Z)  	LOGICAL FLIP,FLOP,LEFT,SLOW 	CHARACTER*80 BARR 	COMMON/CHRS/BARR(4) 	PARAMETER MAX_BOMBS=4, 	COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME8 	1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT 	2 ,FALLING_BOMBS,SLOW1 	3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL F 	4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS) 	5 ,SHIP_VAL,SHIP_COL,SHIP_VEL   C	Display beam 	IF(BEAM_ROW.EQ.0)RETURN5 	BEAM_ROW=MAX(BEAM_ROW-1,0)	!Increment beam position. , 	IF(BEAM_ROW.EQ.0)THEN		!Erase beam, return. 		CALL MOVE(1,BEAM_COL) ( 		CALL SEND(' '//CHAR(8)//CHAR(10)//' ') 		RETURN 	ELSE IF(BEAM_ROW.EQ.21)THEN 		CALL MOVE(21,BEAM_COL) 		CALL SEND('x') 	ELSE IF(BEAM_ROW.EQ.22)THEN 		BEAM_COL = BASE_COL + 3  		CALL MOVE(22,BEAM_COL) 		CALL SEND('x') 	ELSE  		CALL MOVE(BEAM_ROW,BEAM_COL)2 		CALL SEND('x'//CHAR(8)//CHAR(10)//CHAR(10)//' ') 	ENDIF  " C	Check for contact with an alien.   	DO 10 I=1,55 B 	IF ((ALIEN_ROW(I).EQ.BEAM_ROW).AND.((ALIEN_COL(I)+1).LE.BEAM_COL)0 	1	    .AND.((ALIEN_COL(I)+3).GE.BEAM_COL)) THEN
 C	Contact!' 		SCORES = SCORES+(I/22)+1	!Add points.  		CALL MOVE(0,7) 		CALL SEND_INT(SCORES) $ 		CALL SEND(CHAR(7))	!Ring the bell.  		CALL MOVE(BEAM_ROW+1,BEAM_COL) 		CALL SEND(' ')& 		CALL MOVE(ALIEN_ROW(I),ALIEN_COL(I))( 		CALL DS_OBJ(6)		!Erase beam and alien. 		BEAM_ROW=0. 		ALIEN_ROW(I)=0		!Clear beam and alien state. 		ALIENS_LEFT=ALIENS_LEFT-1  		RETURN 		ENDIF  10	CONTINUE     C	Check for contact with a bomb. 	DO 20 I=1,MAX_BOMBS9 	IF (BEAM_COL.NE.BOMB_COL(I).OR.BOMB_ROW(I).EQ.0)GO TO 20 > 	IF(BEAM_ROW.EQ.BOMB_ROW(I).OR.BEAM_ROW-1.EQ.BOMB_ROW(I)) THEN 		CALL MOVE(BEAM_ROW,BEAM_COL)( 		CALL SEND(' '//CHAR(8)//CHAR(10)//' ') 		BEAM_ROW = 0! 		CALL MOVE(BOMB_ROW(I),BEAM_COL)  		CALL SEND(' '//CHAR(7))  		FALLING_BOMBS=FALLING_BOMBS-1  		BOMB_ROW(I) = 0  		RETURN 		ENDIF  20	CONTINUE   % C	Check for contact with a barricade. / 	IF ((BEAM_ROW.GE.19).AND.(BEAM_ROW.LE.22).AND. 9 	1(BARR(BEAM_ROW-18)(BEAM_COL+1:BEAM_COL+1).NE.' ')) THEN  		CALL MOVE(BEAM_ROW,BEAM_COL)1 		CALL SEND(' '//CHAR(8)//CHAR(10)//' '//CHAR(7)) 0 		BARR(BEAM_ROW-18)(BEAM_COL+1:BEAM_COL+1) = ' ' 		BEAM_ROW = 0 		RETURN 		ENDIF   ( C	Check for contact with a mystery ship. 	I=SHIP_COL-SHIP_VEL6 	IF (SHIP_VEL.NE.0.AND.BEAM_ROW.EQ.1.AND.BEAM_COL.GT.I 	1.AND.BEAM_COL.LT.I+7) THEN
 C	Contact! 		CALL MOVE(1,I)- 		CALL SEND(CHAR(7)//'        ')	!Erase ship.  		SHIP_VEL = 0 		SCORES = SCORES+SHIP_VAL/3 		CALL MOVE(0,7) 		CALL SEND_INT(SCORES)  	ENDIF 	RETURN  	END     	SUBROUTINE BOMB C	Advance the next active bomb.  	IMPLICIT INTEGER*2 (A-Z)  	LOGICAL FLIP,FLOP,LEFT,SLOW 	CHARACTER*80 BARR 	COMMON/CHRS/BARR(4) 	PARAMETER MAX_BOMBS=4, 	COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME8 	1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT 	2 ,FALLING_BOMBS,SLOW1 	3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL F 	4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS) 	5 ,SHIP_VAL,SHIP_COL,SHIP_VEL  ! 	IF (FALLING_BOMBS.EQ.0)   RETURN  10	B=B+1 	IF (B.GT.MAX_BOMBS) B=1 	IF (BOMB_ROW(B).EQ.0) GO TO 10   / C	Advance the bomb, check for hit, and display.  	BOMB_ROW(B)=BOMB_ROW(B)+1 	IF (BOMB_ROW(B).EQ.23) THEN$ 		IF ((BOMB_COL(B).GT.BASE_COL).AND.* 	1	    (BOMB_COL(B).LE.(BASE_COL+5))) THEN C	The base is hit! 			BASES=BASES-1 			CALL MOVE(0,76) 			CALL SEND_INT(BASES) " C	Make some noise, erase the base.' 			CALL SEND(CHAR(7)//CHAR(7)//CHAR(7))  			IF (BASES.EQ.0) CALL HALT0 			CALL SLEEP('02.00')	!Use all five characters. 			CALL MOVE(23,BASE_COL)  			CALL SEND('       ')  			BASE_COL = 72 			BASE_VEL = -1 			ENDIF		!Bomb erased below.  		ENDIF   4 	IF((BOMB_ROW(B).GE.19).AND.(BOMB_ROW(B).LT.23).AND.B 	1(BARR(BOMB_ROW(B)-18)(BOMB_COL(B)+1:BOMB_COL(B)+1).NE.' ')) THEN C	The bomb has hit a barricade. & 		CALL MOVE(BOMB_ROW(B)-1,BOMB_COL(B))1 		CALL SEND(' '//CHAR(8)//CHAR(10)//' '//CHAR(7)) 9 		BARR(BOMB_ROW(B)-18)(BOMB_COL(B)+1:BOMB_COL(B)+1) = ' '  		BOMB_ROW(B) = 0  		FALLING_BOMBS=FALLING_BOMBS-1  		RETURN 		ENDIF   ' C	Now display bomb in its new location. % 	CALL MOVE(BOMB_ROW(B)-1,BOMB_COL(B)) ' 	CALL SEND(' '//CHAR(8)//CHAR(10)//'*') ) 	IF (BOMB_ROW(B).EQ.23) THEN	!Erase bomb.  		FALLING_BOMBS=FALLING_BOMBS-1  		BOMB_ROW(B) = 0  		CALL SEND(CHAR(8)//' ')  		ENDIF  	RETURN  	END     	SUBROUTINE SHIP+ C	Create or advance a mystery ship (maybe).  	IMPLICIT INTEGER*2 (A-Z)  	LOGICAL FLIP,FLOP,LEFT,SLOW 	CHARACTER*80 BARR 	COMMON/CHRS/BARR(4) 	PARAMETER MAX_BOMBS=4, 	COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME8 	1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT 	2 ,FALLING_BOMBS,SLOW1 	3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL F 	4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS) 	5 ,SHIP_VAL,SHIP_COL,SHIP_VEL	 	REAL RAN  	INTEGER*4 SEED  	DATA SEED/337733893/    	IF (SHIP_VEL.EQ.0) THEN 		IF (RAN(SEED).LT..005) THEN 0 C	Create a mystery ship about once every minute. 			IF (RAN(SEED).LT..2) THEN 				SHIP_VEL = -1  				SHIP_COL = 72  			ELSE  				SHIP_VEL = 1 				SHIP_COL = 1 			ENDIF 			SHIP_VAL = 90 		ENDIF    	ELSE " C	Update an existing mystery ship. 		CALL MOVE(1,SHIP_COL)  		IF (GAME.NE.4) THEN  			WHIRL=MOD(SHIP_COL,3) 			IF(WHIRL.EQ.0)THEN  				CALL SEND(' <--`> ') 			ELSE IF (WHIRL.EQ.1)THEN  				CALL SEND(' <-`-> ') 			ELSE  				CALL SEND(' <`--> ')	 				ENDIF  			ENDIF 		SHIP_VAL=SHIP_VAL-1  		SHIP_COL = SHIP_COL+SHIP_VEL* 		IF (SHIP_COL.GT.72.OR.SHIP_COL.LT.1)THEN C		Remove the mystery ship. ! 			CALL MOVE(1,SHIP_COL-SHIP_VEL)  			CALL SEND('        ') 			SHIP_VEL = 0  		ENDIF  	ENDIF 	RETURN  	END     	SUBROUTINE ADVANCE  C	Advance the next alien.  	IMPLICIT INTEGER*2 (A-Z)  	LOGICAL FLIP,FLOP,LEFT,SLOW 	CHARACTER*80 BARR 	COMMON/CHRS/BARR(4) 	PARAMETER MAX_BOMBS=4, 	COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME8 	1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT 	2 ,FALLING_BOMBS,SLOW1 	3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL F 	4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS) 	5 ,SHIP_VAL,SHIP_COL,SHIP_VEL   10	ALIEN=ALIEN+1 	IF (ALIEN .GT. 55)THEN 2 		IF (ALIENS_LEFT.EQ.0)   RETURN ! check if done ! 		FLOP = .FALSE. 		IF (FLIP) THEN 			LEFT = .NOT.LEFT  			FLOP = .TRUE. 			ENDIF 		FLIP = .FALSE. 		ALIEN = 1  		ENDIF  	I=ALIEN_ROW(ALIEN)  	IF(I.LE.0)GO TO 10   3 	IF (I.GE.23) CALL HALT		!Aliens have overrun base.  	IF (LEFT) THEN % 		ALIEN_COL(ALIEN)=ALIEN_COL(ALIEN)-1  	ELSE % 		ALIEN_COL(ALIEN)=ALIEN_COL(ALIEN)+1  		ENDIF  	J=ALIEN_COL(ALIEN) ' 	IF (J.EQ.0.OR.J.EQ.75)   FLIP = .TRUE.  	CALL MOVE(I,J)  	IF (FLOP) THEN  		CALL DS_OBJ(6)% 		ALIEN_ROW(ALIEN)=ALIEN_ROW(ALIEN)+1  		I=ALIEN_ROW(ALIEN) 		CALL MOVE(I,J) 		ENDIF , 	CALL DS_OBJ((ALIEN.AND.1)+2*((ALIEN-1)/22))   C	Check for bomb release. 7 	IF ((GAME.EQ.1).OR.(GAME.EQ.2)) RETURN	!Disable bombs. : 	DO 50 I=ALIEN-11,0,-11	!Don't drop bombs on your own men. 		IF (ALIEN_ROW(I).NE.0) RETURN  50		CONTINUED 	IF (ALIEN_COL(ALIEN).GE.BASE_COL.AND.ALIEN_COL(ALIEN).LT.BASE_COL+3- 	1.AND.ALIEN_ROW(ALIEN).LE.MAX_BOMB_ROW) THEN  		DO 60 I=1,MAX_BOMBS  		IF (BOMB_ROW(I).EQ.0) THEN! 			BOMB_ROW(I) = ALIEN_ROW(ALIEN) % 			BOMB_COL(I) = ALIEN_COL(ALIEN) + 2   			FALLING_BOMBS=FALLING_BOMBS+1	 			RETURN  			ENDIF 60		CONTINUE 	ENDIF 	RETURN  	END     	SUBROUTINE HALT C	Game over processing.  	IMPLICIT INTEGER*2 (A-Z)  	LOGICAL FLIP,FLOP,LEFT,SLOW 	CHARACTER*80 BARR 	COMMON/CHRS/BARR(4) 	PARAMETER MAX_BOMBS=4, 	COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME8 	1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT 	2 ,FALLING_BOMBS,SLOW1 	3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL F 	4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS) 	5 ,SHIP_VAL,SHIP_COL,SHIP_VEL  , C	Display the aliens if they were invisible. 	IF (GAME.EQ.4) THEN- 		GAME = 3	!Remove the cloak of invisibility.  		DO 10 I=1,55 		IF (ALIEN_ROW(I).NE.0) THEN ' 			CALL MOVE(ALIEN_ROW(I),ALIEN_COL(I))2" 			CALL DS_OBJ((I.AND.1)+2*(I/22)) 			ENDIF 10		CONTINUE 		ENDIFs  
 	DO 20 I=1,10/ 20	CALL SEND(CHAR(7))e. 	CALL SLEEP('05.00')	!Use all five characters. 	CALL SPECIAL_GRAPHIC(.FALSE.) 	CALL MOVE(23,0)
 	CALL EXIT 	END    # 	SUBROUTINE SPECIAL_GRAPHIC(ON_OFF)e 	LOGICAL ON_OFFA	 	BYTE TYPG 	INTEGER*4 FLAG,RET_STAT  % 	RET_STAT=LIB$SCREEN_INFO(FLAG,TYP,,) 1 	IF(ON_OFF)THEN			!Turn on special graphics mode.h( 		IF(TYP.EQ.64)THEN	!We're in VT52 mode. 			CALL SEND(CHAR(27)//'F') @ 		ELSE IF(TYP.EQ.96.OR.TYP.EQ.110)THEN	!We're in VT100/200 mode. 			TYPE*3 			TYPE*,'I run faster in VT52 mode.  To set, type' * 			TYPE*,'SET TERM/VT52	(and that''s all)'5 			TYPE*,'from DCL level.  Otherwise, wait a moment.'c 			TYPE*0 			CALL SLEEP('10.00')	!Use all five characters. 			CALL SEND(CHAR(27)//'(0')' 		ELSE			!We're on an unknown terminal.. 			TYPE*,'Terminal type',TYP9 			STOP'I only know how to address VT100''s and VT52''s.'  			ENDIF 	ELSE				!Reset to ASCII mode.$ 		IF(TYP.EQ.64)THEN	!Reset the VT52. 			CALL SEND(CHAR(27)//'G')  		ELSE			!Reset the VT100. 			CALL SEND(CHAR(27)//'(B') 			ENDIF 		ENDIF! 	RETURN  	END     	SUBROUTINE MOVE(ROW,COL)e C	Position cursor to ROW,COL. 6 C	Row 0 is top of screen.  Row 23 is bottom-of-screen.1 C	The leftmost column is 0.  The rightmost is 79.  	INTEGER*2 ROW,COL/ 	IDUMMY=SCR$SET_CURSOR(%VAL(ROW+1),%VAL(COL+1))e 	RETURN  	END       	SUBROUTINE CLEARA C	Clear screen.e 	I=1 	I=LIB$ERASE_PAGE(I,I) 	RETURN  	END     	SUBROUTINE DS_OBJ(CLASS)t: C	Display object of type CLASS at current screen position. 	IMPLICIT INTEGER*2 (A-Z)0 	LOGICAL FLIP,FLOP,LEFT,SLOW 	CHARACTER*80 BARR 	COMMON/CHRS/BARR(4) 	PARAMETER MAX_BOMBS=4, 	COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME8 	1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT 	2 ,FALLING_BOMBS,SLOW1 	3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COLtF 	4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS) 	5 ,SHIP_VAL,SHIP_COL,SHIP_VEL 	INTEGER CLASS? 	IF ((GAME.EQ.4).AND.(CLASS.GE.0).AND.(CLASS.LE.5))   CLASS = 6h 	GO TO (1,2,3,4,5,6,7,8)CLASS+1v 1	CALL SEND(' -`- ') 	RETURN  2	CALL SEND(' <`> ') 	RETURN  3	CALL SEND(' >`< ') 	RETURNp 4	CALL SEND(' ``` ') 	RETURNi 5	CALL SEND(' >a< ') 	RETURNv 6	CALL SEND(' <x> ') 	RETURNl 7	CALL SEND('     ') 	RETURN  8	CALL SEND(' lwnwk ') 	RETURN  	END     	SUBROUTINE SEND(CHARS)h. C	Type CHARS to screen with no <CR> or <LF>'s. 	CHARACTER*(*) CHARS 	INTEGER*2 I  
 	TYPE 1,CHARSc 1	FORMAT('+',A,$)t 	RETURN    	ENTRY SEND_INT(I)	 	TYPE 2,I  2	FORMAT('+',I4,$) 	RETURNs 	END     -- s,    -----------------------------------------+ Sector7 - The Application Rehosting Factoryn+ 19 chemin de la Butte 31400 Toulouse Franceo+ Tl: 33(0)5 6120 1964 Fax: 33(0)5 6154 1928(!            http://www.sector7.como+ -------------------------------------------a+ Evaluez nos logiciels de migration OpenVMS! + www.sector7.com/openvms-to-windows-unix.htm + -------------------------------------------    ------------------------------   Date: 29 Mar 03 14:09:25 +0100) From: p_sture@elias.decus.ch (Paul Sture)7# Subject: Re: High RMS file activity$) Message-ID: <YqX8P2$S4FJE@elias.decus.ch>n  U In article <3E84F6CE.6FEF25C9@eps.zk.dec.com>, Hein <hein_cov@eps.zk.dec.com> writes:n >  >  > Lee Y T Mah wrote: > M >> Thanks for all the replies.  We do run the freebee daily.  I'll check intoE >> it. >  > Good. L > Now back to your subject. You mention RMS in the subject but nowhere else.M > Why? Do you think you have an RMS performance problem? Any details on that?h > A > Just today I submitted some stuff for the next VMS Freeware CD.CP > We also had it integrated (thanks Warren!) with the VMS V5.0 Freeware website: > A >     http://www.openvms.compaq.com/freeware/freeware50/rms_toolsv > L > Perhaps you could/should check out the new RMS_TUNE_CHECK (.EXE and .TXT). >    Nice submissions thanks.     -- u
 Paul Sture   ------------------------------  % Date: Sat, 29 Mar 2003 09:31:12 -0600o( From: Michael Rice <marice@whiteice.com>< Subject: Re: Hoff, what is the status of your book ? (Again)/ Message-ID: <v8bf2452jmkkd7@corp.supernews.com>s  + On 3/26/2003 8:41 AM, David D Miller wrote:,H > Hoff has done quite a bit or work on the 2nd edition but was unable toG > finish.  Digital Press asked me to finish it up.  We are targeting an0 > October publication date.@ >  > dave.  >  > MIchael Rice wrote ....  > @ > This question was posed about 6 months ago in this same group. > I > Referencing the book: "OpenVMS System Management Guide", Digital Press,t > ISBN: 1555582435.  > J > Mine's been on order at Amazon for quite some time.  Is there an updated& > ETA for this sure-to-be masterpiece? >  >  -  H Thanks for the information.  I hope you put out an announcement when it I is available.  In the meantime I can go cancel my Amazon order - I don't 1* like to have things pending for that long.   ------------------------------   Date: 29 Mar 03 12:06:22 +0100) From: p_sture@elias.decus.ch (Paul Sture)p5 Subject: Re: LCD panel, 500au, ELSA Gloria Card, How?A) Message-ID: <CcwAIkg3Z2cH@elias.decus.ch>c  X In article <1030327164446.5001A-100000@Ives.egh.com>, John Santos <JOHN@egh.com> writes:+ > On 27 Mar 2003 pmoreau@ath.cena.fr wrote:b > 2 >> In article <3E81CAB7.56FCE528@pressenter.com>, 3 >> Lyndon Bartels <lbartels@pressenter.com> writes: 	 >> [...]  J >> > The monitor says to run at 1280x1024x60Hz. I had the old VRC21 set toA >> > 1280x1024x70Hz. So I set the refresh rate down. Still no go.n >>  P >> I have an XP900 with Elsa Gloria and a Nec 1880SX LCD. I had some problems atM >> 1280x1024x60Hz , but all is ok at 65 Hz. VMS 7.2-1 with last graphics Ecos  >> -@ >> The Elsa is a bit slow but it is very usable in 16 bits mode. >> m
 >> Patrick > E > When people talk about a graphics card being "fast" or "slow", whatg > exactly are they refering to?c > @ > I ask because I'm interested in getting a "better" card for myE > old, slow, but trusty AlphaStation 200 4/100.  (Is this the slowestW@ > Alpha ever made?)  Actually, I have two of these, more-or-lessE > identical, one running DEC Unix (at work) and one running VMS 7.3-1g > (at home, hobbyist). > > > The cards in them are #9's (are they now defunct?) S3 cards.G > My main complaint about them is they only display 256 colors (8 bits)l# > and the resolution seems limited.w > B > I understand (possibly incorrectly) that most of the more recent? > video cards require EV5 or later, because the drivers use EV5e> > instructions.  (But I thought EV5/6/7 code would run, thoughB > slowly, on any Alpha, using traps and emulating the instructions@ > in software.  Is this only true of user mode code, or only for > stuff running at IPL 0?) > B > Is the much-maligned Elsa Gloria actually so much faster than my6 > S3-based card that I would see it as an improvement? > A > Or does "fast" only apply to rapid redrawing of frames, such as+> > in games or real-time graphics, and I couldn't care less forA > my typical usage (mostly running lots of DECterms, and a littlec > light surfing?)0  ? "Fast" or not to me, is demonstrated by the useability of VNC -t2 Virtual Network Computing - http://www.realvnc.com  A I had it running successfully on my VAXstation 3100 to control ann1 NT box in a different room and it worked a charm.s  C However, when I upgraded to my Alpha PWS600au, with an Elsa Gloria,u< I found VNC's performance unacceptably slow, so removed VNC.   > = > I have nice 19" monitors (ViewSonic at work, Sony at home),i: > but can't seem to get them to display anything 1024*768. >  >  > -- s
 > John Santosa > Evans Griffiths & Hart, Inc. > 781-861-0670 ext 539 >  -- d   -- s
 Paul Sture   ------------------------------   Date: 29 Mar 2003 13:09:32 GMT' From: prosullivan@aol.com (PROSULLIVAN)33 Subject: Legato vs TSM for VMS backup pros and consv9 Message-ID: <20030329080932.08652.00000101@mb-fj.aol.com>8  M Given the not very enviable choice between Legato and TSM for VMS backups, ise it right that   I a) both products cannot do true image backups (eg for legato: you have to O restore to seperate system disk and issue a 'writeboot.exe' - um, not sure if ItJ would trust that in a critical restore situation, especially if I wanted a point in time backup)   G b) both product's support for VAXes is questionable...like, Legato haveE shuffled about the answer.  O Oh, and no I don't want to do local tape backups on dat, dlt etc on hundreds ofa6 local servers unless I double the amount of operators.   Thanks   ------------------------------   Date: 29 Mar 03 13:50:22 +0100) From: p_sture@elias.decus.ch (Paul Sture)r, Subject: Re: problems with accountn.dat file) Message-ID: <bXi93cZ+5r9r@elias.decus.ch>t  b In article <3E84BAE2.A0D8893E@vl.videotron.ca>, JF Mezei <jfmezei.spamnot@vl.videotron.ca> writes: > "Jorge V.S." wrote:t >> f	 >> Hello:u >> bL >>         Last month we noticed that our accounting file doesn't recordered  >> anything  for tow days, why ? >  > SHOW ACCOUNTINGi > K > then, dir/full sys$manager:accountng.dat to see just how big the file is.e > P > You can rename the file, and see if a new one is created when the next process > is created/terminated. k >   	 <Nitpick>o  " Rather than renaming the file, use   	$ SET ACCOUNTING /NEW_FILE3  
 </Nitpick>  = > HELP SET ACCOUNTING will give you more information as well.:     --  
 Paul Sture   ------------------------------  % Date: Sat, 29 Mar 2003 12:40:37 +0100a" From: "Hans Vlems" <hvlems@iae.nl>< Subject: Re: SIMH Emulation of VAX KA650-A, KA650-B, KA655-A5 Message-ID: <b640o3$1brfo$1@ID-143435.news.dfncis.de>f  3 "Bran Furman" <bsfurman@att.net> schreef in berichtu, news:4CGdnb7b6qkpjhijXTWc3w@speakeasy.net...H > In case anyone is interested, the VAX 3400, 3600 and 3900 use the sameI > firmware except for identification codes in the boot ROM.  The ROM base J > address is 20040000.  The model is determined by the 6th byte (offset of 5)H > in the ROM (ka655.bin).  This is one field in a location that has beenB > referred to as SIDEX.  You can examine it from the console with: >e >  >>> EXAM/P/B 20040005 >i% > It determines the model as follows:i >t >     Code    Model   ID >     ---------------------  >     2       3400    KA640  >     1       3600    KA650  >     3       3900    KA655  > D > However, you cannot run a KA640 under SIMH.  There is apparently aI > difference in the hardware that is not emulated for the KA640.  Perhaps  > DSSI?, >mK > The 5th byte (offset of 4, address of 20040004) designates the model as A0 or2 > B (server) and affects VMS licensing as follows: > 9 >     Code    ID    Name        License Availability Code$9 >     ---------------------------------------------------r/ >     1       A     MicroVAX    A or E requireda* >     2       B     VAXserver   B required >  > End. >p  I Not sure whether I understand the question, but a 3400 has no native DSSIdK like a 4300. It has support for a DSSI controller (tape only IIRC) but thatK) is an option that should not bother simh. G BTW if you get a VMS license from Montagar then this will work on simh.    Hans   ------------------------------  % Date: Sat, 29 Mar 2003 12:31:45 +0100 " From: "Hans Vlems" <hvlems@iae.nl>0 Subject: Re: SIMH VAX build with MS Visual C++ 65 Message-ID: <b64075$1fljt$1@ID-143435.news.dfncis.de>0  3 "Bran Furman" <bsfurman@att.net> schreef in bericht , news:vyKdnUP5PJ7-ihijXTWcoQ@speakeasy.net...L > Does anyone know the correct project settings to build SIMH with MS Visual > C++ 6? > L > For "Preprocessor definitions" I used the default WIN32,_CONSOLE,_MBCS and5 > added USE_INT64 resulting in the following options:f >TF > /nologo /MLd /W3 /Gm /GX /ZI /Od /I ".\\" /I "..\\" /I "..\pdp11" /II > "..\net" /D "_DEBUG" /D "WIN32" /D "_CONSOLE" /D "_MBCS" /D "USE_INT64"m; > /Fp"Debug/VAX.pch" /YX /Fo"Debug/" /Fd"Debug/" /FD /GZ /cI >G > This fails as follows: >N > KA655-B V5.3, VMB 2.7 ! > Performing normal system tests. * > 40..39..38..37..36..35..34..33..32..31.. >  > ?53 2 0A FF 00 0000G > A > P1=00000002  P2=00000028  P3=00000FF7  P4=00D40077  P5=00000001_A > P6=FFFFFFFF  P7=00000000  P8=00000000  P9=00000000 P10=20051CE0OA > r0=00000002  r1=20140110  r2=3CC66E04  r3=000301B1  r4=3CC66E0E(A > r5=2004E8F9  r6=00018678  r7=000186C8  r8=00019697 ERF=80000000S > 30..29..28..27..26..25..B > 24..23..22..21..20..19..18..17..16..15..14..13..12..11..10..09.. > 08..07..06..05..04..03..  > Normal operation not possible. >S > >>>L >T? > Where does one find documentation on diagnostic codes anyway?s > 	 > Thanks.- >-  J You should have seen error messages while linking the object modules. LookK at he "Link" tab in Project Settings, and check the presence of wsock32.lib & in the "Object/library modules" panel.  3 The C/C++ tab must have these preprocessor modules:D  2  WIN32,_DEBUG,_CONSOLE,_MBCS,USE_NETWORK,USE_INT64   The Project Options :a  H /nologo /MLd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /DJ "_MBCS" /D "USE_NETWORK" /D "USE_INT64" /Fp"Debug/vax.pch" /YX /Fo"Debug/" /Fd"Debug/" /FD /GZ /c   Hans   ------------------------------  % Date: Sat, 29 Mar 2003 18:52:47 +0100u& From: Andreas Fassl <afassl@progis.de>7 Subject: Space Invaders was: Re: Fortran Guru requested0/ Message-ID: <b64me0$7ci$03$1@news.t-online.com>S   Oh God,   H reminds me at my students days back in 1982, working on a VAX 11/780 in G Aachen. The System Adminstrators always tried to hunt down those Space   Invader Game Owners.( The game always used about 30% CPU time.   RegardsV   AndreasD PRSTSC::DTL wrote:  F > I encounter some trouble porting a fortran/vax program to Alpha (no 9 > warnings at compile time, either with or without /F77):t >r > $ run spcinv > ../... >A> > %SYSTEM-F-ACCVIO, access violation, reason mask=00, virtual  > address=000000000000( > 0030, PC=FFFFFFFF808E5380, PS=0000001B1 > %TRACE-F-TRACEBACK, symbolic stack dump follows F >   image    module    routine             line      rel PC            > abs PCA >                                             0 0000000000000000 1 > FFFFFFFF808E5380A >  SPCINV  INVADERS  SLEEP                  141 0000000000000ADC T > 0000000000030ADCA >  SPCINV  INVADERS  SPECIAL_GRAPHIC        579 0000000000002BB8 N > 0000000000032BB8A >  SPCINV  INVADERS  MOVE                    42 00000000000003D0   > 00000000000303D0A >  SPCINV  INVADERS  INVADERS                27 0000000000000000 I > 0000000000000000A >                                             0 FFFFFFFF802513D4 b > FFFFFFFF802513D4 >(# > 132         SUBROUTINE SLEEP(TAG)TH > 133 C       Set timer and wait for TAG seconds.  TAG is a CHARACTER*5  > stringI > 134 C       of the form ##.##, which is the seconds, and hundredths of C
 > seconds.@ > 135 C       To delay game for 5 seconds, TAG would be '05.00'.& > 136         IMPLICIT INTEGER*4 (A-Z)! > 137         EXTERNAL SS$_NORMALi# > 138         DOUBLE PRECISION TIMEs* > 139         CHARACTER DELTA_TIME*9,TAG*5 > 140wC > 141         DELTA_TIME='0 ::'//TAG          !Concatenate strings. G > 142         RET_STAT=SYS$BINTIM(DELTA_TIME,TIME)    !ASCII to binary 0 > time. B > 143         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'BINTIM failed.'H > 144         RET_STAT=SYS$SETIMR(,TIME,,)            !Set timer, event 	 > flag 0. B > 145         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'SETIMR failed.'G > 146         RET_STAT=SYS$WAITFR(%VAL(0))            !Wait for flag 0 T > to be set.B > 147         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'WAITFR failed.' > 148         RETURN > 149         END  > 	 > Thanks,  >  > D. >2   ------------------------------  % Date: Sat, 29 Mar 2003 19:05:26 +0100o1 From: PRSTSC::DTL <Didier.Morandi.nospam@Free.fr>e; Subject: Re: Space Invaders was: Re: Fortran Guru requested.4 Message-ID: <3e85e0a8$0$28772$626a54ce@news.free.fr>   Andreas Fassl wrote:	 > Oh God,8 > J > reminds me at my students days back in 1982, working on a VAX 11/780 in I > Aachen. The System Adminstrators always tried to hunt down those Space 0 > Invader Game Owners.* > The game always used about 30% CPU time.  P Yep. Same to me. When I was working at the TSC, we were spending our extra time 7 between two Customer calls playing Dungeon or SPCINV...    D.   ------------------------------  % Date: Thu, 27 Mar 2003 04:15:32 +0300 ( From: GluckMaker <gluckmaker@mtu-net.ru>. Subject: Re: System reqirements of OpenVMS 7.3* Message-ID: <3E8250B4.5E89284F@mtu-net.ru>  M Thank you for all your answers. I'll search for more SIMMs and larger HDD fore my machine.O   ------------------------------    Date: 29 Mar 2003 04:44:12 -0800) From: P.Young@unsw.EDU.AU (Patrick Young) + Subject: TCPIP Services and IP masqueradingn= Message-ID: <55f85d77.0303290444.4be3804a@posting.google.com>   = The quick answer I guess is yes/no (gateway yes, Masq - no) ?r  
 However...  C At home, I have a cable modem connected to a hub which is connected0C to my OpenVMS Alpha system (OpenVMS 7.3-1/TCPIP Services 5.3) and awG Linux laptop (yes, I know I said I would not buy Intel, uh hum - stuff,bF but it is running Redhat 8 and Window(tm) is nowhere near it's hdd - I5 need to get to my OpenVMS boxen while on the move :-)   B Telstra (ISP) only allow one computer at a time to authenticate to@ their gateway. While at home I'm always using my OpenVMS desktopC box, however at the same time I would like to use my laptop to workA@ on OpenVMS/Tru64 systems at work (or the box at home)/browse the@ internet/whatever while moving to another chair for watching TV,@ eating, laying in bed, etc. No, I don't really want to buy a NAT box.  H Basically, it's a pretty safe bet that the VMS box will be authenticatedF to the cable modem service when I want to use the laptop at home. WhenE the VMS box is not, of course Linux can authenticate itself using theN/ same authentication client I run under OpenVMS..  D Getting TCPIP Services to forward to the Telstra gateway is trivial:  , $ mcr tcpip$sysconfig -r inet ipforwarding=1) $ mcr tcpip$sysconfig -r inet ipgateway=1*  A The laptop quite happily connects to the Telstra FTP service once @ it's default gateway is set to my OpenVMS box, but of course notA to anything else (as the OpenVMS box forwards using the laptop IP  which is not authenticated).  ? The question is: Is there going to be/already is support for IP  masquerading in TCPIP Services?T  @ Writing something today to look at what is going on to gain some> understanding shows that something could be written to do this> brute force. But there might be something I've missed in TCPIPC Services? - at what level? doing qio's to the driver in promisciousd mode is plain wrong...   Many thanks.   #include <descrip> #include <iodef> #include <starlet> #include <stdio> #include <stdlib>! #include <stsdef>   # /* nmadef.h seems to be missing? */   . #define NMA$C_PCLI_BFN 1105 // Receive buffers1 #define NMA$C_PCLI_BUS 2801 // Buffer size (word)TL #define NMA$C_PCLI_PAD 2842 // UNA Padding mode (coded byte of NMA$C_STATE_)P #define NMA$C_PCLI_PRM 2840 // UNA Promiscuous mode (coded byte of NMA$C_STATE_)< #define NMA$C_PCLI_PTY 2830 // Ethernet Protocol type (word)" #define NMA$C_STATE_OFF   1 // Off! #define NMA$C_STATE_ON    0 // OnE  " #define DATA_SIZE 1500      // MRUA #define HEAD_SIZE 20        // Header length (require 20, use 14)S   unsigned long global_sts;,   struct {       unsigned short sts;A     unsigned short cnt;I     void *det;       } global_iosb;  I check_status(unsigned long sts, char *errmsg, unsigned long check_iosb) {k  +     if (STS$M_SUCCESS & (global_sts = sts))          if (check_iosb)v)             global_sts = global_iosb.sts;k  (     if (!(STS$M_SUCCESS & global_sts)) {           printf("%s\n", errmsg);          return(0);  	         }        return(1);       }q   main() {  *     char data[DATA_SIZE], head[HEAD_SIZE];       $DESCRIPTOR(device, "EI:");E       unsigned short chan, cnt;E   #pragma nomember_alignment       struct {           unsigned short item;         unsigned long value;  H         } char_buf[5] = { NMA$C_PCLI_BUS, DATA_SIZE, NMA$C_PCLI_BFN, 16,D             NMA$C_PCLI_PAD, NMA$C_STATE_OFF, NMA$C_PCLI_PTY, 0x0660,-             NMA$C_PCLI_PRM, NMA$C_STATE_ON };(  1         // 60-06 (0x0660) = DEC Customer protocol=       struct {           unsigned long size;-         void *address;  9         } char_buf_desc = { sizeof(char_buf), char_buf };e   #pragma member_alignment       // Assign channelS  P     if (!check_status(sys$assign(&device, &chan, 0, 0, 0), "Failed $ASSIGN", 0))         exit(global_sts);m  7     // Set promiscious mode, customer reserved protocol0  N     if (!check_status(sys$qio(0, chan, IO$_SETMODE | IO$M_CTRL | IO$M_STARTUP,O         &global_iosb, 0, 0, 0, &char_buf_desc, 0, 0, 0, 0), "Failed SETMODE", 1I         )) {           sys$dassgn(chan);          exit(global_sts);N  	         }e       // Read packetse       while(1) {  M         if (!check_status(sys$qiow(0, chan, IO$_READVBLK, &global_iosb, 0, 0,	?             data, DATA_SIZE, 0, 0, head, 0), "Failed READ", 1))              exit(global_sts);h  B         // Bugger... Telstra always sends ARP broadcasts - ignore!           if (head[13] == 0) {  5             for (cnt = 0; cnt < HEAD_SIZE - 6; cnt++)O6                 printf("%x ", head[cnt] & 0x000000ff);               printf("\n");g  7             for (cnt = 0; cnt < global_iosb.cnt; cnt++)t6                 printf("%x ", data[cnt] & 0x000000ff);  4             printf("\nLen:%d\n\n", global_iosb.cnt);  
             }T	         }S     }A   ------------------------------  # Date: Sat, 29 Mar 2003 13:44:08 GMT + From: LESLIE@JRLVAX.HOUSTON.RR.COM (leslie)S/ Subject: Re: TCPIP Services and IP masqueradingT9 Message-ID: <Iqhha.31228$k8.905471@twister.austin.rr.com>P  * Patrick Young (P.Young@unsw.EDU.AU) wrote:? : The quick answer I guess is yes/no (gateway yes, Masq - no) ?, :  : However... : E : At home, I have a cable modem connected to a hub which is connected E : to my OpenVMS Alpha system (OpenVMS 7.3-1/TCPIP Services 5.3) and aOI : Linux laptop (yes, I know I said I would not buy Intel, uh hum - stuff,HH : but it is running Redhat 8 and Window(tm) is nowhere near it's hdd - I7 : need to get to my OpenVMS boxen while on the move :-)B : D : Telstra (ISP) only allow one computer at a time to authenticate toB : their gateway. While at home I'm always using my OpenVMS desktopE : box, however at the same time I would like to use my laptop to workTB : on OpenVMS/Tru64 systems at work (or the box at home)/browse theB : internet/whatever while moving to another chair for watching TV,B : eating, laying in bed, etc. No, I don't really want to buy a NAT : box. :   G Any reason why you don't want to buy a DSL/Cable router like a Linksys S BEFSR41 or a Netgear RP614 ?  , There are Linux-based & BSD-based solutions:      http://www.freesco.org/4    FREESCO - free replacement for commercial routers      http://www.closedbsd.org/    ClosedBSD: Home  A I went with the Linksys solution because I didn't want to pay forT, the power to run an old 486 all of the time.  2 --Jerry Leslie   (my opinions are strictly my own)9   Note: leslie@jrlvax.houston.rr.com is invalid for email    ------------------------------   Date: 29 Mar 03 15:05:29 +0100) From: p_sture@elias.decus.ch (Paul Sture)I/ Subject: Re: TCPIP Services and IP masqueradingO) Message-ID: <2BbZZ9SP299y@elias.decus.ch>A  g In article <Iqhha.31228$k8.905471@twister.austin.rr.com>, LESLIE@JRLVAX.HOUSTON.RR.COM (leslie) writes:,, > Patrick Young (P.Young@unsw.EDU.AU) wrote:A > : The quick answer I guess is yes/no (gateway yes, Masq - no) ?% > :  > : However... > : G > : At home, I have a cable modem connected to a hub which is connected'G > : to my OpenVMS Alpha system (OpenVMS 7.3-1/TCPIP Services 5.3) and a K > : Linux laptop (yes, I know I said I would not buy Intel, uh hum - stuff,8J > : but it is running Redhat 8 and Window(tm) is nowhere near it's hdd - I9 > : need to get to my OpenVMS boxen while on the move :-)T > : F > : Telstra (ISP) only allow one computer at a time to authenticate toD > : their gateway. While at home I'm always using my OpenVMS desktopG > : box, however at the same time I would like to use my laptop to work D > : on OpenVMS/Tru64 systems at work (or the box at home)/browse theD > : internet/whatever while moving to another chair for watching TV,D > : eating, laying in bed, etc. No, I don't really want to buy a NAT > : box. > :  > I > Any reason why you don't want to buy a DSL/Cable router like a Linksys d > BEFSR41 or a Netgear RP614 ?  % Because he's got a _cable_ modem? :-)8  D Seriously though, a router is the easiest solution and allows you toC do the above anywhere around the house end even outside, subject toN% cable length (30 metres does for me).    > . > There are Linux-based & BSD-based solutions: >  >    http://www.freesco.org/6 >    FREESCO - free replacement for commercial routers >  >    http://www.closedbsd.org/ >    ClosedBSD: Home > C > I went with the Linksys solution because I didn't want to pay forH. > the power to run an old 486 all of the time. > 4 > --Jerry Leslie   (my opinions are strictly my own); >   Note: leslie@jrlvax.houston.rr.com is invalid for emailS -- x   -- S
 Paul Sture   ------------------------------  % Date: Sat, 29 Mar 2003 12:30:55 -0500S' From: "Main, Kerry" <Kerry.Main@hp.com>A/ Subject: RE: TCPIP Services and IP masquerading1T Message-ID: <BE56C50EA024184DAF48F0B9A47F5CF402660EBA@kaoexc01.americas.cpqcorp.net>   Paul,.  : <<<Seriously though, a router is the easiest solution ..>>  A Yep, I agree - I just installed Linksys WRT54G router (Wireless-G)G broadband router-$200Cdn) and so far it works great. Linksys says up to(B 5 times throughput improvement over Wireless-B (even if its only 3 times, that is ok with me).O  D With Wireless-G Linksys PCMCIA adapter ($100Cdn) on my laptop, I getF great throughput and range anywhere in the house. It also has 4 directG hardwire ports and acts as DHCP server for house as well. CompatibilitybB with Wireless-B standard as well. Works with no issues with my VPNF connections into HP. Approx 7 systems (mix of PC's and VMS servers) onF my internal home LAN. Only minor issue is that you might have to tweak@ the wireless speed to see which one performs best in your house.  
 Reference:J http://www.linksys.com/products/product.asp?grid=3D33&scid=3D35&prid=3D50= 8	  G Its great being able to work online reading email and browsing InternetR% from living room table with no wires.1  G Of course, overall throughput will be limited by the speed of the cableR@ modem, but with these being cranked up over time, the Wireless-G. provides me with some headroom for the future.  ) Btw - Linksys was just bought by Cisco ..c6 http://www.linksys.com/splash/cisco_linksys_splash.asp   Regards_  
 Kerry Main Senior ConsultantA Hewlett-Packard (Canada) Co.! Consulting & Integration Services( Voice: 613-592-4660R Fax   : 613-591-4477 Email: kerryDOTmain@hpDOTcom-     (remove the DOT's and replace with "."'s)A OpenVMS DCL - the original .COMT     -----Original Message-----3 From: Paul Sture [mailto:p_sture@elias.decus.ch]=20* Sent: March 29, 2003 9:05 AM To: Info-VAX@Mvb.Saic.ComR/ Subject: Re: TCPIP Services and IP masqueradingC    9 In article <Iqhha.31228$k8.905471@twister.austin.rr.com>,E- LESLIE@JRLVAX.HOUSTON.RR.COM (leslie) writes:N, > Patrick Young (P.Young@unsw.EDU.AU) wrote:A > : The quick answer I guess is yes/no (gateway yes, Masq - no) ?B > :M > : However... > :=20G > : At home, I have a cable modem connected to a hub which is connected G > : to my OpenVMS Alpha system (OpenVMS 7.3-1/TCPIP Services 5.3) and ahD > : Linux laptop (yes, I know I said I would not buy Intel, uh hum - stuff,H > : but it is running Redhat 8 and Window(tm) is nowhere near it's hdd - IE9 > : need to get to my OpenVMS boxen while on the move :-)  > :=20F > : Telstra (ISP) only allow one computer at a time to authenticate toD > : their gateway. While at home I'm always using my OpenVMS desktopG > : box, however at the same time I would like to use my laptop to workED > : on OpenVMS/Tru64 systems at work (or the box at home)/browse theD > : internet/whatever while moving to another chair for watching TV,D > : eating, laying in bed, etc. No, I don't really want to buy a NAT > : box. > :=20 >=20H > Any reason why you don't want to buy a DSL/Cable router like a Linksys > BEFSR41 or a Netgear RP614 ?  % Because he's got a _cable_ modem? :-)1  G Seriously though, a router is the easiest solution and allows you to do=F the above anywhere around the house end even outside, subject to cable length (30 metres does for me).1   >=20. > There are Linux-based & BSD-based solutions: >=20 >    http://www.freesco.org/6 >    FREESCO - free replacement for commercial routers >=20 >    http://www.closedbsd.org/ >    ClosedBSD: Home >=20J > I went with the Linksys solution because I didn't want to pay for the=20* > power to run an old 486 all of the time. >=204 > --Jerry Leslie   (my opinions are strictly my own); >   Note: leslie@jrlvax.houston.rr.com is invalid for emailG --=20D   --=20P
 Paul Sture   ------------------------------  % Date: Sat, 29 Mar 2003 09:56:33 -0800,# From: "Tom Linden" <tom@kednos.com>_/ Subject: RE: TCPIP Services and IP masqueradingB9 Message-ID: <CIEJLCMNHNNDLLOOGNJIAEGDGOAA.tom@kednos.com>S  = What is the difference between B and G?  Must be 2.4GHz if itA backward compatible, no?     >-----Original Message-----e- >From: Main, Kerry [mailto:Kerry.Main@hp.com]	' >Sent: Saturday, March 29, 2003 9:31 AMS >To: Info-VAX@Mvb.Saic.Com0 >Subject: RE: TCPIP Services and IP masquerading >E >  >Paul, >a; ><<<Seriously though, a router is the easiest solution ..>>E >.B >Yep, I agree - I just installed Linksys WRT54G router (Wireless-GH >broadband router-$200Cdn) and so far it works great. Linksys says up toC >5 times throughput improvement over Wireless-B (even if its only 3S >times, that is ok with me). >+E >With Wireless-G Linksys PCMCIA adapter ($100Cdn) on my laptop, I gettG >great throughput and range anywhere in the house. It also has 4 direct H >hardwire ports and acts as DHCP server for house as well. CompatibilityC >with Wireless-B standard as well. Works with no issues with my VPNFG >connections into HP. Approx 7 systems (mix of PC's and VMS servers) onMG >my internal home LAN. Only minor issue is that you might have to tweakDA >the wireless speed to see which one performs best in your house.3 >L >Reference:LE >http://www.linksys.com/products/product.asp?grid=33&scid=35&prid=508( >_H >Its great being able to work online reading email and browsing Internet& >from living room table with no wires. >SH >Of course, overall throughput will be limited by the speed of the cableA >modem, but with these being cranked up over time, the Wireless-G./ >provides me with some headroom for the future.I >.* >Btw - Linksys was just bought by Cisco ..7 >http://www.linksys.com/splash/cisco_linksys_splash.asp( >E >Regards >A >Kerry MainS >Senior Consultant >Hewlett-Packard (Canada) Co. " >Consulting & Integration Services >Voice: 613-592-4660 >Fax   : 613-591-4477  >Email: kerryDOTmain@hpDOTcomB. >    (remove the DOT's and replace with "."'s)  >OpenVMS DCL - the original .COM >  >N >-----Original Message-----.2 >From: Paul Sture [mailto:p_sture@elias.decus.ch]  >Sent: March 29, 2003 9:05 AM) >To: Info-VAX@Mvb.Saic.Com0 >Subject: Re: TCPIP Services and IP masquerading >e > : >In article <Iqhha.31228$k8.905471@twister.austin.rr.com>,. >LESLIE@JRLVAX.HOUSTON.RR.COM (leslie) writes:- >> Patrick Young (P.Young@unsw.EDU.AU) wrote:OB >> : The quick answer I guess is yes/no (gateway yes, Masq - no) ? >> : >> : However...A >> :  H >> : At home, I have a cable modem connected to a hub which is connectedH >> : to my OpenVMS Alpha system (OpenVMS 7.3-1/TCPIP Services 5.3) and aE >> : Linux laptop (yes, I know I said I would not buy Intel, uh hum -F >stuff,LI >> : but it is running Redhat 8 and Window(tm) is nowhere near it's hdd -  >I: >> : need to get to my OpenVMS boxen while on the move :-) >> : PG >> : Telstra (ISP) only allow one computer at a time to authenticate to,E >> : their gateway. While at home I'm always using my OpenVMS desktopOH >> : box, however at the same time I would like to use my laptop to workE >> : on OpenVMS/Tru64 systems at work (or the box at home)/browse the3E >> : internet/whatever while moving to another chair for watching TV,)E >> : eating, laying in bed, etc. No, I don't really want to buy a NAT(	 >> : box.( >> :   >> DI >> Any reason why you don't want to buy a DSL/Cable router like a Linksys  >> BEFSR41 or a Netgear RP614 ?a >r& >Because he's got a _cable_ modem? :-) >OH >Seriously though, a router is the easiest solution and allows you to doG >the above anywhere around the house end even outside, subject to cableN  >length (30 metres does for me). >	 >>  / >> There are Linux-based & BSD-based solutions:W >> i >>    http://www.freesco.org/(7 >>    FREESCO - free replacement for commercial routers  >> 1 >>    http://www.closedbsd.org/' >>    ClosedBSD: Homed >> oI >> I went with the Linksys solution because I didn't want to pay for the L+ >> power to run an old 486 all of the time.* >> C5 >> --Jerry Leslie   (my opinions are strictly my own)E< >>   Note: leslie@jrlvax.houston.rr.com is invalid for email >--  >' >--  >Paul Sture  >S >---' >Incoming mail is certified Virus Free.2; >Checked by AVG anti-virus system (http://www.grisoft.com)..A >Version: 6.0.459 / Virus Database: 258 - Release Date: 2/25/2003e >  ---T& Outgoing mail is certified Virus Free.: Checked by AVG anti-virus system (http://www.grisoft.com).@ Version: 6.0.459 / Virus Database: 258 - Release Date: 2/25/2003   ------------------------------   Date: 29 Mar 03 13:41:59 +0100) From: p_sture@elias.decus.ch (Paul Sture)E8 Subject: Re: Three questions re: the VMS startup process) Message-ID: <gecWiUKda9Br@elias.decus.ch>   b In article <843706dc.0303281351.4d29d18c@posting.google.com>, horn@shsu.edu (James T Horn) writes:E > What I do to know what the systartup_vms.com file does, is have the,G > output go to a log file, then I can look at it after the system is upB, > and try to figure out what the problem is: > ' > At the begining of SYSTARTUP_VMS.COM:A > ) > $! Setup log file for SYSTARTUP_VMS.COM,: > $   If "''STOP_RECURSION'" .NES. "" THEN GOTO DO_STARTUP > $   STOP_RECURSION == "YES"_ > $   SET VERIFYO > $   @SYS$MANAGER:SYSTARTUP_VMS.COM/OUT=SYS$SPECIFIC:[SYSMGR]SYSTARTUP_VMS.LOGL > -EI >         "''P1'","''P2'","''P3'","''P4'","''P5'","''P6'","''P7'","''P8'"L? > $   PURGE/KEEP=1/NOLOG SYS$SPECIFIC:[SYSMGR]SYSTARTUP_VMS.LOGS > $   SET NOVERIFY
 > $   EXIT > $DO_STARTUP: > $ SET NOON  E Sorry, I don't like that. For a start, you will have to re-apply your E edits each time SYSTARTUP_VMS.COM is updated on an updgrade, possibly  even some future ECO.A  O The supported way is to use STARTUP_P2 as described in the SYSGEN documentation,	 and help.O   ------------------------------  # Date: Sat, 29 Mar 2003 10:50:10 GMTI. From: "Diego CLAEYS" <diego.claeys@pandora.be>% Subject: VAX XDM, help needed please! : Message-ID: <CTeha.11575$t_2.1348@afrodite.telenet-ops.be>   Hi OpenVMS gurus!   * Here is a question from a newbie hobbyist,H I have a VAX 4000-300 without display card, I have installed OpenVMS 7.3. with DECWindows 1.2.6 (Motif) and TCPWARE 5.6.D I would like to know if it is possible to have XDM running on my vaxD (without display) and have a graphical login on my PC (OpenBSD) with something like X -query???   FYI:  ; Connectivity is OK = I can ping www.google.com from my VAX.tG DECWindows transport is OK = TCPIP = I can export the display with "SETE' DISPLAY/CREATE/NODE=.../TRANSPORT=TCPIP@L XDM is up and running because when I try a "X -query vax", the VAX react but) I have this in this in the XDM_SERVER.LOG   8 %%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:37.97  %%%%%%%%%%% Message from user SYSTEM on VAXb/ %TCPware_XDM-I-DEBUG, received REQUEST (len 89)a    8 %%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:38.01  %%%%%%%%%%% Message from user SYSTEM on VAXoE %TCPware_XDM-I-DEBUG, got 0x213268 (len 18 name "MIT-MAGIC-COOKIE-1")n    8 %%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:38.11  %%%%%%%%%%% Message from user SYSTEM on VAXr8 %TCPware_XDM-I-DEBUG, computed display name: localhost:0    8 %%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:38.13  %%%%%%%%%%% Message from user SYSTEM on VAX 9 %TCPware_XDM-I-STARTSESSION, starting display localhost:0:    8 %%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:38.19  %%%%%%%%%%% Message from user SYSTEM on VAXf8 %TCPware_XDM-I-DEBUG, session process 0x0000021d created    8 %%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:39.86  %%%%%%%%%%%% Message from user AUDIT$SERVER on VAXtJ Security alarm (SECURITY) and security audit (SECURITY) on VAX, system id: 10258 Auditable event:          Detached process login failure1 Event time:               29-MAR-2003 11:45:39.85h" PID:                      0000021E  Process name:             _WSA4:  Username:                 SYSTEM" Process owner:            [SYSTEM]G Image name:               $1$DIA0:[SYS0.SYSCOMMON.][SYSEXE]LOGINOUT.EXEm@ Status:                   %DECW-F-NOMSG, Message number 02DB8204  8 %%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:40.07  %%%%%%%%%%% Message from user SYSTEM on VAXa9 %TCPware_XDM-I-DEBUG, manage: got duplicate pkt, ignoring-    8 %%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:40.33  %%%%%%%%%%% Message from user SYSTEM on VAXeF %TCPware_XDM-I-TERMSESSION, session for display localhost:0 terminated    8 %%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:44.08  %%%%%%%%%%% Message from user SYSTEM on VAXh1 %TCPware_XDM-I-DEBUG, session ID 27152004 refusedg    8 %%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:44.10  %%%%%%%%%%% Message from user SYSTEM on VAX>* %TCPware_XDM-I-DEBUG, send REFUSE 27152004   Help, please help !!!l   ------------------------------  # Date: Sat, 29 Mar 2003 17:10:51 GMTn6 From: peter@langstoeger.at (Peter 'EPLAN' LANGSTOEGER)) Subject: Re: VAX XDM, help needed please!.3 Message-ID: <vskha.33649$Xa3.319326@news.chello.at>o  k In article <CTeha.11575$t_2.1348@afrodite.telenet-ops.be>, "Diego CLAEYS" <diego.claeys@pandora.be> writes:sI >I have a VAX 4000-300 without display card, I have installed OpenVMS 7.31/ >with DECWindows 1.2.6 (Motif) and TCPWARE 5.6.   L I hope you also considered/installed the various (about 20) ECOs for them...  E >I would like to know if it is possible to have XDM running on my vax E >(without display) and have a graphical login on my PC (OpenBSD) withl >something like X -query???A  
 Yes it is.   >FYI:t >e< >Connectivity is OK = I can ping www.google.com from my VAX.H >DECWindows transport is OK = TCPIP = I can export the display with "SET( >DISPLAY/CREATE/NODE=.../TRANSPORT=TCPIP  " Yup, that's exporting the display. But what comes then ?o; Have you tried the connection by starting some X11 program.nK The general recommendation for an X11 test program seems to be the X11 demoe   	DECW$EXAMPLES:ICO.EXE   where options include:0     -display host:dpy            X server to use:     -geometry geom               geometry of window to use9     -size WxH                    size of object to rotatee?     -delta +X+Y                  amount by which to move objecte8     -r                           draw in the root windowD     -d number                    dashed line pattern for wire frames1     -bg color                    background coloru6     -colors color ...            codes to use on sidesC     -p#                          use # (1 through 8) primary colorsaL     -dbl                         use double buffering (extension if present)>     -softdbl                     use software double buffering<     -noedges                     don't draw wire frame edges+     -faces                       draw facesmL     -copy                        copy multibuffer frames instead of clearing2     -lw number                   line width to use'     -i                           invertaB     -sleep number                seconds to sleep in between drawsB     -obj objname                 type of polyhedral object to drawB     -objhelp                     list polyhedral objects available  % because of its useful error messages.-  M >XDM is up and running because when I try a "X -query vax", the VAX react buto* >I have this in this in the XDM_SERVER.LOG >S9 >%%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:37.97  %%%%%%%%%%%0  >Message from user SYSTEM on VAX0 >%TCPware_XDM-I-DEBUG, received REQUEST (len 89) >  > 9 >%%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:38.01  %%%%%%%%%%%t  >Message from user SYSTEM on VAXF >%TCPware_XDM-I-DEBUG, got 0x213268 (len 18 name "MIT-MAGIC-COOKIE-1") >  > 9 >%%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:38.11  %%%%%%%%%%%a  >Message from user SYSTEM on VAX9 >%TCPware_XDM-I-DEBUG, computed display name: localhost:0   G Interesting. It tries to use the local display instead of the remote PC M display ? Is there a local display at all ? Or is this a misleading message ?   9 >%%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:38.13  %%%%%%%%%%%   >Message from user SYSTEM on VAX: >%TCPware_XDM-I-STARTSESSION, starting display localhost:0 >a >S9 >%%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:38.19  %%%%%%%%%%%g  >Message from user SYSTEM on VAX9 >%TCPware_XDM-I-DEBUG, session process 0x0000021d createdz  C What does your XDM server logfile (TCPWARE:XDMSERVER.LOG) contain ?>  9 >%%%%%%%%%%%  OPCOM  29-MAR-2003 11:45:39.86  %%%%%%%%%%%u& >Message from user AUDIT$SERVER on VAXK >Security alarm (SECURITY) and security audit (SECURITY) on VAX, system id:s >1025g9 >Auditable event:          Detached process login failureo2 >Event time:               29-MAR-2003 11:45:39.85# >PID:                      0000021Ed! >Process name:             _WSA4: ! >Username:                 SYSTEM # >Process owner:            [SYSTEM]iH >Image name:               $1$DIA0:[SYS0.SYSCOMMON.][SYSEXE]LOGINOUT.EXEA >Status:                   %DECW-F-NOMSG, Message number 02DB8204,  & $ SET MESSAGE SYS$MESSAGE:DECW$XLIBMSG+ $ WRITE SYS$OUTPUT F$MESSAGE ("%X02DB8204")l% %XLIB-F-CANTOPEN, cannot open display  $ SET MESSAGE/DELETE  I Either you have a problem with X11 security or a problem with identifyingi& the correct remote display nodename...  C Have you read/understood/configured the XDM config files ? Read thedH TCPWARE:XDM_*.TEMPLATE files, make a (modified) copy and name them *.DAT   -- T Peter "EPLAN" LANGSTOEGER2% Network and OpenVMS system specialiste E-mail  peter@langstoeger.atF A-1030 VIENNA  AUSTRIA              I'm not a pessimist, I'm a realist   ------------------------------  % Date: Sat, 29 Mar 2003 01:18:20 -0600>, From: Gary L. Ross <rossgl@parknicollet.com>< Subject: VMS Software Product & Online Documentation Library8 Message-ID: <asha8vcmt5lrs6320qq86kp2b0dhc5spo9@4ax.com>  C I have all the CD's for VMS Software Product & Online DocumentationoB Library for Alpha and Vax.  How much retention time is recommendedD for these CD updates??  1 year? 5 years? Since day 1?  I'm trying to@ do some "housekeeping" on the manuals and media we have for VMS.   Gary L. Ross Park Nicollet Health Servicesl   ------------------------------    Date: 29 Mar 2003 04:57:22 -0600- From: Kilgallen@SpamCop.net (Larry Kilgallen)-@ Subject: Re: VMS Software Product & Online Documentation Library3 Message-ID: <gO9EIxTOURQs@eisner.encompasserve.org>d  g In article <asha8vcmt5lrs6320qq86kp2b0dhc5spo9@4ax.com>, Gary L. Ross <rossgl@parknicollet.com> writes:.  E > I have all the CD's for VMS Software Product & Online DocumentationpD > Library for Alpha and Vax.  How much retention time is recommendedF > for these CD updates??  1 year? 5 years? Since day 1?  I'm trying toB > do some "housekeeping" on the manuals and media we have for VMS.  + Your own retention policy is your business.   = If you decide to get rid of them, please offer them for sale,d< as ISVs sometimes have trouble getting older versions of the	 software.v  D Note that DEC/Compaq/HP has a considerably stricter policy regardingF source listings, where a separate license is required to possess them.   ------------------------------  % Date: Sat, 29 Mar 2003 00:42:17 -0600S, From: Gary L. Ross <rossgl@parknicollet.com> Subject: VMS Upgrade Questions8 Message-ID: <rnea8vgfsobrqnr237rrrfg3e0bvp82q39@4ax.com>  = We are upgrading from VMS 6.2-1H3 on our AlphaServer 4100 andF@ AlphaStation 255/233 to VMS 7.2-1.  I have 2 questions regarding
 this upgrade.l  ; 1.)  Is VMS 7.2-1 supported on the AlphaStation 255/233 ?  t  B 2.)  While locating ECO's for the new OS version, I found a ratherD       odd situation on which ECO's should be applied first.  Here is       what I'm finding:   $ Install DEC-AXPVMS-VMS721_PCSI-V0100% and    DEC-AXPVMS-VMS721_UPDATE-V03000   No problems up to this point.C  = Here is where I get confused on what should be installed next8   DEC-AXPVMS-VMS721_AUDSRV-V02005 * Requires SYS-V1000 but I can only locate SYS-V1200)2   DEC-AXPVMS-VMS721_SYS-V12005/ * Requires FIBRE_SCSI-V0500, MOUNT96-V0300, and 2    SYSLOA-V0200.  Located FIBRE_SCSI-V0600 though.  " DEC-AXPVMS-VMS721_FIBRE_SCSI-V0600 * Requires SYS-V1200   DEC-AXPVMS-VMS721_MOUNT96-V0300n+ * Requires SYS-V1100, FIBRE_SCSI-V0500, andi    CLIUTIL-V0200   DEC-AXPVMS-VMS721_CLIUTIL-V0200. * Requires AUDSRV-V0200a  6 It like one vicious cycle.  Am I missing something ???   Gary L. Ross Park Nicollet Health ServicesS   ------------------------------  # Date: Sat, 29 Mar 2003 10:08:48 GMT/6 From: peter@langstoeger.at (Peter 'EPLAN' LANGSTOEGER)" Subject: Re: VMS Upgrade Questions3 Message-ID: <Qgeha.24310$Xa3.240240@news.chello.at>G  g In article <rnea8vgfsobrqnr237rrrfg3e0bvp82q39@4ax.com>, Gary L. Ross <rossgl@parknicollet.com> writes:s> >We are upgrading from VMS 6.2-1H3 on our AlphaServer 4100 andA >AlphaStation 255/233 to VMS 7.2-1.  I have 2 questions regarding  >this upgrade. > < >1.)  Is VMS 7.2-1 supported on the AlphaStation 255/233 ?    7 I can't check (as I have no SPD handy) but I bet it is.o But I'd go to V7.2-2 instead.OD And then you ECO version history problems with V7.2-1 are gone, too.   -- T Peter "EPLAN" LANGSTOEGERn% Network and OpenVMS system specialistp E-mail  peter@langstoeger.atF A-1030 VIENNA  AUSTRIA              I'm not a pessimist, I'm a realist   ------------------------------  % Date: Sat, 29 Mar 2003 09:41:57 -0500   From: John Santos <JOHN@egh.com>" Subject: Re: VMS Upgrade Questions6 Message-ID: <1030329093112.12082A-100000@Ives.egh.com>  ( On Sat, 29 Mar 2003, Gary L. Ross wrote:  ? > We are upgrading from VMS 6.2-1H3 on our AlphaServer 4100 and B > AlphaStation 255/233 to VMS 7.2-1.  I have 2 questions regarding > this upgrade.  > = > 1.)  Is VMS 7.2-1 supported on the AlphaStation 255/233 ?  V > D > 2.)  While locating ECO's for the new OS version, I found a ratherF >       odd situation on which ECO's should be applied first.  Here is >       what I'm finding:I > & > Install DEC-AXPVMS-VMS721_PCSI-V0100' > and    DEC-AXPVMS-VMS721_UPDATE-V0300  >  > No problems up to this point.  > ? > Here is where I get confused on what should be installed nextS >   > DEC-AXPVMS-VMS721_AUDSRV-V02007 > * Requires SYS-V1000 but I can only locate SYS-V1200)  >   @ No, you don't need to install SYS-V1000 first.  You just need to. install it as well to get all the corrections.     > DEC-AXPVMS-VMS721_SYS-V1200 1 > * Requires FIBRE_SCSI-V0500, MOUNT96-V0300, and 4 >    SYSLOA-V0200.  Located FIBRE_SCSI-V0600 though. >    Same...     $ > DEC-AXPVMS-VMS721_FIBRE_SCSI-V0600 > * Requires SYS-V1200 >    Same...     ! > DEC-AXPVMS-VMS721_MOUNT96-V0300 - > * Requires SYS-V1100, FIBRE_SCSI-V0500, andC >    CLIUTIL-V0200     Same...    > ! > DEC-AXPVMS-VMS721_CLIUTIL-V0200P > * Requires AUDSRV-V0200  >    Same...S    8 > It like one vicious cycle.  Am I missing something ??? >   I Yes.  :-)  The fine print says "The following remedial kit(s), or later, EF must be  installed BEFORE installation of this, or any required kit:",H which is not the same thing as: "In order to receive all the correctionsD listed  in  this kit,  the following remedial kits, or later, should also be installed:"-  C Only PCSI-V0100 and UPDATE-V0300 need to be installed before any ofd= these other patches.  The rest can be installed in any order.R  E Also, where patches say they require a reboot...  I've *never* neededrF to reboot for each one.  Just install the lot of them and reboot once.  A BTW, 7.2-1 is no longer officially supported (or support is goingt4 away RSN.)  I would definitely go to 7.2-2 or 7.3-1.   > Gary L. Ross > Park Nicollet Health Servicesa >  >  >  >    -- e John Santos. Evans Griffiths & Hart, Inc. 781-861-0670 ext 539   ------------------------------  % Date: Sat, 29 Mar 2003 02:34:53 -0400.0 From: JF Mezei <jfmezei.spamnot@vl.videotron.ca>B Subject: Re: Which PAK for DECNET Phase IV under Hobbyist Program?/ Message-ID: <3E853E87.217C5D70@vl.videotron.ca>    Dan Foster wrote:. > A > I can't quite seem to determine which of the various PAKs would A > apply for DECNET Phase IV; it comes on the Hobbyist CDROM, so I-C > imagine a corresponding license is also provided as a part of theU8 > program... but isn't intuitively obvious which one :-)   DVNETEND  for end node" DVNETRTG for full function/routing   ------------------------------  % Date: Sat, 29 Mar 2003 12:45:24 +0100r" From: "Hans Vlems" <hvlems@iae.nl>B Subject: Re: Which PAK for DECNET Phase IV under Hobbyist Program?5 Message-ID: <b6410p$1guo1$1@ID-143435.news.dfncis.de>i  8 "Dan Foster" <dsf@globalcrossing.net> schreef in bericht, news:slrnb8a9if.qg.dsf@gaia.roc2.gblx.net...A > I can't quite seem to determine which of the various PAKs wouldeA > apply for DECNET Phase IV; it comes on the Hobbyist CDROM, so ItC > imagine a corresponding license is also provided as a part of thes8 > program... but isn't intuitively obvious which one :-) > B > I don't just dump the contents of the email sent to register allB > these licenses because it's a lot easier for me to keep track ofB > the ones I really need by installing them on an as-needed basis.) > (I rarely like brute-forcing anything.), >') > Any pointers would be much appreciated.e >t > -Dan  L The Montagar set has DVNETEND in it. That allows you to run phase 4 or phaseK 5 endnodes. There is no routing license available so you cannot run circuiteK routing. As long as you have NO routers at all (in phase 4) and all systemsoJ reside on a flat LAN then area routing is unnecessary and the systems will be able to establish a link.H So you can still run more than 1024 DECnet systems on a hobbyist LAN :-)   ------------------------------  + Date: Sat, 29 Mar 2003 13:31:58 +0000 (UTC) ) From: Dan Foster <dsf@globalcrossing.net>dB Subject: Re: Which PAK for DECNET Phase IV under Hobbyist Program?2 Message-ID: <slrnb8b820.qg.dsf@gaia.roc2.gblx.net>  D Thanks to all who followed up. I registered and loaded DVNETEND, andK then installed DECNET Phase IV, started it, added proxy entries. EverythingrH appears to be working great. This is a single system, no other VMS boxes= or routing needed so it's no great loss not to have DVNETRTG.   G Just curious about something...the Hobbyist program also provides a PAK % called DVNETEXT. What's that one for?i   -Dan   ------------------------------   Date: 29 Mar 03 14:53:21 +0100) From: p_sture@elias.decus.ch (Paul Sture)NB Subject: Re: Which PAK for DECNET Phase IV under Hobbyist Program?) Message-ID: <ds3cBK7C8O8L@elias.decus.ch>A  ^ In article <slrnb8b820.qg.dsf@gaia.roc2.gblx.net>, Dan Foster <dsf@globalcrossing.net> writes:F > Thanks to all who followed up. I registered and loaded DVNETEND, andM > then installed DECNET Phase IV, started it, added proxy entries. Everything J > appears to be working great. This is a single system, no other VMS boxes? > or routing needed so it's no great loss not to have DVNETRTG.s > I > Just curious about something...the Hobbyist program also provides a PAK*' > called DVNETEXT. What's that one for?s >   ' I believe that is for DECnet-Plus. From 7 http://h71000.www7.hp.com/doc/72final/6496/6496pro.HTMLt  L "The specific license required on your system is determined by the functions you want to use: S  G o - Basic function license (DVNETEND) --- provides end system support.    K o - Extended function license (DVNETEXT) for Alpha systems --- provides end]F     system support, DECdts server, cluster alias, and OSI applications     gateways.   I o - Extended function license (DVNETRTG) for VAX systems --- provides end;H     system support, DECdns server, DECdts server, cluster alias, and OSI     applications gateways. 1   --  
 Paul Sture   ------------------------------  # Date: Sat, 29 Mar 2003 17:32:07 GMTC6 From: peter@langstoeger.at (Peter 'EPLAN' LANGSTOEGER), Subject: [DECmcc EMS V3.0] Anyone using it ?3 Message-ID: <rMkha.34072$Xa3.319326@news.chello.at>   3 Now it is cancelled and (almost) gone, I've to ask.}  : Is anyone (still) using DECmcc EMS V3.0 on OpenVMS Alpha ?G Is DECmcc EMS V3.0 still only SNMP V1 or is already supporting SNMPv2 ?,@ Is DECmcc EMS V3.0 the most current version of this dead horse ?  J A decade ago I used DECmcc BMS V1.4 on OpenVMS VAX and had been satisfied.I At least for a couple of years. V1.4 was not SNMPv2 and I understand thatsG this one is essential for a modern network management. Is V3.0 only thecB (never ever announced, or even marketed/sold to customers) port to6 OpenVMS Alpha or is there more in V3.0 (like snmpv2) ?   TIA    -- O Peter "EPLAN" LANGSTOEGER,% Network and OpenVMS system specialist, E-mail  peter@langstoeger.atF A-1030 VIENNA  AUSTRIA              I'm not a pessimist, I'm a realist   ------------------------------   End of INFO-VAX 2003.174 ************************