dotp+.sa

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

                              .def             _DP
_DP                      .cproc         cptr0,cptr1,vptr
                              .reg            addr_a,addr_x
                              .reg            product0,product1,sum0,sum1
                              .reg            m,n

                              MV            cptr0,addr_a
                              MV            cptr1,addr_x 

                              ZERO        sum0
                              ZERO        sum1
                              SHR           vptr,1,vptr 

loop:                      
                              LDW          *addr_a++,m
                              LDW          *addr_x++,n
                              MPY          m,n,product0
                              MPYH       m,n,product1
                              ADD           sum0,product0,sum0
                              ADD           sum1,product1,sum1
                              SUB           vptr,1,vptr
                  [vptr] B                 loop

                              ADD           sum0,sum1,sum0
       
                              .return       sum0

                              .endproc