The following is the source for the native mode procedure "thiscpu" from
MPE/iX 5.0 PUSH (B.79.06).  For those not as familiar, remember that
"thiscpu" is a procedure or function call, while "PCN" is a cm (or "classic
3000") instruction.
----------------------------------------------------------------------------
 
FUNCTION  thiscpu : SHORTINT;
 
$CALL_PRIVILEGE 3$
$EXEC_PRIVILEGE 3$
 
{===========================================================================
 
Purpose:
 
   This FUNCTION is intended TO allow certain parts OF the O.S.
   AND privileged utilities TO know what 3000 hardware series
   they are running on.  FOR all HP Precision Architecture models,
   it returns the same VALUE -- 16.
 
FUNCTION return:
 
   16.
 
Description:
 
   This FUNCTION exists on all versions OF MPE, AND it is closely
   related TO the privileged CM instruction PCN (PUSH CPU Number).
   The VALUE returned by PCN AND THISCPU is tied TO the hardware
   series it runs on.  The following chart illustrates this:
 
      3000 model             THISCPU            PCN
   ----------------------------------------------------------------------
     Series I                   0                -
     Series II                  1                1
     Series 30, 33              2                8
     Series III                 3                2
     Series 40, 44, 48          4                3
     Series 64, 68, 70          5                4
     Series 37                  6                5
     Tioga                      7                6
     MicroMouse                 8                7
     Reserved FOR other        9-15              -
        Mouse-like CPUs
     MPE XL (FOR ALL            16 (CM & NM)     16    (emulated)
        HPPA CPUs)                               17    (translated)
                                                 18-31 (reserved FOR XL)
 
Special Considerations:
 
   Currently, both a NM AND a CM version OF this FUNCTION exist.
   They both return 16 on MPE XL.  Any future changes made TO this
   FUNCTION may need TO be made TO both CM AND NM versions.
 
 ===========================================================================}
 
BEGIN   { FUNCTION thiscpu }
 
thiscpu := 16;
 
END;   { FUNCTION thiscpu }
 
--
Stephen Bitondo
Hewlett-Packard Company (MS 47UE)              Email: [log in to unmask]
19447 Pruneridge Avenue                        phone: +1 (408) 447-1074
Cupertino, CA  USA  95014-9913                 FAX:   +1 (408) 447-1178