+++ /dev/null
-MAIN START
- LAD GR1,0
- LAD GR2,0 ; インデックス
-BEGIN CPA GR2,CNT
- JZE FIN
- LAD GR3,SEQ,GR2
- AND GR2,GR2
- CPA GR2,=1
- JPL SUMP2
- LD GR1,GR2
- JUMP STSEQ
-SUMP2 LD GR1,-2,GR3
- ADDA GR1,-1,GR3
-STSEQ ST GR1,0,GR3
- LAD GR2,1,GR2
- JUMP BEGIN
-FIN RET
-CNT DC 10
-SEQ DS 10
- END