.TITLE	Lib_Poke

;++
;
; Author:	John W. Manly
;
; Functional Description:
;
;	Puts the specified value at the specified location in memory.
;
; Calling Sequence:
;
;	CALL Lib_Poke(address, value)
;
; Formal arguments:
;
;	Address
;	  VMS Usage  : address
;	  type       : longword (unsigned)
;	  access     : read only
;	  mechanism  : by reference
;
;	Value
;	  VMS Usage  : byte_unsigned
;	  type       : byte (unsigned)
;	  access     : read only
;	  mechanism  : by reference
;
; Implicit Inputs:
;
;	none
;
; Implicit Outputs:
;
;	none
;
; Routine Value:
;
;	SS$_NORMAL
;--

	$SSDEF

; Argument list offsets:

addr	= 4
value	= 8

	.PSECT	_LIB_POKE,EXE,NOWRT,LONG
	.ENTRY	LIB_POKE,^M<>
	MOVL	addr(AP), R0
	MOVB	@value(AP), @(R0)
	MOVL	#SS$_NORMAL, R0
	RET

	.END