CASL2LIBを独立させるため、削除
authorj8takagi <j8takagi@nifty.com>
Wed, 20 Jun 2018 09:51:40 +0000 (18:51 +0900)
committerj8takagi <j8takagi@nifty.com>
Wed, 20 Jun 2018 09:53:32 +0000 (18:53 +0900)
194 files changed:
as/casl2lib/.gitignore [deleted file]
as/casl2lib/Makefile [deleted file]
as/casl2lib/abs.casl [deleted file]
as/casl2lib/addl32.casl [deleted file]
as/casl2lib/casl2lib.dep [deleted file]
as/casl2lib/diva.casl [deleted file]
as/casl2lib/divl.casl [deleted file]
as/casl2lib/doc/call.gv [deleted file]
as/casl2lib/inl.casl [deleted file]
as/casl2lib/l2str.casl [deleted file]
as/casl2lib/max.casl [deleted file]
as/casl2lib/minim.casl [deleted file]
as/casl2lib/mula.casl [deleted file]
as/casl2lib/mull.casl [deleted file]
as/casl2lib/outa.casl [deleted file]
as/casl2lib/outb.casl [deleted file]
as/casl2lib/outl.casl [deleted file]
as/casl2lib/outpbm.casl [deleted file]
as/casl2lib/pbm16.casl [deleted file]
as/casl2lib/rev.casl [deleted file]
as/casl2lib/sample/call_abs.casl [deleted file]
as/casl2lib/sample/call_addl32.casl [deleted file]
as/casl2lib/sample/call_divl.casl [deleted file]
as/casl2lib/sample/call_inl.casl [deleted file]
as/casl2lib/sample/call_l2str.casl [deleted file]
as/casl2lib/sample/call_minim.casl [deleted file]
as/casl2lib/sample/call_mula.casl [deleted file]
as/casl2lib/sample/call_mull.casl [deleted file]
as/casl2lib/sample/call_outa.casl [deleted file]
as/casl2lib/sample/call_outaq15.casl [deleted file]
as/casl2lib/sample/call_outb.casl [deleted file]
as/casl2lib/sample/call_outbw.casl [deleted file]
as/casl2lib/sample/call_outl.casl [deleted file]
as/casl2lib/sample/call_outlq15.casl [deleted file]
as/casl2lib/sample/call_pbm16.casl [deleted file]
as/casl2lib/sample/call_rev.casl [deleted file]
as/casl2lib/sample/call_str2l.casl [deleted file]
as/casl2lib/sample/call_strlen.casl [deleted file]
as/casl2lib/src/abs.casl [deleted file]
as/casl2lib/src/addl32.casl [deleted file]
as/casl2lib/src/diva.casl [deleted file]
as/casl2lib/src/divl.casl [deleted file]
as/casl2lib/src/inl.casl [deleted file]
as/casl2lib/src/l2str.casl [deleted file]
as/casl2lib/src/max.casl [deleted file]
as/casl2lib/src/minim.casl [deleted file]
as/casl2lib/src/mula.casl [deleted file]
as/casl2lib/src/mull.casl [deleted file]
as/casl2lib/src/mull0.casl [deleted file]
as/casl2lib/src/outa.casl [deleted file]
as/casl2lib/src/outaq15.casl [deleted file]
as/casl2lib/src/outb.casl [deleted file]
as/casl2lib/src/outbw.casl [deleted file]
as/casl2lib/src/outl.casl [deleted file]
as/casl2lib/src/outlq15.casl [deleted file]
as/casl2lib/src/outpbm.casl [deleted file]
as/casl2lib/src/pbm16.casl [deleted file]
as/casl2lib/src/rev.casl [deleted file]
as/casl2lib/src/stdlib.casl [deleted file]
as/casl2lib/src/str2l.casl [deleted file]
as/casl2lib/str2l.casl [deleted file]
doc/casl2lib/Define.mk [deleted symlink]
doc/casl2lib/Makefile [deleted symlink]
doc/casl2lib/Test.mk [deleted symlink]
doc/casl2lib/abs/0.txt [deleted file]
doc/casl2lib/abs/Makefile [deleted file]
doc/casl2lib/abs/call_abs.casl [deleted file]
doc/casl2lib/abs/cmd [deleted file]
doc/casl2lib/addl32/0.txt [deleted file]
doc/casl2lib/addl32/Makefile [deleted file]
doc/casl2lib/addl32/call_addl32.casl [deleted file]
doc/casl2lib/addl32/cmd [deleted file]
doc/casl2lib/diva/0.txt [deleted file]
doc/casl2lib/diva/Makefile [deleted file]
doc/casl2lib/diva/call_diva.casl [deleted file]
doc/casl2lib/diva/cmd [deleted file]
doc/casl2lib/divl/0.txt [deleted file]
doc/casl2lib/divl/Makefile [deleted file]
doc/casl2lib/divl/call_divl.casl [deleted file]
doc/casl2lib/divl/cmd [deleted file]
doc/casl2lib/inl/0.txt [deleted file]
doc/casl2lib/inl/Makefile [deleted file]
doc/casl2lib/inl/call_inl.casl [deleted file]
doc/casl2lib/inl/cmd [deleted file]
doc/casl2lib/inl/in.txt [deleted file]
doc/manual.texi
test/Makefile
test/system/Makefile
test/system/casl2_lib/Define.mk [deleted symlink]
test/system/casl2_lib/Makefile [deleted symlink]
test/system/casl2_lib/Test.mk [deleted symlink]
test/system/casl2_lib/lib_abs/0.txt [deleted file]
test/system/casl2_lib/lib_abs/Makefile [deleted file]
test/system/casl2_lib/lib_abs/cmd [deleted file]
test/system/casl2_lib/lib_addl32/0.txt [deleted file]
test/system/casl2_lib/lib_addl32/Makefile [deleted file]
test/system/casl2_lib/lib_addl32/cmd [deleted file]
test/system/casl2_lib/lib_divl/0.txt [deleted file]
test/system/casl2_lib/lib_divl/Makefile [deleted file]
test/system/casl2_lib/lib_divl/cmd [deleted file]
test/system/casl2_lib/lib_inl/0.txt [deleted file]
test/system/casl2_lib/lib_inl/Makefile [deleted file]
test/system/casl2_lib/lib_inl/cmd [deleted file]
test/system/casl2_lib/lib_inl/teststr.txt [deleted file]
test/system/casl2_lib/lib_minim/0.txt [deleted file]
test/system/casl2_lib/lib_minim/Makefile [deleted file]
test/system/casl2_lib/lib_minim/cmd [deleted file]
test/system/casl2_lib/lib_mula/0.txt [deleted file]
test/system/casl2_lib/lib_mula/Makefile [deleted file]
test/system/casl2_lib/lib_mula/cmd [deleted file]
test/system/casl2_lib/lib_mull/0.txt [deleted file]
test/system/casl2_lib/lib_mull/Makefile [deleted file]
test/system/casl2_lib/lib_mull/cmd [deleted file]
test/system/casl2_lib/lib_outa/0.txt [deleted file]
test/system/casl2_lib/lib_outa/Makefile [deleted file]
test/system/casl2_lib/lib_outa/cmd [deleted file]
test/system/casl2_lib/lib_outaq15/0.txt [deleted file]
test/system/casl2_lib/lib_outaq15/Makefile [deleted file]
test/system/casl2_lib/lib_outaq15/cmd [deleted file]
test/system/casl2_lib/lib_outb/0.txt [deleted file]
test/system/casl2_lib/lib_outb/Makefile [deleted file]
test/system/casl2_lib/lib_outb/cmd [deleted file]
test/system/casl2_lib/lib_outbw/0.txt [deleted file]
test/system/casl2_lib/lib_outbw/Makefile [deleted file]
test/system/casl2_lib/lib_outbw/cmd [deleted file]
test/system/casl2_lib/lib_outl/0.txt [deleted file]
test/system/casl2_lib/lib_outl/Makefile [deleted file]
test/system/casl2_lib/lib_outl/cmd [deleted file]
test/system/casl2_lib/lib_outlq15/0.txt [deleted file]
test/system/casl2_lib/lib_outlq15/Makefile [deleted file]
test/system/casl2_lib/lib_outlq15/cmd [deleted file]
test/system/casl2_lib/lib_rev/0.txt [deleted file]
test/system/casl2_lib/lib_rev/Makefile [deleted file]
test/system/casl2_lib/lib_rev/cmd [deleted file]
test/system/casl2_lib/lib_str2l/0.txt [deleted file]
test/system/casl2_lib/lib_str2l/Makefile [deleted file]
test/system/casl2_lib/lib_str2l/cmd [deleted file]
test/system/comet2_lib/Define.mk [deleted symlink]
test/system/comet2_lib/Makefile [deleted symlink]
test/system/comet2_lib/Test.mk [deleted symlink]
test/system/comet2_lib/lib_abs/0.txt [deleted file]
test/system/comet2_lib/lib_abs/Makefile [deleted file]
test/system/comet2_lib/lib_abs/abs.casl [deleted file]
test/system/comet2_lib/lib_abs/cmd [deleted file]
test/system/comet2_lib/lib_addl32/0.txt [deleted file]
test/system/comet2_lib/lib_addl32/Makefile [deleted file]
test/system/comet2_lib/lib_addl32/addl32.casl [deleted file]
test/system/comet2_lib/lib_addl32/cmd [deleted file]
test/system/comet2_lib/lib_divl/0.txt [deleted file]
test/system/comet2_lib/lib_divl/Makefile [deleted file]
test/system/comet2_lib/lib_divl/cmd [deleted file]
test/system/comet2_lib/lib_divl/divl.casl [deleted file]
test/system/comet2_lib/lib_inl/0.txt [deleted file]
test/system/comet2_lib/lib_inl/Makefile [deleted file]
test/system/comet2_lib/lib_inl/cmd [deleted file]
test/system/comet2_lib/lib_inl/inl.casl [deleted file]
test/system/comet2_lib/lib_inl/teststr.txt [deleted file]
test/system/comet2_lib/lib_minim/0.txt [deleted file]
test/system/comet2_lib/lib_minim/Makefile [deleted file]
test/system/comet2_lib/lib_minim/cmd [deleted file]
test/system/comet2_lib/lib_minim/minim.casl [deleted file]
test/system/comet2_lib/lib_mula/0.txt [deleted file]
test/system/comet2_lib/lib_mula/Makefile [deleted file]
test/system/comet2_lib/lib_mula/cmd [deleted file]
test/system/comet2_lib/lib_mula/mula.casl [deleted file]
test/system/comet2_lib/lib_mull/0.txt [deleted file]
test/system/comet2_lib/lib_mull/Makefile [deleted file]
test/system/comet2_lib/lib_mull/cmd [deleted file]
test/system/comet2_lib/lib_mull/mull.casl [deleted file]
test/system/comet2_lib/lib_outa/0.txt [deleted file]
test/system/comet2_lib/lib_outa/Makefile [deleted file]
test/system/comet2_lib/lib_outa/cmd [deleted file]
test/system/comet2_lib/lib_outaq15/0.txt [deleted file]
test/system/comet2_lib/lib_outaq15/Makefile [deleted file]
test/system/comet2_lib/lib_outaq15/cmd [deleted file]
test/system/comet2_lib/lib_outaq15/outa_q15.casl [deleted file]
test/system/comet2_lib/lib_outb/0.txt [deleted file]
test/system/comet2_lib/lib_outb/Makefile [deleted file]
test/system/comet2_lib/lib_outb/cmd [deleted file]
test/system/comet2_lib/lib_outl/0.txt [deleted file]
test/system/comet2_lib/lib_outl/Makefile [deleted file]
test/system/comet2_lib/lib_outl/cmd [deleted file]
test/system/comet2_lib/lib_outlq15/0.txt [deleted file]
test/system/comet2_lib/lib_outlq15/Makefile [deleted file]
test/system/comet2_lib/lib_outlq15/cmd [deleted file]
test/system/comet2_lib/lib_rev/0.txt [deleted file]
test/system/comet2_lib/lib_rev/Makefile [deleted file]
test/system/comet2_lib/lib_rev/cmd [deleted file]
test/system/disassemble/Define.mk [deleted symlink]
test/system/disassemble/Makefile [deleted symlink]
test/system/disassemble/Test.mk [deleted symlink]
test/system/disassemble/sum_10/0.txt [deleted file]
test/system/disassemble/sum_10/Makefile [deleted file]
test/system/disassemble/sum_10/cmd [deleted file]

diff --git a/as/casl2lib/.gitignore b/as/casl2lib/.gitignore
deleted file mode 100644 (file)
index ba131d7..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-/*.casl
-doc/call.svg
-sample/*.pbm
diff --git a/as/casl2lib/Makefile b/as/casl2lib/Makefile
deleted file mode 100644 (file)
index 9b17270..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-.PHONY: all libfiles install-casl2lib uninstall-casl2lib
-
-CAT := cat
-CASL2OUT := casl2 -M4096 -O
-RMF := rm -f
-RMDIR := rmdir
-ECHO := echo
-INSTALL := install
-CHMOD := chmod
-
-prefix ?= ~
-casl2libdir ?= $(prefix)/share/casl2lib
-
-all: stdlib.casl libfiles
-
-%.casl: src/%.casl
-       $(CHMOD) +w $@
-       $(CAT) $^ >$@
-       $(CHMOD) -w $@
-
-%.o: %.casl
-       $(CASL2OUT)$< $@
-
-include casl2lib.dep
-
-clean:
-
-distclean:
-       $(RM) *.casl
-
-install-casl2lib: *.casl
-       $(INSTALL) -d $(casl2libdir)
-       $(INSTALL) $^ $(casl2libdir)/
-
-uninstall-casl2lib:
-       @$(RMF) $(casl2libdir)/*.casl
-       @$(RMDIR) $(casl2libdir) || if test -e $(casl2libdir); then $(ECHO) "$(casl2libdir): files may be added by others."; fi
diff --git a/as/casl2lib/abs.casl b/as/casl2lib/abs.casl
deleted file mode 100644 (file)
index 6f03a67..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-;;; GR1を符号付き整数とみなし、絶対値に変換
-;;; 入力 GR1: -32768から32767の整数
-;;; 出力 GR1: 入力された整数の絶対値
-;;;       OF: 入力されたGR1が-32768の場合、1
-;;;       SF: 入力されたGR1が負数(-32767〜-1)の場合、1
-ABS     START
-        AND     GR1,GR1         ; GR1が0以上の場合は、FINへジャンプ
-        JPL     FIN             ; ↓
-        JZE     FIN             ; ↓
-        XOR     GR1,ALLON       ; GR1のビットを反転
-        ADDA    GR1,ONE         ; GR1に1を追加
-        JOV     FIN             ; 足し算でオーバーフローの場合は、OF:1を保持してFINへジャンプ
-        CPL     GR1,ALLON       ; SF:1を設定
-FIN     RET
-ONE     DC      1
-ALLON   DC      #FFFF
-        END
diff --git a/as/casl2lib/addl32.casl b/as/casl2lib/addl32.casl
deleted file mode 100644 (file)
index 23740bf..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-;;; 2つの32ビット値を加算する
-;;; 32ビットの値を、連続する2語の領域に格納
-;;; 入力 GR1:数値1の先頭アドレス GR2:数値2の先頭アドレス
-;;; 出力 GR0:和の先頭アドレス
-ADDL32  START
-        RPUSH
-        ST      GR1,X           ; X <- GR1:数値1
-        ST      GR2,Y           ; Y <- GR2:数値2
-        LD      GR3,LEN         ; GR3:語を表すインデックス 初期化
-        XOR     GR4,GR4         ; GR4:キャリー値 初期化
-        LAD     GR3,-1,GR3      ; ↓
-LOOP    AND     GR3,GR3         ; ループ先頭。(GR3 = 0)の場合は、ループ脱出
-        JMI     FIN             ; ↓
-        LD      GR1,X           ; GR1 <- (X + GR3)の値
-        ADDL    GR1,GR3         ; ↓
-        LD      GR1,0,GR1       ; ↓
-        LD      GR2,Y           ; GR2 <- (Y + GR3)の値
-        ADDL    GR2,GR3         ; ↓
-        LD      GR2,0,GR2       ; ↓
-        ADDL    GR1,GR2         ; GR1 <- GR1 + GR2
-        JOV     CRRY            ; オーバーフロー時は、CRRYへジャンプ
-        ADDL    GR1,GR4         ; GR1 <- GR1 + GR4
-        JOV     CRRY            ; オーバーフロー時は、CRRYへジャンプ
-        ST      GR1,A,GR3       ; (A + GR3) <- GR1
-        LAD     GR3,-1,GR3      ; GR3 <- GR3 - 1
-        XOR     GR4,GR4         ; GR4 <- 0
-        JUMP    LOOP            ; ループ先頭へジャンプ
-CRRY    AND     GR3,GR3         ; 最上位の語でオーバーフローした場合、OVへジャンプ
-        JMI     OV              ; ↓
-        ST      GR1,A,GR3       ; (A + GR3) <- GR1
-        LAD     GR3,-1,GR3      ; GR3 <- GR3 - 1
-        LAD     GR4,1           ; GR4 <- 1
-        JUMP    LOOP            ; ループ終端
-OV      LAD     GR3,=#8000      ; 強制的にオーバーフロー発生
-        SLL     GR3,1           ; ↓
-FIN     LAD     GR0,A           ; GR0 <- A
-        RPOP
-        RET
-X       DS      1               ; 数値1の先頭アドレス
-Y       DS      1               ; 数値2の先頭アドレス
-A       DS      2               ; 和
-LEN     DC      2               ; 数値の語数
-        END
diff --git a/as/casl2lib/casl2lib.dep b/as/casl2lib/casl2lib.dep
deleted file mode 100644 (file)
index ae4751b..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-stdlib.casl: src/stdlib.casl src/abs.casl src/addl32.casl src/diva.casl src/divl.casl src/inl.casl src/l2str.casl src/max.casl src/minim.casl src/mula.casl src/mull.casl src/outa.casl src/outaq15.casl src/outb.casl src/outbw.casl src/outl.casl src/outlq15.casl src/outpbm.casl src/pbm16.casl src/rev.casl src/str2l.casl
-
-libfiles: abs.casl addl32.casl diva.casl divl.casl inl.casl l2str.casl max.casl minim.casl mula.casl mull.casl outa.casl outaq15.casl outb.casl outbw.casl outl.casl outlq15.casl outpbm.casl pbm16.casl str2l.casl
-
-abs.casl: src/abs.casl
-
-addl32.casl: src/addl32.casl
-
-diva.casl: src/diva.casl divl.casl
-
-divl.casl: src/divl.casl
-
-inl.casl: src/inl.casl str2l.casl
-
-l2str.casl: src/l2str.casl divl.casl rev.casl
-
-max.casl: src/max.casl
-
-minim.casl: src/minim.casl
-
-mula.casl: src/mula.casl mull.casl
-
-mull.casl: src/mull.casl
-
-outa.casl: src/outa.casl abs.casl divl.casl rev.casl
-
-outaq15.casl: src/outaq15.casl abs.casl mull.casl
-
-outb.casl: src/outb.casl divl.casl rev.casl
-
-outbw.casl: src/outbw.casl divl.casl rev.casl
-
-outl.casl: src/outl.casl divl.casl rev.casl
-
-outlq15.casl: src/outlq15.casl mull.casl
-
-outpbm.casl: src/outpbm.casl l2str.casl
-
-pbm16.casl: src/pbm16.casl outb.casl
-
-rev.casl: src/rev.casl
-
-str2l.casl: src/str2l.casl mull.casl
diff --git a/as/casl2lib/diva.casl b/as/casl2lib/diva.casl
deleted file mode 100644 (file)
index 9b34690..0000000
+++ /dev/null
@@ -1,88 +0,0 @@
-;;; 符号付き整数の割算を筆算方式で行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; 次の場合はオーバーフロー
-;;;     GR1 = -32768; GR2 = -32768; GR2 = 0
-;;;
-DIVA    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; 商を初期化
-        XOR     GR4,GR4         ; マイナスフラグを初期化
-CHK1    AND     GR1,GR1         ; (GR1 > 0)の場合は、CHK2へジャンプ
-        JPL     CHK2            ; ↓
-        XOR     GR1,ALLON       ; GR1の正負を反転
-        ADDA    GR1,ONE         ; ↓
-        JOV     FIN             ; (GR1 = -32768)の場合は終了
-        XOR     GR4,ONE         ; GR4 <- 1
-CHK2    AND     GR2,GR2         ; (GR1 > 0)の場合は、DIVへジャンプ
-        JPL     DIV             ; ↓
-        XOR     GR2,ALLON       ; GR2の正負を反転
-        ADDA    GR2,ONE         ; ↓
-        JOV     FIN             ; (GR2 = -32768)の場合は終了
-        XOR     GR4,ONE         ; マイナスフラグを反転
-DIV     CALL    DIVL            ; GR0 <- GR1 / GR2; GR3 <- GR1 mod GR2
-        JOV     FIN             ; (GR2 = 0)の場合は終了
-MIN     AND     GR4,GR4         ; マイナスフラグがオフの場合、終了
-        JZE     FIN             ; ↓
-        XOR     GR0,ALLON       ; GR1の正負を反転
-        ADDA    GR0,ONE         ; ↓
-        XOR     GR3,ALLON       ; GR3の正負を反転
-        ADDA    GR3,ONE         ; ↓
-        JUMP    FIN
-OV      ADDL    GR0,=#8000
-FIN     POP    GR4
-       POP     GR2
-        POP    GR1
-        RET
-ONE     DC      1
-ALLON   DC      #FFFF
-        END
-;;; 0〜65535の範囲にある正数の割算(筆算方式)を行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
-DIVL    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0:商 初期化
-        XOR     GR3,GR3         ; GR3:剰余 初期化
-        AND     GR2,GR2         ; (GR2 = 0)の場合、DIVZEROへジャンプ
-        JZE     DIVZERO         ; ↓
-        AND     GR1,GR1         ; (GR1 = 0)の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        ST      GR2,Y           ; YにGR2の初期値を保存
-        LAD     GR4,1           ; GR4:対象ビットのインデックス 初期化
-SL      CPL     GR2,GR1         ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
-        JPL     LOOP            ; ↓
-        SLL     GR4,1           ; GR4を1回左シフト
-        ST      GR2,TMP         ; GR2の値をTMPに退避
-        SLL     GR2,1           ; GR2を1回左シフト
-        JOV     YOV             ; オーバーフローの場合は、YOVへジャンプ
-        JUMP    SL              ; ループ終端
-YOV     LD      GR2,TMP         ; GR2の値をTMPから復元
-        SRL     GR4,1           ; GR4を1回右シフト
-        JUMP    LPIN            ; LPINへジャンプ
-LOOP    SRL     GR4,1           ; ループ先頭。GR4を1回右シフト
-        JZE     SETMOD          ; (GR4 = 0)の場合、SETMODへループ脱出
-        SRL     GR2,1           ; GR2を1回右シフト
-        CPL     GR1,Y           ; (GR1 < Y)の場合、SETMODへループ脱出
-        JMI     SETMOD          ; ↓
-        CPL     GR1,GR2         ; (GR1 < GR2)の場合、ループ先頭へジャンプ
-        JMI     LOOP            ; ↓
-LPIN    SUBL    GR1,GR2         ; GR1 <- GR1 - GR2
-        ADDL    GR0,GR4         ; GR0 <- GR0 + GR4
-        JUMP    LOOP            ; ループ終端
-DIVZERO LAD     GR3,#8000       ; 強制的にオーバーフローを発生させ、GR3 <- 0
-        SLL     GR3,1           ; ↓
-        JUMP    FIN             ; FIN へジャンプ
-SETMOD  LD      GR3,GR1         ; GR3 <- GR1。剰余の設定
-FIN     POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-Y       DS      1
-TMP     DS      1
-        END
diff --git a/as/casl2lib/divl.casl b/as/casl2lib/divl.casl
deleted file mode 100644 (file)
index 3591366..0000000
+++ /dev/null
@@ -1,47 +0,0 @@
-;;; 0〜65535の範囲にある正数の割算(筆算方式)を行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
-DIVL    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0:商 初期化
-        XOR     GR3,GR3         ; GR3:剰余 初期化
-        AND     GR2,GR2         ; (GR2 = 0)の場合、DIVZEROへジャンプ
-        JZE     DIVZERO         ; ↓
-        AND     GR1,GR1         ; (GR1 = 0)の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        ST      GR2,Y           ; YにGR2の初期値を保存
-        LAD     GR4,1           ; GR4:対象ビットのインデックス 初期化
-SL      CPL     GR2,GR1         ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
-        JPL     LOOP            ; ↓
-        SLL     GR4,1           ; GR4を1回左シフト
-        ST      GR2,TMP         ; GR2の値をTMPに退避
-        SLL     GR2,1           ; GR2を1回左シフト
-        JOV     YOV             ; オーバーフローの場合は、YOVへジャンプ
-        JUMP    SL              ; ループ終端
-YOV     LD      GR2,TMP         ; GR2の値をTMPから復元
-        SRL     GR4,1           ; GR4を1回右シフト
-        JUMP    LPIN            ; LPINへジャンプ
-LOOP    SRL     GR4,1           ; ループ先頭。GR4を1回右シフト
-        JZE     SETMOD          ; (GR4 = 0)の場合、SETMODへループ脱出
-        SRL     GR2,1           ; GR2を1回右シフト
-        CPL     GR1,Y           ; (GR1 < Y)の場合、SETMODへループ脱出
-        JMI     SETMOD          ; ↓
-        CPL     GR1,GR2         ; (GR1 < GR2)の場合、ループ先頭へジャンプ
-        JMI     LOOP            ; ↓
-LPIN    SUBL    GR1,GR2         ; GR1 <- GR1 - GR2
-        ADDL    GR0,GR4         ; GR0 <- GR0 + GR4
-        JUMP    LOOP            ; ループ終端
-DIVZERO LAD     GR3,#8000       ; 強制的にオーバーフローを発生させ、GR3 <- 0
-        SLL     GR3,1           ; ↓
-        JUMP    FIN             ; FIN へジャンプ
-SETMOD  LD      GR3,GR1         ; GR3 <- GR1。剰余の設定
-FIN     POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-Y       DS      1
-TMP     DS      1
-        END
diff --git a/as/casl2lib/doc/call.gv b/as/casl2lib/doc/call.gv
deleted file mode 100644 (file)
index 2579add..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-digraph sample {
-    graph [shape="" style="" color="" fillcolor="" fontname="sans-serif" fontsize="12" width="2"];
-    DIVA -> DIVL;
-    INL -> STR2L;
-    L2STR -> DIVL;
-    L2STR -> REV;
-    MULA -> MULL;
-    OUTA -> ABS;
-    OUTA -> DIVL;
-    OUTA -> REV;
-    OUTA_Q15 -> ABS;
-    OUTA_Q15 -> MULL;
-    OUTB -> DIVL;
-    OUTB -> REV;
-    OUTB_W -> DIVL;
-    OUTB_W -> REV;
-    OUTL -> DIVL;
-    OUTL -> REV;
-    OUTL_Q15 -> MULL;
-    OUTPBM -> L2STR;
-    PBM16 -> OUTB;
-    STR2L -> MULL;
-}
-
diff --git a/as/casl2lib/inl.casl b/as/casl2lib/inl.casl
deleted file mode 100644 (file)
index f49ab10..0000000
+++ /dev/null
@@ -1,102 +0,0 @@
-;;; 0から65535の範囲にある整数の入力を受け付ける
-;;; 入力 (SVC)
-;;; 出力 GR1: 入力された数値
-;;;     GR2: 文字列の長さ。
-;;;          入力が数字以外の場合は、SFフラグを設定
-;;;          65535を超える数値の場合は、OFフラグを設定
-INL     START
-        PUSH    0,GR3
-        IN      IBUF,ILEN       ; 入力文字列を格納
-        LAD     GR1,IBUF
-        LD      GR2,ILEN
-        CALL    STR2L
-        JOV     FIN
-        JMI     FIN
-        LD      GR1,GR3
-FIN     POP     GR3
-        RET
-IBUF    DS      5
-ILEN    DS      1
-MAXLEN  DC      5
-        END
-;;; 10進数の整数を表す文字列を数値に変換
-;;; 数値の範囲は、0から65535
-;;; 入力 GR1: 文字列を格納するメモリーの先頭アドレス
-;;;     GR2: 文字列の長さ。最大5けた
-;;; 出力 GR3: 数値
-;;;           文字列が最大長より大きい場合と数値以外の場合は、GR3は#FFFF、OFは1
-;;;           数値以外の場合、OFは1
-;;; 依存プログラム: MULL
-STR2L   START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        PUSH    0,GR5
-        PUSH    0,GR6
-        PUSH    0,GR7
-        XOR     GR3,GR3         ; GR3の初期化
-        AND     GR2,GR2         ; GR2 = 0の場合、OVへジャンプ
-        JZE     OV              ; ↓
-        CPL     GR2,=5          ; GR2 > 5の場合、OVへジャンプ
-        JPL     OV              ; ↓
-        XOR     GR4,GR4         ; GR4: インデックスの初期化
-        LD      GR5,GR1         ; GR5 <- GR1
-        LD      GR6,GR2         ; GR6 <- GR2
-        XOR     GR1,GR1         ; GR1の初期化
-STOL    LD      GR1,GR5         ; GR1に、入力文字列中の次の桁を格納
-        ADDL    GR1,GR4         ; ↓
-        LD      GR1,0,GR1       ; ↓
-        LD      GR7,ZERO        ; GR1 < '0'の場合、FINへジャンプ
-        CPL     GR1,GR7         ; ↓
-        JMI     FIN             ; ↓
-        LD      GR7,NINE        ; GR1 > '9'の場合、FINへジャンプ
-        CPL     GR7,GR1         ; ↓
-        JMI     FIN             ; ↓
-        SUBL    GR1,ZERO        ; GR1の文字を、対応する数値に変換
-        ADDL    GR3,GR1
-        JOV     FIN
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        CPL     GR4,GR6         ; GR4 = GR6の場合、ループ脱出
-        JZE     FIN             ; ↓
-MUL10   LAD     GR2,10          ; GR2:10進数の 10
-        LD      GR1,GR3         ; GR1 <- GR3
-        CALL    MULL            ; MULLを呼び出し、GR3 <- GR1 * GR2
-        JUMP    STOL            ; ループ終端
-OV      LAD     GR7,1           ; オーバーフロー発生
-        SRL     GR7,1           ; ↓
-FIN     POP     GR7
-        POP     GR6
-        POP     GR5
-        POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-ZERO    DC      '0'
-NINE    DC      '9'
-        END
-;;; 0〜65535の範囲にある正数のかけ算(筆算方式)を行う
-;;; 入力 GR1:被乗数 GR2:乗数
-;;; 出力 GR3:積
-;;; 積が65535より大きい場合は、オーバーフロー
-MULL    START
-        XOR     GR3,GR3         ; GR3の初期化
-        AND     GR1,GR1         ; GR1 = 0 の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        AND     GR2,GR2         ; GR2 = 0 の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        PUSH    0,GR1           ; GR1の退避
-        PUSH    0,GR2           ; GR2の退避
-LOOP    SRL     GR2,1           ; ループ開始。SRLを1つ右シフト
-        JOV     ON              ; 乗数の最下位ビットが1の場合、ONへジャンプ
-        JUMP    NEXT            ; NEXTへジャンプ
-ON      ADDL    GR3,GR1         ; GR3 <- GR3 + GR1
-        JOV     POST            ; GR3がオーバーフローした場合、POSTへジャンプ
-NEXT    AND     GR2,GR2         ; GR2 = 0 の場合、POSTへジャンプ
-        JZE     POST            ; ↓
-        SLL     GR1,1           ; GR1を1つ左シフト
-        JOV     POST            ; GR1がオーバーフローした場合、POSTへジャンプ
-        JUMP    LOOP            ; ループ終端
-POST    POP     GR2             ; GR2の復元
-        POP     GR1             ; GR1の復元
-FIN     RET
-        END
diff --git a/as/casl2lib/l2str.casl b/as/casl2lib/l2str.casl
deleted file mode 100644 (file)
index 602effc..0000000
+++ /dev/null
@@ -1,104 +0,0 @@
-;;; 符号なし整数を文字列に変換する。
-;;; 符号なし整数を文字列に変換する。
-;;; 入力 GR1:符号なし整数 G2:変換した文字列を格納するメモリーの先頭アドレス
-;;; 出力 GR0:文字列の長さ (同上)
-;;; 依存プログラム: DIVL, REV
-L2STR   START
-        PUSH    0,GR1
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0 <- 0
-        LD      GR4,GR2         ; GR4 <- GR2
-        PUSH    0,GR2           ; GR2の保存
-        LAD     GR2,10          ; GR2 <- 10。10進数の 10
-LOOP    LD      GR1,GR1         ; ループ先頭。GR1をテスト
-        JZE     SRT             ; GR1が0の場合、ループ終了
-        CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
-        ADDL    GR3,='0'        ; GR3を文字に変換
-        ST      GR3,0,GR4       ; GR4のアドレスに、GR3を格納
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        LD      GR1,GR0         ; GR0の商をGR1にコピー
-        JUMP    LOOP            ; ループ終端
-SRT     POP     GR2             ; GR2の復元
-        LD      GR1,GR2         ; GR1に文字列のアドレスを格納
-        SUBL    GR4,GR2         ; GR4 <- GR4 - GR2
-        LD      GR2,GR4         ; GR2 <- GR4
-        CALL    REV             ; 文字列を逆順に並べ替え
-        LD      GR0,GR2         ; GR0 <- GR4 文字列の長さを格納
-        POP     GR4
-        POP     GR1
-        RET
-        END
-;;; 0〜65535の範囲にある正数の割算(筆算方式)を行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
-DIVL    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0:商 初期化
-        XOR     GR3,GR3         ; GR3:剰余 初期化
-        AND     GR2,GR2         ; (GR2 = 0)の場合、DIVZEROへジャンプ
-        JZE     DIVZERO         ; ↓
-        AND     GR1,GR1         ; (GR1 = 0)の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        ST      GR2,Y           ; YにGR2の初期値を保存
-        LAD     GR4,1           ; GR4:対象ビットのインデックス 初期化
-SL      CPL     GR2,GR1         ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
-        JPL     LOOP            ; ↓
-        SLL     GR4,1           ; GR4を1回左シフト
-        ST      GR2,TMP         ; GR2の値をTMPに退避
-        SLL     GR2,1           ; GR2を1回左シフト
-        JOV     YOV             ; オーバーフローの場合は、YOVへジャンプ
-        JUMP    SL              ; ループ終端
-YOV     LD      GR2,TMP         ; GR2の値をTMPから復元
-        SRL     GR4,1           ; GR4を1回右シフト
-        JUMP    LPIN            ; LPINへジャンプ
-LOOP    SRL     GR4,1           ; ループ先頭。GR4を1回右シフト
-        JZE     SETMOD          ; (GR4 = 0)の場合、SETMODへループ脱出
-        SRL     GR2,1           ; GR2を1回右シフト
-        CPL     GR1,Y           ; (GR1 < Y)の場合、SETMODへループ脱出
-        JMI     SETMOD          ; ↓
-        CPL     GR1,GR2         ; (GR1 < GR2)の場合、ループ先頭へジャンプ
-        JMI     LOOP            ; ↓
-LPIN    SUBL    GR1,GR2         ; GR1 <- GR1 - GR2
-        ADDL    GR0,GR4         ; GR0 <- GR0 + GR4
-        JUMP    LOOP            ; ループ終端
-DIVZERO LAD     GR3,#8000       ; 強制的にオーバーフローを発生させ、GR3 <- 0
-        SLL     GR3,1           ; ↓
-        JUMP    FIN             ; FIN へジャンプ
-SETMOD  LD      GR3,GR1         ; GR3 <- GR1。剰余の設定
-FIN     POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-Y       DS      1
-TMP     DS      1
-        END
-;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
-;;;     例: 12345 -> 54321、54321- -> -12345
-;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
-;;; 出力 (同上)
-REV     START
-        RPUSH
-        LAD     GR3,0           ; GR3の初期化
-PU      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     NEXT            ; ↓
-        LD      GR4,GR1         ; GR4 <- GR1
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        LD      GR5,0,GR4       ; GR5 <- GR4アドレスの値
-        PUSH    0,GR5           ; GR5をプッシュ
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PU              ; ループ終端
-NEXT    LAD     GR3,0           ; GR3の初期化
-PO      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     FIN             ; ↓
-        POP     GR5             ; GR5にポップ
-        LD      GR4,GR1         ; GR4にGR1の値をコピー
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        ST      GR5,0,GR4       ; GR4のアドレス <- GR5の値
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PO              ; ループ終端
-FIN     RPOP
-        RET
-        END
diff --git a/as/casl2lib/max.casl b/as/casl2lib/max.casl
deleted file mode 100644 (file)
index b7afe8f..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-;;; 連続した複数のWORDを符号付き整数とみなして最大値を返す
-;;; 入力: GR1: WORD値を格納したアドレス GR2: 値の個数
-;;; 出力: GR0: 最大値
-MAX     START
-        RPUSH
-        LD      GR0,0,GR1       ; MAX <- GR1アドレスの値
-        ST      GR0,MAX         ; ↓
-        LAD     GR3,0           ; GR3:インデックス 初期化
-S1      CPA     GR3,GR2         ; ループ先頭。(GR2 = GR3)の場合、終了
-        JZE     RET             ; ↓
-        LAD     GR1,1,GR1       ; GR1 <- GR1 + 1
-        LD      GR0,0,GR1       ;
-        CPA     GR0,MAX         ;
-        JMI     S2              ;
-        JZE     S2              ;
-        ST      GR0,MAX         ;
-S2      LAD     GR3,1,GR3       ;
-        JUMP    S1              ;
-RET     LD      GR0,MAX         ;
-        RPOP
-        RET
-MAX     DS      1               ; 最小値を格納
-        END
diff --git a/as/casl2lib/minim.casl b/as/casl2lib/minim.casl
deleted file mode 100644 (file)
index 83d973f..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-;;; 複数のWORD値の中から、最小値を返す
-;;; 入力: GR1: WORD値を格納したアドレス GR2: 値の個数
-;;; 出力: GR0: 最小値
-MINIM   START
-        RPUSH
-        LD      GR0,0,GR1       ; MIN <- GR1アドレスの値
-        ST      GR0,MIN         ; ↓
-        LAD     GR3,0           ; GR3:インデックス 初期化
-S1      CPA     GR3,GR2         ; ループ先頭。(GR2 = GR3)の場合、終了
-        JZE     RET             ; ↓
-        LAD     GR1,1,GR1       ; GR1 <- GR1 + 1
-        LD      GR0,0,GR1       ;
-        CPA     GR0,MIN         ;
-        JPL     S2              ;
-        JZE     S2              ;
-        ST      GR0,MIN         ;
-S2      LAD     GR3,1,GR3       ;
-        JUMP    S1              ;
-RET     LD      GR0,MIN         ;
-        RPOP
-        RET
-MIN     DS      1               ; 最小値を格納
-        END
diff --git a/as/casl2lib/mula.casl b/as/casl2lib/mula.casl
deleted file mode 100644 (file)
index 2ac0524..0000000
+++ /dev/null
@@ -1,67 +0,0 @@
-;;; -32767〜32767の範囲にある正数のかけ算(筆算方式)を行う
-;;; 入力 GR1:被乗数 GR2:乗数
-;;; 出力 GR0:積
-;;; 被乗数または乗数が-32768の場合は、オーバーフロー
-;;; 積が-32767未満または32767より大きい場合は、GR0は積の下位16ビットになり、オーバーフロー
-MULA    START
-        RPUSH
-        XOR     GR0,GR0         ; 積
-        AND     GR1,GR1         ; (GR1 = 0)の場合、終了
-        JZE     FIN             ; ↓
-        AND     GR2,GR2         ; (GR2 = 0)の場合、終了
-        JZE     FIN             ; ↓
-        LAD     GR3,1           ; 対象ビット
-        XOR     GR4,GR4         ; マイナスフラグ
-CHK1    AND     GR1,GR1         ; (GR1 > 0)の場合は、CHK2へジャンプ
-        JPL     CHK2            ; ↓
-        XOR     GR1,ALLON       ; GR1の正負を反転
-        ADDA    GR1,ONE         ; ↓
-        JOV     FIN             ; (GR1 = -32768)の場合は終了
-        XOR     GR4,ONE         ; GR4 <- 1
-CHK2    AND     GR2,GR2         ; (GR1 > 0)の場合は、LOOPへジャンプ
-        JPL     MUL             ; ↓
-        XOR     GR2,ALLON       ; GR2の正負を反転
-        ADDA    GR2,ONE         ; ↓
-        JOV     FIN             ; (GR2 = -32768)の場合は終了
-        XOR     GR4,ONE         ; マイナスフラグを反転
-MUL     CALL    MULL            ; GR0 <- GR1 * GR2
-        JOV     FIN
-        AND     GR0,GR0
-        JMI     OV
-MIN     AND     GR4,GR4         ; マイナスフラグがオフの場合、終了
-        JZE     FIN             ; ↓
-        XOR     GR0,ALLON       ; GR1の正負を反転
-        ADDA    GR0,ONE         ; ↓
-        JUMP    FIN
-OV      ADDL    GR0,=#8000
-FIN     RPOP
-        RET
-ONE     DC      1
-ALLON   DC      #FFFF
-        END
-;;; 0〜65535の範囲にある正数のかけ算(筆算方式)を行う
-;;; 入力 GR1:被乗数 GR2:乗数
-;;; 出力 GR3:積
-;;; 積が65535より大きい場合は、オーバーフロー
-MULL    START
-        XOR     GR3,GR3         ; GR3の初期化
-        AND     GR1,GR1         ; GR1 = 0 の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        AND     GR2,GR2         ; GR2 = 0 の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        PUSH    0,GR1           ; GR1の退避
-        PUSH    0,GR2           ; GR2の退避
-LOOP    SRL     GR2,1           ; ループ開始。SRLを1つ右シフト
-        JOV     ON              ; 乗数の最下位ビットが1の場合、ONへジャンプ
-        JUMP    NEXT            ; NEXTへジャンプ
-ON      ADDL    GR3,GR1         ; GR3 <- GR3 + GR1
-        JOV     POST            ; GR3がオーバーフローした場合、POSTへジャンプ
-NEXT    AND     GR2,GR2         ; GR2 = 0 の場合、POSTへジャンプ
-        JZE     POST            ; ↓
-        SLL     GR1,1           ; GR1を1つ左シフト
-        JOV     POST            ; GR1がオーバーフローした場合、POSTへジャンプ
-        JUMP    LOOP            ; ループ終端
-POST    POP     GR2             ; GR2の復元
-        POP     GR1             ; GR1の復元
-FIN     RET
-        END
diff --git a/as/casl2lib/mull.casl b/as/casl2lib/mull.casl
deleted file mode 100644 (file)
index 53579ce..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-;;; 0〜65535の範囲にある正数のかけ算(筆算方式)を行う
-;;; 入力 GR1:被乗数 GR2:乗数
-;;; 出力 GR3:積
-;;; 積が65535より大きい場合は、オーバーフロー
-MULL    START
-        XOR     GR3,GR3         ; GR3の初期化
-        AND     GR1,GR1         ; GR1 = 0 の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        AND     GR2,GR2         ; GR2 = 0 の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        PUSH    0,GR1           ; GR1の退避
-        PUSH    0,GR2           ; GR2の退避
-LOOP    SRL     GR2,1           ; ループ開始。SRLを1つ右シフト
-        JOV     ON              ; 乗数の最下位ビットが1の場合、ONへジャンプ
-        JUMP    NEXT            ; NEXTへジャンプ
-ON      ADDL    GR3,GR1         ; GR3 <- GR3 + GR1
-        JOV     POST            ; GR3がオーバーフローした場合、POSTへジャンプ
-NEXT    AND     GR2,GR2         ; GR2 = 0 の場合、POSTへジャンプ
-        JZE     POST            ; ↓
-        SLL     GR1,1           ; GR1を1つ左シフト
-        JOV     POST            ; GR1がオーバーフローした場合、POSTへジャンプ
-        JUMP    LOOP            ; ループ終端
-POST    POP     GR2             ; GR2の復元
-        POP     GR1             ; GR1の復元
-FIN     RET
-        END
diff --git a/as/casl2lib/outa.casl b/as/casl2lib/outa.casl
deleted file mode 100644 (file)
index c5ee7d1..0000000
+++ /dev/null
@@ -1,135 +0,0 @@
-;;; GR1に格納された値を、10進数の整数値(-32768〜32767)として表示
-OUTA    START
-        RPUSH
-        LAD     GR2,10          ; GR2に10進数の「10」を格納。
-        LAD     GR0,0           ; GR0 <- 0
-        LAD     GR4,0           ; 負数フラグ。GR1が負数の場合、GR4は1
-        LAD     GR5,0           ; 整数値の長さ
-        AND     GR1,GR1         ; GR1をテスト
-        JZE     ZPRT            ; GR1が0の場合、ZPRTにジャンプ
-        JPL     STI             ; GR1が正数の場合、STIにジャンプ
-        LAD     GR4,1           ; GR1が負数の場合、GR4をオン
-        CALL    ABS             ;                  GR1を正数に変換
-STI     CPL     GR1,GR2         ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
-        JMI     STLST           ; ↓
-        CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
-        LD      GR1,GR3         ; GR1にGR3をコピー
-        LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR5     ; (STR + GR5) <- GR1
-        LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
-        LD      GR1,GR0         ; GR0をGR1にコピー
-        JUMP    STI             ; ループ終端
-STLST   LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR5     ; (STR + GR5) <- GR1
-        LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
-        AND     GR4,GR4         ; 正数の場合
-        JZE     PRT             ; ↓
-        LD      GR1,='-'        ; 負数の場合、「-」をSTR領域に格納
-        ST      GR1,STR,GR5     ; (STR + GR5) <- GR1
-        LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
-        JUMP    PRT             ; PRTにジャンプ
-ZPRT    LD      GR1,NCHAR       ; 「0」をSTR領域に格納
-        ST      GR1,STR,GR5     ; (STR + GR5) <- GR1
-        LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
-PRT     ST      GR5,LEN         ; LEN <- GR5
-        LD      GR2,LEN         ; GR2にLENの値を格納
-        LAD     GR1,STR         ; GR1に文字列のアドレスを格納
-        CALL    REV             ; 文字列を逆順に並べ替え
-        OUT     STR,LEN         ; 文字列を出力
-        RPOP
-        RET
-STR     DS      17
-LEN     DS      1
-NCHAR   DC      '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-        END
-;;; GR1を符号付き整数とみなし、絶対値に変換
-;;; 入力 GR1: -32768から32767の整数
-;;; 出力 GR1: 入力された整数の絶対値
-;;;       OF: 入力されたGR1が-32768の場合、1
-;;;       SF: 入力されたGR1が負数(-32767〜-1)の場合、1
-ABS     START
-        AND     GR1,GR1         ; GR1が0以上の場合は、FINへジャンプ
-        JPL     FIN             ; ↓
-        JZE     FIN             ; ↓
-        XOR     GR1,ALLON       ; GR1のビットを反転
-        ADDA    GR1,ONE         ; GR1に1を追加
-        JOV     FIN             ; 足し算でオーバーフローの場合は、OF:1を保持してFINへジャンプ
-        CPL     GR1,ALLON       ; SF:1を設定
-FIN     RET
-ONE     DC      1
-ALLON   DC      #FFFF
-        END
-;;; 0〜65535の範囲にある正数の割算(筆算方式)を行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
-DIVL    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0:商 初期化
-        XOR     GR3,GR3         ; GR3:剰余 初期化
-        AND     GR2,GR2         ; (GR2 = 0)の場合、DIVZEROへジャンプ
-        JZE     DIVZERO         ; ↓
-        AND     GR1,GR1         ; (GR1 = 0)の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        ST      GR2,Y           ; YにGR2の初期値を保存
-        LAD     GR4,1           ; GR4:対象ビットのインデックス 初期化
-SL      CPL     GR2,GR1         ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
-        JPL     LOOP            ; ↓
-        SLL     GR4,1           ; GR4を1回左シフト
-        ST      GR2,TMP         ; GR2の値をTMPに退避
-        SLL     GR2,1           ; GR2を1回左シフト
-        JOV     YOV             ; オーバーフローの場合は、YOVへジャンプ
-        JUMP    SL              ; ループ終端
-YOV     LD      GR2,TMP         ; GR2の値をTMPから復元
-        SRL     GR4,1           ; GR4を1回右シフト
-        JUMP    LPIN            ; LPINへジャンプ
-LOOP    SRL     GR4,1           ; ループ先頭。GR4を1回右シフト
-        JZE     SETMOD          ; (GR4 = 0)の場合、SETMODへループ脱出
-        SRL     GR2,1           ; GR2を1回右シフト
-        CPL     GR1,Y           ; (GR1 < Y)の場合、SETMODへループ脱出
-        JMI     SETMOD          ; ↓
-        CPL     GR1,GR2         ; (GR1 < GR2)の場合、ループ先頭へジャンプ
-        JMI     LOOP            ; ↓
-LPIN    SUBL    GR1,GR2         ; GR1 <- GR1 - GR2
-        ADDL    GR0,GR4         ; GR0 <- GR0 + GR4
-        JUMP    LOOP            ; ループ終端
-DIVZERO LAD     GR3,#8000       ; 強制的にオーバーフローを発生させ、GR3 <- 0
-        SLL     GR3,1           ; ↓
-        JUMP    FIN             ; FIN へジャンプ
-SETMOD  LD      GR3,GR1         ; GR3 <- GR1。剰余の設定
-FIN     POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-Y       DS      1
-TMP     DS      1
-        END
-;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
-;;;     例: 12345 -> 54321、54321- -> -12345
-;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
-;;; 出力 (同上)
-REV     START
-        RPUSH
-        LAD     GR3,0           ; GR3の初期化
-PU      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     NEXT            ; ↓
-        LD      GR4,GR1         ; GR4 <- GR1
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        LD      GR5,0,GR4       ; GR5 <- GR4アドレスの値
-        PUSH    0,GR5           ; GR5をプッシュ
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PU              ; ループ終端
-NEXT    LAD     GR3,0           ; GR3の初期化
-PO      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     FIN             ; ↓
-        POP     GR5             ; GR5にポップ
-        LD      GR4,GR1         ; GR4にGR1の値をコピー
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        ST      GR5,0,GR4       ; GR4のアドレス <- GR5の値
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PO              ; ループ終端
-FIN     RPOP
-        RET
-        END
diff --git a/as/casl2lib/outb.casl b/as/casl2lib/outb.casl
deleted file mode 100644 (file)
index dd1ebaa..0000000
+++ /dev/null
@@ -1,111 +0,0 @@
-;;; GR1に格納された値を、2進数値として表示
-OUTB    START
-        RPUSH
-        LD      GR2,BIN         ; GR2に2進数の「2」を格納。
-        XOR     GR4,GR4         ; GR4: 2進数値の長さ
-STI     CPL     GR1,GR2         ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
-        JMI     STLST           ; ↓
-        CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
-        LD      GR1,GR3         ; GR1にGR3をコピー
-        LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        LD      GR1,GR0         ; GR0をGR1にコピー
-        JUMP    STI             ; ループ終端
-STLST   LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-EMLOOP  CPL     GR4,DIG         ; ループ先頭。(GR4 = DIG)の場合は、ループ脱出
-        JZE     PRT             ; ↓
-        LD      GR1,NCHAR       ; GR1 <- NCHAR:'0'
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        JUMP    EMLOOP          ; ループ終端
-PRT     ST      GR4,LEN         ; LEN <- GR4
-        LD      GR2,LEN         ; GR2にLENの値を格納
-        LAD     GR1,STR         ; GR1に文字列のアドレスを格納
-        CALL    REV             ; 文字列を逆順に並べ替え
-        OUT     STR,LEN         ; 文字列を出力
-        RPOP
-        RET
-STR     DS      17
-LEN     DS      1
-BIN     DC      2
-NCHAR   DC      '01'
-SPC     DC      ' '
-DIG     DC      16
-        END
-;;; 0〜65535の範囲にある正数の割算(筆算方式)を行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
-DIVL    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0:商 初期化
-        XOR     GR3,GR3         ; GR3:剰余 初期化
-        AND     GR2,GR2         ; (GR2 = 0)の場合、DIVZEROへジャンプ
-        JZE     DIVZERO         ; ↓
-        AND     GR1,GR1         ; (GR1 = 0)の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        ST      GR2,Y           ; YにGR2の初期値を保存
-        LAD     GR4,1           ; GR4:対象ビットのインデックス 初期化
-SL      CPL     GR2,GR1         ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
-        JPL     LOOP            ; ↓
-        SLL     GR4,1           ; GR4を1回左シフト
-        ST      GR2,TMP         ; GR2の値をTMPに退避
-        SLL     GR2,1           ; GR2を1回左シフト
-        JOV     YOV             ; オーバーフローの場合は、YOVへジャンプ
-        JUMP    SL              ; ループ終端
-YOV     LD      GR2,TMP         ; GR2の値をTMPから復元
-        SRL     GR4,1           ; GR4を1回右シフト
-        JUMP    LPIN            ; LPINへジャンプ
-LOOP    SRL     GR4,1           ; ループ先頭。GR4を1回右シフト
-        JZE     SETMOD          ; (GR4 = 0)の場合、SETMODへループ脱出
-        SRL     GR2,1           ; GR2を1回右シフト
-        CPL     GR1,Y           ; (GR1 < Y)の場合、SETMODへループ脱出
-        JMI     SETMOD          ; ↓
-        CPL     GR1,GR2         ; (GR1 < GR2)の場合、ループ先頭へジャンプ
-        JMI     LOOP            ; ↓
-LPIN    SUBL    GR1,GR2         ; GR1 <- GR1 - GR2
-        ADDL    GR0,GR4         ; GR0 <- GR0 + GR4
-        JUMP    LOOP            ; ループ終端
-DIVZERO LAD     GR3,#8000       ; 強制的にオーバーフローを発生させ、GR3 <- 0
-        SLL     GR3,1           ; ↓
-        JUMP    FIN             ; FIN へジャンプ
-SETMOD  LD      GR3,GR1         ; GR3 <- GR1。剰余の設定
-FIN     POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-Y       DS      1
-TMP     DS      1
-        END
-;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
-;;;     例: 12345 -> 54321、54321- -> -12345
-;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
-;;; 出力 (同上)
-REV     START
-        RPUSH
-        LAD     GR3,0           ; GR3の初期化
-PU      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     NEXT            ; ↓
-        LD      GR4,GR1         ; GR4 <- GR1
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        LD      GR5,0,GR4       ; GR5 <- GR4アドレスの値
-        PUSH    0,GR5           ; GR5をプッシュ
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PU              ; ループ終端
-NEXT    LAD     GR3,0           ; GR3の初期化
-PO      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     FIN             ; ↓
-        POP     GR5             ; GR5にポップ
-        LD      GR4,GR1         ; GR4にGR1の値をコピー
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        ST      GR5,0,GR4       ; GR4のアドレス <- GR5の値
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PO              ; ループ終端
-FIN     RPOP
-        RET
-        END
diff --git a/as/casl2lib/outl.casl b/as/casl2lib/outl.casl
deleted file mode 100644 (file)
index 09cc91f..0000000
+++ /dev/null
@@ -1,110 +0,0 @@
-;;; GR1に格納された値を、10進数の整数値(0〜65535)として表示
-;;; 依存プログラム: DIVL, REV
-OUTL    START
-        RPUSH
-        LAD     GR2,10          ; GR2に10進数の「10」を格納。
-        XOR     GR0,GR0         ; GR0 <- 0
-        XOR     GR4,GR4         ; 整数値の長さ
-        AND     GR1,GR1         ; GR1をテスト
-        JZE     ZERO            ; GR1が0の場合、ZEROにジャンプ
-STI     CPL     GR1,GR2         ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
-        JMI     STLST           ; ↓
-        CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
-        LD      GR1,GR3         ; GR1にGR3をコピー
-        LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        LD      GR1,GR0         ; GR0をGR1にコピー
-        JUMP    STI             ; ループ終端
-STLST   LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        JUMP    PRT             ; PRTにジャンプ
-ZERO    LD      GR1,NCHAR       ; 「0」をSTR領域に格納
-        ST      GR1,STR,GR4     ; ↓ (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; ↓ GR4 <- GR4 + 1
-PRT     ST      GR4,LEN         ; LEN <- GR4
-        LD      GR2,LEN         ; GR2にLENの値を格納
-        LAD     GR1,STR         ; GR1に文字列のアドレスを格納
-        CALL    REV             ; 文字列を逆順に並べ替え
-        OUT     STR,LEN         ; 文字列を出力
-        RPOP
-        RET
-STR     DS      17              ; 符号付き2進数で表記した場合を想定
-LEN     DS      1
-NCHAR   DC      '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-        END
-;;; 0〜65535の範囲にある正数の割算(筆算方式)を行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
-DIVL    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0:商 初期化
-        XOR     GR3,GR3         ; GR3:剰余 初期化
-        AND     GR2,GR2         ; (GR2 = 0)の場合、DIVZEROへジャンプ
-        JZE     DIVZERO         ; ↓
-        AND     GR1,GR1         ; (GR1 = 0)の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        ST      GR2,Y           ; YにGR2の初期値を保存
-        LAD     GR4,1           ; GR4:対象ビットのインデックス 初期化
-SL      CPL     GR2,GR1         ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
-        JPL     LOOP            ; ↓
-        SLL     GR4,1           ; GR4を1回左シフト
-        ST      GR2,TMP         ; GR2の値をTMPに退避
-        SLL     GR2,1           ; GR2を1回左シフト
-        JOV     YOV             ; オーバーフローの場合は、YOVへジャンプ
-        JUMP    SL              ; ループ終端
-YOV     LD      GR2,TMP         ; GR2の値をTMPから復元
-        SRL     GR4,1           ; GR4を1回右シフト
-        JUMP    LPIN            ; LPINへジャンプ
-LOOP    SRL     GR4,1           ; ループ先頭。GR4を1回右シフト
-        JZE     SETMOD          ; (GR4 = 0)の場合、SETMODへループ脱出
-        SRL     GR2,1           ; GR2を1回右シフト
-        CPL     GR1,Y           ; (GR1 < Y)の場合、SETMODへループ脱出
-        JMI     SETMOD          ; ↓
-        CPL     GR1,GR2         ; (GR1 < GR2)の場合、ループ先頭へジャンプ
-        JMI     LOOP            ; ↓
-LPIN    SUBL    GR1,GR2         ; GR1 <- GR1 - GR2
-        ADDL    GR0,GR4         ; GR0 <- GR0 + GR4
-        JUMP    LOOP            ; ループ終端
-DIVZERO LAD     GR3,#8000       ; 強制的にオーバーフローを発生させ、GR3 <- 0
-        SLL     GR3,1           ; ↓
-        JUMP    FIN             ; FIN へジャンプ
-SETMOD  LD      GR3,GR1         ; GR3 <- GR1。剰余の設定
-FIN     POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-Y       DS      1
-TMP     DS      1
-        END
-;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
-;;;     例: 12345 -> 54321、54321- -> -12345
-;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
-;;; 出力 (同上)
-REV     START
-        RPUSH
-        LAD     GR3,0           ; GR3の初期化
-PU      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     NEXT            ; ↓
-        LD      GR4,GR1         ; GR4 <- GR1
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        LD      GR5,0,GR4       ; GR5 <- GR4アドレスの値
-        PUSH    0,GR5           ; GR5をプッシュ
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PU              ; ループ終端
-NEXT    LAD     GR3,0           ; GR3の初期化
-PO      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     FIN             ; ↓
-        POP     GR5             ; GR5にポップ
-        LD      GR4,GR1         ; GR4にGR1の値をコピー
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        ST      GR5,0,GR4       ; GR4のアドレス <- GR5の値
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PO              ; ループ終端
-FIN     RPOP
-        RET
-        END
diff --git a/as/casl2lib/outpbm.casl b/as/casl2lib/outpbm.casl
deleted file mode 100644 (file)
index 01beac9..0000000
+++ /dev/null
@@ -1,140 +0,0 @@
-;;; PBM画像ファイルを出力
-;;;   GR1: 画像ビット列の先頭アドレス
-;;;   GR2: 画像の幅
-;;;   GR3: 画像の高さ
-OUTPBM  START
-        OUT     HEADER,HLEN
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR3
-        PUSH    0,GR4
-        XOR     GR4,GR4
-        LD      GR1,GR2
-        LAD     GR2,WIDTH
-        CALL    L2STR
-        LD      GR4,GR0
-        LAD     GR4,1,GR4
-        LD      GR1,SPC
-        ST      GR1,WIDTH,GR4
-        LAD     GR4,1,GR4
-        LD      GR1,GR3
-        LAD     GR2,WIDTH,GR4
-        CALL    L2STR
-        ADDL    GR4,GR0
-        ST      GR4,WHLEN
-        OUT     WIDTH,WHLEN
-        POP     GR4
-        POP     GR3
-        POP     GR2
-        POP     GR1
-        RET
-HEADER  DC      'P1'
-HLEN    DC      2
-WIDTH   DS      32
-SPC     DC      ' '
-HEIGHT  DS      1
-WHLEN   DS      1
-;;; 符号なし整数を文字列に変換する。
-;;; 符号なし整数を文字列に変換する。
-;;; 入力 GR1:符号なし整数 G2:変換した文字列を格納するメモリーの先頭アドレス
-;;; 出力 GR0:文字列の長さ (同上)
-;;; 依存プログラム: DIVL, REV
-L2STR   START
-        PUSH    0,GR1
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0 <- 0
-        LD      GR4,GR2         ; GR4 <- GR2
-        PUSH    0,GR2           ; GR2の保存
-        LAD     GR2,10          ; GR2 <- 10。10進数の 10
-LOOP    LD      GR1,GR1         ; ループ先頭。GR1をテスト
-        JZE     SRT             ; GR1が0の場合、ループ終了
-        CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
-        ADDL    GR3,='0'        ; GR3を文字に変換
-        ST      GR3,0,GR4       ; GR4のアドレスに、GR3を格納
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        LD      GR1,GR0         ; GR0の商をGR1にコピー
-        JUMP    LOOP            ; ループ終端
-SRT     POP     GR2             ; GR2の復元
-        LD      GR1,GR2         ; GR1に文字列のアドレスを格納
-        SUBL    GR4,GR2         ; GR4 <- GR4 - GR2
-        LD      GR2,GR4         ; GR2 <- GR4
-        CALL    REV             ; 文字列を逆順に並べ替え
-        LD      GR0,GR2         ; GR0 <- GR4 文字列の長さを格納
-        POP     GR4
-        POP     GR1
-        RET
-        END
-;;; 0〜65535の範囲にある正数の割算(筆算方式)を行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
-DIVL    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0:商 初期化
-        XOR     GR3,GR3         ; GR3:剰余 初期化
-        AND     GR2,GR2         ; (GR2 = 0)の場合、DIVZEROへジャンプ
-        JZE     DIVZERO         ; ↓
-        AND     GR1,GR1         ; (GR1 = 0)の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        ST      GR2,Y           ; YにGR2の初期値を保存
-        LAD     GR4,1           ; GR4:対象ビットのインデックス 初期化
-SL      CPL     GR2,GR1         ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
-        JPL     LOOP            ; ↓
-        SLL     GR4,1           ; GR4を1回左シフト
-        ST      GR2,TMP         ; GR2の値をTMPに退避
-        SLL     GR2,1           ; GR2を1回左シフト
-        JOV     YOV             ; オーバーフローの場合は、YOVへジャンプ
-        JUMP    SL              ; ループ終端
-YOV     LD      GR2,TMP         ; GR2の値をTMPから復元
-        SRL     GR4,1           ; GR4を1回右シフト
-        JUMP    LPIN            ; LPINへジャンプ
-LOOP    SRL     GR4,1           ; ループ先頭。GR4を1回右シフト
-        JZE     SETMOD          ; (GR4 = 0)の場合、SETMODへループ脱出
-        SRL     GR2,1           ; GR2を1回右シフト
-        CPL     GR1,Y           ; (GR1 < Y)の場合、SETMODへループ脱出
-        JMI     SETMOD          ; ↓
-        CPL     GR1,GR2         ; (GR1 < GR2)の場合、ループ先頭へジャンプ
-        JMI     LOOP            ; ↓
-LPIN    SUBL    GR1,GR2         ; GR1 <- GR1 - GR2
-        ADDL    GR0,GR4         ; GR0 <- GR0 + GR4
-        JUMP    LOOP            ; ループ終端
-DIVZERO LAD     GR3,#8000       ; 強制的にオーバーフローを発生させ、GR3 <- 0
-        SLL     GR3,1           ; ↓
-        JUMP    FIN             ; FIN へジャンプ
-SETMOD  LD      GR3,GR1         ; GR3 <- GR1。剰余の設定
-FIN     POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-Y       DS      1
-TMP     DS      1
-        END
-;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
-;;;     例: 12345 -> 54321、54321- -> -12345
-;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
-;;; 出力 (同上)
-REV     START
-        RPUSH
-        LAD     GR3,0           ; GR3の初期化
-PU      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     NEXT            ; ↓
-        LD      GR4,GR1         ; GR4 <- GR1
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        LD      GR5,0,GR4       ; GR5 <- GR4アドレスの値
-        PUSH    0,GR5           ; GR5をプッシュ
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PU              ; ループ終端
-NEXT    LAD     GR3,0           ; GR3の初期化
-PO      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     FIN             ; ↓
-        POP     GR5             ; GR5にポップ
-        LD      GR4,GR1         ; GR4にGR1の値をコピー
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        ST      GR5,0,GR4       ; GR4のアドレス <- GR5の値
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PO              ; ループ終端
-FIN     RPOP
-        RET
-        END
diff --git a/as/casl2lib/pbm16.casl b/as/casl2lib/pbm16.casl
deleted file mode 100644 (file)
index e615f35..0000000
+++ /dev/null
@@ -1,142 +0,0 @@
-;;; PBM16
-;;; GR1で指定されたアドレス以降のメモリを 16×16 の
-;;; 白黒ビットマップ画像データ(白:0 黒:1)とみなし、
-;;; PBM画像ファイルとして出力
-;;; 入力: GR1 画像データの先頭アドレス
-;;; 依存副プログラム: outb_w.casl divl.casl rotate.casl
-PBM16   START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        ST      GR1,BEG
-        OUT     L1,L1LEN
-        OUT     L2,L2LEN
-        XOR     GR2,GR2
-LOOP    CPL     GR2,HEIGHT
-        JZE     FIN
-        LD      GR1,BEG
-        ADDL    GR1,GR2
-        LD      GR1,0,GR1
-        CALL    OUTB
-        LAD     GR2,1,GR2
-        JUMP    LOOP
-FIN     POP     GR2
-        POP     GR1
-        RET
-L1      DC      'P1'
-L1LEN   DC      2
-L2      DC      '16 16'
-L2LEN   DC      5
-HEIGHT  DC      16
-BEG     DS      1
-        END
-;;; GR1に格納された値を、2進数値として表示
-OUTB    START
-        RPUSH
-        LD      GR2,BIN         ; GR2に2進数の「2」を格納。
-        XOR     GR4,GR4         ; GR4: 2進数値の長さ
-STI     CPL     GR1,GR2         ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
-        JMI     STLST           ; ↓
-        CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
-        LD      GR1,GR3         ; GR1にGR3をコピー
-        LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        LD      GR1,GR0         ; GR0をGR1にコピー
-        JUMP    STI             ; ループ終端
-STLST   LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-EMLOOP  CPL     GR4,DIG         ; ループ先頭。(GR4 = DIG)の場合は、ループ脱出
-        JZE     PRT             ; ↓
-        LD      GR1,NCHAR       ; GR1 <- NCHAR:'0'
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        JUMP    EMLOOP          ; ループ終端
-PRT     ST      GR4,LEN         ; LEN <- GR4
-        LD      GR2,LEN         ; GR2にLENの値を格納
-        LAD     GR1,STR         ; GR1に文字列のアドレスを格納
-        CALL    REV             ; 文字列を逆順に並べ替え
-        OUT     STR,LEN         ; 文字列を出力
-        RPOP
-        RET
-STR     DS      17
-LEN     DS      1
-BIN     DC      2
-NCHAR   DC      '01'
-SPC     DC      ' '
-DIG     DC      16
-        END
-;;; 0〜65535の範囲にある正数の割算(筆算方式)を行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
-DIVL    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0:商 初期化
-        XOR     GR3,GR3         ; GR3:剰余 初期化
-        AND     GR2,GR2         ; (GR2 = 0)の場合、DIVZEROへジャンプ
-        JZE     DIVZERO         ; ↓
-        AND     GR1,GR1         ; (GR1 = 0)の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        ST      GR2,Y           ; YにGR2の初期値を保存
-        LAD     GR4,1           ; GR4:対象ビットのインデックス 初期化
-SL      CPL     GR2,GR1         ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
-        JPL     LOOP            ; ↓
-        SLL     GR4,1           ; GR4を1回左シフト
-        ST      GR2,TMP         ; GR2の値をTMPに退避
-        SLL     GR2,1           ; GR2を1回左シフト
-        JOV     YOV             ; オーバーフローの場合は、YOVへジャンプ
-        JUMP    SL              ; ループ終端
-YOV     LD      GR2,TMP         ; GR2の値をTMPから復元
-        SRL     GR4,1           ; GR4を1回右シフト
-        JUMP    LPIN            ; LPINへジャンプ
-LOOP    SRL     GR4,1           ; ループ先頭。GR4を1回右シフト
-        JZE     SETMOD          ; (GR4 = 0)の場合、SETMODへループ脱出
-        SRL     GR2,1           ; GR2を1回右シフト
-        CPL     GR1,Y           ; (GR1 < Y)の場合、SETMODへループ脱出
-        JMI     SETMOD          ; ↓
-        CPL     GR1,GR2         ; (GR1 < GR2)の場合、ループ先頭へジャンプ
-        JMI     LOOP            ; ↓
-LPIN    SUBL    GR1,GR2         ; GR1 <- GR1 - GR2
-        ADDL    GR0,GR4         ; GR0 <- GR0 + GR4
-        JUMP    LOOP            ; ループ終端
-DIVZERO LAD     GR3,#8000       ; 強制的にオーバーフローを発生させ、GR3 <- 0
-        SLL     GR3,1           ; ↓
-        JUMP    FIN             ; FIN へジャンプ
-SETMOD  LD      GR3,GR1         ; GR3 <- GR1。剰余の設定
-FIN     POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-Y       DS      1
-TMP     DS      1
-        END
-;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
-;;;     例: 12345 -> 54321、54321- -> -12345
-;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
-;;; 出力 (同上)
-REV     START
-        RPUSH
-        LAD     GR3,0           ; GR3の初期化
-PU      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     NEXT            ; ↓
-        LD      GR4,GR1         ; GR4 <- GR1
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        LD      GR5,0,GR4       ; GR5 <- GR4アドレスの値
-        PUSH    0,GR5           ; GR5をプッシュ
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PU              ; ループ終端
-NEXT    LAD     GR3,0           ; GR3の初期化
-PO      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     FIN             ; ↓
-        POP     GR5             ; GR5にポップ
-        LD      GR4,GR1         ; GR4にGR1の値をコピー
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        ST      GR5,0,GR4       ; GR4のアドレス <- GR5の値
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PO              ; ループ終端
-FIN     RPOP
-        RET
-        END
diff --git a/as/casl2lib/rev.casl b/as/casl2lib/rev.casl
deleted file mode 100644 (file)
index 397c5c4..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
-;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
-;;;     例: 12345 -> 54321、54321- -> -12345
-;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
-;;; 出力 (同上)
-REV     START
-        RPUSH
-        LAD     GR3,0           ; GR3の初期化
-PU      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     NEXT            ; ↓
-        LD      GR4,GR1         ; GR4 <- GR1
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        LD      GR5,0,GR4       ; GR5 <- GR4アドレスの値
-        PUSH    0,GR5           ; GR5をプッシュ
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PU              ; ループ終端
-NEXT    LAD     GR3,0           ; GR3の初期化
-PO      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     FIN             ; ↓
-        POP     GR5             ; GR5にポップ
-        LD      GR4,GR1         ; GR4にGR1の値をコピー
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        ST      GR5,0,GR4       ; GR4のアドレス <- GR5の値
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PO              ; ループ終端
-FIN     RPOP
-        RET
-        END
diff --git a/as/casl2lib/sample/call_abs.casl b/as/casl2lib/sample/call_abs.casl
deleted file mode 100644 (file)
index 476e902..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-;;; ABSを呼び出す
-;;; casl2 call_abs.casl ../stdlib.casl
-MAIN    START
-        LAD     GR2,0
-MLOOP   CPA     GR2,MLEN
-        JZE     MFIN
-        LD      GR1,MVAL,GR2
-        CALL    OUTA
-        CALL    ABS
-        JOV     PUTOV
-        JMI     PUTM
-        OUT     PLUS,=1
-        JUMP    PUTD
-PUTM    OUT     MINUS,=1
-        JUMP    PUTD
-PUTOV   OUT     OV,=2
-PUTD    CALL    OUTA
-        OUT     SEP,MLEN
-        LAD     GR2,1,GR2
-        JUMP    MLOOP
-MFIN    RET
-MVAL    DC      12,-12,1,-1,32767,-32767,0,-32768
-MLEN    DC      8
-SEP     DC      '--------'
-PLUS    DC      '+'
-MINUS   DC      '-'
-OV      DC      'OV'
-        END
diff --git a/as/casl2lib/sample/call_addl32.casl b/as/casl2lib/sample/call_addl32.casl
deleted file mode 100644 (file)
index 6072b8b..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-MAIN    START
-        LAD     GR1,A
-        LAD     GR2,B
-        CALL    ADDL32
-        LD      GR2,GR0
-        LD      GR1,1,GR2
-        CALL    OUTL
-        LD      GR1,0,GR2
-        CALL    OUTL
-        RET
-A       DC      6,10
-B       DC      2,65530
-        END
diff --git a/as/casl2lib/sample/call_divl.casl b/as/casl2lib/sample/call_divl.casl
deleted file mode 100644 (file)
index e988bea..0000000
+++ /dev/null
@@ -1,38 +0,0 @@
-MAIN    START
-        LD      GR1,XMAX
-LOOPX   CPA     GR1,XMIN
-        JMI     FIN
-        OUT     SEP,SLEN
-        LD      GR2,YMIN
-LOOPY   CPL     GR2,YMAX
-        JPL     XNEXT
-        CALL    OUTL
-        PUSH    0,GR1
-        LD      GR1,GR2
-        CALL    OUTL
-        POP     GR1
-        CALL    DIVL
-        JOV     WOV
-        PUSH    0,GR1
-        LD      GR1,GR0
-        CALL    OUTL
-        LD      GR1,GR3
-        CALL    OUTL
-        POP     GR1
-YNEXT   OUT     SEP,SLEN
-        LAD     GR2,1,GR2
-        JUMP    LOOPY
-WOV     OUT     Y0MSG,YLEN
-        JUMP    YNEXT
-XNEXT   LAD     GR1,-1,GR1
-        JUMP    LOOPX
-FIN     RET
-XMAX    DC      100
-XMIN    DC      0
-YMAX    DC      10
-YMIN    DC      0
-SEP     DC      '--------------------'
-SLEN    DC      20
-Y0MSG   DC      'Error: div by 0'
-YLEN    DC      15
-        END
diff --git a/as/casl2lib/sample/call_inl.casl b/as/casl2lib/sample/call_inl.casl
deleted file mode 100644 (file)
index 6c770fa..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.casl
-MAIN    START
-LOOP    CALL    INL             ; GR1に数値、GR2に文字列の長さ
-        JOV     NAN
-        JMI     BIG
-        LD      GR2,GR2
-        JZE     FIN
-        CALL    OUTL
-        JUMP    LOOP
-NAN     OUT     NANMSG,NANLEN
-        JUMP    LOOP
-BIG     OUT     BIGMSG,BIGLEN
-        JUMP    LOOP
-FIN     RET
-NANMSG  DC      'Not a number'
-NANLEN  DC      12
-BIGMSG  DC      'Over 65535'
-BIGLEN  DC      10
-        END
diff --git a/as/casl2lib/sample/call_l2str.casl b/as/casl2lib/sample/call_l2str.casl
deleted file mode 100644 (file)
index fd16c45..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-MAIN    START
-        LD     GR1,L
-        LAD    GR2,STR
-        CALL   L2STR
-        ST     GR0,LEN
-        OUT    STR,LEN
-        RET
-L       DC     6543
-STR     DS     5
-LEN     DS     1
-        END
diff --git a/as/casl2lib/sample/call_minim.casl b/as/casl2lib/sample/call_minim.casl
deleted file mode 100644 (file)
index d74aa34..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-;;; casl2 minim.casl $(LIBDIR)/minim.casl $(LIBDIR)/outa.casl
-MAIN    START
-        LAD     GR1,DATA
-        LD      GR2,CNT
-        CALL    MINIM
-        LD      GR1,GR0
-        CALL    OUTA
-        RET
-DATA    DC      23,78,2,45,67,-39,86
-CNT     DC      7
-        END
diff --git a/as/casl2lib/sample/call_mula.casl b/as/casl2lib/sample/call_mula.casl
deleted file mode 100644 (file)
index 6fa37b6..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-MAIN    START
-        LAD     GR3,0           ; Xのインデックス
-LOOPX   CPA     GR3,XCNT
-        JZE     FIN
-        LD      GR1,X,GR3
-        LAD     GR4,0           ; Yのインデックス
-LOOPY   CPA     GR4,YCNT
-        JZE     XNEXT
-        LD      GR2,Y,GR4
-        CALL    OUTA
-        PUSH    0,GR1
-        LD      GR1,GR2
-        CALL    OUTA
-        POP     GR1
-        CALL    MULA
-        JOV     WOV
-        PUSH    0,GR1
-        LD      GR1,GR0
-        CALL    OUTA
-        POP     GR1
-YNEXT   OUT     SEP,SLEN
-        LAD     GR4,1,GR4
-        JUMP    LOOPY
-WOV     OUT     YOMSG,YLEN
-        JUMP    YNEXT
-XNEXT   LAD     GR3,1,GR3
-        JUMP    LOOPX
-FIN     RET
-X       DC      0,1,2,127,128,151,217,255,256,257,32767,-32768,-32767,-257,-256,-255,-217,-151,-128,-127,-2,-1
-Y       DC      0,1,2,127,128,151,217,255,256,257,32767,-32768,-32767,-257,-256,-255,-217,-151,-128,-127,-2,-1
-XCNT    DC      22
-YCNT    DC      22
-SEP     DC      '--------------------'
-SLEN    DC      20
-YOMSG   DC      'Warning: overflow'
-YLEN    DC      17
-        END
diff --git a/as/casl2lib/sample/call_mull.casl b/as/casl2lib/sample/call_mull.casl
deleted file mode 100644 (file)
index 3a41303..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-MAIN    START
-        LAD     GR4,0           ; Xのインデックス
-LOOPX   CPA     GR4,XCNT        ; (GR4 = XCNT)の場合、ループ脱出
-        JZE     FIN             ; ↓
-        LD      GR1,X,GR4       ; GR1に、(X+GR4)番地の値を転送
-        LAD     GR5,0           ; Yのインデックス
-LOOPY   CPA     GR5,YCNT        ; (GR5 = YCNT)の場合、ループ脱出
-        JZE     XNEXT           ; ↓
-        LD      GR2,Y,GR5       ; GR2に、(X+GR5)番地の値を転送
-        CALL    OUTL            ; GR1の数値を出力
-        PUSH    0,GR1           ; GR2の数値を出力
-        LD      GR1,GR2         ; ↓
-        CALL    OUTL            ; ↓
-        POP     GR1             ; ↓
-        CALL    MULL            ; GR3 <- GR1 * GR2
-        JOV     WOV             ; オーバーフローの場合は、WOVへジャンプ
-        PUSH    0,GR1           ; GR3の数値を出力
-        LD      GR1,GR3         ; ↓
-        CALL    OUTL            ; ↓
-        POP     GR1             ; ↓
-YNEXT   OUT     SEP,SLEN        ; 区切り線を出力
-        LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
-        JUMP    LOOPY           ; LOOPYへジャンプ
-WOV     OUT     YOMSG,YLEN      ; オーバーフローした場合のメッセージを表示
-        OUT     SEP,SLEN        ; 区切り線を出力
-XNEXT   LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        JUMP    LOOPX           ; LOOPXへジャンプ
-FIN     RET
-X       DC      0,1,2,127,128,255,256,257,32767,#8000,#FFFF
-Y       DC      0,1,2,127,128,255,256,257,32767,#8000,#FFFF
-XCNT    DC      11
-YCNT    DC      11
-SEP     DC      '--------------------'
-SLEN    DC      20
-YOMSG   DC      'overflow'
-YLEN    DC      8
-        END
diff --git a/as/casl2lib/sample/call_outa.casl b/as/casl2lib/sample/call_outa.casl
deleted file mode 100644 (file)
index b2aaf05..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-;; casl2 outi_call.casl outi.casl
-MAIN    START
-        LAD     GR1,VAL
-        LAD     GR2,0
-LOOP    CPA     GR2,CNT
-        JZE     FIN
-        LD      GR1,VAL,GR2
-        CALL    OUTA
-        LAD     GR2,1,GR2
-        JUMP    LOOP
-FIN     RET
-VAL     DC      0
-        DC      #0001,#0002,#0004,#0008
-        DC      #0010,#0020,#0040,#0080
-        DC      #0100,#0200,#0400,#0800
-        DC      #1000,#2000,#4000,#7FFF
-        DC      #8000
-        DC      #8001,#C000,#E000,#F000
-        DC      #F800,#FC00,#FE00,#FF00
-        DC      #FF80,#FFC0,#FFE0,#FFF0
-        DC      #FFF8,#FFFC,#FFFE,#FFFF
-CNT     DC      34
-        END
diff --git a/as/casl2lib/sample/call_outaq15.casl b/as/casl2lib/sample/call_outaq15.casl
deleted file mode 100644 (file)
index 1ea1f12..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-;; outd_q15.caslを呼び出し、33個の数値を表示する
-MAIN    START
-        LAD     GR2,0
-LOOP    LD      GR1,VAL,GR2
-        CALL    OUTAQ15
-        LAD     GR2,1,GR2
-        CPA     GR2,CNT
-        JZE     FIN
-        JUMP    LOOP
-FIN     RET
-VAL     DC      #7FFF,#4000,#2000,#1000
-        DC      #0800,#0400,#0200,#0100
-        DC      #0080,#0040,#0020,#0010
-        DC      #0008,#0004,#0002,#0001
-        DC      #8000
-        DC      #8001,#C000,#E000,#F000
-        DC      #F800,#FC00,#FE00,#FF00
-        DC      #FF80,#FFC0,#FFE0,#FFF0
-        DC      #FFF8,#FFFC,#FFFE,#FFFF
-CNT     DC      33
-        END
diff --git a/as/casl2lib/sample/call_outb.casl b/as/casl2lib/sample/call_outb.casl
deleted file mode 100644 (file)
index 9ba7189..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-;;; casl2 outb_call.casl outb.casl
-MAIN    START
-        LAD     GR2,0
-LOOP    LD      GR1,VAL,GR2
-        CALL    OUTB
-        LAD     GR2,1,GR2
-        CPA     GR2,CNT
-        JZE     FIN
-        JUMP    LOOP
-FIN     RET
-VAL     DC      0
-        DC      #0001,#0002,#0004,#0008
-        DC      #0010,#0020,#0040,#0080
-        DC      #0100,#0200,#0400,#0800
-        DC      #1000,#2000,#4000,#7FFF
-        DC      #8000
-        DC      #8001,#C000,#E000,#F000
-        DC      #F800,#FC00,#FE00,#FF00
-        DC      #FF80,#FFC0,#FFE0,#FFF0
-        DC      #FFF8,#FFFC,#FFFE,#FFFF
-CNT     DC      34
-        END
diff --git a/as/casl2lib/sample/call_outbw.casl b/as/casl2lib/sample/call_outbw.casl
deleted file mode 100644 (file)
index c77368e..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-;;; casl2 outb_call.casl outb.casl
-MAIN    START
-        LAD     GR2,0
-LOOP    LD      GR1,VAL,GR2
-        CALL    OUTBW
-        LAD     GR2,1,GR2
-        CPA     GR2,CNT
-        JZE     FIN
-        JUMP    LOOP
-FIN     RET
-VAL     DC      0
-        DC      #0001,#0002,#0004,#0008
-        DC      #0010,#0020,#0040,#0080
-        DC      #0100,#0200,#0400,#0800
-        DC      #1000,#2000,#4000,#7FFF
-        DC      #8000
-        DC      #8001,#C000,#E000,#F000
-        DC      #F800,#FC00,#FE00,#FF00
-        DC      #FF80,#FFC0,#FFE0,#FFF0
-        DC      #FFF8,#FFFC,#FFFE,#FFFF
-CNT     DC      34
-        END
diff --git a/as/casl2lib/sample/call_outl.casl b/as/casl2lib/sample/call_outl.casl
deleted file mode 100644 (file)
index d20214e..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-;;; casl2 outl_call.casl outl.casl
-MAIN    START
-        LAD     GR2,0
-LOOP    LD      GR1,VAL,GR2
-        CALL    OUTL
-        LAD     GR2,1,GR2
-        CPA     GR2,CNT
-        JZE     FIN
-        JUMP    LOOP
-FIN     RET
-VAL     DC      0
-        DC      #0001,#0002,#0004,#0008
-        DC      #0010,#0020,#0040,#0080
-        DC      #0100,#0200,#0400,#0800
-        DC      #1000,#2000,#4000,#7FFF
-        DC      #8000
-        DC      #8001,#C000,#E000,#F000
-        DC      #F800,#FC00,#FE00,#FF00
-        DC      #FF80,#FFC0,#FFE0,#FFF0
-        DC      #FFF8,#FFFC,#FFFE,#FFFF
-CNT     DC      34
-        END
diff --git a/as/casl2lib/sample/call_outlq15.casl b/as/casl2lib/sample/call_outlq15.casl
deleted file mode 100644 (file)
index dd06ee0..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-;; outd_q15.caslを呼び出し、33個の数値を表示する
-MAIN    START
-        LAD     GR2,0
-LOOP    LD      GR1,VAL,GR2
-        CALL    OUTLQ15
-        LAD     GR2,1,GR2
-        CPA     GR2,CNT
-        JZE     FIN
-        JUMP    LOOP
-FIN     RET
-VAL     DC      #0001,#0002,#0004,#0008
-        DC      #0010,#0020,#0040,#0080
-        DC      #0100,#0200,#0400,#0800
-        DC      #1000,#2000,#4000,#7FFF
-        DC      #8000
-        DC      #8001,#C000,#E000,#F000
-        DC      #F800,#FC00,#FE00,#FF00
-        DC      #FF80,#FFC0,#FFE0,#FFF0
-        DC      #FFF8,#FFFC,#FFFE,#FFFF
-CNT     DC      33
-        END
diff --git a/as/casl2lib/sample/call_pbm16.casl b/as/casl2lib/sample/call_pbm16.casl
deleted file mode 100644 (file)
index cd0e577..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-;;; 「五」を表す16 x 16のpbm画像を出力する
-;;; 呼び出し方:
-;;;   casl2 call_pbm.casl ../pbm16.casl
-MAIN    START
-        LAD     GR1,GRAPH
-        CALL    PBM16
-        RET
-GRAPH   DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
-        DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
-        DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
-        DC      #0700           ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
-        DC      #0700           ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
-        DC      #0700           ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
-        DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
-        DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
-        DC      #FFFC           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
-        DC      #071C           ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
-        DC      #071C           ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
-        DC      #071C           ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
-        DC      #FFFF           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
-        DC      #FFFF           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
-        DC      #FFFF           ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
-        DC      #0000           ; 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
-        END
diff --git a/as/casl2lib/sample/call_rev.casl b/as/casl2lib/sample/call_rev.casl
deleted file mode 100644 (file)
index 58252c2..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-MAIN    START
-        OUT     STR,LEN
-        LAD     GR1,STR
-        LD      GR2,LEN
-        CALL    REV
-        OUT     STR,LEN
-        RET
-STR     DC      '12345'
-LEN     DC      5
-        END
diff --git a/as/casl2lib/sample/call_str2l.casl b/as/casl2lib/sample/call_str2l.casl
deleted file mode 100644 (file)
index 211ba9c..0000000
+++ /dev/null
@@ -1,44 +0,0 @@
-;;; casl2 call_str2l.casl stdlib.casl
-MAIN    START
-        XOR     GR4,GR4
-        LAD     GR6,LEN
-BLP     LAD     GR1,STR,GR4
-        LD      GR2,0,GR6
-        JZE     FIN
-        LD      GR5,GR1
-        CALL    STR2L
-        JOV     OV
-        JMI     NAN
-        LD      GR1,GR3
-        CALL    OUTL
-        LD      GR1,GR5
-        JUMP    ELP
-OV      OUT     MSGOV,LENOV
-        JUMP    ELP
-NAN     OUT     MSGNAN,LENNAN
-ELP     ADDL    GR4,GR2
-        LAD     GR6,1,GR6
-        JUMP    BLP
-FIN     RET
-STR     DC      '0'
-        DC      '1'
-        DC      '123'
-        DC      '1234'
-        DC      '65535'
-        DC      '65536'
-        DC      '123456'
-        DC      'a'
-LEN     DC      1
-        DC      1
-        DC      3
-        DC      4
-        DC      5
-        DC      5
-        DC      6
-        DC      1
-        DC      0
-MSGOV   DC      'over 65535'
-LENOV   DC      10
-MSGNAN  DC      'not a logical integer'
-LENNAN  DC      21
-        END
diff --git a/as/casl2lib/sample/call_strlen.casl b/as/casl2lib/sample/call_strlen.casl
deleted file mode 100644 (file)
index aee3ef8..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-;;; call_strlen.casl
-;;;
-MAIN    START
-        PUSH    0,GR1
-        LAD     GR1,STR
-        CALL    STRLEN
-        LD      GR1,GR2
-        CALL    OUTL
-FIN     POP     GR1
-        RET
-STR     DC      'abcdefghij',0               ; 文字列
-        END
diff --git a/as/casl2lib/src/abs.casl b/as/casl2lib/src/abs.casl
deleted file mode 100644 (file)
index 6f03a67..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-;;; GR1を符号付き整数とみなし、絶対値に変換
-;;; 入力 GR1: -32768から32767の整数
-;;; 出力 GR1: 入力された整数の絶対値
-;;;       OF: 入力されたGR1が-32768の場合、1
-;;;       SF: 入力されたGR1が負数(-32767〜-1)の場合、1
-ABS     START
-        AND     GR1,GR1         ; GR1が0以上の場合は、FINへジャンプ
-        JPL     FIN             ; ↓
-        JZE     FIN             ; ↓
-        XOR     GR1,ALLON       ; GR1のビットを反転
-        ADDA    GR1,ONE         ; GR1に1を追加
-        JOV     FIN             ; 足し算でオーバーフローの場合は、OF:1を保持してFINへジャンプ
-        CPL     GR1,ALLON       ; SF:1を設定
-FIN     RET
-ONE     DC      1
-ALLON   DC      #FFFF
-        END
diff --git a/as/casl2lib/src/addl32.casl b/as/casl2lib/src/addl32.casl
deleted file mode 100644 (file)
index 23740bf..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-;;; 2つの32ビット値を加算する
-;;; 32ビットの値を、連続する2語の領域に格納
-;;; 入力 GR1:数値1の先頭アドレス GR2:数値2の先頭アドレス
-;;; 出力 GR0:和の先頭アドレス
-ADDL32  START
-        RPUSH
-        ST      GR1,X           ; X <- GR1:数値1
-        ST      GR2,Y           ; Y <- GR2:数値2
-        LD      GR3,LEN         ; GR3:語を表すインデックス 初期化
-        XOR     GR4,GR4         ; GR4:キャリー値 初期化
-        LAD     GR3,-1,GR3      ; ↓
-LOOP    AND     GR3,GR3         ; ループ先頭。(GR3 = 0)の場合は、ループ脱出
-        JMI     FIN             ; ↓
-        LD      GR1,X           ; GR1 <- (X + GR3)の値
-        ADDL    GR1,GR3         ; ↓
-        LD      GR1,0,GR1       ; ↓
-        LD      GR2,Y           ; GR2 <- (Y + GR3)の値
-        ADDL    GR2,GR3         ; ↓
-        LD      GR2,0,GR2       ; ↓
-        ADDL    GR1,GR2         ; GR1 <- GR1 + GR2
-        JOV     CRRY            ; オーバーフロー時は、CRRYへジャンプ
-        ADDL    GR1,GR4         ; GR1 <- GR1 + GR4
-        JOV     CRRY            ; オーバーフロー時は、CRRYへジャンプ
-        ST      GR1,A,GR3       ; (A + GR3) <- GR1
-        LAD     GR3,-1,GR3      ; GR3 <- GR3 - 1
-        XOR     GR4,GR4         ; GR4 <- 0
-        JUMP    LOOP            ; ループ先頭へジャンプ
-CRRY    AND     GR3,GR3         ; 最上位の語でオーバーフローした場合、OVへジャンプ
-        JMI     OV              ; ↓
-        ST      GR1,A,GR3       ; (A + GR3) <- GR1
-        LAD     GR3,-1,GR3      ; GR3 <- GR3 - 1
-        LAD     GR4,1           ; GR4 <- 1
-        JUMP    LOOP            ; ループ終端
-OV      LAD     GR3,=#8000      ; 強制的にオーバーフロー発生
-        SLL     GR3,1           ; ↓
-FIN     LAD     GR0,A           ; GR0 <- A
-        RPOP
-        RET
-X       DS      1               ; 数値1の先頭アドレス
-Y       DS      1               ; 数値2の先頭アドレス
-A       DS      2               ; 和
-LEN     DC      2               ; 数値の語数
-        END
diff --git a/as/casl2lib/src/diva.casl b/as/casl2lib/src/diva.casl
deleted file mode 100644 (file)
index 6796eb9..0000000
+++ /dev/null
@@ -1,41 +0,0 @@
-;;; 符号付き整数の割算を筆算方式で行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; 次の場合はオーバーフロー
-;;;     GR1 = -32768; GR2 = -32768; GR2 = 0
-;;;
-DIVA    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; 商を初期化
-        XOR     GR4,GR4         ; マイナスフラグを初期化
-CHK1    AND     GR1,GR1         ; (GR1 > 0)の場合は、CHK2へジャンプ
-        JPL     CHK2            ; ↓
-        XOR     GR1,ALLON       ; GR1の正負を反転
-        ADDA    GR1,ONE         ; ↓
-        JOV     FIN             ; (GR1 = -32768)の場合は終了
-        XOR     GR4,ONE         ; GR4 <- 1
-CHK2    AND     GR2,GR2         ; (GR1 > 0)の場合は、DIVへジャンプ
-        JPL     DIV             ; ↓
-        XOR     GR2,ALLON       ; GR2の正負を反転
-        ADDA    GR2,ONE         ; ↓
-        JOV     FIN             ; (GR2 = -32768)の場合は終了
-        XOR     GR4,ONE         ; マイナスフラグを反転
-DIV     CALL    DIVL            ; GR0 <- GR1 / GR2; GR3 <- GR1 mod GR2
-        JOV     FIN             ; (GR2 = 0)の場合は終了
-MIN     AND     GR4,GR4         ; マイナスフラグがオフの場合、終了
-        JZE     FIN             ; ↓
-        XOR     GR0,ALLON       ; GR1の正負を反転
-        ADDA    GR0,ONE         ; ↓
-        XOR     GR3,ALLON       ; GR3の正負を反転
-        ADDA    GR3,ONE         ; ↓
-        JUMP    FIN
-OV      ADDL    GR0,=#8000
-FIN     POP    GR4
-       POP     GR2
-        POP    GR1
-        RET
-ONE     DC      1
-ALLON   DC      #FFFF
-        END
diff --git a/as/casl2lib/src/divl.casl b/as/casl2lib/src/divl.casl
deleted file mode 100644 (file)
index 3591366..0000000
+++ /dev/null
@@ -1,47 +0,0 @@
-;;; 0〜65535の範囲にある正数の割算(筆算方式)を行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
-DIVL    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0:商 初期化
-        XOR     GR3,GR3         ; GR3:剰余 初期化
-        AND     GR2,GR2         ; (GR2 = 0)の場合、DIVZEROへジャンプ
-        JZE     DIVZERO         ; ↓
-        AND     GR1,GR1         ; (GR1 = 0)の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        ST      GR2,Y           ; YにGR2の初期値を保存
-        LAD     GR4,1           ; GR4:対象ビットのインデックス 初期化
-SL      CPL     GR2,GR1         ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
-        JPL     LOOP            ; ↓
-        SLL     GR4,1           ; GR4を1回左シフト
-        ST      GR2,TMP         ; GR2の値をTMPに退避
-        SLL     GR2,1           ; GR2を1回左シフト
-        JOV     YOV             ; オーバーフローの場合は、YOVへジャンプ
-        JUMP    SL              ; ループ終端
-YOV     LD      GR2,TMP         ; GR2の値をTMPから復元
-        SRL     GR4,1           ; GR4を1回右シフト
-        JUMP    LPIN            ; LPINへジャンプ
-LOOP    SRL     GR4,1           ; ループ先頭。GR4を1回右シフト
-        JZE     SETMOD          ; (GR4 = 0)の場合、SETMODへループ脱出
-        SRL     GR2,1           ; GR2を1回右シフト
-        CPL     GR1,Y           ; (GR1 < Y)の場合、SETMODへループ脱出
-        JMI     SETMOD          ; ↓
-        CPL     GR1,GR2         ; (GR1 < GR2)の場合、ループ先頭へジャンプ
-        JMI     LOOP            ; ↓
-LPIN    SUBL    GR1,GR2         ; GR1 <- GR1 - GR2
-        ADDL    GR0,GR4         ; GR0 <- GR0 + GR4
-        JUMP    LOOP            ; ループ終端
-DIVZERO LAD     GR3,#8000       ; 強制的にオーバーフローを発生させ、GR3 <- 0
-        SLL     GR3,1           ; ↓
-        JUMP    FIN             ; FIN へジャンプ
-SETMOD  LD      GR3,GR1         ; GR3 <- GR1。剰余の設定
-FIN     POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-Y       DS      1
-TMP     DS      1
-        END
diff --git a/as/casl2lib/src/inl.casl b/as/casl2lib/src/inl.casl
deleted file mode 100644 (file)
index 5e13109..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-;;; 0から65535の範囲にある整数の入力を受け付ける
-;;; 入力 (SVC)
-;;; 出力 GR1: 入力された数値
-;;;     GR2: 文字列の長さ。
-;;;          入力が数字以外の場合は、SFフラグを設定
-;;;          65535を超える数値の場合は、OFフラグを設定
-INL     START
-        PUSH    0,GR3
-        IN      IBUF,ILEN       ; 入力文字列を格納
-        LAD     GR1,IBUF
-        LD      GR2,ILEN
-        CALL    STR2L
-        JOV     FIN
-        JMI     FIN
-        LD      GR1,GR3
-FIN     POP     GR3
-        RET
-IBUF    DS      5
-ILEN    DS      1
-MAXLEN  DC      5
-        END
diff --git a/as/casl2lib/src/l2str.casl b/as/casl2lib/src/l2str.casl
deleted file mode 100644 (file)
index dbf9a6f..0000000
+++ /dev/null
@@ -1,30 +0,0 @@
-;;; 符号なし整数を文字列に変換する。
-;;; 符号なし整数を文字列に変換する。
-;;; 入力 GR1:符号なし整数 G2:変換した文字列を格納するメモリーの先頭アドレス
-;;; 出力 GR0:文字列の長さ (同上)
-;;; 依存プログラム: DIVL, REV
-L2STR   START
-        PUSH    0,GR1
-        PUSH    0,GR4
-        XOR     GR0,GR0         ; GR0 <- 0
-        LD      GR4,GR2         ; GR4 <- GR2
-        PUSH    0,GR2           ; GR2の保存
-        LAD     GR2,10          ; GR2 <- 10。10進数の 10
-LOOP    LD      GR1,GR1         ; ループ先頭。GR1をテスト
-        JZE     SRT             ; GR1が0の場合、ループ終了
-        CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
-        ADDL    GR3,='0'        ; GR3を文字に変換
-        ST      GR3,0,GR4       ; GR4のアドレスに、GR3を格納
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        LD      GR1,GR0         ; GR0の商をGR1にコピー
-        JUMP    LOOP            ; ループ終端
-SRT     POP     GR2             ; GR2の復元
-        LD      GR1,GR2         ; GR1に文字列のアドレスを格納
-        SUBL    GR4,GR2         ; GR4 <- GR4 - GR2
-        LD      GR2,GR4         ; GR2 <- GR4
-        CALL    REV             ; 文字列を逆順に並べ替え
-        LD      GR0,GR2         ; GR0 <- GR4 文字列の長さを格納
-        POP     GR4
-        POP     GR1
-        RET
-        END
diff --git a/as/casl2lib/src/max.casl b/as/casl2lib/src/max.casl
deleted file mode 100644 (file)
index b7afe8f..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-;;; 連続した複数のWORDを符号付き整数とみなして最大値を返す
-;;; 入力: GR1: WORD値を格納したアドレス GR2: 値の個数
-;;; 出力: GR0: 最大値
-MAX     START
-        RPUSH
-        LD      GR0,0,GR1       ; MAX <- GR1アドレスの値
-        ST      GR0,MAX         ; ↓
-        LAD     GR3,0           ; GR3:インデックス 初期化
-S1      CPA     GR3,GR2         ; ループ先頭。(GR2 = GR3)の場合、終了
-        JZE     RET             ; ↓
-        LAD     GR1,1,GR1       ; GR1 <- GR1 + 1
-        LD      GR0,0,GR1       ;
-        CPA     GR0,MAX         ;
-        JMI     S2              ;
-        JZE     S2              ;
-        ST      GR0,MAX         ;
-S2      LAD     GR3,1,GR3       ;
-        JUMP    S1              ;
-RET     LD      GR0,MAX         ;
-        RPOP
-        RET
-MAX     DS      1               ; 最小値を格納
-        END
diff --git a/as/casl2lib/src/minim.casl b/as/casl2lib/src/minim.casl
deleted file mode 100644 (file)
index 83d973f..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-;;; 複数のWORD値の中から、最小値を返す
-;;; 入力: GR1: WORD値を格納したアドレス GR2: 値の個数
-;;; 出力: GR0: 最小値
-MINIM   START
-        RPUSH
-        LD      GR0,0,GR1       ; MIN <- GR1アドレスの値
-        ST      GR0,MIN         ; ↓
-        LAD     GR3,0           ; GR3:インデックス 初期化
-S1      CPA     GR3,GR2         ; ループ先頭。(GR2 = GR3)の場合、終了
-        JZE     RET             ; ↓
-        LAD     GR1,1,GR1       ; GR1 <- GR1 + 1
-        LD      GR0,0,GR1       ;
-        CPA     GR0,MIN         ;
-        JPL     S2              ;
-        JZE     S2              ;
-        ST      GR0,MIN         ;
-S2      LAD     GR3,1,GR3       ;
-        JUMP    S1              ;
-RET     LD      GR0,MIN         ;
-        RPOP
-        RET
-MIN     DS      1               ; 最小値を格納
-        END
diff --git a/as/casl2lib/src/mula.casl b/as/casl2lib/src/mula.casl
deleted file mode 100644 (file)
index 431486a..0000000
+++ /dev/null
@@ -1,41 +0,0 @@
-;;; -32767〜32767の範囲にある正数のかけ算(筆算方式)を行う
-;;; 入力 GR1:被乗数 GR2:乗数
-;;; 出力 GR0:積
-;;; 被乗数または乗数が-32768の場合は、オーバーフロー
-;;; 積が-32767未満または32767より大きい場合は、GR0は積の下位16ビットになり、オーバーフロー
-MULA    START
-        RPUSH
-        XOR     GR0,GR0         ; 積
-        AND     GR1,GR1         ; (GR1 = 0)の場合、終了
-        JZE     FIN             ; ↓
-        AND     GR2,GR2         ; (GR2 = 0)の場合、終了
-        JZE     FIN             ; ↓
-        LAD     GR3,1           ; 対象ビット
-        XOR     GR4,GR4         ; マイナスフラグ
-CHK1    AND     GR1,GR1         ; (GR1 > 0)の場合は、CHK2へジャンプ
-        JPL     CHK2            ; ↓
-        XOR     GR1,ALLON       ; GR1の正負を反転
-        ADDA    GR1,ONE         ; ↓
-        JOV     FIN             ; (GR1 = -32768)の場合は終了
-        XOR     GR4,ONE         ; GR4 <- 1
-CHK2    AND     GR2,GR2         ; (GR1 > 0)の場合は、LOOPへジャンプ
-        JPL     MUL             ; ↓
-        XOR     GR2,ALLON       ; GR2の正負を反転
-        ADDA    GR2,ONE         ; ↓
-        JOV     FIN             ; (GR2 = -32768)の場合は終了
-        XOR     GR4,ONE         ; マイナスフラグを反転
-MUL     CALL    MULL            ; GR0 <- GR1 * GR2
-        JOV     FIN
-        AND     GR0,GR0
-        JMI     OV
-MIN     AND     GR4,GR4         ; マイナスフラグがオフの場合、終了
-        JZE     FIN             ; ↓
-        XOR     GR0,ALLON       ; GR1の正負を反転
-        ADDA    GR0,ONE         ; ↓
-        JUMP    FIN
-OV      ADDL    GR0,=#8000
-FIN     RPOP
-        RET
-ONE     DC      1
-ALLON   DC      #FFFF
-        END
diff --git a/as/casl2lib/src/mull.casl b/as/casl2lib/src/mull.casl
deleted file mode 100644 (file)
index 53579ce..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-;;; 0〜65535の範囲にある正数のかけ算(筆算方式)を行う
-;;; 入力 GR1:被乗数 GR2:乗数
-;;; 出力 GR3:積
-;;; 積が65535より大きい場合は、オーバーフロー
-MULL    START
-        XOR     GR3,GR3         ; GR3の初期化
-        AND     GR1,GR1         ; GR1 = 0 の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        AND     GR2,GR2         ; GR2 = 0 の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        PUSH    0,GR1           ; GR1の退避
-        PUSH    0,GR2           ; GR2の退避
-LOOP    SRL     GR2,1           ; ループ開始。SRLを1つ右シフト
-        JOV     ON              ; 乗数の最下位ビットが1の場合、ONへジャンプ
-        JUMP    NEXT            ; NEXTへジャンプ
-ON      ADDL    GR3,GR1         ; GR3 <- GR3 + GR1
-        JOV     POST            ; GR3がオーバーフローした場合、POSTへジャンプ
-NEXT    AND     GR2,GR2         ; GR2 = 0 の場合、POSTへジャンプ
-        JZE     POST            ; ↓
-        SLL     GR1,1           ; GR1を1つ左シフト
-        JOV     POST            ; GR1がオーバーフローした場合、POSTへジャンプ
-        JUMP    LOOP            ; ループ終端
-POST    POP     GR2             ; GR2の復元
-        POP     GR1             ; GR1の復元
-FIN     RET
-        END
diff --git a/as/casl2lib/src/mull0.casl b/as/casl2lib/src/mull0.casl
deleted file mode 100644 (file)
index 83cac02..0000000
+++ /dev/null
@@ -1,25 +0,0 @@
-; 符号なし乗算
-; 入力
-;   GR0 = 被乗数
-;   GR1 = 乗数
-; 出力
-;   GR3 = 結果
-MULL     START
-; レジスタを退避
-         PUSH   0,GR1
-         PUSH   0,GR2
-; 初期化
-         XOR    GR3,GR3 ; GR3 = 積
-; 被乗数をシフトしながら加算していく
-LOOP     SRL    GR2,1   ; 最下位ビットが
-         JOV    ONE     ; 1なら加算
-         JUMP   ZERO    ; 0なら加算しない
-ONE      ADDL   GR3,GR1 ;
-ZERO     SLL    GR1,1   ; 被乗数をシフト
-         AND    GR2,GR2 ; 乗数に1のビットが
-         JNZ    LOOP    ; あれば続行
-; レジスタを復元
-         POP    GR2
-         POP    GR1
-         RET
-         END
diff --git a/as/casl2lib/src/outa.casl b/as/casl2lib/src/outa.casl
deleted file mode 100644 (file)
index 6f8f84d..0000000
+++ /dev/null
@@ -1,44 +0,0 @@
-;;; GR1に格納された値を、10進数の整数値(-32768〜32767)として表示
-OUTA    START
-        RPUSH
-        LAD     GR2,10          ; GR2に10進数の「10」を格納。
-        LAD     GR0,0           ; GR0 <- 0
-        LAD     GR4,0           ; 負数フラグ。GR1が負数の場合、GR4は1
-        LAD     GR5,0           ; 整数値の長さ
-        AND     GR1,GR1         ; GR1をテスト
-        JZE     ZPRT            ; GR1が0の場合、ZPRTにジャンプ
-        JPL     STI             ; GR1が正数の場合、STIにジャンプ
-        LAD     GR4,1           ; GR1が負数の場合、GR4をオン
-        CALL    ABS             ;                  GR1を正数に変換
-STI     CPL     GR1,GR2         ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
-        JMI     STLST           ; ↓
-        CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
-        LD      GR1,GR3         ; GR1にGR3をコピー
-        LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR5     ; (STR + GR5) <- GR1
-        LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
-        LD      GR1,GR0         ; GR0をGR1にコピー
-        JUMP    STI             ; ループ終端
-STLST   LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR5     ; (STR + GR5) <- GR1
-        LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
-        AND     GR4,GR4         ; 正数の場合
-        JZE     PRT             ; ↓
-        LD      GR1,='-'        ; 負数の場合、「-」をSTR領域に格納
-        ST      GR1,STR,GR5     ; (STR + GR5) <- GR1
-        LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
-        JUMP    PRT             ; PRTにジャンプ
-ZPRT    LD      GR1,NCHAR       ; 「0」をSTR領域に格納
-        ST      GR1,STR,GR5     ; (STR + GR5) <- GR1
-        LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
-PRT     ST      GR5,LEN         ; LEN <- GR5
-        LD      GR2,LEN         ; GR2にLENの値を格納
-        LAD     GR1,STR         ; GR1に文字列のアドレスを格納
-        CALL    REV             ; 文字列を逆順に並べ替え
-        OUT     STR,LEN         ; 文字列を出力
-        RPOP
-        RET
-STR     DS      17
-LEN     DS      1
-NCHAR   DC      '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-        END
diff --git a/as/casl2lib/src/outaq15.casl b/as/casl2lib/src/outaq15.casl
deleted file mode 100644 (file)
index 7c0e01c..0000000
+++ /dev/null
@@ -1,46 +0,0 @@
-;; GR1に格納された値を、10進数の符号付き小数値として表示
-OUTAQ15 START
-        RPUSH
-        LAD     GR2,10          ; GR2に10進数の「10」を格納
-        XOR     GR4,GR4         ; 整数値の長さ
-        XOR     GR3,GR3         ; 出力する文字を一時的に格納
-        AND     GR1,GR1         ; GR1の符号をチェック
-        JPL     STDN            ; ↓ GR1が正数の場合、STDNにジャンプ
-        LD      GR3,='-'        ; ↓ GR1が負数の場合、「-」をSTR領域に格納
-        ST      GR3,STR         ; ↓ ↓
-        LAD     GR4,1,GR4       ; ↓ ↓ GR4 <- GR4 + 1
-        CPA     GR1,=#8000      ; (GR1 = #8000)の場合、MINONEへジャンプ
-        JZE     MINONE          ; ↓
-        CALL    ABS             ; GR1を正数に変換
-STDN    LD      GR3,='0'        ; 「0」をSTR領域に格納
-        ST      GR3,STR,GR4     ; ↓
-        AND     GR1,GR1         ; GR1が0の場合、PRTへジャンプ
-        JZE     PRT             ; ↓
-        LAD     GR4,1,GR4       ; ↓ GR4 <- GR4 + 1
-        LD      GR3,='.'        ; 「.」をSTR領域に格納
-        ST      GR3,STR,GR4     ; ↓
-        LAD     GR4,1,GR4       ; ↓ GR4 <- GR4 + 1
-        SLL     GR1,1           ; GR1を1回左シフト
-;; GR1の内容を小数値と見なし、10進数の文字列に変換してSTRに格納
-TODIG   AND     GR1,GR1         ; GR1が0の場合は、ループを脱出
-        JZE     PRT             ; ↓
-        CALL    MULL            ; GR1とGR2の、積をGR1、オーバーフロー値をGR3に格納
-        LD      GR1,GR0         ; GR0をGR1にコピー
-        ADDA    GR3,='0'        ; GR1を文字に変換
-        ST      GR3,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        JUMP    TODIG           ; ループ
-;; GR1 = -1の場合
-MINONE  LD      GR1,='1'        ; GR1が#8000の場合、-1を出力
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        JUMP    PRT             ; ↓
-;; 値を出力
-PRT     ST      GR4,LEN         ; LEN <- GR4
-        OUT     STR,LEN         ; ↓
-        RPOP
-        RET
-STR     DS      20
-LEN     DS      1
-        END
-
diff --git a/as/casl2lib/src/outb.casl b/as/casl2lib/src/outb.casl
deleted file mode 100644 (file)
index 7ecb73e..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-;;; GR1に格納された値を、2進数値として表示
-OUTB    START
-        RPUSH
-        LD      GR2,BIN         ; GR2に2進数の「2」を格納。
-        XOR     GR4,GR4         ; GR4: 2進数値の長さ
-STI     CPL     GR1,GR2         ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
-        JMI     STLST           ; ↓
-        CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
-        LD      GR1,GR3         ; GR1にGR3をコピー
-        LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        LD      GR1,GR0         ; GR0をGR1にコピー
-        JUMP    STI             ; ループ終端
-STLST   LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-EMLOOP  CPL     GR4,DIG         ; ループ先頭。(GR4 = DIG)の場合は、ループ脱出
-        JZE     PRT             ; ↓
-        LD      GR1,NCHAR       ; GR1 <- NCHAR:'0'
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        JUMP    EMLOOP          ; ループ終端
-PRT     ST      GR4,LEN         ; LEN <- GR4
-        LD      GR2,LEN         ; GR2にLENの値を格納
-        LAD     GR1,STR         ; GR1に文字列のアドレスを格納
-        CALL    REV             ; 文字列を逆順に並べ替え
-        OUT     STR,LEN         ; 文字列を出力
-        RPOP
-        RET
-STR     DS      17
-LEN     DS      1
-BIN     DC      2
-NCHAR   DC      '01'
-SPC     DC      ' '
-DIG     DC      16
-        END
diff --git a/as/casl2lib/src/outbw.casl b/as/casl2lib/src/outbw.casl
deleted file mode 100644 (file)
index 7616bfe..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-;;; GR1に格納された値を、空白付きの2進数値として表示
-OUTBW   START
-        RPUSH
-        LD      GR2,BIN         ; GR2に2進数の「2」を格納。
-        XOR     GR4,GR4         ; GR4: 2進数値の長さ
-STI     CPL     GR1,GR2         ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
-        JMI     STLST           ; ↓
-        CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
-        LD      GR1,GR3         ; GR1にGR3をコピー
-        LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        LD      GR1,SPC         ; GR1 <- SPC
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        LD      GR1,GR0         ; GR0をGR1にコピー
-        JUMP    STI             ; ループ終端
-STLST   LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-EMLOOP  CPL     GR4,DIG         ; ループ先頭。(GR4 = DIG)の場合は、ループ脱出
-        JZE     PRT             ; ↓
-        LD      GR1,SPC         ; GR1 <- SPC
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        LD      GR1,NCHAR       ; GR1 <- NCHAR:'0'
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        JUMP    EMLOOP          ; ループ終端
-PRT     ST      GR4,LEN         ; LEN <- GR4
-        LD      GR2,LEN         ; GR2にLENの値を格納
-        LAD     GR1,STR         ; GR1に文字列のアドレスを格納
-        CALL    REV             ; 文字列を逆順に並べ替え
-        OUT     STR,LEN         ; 文字列を出力
-        RPOP
-        RET
-STR     DS      32
-LEN     DS      1
-BIN     DC      2
-NCHAR   DC      '01'
-SPC     DC      ' '
-DIG     DC      31
-        END
diff --git a/as/casl2lib/src/outl.casl b/as/casl2lib/src/outl.casl
deleted file mode 100644 (file)
index 8e67497..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-;;; GR1に格納された値を、10進数の整数値(0〜65535)として表示
-;;; 依存プログラム: DIVL, REV
-OUTL    START
-        RPUSH
-        LAD     GR2,10          ; GR2に10進数の「10」を格納。
-        XOR     GR0,GR0         ; GR0 <- 0
-        XOR     GR4,GR4         ; 整数値の長さ
-        AND     GR1,GR1         ; GR1をテスト
-        JZE     ZERO            ; GR1が0の場合、ZEROにジャンプ
-STI     CPL     GR1,GR2         ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
-        JMI     STLST           ; ↓
-        CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
-        LD      GR1,GR3         ; GR1にGR3をコピー
-        LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        LD      GR1,GR0         ; GR0をGR1にコピー
-        JUMP    STI             ; ループ終端
-STLST   LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        JUMP    PRT             ; PRTにジャンプ
-ZERO    LD      GR1,NCHAR       ; 「0」をSTR領域に格納
-        ST      GR1,STR,GR4     ; ↓ (STR + GR4) <- GR1
-        LAD     GR4,1,GR4       ; ↓ GR4 <- GR4 + 1
-PRT     ST      GR4,LEN         ; LEN <- GR4
-        LD      GR2,LEN         ; GR2にLENの値を格納
-        LAD     GR1,STR         ; GR1に文字列のアドレスを格納
-        CALL    REV             ; 文字列を逆順に並べ替え
-        OUT     STR,LEN         ; 文字列を出力
-        RPOP
-        RET
-STR     DS      17              ; 符号付き2進数で表記した場合を想定
-LEN     DS      1
-NCHAR   DC      '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-        END
diff --git a/as/casl2lib/src/outlq15.casl b/as/casl2lib/src/outlq15.casl
deleted file mode 100644 (file)
index 2ae4b25..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-;; GR1に格納された値を、10進数の符号なし小数値として表示
-OUTLQ15 START
-        RPUSH
-        LAD     GR2,10          ; GR2に10進数の「10」を格納
-        XOR     GR4,GR4         ; 整数値の長さ
-STDN    LD      GR3,='0'        ; 「0」をSTR領域に格納
-        ST      GR3,STR,GR4     ; ↓
-        AND     GR1,GR1         ; GR1が0の場合、PRTへジャンプ
-        JZE     PRT             ; ↓
-        LAD     GR4,1,GR4       ; ↓ GR4 <- GR4 + 1
-        LD      GR3,='.'        ; 「.」をSTR領域に格納
-        ST      GR3,STR,GR4     ; ↓
-        LAD     GR4,1,GR4       ; ↓ GR4 <- GR4 + 1
-;; GR1の内容を小数値と見なし、10進数の文字列に変換してSTRに格納
-TODIG   AND     GR1,GR1         ; GR1が0の場合は、ループを脱出
-        JZE     PRT             ; ↓
-        CALL    MULL            ; GR1とGR2の、積をGR0、オーバーフロー値をGR3に格納
-        LD      GR1,GR0         ; GR0をGR1にコピー
-        ADDA    GR3,='0'        ; GR3を文字に変換
-        ST      GR3,STR,GR4     ; (STR + GR3) <- GR1
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        JUMP    TODIG           ; ループ
-PRT     ST      GR4,LEN         ; LEN <- GR4
-        OUT     STR,LEN         ; 文字列を出力
-        RPOP
-        RET
-STR     DS      20
-LEN     DS      1
-        END
diff --git a/as/casl2lib/src/outpbm.casl b/as/casl2lib/src/outpbm.casl
deleted file mode 100644 (file)
index 70803c3..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-;;; PBM画像ファイルを出力
-;;;   GR1: 画像ビット列の先頭アドレス
-;;;   GR2: 画像の幅
-;;;   GR3: 画像の高さ
-OUTPBM  START
-        OUT     HEADER,HLEN
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR3
-        PUSH    0,GR4
-        XOR     GR4,GR4
-        LD      GR1,GR2
-        LAD     GR2,WIDTH
-        CALL    L2STR
-        LD      GR4,GR0
-        LAD     GR4,1,GR4
-        LD      GR1,SPC
-        ST      GR1,WIDTH,GR4
-        LAD     GR4,1,GR4
-        LD      GR1,GR3
-        LAD     GR2,WIDTH,GR4
-        CALL    L2STR
-        ADDL    GR4,GR0
-        ST      GR4,WHLEN
-        OUT     WIDTH,WHLEN
-        POP     GR4
-        POP     GR3
-        POP     GR2
-        POP     GR1
-        RET
-HEADER  DC      'P1'
-HLEN    DC      2
-WIDTH   DS      32
-SPC     DC      ' '
-HEIGHT  DS      1
-WHLEN   DS      1
diff --git a/as/casl2lib/src/pbm16.casl b/as/casl2lib/src/pbm16.casl
deleted file mode 100644 (file)
index 39671ca..0000000
+++ /dev/null
@@ -1,31 +0,0 @@
-;;; PBM16
-;;; GR1で指定されたアドレス以降のメモリを 16×16 の
-;;; 白黒ビットマップ画像データ(白:0 黒:1)とみなし、
-;;; PBM画像ファイルとして出力
-;;; 入力: GR1 画像データの先頭アドレス
-;;; 依存副プログラム: outb_w.casl divl.casl rotate.casl
-PBM16   START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        ST      GR1,BEG
-        OUT     L1,L1LEN
-        OUT     L2,L2LEN
-        XOR     GR2,GR2
-LOOP    CPL     GR2,HEIGHT
-        JZE     FIN
-        LD      GR1,BEG
-        ADDL    GR1,GR2
-        LD      GR1,0,GR1
-        CALL    OUTB
-        LAD     GR2,1,GR2
-        JUMP    LOOP
-FIN     POP     GR2
-        POP     GR1
-        RET
-L1      DC      'P1'
-L1LEN   DC      2
-L2      DC      '16 16'
-L2LEN   DC      5
-HEIGHT  DC      16
-BEG     DS      1
-        END
diff --git a/as/casl2lib/src/rev.casl b/as/casl2lib/src/rev.casl
deleted file mode 100644 (file)
index 397c5c4..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
-;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
-;;;     例: 12345 -> 54321、54321- -> -12345
-;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
-;;; 出力 (同上)
-REV     START
-        RPUSH
-        LAD     GR3,0           ; GR3の初期化
-PU      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     NEXT            ; ↓
-        LD      GR4,GR1         ; GR4 <- GR1
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        LD      GR5,0,GR4       ; GR5 <- GR4アドレスの値
-        PUSH    0,GR5           ; GR5をプッシュ
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PU              ; ループ終端
-NEXT    LAD     GR3,0           ; GR3の初期化
-PO      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
-        JZE     FIN             ; ↓
-        POP     GR5             ; GR5にポップ
-        LD      GR4,GR1         ; GR4にGR1の値をコピー
-        ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
-        ST      GR5,0,GR4       ; GR4のアドレス <- GR5の値
-        LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
-        JUMP    PO              ; ループ終端
-FIN     RPOP
-        RET
-        END
diff --git a/as/casl2lib/src/stdlib.casl b/as/casl2lib/src/stdlib.casl
deleted file mode 100644 (file)
index 16915da..0000000
+++ /dev/null
@@ -1 +0,0 @@
-;; CASL IIライブラリー
diff --git a/as/casl2lib/src/str2l.casl b/as/casl2lib/src/str2l.casl
deleted file mode 100644 (file)
index dec0b9d..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-;;; 10進数の整数を表す文字列を数値に変換
-;;; 数値の範囲は、0から65535
-;;; 入力 GR1: 文字列を格納するメモリーの先頭アドレス
-;;;     GR2: 文字列の長さ。最大5けた
-;;; 出力 GR3: 数値
-;;;           文字列が最大長より大きい場合と数値以外の場合は、GR3は#FFFF、OFは1
-;;;           数値以外の場合、OFは1
-;;; 依存プログラム: MULL
-STR2L   START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        PUSH    0,GR5
-        PUSH    0,GR6
-        PUSH    0,GR7
-        XOR     GR3,GR3         ; GR3の初期化
-        AND     GR2,GR2         ; GR2 = 0の場合、OVへジャンプ
-        JZE     OV              ; ↓
-        CPL     GR2,=5          ; GR2 > 5の場合、OVへジャンプ
-        JPL     OV              ; ↓
-        XOR     GR4,GR4         ; GR4: インデックスの初期化
-        LD      GR5,GR1         ; GR5 <- GR1
-        LD      GR6,GR2         ; GR6 <- GR2
-        XOR     GR1,GR1         ; GR1の初期化
-STOL    LD      GR1,GR5         ; GR1に、入力文字列中の次の桁を格納
-        ADDL    GR1,GR4         ; ↓
-        LD      GR1,0,GR1       ; ↓
-        LD      GR7,ZERO        ; GR1 < '0'の場合、FINへジャンプ
-        CPL     GR1,GR7         ; ↓
-        JMI     FIN             ; ↓
-        LD      GR7,NINE        ; GR1 > '9'の場合、FINへジャンプ
-        CPL     GR7,GR1         ; ↓
-        JMI     FIN             ; ↓
-        SUBL    GR1,ZERO        ; GR1の文字を、対応する数値に変換
-        ADDL    GR3,GR1
-        JOV     FIN
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        CPL     GR4,GR6         ; GR4 = GR6の場合、ループ脱出
-        JZE     FIN             ; ↓
-MUL10   LAD     GR2,10          ; GR2:10進数の 10
-        LD      GR1,GR3         ; GR1 <- GR3
-        CALL    MULL            ; MULLを呼び出し、GR3 <- GR1 * GR2
-        JUMP    STOL            ; ループ終端
-OV      LAD     GR7,1           ; オーバーフロー発生
-        SRL     GR7,1           ; ↓
-FIN     POP     GR7
-        POP     GR6
-        POP     GR5
-        POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-ZERO    DC      '0'
-NINE    DC      '9'
-        END
diff --git a/as/casl2lib/str2l.casl b/as/casl2lib/str2l.casl
deleted file mode 100644 (file)
index 247637e..0000000
+++ /dev/null
@@ -1,81 +0,0 @@
-;;; 10進数の整数を表す文字列を数値に変換
-;;; 数値の範囲は、0から65535
-;;; 入力 GR1: 文字列を格納するメモリーの先頭アドレス
-;;;     GR2: 文字列の長さ。最大5けた
-;;; 出力 GR3: 数値
-;;;           文字列が最大長より大きい場合と数値以外の場合は、GR3は#FFFF、OFは1
-;;;           数値以外の場合、OFは1
-;;; 依存プログラム: MULL
-STR2L   START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        PUSH    0,GR4
-        PUSH    0,GR5
-        PUSH    0,GR6
-        PUSH    0,GR7
-        XOR     GR3,GR3         ; GR3の初期化
-        AND     GR2,GR2         ; GR2 = 0の場合、OVへジャンプ
-        JZE     OV              ; ↓
-        CPL     GR2,=5          ; GR2 > 5の場合、OVへジャンプ
-        JPL     OV              ; ↓
-        XOR     GR4,GR4         ; GR4: インデックスの初期化
-        LD      GR5,GR1         ; GR5 <- GR1
-        LD      GR6,GR2         ; GR6 <- GR2
-        XOR     GR1,GR1         ; GR1の初期化
-STOL    LD      GR1,GR5         ; GR1に、入力文字列中の次の桁を格納
-        ADDL    GR1,GR4         ; ↓
-        LD      GR1,0,GR1       ; ↓
-        LD      GR7,ZERO        ; GR1 < '0'の場合、FINへジャンプ
-        CPL     GR1,GR7         ; ↓
-        JMI     FIN             ; ↓
-        LD      GR7,NINE        ; GR1 > '9'の場合、FINへジャンプ
-        CPL     GR7,GR1         ; ↓
-        JMI     FIN             ; ↓
-        SUBL    GR1,ZERO        ; GR1の文字を、対応する数値に変換
-        ADDL    GR3,GR1
-        JOV     FIN
-        LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
-        CPL     GR4,GR6         ; GR4 = GR6の場合、ループ脱出
-        JZE     FIN             ; ↓
-MUL10   LAD     GR2,10          ; GR2:10進数の 10
-        LD      GR1,GR3         ; GR1 <- GR3
-        CALL    MULL            ; MULLを呼び出し、GR3 <- GR1 * GR2
-        JUMP    STOL            ; ループ終端
-OV      LAD     GR7,1           ; オーバーフロー発生
-        SRL     GR7,1           ; ↓
-FIN     POP     GR7
-        POP     GR6
-        POP     GR5
-        POP     GR4
-        POP     GR2
-        POP     GR1
-        RET
-ZERO    DC      '0'
-NINE    DC      '9'
-        END
-;;; 0〜65535の範囲にある正数のかけ算(筆算方式)を行う
-;;; 入力 GR1:被乗数 GR2:乗数
-;;; 出力 GR3:積
-;;; 積が65535より大きい場合は、オーバーフロー
-MULL    START
-        XOR     GR3,GR3         ; GR3の初期化
-        AND     GR1,GR1         ; GR1 = 0 の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        AND     GR2,GR2         ; GR2 = 0 の場合、FINへジャンプ
-        JZE     FIN             ; ↓
-        PUSH    0,GR1           ; GR1の退避
-        PUSH    0,GR2           ; GR2の退避
-LOOP    SRL     GR2,1           ; ループ開始。SRLを1つ右シフト
-        JOV     ON              ; 乗数の最下位ビットが1の場合、ONへジャンプ
-        JUMP    NEXT            ; NEXTへジャンプ
-ON      ADDL    GR3,GR1         ; GR3 <- GR3 + GR1
-        JOV     POST            ; GR3がオーバーフローした場合、POSTへジャンプ
-NEXT    AND     GR2,GR2         ; GR2 = 0 の場合、POSTへジャンプ
-        JZE     POST            ; ↓
-        SLL     GR1,1           ; GR1を1つ左シフト
-        JOV     POST            ; GR1がオーバーフローした場合、POSTへジャンプ
-        JUMP    LOOP            ; ループ終端
-POST    POP     GR2             ; GR2の復元
-        POP     GR1             ; GR1の復元
-FIN     RET
-        END
diff --git a/doc/casl2lib/Define.mk b/doc/casl2lib/Define.mk
deleted file mode 120000 (symlink)
index 551896d..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../test/template/Define.mk
\ No newline at end of file
diff --git a/doc/casl2lib/Makefile b/doc/casl2lib/Makefile
deleted file mode 120000 (symlink)
index c2ca8ea..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../test/template/Group.mk
\ No newline at end of file
diff --git a/doc/casl2lib/Test.mk b/doc/casl2lib/Test.mk
deleted file mode 120000 (symlink)
index 41e1cd8..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../test/template/Test.mk
\ No newline at end of file
diff --git a/doc/casl2lib/abs/0.txt b/doc/casl2lib/abs/0.txt
deleted file mode 100644 (file)
index d00491f..0000000
+++ /dev/null
@@ -1 +0,0 @@
-1
diff --git a/doc/casl2lib/abs/Makefile b/doc/casl2lib/abs/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/doc/casl2lib/abs/call_abs.casl b/doc/casl2lib/abs/call_abs.casl
deleted file mode 100644 (file)
index 251ee3d..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-;;; CASL2LIB > ABSを呼び出し、-1の絶対値を表示
-MAIN    START
-        LD      GR1,A
-        CALL    ABS
-        CALL    OUTA
-        RET
-A       DC      -1
-        END
diff --git a/doc/casl2lib/abs/cmd b/doc/casl2lib/abs/cmd
deleted file mode 100755 (executable)
index 700039d..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-PATH=../../..:$PATH
-CASL2LIBDIR=../../../as/casl2lib
-casl2 call_abs.casl $CASL2LIBDIR/abs.casl $CASL2LIBDIR/outa.casl $CASL2LIBDIR/divl.casl $CASL2LIBDIR/rev.casl
diff --git a/doc/casl2lib/addl32/0.txt b/doc/casl2lib/addl32/0.txt
deleted file mode 100644 (file)
index 97b23a9..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-MAIN    START
-        LAD     GR1,A
-        LAD     GR2,B
-        CALL    ADDL32
-        LD      GR2,GR0
-        LD      GR1,1,GR2
-        CALL    OUTL
-        LD      GR1,0,GR2
-        CALL    OUTL
-        RET
-A       DC      6,10
-B       DC      2,65530
-        END
-4
-9
diff --git a/doc/casl2lib/addl32/Makefile b/doc/casl2lib/addl32/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/doc/casl2lib/addl32/call_addl32.casl b/doc/casl2lib/addl32/call_addl32.casl
deleted file mode 100644 (file)
index 6072b8b..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-MAIN    START
-        LAD     GR1,A
-        LAD     GR2,B
-        CALL    ADDL32
-        LD      GR2,GR0
-        LD      GR1,1,GR2
-        CALL    OUTL
-        LD      GR1,0,GR2
-        CALL    OUTL
-        RET
-A       DC      6,10
-B       DC      2,65530
-        END
diff --git a/doc/casl2lib/addl32/cmd b/doc/casl2lib/addl32/cmd
deleted file mode 100755 (executable)
index d6e4227..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-PATH=../../..:$PATH
-CASL2LIBDIR=../../../as/casl2lib
-cat call_addl32.casl && casl2 call_addl32.casl $CASL2LIBDIR/addl32.casl $CASL2LIBDIR/divl.casl $CASL2LIBDIR/rev.casl $CASL2LIBDIR/outl.casl
diff --git a/doc/casl2lib/diva/0.txt b/doc/casl2lib/diva/0.txt
deleted file mode 100644 (file)
index bab389d..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
--128
--127
diff --git a/doc/casl2lib/diva/Makefile b/doc/casl2lib/diva/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/doc/casl2lib/diva/call_diva.casl b/doc/casl2lib/diva/call_diva.casl
deleted file mode 100644 (file)
index 13acb85..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-;; CASL2LIB > DIVAを呼び出し、-32767 / 255 の商と剰余を表示
-MAIN    START
-BEGIN   LD      GR1,A
-        LD      GR2,B
-        CALL    DIVA
-        JOV     ERR
-        LD      GR1,GR0
-        CALL    OUTA
-        LD      GR1,GR3
-        CALL    OUTA
-        JUMP    FIN
-ERR     OUT     EMSG,ELEN
-FIN     RET
-A       DC      -32767
-B       DC      255
-EMSG    DC      'error'
-ELEN    DC      5
-        END
diff --git a/doc/casl2lib/diva/cmd b/doc/casl2lib/diva/cmd
deleted file mode 100755 (executable)
index c758964..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-PATH=../../..:$PATH
-CASL2LIBDIR=../../../as/casl2lib
-casl2 call_diva.casl $CASL2LIBDIR/diva.casl $CASL2LIBDIR/divl.casl $CASL2LIBDIR/outa.casl $CASL2LIBDIR/abs.casl $CASL2LIBDIR/rev.casl
diff --git a/doc/casl2lib/divl/0.txt b/doc/casl2lib/divl/0.txt
deleted file mode 100644 (file)
index 130f552..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-256
-254
diff --git a/doc/casl2lib/divl/Makefile b/doc/casl2lib/divl/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/doc/casl2lib/divl/call_divl.casl b/doc/casl2lib/divl/call_divl.casl
deleted file mode 100644 (file)
index 2347a43..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-;; CASL2LIB > DIVLを呼び出し、65534 / 255 の商と剰余を表示
-MAIN    START
-BEGIN   LD      GR1,A
-        LD      GR2,B
-        CALL    DIVL
-        JOV     ERR
-        LD      GR1,GR0
-        CALL    OUTL
-        LD      GR1,GR3
-        CALL    OUTL
-        JUMP    FIN        
-ERR     OUT     EMSG,ELEN
-FIN     RET
-A       DC      65534
-B       DC      255
-EMSG    DC      'error'
-ELEN   DC      5
-        END
diff --git a/doc/casl2lib/divl/cmd b/doc/casl2lib/divl/cmd
deleted file mode 100755 (executable)
index 9936525..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-PATH=../../..:$PATH
-CASL2LIBDIR=../../../as/casl2lib
-casl2 call_divl.casl $CASL2LIBDIR/divl.casl $CASL2LIBDIR/outl.casl $CASL2LIBDIR/rev.casl
diff --git a/doc/casl2lib/inl/0.txt b/doc/casl2lib/inl/0.txt
deleted file mode 100644 (file)
index 0a54b97..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-0
-1
-2
-10
-12
-32767
-32768
-65535
-Over 65535
-Over 65535
-Not integer
-Not integer
-12345
-Str too long. Stop
diff --git a/doc/casl2lib/inl/Makefile b/doc/casl2lib/inl/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/doc/casl2lib/inl/call_inl.casl b/doc/casl2lib/inl/call_inl.casl
deleted file mode 100644 (file)
index b16d692..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-;;; casl2 -M1024 call_inl.casl $CASL2LIB/inl.casl $CASL2LIB/str2l.casl  $CASL2LIB/mull.casl \
-;;; $CASL2LIB/outl.casl $CASL2LIB/divl.casl $CASL2LIB/rev.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      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 integer'
-MLEN2   DC      11
-LENOVMSG DC     'Str too long. Stop'
-MLEN3   DC      18
-        END
diff --git a/doc/casl2lib/inl/cmd b/doc/casl2lib/inl/cmd
deleted file mode 100755 (executable)
index b17a5b0..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-PATH=../../..:$PATH
-CASL2LIBDIR=../../../as/casl2lib
-casl2 -M 720 call_inl.casl $CASL2LIBDIR/inl.casl $CASL2LIBDIR/outl.casl $CASL2LIBDIR/str2l.casl $CASL2LIBDIR/divl.casl $CASL2LIBDIR/rev.casl $CASL2LIBDIR/mull.casl <in.txt
diff --git a/doc/casl2lib/inl/in.txt b/doc/casl2lib/inl/in.txt
deleted file mode 100644 (file)
index b6b862a..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-0
-1
-2
-10
-12
-32767
-32768
-65535
-65536
-90000
--1
-NOTNU
-12345
-100000
-1234
index 3cd53be..9ccba19 100644 (file)
@@ -40,7 +40,26 @@ Copyright @copyright{} 2010-2018 j8takagi
 * casl2 invocation::            casl2の呼び出し
 * comet2 invocation::           comet2の呼び出し
 * dumpword invocation::         dumpwordの呼び出し
-* CASL2LIB Manual::             CASL2LIBマニュアル
+
+@detailmenu
+ --- The Detailed Node Listing ---
+
+YACASL2の使用例
+
+* Simple output::               実行結果の出力だけを表示
+* Assemble result::             アセンブル結果の確認
+* Register and memory::         実行時のレジスタとメモリを表示
+* Only assemble::               アセンブルと実行を別に行う
+* Analyze word::                1語の解析
+* Use CASL2LIB::                CASL2ライブラリの使用
+
+実行時のレジスタとメモリを表示
+
+* Register specify::            特定のレジスタを表示
+* End value::
+* Step count::                  プログラムのステップ数を表示
+
+@end detailmenu
 @end menu
 
 @contents
@@ -826,300 +845,4 @@ $ @kbd{dumpword '#0048'}
 @command{dumpword}の使用方法を表示して終了します。
 @end table
 
-@node CASL2LIB Manual,  , dumpword invocation, Top
-@chapter CASL2LIBマニュアル
-
-@menu
-* ABS::                         @kbd{ABS} - @file{abs.casl}
-* DIVA::                        @kbd{DIVA} - @file{diva.casl}
-* DIVL::                        @kbd{DIVL} - @file{divl.casl}
-* INL::                         @kbd{INL} - @file{inl.casl}
-* L2STR::                       @kbd{L2STR} - @file{l2str.casl}
-* MAX::                         @kbd{MAX} - @file{max.casl}
-* MINIM::                       @kbd{MINIM} - @file{minim.casl}
-* MULA::                        @kbd{MULA} - @file{mula.casl}
-* MULL::                        @kbd{MULL} - @file{mull.casl}
-* OUTA::                        @kbd{OUTA} - @file{outa.casl}
-* OUTB::                        @kbd{OUTB} - @file{outb.casl}
-* OUTD_Q15::                    @kbd{OUTD_Q15} - @file{outd_q15.casl}
-* OUTL::                        @kbd{OUTL} - @file{outl.casl}
-* REV::                         @kbd{REV} - @file{rev.casl}
-* STR2L::                       @kbd{STR2L} - @file{str2l.casl}
-@end menu
-
-@node ABS, DIVA, CASL2LIB Manual, CASL2LIB Manual
-@section @kbd{ABS} - @file{abs.casl}
-GR1を符号付き整数とみなし、絶対値に変換
-
-@unnumberedsubsec 入力
-@table @code
-@item GR1
-符号付き整数
-@end table
-
-@unnumberedsubsec 出力
-@table @code
-@item GR1
-入力された値の絶対値
-
-@item OF
-入力された値が-32768の場合、1
-
-@item SF
-入力された値が負数(-32767から-1)の場合、1
-@end table
-
-@unnumberedsubsec 依存する副プログラム
-なし
-
-@unnumberedsubsec 使用例
-@example
-@verbatiminclude casl2lib/abs/call_abs.casl
-@end example
-
-@example
-$ @kbd{casl2 call_abs.casl $CASL2LIB/abs.casl $CASL2LIB/outa.casl \
-  $CASL2LIB/divl.casl $CASL2LIB/rev.casl}
-1
-@end example
-
-@node DIVA, DIVL, ABS, CASL2LIB Manual
-@section @kbd{DIVA} - @file{diva.casl}
-符号付き整数の割算を筆算方式で行う
-
-@unnumberedsubsec 入力
-@table @code
-@item GR1
-被除数
-
-@item GR2
-除数
-@end table
-
-@unnumberedsubsec 出力
-@table @code
-@item GR0
-商
-
-@item GR3
-剰余
-
-@item OF
-次の場合、1
-@itemize
-@item
-GR2が0
-
-@item
-GR1が-32768
-
-@item
-GR2が-32768
-@end itemize
-
-@item SF
-商が負数(-32767から-1)の場合、1
-
-@item ZF
-商が0の場合、1
-@end table
-
-@unnumberedsubsec 依存する副プログラム
-@itemize
-@item @code{DIVL}
-@end itemize
-
-@unnumberedsubsec 使用例
-@example
-@verbatiminclude casl2lib/diva/call_diva.casl
-@end example
-
-@example
-$ @kbd{casl2 call_diva.casl $CASL2LIB/diva.casl $CASL2LIB/divl.casl \
-  $CASL2LIB/outa.casl $CASL2LIB/abs.casl $CASL2LIB/rev.casl}
--128
--127
-@end example
-
-@node DIVL, INL, DIVA, CASL2LIB Manual
-@section @kbd{DIVL} - @file{divl.casl}
-符号なし整数の割算を筆算方式で行う
-
-@unnumberedsubsec 入力
-@table @code
-@item GR1
-被除数
-
-@item GR2
-除数
-@end table
-
-@unnumberedsubsec 出力
-@table @code
-@item GR0
-商
-
-@item GR3
-剰余
-
-@item OF
-GR2が0の場合、1
-
-@item SF
-商が32768から65535の場合、1
-
-@item ZF
-商が0の場合、1
-@end table
-
-@unnumberedsubsec 依存する副プログラム
-なし
-
-@unnumberedsubsec 使用例
-@example
-@verbatiminclude casl2lib/divl/call_divl.casl
-@end example
-
-@example
-$ @kbd{casl2 call_divl.casl $CASL2LIB/divl.casl $CASL2LIB/outl.casl \
-  $CASL2LIB/rev.casl}
-256
-254
-@end example
-
-@node INL, L2STR, DIVL, CASL2LIB Manual
-@section @kbd{INL} - @file{inl.casl}
-
-符号なし整数の入力を受け付ける
-
-@unnumberedsubsec 入力
-@table @code
-@item 標準入力
-符号なし整数
-@end table
-
-@unnumberedsubsec 出力
-@table @code
-@item GR1
-入力された符号なし整数
-
-@item GR0
-文字列の長さ。
-数字以外が入力された場合は@code{#FFFF}
-@end table
-
-@unnumberedsubsec 依存する副プログラム
-@itemize
-@item
-@code{STR2L}
-@end itemize
-
-@unnumberedsubsec 使用例
-次のコマンドを実行すると、数値の入力が受け付けられ、入力された数値が表示される。
-
-@example
-@verbatiminclude casl2lib/inl/call_inl.casl
-@end example
-
-@example
-$ @kbd{casl2 -M1024 call_inl.casl $CASL2LIB/inl.casl $CASL2LIB/str2l.casl $CASL2LIB/mull.casl \
-  $CASL2LIB/outl.casl $CASL2LIB/divl.casl $CASL2LIB/rev.casl}
-@end example
-
-@node L2STR, MAX, INL, CASL2LIB Manual
-@section @kbd{L2STR} - @file{l2str.casl}
-
-符号なし整数を文字列に変換する
-
-@unnumberedsubsec 入力
-@table @code
-@item GR1
-符号なし整数
-
-@item GR2
-変換した文字列を格納するアドレス
-@end table
-
-@unnumberedsubsec 出力
-@table @code
-@item GR0
-文字列の長さ
-@end table
-
-@unnumberedsubsec 依存する副プログラム
-@itemize
-@item
-@code{DIVL}
-@end itemize
-
-@node MAX, MINIM, L2STR, CASL2LIB Manual
-@section @kbd{MAX} - @file{max.casl}
-
-連続した複数のWORDを符号付き整数とみなして最大値を返す
-
-@unnumberedsubsec 入力
-@table @code
-@item GR1
-WORD値を格納したアドレス
-
-@item GR2
-値の個数
-@end table
-
-@unnumberedsubsec 出力
-@table @code
-@item GR0
-最大値
-@end table
-
-@unnumberedsubsec 依存する副プログラム
-なし
-
-@node MINIM, MULA, MAX, CASL2LIB Manual
-@section @kbd{MINIM} - @file{minim.casl}
-
-連続した複数のWORDを符号付き整数とみなして最小値を返す
-
-@unnumberedsubsec 入力
-@table @code
-@item GR1
-WORD値を格納したアドレス
-
-@item GR2
-値の個数
-@end table
-
-@unnumberedsubsec 出力
-@table @code
-@item GR0
-最小値
-@end table
-
-@unnumberedsubsec 依存する副プログラム
-なし
-
-@node MULA, MULL, MINIM, CASL2LIB Manual
-@section @kbd{MULA} - @file{mula.casl}
-
-@node MULL, OUTA, MULA, CASL2LIB Manual
-@section @kbd{MULL} - @file{mull.casl}
-
-@node OUTA, OUTB, MULL, CASL2LIB Manual
-@section @kbd{OUTA} - @file{outa.casl}
-
-@node OUTB, OUTD_Q15, OUTA, CASL2LIB Manual
-@section @kbd{OUTB} - @file{outb.casl}
-
-@node OUTD_Q15, OUTL, OUTB, CASL2LIB Manual
-@section @kbd{OUTD_Q15} - @file{outd_q15.casl}
-
-@node OUTL, REV, OUTD_Q15, CASL2LIB Manual
-@section @kbd{OUTL} - @file{outl.casl}
-
-@node REV, STR2L, OUTL, CASL2LIB Manual
-@section @kbd{REV} - @file{rev.casl}
-
-@node STR2L,  , REV, CASL2LIB Manual
-@section @kbd{STR2L} - @file{str2l.casl}
-
 @bye
index c7abd48..862a4cc 100644 (file)
@@ -1,11 +1,12 @@
-.PHONY: clean systemtest-clean unittest-clean
+.PHONY: systemtest clean system-clean unit-clean
+
+systemtest:
+       @$(MAKE) -sC system check
 
 clean: systemtest-clean unittest-clean
 
-systemtest-clean:
-       @$(MAKE) -sC system/casl2 clean
-       @$(MAKE) -sC system/comet2 clean
-       @$(MAKE) -sC system/dumpword clean
+system-clean:
+       @$(MAKE) -sC system clean
 
-unittest-clean:
+unit-clean:
        @$(MAKE) -sC unit clean
index 3436644..3d0fc30 100644 (file)
@@ -1,5 +1,5 @@
 # 複数の子ディレクトリーでmakeを実行
-CMD = casl2_smoke casl2_opt casl2_cmd casl2_err casl2_lib comet2_smoke comet2_opt comet2_cmd comet2_err comet2_lib disassemble dumpword
+CMD = casl2_smoke casl2_opt casl2_cmd casl2_err comet2_smoke comet2_opt comet2_cmd comet2_err casl2rev dumpword
 define make_dirs
     $(foreach d,$1,$(MAKE) -sC $d $2)
 endef
diff --git a/test/system/casl2_lib/Define.mk b/test/system/casl2_lib/Define.mk
deleted file mode 120000 (symlink)
index b4a58e1..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../template/Define.mk
\ No newline at end of file
diff --git a/test/system/casl2_lib/Makefile b/test/system/casl2_lib/Makefile
deleted file mode 120000 (symlink)
index 4f4e7b0..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../template/Group.mk
\ No newline at end of file
diff --git a/test/system/casl2_lib/Test.mk b/test/system/casl2_lib/Test.mk
deleted file mode 120000 (symlink)
index ada05aa..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../template/Test.mk
\ No newline at end of file
diff --git a/test/system/casl2_lib/lib_abs/0.txt b/test/system/casl2_lib/lib_abs/0.txt
deleted file mode 100644 (file)
index 234ad78..0000000
+++ /dev/null
@@ -1,32 +0,0 @@
-12
-+
-12
---------
--12
--
-12
---------
-1
-+
-1
---------
--1
--
-1
---------
-32767
-+
-32767
---------
--32767
--
-32767
---------
-0
-+
-0
---------
--32768
-OV
--32768
---------
diff --git a/test/system/casl2_lib/lib_abs/Makefile b/test/system/casl2_lib/lib_abs/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_abs/cmd b/test/system/casl2_lib/lib_abs/cmd
deleted file mode 100755 (executable)
index fcdd625..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 -M2048 ../../../../as/casl2lib/sample/call_abs.casl  ../../../../as/casl2lib/stdlib.casl
diff --git a/test/system/casl2_lib/lib_addl32/0.txt b/test/system/casl2_lib/lib_addl32/0.txt
deleted file mode 100644 (file)
index 9fb42e4..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-4
-9
diff --git a/test/system/casl2_lib/lib_addl32/Makefile b/test/system/casl2_lib/lib_addl32/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_addl32/cmd b/test/system/casl2_lib/lib_addl32/cmd
deleted file mode 100755 (executable)
index 2f3c209..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 -M2048 ../../../../as/casl2lib/sample/call_addl32.casl ../../../../as/casl2lib/stdlib.casl
diff --git a/test/system/casl2_lib/lib_divl/0.txt b/test/system/casl2_lib/lib_divl/0.txt
deleted file mode 100644 (file)
index 4bfd7ea..0000000
+++ /dev/null
@@ -1,5555 +0,0 @@
---------------------
-100
-0
-Error: div by 0
---------------------
-100
-1
-100
-0
---------------------
-100
-2
-50
-0
---------------------
-100
-3
-33
-1
---------------------
-100
-4
-25
-0
---------------------
-100
-5
-20
-0
---------------------
-100
-6
-16
-4
---------------------
-100
-7
-14
-2
---------------------
-100
-8
-12
-4
---------------------
-100
-9
-11
-1
---------------------
-100
-10
-10
-0
---------------------
---------------------
-99
-0
-Error: div by 0
---------------------
-99
-1
-99
-0
---------------------
-99
-2
-49
-1
---------------------
-99
-3
-33
-0
---------------------
-99
-4
-24
-3
---------------------
-99
-5
-19
-4
---------------------
-99
-6
-16
-3
---------------------
-99
-7
-14
-1
---------------------
-99
-8
-12
-3
---------------------
-99
-9
-11
-0
---------------------
-99
-10
-9
-9
---------------------
---------------------
-98
-0
-Error: div by 0
---------------------
-98
-1
-98
-0
---------------------
-98
-2
-49
-0
---------------------
-98
-3
-32
-2
---------------------
-98
-4
-24
-2
---------------------
-98
-5
-19
-3
---------------------
-98
-6
-16
-2
---------------------
-98
-7
-14
-0
---------------------
-98
-8
-12
-2
---------------------
-98
-9
-10
-8
---------------------
-98
-10
-9
-8
---------------------
---------------------
-97
-0
-Error: div by 0
---------------------
-97
-1
-97
-0
---------------------
-97
-2
-48
-1
---------------------
-97
-3
-32
-1
---------------------
-97
-4
-24
-1
---------------------
-97
-5
-19
-2
---------------------
-97
-6
-16
-1
---------------------
-97
-7
-13
-6
---------------------
-97
-8
-12
-1
---------------------
-97
-9
-10
-7
---------------------
-97
-10
-9
-7
---------------------
---------------------
-96
-0
-Error: div by 0
---------------------
-96
-1
-96
-0
---------------------
-96
-2
-48
-0
---------------------
-96
-3
-32
-0
---------------------
-96
-4
-24
-0
---------------------
-96
-5
-19
-1
---------------------
-96
-6
-16
-0
---------------------
-96
-7
-13
-5
---------------------
-96
-8
-12
-0
---------------------
-96
-9
-10
-6
---------------------
-96
-10
-9
-6
---------------------
---------------------
-95
-0
-Error: div by 0
---------------------
-95
-1
-95
-0
---------------------
-95
-2
-47
-1
---------------------
-95
-3
-31
-2
---------------------
-95
-4
-23
-3
---------------------
-95
-5
-19
-0
---------------------
-95
-6
-15
-5
---------------------
-95
-7
-13
-4
---------------------
-95
-8
-11
-7
---------------------
-95
-9
-10
-5
---------------------
-95
-10
-9
-5
---------------------
---------------------
-94
-0
-Error: div by 0
---------------------
-94
-1
-94
-0
---------------------
-94
-2
-47
-0
---------------------
-94
-3
-31
-1
---------------------
-94
-4
-23
-2
---------------------
-94
-5
-18
-4
---------------------
-94
-6
-15
-4
---------------------
-94
-7
-13
-3
---------------------
-94
-8
-11
-6
---------------------
-94
-9
-10
-4
---------------------
-94
-10
-9
-4
---------------------
---------------------
-93
-0
-Error: div by 0
---------------------
-93
-1
-93
-0
---------------------
-93
-2
-46
-1
---------------------
-93
-3
-31
-0
---------------------
-93
-4
-23
-1
---------------------
-93
-5
-18
-3
---------------------
-93
-6
-15
-3
---------------------
-93
-7
-13
-2
---------------------
-93
-8
-11
-5
---------------------
-93
-9
-10
-3
---------------------
-93
-10
-9
-3
---------------------
---------------------
-92
-0
-Error: div by 0
---------------------
-92
-1
-92
-0
---------------------
-92
-2
-46
-0
---------------------
-92
-3
-30
-2
---------------------
-92
-4
-23
-0
---------------------
-92
-5
-18
-2
---------------------
-92
-6
-15
-2
---------------------
-92
-7
-13
-1
---------------------
-92
-8
-11
-4
---------------------
-92
-9
-10
-2
---------------------
-92
-10
-9
-2
---------------------
---------------------
-91
-0
-Error: div by 0
---------------------
-91
-1
-91
-0
---------------------
-91
-2
-45
-1
---------------------
-91
-3
-30
-1
---------------------
-91
-4
-22
-3
---------------------
-91
-5
-18
-1
---------------------
-91
-6
-15
-1
---------------------
-91
-7
-13
-0
---------------------
-91
-8
-11
-3
---------------------
-91
-9
-10
-1
---------------------
-91
-10
-9
-1
---------------------
---------------------
-90
-0
-Error: div by 0
---------------------
-90
-1
-90
-0
---------------------
-90
-2
-45
-0
---------------------
-90
-3
-30
-0
---------------------
-90
-4
-22
-2
---------------------
-90
-5
-18
-0
---------------------
-90
-6
-15
-0
---------------------
-90
-7
-12
-6
---------------------
-90
-8
-11
-2
---------------------
-90
-9
-10
-0
---------------------
-90
-10
-9
-0
---------------------
---------------------
-89
-0
-Error: div by 0
---------------------
-89
-1
-89
-0
---------------------
-89
-2
-44
-1
---------------------
-89
-3
-29
-2
---------------------
-89
-4
-22
-1
---------------------
-89
-5
-17
-4
---------------------
-89
-6
-14
-5
---------------------
-89
-7
-12
-5
---------------------
-89
-8
-11
-1
---------------------
-89
-9
-9
-8
---------------------
-89
-10
-8
-9
---------------------
---------------------
-88
-0
-Error: div by 0
---------------------
-88
-1
-88
-0
---------------------
-88
-2
-44
-0
---------------------
-88
-3
-29
-1
---------------------
-88
-4
-22
-0
---------------------
-88
-5
-17
-3
---------------------
-88
-6
-14
-4
---------------------
-88
-7
-12
-4
---------------------
-88
-8
-11
-0
---------------------
-88
-9
-9
-7
---------------------
-88
-10
-8
-8
---------------------
---------------------
-87
-0
-Error: div by 0
---------------------
-87
-1
-87
-0
---------------------
-87
-2
-43
-1
---------------------
-87
-3
-29
-0
---------------------
-87
-4
-21
-3
---------------------
-87
-5
-17
-2
---------------------
-87
-6
-14
-3
---------------------
-87
-7
-12
-3
---------------------
-87
-8
-10
-7
---------------------
-87
-9
-9
-6
---------------------
-87
-10
-8
-7
---------------------
---------------------
-86
-0
-Error: div by 0
---------------------
-86
-1
-86
-0
---------------------
-86
-2
-43
-0
---------------------
-86
-3
-28
-2
---------------------
-86
-4
-21
-2
---------------------
-86
-5
-17
-1
---------------------
-86
-6
-14
-2
---------------------
-86
-7
-12
-2
---------------------
-86
-8
-10
-6
---------------------
-86
-9
-9
-5
---------------------
-86
-10
-8
-6
---------------------
---------------------
-85
-0
-Error: div by 0
---------------------
-85
-1
-85
-0
---------------------
-85
-2
-42
-1
---------------------
-85
-3
-28
-1
---------------------
-85
-4
-21
-1
---------------------
-85
-5
-17
-0
---------------------
-85
-6
-14
-1
---------------------
-85
-7
-12
-1
---------------------
-85
-8
-10
-5
---------------------
-85
-9
-9
-4
---------------------
-85
-10
-8
-5
---------------------
---------------------
-84
-0
-Error: div by 0
---------------------
-84
-1
-84
-0
---------------------
-84
-2
-42
-0
---------------------
-84
-3
-28
-0
---------------------
-84
-4
-21
-0
---------------------
-84
-5
-16
-4
---------------------
-84
-6
-14
-0
---------------------
-84
-7
-12
-0
---------------------
-84
-8
-10
-4
---------------------
-84
-9
-9
-3
---------------------
-84
-10
-8
-4
---------------------
---------------------
-83
-0
-Error: div by 0
---------------------
-83
-1
-83
-0
---------------------
-83
-2
-41
-1
---------------------
-83
-3
-27
-2
---------------------
-83
-4
-20
-3
---------------------
-83
-5
-16
-3
---------------------
-83
-6
-13
-5
---------------------
-83
-7
-11
-6
---------------------
-83
-8
-10
-3
---------------------
-83
-9
-9
-2
---------------------
-83
-10
-8
-3
---------------------
---------------------
-82
-0
-Error: div by 0
---------------------
-82
-1
-82
-0
---------------------
-82
-2
-41
-0
---------------------
-82
-3
-27
-1
---------------------
-82
-4
-20
-2
---------------------
-82
-5
-16
-2
---------------------
-82
-6
-13
-4
---------------------
-82
-7
-11
-5
---------------------
-82
-8
-10
-2
---------------------
-82
-9
-9
-1
---------------------
-82
-10
-8
-2
---------------------
---------------------
-81
-0
-Error: div by 0
---------------------
-81
-1
-81
-0
---------------------
-81
-2
-40
-1
---------------------
-81
-3
-27
-0
---------------------
-81
-4
-20
-1
---------------------
-81
-5
-16
-1
---------------------
-81
-6
-13
-3
---------------------
-81
-7
-11
-4
---------------------
-81
-8
-10
-1
---------------------
-81
-9
-9
-0
---------------------
-81
-10
-8
-1
---------------------
---------------------
-80
-0
-Error: div by 0
---------------------
-80
-1
-80
-0
---------------------
-80
-2
-40
-0
---------------------
-80
-3
-26
-2
---------------------
-80
-4
-20
-0
---------------------
-80
-5
-16
-0
---------------------
-80
-6
-13
-2
---------------------
-80
-7
-11
-3
---------------------
-80
-8
-10
-0
---------------------
-80
-9
-8
-8
---------------------
-80
-10
-8
-0
---------------------
---------------------
-79
-0
-Error: div by 0
---------------------
-79
-1
-79
-0
---------------------
-79
-2
-39
-1
---------------------
-79
-3
-26
-1
---------------------
-79
-4
-19
-3
---------------------
-79
-5
-15
-4
---------------------
-79
-6
-13
-1
---------------------
-79
-7
-11
-2
---------------------
-79
-8
-9
-7
---------------------
-79
-9
-8
-7
---------------------
-79
-10
-7
-9
---------------------
---------------------
-78
-0
-Error: div by 0
---------------------
-78
-1
-78
-0
---------------------
-78
-2
-39
-0
---------------------
-78
-3
-26
-0
---------------------
-78
-4
-19
-2
---------------------
-78
-5
-15
-3
---------------------
-78
-6
-13
-0
---------------------
-78
-7
-11
-1
---------------------
-78
-8
-9
-6
---------------------
-78
-9
-8
-6
---------------------
-78
-10
-7
-8
---------------------
---------------------
-77
-0
-Error: div by 0
---------------------
-77
-1
-77
-0
---------------------
-77
-2
-38
-1
---------------------
-77
-3
-25
-2
---------------------
-77
-4
-19
-1
---------------------
-77
-5
-15
-2
---------------------
-77
-6
-12
-5
---------------------
-77
-7
-11
-0
---------------------
-77
-8
-9
-5
---------------------
-77
-9
-8
-5
---------------------
-77
-10
-7
-7
---------------------
---------------------
-76
-0
-Error: div by 0
---------------------
-76
-1
-76
-0
---------------------
-76
-2
-38
-0
---------------------
-76
-3
-25
-1
---------------------
-76
-4
-19
-0
---------------------
-76
-5
-15
-1
---------------------
-76
-6
-12
-4
---------------------
-76
-7
-10
-6
---------------------
-76
-8
-9
-4
---------------------
-76
-9
-8
-4
---------------------
-76
-10
-7
-6
---------------------
---------------------
-75
-0
-Error: div by 0
---------------------
-75
-1
-75
-0
---------------------
-75
-2
-37
-1
---------------------
-75
-3
-25
-0
---------------------
-75
-4
-18
-3
---------------------
-75
-5
-15
-0
---------------------
-75
-6
-12
-3
---------------------
-75
-7
-10
-5
---------------------
-75
-8
-9
-3
---------------------
-75
-9
-8
-3
---------------------
-75
-10
-7
-5
---------------------
---------------------
-74
-0
-Error: div by 0
---------------------
-74
-1
-74
-0
---------------------
-74
-2
-37
-0
---------------------
-74
-3
-24
-2
---------------------
-74
-4
-18
-2
---------------------
-74
-5
-14
-4
---------------------
-74
-6
-12
-2
---------------------
-74
-7
-10
-4
---------------------
-74
-8
-9
-2
---------------------
-74
-9
-8
-2
---------------------
-74
-10
-7
-4
---------------------
---------------------
-73
-0
-Error: div by 0
---------------------
-73
-1
-73
-0
---------------------
-73
-2
-36
-1
---------------------
-73
-3
-24
-1
---------------------
-73
-4
-18
-1
---------------------
-73
-5
-14
-3
---------------------
-73
-6
-12
-1
---------------------
-73
-7
-10
-3
---------------------
-73
-8
-9
-1
---------------------
-73
-9
-8
-1
---------------------
-73
-10
-7
-3
---------------------
---------------------
-72
-0
-Error: div by 0
---------------------
-72
-1
-72
-0
---------------------
-72
-2
-36
-0
---------------------
-72
-3
-24
-0
---------------------
-72
-4
-18
-0
---------------------
-72
-5
-14
-2
---------------------
-72
-6
-12
-0
---------------------
-72
-7
-10
-2
---------------------
-72
-8
-9
-0
---------------------
-72
-9
-8
-0
---------------------
-72
-10
-7
-2
---------------------
---------------------
-71
-0
-Error: div by 0
---------------------
-71
-1
-71
-0
---------------------
-71
-2
-35
-1
---------------------
-71
-3
-23
-2
---------------------
-71
-4
-17
-3
---------------------
-71
-5
-14
-1
---------------------
-71
-6
-11
-5
---------------------
-71
-7
-10
-1
---------------------
-71
-8
-8
-7
---------------------
-71
-9
-7
-8
---------------------
-71
-10
-7
-1
---------------------
---------------------
-70
-0
-Error: div by 0
---------------------
-70
-1
-70
-0
---------------------
-70
-2
-35
-0
---------------------
-70
-3
-23
-1
---------------------
-70
-4
-17
-2
---------------------
-70
-5
-14
-0
---------------------
-70
-6
-11
-4
---------------------
-70
-7
-10
-0
---------------------
-70
-8
-8
-6
---------------------
-70
-9
-7
-7
---------------------
-70
-10
-7
-0
---------------------
---------------------
-69
-0
-Error: div by 0
---------------------
-69
-1
-69
-0
---------------------
-69
-2
-34
-1
---------------------
-69
-3
-23
-0
---------------------
-69
-4
-17
-1
---------------------
-69
-5
-13
-4
---------------------
-69
-6
-11
-3
---------------------
-69
-7
-9
-6
---------------------
-69
-8
-8
-5
---------------------
-69
-9
-7
-6
---------------------
-69
-10
-6
-9
---------------------
---------------------
-68
-0
-Error: div by 0
---------------------
-68
-1
-68
-0
---------------------
-68
-2
-34
-0
---------------------
-68
-3
-22
-2
---------------------
-68
-4
-17
-0
---------------------
-68
-5
-13
-3
---------------------
-68
-6
-11
-2
---------------------
-68
-7
-9
-5
---------------------
-68
-8
-8
-4
---------------------
-68
-9
-7
-5
---------------------
-68
-10
-6
-8
---------------------
---------------------
-67
-0
-Error: div by 0
---------------------
-67
-1
-67
-0
---------------------
-67
-2
-33
-1
---------------------
-67
-3
-22
-1
---------------------
-67
-4
-16
-3
---------------------
-67
-5
-13
-2
---------------------
-67
-6
-11
-1
---------------------
-67
-7
-9
-4
---------------------
-67
-8
-8
-3
---------------------
-67
-9
-7
-4
---------------------
-67
-10
-6
-7
---------------------
---------------------
-66
-0
-Error: div by 0
---------------------
-66
-1
-66
-0
---------------------
-66
-2
-33
-0
---------------------
-66
-3
-22
-0
---------------------
-66
-4
-16
-2
---------------------
-66
-5
-13
-1
---------------------
-66
-6
-11
-0
---------------------
-66
-7
-9
-3
---------------------
-66
-8
-8
-2
---------------------
-66
-9
-7
-3
---------------------
-66
-10
-6
-6
---------------------
---------------------
-65
-0
-Error: div by 0
---------------------
-65
-1
-65
-0
---------------------
-65
-2
-32
-1
---------------------
-65
-3
-21
-2
---------------------
-65
-4
-16
-1
---------------------
-65
-5
-13
-0
---------------------
-65
-6
-10
-5
---------------------
-65
-7
-9
-2
---------------------
-65
-8
-8
-1
---------------------
-65
-9
-7
-2
---------------------
-65
-10
-6
-5
---------------------
---------------------
-64
-0
-Error: div by 0
---------------------
-64
-1
-64
-0
---------------------
-64
-2
-32
-0
---------------------
-64
-3
-21
-1
---------------------
-64
-4
-16
-0
---------------------
-64
-5
-12
-4
---------------------
-64
-6
-10
-4
---------------------
-64
-7
-9
-1
---------------------
-64
-8
-8
-0
---------------------
-64
-9
-7
-1
---------------------
-64
-10
-6
-4
---------------------
---------------------
-63
-0
-Error: div by 0
---------------------
-63
-1
-63
-0
---------------------
-63
-2
-31
-1
---------------------
-63
-3
-21
-0
---------------------
-63
-4
-15
-3
---------------------
-63
-5
-12
-3
---------------------
-63
-6
-10
-3
---------------------
-63
-7
-9
-0
---------------------
-63
-8
-7
-7
---------------------
-63
-9
-7
-0
---------------------
-63
-10
-6
-3
---------------------
---------------------
-62
-0
-Error: div by 0
---------------------
-62
-1
-62
-0
---------------------
-62
-2
-31
-0
---------------------
-62
-3
-20
-2
---------------------
-62
-4
-15
-2
---------------------
-62
-5
-12
-2
---------------------
-62
-6
-10
-2
---------------------
-62
-7
-8
-6
---------------------
-62
-8
-7
-6
---------------------
-62
-9
-6
-8
---------------------
-62
-10
-6
-2
---------------------
---------------------
-61
-0
-Error: div by 0
---------------------
-61
-1
-61
-0
---------------------
-61
-2
-30
-1
---------------------
-61
-3
-20
-1
---------------------
-61
-4
-15
-1
---------------------
-61
-5
-12
-1
---------------------
-61
-6
-10
-1
---------------------
-61
-7
-8
-5
---------------------
-61
-8
-7
-5
---------------------
-61
-9
-6
-7
---------------------
-61
-10
-6
-1
---------------------
---------------------
-60
-0
-Error: div by 0
---------------------
-60
-1
-60
-0
---------------------
-60
-2
-30
-0
---------------------
-60
-3
-20
-0
---------------------
-60
-4
-15
-0
---------------------
-60
-5
-12
-0
---------------------
-60
-6
-10
-0
---------------------
-60
-7
-8
-4
---------------------
-60
-8
-7
-4
---------------------
-60
-9
-6
-6
---------------------
-60
-10
-6
-0
---------------------
---------------------
-59
-0
-Error: div by 0
---------------------
-59
-1
-59
-0
---------------------
-59
-2
-29
-1
---------------------
-59
-3
-19
-2
---------------------
-59
-4
-14
-3
---------------------
-59
-5
-11
-4
---------------------
-59
-6
-9
-5
---------------------
-59
-7
-8
-3
---------------------
-59
-8
-7
-3
---------------------
-59
-9
-6
-5
---------------------
-59
-10
-5
-9
---------------------
---------------------
-58
-0
-Error: div by 0
---------------------
-58
-1
-58
-0
---------------------
-58
-2
-29
-0
---------------------
-58
-3
-19
-1
---------------------
-58
-4
-14
-2
---------------------
-58
-5
-11
-3
---------------------
-58
-6
-9
-4
---------------------
-58
-7
-8
-2
---------------------
-58
-8
-7
-2
---------------------
-58
-9
-6
-4
---------------------
-58
-10
-5
-8
---------------------
---------------------
-57
-0
-Error: div by 0
---------------------
-57
-1
-57
-0
---------------------
-57
-2
-28
-1
---------------------
-57
-3
-19
-0
---------------------
-57
-4
-14
-1
---------------------
-57
-5
-11
-2
---------------------
-57
-6
-9
-3
---------------------
-57
-7
-8
-1
---------------------
-57
-8
-7
-1
---------------------
-57
-9
-6
-3
---------------------
-57
-10
-5
-7
---------------------
---------------------
-56
-0
-Error: div by 0
---------------------
-56
-1
-56
-0
---------------------
-56
-2
-28
-0
---------------------
-56
-3
-18
-2
---------------------
-56
-4
-14
-0
---------------------
-56
-5
-11
-1
---------------------
-56
-6
-9
-2
---------------------
-56
-7
-8
-0
---------------------
-56
-8
-7
-0
---------------------
-56
-9
-6
-2
---------------------
-56
-10
-5
-6
---------------------
---------------------
-55
-0
-Error: div by 0
---------------------
-55
-1
-55
-0
---------------------
-55
-2
-27
-1
---------------------
-55
-3
-18
-1
---------------------
-55
-4
-13
-3
---------------------
-55
-5
-11
-0
---------------------
-55
-6
-9
-1
---------------------
-55
-7
-7
-6
---------------------
-55
-8
-6
-7
---------------------
-55
-9
-6
-1
---------------------
-55
-10
-5
-5
---------------------
---------------------
-54
-0
-Error: div by 0
---------------------
-54
-1
-54
-0
---------------------
-54
-2
-27
-0
---------------------
-54
-3
-18
-0
---------------------
-54
-4
-13
-2
---------------------
-54
-5
-10
-4
---------------------
-54
-6
-9
-0
---------------------
-54
-7
-7
-5
---------------------
-54
-8
-6
-6
---------------------
-54
-9
-6
-0
---------------------
-54
-10
-5
-4
---------------------
---------------------
-53
-0
-Error: div by 0
---------------------
-53
-1
-53
-0
---------------------
-53
-2
-26
-1
---------------------
-53
-3
-17
-2
---------------------
-53
-4
-13
-1
---------------------
-53
-5
-10
-3
---------------------
-53
-6
-8
-5
---------------------
-53
-7
-7
-4
---------------------
-53
-8
-6
-5
---------------------
-53
-9
-5
-8
---------------------
-53
-10
-5
-3
---------------------
---------------------
-52
-0
-Error: div by 0
---------------------
-52
-1
-52
-0
---------------------
-52
-2
-26
-0
---------------------
-52
-3
-17
-1
---------------------
-52
-4
-13
-0
---------------------
-52
-5
-10
-2
---------------------
-52
-6
-8
-4
---------------------
-52
-7
-7
-3
---------------------
-52
-8
-6
-4
---------------------
-52
-9
-5
-7
---------------------
-52
-10
-5
-2
---------------------
---------------------
-51
-0
-Error: div by 0
---------------------
-51
-1
-51
-0
---------------------
-51
-2
-25
-1
---------------------
-51
-3
-17
-0
---------------------
-51
-4
-12
-3
---------------------
-51
-5
-10
-1
---------------------
-51
-6
-8
-3
---------------------
-51
-7
-7
-2
---------------------
-51
-8
-6
-3
---------------------
-51
-9
-5
-6
---------------------
-51
-10
-5
-1
---------------------
---------------------
-50
-0
-Error: div by 0
---------------------
-50
-1
-50
-0
---------------------
-50
-2
-25
-0
---------------------
-50
-3
-16
-2
---------------------
-50
-4
-12
-2
---------------------
-50
-5
-10
-0
---------------------
-50
-6
-8
-2
---------------------
-50
-7
-7
-1
---------------------
-50
-8
-6
-2
---------------------
-50
-9
-5
-5
---------------------
-50
-10
-5
-0
---------------------
---------------------
-49
-0
-Error: div by 0
---------------------
-49
-1
-49
-0
---------------------
-49
-2
-24
-1
---------------------
-49
-3
-16
-1
---------------------
-49
-4
-12
-1
---------------------
-49
-5
-9
-4
---------------------
-49
-6
-8
-1
---------------------
-49
-7
-7
-0
---------------------
-49
-8
-6
-1
---------------------
-49
-9
-5
-4
---------------------
-49
-10
-4
-9
---------------------
---------------------
-48
-0
-Error: div by 0
---------------------
-48
-1
-48
-0
---------------------
-48
-2
-24
-0
---------------------
-48
-3
-16
-0
---------------------
-48
-4
-12
-0
---------------------
-48
-5
-9
-3
---------------------
-48
-6
-8
-0
---------------------
-48
-7
-6
-6
---------------------
-48
-8
-6
-0
---------------------
-48
-9
-5
-3
---------------------
-48
-10
-4
-8
---------------------
---------------------
-47
-0
-Error: div by 0
---------------------
-47
-1
-47
-0
---------------------
-47
-2
-23
-1
---------------------
-47
-3
-15
-2
---------------------
-47
-4
-11
-3
---------------------
-47
-5
-9
-2
---------------------
-47
-6
-7
-5
---------------------
-47
-7
-6
-5
---------------------
-47
-8
-5
-7
---------------------
-47
-9
-5
-2
---------------------
-47
-10
-4
-7
---------------------
---------------------
-46
-0
-Error: div by 0
---------------------
-46
-1
-46
-0
---------------------
-46
-2
-23
-0
---------------------
-46
-3
-15
-1
---------------------
-46
-4
-11
-2
---------------------
-46
-5
-9
-1
---------------------
-46
-6
-7
-4
---------------------
-46
-7
-6
-4
---------------------
-46
-8
-5
-6
---------------------
-46
-9
-5
-1
---------------------
-46
-10
-4
-6
---------------------
---------------------
-45
-0
-Error: div by 0
---------------------
-45
-1
-45
-0
---------------------
-45
-2
-22
-1
---------------------
-45
-3
-15
-0
---------------------
-45
-4
-11
-1
---------------------
-45
-5
-9
-0
---------------------
-45
-6
-7
-3
---------------------
-45
-7
-6
-3
---------------------
-45
-8
-5
-5
---------------------
-45
-9
-5
-0
---------------------
-45
-10
-4
-5
---------------------
---------------------
-44
-0
-Error: div by 0
---------------------
-44
-1
-44
-0
---------------------
-44
-2
-22
-0
---------------------
-44
-3
-14
-2
---------------------
-44
-4
-11
-0
---------------------
-44
-5
-8
-4
---------------------
-44
-6
-7
-2
---------------------
-44
-7
-6
-2
---------------------
-44
-8
-5
-4
---------------------
-44
-9
-4
-8
---------------------
-44
-10
-4
-4
---------------------
---------------------
-43
-0
-Error: div by 0
---------------------
-43
-1
-43
-0
---------------------
-43
-2
-21
-1
---------------------
-43
-3
-14
-1
---------------------
-43
-4
-10
-3
---------------------
-43
-5
-8
-3
---------------------
-43
-6
-7
-1
---------------------
-43
-7
-6
-1
---------------------
-43
-8
-5
-3
---------------------
-43
-9
-4
-7
---------------------
-43
-10
-4
-3
---------------------
---------------------
-42
-0
-Error: div by 0
---------------------
-42
-1
-42
-0
---------------------
-42
-2
-21
-0
---------------------
-42
-3
-14
-0
---------------------
-42
-4
-10
-2
---------------------
-42
-5
-8
-2
---------------------
-42
-6
-7
-0
---------------------
-42
-7
-6
-0
---------------------
-42
-8
-5
-2
---------------------
-42
-9
-4
-6
---------------------
-42
-10
-4
-2
---------------------
---------------------
-41
-0
-Error: div by 0
---------------------
-41
-1
-41
-0
---------------------
-41
-2
-20
-1
---------------------
-41
-3
-13
-2
---------------------
-41
-4
-10
-1
---------------------
-41
-5
-8
-1
---------------------
-41
-6
-6
-5
---------------------
-41
-7
-5
-6
---------------------
-41
-8
-5
-1
---------------------
-41
-9
-4
-5
---------------------
-41
-10
-4
-1
---------------------
---------------------
-40
-0
-Error: div by 0
---------------------
-40
-1
-40
-0
---------------------
-40
-2
-20
-0
---------------------
-40
-3
-13
-1
---------------------
-40
-4
-10
-0
---------------------
-40
-5
-8
-0
---------------------
-40
-6
-6
-4
---------------------
-40
-7
-5
-5
---------------------
-40
-8
-5
-0
---------------------
-40
-9
-4
-4
---------------------
-40
-10
-4
-0
---------------------
---------------------
-39
-0
-Error: div by 0
---------------------
-39
-1
-39
-0
---------------------
-39
-2
-19
-1
---------------------
-39
-3
-13
-0
---------------------
-39
-4
-9
-3
---------------------
-39
-5
-7
-4
---------------------
-39
-6
-6
-3
---------------------
-39
-7
-5
-4
---------------------
-39
-8
-4
-7
---------------------
-39
-9
-4
-3
---------------------
-39
-10
-3
-9
---------------------
---------------------
-38
-0
-Error: div by 0
---------------------
-38
-1
-38
-0
---------------------
-38
-2
-19
-0
---------------------
-38
-3
-12
-2
---------------------
-38
-4
-9
-2
---------------------
-38
-5
-7
-3
---------------------
-38
-6
-6
-2
---------------------
-38
-7
-5
-3
---------------------
-38
-8
-4
-6
---------------------
-38
-9
-4
-2
---------------------
-38
-10
-3
-8
---------------------
---------------------
-37
-0
-Error: div by 0
---------------------
-37
-1
-37
-0
---------------------
-37
-2
-18
-1
---------------------
-37
-3
-12
-1
---------------------
-37
-4
-9
-1
---------------------
-37
-5
-7
-2
---------------------
-37
-6
-6
-1
---------------------
-37
-7
-5
-2
---------------------
-37
-8
-4
-5
---------------------
-37
-9
-4
-1
---------------------
-37
-10
-3
-7
---------------------
---------------------
-36
-0
-Error: div by 0
---------------------
-36
-1
-36
-0
---------------------
-36
-2
-18
-0
---------------------
-36
-3
-12
-0
---------------------
-36
-4
-9
-0
---------------------
-36
-5
-7
-1
---------------------
-36
-6
-6
-0
---------------------
-36
-7
-5
-1
---------------------
-36
-8
-4
-4
---------------------
-36
-9
-4
-0
---------------------
-36
-10
-3
-6
---------------------
---------------------
-35
-0
-Error: div by 0
---------------------
-35
-1
-35
-0
---------------------
-35
-2
-17
-1
---------------------
-35
-3
-11
-2
---------------------
-35
-4
-8
-3
---------------------
-35
-5
-7
-0
---------------------
-35
-6
-5
-5
---------------------
-35
-7
-5
-0
---------------------
-35
-8
-4
-3
---------------------
-35
-9
-3
-8
---------------------
-35
-10
-3
-5
---------------------
---------------------
-34
-0
-Error: div by 0
---------------------
-34
-1
-34
-0
---------------------
-34
-2
-17
-0
---------------------
-34
-3
-11
-1
---------------------
-34
-4
-8
-2
---------------------
-34
-5
-6
-4
---------------------
-34
-6
-5
-4
---------------------
-34
-7
-4
-6
---------------------
-34
-8
-4
-2
---------------------
-34
-9
-3
-7
---------------------
-34
-10
-3
-4
---------------------
---------------------
-33
-0
-Error: div by 0
---------------------
-33
-1
-33
-0
---------------------
-33
-2
-16
-1
---------------------
-33
-3
-11
-0
---------------------
-33
-4
-8
-1
---------------------
-33
-5
-6
-3
---------------------
-33
-6
-5
-3
---------------------
-33
-7
-4
-5
---------------------
-33
-8
-4
-1
---------------------
-33
-9
-3
-6
---------------------
-33
-10
-3
-3
---------------------
---------------------
-32
-0
-Error: div by 0
---------------------
-32
-1
-32
-0
---------------------
-32
-2
-16
-0
---------------------
-32
-3
-10
-2
---------------------
-32
-4
-8
-0
---------------------
-32
-5
-6
-2
---------------------
-32
-6
-5
-2
---------------------
-32
-7
-4
-4
---------------------
-32
-8
-4
-0
---------------------
-32
-9
-3
-5
---------------------
-32
-10
-3
-2
---------------------
---------------------
-31
-0
-Error: div by 0
---------------------
-31
-1
-31
-0
---------------------
-31
-2
-15
-1
---------------------
-31
-3
-10
-1
---------------------
-31
-4
-7
-3
---------------------
-31
-5
-6
-1
---------------------
-31
-6
-5
-1
---------------------
-31
-7
-4
-3
---------------------
-31
-8
-3
-7
---------------------
-31
-9
-3
-4
---------------------
-31
-10
-3
-1
---------------------
---------------------
-30
-0
-Error: div by 0
---------------------
-30
-1
-30
-0
---------------------
-30
-2
-15
-0
---------------------
-30
-3
-10
-0
---------------------
-30
-4
-7
-2
---------------------
-30
-5
-6
-0
---------------------
-30
-6
-5
-0
---------------------
-30
-7
-4
-2
---------------------
-30
-8
-3
-6
---------------------
-30
-9
-3
-3
---------------------
-30
-10
-3
-0
---------------------
---------------------
-29
-0
-Error: div by 0
---------------------
-29
-1
-29
-0
---------------------
-29
-2
-14
-1
---------------------
-29
-3
-9
-2
---------------------
-29
-4
-7
-1
---------------------
-29
-5
-5
-4
---------------------
-29
-6
-4
-5
---------------------
-29
-7
-4
-1
---------------------
-29
-8
-3
-5
---------------------
-29
-9
-3
-2
---------------------
-29
-10
-2
-9
---------------------
---------------------
-28
-0
-Error: div by 0
---------------------
-28
-1
-28
-0
---------------------
-28
-2
-14
-0
---------------------
-28
-3
-9
-1
---------------------
-28
-4
-7
-0
---------------------
-28
-5
-5
-3
---------------------
-28
-6
-4
-4
---------------------
-28
-7
-4
-0
---------------------
-28
-8
-3
-4
---------------------
-28
-9
-3
-1
---------------------
-28
-10
-2
-8
---------------------
---------------------
-27
-0
-Error: div by 0
---------------------
-27
-1
-27
-0
---------------------
-27
-2
-13
-1
---------------------
-27
-3
-9
-0
---------------------
-27
-4
-6
-3
---------------------
-27
-5
-5
-2
---------------------
-27
-6
-4
-3
---------------------
-27
-7
-3
-6
---------------------
-27
-8
-3
-3
---------------------
-27
-9
-3
-0
---------------------
-27
-10
-2
-7
---------------------
---------------------
-26
-0
-Error: div by 0
---------------------
-26
-1
-26
-0
---------------------
-26
-2
-13
-0
---------------------
-26
-3
-8
-2
---------------------
-26
-4
-6
-2
---------------------
-26
-5
-5
-1
---------------------
-26
-6
-4
-2
---------------------
-26
-7
-3
-5
---------------------
-26
-8
-3
-2
---------------------
-26
-9
-2
-8
---------------------
-26
-10
-2
-6
---------------------
---------------------
-25
-0
-Error: div by 0
---------------------
-25
-1
-25
-0
---------------------
-25
-2
-12
-1
---------------------
-25
-3
-8
-1
---------------------
-25
-4
-6
-1
---------------------
-25
-5
-5
-0
---------------------
-25
-6
-4
-1
---------------------
-25
-7
-3
-4
---------------------
-25
-8
-3
-1
---------------------
-25
-9
-2
-7
---------------------
-25
-10
-2
-5
---------------------
---------------------
-24
-0
-Error: div by 0
---------------------
-24
-1
-24
-0
---------------------
-24
-2
-12
-0
---------------------
-24
-3
-8
-0
---------------------
-24
-4
-6
-0
---------------------
-24
-5
-4
-4
---------------------
-24
-6
-4
-0
---------------------
-24
-7
-3
-3
---------------------
-24
-8
-3
-0
---------------------
-24
-9
-2
-6
---------------------
-24
-10
-2
-4
---------------------
---------------------
-23
-0
-Error: div by 0
---------------------
-23
-1
-23
-0
---------------------
-23
-2
-11
-1
---------------------
-23
-3
-7
-2
---------------------
-23
-4
-5
-3
---------------------
-23
-5
-4
-3
---------------------
-23
-6
-3
-5
---------------------
-23
-7
-3
-2
---------------------
-23
-8
-2
-7
---------------------
-23
-9
-2
-5
---------------------
-23
-10
-2
-3
---------------------
---------------------
-22
-0
-Error: div by 0
---------------------
-22
-1
-22
-0
---------------------
-22
-2
-11
-0
---------------------
-22
-3
-7
-1
---------------------
-22
-4
-5
-2
---------------------
-22
-5
-4
-2
---------------------
-22
-6
-3
-4
---------------------
-22
-7
-3
-1
---------------------
-22
-8
-2
-6
---------------------
-22
-9
-2
-4
---------------------
-22
-10
-2
-2
---------------------
---------------------
-21
-0
-Error: div by 0
---------------------
-21
-1
-21
-0
---------------------
-21
-2
-10
-1
---------------------
-21
-3
-7
-0
---------------------
-21
-4
-5
-1
---------------------
-21
-5
-4
-1
---------------------
-21
-6
-3
-3
---------------------
-21
-7
-3
-0
---------------------
-21
-8
-2
-5
---------------------
-21
-9
-2
-3
---------------------
-21
-10
-2
-1
---------------------
---------------------
-20
-0
-Error: div by 0
---------------------
-20
-1
-20
-0
---------------------
-20
-2
-10
-0
---------------------
-20
-3
-6
-2
---------------------
-20
-4
-5
-0
---------------------
-20
-5
-4
-0
---------------------
-20
-6
-3
-2
---------------------
-20
-7
-2
-6
---------------------
-20
-8
-2
-4
---------------------
-20
-9
-2
-2
---------------------
-20
-10
-2
-0
---------------------
---------------------
-19
-0
-Error: div by 0
---------------------
-19
-1
-19
-0
---------------------
-19
-2
-9
-1
---------------------
-19
-3
-6
-1
---------------------
-19
-4
-4
-3
---------------------
-19
-5
-3
-4
---------------------
-19
-6
-3
-1
---------------------
-19
-7
-2
-5
---------------------
-19
-8
-2
-3
---------------------
-19
-9
-2
-1
---------------------
-19
-10
-1
-9
---------------------
---------------------
-18
-0
-Error: div by 0
---------------------
-18
-1
-18
-0
---------------------
-18
-2
-9
-0
---------------------
-18
-3
-6
-0
---------------------
-18
-4
-4
-2
---------------------
-18
-5
-3
-3
---------------------
-18
-6
-3
-0
---------------------
-18
-7
-2
-4
---------------------
-18
-8
-2
-2
---------------------
-18
-9
-2
-0
---------------------
-18
-10
-1
-8
---------------------
---------------------
-17
-0
-Error: div by 0
---------------------
-17
-1
-17
-0
---------------------
-17
-2
-8
-1
---------------------
-17
-3
-5
-2
---------------------
-17
-4
-4
-1
---------------------
-17
-5
-3
-2
---------------------
-17
-6
-2
-5
---------------------
-17
-7
-2
-3
---------------------
-17
-8
-2
-1
---------------------
-17
-9
-1
-8
---------------------
-17
-10
-1
-7
---------------------
---------------------
-16
-0
-Error: div by 0
---------------------
-16
-1
-16
-0
---------------------
-16
-2
-8
-0
---------------------
-16
-3
-5
-1
---------------------
-16
-4
-4
-0
---------------------
-16
-5
-3
-1
---------------------
-16
-6
-2
-4
---------------------
-16
-7
-2
-2
---------------------
-16
-8
-2
-0
---------------------
-16
-9
-1
-7
---------------------
-16
-10
-1
-6
---------------------
---------------------
-15
-0
-Error: div by 0
---------------------
-15
-1
-15
-0
---------------------
-15
-2
-7
-1
---------------------
-15
-3
-5
-0
---------------------
-15
-4
-3
-3
---------------------
-15
-5
-3
-0
---------------------
-15
-6
-2
-3
---------------------
-15
-7
-2
-1
---------------------
-15
-8
-1
-7
---------------------
-15
-9
-1
-6
---------------------
-15
-10
-1
-5
---------------------
---------------------
-14
-0
-Error: div by 0
---------------------
-14
-1
-14
-0
---------------------
-14
-2
-7
-0
---------------------
-14
-3
-4
-2
---------------------
-14
-4
-3
-2
---------------------
-14
-5
-2
-4
---------------------
-14
-6
-2
-2
---------------------
-14
-7
-2
-0
---------------------
-14
-8
-1
-6
---------------------
-14
-9
-1
-5
---------------------
-14
-10
-1
-4
---------------------
---------------------
-13
-0
-Error: div by 0
---------------------
-13
-1
-13
-0
---------------------
-13
-2
-6
-1
---------------------
-13
-3
-4
-1
---------------------
-13
-4
-3
-1
---------------------
-13
-5
-2
-3
---------------------
-13
-6
-2
-1
---------------------
-13
-7
-1
-6
---------------------
-13
-8
-1
-5
---------------------
-13
-9
-1
-4
---------------------
-13
-10
-1
-3
---------------------
---------------------
-12
-0
-Error: div by 0
---------------------
-12
-1
-12
-0
---------------------
-12
-2
-6
-0
---------------------
-12
-3
-4
-0
---------------------
-12
-4
-3
-0
---------------------
-12
-5
-2
-2
---------------------
-12
-6
-2
-0
---------------------
-12
-7
-1
-5
---------------------
-12
-8
-1
-4
---------------------
-12
-9
-1
-3
---------------------
-12
-10
-1
-2
---------------------
---------------------
-11
-0
-Error: div by 0
---------------------
-11
-1
-11
-0
---------------------
-11
-2
-5
-1
---------------------
-11
-3
-3
-2
---------------------
-11
-4
-2
-3
---------------------
-11
-5
-2
-1
---------------------
-11
-6
-1
-5
---------------------
-11
-7
-1
-4
---------------------
-11
-8
-1
-3
---------------------
-11
-9
-1
-2
---------------------
-11
-10
-1
-1
---------------------
---------------------
-10
-0
-Error: div by 0
---------------------
-10
-1
-10
-0
---------------------
-10
-2
-5
-0
---------------------
-10
-3
-3
-1
---------------------
-10
-4
-2
-2
---------------------
-10
-5
-2
-0
---------------------
-10
-6
-1
-4
---------------------
-10
-7
-1
-3
---------------------
-10
-8
-1
-2
---------------------
-10
-9
-1
-1
---------------------
-10
-10
-1
-0
---------------------
---------------------
-9
-0
-Error: div by 0
---------------------
-9
-1
-9
-0
---------------------
-9
-2
-4
-1
---------------------
-9
-3
-3
-0
---------------------
-9
-4
-2
-1
---------------------
-9
-5
-1
-4
---------------------
-9
-6
-1
-3
---------------------
-9
-7
-1
-2
---------------------
-9
-8
-1
-1
---------------------
-9
-9
-1
-0
---------------------
-9
-10
-0
-9
---------------------
---------------------
-8
-0
-Error: div by 0
---------------------
-8
-1
-8
-0
---------------------
-8
-2
-4
-0
---------------------
-8
-3
-2
-2
---------------------
-8
-4
-2
-0
---------------------
-8
-5
-1
-3
---------------------
-8
-6
-1
-2
---------------------
-8
-7
-1
-1
---------------------
-8
-8
-1
-0
---------------------
-8
-9
-0
-8
---------------------
-8
-10
-0
-8
---------------------
---------------------
-7
-0
-Error: div by 0
---------------------
-7
-1
-7
-0
---------------------
-7
-2
-3
-1
---------------------
-7
-3
-2
-1
---------------------
-7
-4
-1
-3
---------------------
-7
-5
-1
-2
---------------------
-7
-6
-1
-1
---------------------
-7
-7
-1
-0
---------------------
-7
-8
-0
-7
---------------------
-7
-9
-0
-7
---------------------
-7
-10
-0
-7
---------------------
---------------------
-6
-0
-Error: div by 0
---------------------
-6
-1
-6
-0
---------------------
-6
-2
-3
-0
---------------------
-6
-3
-2
-0
---------------------
-6
-4
-1
-2
---------------------
-6
-5
-1
-1
---------------------
-6
-6
-1
-0
---------------------
-6
-7
-0
-6
---------------------
-6
-8
-0
-6
---------------------
-6
-9
-0
-6
---------------------
-6
-10
-0
-6
---------------------
---------------------
-5
-0
-Error: div by 0
---------------------
-5
-1
-5
-0
---------------------
-5
-2
-2
-1
---------------------
-5
-3
-1
-2
---------------------
-5
-4
-1
-1
---------------------
-5
-5
-1
-0
---------------------
-5
-6
-0
-5
---------------------
-5
-7
-0
-5
---------------------
-5
-8
-0
-5
---------------------
-5
-9
-0
-5
---------------------
-5
-10
-0
-5
---------------------
---------------------
-4
-0
-Error: div by 0
---------------------
-4
-1
-4
-0
---------------------
-4
-2
-2
-0
---------------------
-4
-3
-1
-1
---------------------
-4
-4
-1
-0
---------------------
-4
-5
-0
-4
---------------------
-4
-6
-0
-4
---------------------
-4
-7
-0
-4
---------------------
-4
-8
-0
-4
---------------------
-4
-9
-0
-4
---------------------
-4
-10
-0
-4
---------------------
---------------------
-3
-0
-Error: div by 0
---------------------
-3
-1
-3
-0
---------------------
-3
-2
-1
-1
---------------------
-3
-3
-1
-0
---------------------
-3
-4
-0
-3
---------------------
-3
-5
-0
-3
---------------------
-3
-6
-0
-3
---------------------
-3
-7
-0
-3
---------------------
-3
-8
-0
-3
---------------------
-3
-9
-0
-3
---------------------
-3
-10
-0
-3
---------------------
---------------------
-2
-0
-Error: div by 0
---------------------
-2
-1
-2
-0
---------------------
-2
-2
-1
-0
---------------------
-2
-3
-0
-2
---------------------
-2
-4
-0
-2
---------------------
-2
-5
-0
-2
---------------------
-2
-6
-0
-2
---------------------
-2
-7
-0
-2
---------------------
-2
-8
-0
-2
---------------------
-2
-9
-0
-2
---------------------
-2
-10
-0
-2
---------------------
---------------------
-1
-0
-Error: div by 0
---------------------
-1
-1
-1
-0
---------------------
-1
-2
-0
-1
---------------------
-1
-3
-0
-1
---------------------
-1
-4
-0
-1
---------------------
-1
-5
-0
-1
---------------------
-1
-6
-0
-1
---------------------
-1
-7
-0
-1
---------------------
-1
-8
-0
-1
---------------------
-1
-9
-0
-1
---------------------
-1
-10
-0
-1
---------------------
---------------------
-0
-0
-Error: div by 0
---------------------
-0
-1
-0
-0
---------------------
-0
-2
-0
-0
---------------------
-0
-3
-0
-0
---------------------
-0
-4
-0
-0
---------------------
-0
-5
-0
-0
---------------------
-0
-6
-0
-0
---------------------
-0
-7
-0
-0
---------------------
-0
-8
-0
-0
---------------------
-0
-9
-0
-0
---------------------
-0
-10
-0
-0
---------------------
diff --git a/test/system/casl2_lib/lib_divl/Makefile b/test/system/casl2_lib/lib_divl/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_divl/cmd b/test/system/casl2_lib/lib_divl/cmd
deleted file mode 100755 (executable)
index 13d7da4..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 -M2048 ../../../../as/casl2lib/sample/call_divl.casl ../../../../as/casl2lib/stdlib.casl
diff --git a/test/system/casl2_lib/lib_inl/0.txt b/test/system/casl2_lib/lib_inl/0.txt
deleted file mode 100644 (file)
index dcabab8..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-0
-1
-2
-10
-12
-32767
-32768
-65535
-Not a number
-Not a number
-Not a number
-Not a number
-12345
-Over 65535
-1234
diff --git a/test/system/casl2_lib/lib_inl/Makefile b/test/system/casl2_lib/lib_inl/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_inl/cmd b/test/system/casl2_lib/lib_inl/cmd
deleted file mode 100755 (executable)
index 400902b..0000000
+++ /dev/null
@@ -1 +0,0 @@
-casl2 -M2048 ../../../../as/casl2lib/sample/call_inl.casl ../../../../as/casl2lib/stdlib.casl <teststr.txt
diff --git a/test/system/casl2_lib/lib_inl/teststr.txt b/test/system/casl2_lib/lib_inl/teststr.txt
deleted file mode 100644 (file)
index b6b862a..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-0
-1
-2
-10
-12
-32767
-32768
-65535
-65536
-90000
--1
-NOTNU
-12345
-100000
-1234
diff --git a/test/system/casl2_lib/lib_minim/0.txt b/test/system/casl2_lib/lib_minim/0.txt
deleted file mode 100644 (file)
index 03cb5e7..0000000
+++ /dev/null
@@ -1 +0,0 @@
--39
diff --git a/test/system/casl2_lib/lib_minim/Makefile b/test/system/casl2_lib/lib_minim/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_minim/cmd b/test/system/casl2_lib/lib_minim/cmd
deleted file mode 100755 (executable)
index c276203..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 -M2048 ../../../../as/casl2lib/sample/call_minim.casl ../../../../as/casl2lib/stdlib.casl
diff --git a/test/system/casl2_lib/lib_mula/0.txt b/test/system/casl2_lib/lib_mula/0.txt
deleted file mode 100644 (file)
index 9d2472e..0000000
+++ /dev/null
@@ -1,1936 +0,0 @@
-0
-0
-0
---------------------
-0
-1
-0
---------------------
-0
-2
-0
---------------------
-0
-127
-0
---------------------
-0
-128
-0
---------------------
-0
-151
-0
---------------------
-0
-217
-0
---------------------
-0
-255
-0
---------------------
-0
-256
-0
---------------------
-0
-257
-0
---------------------
-0
-32767
-0
---------------------
-0
--32768
-0
---------------------
-0
--32767
-0
---------------------
-0
--257
-0
---------------------
-0
--256
-0
---------------------
-0
--255
-0
---------------------
-0
--217
-0
---------------------
-0
--151
-0
---------------------
-0
--128
-0
---------------------
-0
--127
-0
---------------------
-0
--2
-0
---------------------
-0
--1
-0
---------------------
-1
-0
-0
---------------------
-1
-1
-1
---------------------
-1
-2
-2
---------------------
-1
-127
-127
---------------------
-1
-128
-128
---------------------
-1
-151
-151
---------------------
-1
-217
-217
---------------------
-1
-255
-255
---------------------
-1
-256
-256
---------------------
-1
-257
-257
---------------------
-1
-32767
-32767
---------------------
-1
--32768
-Warning: overflow
---------------------
-1
--32767
--32767
---------------------
-1
--257
--257
---------------------
-1
--256
--256
---------------------
-1
--255
--255
---------------------
-1
--217
--217
---------------------
-1
--151
--151
---------------------
-1
--128
--128
---------------------
-1
--127
--127
---------------------
-1
--2
--2
---------------------
-1
--1
--1
---------------------
-2
-0
-0
---------------------
-2
-1
-2
---------------------
-2
-2
-4
---------------------
-2
-127
-254
---------------------
-2
-128
-256
---------------------
-2
-151
-302
---------------------
-2
-217
-434
---------------------
-2
-255
-510
---------------------
-2
-256
-512
---------------------
-2
-257
-514
---------------------
-2
-32767
-Warning: overflow
---------------------
-2
--32768
-Warning: overflow
---------------------
-2
--32767
-Warning: overflow
---------------------
-2
--257
--514
---------------------
-2
--256
--512
---------------------
-2
--255
--510
---------------------
-2
--217
--434
---------------------
-2
--151
--302
---------------------
-2
--128
--256
---------------------
-2
--127
--254
---------------------
-2
--2
--4
---------------------
-2
--1
--2
---------------------
-127
-0
-0
---------------------
-127
-1
-127
---------------------
-127
-2
-254
---------------------
-127
-127
-16129
---------------------
-127
-128
-16256
---------------------
-127
-151
-19177
---------------------
-127
-217
-27559
---------------------
-127
-255
-32385
---------------------
-127
-256
-32512
---------------------
-127
-257
-32639
---------------------
-127
-32767
-Warning: overflow
---------------------
-127
--32768
-Warning: overflow
---------------------
-127
--32767
-Warning: overflow
---------------------
-127
--257
--32639
---------------------
-127
--256
--32512
---------------------
-127
--255
--32385
---------------------
-127
--217
--27559
---------------------
-127
--151
--19177
---------------------
-127
--128
--16256
---------------------
-127
--127
--16129
---------------------
-127
--2
--254
---------------------
-127
--1
--127
---------------------
-128
-0
-0
---------------------
-128
-1
-128
---------------------
-128
-2
-256
---------------------
-128
-127
-16256
---------------------
-128
-128
-16384
---------------------
-128
-151
-19328
---------------------
-128
-217
-27776
---------------------
-128
-255
-32640
---------------------
-128
-256
-Warning: overflow
---------------------
-128
-257
-Warning: overflow
---------------------
-128
-32767
-Warning: overflow
---------------------
-128
--32768
-Warning: overflow
---------------------
-128
--32767
-Warning: overflow
---------------------
-128
--257
-Warning: overflow
---------------------
-128
--256
-Warning: overflow
---------------------
-128
--255
--32640
---------------------
-128
--217
--27776
---------------------
-128
--151
--19328
---------------------
-128
--128
--16384
---------------------
-128
--127
--16256
---------------------
-128
--2
--256
---------------------
-128
--1
--128
---------------------
-151
-0
-0
---------------------
-151
-1
-151
---------------------
-151
-2
-302
---------------------
-151
-127
-19177
---------------------
-151
-128
-19328
---------------------
-151
-151
-22801
---------------------
-151
-217
-32767
---------------------
-151
-255
-Warning: overflow
---------------------
-151
-256
-Warning: overflow
---------------------
-151
-257
-Warning: overflow
---------------------
-151
-32767
-Warning: overflow
---------------------
-151
--32768
-Warning: overflow
---------------------
-151
--32767
-Warning: overflow
---------------------
-151
--257
-Warning: overflow
---------------------
-151
--256
-Warning: overflow
---------------------
-151
--255
-Warning: overflow
---------------------
-151
--217
--32767
---------------------
-151
--151
--22801
---------------------
-151
--128
--19328
---------------------
-151
--127
--19177
---------------------
-151
--2
--302
---------------------
-151
--1
--151
---------------------
-217
-0
-0
---------------------
-217
-1
-217
---------------------
-217
-2
-434
---------------------
-217
-127
-27559
---------------------
-217
-128
-27776
---------------------
-217
-151
-32767
---------------------
-217
-217
-Warning: overflow
---------------------
-217
-255
-Warning: overflow
---------------------
-217
-256
-Warning: overflow
---------------------
-217
-257
-Warning: overflow
---------------------
-217
-32767
-Warning: overflow
---------------------
-217
--32768
-Warning: overflow
---------------------
-217
--32767
-Warning: overflow
---------------------
-217
--257
-Warning: overflow
---------------------
-217
--256
-Warning: overflow
---------------------
-217
--255
-Warning: overflow
---------------------
-217
--217
-Warning: overflow
---------------------
-217
--151
--32767
---------------------
-217
--128
--27776
---------------------
-217
--127
--27559
---------------------
-217
--2
--434
---------------------
-217
--1
--217
---------------------
-255
-0
-0
---------------------
-255
-1
-255
---------------------
-255
-2
-510
---------------------
-255
-127
-32385
---------------------
-255
-128
-32640
---------------------
-255
-151
-Warning: overflow
---------------------
-255
-217
-Warning: overflow
---------------------
-255
-255
-Warning: overflow
---------------------
-255
-256
-Warning: overflow
---------------------
-255
-257
-Warning: overflow
---------------------
-255
-32767
-Warning: overflow
---------------------
-255
--32768
-Warning: overflow
---------------------
-255
--32767
-Warning: overflow
---------------------
-255
--257
-Warning: overflow
---------------------
-255
--256
-Warning: overflow
---------------------
-255
--255
-Warning: overflow
---------------------
-255
--217
-Warning: overflow
---------------------
-255
--151
-Warning: overflow
---------------------
-255
--128
--32640
---------------------
-255
--127
--32385
---------------------
-255
--2
--510
---------------------
-255
--1
--255
---------------------
-256
-0
-0
---------------------
-256
-1
-256
---------------------
-256
-2
-512
---------------------
-256
-127
-32512
---------------------
-256
-128
-Warning: overflow
---------------------
-256
-151
-Warning: overflow
---------------------
-256
-217
-Warning: overflow
---------------------
-256
-255
-Warning: overflow
---------------------
-256
-256
-Warning: overflow
---------------------
-256
-257
-Warning: overflow
---------------------
-256
-32767
-Warning: overflow
---------------------
-256
--32768
-Warning: overflow
---------------------
-256
--32767
-Warning: overflow
---------------------
-256
--257
-Warning: overflow
---------------------
-256
--256
-Warning: overflow
---------------------
-256
--255
-Warning: overflow
---------------------
-256
--217
-Warning: overflow
---------------------
-256
--151
-Warning: overflow
---------------------
-256
--128
-Warning: overflow
---------------------
-256
--127
--32512
---------------------
-256
--2
--512
---------------------
-256
--1
--256
---------------------
-257
-0
-0
---------------------
-257
-1
-257
---------------------
-257
-2
-514
---------------------
-257
-127
-32639
---------------------
-257
-128
-Warning: overflow
---------------------
-257
-151
-Warning: overflow
---------------------
-257
-217
-Warning: overflow
---------------------
-257
-255
-Warning: overflow
---------------------
-257
-256
-Warning: overflow
---------------------
-257
-257
-Warning: overflow
---------------------
-257
-32767
-Warning: overflow
---------------------
-257
--32768
-Warning: overflow
---------------------
-257
--32767
-Warning: overflow
---------------------
-257
--257
-Warning: overflow
---------------------
-257
--256
-Warning: overflow
---------------------
-257
--255
-Warning: overflow
---------------------
-257
--217
-Warning: overflow
---------------------
-257
--151
-Warning: overflow
---------------------
-257
--128
-Warning: overflow
---------------------
-257
--127
--32639
---------------------
-257
--2
--514
---------------------
-257
--1
--257
---------------------
-32767
-0
-0
---------------------
-32767
-1
-32767
---------------------
-32767
-2
-Warning: overflow
---------------------
-32767
-127
-Warning: overflow
---------------------
-32767
-128
-Warning: overflow
---------------------
-32767
-151
-Warning: overflow
---------------------
-32767
-217
-Warning: overflow
---------------------
-32767
-255
-Warning: overflow
---------------------
-32767
-256
-Warning: overflow
---------------------
-32767
-257
-Warning: overflow
---------------------
-32767
-32767
-Warning: overflow
---------------------
-32767
--32768
-Warning: overflow
---------------------
-32767
--32767
-Warning: overflow
---------------------
-32767
--257
-Warning: overflow
---------------------
-32767
--256
-Warning: overflow
---------------------
-32767
--255
-Warning: overflow
---------------------
-32767
--217
-Warning: overflow
---------------------
-32767
--151
-Warning: overflow
---------------------
-32767
--128
-Warning: overflow
---------------------
-32767
--127
-Warning: overflow
---------------------
-32767
--2
-Warning: overflow
---------------------
-32767
--1
--32767
---------------------
--32768
-0
-0
---------------------
--32768
-1
-Warning: overflow
---------------------
--32768
-2
-Warning: overflow
---------------------
--32768
-127
-Warning: overflow
---------------------
--32768
-128
-Warning: overflow
---------------------
--32768
-151
-Warning: overflow
---------------------
--32768
-217
-Warning: overflow
---------------------
--32768
-255
-Warning: overflow
---------------------
--32768
-256
-Warning: overflow
---------------------
--32768
-257
-Warning: overflow
---------------------
--32768
-32767
-Warning: overflow
---------------------
--32768
--32768
-Warning: overflow
---------------------
--32768
--32767
-Warning: overflow
---------------------
--32768
--257
-Warning: overflow
---------------------
--32768
--256
-Warning: overflow
---------------------
--32768
--255
-Warning: overflow
---------------------
--32768
--217
-Warning: overflow
---------------------
--32768
--151
-Warning: overflow
---------------------
--32768
--128
-Warning: overflow
---------------------
--32768
--127
-Warning: overflow
---------------------
--32768
--2
-Warning: overflow
---------------------
--32768
--1
-Warning: overflow
---------------------
--32767
-0
-0
---------------------
--32767
-1
--32767
---------------------
--32767
-2
-Warning: overflow
---------------------
--32767
-127
-Warning: overflow
---------------------
--32767
-128
-Warning: overflow
---------------------
--32767
-151
-Warning: overflow
---------------------
--32767
-217
-Warning: overflow
---------------------
--32767
-255
-Warning: overflow
---------------------
--32767
-256
-Warning: overflow
---------------------
--32767
-257
-Warning: overflow
---------------------
--32767
-32767
-Warning: overflow
---------------------
--32767
--32768
-Warning: overflow
---------------------
--32767
--32767
-Warning: overflow
---------------------
--32767
--257
-Warning: overflow
---------------------
--32767
--256
-Warning: overflow
---------------------
--32767
--255
-Warning: overflow
---------------------
--32767
--217
-Warning: overflow
---------------------
--32767
--151
-Warning: overflow
---------------------
--32767
--128
-Warning: overflow
---------------------
--32767
--127
-Warning: overflow
---------------------
--32767
--2
-Warning: overflow
---------------------
--32767
--1
-32767
---------------------
--257
-0
-0
---------------------
--257
-1
--257
---------------------
--257
-2
--514
---------------------
--257
-127
--32639
---------------------
--257
-128
-Warning: overflow
---------------------
--257
-151
-Warning: overflow
---------------------
--257
-217
-Warning: overflow
---------------------
--257
-255
-Warning: overflow
---------------------
--257
-256
-Warning: overflow
---------------------
--257
-257
-Warning: overflow
---------------------
--257
-32767
-Warning: overflow
---------------------
--257
--32768
-Warning: overflow
---------------------
--257
--32767
-Warning: overflow
---------------------
--257
--257
-Warning: overflow
---------------------
--257
--256
-Warning: overflow
---------------------
--257
--255
-Warning: overflow
---------------------
--257
--217
-Warning: overflow
---------------------
--257
--151
-Warning: overflow
---------------------
--257
--128
-Warning: overflow
---------------------
--257
--127
-32639
---------------------
--257
--2
-514
---------------------
--257
--1
-257
---------------------
--256
-0
-0
---------------------
--256
-1
--256
---------------------
--256
-2
--512
---------------------
--256
-127
--32512
---------------------
--256
-128
-Warning: overflow
---------------------
--256
-151
-Warning: overflow
---------------------
--256
-217
-Warning: overflow
---------------------
--256
-255
-Warning: overflow
---------------------
--256
-256
-Warning: overflow
---------------------
--256
-257
-Warning: overflow
---------------------
--256
-32767
-Warning: overflow
---------------------
--256
--32768
-Warning: overflow
---------------------
--256
--32767
-Warning: overflow
---------------------
--256
--257
-Warning: overflow
---------------------
--256
--256
-Warning: overflow
---------------------
--256
--255
-Warning: overflow
---------------------
--256
--217
-Warning: overflow
---------------------
--256
--151
-Warning: overflow
---------------------
--256
--128
-Warning: overflow
---------------------
--256
--127
-32512
---------------------
--256
--2
-512
---------------------
--256
--1
-256
---------------------
--255
-0
-0
---------------------
--255
-1
--255
---------------------
--255
-2
--510
---------------------
--255
-127
--32385
---------------------
--255
-128
--32640
---------------------
--255
-151
-Warning: overflow
---------------------
--255
-217
-Warning: overflow
---------------------
--255
-255
-Warning: overflow
---------------------
--255
-256
-Warning: overflow
---------------------
--255
-257
-Warning: overflow
---------------------
--255
-32767
-Warning: overflow
---------------------
--255
--32768
-Warning: overflow
---------------------
--255
--32767
-Warning: overflow
---------------------
--255
--257
-Warning: overflow
---------------------
--255
--256
-Warning: overflow
---------------------
--255
--255
-Warning: overflow
---------------------
--255
--217
-Warning: overflow
---------------------
--255
--151
-Warning: overflow
---------------------
--255
--128
-32640
---------------------
--255
--127
-32385
---------------------
--255
--2
-510
---------------------
--255
--1
-255
---------------------
--217
-0
-0
---------------------
--217
-1
--217
---------------------
--217
-2
--434
---------------------
--217
-127
--27559
---------------------
--217
-128
--27776
---------------------
--217
-151
--32767
---------------------
--217
-217
-Warning: overflow
---------------------
--217
-255
-Warning: overflow
---------------------
--217
-256
-Warning: overflow
---------------------
--217
-257
-Warning: overflow
---------------------
--217
-32767
-Warning: overflow
---------------------
--217
--32768
-Warning: overflow
---------------------
--217
--32767
-Warning: overflow
---------------------
--217
--257
-Warning: overflow
---------------------
--217
--256
-Warning: overflow
---------------------
--217
--255
-Warning: overflow
---------------------
--217
--217
-Warning: overflow
---------------------
--217
--151
-32767
---------------------
--217
--128
-27776
---------------------
--217
--127
-27559
---------------------
--217
--2
-434
---------------------
--217
--1
-217
---------------------
--151
-0
-0
---------------------
--151
-1
--151
---------------------
--151
-2
--302
---------------------
--151
-127
--19177
---------------------
--151
-128
--19328
---------------------
--151
-151
--22801
---------------------
--151
-217
--32767
---------------------
--151
-255
-Warning: overflow
---------------------
--151
-256
-Warning: overflow
---------------------
--151
-257
-Warning: overflow
---------------------
--151
-32767
-Warning: overflow
---------------------
--151
--32768
-Warning: overflow
---------------------
--151
--32767
-Warning: overflow
---------------------
--151
--257
-Warning: overflow
---------------------
--151
--256
-Warning: overflow
---------------------
--151
--255
-Warning: overflow
---------------------
--151
--217
-32767
---------------------
--151
--151
-22801
---------------------
--151
--128
-19328
---------------------
--151
--127
-19177
---------------------
--151
--2
-302
---------------------
--151
--1
-151
---------------------
--128
-0
-0
---------------------
--128
-1
--128
---------------------
--128
-2
--256
---------------------
--128
-127
--16256
---------------------
--128
-128
--16384
---------------------
--128
-151
--19328
---------------------
--128
-217
--27776
---------------------
--128
-255
--32640
---------------------
--128
-256
-Warning: overflow
---------------------
--128
-257
-Warning: overflow
---------------------
--128
-32767
-Warning: overflow
---------------------
--128
--32768
-Warning: overflow
---------------------
--128
--32767
-Warning: overflow
---------------------
--128
--257
-Warning: overflow
---------------------
--128
--256
-Warning: overflow
---------------------
--128
--255
-32640
---------------------
--128
--217
-27776
---------------------
--128
--151
-19328
---------------------
--128
--128
-16384
---------------------
--128
--127
-16256
---------------------
--128
--2
-256
---------------------
--128
--1
-128
---------------------
--127
-0
-0
---------------------
--127
-1
--127
---------------------
--127
-2
--254
---------------------
--127
-127
--16129
---------------------
--127
-128
--16256
---------------------
--127
-151
--19177
---------------------
--127
-217
--27559
---------------------
--127
-255
--32385
---------------------
--127
-256
--32512
---------------------
--127
-257
--32639
---------------------
--127
-32767
-Warning: overflow
---------------------
--127
--32768
-Warning: overflow
---------------------
--127
--32767
-Warning: overflow
---------------------
--127
--257
-32639
---------------------
--127
--256
-32512
---------------------
--127
--255
-32385
---------------------
--127
--217
-27559
---------------------
--127
--151
-19177
---------------------
--127
--128
-16256
---------------------
--127
--127
-16129
---------------------
--127
--2
-254
---------------------
--127
--1
-127
---------------------
--2
-0
-0
---------------------
--2
-1
--2
---------------------
--2
-2
--4
---------------------
--2
-127
--254
---------------------
--2
-128
--256
---------------------
--2
-151
--302
---------------------
--2
-217
--434
---------------------
--2
-255
--510
---------------------
--2
-256
--512
---------------------
--2
-257
--514
---------------------
--2
-32767
-Warning: overflow
---------------------
--2
--32768
-Warning: overflow
---------------------
--2
--32767
-Warning: overflow
---------------------
--2
--257
-514
---------------------
--2
--256
-512
---------------------
--2
--255
-510
---------------------
--2
--217
-434
---------------------
--2
--151
-302
---------------------
--2
--128
-256
---------------------
--2
--127
-254
---------------------
--2
--2
-4
---------------------
--2
--1
-2
---------------------
--1
-0
-0
---------------------
--1
-1
--1
---------------------
--1
-2
--2
---------------------
--1
-127
--127
---------------------
--1
-128
--128
---------------------
--1
-151
--151
---------------------
--1
-217
--217
---------------------
--1
-255
--255
---------------------
--1
-256
--256
---------------------
--1
-257
--257
---------------------
--1
-32767
--32767
---------------------
--1
--32768
-Warning: overflow
---------------------
--1
--32767
-32767
---------------------
--1
--257
-257
---------------------
--1
--256
-256
---------------------
--1
--255
-255
---------------------
--1
--217
-217
---------------------
--1
--151
-151
---------------------
--1
--128
-128
---------------------
--1
--127
-127
---------------------
--1
--2
-2
---------------------
--1
--1
-1
---------------------
diff --git a/test/system/casl2_lib/lib_mula/Makefile b/test/system/casl2_lib/lib_mula/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_mula/cmd b/test/system/casl2_lib/lib_mula/cmd
deleted file mode 100755 (executable)
index f5b9ed9..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 -M2048 ../../../../as/casl2lib/sample/call_mula.casl ../../../../as/casl2lib/stdlib.casl
diff --git a/test/system/casl2_lib/lib_mull/0.txt b/test/system/casl2_lib/lib_mull/0.txt
deleted file mode 100644 (file)
index 023e0f2..0000000
+++ /dev/null
@@ -1,332 +0,0 @@
-0
-0
-0
---------------------
-0
-1
-0
---------------------
-0
-2
-0
---------------------
-0
-127
-0
---------------------
-0
-128
-0
---------------------
-0
-255
-0
---------------------
-0
-256
-0
---------------------
-0
-257
-0
---------------------
-0
-32767
-0
---------------------
-0
-32768
-0
---------------------
-0
-65535
-0
---------------------
-1
-0
-0
---------------------
-1
-1
-1
---------------------
-1
-2
-2
---------------------
-1
-127
-127
---------------------
-1
-128
-128
---------------------
-1
-255
-255
---------------------
-1
-256
-256
---------------------
-1
-257
-257
---------------------
-1
-32767
-32767
---------------------
-1
-32768
-32768
---------------------
-1
-65535
-65535
---------------------
-2
-0
-0
---------------------
-2
-1
-2
---------------------
-2
-2
-4
---------------------
-2
-127
-254
---------------------
-2
-128
-256
---------------------
-2
-255
-510
---------------------
-2
-256
-512
---------------------
-2
-257
-514
---------------------
-2
-32767
-65534
---------------------
-2
-32768
-overflow
---------------------
-127
-0
-0
---------------------
-127
-1
-127
---------------------
-127
-2
-254
---------------------
-127
-127
-16129
---------------------
-127
-128
-16256
---------------------
-127
-255
-32385
---------------------
-127
-256
-32512
---------------------
-127
-257
-32639
---------------------
-127
-32767
-overflow
---------------------
-128
-0
-0
---------------------
-128
-1
-128
---------------------
-128
-2
-256
---------------------
-128
-127
-16256
---------------------
-128
-128
-16384
---------------------
-128
-255
-32640
---------------------
-128
-256
-32768
---------------------
-128
-257
-32896
---------------------
-128
-32767
-overflow
---------------------
-255
-0
-0
---------------------
-255
-1
-255
---------------------
-255
-2
-510
---------------------
-255
-127
-32385
---------------------
-255
-128
-32640
---------------------
-255
-255
-65025
---------------------
-255
-256
-65280
---------------------
-255
-257
-65535
---------------------
-255
-32767
-overflow
---------------------
-256
-0
-0
---------------------
-256
-1
-256
---------------------
-256
-2
-512
---------------------
-256
-127
-32512
---------------------
-256
-128
-32768
---------------------
-256
-255
-65280
---------------------
-256
-256
-overflow
---------------------
-257
-0
-0
---------------------
-257
-1
-257
---------------------
-257
-2
-514
---------------------
-257
-127
-32639
---------------------
-257
-128
-32896
---------------------
-257
-255
-65535
---------------------
-257
-256
-overflow
---------------------
-32767
-0
-0
---------------------
-32767
-1
-32767
---------------------
-32767
-2
-65534
---------------------
-32767
-127
-overflow
---------------------
-32768
-0
-0
---------------------
-32768
-1
-32768
---------------------
-32768
-2
-overflow
---------------------
-65535
-0
-0
---------------------
-65535
-1
-65535
---------------------
-65535
-2
-overflow
---------------------
diff --git a/test/system/casl2_lib/lib_mull/Makefile b/test/system/casl2_lib/lib_mull/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_mull/cmd b/test/system/casl2_lib/lib_mull/cmd
deleted file mode 100755 (executable)
index 536ad93..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-# ../../../../casl2 ../../../../as/casl2lib/sample/call_mull.casl ../../../../as/casl2lib/mull.casl ../../../../as/casl2lib/outl.casl
-../../../../casl2 ../../../../as/casl2lib/sample/call_mull.casl ../../../../as/casl2lib/mull.casl ../../../../as/casl2lib/outl.casl
diff --git a/test/system/casl2_lib/lib_outa/0.txt b/test/system/casl2_lib/lib_outa/0.txt
deleted file mode 100644 (file)
index 85f310f..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-0
-1
-2
-4
-8
-16
-32
-64
-128
-256
-512
-1024
-2048
-4096
-8192
-16384
-32767
--32768
--32767
--16384
--8192
--4096
--2048
--1024
--512
--256
--128
--64
--32
--16
--8
--4
--2
--1
diff --git a/test/system/casl2_lib/lib_outa/Makefile b/test/system/casl2_lib/lib_outa/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_outa/cmd b/test/system/casl2_lib/lib_outa/cmd
deleted file mode 100755 (executable)
index 2b8b287..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 ../../../../as/casl2lib/sample/call_outa.casl ../../../../as/casl2lib/outa.casl
diff --git a/test/system/casl2_lib/lib_outaq15/0.txt b/test/system/casl2_lib/lib_outaq15/0.txt
deleted file mode 100644 (file)
index c364a47..0000000
+++ /dev/null
@@ -1,33 +0,0 @@
-0.999969482421875
-0.5
-0.25
-0.125
-0.0625
-0.03125
-0.015625
-0.0078125
-0.00390625
-0.001953125
-0.0009765625
-0.00048828125
-0.000244140625
-0.0001220703125
-0.00006103515625
-0.000030517578125
--1
--0.999969482421875
--0.5
--0.25
--0.125
--0.0625
--0.03125
--0.015625
--0.0078125
--0.00390625
--0.001953125
--0.0009765625
--0.00048828125
--0.000244140625
--0.0001220703125
--0.00006103515625
--0.000030517578125
diff --git a/test/system/casl2_lib/lib_outaq15/Makefile b/test/system/casl2_lib/lib_outaq15/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_outaq15/cmd b/test/system/casl2_lib/lib_outaq15/cmd
deleted file mode 100755 (executable)
index ab0a9be..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 -M2048 ../../../../as/casl2lib/sample/call_outaq15.casl ../../../../as/casl2lib/stdlib.casl
diff --git a/test/system/casl2_lib/lib_outb/0.txt b/test/system/casl2_lib/lib_outb/0.txt
deleted file mode 100644 (file)
index 3964eb2..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-0000000000000000
-0000000000000001
-0000000000000010
-0000000000000100
-0000000000001000
-0000000000010000
-0000000000100000
-0000000001000000
-0000000010000000
-0000000100000000
-0000001000000000
-0000010000000000
-0000100000000000
-0001000000000000
-0010000000000000
-0100000000000000
-0111111111111111
-1000000000000000
-1000000000000001
-1100000000000000
-1110000000000000
-1111000000000000
-1111100000000000
-1111110000000000
-1111111000000000
-1111111100000000
-1111111110000000
-1111111111000000
-1111111111100000
-1111111111110000
-1111111111111000
-1111111111111100
-1111111111111110
-1111111111111111
diff --git a/test/system/casl2_lib/lib_outb/Makefile b/test/system/casl2_lib/lib_outb/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_outb/cmd b/test/system/casl2_lib/lib_outb/cmd
deleted file mode 100755 (executable)
index 19f0b27..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 ../../../../as/casl2lib/sample/call_outb.casl ../../../../as/casl2lib/outb.casl
diff --git a/test/system/casl2_lib/lib_outbw/0.txt b/test/system/casl2_lib/lib_outbw/0.txt
deleted file mode 100644 (file)
index 028cc06..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
-0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
-0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
-0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
-0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
-0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0
-0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
-0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
-0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0
-0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
-0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
-0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
-0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
-0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
-0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
-0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
-0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
-1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
-1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
-1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
-1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0
-1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0
-1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0
-1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0
-1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0
-1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0
-1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0
-1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0
-1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0
-1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0
-1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0
-1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
-1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0
-1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
diff --git a/test/system/casl2_lib/lib_outbw/Makefile b/test/system/casl2_lib/lib_outbw/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_outbw/cmd b/test/system/casl2_lib/lib_outbw/cmd
deleted file mode 100755 (executable)
index 5bdf253..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 -M2048 ../../../../as/casl2lib/sample/call_outbw.casl ../../../../as/casl2lib/outbw.casl
diff --git a/test/system/casl2_lib/lib_outl/0.txt b/test/system/casl2_lib/lib_outl/0.txt
deleted file mode 100644 (file)
index e33b954..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-0
-1
-2
-4
-8
-16
-32
-64
-128
-256
-512
-1024
-2048
-4096
-8192
-16384
-32767
-32768
-32769
-49152
-57344
-61440
-63488
-64512
-65024
-65280
-65408
-65472
-65504
-65520
-65528
-65532
-65534
-65535
diff --git a/test/system/casl2_lib/lib_outl/Makefile b/test/system/casl2_lib/lib_outl/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_outl/cmd b/test/system/casl2_lib/lib_outl/cmd
deleted file mode 100755 (executable)
index ef4f3a5..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 ../../../../as/casl2lib/sample/call_outl.casl ../../../../as/casl2lib/outl.casl
diff --git a/test/system/casl2_lib/lib_outlq15/0.txt b/test/system/casl2_lib/lib_outlq15/0.txt
deleted file mode 100644 (file)
index 464db4b..0000000
+++ /dev/null
@@ -1,33 +0,0 @@
-0.0000152587890625
-0.000030517578125
-0.00006103515625
-0.0001220703125
-0.000244140625
-0.00048828125
-0.0009765625
-0.001953125
-0.00390625
-0.0078125
-0.015625
-0.03125
-0.0625
-0.125
-0.25
-0.4999847412109375
-0.5
-0.5000152587890625
-0.75
-0.875
-0.9375
-0.96875
-0.984375
-0.9921875
-0.99609375
-0.998046875
-0.9990234375
-0.99951171875
-0.999755859375
-0.9998779296875
-0.99993896484375
-0.999969482421875
-0.9999847412109375
diff --git a/test/system/casl2_lib/lib_outlq15/Makefile b/test/system/casl2_lib/lib_outlq15/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_outlq15/cmd b/test/system/casl2_lib/lib_outlq15/cmd
deleted file mode 100755 (executable)
index d7d4e26..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 ../../../../as/casl2lib/sample/call_outlq15.casl ../../../../as/casl2lib/outlq15.casl
diff --git a/test/system/casl2_lib/lib_rev/0.txt b/test/system/casl2_lib/lib_rev/0.txt
deleted file mode 100644 (file)
index 64b2311..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-12345
-54321
diff --git a/test/system/casl2_lib/lib_rev/Makefile b/test/system/casl2_lib/lib_rev/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_rev/cmd b/test/system/casl2_lib/lib_rev/cmd
deleted file mode 100755 (executable)
index 71b0964..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 ../../../../as/casl2lib/sample/call_rev.casl ../../../../as/casl2lib/rev.casl
diff --git a/test/system/casl2_lib/lib_str2l/0.txt b/test/system/casl2_lib/lib_str2l/0.txt
deleted file mode 100644 (file)
index b5daef5..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-345
-not a logical integer
-not a logical integer
-over 65535
diff --git a/test/system/casl2_lib/lib_str2l/Makefile b/test/system/casl2_lib/lib_str2l/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-include ../Define.mk
-include ../Test.mk
diff --git a/test/system/casl2_lib/lib_str2l/cmd b/test/system/casl2_lib/lib_str2l/cmd
deleted file mode 100755 (executable)
index aeab1eb..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../../../casl2 -M1024 ../../../../as/casl2lib/sample/call_str2l.casl ../../../../as/casl2lib/str2l.casl ../../../../as/casl2lib/outl.casl
diff --git a/test/system/comet2_lib/Define.mk b/test/system/comet2_lib/Define.mk
deleted file mode 120000 (symlink)
index b4a58e1..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../template/Define.mk
\ No newline at end of file
diff --git a/test/system/comet2_lib/Makefile b/test/system/comet2_lib/Makefile
deleted file mode 120000 (symlink)
index 4f4e7b0..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../template/Group.mk
\ No newline at end of file
diff --git a/test/system/comet2_lib/Test.mk b/test/system/comet2_lib/Test.mk
deleted file mode 120000 (symlink)
index ada05aa..0000000
+++ /dev/null
@@ -1 +0,0 @@
-../../template/Test.mk
\ No newline at end of file
diff --git a/test/system/comet2_lib/lib_abs/0.txt b/test/system/comet2_lib/lib_abs/0.txt
deleted file mode 100644 (file)
index 234ad78..0000000
+++ /dev/null
@@ -1,32 +0,0 @@
-12
-+
-12
---------
--12
--
-12
---------
-1
-+
-1
---------
--1
--
-1
---------
-32767
-+
-32767
---------
--32767
--
-32767
---------
-0
-+
-0
---------
--32768
-OV
--32768
---------
diff --git a/test/system/comet2_lib/lib_abs/Makefile b/test/system/comet2_lib/lib_abs/Makefile
deleted file mode 100644 (file)
index b6dac59..0000000
--- a/