dotp.sa

来自「一些实验程序」· SA 代码 · 共 23 行

                              .def             _DP
_DP                      .cproc         cptr0,cptr1,vptr
                              .reg            addr_a,addr_x
                              .reg            m,n
                              .reg            product,sum

                              MV            cptr0,addr_a
                              MV            cptr1,addr_x 

                              ZERO        sum 

loop:                      
                              LDH          *addr_a++,m
                              LDH          *addr_x++,n
                              MPY         m,n,product
                              ADD          sum,product,sum
                              SUB          vptr,1,vptr
                   [vptr]B                loop

                              .return     sum

                              .endproc