Mercurial > hg > Members > kono > nitros9-code

view lib/kreiderclib/ccmult.as @ 3044:5a5cff419c0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix up typos in level1 6309 code Also a bsr needed long branch.
author Tormod Volden <debian.tormod@gmail.com>
date Sat, 24 Jan 2015 01:01:55 +0100
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