9 LD GR6,0,GR4 ; GR3 が指す語と GR4 が指す語の内容を
12 LAD GR3,1,GR3 ; GR3 を次の語に位置付ける
13 LAD GR4,-1,GR4 ; GR4 を一つ前の語に位置付ける
25 LD GR4,=0 ; 結果のビット列を初期化
27 LD GR3,0,GR1 ; GR3 ← ビット列
28 LOOP SLL GR4,1 ; 結果のビット列を左シフト
29 SRL GR3,1 ; 元のビット列を右シフト
31 JZE FIN1 ; 元のビット列の残りのビットはすべてゼロ
37 FIN1 SLL GR4,0,GR2 ; 結果のビット列を残りのビット数だけシフト