.TITLE	CRURTB
	.IDENT	/X01.00/
;
;  Author:	Gilbert J. DeLeeuw
;  Date:	May 3, 1984
;  Name:	CRURTB - Remove Trailing Blanks and Tabs
;  Function:	Remove unnecessary characters from end of record
;
;
;  Parameters:
;
;	R2 - Size of input record
;	R3 - Address of input record
;
;
;  = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
; Remove trailing spaces or tabs
;
CRURTB::	TST	R2			;TEST LENGTH
	BLE	IRDON			;NULL RECORD?
;
; Set up registers
	MOV	R3,R5			;COPY ADDRESS
	ADD	R2,R5			;POINT TO END OF BUFFER
;
; Remove loop
10$:	MOVB	-(R5),R0		;COPY CHARACTER
;	BEQ	20$			;REMOVE NULLS (REMOVE COMMENT TO ENABLE)
	CMPB	#' ,R0			;SPACE?
	BEQ	20$
	CMPB	#11,R0			;TAB?
	BNE	IRDON
20$:	SOB	R2,10$			;DECREMENT COUNT
;
; Finished
IRDON:	RTS	PC			;RETURN TO CALLER
	.END