SLAのオーバーフロー時の動作を修正

diff --git a/as/FUNC/mula1.casl b/as/FUNC/mula1.casl
deleted file mode 100644 (file)
index 8633b15..0000000
--- a/as/FUNC/mula1.casl
+++ /dev/null
@@ -1,49 +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     LOOP            ; ↓
-        XOR     GR2,ALLON       ; GR2の正負を反転
-        ADDA    GR2,ONE         ; ↓
-        JOV     FIN             ; (GR2 = -32768)の場合は終了
-        XOR     GR4,ONE         ; マイナスフラグを反転
-LOOP    PUSH    0,GR3           ; ループ先頭。GR2のビット中でGR3の示したものが0の場合、NEXTへジャンプ
-        AND     GR3,GR2         ; ↓
-        POP     GR3             ; ↓
-        JZE     NEXT            ; ↓
-        ADDA    GR0,GR1         ; GR0 <- GR0 + GR1
-        JOV     FIN             ; オーバーフローした場合、終了
-NEXT    SLA     GR3,1           ; GR3を1回左シフト
-        AND     GR3,GR3         ; (GR3 = 0)の場合、ループ脱出
-        JZE     MIN             ; ↓
-        CPL     GR3,GR2         ; (GR3 > GR2)の場合、ループ脱出
-        JPL     MIN             ; ↓
-        SLA     GR1,1           ; GR1を1回左シフト
-        JOV     FIN             ; オーバーフローした場合、終了
-        JUMP    LOOP            ; ループ終端
-MIN     AND     GR4,GR4         ; マイナスフラグがオフの場合、終了
-        JZE     FIN             ; ↓
-        XOR     GR0,ALLON       ; GR1の正負を反転
-        ADDA    GR0,ONE         ; ↓
-FIN     RPOP
-        RET
-ONE     DC      1
-ALLON   DC      #FFFF
-        END

diff --git a/src/exec.c b/src/exec.c
index 00cee8d..ad57551 100644 (file)
--- a/src/exec.c
+++ b/src/exec.c
@@ -149,7 +149,7 @@ WORD sla(WORD val0, WORD val1)
         last = res & 0x4000;
         res <<= 1;
     }
-    res = sign | res;
+    res = sign | (res & 0x7FFF);
     /* OFに、レジスタから最後に送り出されたビットの値を設定 */
     if(last > 0x0) {
         FR += OF;

diff --git a/test/integration/casl2/mula1_call/0.txt b/test/integration/casl2/mula1_call/0.txt
deleted file mode 100644 (file)
index d46221c..0000000
--- a/test/integration/casl2/mula1_call/0.txt
+++ /dev/null
@@ -1,1937 +0,0 @@
-../../../../casl2 -M640 ../../../../as/FUNC/mula_call.casl ../../../../as/FUNC/mula1.casl ../../../../as/FUNC/outa.casl
-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/integration/casl2/mula1_call/Makefile b/test/integration/casl2/mula1_call/Makefile
deleted file mode 100644 (file)
index ecbbb51..0000000
--- a/test/integration/casl2/mula1_call/Makefile
+++ /dev/null
@@ -1,6 +0,0 @@
-include ../CMD.mk    # YACASL2DIR, CASL2
-CASL2FLAG = -M640
-ASDIR = $(YACASL2DIR)/as/FUNC
-ASFILE = $(ASDIR)/mula_call.casl $(ASDIR)/mula1.casl $(ASDIR)/outa.casl
-CMD = $(CASL2) $(CASL2FLAG) $(ASFILE)
-include ../TEST.mk