.title          "lab7.asm"
                               .def            DotP

;**********************************************************
;***                                  DotP subroutine                                         ***
;**********************************************************
                                .sect           "DotP_code"

DotP:     zero                           a2
loop:      ldh            .d1            *a4++,a0
              ldh             .d2           *b4++,b0
              nop 4
              mpy           .m1x        a0,b0,a0
              nop
              add             .l1            a0,a2,a2
          || sub              .l2           b1,1,b1
     [b1]  b                 .s1           loop
              nop                             5
              mv                              a2,a4
              b                  .s2          a5                           ;return  
              nop 5