.TITLE	LOOK		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	1 ARG		<NUM>
; EXIT:		1 ARG		<INT>
; ERRORS:	NONE
; CALLS:	RI
;		ATM2N
;		I2ATM
; NOTE: LOOKING AT NON-EXISTENT MEMORY OR DEVICES WILL CAUSE CRASH
	.GLOBL	LOOK,ZLOOK,QRI,QATM2N,QI2ATM
LOOK:	QATM2N		;GET ADDRESS
	BCC	LOOK1	;JUMP IF ITS ALREADY INTEGER
	BIT	#077600,@SP	;TEST FOR ZERO EXPONENT
	BEQ	.+6
	SUB	#200,@SP;HALVE THE REAL NUMBER
	QRI		;CONVERT TO INTEGER
	BR	LOOK2
LOOK1:	ASR	@SP	;MAKE IT EVEN
LOOK2:	ASL	@SP
	MOV	@(SP)+,-(SP)	;GET CONTENTS OF ADDRESS
	QI2ATM		;RETURN INTEGER ATOM
	.WORD	0
ZLOOK=.-LOOK
	.END