LPAD  START            ;＜LPAD.CAS＞
      LAD    GR2,0     ; GR2を0にする
      LAD    GR1,1     ; GR1を1にする
LOOP  ADDA   GR2,GR1   ; GR2=GR2+GR1
      LAD    GR1,1,GR1 ;インクリメント
      CPA    GR1,CT    ;最後？
      JMI    LOOP
      ST     GR2,S     ; GR2をSに格納
      RET              ;終了
S     DS     1
CT    DC     6
      END