Copyright Digital Equipment Corp. All rights reserved.
This routine returns the same values as TPU$TPU.