as/fe_tests/2008_10/Q09/ptn3.casl

   1 ;;; 平成20年 秋期 基本情報技術者 午後 問09
   2 ;;; 与えられたビット番号のビットを1，それ以外を0に設定
   3 PTN3   START
   4        LD      GR2,=#0001
   5        SLL     GR2,0,GR1
   6        RET
   7        END