Mercurial > hg > Members > kono > nitros9-code

diff 3rdparty/customboots/boisy/testmul.a @ 2426:5ade5dd9c3cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated
author boisy
date Thu, 04 Feb 2010 15:17:15 +0000
parents
children 6bc8200fd0ba
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/customboots/boisy/testmul.a	Thu Feb 04 15:17:15 2010 +0000
@@ -0,0 +1,241 @@
+tylg           set       $01     Prgrm+Objct
+atrv           set       $80+rev ReEnt+rev
+rev            set       $00
+edition        set       5
+
+               psect     testmul_a,tylg,atrv,edition,200,start
+
+               vsect
+multiplicand   rmb       1
+multiplier     rmb       1
+               endsect
+
+* capture two parameters
+start          clr       multiplicand,u
+               clr       multiplier,u
+
+* if no params, just go straight to multiplication
+               lda       ,x
+               cmpa      #C$CR
+               beq       go
+               
+* get first number
+               lbsr      DEC_BIN
+               stb       multiplicand,u
+               leax      ,y
+               lbsr      TO_NON_SP
+
+* if no second number, go straight to multiplication
+               cmpb      #C$CR
+               beq       go
+               lbsr      DEC_BIN
+               stb       multiplier,u
+
+go               
+               orcc      #IntMasks
+top               
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               lbra      top
+               
+
+ 
+               endsect
\ No newline at end of file