.title left .ident /831205/ ;Extracts a substring from the left ; ;Register usage: ; R0 span of substring ; R1 destination for left substring ; R2 source to use left:: mov sp,r0 cmp (r0)+,(r0)+ mov (r0),r1 ;destination mov r2,(r0)+ mov (r0),r2 ;source mov (sp)+,(r0) mov (sp)+,r0 ;span ble 2$ ; 1$: movb (r2)+,(r1)+ ;take left substring beq 3$ sob r0,1$ 2$: clrb (r1) ; 3$: mov (sp)+,r2 rts pc .end