.title trimleft .ident /831205/ ; ;Trims leading blanks ; ;Register usage ; R0 string scaner ; R1 string pointer ; trimle:: mov 2(sp),r0 ;string mov (sp)+,(sp) mov r0,r1 ; 1$: cmpb (r0)+,#' ;skip leading blanks beq 1$ ; dec r0 cmp r0,r1 beq 3$ ;no leading blanks ; 2$: movb (r0)+,(r1)+ bne 2$ ; 3$: rts pc .end