Mercurial > hg > Members > kono > nitros9-code

view lib/kreiderclib/ccmult.as @ 3226:9749d0dfc4a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed a puls PC to rts to save cycles
author David Ladd <drencor-xeen@users.sourceforge.net>
date Sat, 20 Jan 2018 19:32:22 -0600
parents 1647f1874cdf
children
line wrap: on
line source

* Disassembly by Os9disasm of ccmult.r

 section code

ccmult: tsta   
 bne   L0015 
 tst   2,s 
 bne   L0015 
 lda   3,s 
 mul    
 ldx   ,s 
 stx   2,s 
 ldx   #0 
 std   ,s 
 puls  d,pc 
L0015 pshs  d 
 ldd   #0 
 pshs  d 
 pshs  d 
 lda   5,s 
 ldb   9,s 
 mul    
 std   2,s 
 lda   5,s 
 ldb   8,s 
 mul    
 addd  1,s 
 std   1,s 
 bcc   L0032 
 inc   ,s 
L0032 lda   4,s 
 ldb   9,s 
 mul    
 addd  1,s 
 std   1,s 
 bcc   L003f 
 inc   ,s 
L003f lda   4,s 
 ldb   8,s 
 mul    
 addd  ,s 
 std   ,s 
 ldx   6,s 
 stx   8,s 
 ldx   ,s 
 ldd   2,s 
 leas  8,s 
 rts    

 endsect