.NLIST	TTM
	.TITLE	GTITL
	.IDENT	/RICE01/
	.GLOBL	R5CHEK,SWIT,GTITL
GTITL:	MOV	#3,R0		;NO OF INPUT PARAM
	JSR	PC,R5CHEK
	JSR	PC,SWIT		;GET HIST #
	MOV	(R5)+,R1	;GET DESTINATION ADDRESS
	MOV	@(R5)+,R2	;NUMBER OF WORDS
	BLE	5$		;BAD COUNT
	ADD	#14.,R0		;POINTS TO TITLE
1$:	MOV	(R0)+,(R1)+	;MOVE 1 WORD
	SOB	R2,1$
5$:	RTS	PC		;RETURN
	.END