LNK_ELAPSTIMS                                                    22-AUG-1978 04:41:48   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)     100  DECLARATIONS

   (3)     100  LNK$CALCELAPS

LNK_ELAPSTIMS                                                    22-AUG-1978 04:41:48   VAX-11 MACRO X0.3-11               Page   1

X01.00                                                                                                                           (1)



                                     0000   100 	.TITLE	LNK_ELAPSTIMS

                                     0000   200 	.IDENT	/X01.00/

                                     0000   300 

                                     0000   400 ;

                                     0000   500 ;			  COPYRIGHT (c) 1977 BY

                                     0000   600 ;	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000   700 ;

                                     0000   800 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED

                                     0000   900 ; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE

                                     0000  1000 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER

                                     0000  1100 ; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY

                                     0000  1200 ; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY

                                     0000  1300 ; TRANSFERRED.

                                     0000  1400 ;

                                     0000  1500 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE

                                     0000  1600 ; AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT

                                     0000  1700 ; CORPORATION.

                                     0000  1800 ;

                                     0000  1900 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS

                                     0000  2000 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

                                     0000  2100 ;

                                     0000  2200 

                                     0000  2300 ;++

                                     0000  2400 ; FACILITY:	LINKER

                                     0000  2500 ;

                                     0000  2600 ; ABSTRACT:	COMPUTE AN ELAPSED TIME FROM TWO ABSOLUTE TIMES

                                     0000  2700 ;

                                     0000  2800 ;

                                     0000  2900 ; ENVIRONMENT:

                                     0000  3000 ;

                                     0000  3100 ; AUTHOR:	T.J. PORTER, CREATION DATE: 27-JUN-77

                                     0000  3200 ;

                                     0000  3300 ; MODIFIED BY:

                                     0000  3400 ;

                                     0000  3500 ;	, : VERSION

                                     0000  3600 ; 01	- 

                                     0000  3700 ;--

LNK_ELAPSTIMS                                                    22-AUG-1978 04:41:48   VAX-11 MACRO X0.3-11               Page   2

X01.00          DECLARATIONS                                                                                                     (2)



                                     0000   100 	.SBTTL	DECLARATIONS

                                     0000   200 ;

                                     0000   300 ; INCLUDE FILES:

                                     0000   400 ;

                                     0000   500 

                                     0000   600 ;

                                     0000   700 ; MACROS:

                                     0000   800 ;

                                     0000   900 

                                     0000  1000 ;

                                     0000  1100 ; EQUATED SYMBOLS:

                                     0000  1200 ;

                           00000004  0000  1300 TIMEADDR1 = 4			; FIRST ARGUMENT IS TIME 1 ADDRESS

                           00000008  0000  1310 TIMEADDR2 = 8			; SECOND IS ADDRESS OF TIME 2

                                     0000  1400 ;

                                     0000  1500 ; OWN STORAGE:

                                     0000  1600 ;

                                 00000000  1700 	.PSECT	$OWN$,NOEXE,QUAD

                                     0000  1800 ELAPSED:

                  00000000 00000000  0000  1900 	.QUAD	0			; THE COMPUTED ELAPSED TIME

                                     0008  2000 

LNK_ELAPSTIMS                                                    22-AUG-1978 04:41:48   VAX-11 MACRO X0.3-11               Page   3

X01.00          LNK$CALCELAPS                                                                                                    (3)



                                     0008   100 	.SBTTL	LNK$CALCELAPS

                                     0008   200 ;++

                                     0008   300 ; FUNCTIONAL DESCRIPTION:

                                     0008   400 ;

                                     0008   500 ;	THIS ROUTINE IS CALLED TO CALCULATE THE ELAPSED TIME BETWEEN TWO

                                     0008   600 ;	ABSOLUTE TIME VALUES. THE ADDRESS OF THE RESULT IS RETURNED AS THE VALUE OF THE RO

                                     0008   700 ;	THE ELAPSED TIME IS IN THE "DELTA TIME" FORMAT OF THE SYSTEM AND

                                     0008   800 ;	IS THEREFORE SUITABLE FOR DISPLAYING THROUGH SYSTEM SERVICES

                                     0008   900 ;	SUCH AS FAO %T.

                                     0008  1000 ;

                                     0008  1100 ; CALLING SEQUENCE:

                                     0008  1200 ;

                                     0008  1300 ;	LNK$CALCELAPS(TIMEADDR1,TIMEADDR2)

                                     0008  1400 ;

                                     0008  1500 ;	WHERE:	TIMEADDR1 = ADDRESS OF A QUADWORD CONTAINING THE

                                     0008  1600 ;				START TIME

                                     0008  1700 ;		TIMEADDR2 = ADDRESS OF A QUADWORD CONTAINING THE

                                     0008  1800 ;				END TIME.

                                     0008  1900 ;

                                     0008  2000 ;

                                     0008  2100 ; INPUT PARAMETERS:

                                     0008  2200 ;

                                     0008  2300 ;	AS ABOVE

                                     0008  2400 ;

                                     0008  2500 ; IMPLICIT INPUTS:

                                     0008  2600 ;

                                     0008  2700 ;	NONE

                                     0008  2800 ;

                                     0008  2900 ; OUTPUT PARAMETERS:

                                     0008  3000 ;

                                     0008  3100 ;	THE ROUTINE HAS AS ITS VALUE (I.E. CONTENT RETURNED IN R0)

                                     0008  3200 ;	THE ADDRESS OF AN OWN QUADWORD CONTAINING THE VALUE

                                     0008  3300 ;		TIME1 - TIME2

                                     0008  3400 ;	WHICH IS (PRESUMABLY) NEGATIVE.

                                     0008  3500 ;

                                     0008  3600 ;

                                     0008  3700 ; IMPLICIT OUTPUTS:

                                     0008  3800 ;

                                     0008  3900 ;	NONE

                                     0008  4000 ;

                                     0008  4100 ; COMPLETION CODES:

                                     0008  4200 ;

                                     0008  4300 ;	NONE

                                     0008  4400 ;

                                     0008  4500 ; SIDE EFFECTS:

                                     0008  4600 ;

                                     0008  4700 ;	NONE

                                     0008  4800 ;

                                     0008  4900 ;--

                                     0008  5000 

                                 00000000  5100 	.PSECT	$CODE$,NOWRT,LONG

                                     0000  5200 LNK$CALCELAPS::

                               0000  0000  5300 	.WORD	0			;

            50       0000'CF     9E  0002  5500 	MOVAB	W^ELAPSED,R0		; GET ADDRESS OF QUADWORD TO RECEIVE RESULT

            51         08 AC     D0  0007  5600 	MOVL	TIMEADDR2(AP),R1	; GET ADDRESS OF TIME 2

            60         04 BC     7D  000B  5700 	MOVQ	@TIMEADDR1(AP),(R0)	; INITIALIZE RESULT WITH TIME 1

            60            81     C2  000F  5800 	SUBL	(R1)+,(R0)		; SUBTRACT LOW ORDER HALF OF

LNK_ELAPSTIMS                                                    22-AUG-1978 04:41:48   VAX-11 MACRO X0.3-11               Page   4

X01.00          LNK$CALCELAPS                                                                                                    (3)



         04 A0            61     D9  0012  5900 	SBWC	(R1),4(R0)		; TIME 2 THEN HIGH ORDER HALF WITH CARRY

                                 04  0016  6000 	RET				; FROM CORRESPONDING HALVES OF TIME 1

                                     0017  6100 	.END

LNK_ELAPSTIMS                                                    22-AUG-1978 04:41:48   VAX-11 MACRO X0.3-11               Page   5

SYMBOL TABLE                                                                                                                     (3)



ELAPSED          00000000 R     02   

LNK$CALCELAPS    00000000 RG    03   

TIMEADDR1      = 00000004            

TIMEADDR2      = 00000008            





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$OWN$            00000008      02     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT QUAD  

$CODE$           00000017      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

28486. BYTES LEFT IN FREE MEMORY POOL.

OBJ$:LNKELAPST,LIS$:LNKELAPST/-SP=SRC$:LNKELAPST

0 MLB DIR RDS - 0 GETS TO DEFINE 0 MACROS. 1 INTER. FILE WRITES. 

