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

   1 ;;; 平成20年 秋期 基本情報技術者 午後 問09
   2 ;;; 与えられたビット番号B1からB2（15＞B1≧B2＞0）までのビットを0、それ以外を1に設定
   3 PTN4    START
   4         ST      GR1,WRK
   5         LD      GR1,GR2
   6         CALL    PTN1
   7         PUSH    0,GR2       ; PTN1 の結果を一時保存
   8         LD      GR1,WRK
   9         LAD     GR1,1,GR1   ; ビット番号の調整
  10         CALL    PTN2
  11         POP     GR1         ; 保存していた PTN1 の結果を GR1 ヘ
  12         XOR     GR2,GR1
  13         LD      GR1,WRK
  14         RET
  15 WRK     DS      1
  16         END