/ END OF ROLL SUMMARY CONTROL                   24-JUL-78









	TASK=	EORSUM
	CUR=	EORSMFLD
	INIWT=	0
	VERS=	1









	FIELD EORSMFLD%10
	*EORSMLOC




/
/
/%R	END OF ROLL SUMMARY CONTROL
/
/%TW	THIS SEGMENT IS CALLED FROM "MOPDEC", WHEN THE
/	OPERATOR PRESSES THE "END OF ROLL SUMMARY" PUSH
/	BUTTON.  IF: 1) THE MACHINE IS STOPPED, 2) THE
/	NEXT ROLL DATA HAS BEEN ENTERED, AND 3) THE 
/	STACKER HAS JUST BEEN CLEARED, THIS SEGMENT WILL
/	FORCE THE END OF ROLL SUMMARY TO BE SCHEDULED FOR
/	THE PRINTER AND WILL RESET MAST FOR THE NEXT 
/	PRODUCT ROLL.  IF ANY OF THESE CONDITIONS ARE
/	NOT MET, THE APPROPRIATE ERROR
/	MESSAGE IS DISPLAYED ON THE CRT.  WHEN THE 
/	OPERATOR HAS SATISFIED THE CONDITIONS, HE
/	MUST PRESS THE BUTTON AGAIN.
/
/
START,  CLB
	CAL
	SUSPND		/GO TO SLEEP 'TIL NEEDED

	DBRI50		/IS THE MACHINE RUNNING ?
	AND (4000)
	SNA CLA
	JMP EORC1	/NO, GO ON.
	CAL
	SEND
	INLOCK		/YES, OPEN THE MAST MONITOR INTERLOCK
	EORMG1
	JMP START	/RETURN FOR NOW.

EORC1,	CDF 30
	TAD I (NEWRNF)	/DO WE HAVE THE NEXT ROLL DATA ?
	CDF CUR
	SZA CLA
	JMP EORC2	/YES, GO ON.
	CAL
	SEND
	CRTMSG
	EORMG2
	JMP START	/RETURN FOR NOW.

EORC2,  CDF 10
	TAD I (SRODNF)	/HAS THE STACKER BEEN CLEARED ?
	CDF CUR
	SZA CLA
	JMP EORC3	/YES, GO ON.
	CAL
	SEND
	CRTMSG
	EORMG3
	JMP START	/RETURN FOR NOW.
EORC3,  CDF 10
	DCA I (SRODNF)	/CLEAR THE STACKER RUN OUT DONE FLAG.
	CDF CUR
	CLB IAC		/SET THE END OF ROLL SUMMARY
	DCA EORSFG 	/FLAG AND RUN "TALLEY"
	TAD (TALLEY)
	CAL
	RUN
	TAD (BUILD)	/SET UP FOR THE NEW CHOP SIZE
	CAL
	RUN

	TAD (SCREEN)	/REFRESH THE CRT
	CAL
	RUN

	CLB IAC		/FORCE START OF ROLL
	DCA STROLL	/SAMPLING
	JMP START


EORMG1, ZBLOCK 3	/OPEN MAST MONITOR INTERLOCK
	2000

EORMG2, ZBLOCK 3	/DISPLAY "ENTER ROLL DATA"
	MOPM08

EORMG3, ZBLOCK 3	/DISPLAY "CLEAR THE STACKER"
	MOPM07



	PAGE
	NOPUNCH
	XLIST 1