Mercurial > hg > Members > kono > nitros9-code

diff lib/kreiderclib/setbase.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/setbase.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,59 @@
+* Disassembly by Os9disasm of setbase.r
+
+ section code
+
+_setbase: pshs  u 
+ ldu   4,s 
+ ldb   7,u 
+ bitb  #$c0 
+ bne   L0029 
+ leas  -32,s 
+ leax  ,s 
+ ldd   8,u 
+ pshs  d,x 
+ clra   
+ clrb   
+ pshs  d 
+ lbsr  getstat 
+ ldb   #$40 
+ lda   6,s 
+ beq   L0022 
+ ldb   #$80 
+L0022 leas  38,s 
+ orb   7,u 
+ stb   7,u 
+L0029 lda   6,u 
+ ora   #$80 
+ sta   6,u 
+ andb  #$0c 
+ bne   L006c 
+ ldd   11,u 
+ bne   L003c 
+ ldd   #$0100 
+ std   11,u 
+L003c ldd   2,u 
+ bne   L0051 
+ ldd   11,u 
+ pshs  d 
+ lbsr  ibrk 
+ leas  2,s 
+ std   2,u 
+ cmpd  #-1 
+ beq   L0055 
+L0051 ldb   #8 
+ bra   L0060 
+L0055 leax  10,u 
+ stx   2,u 
+ ldd   #1 
+ std   11,u 
+ ldb   #4 
+L0060 orb   7,u 
+ stb   7,u 
+ ldd   2,u 
+ addd  11,u 
+ std   4,u 
+ std   ,u 
+L006c puls  u,pc 
+
+ endsect  
+