SUB3   START
         RPUSH
         LD    GR2,GR1    ; e＝<GR1>
         LD    GR3,GR0    ; ループカウンタ i＝<GR0> に初期化
         LAD   GR4,1      ; ループカウンタの減算値1
LOOP1  LD    GR5,0,GR2  ; 次と2つの命令で PUSH <e>
         PUSH 0,GR5      ;  
         ADDA  GR2,GR4  ; アドレスの加算 e＝e＋1
         SUBL  GR3,GR4    ; ループカウンタのデクリメント i＝i−1
         JPL   LOOP1      ; i＞0 ならば LOOP1に戻り繰り返し
  ; ここから後半だが，e＝<GR1>,  i＝<GR0>,  <GR4>＝1 はそのまま使用
LOOP2  POP   GR5        ; POP
         ST     GR5,0,GR1      ; <e>に格納
         LAD   GR1,1,GR1  ; アドレスの加算 e＝e＋1
         SUBL  GR0,GR4    ; ループカウンタのデクリメント i＝i−1
         JPL   LOOP2      ; i＞0 ならば LOOP2に戻り繰り返し
         RPOP
         RET
         END