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