; SUBROUTINE TRNCAT.MAC
; FORTRAN CALLABLE ROUTINE TO TRUNCATE
; TRAILING BLANKS FROM AN ASCII ARRAY.
; FORTRAN CALL:
;	CALL TRNCAT(LIN,NLIN,NONBLK)
; WHERE:
;	LIN = START OF ARRAY
;	NLIN = NO. OF CHAR IN LINE
;	NONBLK = NO. OF CHAR IN LINE AFTER BLANK TRUNCATION
	.TITLE	TRNCAT
	.CSECT
	.GLOBL	TRNCAT
TRNCAT:	MOV	2(R5),R0	;START ADD IN R0
	MOV	@4(R5),R1	;LINE CHAR COUNT IN R1
	ADD	R1,R0		;END OF LINE IN R0
2$:	CMPB	-(R0),#40	;IS CHAR A BLANK
	BNE	1$		;IF NOT, DONE
	SOB	R1,2$		;DEC AND CHECK AGAIN
1$:	MOV	R1,@6(R5)	;RETURN NON-BLANK COUNT
	RTS	PC
	.END