X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fcasl2lib%2Finl.casl;h=94d6ca006239684836ee752a6382188c0fc36303;hp=3b8832106358e05ec0e05145b989eddb683b8b68;hb=ad8b526f2b1058dc41db2928fbf6605648495593;hpb=473906d23322ef829ee8dad807895235d645981c

diff --git a/as/casl2lib/inl.casl b/as/casl2lib/inl.casl
index 3b88321..94d6ca0 100644
--- a/as/casl2lib/inl.casl
+++ b/as/casl2lib/inl.casl
@@ -28,6 +28,9 @@ IBUF    DS      5
 ;;;           文字列が最大長より大きい場合や数値以外の場合は、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:初期化
@@ -75,6 +78,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'