+
−tylg           set       $01     Prgrm+Objct
+
−atrv           set       $80+rev ReEnt+rev
+
−rev            set       $00
+
−edition        set       5
+
−
+
−               psect     testsync_a,tylg,atrv,edition,200,start
+
−
+
−               vsect
+
−reg1           rmb       2
+
−reg2           rmb       2
+
−               endsect
+
−
+
−* capture two parameters
+
−start          ldd       #0000
+
−               std       reg1,u
+
−               std       reg2,u
+
−
+
−* if no params, just go straight to multiplication
+
−               lda       ,x
+
−               cmpa      #C$CR
+
−               beq       top
+
−               
+
−* get first number
+
−               lbsr      DEC_BIN
+
−               std       reg1,u
+
−               leax      ,y
+
−               lbsr      TO_NON_SP
+
−
+
−* if no second number, go straight to multiplication
+
−               cmpb      #C$CR
+
−               beq       go
+
−               lbsr      DEC_BIN
+
−               std       reg2,u
+
−               
+
−               ldx       reg1,u
+
−               ldy       reg2,u
+
−
+
−go
+
−               orcc      #IntMasks
+
−top            
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               sync
+
−               bra       top
+
−               
+
−
+
− 
+
−               endsect