Mercurial > hg > Members > kono > nitros9-code

diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/kreiderclib/strtok.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,42 @@
+* Disassembly by Os9disasm of strtok.r
+
+ section bss
+
+* Initialized Data (class G)
+G0000 fcb $00 
+ fcb $00 
+
+ endsect  
+
+ section code
+
+strtok: clra   
+ clrb   
+ pshs  d,u 
+ ldu   6,s 
+ bne   L000e 
+ ldu   G0000,y 
+ beq   L003a 
+L000e ldx   8,s 
+ pshs  x 
+ pshs  u 
+ lbsr  strspn 
+ leas  4,s 
+ leau  d,u 
+ ldb   ,u 
+ beq   L003a 
+ stu   ,s 
+ ldx   8,s 
+ pshs  x 
+ pshs  u 
+ lbsr  strpbrk 
+ leas  4,s 
+ std   G0000,y 
+ beq   L003a 
+ tfr   d,x 
+ clr   ,x+ 
+ stx   G0000,y 
+L003a puls  d,u,pc 
+
+ endsect  
+