/ PRESET FIELD 3				10-MAY-90
/
/
/EDIT HISTORY:
/
/26-APR-90	(LHN)
/	1)  DELETED VARIABLES FOR RANDOM SAMPLING
/
/



	TASK=	PRESF3
	CUR=	PREF3FLD
	INIWT=	0
	VERS=	3




	FIELD PREF3FLD%10
	*PREF3LOC
/
/
/%R	INITIALIZE FIELD 3 AT START UP
/
/
START,	CLB
	TAD (PR3TBL)
	DCA XR17
	TAD (PR3TBL-PR3END-1)
	STL RAR
	DCA PREF3B
	TAD I XR17
	DCA PREF3A
	TAD I XR17
	DCA I PREF3A
	ISZ PREF3B
	JMP .-5

	CLB
	CAL
	SUSPND
	JMP START


PREF3A,	0
PREF3B,	0
/
/
/%RX	TABLE OF INITIAL VALUES FOR PROGRAM START UP
/
/
PR3TBL,
	IQAVL		/IMAGE MARKING AVAILABLE QUEUE
	IMQUE-1
	IQNEXT		/IMAGE READY QUEUE
	IMQUE-1
	NPUTPF		/NEW ROLL PUT-UP ENTERED FLAG
	0
	NEWRNF		/NEW ROLL NUMBER ENTERED FLAG
	0
	NSAMCD		/NEW ROLL SAMPLING CODE
	0
	NSHEAR		/NEW ROLL SHEAR CUT DIGIT
	0
	NCHOPC		/NEW ROLL CHOP CODE
	0
	CHOPC		/CURRENT CHOP LENGTH
	6
	NSLITC		/NEXT ROLL SLIT WIDTH
	0
	SLITC		/CURRENT ROLL SLIT WIDTH
	0
	SRCUTN		/SISTER ROLL CUT NUMBER
	0
	SISRLF		/SISTER ROLL FLAG
	0
	SHEARC		/CURRENT SHEAR CUT NUMBER
	0
	CURCUT		/THE CURRENT CUT NUMBER
	0
	SHFTRL		/CURRENT SHIFT ROLL NUMBER
	0
	MCKDSP		/MACHINE CHECK MESSAGE
	0
	MCKMCT		/MACHINE CHECK DISPLAY COUNTER
	0
	SPLMCT		/SPLICE MESSAGE DISPLAY COUNTER
	0
	PARBMG		/PARTIAL BOX DISPLAY COUNTER
	0
/
/
/	STILL MORE INITIAL VALUES
/
/
	INCRTC		/INCREMENT THE CHOP DISPLAY COUNTER
	0
	INCRTR		/INCREMENT THE REJECT DISPLAY
	0		/COUNTER
	INCRTS		/INCREMENT THE SAMPLE DISPLAY
	0		/COUNTER
	INCRTM		/INCREMENT THE METER DISPALY COUNTER
	0
	INCRTB		/INCREMENT THE BOX DISPLAY COUNTER
	0
	INCRST		/INCREMENT THE SHEETS DISPLAY
	0
	INCRSR		/INCREMENT THE SHIFT ROLL DISPLAY
	0
	INCRMC		/INCREMENT THE MACHINE CHECK MESSAGE
PR3END,	0

	PAGE

	NOPUNCH
	XLIST