/ 
/ 
/                   FIRST PRINTING, FEBRUARY 1974
/ 
/ THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
/ CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED
/ AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-
/ SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
/ DOCUMENT.
/ 
/ THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR-
/ NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON
/ A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH
/ INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR 
/ USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO-
/ VIDED IN WRITING BY DIGITAL.
/ 
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/ FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP-
/ MENT THAT IS NOT SUPPLIED BY DIGITAL.
/ 
/ COPYRIGHT (C) 1974, BY DIGITAL EQUIPMENT CORPORATION
/ 
/ 
        .EJECT
/ EDIT #1	JULY 19 1973	M. HEBENSTREIT
/
/ COPYWRITE 1973 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/ 
/ THIS TASK IS AN MCR FUNCTION TO CANCEL ALL OTHER COP TASKS
/
MCRRI=171
FAC=174
	CAL	CANCL1	/CANCEL SATCHK
	CAL	CANCL2	/CANCEL DTRUN
	CAL	CANCL3	/CANCEL RX
	CAL	CANCL4	/CANCEL TTYIO
	CAL	CANCL5	/CANCEL COPHM
	CAL	PRINT
	CAL	WAIT
	LAC	(MSG2
	DAC	PRINT+4
	CAL	PRINT
	CAL	WAIT
READCH	JMS*	(FAC	/LOOK FOR LINE TERMINATOR
	SAD	(15
	JMP	EXIT
	SAD	(175
	SKP
	JMP	READCH
	DZM*	(MCRRI
	SKP
EXIT	CAL	REQMCR
	CAL	(10
REQMCR	1
	0
	.SIXBT "..."
	.SIXBT "MCR"
	0
PRINT	2700
	EV
	2
	2
	MSG1
WAIT	20
	EV
MSG1	MSG2-MSG1/2*1000
	0
	.ASCII "COP CANCELLED BUT ACTIVE TASKS RUN THROUGH COMPLETION"<15>
MSG2	EV-MSG2/2*1000
	0
	.ASCII "CAUTION -- DON'T ABORT EXEC MODE COP TASKS!"<15>
EV	0
CANCL1	4
	0
	.SIXBT "SAT"
	.SIXBT "CHK"
CANCL2	4
	0
	.SIXBT "DTR"
	.SIXBT "UN@"
CANCL3	4
	0
	.SIXBT "RX@"
	.SIXBT "@@@"
CANCL4	4
	0
	.SIXBT "TTY"
	.SIXBT "IO@"
CANCL5	4
	0
	.SIXBT "COP"
	.SIXBT "HM@"
	.END