.TITLE	I2ATM		
; JEFFREY KODOSKY	ARL	NOV75
;
; UTILITY:	MAKE AN INTEGER ATOM
; ENTRY:	1 ARG (SP)	INTEGER
; EXIT:		1 ARG		<INT>
; ERRORS:	NONE
; CALLS:	GETC, FETCH A FREE CELL
; R2,R3 PRESERVED
	.GLOBL	I2ATM,QGETC
I2ATM:	QGETC		;FETCH A CELL
	MOV	@R5,R0
	MOV	#2,(R0)+;LOAD INTEGER HEADER (SET DATABIT)
	MOV	(SP)+,@R0	;STORE INTEGER
	JMP	@-(R4)	;RETURN A NEW INTEGER ATOM
	.END