.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