Mercurial > hg > Members > kono > nitros9-code

comparison lib/kreiderclib/strtok.as @ 2824:1647f1874cdf lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 strtok.r
2
3 section bss
4
5 * Initialized Data (class G)
6 G0000 fcb $00
7 fcb $00
8
9 endsect
10
11 section code
12
13 strtok: clra
14 clrb
15 pshs d,u
16 ldu 6,s
17 bne L000e
18 ldu G0000,y
19 beq L003a
20 L000e ldx 8,s
21 pshs x
22 pshs u
23 lbsr strspn
24 leas 4,s
25 leau d,u
26 ldb ,u
27 beq L003a
28 stu ,s
29 ldx 8,s
30 pshs x
31 pshs u
32 lbsr strpbrk
33 leas 4,s
34 std G0000,y
35 beq L003a
36 tfr d,x
37 clr ,x+
38 stx G0000,y
39 L003a puls d,u,pc
40
41 endsect
42