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
/
str2l.casl
diff --git
a/as/casl2lib/str2l.casl
b/as/casl2lib/str2l.casl
index
fb5e980
..
bf0ed3c
100644
(file)
--- a/
as/casl2lib/str2l.casl
+++ b/
as/casl2lib/str2l.casl
@@
-6,6
+6,9
@@
;;; 文字列が最大長より大きい場合や数値以外の場合は、GR0は#FFFF、OFは1
;;; 依存プログラム: MULL
STR2L START
;;; 文字列が最大長より大きい場合や数値以外の場合は、GR0は#FFFF、OFは1
;;; 依存プログラム: MULL
STR2L START
+ PUSH 0,GR1
+ PUSH 0,GR2
+ PUSH 0,GR3
PUSH 0,GR4
PUSH 0,GR5
XOR GR0,GR0 ; GR0:初期化
PUSH 0,GR4
PUSH 0,GR5
XOR GR0,GR0 ; GR0:初期化
@@
-53,6
+56,9
@@
LENOV LAD GR0,#FFFF ; 文字列が最大長より大きい場合、G
SRA GR0,1 ; ↓ オーバーフロー発生
FIN POP GR5
POP GR4
SRA GR0,1 ; ↓ オーバーフロー発生
FIN POP GR5
POP GR4
+ POP GR3
+ POP GR2
+ POP GR1
RET
ZERO DC '0'
NINE DC '9'
RET
ZERO DC '0'
NINE DC '9'