X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcasl2lib%2Ftest%2Finl%2Finl.casl;h=28c6a9c5c4620a5c6e5164d0004aee5918adb2a6;hb=79c6567f23680b5c1723726f541b614caa153fe3;hp=b76c51f2823dae54ea563df068edb69af257a278;hpb=05965ee87822b44616998d347d8f91fbf550eb2e;p=YACASL2.git

diff --git a/as/casl2lib/test/inl/inl.casl b/as/casl2lib/test/inl/inl.casl
index b76c51f..28c6a9c 100644
--- 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