/ PRESET FIELD 3			22-AUG-91
/
/
/
/	PPPP   RRRR   EEEEE   SSSS  FFFFF  55555
/	P   P  R   R  E      S      F      5
/	P   P  R   R  E      S      F      5555
/	PPPP   RRRR   EEEE    SSS   FFFF       5
/	P      R R    E          S  F          5
/	P      R  R   E          S  F      5   5
/	P      R   R  EEEEE  SSSS   F       555
/
/
/

/
/EDIT HISTORY:
/
/26-APR-90	(LHN)
/	1)  DELETED VARIABLES FOR RANDOM SAMPLING
/
/
/26-JUN-91	(LHN)		FOR VERSION 4A
/	1)  DELETED USE OF SISRLF VARIABLE
/	2)  DELETED SHEARC VARIABLE
/	3)  DELETED NSHEAR AND CURCUT VARIABLE
/	4)  ADDED CRLDSP VARIABLE
/
/
/22-AUG-91	(LHN)		FOR VERSION 4B
/	1)  DELETED SRCUTN
/	2)  ADDDED RCHOP AND RSHIFT FOR ROLLDT
/



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



	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
	NCHOPC		/NEW ROLL CHOP CODE
	0
	CHOPC		/CURRENT CHOP LENGTH
	6
	NSLITC		/NEXT ROLL SLIT WIDTH
	0
	SLITC		/CURRENT ROLL SLIT WIDTH
	0
	SHFTRL		/CURRENT SHIFT ROLL NUMBER
	1
	MCKDSP		/MACHINE CHECK MESSAGE FLAG
	0
	MCKMCT		/MACHINE CHECK DISPLAY TIMER
	0
	CRLDSP		/CURL SAMPLE MESSAGE FLAG
	0
	CRLMCT		/CURL SAMPLE DISPLAY TIMER
	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
	0
	RCHOP		/ACTIVE CHOP CODE FOR ROLLDT
	0
	RSHIFT		/ACTIVE SHIFT CODE FOR ROLLDT
PR3END, 0
	PAGE

	NOPUNCH
	XLIST