.TITLE	ROUTINE
;
; ROUTINE USES THE NEGATIVE INTERNAL IMAGE INDEX TO FIND THE ASCII NAME OF
;   THE INTERNAL IMAGE. IT THEN WRITES A RECORD TO THE OUTPUT CLD FILE.
;
;
; CALL ROUTINE(INDEX)
;
;	INDEX IS THE NEGATIVE INTERNAL IMAGE TALE INDEX
;
;
; NOTE: ROUTINE MUST BE RE-ASSEMBLED WHENEVER DCLIMAGES IS MODIFIED TO
;	CHANGE THE ORDER OF THE INTERNAL IMAGE TABLE.
;
	.LIBRARY	"CLD"
;
	.ENABL	LSB
DCLIMG:	DCLIMAGES
MCRIMG:	MCRIMAGES
;
INTTBLS:	.LONG	DCLIMG
		.LONG	MCRIMG
	.DSABL	LSB
;
	.ENTRY	ROUTINE,^M<R2,R3,R4,R5,R6>
;
	MOVL	CLIFLG,R0		;FLAG FOR WHICH CLI
					;  =0, DCL
					;  =1, MCR
	MNEGL	4(AP),R4		;INDEX IN R4
;
	BICB	#^X80,R4		;CLEAR BYTE HIGH BIT
	ASHL	#2,R4,R4		;MULTIPLY BY 4 TO GET OFFSET IN TABLE
	ADDL	INTTBLS[R0],R4
	MOVL	(R4),R5			;ADDRESS OF COUNTED STRING 
	MOVZBL	(R5)+,R6
	MOVC3	R6,(R5),ROUNAM
	ADDL	#15,R6
	$RAB_STORE	RAB=OUTRAB,RBF=ROUREC,RSZ=R6
	$PUT	RAB=OUTRAB
	RET
;
ROUREC:	.ASCII	/       routine /
ROUNAM:	.BLKB	80.
	.END
;