REPLACE START 
        RPUSH 
        LD      GR4,GR2    ; GR4 ← p
        SRL     GR4,4      ; GR4 ← p/16 
        ADDA    GR1,GR4    ; GR1 を置換え対象語（第i語）に位置付ける。
        AND     GR2,=#000F 
        LD      GR4,=16 
        SUBA    GR4,GR2 
        LD      GR5,GR0
        LD      GR6,=#8000
        SUBA    GR3,=1
        SRA     GR6,0,GR3
        LD      GR7,GR6
        SRL     GR0,0,GR2
        SRL     GR6,0,GR2
        SLL     GR5,0,GR4
        SLL     GR7,0,GR4
        LD      GR2,0,GR1
        XOR     GR6,GR2    ; 第i語のうち
        AND     GR2,GR6    ; ビット列Bを入れる部分を0にする。
        OR      GR2,GR0 
        ST      GR2,0,GR1 
        LD      GR2,1,GR1 
        XOR     GR7,GR2    ; 第(i+1)語のうち
        AND     GR2,GR7    ; ビット列Bを入れる部分を0にする。
        OR      GR2,GR5
        ST      GR2,1,GR1
        RPOP
        RET 
        END