Mercurial > hg > Members > kono > nitros9-code

view lib/kreiderclib/sets.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 source

* Disassembly by Os9disasm of sets.r

 section code

allocset: ldd   #$0020 
 pshs  d 
 lbsr  malloc 
 puls  x,pc 
addc2set: bsr   L003a 
 orb   a,x 
 stb   a,x 
 tfr   x,d 
 rts    
adds2set: pshs  u 
 ldu   6,s 
 ldx   4,s 
 bra   L0021 
L001b bsr   L003e 
 orb   a,x 
 stb   a,x 
L0021 lda   ,u+ 
 bne   L001b 
 ldd   4,s 
 puls  u,pc 
rmfmset: bsr   L003a 
 comb   
 andb  a,x 
 stb   a,x 
 clrb   
 tfr   x,d 
 rts    
smember: bsr   L003a 
 andb  a,x 
 clra   
 rts    
L003a ldx   4,s 
 lda   7,s 
L003e pshs  a 
 ldb   #1 
 anda  #7 
 beq   L004a 
L0046 lslb   
 deca   
 bne   L0046 
L004a puls  a 
 asra   
 asra   
 asra   
 rts    
dupset: bsr   allocset 
 ldx   2,s 
 pshs  d,x 
 bsr   copyset 
 puls  d,x,pc 
copyset: pshs  u 
 ldx   4,s 
 ldu   6,s 
 ldb   #$20 
L0062 lda   ,u+ 
 sta   ,x+ 
 decb   
 bne   L0062 
 ldd   4,s 
 puls  u,pc 
sunion: pshs  u 
 ldu   4,s 
 ldx   6,s 
 ldb   #$20 
L0075 lda   ,x+ 
 ora   ,u 
 sta   ,u+ 
 decb   
 bne   L0075 
 ldd   4,s 
 puls  u,pc 
sinterse: pshs  u 
 ldu   4,s 
 ldx   6,s 
 ldb   #$20 
L008a lda   ,x+ 
 anda  ,u 
 sta   ,u+ 
 decb   
 bne   L008a 
 ldd   4,s 
 puls  u,pc 
sdiffere: pshs  u 
 ldu   4,s 
 ldx   6,s 
 ldb   #$20 
L009f lda   ,x+ 
 eora  ,u 
 sta   ,u+ 
 decb   
 bne   L009f 
 ldd   4,s 
 puls  u,pc 

 endsect