PROG	START	100
	EXTDEF	ALPHA,BETA,GAMMA
	EXTREF	BUFFER
	STL	RETADR
	LDX	30
	LDT	#COUNT
	LDS	=X'0E0F'
	J	ADDLP
	USE	CDATA
RETADR	RESW	1
	USE
ADDLP	LDA	ALPHA,X
	ADD	BETA,X
	STA	GAMMA,X
	ADDR	S,X
	COMPR	X,T
	+JLT	ADDLP
	J	@RETADR
	LTORG
	USE	CDATA
ALPHA	RESW	80
	ORG	ALPHA-120
BETA	RESW	80
	ORG	BETA-120
GAMMA	RESW	80
COUNT	WORD	GAMMA-ALPHA+BUFFER