forg:
iny; Increment offset.ldabuf, yjsriswhitebcsforg; Reset y, if we hit the null terminator.cmp#$2E ; Is this character a '.'?bneforg_exit; No, so return.styorg; Yes, so store the origin.forg_end:
iny; Increment offset.ldabuf, yjsristokenbcsforg_enddeystyscr_colforg_exit:
rts; End of forg.