l2strを中心に、casl2libの更新

[YACASL2.git] / as / casl2lib / src / str2l.casl

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