mov# 3, r0
mov r0, -(r6)
mov# 4, r0
mov r0, -(r6)
jsr mult
halt


MULT:  MOV R6, R0
       MOV R1, -(R6)
       MOV R2, -(R6)
       INC R0
       MOV (R0)+, R1
       MOV (R0)+, R2

       CLR R0
       TST R1
       BEQ RET
LOOP:  ADD R2, R0
       DEC R1
       BGT LOOP

 RET:  MOV (R6)+, R2
       MOV (R6)+, R1
       RTS