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