COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 SOMEWHERE AROUND TOTAL/20
C00004 00003	 CHANGES IN STORA (TOTAL/20)
C00005 00004	
C00006 ENDMK
C⊗;
;; SOMEWHERE AROUND TOTAL/20

↑GETRCT:  HRRZ	LPSA,RCTEMP	;GET NEXT OFF RECORD TEMP CHAIN
	JUMPE	LPSA,GRCT.1	;NONE THERE
	HRRZ	TEMP,%TLINK(LPSA)
	HRRM	TEMP,RCTEMP
	POPJ	P,
GRCT.1:	GETBLK
	AOS	TEMP,TEMPNO
	MOVEM	TEMP,$PNAME(LPSA)
	MOVSI	TEMP,ARTEMP!INUSE!CORTMP
	MOVEM	TEMP,$SBITS(LPSA)
	MOVEI	TEMP,PNTVAR
	MOVEM	TEMP,$TBITS(LPSA)
	POPJ	P,

;; CHANGES IN STORA (TOTAL/20)

;;AT STORA+3 (AFTER PUSH P,SBITS)
	PUSH	P,TBITS

;;AT ZER
	POP	P,TBITS

;; JUST ABOVE THE SKIPA AT TEML

RGC <
	TLNN	SBITS,INDXED		;IF NOT INDXED TEMP
	JRST	RCTCHK			;GO CHECK IF RECORD TEMP
	HRRZ	TEMP,$VAL2(PNT)		;A SUBFIELD INDXED TEMP??
	JUMPE	TEMP,NRML		;NO, JUST TREAT NORMALLY
	HRROS	%TLINK(PNT)		;SO THE REMOP WINS TOTALLY
	JRST	.+4			;YES, DO THE OTHER SORT OF MOVEM
RCTCHK:	MOVE	TBITS,$TBITS(PNT)
	TRNN	TBITS,PNTVAR		;A RECORD TEMP
	JRST	NRML			;NOPE NORMAL
	PUSHJ	P,GETRCT		;GET A PNTVAR CORTMP
	JRST	TMPCPY			;GO COPY FIXUPS,ETC
NRML:
>;RGC