SMPL2   START
        LAD  GR0,#0001   ;  #0001 を GR0 に
        LAD  GR1,1       ;  1 → GR1 
        LD   GR2,DAT     ;  DAT 番地の内容を GR2 に
                         ; 即ち，<DAT> → GR2  
        LD   GR3,DAT,GR1 ; <e>（＝<DAT＋<GR1>>） → GR3
        ADDA GR2,GR3     ; <GR2>＋<GR3> → GR2
        ST   GR2,ADR1    ;  <GR2> → <ADR1>
        RET
DAT     DC   #0002       ; 定数#0002 をここに配置
        DC   #0003       ; 定数#0003 をここに配置
ADR1    DS   1           ; 1語分の領域 をここに確保
        END