/ 
/ 
/                   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
/
/ COPYRIGHT 1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/
/ COPHM                 18 APR 71               H. KREJCI
/
/ RSX CHECKOUT PACKAGE
/
/ HOUR MARK -- TASK TO OUTPUT TO LUN 3, A MESSAGE INDICATING AN 
/ ELAPSED TIME OF ONE HOUR.
/
START	CAL	ATACH3
	JMS	TYPE
	MES1
	JMS	TYPE
	MES2
	JMS	TYPE
	MES3
	JMS	TYPE
	MES2
	JMS	TYPE
	MES1
	CAL	DETCH3
/
	CAL	(10)
TYPE	0		/SUBROUTINE TO OUTPUT THE LINE WHOSE
	LAC*	TYPE	/ADDRESS FOLLOWS THE JMS, ONTO LUN 3.
	ISZ	TYPE
	DAC	TYPCPB+4
	CAL	TYPCPB
	CAL	WAIF
	JMP*	TYPE
/
TYPCPB	2700	/CPB TO WRITE TO LUN 3
	EV
	3
	2
	XX
/
WAIF	20	/CPB TO WAIT FOR EV
	EV
/
EV	0
/
ATACH3	2400
	0
	3
/
DETCH3	2500
	0
	3
/
MES1	2; 0; .ASCII	"***************************************"<15>
MES2	2; 0; .ASCII	"*                                     *"<15>
MES3	2; 0; .ASCII	"* MARK - ONE HOUR - RSX CHECKOUT RUN  *"<15>
/
	.END	START