/PRESET FIELD 2			          	12-JUL-91
/
/
/
/	PPPP   RRRR   EEEEE   SSSS  FFFFF   222
/	P   P  R   R  E      S      F      2   2
/	P   P  R   R  E      S      F         2
/	PPPP   RRRR   EEEE    SSS   FFFF     2
/	P      R R    E          S  F       2
/	P      R  R   E          S  F      2
/	P      R   R  EEEEE  SSSS   F      22222
/
/
/

/
/EDIT HISTORY:
/
/22-NOV-78	(LHN)
/	1)  ADDED "EORTRP" FOR "SAMPLE"
/
/18-MAY-90	(LHN)
/	1) MOVED CODE TO READ UNWIND STATE 
/
/30-AUG-90	(LHN)
/	1) ADDED 'SMGADR'
/
/
/12-JUN-91	(LHN)		FOR VERSION 4A
/	1)  DELETED EPLTEST FLAG CONDITIONALS
/	2)  ADDED CRLMGF MESSAGE FLAG FOR CURL SAMPLES
/



	TASK=	PRESF2
	CUR=	PREF2FLD
	INIWT=  0
	VERS=	4



	FIELD PREF2FLD%10
	*PREF2LOC
/
/
/%R	INITIALIZE FIELD 2 AFTER END OF ROLL SUMMARY
/
/
START,  CLB
	DBRI52
	AND (1000)
	DCA UNWDBF

	CAL
	SUSPND		/GO TO SLEEP 'TIL NEEDED

	TAD (PR2TBL-1)
	DCA XR17
	TAD (PR2TBL-PR2END-1)
	STL RAR
	DCA PRES2B

PRE1,	TAD I XR17
	DCA PRES2A
	TAD I XR17
	DCA I PRES2A
	ISZ PRES2B
	JMP PRE1

	JMP START

PRES2A, 0
PRES2B, 0
/
/
/	TABLE OF INITIAL VALUES
/
/
PR2TBL,	
	CRLMGF		/CURL SAMPLE MESSAGE FLAG
	0
	SPLMFG		/SPLICE MESSAGE FLAG AND TIMER
	-1
	BINSAM		/BINARY SAMPLE COUNTER
	0
	BINSAM+1
	0
	BINBOX		/BINARY BOX COUNTER
	1
	BINBOX+1
	0
	BINSHT		/BINARY SHEETS IN BOX COUNTER
	0
	BINCHP		/BINARY CHOP COUNTER
	0
	BINCHP+1
	0
	BINREJ		/BINARY REJECT COUNTER
	0
	BINREJ+1
	0
	BINMTR		/BINARY METER COUNTER
	0
	BINMTR+1
	0
	BINSHR		/BINARY SHIFT ROLL
	0
	BINSSM		/BINARY SPLICE SAMPLE COUNTER
	0
	BINSSM+1
	0
	CHOPFG		/CHOP OCCURED FLAG
	0
	EORTRP		/EOR DATA MISSING TRAP FLAG
	0
	SMGADR		/POINTER TO REASON WE STOPPED
PR2END,	0

	PAGE

	NOPUNCH
	XLIST 1