REI54 START
      LAD    GR2,0         ; GR2に0を入れる
      LD     GR1,A         ; Aの値をGR1に入れる
      AND    GR1,B         ; GR1とBの論理積
      ST     GR1,ANS,GR2   ; ANS+0番地に入れる
      LAD    GR2,1,GR2     ;インクリメント
      LD     GR1,A         ; Aの値をGR1に入れる
      OR     GR1,B         ; GR1とBの論理和
      ST     GR1,ANS,GR2   ; ANS+1番地に入れる
      LAD    GR2,1,GR2     ;インクリメント
      LD     GR1,A         ; Aの値をGR1に入れる
      XOR    GR1,B         ; GR1とBの排他的論理和
      ST     GR1,ANS,GR2   ; ANS+2番地に入れる
      RET
A     DC     #0030
B     DC     #00F9
ANS   DS     3               ; 3語確保
      END