;			TITLE.MAC
;
;  WRITE THE NAMES OF THE MAILING LISTS
;  TO CHANGE THE NAMES OF THE MAILING LISTS, EDIT THE BOTTOM LINES STARTING
;  WITH THE LINE AFTER THE ONE CALLED COMPANY.  DO NOT CHANGE THE LINE
;  SAYING COMPANY.  BE SURE TO KEEP THE NUMBER OF CHARACTERS FOR EACH
;  NAME THE SAME AS IT IS NOW.  WITHOUT MODIFICATION OF THE PROGRAMS, THE
;  MAXIMUM NUMBER OF LISTS IS 4.  YOU MAY DELETE LISTS, HOWEVER.  IF YOU
;  DO, BE SURE AND RUN LABIN AND CHANGE THE NUMBER OF LISTS.
;
        .TITLE  TITLE
        .GLOBL  TITLE
	.MCALL	QIOW$S
TITLE::	MOV	@2(R5),R0		; GET TITLE NO.
	DEC	R0			; SUBTRACT ONE
	MUL	#20.,R0			; MULTIPLY TITLE NO BY 20
	ADD	#TI,R1			; RESULT WAS IN R1
        MOV     @4(R5),R2               ; GET LUN
        TST     R2                      ; MAKE SURE > 0
        BGT     MORE
        MOV     #5,R2                   ; IF NOT, SET = 5
MORE:   QIOW$S	#IO.WVB,R2,#1,,,,<R1,#20.>
	RETURN
TI:	.ASCII	/             COMPANY/
;  THE FOLLOWING LINES MAY BE EDITED TO CHANGE THE NAMES OF THE MAILING
;  LISTS.
	.ASCII	/         Bee Keepers/
	.ASCII	/ Balanced Fed Budget/
	.ASCII	/   Organic Gardeners/
	.ASCII	/Gardeners in General/
	.END