.title strip0 ; ; removes leading ASCII 0's ; ; call strip0( a ) ; .psect user$i strip0:: tst (r5)+ mov (r5)+,r0 mov r0,r1 10$: tstb @r0 ; end ?? beq 30$ ; br, if yes cmpb #'0,(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