SUB2  START
      PUSH  0,GR1      ; GR1 の内容をスタックに退避
                       ; GR2 の内容をスタックに退避
                       ; GR3 の内容をスタックに退避
                       ; 加算結果を収納するGR0を 0 に初期化
                       ; ループカウンタを <N>＝4 に初期化
                       ; ループカウンタの減算値1
LOOP                   ; メモリ（e＝<GR1>）から1語ロードし，加算
      LAD   GR1,1,GR1  ; アドレスの加算 <GR1>＋1→GR1
      SUBL  GR2,GR3    ; ループカウンタのデクリメント <GR2>−1→GR2
      JPL   LOOP       ; <GR1>＞0 ならば LOOPに戻り繰り返し
                       ; GR3 の内容をスタックから復元
                       ; GR2 の内容をスタックから復元
                       ; GR1 の内容をスタックから復元
      RET              ; 加算結果は GR0 にあるので，そのままリターン
N     DC    4          ; 指定ループ回数
      END