AND   START             ;＜AND.CAS＞
      LD    GR1,A       ; Aの値をGR1に入れる
      AND   GR1,=#0004  ;マスク処理
      JNZ   L1          ; GR1が0ならばL1へ
      OUT   OFF,LEN     ; OFFと表示する
      JUMP  LAST        ; LASTへ分岐
L1    OUT   ON,LEN      ; ONと表示する
LAST  RET               ;
A     DC    15          ; 0000 0000 0000 1111
ON    DC    'ON '
OFF   DC    'OFF'
LEN   DC    3
      END