/ INITIALIZE FIELD 5				29-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:
/
/
/12-JUN-91	(LHN)		FOR VERSION 4A
/	1)  REMOVE FROM SELFCK TASK
/
/
/27-AUG-91	(LHN)		FOR VERSION 4B
/	1)  ADDED MESSAGES TO GATEWY TO REQUEST
/	      CURRENT AND NEXT ROLL DATA.
/



	TASK=	PRESF5
	CUR=	PRES5FLD
	INIWT=	0
	VERS=	4



	FIELD PRES5FLD%10
	*PRES5LOC
/
/
/%R	INITIALIZE FIELD 5 FOR OPERATION
/
/%TW	COME HERE WHEN FIRST STARTED BY THE OPERATOR
/	OR WHEN RESTARTED BY THE POWER FAIL ROUTINES.
/
/
START,  CAL
	SEND
	PWRF		/TELL POWER FAIL TO RESTART US.
	PWRMSG

PREST5,	CLB
	TAD (PR5TBL-1)	/PRESET THE WORKING LOCATION FROM
	DCA XR10	/THE FIELD 1 INITIAL VALUE TABLE.
	TAD (PR5TBL-PR5END-1)
	STL RAR
	DCA PRE5B
	TAD I XR10
	DCA PRE5A
	TAD I XR10
	DCA I PRE5A
	ISZ PRE5B
	JMP .-5

	CLB		/NOW TELL GATEWY TO REQUEST
	CAL		/ CURRENT ROLL AND NEXT ROLL
	SENDW		/ DATA FROM THE GATEWAY.
	GATEWY
	CRDMSG
	CAL
	SENDW
	GATEWY
	NRDMSG

	CAL
	SUSPND
	JMP PREST5

PRE5A,	0
PRE5B,  0
/
PWRMSG,	ZBLOCK 3	/POWERFAIL MESSAGE
	PREST5-1

CRDMSG,	ZBLOCK 3	/REQUEST CURRENT ROLL DATA
	0
	0
	0		/STATUS RETURN
	"C
	"R
	0

NRDMSG,	ZBLOCK 3	/REQUEST NEXT ROLL DATA
	0
	0
	0		/STATUS RETURN
	"N
	"R
	0
/
/
/%RT	TABLE OF INITIAL VALUES FOR PROGRAM START UP
/
/
PR5TBL,	GATWUP		/GATEWAY UP FLAG, SAYS LINE DOWN.
PR5END,	0


	PAGE


	NOPUNCH		/THE F5COMM FILE FOLLOWS

	XLIST 1		/TURN THE LISTING OFF  !!