SUB1  START
        XOR  GR0,GR0  ; 加算結果を収納する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に戻り繰り返し
      RET              ; 加算結果は GR0 にあるので，そのままリターン
N     DC    4          ; 指定ループ回数
      END