projects
/
YACASL2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
バージョンv0.3p3を設定
[YACASL2.git]
/
as
/
casl2lib
/
addl32.casl
diff --git
a/as/casl2lib/addl32.casl
b/as/casl2lib/addl32.casl
index
1282e78
..
23740bf
100644
(file)
--- a/
as/casl2lib/addl32.casl
+++ b/
as/casl2lib/addl32.casl
@@
-1,5
+1,5
@@
-;;; 2つの32ビット
数
値を加算する
-;;; 32ã
\83
\93
ã
\83
\83
ã
\83
\88
ã
\81
®å
\80
¤ã
\81
¯
、連続する2語の領域に格納
+;;; 2つの32ビット値を加算する
+;;; 32ã
\83
\93
ã
\83
\83
ã
\83
\88
ã
\81
®å
\80
¤ã
\82
\92
、連続する2語の領域に格納
;;; 入力 GR1:数値1の先頭アドレス GR2:数値2の先頭アドレス
;;; 出力 GR0:和の先頭アドレス
ADDL32 START
;;; 入力 GR1:数値1の先頭アドレス GR2:数値2の先頭アドレス
;;; 出力 GR0:和の先頭アドレス
ADDL32 START
@@
-36,8
+36,8
@@
OV LAD GR3,=#8000 ; 強制的にオーバーフロー発生
FIN LAD GR0,A ; GR0 <- A
RPOP
RET
FIN LAD GR0,A ; GR0 <- A
RPOP
RET
-X DS 1 ; 数値1のアドレス
-Y DS 1 ; 数値2のアドレス
+X DS 1 ; 数値1の
先頭
アドレス
+Y DS 1 ; 数値2の
先頭
アドレス
A DS 2 ; 和
LEN DC 2 ; 数値の語数
END
A DS 2 ; 和
LEN DC 2 ; 数値の語数
END