X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcasl2lib%2Fstr2l.casl;h=bf0ed3ca0a9e1dfdc3bc2b2bbac414410fbadb1a;hb=369009ae92414fc38fb24635f9375ab05b6d9b14;hp=fb5e980506836b137cf62232dfeaf3d851d62f00;hpb=473906d23322ef829ee8dad807895235d645981c;p=YACASL2.git

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