beta    equ     0.1540877
        org     x:0
states  ds      2
        org     y:0
coeffs  dc      -1.4025987/2,0.7304027,0.8748185                ; a1/2, a2, b0=-b2
        org     p:64

        move    #states,r0
        move    #coeffs,r4
        move    #1,m0
        move    #2,m4
        move    #beta,x1                                        ;beta0 -> x1

        ;  in    x0                                              ;pobranie probki
          mpy   x0,x1,a                                         ;mnozenie przez beta0

          move                  x:(r0)+,x0      y:(r4)+,y0      ;   mnozenie przez:
          mac   -x0,y0,a        x:(r0)+,x0      y:(r4)+,y0      ;     -a1/2
          asl          a                                        ;      a*2
          macr  -x0,y0,a                        y:(r4)+,y0      ;     -a2
          mpy   -x0,y0,a        x:(r0)-,x0      a,y1            ;     +b2=-b0
          mac   y1,y0,a        y1,x:(r0)                        ;     +b0

        ;  out   a
         end
