mirror of
https://github.com/alsa-project/alsa-tools.git
synced 2025-11-03 09:01:51 -05:00
338 lines
13 KiB
PHP
338 lines
13 KiB
PHP
|
;;; FV10K1 room relections code
|
||
|
|
;;; Generates room reflections according to file big.room.rp, and stores
|
||
|
|
;;; them in GPRs fvrefl_[fl|fr|rl|rr].
|
||
|
|
;;; Built on Sat Jan 24 13:18:00 2004 from room definition file big.room.rp.
|
||
|
|
|
||
|
|
; define delays and dampening constants
|
||
|
|
readr0 tread dlyr,&0.070249
|
||
|
|
readl0 tread dlyl,&0.070249
|
||
|
|
fl0 constant #-0.028783
|
||
|
|
fr0 constant #-0.011243
|
||
|
|
dmpstore_r0 sta 0,0,0
|
||
|
|
dmpstore_l0 sta 0,0,0
|
||
|
|
readr1 tread dlyr,&0.070249
|
||
|
|
readl1 tread dlyl,&0.070249
|
||
|
|
fl1 constant #-0.011243
|
||
|
|
fr1 constant #-0.028783
|
||
|
|
dmpstore_r1 sta 0,0,0
|
||
|
|
dmpstore_l1 sta 0,0,0
|
||
|
|
readr2 tread dlyr,&0.059064
|
||
|
|
readl2 tread dlyl,&0.059064
|
||
|
|
fl2 constant #0.054798
|
||
|
|
fr2 constant #0.021405
|
||
|
|
dmpstore_r2 sta 0,0
|
||
|
|
dmpstore_l2 sta 0,0
|
||
|
|
readr3 tread dlyr,&0.059064
|
||
|
|
readl3 tread dlyl,&0.059064
|
||
|
|
fl3 constant #0.021405
|
||
|
|
fr3 constant #0.054798
|
||
|
|
dmpstore_r3 sta 0,0
|
||
|
|
dmpstore_l3 sta 0,0
|
||
|
|
readr4 tread dlyr,&0.001778
|
||
|
|
readl4 tread dlyl,&0.001778
|
||
|
|
fl4 constant #-0.428866
|
||
|
|
fr4 constant #-0.167526
|
||
|
|
dmpstore_r4 sta 0
|
||
|
|
dmpstore_l4 sta 0
|
||
|
|
readr5 tread dlyr,&0.001778
|
||
|
|
readl5 tread dlyl,&0.001778
|
||
|
|
fl5 constant #-0.167526
|
||
|
|
fr5 constant #-0.428866
|
||
|
|
dmpstore_r5 sta 0
|
||
|
|
dmpstore_l5 sta 0
|
||
|
|
readr6 tread dlyr,&0.048126
|
||
|
|
readl6 tread dlyl,&0.048126
|
||
|
|
fl6 constant #-0.106417
|
||
|
|
fr6 constant #-0.041569
|
||
|
|
dmpstore_r6 sta 0
|
||
|
|
dmpstore_l6 sta 0
|
||
|
|
readr7 tread dlyr,&0.048126
|
||
|
|
readl7 tread dlyl,&0.048126
|
||
|
|
fl7 constant #-0.041569
|
||
|
|
fr7 constant #-0.106417
|
||
|
|
dmpstore_r7 sta 0
|
||
|
|
dmpstore_l7 sta 0
|
||
|
|
readr8 tread dlyr,&0.059064
|
||
|
|
readl8 tread dlyl,&0.059064
|
||
|
|
fl8 constant #0.054798
|
||
|
|
fr8 constant #0.021405
|
||
|
|
dmpstore_r8 sta 0,0
|
||
|
|
dmpstore_l8 sta 0,0
|
||
|
|
readr9 tread dlyr,&0.059064
|
||
|
|
readl9 tread dlyl,&0.059064
|
||
|
|
fl9 constant #0.021405
|
||
|
|
fr9 constant #0.054798
|
||
|
|
dmpstore_r9 sta 0,0
|
||
|
|
dmpstore_l9 sta 0,0
|
||
|
|
readr10 tread dlyr,&0.077324
|
||
|
|
readl10 tread dlyl,&0.077324
|
||
|
|
fr10 constant #-0.047167
|
||
|
|
rr10 constant #-0.002611
|
||
|
|
dmpstore_r10 sta 0,0,0
|
||
|
|
dmpstore_l10 sta 0,0,0
|
||
|
|
readr11 tread dlyr,&0.051184
|
||
|
|
readl11 tread dlyl,&0.051184
|
||
|
|
fr11 constant #0.103186
|
||
|
|
rr11 constant #0.012640
|
||
|
|
dmpstore_r11 sta 0,0
|
||
|
|
dmpstore_l11 sta 0,0
|
||
|
|
readr12 tread dlyr,&0.035389
|
||
|
|
readl12 tread dlyl,&0.035389
|
||
|
|
fr12 constant #0.160243
|
||
|
|
rr12 constant #0.008872
|
||
|
|
dmpstore_r12 sta 0,0
|
||
|
|
dmpstore_l12 sta 0,0
|
||
|
|
readr13 tread dlyr,&0.050379
|
||
|
|
readl13 tread dlyl,&0.050379
|
||
|
|
fr13 constant #-0.161577
|
||
|
|
rr13 constant #-0.019793
|
||
|
|
dmpstore_r13 sta 0
|
||
|
|
dmpstore_l13 sta 0
|
||
|
|
readr14 tread dlyr,&0.034414
|
||
|
|
readl14 tread dlyl,&0.034414
|
||
|
|
fr14 constant #-0.252993
|
||
|
|
rr14 constant #-0.014007
|
||
|
|
dmpstore_r14 sta 0
|
||
|
|
dmpstore_l14 sta 0
|
||
|
|
readr15 tread dlyr,&0.079794
|
||
|
|
readl15 tread dlyl,&0.079794
|
||
|
|
fr15 constant #0.065450
|
||
|
|
rr15 constant #0.008018
|
||
|
|
dmpstore_r15 sta 0,0
|
||
|
|
dmpstore_l15 sta 0,0
|
||
|
|
readr16 tread dlyr,&0.068240
|
||
|
|
readl16 tread dlyl,&0.068240
|
||
|
|
fr16 constant #0.085203
|
||
|
|
rr16 constant #0.004717
|
||
|
|
dmpstore_r16 sta 0,0
|
||
|
|
dmpstore_l16 sta 0,0
|
||
|
|
readr17 tread dlyr,&0.077324
|
||
|
|
readl17 tread dlyl,&0.077324
|
||
|
|
fr17 constant #-0.047167
|
||
|
|
rr17 constant #-0.002611
|
||
|
|
dmpstore_r17 sta 0,0,0
|
||
|
|
dmpstore_l17 sta 0,0,0
|
||
|
|
|
||
|
|
|
||
|
|
;;; Accumulate reflections for FL
|
||
|
|
interp dmpstore_l0+0,readl0,refldamp,dmpstore_l0+0
|
||
|
|
interp dmpstore_l0+1,dmpstore_l0+0,refldamp,dmpstore_l0+1
|
||
|
|
interp dmpstore_l0+2,dmpstore_l0+1,refldamp,dmpstore_l0+2
|
||
|
|
interp dmpstore_r0+0,readr0,refldamp,dmpstore_r0+0
|
||
|
|
interp dmpstore_r0+1,dmpstore_r0+0,refldamp,dmpstore_r0+1
|
||
|
|
interp dmpstore_r0+2,dmpstore_r0+1,refldamp,dmpstore_r0+2
|
||
|
|
interp dmpstore_r1+0,readr1,refldamp,dmpstore_r1+0
|
||
|
|
interp dmpstore_r1+1,dmpstore_r1+0,refldamp,dmpstore_r1+1
|
||
|
|
interp dmpstore_r1+2,dmpstore_r1+1,refldamp,dmpstore_r1+2
|
||
|
|
interp dmpstore_l1+0,readl1,refldamp,dmpstore_l1+0
|
||
|
|
interp dmpstore_l1+1,dmpstore_l1+0,refldamp,dmpstore_l1+1
|
||
|
|
interp dmpstore_l1+2,dmpstore_l1+1,refldamp,dmpstore_l1+2
|
||
|
|
interp dmpstore_l2+0,readl2,refldamp,dmpstore_l2+0
|
||
|
|
interp dmpstore_l2+1,dmpstore_l2+0,refldamp,dmpstore_l2+1
|
||
|
|
interp dmpstore_r2+0,readr2,refldamp,dmpstore_r2+0
|
||
|
|
interp dmpstore_r2+1,dmpstore_r2+0,refldamp,dmpstore_r2+1
|
||
|
|
interp dmpstore_r3+0,readr3,refldamp,dmpstore_r3+0
|
||
|
|
interp dmpstore_r3+1,dmpstore_r3+0,refldamp,dmpstore_r3+1
|
||
|
|
interp dmpstore_l3+0,readl3,refldamp,dmpstore_l3+0
|
||
|
|
interp dmpstore_l3+1,dmpstore_l3+0,refldamp,dmpstore_l3+1
|
||
|
|
interp dmpstore_l4+0,readl4,refldamp,dmpstore_l4+0
|
||
|
|
interp dmpstore_r4+0,readr4,refldamp,dmpstore_r4+0
|
||
|
|
interp dmpstore_r5+0,readr5,refldamp,dmpstore_r5+0
|
||
|
|
interp dmpstore_l5+0,readl5,refldamp,dmpstore_l5+0
|
||
|
|
interp dmpstore_l6+0,readl6,refldamp,dmpstore_l6+0
|
||
|
|
interp dmpstore_r6+0,readr6,refldamp,dmpstore_r6+0
|
||
|
|
interp dmpstore_r7+0,readr7,refldamp,dmpstore_r7+0
|
||
|
|
interp dmpstore_l7+0,readl7,refldamp,dmpstore_l7+0
|
||
|
|
interp dmpstore_l8+0,readl8,refldamp,dmpstore_l8+0
|
||
|
|
interp dmpstore_l8+1,dmpstore_l8+0,refldamp,dmpstore_l8+1
|
||
|
|
interp dmpstore_r8+0,readr8,refldamp,dmpstore_r8+0
|
||
|
|
interp dmpstore_r8+1,dmpstore_r8+0,refldamp,dmpstore_r8+1
|
||
|
|
interp dmpstore_r9+0,readr9,refldamp,dmpstore_r9+0
|
||
|
|
interp dmpstore_r9+1,dmpstore_r9+0,refldamp,dmpstore_r9+1
|
||
|
|
interp dmpstore_l9+0,readl9,refldamp,dmpstore_l9+0
|
||
|
|
interp dmpstore_l9+1,dmpstore_l9+0,refldamp,dmpstore_l9+1
|
||
|
|
interp dmpstore_l10+0,readl10,refldamp,dmpstore_l10+0
|
||
|
|
interp dmpstore_l10+1,dmpstore_l10+0,refldamp,dmpstore_l10+1
|
||
|
|
interp dmpstore_l10+2,dmpstore_l10+1,refldamp,dmpstore_l10+2
|
||
|
|
interp dmpstore_r11+0,readr11,refldamp,dmpstore_r11+0
|
||
|
|
interp dmpstore_r11+1,dmpstore_r11+0,refldamp,dmpstore_r11+1
|
||
|
|
interp dmpstore_l12+0,readl12,refldamp,dmpstore_l12+0
|
||
|
|
interp dmpstore_l12+1,dmpstore_l12+0,refldamp,dmpstore_l12+1
|
||
|
|
interp dmpstore_r13+0,readr13,refldamp,dmpstore_r13+0
|
||
|
|
interp dmpstore_l14+0,readl14,refldamp,dmpstore_l14+0
|
||
|
|
interp dmpstore_r15+0,readr15,refldamp,dmpstore_r15+0
|
||
|
|
interp dmpstore_r15+1,dmpstore_r15+0,refldamp,dmpstore_r15+1
|
||
|
|
interp dmpstore_l16+0,readl16,refldamp,dmpstore_l16+0
|
||
|
|
interp dmpstore_l16+1,dmpstore_l16+0,refldamp,dmpstore_l16+1
|
||
|
|
interp dmpstore_l17+0,readl17,refldamp,dmpstore_l17+0
|
||
|
|
interp dmpstore_l17+1,dmpstore_l17+0,refldamp,dmpstore_l17+1
|
||
|
|
interp dmpstore_l17+2,dmpstore_l17+1,refldamp,dmpstore_l17+2
|
||
|
|
macs C_0,C_0,C_0,C_0 ; reset accumulator
|
||
|
|
macmv tmp,C_0,dmpstore_l0+2,fl0
|
||
|
|
macmv tmp,C_0,dmpstore_r0+2,fr0
|
||
|
|
macmv tmp,C_0,dmpstore_r1+2,fl1
|
||
|
|
macmv tmp,C_0,dmpstore_l1+2,fr1
|
||
|
|
macmv tmp,C_0,dmpstore_l2+1,fl2
|
||
|
|
macmv tmp,C_0,dmpstore_r2+1,fr2
|
||
|
|
macmv tmp,C_0,dmpstore_r3+1,fl3
|
||
|
|
macmv tmp,C_0,dmpstore_l3+1,fr3
|
||
|
|
macmv tmp,C_0,dmpstore_l4+0,fl4
|
||
|
|
macmv tmp,C_0,dmpstore_r4+0,fr4
|
||
|
|
macmv tmp,C_0,dmpstore_r5+0,fl5
|
||
|
|
macmv tmp,C_0,dmpstore_l5+0,fr5
|
||
|
|
macmv tmp,C_0,dmpstore_l6+0,fl6
|
||
|
|
macmv tmp,C_0,dmpstore_r6+0,fr6
|
||
|
|
macmv tmp,C_0,dmpstore_r7+0,fl7
|
||
|
|
macmv tmp,C_0,dmpstore_l7+0,fr7
|
||
|
|
macmv tmp,C_0,dmpstore_l8+1,fl8
|
||
|
|
macmv tmp,C_0,dmpstore_r8+1,fr8
|
||
|
|
macmv tmp,C_0,dmpstore_r9+1,fl9
|
||
|
|
macmv tmp,C_0,dmpstore_l9+1,fr9
|
||
|
|
macmv tmp,C_0,dmpstore_l10+2,fr10
|
||
|
|
macmv tmp,C_0,dmpstore_r11+1,fr11
|
||
|
|
macmv tmp,C_0,dmpstore_l12+1,fr12
|
||
|
|
macmv tmp,C_0,dmpstore_r13+0,fr13
|
||
|
|
macmv tmp,C_0,dmpstore_l14+0,fr14
|
||
|
|
macmv tmp,C_0,dmpstore_r15+1,fr15
|
||
|
|
macmv tmp,C_0,dmpstore_l16+1,fr16
|
||
|
|
macs fvrefl_fl,ACCUM,dmpstore_l17+2,fr17
|
||
|
|
|
||
|
|
;;; Accumulate reflections for FR
|
||
|
|
interp dmpstore_l0+0,readl0,refldamp,dmpstore_l0+0
|
||
|
|
interp dmpstore_l0+1,dmpstore_l0+0,refldamp,dmpstore_l0+1
|
||
|
|
interp dmpstore_l0+2,dmpstore_l0+1,refldamp,dmpstore_l0+2
|
||
|
|
interp dmpstore_r0+0,readr0,refldamp,dmpstore_r0+0
|
||
|
|
interp dmpstore_r0+1,dmpstore_r0+0,refldamp,dmpstore_r0+1
|
||
|
|
interp dmpstore_r0+2,dmpstore_r0+1,refldamp,dmpstore_r0+2
|
||
|
|
interp dmpstore_r1+0,readr1,refldamp,dmpstore_r1+0
|
||
|
|
interp dmpstore_r1+1,dmpstore_r1+0,refldamp,dmpstore_r1+1
|
||
|
|
interp dmpstore_r1+2,dmpstore_r1+1,refldamp,dmpstore_r1+2
|
||
|
|
interp dmpstore_l1+0,readl1,refldamp,dmpstore_l1+0
|
||
|
|
interp dmpstore_l1+1,dmpstore_l1+0,refldamp,dmpstore_l1+1
|
||
|
|
interp dmpstore_l1+2,dmpstore_l1+1,refldamp,dmpstore_l1+2
|
||
|
|
interp dmpstore_l2+0,readl2,refldamp,dmpstore_l2+0
|
||
|
|
interp dmpstore_l2+1,dmpstore_l2+0,refldamp,dmpstore_l2+1
|
||
|
|
interp dmpstore_r2+0,readr2,refldamp,dmpstore_r2+0
|
||
|
|
interp dmpstore_r2+1,dmpstore_r2+0,refldamp,dmpstore_r2+1
|
||
|
|
interp dmpstore_r3+0,readr3,refldamp,dmpstore_r3+0
|
||
|
|
interp dmpstore_r3+1,dmpstore_r3+0,refldamp,dmpstore_r3+1
|
||
|
|
interp dmpstore_l3+0,readl3,refldamp,dmpstore_l3+0
|
||
|
|
interp dmpstore_l3+1,dmpstore_l3+0,refldamp,dmpstore_l3+1
|
||
|
|
interp dmpstore_l4+0,readl4,refldamp,dmpstore_l4+0
|
||
|
|
interp dmpstore_r4+0,readr4,refldamp,dmpstore_r4+0
|
||
|
|
interp dmpstore_r5+0,readr5,refldamp,dmpstore_r5+0
|
||
|
|
interp dmpstore_l5+0,readl5,refldamp,dmpstore_l5+0
|
||
|
|
interp dmpstore_l6+0,readl6,refldamp,dmpstore_l6+0
|
||
|
|
interp dmpstore_r6+0,readr6,refldamp,dmpstore_r6+0
|
||
|
|
interp dmpstore_r7+0,readr7,refldamp,dmpstore_r7+0
|
||
|
|
interp dmpstore_l7+0,readl7,refldamp,dmpstore_l7+0
|
||
|
|
interp dmpstore_l8+0,readl8,refldamp,dmpstore_l8+0
|
||
|
|
interp dmpstore_l8+1,dmpstore_l8+0,refldamp,dmpstore_l8+1
|
||
|
|
interp dmpstore_r8+0,readr8,refldamp,dmpstore_r8+0
|
||
|
|
interp dmpstore_r8+1,dmpstore_r8+0,refldamp,dmpstore_r8+1
|
||
|
|
interp dmpstore_r9+0,readr9,refldamp,dmpstore_r9+0
|
||
|
|
interp dmpstore_r9+1,dmpstore_r9+0,refldamp,dmpstore_r9+1
|
||
|
|
interp dmpstore_l9+0,readl9,refldamp,dmpstore_l9+0
|
||
|
|
interp dmpstore_l9+1,dmpstore_l9+0,refldamp,dmpstore_l9+1
|
||
|
|
interp dmpstore_r10+0,readr10,refldamp,dmpstore_r10+0
|
||
|
|
interp dmpstore_r10+1,dmpstore_r10+0,refldamp,dmpstore_r10+1
|
||
|
|
interp dmpstore_r10+2,dmpstore_r10+1,refldamp,dmpstore_r10+2
|
||
|
|
interp dmpstore_l11+0,readl11,refldamp,dmpstore_l11+0
|
||
|
|
interp dmpstore_l11+1,dmpstore_l11+0,refldamp,dmpstore_l11+1
|
||
|
|
interp dmpstore_r12+0,readr12,refldamp,dmpstore_r12+0
|
||
|
|
interp dmpstore_r12+1,dmpstore_r12+0,refldamp,dmpstore_r12+1
|
||
|
|
interp dmpstore_l13+0,readl13,refldamp,dmpstore_l13+0
|
||
|
|
interp dmpstore_r14+0,readr14,refldamp,dmpstore_r14+0
|
||
|
|
interp dmpstore_l15+0,readl15,refldamp,dmpstore_l15+0
|
||
|
|
interp dmpstore_l15+1,dmpstore_l15+0,refldamp,dmpstore_l15+1
|
||
|
|
interp dmpstore_r16+0,readr16,refldamp,dmpstore_r16+0
|
||
|
|
interp dmpstore_r16+1,dmpstore_r16+0,refldamp,dmpstore_r16+1
|
||
|
|
interp dmpstore_r17+0,readr17,refldamp,dmpstore_r17+0
|
||
|
|
interp dmpstore_r17+1,dmpstore_r17+0,refldamp,dmpstore_r17+1
|
||
|
|
interp dmpstore_r17+2,dmpstore_r17+1,refldamp,dmpstore_r17+2
|
||
|
|
macs C_0,C_0,C_0,C_0 ; reset accumulator
|
||
|
|
macmv tmp,C_0,dmpstore_l0+2,fr0
|
||
|
|
macmv tmp,C_0,dmpstore_r0+2,fl0
|
||
|
|
macmv tmp,C_0,dmpstore_r1+2,fr1
|
||
|
|
macmv tmp,C_0,dmpstore_l1+2,fl1
|
||
|
|
macmv tmp,C_0,dmpstore_l2+1,fr2
|
||
|
|
macmv tmp,C_0,dmpstore_r2+1,fl2
|
||
|
|
macmv tmp,C_0,dmpstore_r3+1,fr3
|
||
|
|
macmv tmp,C_0,dmpstore_l3+1,fl3
|
||
|
|
macmv tmp,C_0,dmpstore_l4+0,fr4
|
||
|
|
macmv tmp,C_0,dmpstore_r4+0,fl4
|
||
|
|
macmv tmp,C_0,dmpstore_r5+0,fr5
|
||
|
|
macmv tmp,C_0,dmpstore_l5+0,fl5
|
||
|
|
macmv tmp,C_0,dmpstore_l6+0,fr6
|
||
|
|
macmv tmp,C_0,dmpstore_r6+0,fl6
|
||
|
|
macmv tmp,C_0,dmpstore_r7+0,fr7
|
||
|
|
macmv tmp,C_0,dmpstore_l7+0,fl7
|
||
|
|
macmv tmp,C_0,dmpstore_l8+1,fr8
|
||
|
|
macmv tmp,C_0,dmpstore_r8+1,fl8
|
||
|
|
macmv tmp,C_0,dmpstore_r9+1,fr9
|
||
|
|
macmv tmp,C_0,dmpstore_l9+1,fl9
|
||
|
|
macmv tmp,C_0,dmpstore_r10+2,fr10
|
||
|
|
macmv tmp,C_0,dmpstore_l11+1,fr11
|
||
|
|
macmv tmp,C_0,dmpstore_r12+1,fr12
|
||
|
|
macmv tmp,C_0,dmpstore_l13+0,fr13
|
||
|
|
macmv tmp,C_0,dmpstore_r14+0,fr14
|
||
|
|
macmv tmp,C_0,dmpstore_l15+1,fr15
|
||
|
|
macmv tmp,C_0,dmpstore_r16+1,fr16
|
||
|
|
macs fvrefl_fr,ACCUM,dmpstore_r17+2,fr17
|
||
|
|
|
||
|
|
;;; Accumulate reflections for RL
|
||
|
|
interp dmpstore_l10+0,readl10,refldamp,dmpstore_l10+0
|
||
|
|
interp dmpstore_l10+1,dmpstore_l10+0,refldamp,dmpstore_l10+1
|
||
|
|
interp dmpstore_l10+2,dmpstore_l10+1,refldamp,dmpstore_l10+2
|
||
|
|
interp dmpstore_r11+0,readr11,refldamp,dmpstore_r11+0
|
||
|
|
interp dmpstore_r11+1,dmpstore_r11+0,refldamp,dmpstore_r11+1
|
||
|
|
interp dmpstore_l12+0,readl12,refldamp,dmpstore_l12+0
|
||
|
|
interp dmpstore_l12+1,dmpstore_l12+0,refldamp,dmpstore_l12+1
|
||
|
|
interp dmpstore_r13+0,readr13,refldamp,dmpstore_r13+0
|
||
|
|
interp dmpstore_l14+0,readl14,refldamp,dmpstore_l14+0
|
||
|
|
interp dmpstore_r15+0,readr15,refldamp,dmpstore_r15+0
|
||
|
|
interp dmpstore_r15+1,dmpstore_r15+0,refldamp,dmpstore_r15+1
|
||
|
|
interp dmpstore_l16+0,readl16,refldamp,dmpstore_l16+0
|
||
|
|
interp dmpstore_l16+1,dmpstore_l16+0,refldamp,dmpstore_l16+1
|
||
|
|
interp dmpstore_l17+0,readl17,refldamp,dmpstore_l17+0
|
||
|
|
interp dmpstore_l17+1,dmpstore_l17+0,refldamp,dmpstore_l17+1
|
||
|
|
interp dmpstore_l17+2,dmpstore_l17+1,refldamp,dmpstore_l17+2
|
||
|
|
macs C_0,C_0,C_0,C_0 ; reset accumulator
|
||
|
|
macmv tmp,C_0,dmpstore_l10+2,rr10
|
||
|
|
macmv tmp,C_0,dmpstore_r11+1,rr11
|
||
|
|
macmv tmp,C_0,dmpstore_l12+1,rr12
|
||
|
|
macmv tmp,C_0,dmpstore_r13+0,rr13
|
||
|
|
macmv tmp,C_0,dmpstore_l14+0,rr14
|
||
|
|
macmv tmp,C_0,dmpstore_r15+1,rr15
|
||
|
|
macmv tmp,C_0,dmpstore_l16+1,rr16
|
||
|
|
macs fvrefl_rl,ACCUM,dmpstore_l17+2,rr17
|
||
|
|
|
||
|
|
;;; Accumulate reflections for RR
|
||
|
|
interp dmpstore_r10+0,readr10,refldamp,dmpstore_r10+0
|
||
|
|
interp dmpstore_r10+1,dmpstore_r10+0,refldamp,dmpstore_r10+1
|
||
|
|
interp dmpstore_r10+2,dmpstore_r10+1,refldamp,dmpstore_r10+2
|
||
|
|
interp dmpstore_l11+0,readl11,refldamp,dmpstore_l11+0
|
||
|
|
interp dmpstore_l11+1,dmpstore_l11+0,refldamp,dmpstore_l11+1
|
||
|
|
interp dmpstore_r12+0,readr12,refldamp,dmpstore_r12+0
|
||
|
|
interp dmpstore_r12+1,dmpstore_r12+0,refldamp,dmpstore_r12+1
|
||
|
|
interp dmpstore_l13+0,readl13,refldamp,dmpstore_l13+0
|
||
|
|
interp dmpstore_r14+0,readr14,refldamp,dmpstore_r14+0
|
||
|
|
interp dmpstore_l15+0,readl15,refldamp,dmpstore_l15+0
|
||
|
|
interp dmpstore_l15+1,dmpstore_l15+0,refldamp,dmpstore_l15+1
|
||
|
|
interp dmpstore_r16+0,readr16,refldamp,dmpstore_r16+0
|
||
|
|
interp dmpstore_r16+1,dmpstore_r16+0,refldamp,dmpstore_r16+1
|
||
|
|
interp dmpstore_r17+0,readr17,refldamp,dmpstore_r17+0
|
||
|
|
interp dmpstore_r17+1,dmpstore_r17+0,refldamp,dmpstore_r17+1
|
||
|
|
interp dmpstore_r17+2,dmpstore_r17+1,refldamp,dmpstore_r17+2
|
||
|
|
macs C_0,C_0,C_0,C_0 ; reset accumulator
|
||
|
|
macmv tmp,C_0,dmpstore_r10+2,rr10
|
||
|
|
macmv tmp,C_0,dmpstore_l11+1,rr11
|
||
|
|
macmv tmp,C_0,dmpstore_r12+1,rr12
|
||
|
|
macmv tmp,C_0,dmpstore_l13+0,rr13
|
||
|
|
macmv tmp,C_0,dmpstore_r14+0,rr14
|
||
|
|
macmv tmp,C_0,dmpstore_l15+1,rr15
|
||
|
|
macmv tmp,C_0,dmpstore_r16+1,rr16
|
||
|
|
macs fvrefl_rr,ACCUM,dmpstore_r17+2,rr17
|
||
|
|
|
||
|
|
END
|