.TITLE CNVBCD - CONVERT BCD TO BINARY
	.IDENT	/10MAY7/	;13:15:00  LV
;	.ENTRY	CNVBCD - CONVERT BCD TO BINARY
;+
; C N V B C D
;
; PURPOSE:	FORTRAN-CALLABLE BCD TO BINARY CONVERSION
;
; INTERFACE:	CALLING SEQUENCE: (FORTRAN-CALLABLE SUBROUTINE)
;			CALL CNVBCD(BCD,BIN)
;
;		INPUT:	BCD =	INTEGER WORD TO BE CONVERTED
;
;		OUTPUT:	BIN =	INTEGER CONVERTED OUTPUT
;
; LANGUAGE:	MACRO-11
;
;-
; REVISIONS:
; 10-MAY-77	LV	UPDATED TO CONFORM TO STANDARDS
;
	.MCALL	CALL,RETURN
;
CNVBCD::
	MOV	R0,-(SP)
	MOV	@2(R5),R0
	CALL	BCD2B
	MOV	R0,@4(R5)
	MOV	(SP)+,R0
	RETURN
.END