.TITLE	AWAKE
/
/   7 SEP 76 - PAUL HENDERSON
/
/  SHORT TASK TO PROVIDE THE ABILITY TO SCHEDULE THIS TASK AND HAVE IT
/  OUTPUT A SHORT LINE ON THE MCR TERMINAL AT THE SPECIFIED TIME.
/  IN OTHER WORDS, IT IS TO WAKE UP THE OPERATOR.
/
TTO=3
/
AWAKE	CAL	WRITE		/ WRITE LINE ON MCR TERMINAL
ASLEEP	CAL	MARK		/ MARK TIME FOR 20 SECONDS
	CAL	WAITM		/ WAIT FOR TIME INTERVAL
	LAC	EVW		/ WAS THE LINE WRITTEN OUT?
	SZA
	JMP	AWAKE		/ APPARENTLY SO (MAY HAVE BEEN ERROR)
	JMP	ASLEEP		/ NO.  WAIT ANOTHER 20 SECONDS
/
WRITE	2700;	EVW; TTO; 2; MSG
MARK	13;	EVM; 24; 2
WAITM	20;	EVM
EVM;EVW
MSG	M-.*400+2; 0
	.ASCII	'***  "AWAKE, THOU SLUGGARD, AND BE ABOUT THINE '
	.ASCII	'APPOINTED TASK"  ***'<7><15> ;M=.
	.END	AWAKE