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
/
btod1.casl
1
BTOD START
2
RPUSH
3
LD GR6,GR3
4
LAD GR7,4,GR3
5
LAD GR3,UDAT ; 除数の初期設定
6
LP CALL DIV
7
OR ,='0'
8
ST ,0,GR6 ; 10 進数字1文字格納
9
CPL GR6,GR7
10
JZE FIN
11
LAD GR6,1,GR6
12
LD GR1,GR4 ; 被除数の再設定
13
LD GR2,GR5
14
15
JUMP LP
16
FIN RPOP
17
RET
18
UDAT DC 0
19
DC 10000
20
DC 0
21
DC 1000
22
DC 0
23
DC 100
24
DC 0
25
DC 10
26
DC 0
27
DC 1
28
END