MAIN   START
       LAD     GR1,ARG
       CALL    ONOFF     ;副プログラムの呼び出し
       RET
ARG    DC      #9FAF     ; 1001 1111 1010 1111
       DC      2
ONOFF  START             ;ビットの状態 [a08.cas]
       RPUSH             ;汎用レジスタの退避
       LD     GR2,0,GR1  ;検査する語 [  a  ]
       LD     GR3,1,GR1  ;検査するビット位置
       SRL    GR2,1,GR3  ;ビットのチェック [  b  ]
       JOV    ONPRT
       OUT    OFF,LEN    ;OFFの表示
       JUMP   FIN
ONPRT  OUT    ON,LEN     ;ONの表示
FIN    RPOP              ;汎用レジスタの復元
       RET
OFF    DC     'OFF'
ON     DC     'ON '
LEN    DC     3
       END