BREVAO START  ; 1語の内容を左右逆転（ビット反転）する
       LD    GR0,BIT
       LAD   GR3,16     ; 繰り返し数
          ; 結果を蓄えるGR1の初期化が不要なのは何故か？
LOOP   LD    GR7,GR0
       AND   GR7,=#0001 ; GR0の右端の1ビットを取り出す
       SLL   GR1,1      ; GR1に逆転を作る
       OR    GR1,GR7
       SRL   GR0,1
       SUBA  GR3,=1
       JNZ   LOOP       ; ループカウンタが0になるまで繰り返し
       ST    GR1,BIT    ; 結果の格納
       RET
BIT    DS    1          ; 反転させるべきデータ
       END