LPAD1  START            ;[t10.cas]
       LAD    GR2,0     ;GR2を0にする
       LAD    GR1,1     ;GR1を1にする
LOOP   CPA    GR1,=5    ;最後？
       JPL    END
       ADDA   GR2,GR1   ;GR2=GR2+GR1
       LAD    GR1,1,GR1 ;インクリメント
       JUMP   LOOP
END    RET              ;終了
       END