.TITLE	YYY
;
	.MCALL	DIR$,QIOW$,EXIT$S,GMCR$,GLUN$S
;
START:	SUB	#14,SP		;MAKE ROOM ON STACK
	MOV	SP,R2		;ADDRESS -> R2
	GLUN$S	#1,R2		;GET INFO FOR LUN 1 (TERMINAL)
	MOV	(SP)+,R1	;TERMINAL NAME
	MOV	(SP)+,R5	;TERMINAL NUMBER
	ADD	#10,SP		;CLEAN STACK
	BIC	#177600,R5	;CLEAR UPPER BITS
	MUL	#50,R5		;DETERMINE NUMBER OF BYTES TO SKIP
	MOV	#MESS,R1
	ADD	R5,R1		;ADDRESS OF PERSONNAL MESSAGE		R1
;
	MOV	#FIRST,QIO+Q.IOPL	;WORK ON FIRST LINE
	MOV	#5,QIO+Q.IOPL+2
	DIR$	#QIO
;
	MOV	R1,QIO+Q.IOPL		;WORK ON PERSONNAL LINE
	MOV	#50,QIO+Q.IOPL+2
	DIR$	#QIO
;
	MOV	#LAST4,QIO+Q.IOPL	;FINISH REPORT
	MOV	#LAST4L,QIO+Q.IOPL+2
	DIR$	#QIO
ENDRUN:	EXIT$S			;ALL DONE, SO EXIT
;
;NOW THE DPB'S
QIO:	QIOW$	IO.WVB,1,1,,,,<0,0,40> ;DPB TO REPORT TO TI
;
;THE MESSAGES THEMSELVES
	.ENABLE	LC
FIRST:	.ASCII	? *** ?
	.EVEN
LAST4:	.ASCII	? ***           Sorry, but system work is in progress. *** ?
	.ASCII	<15><12>? ***           Please call DAN SPELBRING at x2515 if  *** ?
	.ASCII	<15><12>? ***           your work is urgent.                   *** ?
	.ASCII	<15><12>? *** ?
	LAST4L=.-LAST4
	.EVEN
;
MESS:	.ASCII	? *** Hello Console,                     ?
	.ASCII	? *** Hello Whomever,                    ?	;Comp. Off.
	.ASCII	? *** Hello Whomever,                    ?	;Rx Planning
	.ASCII	? *** Hello Hans,                        ?
	.ASCII	? *** Hello Dan,                         ?
	.ASCII	? *** Hello Renate,                      ?
	.ASCII	? *** Hello Frank,                       ?
	.ASCII	? *** Hello Therapy Physicist,           ?
	.ASCII	? *** Hello Whomever,                    ?	;Comp. Off.
	.ASCII	? *** Hello Rosa,                        ?
	.ASCII	? *** Hello Whomever,                    ?	;(Peggy)
	.ASCII	? *** Hello Lionel,                      ?
	.ASCII	? *** Hello Residents,                   ?
	.ASCII	? *** Hello Anthea,                      ?
	.ASCII	? *** Hello Whomever,                    ?	;RadOnc Secy
	.ASCII	? *** Hello Whomever,                    ?	;(Debra)
	.ASCII	? *** Hello Whomever,                    ?	;Comp. Off.
	.ASCII	? *** Hello Decmate                      ?
	.ASCII	? *** Hello Whomever,                    ?	;Decmate xfer
	.ASCII	? *** Hello Therac-20,                   ?
	.ASCII	? *** Hello Whomever,                    ?	;Therac xfer
	.ASCII	? *** Hello Whomever,                    ?	;DUP to 45
	.ASCII	? *** Hello Whomever,                    ?	;TEC printer
	.ASCII	? *** Hello Whomever,                    ?	;DIABLO
	.ASCII	? *** Hello Dialup User,                 ?
	.ASCII	? *** Hello Dialup User,                 ?
	.ASCII	? *** Hello Dialup User,                 ?
	.ASCII	? *** Hello Radiation Safety Office,     ?
	.ASCII	? *** Hello Infection Control,           ?
	.ASCII	? *** Hello Hunter,                      ?
	.ASCII	? *** Hello Ophthalmology,               ?
	.ASCII	? *** Hello Tumor Registry,              ?
	.ASCII	? *** Hello X-ray,                       ?
	.ASCII	? *** Hello Tumor Registry,              ?
	.ASCII	? *** Hello Whomever,                    ?	;MOD to Modem
	.ASCII	? *** Hello Whomever,                    ?	;NET to VAX
	MESSL=.-MESS
	.EVEN
	.END	START