;; a_n = n+a_n, a_1=1,  sum(a_k)
;; a_k GR5, k GR2,
SUMM START
     LAD GR1,0
     LAD GR2,0
     LAD GR3,1
     LAD GR4,4
     LAD GR5,0
LL   ADDA GR2,GR3
     ADDA GR5,GR2
     ADDA GR1,GR5
     CPA  GR2,GR4
     JMI LL
     DREG MSG ;; remove this line on casl2
     RET
MSG  DC 'A' ;; remove this line on casl2
     END