;›; strchr(str, chr);›;›  .globl  _strchr›_strchr:›  jsr  popax    ; get char›  sta  tmp1    ; save it›  jsr  popax    ; get ptr›  sta  ptr1›  stx  ptr1+1›  ldy  #0›strchr1:›  lda  (ptr1),y  ; get a char›  bne  strchrz›  ldx  #0    ; oops! not found›  rts›strchrz:›  cmp  tmp1    ; match?›  bne  strchr2    ; nope, keep searching›  ldx  ptr1+1    ; hi byte of result›  tya      ; compute lo byte›  clc›  adc  ptr1›  bcc  *+3›  inx›  jmp  tstax    ; return condition codes›strchr2:›  iny      ; bump index›  bne  strchr1›  inc  ptr1+1›  jmp  strchr1››