projects
/
YACASL2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6335c3d
)
サンプルのsum_10.caslをシンプルに
author
j8takagi
<j8takagi@nifty.com>
Sat, 23 Jan 2021 00:12:15 +0000
(09:12 +0900)
committer
j8takagi
<j8takagi@nifty.com>
Sat, 23 Jan 2021 00:12:15 +0000
(09:12 +0900)
as/sample/sum_10.casl
patch
|
blob
|
history
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 ; 末項