masterブランチをマージ

[YACASL2.git] / as / fe_tests / 2008_10 / Q09 / ptn2.casl

;;; 平成20年 秋期 基本情報技術者 午後 問09
;;; 最上位ビットから与えられたビット番号までのビットを０、それ以外を１に設定
PTN2    START
        PUSH    0,GR1
        LAD     GR2,16
        SUBL    GR2,GR1
        LD      GR1,GR2
        LD      GR2,=#FFFF
        SRL     GR2,0,GR1
        POP     GR1
        RET
        END