.LIST TTM .TITLE TRIMS .NLIST SYM .ENABL LC ; TRIMS:: TST (R5)+ ;SKIP #ARGS MOV (R5)+,R1 ;GET STRING ADDRESS MOV R1,R2 ;MAKE ANOTHER COPY LOOP1: MOVB (R1)+,R0 ;GET BYTE BEQ LOOP2 ;BRANCH IF NULL CMPB R0,#40 ;A SPACE ? BEQ LOOP1 ;YES CMPB R0,#11 ;A TAB ? BEQ LOOP1 ;YES MOVB R0,(R2)+ ;STORE BYTE BR LOOP1 ;CONTINUE LOOP2: CMP R1,R2 ;FINISHED ? BEQ DONE ;YES CLRB (R2)+ ;CLEAR BYTE BR LOOP2 ;CONTINUE DONE: RTS PC ;RETURN ; .END