.title	ppp_ip_vcm_init
	.ident	/V1.0-0/
;
;
;   Copyright © 1996 Digital Equipment Corporation.
;   All rights reserved.
;
;   Redistribution and use in source and binary forms are permitted
;   provided that the above copyright notice and this paragraph are
;   duplicated in all such forms and that any documentation,
;   advertising materials, and other materials related to such
;   distribution and use acknowledge that the software was developed
;   by Digital Equipment Corporation.  The name of the
;   Corporation may not be used to endorse or promote products derived
;   from this software without specific prior written permission.
;   THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
;   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
;   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
;
;      Important Note:
;
;         This coding example uses privileged OpenVMS interfaces.
;         OpenVMS does not guarantee that these interfaces will
;         be supported indefinitely, and may change these interfaces
;         without prior notice.
;
;         17-December-1996  Barry W. Kierstein
;                           Replaced the standard Digital copyright with
;                           one compatible with the CMU copyright.
;   
;          1-August-1996    Barry W. Kierstein
;                           Added "Important Note" disclaimer.
;
;         24-July-1996      Barry W. Kierstein
;                           Corrected copyright notice.
;

	.LIBRARY /SYS$LIBRARY:LIB.MLB/

	$SSDEF

	.ENABLE	LOCAL_BLOCK
;
; Store the pointer to startProtocol routine as the first word
; so the callback routine can find it.
;
.PSECT   $$$100_DATA noexe,quad
	 .long startProtocol

DECLARE_PSECT	EXEC$INIT_CODE

INITIALIZATION_ROUTINE -
	PPP_IP_VCM_INIT

;
; This is the initialisation routine for the sample PPP
; protocol VCM.   All it does is call the routine to
; which registers the IP control protocol
;
PPP_IP_VCM_INIT:
	.JSB_ENTRY
	PUSHR	#^M<R2,R3,R4,R5,R6,R7>	; SAVE SOME REGISTERS

	CALLS	#0, IPCP_REGISTER
	POPR	#^M<R2,R3,R4,R5,R6,R7>	; SAVE SOME REGISTERS
	RSB				; RETURN STATUS IN R0

	.DISABLE	LOCAL_BLOCK
	.END