projects
/
YACASL2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1cf7cd7
)
マニュアルのサンプルソースを更新
author
j8takagi
<j8takagi@nifty.com>
Sat, 6 Feb 2021 02:10:47 +0000
(11:10 +0900)
committer
j8takagi
<j8takagi@nifty.com>
Sat, 6 Feb 2021 02:10:47 +0000
(11:10 +0900)
doc/manual.texi
patch
|
blob
|
history
diff --git
a/doc/manual.texi
b/doc/manual.texi
index
2f15d6b
..
abf7653
100644
(file)
--- a/
doc/manual.texi
+++ b/
doc/manual.texi
@@
-394,21
+394,21
@@
$ @kbd{casl2 -t addl.casl | grep 'GR1:' | tail -1}
@example
$ @kbd{cat sum_10.casl}
;;; sum_10.casl
@example
$ @kbd{cat sum_10.casl}
;;; sum_10.casl
-;;;
出力 GR0: 1から10までの整数をすべて加算した値
+;;;
1から10までの整数をすべて加算した値をメモリーに格納する
MAIN START
MAIN START
- PUSH 0,GR1
- LAD GR0,0 ; GR0を初期化
- LD GR1,FST ; GR1に初項を転送
-LOOP ADDL GR0,GR1 ; ループ先頭
+ XOR GR2,GR2 ; GR2を初期化
+ LD GR1,FST ; GR1に初項をメモリーから転送
+LOOP ADDL GR2,GR1 ; ループ先頭。GR2 <- GR2 + GR1
ADDL GR1,STEP ; GR1 <- GR1 + 公差
CPL GR1,LST ; GR1が末項より大きい場合は終了
JPL FIN ; ↓
JUMP LOOP ; ループ終端
ADDL GR1,STEP ; GR1 <- GR1 + 公差
CPL GR1,LST ; GR1が末項より大きい場合は終了
JPL FIN ; ↓
JUMP LOOP ; ループ終端
-FIN
POP GR1
+FIN
ST GR2,RST ; GR2の結果をメモリーに転送
RET
FST DC 1 ; 初項
LST DC 10 ; 末項
STEP DC 1 ; 公差
RET
FST DC 1 ; 初項
LST DC 10 ; 末項
STEP DC 1 ; 公差
+RST DS 1 ; 結果
END
@end example
END
@end example