projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
基本情報処理試験のフォルダを変更し、2018年春の分を追加
[YACASL2.git]
/
as
/
exam_fe
/
2018_04
/
dtob.casl
1
DTOB START
2
RPUSH
3
ADDL GR2,GR1
4
LAD GR0,0 ; 戻り値の初期化
5
LP CPL GR1,GR2 ; 変換終了?
6
JZE FIN
7
LD GR4,0,GR1 ; 数字1文字の取出し
8
SUBL GR4,='0' ; 1 桁を数値に変換
9
SLL GR0,1 ; GR0を10倍してGR4を加算
10
LD GR5,GR0
11
SLL GR5,2
12
ADDL GR0,GR5
13
ADDL GR0,GR4
14
LAD GR1,1,GR1
15
JUMP LP
16
FIN RPOP
17
RET
18
END