;			ASBIN.MAC
;
;  CONVERT FROM ASCII CHARACTERS TO AN INTEGER
;
;  ASCII CHAR ARE STORED AT LOCATION BUF
;  LENGTH IS NO. OF CHARACTERS TO CONVERT
;
        .TITLE  ASBIN
        .GLOBL  ASBIN
ASBIN::	MOV	2(R5),R0		; GET ADDRESS OF BUF
	MOV	@6(R5),R2		; NO. OF CHARACTERS
	MOV	#TEM,R1			; TEMPORARY PLACE TO PUT CHAR
1$:	TST	R2			; ARE WE THROUGH?
	BLE	2$			; YES WE ARE.
	MOVB	(R0)+,(R1)+		; MOVE ONE CHARACTER
	DEC	R2
	BR	1$
2$:	MOV	#130,(R1)		; PLACE X AT END
	MOV	#TEM,R0
	CALL	$CDTB			; DO CONVERSION
	MOV	R1,@4(R5)		; MOVE RESULTING INTEGER TO OUTPUT
	RETURN
TEM:	.BLKB	6
	.END