TITLE	AGCMRK ESTABLISH AGC LOADING POINT

RELOCA

.GLOBAL	AGCLD

XX==$.+1777

.LOP ANDCM XX,1777

AGCLD=.LVAL1

END