COMPCALA CSECT
         L      R1,=A(FACT10)      r1=10!
         XDECO  R1,PG
         XPRNT  PG,L'PG            print buffer
         BR     R14                exit
FACT10   EQU    10*9*8*7*6*5*4*3*2*1   factorial computation
PG       DS     CL12