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

diff --git a/as/casl2lib/test/inl/inl.casl b/as/casl2lib/test/inl/inl.casl
new file mode 100644
index 0000000..b76c51f
--- /dev/null
+++ b/as/casl2lib/test/inl/inl.casl
@@ -0,0 +1,20 @@
+;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.casl
+MAIN    START
+LOOP    CALL    INL             ; GR1に数値、GR0に文字列の長さ
+        JOV     OV
+        AND     GR0,GR0
+        JZE     FIN
+        CPL     GR0,=#FFFF
+        JZE     NAN
+        CALL    OUTL
+        JUMP    LOOP
+OV      OUT     OVMSG,MLEN1
+        JUMP    LOOP
+NAN     OUT     NANMSG,MLEN2
+        JUMP    LOOP
+FIN     RET
+OVMSG   DC      'Over 65535'
+MLEN1   DC      10
+NANMSG  DC      'Not A Number'
+MLEN2   DC      12
+        END