.title strip ; ; removes leading spaces ; ; call strip( a ) ; .psect user$i strip:: tst (r5)+ mov (r5)+,r0 mov r0,r1 10$: tstb @r0 ; end ?? beq 30$ ; br, if yes cmpb #' ,(r0)+ ; space ?? beq 10$ ; keep on till we find eos or space dec r0 ; point r0 at 1st space character 20$: movb (r0)+,(r1)+ ; copy all the rest down bne 20$ 30$: return .end