.TITLE	XXX
;THIS IS A PSEUDO CLI 
;HIS SOLE PURPOSE IS TO OUTPUT A MESSAGE SAYING THAT SYSTEM STARTUP IS
;IN PROGRESS. (UNTIL ALL CHANGES ARE MADE WE DON'T WAN'T ANYBODY TO LOG ON,
;BUT WE SHOULD TELL THEM
;
	.MCALL	DIR$,QIOW$,EXIT$S
MESS:	.ASCII	/*** WE ARE WORKING ON THE COMPUTER - THE   ***/
	MESSL=.-MESS
MESS1:	.ASCII	/*** REGULAR OPERATION WILL RESUME AT 4:00  ***/
	MESS1L=.-MESS1
	.EVEN
MESDPB:	QIOW$	IO.WVB,1,1,,,,<MESS,MESSL,40>
;
START:	DIR$	#MESDPB		;WRITE FIRST LINE OF MESSAGE
	MOV	#MESS1,MESDPB+Q.IOPL ;CHANGE STARTING LINE
	MOV	#MESS1L,MESDPB+Q.IOPL+2 ;AND LENGTH
	DIR$	#MESDPB		;WRITE SECOND LINE
	EXIT$S
	.END	START