+++ /dev/null
-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