.TITLE	R2ATM		
; JEFFREY KODOSKY	ARL	NOV75
;
; UTILITY:	MAKE A FLOATING POINT ATOM
; ENTRY:	1 ARG (SP)	2-WD FLOATING POINT NUMBER
; EXIT:		1 ARG		<FPNUM>
; ERRORS:	NONE
; CALLS:	GETC
; R2,R3 PRESERVED
	.GLOBL	R2ATM,QGETC
R2ATM:	QGETC
	MOV	@R5,R0
	TST	(R0)+
	MOV	(SP)+,@R0	;EXPONENT
	QGETC
	MOV	(R5)+,R0
	MOV	#2,(R0)+
	MOV	(SP)+,@R0	;MANTISSA
	MOV	R0,@(R5)+	;CHAIN TO EXPONENT CELL
	TST	-(R5)
	JMP	@-(R4)
	.END