LPSB  START             ;＜LPSB.CAS＞
      LAD    GR2,0      ; GR2を0
      LAD    GR1,5      ; GR1を5
LOOP  ADDA   GR2,GR1    ; GR2=GR2+GR1
      SUBA   GR1,=1     ;デクリメント
      JNZ    LOOP       ;最後？
      ST     GR2,S      ; GR2をSに格納
      RET               ;終了
S     DS     1
      END