数値入力用のCASL2ライブラリを修正

[YACASL2.git] / as / casl2lib / test / inl / inl.casl

diff --git a/as/casl2lib/test/inl/inl.casl b/as/casl2lib/test/inl/inl.casl
index b76c51f..28c6a9c 100644 (file)
--- a/as/casl2lib/test/inl/inl.casl
+++ b/as/casl2lib/test/inl/inl.casl
@@ -8,13 +8,18 @@ LOOP    CALL    INL             ; GR1に数値、GR0に文字列の長さ
         JZE     NAN
         CALL    OUTL
         JUMP    LOOP
-OV      OUT     OVMSG,MLEN1
+OV      CPL     GR0,=#FFFF
+        JZE     LENOV
+        OUT     OVMSG,MLEN1
         JUMP    LOOP
 NAN     OUT     NANMSG,MLEN2
         JUMP    LOOP
+LENOV   OUT     LENOVMSG,MLEN3
 FIN     RET
 OVMSG   DC      'Over 65535'
 MLEN1   DC      10
 NANMSG  DC      'Not A Number'
 MLEN2   DC      12
+LENOVMSG DC     'Str too long. Stop'
+MLEN3   DC      18
         END