projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
install-infoとinstall-casl2libを設定
[YACASL2.git]
/
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