Mercurial > hg > Members > kono > nitros9-code

diff lib/kreiderclib/bsearch.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/bsearch.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,43 @@
+* Disassembly by Os9disasm of bsearch.r
+
+ section code
+
+bsearch: pshs  d,x,y,u 
+ ldu   10,s 
+ clra   
+ clrb   
+L0006 addd  #1 
+ std   2,s 
+ ldd   14,s 
+L000d subd  2,s 
+ bmi   L003d 
+ ldd   14,s 
+ addd  2,s 
+ lsra   
+ rorb   
+ std   4,s 
+ addd  #-1 
+ pshs  d 
+ ldd   18,s 
+ lbsr  ccmult 
+ addd  12,s 
+ std   ,s 
+ pshs  u 
+ jsr   [20,s] 
+ std   ,s++ 
+ beq   L0041 
+ asla   
+ ldd   4,s 
+ bcc   L0006 
+ addd  #-1 
+ std   14,s 
+ bra   L000d 
+L003d clra   
+ clrb   
+ bra   L0043 
+L0041 ldd   ,s 
+L0043 leas  6,s 
+ puls  u,pc 
+
+ endsect
+