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
               bra       top

 
               endsect