.TITLE	ADDR		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	1 ARG		<S>
; EXIT:		1 ARG		<INT>
; ERRORS:	NONE
; CALLS:	I2ATM
; R2,R3 PRESERVED
	.GLOBL	ADDR,ZADDR,QI2ATM
ADDR:	MOV	(R5)+,-(SP)	;RETURN THE ADDRESS OF <S>
	QI2ATM
	.WORD	0
ZADDR=.-ADDR
	.END