X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fcasl2lib%2Fsrc%2Fstr2l.casl;h=09136dfd48ac56d4a2438dc41856b4fa51136554;hp=1394131bb5f9c710843b6d8e9021a31a2618f8fb;hb=ad8b526f2b1058dc41db2928fbf6605648495593;hpb=26d2b1e3f1b8d08b4089d2442784be654cdf2226

diff --git a/as/casl2lib/src/str2l.casl b/as/casl2lib/src/str2l.casl
index 1394131..09136df 100644
--- a/as/casl2lib/src/str2l.casl
+++ b/as/casl2lib/src/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'