;
;			TRIM.MAC
;
;  CALL TRIM(STRING,LENGTH)
;
;  REMOVES ANY SPACES OR CHARACTERS WITH OCTAL VALUE LESS THAN 40
;  FROM THE END OF THE STRING BEGINNING AT LENGTH NO. OF CHARACTERS
;  AFTER THE BEGINNING OF THE STRING
;
	.TITLE	TRIM
	.GLOBL	TRIM
TRIM:	MOV	2(R5),R0
	MOV	4(R5),R1
	ADD	(R1),R0
2$:	CMPB	-(R0),#40
	BGT	3$
	CLRB	(R0)
	CMP	R0,2(R5)
	BNE	2$
3$:	RTS	PC
	.END