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
/
ptn1.casl
1
;;; 平成20年 秋期 基本情報技術者 午後 問09
2
;;; 最上位ビットから与えられたビット番号までのビットを1、それ以外を0に設定
3
PTN1 START
4
PUSH 0,GR1
5
LAD GR2,15
6
SUBL GR2,GR1
7
LD GR1,GR2
8
LD GR2,=#8000
9
SRA GR2,0,GR1
10
POP GR1
11
RET
12
END