/ 
/ 
/                   FIRST PRINTING, FEBRUARY 1974
/ 
/ THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
/ CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED
/ AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-
/ SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
/ DOCUMENT.
/ 
/ THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR-
/ NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON
/ A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH
/ INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR 
/ USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO-
/ VIDED IN WRITING BY DIGITAL.
/ 
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/ FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP-
/ MENT THAT IS NOT SUPPLIED BY DIGITAL.
/ 
/ COPYRIGHT (C) 1974, BY DIGITAL EQUIPMENT CORPORATION
/ 
/ 
        .EJECT
/	EDIT #0
/
/ COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS
/
/		15 JUN 73	T.A. MURRAY
/
/	UPKEV - FORTRAN CALLABLE SUBROUTINE TO UNPACK
/		HINF FORMAT EVENT VARIABLE
/
/	CALLING SEQUENCE:
/		CALL UPKEV (EV,IODIR,DEV,UNIT)
/	WHERE
/		EV	-A HINF FORMATTED EVENT VARIABLE
/		IODIR	-RETURNS WITH BITS 0 TO 3 OF EV
/			RIGHT ADJUSTED (I/O STATUS AND
/			DIRECTORY INFO
/		DEV	-RETURNS WITH BITS 12 TO 17 OF EV,
/			RIGHT ADJUSTED (DEVICE TYPE CODE)
/		UNIT	-RETURNS WITH BITS 4 TO 11 OF EV, RIGHT
/			ADJUSTED (UNIT NUMBER OF DEVICE)
/
 
	.GLOBL	UPKEV,  .DAA
 
UPKEV	0
	JMS*	.DAA
	JMP	ARGEND
EV	0
IODIR	0
DEV	0
UNIT	0
 
ARGEND	LAC*	EV	/GET EVENT VARIABLE
	CLL
	LRS	16	/RIGHT ADJUST BITS 0 TO 3
	DAC*	IODIR
	LLS!1000   10	/CLA, THEN GET BITS 4 TO 11
	DAC*	UNIT	/UNIT NUMBER
	LLS!1000   6	/CLA, THEN GET BITS 12 T0 17
	DAC*	DEV	/DEVICE CODE
	JMP*	UPKEV
	.END