	SUBROUTINE BIN2AS(IBIN,IAS,IDOT)
C SUBROUTINE TO CONVERT BINARY INTEGER TO BINARY ASCII.
C FILED--29-MAR-83, G. BEVER.
C
C WHERE:
C	IBIN= BINARY INTEGER TO CONVER.
C	IAS=  16 BYTE ARRAY WHERE CONVERTED VALUE WILL GO.
C	IDOT= 0 -> '1's and '0's WANTED.
C	IDOT= 1 -> '1's and '.'s WANTED.
	BYTE IAS(16)
C
	DO 10 I=1,16
	IAS(17-I)="60+IRAM(IBIN,I-1,"1)	! ROTATE BIT AND CONVERT TO ASCII.
C IF '.' NOT '0' WANTED.
	IF(IDOT.NE.0.AND.IAS(17-I).EQ."60) IAS(17-I)="56
10	CONTINUE
	RETURN
	END
        