Mercurial > hg > Members > kono > nitros9-code
comparison lib/kreiderclib/strpbrk.as @ 2824:1647f1874cdf lwtools-port
Added Kreidier C library
author | Boisy Pitre <boisy.pitre@nuance.com> |
---|---|
date | Thu, 23 May 2013 05:49:13 -0500 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
2823:ad769d2a03e4 | 2824:1647f1874cdf |
---|---|
1 * Disassembly by Os9disasm of strpbrk.r | |
2 | |
3 section code | |
4 | |
5 strpbrk: pshs x,u | |
6 ldx 8,s | |
7 ldu 6,s | |
8 pshs x | |
9 L0008 clra | |
10 ldb ,u+ | |
11 beq L0018 | |
12 stb 3,s | |
13 lbsr index | |
14 beq L0008 | |
15 leau -1,u | |
16 tfr u,d | |
17 L0018 leas 4,s | |
18 puls u,pc | |
19 | |
20 endsect | |
21 |