/   F I E L D  3  ONLY COMMON VARIABLES		22-AUG-91
/
/
/
/	FFFFF  33333   CCCC   OOO   M   M  M   M
/	F	  3   C      O   O  MM MM  MM MM
/	F        3    C      O   O  M M M  M M M
/	FFFF    333   C      O   O  M   M  M   M
/	F          3  C      O   O  M   M  M   M
/	F      3   3  C      O   O  M   M  M   M
/	F       333    CCCC   OOO   M   M  M   M
/
/
/

/
/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
/
/
/02-JUL-91	(LHN)		FOR VERSION 4A
/	1)  DELETED NSHEAR VARIABLE
/	2)  ADDED NSAMSP VARIABLE
/	3)  ADDED CRLMCT VARIABLE
/
/
/22-AUG-91	(LHN)		FOR VERSION 4B
/	1)  ADDED RCHOP AND RSHIFT FOR ROLLDT
/	2)  DELETED 'SRCUTN' - NO LONGER USED.
/

/
/
/	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

CRLMCT,	0		/CURL SAMPLE MESSAGE TIMER
IQAVL,	IMQUE-1		/AVAILABLE SLOT POINTER
IQNEXT,	IMQUE-1		/NEXT STRING TO BE PROCESSED
MCKMCT, 0		/MACHINE CHECK MESSAGE TIMER
NPUTPF, 0		/NEW ROLL PUT-UP ENTERED FLAG
NSAMCD, 0		/NEXT ROLL SAMPLING CODE
NSAMSP,	0		/NEXT ROLL SPECIAL SAMPLING CODE
RCHOP,	0		/CHOP CODE STORAGE FOR ROLLDT
RSHIFT,	0		/SHIFT CODE STORAGE FOR ROLLDT
SPLMCT, 0		/SPLICE MESSAGE
/
/
/	SAMPLE MARKER DATA QUEUE
/
/
	*200

IMQUE,	ZBLOCK 200
IMQEND=	IMQUE+160

	XLIST 1