SHIFT2  START             ;[t02.cas]
        LD    GR1,=#E345  ;GR1に#E345を入れる
        SLL   GR1,1       ;1ビットシフト
        JOV   SKIP        ;オーバフローのチェック
        OUT   OFF,LEN     ;'OFF'の表示
        RET
SKIP    OUT   ON,LEN      ;'ON'の表示
        RET
OFF     DC    'OFF'
ON      DC    'ON '
LEN     DC    3
        END