Averages/Simple moving average: Difference between revisions

m
m (→‎{{header|360 Assembly}}: Superfluous blanks suppressed)
Line 66:
STH R7,N n=i
XDECO R7,C i
MVC MVCBUF+1(5),C+7
MVC P,=H'3' p=3
BAL R14,SMA
MVC C(13),EDMASK
ED C(13),SS sma(3,i)
MVC MVCBUF+7(11),C+2
MVC P,=H'5' p=5
BAL R14,SMA
MVC C(13),EDMASK
ED C(13),SS sma(5,i)
MVC MVCBUF+19(11),C+2
XPRNT MVCBUF,30 output i,sma3,sma5
LA R7,1(R7)
B LOOP
Line 120:
N DS H
C DS CL16
MVCBUF DC CL30' ' buffer
EDMASK DC X'4020202020202021204B202020' CL13
YREGS
1,392

edits