CASL2LIBのドキュメント記述内容とテストを編集、再構成

[YACASL2.git] / as / casl2lib / src_inl / inl_main.casl

diff --git a/as/casl2lib/src_inl/inl_main.casl b/as/casl2lib/src_inl/inl_main.casl
deleted file mode 100644 (file)
index 20237e4..0000000
--- a/as/casl2lib/src_inl/inl_main.casl
+++ /dev/null
@@ -1,22 +0,0 @@
-;;; 0〜65535の範囲にある整数の入力を受け付ける
-;;; 入力 （SVC）
-;;; 出力 GR1: 入力された数値
-;;;      GR0: 文字列の長さ。入力が数字以外の場合は、#FFFF
-;;;      65536以上の正数が入力された場合はエラー
-INL     START
-        IN      IBUF,ILEN       ; 入力文字列を格納
-        LAD     GR1,IBUF
-        LD      GR2,ILEN
-        CPA     GR2,LENMAX
-        JPL     LENOV
-        CALL    STR2L
-        JOV     FIN
-        LD      GR0,GR2
-        JUMP    FIN
-LENOV   LAD     GR0,#FFFF
-        SRA     GR0,1
-FIN     RET
-ILEN    DS      1
-LENMAX  DC      5
-IBUF    DS      5
-        END