1 INFO-VAX	Wed, 02 Apr 2003	Volume 2003 : Issue 181       Contents: Re: Alpha emulator for x86? ; Re: Apache %SYSTEM-F-NOPRIV on RIGHTSLIST.DAT after upgrade  Re: COV Sponsors Re: COV Sponsors Re: COV Sponsors Determining run time+ Digital Networks responds to Hyper-Ethernet / Re: Digital Networks responds to Hyper-Ethernet / Re: Digital Networks responds to Hyper-Ethernet / Re: Digital Networks responds to Hyper-Ethernet  Re: Disk cache with shadow sets  Re: Disk cache with shadow sets  Re: Disk cache with shadow sets  Re: Disk cache with shadow sets  Re: Disk cache with shadow sets ' Re: Earth to Andrew, do you get it now? ' Re: Earth to Andrew, do you get it now? ' Re: Earth to Andrew, do you get it now? ' Re: Earth to Andrew, do you get it now?  Re: Fortran Guru requested RE: Fortran Guru requested Re: Fortran Guru requested Re: Fortran Guru requested Fortran Guru responds  Re: Fortran Guru responds  Re: Fortran Guru responds + Re: Fortran Gurus requested (part II): .LIS + Re: Fortran Gurus requested (part II): .LIS + Re: Fortran Gurus requested (part II): .LIS + Re: Fortran Gurus requested (part II): .LIS + Re: Fortran Gurus requested (part II): .LIS + Re: Fortran Gurus requested (part II): .MAP + Re: Fortran Gurus requested (part II): .MAR 7 Re: Fortran Gurus requested (part II): no .LIS; no .MAR ) Fortran Gurus requested (part II): source - Re: Fortran Gurus requested (part II): source / Re: Freeware/Decus CD Search Engine is alive...  Re: GP600 out of band mode Help! Can't boot VMS on an ES40 # Re: Help! Can't boot VMS on an ES40 # Re: Help! Can't boot VMS on an ES40  HSD50 Firmware - Latest Version # Re: HSD50 Firmware - Latest Version 0 Re: Include an automated date within a printout.: Inquirer: HP's Alpha RetainTrust programme a complete bust MOD_SSL and MOD_AUTH_OPENVMS Montagar problems? Re: Montagar problems? Re: MS-Word from OpenVMS ? MS-Word from OpenVMS ? Re: MS-Word from OpenVMS ? Re: MS-Word from OpenVMS ? Re: MS-Word from OpenVMS ? Re: MS-Word from OpenVMS ?P Mystery solved? (Re: [Q] Files not found during image backup, w/ and w/o directo" Re: New SPAWN behavior with V7.3-1" Re: New SPAWN behavior with V7.3-1P Re: OpenVMS.org: Marvel article and HP's press release for Marveland Alpha Retai Re: Overuse of LIB$SPAWN?  Re: pathworks administer issue Phantom processes slam CPU Re: Phantom processes slam CPU Re: Rich Marcello  Re: SAMBA question Re: SAMBA question Re: Second IP address  Re: Second IP address & Smart Array 5300a, shadowing and 7.3-12 Re: Space Invaders was: Re: Fortran Guru requested2 Re: Space Invaders was: Re: Fortran Guru requested Re: Suggestion to Sue D Re: SYSTARTUP_VMS (was: Three questions re: the VMS startup process)D Re: SYSTARTUP_VMS (was: Three questions re: the VMS startup process)D Re: SYSTARTUP_VMS (was: Three questions re: the VMS startup process)/ Re: Three questions re: the VMS startup process / Re: Three questions re: the VMS startup process  TZ30's and Alpha's?  Re: TZ30's and Alpha's?  Re: TZ30's and Alpha's? 2 Wildfire / GS Customers ConsoleWorks Special Offer  F ----------------------------------------------------------------------  $ Date: Tue, 1 Apr 2003 22:45:56 +0100* From: "John Travell" <john@travell.uk.net>$ Subject: Re: Alpha emulator for x86?5 Message-ID: <b6d1av$40amo$1@ID-120847.news.dfncis.de>   6 "P.Lj" <plj@NOSPAMbyron.ext.telia.se> wrote in message2 news:teqi8vkf35k721mkf2h11koefuvt3qdr1u@4ax.com...G > On Tue, 01 Apr 2003 10:27:48 GMT, P.Lj <plj@NOSPAMbyron.ext.telia.se>  > wrote: > 6 > >On Mon, 31 Mar 2003 19:25:32 -0500, "Timothy Stark"& > ><sword7nospam@speakeasy.org> wrote: > >  > >>Hello folks, > >>J > >>Ok, I am curious about that Alpha emulator for x86 platforms.  Is thatH > >>possible to emulate the Alpha system on x86?  I was looking for that through L > >>google and web searches and found not much news but only few articles on > >>this newsgroup.  > >> > >>Thank you.
 > >>Tim Stark  > >> > > I > >If I remember right, there was a Alpha emulator called 'mannequin' (?) D > >or something similar, used by Digital to port VMS while the Alpha  > >hardware was still developed. > > 4 > >It is descsribed in one of the Techinal Journals. > > / > >Someone around here must know more about it.  > >  > >>>> ^P.Lj > 2 > Must add, not sure which plattform it ran under. >   H I remember mannequin, it ran on a VAX and allowed emulation of the AlphaL instruction set. I saw it in operation a couple of times, but did not really get to know much about it.   -- John Travell  VMS crashdump expertise for hire john@travell.uk.net  http://www.travell.uk.net/       --- & Outgoing mail is certified Virus Free.: Checked by AVG anti-virus system (http://www.grisoft.com).A Version: 6.0.443 / Virus Database: 248 - Release Date: 10/01/2003    ------------------------------   Date: 1 Apr 03 22:47:36 +0200 ) From: p_sture@elias.decus.ch (Paul Sture) D Subject: Re: Apache %SYSTEM-F-NOPRIV on RIGHTSLIST.DAT after upgrade) Message-ID: <TAKMsMKtf1Jd@elias.decus.ch>   U In article <bMBUcaJ2R5E0@elias.decus.ch>, p_sture@elias.decus.ch (Paul Sture) writes: T > In article <b68k5c$cb$1@news4.tilbu1.nb.home.nl>, Dirk Munk <munk@home.nl> writes:R >> Did you run the config procedure after the upgrade? After each upgrade of CSWS W >> you MUST run the config procedure, otherwise you get all kind of Privilege problems.  >>   > I > That appears to fix it. FWIW I did run APACHE$CONFIG after the upgrade, $ > but not after the security update. > Q > I see today there's a new update. I'll see if I can reproduce the problem after N > applying that (the update instructions only contain instructions to shutdown > and startup).  >    Latest report:  I I applied CSWS Security update 2 and ran APACHE$CONFIG again. When I said M Yes to "Enable MOD_SSL?", the following startup produced the %SYSTEM-F-NOPRIV J error accessing RIGHTLIST. Repeating APACHE$CONFIG, this time answering No; to the MOD_SSL question, on the restart there was no error.   @ I did this a couple of times, so it appears quite reproduceable.     --  
 Paul Sture   ------------------------------   Date: 1 Apr 2003 11:43:53 -0800 ( From: qwqwqwqw70@hotmail.com (Jon Power) Subject: Re: COV Sponsors = Message-ID: <71367ac8.0304011143.6c83d0c6@posting.google.com>   2 Line Items, Project Plans, Baselines, measurement.  : The trick to doing ANY project is a complete project plan.  C project plan contain groups / sub groups and eventually line items.   E You bascially write down EVERY piece of work in a project and then at D the end of the tree you are left with real work items. (line items).  ? We take every source file, analyze it for VMSism use historical F metrics to find out the time to remediate and what yo uhave left is anF accurate determination of person hours to do the project. The trick is> not fooling yourself that you can do everything in 10 seconds.   For example:   Create baseline system (group))    Collect and copy MMS/CMS files (group)           build script 1  20mins           build script 2  20mins           etc etc etc  -     Recompile executables from current source !           module1 to object 2mins "           module2 to object  2mins       Link executables          General Ledger              nnnnn               mmmmm    @ The you do the same for every step in the process, listing every0 source module and associated middleware  etc etc  A The key is to have a set of tests available for the baseline. The C baseline is basically rebuilding the executables and then running a D predefine4d set of tests that describe input and output on a defined in dataset.   > You would not believe how many clients have no scripted tests.  D You wouls also not believe how many times the system have never beenC recompiled from scratch and when we do so, the programs simply dont F work because endless reasons. The obvious point here is if you migrateD a system that does not work then you have no chance of producing andC end product any better. And, its simpler to debug the original that = one that has been changed for an operating system transition.   ? BTW: Digital sponsored to write an artical for DEC Professional 5 (OpenVMS to OSF/1) -- most of these things are in it.   C Then take a few moduloes or varying complexity and TIME how lond it C takes to remediate - delete VMSisms, remediate extended VMS syntax, C etc etc) -- then apply those timing to every module in your system.   F Then the trick is to extrapolate the wall clock test times modified by@ the code coverage metrics and function point ratings to start to0 calculate the time to test (which implies DEBUG)  ( Put everything down in Microsoft Project    > Then you create the dependencies -- for example -- no point in> starting the compile until after you have remediated the code.  . However, you can start the testing minute one.  @ You then apply resources to each task -- decide on the number of9 people yo want on the project and adjust for skill level.   C Then you LEVEL the plan ... what this means is that MS project will C adjust the sequence of tasks to fit into the average 8 hour day (or C average 16 hours day at Sector7) and you will end up with the exact C time for the project (if you fill in the hourly rate - you will get  the exact cost)   C The hard part is making sure you havent forgotten anything. This is F just down to experience. The problem is that most organizations do oneE migration and never acquire the experience and certainly dont keep it  around.   F I can relate one small example (many years ago) of where we screwed up the costings and the timings.   > There was an accounting system written in VAX BASIC, they usedF LIB$TPARSE -- we didnt factor in the cost of recreating TPARSE on UNIXB -- turned out to be about $35K which we had to eat. Who woudl haveD ever thought that we would need a finate state parsing routine in an account package.  E (The rule when migrating VMS is "$"'s in the code === $$$'s of cost.)     VMS is littered with this stuff.  A Now, 15 years later, we have over 500 various XXX$YYYYY rountines 3 written for UNIX and NT. Very rarelt get surprised.   = However, we did miscalculate some years ago where we made the E assumption that RTRV2 on VMS would be mostly compatible with RTRV3 on  UNIX --- HUGE Mistake.  D The lesson there is dont assume that the same product works the same on two different platforms.     F Gather up all this data, analyze it, fairly cost it --- use MS ProjectD and you will end up with a very accurate assessment of the scope and time to migrate.    : One the other hand -- just call Sector7 we can migrate VMSE applications for probably less that a third of what it will cost your 
 organization.   E Not becuuse were brilliant (although we are) but because we have done 7 it so many times and know what to do to avoid problems.   E On our web site I believe we have free evaluation LINUX downloads for F many of the VMS subsystems (LIB$, SYS$, CONV$, FDL$, OTS$, STR$, MTH$,D FOR$, BAS$ etc etc). Im not sure how upto date they are -- but check them out www.sector7.com   ------------------------------   Date: 1 Apr 2003 18:57:34 -0800 ( From: qwqwqwqw70@hotmail.com (Jon Power) Subject: Re: COV Sponsors = Message-ID: <71367ac8.0304011857.197bc29e@posting.google.com>   N > Oracle clustering is just that ORACLE clustering. If you want clustering forP > anything other than access to the Oracle databases then you cannot make use ofO > that clustering. In particular the ORACLE clustering technology does not give P > you a DLM which will work with a clustered filesystem. Some other Unixs do now> > offer clustered filesystems but this is by no means true of  > "all UNIX os derivatives".   Yes, but that is the point.   F These days we NEVER come across a flat file index (except RMS) [I dontB like the use of flat file -- but thats what the database guys call ISAM file systems]  A Most indexed file systems on UNIX are either ORACLE, DB2, SYBASE, C INFORMIX ... I believe that ALL of these support clustering etc etc  etc.  E Most of the other activities normally associated with clustering come F under the HA (High Availability) or HACMP (High Availability Clustered Multi Processor) design.  ; Take the next logical step, that is to say that client apps B communicating in a stateless environment (such as the web) and anyD system using the standard off the shelf web servers and add ons willE effectively be HA with the file system distribution handled by Oracle  and DB2 (clustered).  F The modern programming methods bypass the need for VMS style inclusive clustering.   D UNIX becomes Highly available without the need for the programmer toE be messing with value blocks and blocking ASTS which effectively pass A ultimate control for the fail over to the application writer (who < should be writing business logic not VMS lock manager code &F congratulating themselves because they found a way to send 32 bytes of data between images).   ? Bottom line is that the stateless methodology of web processing F coupled with a clustered highly available database totally negates the need for VMS clustering.  A Go further, and the current model says that with properly written A portable code, the application servicing the users request can be B running on any machine type at any location serviced by broadband. (UNIX, VMS and NT .. oh my).  D Take this further and introduce the idea of 'capacity on demand' andB any system in an enterprise (or serviced data center) (with excess> capacity) should be able to start a server , handle a specificB request, and go back to what ever it was doing prior to making the6 mistake of volunteering 'spare resource availability'.  ? So, VMS was one of the first system to offer a specific type of ? clustering (by the way I think the IBM mainframe was FIRST with @ clustering). The specific clustering implementation may stand upC better against a base clustering offering from a base UNIX or NT OS  --- but, who cares ? ...  E Take a well designed UI, link that to a reliable messaging layer with B failover and stand by/shadow servers, (Tuxedo, RTR, MQSeries) linkC that to a applet and that to a clustered database and the result is  the same if not better.   D Nuf for now, kids are setting of weapons of mass destruction at each other.   /Jon   ------------------------------  $ Date: Wed, 2 Apr 2003 01:27:18 -0500* From: "Bill Todd" <billtodd@metrocast.net> Subject: Re: COV Sponsors 2 Message-ID: <EIKdnbXUsexVHxejXTWcpQ@metrocast.net>  5 "Jon Power" <qwqwqwqw70@hotmail.com> wrote in message 7 news:71367ac8.0304011857.197bc29e@posting.google.com... L > > Oracle clustering is just that ORACLE clustering. If you want clustering for K > > anything other than access to the Oracle databases then you cannot make  use ofL > > that clustering. In particular the ORACLE clustering technology does not giveK > > you a DLM which will work with a clustered filesystem. Some other Unixs  do now? > > offer clustered filesystems but this is by no means true of  > > "all UNIX os derivatives". >  > Yes, but that is the point.  > H > These days we NEVER come across a flat file index (except RMS) [I dontD > like the use of flat file -- but thats what the database guys call > ISAM file systems]  C Tell that to the C-ISAM and dbm(?) users.  Or to the VSAM (and IMS) K platforms that still form the core of so many corporate IT departments even - today.  Or even to B-trieve users on Windows.   H Of course, C-ISAM, dbm, and B-trieve don't extend well to clusters.  But VSAM and IMS do.   > C > Most indexed file systems on UNIX are either ORACLE, DB2, SYBASE, E > INFORMIX ... I believe that ALL of these support clustering etc etc  > etc.  G Well, sort of.  But only Oracle and the OS/390 (not AIX) version of DB2 K support shared-disk clustering (and hence flexible decoupling of processing G load from storage capacity and performance):  the others scale via data D partitioning, a distressingly manual mechanism both in set-up and in expansion reconfiguration.  K And, of course, a good many clusters don't need a database at all, but just  a cluster file system.   > G > Most of the other activities normally associated with clustering come H > under the HA (High Availability) or HACMP (High Availability Clustered > Multi Processor) design.  G Actually, most of the rather wide variety of beasties called 'clusters' H primarily address scalability rather than availability.  This is becauseL there are many (read-only or read-mostly) applications that can scale almostJ trivially across multiple cooperating nodes with minimal cluster plumbing.   > = > Take the next logical step, that is to say that client apps D > communicating in a stateless environment (such as the web) and anyF > system using the standard off the shelf web servers and add ons willG > effectively be HA with the file system distribution handled by Oracle  > and DB2 (clustered).  H Using a full-blown database for all aspects of a Web server is hardly anL efficient use of processing resources (or money), given how much of the taskL can be handled well by file systems.  Of course, just as with databases, notH all cluster file systems are created equal:  many rely upon partitioningL (either of the data itself, or - somewhat better - at least the metadata) toL distribute the load, which has the same drawbacks noted above for databases.   > H > The modern programming methods bypass the need for VMS style inclusive
 > clustering.   J That is, quite simply, bullshit.  1.  Stateless operation is hardly modernF (NFS is close to 20 years old now).  2.  Stateless operation is hardlyJ optimal (it was simply an easy way to obtain distributed access for peopleL willing to give up both performance and strict single-system semantics).  3.I Client/server operation is far from the only useful mode of cluster usage 7 (cluster-resident applications being one other biggie).    > F > UNIX becomes Highly available without the need for the programmer toG > be messing with value blocks and blocking ASTS which effectively pass C > ultimate control for the fail over to the application writer (who > > should be writing business logic not VMS lock manager code &H > congratulating themselves because they found a way to send 32 bytes of > data between images).   I More bullshit.  An application that can run in a Unix cluster has no need I whatsoever to deal with such details in a VMS cluster:  the difference is L that in a VMS cluster they are available to applications that *do* need themL (and that therefore can't function in a Unix cluster at all without creation6 of extensive additional application-specific support).   > A > Bottom line is that the stateless methodology of web processing H > coupled with a clustered highly available database totally negates the > need for VMS clustering.  J Bullshit^3.  Are you still living in the dot-com era, where anything otherI than Web activity was not considered worth thinking about?  The fact that D the kinds of applications you're describing can hobble along in lessL competent cluster environments in no way negates the fact that in many casesH they could function *better* in a VMS-style cluster, nor recognizes thatI there are other kinds of applications (especially cluster-resident ones - J including those that provide services, not just data, to a wider community; outside the cluster) that don't fit that model well at all.    > C > Go further, and the current model says that with properly written C > portable code, the application servicing the users request can be D > running on any machine type at any location serviced by broadband. > (UNIX, VMS and NT .. oh my).  L Of course, the farther you go in this direction, the fewer applications yourK model handles efficiently:  distributed processing without reasonably close  coupling is s-l-o-w.   > F > Take this further and introduce the idea of 'capacity on demand' andD > any system in an enterprise (or serviced data center) (with excess@ > capacity) should be able to start a server , handle a specificD > request, and go back to what ever it was doing prior to making the8 > mistake of volunteering 'spare resource availability'.  F 'Should' being the highly operative term, since no currently availableH systems come anywhere near such operation.  And whether they will in theH future is rather questionable:  with increasingly inexpensive processingH power, it may continue to be cheaper just to have plenty of it availableL locally than to try to coordinate export of arbitrary functions to arbitraryE hosts in the enterprise (which aside from the rather major additional H complexity also is slower than performing the processing locally and hasF potential negative performance implications that may make many systems reluctant to participate).  J Perhaps you are confusing that general approach (which seems to be looselyI modeled on the Berkeley NOW - Network of Workstations - project) with the L more specific prospect of central compute farms where an extensible group of( servers cooperate in servicing requests.   > A > So, VMS was one of the first system to offer a specific type of A > clustering (by the way I think the IBM mainframe was FIRST with B > clustering). The specific clustering implementation may stand upE > better against a base clustering offering from a base UNIX or NT OS  > --- but, who cares ? ...  I Unfortunately, most people don't know enough to care.  But such ignorance J does not change the facts of the matter:  while other systems are startingL to approach VMS in *functional* equivalence, they've still got a long way to# go to reach *complete* equivalence.    > G > Take a well designed UI, link that to a reliable messaging layer with D > failover and stand by/shadow servers, (Tuxedo, RTR, MQSeries) linkE > that to a applet and that to a clustered database and the result is  > the same if not better.   L It clearly can't be better, because it offers nothing that VMS can't provideJ as well.  And it frequently isn't even close to 'the same', whether due toK requiring larger numbers of systems (due to a need to separate clients from F servers - and sometimes clients from application servers from databaseA servers - which would not exist with the VMS approach), or due to 9 significant additional operation latencies caused by that  client/messaging/server (or J client/messaging/application-server/messaging/database-server) separation,J or due to the need to create facilities for multiple instances of the sameB application to coordinate with each other (the scalability part ofL clustering that simple single-instance fail-over doesn't address), or due toL the scaling issues associated with partitioned data noted above - just for a start.   - bill   ------------------------------   Date: 1 Apr 2003 13:51:54 -0800 2 From: texascheryl@hotmail.com (Cheryl Hoefelmeyer) Subject: Determining run time = Message-ID: <7112dd15.0304011351.1fe61273@posting.google.com>   F In a previous post, to demonstrate the speed of a spawn, W.F.J Mueller wrote:   >In one session execute. > < > $                         write sys$output "1 - "+f$time()< > $ spawn/nolog/nosym/nokey write sys$output "2 - "+f$time()< > $                         write sys$output "3 - "+f$time()< > $ spawn                   write sys$output "4 - "+f$time() > M >In the other execute the certainly CPU bound program, e.g. this Fortran code  >  >         program allcpu > 100     continue >         goto 100
 >         end  > K >Now measure the time of a SPAWN with and without a competing process. On a G >DEC 3000 - M300LX and with a heavy symbol and logical name environment I >(about 140 process logicals and 700 symbols) I got the following timing:  > ' >   Node idle CPU bound process running  >  > SPAWN  0.720 sec  146 sec !!! # > SPAWN/NO.. 0.270 sec   19 sec !!!  >   C What command(s) is/are used to get the timing? I'd like to try this  experiment myself.   Thanks,  Cheryl   ------------------------------  % Date: Tue, 01 Apr 2003 15:01:25 -0400 0 From: JF Mezei <jfmezei.spamnot@vl.videotron.ca>4 Subject: Digital Networks responds to Hyper-Ethernet/ Message-ID: <3E89E203.64D0FCD5@vl.videotron.ca>       Xerox Announces Hyper-Ethernet  < Hyper-Ethernet enables the transmission of people.  ``People@ transmission over Hyper-Ethernet,'' according to Michael Liddle,A V.P. of Office Systems, ``will greatly reduce elevator congestion B and eliminate the need for video conferencing.''  Order taking forA Hyper-Ethernet will begin next month.  Installation will start in ! Los Angeles in the Third Quarter.   A   In a related announcement, Wang Labs, headquartered in Hoboken, A New Jersey, announced Super-Hyper Wangnet, its twelfth generation A local area network.  According to Freddie Wang, President of Wang B Labs, ``Super-Hyper Wangnet will not only transmit people over the@ Wangnet, but will also transmit furniture and buildings over theA interconnect and utility bands.  These additional capabilities of  Super-Hyper Wangnet are vital   ;   to the emerging office of the future.''  Order taking for D Super-Hyper Wangnet will begin next month.  Installation has already occurred worldwide.   C   IBM Corporation, which has been rumored to be about to announce a = local area network since 1980, was not available for comment.   D   ------------------------------------------------------------------  $   Digital Responds to Hyper-Ethernet  C   TEWKSBURY, MA, April 1, 2010 -- Digital Equipment announced today ? its new DECNet Phase XVIII Architecture.  In response to recent @ Xerox and Wang improvements to Ethernet that provide people- andD facility-transportation across inter-node links, DEC's latest DECNetD provides these capabilities as well as providing for the creation of> virtual facilities and even countries.  These capabilities areD provided by breakthroughs in communications technology that actuallyD uses the Ether as a communications medium.  Through the use of a new> dedicated NANO-PDP-11/E99 gateway processor system, ETHERGATE,7 DECNet users can access anywhere in the Ethereal Plane.   C   This development obsoletes teleconferencing, since meeting groups A can create their own common conference rooms and cafeterias, thus A resolving space, travel, and dining problems.  There may be a few @ bugs left, as some of the dissenting DECNet Review Group members@ have not been seen since the last meeting held in such a virtual conference facility.  B   This breakthrough was brought about by a team of the Distributed? Systems Software and Hardware engineering teams in an effort to : improve on their Tewksbury, Massachusetts, facility.  In aC compromise decision, Distributed Systems will maintain an ETHERGATE D in TWOOO but it will connect directly to their new home somewhere inD the Shire of their newly defined Middle Earth reality.  Despite some9 difficulties, the scenery, windows, tax breaks, pool, and 9 racquetball courts made the relocation go quite smoothly. D Engineering Network topology will not change, as all forwarding will> be done by the TWOOO Ethereal Plane Router residing in Utility< packages such as Ethereal Person Transfer (EPT) and EtherealC Facility Transfer (EFT) provide appropriate capabilities for casual D users.  Sophisticated users can create ($CREATE), access ($OPEN) and? delete  ($NUKE) ethereal entities transparently from high level D languages using the Ethereal Management System (EMS) package and the@ Ethereal Access Protocol (EAP).  An ETHERTRIEVE utility for easy* interactive use will be available shortly.  D   DECNet Phase XVIII follows on the success of the Phase XVI ability= to access everyone's Digital Professional Wristwatch computer B system. The lead to the current Phase XVII architecture, which has> routing capabilities that allow direct communications with the1 entire Earth population's Atari home video games.   C   Distributed Systems architects are hard at work on the next phase D of DECNet that will include multi-plane existence network managementA (using the NIECE protocol) and galaxy level routing using 64K-bit 
 addresses.  @   Digital will continue to support its Gateway products into the7 Prime Material Plane. These products include an IBM ANA A (Acronym-based Network Architecture) Gateway, the TOLKIEN product 7 that allows control of all ring based networks, and our A Mega-broad-jump-band hardware which leaps past Wang's products in $ the hype-weary business marketplace.   ------------------------------  # Date: Tue, 01 Apr 2003 20:14:38 GMT ( From: "Mark E. Levy" <mlevy70@attbi.com>8 Subject: Re: Digital Networks responds to Hyper-Ethernet/ Message-ID: <Oqmia.330352$S_4.289292@rwcrnsc53>   = "JF Mezei" <jfmezei.spamnot@vl.videotron.ca> wrote in message ) news:3E89E203.64D0FCD5@vl.videotron.ca... " >   Xerox Announces Hyper-EthernetC > Mega-broad-jump-band hardware which leaps past Wang's products in   K Xerox? Wang? I'm sorry to say I've been around long enough to remember when  this first appeared.   ML   ------------------------------  % Date: Tue, 01 Apr 2003 13:40:41 -0800 ( From: Alan Frisbie <Abuse@NelsonUSA.com>8 Subject: Re: Digital Networks responds to Hyper-Ethernet, Message-ID: <3E8A0759.3090204@NelsonUSA.com>   Mark E. Levy wrote: ? > "JF Mezei" <jfmezei.spamnot@vl.videotron.ca> wrote in message + > news:3E89E203.64D0FCD5@vl.videotron.ca...  > " >>  Xerox Announces Hyper-EthernetC >>Mega-broad-jump-band hardware which leaps past Wang's products in  > M > Xerox? Wang? I'm sorry to say I've been around long enough to remember when  > this first appeared.  ( I actually worked at Xerox at that time.  C Although I cannot claim any authorship of these two press releases, ? I was the person who distributed several hundred copies of them B at a DECUS symposium about 1980 or so.   It's nice to see them popA up every so often.   It brings back happy memories of good times.   B What's scary is that the DECUS anti-commercialism police (remember@ them?) thought that they were *real* press releases instead of a joke!    Alan   ------------------------------  % Date: Tue, 01 Apr 2003 19:55:46 -0400 0 From: JF Mezei <jfmezei.spamnot@vl.videotron.ca>8 Subject: Re: Digital Networks responds to Hyper-Ethernet/ Message-ID: <3E8A26F6.9D7B838C@vl.videotron.ca>    Alan Frisbie wrote: D > What's scary is that the DECUS anti-commercialism police (rememberB > them?) thought that they were *real* press releases instead of a > joke!      LOL !!!!   ------------------------------  $ Date: Tue, 1 Apr 2003 14:49:07 -0500* From: "Bill Todd" <billtodd@metrocast.net>( Subject: Re: Disk cache with shadow sets2 Message-ID: <DsScnRlKOOSocBSjXTWcpQ@metrocast.net>  5 "Nic Clews" <sendspamhere@127.0.0.1> wrote in message # news:3E89517A.283E1617@127.0.0.1...  > Jesse Chambless wrote: > > I > > We are running VMS V7.2-2 and volume shadowing ( 2 member sets ).  We I > > write inhibit the application, and break the secondary member out for  > > backup. I > > My question is, when in this process is the disk cache flushed to the  > > member we are breaking out?  > > H > > Since the secondary member will not dismount until all IO operations< > > are complete, does the cache represent an incomplete IO? > 0 > Rob has provided some very useful information. > ? > VMS as an operating system does not have write caching (yet).   : Don't you consider RMS to be part of the operating system?   > J > The cache you speak of, is the controller cache, which is to some degreeH > independent of the operating system. Without the $FLUSH, the operatingI > system signals that an operation has completed when the data arrives in C > the cache, ready to be written (hence the importance of the cache  > battery).   H Does the $FLUSH change this in any way (I'm assuming that you're talkingH about the RMS operation that tells it to flush its internal buffers:  ifK not, never mind...)?  While one could imagine a hook that took that request K all the way to the controller cache, when it got there there'd be no way to J determine what dirty data needed to be flushed to the disk platters unless? it came complete with a list of relevant logical block numbers.   J My guess would be that at the point where you're ready to break the mirrorI set (after having quiesced applications and flushed dirty data at the RMS K level) you'd want to signal the controller to destage any cached dirty data L to disk.  But since I have no direct knowledge whatsoever of this mechanism,% I'm more than open to being educated.    - bill   ------------------------------   Date: 1 Apr 2003 15:37:34 -0600	+ From: young_r@encompasserve.org (Rob Young) ( Subject: Re: Disk cache with shadow sets3 Message-ID: <eX5m7ZTgb98z@eisner.encompasserve.org>   _ In article <DsScnRlKOOSocBSjXTWcpQ@metrocast.net>, "Bill Todd" <billtodd@metrocast.net> writes:p >    > L > My guess would be that at the point where you're ready to break the mirrorK > set (after having quiesced applications and flushed dirty data at the RMSeM > level) you'd want to signal the controller to destage any cached dirty datae > to disk.    > 	This step isn't necessary (this was kicked around in the lastC 	2 years and yes, I found it).  When it goes to read those LBNs it ,D 	doesn't matter if those LBNs are in writeback cache or platter.  I E 	had gotten turned around as a recommendation shot my way was to set t> 	CACHE_FLUSH_TIMER to 65000 and I had wondered the same thing:  u http://groups.google.com/groups?selm=4B279CF3578CD211B945009027178017046D03A0%40swilnts809.wil.fusa.com&output=gplainp  ; From: "Everhart, Glenn (FUSA)" <GlennEverhart@FirstUSA.com>e Newsgroups: comp.os.vms 0 Subject: RE: Writes flushed to Disk on Dismount?% Date: Fri, 02 Feb 2001 11:03:15 -0500e  A No, there are writes that are in HSG cache. When you back up, the > data comes from HSG cache. It continues to do so as long as it is there. No problems.     ---    				Robu   ------------------------------  $ Date: Tue, 1 Apr 2003 18:07:06 -0500* From: "Bill Todd" <billtodd@metrocast.net>( Subject: Re: Disk cache with shadow sets2 Message-ID: <k4SdncrXuNkEhhejXTWcpg@metrocast.net>  8 "Rob Young" <young_r@encompasserve.org> wrote in message- news:eX5m7ZTgb98z@eisner.encompasserve.org...a@ > In article <DsScnRlKOOSocBSjXTWcpQ@metrocast.net>, "Bill Todd"  <billtodd@metrocast.net> writes: > >p >r > >aG > > My guess would be that at the point where you're ready to break thet mirrorI > > set (after having quiesced applications and flushed dirty data at them RMSVJ > > level) you'd want to signal the controller to destage any cached dirty data > > to disk. >o? > This step isn't necessary (this was kicked around in the lastrC > 2 years and yes, I found it).  When it goes to read those LBNs it A > doesn't matter if those LBNs are in writeback cache or platter.M  I It does if you're about to separate some of the disks from that cache andsL use them independently (e.g., 'break the mirror' so as to use the broken-outL disks to perform a stable backup) - unless the controller is smart enough toL allow you to break the mirror and then still use the exactly the same set ofK blocks of dirty data in the cache both for the remaining (e.g., production)tF set of disks and the separated (e.g., backup) set of disks (which getsH especially interesting if one or the other set then wants to update it).  L Of course, if there are separate write-back caches for each mirror copy thenJ the broken-out set of disks carries with it its own copy of the write-backL cache and there's no problem.  But not all environments work that way (e.g.,< Symmetrix didn't, though they may have fixed that recently).   - bill   ------------------------------   Date: 1 Apr 2003 22:31:31 -0600-+ From: young_r@encompasserve.org (Rob Young):( Subject: Re: Disk cache with shadow sets3 Message-ID: <pqa7OnlEW6hn@eisner.encompasserve.org>s  _ In article <k4SdncrXuNkEhhejXTWcpg@metrocast.net>, "Bill Todd" <billtodd@metrocast.net> writes:n > : > "Rob Young" <young_r@encompasserve.org> wrote in message/ > news:eX5m7ZTgb98z@eisner.encompasserve.org...MA >> In article <DsScnRlKOOSocBSjXTWcpQ@metrocast.net>, "Bill Todd" " > <billtodd@metrocast.net> writes: >> > >> >> >H >> > My guess would be that at the point where you're ready to break the > mirrorJ >> > set (after having quiesced applications and flushed dirty data at the > RMS K >> > level) you'd want to signal the controller to destage any cached dirtyu > data
 >> > to disk.t >>@ >> This step isn't necessary (this was kicked around in the lastD >> 2 years and yes, I found it).  When it goes to read those LBNs itB >> doesn't matter if those LBNs are in writeback cache or platter. > K > It does if you're about to separate some of the disks from that cache andnN > use them independently (e.g., 'break the mirror' so as to use the broken-outN > disks to perform a stable backup) - unless the controller is smart enough toN > allow you to break the mirror and then still use the exactly the same set ofM > blocks of dirty data in the cache both for the remaining (e.g., production)yH > set of disks and the separated (e.g., backup) set of disks (which getsJ > especially interesting if one or the other set then wants to update it). >   C 	Using dirty blocks.  That would be correct, from what I have been /? 	told and what Glenn says in the link.  Makes sense.   But whata> 	you are describing, wouldn't the simpler design to be to have9 	duplicate cache blocks, each cache block associated withlA 	physical block?  Or are you trying to save cache space by havingt< 	a single cache block represent two or more physical blocks?D 	Then you are updating a reduced mirror?  When you re-add the split,= 	the controller keeps track and performs a mini-copy to synch> 	the mirror sets.o  9 	And the discussion is application cooperation.  So using : 	the same set of dirty blocks in production and separated? 	Production and backup copieseA 	get further and further apart as time moves.  Writes were paused 9 	just long enough to quiesce the split, after that writes D 	are being thrown to production and more dirty blocks on production.@ 	So I guess a cache block is associated with one-to-one physical 	blocks.  N > Of course, if there are separate write-back caches for each mirror copy thenL > the broken-out set of disks carries with it its own copy of the write-backN > cache and there's no problem.  But not all environments work that way (e.g.,> > Symmetrix didn't, though they may have fixed that recently).  E 	The method you are describing seems to be the way a certain vendor's F 	architecture works.  The MAJOR problem with that design is that when A 	the volume count -decreases-, the cache layout changes.  So you aE 	actually require downtime to re-layout your cache when you decrease )D 	your volume count (apparently you can't just throw that cache back H 	into some sort of pool - dynamically).  The trick of course is to have E 	enough cache pre-laid out (or in a free pool?) to handle additional jD 	volumes... so no one notices when you add more storage.  Don't you D 	dare suggest to consolidate, you'll discover of all things ... you  	have to take a downtime.   > 	I don't see that happening with HSJ/HSG/HSV.  Blocks of cache? 	come and go (their association changes) from physical block toh? 	physical block.  No concept of cache layout or dedicated cacheiD 	for mirrors, etc.  So 2 GBytes in HSV is more than adequate.  BreakA 	out a mirror to back it up?  The cache block hasn't been flushed C 	to the physical yet?  It stays associated with that physical blocko@ 	until CACHE_FLUSH_TIMER interval.  Otherwise, we hear of major " 	corruption and big warnings, etc.   				Robx   ------------------------------  $ Date: Wed, 2 Apr 2003 01:30:29 -0500* From: "Bill Todd" <billtodd@metrocast.net>( Subject: Re: Disk cache with shadow sets2 Message-ID: <OkOdna6JYdMZHhejXTWcpg@metrocast.net>  L I give up, Rob:  you clearly don't have a clue what I've been talking about,5 and I'm not sufficiently interested to delve further.t   - bill  8 "Rob Young" <young_r@encompasserve.org> wrote in message- news:pqa7OnlEW6hn@eisner.encompasserve.org... @ > In article <k4SdncrXuNkEhhejXTWcpg@metrocast.net>, "Bill Todd"  <billtodd@metrocast.net> writes: > >c< > > "Rob Young" <young_r@encompasserve.org> wrote in message1 > > news:eX5m7ZTgb98z@eisner.encompasserve.org...dC > >> In article <DsScnRlKOOSocBSjXTWcpQ@metrocast.net>, "Bill Todd"u$ > > <billtodd@metrocast.net> writes: > >> > > >> > >> >J > >> > My guess would be that at the point where you're ready to break the
 > > mirrorL > >> > set (after having quiesced applications and flushed dirty data at the > > RMSoG > >> > level) you'd want to signal the controller to destage any cachedl dirtyC > > data > >> > to disk.  > >>B > >> This step isn't necessary (this was kicked around in the lastF > >> 2 years and yes, I found it).  When it goes to read those LBNs itD > >> doesn't matter if those LBNs are in writeback cache or platter. > > I > > It does if you're about to separate some of the disks from that cachel andcE > > use them independently (e.g., 'break the mirror' so as to use ther
 broken-outF > > disks to perform a stable backup) - unless the controller is smart	 enough toMI > > allow you to break the mirror and then still use the exactly the same  set ofC > > blocks of dirty data in the cache both for the remaining (e.g.,o production)nJ > > set of disks and the separated (e.g., backup) set of disks (which getsL > > especially interesting if one or the other set then wants to update it). > >  >hC > Using dirty blocks.  That would be correct, from what I have beend@ > told and what Glenn says in the link.  Makes sense.   But what? > you are describing, wouldn't the simpler design to be to havex: > duplicate cache blocks, each cache block associated withB > physical block?  Or are you trying to save cache space by having= > a single cache block represent two or more physical blocks?TE > Then you are updating a reduced mirror?  When you re-add the split,r> > the controller keeps track and performs a mini-copy to synch > the mirror sets. >e: > And the discussion is application cooperation.  So using; > the same set of dirty blocks in production and separated?  > Production and backup copiesB > get further and further apart as time moves.  Writes were paused: > just long enough to quiesce the split, after that writesE > are being thrown to production and more dirty blocks on production.oA > So I guess a cache block is associated with one-to-one physical=	 > blocks.c >.K > > Of course, if there are separate write-back caches for each mirror copy0 thenC > > the broken-out set of disks carries with it its own copy of ther
 write-backI > > cache and there's no problem.  But not all environments work that wayt (e.g.,@ > > Symmetrix didn't, though they may have fixed that recently). >tF > The method you are describing seems to be the way a certain vendor'sF > architecture works.  The MAJOR problem with that design is that whenA > the volume count -decreases-, the cache layout changes.  So youvE > actually require downtime to re-layout your cache when you decrease D > your volume count (apparently you can't just throw that cache backH > into some sort of pool - dynamically).  The trick of course is to haveE > enough cache pre-laid out (or in a free pool?) to handle additionaltD > volumes... so no one notices when you add more storage.  Don't youD > dare suggest to consolidate, you'll discover of all things ... you > have to take a downtime. >O? > I don't see that happening with HSJ/HSG/HSV.  Blocks of cachew@ > come and go (their association changes) from physical block to@ > physical block.  No concept of cache layout or dedicated cacheE > for mirrors, etc.  So 2 GBytes in HSV is more than adequate.  BreaksB > out a mirror to back it up?  The cache block hasn't been flushedD > to the physical yet?  It stays associated with that physical block@ > until CACHE_FLUSH_TIMER interval.  Otherwise, we hear of major# > corruption and big warnings, etc.. >  > Robl >t   ------------------------------  # Date: Tue, 01 Apr 2003 19:08:22 GMTr( From: "Mark E. Levy" <mlevy70@attbi.com>0 Subject: Re: Earth to Andrew, do you get it now?@ Message-ID: <Gslia.326293$6b3.1514404@rwcrnsc51.ops.asp.att.net>  K "Andrew Harrison SUNUK Consultancy" <Andrew_No.Harrison_No@nospamn.sun.com>c9 wrote in message news:3E89C653.1050206@nospamn.sun.com...a >h >a > Bobg >  > Two questionsy >m: > 1. Why did you re-post an article that has just appeared >     in this thread.. >I8 > 2. Why did you re-post an article that doesn't support' >     your claim but does support mine.l >s7 > Note I said OpenVMS does not insulate you from bufferb6 > overruns, it provides more insulation. Read the post3 > you seemed to think we all needed to get a second 6 > bite at comprehend the post that you seemed to think2 > we need a second bite at and then admit that you > are mistaken.h  L Ah, Andrew, but at issue here is just how "insulated" from a buffer overflowF one is on a particular O/S. As already stated, on a _properly managed_L OpenVMS system, a buffer overflow will kill the current process, but not theL entire system. Many Unix variants will permit an errant process to overwriteH regions in the O/S or IO space, resulting in, at the least, funny thingsJ happening, or at the worst, a "panic." OpenVMS will not allow a process to3 access memory beyond that allocated to the process.e  D By "properly managed" I'm referring to a production (as opposed to aG development) system where user code is run with appropriate priveleges. D Obviously, if development, shoddy, or unknown code is being run in a1 privileged context, it can compromise the system.u   ML   ------------------------------   Date: 1 Apr 2003 12:51:14 -0800n( From: qwqwqwqw70@hotmail.com (Jon Power)0 Subject: Re: Earth to Andrew, do you get it now?= Message-ID: <71367ac8.0304011251.24376d14@posting.google.com>   # I'm not sure either of you 'get it'd  8 I've read some pretty flawed assumptions on this thread.  C Here is my perspective having worked on both sides of the argument.   F (1) DESCRIPTORS dont help. C programs use memset() and strcpy() on VMS) and UNIX and both will overwrite buffers.c  E (2) The Pure PSECT argument was good -- but UNIX systems can also nowi generate pure code.g  9 (3) Both VMS and UNIX can mark segments and data or code.e  E Most development these days is Oracle / Oracle Forms / Java / C / C++tE / websphere / weblogic and assorted middleware -- the code if writtenr- well will run on both VMS and UNIX (flavors).t  9 In the old days --- VMS had much more to offer than UNIX.d  F I remember trying to get LIB$FIND_IMAGE_SYMBOL and CALLG duplicated onD UNIX -- impossible, PSECTS were a huge pain to duplicate (especially0 when the VMS linker created the shared segment).  F These days -- who cares. Everyone has their favorite editor, most work? on VMS and UNIX, make/mms/sccs,rcs/cms --- is a 30 minute RTFM.c  E The issue is not "which is best" -- the issue is which system provide@5 the best opportunity for keeping personally employed.w  D Which system provides positive foundation to a resume and which does not.  C If 2 Oracle DBA's (UNIX and VMS) are both looking for a job -- whatiE are the chances of each finding employment ? --- I know which one I'doD want to be. How many UNIX DBA jobs are there compared to OpenVMS DBA' jobs -- its just a question of numbers.   F I see thousands of mission critical systems running just fine on UNIX,F I even see many working just as well on NT (yup - I know thats hard to swallow) and VMS.d  A Does anyone these days truly believe that VMS has some magic that D makes it light years ahead ?? -- even if it did -- would anyone take the risk of using it ?  @ Take RTR (Reliable Transaction Router) -- probably the best kept> secret in the world. Reliable messages transfered with minimalC overhead, asychronous event handling ... good old DEC technology ..eC its still around today (I think) but who would take the risk of newAC development on RTRV3?. It may be better than Tuxedo or MQSeries ...SF but they are mainstream and the same problems can be solved with all 3	 products.   E It never fails to amaze me that some of the smartest people I've evertF met in this field keep insisting on basing their value on someone else (DEC/Compaq/HP).  F Who cares which is better ?, the question is do you want keep employedA and which system offer the best and most lucrative opportunities.   A On that subject --- as more VMS systems are abandoned and the VMS B skill sets become hader to acuire - the hourly rate for VMS peopleC will go up -- but its temporary --- the highest paid people will be C those that have BOTH skill sets and can help organizations maintainm AND TRANSITION.A   /Jon Power (Sector7)   ------------------------------  # Date: Tue, 01 Apr 2003 21:36:16 GMTy& From: John Reagan <john.reagan@hp.com>0 Subject: Re: Earth to Andrew, do you get it now?/ Message-ID: <kDnia.144$SP1.80@news.cpqcorp.net>    Mark E. Levy wrote:l  N > Ah, Andrew, but at issue here is just how "insulated" from a buffer overflowH > one is on a particular O/S. As already stated, on a _properly managed_N > OpenVMS system, a buffer overflow will kill the current process, but not theN > entire system. Many Unix variants will permit an errant process to overwriteJ > regions in the O/S or IO space, resulting in, at the least, funny things) > happening, or at the worst, a "panic." d  G Not sure I want to raise my head in this fire-fight, but exactly which  H UNIX variants are you referring to?  On all the modern UNIXes I've used C over the past 20 years, all of them won't let user-mode code write  F kernel-pages.  Don't confuse memory management with a broken API.  It D would be just as easy for OpenVMS to have some broken API where you G could trick a system service into trashing kernel-memory with some bad k
 arguments.  H And to add my opinion about descriptors...  They sometimes help only in E the sense that they make you think about what you are doing.  If you ." don't think, then they don't help.     -- N John Reagano' Compaq Pascal/{A|I}MACRO Project Leaderi Hewlett-Packard Company    ------------------------------   Date: 1 Apr 2003 17:08:42 -0800n( From: bob@instantwhip.com (Bob Ceculski)0 Subject: Re: Earth to Andrew, do you get it now?= Message-ID: <d7791aa1.0304011708.13bbf529@posting.google.com>r   Andrew Harrison SUNUK Consultancy <Andrew_No.Harrison_No@nospamn.sun.com> wrote in message news:<3E89C653.1050206@nospamn.sun.com>...i  8 > 2. Why did you re-post an article that doesn't support' >     your claim but does support mine.t >   	 > regards  > Andrew Harrisonu  @ keep reading Andrew ... maybe eventually you will comprehend ...  J The relative difficulty of the buffer overrun on an OpenVMS system is thatK   you not only have to blow out the buffer, you have to blow out the bufferaH   in a security-relevent environment -- privileged-mode or running with K   privileges -- where something useful for a nefarious-minded programmer isdJ   actually possible.  Within the Trusted Computing Base (TCB), to use some   security jargon.   ------------------------------  % Date: Tue, 01 Apr 2003 22:33:09 +0100t+ From: John Laird <john@laird-towers.org.uk>n# Subject: Re: Fortran Guru requested 8 Message-ID: <691k8vcba1oqjujv1s7umn4il124rdqidm@4ax.com>  2 On Tue, 01 Apr 2003 20:29:20 +0200, Didier Morandi& <Didier.Morandi.nospam@Free.fr> wrote:   >Paddy O'Brien wrote:d >../..- >>  Didier bundles up a replay of what causedfI >> the problem and passes it to fortran@compaq.com (might be hp.com, but  G >> they still receive my compiler internal errors) and giving them his n >> version of Fortran. >l >I will.  J Did you try compiling the source you posted, rather than the one that gaveD you the stack dump ?  (I pointed out they cannot be the same, as theI traceback shows a call that does not exist, from MOVE to SPECIAL_GRAPHIC,l' but no-one seems to have spotted that.)u  J [Hmm, it's either my ISP news peering or my posting style, wonder which ?]     	Johnt   ------------------------------   Date: 1 Apr 2003 17:18 CDT' From: carl@gerg.tamu.edu (Carl Perkins)V# Subject: RE: Fortran Guru requestede, Message-ID: <1APR200317185936@gerg.tamu.edu>  , "Bruin, J.M. de" <Bruin@WT.TNO.NL> writes...' }And that's what I've stated all along:l } F }passing a character STRING differs from passing a character VARIABLE.6 }A string isn't passed as a descriptor, a variable is. } H }Probably (!?) doing CALL SLEEP(%DESCR('05:00')) does the trick as well. }  }Mark,  	 Nonsese. c  A You don't have to do any such thing. You can see this by creatinggG a trival program - you can even run it in the debugger and see what you' have at every step if you want.          OPTIONS /EXTEND_SOURCE       PROGRAM test             IMPLICIT NONEh       Character*5 foo          foo = '12345'o         Call thing(foo)          Call thing('abcde'),  	       ENDn         SUBROUTINE thing(x)          IMPLICIT NONE        Character*5 xo  0       Type *, x, ' (', len(x), ',', %loc(x), ')'         RETURN	       END   L You will find that X holds the right data in both cases, and the contents ofI it are printed as the correct character data in both cases. You never getpH the address represented by the ascii codes of the string you are passing6 it even when the data is a literal character constant.  F If this does not work for you, then your Fortran compiler would appear to have a bug.  G (I just did a quick SEARCH all the Fortran source files in my directoryfL structure - I pass literal character constants as parameters to subsroutinesB expecting character data passed by descriptor in over 1500 places. It always works.)a   --- Carl   ------------------------------   Date: 1 Apr 2003 17:37 CDT' From: carl@gerg.tamu.edu (Carl Perkins)e# Subject: Re: Fortran Guru requestedO, Message-ID: <1APR200317372767@gerg.tamu.edu>  " briggs@encompasserve.org writes...U }In article <h1qi4C8L19eL@eisner.encompasserve.org>, briggs@encompasserve.org writes: B }> '05:0' : 303A0500	A 1280 byte string with bogus descriptor type. }> '0   ' : 00000030	The address of the string } B }Correcting my translation of character string to descriptor, this }should be:r } A }'05:0' : 303A3530	A 13616 byte string with bogus descriptor type - }'0'    : 00000030	The address of the string.d } C }Since we actually saw reference to address 00000030, we may safelynA }assume that the three bytes allocated following the '05:00' werew }zeroes at run time. } 
 }	John Briggst  C As long as you are all being picky, you should note that the stringtB in question is one of '10.00', '05.00', '04.00', or '02.00' since A those are the literal constant character data passed to the SLEEPx) routine at various places in the program.n  D No colons, just decimal points. They are also all 5 characters long.  B You may as well use correct constant values when talking about it.   --- Carl   ------------------------------   Date: 1 Apr 2003 18:03 CDT' From: carl@gerg.tamu.edu (Carl Perkins)n# Subject: Re: Fortran Guru requestedp, Message-ID: <1APR200318032406@gerg.tamu.edu>  / John Laird <john@laird-towers.org.uk> writes... 3 }On Tue, 01 Apr 2003 20:29:20 +0200, Didier Morandi ' }<Didier.Morandi.nospam@Free.fr> wrote:- }  }>Paddy O'Brien wrote: }>../..0. }>>  Didier bundles up a replay of what causedJ }>> the problem and passes it to fortran@compaq.com (might be hp.com, but H }>> they still receive my compiler internal errors) and giving them his  }>> version of Fortran.w }>	 }>I will.r } K }Did you try compiling the source you posted, rather than the one that gaveuE }you the stack dump ?  (I pointed out they cannot be the same, as the J }traceback shows a call that does not exist, from MOVE to SPECIAL_GRAPHIC,( }but no-one seems to have spotted that.) } K }[Hmm, it's either my ISP news peering or my posting style, wonder which ?]  }	John  E I didn't spot that myself, but I did notice that you spotted it and IoG agree. It does not appear possible that the traceback was produced fromh the code posted.   --- Carl   ------------------------------  # Date: Wed, 02 Apr 2003 02:45:58 GMT + From: Jeff Cameron <JCam90502@jcameron.com>s Subject: Fortran Guru responds2 Message-ID: <BAAF8EE4.6AED%JCam90502@jcameron.com>   Didier,0  . I see this ACCVIO Reason mask 00 all the time.  @ Looking at your FORTRAN listings of SPECIAL_GRAPHIC your call toA SLEEP ('10.00') is not passing a matching argument to the routine-6 SLEEP which has the argument TAG typed as CHARACTER*5.   Solutions :FC 1. In Special Graphic, define a SYMBOL to be CHARACTER*5 and set iteC To the value of '10.00' via a FORTRAN PARAMETER statement, and pass.# The symbol in the call to SLEEP. IEn    (In SPECIAL_GRAPHIC)l     CHARACTER*5 TENSEC      PARAMETER (TENSEC = '10.00')	         :e     CALL SLEEP (TENSEC)a  = 2. In SUBROUTINE SLEEP define the argument TAG as a String ofrA undetermined length. Then you must just make sure that you alwayse@ pass a character string of 5 characters, or write code to handle8 Situation if you don't. Some Examples of code in SLEEP :   A.     SUBROUTINE SLEEP (TAG)     CHARACTER*(*) TAGk	         :e9     DELTA_TIME='0 ::'//TAG          !Concatenate strings. 	         :a   B.     SUBROUTINE SLEEP (TAG)     CHARACTER*(*) TAG 	         :eH     IF (LEN(TAG) .LT. 5) STOP 'TAGNOT5'  !Or code any exception you want>     DELTA_TIME='0 ::'//TAG(1:5)          !Concatenate strings.	         :n   C.     SUBROUTINE SLEEP (TAG)     CHARACTER*(*) TAGe     CHARACTER*5 LOCAL_TAGe	         :e     IF (LEN(TAG) .NE. 5) THEN 2         LOCAL_TAG = '05.00'  ! If err default to 5     ELSE         LOCAL_TAG = TAGr	     ENDIF 	         :r	         :h?     DELTA_TIME='0 ::'//LOCAL_TAG          !Concatenate strings.s	         :w   ------------------------------  % Date: Tue, 01 Apr 2003 23:28:40 -0500-' From: Howard S Shubs <howard@shubs.net>e" Subject: Re: Fortran Guru responds< Message-ID: <howard-14AB4C.23284001042003@enews.newsguy.com>  2 In article <BAAF8EE4.6AED%JCam90502@jcameron.com>,-  Jeff Cameron <JCam90502@jcameron.com> wrote:r  A >     DELTA_TIME='0 ::'//LOCAL_TAG          !Concatenate strings.d   Why the :: for that?   -- r4 Today, on Paper-view: The World Origami Championship   ------------------------------   Date: 1 Apr 2003 23:47 CDT' From: carl@gerg.tamu.edu (Carl Perkins)n" Subject: Re: Fortran Guru responds, Message-ID: <1APR200323472757@gerg.tamu.edu>  + Howard S Shubs <howard@shubs.net> writes...P3 }In article <BAAF8EE4.6AED%JCam90502@jcameron.com>,u. } Jeff Cameron <JCam90502@jcameron.com> wrote: } B }>     DELTA_TIME='0 ::'//LOCAL_TAG          !Concatenate strings. }  }Why the :: for that?o  D It just creates a character string of the form "0 ::05.00", which isE a delta time of 5 seconds since the hour and minute fields are absenti* (which is the same as then being 0 or 00).  D It would be simpler if it just used LIB$WAIT, which takes a floating= point number of seconds to hibernate as it's first parameter.s   --- Carl   ------------------------------  % Date: Tue, 01 Apr 2003 20:42:04 +0200t4 From: Didier Morandi <Didier.Morandi.nospam@Free.fr>4 Subject: Re: Fortran Gurus requested (part II): .LIS& Message-ID: <3E89DD7C.4070404@Free.fr>   DTL02> ty spcinv.lisP INVADERS                        Source Listing                   1-APR-2003 20:3. 5:16  Compaq Fortran V7.4A-1588         Page 1Q                                                                   1-APR-2003 20:3r& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  F                1 C                       Video Terminal Space Invaders                2 CQ                3 C       Originally written in C by Jude Miller, 1979, Cambridge.dO                4 C       Translated to FORTRAN-77 by Jonathan Boswell, July '81CQ                5 C       at the University of Virginia, Charlottesville, Virginiag .e                6 CQ                7 C       Machine dependent subroutines are SLEEP, CLEAR, MOVE, SPA ECIAL_GRAPHIC,P                8 C       and FUNCTION INCHAR.  These subroutines are written for	 a VAX/VMSoD                9 C       operating system employing VT100 terminals.               10 C)               11         PROGRAM INVADERSu1               12         IMPLICIT INTEGER*2 (A-Z)a4               13         LOGICAL FLIP,FLOP,LEFT,SLOW*               14         CHARACTER*80 BARR,               15         COMMON/CHRS/BARR(4).               16         PARAMETER MAX_BOMBS=4D               17         COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAMEP               18         1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT.               19         2 ,FALLING_BOMBS,SLOWI               20         3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COLdQ               21         4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_Cn
 OL(MAX_BOMBS)s6               22         5 ,SHIP_VAL,SHIP_COL,SHIP_VELQ               23         DATA GAME,SCORES,BASES,DANGER,MAX_DANGER,MAX_BOMB_ROW,SL- OW3               24         1 /0,0,3,11,22,20,.FALSE./                25#               26         CALL CLEARl'               27         CALL MOVE(5,0)sG               28         TYPE*,'Attention: Alien invasion in progress!'o               29         TYPE*Q               30         TYPE*,'Instructions:   <1>     to move the laser base let ft'eO               31         TYPE*,'                <2>     to halt the laser base'IQ               32         TYPE*,'                <3>     to move the laser base ri. ght'M               33         TYPE*,'                <space> to fire a laser beam'r@               34         TYPE*,'                <Q>     to quit'               35         TYPE*J               36         TYPE*,'        Type:   <1>     to play Bloodbath'Q               37         TYPE*,'                <2>     to play We Come in Peace'5Q               38         TYPE*,'                <3>     to play Invasion of the Ad liens'Q               39         TYPE*,'                <4>     to play Invisible Alien We easels'l%               40         ACCEPT*,GAMEr               415               42         CALL SPECIAL_GRAPHIC(.TRUE.)nE               43 1       CALL TABLEAU    !Draw starting game tableau.nF               44         CALL SLEEP('04.00')     !Pause a few seconds.K               45 2       CALL COMMAND    !See if there's a command waiting.b<               46         CALL BEAM       !Update laser beam.B               47         CALL BASE       !Slide laser base around.;               48         CALL BOMB       !Drop alien bombs.-P               49         CALL SHIP       !Fly mystery ship across top of screen.;               50         CALL ADVANCE    !Advance an alien.N@               51         CALL ADVANCE    !Advance another alien.8               52         IF (ALIENS_LEFT.EQ.0)   GO TO 1                53         GO TO 2               54         END                    P INVADERS                        Source Listing                   1-APR-2003 20:3. 5:16  Compaq Fortran V7.4A-1588         Page 2Q                                                                   1-APR-2003 20:3a& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1       PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   RV D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   Rt D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   Rc D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR  D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   R? D NOWRT OCTAQ    6 CHRS                                   320 NOPIC OVR REL GBL NOSHR NOEXE   R  D   WRT OCTAQ    7 DARTH                                  288 NOPIC OVR REL GBL NOSHR NOEXE   R  D   WRT OCTA  /      Total Space Allocated                16068      ENTRY POINTS     Address      Names      4-00000000  INVADERSe    	 VARIABLESy  M   Address      Type  Name           Address      Type  Name           Addressh
    Type  Namew    Q    7-00000018  I*2   ALIEN           7-00000106  I*2   BEAM_ROW        7-0000000A     I*2   MAX_DANGERiQ    7-0000001C  I*2   ALIENS_LEFT     7-00000008  I*2   DANGER          7-00000002     I*2   SCORES,Q    7-0000001A  I*2   B               7-0000001E  I*2   FALLING_BOMBS   7-0000011Ca    I*2   SHIP_COL Q    7-00000004  I*2   BASES           7-0000000C  L*4   FLIP            7-0000011A     I*2   SHIP_VALiQ    7-00000102  I*2   BASE_COL        7-00000010  L*4   FLOP            7-0000011E     I*2   SHIP_VELbQ    7-00000100  I*2   BASE_ROW        7-00000006  I*2   GAME            7-00000020c
    L*4   SLOW ;    7-00000104  I*2   BASE_VEL        7-00000014  L*4   LEFTa  C    7-00000108  I*2   BEAM_COL        7-00000000  I*2   MAX_BOMB_ROW        ARRAYS  7   Address      Type  Name             Bytes  Dimensionsp  1    7-00000092  I*2   ALIEN_COL          110  (55)-1    7-00000024  I*2   ALIEN_ROW          110  (55)r0    6-00000000  CHAR  BARR               320  (4)0    7-00000112  I*2   BOMB_COL             8  (4)0    7-0000010A  I*2   BOMB_ROW             8  (4)                                                      P INVADERS                        Source Listing                   1-APR-2003 20:3. 5:16  Compaq Fortran V7.4A-1588         Page 3Q                                                                   1-APR-2003 20:3u& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   LABELS  (   Address      Label  Address      Label  $        **      1           **      2                            P INVADERS                        Source Listing                   1-APR-2003 20:3. 5:16  Compaq Fortran V7.4A-1588         Page 4Q                                                                   1-APR-2003 20:3M& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                 55               56+               57         SUBROUTINE TABLEAU0A               58 C       Tableau draws the starting game tableau.e1               59         IMPLICIT INTEGER*2 (A-Z)s4               60         LOGICAL FLIP,FLOP,LEFT,SLOW*               61         CHARACTER*80 BARR,               62         COMMON/CHRS/BARR(4).               63         PARAMETER MAX_BOMBS=4D               64         COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAMEP               65         1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT.               66         2 ,FALLING_BOMBS,SLOWI               67         3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COLuQ               68         4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_Cs
 OL(MAX_BOMBS)76               69         5 ,SHIP_VAL,SHIP_COL,SHIP_VEL2               70         CHARACTER*80 INIT_BARR(4)(               71         DATA INIT_BARR/P               72         1'         lwwwwwwk          lklklklk          lklklklk7               73         2          lwwwwwwk         ',eQ               74         3'        lnnvvvvnnk        lvnvvvvnvk        lvnvvvvnvkg5               75         4        lnnvvvvnnk       ', Q               76         5'        tnu    tnu        tqu    tqu        tqu    tqu)5               77         6        tnu    tnu       ',rQ               78         7'        mvj    mvj        mqj    mqj        mqj    mqjp6               79         8        mvj    mvj        '/#               80         CALL CLEAR''               81         CALL MOVE(0,0)r,               82         CALL SEND('SCORE:').               83         CALL SEND_INT(SCORES)(               84         CALL MOVE(0,18)Q               85         CALL SEND('I N V A S I O N   O F   T H E   A L I E N S !t ')(               86         CALL MOVE(0,70),               87         CALL SEND('BASES:')-               88         CALL SEND_INT(BASES)t               89<               90 C       Initialize alien co-ords, display !)               91         ALIENS_LEFT = 55                92$               93         DO 20 J=0,4:               94                 CALL MOVE(DANGER-(2*J),0)-               95                 DO 20 I=1,11tM               96                         CALL DS_OBJ(((I+J).AND.1)+(2*(J/2)))27               97                         CALL SEND(' ')gK               98                         ALIEN_ROW(11*J+I) = DANGER - (2*J)rD               99 20                      ALIEN_COL(11*J+I) = 6*(I-1)#              100         ALIEN = 55n'              101         FLIP = .FALSE.e'              102         FLOP = .FALSE.s'              103         LEFT = .FALSE.M              104B              105 C       Initialize laser base position, velocity.&              106         BASE_ROW = 23&              107         BASE_COL = 72&              108         BASE_VEL = -1%              109         BEAM_ROW = 0t5              110         CALL MOVE(BASE_ROW,BASE_COL) '              111         CALL DS_OBJ(7)s                P TABLEAU                         Source Listing                   1-APR-2003 20:3. 5:16  Compaq Fortran V7.4A-1588         Page 5Q                                                                   1-APR-2003 20:3i& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                112H              113 C       Initialize bomb arrays. (ROW = 0 implies empty),              114         DO 30 I=1,MAX_BOMBS(              115 30      BOMB_ROW(I) = 0              116         B = 0*              117         FALLING_BOMBS = 0              118/              119 C       Initialize barricades. 3              120         DO 40 I=MAX(1,DANGER-17),4c2              121                 CALL MOVE(I+18,0)8              122                 CALL SEND(INIT_BARR(I))Q              123 40              BARR(I)=INIT_BARR(I)    !String assignment, 1 tou   80.oP              124         DANGER=MIN(MAX_DANGER,DANGER+1) !Get ready for next set
 of aliens.              1252              126 C       Initialize mystery ships.%              127         SHIP_VEL = 0               128         RETURN?              129         END     PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   Re D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   Ra D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   Rt D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR  D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   Rr D NOWRT OCTAQ    6 CHRS                                   320 NOPIC OVR REL GBL NOSHR NOEXE   Rk D   WRT OCTAQ    7 DARTH                                  288 NOPIC OVR REL GBL NOSHR NOEXE   Rn D   WRT OCTA  /      Total Space Allocated                16068      ENTRY POINTS     Address      Namea      4-00000460  TABLEAU    	 VARIABLESy  M   Address      Type  Name           Address      Type  Name           Address 
    Type  Names    Q    7-00000018  I*2   ALIEN           7-00000106  I*2   BEAM_ROW        7-00000014e
    L*4   LEFTeQ    7-0000001C  I*2   ALIENS_LEFT     7-00000008  I*2   DANGER          7-00000000e    I*2   MAX_BOMB_ROWyQ    7-0000001A  I*2   B               7-0000001E  I*2   FALLING_BOMBS   7-0000000Ah    I*2   MAX_DANGER Q    7-00000004  I*2   BASES           7-0000000C  L*4   FLIP            7-00000002a    I*2   SCORES(Q    7-00000102  I*2   BASE_COL        7-00000010  L*4   FLOP            7-0000011Ca    I*2   SHIP_COLoQ    7-00000100  I*2   BASE_ROW        7-00000006  I*2   GAME            7-0000011Av    I*2   SHIP_VALeQ    7-00000104  I*2   BASE_VEL            **      I*2   I               7-0000011E(    I*2   SHIP_VELhQ    7-00000108  I*2   BEAM_COL            **      I*2   J               7-00000020i
    L*4   SLOWf                                    P TABLEAU                         Source Listing                   1-APR-2003 20:3. 5:16  Compaq Fortran V7.4A-1588         Page 6Q                                                                   1-APR-2003 20:3s& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   ARRAYS  7   Address      Type  Name             Bytes  Dimensionse  1    7-00000092  I*2   ALIEN_COL          110  (55)b1    7-00000024  I*2   ALIEN_ROW          110  (55)h0    6-00000000  CHAR  BARR               320  (4)0    7-00000112  I*2   BOMB_COL             8  (4)0    7-0000010A  I*2   BOMB_ROW             8  (4)0    2-00000040  CHAR  INIT_BARR          320  (4)     LABELS  <   Address      Label  Address      Label  Address      Label  9        **      20          **      30          **      40d    P TABLEAU                         Source Listing                   1-APR-2003 20:3. 5:16  Compaq Fortran V7.4A-1588         Page 7Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                130              131.              132         SUBROUTINE SLEEP(TAG)Q              133 C       Set timer and wait for TAG seconds.  TAG is a CHARACTER*s 5 stringP              134 C       of the form ##.##, which is the seconds, and hundredths of seconds.tK              135 C       To delay game for 5 seconds, TAG would be '05.00'.i1              136         IMPLICIT INTEGER*4 (A-Z)s,              137         EXTERNAL SS$_NORMAL.              138         DOUBLE PRECISION TIME5              139         CHARACTER DELTA_TIME*9,TAG*5k              140N              141         DELTA_TIME='0 ::'//TAG          !Concatenate strings.Q              142         RET_STAT=SYS$BINTIM(DELTA_TIME,TIME)    !ASCII to binaryr   time. M              143         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'BINTIM failed.'tQ              144         RET_STAT=SYS$SETIMR(,TIME,,)            !Set timer, even 	 t flag 0.cM              145         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'SETIMR failed.' Q              146         RET_STAT=SYS$WAITFR(%VAL(0))            !Wait for flag 0l   to be set.M              147         IF(RET_STAT.NE.%LOC(SS$_NORMAL))STOP'WAITFR failed.'c              148         RETURNw              149         END     PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   Re D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   Rk D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   Ra D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR. D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   Ri D NOWRT OCTA  /      Total Space Allocated                15460e     ENTRY POINTS     Address      Name.      4-00000A80  SLEEP    	 VARIABLESh  Q   Address      Type  Name        Address      Type  Name        Address      Typei&    Name        Address      Type  Name    Q    1-00000018  CHAR  DELTA_TIME   1-00000010  I*4   RET_STAT         **      CHARi&    TAG          1-00000008  R*8   TIME              P SLEEP                           Source Listing                   1-APR-2003 20:3. 5:16  Compaq Fortran V7.4A-1588         Page 8Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                150              151+              152         SUBROUTINE COMMANDw1              153         IMPLICIT INTEGER*2 (A-Z)h4              154         LOGICAL FLIP,FLOP,LEFT,SLOW*              155         CHARACTER*80 BARR,              156         COMMON/CHRS/BARR(4).              157         PARAMETER MAX_BOMBS=4D              158         COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAMEP              159         1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT.              160         2 ,FALLING_BOMBS,SLOWI              161         3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL Q              162         4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_Ch
 OL(MAX_BOMBS)S6              163         5 ,SHIP_VAL,SHIP_COL,SHIP_VEL)              164         BYTE INCHAR,INPTh              165Q              166         IF(SLOW)CALL SLEEP('04.00')     !Use all five characters  .m,              167         IF (GAME.EQ.1) THENB              168                 IF (BASE_COL.LE.1)   BASE_VEL = 1C              169                 IF (BASE_COL.GE.72)  BASE_VEL = -1S&              170                 ENDIF              171Q              172         INPT=INCHAR()           !Take in character from keyboarde .u,              173         IF(INPT.EQ.' ')THENC              174                 IF (BEAM_ROW.EQ.0)   BEAM_ROW = 23 '              175                 RETURN0@              176         ELSE IF(INPT.EQ.'Q'.OR.INPT.EQ.'q')THEN*              177                 CALL HALT&              178                 ENDIF,              179         IF(GAME.EQ.1)RETURNQ              180         IF(INPT.LE.'3'.AND.INPT.GE.'1') BASE_VEL=INPT-ICHAR('2')n              181         RETURNy              182         END              P COMMAND                         Source Listing                   1-APR-2003 20:3. 5:16  Compaq Fortran V7.4A-1588         Page 9Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1       PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   Ro D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   R  D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   Rn D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR  D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   Rt D NOWRT OCTAQ    6 CHRS                                   320 NOPIC OVR REL GBL NOSHR NOEXE   R  D   WRT OCTAQ    7 DARTH                                  288 NOPIC OVR REL GBL NOSHR NOEXE   Re D   WRT OCTA  /      Total Space Allocated                16068n     ENTRY POINTS     Address      NameL      4-00000BD0  COMMAND    	 VARIABLESe  M   Address      Type  Name           Address      Type  Name           AddressR
    Type  Namer    Q    7-00000018  I*2   ALIEN           7-00000106  I*2   BEAM_ROW        7-00000000     I*2   MAX_BOMB_ROWfQ    7-0000001C  I*2   ALIENS_LEFT     7-00000008  I*2   DANGER          7-0000000Ai    I*2   MAX_DANGERnQ    7-0000001A  I*2   B               7-0000001E  I*2   FALLING_BOMBS   7-00000002s    I*2   SCORESrQ    7-00000004  I*2   BASES           7-0000000C  L*4   FLIP            7-0000011Cm    I*2   SHIP_COL Q    7-00000102  I*2   BASE_COL        7-00000010  L*4   FLOP            7-0000011As    I*2   SHIP_VAL Q    7-00000100  I*2   BASE_ROW        7-00000006  I*2   GAME            7-0000011E     I*2   SHIP_VELcQ    7-00000104  I*2   BASE_VEL            **      I*1   INPT            7-00000020X
    L*4   SLOW ;    7-00000108  I*2   BEAM_COL        7-00000014  L*4   LEFT        ARRAYS  7   Address      Type  Name             Bytes  DimensionsN  1    7-00000092  I*2   ALIEN_COL          110  (55)e1    7-00000024  I*2   ALIEN_ROW          110  (55)d0    6-00000000  CHAR  BARR               320  (4)0    7-00000112  I*2   BOMB_COL             8  (4)0    7-0000010A  I*2   BOMB_ROW             8  (4)      P COMMAND                         Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 10cQ                                                                   1-APR-2003 20:3l& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                183              184/              185         BYTE FUNCTION INCHAR()'Q              186 C       Take in single character from terminal, but don't wait it fu(              187 C       it isn't there.1              188         IMPLICIT INTEGER*4 (A-Z)n,              189         INTEGER*2 TTIOSB(4)E              190         EXTERNAL IO$_READLBLK,IO$M_TIMED,IO$M_NOECHOs8              191         EXTERNAL SS$_NORMAL,SS$_TIMEOUT.              192         CHARACTER*63 TERMINAL&              193         LOGICAL FIRST+              194         DATA FIRST/.TRUE./r              195&              196         IF(FIRST)THENA              197 C               Find out what terminal we're on..E              198                 SSCODE=SYS$TRNLOG('TT',,TERMINAL,,,)wQ              199                 IF(SSCODE.NE.%LOC(SS$_NORMAL))STOP'Translation fM ailure.'0              200 C               Assign channel.F              201                 SSCODE=SYS$ASSIGN(TERMINAL,TT_CHAN,,)Q              202                 IF(SSCODE.NE.%LOC(SS$_NORMAL))STOP'Assignment fat ilure.'e.              203                 FIRST=.FALSE.Q              204 C               Manufacture QIO command with NOECHO and TIMED mor difiers.Q              205                 TIMED_IO = IOR(%LOC(IO$_READLBLK),%LOC(IO$M_TIMEb D))eK              206                 TIMED_IO = IOR(TIMED_IO,%LOC(IO$M_NOECHO))e&              207                 ENDIF              208P              209 C       Read character from TT_CHAN into INCHAR with 0 timeout.M              210 1       SSCODE=SYS$QIOW(%VAL(0),%VAL(TT_CHAN),%VAL(TIMED_IO)-?              211         1 ,TTIOSB,,,INCHAR,%VAL(1),%VAL(0),,,).P              212         IF(SSCODE.NE.%LOC(SS$_NORMAL))STOP'QIO argument error.'              213(              214         ERROR=TTIOSB(1)<              215         IF(ERROR.EQ.%LOC(SS$_TIMEOUT)) THEN)              216                 INCHAR=0O'              217                 RETURNa&              218                 ENDIF=              219         IF(ERROR.EQ.%LOC(SS$_NORMAL)) RETURNM0              220         STOP'QIO return error.'              221         END                                              P INCHAR                          Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 11 Q                                                                   1-APR-2003 20:3p& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1       PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   R  D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   R  D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   R  D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NORa D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   R  D NOWRT OCTA  /      Total Space Allocated                15460k     ENTRY POINTS     Address      Type  Name       4-00000D30  I*1   INCHAR4    	 VARIABLES@  Q   Address      Type  Name      Address      Type  Name      Address      Type  Naa me    Q        **      I*4   ERROR      1-00000048  I*4   SSCODE     1-00000040  I*4   TIu MED_IOQ    2-0000003C  L*4   FIRST      1-00000050  CHAR  TERMINAL   1-00000044  I*4   TT  _CHAN      ARRAYS  4   Address      Type  Name          Bytes  Dimensions  -    1-00000038  I*2   TTIOSB            8  (4)f     LABELS     Address      Label          **      1                                P INCHAR                          Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 12hQ                                                                   1-APR-2003 20:3i& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                222              223(              224         SUBROUTINE BASE7              225 C       Move laser base left or right.t1              226         IMPLICIT INTEGER*2 (A-Z) 4              227         LOGICAL FLIP,FLOP,LEFT,SLOW*              228         CHARACTER*80 BARR,              229         COMMON/CHRS/BARR(4).              230         PARAMETER MAX_BOMBS=4D              231         COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAMEP              232         1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT.              233         2 ,FALLING_BOMBS,SLOWI              234         3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COLeQ              235         4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_Cb
 OL(MAX_BOMBS)t6              236         5 ,SHIP_VAL,SHIP_COL,SHIP_VEL              237)              238         OLD_COL=BASE_COL.3              239         BASE_COL=BASE_COL+BASE_VELt0              240         IF (BASE_COL.LT.1) THEN-              241                 BASE_COL = 186              242         ELSE IF (BASE_COL.GT.72) THEN.              243                 BASE_COL = 72&              244                 ENDIF8              245         IF (BASE_COL.EQ.OLD_COL) RETURN5              246         CALL MOVE(BASE_ROW,BASE_COL)f'              247         CALL DS_OBJ(7)A              248         RETURNt              249         END                            P BASE                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 13nQ                                                                   1-APR-2003 20:3a& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1       PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   R  D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   Ry D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   Rs D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NORi D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   Rs D NOWRT OCTAQ    6 CHRS                                   320 NOPIC OVR REL GBL NOSHR NOEXE   Re D   WRT OCTAQ    7 DARTH                                  288 NOPIC OVR REL GBL NOSHR NOEXE   Rn D   WRT OCTA  /      Total Space Allocated                16068t     ENTRY POINTS     Address      Names      4-00000F60  BASEa    	 VARIABLESs  M   Address      Type  Name           Address      Type  Name           Address-
    Type  Name     Q    7-00000018  I*2   ALIEN           7-00000106  I*2   BEAM_ROW        7-0000000Ar    I*2   MAX_DANGEReM    7-0000001C  I*2   ALIENS_LEFT     7-00000008  I*2   DANGER              **.    I*2   OLD_COLQ    7-0000001A  I*2   B               7-0000001E  I*2   FALLING_BOMBS   7-00000002     I*2   SCORESyQ    7-00000004  I*2   BASES           7-0000000C  L*4   FLIP            7-0000011Cg    I*2   SHIP_COLyQ    7-00000102  I*2   BASE_COL        7-00000010  L*4   FLOP            7-0000011A0    I*2   SHIP_VAL Q    7-00000100  I*2   BASE_ROW        7-00000006  I*2   GAME            7-0000011E     I*2   SHIP_VELlQ    7-00000104  I*2   BASE_VEL        7-00000014  L*4   LEFT            7-00000020a
    L*4   SLOWiC    7-00000108  I*2   BEAM_COL        7-00000000  I*2   MAX_BOMB_ROWl       ARRAYS  7   Address      Type  Name             Bytes  Dimensionst  1    7-00000092  I*2   ALIEN_COL          110  (55)i1    7-00000024  I*2   ALIEN_ROW          110  (55) 0    6-00000000  CHAR  BARR               320  (4)0    7-00000112  I*2   BOMB_COL             8  (4)0    7-0000010A  I*2   BOMB_ROW             8  (4)      P BASE                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 14mQ                                                                   1-APR-2003 20:3-& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                250              251              252(              253         SUBROUTINE BEAMH              254 C       Activate or advance the laser beam if required.1              255         IMPLICIT INTEGER*2 (A-Z) 4              256         LOGICAL FLIP,FLOP,LEFT,SLOW*              257         CHARACTER*80 BARR,              258         COMMON/CHRS/BARR(4).              259         PARAMETER MAX_BOMBS=4D              260         COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAMEP              261         1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT.              262         2 ,FALLING_BOMBS,SLOWI              263         3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COLtQ              264         4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_C 
 OL(MAX_BOMBS)i6              265         5 ,SHIP_VAL,SHIP_COL,SHIP_VEL              266%              267 C       Display beamr0              268         IF(BEAM_ROW.EQ.0)RETURNQ              269         BEAM_ROW=MAX(BEAM_ROW-1,0)      !Increment beam positionr . M              270         IF(BEAM_ROW.EQ.0)THEN           !Erase beam, return.-6              271                 CALL MOVE(1,BEAM_COL)G              272                 CALL SEND(' '//CHAR(8)//CHAR(10)//' ')A'              273                 RETURNo4              274         ELSE IF(BEAM_ROW.EQ.21)THEN7              275                 CALL MOVE(21,BEAM_COL) /              276                 CALL SEND('x')i4              277         ELSE IF(BEAM_ROW.EQ.22)THEN8              278                 BEAM_COL = BASE_COL + 37              279                 CALL MOVE(22,BEAM_COL)I/              280                 CALL SEND('x')E              281         ELSEe=              282                 CALL MOVE(BEAM_ROW,BEAM_COL) Q              283                 CALL SEND('x'//CHAR(8)//CHAR(10)//CHAR(10)//' ')t              284         ENDIF              2859              286 C       Check for contact with an alien.E%              287         DO 10 I=1,55UQ              288         IF ((ALIEN_ROW(I).EQ.BEAM_ROW).AND.((ALIEN_COL(I)+1).LE.G	 BEAM_COL)CN              289         1           .AND.((ALIEN_COL(I)+3).GE.BEAM_COL)) THEN!              290 C       Contact!(M              291                 SCORES = SCORES+(I/22)+1        !Add points. /              292                 CALL MOVE(0,7) 6              293                 CALL SEND_INT(SCORES)H              294                 CALL SEND(CHAR(7))      !Ring the bell.?              295                 CALL MOVE(BEAM_ROW+1,BEAM_COL)L/              296                 CALL SEND(' ') E              297                 CALL MOVE(ALIEN_ROW(I),ALIEN_COL(I))sO              298                 CALL DS_OBJ(6)          !Erase beam and alien.2+              299                 BEAM_ROW=0sQ              300                 ALIEN_ROW(I)=0          !Clear beam and alien st0 ate.:              301                 ALIENS_LEFT=ALIENS_LEFT-1'              302                 RETURNa&              303                 ENDIF!              304 10      CONTINUEa              3057              306 C       Check for contact with a bomb.l            P BEAM                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 15FQ                                                                   1-APR-2003 20:3s& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ,              307         DO 20 I=1,MAX_BOMBSQ              308         IF (BEAM_COL.NE.BOMB_COL(I).OR.BOMB_ROW(I).EQ.0)GO TO 20AQ              309         IF(BEAM_ROW.EQ.BOMB_ROW(I).OR.BEAM_ROW-1.EQ.BOMB_ROW(I))h   THEN=              310                 CALL MOVE(BEAM_ROW,BEAM_COL)oG              311                 CALL SEND(' '//CHAR(8)//CHAR(10)//' ')h-              312                 BEAM_ROW = 0 @              313                 CALL MOVE(BOMB_ROW(I),BEAM_COL)8              314                 CALL SEND(' '//CHAR(7))>              315                 FALLING_BOMBS=FALLING_BOMBS-10              316                 BOMB_ROW(I) = 0'              317                 RETURNq&              318                 ENDIF!              319 20      CONTINUE               320<              321 C       Check for contact with a barricade.G              322         IF ((BEAM_ROW.GE.19).AND.(BEAM_ROW.LE.22).AND. Q              323         1(BARR(BEAM_ROW-18)(BEAM_COL+1:BEAM_COL+1).NE.' ')) THENY=              324                 CALL MOVE(BEAM_ROW,BEAM_COL) P              325                 CALL SEND(' '//CHAR(8)//CHAR(10)//' '//CHAR(7))O              326                 BARR(BEAM_ROW-18)(BEAM_COL+1:BEAM_COL+1) = ' ' -              327                 BEAM_ROW = 0,'              328                 RETURNh&              329                 ENDIF              330?              331 C       Check for contact with a mystery ship.b,              332         I=SHIP_COL-SHIP_VELN              333         IF (SHIP_VEL.NE.0.AND.BEAM_ROW.EQ.1.AND.BEAM_COL.GT.I4              334         1.AND.BEAM_COL.LT.I+7) THEN!              335 C       Contact!./              336                 CALL MOVE(1,I)OM              337                 CALL SEND(CHAR(7)//'        ')  !Erase ship. -              338                 SHIP_VEL = 0 ;              339                 SCORES = SCORES+SHIP_VAL/3 /              340                 CALL MOVE(0,7)R6              341                 CALL SEND_INT(SCORES)              342         ENDIF              343         RETURNG              344         END        P BEAM                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 16OQ                                                                   1-APR-2003 20:3_& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1       PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   R. D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   R0 D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   R  D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NORt D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   R  D NOWRT OCTAQ    6 CHRS                                   320 NOPIC OVR REL GBL NOSHR NOEXE   R  D   WRT OCTAQ    7 DARTH                                  288 NOPIC OVR REL GBL NOSHR NOEXE   R  D   WRT OCTA  /      Total Space Allocated                16068      ENTRY POINTS     Address      Name       4-00001090  BEAMt    	 VARIABLES   M   Address      Type  Name           Address      Type  Name           Address 
    Type  NameT    Q    7-00000018  I*2   ALIEN           7-00000106  I*2   BEAM_ROW        7-00000000     I*2   MAX_BOMB_ROW Q    7-0000001C  I*2   ALIENS_LEFT     7-00000008  I*2   DANGER          7-0000000AM    I*2   MAX_DANGER Q    7-0000001A  I*2   B               7-0000001E  I*2   FALLING_BOMBS   7-00000002L    I*2   SCORESwQ    7-00000004  I*2   BASES           7-0000000C  L*4   FLIP            7-0000011C     I*2   SHIP_COL Q    7-00000102  I*2   BASE_COL        7-00000010  L*4   FLOP            7-0000011A     I*2   SHIP_VALEQ    7-00000100  I*2   BASE_ROW        7-00000006  I*2   GAME            7-0000011E     I*2   SHIP_VEL Q    7-00000104  I*2   BASE_VEL            **      I*2   I               7-00000020L
    L*4   SLOWl;    7-00000108  I*2   BEAM_COL        7-00000014  L*4   LEFT        ARRAYS  7   Address      Type  Name             Bytes  DimensionsC  1    7-00000092  I*2   ALIEN_COL          110  (55) 1    7-00000024  I*2   ALIEN_ROW          110  (55) 0    6-00000000  CHAR  BARR               320  (4)0    7-00000112  I*2   BOMB_COL             8  (4)0    7-0000010A  I*2   BOMB_ROW             8  (4)                                                      P BEAM                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 17EQ                                                                   1-APR-2003 20:3$& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   LABELS  (   Address      Label  Address      Label  %    4-0000134C  10      4-000013D4  20                             P BEAM                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 18 Q                                                                   1-APR-2003 20:3A& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                345              346(              347         SUBROUTINE BOMB6              348 C       Advance the next active bomb.1              349         IMPLICIT INTEGER*2 (A-Z) 4              350         LOGICAL FLIP,FLOP,LEFT,SLOW*              351         CHARACTER*80 BARR,              352         COMMON/CHRS/BARR(4).              353         PARAMETER MAX_BOMBS=4D              354         COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAMEP              355         1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT.              356         2 ,FALLING_BOMBS,SLOWI              357         3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL Q              358         4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_C 
 OL(MAX_BOMBS)26              359         5 ,SHIP_VAL,SHIP_COL,SHIP_VEL              3609              361         IF (FALLING_BOMBS.EQ.0)   RETURN               362 10      B=B+10              363         IF (B.GT.MAX_BOMBS) B=17              364         IF (BOMB_ROW(B).EQ.0) GO TO 10               365F              366 C       Advance the bomb, check for hit, and display.2              367         BOMB_ROW(B)=BOMB_ROW(B)+14              368         IF (BOMB_ROW(B).EQ.23) THENC              369                 IF ((BOMB_COL(B).GT.BASE_COL).AND. H              370         1           (BOMB_COL(B).LE.(BASE_COL+5))) THEN)              371 C       The base is hit! 6              372                         BASES=BASES-18              373                         CALL MOVE(0,76)=              374                         CALL SEND_INT(BASES) 9              375 C       Make some noise, erase the base. M              376                         CALL SEND(CHAR(7)//CHAR(7)//CHAR(7))rB              377                         IF (BASES.EQ.0) CALL HALTQ              378                         CALL SLEEP('02.00')     !Use all five chR	 aracters.S?              379                         CALL MOVE(23,BASE_COL) =              380                         CALL SEND('       ') 6              381                         BASE_COL = 726              382                         BASE_VEL = -1L              383                         ENDIF           !Bomb erased below.&              384                 ENDIF              385L              386         IF((BOMB_ROW(B).GE.19).AND.(BOMB_ROW(B).LT.23).AND.Q              387         1(BARR(BOMB_ROW(B)-18)(BOMB_COL(B)+1:BOMB_COL(B)+1).NE.' 
   ')) THEN6              388 C       The bomb has hit a barricade.E              389                 CALL MOVE(BOMB_ROW(B)-1,BOMB_COL(B)) P              390                 CALL SEND(' '//CHAR(8)//CHAR(10)//' '//CHAR(7))Q              391                 BARR(BOMB_ROW(B)-18)(BOMB_COL(B)+1:BOMB_COL(B)+1  ) = ' ' 0              392                 BOMB_ROW(B) = 0>              393                 FALLING_BOMBS=FALLING_BOMBS-1'              394                 RETURN_&              395                 ENDIF              396>              397 C       Now display bomb in its new location.=              398         CALL MOVE(BOMB_ROW(B)-1,BOMB_COL(B)) ?              399         CALL SEND(' '//CHAR(8)//CHAR(10)//'*')1E              400         IF (BOMB_ROW(B).EQ.23) THEN     !Erase bomb. >              401                 FALLING_BOMBS=FALLING_BOMBS-1            P BOMB                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 19 Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  0              402                 BOMB_ROW(B) = 08              403                 CALL SEND(CHAR(8)//' ')&              404                 ENDIF              405         RETURN               406         END     PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   R  D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   R) D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   R  D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NORe D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   R  D NOWRT OCTAQ    6 CHRS                                   320 NOPIC OVR REL GBL NOSHR NOEXE   R  D   WRT OCTAQ    7 DARTH                                  288 NOPIC OVR REL GBL NOSHR NOEXE   R. D   WRT OCTA  /      Total Space Allocated                16068D     ENTRY POINTS     Address      Name       4-00001A10  BOMB)    	 VARIABLESJ  M   Address      Type  Name           Address      Type  Name           Address 
    Type  Name     Q    7-00000018  I*2   ALIEN           7-00000106  I*2   BEAM_ROW        7-0000000A     I*2   MAX_DANGER Q    7-0000001C  I*2   ALIENS_LEFT     7-00000008  I*2   DANGER          7-00000002     I*2   SCORESoQ    7-0000001A  I*2   B               7-0000001E  I*2   FALLING_BOMBS   7-0000011C_    I*2   SHIP_COL Q    7-00000004  I*2   BASES           7-0000000C  L*4   FLIP            7-0000011A1    I*2   SHIP_VALEQ    7-00000102  I*2   BASE_COL        7-00000010  L*4   FLOP            7-0000011EL    I*2   SHIP_VEL Q    7-00000100  I*2   BASE_ROW        7-00000006  I*2   GAME            7-00000020A
    L*4   SLOWa;    7-00000104  I*2   BASE_VEL        7-00000014  L*4   LEFT   C    7-00000108  I*2   BEAM_COL        7-00000000  I*2   MAX_BOMB_ROW        ARRAYS  7   Address      Type  Name             Bytes  Dimensions   1    7-00000092  I*2   ALIEN_COL          110  (55)X1    7-00000024  I*2   ALIEN_ROW          110  (55) 0    6-00000000  CHAR  BARR               320  (4)0    7-00000112  I*2   BOMB_COL             8  (4)0    7-0000010A  I*2   BOMB_ROW             8  (4)                                            P BOMB                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 20 Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   LABELS     Address      Label      4-00001A50  101                            P BOMB                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 21 Q                                                                   1-APR-2003 20:3s& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                407              408(              409         SUBROUTINE SHIPB              410 C       Create or advance a mystery ship (maybe).1              411         IMPLICIT INTEGER*2 (A-Z) 4              412         LOGICAL FLIP,FLOP,LEFT,SLOW*              413         CHARACTER*80 BARR,              414         COMMON/CHRS/BARR(4).              415         PARAMETER MAX_BOMBS=4D              416         COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAMEP              417         1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT.              418         2 ,FALLING_BOMBS,SLOWI              419         3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COLeQ              420         4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_C0
 OL(MAX_BOMBS)U6              421         5 ,SHIP_VAL,SHIP_COL,SHIP_VEL!              422         REAL RANd'              423         INTEGER*4 SEED -              424         DATA SEED/337733893/O              4250              426         IF (SHIP_VEL.EQ.0) THEN<              427                 IF (RAN(SEED).LT..005) THENG              428 C       Create a mystery ship about once every minute.LB              429                         IF (RAN(SEED).LT..2) THEN>              430                                 SHIP_VEL = -1>              431                                 SHIP_COL = 72-              432                         ELSES=              433                                 SHIP_VEL = 1 =              434                                 SHIP_COL = 1 .              435                         ENDIF6              436                         SHIP_VAL = 90&              437                 ENDIF              438              439         ELSE 9              440 C       Update an existing mystery ship. 6              441                 CALL MOVE(1,SHIP_COL)4              442                 IF (GAME.NE.4) THEN>              443                         WHIRL=MOD(SHIP_COL,3);              444                         IF(WHIRL.EQ.0)THEN E              445                                 CALL SEND(' <--`> ')0A              446                         ELSE IF (WHIRL.EQ.1)THENNE              447                                 CALL SEND(' <-`-> ')(-              448                         ELSE E              449                                 CALL SEND(' <`--> ')C6              450                                 ENDIF.              451                         ENDIF4              452                 SHIP_VAL=SHIP_VAL-1=              453                 SHIP_COL = SHIP_COL+SHIP_VELgI              454                 IF (SHIP_COL.GT.72.OR.SHIP_COL.LT.1)THEN 9              455 C               Remove the mystery ship. G              456                         CALL MOVE(1,SHIP_COL-SHIP_VEL) >              457                         CALL SEND('        ')5              458                         SHIP_VEL = 0a&              459                 ENDIF              460         ENDIF              461         RETURNc              462         END                    P SHIP                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 22 Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1       PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   RM D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   RS D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   R, D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR  D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   R. D NOWRT OCTAQ    6 CHRS                                   320 NOPIC OVR REL GBL NOSHR NOEXE   R8 D   WRT OCTAQ    7 DARTH                                  288 NOPIC OVR REL GBL NOSHR NOEXE   R  D   WRT OCTA  /      Total Space Allocated                16068      ENTRY POINTS     Address      NameH      4-00001F50  SHIPC    	 VARIABLES   M   Address      Type  Name           Address      Type  Name           AddressC
    Type  NameA    Q    7-00000018  I*2   ALIEN           7-00000106  I*2   BEAM_ROW        7-0000000A     I*2   MAX_DANGER Q    7-0000001C  I*2   ALIENS_LEFT     7-00000008  I*2   DANGER          7-00000002K    I*2   SCORES Q    7-0000001A  I*2   B               7-0000001E  I*2   FALLING_BOMBS   2-00000038S
    I*4   SEED Q    7-00000004  I*2   BASES           7-0000000C  L*4   FLIP            7-0000011CE    I*2   SHIP_COL Q    7-00000102  I*2   BASE_COL        7-00000010  L*4   FLOP            7-0000011Ai    I*2   SHIP_VALdQ    7-00000100  I*2   BASE_ROW        7-00000006  I*2   GAME            7-0000011ET    I*2   SHIP_VELCQ    7-00000104  I*2   BASE_VEL        7-00000014  L*4   LEFT            7-00000020 
    L*4   SLOWLM    7-00000108  I*2   BEAM_COL        7-00000000  I*2   MAX_BOMB_ROW        **     I*2   WHIRL     ARRAYS  7   Address      Type  Name             Bytes  Dimensions2  1    7-00000092  I*2   ALIEN_COL          110  (55) 1    7-00000024  I*2   ALIEN_ROW          110  (55) 0    6-00000000  CHAR  BARR               320  (4)0    7-00000112  I*2   BOMB_COL             8  (4)0    7-0000010A  I*2   BOMB_ROW             8  (4)      P SHIP                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 23 Q                                                                   1-APR-2003 20:3R& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                463              464+              465         SUBROUTINE ADVANCE,0              466 C       Advance the next alien.1              467         IMPLICIT INTEGER*2 (A-Z)L4              468         LOGICAL FLIP,FLOP,LEFT,SLOW*              469         CHARACTER*80 BARR,              470         COMMON/CHRS/BARR(4).              471         PARAMETER MAX_BOMBS=4D              472         COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAMEP              473         1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT.              474         2 ,FALLING_BOMBS,SLOWI              475         3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL Q              476         4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_C 
 OL(MAX_BOMBS)k6              477         5 ,SHIP_VAL,SHIP_COL,SHIP_VEL              478&              479 10      ALIEN=ALIEN+1/              480         IF (ALIEN .GT. 55)THENRQ              481                 IF (ALIENS_LEFT.EQ.0)   RETURN ! check if done ! /              482                 FLOP = .FALSE.8/              483                 IF (FLIP) THENI9              484                         LEFT = .NOT.LEFT.6              485                         FLOP = .TRUE..              486                         ENDIF/              487                 FLIP = .FALSE. *              488                 ALIEN = 1&              489                 ENDIF+              490         I=ALIEN_ROW(ALIEN) +              491         IF(I.LE.0)GO TO 102              492Q              493         IF (I.GE.23) CALL HALT          !Aliens have overrun bas  e.'              494         IF (LEFT) THEN D              495                 ALIEN_COL(ALIEN)=ALIEN_COL(ALIEN)-1              496         ELSE D              497                 ALIEN_COL(ALIEN)=ALIEN_COL(ALIEN)+1&              498                 ENDIF+              499         J=ALIEN_COL(ALIEN)O?              500         IF (J.EQ.0.OR.J.EQ.75)   FLIP = .TRUE. '              501         CALL MOVE(I,J) '              502         IF (FLOP) THEN /              503                 CALL DS_OBJ(6) D              504                 ALIEN_ROW(ALIEN)=ALIEN_ROW(ALIEN)+13              505                 I=ALIEN_ROW(ALIEN)D/              506                 CALL MOVE(I,J)V&              507                 ENDIFD              508         CALL DS_OBJ((ALIEN.AND.1)+2*((ALIEN-1)/22))              5090              510 C       Check for bomb release.P              511         IF ((GAME.EQ.1).OR.(GAME.EQ.2)) RETURN  !Disable bombs.Q              512         DO 50 I=ALIEN-11,0,-11  !Don't drop bombs on your own me  n.>              513                 IF (ALIEN_ROW(I).NE.0) RETURN)              514 50              CONTINUE Q              515         IF (ALIEN_COL(ALIEN).GE.BASE_COL.AND.ALIEN_COL(ALIEN).LT1 .BASE_COL+3IE              516         1.AND.ALIEN_ROW(ALIEN).LE.MAX_BOMB_ROW) THEN 4              517                 DO 60 I=1,MAX_BOMBS;              518                 IF (BOMB_ROW(I).EQ.0) THEN0G              519                         BOMB_ROW(I) = ALIEN_ROW(ALIEN)0            P ADVANCE                         Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 241Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  K              520                         BOMB_COL(I) = ALIEN_COL(ALIEN) + 22F              521                         FALLING_BOMBS=FALLING_BOMBS+1/              522                         RETURN .              523                         ENDIF)              524 60              CONTINUEO              525         ENDIF              526         RETURNe              527         END     PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   RG D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   RA D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   R  D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR  D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   RO D NOWRT OCTAQ    6 CHRS                                   320 NOPIC OVR REL GBL NOSHR NOEXE   RA D   WRT OCTAQ    7 DARTH                                  288 NOPIC OVR REL GBL NOSHR NOEXE   RT D   WRT OCTA  /      Total Space Allocated                16068      ENTRY POINTS     Address      Name       4-000021E0  ADVANCE    	 VARIABLES8  M   Address      Type  Name           Address      Type  Name           Address 
    Type  NameE    Q    7-00000018  I*2   ALIEN           7-00000106  I*2   BEAM_ROW        7-00000014s
    L*4   LEFT Q    7-0000001C  I*2   ALIENS_LEFT     7-00000008  I*2   DANGER          7-000000002    I*2   MAX_BOMB_ROWSQ    7-0000001A  I*2   B               7-0000001E  I*2   FALLING_BOMBS   7-0000000A     I*2   MAX_DANGER Q    7-00000004  I*2   BASES           7-0000000C  L*4   FLIP            7-00000002i    I*2   SCORES Q    7-00000102  I*2   BASE_COL        7-00000010  L*4   FLOP            7-0000011C     I*2   SHIP_COL Q    7-00000100  I*2   BASE_ROW        7-00000006  I*2   GAME            7-0000011A     I*2   SHIP_VAL Q    7-00000104  I*2   BASE_VEL            **      I*2   I               7-0000011Ee    I*2   SHIP_VEL2Q    7-00000108  I*2   BEAM_COL            **      I*2   J               7-00000020 
    L*4   SLOWB     ARRAYS  7   Address      Type  Name             Bytes  DimensionsL  1    7-00000092  I*2   ALIEN_COL          110  (55) 1    7-00000024  I*2   ALIEN_ROW          110  (55) 0    6-00000000  CHAR  BARR               320  (4)0    7-00000112  I*2   BOMB_COL             8  (4)0    7-0000010A  I*2   BOMB_ROW             8  (4)                                      P ADVANCE                         Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 25 Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   LABELS  <   Address      Label  Address      Label  Address      Label  9    4-00002230  10          **      50          **      600                            P ADVANCE                         Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 26 Q                                                                   1-APR-2003 20:3$& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                528              529(              530         SUBROUTINE HALT.              531 C       Game over processing.1              532         IMPLICIT INTEGER*2 (A-Z) 4              533         LOGICAL FLIP,FLOP,LEFT,SLOW*              534         CHARACTER*80 BARR,              535         COMMON/CHRS/BARR(4).              536         PARAMETER MAX_BOMBS=4D              537         COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAMEP              538         1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT.              539         2 ,FALLING_BOMBS,SLOWI              540         3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL Q              541         4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_CE
 OL(MAX_BOMBS)06              542         5 ,SHIP_VAL,SHIP_COL,SHIP_VEL              543C              544 C       Display the aliens if they were invisible. ,              545         IF (GAME.EQ.4) THENQ              546                 GAME = 3        !Remove the cloak of invisibiliti y.-              547                 DO 10 I=1,55F<              548                 IF (ALIEN_ROW(I).NE.0) THENM              549                         CALL MOVE(ALIEN_ROW(I),ALIEN_COL(I))SH              550                         CALL DS_OBJ((I.AND.1)+2*(I/22)).              551                         ENDIF)              552 10              CONTINUE &              553                 ENDIF              554%              555         DO 20 I=1,10 +              556 20      CALL SEND(CHAR(7)) J              557         CALL SLEEP('05.00')     !Use all five characters.6              558         CALL SPECIAL_GRAPHIC(.FALSE.)(              559         CALL MOVE(23,0)"              560         CALL EXIT              561         END              P HALT                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 27 Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1       PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   RH D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   R. D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   R  D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR_ D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   R  D NOWRT OCTAQ    6 CHRS                                   320 NOPIC OVR REL GBL NOSHR NOEXE   Rg D   WRT OCTAQ    7 DARTH                                  288 NOPIC OVR REL GBL NOSHR NOEXE   R  D   WRT OCTA  /      Total Space Allocated                160682     ENTRY POINTS     Address      NameR      4-00002780  HALTO    	 VARIABLES   M   Address      Type  Name           Address      Type  Name           Address 
    Type  Name     Q    7-00000018  I*2   ALIEN           7-00000106  I*2   BEAM_ROW        7-00000000     I*2   MAX_BOMB_ROW Q    7-0000001C  I*2   ALIENS_LEFT     7-00000008  I*2   DANGER          7-0000000A     I*2   MAX_DANGER Q    7-0000001A  I*2   B               7-0000001E  I*2   FALLING_BOMBS   7-00000002I    I*2   SCORESHQ    7-00000004  I*2   BASES           7-0000000C  L*4   FLIP            7-0000011CO    I*2   SHIP_COLXQ    7-00000102  I*2   BASE_COL        7-00000010  L*4   FLOP            7-0000011A     I*2   SHIP_VALeQ    7-00000100  I*2   BASE_ROW        7-00000006  I*2   GAME            7-0000011EO    I*2   SHIP_VEL Q    7-00000104  I*2   BASE_VEL            **      I*2   I               7-00000020 
    L*4   SLOWm;    7-00000108  I*2   BEAM_COL        7-00000014  L*4   LEFTT       ARRAYS  7   Address      Type  Name             Bytes  DimensionsN  1    7-00000092  I*2   ALIEN_COL          110  (55)01    7-00000024  I*2   ALIEN_ROW          110  (55)X0    6-00000000  CHAR  BARR               320  (4)0    7-00000112  I*2   BOMB_COL             8  (4)0    7-0000010A  I*2   BOMB_ROW             8  (4)                                                      P HALT                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 28BQ                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   LABELS  (   Address      Label  Address      Label  %    4-0000288C  10          **      20                             P HALT                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 29sQ                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                562              563;              564         SUBROUTINE SPECIAL_GRAPHIC(ON_OFF)2'              565         LOGICAL ON_OFF0!              566         BYTE TYP(0              567         INTEGER*4 FLAG,RET_STAT              568=              569         RET_STAT=LIB$SCREEN_INFO(FLAG,TYP,,) Q              570         IF(ON_OFF)THEN                  !Turn on special graphic0 s mode. M              571                 IF(TYP.EQ.64)THEN       !We're in VT52 mode. A              572                         CALL SEND(CHAR(27)//'F') Q              573                 ELSE IF(TYP.EQ.96.OR.TYP.EQ.110)THEN    !We're i  n VT100/200 mode.E.              574                         TYPE*Q              575                         TYPE*,'I run faster in VT52 mode.  To se  t, type'Q              576                         TYPE*,'SET TERM/VT52    (and that''s all  )'P              577                         TYPE*,'from DCL level.  Otherwise, wait
 a moment.'.              578                         TYPE*Q              579                         CALL SLEEP('10.00')     !Use all five ch(	 aracters.WB              580                         CALL SEND(CHAR(27)//'(0')Q              581                 ELSE                    !We're on an unknown terI minal.B              582                         TYPE*,'Terminal type',TYPQ              583                         STOP'I only know how to address VT100''sA   and VT52''s.' .              584                         ENDIFN              585         ELSE                            !Reset to ASCII mode.I              586                 IF(TYP.EQ.64)THEN       !Reset the VT52.CA              587                         CALL SEND(CHAR(27)//'G') J              588                 ELSE                    !Reset the VT100.B              589                         CALL SEND(CHAR(27)//'(B').              590                         ENDIF&              591                 ENDIF              592         RETURNA              593         END      P SPECIAL_GRAPHIC                 Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 30 Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1       PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   R  D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   R  D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   RC D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR  D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   R  D NOWRT OCTA  /      Total Space Allocated                15460e     ENTRY POINTS     Address      NameC      4-000029D0  SPECIAL_GRAPHIC    	 VARIABLES   Q   Address      Type  Name      Address      Type  Name      Address      Type  NaI me      Address      Type  Name8    Q    1-00000034  I*4   FLAG           **      L*4   ON_OFF     1-00000030  I*4   RE  T_STAT   1-00000028  I*1   TYP                P SPECIAL_GRAPHIC                 Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 31 Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                594              5951              596         SUBROUTINE MOVE(ROW,COL) 4              597 C       Position cursor to ROW,COL.M              598 C       Row 0 is top of screen.  Row 23 is bottom-of-screen. H              599 C       The leftmost column is 0.  The rightmost is 79.*              600         INTEGER*2 ROW,COLG              601         IDUMMY=SCR$SET_CURSOR(%VAL(ROW+1),%VAL(COL+1))O              602         RETURNQ              603         END     PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   R  D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   R  D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   RE D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR6 D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   R  D NOWRT OCTA  /      Total Space Allocated                15460      ENTRY POINTS     Address      Namec      4-00002D40  MOVE.    	 VARIABLES3  O   Address      Type  Name    Address      Type  Name    Address      Type  Name   N        **      I*2   COL      1-00000000  I*4   IDUMMY       **      I*2   ROW                                                  P MOVE                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 32OQ                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                604              605              606)              607         SUBROUTINE CLEARy&              608 C       Clear screen.              609         I=1.              610         I=LIB$ERASE_PAGE(I,I)              611         RETURN               612         END     PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   Rh D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   RC D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   R  D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR  D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   R1 D NOWRT OCTA  /      Total Space Allocated                15460      ENTRY POINTS     Address      Name       4-00002E00  CLEAR    	 VARIABLES_     Address      Type  NameP      0-00000008  I*4   I    P CLEAR                           Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 33EQ                                                                   1-APR-2003 20:38& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                613              6141              615         SUBROUTINE DS_OBJ(CLASS) Q              616 C       Display object of type CLASS at current screen position.C1              617         IMPLICIT INTEGER*2 (A-Z) 4              618         LOGICAL FLIP,FLOP,LEFT,SLOW*              619         CHARACTER*80 BARR,              620         COMMON/CHRS/BARR(4).              621         PARAMETER MAX_BOMBS=4D              622         COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAMEP              623         1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT.              624         2 ,FALLING_BOMBS,SLOWI              625         3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COLNQ              626         4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_C0
 OL(MAX_BOMBS)B6              627         5 ,SHIP_VAL,SHIP_COL,SHIP_VEL&              628         INTEGER CLASSQ              629         IF ((GAME.EQ.4).AND.(CLASS.GE.0).AND.(CLASS.LE.5))   CLAB SS = 67              630         GO TO (1,2,3,4,5,6,7,8)CLASS+1I+              631 1       CALL SEND(' -`- ')               632         RETURN +              633 2       CALL SEND(' <`> ')0              634         RETURN0+              635 3       CALL SEND(' >`< ')I              636         RETURN2+              637 4       CALL SEND(' ``` ')               638         RETURN_+              639 5       CALL SEND(' >a< ')               640         RETURN0+              641 6       CALL SEND(' <x> ')               642         RETURN +              643 7       CALL SEND('     ')N              644         RETURNC-              645 8       CALL SEND(' lwnwk ')               646         RETURNN              647         END            P DS_OBJ                          Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 34)Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1       PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   R] D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   R0 D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   R  D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR  D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   R1 D NOWRT OCTAQ    6 CHRS                                   320 NOPIC OVR REL GBL NOSHR NOEXE   R8 D   WRT OCTAQ    7 DARTH                                  288 NOPIC OVR REL GBL NOSHR NOEXE   R  D   WRT OCTA  /      Total Space Allocated                16068      ENTRY POINTS     Address      Name2      4-00002E50  DS_OBJ(    	 VARIABLES   M   Address      Type  Name           Address      Type  Name           AddressB
    Type  NameE    Q    7-00000018  I*2   ALIEN           7-00000106  I*2   BEAM_ROW        7-00000000T    I*2   MAX_BOMB_ROW Q    7-0000001C  I*2   ALIENS_LEFT         **      I*4   CLASS           7-0000000AA    I*2   MAX_DANGER Q    7-0000001A  I*2   B               7-00000008  I*2   DANGER          7-00000002M    I*2   SCORES Q    7-00000004  I*2   BASES           7-0000001E  I*2   FALLING_BOMBS   7-0000011C1    I*2   SHIP_COLGQ    7-00000102  I*2   BASE_COL        7-0000000C  L*4   FLIP            7-0000011A     I*2   SHIP_VAL1Q    7-00000100  I*2   BASE_ROW        7-00000010  L*4   FLOP            7-0000011E     I*2   SHIP_VELAQ    7-00000104  I*2   BASE_VEL        7-00000006  I*2   GAME            7-00000020B
    L*4   SLOW ;    7-00000108  I*2   BEAM_COL        7-00000014  L*4   LEFT        ARRAYS  7   Address      Type  Name             Bytes  Dimensions3  1    7-00000092  I*2   ALIEN_COL          110  (55) 1    7-00000024  I*2   ALIEN_ROW          110  (55) 0    6-00000000  CHAR  BARR               320  (4)0    7-00000112  I*2   BOMB_COL             8  (4)0    7-0000010A  I*2   BOMB_ROW             8  (4)                                                      P DS_OBJ                          Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 35 Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   LABELS  P   Address      Label  Address      Label  Address      Label  Address      Label  L        **      1           **      3           **      5           **      7L        **      2           **      4           **      6           **      8                          P DS_OBJ                          Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 36 Q                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                648              649/              650         SUBROUTINE SEND(CHARS)cE              651 C       Type CHARS to screen with no <CR> or <LF>'s.(,              652         CHARACTER*(*) CHARS$              653         INTEGER*2 I              654%              655         TYPE 1,CHARS((              656 1       FORMAT('+',A,$)              657         RETURNM              658*              659         ENTRY SEND_INT(I)!              660         TYPE 2,I )              661 2       FORMAT('+',I4,$)               662         RETURN6              663         END     PROGRAM SECTIONS  <      Name                                 Bytes   Attributes  Q    1 $BSS$                                  144 NOPIC CON REL LCL NOSHR NOEXE   R  D   WRT OCTAQ    2 $DATA$                                 384 NOPIC CON REL LCL NOSHR NOEXE   R  D   WRT OCTAQ    3 $LITERAL$                              847   PIC CON REL LCL   SHR NOEXE   R  D NOWRT OCTAQ    4 $CODE$                               12496   PIC CON REL LCL   SHR   EXE NOR  D NOWRT OCTAQ    5 $LINK$                                1589 NOPIC CON REL LCL NOSHR NOEXE   RF D NOWRT OCTA  /      Total Space Allocated                15460      ENTRY POINTS  *   Address      Name      Address      Name  .    4-00002F60  SEND       4-00002FF0  SEND_INT    	 VARIABLES   3   Address      Type  Name   Address      Type  Namem  0        **      CHAR  CHARS       **      I*2   I                                      P SEND                            Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 37OQ                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1                664              665 COMMAND QUALIFIERS  Q    /ALIGNMENT=(COMMONS=(NONATURAL,PACKED,NOSTANDARD,NOMULTILANGUAGE),RECORDS=NATU  RAL,NOSEQUENCE)EQ    /ANNOTATIONS=(NOCODE,NODETAIL,NOFEEDBACK,NOINLINING,NOLOOP_TRANSFORMS,NOLOOP_U2( NROLLING,NOPREFETCHING,NOSHRINKWRAPPING,@             NOSOFTWARE_PIPELINING,NOTAIL_CALLS,NOTAIL_RECURSION)    /ARCHITECTURE=GENERICQ    /ASSUME=(ACCURACY_SENSITIVE,ALTPARAM,NOBUFFERED_IO,NOBYTERECL,NODUMMY_ALIASES,S& NOFP_CONSTANT,NOINT_CONSTANT,NOMINUS0,<             PROTECT_CONSTANTS,NOSOURCE_INCLUDE,NOUNDERSCORE)    /NOAUTOMATICp    /NOBY_REF_CALLd    /CCDEFAULT=DEFAULT Q    /CHECK=(NOARG_TEMP_CREATED,NOBOUNDS,FORMAT,NOFP_EXCEPTIONS,OUTPUT_CONVERSION,N0 OOVERFLOW,POWER,NOUNDERFLOW)    /CONVERT=NATIVE    /DEBUG=(NOSYMBOLS,TRACEBACK)N    /NODEFINE    /DOUBLE_SIZE=64
    /NOD_LINES0    /ERROR_LIMIT=30    /NOEXTEND_SOURCE     /F77L
    /NOFAST    /FLOAT=G_FLOAT2    /GRANULARITY=QUADWORD    /IEEE_MODE=FAST    /INTEGER_SIZE=32     /NOMACHINE_CODE    /MATH_LIBRARY=ACCURATEE    /NOMODULE    /NAMES=UPPERCASE J    /OPTIMIZE=(INLINE=SPEED,LEVEL=4,NOLOOPS,PIPELINE,TUNE=GENERIC,UNROLL=0)    /NOPAD_SOURCE    /REAL_SIZE=32    /NORECURSIVE     /REENTRANCY=NONEA    /ROUNDING_MODE=NEAREST0    /NOSEPARATE_COMPILATION    /SEVERITY=(WARNING=WARNING)    /SHOW=(NOINCLUDE,MAP)    /SOURCE_FORM=FIXEDM    /STANDARD=NONE     /NOSYNCHRONOUS_EXCEPTIONS    /NOSYNTAX_ONLYy	    /NOTIEi    /VMS Q    /WARNINGS=(ALIGNMENT,NOARGUMENT_CHECKING,NODECLARATIONS,GENERAL,GRANULARITY,NO ' IGNORE_LOC,NOTRUNCATED_SOURCE,UNCALLED,R)             UNINITIALIZED,NOUNUSED,USAGE)2      /NOANALYSIS_DATA     /NODIAGNOSTICS0    /INCLUDE=FORT$INCLUDE: )    /LIST=SYS$SYSROOT:[SYSMGR]SPCINV.LIS;6 ,    /OBJECT=SYS$SYSROOT:[SYSMGR]SPCINV.OBJ;29
    /NOLIBRARY   ) COMPILER: Compaq Fortran V7.4A-1588-46B4Kr          P INVADERS                        Source Listing                   1-APR-2003 20:3/ 5:16  Compaq Fortran V7.4A-1588         Page 38GQ                                                                   1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   COMPILATION STATISTICS  "    CPU time:          2.10 seconds"    Elapsed time:      4.82 seconds    Pagefaults:        4597    I/O Count:           45 DTL02>   ------------------------------  % Date: Tue, 01 Apr 2003 11:58:56 -0800 " From: Brad Hughes <brad@tgsmc.com>4 Subject: Re: Fortran Gurus requested (part II): .LIS( Message-ID: <3E89EF80.5090706@tgsmc.com>   Didier Morandi wrote:  [...]IF >              44         CALL SLEEP('04.00')     !Pause a few seconds    Does SLEEP really take a string?   brad   ------------------------------   Date: 1 Apr 2003 14:27:20 -06005 From: briggs@encompasserve.org4 Subject: Re: Fortran Gurus requested (part II): .LIS3 Message-ID: <PUL9Yd0EXgcK@eisner.encompasserve.org>X  M In article <3E89EF80.5090706@tgsmc.com>, Brad Hughes <brad@tgsmc.com> writes:O > Didier Morandi wrote:9 > [...]3G >>              44         CALL SLEEP('04.00')     !Pause a few seconds  > " > Does SLEEP really take a string?     Judge for yourself.X  $ >> 132         SUBROUTINE SLEEP(TAG)H >> 133 C       Set timer and wait for TAG seconds.  TAG is a CHARACTER*5	 >> string F >> 134 C       of the form ##.##, which is the seconds, and hundredths/ >> of seconds.                                 .A >> 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         E+ >> 139         CHARACTER DELTA_TIME*9,TAG*5   > Looks to me like it takes a 5 character string as a parameter.  A Last I knew, the Fortran subroutine prologue would go through the @ character string parameters and harvest string addresses and (ifC declared as *(*) ), string lengths.  It would use these to populate . local statically allocated string information.  : If you declare a formal parameter as character and pass an; actual parameter as missing (zero by value) you can blow up : the Fortran prologue with an access violation.  That's not happening here though.  I If the string '04:00' is somehow passed by reference, this results in the B harvesting of '04' for string length and '0<3 bytes of filler>' as> the string address.  No problem for the Fortran prologue.  BigC problem for the first routine called with a descriptor created from  that bogus information.0   	John Briggs   ------------------------------  % Date: Tue, 01 Apr 2003 13:54:22 -0800 " From: Brad Hughes <brad@tgsmc.com>4 Subject: Re: Fortran Gurus requested (part II): .LIS( Message-ID: <3E8A0A8E.4080203@tgsmc.com>   briggs@encompasserve.org wrote:CO > In article <3E89EF80.5090706@tgsmc.com>, Brad Hughes <brad@tgsmc.com> writes:  >  >>Didier Morandi wrote:  >>[...]2 >>G >>>             44         CALL SLEEP('04.00')     !Pause a few secondsO >>" >>Does SLEEP really take a string? >  >  >  > Judge for yourself..  G Ah, so it do...  Serves me right for doing all this Perl programming...  Perl's sleep takes a real.   brad   ------------------------------   Date: 1 Apr 2003 14:05:09 -0800 $ From: rcbryan@hotmail.com (RC Bryan)4 Subject: Re: Fortran Gurus requested (part II): .LIS= Message-ID: <fbcf38dc.0304011405.1337c777@posting.google.com>   D I am too lazy to go and install the Fortran compiler on my box but I! would suggest that you switch the    DOUBLE PRECISION TIMEe  C reference in the SLEEP routine to an INTEGER*8 or INTEGER*4 TIME(2)1  D Things are strange when you mix floating and nonfloating data in the same memory location.0   The error message: DBG> goSE %SYSTEM-F-HPARITH, high performance arithmetic trap, Imask=00000000,  < Fmask=00000001, summary=02, PC=0000000000032C18, PS=0000001BB -SYSTEM-F-FLTINV, floating invalid operation, PC=0000000000032C18, PS=0000001BAA break on unhandled exception preceding INVADERS\MOVE\%LINE 601+48   E Is what leads me to this conclusion (that plus endless headaches in C ( trying to floating point values in Hex.)  C The way it is written, it is not -supposed- to actually look at theHB value returned by the sys$bintim as a floating point number but...  
 Check it out.  Regards,	 /RC Bryan    ------------------------------  % Date: Tue, 01 Apr 2003 20:43:51 +0200 4 From: Didier Morandi <Didier.Morandi.nospam@Free.fr>4 Subject: Re: Fortran Gurus requested (part II): .MAP$ Message-ID: <3E89DDE6.90308@Free.fr>   DTL02> ty spcinv.map  Q                                                                   1-APR-2003 20:3 3 5        Linker A12-03                    Page    1   H                                               +------------------------+H                                               ! Object Module Synopsis !H                                               +------------------------+  2 Module Name     Ident              Bytes      File    Creation Date      Creator73 -----------     -----              -----      -----     -------------      -------SK INVADERS                            16068 SYS$SYSROOT:[SYSMGR]SPCINV.OBJ;29 + 1-APR-2003 20:35  Compaq Fortran V7.4A-15880  I                                              +--------------------------+2I                                              ! Program Section Synopsis !SI                                              +--------------------------+   P Psect Name      Module Name       Base     End           Length            Align                   AttributesP ----------      -----------       ----     ---           ------            -----                   ----------N $LINK$                          00010000 00010634 00000635 (       1589.) OCTA1 4 NOPIC,CON,REL,LCL,NOSHR,NOEXE,NOWRT,NOVEC,  MOD O                  INVADERS        00010000 00010634 00000635 (       1589.) OCTA  4 N $LITERAL$                       00010640 0001098E 0000034F (        847.) OCTA1 4   PIC,CON,REL,LCL,  SHR,NOEXE,NOWRT,NOVEC,  MOD8O                  INVADERS        00010640 0001098E 0000034F (        847.) OCTA  4 N $DATA$                          00020000 0002017F 00000180 (        384.) OCTA1 4 NOPIC,CON,REL,LCL,NOSHR,NOEXE,  WRT,NOVEC,  MOD O                  INVADERS        00020000 0002017F 00000180 (        384.) OCTA  4IN DARTH                           00020180 0002029F 00000120 (        288.) OCTA1 4 NOPIC,OVR,REL,GBL,NOSHR,NOEXE,  WRT,NOVEC,  MOD O                  INVADERS        00020180 0002029F 00000120 (        288.) OCTAS 4 N $CODE$                          00030000 000330CF 000030D0 (      12496.) OCTA1 4   PIC,CON,REL,LCL,  SHR,  EXE,NOWRT,NOVEC,  MODAO                  INVADERS        00030000 000330CF 000030D0 (      12496.) OCTA4 4 N $BSS$                           00040000 0004008F 00000090 (        144.) OCTA1 4 NOPIC,CON,REL,LCL,NOSHR,NOEXE,  WRT,NOVEC,NOMOD)O                  INVADERS        00040000 0004008F 00000090 (        144.) OCTA  4 N CHRS                            00040090 000401CF 00000140 (        320.) OCTA1 4 NOPIC,OVR,REL,GBL,NOSHR,NOEXE,  WRT,NOVEC,NOMOD O                  INVADERS        00040090 000401CF 00000140 (        320.) OCTA  4   D                                                  +-----------------+D                                                  ! Symbols By Name !D                                                  +-----------------+  L Symbol          Value              Symbol          Value              Symbol/        Value              Symbol          Value4L ------          -----              ------          -----              ------/        -----              ------          -----  ADVANCE         00010300-R BASE            00010408-R BEAM            00010430-R BOMB            000103A8-R CLEAR           00010548-R COMMAND         00010518-R DS_OBJ          00010098-R HALT            000102A0-R INCHAR          000104A0-R INVADERS        000105C0-R MOVE            00010108-R SEND            00010000-R SEND_INT        00010030-R SHIP            00010328-R SLEEP           00010140-R SPECIAL_GRAPHIC 00010230-R TABLEAU         00010580-R                                        P SYS$SYSROOT:[SYSMGR]SPCINV.EXE;23                                1-APR-2003 20:33 5        Linker A12-03                    Page    2_    L Symbol          Value              Symbol          Value              Symbol/        Value              Symbol          Value5L ------          -----              ------          -----              ------/        -----              ------          -----5        ,            Key for special characters above:'                  +--------------------+T'                  ! *  - Undefined     ! '                  ! A  - Alias Name    !b'                  ! I  - Internal Name !3'                  ! U  - Universal     !E'                  ! R  - Relocatable   !N'                  ! X  - External      !N'                  ! WK - Weak          !E'                  +--------------------+     P SYS$SYSROOT:[SYSMGR]SPCINV.EXE;23                                1-APR-2003 20:33 5        Linker A12-03                    Page    3I  D                                                   +----------------+D                                                   ! Image Synopsis !D                                                   +----------------+  P Virtual memory allocated:                         00010000 0005FFFF 00050000 (32 7680. bytes, 640. pages)A Stack size:                                             20. pages P Image header virtual block limits:                       1.        2. (    2. bl ocks) P Image binary virtual block limits:                       3.       36. (   34. bl ocks) 8 Image name and identification:                    SPCINV; Number of files:                                         7.E; Number of modules:                                       7. ; Number of program sections:                             14. ; Number of global symbols:                              355. ; Number of image sections:                               26.R: User transfer address:                            000105C0: Debugger transfer address:                        00000340; Number of code references to shareable images:          20.X= Image type:                                       EXECUTABLE. P Map format:                                       DEFAULT in file SYS$SYSROOT:[S YSMGR]SPCINV.MAP;2< Estimated map length:                             44. blocksF                                                +---------------------+F                                                ! Link Run Statistics !F                                                +---------------------+  H Performance Indicators                            Page Faults   CPU Time Elapsed TimeH ----------------------                            -----------   -------- ------------L      Command processing:                                    33   00:00:00.01 00:00:00.02OL      Pass 1:                                               119   00:00:00.06 00:00:00.53 L      Allocation/Relocation:                                  8   00:00:00.00 00:00:00.077L      Pass 2:                                                20   00:00:00.06 00:00:00.19SL      Map data after object module synopsis:                  4   00:00:00.00 00:00:00.00 L      Symbol table output:                                    0   00:00:00.00 00:00:00.04 K Total run values:                                         184   00:00:00.131 00:00:00.87S  P Using a working set limited to 6032 pages and 2469 pages of data storage (exclud
 ing image)  5 Total number object records read (both passes):   479 Q      of which 65 were in libraries and 126 were DEBUG data records containing 684  41 bytesP 5265 bytes of DEBUG data were written,starting at VBN 37 with 11 blocks allocate d(  6 Number of modules extracted explicitly             = 02      with 2 extracted to resolve undefined symbols  ? 7 library searches were for symbols not in the library searched   4 A total of 0 global symbol table records was written   LINK/MAP SPCINV    ------------------------------  % Date: Tue, 01 Apr 2003 20:53:24 +0200:4 From: Didier Morandi <Didier.Morandi.nospam@Free.fr>4 Subject: Re: Fortran Gurus requested (part II): .MAR& Message-ID: <3E89E024.9060206@Free.fr>    DTL02> for spcinv/mach/noop/list DTL02> ty spcinv.lis ../.. P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 38 Q                                                                   1-APR-2003 20:3q& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  - .PSECT$CODE$, OCTA, PIC, CON, REL, LCL, SHR,-  EXE, NORD, NOWRT       0000INVADERS::  23DEFF40     0000LDASP, -192(SP)! B7FE0008     0004STQR31, var$0001  ; R31, 8(SP) B77E0000     0008STQR27, (SP)   B75E0090     000CSTQR26, 144(SP) B45E0098     0010STQR2, 152(SP)  B47E00A0     0014STQR3, 160(SP)  B49E00A8     0018STQR4, 168(SP)L B7BE00B0     001CSTQFP, 176(SP)  63FF0000     0020TRAPB 47FE041D     0024MOVSP, FP 47FB0402     0028MOVR27, R2   2202FFD8     002CLDAR16, -40(R2) 47E03419     0030MOV1, R25 A7420060     0034LDQR26, 96(R2)A  A7620068     0038LDQR27, 104(R2) 2FFE0000     003CUNOPL, 6B5A4000     0040JSRR26, DFOR$SET_REENTRANCY
 ; R26, R26 47FF0419     0044CLRR25 
      ; 000026   A7620070     0048LDQR27, 112(R2) D3400CD3     004CBSRR26, CLEAR  22020078     0050LDAR16, 120(R2)
      ; 000027M  2222FFD0     0054LDAR17, -48(R2) 47E05419     0058MOV2, R25  A762FFE0     005CLDQR27, -32(R2) D3400C9D     0060BSRR26, MOVE  A402FFF8     0064LDQR0, -8(R2)
      ; 000028v 200001C8     0068LDAR0, 456(R0) ! B3FD0008     006CSTLR31, var$00015 ; R31, 8(FP) 22620040     0070LDAR19, 64(R2)c 47E4D410     0074MOV38, R16   B61D0080     0078STQR16, 128(FP) B41D0088     007CSTQR0, 136(FP) ! 221D0008     0080LDAR16, var$0001N ; R16, 8(FP) 223FFFFE     0084MOV-2, R17C  265F0005     0088LDAHR18, 5(R31)" 2252FF80     008CLDAR18, -128(R18)  229D0080     0090LDAR20, 128(FP) 47E0B419     0094MOV5, R25 A7420030     0098LDQR26, 48(R2)  A7620038     009CLDQR27, 56(R2)U+ 6B5A4000     00A0JSRR26, DFOR$WRITE_SEQ_LIS 
 ; R26, R26! B3FD0008     00A4STLR31, var$0001I ; R31, 8(FP)    ; 000029  2262FFF0     00A8LDAR19, -16(R2)! 221D0008     00ACLDAR16, var$00010 ; R16, 8(FP) 223FFFFE     00B0MOV-2, R17   265F0005     00B4LDAHR18, 5(R31)" 2252FF80     00B8LDAR18, -128(R18) 47FF0414     00BCCLRR20  47E0B419     00C0MOV5, R25 A7420030     00C4LDQR26, 48(R2)  A7620038     00C8LDQR27, 56(R2)  2FFE0000     00CCUNOP + 6B5A4000     00D0JSRR26, DFOR$WRITE_SEQ_LISq
 ; R26, R26 A402FFF8     00D4LDQR0, -8(R2)
      ; 000030                                     P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 39 Q                                  INVADERS                         1-APR-2003 20:3E& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   20000190     00D8LDAR0, 400(R0) ! B3FD0008     00DCSTLR31, var$0001O ; R31, 8(FP) 22620040     00E0LDAR19, 64(R2)  47E67410     00E4MOV51, R16   B61D0080     00E8STQR16, 128(FP) B41D0088     00ECSTQR0, 136(FP) ! 221D0008     00F0LDAR16, var$0001E ; R16, 8(FP) 223FFFFE     00F4MOV-2, R17$  265F0005     00F8LDAHR18, 5(R31)" 2252FF80     00FCLDAR18, -128(R18)  229D0080     0100LDAR20, 128(FP) 47E0B419     0104MOV5, R25 A7420030     0108LDQR26, 48(R2)O A7620038     010CLDQR27, 56(R2)H+ 6B5A4000     0110JSRR26, DFOR$WRITE_SEQ_LISV
 ; R26, R26 A402FFF8     0114LDQR0, -8(R2)
      ; 000031e 20000160     0118LDAR0, 352(R0) ! B3FD0008     011CSTLR31, var$0001N ; R31, 8(FP) 22620040     0120LDAR19, 64(R2)  47E5D410     0124MOV46, R16   B61D0080     0128STQR16, 128(FP) B41D0088     012CSTQR0, 136(FP) ! 221D0008     0130LDAR16, var$0001  ; R16, 8(FP) 223FFFFE     0134MOV-2, R170  265F0005     0138LDAHR18, 5(R31)" 2252FF80     013CLDAR18, -128(R18)  229D0080     0140LDAR20, 128(FP) 47E0B419     0144MOV5, R25 A7420030     0148LDQR26, 48(R2)  A7620038     014CLDQR27, 56(R2)B+ 6B5A4000     0150JSRR26, DFOR$WRITE_SEQ_LIS0
 ; R26, R26 A402FFF8     0154LDQR0, -8(R2)
      ; 000032  20000128     0158LDAR0, 296(R0)X! B3FD0008     015CSTLR31, var$0001  ; R31, 8(FP) 22620040     0160LDAR19, 64(R2)  47E69410     0164MOV52, R160  B61D0070     0168STQR16, 112(FP) B41D0078     016CSTQR0, 120(FP)0! 221D0008     0170LDAR16, var$00010 ; R16, 8(FP) 223FFFFE     0174MOV-2, R172  265F0005     0178LDAHR18, 5(R31)" 2252FF80     017CLDAR18, -128(R18)  229D0070     0180LDAR20, 112(FP) 47E0B419     0184MOV5, R25 A7420030     0188LDQR26, 48(R2)y A7620038     018CLDQR27, 56(R2) + 6B5A4000     0190JSRR26, DFOR$WRITE_SEQ_LIS0
 ; R26, R26 A402FFF8     0194LDQR0, -8(R2)
      ; 000033C 200000F8     0198LDAR0, 248(R0) ! B3FD0008     019CSTLR31, var$0001  ; R31, 8(FP) 22620040     01A0LDAR19, 64(R2)  47E59410     01A4MOV44, R16   B61D0070     01A8STQR16, 112(FP) B41D0078     01ACSTQR0, 120(FP) ! 221D0008     01B0LDAR16, var$0001  ; R16, 8(FP) 223FFFFE     01B4MOV-2, R17A  265F0005     01B8LDAHR18, 5(R31)                                        P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 40 Q                                  INVADERS                         1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  " 2252FF80     01BCLDAR18, -128(R18)  229D0070     01C0LDAR20, 112(FP) 47E0B419     01C4MOV5, R25 A7420030     01C8LDQR26, 48(R2)  A7620038     01CCLDQR27, 56(R2)$+ 6B5A4000     01D0JSRR26, DFOR$WRITE_SEQ_LIS5
 ; R26, R26 A402FFF8     01D4LDQR0, -8(R2)
      ; 000034P 200000D8     01D8LDAR0, 216(R0) ! B3FD0008     01DCSTLR31, var$0001  ; R31, 8(FP) 22620040     01E0LDAR19, 64(R2)7 47E3F410     01E4MOV31, R16T  B61D0070     01E8STQR16, 112(FP) B41D0078     01ECSTQR0, 120(FP)I! 221D0008     01F0LDAR16, var$0001  ; R16, 8(FP) 223FFFFE     01F4MOV-2, R17n  265F0005     01F8LDAHR18, 5(R31)" 2252FF80     01FCLDAR18, -128(R18)  229D0070     0200LDAR20, 112(FP) 47E0B419     0204MOV5, R25 A7420030     0208LDQR26, 48(R2)A A7620038     020CLDQR27, 56(R2) + 6B5A4000     0210JSRR26, DFOR$WRITE_SEQ_LIST
 ; R26, R26! B3FD0008     0214STLR31, var$0001  ; R31, 8(FP)    ; 000035  2262FFF0     0218LDAR19, -16(R2)! 221D0008     021CLDAR16, var$0001t ; R16, 8(FP) 223FFFFE     0220MOV-2, R17   265F0005     0224LDAHR18, 5(R31)" 2252FF80     0228LDAR18, -128(R18) 47FF0414     022CCLRR207 47E0B419     0230MOV5, R25 A7420030     0234LDQR26, 48(R2)a A7620038     0238LDQR27, 56(R2)  2FFE0000     023CUNOPT+ 6B5A4000     0240JSRR26, DFOR$WRITE_SEQ_LIS 
 ; R26, R26 A402FFF8     0244LDQR0, -8(R2)
      ; 000036  200000A8     0248LDAR0, 168(R0) ! B3FD0008     024CSTLR31, var$0001  ; R31, 8(FP) 22620040     0250LDAR19, 64(R2)  47E53410     0254MOV41, R16   B61D0070     0258STQR16, 112(FP) B41D0078     025CSTQR0, 120(FP)p! 221D0008     0260LDAR16, var$0001  ; R16, 8(FP) 223FFFFE     0264MOV-2, R17s  265F0005     0268LDAHR18, 5(R31)" 2252FF80     026CLDAR18, -128(R18)  229D0070     0270LDAR20, 112(FP) 47E0B419     0274MOV5, R25 A7420030     0278LDQR26, 48(R2)  A7620038     027CLDQR27, 56(R2)Q+ 6B5A4000     0280JSRR26, DFOR$WRITE_SEQ_LIS 
 ; R26, R26 A402FFF8     0284LDQR0, -8(R2)
      ; 000037  20000070     0288LDAR0, 112(R0) ! B3FD0008     028CSTLR31, var$0001. ; R31, 8(FP) 22620040     0290LDAR19, 64(R2)  47E61410     0294MOV48, R16   B61D0070     0298STQR16, 112(FP) B41D0078     029CSTQR0, 120(FP)                                         P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 41oQ                                  INVADERS                         1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! 221D0008     02A0LDAR16, var$0001R ; R16, 8(FP) 223FFFFE     02A4MOV-2, R17   265F0005     02A8LDAHR18, 5(R31)" 2252FF80     02ACLDAR18, -128(R18)  229D0070     02B0LDAR20, 112(FP) 47E0B419     02B4MOV5, R25 A7420030     02B8LDQR26, 48(R2)  A7620038     02BCLDQR27, 56(R2)I+ 6B5A4000     02C0JSRR26, DFOR$WRITE_SEQ_LIS 
 ; R26, R26 A402FFF8     02C4LDQR0, -8(R2)
      ; 000038E 20000038     02C8LDAR0, 56(R0)! B3FD0008     02CCSTLR31, var$0001  ; R31, 8(FP) 22620040     02D0LDAR19, 64(R2)  47E6D410     02D4MOV54, R16K  B61D0070     02D8STQR16, 112(FP) B41D0078     02DCSTQR0, 120(FP) ! 221D0008     02E0LDAR16, var$0001a ; R16, 8(FP) 223FFFFE     02E4MOV-2, R17R  265F0005     02E8LDAHR18, 5(R31)" 2252FF80     02ECLDAR18, -128(R18)  229D0070     02F0LDAR20, 112(FP) 47E0B419     02F4MOV5, R25 A7420030     02F8LDQR26, 48(R2)N A7620038     02FCLDQR27, 56(R2)m+ 6B5A4000     0300JSRR26, DFOR$WRITE_SEQ_LIS*
 ; R26, R26 A402FFF8     0304LDQR0, -8(R2)
      ; 0000390! B3FD0008     0308STLR31, var$0001P ; R31, 8(FP) 22620040     030CLDAR19, 64(R2)  47E6F410     0310MOV55, R163  B61D0070     0314STQR16, 112(FP) B41D0078     0318STQR0, 120(FP) ! 221D0008     031CLDAR16, var$0001  ; R16, 8(FP) 223FFFFE     0320MOV-2, R17Y  265F0005     0324LDAHR18, 5(R31)" 2252FF80     0328LDAR18, -128(R18)  229D0070     032CLDAR20, 112(FP) 47E0B419     0330MOV5, R25 A7420030     0334LDQR26, 48(R2), A7620038     0338LDQR27, 56(R2)w 2FFE0000     033CUNOPo+ 6B5A4000     0340JSRR26, DFOR$WRITE_SEQ_LISC
 ; R26, R26! B3FD0008     0344STLR31, var$0001  ; R31, 8(FP)    ; 000040 22620050     0348LDAR19, 80(R2)  A422FFE8     034CLDQR1, -24(R2)U  20210000     0350LDAR1, var$0104
 ; R1, (R1) B43D0080     0354STQR1, 128(FP)6! 221D0008     0358LDAR16, var$0001S ; R16, 8(FP) 223FFFFD     035CMOV-3, R17   265F0005     0360LDAHR18, 5(R31)" 2252FF80     0364LDAR18, -128(R18)  229D0080     0368LDAR20, 128(FP) 47E0B419     036CMOV5, R25  A74200A0     0370LDQR26, 160(R2)  A76200A8     0374LDQR27, 168(R2)* 6B5A4000     0378JSRR26, DFOR$READ_SEQ_LIS
 ; R26, R26  2202FFB0     037CLDAR16, -80(R2)
      ; 000042  47E03419     0380MOV1, R25                                      P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 42OQ                                  INVADERS                         1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    A762FFA8     0384LDQR27, -88(R2)( D3400AEC     0388BSRR26, SPECIAL_GRAPHIC       038Clab$0060:m
      ; 000043  47FF0419     038CCLRR250  A762FFA0     0390LDQR27, -96(R2)  D3400023     0394BSRR26, TABLEAU  220200B0     0398LDAR16, 176(R2)
      ; 000044  47E03419     039CMOV1, R25  A7620090     03A0LDQR27, 144(R2) D3400185     03A4BSRR26, SLEEP       03A8lab$0072: 
      ; 000045  47FF0419     03A8CLRR25   A7620080     03ACLDQR27, 128(R2)  D34001E4     03B0BSRR26, COMMAND 47FF0419     03B4CLRR25 
      ; 0000465  A762FFC8     03B8LDQR27, -56(R2) D3400356     03BCBSRR26, BEAM  47FF0419     03C0CLRR25e
      ; 000047   A762FFC0     03C4LDQR27, -64(R2) D3400302     03C8BSRR26, BASEG 47FF0419     03CCCLRR25 
      ; 000048   A762FFB8     03D0LDQR27, -72(R2) D34005EC     03D4BSRR26, BOMB  47FF0419     03D8CLRR25 
      ; 000049r  A7620088     03DCLDQR27, 136(R2) D34007D2     03E0BSRR26, SHIPO 47FF0419     03E4CLRR25h
      ; 000050  A7620048     03E8LDQR27, 72(R2)   D340088A     03ECBSRR26, ADVANCE 47FF0419     03F0CLRR25C
      ; 000051A A7620048     03F4LDQR27, 72(R2)4  D3400887     03F8BSRR26, ADVANCE A402FFE8     03FCLDQR0, -24(R2) 
      ; 000052   A0000016     0400LDLR0, var$0112 ; R0, 22(R0) 48061720     0404SLLR0, 48, R0 48061680     0408SRLR0, 48, R0 2FFE0000     040CUNOPH  E4000002     0410BEQR0, lab$0114! 47FF0403     0414MOVR31, var$0017  ; R31, R3    ; 000053N C3FFFFE3     0418BRlab$0072        041Clab$0114: 
      ; 000052 ! 47FF0404     041CMOVR31, var$00160	 ; R31, R4I C3FFFFDA     0420BRlab$0060   8 Routine Size: 1060 bytes,    Routine Base: $CODE$ + 0000         0424TABLEAU::n  23DEFF70     0424LDASP, -144(SP) B77E0000     0428STQR27, (SP)  B75E0050     042CSTQR26, 80(SP)P B45E0058     0430STQR2, 88(SP) B47E0060     0434STQR3, 96(SP) B49E0068     0438STQR4, 104(SP)  B4BE0070     043CSTQR5, 112(SP)O B4DE0078     0440STQR6, 120(SP)  B7BE0080     0444STQFP, 128(SP)t 47FE041D     0448MOVSP, FP                                        P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 43 Q                                  TABLEAU                          1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   47FB0402     044CMOVR27, R26 47FF0419     0450CLRR25D
      ; 000080,! A762FF88     0454LDQR27, -120(R2)  D3400BD0     0458BSRR26, CLEAR! 2202FEE8     045CLDAR16, -280(R2)L
      ; 000081E! 2222FEE8     0460LDAR17, -280(R2)  47E05419     0464MOV2, R25! A762FEF8     0468LDQR27, -264(R2)O D3400B9A     046CBSRR26, MOVE   2202FFE0     0470LDAR16, -32(R2)
      ; 000082V 47E03419     0474MOV1, R25 A762FFF8     0478LDQR27, -8(R2)  D3400C37     047CBSRR26, SENDS! A602FF00     0480LDQR16, -256(R2)S
      ; 000083 ! 2210FFFC     0484LDAR16, var$0102, ; R16, -4(R16) 47E03419     0488MOV1, R25  A762FFF0     048CLDQR27, -16(R2)! D3400C5A     0490BSRR26, SEND_INT ! 2202FEE8     0494LDAR16, -280(R2) 
      ; 000084T 22220038     0498LDAR17, 56(R2)L 47E05419     049CMOV2, R25! A762FEF8     04A0LDQR27, -264(R2)  D3400B8C     04A4BSRR26, MOVE ! A602FF10     04A8LDQR16, -240(R2) 
      ; 0000859! 221001F0     04ACLDAR16, 496(R16)  47E03419     04B0MOV1, R25 A762FFF8     04B4LDQR27, -8(R2)D D3400C28     04B8BSRR26, SEND ! 2202FEE8     04BCLDAR16, -280(R2) 
      ; 000086   2222FFE8     04C0LDAR17, -24(R2) 47E05419     04C4MOV2, R25! A762FEF8     04C8LDQR27, -264(R2)  D3400B82     04CCBSRR26, MOVE   2202FFD0     04D0LDAR16, -48(R2)
      ; 000087  47E03419     04D4MOV1, R25 A762FFF8     04D8LDQR27, -8(R2)  D3400C1F     04DCBSRR26, SENDA! A602FF00     04E0LDQR16, -256(R2) 
      ; 000088 ! 2210FFFE     04E4LDAR16, var$0103  ; R16, -2(R16) 47E03419     04E8MOV1, R25  A762FFF0     04ECLDQR27, -16(R2)! D3400C42     04F0BSRR26, SEND_INT  47E6F400     04F4MOV55, R0
      ; 000091S  A422FF00     04F8LDQR1, -256(R2)! A2010016     04FCLDLR16, var$0112 
 ; R16, 22(R1)C 4A007610     0500ZAPR16, 3, R16  48001360     0504INSWLR0, 0, R0C  46000410     0508BISR16, R0, R16! B2010016     050CSTLR16, var$0112 
 ; R16, 22(R1)I 47E0B406     0510MOV5, var$0019  ; 5, R6    ; 000093E A6220020     0514LDQR17, 32(R2)2 B7F10000     0518STQR31, J ; R31, (R17)       051Clab$0177:K
      ; 000094 ! A642FF00     051CLDQR18, -256(R2) ! A2520002     0520LDLR18, var$0105 
 ; R18, 2(R18)  A6620020     0524LDQR19, 32(R2)O A6730000     0528LDQR19, J ; R19, (R19)                              P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 44NQ                                  TABLEAU                          1-APR-2003 20:3d& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    4E605013     052CMULLR19, 2, R19" 42530532     0530SUBQR18, R19, R18! 2222FEE8     0534LDAR17, -280(R2)2 A2BD0040     0538LDLR21, 64(FP)  4AA07615     053CZAPR21, 3, R211! 4A401372     0540INSWLR18, 0, R18 ! 46B20415     0544BISR21, R18, R21  B2BD0040     0548STLR21, 64(FP)1 221D0040     054CLDAR16, 64(FP)0 47E05419     0550MOV2, R25! A762FEF8     0554LDQR27, -264(R2)0 D3400B5F     0558BSRR26, MOVE0  47E17405     055CMOV11, var$0020 ; 11, R5    ; 000095 47E03400     0560MOV1, R0  A4220020     0564LDQR1, 32(R2) B401FFF8     0568STQR0, I1 ; R0, -8(R1)       056Clab$0187:0
      ; 000096O A6020020     056CLDQR16, 32(R2)  A610FFF8     0570LDQR16, I ; R16, -8(R16) A6220020     0574LDQR17, 32(R2)  A6310000     0578LDQR17, J ; R17, (R17)" 42110410     057CADDQR16, R17, R16 46003014     0580ANDR16, 1, R20  A6420020     0584LDQR18, 32(R2)d A6520000     0588LDQR18, J ; R18, (R18)  4A461732     058CSLLR18, 48, R18  4A461790     0590SRAR18, 48, R16 47E05411     0594MOV2, R17 A7420048     0598LDQR26, 72(R2)0 A7620050     059CLDQR27, 80(R2)(" 6B5A4000     05A0JSRR26, OTS$DIV_L
 ; R26, R26 4C005400     05A4MULQR0, 2, R0  42800400     05A8ADDQR20, R0, R0 B01D0048     05ACSTLR0, 72(FP) 221D0048     05B0LDAR16, 72(FP)  47E03419     05B4MOV1, R25 A7620028     05B8LDQR27, 40(R2): D3400B92     05BCBSRR26, DS_OBJ  22020040     05C0LDAR16, 64(R2) 
      ; 000097  47E03419     05C4MOV1, R25 A762FFF8     05C8LDQR27, -8(R2)R D3400BE3     05CCBSRR26, SENDE A4020020     05D0LDQR0, 32(R2)
      ; 000098  A4000000     05D4LDQR0, J 
 ; R0, (R0) 48061720     05D8SLLR0, 48, R0 48061780     05DCSRAR0, 48, R0 4C017400     05E0MULQR0, 11, R0  A4220020     05E4LDQR1, 32(R2) A421FFF8     05E8LDQR1, I  ; R1, -8(R1) 48261721     05ECSLLR1, 48, R1 48261781     05F0SRAR1, 48, R1 40010400     05F4ADDQR0, R1, R06 4C005400     05F8MULQR0, 2, R0! A602FF00     05FCLDQR16, -256(R2) ! A2100002     0600LDLR16, var$0105 
 ; R16, 2(R16)0 A6220020     0604LDQR17, 32(R2)G A6310000     0608LDQR17, J ; R17, (R17)                                          P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 45CQ                                  TABLEAU                          1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    4E205011     060CMULLR17, 2, R17" 42110530     0610SUBQR16, R17, R16! A642FF00     0614LDQR18, -256(R2)_! 42400412     0618ADDQR18, R0, R18P  2252001C     061CLDAR18, 28(R18)  2E720000     0620LDQ_UR19, (R18)# 4A120374     0624INSWLR16, R18, R20 # 4A720253     0628MSKWLR19, R18, R19 ! 46740413     062CBISR19, R20, R19   3E720000     0630STQ_UR19, (R18) A6A20020     0634LDQR21, 32(R2) 
      ; 000099E A6B50000     0638LDQR21, J ; R21, (R21)  4AA61735     063CSLLR21, 48, R21  4AA61795     0640SRAR21, 48, R21! 4EA17415     0644MULQR21, 11, R21E A6C20020     0648LDQR22, 32(R2)  A6D6FFF8     064CLDQR22, I ; R22, -8(R22)  4AC61736     0650SLLR22, 48, R22  4AC61796     0654SRAR22, 48, R22" 42B60415     0658ADDQR21, R22, R21  4EA05415     065CMULQR21, 2, R21 A6E20020     0660LDQR23, 32(R2)C A6F7FFF8     0664LDQR23, I ; R23, -8(R23)  4EE0D017     0668MULLR23, 6, R23  42E0D537     066CSUBQR23, 6, R23! A702FF00     0670LDQR24, -256(R2)e" 43150418     0674ADDQR24, R21, R24! 2318008A     0678LDAR24, 138(R24)   2F380000     067CLDQ_UR25, (R24)# 4AF8037A     0680INSWLR23, R24, R26A# 4B380259     0684MSKWLR25, R24, R25 ! 473A0419     0688BISR25, R26, R25D  3F380000     068CSTQ_UR25, (R24) A7620020     0690LDQR27, 32(R2)2
      ; 000095  A77BFFF8     0694LDQR27, I ; R27, -8(R27)  4360341B     0698ADDQR27, 1, R27 A4220020     069CLDQR1, 32(R2) B761FFF8     06A0STQR27, I
 ; R27, -8(R1)]* 40A03525     06A4SUBQvar$0020, 1, var$0020 ; R5, 1, R5N& FCBFFFB0     06A8BGTvar$0020, lab$0187 ; R5, lab$0187 A6220020     06ACLDQR17, 32(R2)R
      ; 000093O A6310000     06B0LDQR17, J ; R17, (R17)  42203411     06B4ADDQR17, 1, R17 A4020020     06B8LDQR0, 32(R2) B6200000     06BCSTQR17, J ; R17, (R0) * 40C03526     06C0SUBQvar$0019, 1, var$0019 ; R6, 1, R6/& FCDFFF95     06C4BGTvar$0019, lab$0177 ; R6, lab$0177 47E6F410     06C8MOV55, R16L
      ; 000100S! A642FF00     06CCLDQR18, -256(R2)M! A2720012     06D0LDLR19, var$0110T ; R19, 18(R18) 4A607613     06D4ZAPR19, 3, R19p! 4A001370     06D8INSWLR16, 0, R16=! 46700413     06DCBISR19, R16, R19A! B2720012     06E0STLR19, var$0110, ; R19, 18(R18)! A682FF00     06E4LDQR20, -256(R2) 
      ; 000101I! B3F40006     06E8STLR31, var$0107N
 ; R31, 6(R20) ! A6C2FF00     06ECLDQR22, -256(R2) 
      ; 000102=                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 46/Q                                  TABLEAU                          1-APR-2003 20:3E& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! B3F6000A     06F0STLR31, var$0108L ; R31, 10(R22)! A6A2FF00     06F4LDQR21, -256(R2) 
      ; 000103=! B3F5000E     06F8STLR31, var$0109N ; R31, 14(R21) 47E2F417     06FCMOV23, R23O
      ; 000106 ! A702FF00     0700LDQR24, -256(R2)N! A33800FA     0704LDLR25, var$0117  ; R25, 250(R24)y 4B207619     0708ZAPR25, 3, R25N! 4AE01377     070CINSWLR23, 0, R23O! 47370419     0710BISR25, R23, R25 ! B33800FA     0714STLR25, var$0117A ; R25, 250(R24)  47E91417     0718MOV72, R23E
      ; 000107L! A742FF00     071CLDQR26, -256(R2)/  A03A00FA     0720LDLR1, 250(R26) 48219601     0724ZAPR1, 12, R1! 4AE05377     0728INSWLR23, 2, R23C 44370401     072CBISR1, R23, R1P  B03A00FA     0730STLR1, 250(R26)! A762FF00     0734LDQR27, -256(R2) 
      ; 000108r  A01B00FE     0738LDLR0, var$0119 ; R0, 254(R27)  263F0001     073CLDAHR17, 1(R31)  2231FFFF     0740LDAR17, -1(R17) 44110400     0744BISR0, R17, R0   B01B00FE     0748STLR0, var$0119 ; R0, 254(R27)! A602FF00     074CLDQR16, -256(R2)T
      ; 000109U! A25000FE     0750LDLR18, 254(R16)a  4A419612     0754ZAPR18, 12, R18! B25000FE     0758STLR18, 254(R16)t! A602FF00     075CLDQR16, -256(R2)-
      ; 000110-! 221000FA     0760LDAR16, var$01178 ; R16, 250(R16) ! A622FF00     0764LDQR17, -256(R2)c! 223100FC     0768LDAR17, var$0118t ; R17, 252(R17)g 47E05419     076CMOV2, R25! A762FEF8     0770LDQR27, -264(R2). D3400AD8     0774BSRR26, MOVE   2202FFD8     0778LDAR16, -40(R2)
      ; 000111o 47E03419     077CMOV1, R25 A7620028     0780LDQR27, 40(R2)- D3400B20     0784BSRR26, DS_OBJ: 47E09404     0788MOV4, var$0021a ; 4, R4    ; 000114R 47E03400     078CMOV1, R0( A4220020     0790LDQR1, 32(R2) B401FFF8     0794STQR0, Ir ; R0, -8(R1)       0798.30:
      ; 000115c A6020020     0798LDQR16, 32(R2)m A610FFF8     079CLDQR16, I ; R16, -8(R16)  4A061730     07A0SLLR16, 48, R16  4A061790     07A4SRAR16, 48, R16  4E005410     07A8MULQR16, 2, R16! A622FF00     07ACLDQR17, -256(R2)e" 42300411     07B0ADDQR17, R16, R17! 22310102     07B4LDAR17, 258(R17)a  2E510000     07B8LDQ_UR18, (R17)# 4A510252     07BCMSKWLR18, R17, R18   3E510000     07C0STQ_UR18, (R17) A6620020     07C4LDQR19, 32(R2)e
      ; 000114  A673FFF8     07C8LDQR19, I ; R19, -8(R19)  42603413     07CCADDQR19, 1, R19                          P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 47 Q                                  TABLEAU                          1-APR-2003 20:3g& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   A6820020     07D0LDQR20, 32(R2)h B674FFF8     07D4STQR19, I ; R19, -8(R20)* 40803524     07D8SUBQvar$0021, 1, var$0021 ; R4, 1, R4i 2FFE0000     07DCUNOPs! FC9FFFED     07E0BGTvar$0021, .30l	 ; R4, .30d! A6A2FF00     07E4LDQR21, -256(R2)a
      ; 000116a  A2D50012     07E8LDLR22, 18(R21)  4AC19616     07ECZAPR22, 12, R22  B2D50012     07F0STLR22, 18(R21)! A6E2FF00     07F4LDQR23, -256(R2)o
      ; 000117   A3170016     07F8LDLR24, 22(R23)  4B019618     07FCZAPR24, 12, R24  B3170016     0800STLR24, 22(R23)! A722FF00     0804LDQR25, -256(R2)h
      ; 000120 ! A3390002     0808LDLR25, var$0105 
 ; R25, 2(R25)   4B261739     080CSLLR25, 48, R25  4B261799     0810SRAR25, 48, R25! 43223539     0814SUBQR25, 17, R25b" 47203C99     0818CMOVLER25, 1, R25 47E0B41A     081CMOV5, R26" 4359053A     0820SUBQR26, R25, R26! 47FA0403     0824MOVR26, var$0022@	 ; R26, R3  A7620020     0828LDQR27, 32(R2)t B73BFFF8     082CSTQR25, I ; R25, -8(R27)! EF400042     0830BLER26, lab$0218s       0834lab$0219:n
      ; 000121F A4020020     0834LDQR0, 32(R2) A400FFF8     0838LDQR0, I  ; R0, -8(R0) 40025400     083CADDQR0, 18, R0>! 2222FEE8     0840LDAR17, -280(R2)( A21D0040     0844LDLR16, 64(FP)O 4A007610     0848ZAPR16, 3, R16s 48001360     084CINSWLR0, 0, R0o  46000410     0850BISR16, R0, R16 B21D0040     0854STLR16, 64(FP)l 221D0040     0858LDAR16, 64(FP)k 47E05419     085CMOV2, R25! A762FEF8     0860LDQR27, -264(R2)  D3400A9C     0864BSRR26, MOVE  A4020020     0868LDQR0, 32(R2)
      ; 000122r A400FFF8     086CLDQR0, II ; R0, -8(R0) 48061720     0870SLLR0, 48, R0 48061780     0874SRAR0, 48, R0 4C0A1400     0878MULQR0, 80, R0  A7820030     087CLDQR28, 48(R2)   43800400     0880ADDQR28, R0, R0 20000000     0884LDAR0, (R0)! 243F010E     0888LDAHR1, 270(R31)n 20210050     088CLDAR1, 80(R1) B03D0048     0890STLR1, 72(FP) 43E00000     0894SEXTLR0, R0 B01D004C     0898STLR0, 76(FP) 221D0048     089CLDAR16, 72(FP)S 47E03419     08A0MOV1, R25 A762FFF8     08A4LDQR27, -8(R2)0 D3400B2C     08A8BSRR26, SENDm A4020020     08ACLDQR0, 32(R2)
      ; 000123E                                        P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 48cQ                                  TABLEAU                          1-APR-2003 20:3x& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   A400FFF8     08B0LDQR0, I  ; R0, -8(R0) 48061720     08B4SLLR0, 48, R0 48061780     08B8SRAR0, 48, R0 4C0A1400     08BCMULQR0, 80, R0  A4220020     08C0LDQR1, 32(R2) A421FFF8     08C4LDQR1, I3 ; R1, -8(R1) 48261721     08C8SLLR1, 48, R1 48261781     08CCSRAR1, 48, R1 4C2A1401     08D0MULQR1, 80, R1a A6020030     08D4LDQR16, 48(R2)E! 42010410     08D8ADDQR16, R1, R16v 47F00401     08DCMOVR16, R1  A7820058     08E0LDQR28, 88(R2)   43800400     08E4ADDQR28, R0, R0 47E00400     08E8MOVR0, R0 A6410000     08ECLDQR18, (R1)  A6610008     08F0LDQR19, 8(R1) 223F0040     08F4MOV64, R17+       08F8L$10:  B6400000     08F8STQR18, (R0) ! 42221531     08FCSUBQR17, 16, R17  A6410010     0900LDQR18, 16(R1)  20210010     0904LDAR1, 16(R1) B6600008     0908STQR19, 8(R0) 20000010     090CLDAR0, 16(R0) A6610008     0910LDQR19, 8(R1) F63FFFF8     0914BNER17, L$10  B6400000     0918STQR18, (R0)  B6600008     091CSTQR19, 8(R0) A6820020     0920LDQR20, 32(R2)S
      ; 000120J A694FFF8     0924LDQR20, I ; R20, -8(R20)  42803414     0928ADDQR20, 1, R20 A6A20020     092CLDQR21, 32(R2)- B695FFF8     0930STQR20, I ; R20, -8(R21)* 40603523     0934SUBQvar$0022, 1, var$0022 ; R3, 1, R3 & FC7FFFBE     0938BGTvar$0022, lab$0219 ; R3, lab$0219       093Clab$0218:a! A6C2FF00     093CLDQR22, -256(R2)E
      ; 000124n A2D60002     0940LDLR22, 2(R22)   4AC41736     0944SLLR22, 32, R22  4AC61796     0948SRAR22, 48, R22! A6E2FF00     094CLDQR23, -256(R2) ! A2F70002     0950LDLR23, var$0105 
 ; R23, 2(R23)   4AE61737     0954SLLR23, 48, R23  4AE61797     0958SRAR23, 48, R23  42E03417     095CADDQR23, 1, R23# 42D70DB8     0960CMPLER22, R23, R240$ 47170496     0964CMOVEQR24, R23, R22! A722FF00     0968LDQR25, -256(R2) ! A3590002     096CLDLR26, var$0105F
 ; R26, 2(R25)  4B40761A     0970ZAPR26, 3, R26O! 4AC01376     0974INSWLR22, 0, R22 ! 4756041A     0978BISR26, R22, R269! B3590002     097CSTLR26, var$0105 
 ; R26, 2(R25) ! A762FF00     0980LDQR27, -256(R2) 
      ; 000127 ! A21B0116     0984LDLR16, 278(R27)O  4A019610     0988ZAPR16, 12, R16                                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 49EQ                                  TABLEAU                          1-APR-2003 20:32& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! B21B0116     098CSTLR16, 278(R27)0! B7FD0008     0990STQR31, var$0023  ; R31, 8(FP)    ; 000128 47FD041E     0994MOVFP, SP
      ; 000129  A75D0050     0998LDQR26, 80(FP)3 A45D0058     099CLDQR2, 88(FP) A47D0060     09A0LDQR3, 96(FP) A49D0068     09A4LDQR4, 104(FP)0 A4BD0070     09A8LDQR5, 112(FP), A4DD0078     09ACLDQR6, 120(FP)O A7BD0080     09B0LDQFP, 128(FP)  23DE0090     09B4LDASP, 144(SP)  6BFA8001     09B8RETR26H  8 Routine Size: 1432 bytes,    Routine Base: $CODE$ + 0424         09BCSLEEP::O  23DEFF90     09BCLDASP, -112(SP) B77E0000     09C0STQR27, (SP)I B75E0048     09C4STQR26, 72(SP)0 B45E0050     09C8STQR2, 80(SP) B47E0058     09CCSTQR3, 88(SP) B7BE0060     09D0STQFP, 96(SP) 47FE041D     09D4MOVSP, FP 47FB0402     09D8MOVR27, R2  47F00403     09DCMOVR16, R3  A0630004     09E0LDLR3, 4(R3)   A602FFC0     09E4LDQR16, -64(R2)
      ; 000141a# 22100018     09E8LDAR16, DELTA_TIMEe ; R16, 24(R16) 22420040     09ECLDAR18, 64(R2)y 47E09411     09F0MOV4, R17 A7420028     09F4LDQR26, 40(R2)-! 6B5A4000     09F8JSRR26, OTS$MOVE-
 ; R26, R26 22430000     09FCLDAR18, (R3)  47E0B411     0A00MOV5, R17 A7420028     0A04LDQR26, 40(R2)R! 6B5A4000     0A08JSRR26, OTS$MOVE 
 ; R26, R26! 241F010E     0A0CLDAHR0, 270(R31)R
      ; 000142  20000009     0A10LDAR0, 9(R0)0 B01D0040     0A14STLR0, 64(FP)  A622FFC0     0A18LDQR17, -64(R2)# 22310018     0A1CLDAR17, DELTA_TIME  ; R17, 24(R17) 43F10011     0A20SEXTLR17, R17 B23D0044     0A24STLR17, 68(FP)  221D0040     0A28LDAR16, 64(FP)   A622FFC0     0A2CLDQR17, -64(R2) 22310008     0A30LDAR17, TIME0
 ; R17, 8(R17)  47E05419     0A34MOV2, R25 A7420048     0A38LDQR26, 72(R2)  A7620050     0A3CLDQR27, 80(R2)A# 6B5A4000     0A40JSRR26, SYS$BINTIM 
 ; R26, R26 A422FFC0     0A44LDQR1, -64(R2)   B0010010     0A48STLR0, RET_STAT ; R0, 16(R1)  A602FFC0     0A4CLDQR16, -64(R2)
      ; 000143l! A2100010     0A50LDLR16, RET_STAT- ; R16, 16(R16) A6220020     0A54LDQR17, 32(R2) # 22310000     0A58LDAR17, SS$_NORMAL- ; R17, (R17)! 46110810     0A5CXORR16, R17, R16s                                        P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 50IQ                                  SLEEP                            1-APR-2003 20:3R& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! F6000026     0A60BNER16, lab$0239  47FF0410     0A64CLRR16E
      ; 000144   A622FFC0     0A68LDQR17, -64(R2) 22310008     0A6CLDAR17, TIME 
 ; R17, 8(R17)  47FF0412     0A70CLRR18  47FF0413     0A74CLRR19- 47E09419     0A78MOV4, R25  A7420098     0A7CLDQR26, 152(R2)  A76200A0     0A80LDQR27, 160(R2)# 6B5A4000     0A84JSRR26, SYS$SETIMR 
 ; R26, R26 A422FFC0     0A88LDQR1, -64(R2)   B0010010     0A8CSTLR0, RET_STAT ; R0, 16(R1)  A602FFC0     0A90LDQR16, -64(R2)
      ; 000145 ! A2100010     0A94LDLR16, RET_STATF ; R16, 16(R16) A6220020     0A98LDQR17, 32(R2)i# 22310000     0A9CLDAR17, SS$_NORMAL  ; R17, (R17)! 46110810     0AA0XORR16, R17, R16l! F600001B     0AA4BNER16, lab$0251  47FF0410     0AA8CLRR16 
      ; 000146r 47E03419     0AACMOV1, R25 A7420058     0AB0LDQR26, 88(R2)  A7620060     0AB4LDQR27, 96(R2)f# 6B5A4000     0AB8JSRR26, SYS$WAITFRu
 ; R26, R26 A422FFC0     0ABCLDQR1, -64(R2)   B0010010     0AC0STLR0, RET_STAT ; R0, 16(R1)  A602FFC0     0AC4LDQR16, -64(R2)
      ; 000147t! A2100010     0AC8LDLR16, RET_STAT4 ; R16, 16(R16) A6220020     0ACCLDQR17, 32(R2) # 22310000     0AD0LDAR17, SS$_NORMALo ; R17, (R17)! 46110810     0AD4XORR16, R17, R16s! F6000014     0AD8BNER16, lab$0263 ! B7FD0008     0ADCSTQR31, var$0025r ; R31, 8(FP)    ; 000148 47FD041E     0AE0MOVFP, SP
      ; 000149a A75D0048     0AE4LDQR26, 72(FP)g A45D0050     0AE8LDQR2, 80(FP) A47D0058     0AECLDQR3, 88(FP) A7BD0060     0AF0LDQFP, 96(FP) 23DE0070     0AF4LDASP, 112(SP)$ 6BFA8001     0AF8RETR26M       0AFClab$0239:e
      ; 000143  22020030     0AFCLDAR16, 48(R2)  47E1D411     0B00MOV14, R17  47E05419     0B04MOV2, R25  A7420088     0B08LDQR26, 136(R2)  A7620090     0B0CLDQR27, 144(R2)" 6B5A4000     0B10JSRR26, DFOR$STOP
 ; R26, R26       0B14lab$0251:-
      ; 000145   22020078     0B14LDAR16, 120(R2) 47E1D411     0B18MOV14, R17  47E05419     0B1CMOV2, R25  A7420088     0B20LDQR26, 136(R2)  A7620090     0B24LDQR27, 144(R2)" 6B5A4000     0B28JSRR26, DFOR$STOP
 ; R26, R26       0B2Clab$0263: 
      ; 000147:  22020068     0B2CLDAR16, 104(R2) 47E1D411     0B30MOV14, R17  47E05419     0B34MOV2, R25                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 51 Q                                  SLEEP                            1-APR-2003 20:3y& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    A7420088     0B38LDQR26, 136(R2)  A7620090     0B3CLDQR27, 144(R2)" 6B5A4000     0B40JSRR26, DFOR$STOP
 ; R26, R26  7 Routine Size: 392 bytes,    Routine Base: $CODE$ + 09BC:         0B44COMMAND::   23DEFF90     0B44LDASP, -112(SP) B77E0000     0B48STQR27, (SP)s B75E0050     0B4CSTQR26, 80(SP)a B45E0058     0B50STQR2, 88(SP) B7BE0060     0B54STQFP, 96(SP) 47FE041D     0B58MOVSP, FP 47FB0402     0B5CMOVR27, R2n  A402FDF8     0B60LDQR0, -520(R2)
      ; 000166w  A000001A     0B64LDLR0, var$0114 ; R0, 26(R0)! E0000003     0B68BLBCR0, lab$0273r! 2202FEC0     0B6CLDAR16, -320(R2) ! 2362FF58     0B70LDAR27, -168(R2)f D35FFF91     0B74BSRR26, SLEEP       0B78lab$0273:o  A402FDF8     0B78LDQR0, -520(R2)
      ; 000167  A000FFFE     0B7CLDLR0, -2(R0) 48041720     0B80SLLR0, 32, R0 48061680     0B84SRLR0, 48, R0 44003800     0B88XORR0, 1, R0: 2FFE0000     0B8CUNOP<  F400001A     0B90BNER0, lab$0282  A422FDF8     0B94LDQR1, -520(R2)
      ; 000168R A02100FA     0B98LDLR1, 250(R1)r 48241721     0B9CSLLR1, 32, R1 48261781     0BA0SRAR1, 48, R1 40203DA1     0BA4CMPLER1, 1, R1   E4200007     0BA8BEQR1, lab$0285 47E03410     0BACMOV1, R16! A622FDF8     0BB0LDQR17, -520(R2) ! A25100FE     0BB4LDLR18, var$0119  ; R18, 254(R17)  4A407612     0BB8ZAPR18, 3, R182! 4A001370     0BBCINSWLR16, 0, R16I! 46500412     0BC0BISR18, R16, R18,! B25100FE     0BC4STLR18, var$0119N ; R18, 254(R17)N       0BC8lab$0285: ! A662FDF8     0BC8LDQR19, -520(R2)0
      ; 0001690! A27300FA     0BCCLDLR19, 250(R19)0  4A641733     0BD0SLLR19, 32, R19  4A661793     0BD4SRAR19, 48, R19" 426919B3     0BD8CMPLTR19, 72, R19 2FFE0000     0BDCUNOP ! F6600006     0BE0BNER19, lab$0282 ! A682FDF8     0BE4LDQR20, -520(R2)0! A2B400FE     0BE8LDLR21, var$0119P ; R21, 254(R20)2  26DF0001     0BECLDAHR22, 1(R31)  22D6FFFF     0BF0LDAR22, -1(R22)! 46B60415     0BF4BISR21, R22, R21(! B2B400FE     0BF8STLR21, var$0119R ; R21, 254(R20)0       0BFClab$0282: 
      ; 000168O 47FF0419     0BFCCLRR25R
      ; 000172                                             P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 52RQ                                  COMMAND                          1-APR-2003 20:3B& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   A7620020     0C00LDQR27, 32(R2)0 D3400043     0C04BSRR26, INCHAR0  A422FF18     0C08LDQR1, -232(R2) B4010028     0C0CSTQR0, INPT ; R0, 40(R1)! A602FF18     0C10LDQR16, -232(R2)0
      ; 000173F A6100028     0C14LDQR16, INPT( ; R16, 40(R16)  46041810     0C18XORR16, 32, R16 2FFE0000     0C1CUNOPM! F600000E     0C20BNER16, lab$02948! A622FDF8     0C24LDQR17, -520(R2)-
      ; 0001740! A23100FE     0C28LDLR17, 254(R17)9  4A241731     0C2CSLLR17, 32, R17  4A261691     0C30SRLR17, 48, R17! F6200007     0C34BNER17, lab$0298A 47E2F412     0C38MOV23, R18 ! A662FDF8     0C3CLDQR19, -520(R2),! A29300FE     0C40LDLR20, 254(R19)9  4A819614     0C44ZAPR20, 12, R20! 4A405372     0C48INSWLR18, 2, R180! 46920414     0C4CBISR20, R18, R20V! B29300FE     0C50STLR20, 254(R19)        0C54lab$0298:0! B7FD0018     0C54STQR31, var$00270 ; R31, 24(FP)    ; 000175C C3E00028     0C58BRlab$0269L       0C5Clab$0294:0
      ; 0001762! A6A2FF18     0C5CLDQR21, -232(R2)  A6B50028     0C60LDQR21, INPTR ; R21, 40(R21)" 42AA35B5     0C64CMPEQR21, 81, R21! A6C2FF18     0C68LDQR22, -232(R2)  A6D60028     0C6CLDQR22, INPT  ; R22, 40(R22)# 42CE35B6     0C70CMPEQR22, 113, R22 ! 46B60415     0C74BISR21, R22, R21r! E6A00003     0C78BEQR21, lab$0295  47FF0419     0C7CCLRR25 
      ; 000177  A7620028     0C80LDQR27, 40(R2): D3400823     0C84BSRR26, HALTP       0C88lab$0295:0
      ; 000176   A402FDF8     0C88LDQR0, -520(R2)
      ; 0001793 A000FFFE     0C8CLDLR0, -2(R0) 48041720     0C90SLLR0, 32, R0 48061680     0C94SRLR0, 48, R0 44003800     0C98XORR0, 1, R0Q 2FFE0000     0C9CUNOP   F4000002     0CA0BNER0, lab$0310! B7FD0010     0CA4STQR31, var$0028 
 ; R31, 16(FP)F C3E00014     0CA8BRlab$0269        0CAClab$0310:)  A422FF18     0CACLDQR1, -232(R2)
      ; 0001800 A4210028     0CB0LDQR1, INPT ; R1, 40(R1)  40267DA1     0CB4CMPLER1, 51, R1! A602FF18     0CB8LDQR16, -232(R2)R A6100028     0CBCLDQR16, INPTF ; R16, 40(R16)" 420639B0     0CC0CMPLTR16, 49, R16 44300101     0CC4BICR1, R16, R1 ! E020000B     0CC8BLBCR1, lab$0313F! A622FF18     0CCCLDQR17, -232(R2)  A6310028     0CD0LDQR17, INPT  ; R17, 40(R17)                                    P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 532Q                                  COMMAND                          1-APR-2003 20:34& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! 2E620030     0CD4LDQ_UR19, 48(R2)B" 4A6200D3     0CD8EXTBLR19, R2, R19" 42330531     0CDCSUBQR17, R19, R17! A682FDF8     0CE0LDQR20, -520(R2) ! A2B400FE     0CE4LDLR21, var$01193 ; R21, 254(R20)L 4AA07615     0CE8ZAPR21, 3, R212! 4A201371     0CECINSWLR17, 0, R174! 46B10415     0CF0BISR21, R17, R21 ! B2B400FE     0CF4STLR21, var$01190 ; R21, 254(R20)0       0CF8lab$0313:A! B7FD0008     0CF8STQR31, var$0029F ; R31, 8(FP)    ; 000181       0CFClab$0269:8
      ; 000182F 47FD041E     0CFCMOVFP, SP A75D0050     0D00LDQR26, 80(FP)) A45D0058     0D04LDQR2, 88(FP) A7BD0060     0D08LDQFP, 96(FP) 23DE0070     0D0CLDASP, 112(SP)  6BFA8001     0D10RETR26D  7 Routine Size: 464 bytes,    Routine Base: $CODE$ + 0B44R         0D14INCHAR::  23DEFF80     0D14LDASP, -128(SP) B77E0000     0D18STQR27, (SP)   B75E0068     0D1CSTQR26, 104(SP) B45E0070     0D20STQR2, 112(SP)M B7BE0078     0D24STQFP, 120(SP)1 47FE041D     0D28MOVSP, FP 23DEFFD0     0D2CLDASP, -48(SP)B 47FB0402     0D30MOVR27, R2F  A402FEF0     0D34LDQR0, -272(R2)
      ; 000196B A0000190     0D38LDLR0, FIRST 
 ; R0, 400(R0)  2FFE0000     0D3CUNOP ! E0000048     0D40BLBCR0, lab$0343i 20220040     0D44LDAR1, 64(R2)
      ; 000198r! 241F010E     0D48LDAHR0, 270(R31)  20000002     0D4CLDAR0, 2(R0)I B01D0050     0D50STLR0, 80(FP) 43E10001     0D54SEXTLR1, R1 B03D0054     0D58STLR1, 84(FP)! 241F010E     0D5CLDAHR0, 270(R31)2 2000003F     0D60LDAR0, 63(R0) B01D0058     0D64STLR0, 88(FP)  A422FEE0     0D68LDQR1, -288(R2)  20210048     0D6CLDAR1, TERMINAL ; R1, 72(R1) 43E10001     0D70SEXTLR1, R1 B03D005C     0D74STLR1, 92(FP) 221D0050     0D78LDAR16, 80(FP)8 47FF0411     0D7CCLRR17  225D0058     0D80LDAR18, 88(FP)  47FF0413     0D84CLRR19  47FF0414     0D88CLRR207 47FF0415     0D8CCLRR21T 47E0D419     0D90MOV6, R25 A7420048     0D94LDQR26, 72(R2)2 A7620050     0D98LDQR27, 80(R2)v 2FFE0000     0D9CUNOP     P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 547Q                                  INCHAR                           1-APR-2003 20:3,& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  # 6B5A4000     0DA0JSRR26, SYS$TRNLOG 
 ; R26, R26  A422FEE0     0DA4LDQR1, -288(R2) B0010044     0DA8STLR0, SSCODE ; R0, 68(R1)! A602FEE0     0DACLDQR16, -288(R2)8
      ; 000199  A2100044     0DB0LDLR16, SSCODE0 ; R16, 68(R16)! A622FF40     0DB4LDQR17, -192(R2)1# 22310000     0DB8LDAR17, SS$_NORMAL9 ; R17, (R17)! 46110810     0DBCXORR16, R17, R162! F6000064     0DC0BNER16, lab$0325 ! 241F010E     0DC4LDAHR0, 270(R31) 
      ; 000201D 2000003F     0DC8LDAR0, 63(R0) B01D0060     0DCCSTLR0, 96(FP)! A602FEE0     0DD0LDQR16, -288(R2)A! 22100048     0DD4LDAR16, TERMINAL3 ; R16, 72(R16) 43F00010     0DD8SEXTLR16, R16  B21D0064     0DDCSTLR16, 100(FP) 221D0060     0DE0LDAR16, 96(FP),! A622FEE0     0DE4LDQR17, -288(R2)2  22310040     0DE8LDAR17, TT_CHAN ; R17, 64(R17) 47FF0412     0DECCLRR18M 47FF0413     0DF0CLRR190 47E09419     0DF4MOV4, R25 A7420028     0DF8LDQR26, 40(R2)0 A7620030     0DFCLDQR27, 48(R2)4# 6B5A4000     0E00JSRR26, SYS$ASSIGN7
 ; R26, R26  A422FEE0     0E04LDQR1, -288(R2) B0010044     0E08STLR0, SSCODE ; R0, 68(R1)! A602FEE0     0E0CLDQR16, -288(R2)L
      ; 000202  A2100044     0E10LDLR16, SSCODEA ; R16, 68(R16)! A622FF40     0E14LDQR17, -192(R2) # 22310000     0E18LDAR17, SS$_NORMAL6 ; R17, (R17)! 46110810     0E1CXORR16, R17, R16 ! F6000054     0E20BNER16, lab$03370  A402FEF0     0E24LDQR0, -272(R2)
      ; 000203  B3E00190     0E28STLR31, FIRST ; R31, 400(R0) A4220038     0E2CLDQR1, 56(R2)
      ; 0002050$ 20210000     0E30LDAR1, IO$_READLBLK
 ; R1, (R1)  A6020070     0E34LDQR16, 112(R2)# 22100000     0E38LDAR16, IO$M_TIMED3 ; R16, (R16) 44300401     0E3CBISR1, R16, R1 ! A622FEE0     0E40LDQR17, -288(R2)R  B031003C     0E44STLR1, TIMED_IO
 ; R1, 60(R17)F! A642FEE0     0E48LDQR18, -288(R2)F
      ; 0002061! A252003C     0E4CLDLR18, TIMED_IO2 ; R18, 60(R18)  A6620078     0E50LDQR19, 120(R2)$ 22730000     0E54LDAR19, IO$M_NOECHO ; R19, (R19)! 46530412     0E58BISR18, R19, R18$! A682FEE0     0E5CLDQR20, -288(R2)8! B254003C     0E60STLR18, TIMED_IO3 ; R18, 60(R20)       0E64lab$0343:3
      ; 000210S! A6A2FEE0     0E64LDQR21, -288(R2)2  A2350040     0E68LDLR17, TT_CHAN ; R17, 64(R21)! A6C2FEE0     0E6CLDQR22, -288(R2)1! A256003C     0E70LDLR18, TIMED_IO( ; R18, 60(R22) 22FD0018     0E74LDAR23, INCHAR8 ; R23, 24(FP)    ; 0002112 B6FE0000     0E78STQR23, (SP)8 47E03417     0E7CMOV1, R23              P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 55mQ                                  INCHAR                           1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   B6FE0008     0E80STQR23, 8(SP) B7FE0010     0E84STQR31, 16(SP)  B7FE0018     0E88STQR31, 24(SP)D B7FE0020     0E8CSTQR31, 32(SP)D B7FE0028     0E90STQR31, 40(SP)D 47FF0410     0E94CLRR160
      ; 000210F! A662FEE0     0E98LDQR19, -288(R2)6
      ; 000211L 22730030     0E9CLDAR19, TTIOSBL ; R19, 48(R19) 47FF0414     0EA0CLRR20, 47FF0415     0EA4CLRR213 47E19419     0EA8MOV12, R25L
      ; 000210  A7420058     0EACLDQR26, 88(R2)  A7620060     0EB0LDQR27, 96(R2) ! 6B5A4000     0EB4JSRR26, SYS$QIOW 
 ; R26, R26  A422FEE0     0EB8LDQR1, -288(R2) B0010044     0EBCSTLR0, SSCODE ; R0, 68(R1)! A602FEE0     0EC0LDQR16, -288(R2)Q
      ; 0002120 A2100044     0EC4LDLR16, SSCODE  ; R16, 68(R16)! A622FF40     0EC8LDQR17, -192(R2)8# 22310000     0ECCLDAR17, SS$_NORMALF ; R17, (R17)! 46110810     0ED0XORR16, R17, R166! F600002F     0ED4BNER16, lab$0349L  A402FEE0     0ED8LDQR0, -288(R2)
      ; 000214) A0000030     0EDCLDLR0, TTIOSB ; R0, 48(R0) 48061720     0EE0SLLR0, 48, R0 48061780     0EE4SRAR0, 48, R0  A422FEE0     0EE8LDQR1, -288(R2) B0010038     0EECSTLR0, ERROR1 ; R0, 56(R1)! A602FEE0     0EF0LDQR16, -288(R2),
      ; 000215  A2100038     0EF4LDLR16, ERROR ; R16, 56(R16)  A6220068     0EF8LDQR17, 104(R2)$ 22310000     0EFCLDAR17, SS$_TIMEOUT ; R17, (R17)! 46110810     0F00XORR16, R17, R16 ! F6000003     0F04BNER16, lab$0357  B7FD0018     0F08STQR31, INCHAR: ; R31, 24(FP)    ; 000216G! B7FD0010     0F0CSTQR31, var$0031L ; R31, 16(FP)    ; 000217  C3E00007     0F10BRlab$0314        0F14lab$0357: 
      ; 000216 ! A662FEE0     0F14LDQR19, -288(R2) 
      ; 000219- A2730038     0F18LDLR19, ERROR ; R19, 56(R19)! A682FF40     0F1CLDQR20, -192(R2)0# 22940000     0F20LDAR20, SS$_NORMAL7 ; R20, (R20)! 46740813     0F24XORR19, R20, R19B! F6600022     0F28BNER19, lab$0360 ! B7FD0008     0F2CSTQR31, var$0032R ; R31, 8(FP)       0F30lab$0314:R
      ; 000221  A6BD0018     0F30LDQR21, INCHAR 
 ; R21, 24(FP)   4AA71735     0F34SLLR21, 56, R21 4AA71780     0F38SRAR21, 56, R0R 47FD041E     0F3CMOVFP, SP  A75D0068     0F40LDQR26, 104(FP) A45D0070     0F44LDQR2, 112(FP)2 A7BD0078     0F48LDQFP, 120(FP)  23DE0080     0F4CLDASP, 128(SP)7 6BFA8001     0F50RETR262       0F54lab$0325:D
      ; 000199 ! A602FDD0     0F54LDQR16, -560(R2)0                  P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 563Q                                  INCHAR                           1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! 22100268     0F58LDAR16, 616(R16)Q 47E29411     0F5CMOV20, R17  47E05419     0F60MOV2, R25  A742FFA8     0F64LDQR26, -88(R2)  A762FFB0     0F68LDQR27, -80(R2) 2FFE0000     0F6CUNOP0" 6B5A4000     0F70JSRR26, DFOR$STOP
 ; R26, R26       0F74lab$0337:V
      ; 000202 ! A602FDD0     0F74LDQR16, -560(R2) ! 22100250     0F78LDAR16, 592(R16)4 47E27411     0F7CMOV19, R17  47E05419     0F80MOV2, R25  A742FFA8     0F84LDQR26, -88(R2)  A762FFB0     0F88LDQR27, -80(R2) 2FFE0000     0F8CUNOP " 6B5A4000     0F90JSRR26, DFOR$STOP
 ; R26, R26       0F94lab$0349:E
      ; 000212Q! A602FDD0     0F94LDQR16, -560(R2),! 22100238     0F98LDAR16, 568(R16)8 47E27411     0F9CMOV19, R17  47E05419     0FA0MOV2, R25  A742FFA8     0FA4LDQR26, -88(R2)  A762FFB0     0FA8LDQR27, -80(R2) 2FFE0000     0FACUNOP " 6B5A4000     0FB0JSRR26, DFOR$STOP
 ; R26, R26       0FB4lab$0360: 
      ; 000219 ! A602FDD0     0FB4LDQR16, -560(R2) 
      ; 000220L! 22100220     0FB8LDAR16, 544(R16)  47E23411     0FBCMOV17, R178 47E05419     0FC0MOV2, R25  A742FFA8     0FC4LDQR26, -88(R2)  A762FFB0     0FC8LDQR27, -80(R2) 2FFE0000     0FCCUNOPO" 6B5A4000     0FD0JSRR26, DFOR$STOP
 ; R26, R26  7 Routine Size: 704 bytes,    Routine Base: $CODE$ + 0D14          0FD4BASE:: 23DEFFA0     0FD4LDASP, -96(SP)E B77E0000     0FD8STQR27, (SP)8 B75E0048     0FDCSTQR26, 72(SP)  B45E0050     0FE0STQR2, 80(SP) B7BE0058     0FE4STQFP, 88(SP) 47FE041D     0FE8MOVSP, FP 47FB0402     0FECMOVR27, R2   A402FD40     0FF0LDQR0, -704(R2)
      ; 000238  A00000FA     0FF4LDLR0, 250(R0)F 48041720     0FF8SLLR0, 32, R0 48061780     0FFCSRAR0, 48, R0  A422FE60     1000LDQR1, -416(R2) B4010088     1004STQR0, OLD_COLA
 ; R0, 136(R1) ! A602FD40     1008LDQR16, -704(R2)V
      ; 0002390! A21000FE     100CLDLR16, var$0119  ; R16, 254(R16)N  4A061730     1010SLLR16, 48, R16  4A061690     1014SRLR16, 48, R16  A402FD40     1018LDQR0, -704(R2) 200000FC     101CLDAR0, 252(R0)0                                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 57FQ                                  BASE                             1-APR-2003 20:3,& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  " 2C200000     1020LDQ_UR1, var$0118
 ; R1, (R0)' 482002D1     1024EXTWLR1, var$0118, R17B
 ; R1, R0, R172& 48200241     1028MSKWLR1, var$0118, R1 ; R1, R0, R1" 42300411     102CADDQR17, R16, R17( 4A200371     1030INSWLR17, var$0118, R17 ; R17, R0, R17 44310401     1034BISR1, R17, R15" 3C200000     1038STQ_UR1, var$0118
 ; R1, (R0)! A642FD40     103CLDQR18, -704(R2)9
      ; 000240R! A25200FA     1040LDLR18, 250(R18))  4A441732     1044SLLR18, 32, R18  4A461792     1048SRAR18, 48, R18 2FFE0000     104CUNOP ! FE400008     1050BGTR18, lab$0367  47E03400     1054MOV1, R01
      ; 0002410  A422FD40     1058LDQR1, -704(R2)  A20100FA     105CLDLR16, 250(R1)  4A019610     1060ZAPR16, 12, R16 48005360     1064INSWLR0, 2, R0   46000410     1068BISR16, R0, R16  B20100FA     106CSTLR16, 250(R1) C3E0000D     1070BRlab$0368(       1074lab$0367:1
      ; 0002423! A622FD40     1074LDQR17, -704(R2) ! A23100FA     1078LDLR17, 250(R17),  4A241731     107CSLLR17, 32, R17  4A261791     1080SRAR17, 48, R17" 42291DB1     1084CMPLER17, 72, R17! F6200007     1088BNER17, lab$0368  47E91412     108CMOV72, R18 
      ; 000243   A402FD40     1090LDQR0, -704(R2) A02000FA     1094LDLR1, 250(R0): 48219601     1098ZAPR1, 12, R1! 4A405372     109CINSWLR18, 2, R18  44320401     10A0BISR1, R18, R1  B02000FA     10A4STLR1, 250(R0)7       10A8lab$0368:]
      ; 000242 ! A602FD40     10A8LDQR16, -704(R2)2
      ; 000245S! A21000FA     10ACLDLR16, 250(R16)L  4A041730     10B0SLLR16, 32, R16  4A061790     10B4SRAR16, 48, R16! A622FE60     10B8LDQR17, -416(R2)I  A6310088     10BCLDQR17, OLD_COL ; R17, 136(R17) ! 46110810     10C0XORR16, R17, R16 ! F6000002     10C4BNER16, lab$03757! B7FD0010     10C8STQR31, var$0034 
 ; R31, 16(FP)- C3E0000C     10CCBRlab$0364R       10D0lab$0375: 
      ; 000246a! A602FD40     10D0LDQR16, -704(R2)4! 221000FA     10D4LDAR16, var$01170 ; R16, 250(R16) ! A622FD40     10D8LDQR17, -704(R2)8! 223100FC     10DCLDAR17, var$01180 ; R17, 252(R17)  47E05419     10E0MOV2, R25! A762FD38     10E4LDQR27, -712(R2)1 D340087B     10E8BSRR26, MOVE(! 2202FE18     10ECLDAR16, -488(R2) 
      ; 0002471 47E03419     10F0MOV1, R25! A762FE68     10F4LDQR27, -408(R2)                                   P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 58VQ                                  BASE                             1-APR-2003 20:30& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   D34008C3     10F8BSRR26, DS_OBJ0! B7FD0008     10FCSTQR31, var$00350 ; R31, 8(FP)    ; 000248       1100lab$0364:1
      ; 0002490 47FD041E     1100MOVFP, SP A75D0048     1104LDQR26, 72(FP)0 A45D0050     1108LDQR2, 80(FP) A7BD0058     110CLDQFP, 88(FP) 23DE0060     1110LDASP, 96(SP) 6BFA8001     1114RETR260  7 Routine Size: 324 bytes,    Routine Base: $CODE$ + 0FD40         1118BEAM::  23DEFF20     1118LDASP, -224(SP) B77E0000     111CSTQR27, (SP)7  B75E0098     1120STQR26, 152(SP) B45E00A0     1124STQR2, 160(SP)  B47E00A8     1128STQR3, 168(SP)  B49E00B0     112CSTQR4, 176(SP)  B4BE00B8     1130STQR5, 184(SP)6 B4DE00C0     1134STQR6, 192(SP)7 B4FE00C8     1138STQR7, 200(SP)0 B7BE00D0     113CSTQFP, 208(SP)0 47FE041D     1140MOVSP, FP 47FB0402     1144MOVR27, R2   A402FCE8     1148LDQR0, -792(R2)
      ; 0002686 A00000FE     114CLDLR0, 254(R0)2 48041720     1150SLLR0, 32, R0 48061680     1154SRLR0, 48, R0  F4000002     1158BNER0, lab$0391! B7FD0030     115CSTQR31, var$0037L
 ; R31, 48(FP)  C3E0027E     1160BRlab$0387p       1164lab$0391:   A402FCE8     1164LDQR0, -792(R2)
      ; 000269  A00000FE     1168LDLR0, 254(R0)  48041720     116CSLLR0, 32, R0 48061780     1170SRAR0, 48, R0 40003520     1174SUBQR0, 1, R0  44001C80     1178CMOVLER0, 0, R0  A422FCE8     117CLDQR1, -792(R2)  A20100FE     1180LDLR16, 254(R1)  4A019610     1184ZAPR16, 12, R16 48005360     1188INSWLR0, 2, R01  46000410     118CBISR16, R0, R16  B20100FE     1190STLR16, 254(R1)! A622FCE8     1194LDQR17, -792(R2),
      ; 0002702! A23100FE     1198LDLR17, 254(R17)0  4A241731     119CSLLR17, 32, R17  4A261691     11A0SRLR17, 48, R17! F6200017     11A4BNER17, lab$0393S  2202FFF0     11A8LDAR16, -16(R2)
      ; 000271 ! A622FCE8     11ACLDQR17, -792(R2) ! 22310102     11B0LDAR17, var$01216 ; R17, 258(R17)Q 47E05419     11B4MOV2, R25! A762FCE0     11B8LDQR27, -800(R2)7 D3400846     11BCBSRR26, MOVE6  221D0068     11C0LDAR16, 104(FP)
      ; 000272M                                                  P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 59QQ                                  BEAM                             1-APR-2003 20:34& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   22420028     11C4LDAR18, 40(R2)  47E09411     11C8MOV4, R17! A742FE70     11CCLDQR26, -400(R2)R! 6B5A4000     11D0JSRR26, OTS$MOVE,
 ; R26, R26 201D0068     11D4LDAR0, 104(FP) ! 243F010E     11D8LDAHR1, 270(R31), 20210004     11DCLDAR1, 4(R1)  B03D0070     11E0STLR1, 112(FP)  43E00000     11E4SEXTLR0, R0 B01D0074     11E8STLR0, 116(FP)   221D0070     11ECLDAR16, 112(FP) 47E03419     11F0MOV1, R25! A762FDE0     11F4LDQR27, -544(R2)  D34008D8     11F8BSRR26, SENDA! B7FD0028     11FCSTQR31, var$00386 ; R31, 40(FP)    ; 000273  C3E00256     1200BRlab$0387A       1204lab$0393:0
      ; 0002740  A402FCE8     1204LDQR0, -792(R2) A00000FE     1208LDLR0, 254(R0)C 48041720     120CSLLR0, 32, R0 48061680     1210SRLR0, 48, R0 4402B800     1214XORR0, 21, R0  F400000B     1218BNER0, lab$0408  2202FFE8     121CLDAR16, -24(R2)
      ; 000275 ! A622FCE8     1220LDQR17, -792(R2) ! 22310102     1224LDAR17, var$0121P ; R17, 258(R17)0 47E05419     1228MOV2, R25! A762FCE0     122CLDQR27, -800(R2)1 D3400829     1230BSRR26, MOVEr 22020020     1234LDAR16, 32(R2) 
      ; 000276- 47E03419     1238MOV1, R25! A762FDE0     123CLDQR27, -544(R2)  D34008C6     1240BSRR26, SENDL C3E00033     1244BRlab$03940       1248lab$0408: 
      ; 000277   A402FCE8     1248LDQR0, -792(R2) A00000FE     124CLDLR0, 254(R0)0 48041720     1250SLLR0, 32, R0 48061680     1254SRLR0, 48, R0 4402D800     1258XORR0, 22, R0 2FFE0000     125CUNOP   F4000016     1260BNER0, lab$0437  A422FCE8     1264LDQR1, -792(R2)
      ; 000278L A02100FA     1268LDLR1, 250(R1)6 48241721     126CSLLR1, 32, R1 48261681     1270SRLR1, 48, R1 40207401     1274ADDQR1, 3, R1! A602FCE8     1278LDQR16, -792(R2) ! A2300102     127CLDLR17, var$0121Q ; R17, 258(R16)3 4A207611     1280ZAPR17, 3, R17  48201361     1284INSWLR1, 0, R10  46210411     1288BISR17, R1, R17! B2300102     128CSTLR17, var$01211 ; R17, 258(R16)  22020038     1290LDAR16, 56(R2)1
      ; 000279R! A622FCE8     1294LDQR17, -792(R2) ! 22310102     1298LDAR17, var$0121Q ; R17, 258(R17)0 47E05419     129CMOV2, R25                                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 60 Q                                  BEAM                             1-APR-2003 20:3L& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! A762FCE0     12A0LDQR27, -800(R2), D340080C     12A4BSRR26, MOVEa 22020020     12A8LDAR16, 32(R2) 
      ; 000280- 47E03419     12ACMOV1, R25! A762FDE0     12B0LDQR27, -544(R2)A D34008A9     12B4BSRR26, SEND  C3E00016     12B8BRlab$0394R       12BClab$0437:5
      ; 0002822! A602FCE8     12BCLDQR16, -792(R2)6! 22100100     12C0LDAR16, var$0120  ; R16, 256(R16)6! A622FCE8     12C4LDQR17, -792(R2)6! 22310102     12C8LDAR17, var$0121g ; R17, 258(R17)6 47E05419     12CCMOV2, R25! A762FCE0     12D0LDQR27, -800(R2)7 D3400800     12D4BSRR26, MOVE7  221D0078     12D8LDAR16, 120(FP)
      ; 0002837 22420030     12DCLDAR18, 48(R2)2 47E0B411     12E0MOV5, R17! A742FE70     12E4LDQR26, -400(R2)M! 6B5A4000     12E8JSRR26, OTS$MOVER
 ; R26, R26 201D0078     12ECLDAR0, 120(FP)9! 243F010E     12F0LDAHR1, 270(R31)Q 20210005     12F4LDAR1, 5(R1)8 B03D0080     12F8STLR1, 128(FP)  43E00000     12FCSEXTLR0, R0 B01D0084     1300STLR0, 132(FP))  221D0080     1304LDAR16, 128(FP) 47E03419     1308MOV1, R25! A762FDE0     130CLDQR27, -544(R2), D3400892     1310BSRR26, SEND-       1314lab$0394: 
      ; 0002741  47E6F407     1314MOV55, var$0039 ; 55, R7    ; 000287 47E03400     1318MOV1, R02  A422FE08     131CLDQR1, -504(R2) B4010090     1320STQR0, I1
 ; R0, 144(R1)        1324lab$0450: ! A602FE08     1324LDQR16, -504(R2)Q
      ; 000289- A6100090     1328LDQR16, I ; R16, 144(R16)   4A061730     132CSLLR16, 48, R16  4A061790     1330SRAR16, 48, R16  4E005410     1334MULQR16, 2, R16! A622FCE8     1338LDQR17, -792(R2) " 42300411     133CADDQR17, R16, R17! 2231008C     1340LDAR17, 140(R17) " 2E51FFFF     1344LDQ_UR18, -1(R17)# 4A510F52     1348EXTQHR18, R17, R182  4A461790     134CSRAR18, 48, R16  42007410     1350ADDQR16, 3, R16! A662FCE8     1354LDQR19, -792(R2),! A2730102     1358LDLR19, var$01210 ; R19, 258(R19)C  4A661733     135CSLLR19, 48, R19  4A661793     1360SRAR19, 48, R19# 421309B0     1364CMPLTR16, R19, R162 F6000023     1368BNER16, .10! A682FE08     136CLDQR20, -504(R2)0
      ; 0002882 A6940090     1370LDQR20, I ; R20, 144(R20)o  4A861734     1374SLLR20, 48, R20                                        P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 61 Q                                  BEAM                             1-APR-2003 20:35& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    4A861794     1378SRAR20, 48, R20  4E805414     137CMULQR20, 2, R20! A6A2FCE8     1380LDQR21, -792(R2)3" 42B40415     1384ADDQR21, R20, R21  22B5001C     1388LDAR21, 28(R21)  2ED50000     138CLDQ_UR22, (R21)# 4AD502D4     1390EXTWLR22, R21, R20, 4A801694     1394SRLR20, 0, R20 ! A6E2FCE8     1398LDQR23, -792(R2)Q! A2F700FE     139CLDLR23, 254(R23)   4AE41737     13A0SLLR23, 32, R23  4AE61697     13A4SRLR23, 48, R23# 429705B4     13A8CMPEQR20, R23, R20L! A702FE08     13ACLDQR24, -504(R2)P A7180090     13B0LDQR24, I ; R24, 144(R24)o  4B061738     13B4SLLR24, 48, R24  4B061798     13B8SRAR24, 48, R24  4F005418     13BCMULQR24, 2, R24! A722FCE8     13C0LDQR25, -792(R2)E" 43380419     13C4ADDQR25, R24, R25! 2339008C     13C8LDAR25, 140(R25) " 2F59FFFF     13CCLDQ_UR26, -1(R25)# 4B590F5A     13D0EXTQHR26, R25, R268  4B461798     13D4SRAR26, 48, R24  43003418     13D8ADDQR24, 1, R24! A762FCE8     13DCLDQR27, -792(R2) ! A37B0102     13E0LDLR27, var$01213 ; R27, 258(R27)D  4B66173B     13E4SLLR27, 48, R27  4B66179B     13E8SRAR27, 48, R27# 431B0DB8     13ECCMPLER24, R27, R240! 46980014     13F0ANDR20, R24, R20)! F6800009     13F4BNER20, lab$0453D
      ; 000289L       13F8.10:
      ; 000304A! 47FF0406     13F8MOVR31, var$0041,	 ; R31, R6F  A402FE08     13FCLDQR0, -504(R2)
      ; 0002872 A4000090     1400LDQR0, IL
 ; R0, 144(R0)  40003400     1404ADDQR0, 1, R0  A422FE08     1408LDQR1, -504(R2) B4010090     140CSTQR0, I 
 ; R0, 144(R1) * 40E03527     1410SUBQvar$0039, 1, var$0039 ; R7, 1, R7 & FCFFFFC3     1414BGTvar$0039, lab$0450 ; R7, lab$0450 C3E00072     1418BRlab$0452-       141Clab$0453: 
      ; 000291S! A622FCE8     141CLDQR17, -792(R2)B  A2B1FFFA     1420LDLR21, -6(R17)  4AA41735     1424SLLR21, 32, R21  4AA61695     1428SRLR21, 48, R21! A642FE08     142CLDQR18, -504(R2)0 A6520090     1430LDQR18, I ; R18, 144(R18)   4A461732     1434SLLR18, 48, R18  4A461790     1438SRAR18, 48, R16 47E2D411     143CMOV22, R17L! A742FE30     1440LDQR26, -464(R2)1! A762FE38     1444LDQR27, -456(R2)6" 6B5A4000     1448JSRR26, OTS$DIV_L
 ; R26, R26  42A00400     144CADDQR21, R0, R0 40003400     1450ADDQR0, 1, R0                                          P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 625Q                                  BEAM                             1-APR-2003 20:3A& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! A6C2FCE8     1454LDQR22, -792(R2)6  A2F6FFFA     1458LDLR23, -6(R22)  4AE19617     145CZAPR23, 12, R23 48005360     1460INSWLR0, 2, R08  46E00417     1464BISR23, R0, R23  B2F6FFFA     1468STLR23, -6(R22)! 2202FCD0     146CLDAR16, -816(R2) 
      ; 0002922 2222FFF8     1470LDAR17, -8(R2)6 47E05419     1474MOV2, R25! A762FCE0     1478LDQR27, -800(R2)2 D3400796     147CBSRR26, MOVEB! A602FCE8     1480LDQR16, -792(R2) 
      ; 0002930! 2210FFFC     1484LDAR16, var$0102$ ; R16, -4(R16) 47E03419     1488MOV1, R25! A762FDD8     148CLDQR27, -552(R2) ! D340085A     1490BSRR26, SEND_INTA  221D0068     1494LDAR16, 104(FP)
      ; 000294S  2242FFE0     1498LDAR18, -32(R2) 47E03411     149CMOV1, R17! A742FE70     14A0LDQR26, -400(R2)R! 6B5A4000     14A4JSRR26, OTS$MOVER
 ; R26, R26 201D0068     14A8LDAR0, 104(FP)7! 243F010E     14ACLDAHR1, 270(R31)  20210001     14B0LDAR1, 1(R1)7 B03D0070     14B4STLR1, 112(FP)  43E00000     14B8SEXTLR0, R0 B01D0074     14BCSTLR0, 116(FP)r  221D0070     14C0LDAR16, 112(FP) 47E03419     14C4MOV1, R25! A762FDE0     14C8LDQR27, -544(R2)6 D3400823     14CCBSRR26, SEND   A402FCE8     14D0LDQR0, -792(R2)
      ; 000295  A00000FE     14D4LDLR0, 254(R0)2 48041720     14D8SLLR0, 32, R0 48061680     14DCSRLR0, 48, R0 40003400     14E0ADDQR0, 1, R0  A21D0078     14E4LDLR16, 120(FP) 4A007610     14E8ZAPR16, 3, R16  48001360     14ECINSWLR0, 0, R0   46000410     14F0BISR16, R0, R16  B21D0078     14F4STLR16, 120(FP)  221D0078     14F8LDAR16, 120(FP)! A622FCE8     14FCLDQR17, -792(R2)P! 22310102     1500LDAR17, var$0121S ; R17, 258(R17)  47E05419     1504MOV2, R25! A762FCE0     1508LDQR27, -800(R2)v D3400772     150CBSRR26, MOVE1! 2202FE28     1510LDAR16, -472(R2) 
      ; 000296D 47E03419     1514MOV1, R25! A762FDE0     1518LDQR27, -544(R2)4 D340080F     151CBSRR26, SEND4  A402FE08     1520LDQR0, -504(R2)
      ; 000297L A4000090     1524LDQR0, I 
 ; R0, 144(R0)( 48061720     1528SLLR0, 48, R0 48061780     152CSRAR0, 48, R0 4C005400     1530MULQR0, 2, R0! A782FCE8     1534LDQR28, -792(R2)R                                                P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 63)Q                                  BEAM                             1-APR-2003 20:3M& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    43800400     1538ADDQR28, R0, R0 2200001C     153CLDAR16, 28(R0)0  A422FE08     1540LDQR1, -504(R2) A4210090     1544LDQR1, IA
 ; R1, 144(R1)e 48261721     1548SLLR1, 48, R1 48261781     154CSRAR1, 48, R1 4C205401     1550MULQR1, 2, R1! A782FCE8     1554LDQR28, -792(R2)J  43810401     1558ADDQR28, R1, R1  2221008A     155CLDAR17, 138(R1) 47E05419     1560MOV2, R25! A762FCE0     1564LDQR27, -800(R2)0 D340075B     1568BSRR26, MOVE2 22020054     156CLDAR16, 84(R2)2
      ; 000298; 47E03419     1570MOV1, R25! A762FE10     1574LDQR27, -496(R2)0 D34007A3     1578BSRR26, DS_OBJ,  A402FCE8     157CLDQR0, -792(R2)
      ; 000299  A02000FE     1580LDLR1, 254(R0)X 48219601     1584ZAPR1, 12, R1 B02000FE     1588STLR1, 254(R0)A! A602FE08     158CLDQR16, -504(R2)1
      ; 0003001 A6100090     1590LDQR16, I ; R16, 144(R16)7  4A061730     1594SLLR16, 48, R16  4A061790     1598SRAR16, 48, R16  4E005410     159CMULQR16, 2, R16! A622FCE8     15A0LDQR17, -792(R2)," 42300411     15A4ADDQR17, R16, R17  2231001C     15A8LDAR17, 28(R17)  2E510000     15ACLDQ_UR18, (R17)# 4A510252     15B0MSKWLR18, R17, R180  3E510000     15B4STQ_UR18, (R17)! A662FCE8     15B8LDQR19, -792(R2)1
      ; 0003011  22730016     15BCLDAR19, 22(R19)# 2E930000     15C0LDQ_UR20, var$0112, ; R20, (R19)( 4A9302D5     15C4EXTWLR20, var$0112, R21 ; R20, R19, R21 ( 4A930254     15C8MSKWLR20, var$0112, R20 ; R20, R19, R20   42A03535     15CCSUBQR21, 1, R21( 4AB30375     15D0INSWLR21, var$0112, R21 ; R21, R19, R21 ! 46950414     15D4BISR20, R21, R20:# 3E930000     15D8STQ_UR20, var$0112F ; R20, (R19)! B7FD0020     15DCSTQR31, var$00404 ; R31, 32(FP)    ; 0003020 C3E0015E     15E0BRlab$03871       15E4lab$0452: 
      ; 000287T 47E09405     15E4MOV4, var$0042  ; 4, R5    ; 0003073 47E03416     15E8MOV1, R22! A6E2FE08     15ECLDQR23, -504(R2)L B6D70090     15F0STQR22, I ; R22, 144(R23)R       15F4lab$0499:J! A702FCE8     15F4LDQR24, -792(R2)2
      ; 000308Q! A3180102     15F8LDLR24, var$01210 ; R24, 258(R24)   4B061738     15FCSLLR24, 48, R24  4B061698     1600SRLR24, 48, R24! A722FE08     1604LDQR25, -504(R2)( A7390090     1608LDQR25, I ; R25, 144(R25)0  4B261739     160CSLLR25, 48, R25  4B261799     1610SRAR25, 48, R25                                P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 64 Q                                  BEAM                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    4F205419     1614MULQR25, 2, R25! A742FCE8     1618LDQR26, -792(R2);" 4359041A     161CADDQR26, R25, R26! 235A010A     1620LDAR26, 266(R26)   2F7A0000     1624LDQ_UR27, (R26)# 4B7A02D9     1628EXTWLR27, R26, R251 4B201699     162CSRLR25, 0, R25 # 431905B8     1630CMPEQR24, R25, R246  A402FE08     1634LDQR0, -504(R2) A4000090     1638LDQR0, I1
 ; R0, 144(R0)  48061720     163CSLLR0, 48, R0 48061780     1640SRAR0, 48, R0 4C005400     1644MULQR0, 2, R0  A422FCE8     1648LDQR1, -792(R2) 40200401     164CADDQR1, R0, R13 20210102     1650LDAR1, 258(R1)B 2E010000     1654LDQ_UR16, (R1)C! 4A0102C0     1658EXTWLR16, R1, R00 48001680     165CSRLR0, 0, R04 400015A0     1660CMPEQR0, 0, R0 ! 44180500     1664ORNOTR0, R24, R0L! E0000002     1668BLBCR0, lab$0504Q! 47FF0404     166CMOVR31, var$00432	 ; R31, R4P C3E00024     1670BR.20       1674lab$0504:0! A622FCE8     1674LDQR17, -792(R2)R
      ; 000309 ! A23100FE     1678LDLR17, 254(R17)M  4A241731     167CSLLR17, 32, R17  4A261691     1680SRLR17, 48, R17! A642FE08     1684LDQR18, -504(R2)D A6520090     1688LDQR18, I ; R18, 144(R18)   4A461732     168CSLLR18, 48, R18  4A461792     1690SRAR18, 48, R18  4E405412     1694MULQR18, 2, R18! A662FCE8     1698LDQR19, -792(R2)D" 42720413     169CADDQR19, R18, R19! 22730102     16A0LDAR19, 258(R19)   2E930000     16A4LDQ_UR20, (R19)# 4A9302D2     16A8EXTWLR20, R19, R18  4A401692     16ACSRLR18, 0, R18 # 423205B1     16B0CMPEQR17, R18, R177! A6A2FCE8     16B4LDQR21, -792(R2) ! A2B500FE     16B8LDLR21, 254(R21)   4AA41735     16BCSLLR21, 32, R21  4AA61795     16C0SRAR21, 48, R21  42A03535     16C4SUBQR21, 1, R21! A6C2FE08     16C8LDQR22, -504(R2)B A6D60090     16CCLDQR22, I ; R22, 144(R22)L  4AC61736     16D0SLLR22, 48, R22  4AC61796     16D4SRAR22, 48, R22  4EC05416     16D8MULQR22, 2, R22! A6E2FCE8     16DCLDQR23, -792(R2) " 42F60417     16E0ADDQR23, R22, R23! 22F70104     16E4LDAR23, 260(R23)D" 2F57FFFF     16E8LDQ_UR26, -1(R23)# 4B570F5A     16ECEXTQHR26, R23, R261  4B461796     16F0SRAR26, 48, R22          P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 653Q                                  BEAM                             1-APR-2003 20:3)& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  # 42B605B5     16F4CMPEQR21, R22, R210! 46350411     16F8BISR17, R21, R17U 2FFE0000     16FCUNOPB! F6200009     1700BNER17, lab$0508Q       1704.20:
      ; 0003190! 47FF0403     1704MOVR31, var$00454	 ; R31, R39! A762FE08     1708LDQR27, -504(R2)A
      ; 0003070 A77B0090     170CLDQR27, I ; R27, 144(R27)A  4360341B     1710ADDQR27, 1, R27! A722FE08     1714LDQR25, -504(R2), B7790090     1718STQR27, I ; R27, 144(R25) * 40A03525     171CSUBQvar$0042, 1, var$0042 ; R5, 1, R50& FCBFFFB4     1720BGTvar$0042, lab$0499 ; R5, lab$0499 C3E0004B     1724BRlab$0501S       1728lab$0508:1
      ; 000310 ! A602FCE8     1728LDQR16, -792(R2)C! 22100100     172CLDAR16, var$0120  ; R16, 256(R16)L! A622FCE8     1730LDQR17, -792(R2)S! 22310102     1734LDAR17, var$0121A ; R17, 258(R17)9 47E05419     1738MOV2, R25! A762FCE0     173CLDQR27, -800(R2)6 D34006E5     1740BSRR26, MOVE2  221D0068     1744LDAR16, 104(FP)
      ; 000311L 22420028     1748LDAR18, 40(R2)2 47E09411     174CMOV4, R17! A742FE70     1750LDQR26, -400(R2)(! 6B5A4000     1754JSRR26, OTS$MOVE 
 ; R26, R26 201D0068     1758LDAR0, 104(FP)2! 243F010E     175CLDAHR1, 270(R31)  20210004     1760LDAR1, 4(R1)F B03D0070     1764STLR1, 112(FP)  43E00000     1768SEXTLR0, R0 B01D0074     176CSTLR0, 116(FP)   221D0070     1770LDAR16, 112(FP) 47E03419     1774MOV1, R25! A762FDE0     1778LDQR27, -544(R2)e D3400777     177CBSRR26, SEND   A402FCE8     1780LDQR0, -792(R2)
      ; 0003123 A02000FE     1784LDLR1, 254(R0)] 48219601     1788ZAPR1, 12, R1 B02000FE     178CSTLR1, 254(R0)0! A602FE08     1790LDQR16, -504(R2)L
      ; 000313  A6100090     1794LDQR16, I ; R16, 144(R16)6  4A061730     1798SLLR16, 48, R16  4A061790     179CSRAR16, 48, R16  4E005410     17A0MULQR16, 2, R16! A782FCE8     17A4LDQR28, -792(R2)0" 43900410     17A8ADDQR28, R16, R16! 22100102     17ACLDAR16, 258(R16)L! A622FCE8     17B0LDQR17, -792(R2)2! 22310102     17B4LDAR17, var$0121A ; R17, 258(R17)L 47E05419     17B8MOV2, R25! A762FCE0     17BCLDQR27, -800(R2)3 D34006C5     17C0BSRR26, MOVE   221D0078     17C4LDAR16, 120(FP)
      ; 0003142  2242FFC8     17C8LDAR18, -56(R2) 47E05411     17CCMOV2, R17                                  P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 66,Q                                  BEAM                             1-APR-2003 20:3$& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! A742FE70     17D0LDQR26, -400(R2)L! 6B5A4000     17D4JSRR26, OTS$MOVE5
 ; R26, R26 201D0078     17D8LDAR0, 120(FP)6! 243F010E     17DCLDAHR1, 270(R31)6 20210002     17E0LDAR1, 2(R1)  B03D0080     17E4STLR1, 128(FP)2 43E00000     17E8SEXTLR0, R0 B01D0084     17ECSTLR0, 132(FP),  221D0080     17F0LDAR16, 128(FP) 47E03419     17F4MOV1, R25! A762FDE0     17F8LDQR27, -544(R2)  D3400757     17FCBSRR26, SEND8  A402FCE8     1800LDQR0, -792(R2)
      ; 0003150" 2C200018     1804LDQ_UR1, var$0113 ; R1, 24(R0)' 482002D0     1808EXTWLR1, var$0113, R16 
 ; R1, R0, R169& 48200241     180CMSKWLR1, var$0113, R1 ; R1, R0, R1  42003530     1810SUBQR16, 1, R16( 4A000370     1814INSWLR16, var$0113, R16 ; R16, R0, R16 44300401     1818BISR1, R16, R1b" 3C200018     181CSTQ_UR1, var$0113 ; R1, 24(R0)! A622FE08     1820LDQR17, -504(R2)0
      ; 0003161 A6310090     1824LDQR17, I ; R17, 144(R17)1  4A261731     1828SLLR17, 48, R17  4A261791     182CSRAR17, 48, R17  4E205411     1830MULQR17, 2, R17! A642FCE8     1834LDQR18, -792(R2)1" 42510412     1838ADDQR18, R17, R18! 22520102     183CLDAR18, 258(R18)   2E720000     1840LDQ_UR19, (R18)# 4A720253     1844MSKWLR19, R18, R19)  3E720000     1848STQ_UR19, (R18)! B7FD0018     184CSTQR31, var$0044  ; R31, 24(FP)    ; 000317  C3E000C2     1850BRlab$0387o       1854lab$0501:8
      ; 0003075! A682FCE8     1854LDQR20, -792(R2) 
      ; 000322 ! A29400FE     1858LDLR20, 254(R20)   4A841734     185CSLLR20, 32, R20  4A861794     1860SRAR20, 48, R20" 428279B4     1864CMPLTR20, 19, R20! A6A2FCE8     1868LDQR21, -792(R2) ! A2B500FE     186CLDLR21, 254(R21)-  4AA41735     1870SLLR21, 32, R21  4AA61795     1874SRAR21, 48, R21" 42A2DDB5     1878CMPLER21, 22, R21! 46B40114     187CBICR21, R20, R204" E2800056     1880BLBCR20, lab$0534! A6C2FCE8     1884LDQR22, -792(R2),
      ; 000323 ! A2D600FE     1888LDLR22, 254(R22)S  4AC41736     188CSLLR22, 32, R22  4AC61796     1890SRAR22, 48, R22! 4ECA1416     1894MULQR22, 80, R22P$ 22D6FA60     1898ADDQR22, -1440, R22! A6E2FCE8     189CLDQR23, -792(R2)7! A2F70102     18A0LDLR23, var$01210 ; R23, 258(R23)   4AE61737     18A4SLLR23, 48, R23  4AE61797     18A8SRAR23, 48, R23! A702FCE8     18ACLDQR24, -792(R2)                                         P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 67 Q                                  BEAM                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! A3180102     18B0LDLR24, var$0121  ; R24, 258(R24)S  4B061738     18B4SLLR24, 48, R24  4B061798     18B8SRAR24, 48, R24" 43170538     18BCSUBQR24, R23, R24  43003418     18C0ADDQR24, 1, R24" 47001C98     18C4CMOVLER24, 0, R24" 42D70410     18C8ADDQR22, R23, R16 47E03413     18CCMOV1, R19! A782FE40     18D0LDQR28, -448(R2)5" 43900410     18D4ADDQR28, R16, R16 47F80411     18D8MOVR24, R17! 2242FE28     18DCLDAR18, -472(R2)S 47E41414     18E0MOV32, R206 A7420058     18E4LDQR26, 88(R2)6( 6B5A4000     18E8JSRR26, OTS$STRCMP_EQLP
 ; R26, R26 2FFE0000     18ECUNOP7  F400003A     18F0BNER0, lab$0534! A602FCE8     18F4LDQR16, -792(R2)R
      ; 000324 ! 22100100     18F8LDAR16, var$0120  ; R16, 256(R16)F! A622FCE8     18FCLDQR17, -792(R2)0! 22310102     1900LDAR17, var$0121R ; R17, 258(R17)0 47E05419     1904MOV2, R25! A762FCE0     1908LDQR27, -800(R2)  D3400672     190CBSRR26, MOVE   221D0088     1910LDAR16, 136(FP)
      ; 000325   2242FFD0     1914LDAR18, -48(R2) 47E0B411     1918MOV5, R17! A742FE70     191CLDQR26, -400(R2) ! 6B5A4000     1920JSRR26, OTS$MOVE 
 ; R26, R26 201D0088     1924LDAR0, 136(FP)P! 243F010E     1928LDAHR1, 270(R31)2 20210005     192CLDAR1, 5(R1)2 B03D0090     1930STLR1, 144(FP)1 43E00000     1934SEXTLR0, R0 B01D0094     1938STLR0, 148(FP)1  221D0090     193CLDAR16, 144(FP) 47E03419     1940MOV1, R25! A762FDE0     1944LDQR27, -544(R2)L D3400704     1948BSRR26, SEND0  A402FCE8     194CLDQR0, -792(R2)
      ; 000326  A00000FE     1950LDLR0, 254(R0)  48041720     1954SLLR0, 32, R0 48061780     1958SRAR0, 48, R0 4C0A1400     195CMULQR0, 80, R0A# 2200FA60     1960ADDQR0, -1440, R166  A422FCE8     1964LDQR1, -792(R2)  A0210102     1968LDLR1, var$0121
 ; R1, 258(R1), 48261721     196CSLLR1, 48, R1 48261781     1970SRAR1, 48, R1! A622FCE8     1974LDQR17, -792(R2),! A2310102     1978LDLR17, var$0121- ; R17, 258(R17)0  4A261731     197CSLLR17, 48, R17  4A261791     1980SRAR17, 48, R17! 42210531     1984SUBQR17, R1, R17   42203411     1988ADDQR17, 1, R17" 46201C91     198CCMOVLER17, 0, R17! A782FE40     1990LDQR28, -448(R2)R                                                P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 68LQ                                  BEAM                             1-APR-2003 20:31& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  " 43900410     1994ADDQR28, R16, R16 47E10414     1998MOVR1, R20 " 42140410     199CADDQR16, R20, R16! 2242FE28     19A0LDAR18, -472(R2)3 47E03413     19A4MOV1, R19 A7420040     19A8LDQR26, 64(R2)  2FFE0000     19ACUNOP " 6B5A4000     19B0JSRR26, OTS$MOVEM
 ; R26, R26 47E41412     19B4MOV32, R180  A742FFD8     19B8LDQR26, -40(R2) 2FFE0000     19BCUNOP ! 6B5A4000     19C0JSRR26, OTS$FILL0
 ; R26, R26! A6C2FCE8     19C4LDQR22, -792(R2)I
      ; 0003270! A2F600FE     19C8LDLR23, 254(R22)8  4AE19617     19CCZAPR23, 12, R23! B2F600FE     19D0STLR23, 254(R22)(! B7FD0010     19D4STQR31, var$0046R ; R31, 16(FP)    ; 000328, C3E00060     19D8BRlab$03876       19DClab$0534:,
      ; 0003242! A702FCE8     19DCLDQR24, -792(R2)4
      ; 000332L! A3180116     19E0LDLR24, var$0125  ; R24, 278(R24)   4B061738     19E4SLLR24, 48, R24  4B061698     19E8SRLR24, 48, R24! A722FCE8     19ECLDQR25, -792(R2)6! A3390116     19F0LDLR25, 278(R25)2  4B241739     19F4SLLR25, 32, R25  4B261699     19F8SRLR25, 48, R25" 43190538     19FCSUBQR24, R25, R24  A402FE08     1A00LDQR0, -504(R2) B7000090     1A04STQR24, I ; R24, 144(R0)  A422FCE8     1A08LDQR1, -792(R2)
      ; 000334L  A0210102     1A0CLDLR1, var$0121
 ; R1, 258(R1)F 48261721     1A10SLLR1, 48, R1 48261781     1A14SRAR1, 48, R1! A6A2FE08     1A18LDQR21, -504(R2)  A6B50090     1A1CLDQR21, I ; R21, 144(R21)]  4AA61735     1A20SLLR21, 48, R21  4AA61795     1A24SRAR21, 48, R21  42A0F415     1A28ADDQR21, 7, R21! 403509A1     1A2CCMPLTR1, R21, R13  E4200049     1A30BEQR1, lab$0549! A602FCE8     1A34LDQR16, -792(R2)0
      ; 000333F! A2100116     1A38LDLR16, 278(R16)6  4A041730     1A3CSLLR16, 32, R16  4A061690     1A40SRLR16, 48, R16$ 43F003B0     1A44CMPULTR31, R16, R16! A622FCE8     1A48LDQR17, -792(R2)2! A23100FE     1A4CLDLR17, 254(R17)   4A241731     1A50SLLR17, 32, R17  4A261691     1A54SRLR17, 48, R17! 422035B1     1A58CMPEQR17, 1, R17 ! 46110010     1A5CANDR16, R17, R160! A642FCE8     1A60LDQR18, -792(R2) ! A2520102     1A64LDLR18, var$01218 ; R18, 258(R18)0  4A461732     1A68SLLR18, 48, R18! A662FE08     1A6CLDQR19, -504(R2)0 A6730090     1A70LDQR19, I ; R19, 144(R19),                                        P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 690Q                                  BEAM                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    4A661733     1A74SLLR19, 48, R19# 427209B2     1A78CMPLTR19, R18, R18(! 46120010     1A7CANDR16, R18, R160! E6000035     1A80BEQR16, lab$05496
      ; 000334L  2202FFF0     1A84LDAR16, -16(R2)
      ; 000336O! A622FE08     1A88LDQR17, -504(R2)X 22310090     1A8CLDAR17, I ; R17, 144(R17)b 47E05419     1A90MOV2, R25! A762FCE0     1A94LDQR27, -800(R2)0 D340060F     1A98BSRR26, MOVEv  221D0068     1A9CLDAR16, 104(FP)
      ; 000337  22420048     1AA0LDAR18, 72(R2)3 47E13411     1AA4MOV9, R17! A742FE70     1AA8LDQR26, -400(R2); 2FFE0000     1AACUNOP0! 6B5A4000     1AB0JSRR26, OTS$MOVE6
 ; R26, R26 201D0068     1AB4LDAR0, 104(FP) ! 243F010E     1AB8LDAHR1, 270(R31)2 20210009     1ABCLDAR1, 9(R1)0 B03D0078     1AC0STLR1, 120(FP)l 43E00000     1AC4SEXTLR0, R0 B01D007C     1AC8STLR0, 124(FP)   221D0078     1ACCLDAR16, 120(FP) 47E03419     1AD0MOV1, R25! A762FDE0     1AD4LDQR27, -544(R2)0 D34006A0     1AD8BSRR26, SEND   A402FCE8     1ADCLDQR0, -792(R2)
      ; 000338  A0200116     1AE0LDLR1, 278(R0)  48219601     1AE4ZAPR1, 12, R1 B0200116     1AE8STLR1, 278(R0) ! A602FCE8     1AECLDQR16, -792(R2) 
      ; 0003395! A2100112     1AF0LDLR16, 274(R16)   4A041730     1AF4SLLR16, 32, R16  4A061790     1AF8SRAR16, 48, R16 47E07411     1AFCMOV3, R17! A742FE30     1B00LDQR26, -464(R2)1! A762FE38     1B04LDQR27, -456(R2)n" 6B5A4000     1B08JSRR26, OTS$DIV_L
 ; R26, R26! A682FCE8     1B0CLDQR20, -792(R2)   2294FFFC     1B10LDAR20, -4(R20)# 2EB40000     1B14LDQ_UR21, var$0102  ; R21, (R20)( 4AB402D6     1B18EXTWLR21, var$0102, R22 ; R21, R20, R229( 4AB40255     1B1CMSKWLR21, var$0102, R21 ; R21, R20, R21F! 42C00416     1B20ADDQR22, R0, R220( 4AD40376     1B24INSWLR22, var$0102, R22 ; R22, R20, R22R! 46B60415     1B28BISR21, R22, R210# 3EB40000     1B2CSTQ_UR21, var$01022 ; R21, (R20)! 2202FCD0     1B30LDAR16, -816(R2) 
      ; 0003401 2222FFF8     1B34LDAR17, -8(R2)7 47E05419     1B38MOV2, R25! A762FCE0     1B3CLDQR27, -800(R2)) D34005E5     1B40BSRR26, MOVE0! A602FCE8     1B44LDQR16, -792(R2),
      ; 0003414! 2210FFFC     1B48LDAR16, var$01020 ; R16, -4(R16) 47E03419     1B4CMOV1, R25! A762FDD8     1B50LDQR27, -552(R2)9! D34006A9     1B54BSRR26, SEND_INT,                                    P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 70 Q                                  BEAM                             1-APR-2003 20:3B& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1         1B58lab$0549:0
      ; 0003367! B7FD0008     1B58STQR31, var$00472 ; R31, 8(FP)    ; 000343       1B5Clab$0387:U
      ; 000344  47FD041E     1B5CMOVFP, SP  A75D0098     1B60LDQR26, 152(FP) A45D00A0     1B64LDQR2, 160(FP)  A47D00A8     1B68LDQR3, 168(FP)  A49D00B0     1B6CLDQR4, 176(FP)  A4BD00B8     1B70LDQR5, 184(FP)0 A4DD00C0     1B74LDQR6, 192(FP)0 A4FD00C8     1B78LDQR7, 200(FP)E A7BD00D0     1B7CLDQFP, 208(FP)M 23DE00E0     1B80LDASP, 224(SP), 6BFA8001     1B84RETR26Q  8 Routine Size: 2672 bytes,    Routine Base: $CODE$ + 1118         1B88BOMB::  23DEFF60     1B88LDASP, -160(SP) B77E0000     1B8CSTQR27, (SP)L  B75E0080     1B90STQR26, 128(SP) B45E0088     1B94STQR2, 136(SP)6 B47E0090     1B98STQR3, 144(SP)  B7BE0098     1B9CSTQFP, 152(SP)L 47FE041D     1BA0MOVSP, FP 47FB0402     1BA4MOVR27, R21  A402FC88     1BA8LDQR0, -888(R2)
      ; 0003612 A0000016     1BACLDLR0, 22(R0) 48041720     1BB0SLLR0, 32, R0 48061680     1BB4SRLR0, 48, R0 F4000002     1BB8BNER0, .10 ! B7FD0018     1BBCSTQR31, var$0049 
 ; R31, 24(FP)R C3E001D3     1BC0BRlab$0574r       1BC4.10:
      ; 000362   A402FC88     1BC4LDQR0, -888(R2) 20000014     1BC8LDAR0, 20(R0)" 2C200000     1BCCLDQ_UR1, var$0111
 ; R1, (R0)' 482002D0     1BD0EXTWLR1, var$0111, R16$
 ; R1, R0, R16)& 48200241     1BD4MSKWLR1, var$0111, R1 ; R1, R0, R1  42003410     1BD8ADDQR16, 1, R16( 4A000370     1BDCINSWLR16, var$0111, R16 ; R16, R0, R16 44300401     1BE0BISR1, R16, R1r" 3C200000     1BE4STQ_UR1, var$0111
 ; R1, (R0)! A622FC88     1BE8LDQR17, -888(R2)U
      ; 000363   A2310012     1BECLDLR17, 18(R17)  4A241731     1BF0SLLR17, 32, R17  4A261791     1BF4SRAR17, 48, R17! 42209DB1     1BF8CMPLER17, 4, R177 2FFE0000     1BFCUNOPR! F6200007     1C00BNER17, lab$05818 47E03400     1C04MOV1, R0   A422FC88     1C08LDQR1, -888(R2) A2010012     1C0CLDLR16, 18(R1)   4A019610     1C10ZAPR16, 12, R16 48005360     1C14INSWLR0, 2, R0,  46000410     1C18BISR16, R0, R16 B2010012     1C1CSTLR16, 18(R1),                                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 710Q                                  BOMB                             1-APR-2003 20:31& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1         1C20lab$0581: ! A622FC88     1C20LDQR17, -888(R2);
      ; 000364D  A2310012     1C24LDLR17, 18(R17)  4A241731     1C28SLLR17, 32, R17  4A261791     1C2CSRAR17, 48, R17  4E205411     1C30MULQR17, 2, R17  A402FC88     1C34LDQR0, -888(R2)  40110400     1C38ADDQR0, R17, R0 20000102     1C3CLDAR0, 258(R0)6 2C200000     1C40LDQ_UR1, (R0)  482002C0     1C44EXTWLR1, R0, R0 48001680     1C48SRLR0, 0, R0  2FFE0000     1C4CUNOPA  F4000002     1C50BNER0, lab$0584! 47FF0403     1C54MOVR31, var$00506	 ; R31, R31 C3FFFFDA     1C58BR.10       1C5Clab$0584:0! A602FC88     1C5CLDQR16, -888(R2)2
      ; 000367,  A2100012     1C60LDLR16, 18(R16)  4A041730     1C64SLLR16, 32, R16  4A061790     1C68SRAR16, 48, R16  4E005410     1C6CMULQR16, 2, R16  A422FC88     1C70LDQR1, -888(R2) A0210012     1C74LDLR1, 18(R1) 48241721     1C78SLLR1, 32, R1 48261781     1C7CSRAR1, 48, R1 4C205401     1C80MULQR1, 2, R1! A622FC88     1C84LDQR17, -888(R2),! 42210411     1C88ADDQR17, R1, R17(! 22310102     1C8CLDAR17, 258(R17)( 2C110000     1C90LDQ_UR0, (R17)2! 481102C0     1C94EXTWLR0, R17, R0F 48001680     1C98SRLR0, 0, R0Q 40003400     1C9CADDQR0, 1, R0! A642FC88     1CA0LDQR18, -888(R2) " 42500412     1CA4ADDQR18, R16, R18! 22520102     1CA8LDAR18, 258(R18)o  2E720000     1CACLDQ_UR19, (R18)" 48120374     1CB0INSWLR0, R18, R20# 4A720253     1CB4MSKWLR19, R18, R19 ! 46740413     1CB8BISR19, R20, R19:  3E720000     1CBCSTQ_UR19, (R18)  A422FC88     1CC0LDQR1, -888(R2)
      ; 000368v A0210012     1CC4LDLR1, 18(R1) 48241721     1CC8SLLR1, 32, R1 48261781     1CCCSRAR1, 48, R1 4C205401     1CD0MULQR1, 2, R1! A622FC88     1CD4LDQR17, -888(R2)F! 42210411     1CD8ADDQR17, R1, R17 ! 22310102     1CDCLDAR17, 258(R17)A 2C110000     1CE0LDQ_UR0, (R17)i! 481102C0     1CE4EXTWLR0, R17, R0D 48001680     1CE8SRLR0, 0, R0  4402F800     1CECXORR0, 23, R0  F4000069     1CF0BNER0, lab$0587! A602FC88     1CF4LDQR16, -888(R2)4
      ; 000369S  A2100012     1CF8LDLR16, 18(R16)          P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 72 Q                                  BOMB                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    4A041730     1CFCSLLR16, 32, R16  4A061790     1D00SRAR16, 48, R16  4E005410     1D04MULQR16, 2, R16! A642FC88     1D08LDQR18, -888(R2)1" 42500412     1D0CADDQR18, R16, R18! 2252010C     1D10LDAR18, 268(R18) " 2E72FFFF     1D14LDQ_UR19, -1(R18)# 4A720F53     1D18EXTQHR19, R18, R190  4A661790     1D1CSRAR19, 48, R16! A682FC88     1D20LDQR20, -888(R2)0! A29400FA     1D24LDLR20, 250(R20)   4A841734     1D28SLLR20, 32, R20  4A861794     1D2CSRAR20, 48, R20# 429009B0     1D30CMPLTR20, R16, R16Q  A422FC88     1D34LDQR1, -888(R2)
      ; 000370A A0210012     1D38LDLR1, 18(R1) 48241721     1D3CSLLR1, 32, R1 48261781     1D40SRAR1, 48, R1 4C205401     1D44MULQR1, 2, R1! A622FC88     1D48LDQR17, -888(R2)(! 42210411     1D4CADDQR17, R1, R171! 2231010C     1D50LDAR17, 268(R17)1! 2C11FFFF     1D54LDQ_UR0, -1(R17)A! 48110F40     1D58EXTQHR0, R17, R0B 48061780     1D5CSRAR0, 48, R0! A642FC88     1D60LDQR18, -888(R2) ! A25200FA     1D64LDLR18, 250(R18)   4A441732     1D68SLLR18, 32, R18  4A461792     1D6CSRAR18, 48, R18  4240B412     1D70ADDQR18, 5, R18! 40120DA0     1D74CMPLER0, R18, R0R 46000000     1D78ANDR16, R0, R01
      ; 000369  2FFE0000     1D7CUNOP   E4000045     1D80BEQR0, lab$0587! A662FC88     1D84LDQR19, -888(R2) 
      ; 000372s  2273FFFE     1D88LDAR19, -2(R19)# 2E930000     1D8CLDQ_UR20, var$0103  ; R20, (R19)' 4A9302C1     1D90EXTWLR20, var$0103, R1  ; R20, R19, R1( 4A930254     1D94MSKWLR20, var$0103, R20 ; R20, R19, R20R 40203521     1D98SUBQR1, 1, R1& 48330361     1D9CINSWLR1, var$0103, R1
 ; R1, R19, R1Q  46810414     1DA0BISR20, R1, R20# 3E930000     1DA4STQ_UR20, var$01038 ; R20, (R19)! 2202FC70     1DA8LDAR16, -912(R2),
      ; 0003731 22220030     1DACLDAR17, 48(R2)0 47E05419     1DB0MOV2, R25! A762FC80     1DB4LDQR27, -896(R2)0 D3400547     1DB8BSRR26, MOVED! A602FC88     1DBCLDQR16, -888(R2)4
      ; 000374,! 2210FFFE     1DC0LDAR16, var$0103( ; R16, -2(R16) 47E03419     1DC4MOV1, R25! A762FD78     1DC8LDQR27, -648(R2),! D340060B     1DCCBSRR26, SEND_INT1 221D0050     1DD0LDAR16, 80(FP)3
      ; 0003767 22420028     1DD4LDAR18, 40(R2)R 47E07411     1DD8MOV3, R17! A742FE10     1DDCLDQR26, -496(R2)2                                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 731Q                                  BOMB                             1-APR-2003 20:32& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! 6B5A4000     1DE0JSRR26, OTS$MOVEr
 ; R26, R26 201D0050     1DE4LDAR0, 80(FP)! 243F010E     1DE8LDAHR1, 270(R31)  20210003     1DECLDAR1, 3(R1)2 B03D0058     1DF0STLR1, 88(FP) 43E00000     1DF4SEXTLR0, R0 B01D005C     1DF8STLR0, 92(FP) 221D0058     1DFCLDAR16, 88(FP)  47E03419     1E00MOV1, R25! A762FD80     1E04LDQR27, -640(R2)L D34005D4     1E08BSRR26, SENDL  A402FC88     1E0CLDQR0, -888(R2)
      ; 0003770  A000FFFE     1E10LDLR0, var$0103 ; R0, -2(R0) 48061720     1E14SLLR0, 48, R0 48061680     1E18SRLR0, 48, R0 2FFE0000     1E1CUNOP   F4000003     1E20BNER0, lab$0618 47FF0419     1E24CLRR25 ! A762FEB8     1E28LDQR27, -328(R2)  D34003B9     1E2CBSRR26, HALT2       1E30lab$0618:L
      ; 000378Q 22020020     1E30LDAR16, 32(R2)1! 2362FDE8     1E34LDAR27, -536(R2)8 D35FFAE0     1E38BSRR26, SLEEP 22020038     1E3CLDAR16, 56(R2)1
      ; 0003790! A622FC88     1E40LDQR17, -888(R2) ! 223100FC     1E44LDAR17, var$0118R ; R17, 252(R17)9 47E05419     1E48MOV2, R25! A762FC80     1E4CLDQR27, -896(R2)2 D3400521     1E50BSRR26, MOVE, 22020050     1E54LDAR16, 80(R2) 
      ; 000380  47E03419     1E58MOV1, R25! A762FD80     1E5CLDQR27, -640(R2)  D34005BE     1E60BSRR26, SENDF 47E91400     1E64MOV72, R0
      ; 000381   A422FC88     1E68LDQR1, -888(R2)  A20100FA     1E6CLDLR16, 250(R1)  4A019610     1E70ZAPR16, 12, R16 48005360     1E74INSWLR0, 2, R0L  46000410     1E78BISR16, R0, R16  B20100FA     1E7CSTLR16, 250(R1)! A622FC88     1E80LDQR17, -888(R2)0
      ; 000382V! A25100FE     1E84LDLR18, var$01194 ; R18, 254(R17)   267F0001     1E88LDAHR19, 1(R31)  2273FFFF     1E8CLDAR19, -1(R19)! 46530412     1E90BISR18, R19, R181! B25100FE     1E94STLR18, var$01191 ; R18, 254(R17)2       1E98lab$0587: 
      ; 000369C! A682FC88     1E98LDQR20, -888(R2)C
      ; 0003862  A2940012     1E9CLDLR20, 18(R20)  4A841734     1EA0SLLR20, 32, R20  4A861794     1EA4SRAR20, 48, R20  4E805414     1EA8MULQR20, 2, R20! A6A2FC88     1EACLDQR21, -888(R2)2" 42B40415     1EB0ADDQR21, R20, R21! 22B50104     1EB4LDAR21, 260(R21)1" 2ED5FFFF     1EB8LDQ_UR22, -1(R21)                                          P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 740Q                                  BOMB                             1-APR-2003 20:3,& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  # 4AD50F56     1EBCEXTQHR22, R21, R228  4AC61794     1EC0SRAR22, 48, R20" 428279B4     1EC4CMPLTR20, 19, R20! A6E2FC88     1EC8LDQR23, -888(R2)7  A2F70012     1ECCLDLR23, 18(R23)  4AE41737     1ED0SLLR23, 32, R23  4AE61797     1ED4SRAR23, 48, R23  4EE05417     1ED8MULQR23, 2, R23! A702FC88     1EDCLDQR24, -888(R2)(" 43170418     1EE0ADDQR24, R23, R24! 23180104     1EE4LDAR24, 260(R24)6" 2F38FFFF     1EE8LDQ_UR25, -1(R24)# 4B380F59     1EECEXTQHR25, R24, R25   4B261797     1EF0SRAR25, 48, R23" 42E2F9B7     1EF4CMPLTR23, 23, R23! 46F40114     1EF8BICR23, R20, R20  2FFE0000     1EFCUNOP " E28000A6     1F00BLBCR20, lab$0651! A742FC88     1F04LDQR26, -888(R2)1
      ; 000387   A35A0012     1F08LDLR26, 18(R26)  4B44173A     1F0CSLLR26, 32, R26  4B46179A     1F10SRAR26, 48, R26  4F40541A     1F14MULQR26, 2, R26! A762FC88     1F18LDQR27, -888(R2)4" 437A041B     1F1CADDQR27, R26, R27! 237B0104     1F20LDAR27, 260(R27)9! 2C1BFFFF     1F24LDQ_UR0, -1(R27)0! 481B0F40     1F28EXTQHR0, R27, R00 48061780     1F2CSRAR0, 48, R0 4C0A1400     1F30MULQR0, 80, R0A" 2000FA60     1F34ADDQR0, -1440, R0  A422FC88     1F38LDQR1, -888(R2) A0210012     1F3CLDLR1, 18(R1) 48241721     1F40SLLR1, 32, R1 48261781     1F44SRAR1, 48, R1 4C205401     1F48MULQR1, 2, R1! A602FC88     1F4CLDQR16, -888(R2) ! 42010410     1F50ADDQR16, R1, R16 ! 2210010C     1F54LDAR16, 268(R16):" 2E30FFFF     1F58LDQ_UR17, -1(R16)# 4A300F51     1F5CEXTQHR17, R16, R177 4A261781     1F60SRAR17, 48, R18! A642FC88     1F64LDQR18, -888(R2)8  A2520012     1F68LDLR18, 18(R18)  4A441732     1F6CSLLR18, 32, R18  4A461792     1F70SRAR18, 48, R18  4E405412     1F74MULQR18, 2, R18! A662FC88     1F78LDQR19, -888(R2) " 42720413     1F7CADDQR19, R18, R19! 2273010C     1F80LDAR19, 268(R19) " 2EB3FFFF     1F84LDQ_UR21, -1(R19)# 4AB30F55     1F88EXTQHR21, R19, R21C  4AA61792     1F8CSRAR21, 48, R18! 42410532     1F90SUBQR18, R1, R181  42403412     1F94ADDQR18, 1, R18" 46401C92     1F98CMOVLER18, 0, R18  40010410     1F9CADDQR0, R1, R16                  P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 75 Q                                  BOMB                             1-APR-2003 20:32& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   47E03413     1FA0MOV1, R19! A782FDE0     1FA4LDQR28, -544(R2)," 43900410     1FA8ADDQR28, R16, R16 47F20411     1FACMOVR18, R17! 2242FDC8     1FB0LDAR18, -568(R2)B 47E41414     1FB4MOV32, R202 A742FFF8     1FB8LDQR26, -8(R2)  2FFE0000     1FBCUNOPB( 6B5A4000     1FC0JSRR26, OTS$STRCMP_EQLP
 ; R26, R26  F4000075     1FC4BNER0, lab$0651! A702FC88     1FC8LDQR24, -888(R2) 
      ; 0003895  A3180012     1FCCLDLR24, 18(R24)  4B041738     1FD0SLLR24, 32, R24  4B061798     1FD4SRAR24, 48, R24  4F005418     1FD8MULQR24, 2, R24! A722FC88     1FDCLDQR25, -888(R2)(" 43380419     1FE0ADDQR25, R24, R25! 23390102     1FE4LDAR25, 258(R25)3  2EF90000     1FE8LDQ_UR23, (R25)# 4AF902D7     1FECEXTWLR23, R25, R230 4AE01697     1FF0SRLR23, 0, R23;  42E03537     1FF4SUBQR23, 1, R23  A422FC88     1FF8LDQR1, -888(R2) A0210012     1FFCLDLR1, 18(R1) 48241721     2000SLLR1, 32, R1 48261781     2004SRAR1, 48, R1 4C205401     2008MULQR1, 2, R1! A782FC88     200CLDQR28, -888(R2)A  43810401     2010ADDQR28, R1, R1  2221010A     2014LDAR17, 266(R1) A25D0060     2018LDLR18, 96(FP)E 4A407612     201CZAPR18, 3, R182! 4AE01377     2020INSWLR23, 0, R23A! 46570412     2024BISR18, R23, R182 B25D0060     2028STLR18, 96(FP)  221D0060     202CLDAR16, 96(FP)1 47E05419     2030MOV2, R25! A762FC80     2034LDQR27, -896(R2)  D34004A7     2038BSRR26, MOVEs 221D0050     203CLDAR16, 80(FP) 
      ; 000390r! 2242FF70     2040LDAR18, -144(R2)  47E0B411     2044MOV5, R17! A742FE10     2048LDQR26, -496(R2)  2FFE0000     204CUNOP ! 6B5A4000     2050JSRR26, OTS$MOVE 
 ; R26, R26 201D0050     2054LDAR0, 80(FP)! 243F010E     2058LDAHR1, 270(R31)  20210005     205CLDAR1, 5(R1)0 B03D0058     2060STLR1, 88(FP) 43E00000     2064SEXTLR0, R0 B01D005C     2068STLR0, 92(FP) 221D0058     206CLDAR16, 88(FP)  47E03419     2070MOV1, R25! A762FD80     2074LDQR27, -640(R2)  D3400538     2078BSRR26, SEND7  A402FC88     207CLDQR0, -888(R2)
      ; 000391B A0000012     2080LDLR0, 18(R0)          P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 760Q                                  BOMB                             1-APR-2003 20:32& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   48041720     2084SLLR0, 32, R0 48061780     2088SRAR0, 48, R0 4C005400     208CMULQR0, 2, R0  A422FC88     2090LDQR1, -888(R2) 40200401     2094ADDQR1, R0, R10 20210104     2098LDAR1, 260(R1)(! 2E01FFFF     209CLDQ_UR16, -1(R1)P" 4A010F50     20A0EXTQHR16, R1, R16 4A061780     20A4SRAR16, 48, R02 4C0A1400     20A8MULQR0, 80, R07# 2200FA60     20ACADDQR0, -1440, R16 ! A622FC88     20B0LDQR17, -888(R2)   A2310012     20B4LDLR17, 18(R17)  4A241731     20B8SLLR17, 32, R17  4A261791     20BCSRAR17, 48, R17  4E205411     20C0MULQR17, 2, R17! A642FC88     20C4LDQR18, -888(R2)0" 42510412     20C8ADDQR18, R17, R18! 2252010C     20CCLDAR18, 268(R18) " 2E72FFFF     20D0LDQ_UR19, -1(R18)# 4A720F53     20D4EXTQHR19, R18, R19F  4A661791     20D8SRAR19, 48, R17! A682FC88     20DCLDQR20, -888(R2)L  A2940012     20E0LDLR20, 18(R20)  4A841734     20E4SLLR20, 32, R20  4A861794     20E8SRAR20, 48, R20  4E805414     20ECMULQR20, 2, R20! A6A2FC88     20F0LDQR21, -888(R2)3" 42B40415     20F4ADDQR21, R20, R21! 22B5010C     20F8LDAR21, 268(R21);" 2ED5FFFF     20FCLDQ_UR22, -1(R21)# 4AD50F56     2100EXTQHR22, R21, R22   4AC61794     2104SRAR22, 48, R20" 42910534     2108SUBQR20, R17, R20  42803414     210CADDQR20, 1, R20" 46801C94     2110CMOVLER20, 0, R20 47F40417     2114MOVR20, R23! A782FDE0     2118LDQR28, -544(R2)3" 43900410     211CADDQR28, R16, R16 47F10414     2120MOVR17, R20" 42140410     2124ADDQR16, R20, R16 47F70411     2128MOVR23, R17! 2242FDC8     212CLDAR18, -568(R2)A 47E03413     2130MOV1, R19  A742FFE0     2134LDQR26, -32(R2)" 6B5A4000     2138JSRR26, OTS$MOVEM
 ; R26, R26 47E41412     213CMOV32, R183! A742FF78     2140LDQR26, -136(R2)P! 6B5A4000     2144JSRR26, OTS$FILLR
 ; R26, R26! A702FC88     2148LDQR24, -888(R2)4
      ; 000392L  A3180012     214CLDLR24, 18(R24)  4B041738     2150SLLR24, 32, R24  4B061798     2154SRAR24, 48, R24  4F005418     2158MULQR24, 2, R24! A722FC88     215CLDQR25, -888(R2)5" 43380419     2160ADDQR25, R24, R25! 23390102     2164LDAR25, 258(R25)L              P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 77 Q                                  BOMB                             1-APR-2003 20:30& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   2C390000     2168LDQ_UR1, (R25)9! 48390241     216CMSKWLR1, R25, R1X 3C390000     2170STQ_UR1, (R25)   A402FC88     2174LDQR0, -888(R2)
      ; 0003938# 2EC00018     2178LDQ_UR22, var$01136
 ; R22, 24(R0)L( 4AC002D7     217CEXTWLR22, var$0113, R23 ; R22, R0, R23( 4AC00256     2180MSKWLR22, var$0113, R22 ; R22, R0, R22  42E03537     2184SUBQR23, 1, R23( 4AE00377     2188INSWLR23, var$0113, R23 ; R23, R0, R23! 46D70416     218CBISR22, R23, R220# 3EC00018     2190STQ_UR22, var$0113 
 ; R22, 24(R0)R! B7FD0010     2194STQR31, var$0051, ; R31, 16(FP)    ; 000394Q C3E0005D     2198BRlab$05741       219Clab$0651:A
      ; 000398E! A6A2FC88     219CLDQR21, -888(R2)   A2B50012     21A0LDLR21, 18(R21)  4AA41735     21A4SLLR21, 32, R21  4AA61795     21A8SRAR21, 48, R21  4EA05415     21ACMULQR21, 2, R21! A602FC88     21B0LDQR16, -888(R2)3" 42150410     21B4ADDQR16, R21, R16! 22100102     21B8LDAR16, 258(R16)D  2E300000     21BCLDQ_UR17, (R16)# 4A3002D0     21C0EXTWLR17, R16, R16  4A001690     21C4SRLR16, 0, R164  42003530     21C8SUBQR16, 1, R16! A642FC88     21CCLDQR18, -888(R2)4  A2520012     21D0LDLR18, 18(R18)  4A441732     21D4SLLR18, 32, R18  4A461792     21D8SRAR18, 48, R18  4E405412     21DCMULQR18, 2, R18! A782FC88     21E0LDQR28, -888(R2)," 43920412     21E4ADDQR28, R18, R18! 2232010A     21E8LDAR17, 266(R18)9  A29D0068     21ECLDLR20, 104(FP) 4A807614     21F0ZAPR20, 3, R202! 4A001370     21F4INSWLR16, 0, R164! 46900414     21F8BISR20, R16, R20,  B29D0068     21FCSTLR20, 104(FP)  221D0068     2200LDAR16, 104(FP) 47E05419     2204MOV2, R25! A762FC80     2208LDQR27, -896(R2)  D3400432     220CBSRR26, MOVE   221D0070     2210LDAR16, 112(FP)
      ; 000399  22420048     2214LDAR18, 72(R2)  47E09411     2218MOV4, R17! A742FE10     221CLDQR26, -496(R2)a! 6B5A4000     2220JSRR26, OTS$MOVE 
 ; R26, R26 201D0070     2224LDAR0, 112(FP)0! 243F010E     2228LDAHR1, 270(R31)] 20210004     222CLDAR1, 4(R1)1 B03D0078     2230STLR1, 120(FP)1 43E00000     2234SEXTLR0, R0 B01D007C     2238STLR0, 124(FP)A  221D0078     223CLDAR16, 120(FP) 47E03419     2240MOV1, R25! A762FD80     2244LDQR27, -640(R2)1                                                P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 78 Q                                  BOMB                             1-APR-2003 20:34& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   D34004C4     2248BSRR26, SEND1  A402FC88     224CLDQR0, -888(R2)
      ; 0004001 A0000012     2250LDLR0, 18(R0) 48041720     2254SLLR0, 32, R0 48061780     2258SRAR0, 48, R0 4C005400     225CMULQR0, 2, R0  A422FC88     2260LDQR1, -888(R2) 40200401     2264ADDQR1, R0, R1v 20210102     2268LDAR1, 258(R1)  2E010000     226CLDQ_UR16, (R1) ! 4A0102C0     2270EXTWLR16, R1, R0  48001680     2274SRLR0, 0, R07 4402F800     2278XORR0, 23, R0 2FFE0000     227CUNOPA  F4000022     2280BNER0, lab$0665! A622FC88     2284LDQR17, -888(R2)6
      ; 000401L# 2E510018     2288LDQ_UR18, var$0113  ; R18, 24(R17)( 4A5102D3     228CEXTWLR18, var$0113, R19 ; R18, R17, R19M( 4A510252     2290MSKWLR18, var$0113, R18 ; R18, R17, R183  42603533     2294SUBQR19, 1, R19( 4A710373     2298INSWLR19, var$0113, R19 ; R19, R17, R191! 46530412     229CBISR18, R19, R18 # 3E510018     22A0STQ_UR18, var$0113  ; R18, 24(R17)! A682FC88     22A4LDQR20, -888(R2) 
      ; 0004029  A2940012     22A8LDLR20, 18(R20)  4A841734     22ACSLLR20, 32, R20  4A861794     22B0SRAR20, 48, R20  4E805414     22B4MULQR20, 2, R20! A6A2FC88     22B8LDQR21, -888(R2)-" 42B40415     22BCADDQR21, R20, R21! 22B50102     22C0LDAR21, 258(R21)D  2ED50000     22C4LDQ_UR22, (R21)# 4AD50256     22C8MSKWLR22, R21, R22L  3ED50000     22CCSTQ_UR22, (R21) 221D0050     22D0LDAR16, 80(FP)A
      ; 0004033 22420040     22D4LDAR18, 64(R2)3 47E05411     22D8MOV2, R17! A742FE10     22DCLDQR26, -496(R2)2! 6B5A4000     22E0JSRR26, OTS$MOVE2
 ; R26, R26 22FD0050     22E4LDAR23, 80(FP) " 271F010E     22E8LDAHR24, 270(R31) 23180002     22ECLDAR24, 2(R24)q B31D0058     22F0STLR24, 88(FP)6 43F70017     22F4SEXTLR23, R23 B2FD005C     22F8STLR23, 92(FP)  221D0058     22FCLDAR16, 88(FP)Y 47E03419     2300MOV1, R25! A762FD80     2304LDQR27, -640(R2)2 D3400494     2308BSRR26, SEND1       230Clab$0665:1
      ; 0004010! B7FD0008     230CSTQR31, var$0052  ; R31, 8(FP)    ; 000405       2310lab$0574:3
      ; 000406  47FD041E     2310MOVFP, SP  A75D0080     2314LDQR26, 128(FP) A45D0088     2318LDQR2, 136(FP), A47D0090     231CLDQR3, 144(FP)R A7BD0098     2320LDQFP, 152(FP)2                                          P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 79 Q                                  BOMB                             1-APR-2003 20:32& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   23DE00A0     2324LDASP, 160(SP)6 6BFA8001     2328RETR269  8 Routine Size: 1956 bytes,    Routine Base: $CODE$ + 1B88         232CSHIP:: 23DEFFA0     232CLDASP, -96(SP), B77E0000     2330STQR27, (SP)R B75E0048     2334STQR26, 72(SP)1 B45E0050     2338STQR2, 80(SP) B7BE0058     233CSTQFP, 88(SP) 47FE041D     2340MOVSP, FP 47FB0402     2344MOVR27, R22  A402FC30     2348LDQR0, -976(R2)
      ; 0004266 A0000116     234CLDLR0, 278(R0)2 48041720     2350SLLR0, 32, R0 48061680     2354SRLR0, 48, R0  F400003C     2358BNER0, lab$0693! A602FD60     235CLDQR16, -672(R2) 
      ; 0004276 22100194     2360LDAR16, SEED1 ; R16, 404(R16)) 47E03419     2364MOV1, R25 A7420028     2368LDQR26, 40(R2)2 A7620030     236CLDQR27, 48(R2) $ 6B5A4000     2370JSRR26, DFOR$RAN_VF
 ; R26, R26 80220024     2374LDFF1, 36(R2)! 540114C0     2378CMPGLTF0, F1, F0  47FF0400     237CMOVR31, R00! C4000001     2380FBEQF0, lab$06842 47E03400     2384MOV1, R00       2388lab$0684:   E400009C     2388BEQR0, lab$0676! A602FD60     238CLDQR16, -672(R2)A
      ; 000429E 22100194     2390LDAR16, SEED  ; R16, 404(R16)L 47E03419     2394MOV1, R25 A7420028     2398LDQR26, 40(R2)2 A7620030     239CLDQR27, 48(R2)C$ 6B5A4000     23A0JSRR26, DFOR$RAN_VF
 ; R26, R26 80220020     23A4LDFF1, 32(R2)! 540114C0     23A8CMPGLTF0, F1, F0C 47FF0400     23ACMOVR31, R0 ! C4000001     23B0FBEQF0, lab$0692D 47E03400     23B4MOV1, R0)       23B8lab$0692:2  E400000E     23B8BEQR0, lab$0686  A422FC30     23BCLDQR1, -976(R2)
      ; 000430   A2010116     23C0LDLR16, 278(R1) 47FF0511     23C4NOTR31, R17! 4A3E7611     23C8ZAPR17, 243, R17p! 46110410     23CCBISR16, R17, R166  B2010116     23D0STLR16, 278(R1) 47E91401     23D4MOV72, R1
      ; 0004310! A642FC30     23D8LDQR18, -976(R2)]! A2720116     23DCLDLR19, var$0125Q ; R19, 278(R18)B 4A607613     23E0ZAPR19, 3, R19  48201361     23E4INSWLR1, 0, R10  46610413     23E8BISR19, R1, R19! B2720116     23ECSTLR19, var$01251 ; R19, 278(R18)0                                              P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 80-Q                                  SHIP                             1-APR-2003 20:30& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   C3E0000E     23F0BRlab$06871
      ; 000430$       23F4lab$0686: 
      ; 000433  47E03414     23F4MOV1, R20! A6A2FC30     23F8LDQR21, -976(R2)B! A2D50116     23FCLDLR22, 278(R21)L  4AC19616     2400ZAPR22, 12, R22! 4A805374     2404INSWLR20, 2, R20 ! 46D40416     2408BISR22, R20, R22 ! B2D50116     240CSTLR22, 278(R21)1 47E03414     2410MOV1, R20
      ; 0004341! A6E2FC30     2414LDQR23, -976(R2)6! A3170116     2418LDLR24, var$01257 ; R24, 278(R23), 4B007618     241CZAPR24, 3, R247! 4A801374     2420INSWLR20, 0, R20-! 47140418     2424BISR24, R20, R24 ! B3170116     2428STLR24, var$01252 ; R24, 278(R23)0       242Clab$0687:1
      ; 000433  47EB5419     242CMOV90, R252
      ; 000436Q! A742FC30     2430LDQR26, -976(R2)3! A37A0112     2434LDLR27, 274(R26)0  4B61961B     2438ZAPR27, 12, R27! 4B205379     243CINSWLR25, 2, R250! 4779041B     2440BISR27, R25, R272! B37A0112     2444STLR27, 274(R26)5 C3E0006C     2448BRlab$0676 
      ; 0004293       244Clab$0693:1
      ; 000441R! 2202FF38     244CLDAR16, -200(R2)R! A622FC30     2450LDQR17, -976(R2)2! 22310116     2454LDAR17, var$01251 ; R17, 278(R17)1 47E05419     2458MOV2, R25! A762FC28     245CLDQR27, -984(R2)  D340039D     2460BSRR26, MOVE1  A402FC30     2464LDQR0, -976(R2)
      ; 000442B A000FFFE     2468LDLR0, -2(R0) 48041720     246CSLLR0, 32, R0 48061680     2470SRLR0, 48, R0 44009800     2474XORR0, 4, R0,  E4000025     2478BEQR0, lab$0701  A422FC30     247CLDQR1, -976(R2)
      ; 0004436  A0210116     2480LDLR1, var$0125
 ; R1, 278(R1)9 48261721     2484SLLR1, 48, R1 48261781     2488SRAR1, 48, R1 47E10414     248CMOVR1, R20L 47E07411     2490MOV3, R17 47F40410     2494MOVR20, R16! A742FD78     2498LDQR26, -648(R2) ! A762FD80     249CLDQR27, -640(R2) " 6B5A4000     24A0JSRR26, OTS$DIV_L
 ; R26, R26 4C007400     24A4MULQR0, 3, R0  42800520     24A8SUBQR20, R0, R0! A6A2FD50     24ACLDQR21, -688(R2)  B4150098     24B0STQR0, WHIRL  ; R0, 152(R21)! A6C2FD50     24B4LDQR22, -688(R2)G
      ; 000444  A6D60098     24B8LDQR22, WHIRL ; R22, 152(R22)R" 4AC07636     24BCZAPNOTR22, 3, R22! F6C00005     24C0BNER22, lab$07034 22020038     24C4LDAR16, 56(R2)R
      ; 000445                                 P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 814Q                                  SHIP                             1-APR-2003 20:3,& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   47E03419     24C8MOV1, R25! A762FD28     24CCLDQR27, -728(R2)S D3400422     24D0BSRR26, SEND0 C3E0000E     24D4BRlab$07011       24D8lab$0703:6
      ; 000446L  A402FD50     24D8LDQR0, -688(R2) A4000098     24DCLDQR0, WHIRL2
 ; R0, 152(R0)R  48007620     24E0ZAPNOTR0, 3, R0 44003800     24E4XORR0, 1, R0,  F4000005     24E8BNER0, lab$0720 22020058     24ECLDAR16, 88(R2) 
      ; 000447- 47E03419     24F0MOV1, R25! A762FD28     24F4LDQR27, -728(R2)1 D3400418     24F8BSRR26, SEND2 C3E00004     24FCBRlab$0701        2500lab$0720:,
      ; 000449  22020050     2500LDAR16, 80(R2)0 47E03419     2504MOV1, R25! A762FD28     2508LDQR27, -728(R2)  D3400413     250CBSRR26, SENDR       2510lab$0701:5
      ; 000443   A402FC30     2510LDQR0, -976(R2)
      ; 0004520 20000114     2514LDAR0, 276(R0) " 2C200000     2518LDQ_UR1, var$0124
 ; R1, (R0)' 482002D0     251CEXTWLR1, var$0124, R16D
 ; R1, R0, R162& 48200241     2520MSKWLR1, var$0124, R1 ; R1, R0, R1  42003530     2524SUBQR16, 1, R16( 4A000370     2528INSWLR16, var$0124, R16 ; R16, R0, R16 44300401     252CBISR1, R16, R1S" 3C200000     2530STQ_UR1, var$0124
 ; R1, (R0)! A622FC30     2534LDQR17, -976(R2)6
      ; 0004531! A2310116     2538LDLR17, 278(R17)6  4A241731     253CSLLR17, 32, R17  4A261691     2540SRLR17, 48, R17! A642FC30     2544LDQR18, -976(R2)C! 22520116     2548LDAR18, 278(R18)1# 2E720000     254CLDQ_UR19, var$01252 ; R19, (R18)( 4A7202D4     2550EXTWLR19, var$0125, R20 ; R19, R18, R20R( 4A720253     2554MSKWLR19, var$0125, R19 ; R19, R18, R19D" 42910414     2558ADDQR20, R17, R20( 4A920374     255CINSWLR20, var$0125, R20 ; R20, R18, R20 ! 46740413     2560BISR19, R20, R19 # 3E720000     2564STQ_UR19, var$0125h ; R19, (R18)! A6A2FC30     2568LDQR21, -976(R2)0
      ; 000454n! A2B50116     256CLDLR21, var$0125  ; R21, 278(R21)   4AA61735     2570SLLR21, 48, R21  4AA61795     2574SRAR21, 48, R21" 42A91DB5     2578CMPLER21, 72, R21! A6C2FC30     257CLDQR22, -976(R2)7! A2D60116     2580LDLR22, var$01250 ; R22, 278(R22)   4AC61736     2584SLLR22, 48, R22  4AC61796     2588SRAR22, 48, R22! 42C01DB6     258CCMPLER22, 0, R222# 46D50515     2590ORNOTR22, R21, R21 " E2A00019     2594BLBCR21, lab$0676! 2202FF38     2598LDAR16, -200(R2)2
      ; 000456Q! A6E2FC30     259CLDQR23, -976(R2)                           P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 82PQ                                  SHIP                             1-APR-2003 20:3R& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! A2F70116     25A0LDLR23, var$01254 ; R23, 278(R23)2! A702FC30     25A4LDQR24, -976(R2)4! A3180116     25A8LDLR24, 278(R24)L  4B041738     25ACSLLR24, 32, R24  4B061698     25B0SRLR24, 48, R24" 42F80537     25B4SUBQR23, R24, R23 A35D0040     25B8LDLR26, 64(FP)6 4B40761A     25BCZAPR26, 3, R265! 4AE01377     25C0INSWLR23, 0, R235! 4757041A     25C4BISR26, R23, R26  B35D0040     25C8STLR26, 64(FP)4 223D0040     25CCLDAR17, 64(FP)) 47E05419     25D0MOV2, R25! A762FC28     25D4LDQR27, -984(R2)L D340033F     25D8BSRR26, MOVE  22020040     25DCLDAR16, 64(R2) 
      ; 000457  47E03419     25E0MOV1, R25! A762FD28     25E4LDQR27, -728(R2)  D34003DC     25E8BSRR26, SEND2  A402FC30     25ECLDQR0, -976(R2)
      ; 000458  A0200116     25F0LDLR1, 278(R0)  48219601     25F4ZAPR1, 12, R1 B0200116     25F8STLR1, 278(R0)1       25FClab$0676:P
      ; 000441 ! B7FD0008     25FCSTQR31, var$00546 ; R31, 8(FP)    ; 000461 47FD041E     2600MOVFP, SP
      ; 000462L A75D0048     2604LDQR26, 72(FP)S A45D0050     2608LDQR2, 80(FP) A7BD0058     260CLDQFP, 88(FP) 23DE0060     2610LDASP, 96(SP) 6BFA8001     2614RETR262  7 Routine Size: 748 bytes,    Routine Base: $CODE$ + 232C1         2618ADVANCE::   23DEFF50     2618LDASP, -176(SP) B77E0000     261CSTQR27, (SP)0  B75E0068     2620STQR26, 104(SP) B45E0070     2624STQR2, 112(SP)2 B47E0078     2628STQR3, 120(SP)  B49E0080     262CSTQR4, 128(SP)S B4BE0088     2630STQR5, 136(SP)L B4DE0090     2634STQR6, 144(SP)7 B4FE0098     2638STQR7, 152(SP)  B7BE00A0     263CSTQFP, 160(SP)  47FE041D     2640MOVSP, FP 47FB0402     2644MOVR27, R2        2648.10:
      ; 000479 ! A402FBD0     2648LDQR0, -1072(R2)a 20000012     264CLDAR0, 18(R0)" 2C200000     2650LDQ_UR1, var$0110
 ; R1, (R0)' 482002D0     2654EXTWLR1, var$0110, R16I
 ; R1, R0, R166& 48200241     2658MSKWLR1, var$0110, R1 ; R1, R0, R1  42003410     265CADDQR16, 1, R16( 4A000370     2660INSWLR16, var$0110, R16 ; R16, R0, R16 44300401     2664BISR1, R16, R1," 3C200000     2668STQ_UR1, var$0110
 ; R1, (R0)                                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 83AQ                                  ADVANCE                          1-APR-2003 20:3V& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  " A622FBD0     266CLDQR17, -1072(R2)
      ; 000480O! A2310012     2670LDLR17, var$01101 ; R17, 18(R17)  4A261731     2674SLLR17, 48, R17  4A261791     2678SRAR17, 48, R17" 4226FDB1     267CCMPLER17, 55, R17! F620001B     2680BNER17, lab$0745D! A402FBD0     2684LDQR0, -1072(R2)0
      ; 0004811  A0000016     2688LDLR0, var$0112 ; R0, 22(R0) 48061720     268CSLLR0, 48, R0 48061680     2690SRLR0, 48, R0  E4000029     2694BEQR0, lab$0746! A422FBD0     2698LDQR1, -1072(R2) 
      ; 0004826! B3E1000A     269CSTLR31, var$0108 
 ; R31, 10(R1)7" A602FBD0     26A0LDQR16, -1072(R2)
      ; 0004830! A2100006     26A4LDLR16, var$01074
 ; R16, 6(R16)0" E2000008     26A8BLBCR16, lab$0751" A622FBD0     26ACLDQR17, -1072(R2)
      ; 000484 ! A231000E     26B0LDLR17, var$0109  ; R17, 14(R17) 47F10511     26B4NOTR17, R17! A402FBD0     26B8LDQR0, -1072(R2)6! B220000E     26BCSTLR17, var$0109 
 ; R17, 14(R0)1 203FFFFF     26C0MOV-1, R1
      ; 0004852" A602FBD0     26C4LDQR16, -1072(R2)  B030000A     26C8STLR1, var$0108
 ; R1, 10(R16)9       26CClab$0751:K
      ; 000484,! A402FBD0     26CCLDQR0, -1072(R2) 
      ; 0004870! B3E00006     26D0STLR31, var$0107v ; R31, 6(R0) 47E03411     26D4MOV1, R17
      ; 000488R! A422FBD0     26D8LDQR1, -1072(R2),! A2010012     26DCLDLR16, var$0110 
 ; R16, 18(R1)- 4A007610     26E0ZAPR16, 3, R168! 4A201371     26E4INSWLR17, 0, R17 ! 46110410     26E8BISR16, R17, R16L! B2010012     26ECSTLR16, var$0110B
 ; R16, 18(R1)6       26F0lab$0745:,
      ; 000481 ! A402FBD0     26F0LDQR0, -1072(R2),
      ; 0004901  A0000012     26F4LDLR0, var$0110 ; R0, 18(R0) 48061720     26F8SLLR0, 48, R0 48061780     26FCSRAR0, 48, R0 4C005400     2700MULQR0, 2, R0! A422FBD0     2704LDQR1, -1072(R2)  40200401     2708ADDQR1, R0, R11 2021001C     270CLDAR1, 28(R1) 2E010000     2710LDQ_UR16, (R1) ! 4A0102C0     2714EXTWLR16, R1, R0A 48001680     2718SRLR0, 0, R0-! A622FCF0     271CLDQR17, -784(R2)S B41100A8     2720STQR0, I  ; R0, 168(R17)! A642FCF0     2724LDQR18, -784(R2)Q
      ; 000491  A65200A8     2728LDQR18, I ; R18, 168(R18)U  4A461732     272CSLLR18, 48, R18! FE400004     2730BGTR18, lab$0754,! 47FF0407     2734MOVR31, var$00576	 ; R31, R7D C3FFFFC3     2738BR.10       273Clab$0746:6
      ; 000481 ! B7FD0028     273CSTQR31, var$0056 
 ; R31, 40(FP)7 C3E00169     2740BRlab$0741             P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 84 Q                                  ADVANCE                          1-APR-2003 20:3)& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1         2744lab$0754:S
      ; 000491   A422FCF0     2744LDQR1, -784(R2)
      ; 000493( A42100A8     2748LDQR1, IP
 ; R1, 168(R1)E 48261721     274CSLLR1, 48, R1  221F0017     2750LDAR16, 23(R31)  4A061730     2754SLLR16, 48, R16! 403009A1     2758CMPLTR1, R16, R1  2FFE0000     275CUNOP   F4200003     2760BNER1, lab$0757 47FF0419     2764CLRR25E! A762FE00     2768LDQR27, -512(R2)v D3400169     276CBSRR26, HALT1       2770lab$0757:r! A402FBD0     2770LDQR0, -1072(R2)4
      ; 000494L  A000000E     2774LDLR0, var$0109 ; R0, 14(R0)! E000001A     2778BLBCR0, lab$0765 ! A422FBD0     277CLDQR1, -1072(R2)1
      ; 000495$  A0210012     2780LDLR1, var$0110 ; R1, 18(R1) 48261721     2784SLLR1, 48, R1 48261781     2788SRAR1, 48, R1 4C205401     278CMULQR1, 2, R1" A602FBD0     2790LDQR16, -1072(R2)! A2100012     2794LDLR16, var$0110S ; R16, 18(R16)  4A061730     2798SLLR16, 48, R16  4A061790     279CSRAR16, 48, R16  4E005410     27A0MULQR16, 2, R16" A622FBD0     27A4LDQR17, -1072(R2)" 42300411     27A8ADDQR17, R16, R17! 2231008A     27ACLDAR17, 138(R17)0  2E510000     27B0LDQ_UR18, (R17)# 4A5102D0     27B4EXTWLR18, R17, R16M 4A001690     27B8SRLR16, 0, R16   42003530     27BCSUBQR16, 1, R16" A662FBD0     27C0LDQR19, -1072(R2)! 42610413     27C4ADDQR19, R1, R19,! 2273008A     27C8LDAR19, 138(R19)R  2E930000     27CCLDQ_UR20, (R19)# 4A130375     27D0INSWLR16, R19, R21 # 4A930254     27D4MSKWLR20, R19, R20 ! 46950414     27D8BISR20, R21, R20   3E930000     27DCSTQ_UR20, (R19) C3E00019     27E0BRlab$07667       27E4lab$0765: 
      ; 000497B" A6C2FBD0     27E4LDQR22, -1072(R2)! A2D60012     27E8LDLR22, var$0110S ; R22, 18(R22)  4AC61736     27ECSLLR22, 48, R22  4AC61796     27F0SRAR22, 48, R22  4EC05416     27F4MULQR22, 2, R22" A6E2FBD0     27F8LDQR23, -1072(R2)! A2F70012     27FCLDLR23, var$0110, ; R23, 18(R23)  4AE61737     2800SLLR23, 48, R23  4AE61797     2804SRAR23, 48, R23  4EE05417     2808MULQR23, 2, R23" A702FBD0     280CLDQR24, -1072(R2)" 43170418     2810ADDQR24, R23, R24! 2318008A     2814LDAR24, 138(R24)S  2F380000     2818LDQ_UR25, (R24)                                              P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 850Q                                  ADVANCE                          1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  # 4B3802D7     281CEXTWLR25, R24, R231 4AE01697     2820SRLR23, 0, R231  42E03417     2824ADDQR23, 1, R23" A742FBD0     2828LDQR26, -1072(R2)" 4356041A     282CADDQR26, R22, R26! 235A008A     2830LDAR26, 138(R26)   2F7A0000     2834LDQ_UR27, (R26)" 4AFA0360     2838INSWLR23, R26, R0# 4B7A025B     283CMSKWLR27, R26, R278  4760041B     2840BISR27, R0, R27  3F7A0000     2844STQ_UR27, (R26)       2848lab$0766:," A622FBD0     2848LDQR17, -1072(R2)
      ; 0004992! A2310012     284CLDLR17, var$01102 ; R17, 18(R17)  4A261731     2850SLLR17, 48, R17  4A261791     2854SRAR17, 48, R17  4E205411     2858MULQR17, 2, R17" A642FBD0     285CLDQR18, -1072(R2)" 42510412     2860ADDQR18, R17, R18! 2252008A     2864LDAR18, 138(R18)Q 2C320000     2868LDQ_UR1, (R18)1! 483202C1     286CEXTWLR1, R18, R11 48201681     2870SRLR1, 0, R11! A602FCF0     2874LDQR16, -784(R2)  B43000A0     2878STQR1, J8 ; R1, 160(R16)! A662FCF0     287CLDQR19, -784(R2)7
      ; 0005001 A67300A0     2880LDQR19, J ; R19, 160(R19)1" 4A607633     2884ZAPNOTR19, 3, R19! 426015B3     2888CMPEQR19, 0, R19E! A682FCF0     288CLDQR20, -784(R2)R A69400A0     2890LDQR20, J ; R20, 160(R20) " 4A807634     2894ZAPNOTR20, 3, R20" 428975B4     2898CMPEQR20, 75, R20! 46740413     289CBISR19, R20, R19 ! E6600003     28A0BEQR19, lab$0770s 22BFFFFF     28A4MOV-1, R210" A702FBD0     28A8LDQR24, -1072(R2)! B2B80006     28ACSTLR21, var$0107 
 ; R21, 6(R24)B       28B0lab$0770: 
      ; 000501-! A602FCF0     28B0LDQR16, -784(R2)G 221000A8     28B4LDAR16, I ; R16, 168(R16),! A622FCF0     28B8LDQR17, -784(R2)R 223100A0     28BCLDAR17, J ; R17, 160(R17)8 47E05419     28C0MOV2, R25" A762FBC8     28C4LDQR27, -1080(R2) D3400283     28C8BSRR26, MOVE8! A402FBD0     28CCLDQR0, -1072(R2)1
      ; 000502   A000000A     28D0LDLR0, var$0108 ; R0, 10(R0)! E0000031     28D4BLBCR0, lab$0791,! 2202FF3C     28D8LDAR16, -196(R2),
      ; 0005034 47E03419     28DCMOV1, R25! A762FCF8     28E0LDQR27, -776(R2)  D34002C8     28E4BSRR26, DS_OBJ1! A402FBD0     28E8LDQR0, -1072(R2))
      ; 000504A  A0000012     28ECLDLR0, var$0110 ; R0, 18(R0) 48061720     28F0SLLR0, 48, R0 48061780     28F4SRAR0, 48, R0                                      P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 860Q                                  ADVANCE                          1-APR-2003 20:3,& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   4C005400     28F8MULQR0, 2, R0! A422FBD0     28FCLDQR1, -1072(R2),  A0210012     2900LDLR1, var$0110 ; R1, 18(R1) 48261721     2904SLLR1, 48, R1 48261781     2908SRAR1, 48, R1 4C205401     290CMULQR1, 2, R1" A602FBD0     2910LDQR16, -1072(R2)! 42010410     2914ADDQR16, R1, R162  2210001C     2918LDAR16, 28(R16)  2E300000     291CLDQ_UR17, (R16)" 4A3002C1     2920EXTWLR17, R16, R1 48201681     2924SRLR1, 0, R1r 40203401     2928ADDQR1, 1, R1" A642FBD0     292CLDQR18, -1072(R2)! 42400412     2930ADDQR18, R0, R189  2252001C     2934LDAR18, 28(R18)  2E720000     2938LDQ_UR19, (R18)" 48320374     293CINSWLR1, R18, R20# 4A720253     2940MSKWLR19, R18, R198! 46740413     2944BISR19, R20, R19A  3E720000     2948STQ_UR19, (R18)" A6A2FBD0     294CLDQR21, -1072(R2)
      ; 000505V! A2B50012     2950LDLR21, var$01109 ; R21, 18(R21)  4AA61735     2954SLLR21, 48, R21  4AA61795     2958SRAR21, 48, R21  4EA05415     295CMULQR21, 2, R21" A6C2FBD0     2960LDQR22, -1072(R2)" 42D50416     2964ADDQR22, R21, R22  22D6001C     2968LDAR22, 28(R22)  2EF60000     296CLDQ_UR23, (R22)# 4AF602D5     2970EXTWLR23, R22, R212 4AA01695     2974SRLR21, 0, R217! A702FCF0     2978LDQR24, -784(R2)  B6B800A8     297CSTQR21, I ; R21, 168(R24) ! A602FCF0     2980LDQR16, -784(R2) 
      ; 000506  221000A8     2984LDAR16, I ; R16, 168(R16)0! A622FCF0     2988LDQR17, -784(R2)1 223100A0     298CLDAR17, J ; R17, 160(R17)  47E05419     2990MOV2, R25" A762FBC8     2994LDQR27, -1080(R2) D340024F     2998BSRR26, MOVER       299Clab$0791:E
      ; 000508V! A402FBD0     299CLDQR0, -1072(R2)A  A0000012     29A0LDLR0, var$0110 ; R0, 18(R0) 44003014     29A4ANDR0, 1, R20! A422FBD0     29A8LDQR1, -1072(R2)0  A0210012     29ACLDLR1, var$0110 ; R1, 18(R1) 48261721     29B0SLLR1, 48, R1 48261781     29B4SRAR1, 48, R1 40203530     29B8SUBQR1, 1, R16- 47E2D411     29BCMOV22, R17R! A742FD18     29C0LDQR26, -744(R2) ! A762FD20     29C4LDQR27, -736(R2) " 6B5A4000     29C8JSRR26, OTS$DIV_L
 ; R26, R26 4C005400     29CCMULQR0, 2, R0  42800400     29D0ADDQR20, R0, R0 B01D0060     29D4STLR0, 96(FP)                                              P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 871Q                                  ADVANCE                          1-APR-2003 20:31& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   221D0060     29D8LDAR16, 96(FP)1 47E03419     29DCMOV1, R25! A762FCF8     29E0LDQR27, -776(R2)1 D3400288     29E4BSRR26, DS_OBJQ! A402FBD0     29E8LDQR0, -1072(R2)R
      ; 0005112 A000FFFE     29ECLDLR0, -2(R0) 48041720     29F0SLLR0, 32, R0 48061680     29F4SRLR0, 48, R0 400035A0     29F8CMPEQR0, 1, R0R! A422FBD0     29FCLDQR1, -1072(R2)  A021FFFE     2A00LDLR1, -2(R1) 48241721     2A04SLLR1, 32, R1 48261681     2A08SRLR1, 48, R1 402055A1     2A0CCMPEQR1, 2, R10 44010400     2A10BISR0, R1, R0  E4000002     2A14BEQR0, lab$0799! B7FD0020     2A18STQR31, var$00588
 ; R31, 32(FP), C3E000B2     2A1CBRlab$07412       2A20lab$0799:," A602FBD0     2A20LDQR16, -1072(R2)
      ; 000512R! A2100012     2A24LDLR16, var$0110, ; R16, 18(R16)  4A061730     2A28SLLR16, 48, R16  4A061790     2A2CSRAR16, 48, R16! 42017530     2A30SUBQR16, 11, R16  47F00414     2A34MOVR16, R20 223FFFF5     2A38MOV-11, R17" 42340530     2A3CSUBQR17, R20, R16 223FFFF5     2A40MOV-11, R17! A742FD18     2A44LDQR26, -744(R2),! A762FD20     2A48LDQR27, -736(R2)  2FFE0000     2A4CUNOPA" 6B5A4000     2A50JSRR26, OTS$DIV_L
 ; R26, R26  47E00406     2A54MOVR0, var$0059 ; R0, R6! A6A2FCF0     2A58LDQR21, -784(R2)  B69500A8     2A5CSTQR20, I ; R20, 168(R21)D  EC000017     2A60BLER0, lab$0803       2A64lab$0801: ! A6C2FCF0     2A64LDQR22, -784(R2)F
      ; 0005138 A6D600A8     2A68LDQR22, I ; R22, 168(R22)   4AC61736     2A6CSLLR22, 48, R22  4AC61796     2A70SRAR22, 48, R22  4EC05416     2A74MULQR22, 2, R22" A6E2FBD0     2A78LDQR23, -1072(R2)" 42F60417     2A7CADDQR23, R22, R23  22F7001C     2A80LDAR23, 28(R23)  2F170000     2A84LDQ_UR24, (R23)# 4B1702D6     2A88EXTWLR24, R23, R22A 4AC01696     2A8CSRLR22, 0, R22A! F6C00009     2A90BNER22, lab$08040! 47FF0405     2A94MOVR31, var$0061C ; R31, R5    ; 000514(! A722FCF0     2A98LDQR25, -784(R2),
      ; 000512  A73900A8     2A9CLDQR25, I ; R25, 168(R25)Q! 43217539     2AA0SUBQR25, 11, R25T  A422FCF0     2AA4LDQR1, -784(R2) B72100A8     2AA8STQR25, I ; R25, 168(R1)* 40C03526     2AACSUBQvar$0059, 1, var$0059 ; R6, 1, R6 & FCDFFFEC     2AB0BGTvar$0059, lab$0801 ; R6, lab$0801                                      P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 886Q                                  ADVANCE                          1-APR-2003 20:33& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   C3E00002     2AB4BRlab$08038       2AB8lab$0804:0
      ; 0005136! B7FD0018     2AB8STQR31, var$00600
 ; R31, 24(FP), C3E0008A     2ABCBRlab$0741D       2AC0lab$0803:C
      ; 0005121" A602FBD0     2AC0LDQR16, -1072(R2)
      ; 0005161! A2100012     2AC4LDLR16, var$0110  ; R16, 18(R16)  4A061730     2AC8SLLR16, 48, R16  4A061790     2ACCSRAR16, 48, R16  4E005410     2AD0MULQR16, 2, R16" A622FBD0     2AD4LDQR17, -1072(R2)" 42300411     2AD8ADDQR17, R16, R17  2231001E     2ADCLDAR17, 30(R17)" 2E51FFFF     2AE0LDQ_UR18, -1(R17)# 4A510F52     2AE4EXTQHR18, R17, R18(  4A461790     2AE8SRAR18, 48, R16" A662FBD0     2AECLDQR19, -1072(R2)! A273FFFA     2AF0LDLR19, var$01018 ; R19, -6(R19)  4A661733     2AF4SLLR19, 48, R19  4A661793     2AF8SRAR19, 48, R19# 42130DB0     2AFCCMPLER16, R19, R161! E6000078     2B00BEQR16, lab$08091" A742FBD0     2B04LDQR26, -1072(R2)
      ; 0005159! A35A0012     2B08LDLR26, var$0110, ; R26, 18(R26)  4B46173A     2B0CSLLR26, 48, R26  4B46179A     2B10SRAR26, 48, R26  4F40541A     2B14MULQR26, 2, R26" A762FBD0     2B18LDQR27, -1072(R2)" 437A041B     2B1CADDQR27, R26, R27! 237B008C     2B20LDAR27, 140(R27) " 2E9BFFFF     2B24LDQ_UR20, -1(R27)# 4A9B0F54     2B28EXTQHR20, R27, R20   4A861794     2B2CSRAR20, 48, R20" A6A2FBD0     2B30LDQR21, -1072(R2)! A2B500FA     2B34LDLR21, 250(R21)]  4AA41735     2B38SLLR21, 32, R21  4AA61795     2B3CSRAR21, 48, R21# 42B40DB4     2B40CMPLER21, R20, R20 ! A402FBD0     2B44LDQR0, -1072(R2)R  A0000012     2B48LDLR0, var$0110 ; R0, 18(R0) 48061720     2B4CSLLR0, 48, R0 48061780     2B50SRAR0, 48, R0 4C005400     2B54MULQR0, 2, R0" A6E2FBD0     2B58LDQR23, -1072(R2)! 42E00417     2B5CADDQR23, R0, R23 ! 22F7008C     2B60LDAR23, 140(R23) " 2F17FFFF     2B64LDQ_UR24, -1(R23)# 4B170F58     2B68EXTQHR24, R23, R24, 4B061780     2B6CSRAR24, 48, R0," A6C2FBD0     2B70LDQR22, -1072(R2)! A2D600FA     2B74LDLR22, 250(R22)8  4AC41736     2B78SLLR22, 32, R22  4AC61796     2B7CSRAR22, 48, R22  42C07416     2B80ADDQR22, 3, R22! 401609A0     2B84CMPLTR0, R22, R02 46800000     2B88ANDR20, R0, R0L 2FFE0000     2B8CUNOP                                                   P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 89 Q                                  ADVANCE                          1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    E4000054     2B90BEQR0, lab$0809
      ; 000516  47E09404     2B94MOV4, var$0062A ; 4, R4    ; 000517S 47E03401     2B98MOV1, R1 ! A722FCF0     2B9CLDQR25, -784(R2)2 B43900A8     2BA0STQR1, I9 ; R1, 168(R25)       2BA4lab$0811:L! A622FCF0     2BA4LDQR17, -784(R2)B
      ; 0005182 A63100A8     2BA8LDQR17, I ; R17, 168(R17)r  4A261731     2BACSLLR17, 48, R17  4A261791     2BB0SRAR17, 48, R17  4E205411     2BB4MULQR17, 2, R17" A642FBD0     2BB8LDQR18, -1072(R2)" 42510412     2BBCADDQR18, R17, R18! 22520102     2BC0LDAR18, 258(R18)F  2E720000     2BC4LDQ_UR19, (R18)# 4A7202D1     2BC8EXTWLR19, R18, R178 4A201691     2BCCSRLR17, 0, R17 ! E6200009     2BD0BEQR17, lab$08146! 47FF0403     2BD4MOVR31, var$0064A ; R31, R3    ; 000524 ! A602FCF0     2BD8LDQR16, -784(R2)L
      ; 000517  A61000A8     2BDCLDQR16, I ; R16, 168(R16)   42003410     2BE0ADDQR16, 1, R16! A742FCF0     2BE4LDQR26, -784(R2)  B61A00A8     2BE8STQR16, I ; R16, 168(R26)h* 40803524     2BECSUBQvar$0062, 1, var$0062 ; R4, 1, R4q& FC9FFFEC     2BF0BGTvar$0062, lab$0811 ; R4, lab$0811 C3E0003B     2BF4BRlab$0809        2BF8lab$0814:P
      ; 000519:! A762FCF0     2BF8LDQR27, -784(R2)1 A77B00A8     2BFCLDQR27, I ; R27, 168(R27)   4B66173B     2C00SLLR27, 48, R27  4B66179B     2C04SRAR27, 48, R27  4F60541B     2C08MULQR27, 2, R27" A6A2FBD0     2C0CLDQR21, -1072(R2)! A2B50012     2C10LDLR21, var$0110L ; R21, 18(R21)  4AA61735     2C14SLLR21, 48, R21  4AA61795     2C18SRAR21, 48, R21  4EA05415     2C1CMULQR21, 2, R21" A6E2FBD0     2C20LDQR23, -1072(R2)" 42F50417     2C24ADDQR23, R21, R23  22F7001C     2C28LDAR23, 28(R23)  2F170000     2C2CLDQ_UR24, (R23)# 4B1702D5     2C30EXTWLR24, R23, R217 4AA01695     2C34SRLR21, 0, R217" A6C2FBD0     2C38LDQR22, -1072(R2)" 42DB0416     2C3CADDQR22, R27, R22! 22D60102     2C40LDAR22, 258(R22)   2E960000     2C44LDQ_UR20, (R22)" 4AB60360     2C48INSWLR21, R22, R0# 4A960254     2C4CMSKWLR20, R22, R207  46800414     2C50BISR20, R0, R20  3E960000     2C54STQ_UR20, (R22)  A422FCF0     2C58LDQR1, -784(R2)
      ; 000520  A42100A8     2C5CLDQR1, I4
 ; R1, 168(R1)R 48261721     2C60SLLR1, 48, R1 48261781     2C64SRAR1, 48, R1 4C205401     2C68MULQR1, 2, R1                                    P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 90 Q                                  ADVANCE                          1-APR-2003 20:32& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  " A722FBD0     2C6CLDQR25, -1072(R2)! A3390012     2C70LDLR25, var$0110R ; R25, 18(R25)  4B261739     2C74SLLR25, 48, R25  4B261799     2C78SRAR25, 48, R25  4F205419     2C7CMULQR25, 2, R25" A642FBD0     2C80LDQR18, -1072(R2)" 42590412     2C84ADDQR18, R25, R18! 2252008A     2C88LDAR18, 138(R18)   2E720000     2C8CLDQ_UR19, (R18)# 4A7202D2     2C90EXTWLR19, R18, R184 4A401692     2C94SRLR18, 0, R187  42405412     2C98ADDQR18, 2, R18" A622FBD0     2C9CLDQR17, -1072(R2)! 42210411     2CA0ADDQR17, R1, R172! 2231010A     2CA4LDAR17, 266(R17),  2E110000     2CA8LDQ_UR16, (R17)# 4A51037A     2CACINSWLR18, R17, R268# 4A110250     2CB0MSKWLR16, R17, R16,! 461A0410     2CB4BISR16, R26, R16R  3E110000     2CB8STQ_UR16, (R17)" A6E2FBD0     2CBCLDQR23, -1072(R2)
      ; 0005211# 2F170018     2CC0LDQ_UR24, var$0113V ; R24, 24(R23)' 4B1702C0     2CC4EXTWLR24, var$0113, R0  ; R24, R23, R0( 4B170258     2CC8MSKWLR24, var$0113, R24 ; R24, R23, R24S 40003400     2CCCADDQR0, 1, R0& 48170360     2CD0INSWLR0, var$0113, R0
 ; R0, R23, R0X  47000418     2CD4BISR24, R0, R24# 3F170018     2CD8STQ_UR24, var$0113  ; R24, 24(R23)! B7FD0010     2CDCSTQR31, var$0063  ; R31, 16(FP)    ; 000522  C3E00001     2CE0BRlab$0741        2CE4lab$0809:2
      ; 000517L! B7FD0008     2CE4STQR31, var$0065  ; R31, 8(FP)    ; 000526       2CE8lab$0741:2
      ; 000527r 47FD041E     2CE8MOVFP, SP  A75D0068     2CECLDQR26, 104(FP) A45D0070     2CF0LDQR2, 112(FP)0 A47D0078     2CF4LDQR3, 120(FP)  A49D0080     2CF8LDQR4, 128(FP)( A4BD0088     2CFCLDQR5, 136(FP)9 A4DD0090     2D00LDQR6, 144(FP)A A4FD0098     2D04LDQR7, 152(FP)9 A7BD00A0     2D08LDQFP, 160(FP)2 23DE00B0     2D0CLDASP, 176(SP)2 6BFA8001     2D10RETR267  8 Routine Size: 1788 bytes,    Routine Base: $CODE$ + 2618         2D14HALT::  23DEFF80     2D14LDASP, -128(SP) B77E0000     2D18STQR27, (SP)  B75E0050     2D1CSTQR26, 80(SP)  B45E0058     2D20STQR2, 88(SP) B47E0060     2D24STQR3, 96(SP) B49E0068     2D28STQR4, 104(SP)2 B4BE0070     2D2CSTQR5, 112(SP)6 B7BE0078     2D30STQFP, 120(SP)  47FE041D     2D34MOVSP, FP                                              P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 918Q                                  HALT                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   47FB0402     2D38MOVR27, R22! A402FBB0     2D3CLDQR0, -1104(R2)2
      ; 000545F A000FFFE     2D40LDLR0, -2(R0) 48041720     2D44SLLR0, 32, R0 48061680     2D48SRLR0, 48, R0 44009800     2D4CXORR0, 4, R0M  F4000045     2D50BNER0, lab$0821 47E07401     2D54MOV3, R10
      ; 0005461" A602FBB0     2D58LDQR16, -1104(R2)  A230FFFE     2D5CLDLR17, -2(R16)  4A219611     2D60ZAPR17, 12, R17 48205361     2D64INSWLR1, 2, R12  46210411     2D68BISR17, R1, R17  B230FFFE     2D6CSTLR17, -2(R16)  47E6F405     2D70MOV55, var$0067 ; 55, R5    ; 000547 47E03400     2D74MOV1, R0 ! A642FCD0     2D78LDQR18, -816(R2)2 B41200B0     2D7CSTQR0, IF ; R0, 176(R18)       2D80lab$0823:D  A422FCD0     2D80LDQR1, -816(R2)
      ; 000548  A42100B0     2D84LDQR1, I 
 ; R1, 176(R1)  48261721     2D88SLLR1, 48, R1 48261781     2D8CSRAR1, 48, R1 4C205401     2D90MULQR1, 2, R1" A602FBB0     2D94LDQR16, -1104(R2)! 42010410     2D98ADDQR16, R1, R16   2210001C     2D9CLDAR16, 28(R16)  2E300000     2DA0LDQ_UR17, (R16)" 4A3002C1     2DA4EXTWLR17, R16, R1 48201681     2DA8SRLR1, 0, R1R 2FFE0000     2DACUNOP0 E4200025     2DB0BEQR1, .108  A402FCD0     2DB4LDQR0, -816(R2)
      ; 000549A A40000B0     2DB8LDQR0, I5
 ; R0, 176(R0)  48061720     2DBCSLLR0, 48, R0 48061780     2DC0SRAR0, 48, R0 4C005400     2DC4MULQR0, 2, R0" A782FBB0     2DC8LDQR28, -1104(R2)  43800400     2DCCADDQR28, R0, R0 2200001C     2DD0LDAR16, 28(R0)R! A642FCD0     2DD4LDQR18, -816(R2)  A65200B0     2DD8LDQR18, I ; R18, 176(R18)0  4A461732     2DDCSLLR18, 48, R18  4A461792     2DE0SRAR18, 48, R18  4E405412     2DE4MULQR18, 2, R18" A782FBB0     2DE8LDQR28, -1104(R2)" 43920412     2DECADDQR28, R18, R18! 2232008A     2DF0LDAR17, 138(R18)0 47E05419     2DF4MOV2, R25" A762FBA8     2DF8LDQR27, -1112(R2) D3400136     2DFCBSRR26, MOVE1  A402FCD0     2E00LDQR0, -816(R2)
      ; 000550, A40000B0     2E04LDQR0, IA
 ; R0, 176(R0)0 44003014     2E08ANDR0, 1, R20  A422FCD0     2E0CLDQR1, -816(R2) A42100B0     2E10LDQR1, IL
 ; R1, 176(R1)A 48261721     2E14SLLR1, 48, R1                                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 92 Q                                  HALT                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   48261790     2E18SRAR1, 48, R162 47E2D411     2E1CMOV22, R17 ! A742FCF8     2E20LDQR26, -776(R2)0! A762FD00     2E24LDQR27, -768(R2)0" 6B5A4000     2E28JSRR26, OTS$DIV_L
 ; R26, R26 4C005400     2E2CMULQR0, 2, R0  42800400     2E30ADDQR20, R0, R0 B01D0038     2E34STLR0, 56(FP) 221D0038     2E38LDAR16, 56(FP)3 47E03419     2E3CMOV1, R25! A762FCD8     2E40LDQR27, -808(R2)  D3400170     2E44BSRR26, DS_OBJ        2E48.10:
      ; 0005522! 47FF0404     2E48MOVR31, var$00680	 ; R31, R40  A402FCD0     2E4CLDQR0, -816(R2)
      ; 0005470 A40000B0     2E50LDQR0, I,
 ; R0, 176(R0)3 40003400     2E54ADDQR0, 1, R0  A422FCD0     2E58LDQR1, -816(R2) B40100B0     2E5CSTQR0, I0
 ; R0, 176(R1)2* 40A03525     2E60SUBQvar$0067, 1, var$0067 ; R5, 1, R5 & FCBFFFC6     2E64BGTvar$0067, lab$0823 ; R5, lab$0823       2E68lab$0821: 
      ; 000546   47E15403     2E68MOV10, var$0069 ; 10, R3    ; 000555 47E03410     2E6CMOV1, R16! A622FCD0     2E70LDQR17, -816(R2)  B61100B0     2E74STQR16, I ; R16, 176(R17)        2E78lab$0845: 
      ; 000556- 221D0040     2E78LDAR16, 64(FP):! 2242FEA8     2E7CLDAR18, -344(R2)  47E03411     2E80MOV1, R17! A742FD38     2E84LDQR26, -712(R2) ! 6B5A4000     2E88JSRR26, OTS$MOVE 
 ; R26, R26 22BD0040     2E8CLDAR21, 64(FP)L" 26DF010E     2E90LDAHR22, 270(R31) 22D60001     2E94LDAR22, 1(R22)2 B2DD0048     2E98STLR22, 72(FP)2 43F50015     2E9CSEXTLR21, R21 B2BD004C     2EA0STLR21, 76(FP)  221D0048     2EA4LDAR16, 72(FP)  47E03419     2EA8MOV1, R25! A762FCA8     2EACLDQR27, -856(R2)2 D34001AA     2EB0BSRR26, SEND   A402FCD0     2EB4LDQR0, -816(R2)
      ; 0005550 A40000B0     2EB8LDQR0, Ia
 ; R0, 176(R0)0 40003400     2EBCADDQR0, 1, R0  A422FCD0     2EC0LDQR1, -816(R2) B40100B0     2EC4STQR0, I 
 ; R0, 176(R1)6* 40603523     2EC8SUBQvar$0069, 1, var$0069 ; R3, 1, R3  2FFE0000     2ECCUNOPB& FC7FFFE9     2ED0BGTvar$0069, lab$0845 ; R3, lab$0845 22020028     2ED4LDAR16, 40(R2) 
      ; 000557,! 2362FD10     2ED8LDAR27, -752(R2)R D35FF6B7     2EDCBSRR26, SLEEP 22020020     2EE0LDAR16, 32(R2)0
      ; 000558$ 47E03419     2EE4MOV1, R25" A762FB70     2EE8LDQR27, -1168(R2)( D3400013     2EECBSRR26, SPECIAL_GRAPHIC                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 93DQ                                  HALT                             1-APR-2003 20:3F& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! 2202FF60     2EF0LDAR16, -160(R2)0
      ; 000559V" 2222FB98     2EF4LDAR17, -1128(R2) 47E05419     2EF8MOV2, R25" A762FBA8     2EFCLDQR27, -1112(R2) D34000F5     2F00BSRR26, MOVEL 22020048     2F04LDAR16, 72(R2)N
      ; 000560E 47E03419     2F08MOV1, R25 A7420038     2F0CLDQR26, 56(R2)  A7620040     2F10LDQR27, 64(R2)8" 6B5A4000     2F14JSRR26, DFOR$EXIT
 ; R26, R26 47FD041E     2F18MOVFP, SP
      ; 0005611 A75D0050     2F1CLDQR26, 80(FP)1 A45D0058     2F20LDQR2, 88(FP) A47D0060     2F24LDQR3, 96(FP) A49D0068     2F28LDQR4, 104(FP)E A4BD0070     2F2CLDQR5, 112(FP)E A7BD0078     2F30LDQFP, 120(FP)8 23DE0080     2F34LDASP, 128(SP)  6BFA8001     2F38RETR26   7 Routine Size: 552 bytes,    Routine Base: $CODE$ + 2D14R         2F3CSPECIAL_GRAPHIC::n  23DEFF40     2F3CLDASP, -192(SP)! B7FE0008     2F40STQR31, var$0070  ; R31, 8(SP) B77E0000     2F44STQR27, (SP):  B75E00A8     2F48STQR26, 168(SP) B45E00B0     2F4CSTQR2, 176(SP)1 B7BE00B8     2F50STQFP, 184(SP)6 63FF0000     2F54TRAPB 47FE041D     2F58MOVSP, FP 47FB0402     2F5CMOVR27, R22 B61D0038     2F60STQR16, 56(FP)R! A602FC80     2F64LDQR16, -896(R2)R
      ; 000569  221000C4     2F68LDAR16, FLAG6 ; R16, 196(R16)R! A622FC80     2F6CLDQR17, -896(R2)2 223100B8     2F70LDAR17, TYP ; R17, 184(R17)0 47FF0412     2F74CLRR18Q 47FF0413     2F78CLRR19  47E09419     2F7CMOV4, R25 A7420058     2F80LDQR26, 88(R2)Z A7620060     2F84LDQR27, 96(R2)I( 6B5A4000     2F88JSRR26, LIB$SCREEN_INFO
 ; R26, R26  A422FC80     2F8CLDQR1, -896(R2)  B00100C0     2F90STLR0, RET_STAT
 ; R0, 192(R1)0 A61D0038     2F94LDQR16, 56(FP)2
      ; 0005703 A2100000     2F98LDLR16, (R16) 2FFE0000     2F9CUNOP3" E2000099     2FA0BLBCR16, lab$0878! A622FC80     2FA4LDQR17, -896(R2)I
      ; 0005710 A63100B8     2FA8LDQR17, TYP ; R17, 184(R17) ! 463FF011     2FACANDR17, 255, R17   46281811     2FB0XORR17, 64, R17! F6200010     2FB4BNER17, lab$08814 221D0060     2FB8LDAR16, 96(FP)(
      ; 000572   22420068     2FBCLDAR18, 104(R2) 47E05411     2FC0MOV2, R17                                        P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 94EQ                                  SPECIAL_GRAPHIC                  1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! A742FCE8     2FC4LDQR26, -792(R2)0! 6B5A4000     2FC8JSRR26, OTS$MOVE0
 ; R26, R26 22BD0060     2FCCLDAR21, 96(FP) " 26DF010E     2FD0LDAHR22, 270(R31) 22D60002     2FD4LDAR22, 2(R22)   B2DD0068     2FD8STLR22, 104(FP) 43F50015     2FDCSEXTLR21, R21  B2BD006C     2FE0STLR21, 108(FP)  221D0068     2FE4LDAR16, 104(FP) 47E03419     2FE8MOV1, R25! A762FC58     2FECLDQR27, -936(R2)L D340015A     2FF0BSRR26, SENDM C3E000A9     2FF4BRlab$0879A       2FF8lab$0881:2
      ; 000573Q  A402FC80     2FF8LDQR0, -896(R2) A40000B8     2FFCLDQR0, TYP 
 ; R0, 184(R0)B 441FF000     3000ANDR0, 255, R0   400C15A0     3004CMPEQR0, 96, R0  A422FC80     3008LDQR1, -896(R2) A42100B8     300CLDQR1, TYP 
 ; R1, 184(R1)l 443FF001     3010ANDR1, 255, R1,! 402DD5A1     3014CMPEQR1, 110, R1  44010400     3018BISR0, R1, R0 2FFE0000     301CUNOPa  E400005B     3020BEQR0, lab$0919! B3FD0008     3024STLR31, var$0070V ; R31, 8(FP)    ; 000574" 2262FB68     3028LDAR19, -1176(R2)! 221D0008     302CLDAR16, var$0070P ; R16, 8(FP) 223FFFFE     3030MOV-2, R17I  265F0005     3034LDAHR18, 5(R31)" 2252FF80     3038LDAR18, -128(R18) 47FF0414     303CCLRR20R 47E0B419     3040MOV5, R25" A742FBA8     3044LDQR26, -1112(R2)" A762FBB0     3048LDQR27, -1104(R2) 2FFE0000     304CUNOP + 6B5A4000     3050JSRR26, DFOR$WRITE_SEQ_LIS0
 ; R26, R26! A402FB70     3054LDQR0, -1168(R2)0
      ; 0005750 20000300     3058LDAR0, 768(R0)0! B3FD0008     305CSTLR31, var$00700 ; R31, 8(FP)" 2262FBB8     3060LDAR19, -1096(R2) 47E51410     3064MOV40, R168  B61D0080     3068STQR16, 128(FP) B41D0088     306CSTQR0, 136(FP)$! 221D0008     3070LDAR16, var$0070  ; R16, 8(FP) 223FFFFE     3074MOV-2, R17,  265F0005     3078LDAHR18, 5(R31)" 2252FF80     307CLDAR18, -128(R18)  229D0080     3080LDAR20, 128(FP) 47E0B419     3084MOV5, R25" A742FBA8     3088LDQR26, -1112(R2)" A762FBB0     308CLDQR27, -1104(R2)+ 6B5A4000     3090JSRR26, DFOR$WRITE_SEQ_LIS2
 ; R26, R26! A402FB70     3094LDQR0, -1168(R2)1
      ; 000576  200002E0     3098LDAR0, 736(R0) ! B3FD0008     309CSTLR31, var$0070, ; R31, 8(FP)" 2262FBB8     30A0LDAR19, -1096(R2)                                          P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 952Q                                  SPECIAL_GRAPHIC                  1-APR-2003 20:3C& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   47E3D410     30A4MOV30, R160  B61D0080     30A8STQR16, 128(FP) B41D0088     30ACSTQR0, 136(FP)L! 221D0008     30B0LDAR16, var$0070R ; R16, 8(FP) 223FFFFE     30B4MOV-2, R17   265F0005     30B8LDAHR18, 5(R31)" 2252FF80     30BCLDAR18, -128(R18)  229D0080     30C0LDAR20, 128(FP) 47E0B419     30C4MOV5, R25" A742FBA8     30C8LDQR26, -1112(R2)" A762FBB0     30CCLDQR27, -1104(R2)+ 6B5A4000     30D0JSRR26, DFOR$WRITE_SEQ_LIS5
 ; R26, R26! A402FB70     30D4LDQR0, -1168(R2)2
      ; 0005777 200002B0     30D8LDAR0, 688(R0)7! B3FD0008     30DCSTLR31, var$00705 ; R31, 8(FP)" 2262FBB8     30E0LDAR19, -1096(R2) 47E55410     30E4MOV42, R168 B61D0060     30E8STQR16, 96(FP)2 B41D0068     30ECSTQR0, 104(FP)R! 221D0008     30F0LDAR16, var$00702 ; R16, 8(FP) 223FFFFE     30F4MOV-2, R175  265F0005     30F8LDAHR18, 5(R31)" 2252FF80     30FCLDAR18, -128(R18) 229D0060     3100LDAR20, 96(FP)  47E0B419     3104MOV5, R25" A742FBA8     3108LDQR26, -1112(R2)" A762FBB0     310CLDQR27, -1104(R2)+ 6B5A4000     3110JSRR26, DFOR$WRITE_SEQ_LISA
 ; R26, R26! B3FD0008     3114STLR31, var$0070  ; R31, 8(FP)    ; 000578" 2262FB68     3118LDAR19, -1176(R2)! 221D0008     311CLDAR16, var$0070R ; R16, 8(FP) 223FFFFE     3120MOV-2, R17   265F0005     3124LDAHR18, 5(R31)" 2252FF80     3128LDAR18, -128(R18) 47FF0414     312CCLRR201 47E0B419     3130MOV5, R25" A742FBA8     3134LDQR26, -1112(R2)" A762FBB0     3138LDQR27, -1104(R2) 2FFE0000     313CUNOP + 6B5A4000     3140JSRR26, DFOR$WRITE_SEQ_LISB
 ; R26, R26 22020048     3144LDAR16, 72(R2)2
      ; 000579 ! 2362FCC0     3148LDAR27, -832(R2)  D35FF61B     314CBSRR26, SLEEP  221D0078     3150LDAR16, 120(FP)
      ; 0005809 22420030     3154LDAR18, 48(R2)2 47E07411     3158MOV3, R17! A742FCE8     315CLDQR26, -792(R2) ! 6B5A4000     3160JSRR26, OTS$MOVE5
 ; R26, R26 201D0078     3164LDAR0, 120(FP)2! 243F010E     3168LDAHR1, 270(R31)2 20210003     316CLDAR1, 3(R1)2 B03D0090     3170STLR1, 144(FP)  43E00000     3174SEXTLR0, R0 B01D0094     3178STLR0, 148(FP)   221D0090     317CLDAR16, 144(FP) 47E03419     3180MOV1, R25! A762FC58     3184LDQR27, -936(R2)3                                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 968Q                                  SPECIAL_GRAPHIC                  1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   D34000F4     3188BSRR26, SEND  C3E00043     318CBRlab$08790       3190lab$0919:P
      ; 000582  20020038     3190LDAR0, 56(R2)! B3FD0008     3194STLR31, var$0070  ; R31, 8(FP)  22620098     3198LDAR19, 152(R2) 47E1B410     319CMOV13, R165 B61D0060     31A0STQR16, 96(FP)6 B41D0068     31A4STQR0, 104(FP)7! 221D0008     31A8LDAR16, var$0070  ; R16, 8(FP) 223FFFFE     31ACMOV-2, R174  265F0005     31B0LDAHR18, 5(R31)" 2252FF80     31B4LDAR18, -128(R18) 229D0060     31B8LDAR20, 96(FP)  47E0B419     31BCMOV5, R25" A742FBA8     31C0LDQR26, -1112(R2)" A762FBB0     31C4LDQR27, -1104(R2)+ 6B5A4000     31C8JSRR26, DFOR$WRITE_SEQ_LISK
 ; R26, R26  A402FC80     31CCLDQR0, -896(R2) A40000B8     31D0LDQR0, TYP0
 ; R0, 184(R0)1  222200A0     31D4LDAR17, 160(R2)  A21D0070     31D8LDLR16, 112(FP) 4A003610     31DCZAPR16, 1, R160 441FF000     31E0ANDR0, 255, R0   46000410     31E4BISR16, R0, R16  B21D0070     31E8STLR16, 112(FP)! 221D0008     31ECLDAR16, var$00704 ; R16, 8(FP)  225D0070     31F0LDAR18, 112(FP) 47E07419     31F4MOV3, R25  A7420088     31F8LDQR26, 136(R2)  A7620090     31FCLDQR27, 144(R2)0 6B5A4000     3200JSRR26, DFOR$WRITE_SEQ_LIS_XMIT
 ; R26, R26 C3E0002D     3204BRlab$09210       3208lab$0878:r
      ; 0005861  A402FC80     3208LDQR0, -896(R2) A40000B8     320CLDQR0, TYP1
 ; R0, 184(R0)6 441FF000     3210ANDR0, 255, R06 44081800     3214XORR0, 64, R0  F4000011     3218BNER0, lab$0934  221D0080     321CLDAR16, 128(FP)
      ; 0005871  22420070     3220LDAR18, 112(R2) 47E05411     3224MOV2, R17! A742FCE8     3228LDQR26, -792(R2)9 2FFE0000     322CUNOPB! 6B5A4000     3230JSRR26, OTS$MOVE;
 ; R26, R26 203D0080     3234LDAR1, 128(FP) " 26BF010E     3238LDAHR21, 270(R31) 22B50002     323CLDAR21, 2(R21)2  B2BD0088     3240STLR21, 136(FP) 43E10001     3244SEXTLR1, R1 B03D008C     3248STLR1, 140(FP)   221D0088     324CLDAR16, 136(FP) 47E03419     3250MOV1, R25! A762FC58     3254LDQR27, -936(R2)5 D34000C0     3258BSRR26, SEND0 C3E0000F     325CBRlab$08792       3260lab$0934:,
      ; 0005891                                            P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 978Q                                  SPECIAL_GRAPHIC                  1-APR-2003 20:3r& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    221D0098     3260LDAR16, 152(FP)  22420078     3264LDAR18, 120(R2) 47E07411     3268MOV3, R17! A742FCE8     326CLDQR26, -792(R2)P! 6B5A4000     3270JSRR26, OTS$MOVEL
 ; R26, R26 201D0098     3274LDAR0, 152(FP)1! 243F010E     3278LDAHR1, 270(R31)1 20210003     327CLDAR1, 3(R1)a B03D00A0     3280STLR1, 160(FP)0 43E00000     3284SEXTLR0, R0 B01D00A4     3288STLR0, 164(FP)L  221D00A0     328CLDAR16, 160(FP) 47E03419     3290MOV1, R25! A762FC58     3294LDQR27, -936(R2)4 D34000B0     3298BSRR26, SENDB       329Clab$0879:7
      ; 0005861! B7FD0040     329CSTQR31, var$0078  ; R31, 64(FP)    ; 0005920 63FF0000     32A0TRAPB
      ; 000593  47FD041E     32A4MOVFP, SP  A75D00A8     32A8LDQR26, 168(FP) A45D00B0     32ACLDQR2, 176(FP)1 A7BD00B8     32B0LDQFP, 184(FP)( 23DE00C0     32B4LDASP, 192(SP)8 6BFA8001     32B8RETR266       32BClab$0921:,
      ; 000582R" A602FB70     32BCLDQR16, -1168(R2)
      ; 000583 ! 22100280     32C0LDAR16, 640(R16)  47E5D411     32C4MOV46, R17, 47E05419     32C8MOV2, R25! A742FD48     32CCLDQR26, -696(R2)8! A762FD50     32D0LDQR27, -688(R2)5" 6B5A4000     32D4JSRR26, DFOR$STOP
 ; R26, R26  7 Routine Size: 924 bytes,    Routine Base: $CODE$ + 2F3CL         32D8MOVE::  23DEFF90     32D8LDASP, -112(SP) B77E0000     32DCSTQR27, (SP)  B75E0050     32E0STQR26, 80(SP)A B45E0058     32E4STQR2, 88(SP) B7BE0060     32E8STQFP, 96(SP) 47FE041D     32ECMOVSP, FP 47FB0402     32F0MOVR27, R20 B61D0010     32F4STQR16, 16(FP)7 B63D0008     32F8STQR17, 8(FP) A41D0010     32FCLDQR0, 16(FP)
      ; 000601  2C200000     3300LDQ_UR1, (R0)  482002C1     3304EXTWLR1, R0, R1 F000001C     3308BLBSR0, L$82  47E10400     330CMOVR1, R0       3310L$83:O 48061720     3310SLLR0, 48, R0 48061780     3314SRAR0, 48, R0 40003410     3318ADDQR0, 1, R16v A63D0008     331CLDQR17, 8(FP)  2E710000     3320LDQ_UR19, (R17)# 4A7102D3     3324EXTWLR19, R17, R199    P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 989Q                                  MOVE                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   F2200018     3328BLBSR17, L$84 47F30411     332CMOVR19, R17       3330L$85:1  4A261731     3330SLLR17, 48, R17  4A261791     3334SRAR17, 48, R17  42203411     3338ADDQR17, 1, R17 47E05419     333CMOV2, R25 A7420020     3340LDQR26, 32(R2)R A7620028     3344LDQR27, 40(R2),' 6B5A4000     3348JSRR26, SCR$SET_CURSOR 
 ; R26, R26 2FFE0000     334CUNOPA 57E005E0     3350CVTGQ/C F0, F0M 5FE00601     3354CVTQLF0, F1! A402FBD8     3358LDQR0, -1064(R2)R 982000C8     335CSTSF1, IDUMMY
 ; F1, 200(R0)3! B7FD0018     3360STQR31, var$0080A ; R31, 24(FP)    ; 000602  47FD041E     3364MOVFP, SP
      ; 000603  A75D0050     3368LDQR26, 80(FP)2 A45D0058     336CLDQR2, 88(FP) A7BD0060     3370LDQFP, 96(FP) 23DE0070     3374LDASP, 112(SP)1 6BFA8001     3378RETR26b       337CL$82:4
      ; 000601   2E400001     337CLDQ_UR18, 1(R0)" 4A400B52     3380EXTWHR18, R0, R18 46410400     3384BISR18, R1, R06 C3FFFFE1     3388BRL$83R       338CL$84:2! 2E910001     338CLDQ_UR20, 1(R17)F# 4A910B54     3390EXTWHR20, R17, R20Q! 46930411     3394BISR20, R19, R17L C3FFFFE5     3398BRL$85(  7 Routine Size: 196 bytes,    Routine Base: $CODE$ + 32D8A         339CCLEAR::7 23DEFFA0     339CLDASP, -96(SP)0 B77E0000     33A0STQR27, (SP)7 B75E0040     33A4STQR26, 64(SP)3 B45E0048     33A8STQR2, 72(SP) B7BE0050     33ACSTQFP, 80(SP) 47FE041D     33B0MOVSP, FP 47FB0402     33B4MOVR27, R2  47E03400     33B8MOV1, R0h
      ; 000609g! A422FBA8     33BCLDQR1, -1112(R2)  B00100CC     33C0STLR0, I 
 ; R0, 204(R1) " A602FBA8     33C4LDQR16, -1112(R2)
      ; 000610  221000CC     33C8LDAR16, I ; R16, 204(R16)R" A622FBA8     33CCLDQR17, -1112(R2) 223100CC     33D0LDAR17, I ; R17, 204(R17)2 47E05419     33D4MOV2, R25 A7420020     33D8LDQR26, 32(R2)  A7620028     33DCLDQR27, 40(R2)A' 6B5A4000     33E0JSRR26, LIB$ERASE_PAGE2
 ; R26, R26! A422FBA8     33E4LDQR1, -1112(R2), B00100CC     33E8STLR0, IS
 ; R0, 204(R1) ! B7FD0008     33ECSTQR31, var$00828 ; R31, 8(FP)    ; 000611                                          P SEND                            Machine Code Listing             1-APR-2003 20:4/ 7:50  Compaq Fortran V7.4A-1588         Page 996Q                                  CLEAR                            1-APR-2003 20:3L& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   47FD041E     33F0MOVFP, SP
      ; 000612  A75D0040     33F4LDQR26, 64(FP)Q A45D0048     33F8LDQR2, 72(FP) A7BD0050     33FCLDQFP, 80(FP) 23DE0060     3400LDASP, 96(SP) 6BFA8001     3404RETR26L  7 Routine Size: 108 bytes,    Routine Base: $CODE$ + 339C)         3408DS_OBJ::  23DEFF60     3408LDASP, -160(SP) B77E0000     340CSTQR27, (SP),  B75E0078     3410STQR26, 120(SP) B45E0080     3414STQR2, 128(SP)P B47E0088     3418STQR3, 136(SP)L B7BE0090     341CSTQFP, 144(SP)9 47FE041D     3420MOVSP, FP 47FB0402     3424MOVR27, R2  47F00403     3428MOVR16, R3Q! A402FA58     342CLDQR0, -1448(R2)1
      ; 0006296 A000FFFE     3430LDLR0, -2(R0) 48041720     3434SLLR0, 32, R0 48061680     3438SRLR0, 48, R0 400095A0     343CCMPEQR0, 4, R00 A2030000     3440LDLR16, (R3)0# 461F0880     3444CMOVLTR16, R31, R0  A0230000     3448LDLR1, (R3) 4020BDA1     344CCMPLER1, 5, R18 44010000     3450ANDR0, R1, R0  E4000002     3454BEQR0, lab$0960 47E0D410     3458MOV6, R16 B2030000     345CSTLR16, (R3)8       3460lab$0960:0 A0030000     3460LDLR0, (R3)
      ; 0006300  4000F7A1     3464CMPULER0, 7, R1  E4200030     3468BEQR1, lab$0962" A782FA68     346CLDQR28, -1432(R2)# 401C045C     3470S4ADDQR0, R28, R282 A6020008     3474LDQR16, 8(R2)! A39C032C     3478LDLR28, 812(R28)7" 4390041C     347CADDQR28, R16, R28 6BFC0003     3480JMPR28_       3484lab$0968:E
      ; 0006332 22020030     3484LDAR16, 48(R2)2 47E03419     3488MOV1, R25" A762FB50     348CLDQR27, -1200(R2) D3400032     3490BSRR26, SEND0! B7FD0038     3494STQR31, var$0085  ; R31, 56(FP)    ; 000634  C3E00029     3498BRlab$0956        349Clab$0974: 
      ; 000635p 22020038     349CLDAR16, 56(R2)e 47E03419     34A0MOV1, R25" A762FB50     34A4LDQR27, -1200(R2) D340002C     34A8BSRR26, SEND ! B7FD0030     34ACSTQR31, var$0086  ; R31, 48(FP)    ; 000636  C3E00023     34B0BRlab$09561       34B4lab$0980: 
      ; 000637$    P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 100Q                                  DS_OBJ                           1-APR-2003 20:3)& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   22020020     34B4LDAR16, 32(R2)0 47E03419     34B8MOV1, R25" A762FB50     34BCLDQR27, -1200(R2) D3400026     34C0BSRR26, SEND ! B7FD0028     34C4STQR31, var$0087  ; R31, 40(FP)    ; 000638( C3E0001D     34C8BRlab$09561       34CClab$0986: 
      ; 0006391 22020028     34CCLDAR16, 40(R2), 47E03419     34D0MOV1, R25" A762FB50     34D4LDQR27, -1200(R2) D3400020     34D8BSRR26, SEND2! B7FD0020     34DCSTQR31, var$0088V ; R31, 32(FP)    ; 000640v C3E00017     34E0BRlab$09566       34E4lab$0992:4
      ; 0006415 22020050     34E4LDAR16, 80(R2)5 47E03419     34E8MOV1, R25" A762FB50     34ECLDQR27, -1200(R2) D340001A     34F0BSRR26, SEND2! B7FD0018     34F4STQR31, var$0089  ; R31, 24(FP)    ; 000642( C3E00011     34F8BRlab$09562       34FClab$0998:5
      ; 000643, 22020058     34FCLDAR16, 88(R2), 47E03419     3500MOV1, R25" A762FB50     3504LDQR27, -1200(R2) D3400014     3508BSRR26, SEND ! B7FD0010     350CSTQR31, var$00901 ; R31, 16(FP)    ; 0006442 C3E0000B     3510BRlab$09561       3514lab$1004:A
      ; 0006451 22020040     3514LDAR16, 64(R2)R 47E03419     3518MOV1, R25" A762FB50     351CLDQR27, -1200(R2) D340000E     3520BSRR26, SEND ! B7FD0008     3524STQR31, var$00910 ; R31, 8(FP)    ; 000646 C3E00005     3528BRlab$09568       352Clab$0962:A
      ; 000631  22020048     352CLDAR16, 72(R2)0 47E03419     3530MOV1, R25" A762FB50     3534LDQR27, -1200(R2) D3400008     3538BSRR26, SEND2! B7FD0040     353CSTQR31, var$0084S ; R31, 64(FP)    ; 000632        3540lab$0956:2
      ; 000647Q 47FD041E     3540MOVFP, SP  A75D0078     3544LDQR26, 120(FP) A45D0080     3548LDQR2, 128(FP)R A47D0088     354CLDQR3, 136(FP)0 A7BD0090     3550LDQFP, 144(FP)0 23DE00A0     3554LDASP, 160(SP)  6BFA8001     3558RETR26   7 Routine Size: 340 bytes,    Routine Base: $CODE$ + 3408          355CSEND::  23DEFF50     355CLDASP, -176(SP)! B7FE0008     3560STQR31, var$00921 ; R31, 8(SP) B77E0000     3564STQR27, (SP)   B75E0088     3568STQR26, 136(SP) B45E0090     356CSTQR2, 144(SP)P                                          P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 101Q                                  SEND                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   B47E0098     3570STQR3, 152(SP)B B7BE00A0     3574STQFP, 160(SP)1 63FF0000     3578TRAPB 47FE041D     357CMOVSP, FP 47FB0402     3580MOVR27, R21 47F00403     3584MOVR16, R3P 2C230000     3588LDQ_UR1, (R3)  482302C1     358CEXTWLR1, R3, R1 F060004C     3590BLBSR3, L$87S 47E10400     3594MOVR1, R0       3598L$88:  48001680     3598SRLR0, 0, R0$ B41D0040     359CSTQR0, 64(FP) A0630004     35A0LDLR3, 4(R3)0 A4220070     35A4LDQR1, 112(R2)   20210000     35A8LDAR1, lab$1011
 ; R1, (R1)  B43D0060     35ACSTQR1, var$0095 ; R1, 96(FP)! B3FD0008     35B0STLR31, var$0092  ; R31, 8(FP)    ; 000655" 2262FA50     35B4LDAR19, -1456(R2) A41D0040     35B8LDQR0, 64(FP) B41D0070     35BCSTQR0, 112(FP)2 B47D0078     35C0STQR3, 120(FP) ! 221D0008     35C4LDAR16, var$0092  ; R16, 8(FP) 223FFFFE     35C8MOV-2, R17V  265F0005     35CCLDAHR18, 5(R31)" 2252FF80     35D0LDAR18, -128(R18)  229D0070     35D4LDAR20, 112(FP)" A6A2FB28     35D8LDQR21, -1240(R2)! 22B50038     35DCLDAR21, var$0094  ; R21, 56(R21) 47E0D419     35E0MOV6, R25 A7420060     35E4LDQR26, 96(R2)6  A7620068     35E8LDQR27, 104(R2) 2FFE0000     35ECUNOP6+ 6B5A4000     35F0JSRR26, DFOR$WRITE_SEQ_FMT,
 ; R26, R26! B7FD0058     35F4STQR31, var$00980 ; R31, 88(FP)    ; 000657  C3E00027     35F8BRlab$1010,       35FCSEND_INT::
      ; 000659)  23DEFF50     35FCLDASP, -176(SP)! B7FE0008     3600STQR31, var$00922 ; R31, 8(SP) B77E0000     3604STQR27, (SP)9  B75E0088     3608STQR26, 136(SP) B45E0090     360CSTQR2, 144(SP)3 B47E0098     3610STQR3, 152(SP)2 B7BE00A0     3614STQFP, 160(SP)1 63FF0000     3618TRAPB 47FE041D     361CMOVSP, FP  205BFFD0     3620LDAR2, -48(R27) B61D0038     3624STQR16, 56(FP)  A4020080     3628LDQR0, 128(R2),  20000000     362CLDAR0, lab$1012
 ; R0, (R0)  B41D0060     3630STQR0, var$0095 ; R0, 96(FP) A43D0038     3634LDQR1, 56(FP)
      ; 000660  2E210000     3638LDQ_UR17, (R1) " 4A2102D1     363CEXTWLR17, R1, R17 F0200024     3640BLBSR1, L$89  47F10401     3644MOVR17, R18       3648L$90:6                                            P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 102Q                                  SEND                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   48201681     3648SRLR1, 0, R1L! B3FD0008     364CSTLR31, var$00922 ; R31, 8(FP)  22620078     3650LDAR19, 120(R2)  A2BD0080     3654LDLR21, 128(FP) 4AA07615     3658ZAPR21, 3, R216 48201361     365CINSWLR1, 0, R16  46A10415     3660BISR21, R1, R21  B2BD0080     3664STLR21, 128(FP)! 221D0008     3668LDAR16, var$00921 ; R16, 8(FP) 223FFFFE     366CMOV-2, R171  265F0005     3670LDAHR18, 5(R31)" 2252FF80     3674LDAR18, -128(R18)  229D0080     3678LDAR20, 128(FP)" A6A2FB28     367CLDQR21, -1240(R2)! 22B50018     3680LDAR21, var$0093L ; R21, 24(R21) 47E0D419     3684MOV6, R25 A7420060     3688LDQR26, 96(R2)9  A7620068     368CLDQR27, 104(R2)+ 6B5A4000     3690JSRR26, DFOR$WRITE_SEQ_FMT 
 ; R26, R26! B7FD0048     3694STQR31, var$01001 ; R31, 72(FP)    ; 000662A       3698lab$1010:R
      ; 000663   A45D0060     3698LDQR2, var$0095 ; R2, 96(FP) 2FFE0000     369CUNOP1 6BE20003     36A0JMPR2       36A4lab$1011:        36A4lab$1012:  63FF0000     36A4TRAPB 47FD041E     36A8MOVFP, SP  A75D0088     36ACLDQR26, 136(FP) A45D0090     36B0LDQR2, 144(FP)2 A47D0098     36B4LDQR3, 152(FP)2 A7BD00A0     36B8LDQFP, 160(FP)L 23DE00B0     36BCLDASP, 176(SP)S 6BFA8001     36C0RETR26        36C4L$87:,
      ; 000650   2E230001     36C4LDQ_UR17, 1(R3)" 4A230B51     36C8EXTWHR17, R3, R17 46210400     36CCBISR17, R1, R0  C3FFFFB1     36D0BRL$88S       36D4L$89:6
      ; 000660A  2E410001     36D4LDQ_UR18, 1(R1)" 4A410B52     36D8EXTWHR18, R1, R18  46510401     36DCBISR18, R17, R1 C3FFFFD9     36E0BRL$902  7 Routine Size: 392 bytes,    Routine Base: $CODE$ + 355CB    * .PSECT$DATA$, OCTA, NOPIC, CON, REL, LCL,- NOSHR, NOEXE, RD, WRT6  00000036     0000.LONGX^00000036  0001001C     0004.LONGX^0001001C        2B     0008.ASCII\+\,          00     0009.BYTEX^00, -        00     000A.BYTEX^00, -        00     000B.BYTEX^00T                                                  P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 103Q                                  SEND                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  # 00000024     000C.LONGX^00000024, -Y# 00000001     0010.LONGX^00000001, -0  00000004     0014.LONGX^00000004  00000045     0018.LONGX^00000045  00000037     001C.LONGX^00000037  00000036     0020.LONGX^00000036  0001001C     0024.LONGX^0001001C        2B     0028.ASCII\+\           00     0029.BYTEX^00, -        00     002A.BYTEX^00, -        00     002B.BYTEX^00   00010048     002C.LONGX^00010048  00000045     0030.LONGX^00000045  00000037     0034.LONGX^00000037
 INIT_BARR: 20202020     0038.BYTEX^20	 .BYTEX^20L	 .BYTEX^202	 .BYTEX^204	 .BYTEX^20A	 .BYTEX^20,	 .BYTEX^201	 .BYTEX^20L	 .BYTEX^20R	 .BYTEX^6C0	 .BYTEX^77L	 .BYTEX^771	 .BYTEX^771	 .BYTEX^77T	 .BYTEX^77 	 .BYTEX^776	 .BYTEX^6BS	 .BYTEX^201	 .BYTEX^209	 .BYTEX^20Q	 .BYTEX^201	 .BYTEX^203	 .BYTEX^20V	 .BYTEX^206	 .BYTEX^20R	 .BYTEX^202	 .BYTEX^200	 .BYTEX^6CQ	 .BYTEX^6B2	 .BYTEX^6C0	 .BYTEX^6B0	 .BYTEX^6CD	 .BYTEX^6B 	 .BYTEX^6CR	 .BYTEX^6B4	 .BYTEX^20A	 .BYTEX^20R	 .BYTEX^200	 .BYTEX^20Q	 .BYTEX^202	 .BYTEX^208                    P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 104Q                                  SEND                             1-APR-2003 20:3F& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  	 .BYTEX^20,	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20,	 .BYTEX^6CB	 .BYTEX^6B2	 .BYTEX^6C4	 .BYTEX^6B0	 .BYTEX^6C0	 .BYTEX^6B,	 .BYTEX^6CB	 .BYTEX^6BL	 .BYTEX^202	 .BYTEX^200	 .BYTEX^20L	 .BYTEX^200	 .BYTEX^20,	 .BYTEX^20A	 .BYTEX^202	 .BYTEX^204	 .BYTEX^206	 .BYTEX^201	 .BYTEX^6C,	 .BYTEX^774	 .BYTEX^77M	 .BYTEX^77R	 .BYTEX^770	 .BYTEX^77Q	 .BYTEX^77R	 .BYTEX^6B7	 .BYTEX^20D	 .BYTEX^20R	 .BYTEX^20C	 .BYTEX^20A	 .BYTEX^20)	 .BYTEX^20 	 .BYTEX^20U	 .BYTEX^20 	 .BYTEX^20  20202020     0088.BYTEX^20	 .BYTEX^202	 .BYTEX^200	 .BYTEX^202	 .BYTEX^203	 .BYTEX^200	 .BYTEX^20B	 .BYTEX^203	 .BYTEX^6C2	 .BYTEX^6E6	 .BYTEX^6E4	 .BYTEX^768	 .BYTEX^766	 .BYTEX^764	 .BYTEX^76(	 .BYTEX^6E3	 .BYTEX^6EI	 .BYTEX^6B2                    P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 105Q                                  SEND                             1-APR-2003 20:31& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  	 .BYTEX^20L	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20h	 .BYTEX^6Cs	 .BYTEX^76 	 .BYTEX^6E2	 .BYTEX^76:	 .BYTEX^76F	 .BYTEX^76A	 .BYTEX^76 	 .BYTEX^6E 	 .BYTEX^76 	 .BYTEX^6B 	 .BYTEX^20V	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20-	 .BYTEX^20 	 .BYTEX^20Y	 .BYTEX^20G	 .BYTEX^20R	 .BYTEX^6CB	 .BYTEX^76L	 .BYTEX^6E2	 .BYTEX^760	 .BYTEX^76L	 .BYTEX^760	 .BYTEX^76,	 .BYTEX^6EB	 .BYTEX^762	 .BYTEX^6B4	 .BYTEX^206	 .BYTEX^207	 .BYTEX^20,	 .BYTEX^204	 .BYTEX^20M	 .BYTEX^20R	 .BYTEX^200	 .BYTEX^20Q	 .BYTEX^6CR	 .BYTEX^6E2	 .BYTEX^6ED	 .BYTEX^76R	 .BYTEX^76A	 .BYTEX^76A	 .BYTEX^768	 .BYTEX^6E0	 .BYTEX^6EQ	 .BYTEX^6B)	 .BYTEX^20 	 .BYTEX^20L	 .BYTEX^201                    P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 106Q                                  SEND                             1-APR-2003 20:3L& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20,	 .BYTEX^20 	 .BYTEX^20  20202020     00D8.BYTEX^20	 .BYTEX^20L	 .BYTEX^202	 .BYTEX^20;	 .BYTEX^20F	 .BYTEX^202	 .BYTEX^20,	 .BYTEX^20 	 .BYTEX^742	 .BYTEX^6E0	 .BYTEX^75T	 .BYTEX^200	 .BYTEX^20 	 .BYTEX^200	 .BYTEX^20 	 .BYTEX^74L	 .BYTEX^6E1	 .BYTEX^752	 .BYTEX^20S	 .BYTEX^20 	 .BYTEX^20R	 .BYTEX^208	 .BYTEX^202	 .BYTEX^20 	 .BYTEX^200	 .BYTEX^20,	 .BYTEX^744	 .BYTEX^71B	 .BYTEX^75R	 .BYTEX^208	 .BYTEX^20Q	 .BYTEX^200	 .BYTEX^20,	 .BYTEX^747	 .BYTEX^712	 .BYTEX^75v	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20b	 .BYTEX^20 	 .BYTEX^208	 .BYTEX^20;	 .BYTEX^747	 .BYTEX^712	 .BYTEX^75v	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20a	 .BYTEX^74                     P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 107Q                                  SEND                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  	 .BYTEX^71 	 .BYTEX^75P	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20B	 .BYTEX^202	 .BYTEX^20 	 .BYTEX^20i	 .BYTEX^20t	 .BYTEX^74i	 .BYTEX^6EO	 .BYTEX^75 	 .BYTEX^204	 .BYTEX^20E	 .BYTEX^201	 .BYTEX^208	 .BYTEX^740	 .BYTEX^6ES	 .BYTEX^75 	 .BYTEX^20 	 .BYTEX^202	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20E	 .BYTEX^202	 .BYTEX^20S 20202020     0128.BYTEX^20	 .BYTEX^204	 .BYTEX^202	 .BYTEX^201	 .BYTEX^20E	 .BYTEX^203	 .BYTEX^20(	 .BYTEX^204	 .BYTEX^6DM	 .BYTEX^76 	 .BYTEX^6A 	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20D	 .BYTEX^20 	 .BYTEX^6D 	 .BYTEX^76 	 .BYTEX^6Ag	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20r	 .BYTEX^208	 .BYTEX^20a	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^6D 	 .BYTEX^71 	 .BYTEX^6A                     P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 108Q                                  SEND                             1-APR-2003 20:34& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  	 .BYTEX^200	 .BYTEX^20B	 .BYTEX^208	 .BYTEX^201	 .BYTEX^6DV	 .BYTEX^71 	 .BYTEX^6A 	 .BYTEX^20 	 .BYTEX^20,	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20,	 .BYTEX^20A	 .BYTEX^202	 .BYTEX^201	 .BYTEX^6D0	 .BYTEX^716	 .BYTEX^6A,	 .BYTEX^204	 .BYTEX^20B	 .BYTEX^20R	 .BYTEX^20E	 .BYTEX^6DL	 .BYTEX^71)	 .BYTEX^6A 	 .BYTEX^205	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^207	 .BYTEX^202	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^201	 .BYTEX^6D2	 .BYTEX^76 	 .BYTEX^6A0	 .BYTEX^20 	 .BYTEX^20 	 .BYTEX^20$	 .BYTEX^202	 .BYTEX^6D8	 .BYTEX^766	 .BYTEX^6A;	 .BYTEX^204	 .BYTEX^202	 .BYTEX^20 	 .BYTEX^20(	 .BYTEX^207	 .BYTEX^20S	 .BYTEX^201	 .BYTEX^20  FIRST: FFFFFFFF     0178.BYTEX^FF	 .BYTEX^FF2	 .BYTEX^FFB	 .BYTEX^FFL SEED:-                    P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 109Q                                  SEND                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   14216905     017C.BYTEX^05	 .BYTEX^690	 .BYTEX^21 	 .BYTEX^14   . .PSECT$LITERAL$, OCTA, PIC, CON, REL, LCL, SHR ,- NOEXE, RD, NOWRT? 20202020     0000.ASCII\                <4>     to play InvisibA le Alien Weasels\<0> 20202020     00042 20202020     0008  20202020     000C2 203E343C     0010D 20202020     00141 70206F74     0018  2079616C     001CR 69766E49     0020E 6C626973     0024E 6C412065     0028R 206E6569     002C0 73616557     00301    736C65     0034  ? 20202020     0038.ASCII\                <3>     to play Invasio9 n of the Aliens\<0>7 20202020     003C2 20202020     00401 20202020     0044M 203E333C     00482 20202020     004C  70206F74     00500 2079616C     0054  61766E49     0058  6E6F6973     005CD 20666F20     00600 20656874     00646 65696C41     00682      736E     006C  ? 20202020     0070.ASCII\                <2>     to play We Come    in Peace\<0> 20202020     0074  20202020     0078n 20202020     007C  203E323C     00800 20202020     0084r 70206F74     0088  2079616C     008C  43206557     0090  20656D6F     0094  50206E69     0098  65636165     009C:  ? 20202020     00A8.ASCII\        Type:   <1>     to play Bloodba  th\<0> 20202020     00AC2 65707954     00B0  2020203A     00B42 203E313C     00B82 20202020     00BC  70206F74     00C0R          P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 110Q                                  SEND                             1-APR-2003 20:33& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   2079616C     00C42 6F6F6C42     00C8M 74616264     00CC         68     00D0  ; 20202020     00D8.ASCII\                <Q>     to quit\<0>  20202020     00DC  20202020     00E0D 20202020     00E40 203E513C     00E86 20202020     00EC2 71206F74     00F0     746975     00F4  ? 20202020     00F8.ASCII\                <space> to fire a laserT
   beam\<0> 20202020     00FC8 20202020     01008 20202020     0104  6170733C     0108M 203E6563     010C0 66206F74     01107 20657269     0114, 616C2061     01182 20726573     011C  6D616562     0120S  ? 20202020     0128.ASCII\                <3>     to move the las2 er base right\<0>1 20202020     012C8 20202020     01304 20202020     0134  203E333C     01382 20202020     013C, 6D206F74     01400 2065766F     0144S 20656874     0148  6573616C     014CA 61622072     01501 72206573     0154  74686769     0158   ? 20202020     0160.ASCII\                <2>     to halt the las  er base\<0>2 20202020     0164  20202020     0168  20202020     016CL 203E323C     01700 20202020     0174R 68206F74     0178A 20746C61     017C  20656874     0180R 6573616C     01840 61622072     01886      6573     018C  ? 74736E49     0190.ASCII\Instructions:   <1>     to move the lasR er base left\<0> 74637572     01946 736E6F69     01982 2020203A     019C             P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 111Q                                  SEND                             1-APR-2003 20:3(& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   203E313C     01A0, 20202020     01A40 6D206F74     01A82 2065766F     01ACB 20656874     01B0- 6573616C     01B4  61622072     01B8I 6C206573     01BC     746665     01C0  ? 65747441     01C8.ASCII\Attention: Alien invasion in progress!\A <0>0 6F69746E     01CCq 41203A6E     01D0  6E65696C     01D4  766E6920     01D8  6F697361     01DC  6E69206E     01E0  6F727020     01E4F 73657267     01E8:      2173     01EC  ? 204E2049     01F0.ASCII\I N V A S I O N   O F   T H E   A L I E    N S !\<0>- 20412056     01F4  20492053     01F87 204E204F     01FC2 204F2020     02000 20202046     0204M 20482054     02082 20202045     020C  204C2041     02100 20452049     0214R 2053204E     02180        21     021C  - 204F4951     0220.ASCII\QIO return error.\<0>J 75746572     0224  65206E72     0228  726F7272     022C         2E     0230  / 204F4951     0238.ASCII\QIO argument error.\<0>  75677261     023C  746E656D     0240  72726520     0244Q    2E726F     0248  / 69737341     0250.ASCII\Assignment failure.\<0>  656D6E67     0254  6620746E     0258P 756C6961     025C3    2E6572     0260  0 6E617254     0268.ASCII\Translation failure.\<0> 74616C73     026CR 206E6F69     0270  6C696166     0274S 2E657275     02784                P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 112Q                                  SEND                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    > 6E6F2049     0280.ASCII\I only know how to address VT100's and VT52's.\<0>L 6B20796C     0284, 20776F6E     02880 20776F68     028C9 61206F74     0290  65726464     0294  56207373     0298F 30303154     029CQ 61207327     02A0C 5620646E     02A4  27323554     02A82      2E73     02AC  ? 6D6F7266     02B0.ASCII\from DCL level.  Otherwise, wait a mome, nt.\<0>E 4C434420     02B4  76656C20     02B8Q 202E6C65     02BC0 68744F20     02C0E 69777265     02C41 202C6573     02C89 74696177     02CC  6D206120     02D00 6E656D6F     02D4(      2E74     02D8  > 20544553     02E0.ASCII\SET TERM/VT52\<9>\(and that's all)\<0> 4D524554     02E4  3554562F     02E88 61280932     02ECP 7420646E     02F0  27746168     02F4D 6C612073     02F88      296C     02FC  ? 75722049     0300.ASCII\I run faster in VT52 mode.  To set, typ1 e\<0>P 6166206E     0304  72657473     0308A 206E6920     030C4 32355456     03107 646F6D20     0314  20202E65     0318  73206F54     031C  202C7465     0320n 65707974     0324          032C.OFFSET lab$0962       0330.OFFSET lab$0968       0334.OFFSET lab$0974       0338.OFFSET lab$0980       033C.OFFSET lab$0986       0340.OFFSET lab$0992       0344.OFFSET lab$0998       0348.OFFSET lab$1004  * .PSECT$LINK$, OCTA, NOPIC, CON, REL, LCL,- NOSHR, NOEXE, RD, NOWRT2              P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 113Q                                  SEND                             1-APR-2003 20:34& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  ! 00000000     0000.ADDRESS TABLEAUR) 00000000     0008.ADDRESS SPECIAL_GRAPHIC + FFFFFFFF     0010.LONGX^FFFFFFFF ; .LONG -1  00000000     0018.ADDRESS BOMB 00000000     0020.ADDRESS BASE 00000000     0028.ADDRESS BEAM3      0000     0030.SIGNED_WORD X^0 ; .SIGNED_WORD 0 # 00000000     0038.QUADX^0 ; .QUAD 00 00000000     003C  00000000     0040.ADDRESS MOVE! 00000006     0048.ADDRESS DARTH+61"      0001     0050.ASCII<1><0>\<0>  # 00000000     0058.ADDRESS $LITERAL$B  -       0060; Stack-Frame invocation descriptor, Entry point:       INVADERS  Entry Length:          40A# Static Handler:        DFOR$HANDLER1/ Registers used:        R0-R4, R16-R20, R25-R26,2 R28-FP  Registers saved:       R2-R4, FP Fixed Stack Size:      192' 00000000; Handler data for DFOR$HANDLER9 00000000 00000000 00000000  %       0090.LINKAGE DFOR$WRITE_SEQ_LIS4' 00010438     00A0.ASCII\8\<4><1><0>\<0>   ! 00000000     00A8.ADDRESS ADVANCE_' 00010307     00B0.ASCII<7><3><1><0>\<0>Q  &       00C0.LINKAGE DFOR$SET_REENTRANCY 00000000     00D0.ADDRESS CLEAR 3      0005     00D8.SIGNED_WORD X^5 ; .SIGNED_WORD 53! 00000000     00E0.ADDRESS COMMAND3 00000000     00E8.ADDRESS SHIP 00000000     00F0.ADDRESS SLEEP6$       0100.LINKAGE DFOR$READ_SEQ_LIS! 302E3430     0110.ASCII\04.00\<0>F        30     0114  " 45534142     0118.ASCII\BASES:\<0>      3A53     011C  # 00000007     0120.LONGX^7 ; .LONG 7," 524F4353     0128.ASCII\SCORE:\<0>      3A45     012C  5      0046     0130.SIGNED_WORD X^46 ; .SIGNED_WORD 70A" 00000000     0138.ADDRESS SEND_INT 00000000     0140.ADDRESS SEND  -       0148; Stack-Frame invocation descriptor  Entry point:       TABLEAU Entry Length:          40,                  P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 114Q                                  SEND                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  $ Registers used:        R0-R6, R16-FP  Registers saved:       R2-R6, FP Fixed Stack Size:      144  ! 00000008     0168.ADDRESS $BSS$+8)  00000000     0170.ADDRESS DS_OBJ# FFFFFFE8     0178.ADDRESS $DATA$-24 5      0012     0180.SIGNED_WORD X^12 ; .SIGNED_WORD 18         20     0188.ASCII\ \<0>         0190.LINKAGE OTS$DIV_L! FFFFFFB0     01A0.ADDRESS CHRS-809  -       01A8; Stack-Frame invocation descriptor2 Entry point:       SLEEP Entry Length:          28 / Registers used:        R0-R3, R16-R20, R25-R26,2 R28-FP  Registers saved:       R2-R3, FP Fixed Stack Size:      112  $ 00000000     01C8.ADDRESS SS$_NORMAL        01D0.CODE_ADDRESS OTS$MOVE* 544E4942     01D8.ASCII\BINTIM failed.\<0> 66204D49     01DC  656C6961     01E0P      2E64     01E4    3A3A2030     01E8.ASCII\0 ::\<0>         01F0.LINKAGE SYS$BINTIM2       0200.LINKAGE SYS$WAITFRF* 54494157     0210.ASCII\WAITFR failed.\<0> 66205246     0214) 656C6961     0218L      2E64     021C  * 49544553     0220.ASCII\SETIMR failed.\<0> 6620524D     0224B 656C6961     0228-      2E64     022C         0230.LINKAGE DFOR$STOP       0240.LINKAGE SYS$SETIMR1  -       0250; Stack-Frame invocation descriptor2 Entry point:       COMMAND Entry Length:          24,/ Registers used:        R0-R2, R16-R22, R25-R26,  R28-FP Registers saved:       R2, FP  Fixed Stack Size:      112    00000000     0270.ADDRESS INCHAR 00000000     0278.ADDRESS HALT        32     0280.ASCII\2\<0>    -       0288; Stack-Frame invocation descriptorU                P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 115Q                                  SEND                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   Entry point:       INCHAR8 Entry Length:          24 $ Registers used:        R0-R2, R16-FP Registers saved:       R2, FP0 Fixed Stack Size:      128         02B0.LINKAGE SYS$ASSIGN3& 00000000     02C0.ADDRESS IO$_READLBLK      5454     02C8.ASCII\TT\<0>L         02D0.LINKAGE SYS$TRNLOG4       02E0.LINKAGE SYS$QIOW1% 00000000     02F0.ADDRESS SS$_TIMEOUT $ 00000000     02F8.ADDRESS IO$M_TIMED% 00000000     0300.ADDRESS IO$M_NOECHO   -       0308; Stack-Frame invocation descriptors Entry point:       BASE0 Entry Length:          24n/ Registers used:        R0-R2, R16-R18, R25-R26,  R28-FP Registers saved:       R2, FP  Fixed Stack Size:      967        0720     0328.ASCII\ \<7>  ' 200A0820     0330.ASCII\ \<8><10>\ \<7>3        07     0334          0338.CODE_ADDRESS OTS$FILL        07     0340.ASCII<7>6  5      0015     0348.SIGNED_WORD X^15 ; .SIGNED_WORD 2123      0001     0350.SIGNED_WORD X^1 ; .SIGNED_WORD 133      0007     0358.SIGNED_WORD X^7 ; .SIGNED_WORD 7   -       0360; Stack-Frame invocation descriptorr Entry point:       BEAMF Entry Length:          446$ Registers used:        R0-R7, R16-FP  Registers saved:       R2-R7, FP Fixed Stack Size:      224          78     0380.ASCII\x\<0>  $ 200A0820     0388.ASCII\ \<8><10>\ \  ( 0A0A0878     0390.ASCII\x\<8><10><10>\ \        20     0394  5      0016     0398.SIGNED_WORD X^16 ; .SIGNED_WORD 224!       03A0.CODE_ADDRESS OTS$MOVEM8$ 20202007     03A8.ASCII<7>\        \ 20202020     03ACD        20     03B0  # 00000006     03B4.LONGX^6 ; .LONG 60'       03B8.CODE_ADDRESS OTS$STRCMP_EQLPE                  P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 116Q                                  SEND                             1-APR-2003 20:3B& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    -       03C0; Stack-Frame invocation descriptor  Entry point:       BOMB; Entry Length:          28L$ Registers used:        R0-R3, R16-FP  Registers saved:       R2-R3, FP Fixed Stack Size:      160  ! 302E3230     03E0.ASCII\02.00\<0>         30     03E4  !    070707     03E8.ASCII<7><7><7>   5      004C     03F0.SIGNED_WORD X^4C ; .SIGNED_WORD 7615      0017     03F8.SIGNED_WORD X^17 ; .SIGNED_WORD 23       2008     0400.ASCII<8>\ \  $ 2A0A0820     0408.ASCII\ \<8><10>\*\  # 20202020     0410.ASCII\       \<0>1    202020     0414    -       0418; Stack-Frame invocation descriptor8 Entry point:       SHIP  Entry Length:          241+ Registers used:        R0-R2, R16-FP, F0-F1  Registers saved:       R2, FP9 Fixed Stack Size:      968  8 CCCD3F4C     0438.LONGX^CCCD3F4C ; .F_FLOATING 0.2000000< D70A3CA3     043C.LONGX^D70A3CA3 ; .F_FLOATING 0.5000000E-02       0440.LINKAGE DFOR$RAN_VF# 2D2D3C20     0450.ASCII\ <--`> \<0>     203E60     0454  $ 20202020     0458.ASCII\        \<0> 20202020     045Cr  # 2D603C20     0468.ASCII\ <`--> \<0>     203E2D     046C  # 602D3C20     0470.ASCII\ <-`-> \<0>-    203E2D     0474    -       0478; Stack-Frame invocation descriptor3 Entry point:       ADVANCE Entry Length:          447$ Registers used:        R0-R7, R16-FP  Registers saved:       R2-R7, FP Fixed Stack Size:      176    -       0498; Stack-Frame invocation descriptorE Entry point:       HALT1 Entry Length:          36(                    P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 117Q                                  SEND                             1-APR-2003 20:3 & 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  - Registers used:        R0-R5, R16-R26, R28-FP;  Registers saved:       R2-R5, FP Fixed Stack Size:      128  # 00000000     04B8.LONGX^0 ; .LONG 0,! 302E3530     04C0.ASCII\05.00\<0>7        30     04C4         04D0.LINKAGE DFOR$EXIT# 00000001     04E0.LONGX^1 ; .LONG 13  -       04E8; Stack-Frame invocation descriptor " Entry point:       SPECIAL_GRAPHIC Entry Length:          32 # Static Handler:        DFOR$HANDLER3- Registers used:        R0-R2, R16-R26, R28-FP2 Registers saved:       R2, FP  Fixed Stack Size:      192' 00000000; Handler data for DFOR$HANDLERP 00000000 00000000 00000000       30281B     0518.ASCII<27>\(0\  ) 6D726554     0520.ASCII\Terminal type\<0>L 6C616E69     0524E 70797420     0528,        65     052C  ! 302E3031     0530.ASCII\10.00\<0>E        30     0534  "       0540.LINKAGE LIB$SCREEN_INFO      461B     0550.ASCII<27>\F\F        471B     0558.ASCII<27>\G\1       42281B     0560.ASCII<27>\(B\  *       0570.LINKAGE DFOR$WRITE_SEQ_LIS_XMIT' 00020438     0580.ASCII\8\<4><2><0>\<0>   ' 00010105     0588.ASCII<5><1><1><0>\<0>     -       0590; Stack-Frame invocation descriptor  Entry point:       MOVE  Entry Length:          247/ Registers used:        R0-R2, R16-R20, R25-R26,,
 R28-FP, F0-F10 Registers saved:       R2, FP0 Fixed Stack Size:      112  !       05B0.LINKAGE SCR$SET_CURSOR   -       05C0; Stack-Frame invocation descriptorL Entry point:       CLEAR                  P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 118Q                                  SEND                             1-APR-2003 20:32& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1   Entry Length:          246/ Registers used:        R0-R2, R16-R17, R25-R26,D R28-FP Registers saved:       R2, FP5 Fixed Stack Size:      963  !       05E0.LINKAGE LIB$ERASE_PAGE2  -       05F0; Stack-Frame invocation descriptor2 Entry point:       DS_OBJO Entry Length:          28C0 Registers used:        R0-R3, R16, R25-R26, R28- FP  Registers saved:       R2-R3, FP Fixed Stack Size:      160  ! 60606020     0610.ASCII\ ``` \<0>0        20     0614  ! 3C613E20     0618.ASCII\ >a< \<0>         20     061C  ! 3E603C20     0620.ASCII\ <`> \<0>D        20     0624  ! 3C603E20     0628.ASCII\ >`< \<0>)        20     062C  # 6E776C20     0630.ASCII\ lwnwk \<0>b    206B77     0634  ! 2D602D20     0638.ASCII\ -`- \<0>U        20     063C  ! 3E783C20     0640.ASCII\ <x> \<0>         20     0644  ! 20202020     0648.ASCII\     \<0>3        20     064C    -       0650; Stack-Frame invocation descriptor, Entry point:       SEND3 Entry Length:          36F# Static Handler:        DFOR$HANDLER9/ Registers used:        R0-R3, R16-R21, R25-R26,  R28-FP  Registers saved:       R2-R3, FP Fixed Stack Size:      176' 00000000; Handler data for DFOR$HANDLER3 00000000 00000000 00000000    -       0680; Stack-Frame invocation descriptorB Entry point:       SEND_INTM Entry Length:          36B# Static Handler:        DFOR$HANDLER / Registers used:        R0-R3, R16-R21, R25-R26,  R28-FP            P SEND                            Machine Code Listing             1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 119Q                                  SEND                             1-APR-2003 20:30& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1    Registers saved:       R2-R3, FP Fixed Stack Size:      176' 00000000; Handler data for DFOR$HANDLER2 00000000 00000000 00000000  %       06B0.LINKAGE DFOR$WRITE_SEQ_FMT," 00000000     06C0.ADDRESS lab$1011' 00010107     06C8.ASCII<7><1><1><0>\<0>   " 00000000     06D0.ADDRESS lab$1012  . .PSECTDARTH, OCTA, NOPIC, OVR, REL, GBL, NOSHR ,- NOEXE, RD, WRT
 MAX_BOMB_ROW:       0014     0000.BYTEX^14 	 .BYTEX^00  SCORES:       0000     0002.BYTEX^00-	 .BYTEX^00  BASES:      0003     0004.BYTEX^031	 .BYTEX^00E GAME:F      0000     0006.BYTEX^007	 .BYTEX^003 DANGER:,      000B     0008.BYTEX^0BQ	 .BYTEX^00  MAX_DANGER:3      0016     000A.BYTEX^16 	 .BYTEX^00  SLOW:  00000000     0020.BYTEX^00	 .BYTEX^00e	 .BYTEX^00,	 .BYTEX^00   . .PSECT$BSS$, OCTA, NOPIC, CON, REL, LCL, NOSHR ,- NOEXE, RD, WRT COMMAND QUALIFIERS  Q    /ALIGNMENT=(COMMONS=(NONATURAL,PACKED,NOSTANDARD,NOMULTILANGUAGE),RECORDS=NATUP RAL,NOSEQUENCE)1Q    /ANNOTATIONS=(NOCODE,NODETAIL,NOFEEDBACK,NOINLINING,NOLOOP_TRANSFORMS,NOLOOP_UB( NROLLING,NOPREFETCHING,NOSHRINKWRAPPING,@             NOSOFTWARE_PIPELINING,NOTAIL_CALLS,NOTAIL_RECURSION)    /ARCHITECTURE=GENERICQ    /ASSUME=(ACCURACY_SENSITIVE,ALTPARAM,NOBUFFERED_IO,NOBYTERECL,NODUMMY_ALIASES,3& NOFP_CONSTANT,NOINT_CONSTANT,NOMINUS0,<             PROTECT_CONSTANTS,NOSOURCE_INCLUDE,NOUNDERSCORE)    /NOAUTOMATIC     /NOBY_REF_CALLP    /CCDEFAULT=DEFAULT Q    /CHECK=(NOARG_TEMP_CREATED,NOBOUNDS,FORMAT,NOFP_EXCEPTIONS,OUTPUT_CONVERSION,N  OOVERFLOW,POWER,NOUNDERFLOW)    /CONVERT=NATIVE    /DEBUG=(NOSYMBOLS,TRACEBACK)     /NODEFINE    /DOUBLE_SIZE=64        P INVADERS                        Source Listing                   1-APR-2003 20:40 7:50  Compaq Fortran V7.4A-1588         Page 120Q                                                                   1-APR-2003 20:3R& 4:17  SYS$SYSROOT:[SYSMGR]SPCINV.FOR;1  
    /NOD_LINES;    /ERROR_LIMIT=30    /NOEXTEND_SOURCE2    /F779
    /NOFAST    /FLOAT=G_FLOAT     /GRANULARITY=QUADWORD    /IEEE_MODE=FAST    /INTEGER_SIZE=32     /MACHINE_CODE    /MATH_LIBRARY=ACCURATE0    /NOMODULE    /NAMES=UPPERCASE J    /OPTIMIZE=(INLINE=NONE,LEVEL=,NOLOOPS,NOPIPELINE,TUNE=GENERIC,UNROLL=0)    /NOPAD_SOURCE    /REAL_SIZE=32    /NORECURSIVE0    /REENTRANCY=NONEA    /ROUNDING_MODE=NEAREST     /NOSEPARATE_COMPILATION    /SEVERITY=(WARNING=WARNING)    /SHOW=(NOINCLUDE,MAP)    /SOURCE_FORM=FIXED;    /STANDARD=NONE     /NOSYNCHRONOUS_EXCEPTIONS    /NOSYNTAX_ONLY 	    /NOTIEA    /VMS0Q    /WARNINGS=(ALIGNMENT,NOARGUMENT_CHECKING,NODECLARATIONS,GENERAL,GRANULARITY,NO ' IGNORE_LOC,NOTRUNCATED_SOURCE,UNCALLED,-)             UNINITIALIZED,NOUNUSED,USAGE)V      /NOANALYSIS_DATA3    /NODIAGNOSTICS     /INCLUDE=FORT$INCLUDE: )    /LIST=SYS$SYSROOT:[SYSMGR]SPCINV.LIS;76,    /OBJECT=SYS$SYSROOT:[SYSMGR]SPCINV.OBJ;32
    /NOLIBRARY   ) COMPILER: Compaq Fortran V7.4A-1588-46B4Kl   COMPILATION STATISTICS  "    CPU time:          0.77 seconds"    Elapsed time:      1.67 seconds    Pagefaults:        2757    I/O Count:          101   DTL02>  I I promise it is the first and last time I post a 5000 lines message in a 3 newsgroup...   D.   ------------------------------  % Date: Tue, 01 Apr 2003 21:28:45 +020024 From: Didier Morandi <Didier.Morandi.nospam@Free.fr>@ Subject: Re: Fortran Gurus requested (part II): no .LIS; no .MAR& Message-ID: <3E89E86D.8040705@Free.fr>  Q I posted the .lis and the .mar in here but (fortunately) the news server did not 3' allow me to post 5000 lines messages...,  M So I sent the whole spcinv.* readable stuff together with the sethost.log to 0 compaq@fortran.com   D.   ------------------------------  % Date: Tue, 01 Apr 2003 20:37:31 +020004 From: Didier Morandi <Didier.Morandi.nospam@Free.fr>2 Subject: Fortran Gurus requested (part II): source& Message-ID: <3E89DC6B.9050501@Free.fr>   DTL02> ed spcinv.for      5 C                       Video Terminal Space InvadersB Cb@ C       Originally written in C by Jude Miller, 1979, Cambridge.> C       Translated to FORTRAN-77 by Jonathan Boswell, July '81A C       at the University of Virginia, Charlottesville, Virginia.3 CvN C       Machine dependent subroutines are SLEEP, CLEAR, MOVE, SPECIAL_GRAPHIC,I C       and FUNCTION INCHAR.  These subroutines are written for a VAX/VMSL3 C       operating system employing VT100 terminals.D C0          PROGRAM INVADERS3!          IMPLICIT INTEGER*2 (A-Z)A$          LOGICAL FLIP,FLOP,LEFT,SLOW          CHARACTER*80 BARR          COMMON/CHRS/BARR(4)          PARAMETER MAX_BOMBS=44          COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME@          1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT          2 ,FALLING_BOMBS,SLOW9          3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COL N          4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS)&          5 ,SHIP_VAL,SHIP_COL,SHIP_VEL     *quit      DTL02> checksum spcinv.for DTL02> sh symb check*-#    CHECKSUM$CHECKSUM = "2085584531"S DTL02> for spcinv/list DTL02> link/map spcinv DTL02> r spcinv     & Attention: Alien invasion in progress!  3 Instructions:   <1>     to move the laser base leftR/                  <2>     to halt the laser base85                  <3>     to move the laser base right0-                  <space> to fire a laser beam1                   <Q>     to quit  *          Type:   <1>     to play Bloodbath1                  <2>     to play We Come in Peace 7                  <3>     to play Invasion of the Aliens 8                  <4>     to play Invisible Alien Weasels 1D  ( I run faster in VT52 mode.  To set, type  SET TERM/VT52   (and that's all)* from DCL level.  Otherwise, wait a moment.  P %SYSTEM-F-ACCVIO, access violation, reason mask=00, virtual address=000000000000& 0030, PC=FFFFFFFF808E5380, PS=0000001B/ %TRACE-F-TRACEBACK, symbolic stack dump followsRK    image    module    routine             line      rel PC           abs PCFP                                              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 DTL02>   ------------------------------   Date: 1 Apr 2003 17:49 CDT' From: carl@gerg.tamu.edu (Carl Perkins)Q6 Subject: Re: Fortran Gurus requested (part II): source, Message-ID: <1APR200317493321@gerg.tamu.edu>  8 Didier Morandi <Didier.Morandi.nospam@Free.fr> writes... }DTL02> ed spcinv.forL }  }  } 6 }C                       Video Terminal Space Invaders }CA }C       Originally written in C by Jude Miller, 1979, Cambridge.)? }C       Translated to FORTRAN-77 by Jonathan Boswell, July '813B }C       at the University of Virginia, Charlottesville, Virginia. }CO }C       Machine dependent subroutines are SLEEP, CLEAR, MOVE, SPECIAL_GRAPHIC, J }C       and FUNCTION INCHAR.  These subroutines are written for a VAX/VMS4 }C       operating system employing VT100 terminals. }C }         PROGRAM INVADERS" }         IMPLICIT INTEGER*2 (A-Z)% }         LOGICAL FLIP,FLOP,LEFT,SLOWI }         CHARACTER*80 BARRS }         COMMON/CHRS/BARR(4)S }         PARAMETER MAX_BOMBS=425 }         COMMON/DARTH/MAX_BOMB_ROW,SCORES,BASES,GAME,A }         1 ,DANGER,MAX_DANGER,FLIP,FLOP,LEFT,ALIEN,B,ALIENS_LEFT1 }         2 ,FALLING_BOMBS,SLOW,: }         3 ,ALIEN_ROW(55),ALIEN_COL(55),BASE_ROW,BASE_COLO }         4 ,BASE_VEL,BEAM_ROW,BEAM_COL,BOMB_ROW(MAX_BOMBS),BOMB_COL(MAX_BOMBS)L' }         5 ,SHIP_VAL,SHIP_COL,SHIP_VEL- }  }  }*quit }  }  }DTL02> checksum spcinv.for  }DTL02> sh symb check*$ }   CHECKSUM$CHECKSUM = "2085584531"  7 I get a different checksum from the version you posted.8  "   CHECKSUM$CHECKSUM = "2046821465"   }DTL02> for spcinv/list3 }DTL02> link/map spcinv_ }DTL02> r spcinv }  } ' }Attention: Alien invasion in progress!  } 4 }Instructions:   <1>     to move the laser base left0 }                 <2>     to halt the laser base6 }                 <3>     to move the laser base right. }                 <space> to fire a laser beam! }                 <Q>     to quitD } + }         Type:   <1>     to play BloodbathQ2 }                 <2>     to play We Come in Peace8 }                 <3>     to play Invasion of the Aliens9 }                 <4>     to play Invisible Alien Weasels0 }1 } ) }I run faster in VT52 mode.  To set, type ! }SET TERM/VT52   (and that's all) + }from DCL level.  Otherwise, wait a moment.S } Q }%SYSTEM-F-ACCVIO, access violation, reason mask=00, virtual address=000000000000E' }0030, PC=FFFFFFFF808E5380, PS=0000001B,0 }%TRACE-F-TRACEBACK, symbolic stack dump followsL }   image    module    routine             line      rel PC           abs PCQ }                                             0 0000000000000000 FFFFFFFF808E5380 Q }  SPCINV  INVADERS  SLEEP                  141 0000000000000ADC 0000000000030ADC,Q }  SPCINV  INVADERS  SPECIAL_GRAPHIC        579 0000000000002BB8 0000000000032BB8 Q }  SPCINV  INVADERS  MOVE                    42 00000000000003D0 00000000000303D0gQ }  SPCINV  INVADERS  INVADERS                27 0000000000000000 0000000000000000 Q }                                             0 FFFFFFFF802513D4 FFFFFFFF802513D47 }DTL02>R }   D As has been pointed out by someone now, this can not possibly be the, same version of the program that you posted.  J This dump indicates that the SLEEP routine was called buy SPECIAL_GRAPHIC, which was called by MOVE.G  7 The version you posted has this as the MOVE subroutine:             SUBROUTINE MOVE(ROW,COL)# C       Position cursor to ROW,COL.X< C       Row 0 is top of screen.  Row 23 is bottom-of-screen.7 C       The leftmost column is 0.  The rightmost is 79.0         INTEGER*2 ROW,COLR6         IDUMMY=SCR$SET_CURSOR(%VAL(ROW+1),%VAL(COL+1))         RETURN         ENDX  + Notice that it never calls SPECIAL_GRAPHIC.X  I Thus, the program that you are compiling, linking, and running is not the 4 program that you posted. You have changed something.   The version you posted works.T1 The version you are using yourself does not work.6   --- Carl   ------------------------------  $ Date: Tue, 1 Apr 2003 14:48:40 -0500; From: "Brian Tillman" <Brian.Tillman@notnoone.notnohow.com> 8 Subject: Re: Freeware/Decus CD Search Engine is alive...$ Message-ID: <3e89ed15$1@news.si.com>   >Anyway, the URLs are: >q  >   http://freeware.acornsw.com/ >   http://decus.acornsw.com/   I Clicking on your http://freeware.acornsw.com/freewarevt62/ link produces:S   ERROR 410  -  (gone) X< Additional information:  1xx,  2xx,  3xx,  4xx,  5xx,  Help  -- BI Brian Tillman         Internet: Brian.Tillman at smiths-aerospace dot comX5 Smiths Aerospace  Addresses modified to prevent SPAM.B@ 3290 Patterson Ave. SE, MS Replace "at" with "@", "dot" with "." Grand Rapids, MI 49512-1991B8        This opinion doesn't represent that of my company   ------------------------------  $ Date: Wed, 2 Apr 2003 00:17:12 -06002 From: "Stuart Johnson" <ssj152 AT charter DOT net># Subject: Re: GP600 out of band modeT/ Message-ID: <v8l0an5doedq1c@corp.supernews.com>X  : "Francisco" <pancholito2001@yahoo.com.ar> wrote in message7 news:d0eb9888.0304011954.77cc8205@posting.google.com...X	 > People:  > B > I have a GP600 radio, the RF range is 403-433, what's the way to1 > program out of band? i'm using dps... software.1 > F > Other thing this trunked radio is 12.5 Khz CH separation, it's meens > the raio is narrow no? > C > i need change the RX filters to use in wide-band? an whats is theT2 > password to go to lab's menu vco adj and others. > G > i have a similar problem with a P100 VHF radio, some have the soft orBF > the way to program too uot of band, i'm test some notes form Bat but > any of these works.B >X > Best Regards > Francisco  > LW7DQB  L You might consider re-tuning your computer and/or radio; I very much suspect; that you have hit the wrong news group for these questions.2   ------------------------------   Date: 1 Apr 2003 18:22:40 -0700X1 From: nothome@spammers.are.scum (Malcolm Dunnett)D( Subject: Help! Can't boot VMS on an ES40- Message-ID: <y9HhwWYL8x$x@malvm7.mala.bc.ca.>T  8  I just got an ES40 ( 4x500Mhz CPU, 8GB memory ) and I'm0 having trouble booting VMS on it. I can boot the5 firmware update CD ( and have loaded V6.2 firmware ), 2 I can boot a Digital Unix 5.0 Installation CD ( It, at least gets to the part where it starts up7 X windows and asks if I want to install Unix), but when 4 I try to boot VMS 7.3-1 from a disk ( on an RA8000 )9 or boot from the VMS 7.3-1 installation CD I get an errorB of:2  1  access control violation through vector 00000080B      followed by a register dump.B  .  This error occurs after the initial bootstrap2 load and the "jumping to system image", but before the "OpenVMS 7.3-1" banner.B  0  If I set the boot flags to conversational I get- the SYSBOOT> prompt, but I can't get farther.X  1  The strange thing is that the first time I tried + to boot it I was successful. I was running  - cluster_config from another node and was able;8 to boot VMS on the ES40 ( from the SYS1 directory of the0 system disk ). I had to abort that configuration2 because when I got to the part where it configures0 a local paging disk I realized the disk I needed3 to use wasn't connected. After connecting that disk 2 and trying again I got the "access control" error.- Removing the disk didn't make any difference.I  1   The system has an S3 video card, a single endedX. SCSI adapter, two DE-500 cards and two KGPSA-B cards.  $   Any help will be much appreciated.  M =============================================================================TB Malcolm Dunnett      Malaspina University-College   Email: dunnettE                                                      Host: mala.bc.ca^H Information Systems  Nanaimo, B.C. CANADA V9R 5S5     Tel: (250)740-6297   ------------------------------  # Date: Wed, 02 Apr 2003 02:41:57 GMT  From: dittman@dittman.netT, Subject: Re: Help! Can't boot VMS on an ES407 Message-ID: <V5sia.22183$gp1.5759@nwrddc02.gnilink.net>   2 Malcolm Dunnett <nothome@spammers.are.scum> wrote:2 >  The system has an S3 video card, a single ended0 > SCSI adapter, two DE-500 cards and two KGPSA-B > cards.  , What firmware version is loaded on the HSG80 controller?  --   Eric Dittman dittman@dittman.net    ------------------------------   Date: 1 Apr 2003 19:58:23 -0700B1 From: nothome@spammers.are.scum (Malcolm Dunnett)X, Subject: Re: Help! Can't boot VMS on an ES40- Message-ID: <ZmOvtQiSoMQF@malvm7.mala.bc.ca.>T  S In article <V5sia.22183$gp1.5759@nwrddc02.gnilink.net>, dittman@dittman.net writes:24 > Malcolm Dunnett <nothome@spammers.are.scum> wrote:3 >>  The system has an S3 video card, a single ended21 >> SCSI adapter, two DE-500 cards and two KGPSA-B 	 >> cards.  > . > What firmware version is loaded on the HSG80
 > controller?2      The HSG80 is running 8.6G-126  )    note: I can boot the disk on the HSG80X+ from a DS20E with no problem - in fact I'veT& been running it on a DS20E for several months. Note also that. I can't boot the ES40 from the CD drive ( I've. even tried disconnecting the FC cables to make sure that's not a factor ).    > -- p > Eric Dittman > dittman@dittman.net    ------------------------------  % Date: Tue, 01 Apr 2003 13:32:06 -06003, From: Gary L. Ross <rossgl@parknicollet.com>( Subject: HSD50 Firmware - Latest Version8 Message-ID: <f5qj8vslopjbliviu4sucid5k06mc788gs@4ax.com>  B Is v5.4 the highest version of firmware for the HSD50 controllers? Thanks.    Gary L. Ross Park Nicollet Health Services    ------------------------------  $ Date: Tue, 1 Apr 2003 15:50:52 -0500& From: "Bob  Lail" <robert.lail@hp.com>, Subject: Re: HSD50 Firmware - Latest Version* Message-ID: <3e89fdfa@usenet01.boi.hp.com>  I No, V5.7D is the latest and last.  V5.4D and V5.7D  require OpenVMS AlphaS5 V6.2-1H3 or OpenVMS VAX V6.2 as the minimum OS level.A    	 \Bob Lail0   -- Robert Lail0 Solution Architect  Network & Service Provider Sales Hewlett-Packard Company00 EMail: SRobert.Lail@hp.com   Phone: 603.315.05563 ( S added for Spammers remove before sending email)4  9 "Gary L. Ross" <rossgl@parknicollet.com> wrote in message02 news:f5qj8vslopjbliviu4sucid5k06mc788gs@4ax.com...D > Is v5.4 the highest version of firmware for the HSD50 controllers?	 > Thanks.  >E > Gary L. Ross > Park Nicollet Health Services0 >    ------------------------------  $ Date: Tue, 1 Apr 2003 14:17:20 -0500; From: "Brian Tillman" <Brian.Tillman@notnoone.notnohow.com> 9 Subject: Re: Include an automated date within a printout.2$ Message-ID: <3e89e5bc$1@news.si.com>  F >Does anyone know a way I can get a standard ASCII text file to outputF >to the printer on a VAX VMS/DCL system and contained with the output, >regardless when run,F  C You could write a print symbiont to do that.  It's not _that_ hard.N --  I Brian Tillman         Internet: Brian.Tillman at smiths-aerospace dot comF5 Smiths Aerospace  Addresses modified to prevent SPAM.4@ 3290 Patterson Ave. SE, MS Replace "at" with "@", "dot" with "." Grand Rapids, MI 49512-1991 8        This opinion doesn't represent that of my company   ------------------------------  # Date: Tue, 01 Apr 2003 23:29:59 GMT # From: "John Smith" <a@nonymous.com> C Subject: Inquirer: HP's Alpha RetainTrust programme a complete bust F Message-ID: <Xhpia.2368$7Im.1820@news04.bloor.is.net.cable.rogers.com>   March 28)  http://www.theinquirer.net/?article=85851  = ....Perhaps the BCS layoffs taking place this week, initially @ targeting marketingg resources, will help set things straight byD dispensing with ineffectual marketeers whose continued employment at? HP has ben nothing but a drain on stock value and HP resources.F  C Given the shaky position of the soon-to-be pasture-ized Tru64 UNIX, D and HP's conscious decision to NOT promote OpenVMS to new customers,F perhaps the lack of knowledge of the RetainTrust Program will serve as% a wake-up call to aneemic marketeers.    ......  > We can only hope this is the case. A quick read of HP's recentE financials and some informed extrapolation will prove that OpenVMS is7E a $800USD-in-profit cash cow that is being milked to the tune of moreh< than $100M USD per annum to prop up Tru64 UNIX and the RiskyF Consolidated Enterprise UNIX scheme (made even riskier since the Tru64C UNIX kernel developers, whose participation is essential to the new.D and improved UNIX offering, have been cashiered). Mo Hello, HP. Have you woken up yet?    --------------------  D If I were the average VMS customer, I'd be really pissed about this.  B If I were the average VMS customer who was fence-sitting about theC future of VMS and considering unix, I'd consider AIX more seriously E than HP-UX after reading this. And if I was considering Linux, I'd beA5 waiting for the Dell Itanics before I'd buy a HP one.C  @ If I was the average VMS ISV, I'd be furiously porting to linux.   ------------------------------  # Date: Wed, 02 Apr 2003 05:18:52 GMT91 From: Michael Austin <maustin@firstdbasource.com> % Subject: MOD_SSL and MOD_AUTH_OPENVMS 2 Message-ID: <3E8A6535.85B044BA@firstdbasource.com>  D I keep getting a dialog box with the error [connection refused] evenG though I get the standard SSL page when connecting to the IP:443 port. C What am I missing here?I   <VirtualHost 192.168.1.200:443>      ServerAdmin me.     DocumentRoot /apache$common/htdocs/somedir     ServerName my.domain.com)     ErrorLog logs/my_domain.com-error_log 2     CustomLog logs/my_domain.com-access_log common     <Directory />      AllowOverride None     Order allow,deny     Allow from all     AuthType Basic-     AuthName "Supply OS  UserID and Password"      AuthUserOpenVMS On     require valid-user     </Directory> </VirtualHost>   --   Regards,  6 Michael Austin            OpenVMS User since June 19847 First DBA Source, Inc.    Registered Linux User #261163    ------------------------------  % Date: Tue, 01 Apr 2003 22:59:34 +0100 9 From: Alan Adams <alan.adams@orchard-way.freeserve.co.uk>: Subject: Montagar problems?V? Message-ID: <960386dc4b.Alan.Adams@orchard-way.freeserve.co.uk>1  C I tried several times today to connect to www.montagar.com, and got8    500 server error   
  Server Error4  The following error occurred:    The client could not connect.  CN ------------------------------------------------------------------------------"  Please contact the administrator.  t< Does anyone know whether this a problem at my end or theirs?   Alan   -- 0
 Alan Adams& alan.adams@orchard-way.freeserve.co.uk http://www.nckc.org.uk/C   ------------------------------  % Date: Tue, 01 Apr 2003 19:41:28 -0600 1 From: "David J. Dachtera" <djesys.nospam@fsi.net>> Subject: Re: Montagar problems? ' Message-ID: <3E8A3FC8.19479C9C@fsi.net>0   Alan Adams wrote:F > E > I tried several times today to connect to www.montagar.com, and got  >  >  500 server errors >  >  Server Error6  >  The following error occurred: >   >  The client could not connect. > P > ------------------------------------------------------------------------------$ >  Please contact the administrator. > > > Does anyone know whether this a problem at my end or theirs?  B If it was at their end, it's been fixed. Just tried both of these:   http://www.montagar.com/! http://www.montagar.com/hobbyist/0   ...and got through just fine.C   -- , David J. DachteraE dba DJE Systems  http://www.djesys.com/  ( Unofficial Affordable OpenVMS Home Page: http://www.djesys.com/vms/soho/p   ------------------------------   Date: 1 Apr 03 22:30:58 +0200 ) From: p_sture@elias.decus.ch (Paul Sture)-# Subject: Re: MS-Word from OpenVMS ?]) Message-ID: <uNDFh9apK+dt@elias.decus.ch>A  ` In article <Tsmia.38277$cB3.235406@nnrp1.uunet.ca>, "Chris Moore" <moore_mc@hotmail.com> writes:J > Does anyone know of VMS software that can read and display MS-Word docs? > M > We have WP 5.1+ for OpenVMS, which allows (via Pathworks) interchange of WP N > docs between PCs and the REAL computer (unashamed VMS bigotry), but not Word@ > stuff.  At this point, display-only would be more than enough. > G > I went through this search about 2 years ago without success, but thei > PC-types are at me again.  >   D I haven't tried this, but it's been mentioned in comp.os.vms before:  ; http://vms.process.com/ftp/vms-freeware/FILESERV/CATDOC.ZIP      --  
 Paul Sture   ------------------------------  $ Date: Tue, 1 Apr 2003 15:16:50 -0500* From: "Chris Moore" <moore_mc@hotmail.com> Subject: MS-Word from OpenVMS ?43 Message-ID: <Tsmia.38277$cB3.235406@nnrp1.uunet.ca>0  H Does anyone know of VMS software that can read and display MS-Word docs?  K We have WP 5.1+ for OpenVMS, which allows (via Pathworks) interchange of WP L docs between PCs and the REAL computer (unashamed VMS bigotry), but not Word> stuff.  At this point, display-only would be more than enough.  E I went through this search about 2 years ago without success, but the0 PC-types are at me again.5   Thanks in advance\     Chris Moore3 --I "Senator, let me state for the record, I am not now, nor have I ever beenC associated with Jean Chretien"   ------------------------------  $ Date: Tue, 1 Apr 2003 15:35:50 -0500* From: "Chris Moore" <moore_mc@hotmail.com># Subject: Re: MS-Word from OpenVMS ?a3 Message-ID: <IKmia.38280$cB3.235355@nnrp1.uunet.ca>e  6 Thanks Paul, I got it down here and I'll give it a try   --I "Senator, let me state for the record, I am not now, nor have I ever beenn involved with Figure Skating" 6 "Paul Sture" <p_sture@elias.decus.ch> wrote in message# news:uNDFh9apK+dt@elias.decus.ch...YC > In article <Tsmia.38277$cB3.235406@nnrp1.uunet.ca>, "Chris Moore"e <moore_mc@hotmail.com> writes:L > > Does anyone know of VMS software that can read and display MS-Word docs? > >.L > > We have WP 5.1+ for OpenVMS, which allows (via Pathworks) interchange of WPK > > docs between PCs and the REAL computer (unashamed VMS bigotry), but notA WordB > > stuff.  At this point, display-only would be more than enough. > >oI > > I went through this search about 2 years ago without success, but thee > > PC-types are at me again.- > >R >RF > I haven't tried this, but it's been mentioned in comp.os.vms before: > = > http://vms.process.com/ftp/vms-freeware/FILESERV/CATDOC.ZIP  >$ >E > -- > Paul Sture   ------------------------------  % Date: Tue, 01 Apr 2003 15:01:11 -0600 * From: Patrick Spinler <pspinler@yahoo.com># Subject: Re: MS-Word from OpenVMS ? ( Message-ID: <3E89FE17.7050601@yahoo.com>  F Abiword <http://www.abisource.com/> is a fairly nice lightweight word H processor which has filters for incoming MS docs, modulo some features. .   It might be possible to port abiword to VMS.  C The major dependancy I recall in the Abiword source is for the GTK  D toolkit.  There exists a port of the GTK graphics toolkit to VMS at I <http://h71000.www7.hp.com/openvms/products/ips/gtk.html>.  I don't know 6% if it's recent enough to work or not.F  H Unfortunately, Abiword uses GNU autoconf so you'd have to manually hack E together a config.h and some Makefiles. :-(  Fortunately, it doesn't  ) appear to use the unixy fork() at all.:-)    -- Pat   Chris Moore wrote:J > Does anyone know of VMS software that can read and display MS-Word docs? > M > We have WP 5.1+ for OpenVMS, which allows (via Pathworks) interchange of WP N > docs between PCs and the REAL computer (unashamed VMS bigotry), but not Word@ > stuff.  At this point, display-only would be more than enough. > G > I went through this search about 2 years ago without success, but the1 > PC-types are at me again.A >  > Thanks in advance. >  > 
 > Chris Moore  > --K > "Senator, let me state for the record, I am not now, nor have I ever beenE  > associated with Jean Chretien" >  >    ------------------------------  # Date: Tue, 01 Apr 2003 21:05:10 GMT 3 From: hammond@not@peek.ssr.hp.com (Charlie Hammond)s# Subject: Re: MS-Word from OpenVMS ?n/ Message-ID: <aania.141$IN1.73@news.cpqcorp.net>R  4 In article <Tsmia.38277$cB3.235406@nnrp1.uunet.ca>, , "Chris Moore" <moore_mc@hotmail.com> writes:  I >Does anyone know of VMS software that can read and display MS-Word docs?0  H If you convert it to PDF on the PC, you can get PDF readers for OpenVMS.   --  J       Charlie Hammond -- Hewlett-Packard Company -- Ft Lauderdale  FL  USAF           (hammond@not@peek.ssr.hp.com -- remove "@not" when replying)J       All opinions expressed are my own and not necessarily my employer's.   ------------------------------  % Date: Tue, 01 Apr 2003 16:24:38 -0400P0 From: JF Mezei <jfmezei.spamnot@vl.videotron.ca># Subject: Re: MS-Word from OpenVMS ?C/ Message-ID: <3E89F585.43D431C5@vl.videotron.ca>   K > >Does anyone know of VMS software that can read and display MS-Word docs?   I The CDA converter library was able to read and wriote WORD documents. You B could use the CDA Viewer or even ALL-IN-1, as well as CONVERT/DOC   K Unfortunatly, that software was allowed to lapse and can only read very oldT word format documents.   ------------------------------   Date: 1 Apr 2003 11:17:18 -0800 . From: spamsink2001@yahoo.com (Alan E. Feldman)Y Subject: Mystery solved? (Re: [Q] Files not found during image backup, w/ and w/o directo-= Message-ID: <b096a4ee.0304011117.79b02212@posting.google.com>3  s spamsink2001@yahoo.com (Alan E. Feldman) wrote in message news:<b096a4ee.0303211500.3ab58fcf@posting.google.com>...- > Hello, > E > Question about BACKUP/IMAGE files not found: Below you can see some G > files called XXMONREM.LOG which were not found. The job XXMONREM runs7A > every 35 minutes and it purges its logfile, XXMONREM.LOG, to 20 H > versions each run. So I assume this has something to do with the filesF > being purged during the backup. Now, can anyone explain why one fileF > appears twice with and without a real dir-spec and why the other has
 > just []? > 
 > Thanks.  > H > (Please, I am aware of the problems with /IGNORE=INTERLOCK, but we are > covered otherhow.) > @ > $            BACKUP SYS$SYSDEVICE _MKA0:SY030321.BCK /SAVE_SET > /LABEL=BACKUP    -G >                  /VERIFY /IMAGE /IGNORE=INTERLOCK /BLOCK=32256 /NOLOG0 > [...] H > %BACKUP-E-OPENIN, error opening SYS$SYSDEVICE:[XX]XXMONREM.LOG;2087 as > input $ > -SYSTEM-W-NOSUCHFILE, no such fileF > %BACKUP-E-OPENIN, error opening SYS$SYSDEVICE:[]XXMONREM.LOG;2087 as > input $ > -SYSTEM-W-NOSUCHFILE, no such fileF > %BACKUP-E-OPENIN, error opening SYS$SYSDEVICE:[]XXMONREM.LOG;2086 as > inputn$ > -SYSTEM-W-NOSUCHFILE, no such file3 > %BACKUP-I-STARTVERIFY, starting verification pass  >  > Disclaimer: JMHO > Alan E. Feldmanc    4 OK. I've got a theory. Here's what I think happened:  = 1. BACKUP performs a scan of INDEXF.SYS to build a file list.   B 2. BACKUP begins walking the directory structure and saving files,E marking the corresponding entry for each saved file in the index list  as saved as it goes along.  F 3. BACKUP encounters directory XX.DIR and starts reading its contents.  = 4. BACKUP reads the file id for XXMONREM.LOG;2087 in XX.DIR. 1  4 5. XXMONREM purges away XXMONREM.LOG;2087 and ;2086.  A 6. BACKUP continues reading information from XX.DIR, but ;2086 is02 already gone, so BACKUP doesn't find it in XX.DIR.  B 7. BACKUP attempts to copy the files it found in [XX] to tape, but1 can't find XXMONREM.LOG;2087, so it reports it as   [XX]XXMONREM.LOG;2087 not found.  & 8. BACKUP finishes its directory walk.  D 9. BACKUP checks its index list of files for any that were not savedF during the directory walk and finds that XXMONREM.LOG;2087, ;2086 wereE not saved, so it attempts to save them now. It can't find either, and D since it didn't find them in any directory during the directory walk) it reports both of them as being in "[]".6    F Does this seem like a reasonable possibility? (The backup runs at base8 priority of 3 and XXMONREM.CTL runs at base priority 2.)   Thanks.    Disclaimer: JMHO Alan E. Feldman4   ------------------------------  $ Date: Tue, 1 Apr 2003 20:38:40 +0200% From: "Jakob Erber" <erberj@yahoo.de>0+ Subject: Re: New SPAWN behavior with V7.3-1 , Message-ID: <3e89dc6c$1@news.swissonline.ch>  K > VMS V7.3-1 changes aspects of SPAWNing subprocesses.  My question is:  Is K > there any mechanism (SYSGEN parameter or other device) to revert back the0 > old behavior?e  $ I wonder, how the behaviour changed? regards    Jakob5   ------------------------------  # Date: Tue, 01 Apr 2003 19:16:43 GMT 3 From: hammond@not@peek.ssr.hp.com (Charlie Hammond)e+ Subject: Re: New SPAWN behavior with V7.3-1o/ Message-ID: <vAlia.131$mG1.74@news.cpqcorp.net>   0 In article <8fjia.124$mk1.75@news.cpqcorp.net>, - "Mike Kier" <michael.kier@compaq.com> writes:G  J >Set bit 0 in DCL_CTLFLAGS - I dunno offhand if it is a dynamic parameter,  3 It is dynamic.  Set it in MODPARAMS and run autogen5  1 For an explaination of what was done and why, seeB             1     $ MCR SYSGEN HELP SYS_PARAMETERS DCL_CTLFLAGSn or1     $ MCR SYSMAN HELP SYS_PARAMETERS DCL_CTLFLAGSe   --  J       Charlie Hammond -- Hewlett-Packard Company -- Ft Lauderdale  FL  USAF           (hammond@not@peek.ssr.hp.com -- remove "@not" when replying)J       All opinions expressed are my own and not necessarily my employer's.   ------------------------------  # Date: Tue, 01 Apr 2003 19:48:07 GMT2& From: jlsue <jefflsxxxz@sbcglobal.net>Y Subject: Re: OpenVMS.org: Marvel article and HP's press release for Marveland Alpha Retai\8 Message-ID: <vfmj8vkeu1enmda7p09ak6i20fd44bq8b9@4ax.com>  E On Tue, 01 Apr 2003 12:02:39 +0100, Andrew Harrison SUNUK Consultancy . <Andrew_No.Harrison_No@nospamn.sun.com> wrote:   >r >o
 >jlsue wrote::H >> On Mon, 31 Mar 2003 11:59:00 +0100, Andrew Harrison SUNUK Consultancy1 >> <Andrew_No.Harrison_No@nospamn.sun.com> wrote:6 >> 2 >>   >> tE >> But the point is still that there are testimonials to counter youreA >> argument that the GS160/320 is not scalable enough for running6H >> transaction/database systems.  Apparently in the real world there are% >> ample examples of happy customers.  >>   >O6 >Really so have you actually read the testimonials ???   Yes, and even presented two.  ! >[snip unrelated testimonials...]e   >i= >That leaves Bank Austria which isn't a good reference unless > >you are hell bent in illustrating how poorly GS boxes perform# >when compared with the TurboLaser.   C Why do you keep repeating this lie.  You are so blatant in ignoring E the facts in this that it amazes me that you can have any credibility2 in anything.  D Show the wording in that article that states the GS160 only providesD 28% improvement.  I have read very carefully through the article andC there's just nothing in it to support your opinion.  The article isLF about upgrading to a pre-release of V7.3, which is not necessarily theC version that came with the system (it's also supported on V7.2-1H1, D and V7.2-2).  So it's very possible it was delivered with an earlierD release, and this win was focusing on the benefits of OpenVMS V7.3 -E the GS160 is just an aside, but for my purposes of showing a happy GSL customer, it's enough.  A In fact, further to the quote I posted before, there's this otherP quote from that article:  = 	"Our TurboLaser systems were maxed out," Kellner continues, (> 	"and we knew that a load increase was coming. The only way to5 	position ourselves for the future was to move to theC 	AlphaServer GS series."  B So, it would appear that the GS series gave more performance gainsD than you like to believe, otherwise it wouldn't "position" them "forD the future".  Since it's typical that "future" means growth, then itB would also imply that the GS series system will allow them greater growth than the Turbolaser.O  F One other thing you seem to miss in the GS vs Turbolaser discussion isC the scalability of the GS.  Sure, it has a slower QBB-to-QBB memoryC> transfer rate, but the scalability is much better - especiallyE compared to the Turbolaser.  The 8400's really didn't scale well whenBC you got into the higher cpu counts.  The additional cpus would give F you some added benefit, but the benefit decreases significantly, whileB the GS decreases less significantly.  So while there is additionalD latency, it can still provide greater growth potential due to better scalability of the CPU.I     > @ >And thats your list of GS customer references, sorry this is so< >bad that its embarassing and not one of them actually refer< >to the "performance" advantage that the GS boxes gave them. >   F Many of those references, though not current, are still valid examplesD of satisfied customers.  Just because you like to find fault doesn't> invalidate them as examples where the GS systems provided good
 solutions.  8 You have a vested interest in twisting things around and? characterizing them in a bad light.  That's your spin, but thatUA doesn't reflect the reality that the solutions work well for manySE customers.  No, not all customers, but that's never been my argument.    ------------------------------   Date: 1 Apr 2003 13:30:45 -0800O2 From: texascheryl@hotmail.com (Cheryl Hoefelmeyer)" Subject: Re: Overuse of LIB$SPAWN?= Message-ID: <7112dd15.0304011330.7fde564b@posting.google.com>O  Z Alan Frisbie <Abuse@NelsonUSA.com> wrote in message news:<3E889AA0.10600@NelsonUSA.com>... > Jack Patteeuw wrote: > >  > >  > > Cheryl Hoefelmeyer wrote:d > >:I > >> For example, they would rather spawn a subprocess to call SORT/MERGE , > >> than use the utility inside a program.  > > K > > The callable interface to SORT is "not intuitively obvious to the most -L > > casual observer", but as everyone one else has said it is significantly  > > more efficient.r  F With that in mind, I've written a very simple function for them to useE for the most common sort they'd need and an include file with all therA declarations and key buffer record set up. All they have to do isoF populate the key buffer and pass it and the filenames to the function.F It is not as versatile as calling the routines yourself, but is simple+ enough that maybe I can get them to use it.   E > Back in the days of BASIC-Plus under RSX-11M on the PDP-11, I would>H > create an indexed RMS file and PUT records to it.   When done, I couldH > just read them back in sorted order.   Very inefficient, but it worked > when nothing else would.  B If it's a small enough file, I've used indexed files, too, but theD ones we're dealing with here are on the order of 500,000+ blocks, so( unfortunately, that won't work too well.  F > When I ported the applications to VMS, everything was so much fasterE > that nobody noticed the overhead.   I was tempted to just leave theuE > old code alone.   However, the next time I needed sorted records, IgD > "bit the bullet" and learned how to use the SOR$ routines.   I wasG > *amazed* at how fast it was!   That small learning curve has paid forR$ > itself many times over since then.  @ Yes, I don't understand why they're being resistant to learning.E Although I'm wondering if they're so spawn-happy because many of themB came from a Unix background...   ------------------------------  # Date: Wed, 02 Apr 2003 00:34:27 GMT ! From: rob.buxton@wcc.spam.govt.nzC' Subject: Re: pathworks administer issue)$ Message-ID: <3e8a2f0c.99982196@news>  4 On Tue, 01 Apr 2003 17:37:00 +0200, "serge.zangheri"( <szangheri@grenoble.sema.slb.com> wrote:   >Hi,+ >I installed Pathworks for the second time.p4 >But when I start admin I got the following answer :, >Cannot continue - the server is not running >h0 Then you'll need to ensure Pathworks is started.1 You should have done an @sys$startup:pwrk$startupe To start the software.@ This command should also be placed in the System Startup command procedures.tE If you've done that, check that the Pathworks processes have started. 6 show syst  /proc=pwrk*  should produce something like:A OpenVMS V7.2  on node Node01   2-APR-2003 12:31:41.18  Uptime  72s 21:27:42F   Pid    Process Name    State  Pri      I/O       CPU       Page flts PagestF 2100022E PWRK$KNBDAEMON  HIB     12       51   0 00:01:33.03      1021 2091F 21000231 PWRK$LICENSE_R  HIB     11    59106   0 00:02:06.43      3336 1495F 2100023B PWRK$MASTER     HIB      6      242   0 00:05:45.56      2078 841iF 2100023E PWRK$LMMCP      HIB     11  3834310   0 00:45:18.44      6483 3231F 21000240 PWRK$MONITOR    HIB      6       56   0 00:15:00.50      3590 1145F 21000242 PWRK$ADMIN_0    LEF      6       25   0 00:00:01.92       349 372AF 21000244 PWRK$LMSRV      HIB     11  2169353   0 01:01:40.71     18848 195603F 21000247 PWRK$LMBROWSER  HIB      9 14371936   0 01:24:06.48     11615 6126  C If these processes are not there you'll need to review the logfiles0 under PWRK$LOGS:  G >I can connect pwrk$root:netlogon etc, on my pc, I can do admin/config.0 >No problem about licence. >swapfile put to 150000a >pagefile put to 300000 	 >80Mb RAMg$ >other system paramters semmes good. >: >Someone could help ?d >Thanks) >Serge >e   ------------------------------   Date: 1 Apr 2003 14:07:49 -0800M2 From: texascheryl@hotmail.com (Cheryl Hoefelmeyer)# Subject: Phantom processes slam CPU = Message-ID: <7112dd15.0304011407.55be7993@posting.google.com>t  B On our system, we periodically get mystery processes from a sharedF account, even if no one is logged in on that account, that really slamE the CPU and end up delaying nightly batch jobs' completion for hours.oF The process names are usually something like "NET_n" where n is a 4 orD 5-digit number. Could this be caused by someone disconnecting from a@ session? Some FTP problem? Any ideas? Sorry I haven't given more/ information, but I'm not sure what to look for.    Thanks,P Cheryl   ------------------------------   Date: 1 Apr 2003 22:40:51 -0600S+ From: young_r@encompasserve.org (Rob Young) ' Subject: Re: Phantom processes slam CPUM3 Message-ID: <wk3TBf0je2KC@eisner.encompasserve.org>E  r In article <7112dd15.0304011407.55be7993@posting.google.com>, texascheryl@hotmail.com (Cheryl Hoefelmeyer) writes:D > On our system, we periodically get mystery processes from a sharedH > account, even if no one is logged in on that account, that really slamG > the CPU and end up delaying nightly batch jobs' completion for hours. H > The process names are usually something like "NET_n" where n is a 4 orF > 5-digit number. Could this be caused by someone disconnecting from aB > session? Some FTP problem? Any ideas? Sorry I haven't given more1 > information, but I'm not sure what to look for.t >    	How long do they last?  	SMTP enabled?  % 	Can you see what they are accessing?   . 	From a privileged account, grab a PID.  Then:   	$ analyze/systemo 	SDA> set proc/id='pid'  	SDA> show proc/chan 	i) 	hit return , note all file streams open.l           SDA> exit    				Rob    ------------------------------   Date: 1 Apr 2003 11:50:00 -0800n( From: qwqwqwqw70@hotmail.com (Jon Power) Subject: Re: Rich Marcello= Message-ID: <71367ac8.0304011150.409d2d96@posting.google.com>T  . And we are very happy to have Didier on board.   /Jon   ------------------------------  $ Date: Tue, 1 Apr 2003 13:50:22 -0500; From: "Brian Tillman" <Brian.Tillman@notnoone.notnohow.com>S Subject: Re: SAMBA questionC$ Message-ID: <3e89df6b$1@news.si.com>  F >By the way, Brian, when you port the next version, drop me a note and >I'll make up a new kit.  L Huh?  I don't port anything.  I might know "C" if it bit me in the butt, butG I was simply responding to another poster's claim that the links on theV Samba download page were wrong.  -- 0I Brian Tillman         Internet: Brian.Tillman at smiths-aerospace dot com45 Smiths Aerospace  Addresses modified to prevent SPAM.R@ 3290 Patterson Ave. SE, MS Replace "at" with "@", "dot" with "." Grand Rapids, MI 49512-1991 8        This opinion doesn't represent that of my company   ------------------------------  % Date: Tue, 01 Apr 2003 19:22:06 -0600e1 From: "David J. Dachtera" <djesys.nospam@fsi.net>  Subject: Re: SAMBA questione' Message-ID: <3E8A3B3E.9EDE4D42@fsi.net>P   Brian Tillman wrote: > H > >By the way, Brian, when you port the next version, drop me a note and > >I'll make up a new kit. > N > Huh?  I don't port anything.  I might know "C" if it bit me in the butt, butI > I was simply responding to another poster's claim that the links on the ! > Samba download page were wrong.D  E S'okay. I've already found the archives for Samba V2.2-8 - and also aXA major bug in my repackaging. I'll be typing up the changes to theaF README.TXT file and I'll send it off to Hunter with a request to reZIP the kit.   -- h David J. Dachteran dba DJE Systems  http://www.djesys.com/  ( Unofficial Affordable OpenVMS Home Page: http://www.djesys.com/vms/soho/-   ------------------------------  $ Date: Tue, 1 Apr 2003 21:18:06 +0200" From: "Hans Vlems" <hvlems@iae.nl> Subject: Re: Second IP address5 Message-ID: <b6coll$40oha$1@ID-143435.news.dfncis.de>$  ? "JF Mezei" <jfmezei.spamnot@vl.videotron.ca> schreef in berichtc) news:3E88D578.E1292DB6@vl.videotron.ca...  > Hans Vlems wrote:t > >rB > > Is it possible to add a second IP address on a single ethernet
 interface? >nK > Use GOOGLE to look for recent posts in the last couple of months with the  term "multihomed". >lA > essentially, if you currently have interface SE0 for ip addressi 24.69.69.79,	 > you can0 >t: > TCPIP> SET INTERFACE SEA0: /address=10.0..20/etc etc etc > I > HELP SET INTERFACE  will give you all the options. The hard part in themF > documentation is figuring out where to add the "A" in the interface.   JF  J Phillip Helbig pointed me to that discussion. Apparently a very recent oneG that I happened to miss completely. As I have no documentation on TCPIPsI other than the postscript files that are on the AXP/VMS 7.3 cd, I'd never4% stumbled on the solution given above.p   Setup:9 Windows-XP (Home ed)system : 10.0.0.9/24, default gateway = AXP/VMS: 192.168.44.19/24 and 10.0.0.19/24 (runs also RIP V1) 7 VAX/VMS: 192.168.44.6, default gateway is 192.168.44.19n  I The AXP can ping the VAX and the WXP system. It cannot traceroute the WXP  system.dF The VAX can only ping (let alone traceroute) the AXP on its 192.168.44 network. But I'm getting somewhere.   Thanks   Hans   ------------------------------  % Date: Tue, 01 Apr 2003 15:43:23 -0400s0 From: JF Mezei <jfmezei.spamnot@vl.videotron.ca> Subject: Re: Second IP address/ Message-ID: <3E89EBD7.594C5A74@vl.videotron.ca>p   Hans Vlems wrote:v > Setup:; > Windows-XP (Home ed)system : 10.0.0.9/24, default gatewayt? > AXP/VMS: 192.168.44.19/24 and 10.0.0.19/24 (runs also RIP V1)29 > VAX/VMS: 192.168.44.6, default gateway is 192.168.44.19t >   M One of the TCPIP gurushad explained some time ago that it really helps if youcH create certain route entries (this was done by default in 7.3 but not in previous releases).o  ; If you do TCPIP> SHOW ROUTE  , do you see entries shuch as:   % AH  10.0.0.19  gateway: 10.0.0.19   ?.  1 (eg: for that address, point it to that address).r    I Also, if you do a show arp, do you see your Windows machine in the list ?    ------------------------------   Date: 1 Apr 2003 23:03:46 -06007+ From: young_r@encompasserve.org (Rob Young) / Subject: Smart Array 5300a, shadowing and 7.3-1B3 Message-ID: <oMH40G8bzM+J@eisner.encompasserve.org>c  * 	Can ADG be used with the 5300a and 7.3-1?  9 	Shadowing supported with ADG?  Shadowing ADG partitions?a  + 	Shadowing supported in general with 5300a?i  
 			Thanks,   			Rob   ------------------------------  % Date: Tue, 01 Apr 2003 21:11:12 +0200t4 From: Didier Morandi <Didier.Morandi.nospam@Free.fr>; Subject: Re: Space Invaders was: Re: Fortran Guru requested & Message-ID: <3E89E450.6070909@Free.fr>   Barry Treahy, Jr. wrote:   >>>b& > Try to recompile with /NOOPTIMIZE... >  > Barryt >    I did. Same.   D.   ------------------------------   Date: 1 Apr 2003 14:09:14 -0600. From: briggs@encompasserve.org; Subject: Re: Space Invaders was: Re: Fortran Guru requestede3 Message-ID: <EkbNjmC5jLBZ@eisner.encompasserve.org>s  ] In article <3E89E450.6070909@Free.fr>, Didier Morandi <Didier.Morandi.nospam@Free.fr> writes:n > Barry Treahy, Jr. wrote: >  >>>>' >> Try to recompile with /NOOPTIMIZE...= >  > I did. Same.  ' Try compiling and running under /DEBUG.i  ! DBG> define /value call_count = 0tJ DBG> set break sleep DO ( define /value call_count = call_count + 1 ; go ) DBG> set break /exception  DBG> goD (wait for exception to trigger)  DBG> ev call_count   Now exit and try again  ; DBG> set break sleep /after=(number of calls learned above): DBG> go!; (breakpoint triggers just before exception is due to occur)@ DBG> set mode screen DBG> set step /instruction DBG> s DBG> s DBG> s  @ What you will expect to see is the Fortran routine that performs= string concatenation invoked with a parameter list, the first > element of which is inappropriately passed by reference rather than descriptor.  < This will occur on line 141 of subroutine sleep as indicated on the listing below.m  ? Your job is to try to figure out how the '05:00' wound up beingo? passed there by reference rather than descriptor.  Was it there ; in the parameter list to sleep?  If so then you want to do:t   DBG> show callst  = And repeat this exercise in the context of the caller, hopingh4 to zero in on the inappropriate code sequence there.  < Maybe you'll need to single step through the prologue to see, what kind of magic is being performed there.  < (arrange for a break point before the fatal call into SLEEP) DBG> set step /into  DBG> set step /instruction DBG> s DBG> s DBG> s  ' The VMS debugger is a nice little tool.l   	John Briggs  $ >> 132         SUBROUTINE SLEEP(TAG)H >> 133 C       Set timer and wait for TAG seconds.  TAG is a CHARACTER*5	 >> stringaF >> 134 C       of the form ##.##, which is the seconds, and hundredths/ >> of seconds.                                 :A >> 135 C       To delay game for 5 seconds, TAG would be '05.00'.:- >> 136         IMPLICIT INTEGER*4 (A-Z)      f" >> 137         EXTERNAL SS$_NORMAL- >> 138         DOUBLE PRECISION TIME         r+ >> 139         CHARACTER DELTA_TIME*9,TAG*5y >> 140      D >> 141         DELTA_TIME='0 ::'//TAG          !Concatenate strings.G >> 142         RET_STAT=SYS$BINTIM(DELTA_TIME,TIME)    !ASCII to binaryu  4 >> %TRACE-F-TRACEBACK, symbolic stack dump follows  < >>   image    module    routine             line      rel PC >> abs PC      VA >>                                             0 0000000000000000i >> FFFFFFFF808E5380     A >>  SPCINV  INVADERS  SLEEP                  141 0000000000000ADCr >> 0000000000030ADC        	John Briggs   ------------------------------   Date: 1 Apr 2003 12:09:03 -0800s( From: qwqwqwqw70@hotmail.com (Jon Power) Subject: Re: Suggestion to Sue= Message-ID: <71367ac8.0304011209.28c2b3c0@posting.google.com>.   Fred Kleinsorge wrote:J > I'd rather Andrew just go away, or be replaced with someone who has more> > technical depth, in his thinly disguised Sun sales function.   (From Jon Power - Sector7)  ? Since D.J.E's posting (and lambasting of my alto ego) caught myoF attention I have been reading various exchanges and there does seem to+ be be some animosity to this Andrew fellow.   D If someone would like a debate with the perceived "VMS Antichrist" IB would be happy to oblidge and offer myself as the sacrifical lamb.  F I believe that I may be able to hold my own - (technically speaking) -   /Jon   ------------------------------  % Date: Tue, 01 Apr 2003 14:20:24 -0600s From: brandon@dalsemi.commM Subject: Re: SYSTARTUP_VMS (was: Three questions re: the VMS startup process)S1 Message-ID: <03040114202483@dscis6-0.dalsemi.com>s  N > >All the jobs are started using SUBMIT.  Some of the jobs are submitted with > >/prio=10- > C > Just out of curiosity, why "/prior=10"?  This does not affect the<, > process priority, only the queue priority.  + The batch queue is set to a job limit of 1.g  O A couple of the jobs are submit with /prio=10 so they are the last jobs to run.:  K These jobs can run any time, however I do not want them to detract from thee actual startup process.a  O This forces those jobs that can run in the background while users are active infM the system.  For example; one of the jobs does a SET VOLUME /REBUILD and I donN not want it run during the startup process.  Other jobs do reporting of systemN crash analysis (if it crashed), startup process checks, things of that nature.       John Brandon VMS Systems Administrator  Dallas Semiconductor john.brandon@dalsemi.com 972.371.4172 wki 972.371.4003 fx    ------------------------------  % Date: Tue, 01 Apr 2003 19:31:11 -0600i1 From: "David J. Dachtera" <djesys.nospam@fsi.net> M Subject: Re: SYSTARTUP_VMS (was: Three questions re: the VMS startup process) ' Message-ID: <3E8A3D5F.46D0DB14@fsi.net>p   brandon@dalsemi.com wrote: > K > > We must keep the environment in the state that the vendor will support.e > Q > No disagreement here.  However if a vendor requires priv's for a user to access 8 > data I would create captive accounts for those users.   G We must keep the environment in the state that the vendor will support.a   > I would also address theM > issue with the vendor and work with them on making the changes necessary ton > resolve the matter.   F No disagreement here.  The trick is getting sufficient leverage on theA vendor, given the cost of re-certifying the application after the  changes.  A > > Given the dictates of support contracts, there is very littleu, > > alternative without the vendor's buy-in. > , > I believe there is.  See captive accounts.  G We must keep the environment in the state that the vendor will support.e   -- D David J. DachteraA dba DJE Systemso http://www.djesys.com/  ( Unofficial Affordable OpenVMS Home Page: http://www.djesys.com/vms/soho/    ------------------------------  % Date: Tue, 01 Apr 2003 22:24:05 -0400 0 From: JF Mezei <jfmezei.spamnot@vl.videotron.ca>M Subject: Re: SYSTARTUP_VMS (was: Three questions re: the VMS startup process)m/ Message-ID: <3E8A49C4.D748ACF0@vl.videotron.ca>    "David J. Dachtera" wrote:H > No disagreement here.  The trick is getting sufficient leverage on theC > vendor, given the cost of re-certifying the application after they
 > changes.    I Depending on the package, if you provide valuable suggestions, the vendor>D should at the very least very receptive to implement them as part ofN continuous product upgrades. They can do the certification as part of the next major release.   ------------------------------  $ Date: Tue, 1 Apr 2003 14:03:57 -0500; From: "Brian Tillman" <Brian.Tillman@notnoone.notnohow.com>a8 Subject: Re: Three questions re: the VMS startup process$ Message-ID: <3e89e299$1@news.si.com>  K >1. How do I configure LAT to run at startup?  Right now, I have to execute K >SYS$STARTUP:LAT$STARTUP.COM manually after every reboot, and simply addingn it toCH >the end of SYS$SYSROOT:[MANAGER]SYSTARTUP_VMS.COM doesn't seem to work.  F Define "doesn't work".  Here's anexcerpt of my SYSTARTUP_VMS.COM file:   $       say "   Starting LAT."  $       @sys$startup:lat$startup, $       mcr latcp set node /connections=both  & I do this right after starting DECnet. -- -I Brian Tillman         Internet: Brian.Tillman at smiths-aerospace dot comy5 Smiths Aerospace  Addresses modified to prevent SPAM.e@ 3290 Patterson Ave. SE, MS Replace "at" with "@", "dot" with "." Grand Rapids, MI 49512-1991 8        This opinion doesn't represent that of my company   ------------------------------  % Date: Tue, 01 Apr 2003 14:25:36 -0600e From: brandon@dalsemi.com 8 Subject: Re: Three questions re: the VMS startup process1 Message-ID: <03040114253673@dscis6-0.dalsemi.com>d  M > >1. How do I configure LAT to run at startup?  Right now, I have to execute M > >SYS$STARTUP:LAT$STARTUP.COM manually after every reboot, and simply addingw > it toaJ > >the end of SYS$SYSROOT:[MANAGER]SYSTARTUP_VMS.COM doesn't seem to work. > H > Define "doesn't work".  Here's anexcerpt of my SYSTARTUP_VMS.COM file: >   > $       say "   Starting LAT."" > $       @sys$startup:lat$startup. > $       mcr latcp set node /connections=both > ( > I do this right after starting DECnet. > -- SK > Brian Tillman         Internet: Brian.Tillman at smiths-aerospace dot com.  6 You may want to include this in your LAT$SYSTARTUP.COM  * $!---------------------------------------- $ lcp :== $latcp! $ nodename = f$getsyi("NODENAME")e $! $!* $!----------------------------------------/ $! create LCP links for multiple ethernet portsa $!' $ lcp create link 1st$link /device=ewa0o' $ lcp create link 2nd$link /device=ewb0o $ lcp set node /state=on $! $!O $! --------------------  Modify Service Characteristics  ----------------------s $!> $ lcp create service 'nodename' /ident="My VMS Cluster" /nolog: $ lcp create service myclus /ident="My VMS Cluster" /nolog $! $!O $! ---------------------  Modify Node Characteristics  ------------------------S $! $ lcp set node 'nodename' --?       /groups=enable=(0,147) /user_groups=enable=(0,147) /nolog  $ lcp set node 'nodename' -c       /connections=both /nolog $! $!* $!----------------------------------------     John Brandon VMS Systems Administratord Dallas Semiconductor john.brandon@dalsemi.com 972.371.4172 wka 972.371.4003 fxr   ------------------------------   Date: 2 Apr 2003 02:34:34 GMTs2 From: "Zane H. Healy" <healyzh@shell1.aracnet.com> Subject: TZ30's and Alpha's?+ Message-ID: <b6di7q0bl1@enews3.newsguy.com>a  F Out of curiousity can a TZ30 drive be connected to an Alpha such as an% AlphaStation 200 4/233, or PWS 433au?-  M Someone I know, just dropped a TK50 off for me to try and recover data from, oM and right now the only VMS systems that I've got fully up are Alpha's.  I've rL been meaning to get a MicroVAX back up and running, so if necessary I don't  mind bringing one up.a   			ZaneD   ------------------------------  % Date: Tue, 01 Apr 2003 22:34:15 -0500r2 From: rdeininger@mindspring.com (Robert Deininger)  Subject: Re: TZ30's and Alpha's?L Message-ID: <rdeininger-0104032234150001@user-105n8uu.dialup.mindspring.com>  ; In article <b6di7q0bl1@enews3.newsguy.com>, "Zane H. Healy"h# <healyzh@shell1.aracnet.com> wrote:3  G >Out of curiousity can a TZ30 drive be connected to an Alpha such as ano& >AlphaStation 200 4/233, or PWS 433au? >dN >Someone I know, just dropped a TK50 off for me to try and recover data from, N >and right now the only VMS systems that I've got fully up are Alpha's.  I've M >been meaning to get a MicroVAX back up and running, so if necessary I don't   >mind bringing one up.  H TZ30s are/were supported options on the slightly older DEC 3000 systems,G so I expect they were supported on Alphastation 200 also.  You might besD able to find an old SOC for the system buried on the alphaserver web pages/   It's certainly worth a try.O   ------------------------------  # Date: Wed, 02 Apr 2003 04:00:27 GMTa- From: "John E. Malmberg" <wb8tyw@qsl.network>r  Subject: Re: TZ30's and Alpha's?= Message-ID: <vftia.24956$TW2.4603101@news1.news.adelphia.net>0   Zane H. Healy wrote:H > Out of curiousity can a TZ30 drive be connected to an Alpha such as an' > AlphaStation 200 4/233, or PWS 433au?  > O > Someone I know, just dropped a TK50 off for me to try and recover data from, eO > and right now the only VMS systems that I've got fully up are Alpha's.  I've aN > been meaning to get a MicroVAX back up and running, so if necessary I don't  > mind bringing one up.   D I have not kept track of the capabilities of the DLT drives to read F TK50s, but the TZ85 and TZ86 or their DSSI equivalents should also be I able to read the TK50s.  I do not know about the later generation of DLT h drives.o   -Johnl wb8tyw@qsl.network Personal Opinion Onlyo   ------------------------------  # Date: Wed, 02 Apr 2003 01:09:02 GMT + From: "Bill Johnson" <res0xcil@verizon.net> ; Subject: Wildfire / GS Customers ConsoleWorks Special Offere7 Message-ID: <OKqia.14928$pW1.7745@nwrddc01.gnilink.net>t  H If you have a wildfire or GS series machine and you purchased the SystemH Management Console (SMC) as a mandatory option, it has ConsoleWorks fromF TECSys Development on it as the preferred WEB based console managementL solution for the GS machine. This version of ConsoleWorks is limited to justH managing the GS machine and also limited to 8 total connections on an NT	 platform.e  L TECSys Development actually supports consoleworks running on other platformsI like VMS, TRU64, HPUX, Solaris, Linux and NT. We have a SPECIAL promotion@L (supported by HP's wildfire team) where TECSys Development will allow you toH SWAP OUT or UPGRADE ConsoleWorks on the SMC to our RETAIL version of theG product which will run on any of the above platforms or your choice forFJ FREE. This means that you may now use ConsoleWorks on a VMS host to manageK your wildfire and if you are using less than 8 connections, you may now usenK (As PART OF THIS OFFER/UPGRADE) the remaining 8 connections to manage OTHERsI devices, in other words you are no longer limited to managing just the GS-H Box. Also, you may purchase OPTIONAL connections, scanfiles etc with the retail version.r  @ OKAY, the catch, you will need to do this upgrade through TECSysK Development, or one of its resellers, and will need to purchase maintenanceaK and support for the RETAIL version of the product and we will provide a daydD of training for ConsoleWorks via WEBex as part of the offer. Further4 OPTIONAL training can be delivered onsite if needed.  H Check out the offer at http://www.tditx.com/SMCFinal.html or call TDi at
 972-881-1553.-   ------------------------------   End of INFO-VAX 2003.181 ************************