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