projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
クロック周波数の定義を追加
[YACASL2.git]
/
as
/
itoa1.casl
1
MAIN START
2
LD GR1,I
3
LAD GR2,10
4
LAD GR5,0
5
LOOP CPA GR1,GR2
6
JMI NEXT
7
CALL DIV
8
ADDA GR4,Z
9
ST GR4,STR,GR5
10
LAD GR5,1,GR5
11
LD GR1,GR3
12
JUMP LOOP
13
NEXT ADDA GR1,Z
14
ST GR1,STR,GR5
15
LAD GR5,1,GR5
16
ST GR5,LEN
17
PRT OUT STR,LEN
18
RET
19
I DC 12345
20
Z DC '0'
21
STR DS 5
22
LEN DS 1
23
END
24
;GR1をGR2で割ったときの商をGR3、剰余をGR4に格納
25
DIV LD GR4,GR1
26
LAD GR3,0
27
DLOOP CPA GR4,GR2
28
JMI DFIN
29
SUBL GR4,GR2
30
LAD GR3,1,GR3
31
JUMP DLOOP
32
DFIN RET
33
RET
34
END