

; Bliss-32 7.352	Saturday 21-AUG-1978 23:52:02	DBB3:[MOUNT.SRC]GETUIC.B32;8					Page 1

; Digital Equipment Corporation

;

;	0001	MODULE GETUIC (

;	0002			LANGUAGE (BLISS32),

;	0003			IDENT = 'X0001'

;	0004			) =

;	0005	BEGIN

;	0006	

;	0007	!

;	0008	! Copyright (c) 1977

;	0009	! Digital Equipment Corporation, Maynard, Massachusetts 01754

;	0010	!

;	0011	! This software is furnished  under a license for use only on a single

;	0012	! computer  system and  may be  copied only with  the inclusion of the

;	0013	! above copyright notice.  This software, or any other copies thereof,

;	0014	! may not be provided or  otherwise made available to any other person

;	0015	! except for use on such system and to one who agrees to these license

;	0016	! terms.  Title to and  ownership of the  software  shall at all times

;	0017	! remain in DEC.

;	0018	!

;	0019	! The information in this software is subject to change without notice

;	0020	! and should  not be construed  as a commitment  by Digital  Equipment

;	0021	! Corporation.

;	0022	!

;	0023	! DEC assumes  no  responsibility  for  the use or  reliability of its

;	0024	! software on equipment which is not supplied by DEC.

;	0025	

;	0026	!++

;	0027	!

;	0028	! FACILITY:  MOUNT Utility Structure Levels 1 & 2

;	0029	!

;	0030	! ABSTRACT:

;	0031	

;	0032	!	 This routine returns the UIC of the running process.

;	0033	!

;	0034	!

;	0035	! ENVIRONMENT:

;	0036	!

;	0037	!	STARLET operating system, including privileged system services

;	0038	!	and internal exec routines.

;	0039	!

;	0040	!--

;	0041	!

;	0042	!

;	0043	! AUTHOR:  Andrew C. Goldstein,	 CREATION DATE:  28-Oct-1977  17:54

;	0044	!

;	0045	! REVISION HISTORY:

;	0046	!

;	0047	!**

;	0048	

;	0049	

;	0050	LIBRARY 'SYS$LIBRARY:LIB.L32';

;	0051	REQUIRE 'SRC$:MOUDEF.B32';

;	0358	REQUIRE 'LIBD$:[VMSLIB.OBJ]MOUNTMSG.B32';



; Bliss-32 7.352	Saturday 21-AUG-1978 23:52:02	DBB3:[MOUNT.SRC]GETUIC.B32;8					Page 2

; Digital Equipment Corporation

;

;	0458	GLOBAL ROUTINE GET_UIC =

;	0459	

;	0460	!++

;	0461	!

;	0462	! FUNCTIONAL DESCRIPTION:

;	0463	!

;	0464	!	This is a kluge routine to get the UIC of a process. It will disappear

;	0465	!	when $GETJPP becomes stable.

;	0466	!

;	0467	!

;	0468	! CALLING SEQUENCE:

;	0469	!	GET_UIC ()

;	0470	!

;	0471	! INPUT PARAMETERS:

;	0472	!	NONE

;	0473	!

;	0474	! IMPLICIT INPUTS:

;	0475	!	NONE

;	0476	!

;	0477	! OUTPUT PARAMETERS:

;	0478	!	NONE

;	0479	!

;	0480	! IMPLICIT OUTPUTS:

;	0481	!	NONE

;	0482	!

;	0483	! ROUTINE VALUE:

;	0484	!	UIC of this process

;	0485	!

;	0486	! SIDE EFFECTS:

;	0487	!	NONE

;	0488	!

;	0489	!--

;	0490	

;	0491	BEGIN

;	0492	

;	0493	EXTERNAL

;	0494		SCH$GL_CURPCB	: REF BBLOCK ADDRESSING_MODE (ABSOLUTE);

;	0495						! system address of process PCB

;	0496	

;	0497	! We have to do this garbage since the PCB is in system space and is not

;	0498	! user readable.

;	0499	!

;	0500	

;	0501	RETURN (.SCH$GL_CURPCB[PCB$L_UIC]);

;	0502	

;	0503	END;					! end of routine GET_UIC





							    .TITLE  GETUIC

							    .IDENT  \X0001\



							    .GLOBL  SCH$GL_CURPCB



							    .PSECT  $CODE$,NOWRT,2





; Bliss-32 7.352	Saturday 21-AUG-1978 23:52:02	DBB3:[MOUNT.SRC]GETUIC.B32;8					Page 2-1

; Digital Equipment Corporation

;

					 0000 00000 	    .ENTRY  GET_UIC, Save nothing				      ; 0458

		         50 00000000G  9F  D0 00002 	    MOVL    @#SCH$GL_CURPCB, R0					      ; 0501

		         50	  20   A0  D0 00009 	    MOVL    32(R0), R0						      ;

					   04 0000D 	    RET     							      ; 0458



; Routine Size:  14 bytes





;	0504	

;	0505	END

;	0506	ELUDOM













;				       PSECT SUMMARY

;

;	Name		 Bytes			       Attributes

;

;  $CODE$         	    14  NOWRT,  RD ,  EXE,NOSHR,  LCL,  REL,  CON,NOPIC,ALIGN(2)









;				LIBRARY STATISTICS

;

;					     -------- Symbols --------    Blocks

;	File				     Total    Loaded   Percent      Read

;

;  DBA4:[SYSLIB]LIB.L32;1		      5582         5         0       224











; Size:		14 code + 0 data bytes

; Run Time:	00:10.2

; Elapsed Time:	00:39.7

; Memory Used:	250 pages

; Compilation Complete

