ADDA、ADDL、CPA、CPL、DCのテストコードを整理

diff --git a/as/cmd/ADDA/adda0_ov0.casl b/as/cmd/ADDA/adda0_aov.casl
similarity index 62%
rename from as/cmd/ADDA/adda0_ov0.casl
rename to as/cmd/ADDA/adda0_aov.casl
index ad85f71..f3144f5 100644 (file)
--- a/as/cmd/ADDA/adda0_ov0.casl
+++ b/as/cmd/ADDA/adda0_aov.casl
@@ -3,6 +3,6 @@ MAIN    START
         LD      GR1,A
         ADDA    GR1,B
         RET
-A       DC      32767
-B       DC      10
+A       DC      #7FFE           ; 32766
+B       DC      #000A           ; 10
         END

diff --git a/as/cmd/ADDA/adda0_az.casl b/as/cmd/ADDA/adda0_az.casl
new file mode 100644 (file)
index 0000000..99e533b
--- /dev/null
+++ b/as/cmd/ADDA/adda0_az.casl
@@ -0,0 +1,8 @@
+;;; ADDA r,adr 演算結果が零
+MAIN    START
+        LD      GR1,A
+        ADDA    GR1,B
+        RET
+A       DC      #FFF6           ; -10
+B       DC      10
+        END

diff --git a/as/cmd/ADDA/adda0_lov.casl b/as/cmd/ADDA/adda0_lov.casl
new file mode 100644 (file)
index 0000000..c1f5d74
--- /dev/null
+++ b/as/cmd/ADDA/adda0_lov.casl
@@ -0,0 +1,8 @@
+;;; ADDA r,adr ADDLではオーバーフロー
+MAIN    START
+        LD      GR1,A
+        ADDA    GR1,B
+        RET
+A       DC      #FFFE           ; -2
+B       DC      #000F           ; 15
+        END

diff --git a/as/cmd/ADDA/adda0_ov.casl b/as/cmd/ADDA/adda0_ov.casl
new file mode 100644 (file)
index 0000000..b5ae906
--- /dev/null
+++ b/as/cmd/ADDA/adda0_ov.casl
@@ -0,0 +1,8 @@
+;;; ADDA r,adr オーバーフロー
+MAIN    START
+        LD      GR1,A
+        ADDA    GR1,B
+        RET
+A       DC      #8002           ; -32766
+B       DC      #8001           ; -32767
+        END

diff --git a/as/cmd/ADDA/adda0_ov1.casl b/as/cmd/ADDA/adda0_ov1.casl
deleted file mode 100644 (file)
index d20f312..0000000
--- a/as/cmd/ADDA/adda0_ov1.casl
+++ /dev/null
@@ -1,8 +0,0 @@
-;;; ADDA r,adr 負数でオーバーフロー
-MAIN    START
-        LD      GR1,A
-        ADDA    GR1,B
-        RET
-A       DC      #8001           ; -32767
-B       DC      #FFF6           ; -10
-        END

diff --git a/as/cmd/ADDA/adda0_s0.casl b/as/cmd/ADDA/adda0_s0.casl
index b4d33f9..36d9bb1 100644 (file)
--- a/as/cmd/ADDA/adda0_s0.casl
+++ b/as/cmd/ADDA/adda0_s0.casl
@@ -3,6 +3,6 @@ MAIN    START
         LD      GR1,A
         ADDA    GR1,B
         RET
-A       DC      10
+A       DC      #000A           ; 10
 B       DC      #FFEC           ; -20
         END

diff --git a/as/cmd/ADDA/adda0_s1.casl b/as/cmd/ADDA/adda0_s1.casl
index bef7e13..52003a3 100644 (file)
--- a/as/cmd/ADDA/adda0_s1.casl
+++ b/as/cmd/ADDA/adda0_s1.casl
@@ -3,6 +3,6 @@ MAIN    START
         LD      GR1,A
         ADDA    GR1,B
         RET
-A       DC      -10
-B       DC      20
+A       DC      #FFEC           ; -20
+B       DC      #000A           ; 10
         END

diff --git a/as/cmd/ADDA/adda0_z.casl b/as/cmd/ADDA/adda0_z.casl
index cee1302..4397331 100644 (file)
--- a/as/cmd/ADDA/adda0_z.casl
+++ b/as/cmd/ADDA/adda0_z.casl
@@ -3,6 +3,6 @@ MAIN    START
         LD      GR1,A
         ADDA    GR1,B
         RET
-A       DC      -10
-        DC      10
+A       DC      0
+B       DC      0
         END

diff --git a/as/cmd/ADDA/adda1_ov0.casl b/as/cmd/ADDA/adda1_ov0.casl
deleted file mode 100644 (file)
index 9c40503..0000000
--- a/as/cmd/ADDA/adda1_ov0.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDA r,adr,x 負数でオーバーフロー
-MAIN    START
-        LD      GR1,A
-        LAD     GR2,1
-        ADDA    GR1,A,GR2
-        RET
-A       DC      #8001           ; -32767
-        DC      #FFF6           ; -10
-        END

diff --git a/as/cmd/ADDA/adda1_ov1.casl b/as/cmd/ADDA/adda1_ov1.casl
deleted file mode 100644 (file)
index 9c40503..0000000
--- a/as/cmd/ADDA/adda1_ov1.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDA r,adr,x 負数でオーバーフロー
-MAIN    START
-        LD      GR1,A
-        LAD     GR2,1
-        ADDA    GR1,A,GR2
-        RET
-A       DC      #8001           ; -32767
-        DC      #FFF6           ; -10
-        END

diff --git a/as/cmd/ADDA/adda1_s0.casl b/as/cmd/ADDA/adda1_s0.casl
deleted file mode 100644 (file)
index 0c482b5..0000000
--- a/as/cmd/ADDA/adda1_s0.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDA r,adr,x 演算結果が負数(r > adr)
-MAIN    START
-        LD      GR1,A
-        LAD     GR2,1
-        ADDA    GR1,A,GR2
-        RET
-A       DC      10
-        DC      #FFEC           ; -20
-        END

diff --git a/as/cmd/ADDA/adda1_s1.casl b/as/cmd/ADDA/adda1_s1.casl
deleted file mode 100644 (file)
index 4fe0c37..0000000
--- a/as/cmd/ADDA/adda1_s1.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDA r,adr,x 演算結果が負数(r < adr)
-MAIN    START
-        LD      GR1,A
-        LAD     GR2,1
-        ADDA    GR1,A,GR2
-        RET
-A       DC      -10
-        DC      20
-        END

diff --git a/as/cmd/ADDA/adda1_z.casl b/as/cmd/ADDA/adda1_z.casl
deleted file mode 100644 (file)
index 1003ab5..0000000
--- a/as/cmd/ADDA/adda1_z.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDA r1,adr,x 演算結果が零
-MAIN    START
-        LD      GR1,A
-        LAD     GR2,1
-        ADDA    GR1,A,GR2
-        RET
-A       DC      -10
-        DC      10
-        END

diff --git a/as/cmd/ADDA/adda2_ov0.casl b/as/cmd/ADDA/adda2_ov0.casl
deleted file mode 100644 (file)
index afbd655..0000000
--- a/as/cmd/ADDA/adda2_ov0.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDA r1,r2 正数でオーバーフロー
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        ADDA    GR1,GR2
-        RET
-A       DC      32767
-B       DC      10
-        END

diff --git a/as/cmd/ADDA/adda2_ov1.casl b/as/cmd/ADDA/adda2_ov1.casl
deleted file mode 100644 (file)
index c26cf69..0000000
--- a/as/cmd/ADDA/adda2_ov1.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDA r1,r2 負数でオーバーフロー
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        ADDA    GR1,GR2
-        RET
-A       DC      -32767
-B       DC      -10
-        END

diff --git a/as/cmd/ADDA/adda2_s0.casl b/as/cmd/ADDA/adda2_s0.casl
deleted file mode 100644 (file)
index 57b8579..0000000
--- a/as/cmd/ADDA/adda2_s0.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDA r1,r2 演算結果が負数(r1 > r2)
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        ADDA    GR1,GR2
-        RET
-A       DC      10
-B       DC      #FFEC           ; -20
-        END

diff --git a/as/cmd/ADDA/adda2_s1.casl b/as/cmd/ADDA/adda2_s1.casl
deleted file mode 100644 (file)
index 4a86734..0000000
--- a/as/cmd/ADDA/adda2_s1.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDA r1,r2 演算結果が負数(r1 < r2)
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        ADDA    GR1,GR2
-        RET
-A       DC      -10
-B       DC      20
-        END

diff --git a/as/cmd/ADDA/adda2_z.casl b/as/cmd/ADDA/adda2_z.casl
deleted file mode 100644 (file)
index 2e879b8..0000000
--- a/as/cmd/ADDA/adda2_z.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDA r1,r2 演算結果が零
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        ADDA    GR1,GR2
-        RET
-A       DC      -10
-B       DC      10
-        END

diff --git a/as/cmd/ADDL/addl0.casl b/as/cmd/ADDL/addl0.casl
index 2128758..f295896 100644 (file)
--- a/as/cmd/ADDL/addl0.casl
+++ b/as/cmd/ADDL/addl0.casl
@@ -1,6 +1,6 @@
-;;; ADDL r,addr[,x]
+;;; ADDL r,adr
 MAIN    START
-BEGIN   LAD     GR1,A
+BEGIN   LD      GR1,A
         ADDL    GR1,B
         RET
 A       DC      3

diff --git a/as/cmd/ADDL/addl0_aov.casl b/as/cmd/ADDL/addl0_aov.casl
new file mode 100644 (file)
index 0000000..51d2bd7
--- /dev/null
+++ b/as/cmd/ADDL/addl0_aov.casl
@@ -0,0 +1,8 @@
+;;; ADDL r,adr ADDAでは正数でオーバーフロー
+MAIN    START
+        LD      GR1,A
+        ADDL    GR1,B
+        RET
+A       DC      #7FFE           ; 32766
+B       DC      #000A           ; 10
+        END

diff --git a/as/cmd/ADDL/addl0_ov0.casl b/as/cmd/ADDL/addl0_az.casl
similarity index 55%
rename from as/cmd/ADDL/addl0_ov0.casl
rename to as/cmd/ADDL/addl0_az.casl
index e8d10a0..aeff1ed 100644 (file)
--- a/as/cmd/ADDL/addl0_ov0.casl
+++ b/as/cmd/ADDL/addl0_az.casl
@@ -1,8 +1,8 @@
-;;; ADDL r,addr[,x] 正数でオーバーフロー発生
+;;; ADDL r,adr ADDAでは演算結果が零
 MAIN    START
         LD      GR1,A
         ADDL    GR1,B
         RET
-A       DC      32767
+A       DC      #FFF6           ; -10
 B       DC      10
         END

diff --git a/as/cmd/ADDL/addl0_lov.casl b/as/cmd/ADDL/addl0_lov.casl
new file mode 100644 (file)
index 0000000..e59d44e
--- /dev/null
+++ b/as/cmd/ADDL/addl0_lov.casl
@@ -0,0 +1,8 @@
+;;; ADDL r,adr ADDLではオーバーフロー
+MAIN    START
+        LD      GR1,A
+        ADDL    GR1,B
+        RET
+A       DC      #FFFE           ; -2
+B       DC      #000F           ; 15
+        END

diff --git a/as/cmd/ADDL/addl0_ov.casl b/as/cmd/ADDL/addl0_ov.casl
new file mode 100644 (file)
index 0000000..1c01d61
--- /dev/null
+++ b/as/cmd/ADDL/addl0_ov.casl
@@ -0,0 +1,8 @@
+;;; ADDL r,adr オーバーフロー
+MAIN    START
+        LD      GR1,A
+        ADDL    GR1,B
+        RET
+A       DC      #8002           ; 32770
+B       DC      #8001           ; 32769
+        END

diff --git a/as/cmd/ADDL/addl0_ov1.casl b/as/cmd/ADDL/addl0_ov1.casl
deleted file mode 100644 (file)
index c99962c..0000000
--- a/as/cmd/ADDL/addl0_ov1.casl
+++ /dev/null
@@ -1,8 +0,0 @@
-;;; ADDL r,addr[,x] 負数でオーバーフロー発生
-MAIN    START
-        LD      GR1,A
-        ADDL    GR1,B
-        RET
-A       DC      #8001           ; -32767
-B       DC      #FFF6           ; -10
-        END

diff --git a/as/cmd/ADDL/addl0_s0.casl b/as/cmd/ADDL/addl0_s0.casl
index 85b25ce..ccf1932 100644 (file)
--- a/as/cmd/ADDL/addl0_s0.casl
+++ b/as/cmd/ADDL/addl0_s0.casl
@@ -1,8 +1,8 @@
-;;; ADDL r,addr[,x] 演算結果の符号が負(r > adr)
+;;; ADDL r,adr 演算結果が負数(r > adr)
 MAIN    START
         LD      GR1,A
         ADDL    GR1,B
         RET
-A       DC      10
-B       DC      #FFEC        ; -20
+A       DC      #000A           ; 10
+B       DC      #FFEC           ; -20
         END

diff --git a/as/cmd/ADDL/addl0_s1.casl b/as/cmd/ADDL/addl0_s1.casl
index 59c29f5..0bc77d4 100644 (file)
--- a/as/cmd/ADDL/addl0_s1.casl
+++ b/as/cmd/ADDL/addl0_s1.casl
@@ -1,8 +1,8 @@
-;;; ADDL r,addr[,x] 演算結果の符号が負(r < adr)
+;;; ADDL r,adr 演算結果が負数(r < adr)
 MAIN    START
         LD      GR1,A
         ADDL    GR1,B
         RET
-A       DC      #FFEC        ; -20
-B       DC      10
+A       DC      #FFEC           ; -20
+B       DC      #000A           ; 10
         END

diff --git a/as/cmd/ADDL/addl0_z.casl b/as/cmd/ADDL/addl0_z.casl
index d082259..429b776 100644 (file)
--- a/as/cmd/ADDL/addl0_z.casl
+++ b/as/cmd/ADDL/addl0_z.casl
@@ -1,8 +1,8 @@
-;;; ADDL r,addr[,x] 演算結果が零
+;;; ADDL r,adr 演算結果が零
 MAIN    START
         LD      GR1,A
         ADDL    GR1,B
         RET
-A       DC      10
-B       DC      #FFF6        ; -10
+A       DC      0
+B       DC      0
         END

diff --git a/as/cmd/ADDL/addl1.casl b/as/cmd/ADDL/addl1.casl
index aff696b..4ffc8e7 100644 (file)
--- a/as/cmd/ADDL/addl1.casl
+++ b/as/cmd/ADDL/addl1.casl
@@ -1,9 +1,9 @@
-;;; ADDL r1,r2
+;;; ADDL r,adr,x
 MAIN    START
 BEGIN   LD      GR1,A
-        LD      GR2,B
-        ADDA    GR1,GR2
+        LAD     GR2,1
+        ADDL    GR1,A,GR2
         RET
 A       DC      3
-B       DC      1
+        DC      1
         END

diff --git a/as/cmd/ADDL/addl1_ov0.casl b/as/cmd/ADDL/addl1_ov0.casl
deleted file mode 100644 (file)
index ca3fc2e..0000000
--- a/as/cmd/ADDL/addl1_ov0.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDL r1,r2 正数でオーバーフロー発生
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        ADDA    GR1,GR2
-        RET
-A       DC      32767
-B       DC      10
-        END

diff --git a/as/cmd/ADDL/addl1_ov1.casl b/as/cmd/ADDL/addl1_ov1.casl
deleted file mode 100644 (file)
index 104b431..0000000
--- a/as/cmd/ADDL/addl1_ov1.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDL r1,r2 負数でオーバーフロー発生
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        ADDA    GR1,GR2
-        RET
-A       DC      -32767
-B       DC      -10
-        END

diff --git a/as/cmd/ADDL/addl1_s0.casl b/as/cmd/ADDL/addl1_s0.casl
deleted file mode 100644 (file)
index 1db3977..0000000
--- a/as/cmd/ADDL/addl1_s0.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDL r1,r2 演算結果の符号が負(r1 > r2)
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        ADDL    GR1,GR2
-        RET
-A       DC      10
-B       DC      #FFEC       ; -20
-        END

diff --git a/as/cmd/ADDL/addl1_s1.casl b/as/cmd/ADDL/addl1_s1.casl
deleted file mode 100644 (file)
index 2fde062..0000000
--- a/as/cmd/ADDL/addl1_s1.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDL r1,r2 演算結果の符号が負(r1 < r2)
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        ADDL    GR1,GR2
-        RET
-A       DC      #FFEC       ; -20
-B       DC      10
-        END

diff --git a/as/cmd/ADDL/addl1_z.casl b/as/cmd/ADDL/addl1_z.casl
deleted file mode 100644 (file)
index 52b9e2d..0000000
--- a/as/cmd/ADDL/addl1_z.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; ADDL r1,r2 演算結果が零
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        ADDL    GR1,GR2
-        RET
-A       DC      10
-B       DC      #FFF6        ; -10
-        END

diff --git a/as/cmd/ADDL/addl2.casl b/as/cmd/ADDL/addl2.casl
new file mode 100644 (file)
index 0000000..159afa9
--- /dev/null
+++ b/as/cmd/ADDL/addl2.casl
@@ -0,0 +1,9 @@
+;;; ADDL r1,r2
+MAIN    START
+BEGIN   LD      GR1,A
+        LD      GR2,B
+        ADDL    GR1,GR2
+        RET
+A       DC      3
+B       DC      1
+        END

diff --git a/as/cmd/AND/and1_s.casl b/as/cmd/AND/and1_s.casl
deleted file mode 100644 (file)
index c7f520c..0000000
--- a/as/cmd/AND/and1_s.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; AND r1,r2 演算結果の符号が負
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        AND     GR1,GR2
-        RET
-A       DC      #8000
-B       DC      #FFFF
-        END

diff --git a/as/cmd/AND/and1_z.casl b/as/cmd/AND/and1_z.casl
deleted file mode 100644 (file)
index a91dbdf..0000000
--- a/as/cmd/AND/and1_z.casl
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; AND r1,r2 演算結果が零
-MAIN    START
-        LD      GR1,A
-        LD      GR2,B
-        AND     GR1,GR2
-        RET
-A       DC      #1
-B       DC      #FFFE
-        END

diff --git a/as/cmd/CPA/cpa0_1.casl b/as/cmd/CPA/cpa0.casl
similarity index 90%
rename from as/cmd/CPA/cpa0_1.casl
rename to as/cmd/CPA/cpa0.casl
index ef5ec06..c3d0a00 100644 (file)
--- a/as/cmd/CPA/cpa0_1.casl
+++ b/as/cmd/CPA/cpa0.casl
@@ -1,3 +1,4 @@
+;;; CPA r,adr
 MAIN    START   BEGIN
 BEGIN   LD      GR1,A
         CPA     GR1,B

diff --git a/as/cmd/CPA/cpa0_3.casl b/as/cmd/CPA/cpa0_ls.casl
similarity index 90%
rename from as/cmd/CPA/cpa0_3.casl
rename to as/cmd/CPA/cpa0_ls.casl
index 1c24511..d75db3a 100644 (file)
--- a/as/cmd/CPA/cpa0_3.casl
+++ b/as/cmd/CPA/cpa0_ls.casl
@@ -1,3 +1,4 @@
+;;; CPA r,adr
 MAIN    START   BEGIN
 BEGIN   LD      GR1,A
         CPA     GR1,B

diff --git a/as/cmd/CPA/cpa0_0.casl b/as/cmd/CPA/cpa0_s.casl
similarity index 87%
rename from as/cmd/CPA/cpa0_0.casl
rename to as/cmd/CPA/cpa0_s.casl
index 9ce1eb9..8464ff0 100644 (file)
--- a/as/cmd/CPA/cpa0_0.casl
+++ b/as/cmd/CPA/cpa0_s.casl
@@ -1,3 +1,4 @@
+;;; CPA r,adr SF:1
 MAIN    START   BEGIN
 BEGIN   LD      GR1,A
         CPA     GR1,B

diff --git a/as/cmd/CPA/cpa0_2.casl b/as/cmd/CPA/cpa0_z.casl
similarity index 87%
rename from as/cmd/CPA/cpa0_2.casl
rename to as/cmd/CPA/cpa0_z.casl
index adca4a5..020e207 100644 (file)
--- a/as/cmd/CPA/cpa0_2.casl
+++ b/as/cmd/CPA/cpa0_z.casl
@@ -1,3 +1,4 @@
+;;; CPA r,adr ZF:0
 MAIN    START   BEGIN
 BEGIN   LD      GR1,A
         CPA     GR1,B

diff --git a/as/cmd/CPA/cpa1_0.casl b/as/cmd/CPA/cpa1_0.casl
deleted file mode 100644 (file)
index 551c76a..0000000
--- a/as/cmd/CPA/cpa1_0.casl
+++ /dev/null
@@ -1,6 +0,0 @@
-MAIN    START   BEGIN
-BEGIN   LAD     GR1,#5000
-        LAD     GR2,#7000
-        CPA     GR2,GR1
-        RET
-        END

diff --git a/as/cmd/CPA/cpa1_1.casl b/as/cmd/CPA/cpa1_1.casl
deleted file mode 100644 (file)
index 45c7ae9..0000000
--- a/as/cmd/CPA/cpa1_1.casl
+++ /dev/null
@@ -1,6 +0,0 @@
-MAIN    START   BEGIN
-BEGIN   LAD     GR1,#5000
-        LAD     GR2,#3000
-        CPA     GR2,GR1
-        RET
-        END

diff --git a/as/cmd/CPA/cpa1_2.casl b/as/cmd/CPA/cpa1_2.casl
deleted file mode 100644 (file)
index 2eb7c86..0000000
--- a/as/cmd/CPA/cpa1_2.casl
+++ /dev/null
@@ -1,6 +0,0 @@
-MAIN    START   BEGIN
-BEGIN   LAD     GR1,#5000
-        LAD     GR2,#5000
-        CPA     GR1,GR2
-        RET
-        END

diff --git a/as/cmd/CPA/cpa1_s.casl b/as/cmd/CPA/cpa1_s.casl
new file mode 100644 (file)
index 0000000..46842b4
--- /dev/null
+++ b/as/cmd/CPA/cpa1_s.casl
@@ -0,0 +1,9 @@
+;;; CPA r,adr,x SF:1
+MAIN    START   BEGIN
+BEGIN   LD      GR1,A
+        LAD     GR2,1
+        CPA     GR1,A,GR2
+        RET
+A       DC      #5000
+        DC      #7000
+        END

diff --git a/as/cmd/CPA/cpa1_3.casl b/as/cmd/CPA/cpa2_s.casl
similarity index 76%
rename from as/cmd/CPA/cpa1_3.casl
rename to as/cmd/CPA/cpa2_s.casl
index 99af974..e19efb6 100644 (file)
--- a/as/cmd/CPA/cpa1_3.casl
+++ b/as/cmd/CPA/cpa2_s.casl
@@ -1,8 +1,9 @@
+;;; CPA r1,r2 SF:1
 MAIN    START   BEGIN
 BEGIN   LD      GR1,A
         LD      GR2,B
         CPA     GR1,GR2
         RET
 A       DC      #5000
-B       DC      #8000
+B       DC      #7000
         END

diff --git a/as/cmd/CPL/cpl0.casl b/as/cmd/CPL/cpl0.casl
new file mode 100644 (file)
index 0000000..4f3b5f3
--- /dev/null
+++ b/as/cmd/CPL/cpl0.casl
@@ -0,0 +1,8 @@
+;;; CPL r,adr
+MAIN    START   BEGIN
+BEGIN   LD      GR1,A
+        CPL     GR1,B
+        RET
+A       DC      #5000
+B       DC      #3000
+        END

diff --git a/as/cmd/CPL/cpl0_ls.casl b/as/cmd/CPL/cpl0_ls.casl
new file mode 100644 (file)
index 0000000..26a102d
--- /dev/null
+++ b/as/cmd/CPL/cpl0_ls.casl
@@ -0,0 +1,8 @@
+;;; CPL r,adr
+MAIN    START   BEGIN
+BEGIN   LD      GR1,A
+        CPL     GR1,B
+        RET
+A       DC      #5000
+B       DC      #8000
+        END

diff --git a/as/cmd/CPL/cpl0_s.casl b/as/cmd/CPL/cpl0_s.casl
new file mode 100644 (file)
index 0000000..e7027c9
--- /dev/null
+++ b/as/cmd/CPL/cpl0_s.casl
@@ -0,0 +1,8 @@
+;;; CPL r,adr SF:1
+MAIN    START   BEGIN
+BEGIN   LD      GR1,A
+        CPL     GR1,B
+        RET
+A       DC      #5000
+B       DC      #7000
+        END

diff --git a/as/cmd/CPL/cpl0_z.casl b/as/cmd/CPL/cpl0_z.casl
new file mode 100644 (file)
index 0000000..3986279
--- /dev/null
+++ b/as/cmd/CPL/cpl0_z.casl
@@ -0,0 +1,8 @@
+;;; CPL r,adr ZF:0
+MAIN    START   BEGIN
+BEGIN   LD      GR1,A
+        CPL     GR1,B
+        RET
+A       DC      #5000
+B       DC      #5000
+        END

diff --git a/as/cmd/CPL/cpl1.casl b/as/cmd/CPL/cpl1.casl
deleted file mode 100644 (file)
index 778ccb5..0000000
--- a/as/cmd/CPL/cpl1.casl
+++ /dev/null
@@ -1,6 +0,0 @@
-MAIN    START
-BEGIN   LAD     GR1,#5000
-        LAD     GR2,#F000
-        CPL     GR1,GR2
-        RET
-        END

diff --git a/as/cmd/CPL/cpl1_s.casl b/as/cmd/CPL/cpl1_s.casl
new file mode 100644 (file)
index 0000000..614245b
--- /dev/null
+++ b/as/cmd/CPL/cpl1_s.casl
@@ -0,0 +1,9 @@
+;;; CPL r,adr,x SF:1
+MAIN    START   BEGIN
+BEGIN   LD      GR1,A
+        LAD     GR2,1
+        CPL     GR1,A,GR2
+        RET
+A       DC      #5000
+        DC      #7000
+        END

diff --git a/as/cmd/CPL/cpl2.casl b/as/cmd/CPL/cpl2.casl
deleted file mode 100644 (file)
index 1eb8126..0000000
--- a/as/cmd/CPL/cpl2.casl
+++ /dev/null
@@ -1,6 +0,0 @@
-MAIN    START
-BEGIN   LAD     GR0,#3000
-        CPL     GR0,A
-        RET
-A       DC      #A000
-        END

diff --git a/as/cmd/CPL/cpl2_s.casl b/as/cmd/CPL/cpl2_s.casl
new file mode 100644 (file)
index 0000000..e4ce432
--- /dev/null
+++ b/as/cmd/CPL/cpl2_s.casl
@@ -0,0 +1,9 @@
+;;; CPL r1,r2 SF:1
+MAIN    START   BEGIN
+BEGIN   LD      GR1,A
+        LD      GR2,B
+        CPL     GR1,GR2
+        RET
+A       DC      #5000
+B       DC      #7000
+        END

diff --git a/as/cmd/CPL/cpl3.casl b/as/cmd/CPL/cpl3.casl
deleted file mode 100644 (file)
index 2bd37e0..0000000
--- a/as/cmd/CPL/cpl3.casl
+++ /dev/null
@@ -1,7 +0,0 @@
-MAIN    START
-BEGIN   LAD     GR1,#5000
-        ADDL    GR1,=#FFFF
-        LAD     GR2,#F000
-        CPL     GR1,GR2
-        RET
-        END

diff --git a/as/cmd/DC/dc_c0.casl b/as/cmd/DC/dc_c0.casl
new file mode 100644 (file)
index 0000000..6d6287e
--- /dev/null
+++ b/as/cmd/DC/dc_c0.casl
@@ -0,0 +1,98 @@
+;; DC 文字定数
+MAIN    START
+        RET
+        DC      ' '
+        DC      '!'
+        DC      '"'
+        DC      '#'
+        DC      '$'
+        DC      '%'
+        DC      '&'
+        DC      ''''
+        DC      '('
+        DC      ')'
+        DC      '*'
+        DC      '+'
+        DC      ','
+        DC      '-'
+        DC      '.'
+        DC      '/'
+        DC      '0'
+        DC      '1'
+        DC      '2'
+        DC      '3'
+        DC      '4'
+        DC      '5'
+        DC      '6'
+        DC      '7'
+        DC      '8'
+        DC      '9'
+        DC      ':'
+        DC      ';'
+        DC      '<'
+        DC      '='
+        DC      '>'
+        DC      '?'
+        DC      '@'
+        DC      'A'
+        DC      'B'
+        DC      'C'
+        DC      'D'
+        DC      'E'
+        DC      'F'
+        DC      'G'
+        DC      'H'
+        DC      'I'
+        DC      'J'
+        DC      'K'
+        DC      'L'
+        DC      'M'
+        DC      'N'
+        DC      'O'
+        DC      'P'
+        DC      'Q'
+        DC      'R'
+        DC      'S'
+        DC      'T'
+        DC      'U'
+        DC      'V'
+        DC      'W'
+        DC      'X'
+        DC      'Y'
+        DC      'Z'
+        DC      '['
+        DC      '\'
+        DC      ']'
+        DC      '^'
+        DC      '_'
+        DC      'a'
+        DC      'b'
+        DC      'c'
+        DC      'd'
+        DC      'e'
+        DC      'f'
+        DC      'g'
+        DC      'h'
+        DC      'i'
+        DC      'j'
+        DC      'k'
+        DC      'l'
+        DC      'm'
+        DC      'n'
+        DC      'o'
+        DC      'p'
+        DC      'q'
+        DC      'r'
+        DC      's'
+        DC      't'
+        DC      'u'
+        DC      'v'
+        DC      'w'
+        DC      'x'
+        DC      'y'
+        DC      'z'
+        DC      '{'
+        DC      '|'
+        DC      '}'
+        DC      '~'
+    END

diff --git a/as/cmd/DC/dc_c1.casl b/as/cmd/DC/dc_c1.casl
new file mode 100644 (file)
index 0000000..7dae71c
--- /dev/null
+++ b/as/cmd/DC/dc_c1.casl
@@ -0,0 +1,7 @@
+;; DC 文字定数
+MAIN    START
+        RET
+        DC      ' !"#$%&''()*+,-./0123456789:;<=>?@ABCDEFG'
+        DC      'GHIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmno'
+        DC      'pqrstuvwxyz{|}~'
+        END

diff --git a/as/cmd/DC/dc_i0.casl b/as/cmd/DC/dc_i0.casl
new file mode 100644 (file)
index 0000000..3a949e7
--- /dev/null
+++ b/as/cmd/DC/dc_i0.casl
@@ -0,0 +1,27 @@
+;; DC命令で、-32768〜32768の範囲にない10進数値を指定
+MAIN    START
+        RET
+        DC      0
+        DC      1
+        DC      10
+        DC      32767
+        DC      32768
+        DC      65535
+        DC      65536
+        DC      65537
+        DC      -1
+        DC      -10
+        DC      -32767
+        DC      -32768
+        DC      -32769
+        DC      #0
+        DC      #1
+        DC      #01
+        DC      #001
+        DC      #0001
+        DC      #10
+        DC      #11
+        DC      #F
+        DC      #000F
+        DC      #FFFF
+        END

diff --git a/as/cmd/DC/dc_i1.casl b/as/cmd/DC/dc_i1.casl
new file mode 100644 (file)
index 0000000..ebe8569
--- /dev/null
+++ b/as/cmd/DC/dc_i1.casl
@@ -0,0 +1,5 @@
+;; DC命令で、-32768〜32768の範囲にない10進数値を指定
+MAIN    START
+        RET
+        DC      1, 10, 32767, 32768, 65535, 65536, 65537,-1, -10, -32767, -32768, -32769, #0, #1, #01, #001, #0001, #10, #11,#F, #000F, #FFFF
+        END

diff --git a/as/cmd/OUT/out1.casl b/as/cmd/OUT/out1.casl
index f69b72a..851ef6c 100644 (file)
--- a/as/cmd/OUT/out1.casl
+++ b/as/cmd/OUT/out1.casl
@@ -12,5 +12,5 @@ L2      DC      32
 BUF3    DC      '@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_'
 L3      DC      32
 BUF4    DC      '`abcdefghijklmnopqrstuvwxyz{|}~'
-L4      DC      32
+L4      DC      31
         END