/   F I E L D  3  ONLY COMMON VARIABLES		16-MAY-90
/
/
/EDIT HISTORY:
/
/20-NOV-78	(LHN)
/	1)  MOVED "SMDTBL" HERE FROM ROLLDT TO CORRECT THE
/	    START ROLL SAMPLE LENGTH.
/
/26-APR-90	(LHN)
/	1)  DELETED VARIABLES FOR RANDOM SAMPLING
/



/
/
/	THIS FILE IS ASSEMBLED WITH FIELD 3 TASKS TO 
/	PROVIDE A COMMON DATA AREA FOR VARIBLES USED
/	WITHIN FIELD 3 ONLY. THE VARIABLES BELOW ARE
/	NEVER REFERENCED OUTSIDE OF THIS FIELD.
/
/
	FIELD 3

	*10

/
/			FIELD 3 AUTO-INDEX REGISTERS
/

XR10,	0		/USED BY "ROLLDT"
XR11,	0		/USED BY "ROLLDT"
XR12,	0		/USED BY "ROLLDT"
XR13,	0		/USED BY "CRTCTR"
XR14,	0		/USED BY "SMARKR"
XR15,	0		/USED BY "SMARKR"
XR16,	0		/USED BY "SMARKQ"
XR17,	0		/USED BY "PRESF3"
/
/
/	COMMON AREA
/
/

	*110

IQAVL,	IMQUE-1		/AVAILABLE SLOT POINTER
IQNEXT,	IMQUE-1		/NEXT STRING TO BE PROCESSED
MCKMCT, 0		/MACHINE CHECK MESSAGE
NPUTPF, 0		/NEW ROLL PUT-UP ENTERED FLAG
NSAMCD, 0		/NEXT ROLL SAMPLING CODE
NSHEAR, 0		/NEW ROLL SHEAR CUT DIGIT
SPLMCT, 0		/SPLICE MESSAGE
SRCUTN, 0		/SISTER ROLL CUT NUMBER
/
/
/	SAMPLE MARKER DATA QUEUE
/
/

	*200

IMQUE,	ZBLOCK 200
IMQEND=	IMQUE+160

	XLIST 1