projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
YACAL2: CASL2処理系
[YACASL2.git]
/
as
/
multi.casl
1
MAIN START BEGIN
2
BEGIN LD GR1,X
3
LD GR2,Y
4
LAD GR3,0
5
LAD GR4,1
6
LOOP CPA GR4,GR2
7
JPL FIN
8
AND GR2,GR4
9
JZE NEXT
10
ADDA GR3,GR1
11
JOV FIN
12
NEXT SLA GR1,1
13
JOV FIN
14
LD GR2,Y
15
SLA GR4,1
16
JUMP LOOP
17
FIN ST GR3,A
18
RET
19
X DC 6
20
Y DC 5
21
A DS 1
22
END