7      short _dlms(DATA* x, DATA* h, DATA* r, DATA* des, DATA* dbuffer, short STEP, short NH, short NX) {
        _dlms:
023609:   4eed                     AADD #-19,SP
02360b:   c516                     MOV T1,*SP(#0bh)
02360d:   c414                     MOV T0,*SP(#0ah)
02360f:   eb10c5                   MOV XAR4,dbl(*SP(#08h))
023612:   eb0cb5                   MOV XAR3,dbl(*SP(#06h))
023615:   eb08a5                   MOV XAR2,dbl(*SP(#04h))
023618:   eb0495                   MOV XAR1,dbl(*SP(#02h))
02361b:   eb0085                   MOV XAR0,dbl(*SP(#00h))
 9          DATA err = 0;
02361e:   e61a00                   MOV #0,*SP(#0dh)
11          for (i = 0; i < NX; i++) {
023621:   e61800                   MOV #0,*SP(#0ch)
023624:   a928                     MOV *SP(#14h),AR1
023626:   aa18                     MOV *SP(#0ch),AR2
023628:   12a890                   CMP AR2 >= AR1, TC1
02362b:   6d6400da                 BCC C$DW$L$,TC1
12              int n = i % (NH + 2); //i % (NH + 1) + 1;
        C$DW$L$, C$L1:
02362f:   a916_4762                MOV *SP(#0bh),AR1 || BCLR ST1_FRCT
023633:   7b000259                 ADD #2,AR1,T1
023637:   6c024277_23a4            CALL I$$MOD || MOV AR2,T0
02363d:   c41c                     MOV T0,*SP(#0eh)
13              dbuffer[n] = x[i];
02363f:   ed10bf                   MOV dbl(*SP(#08h)),XAR3
023642:   a91c                     MOV *SP(#0eh),AR1
023644:   ed00af                   MOV dbl(*SP(#00h)),XAR2
023647:   a418                     MOV *SP(#0ch),T0
023649:   1490b0                   AADD AR1,AR3
02364c:   805d84                   MOV *AR2(T0),*AR3
16              for (j = 0; j < NH; j++) {
02364f:   e61e00                   MOV #0,*SP(#0fh)
023652:   a916                     MOV *SP(#0bh),AR1
023654:   aa1e                     MOV *SP(#0fh),AR2
023656:   12a890                   CMP AR2 >= AR1, TC1
023659:   046433                   BCC C$DW$L$,TC1
17                  r[i] += (((LDATA)h[j] * x[i-j] << 1) >> 16);
        C$DW$L$, C$L2:
02365c:   a41e                     MOV *SP(#0fh),T0
02365e:   2245                     MOV T0,T1
023660:   ed00bf                   MOV dbl(*SP(#00h)),XAR3
023663:   d81855                   SUB T1,*SP(#0ch),T1
023666:   ed04cf                   MOV dbl(*SP(#02h)),XAR4
023669:   ed08af                   MOV dbl(*SP(#04h)),XAR2
02366c:   a918                     MOV *SP(#0ch),AR1
02366e:   1450b0_4763              AADD T1,AR3 || BSET ST1_FRCT
023673:   86627000_2394            MPYM *AR3,*AR4(T0),AC0 || MOV AR1,T0
023679:   100530                   SFTS AC0,#-16,AC0
02367c:   d64b00                   ADD *AR2(T0),AC0,AC0
02367f:   c04b                     MOV AC0,*AR2(T0)
16              for (j = 0; j < NH; j++) {
023681:   f71e0001                 ADD #1,*SP(#0fh)
023685:   a916                     MOV *SP(#0bh),AR1
023687:   aa1e                     MOV *SP(#0fh),AR2
023689:   12a490                   CMP AR2 < AR1, TC1
02368c:   0464cd                   BCC C$DW$L$,TC1
20              for (j = 0; j < NH; j++) {
        C$DW$L$, C$L3:
02368f:   e61e00                   MOV #0,*SP(#0fh)
023692:   a916                     MOV *SP(#0bh),AR1
023694:   aa1e                     MOV *SP(#0fh),AR2
023696:   12a890                   CMP AR2 >= AR1, TC1
023699:   04644f                   BCC C$DW$L$,TC1
21                  LDATA erst = (((LDATA)STEP * err) << 1) >> 16;
        C$DW$L$, C$L4:
02369c:   a51a_4763                MOV *SP(#0dh),T1 || BSET ST1_FRCT
0236a0:   d31405                   MPYM *SP(#0ah),T1,AC0
0236a3:   100530                   SFTS AC0,#-16,AC0
0236a6:   eb2008                   MOV AC0,dbl(*SP(#10h))
23                  n = (n + (NH + 1)) % (NH + 2);
0236a9:   a916                     MOV *SP(#0bh),AR1
0236ab:   d61c99                   ADD *SP(#0eh),AR1,AR1
0236ae:   7b000149                 ADD #1,AR1,T0
0236b2:   a916_4762                MOV *SP(#0bh),AR1 || BCLR ST1_FRCT
0236b6:   7b000259                 ADD #2,AR1,T1
0236ba:   6c024277                 CALL I$$MOD
0236be:   c41c                     MOV T0,*SP(#0eh)
24                  h[j] += (((erst * dbuffer[n]) << 1) >> 16);
0236c0:   ed10af                   MOV dbl(*SP(#08h)),XAR2
0236c3:   ed04bf                   MOV dbl(*SP(#02h)),XAR3
0236c6:   a91e                     MOV *SP(#0fh),AR1
0236c8:   ed2008                   MOV dbl(*SP(#10h)),AC0
0236cb:   a14b                     MOV *AR2(T0),AC1
0236cd:   6c02436d                 CALL I$$LMPY
0236d1:   2294                     MOV AR1,T0
0236d3:   4450                     SFTS AC0,#1
0236d5:   100530                   SFTS AC0,#-16,AC0
0236d8:   d66b00                   ADD *AR3(T0),AC0,AC0
0236db:   c06b                     MOV AC0,*AR3(T0)
20              for (j = 0; j < NH; j++) {
0236dd:   f71e0001                 ADD #1,*SP(#0fh)
0236e1:   a916                     MOV *SP(#0bh),AR1
0236e3:   aa1e                     MOV *SP(#0fh),AR2
0236e5:   12a490                   CMP AR2 < AR1, TC1
0236e8:   0464b1                   BCC C$DW$L$,TC1
29              err = des[i] - r[i];
        C$DW$L$, C$L5:
0236eb:   a418                     MOV *SP(#0ch),T0
0236ed:   ed08bf                   MOV dbl(*SP(#04h)),XAR3
0236f0:   a96b                     MOV *AR3(T0),AR1
0236f2:   ed0cbf                   MOV dbl(*SP(#06h)),XAR3
0236f5:   d86b99                   SUB AR1,*AR3(T0),AR1
0236f8:   c91a                     MOV AR1,*SP(#0dh)
11          for (i = 0; i < NX; i++) {
0236fa:   f7180001                 ADD #1,*SP(#0ch)
0236fe:   aa18                     MOV *SP(#0ch),AR2
023700:   a928                     MOV *SP(#14h),AR1
023702:   12a490                   CMP AR2 < AR1, TC1
023705:   6d64ff26                 BCC C$L1,TC1
31          return 0;
        C$DW$L$, C$L6:
023709:   3c04                     MOV #0,T0
32      }
02370b:   4e13                     AADD #19,SP
02370d:   4662                     BCLR ST1_FRCT
02370f:   4804                     RET