Chris asks:
> Can anyone out there give me a list of the codes returned by the
> "thiscpu" procedure? I know a few:
 
        0  =  3000/Series I
        1  =  3000/Series II
        2  =  3000/33 (or 30)
        3  =  3000/Series III
        4  =  3000/4x (or 5x)
        5  =  3000/6x (or 7x)
        6  =  3000/37
        7  =  Micro 3000XE
        8  =  Micro 3000
       16  =  3000/9xx
 
       17  =  9000/xxx (PA-RISC HP9000 ... Stan's number)
 
 
 
(I have a package of intrinsic/pseudo-intrinsic replacement routines that I
use on Unix machines ... the C source code for the replacement thiscpu is:
 
   int16 thiscpu (void)
      {
 
      return 17;                 /* SS convention */
 
      } /* end thiscpu proc */
 
Why a different number?  So that run-time code can call thiscpu to
determine if it is running on MPE or HP-UX.
 
Obviously, I don't have separate numbers (yet?) for different models
of 9000.
 
--
Stan Sieler                                          [log in to unmask]
                                     http://www.allegro.com/sieler.html