Mercurial > hg > Members > kono > nitros9-code

diff lib/kreiderclib/clshifts.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/clshifts.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,37 @@
+* Disassembly by Os9disasm of clshifts.r
+
+ section code
+
+_lshl: ldx   2,s 
+ pshs  b 
+ lbsr  _ltoacc 
+ puls  b 
+ tstb   
+ beq   L0017 
+L000c asl   3,x 
+ rol   2,x 
+ rol   1,x 
+ rol   ,x 
+ decb   
+ bne   L000c 
+L0017 puls  d 
+ std   ,s 
+ rts    
+_lshr: ldx   2,s 
+ pshs  b 
+ lbsr  _ltoacc 
+ puls  b 
+ tstb   
+ beq   L0033 
+L0028 asr   ,x 
+ ror   1,x 
+ ror   2,x 
+ ror   3,x 
+ decb   
+ bne   L0028 
+L0033 puls  d 
+ std   ,s 
+ rts    
+
+ endsect  
+