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