.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	/***  A SYSTEM RE-BOOT IS IN PROGRESS  ***/
	MESSL=.-MESS
MESS1:	.ASCII	/*** PLEASE WAIT FOR SYSTEM UP MESSAGE ***/
	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