projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
ADDA、ADDL、CPA、CPL、DCのテストコードを整理
[YACASL2.git]
/
as
/
misc
/
sum_10_2.casl
1
;;; sum_10.casl
2
;;; 出力 GR0: 1から10までの整数をすべて加算した値
3
;;; 依存プログラム: mull1.casl divl1.casl
4
MAIN START
5
PUSH 0,GR1
6
PUSH 0,GR2
7
;; GR1に(初項 + 末項)を入力
8
LD GR1,FST
9
ADDL GR1,LST
10
;; GR2に項数を入力
11
LD GR2,LST
12
SUBL GR2,GR1
13
RPUSH
14
LD GR1,GR2
15
LD GR2,STEP
16
CALL DIVL
17
RPOP
18
LAD GR2,1,GR0
19
CALL MULL
20
SRL GR0,1
21
POP GR2
22
POP GR1
23
RET
24
FST DC 1
25
LST DC 10
26
STEP DC 1
27
END