projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
READMEのCASL II仕様書へのリンクを修正
[YACASL2.git]
/
Q12
/
btod2.casl
1
BTOD START
2
RPUSH
3
LAD GR6,4,GR3
4
LD GR7,GR3
5
LAD GR3,DAT
6
LP CALL DIV
7
OR GR5,='0'
8
ST GR5,0,GR6
9
CPL GR6,GR7
10
JZE FIN
11
LAD GR6,-1,GR6
12
JUMP LP
13
FIN RPOP
14
RET
15
DAT DC 0
16
DC 10
17
END