22 lines
780 B
Text
22 lines
780 B
Text
CATALAN CSECT 08/09/2015
|
|
USING CATALAN,R15
|
|
LA R7,1 c=1
|
|
LA R6,1 i=1
|
|
LOOPI CH R6,=H'15' do i=1 to 15
|
|
BH ELOOPI
|
|
XDECO R6,PG edit i
|
|
LR R5,R6 i
|
|
SLA R5,1 *2
|
|
BCTR R5,0 -1
|
|
SLA R5,1 *2
|
|
MR R4,R7 *c
|
|
LA R6,1(R6) i=i+1
|
|
DR R4,R6 /i
|
|
LR R7,R5 c=2*(2*i-1)*c/(i+1)
|
|
XDECO R7,PG+12 edit c
|
|
XPRNT PG,24 print
|
|
B LOOPI next i
|
|
ELOOPI BR R14
|
|
PG DS CL24
|
|
YREGS
|
|
END CATALAN
|