4 CALL REVRS ; ビット列のビットの並びを逆転
5 LD GR5,0,GR1 ; GR5 ← 逆転したビット列
7 SUBA GR6,GR3 ; GR6 ← 16 - q
8 SRL GR5,0,GR2 ; 逆転した部分ビット列αを右端に移動
9 SLL GR5,0,GR6 ; 逆転した部分ビット列αを左端に移動
10 SRL GR5,0,GR2 ; 逆転した部分ビット列αを p ビットに移動
12 SRA GR6,-1,GR3 ; q ビット連続した1の並びを作成
15 AND GR6,GR4 ; 元のビット列中の部分ビット列αにゼロを設定