projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
無視ファイル追加
[YACASL2.git]
/
as
/
revtest.casl
1
MAIN START
2
OUT STR,LEN
3
LAD GR1,STR
4
LD GR2,LEN
5
CALL REV
6
OUT STR,LEN
7
RET
8
STR DC '12345'
9
LEN DC 5
10
END
11
REV START
12
LAD GR3,1
13
RPU CPA GR2,GR3
14
JMI RNEXT
15
LD GR4,GR1
16
ADDA GR4,GR3
17
LD GR4,-1,GR4
18
PUSH 0,GR4
19
LAD GR3,1,GR3
20
JUMP RPU
21
RNEXT LAD GR3,1
22
RPO CPA GR2,GR3
23
JMI PFIN
24
POP GR4
25
LD GR5,GR1
26
ADDA GR5,GR3
27
ST GR4,-1,GR5
28
LAD GR3,1,GR3
29
JUMP RPO
30
PFIN RET
31
END