.TITLE ALIST ; JEFFREY KODOSKY ARL JUL76 ; ; SUBR ; ENTRY: NO ARGS ; EXIT: 1 ARG ; ERRORS: NONE ; CALLS: NONE .GLOBL ALIST,ZALIST,$ALIST ALIST: MOV $ALIST,-(R5) JMP @-(R4) ZALIST=.-ALIST .END