projects
/
YACASL2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
READMEのCASL II仕様書へのリンクを修正
[YACASL2.git]
/
as
/
sample
/
sum_10.casl
diff --git
a/as/sample/sum_10.casl
b/as/sample/sum_10.casl
index
cc88df1
..
a7b9211
100644
(file)
--- a/
as/sample/sum_10.casl
+++ b/
as/sample/sum_10.casl
@@
-1,8
+1,6
@@
;;; sum_10.casl
;;; 1から10までの整数をすべて加算した値をメモリーに格納する
MAIN START
;;; sum_10.casl
;;; 1から10までの整数をすべて加算した値をメモリーに格納する
MAIN START
- PUSH 0,GR1
- PUSH 0,GR2
XOR GR2,GR2 ; GR2を初期化
LD GR1,FST ; GR1に初項をメモリーから転送
LOOP ADDL GR2,GR1 ; ループ先頭。GR2 <- GR2 + GR1
XOR GR2,GR2 ; GR2を初期化
LD GR1,FST ; GR1に初項をメモリーから転送
LOOP ADDL GR2,GR1 ; ループ先頭。GR2 <- GR2 + GR1
@@
-11,8
+9,6
@@
LOOP ADDL GR2,GR1 ; ループ先頭。GR2 <- GR2 + GR1
JPL FIN ; ↓
JUMP LOOP ; ループ終端
FIN ST GR2,RST ; GR2の結果をメモリーに転送
JPL FIN ; ↓
JUMP LOOP ; ループ終端
FIN ST GR2,RST ; GR2の結果をメモリーに転送
- POP GR2
- POP GR1
RET
FST DC 1 ; 初項
LST DC 10 ; 末項
RET
FST DC 1 ; 初項
LST DC 10 ; 末項