.TITLE	Lib_Peek_L

;++
; Author:	Jonathan Welch
;
; Functional Description:
;	Returns the value of the longword at the specified memory location.
;
; Calling Sequence:
;
;	Value = Lib_Peek(Address)
;
; Formal Arguments:
;
;	Address
;	  VMS Usage  : address
;	  type       : longword (unsigned)
;	  access     : read only
;	  mechanism  : by reference
;
;	Address of memory location to examine.
;
; Implicit Inputs:
;
;	none
;
; Implicit Outputs:
;
;	none
;
; Routine Value:
;
;	Value of the longword at the specified memory location.
;
;--

; Argument list offset:

addr	= 4

	.PSECT	_LIB_PEEK_L,EXE,NOWRT,LONG
	.ENTRY	LIB_PEEK_L,^M<>

	MOVL	@addr(AP), R0		; R0 <- address of place to peek.
	MOVL	(R0), R0		; R0 <- longword value of peeked place.

	RET

	.END