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 ad85f713c621f4a34758299386658dcf5026c48e..f3144f5e12008aed0ae209122d40d3bfaa003e61 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 b4d33f9f38d2fee8ed3f9040b69c0aa9f6dcf1ac..36d9bb1ccab6eda6ab5a5d43dd11914236d7dae4 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 bef7e13454f245d1b6f66d31546baaa4a8acc7c0..52003a37a19e4a48ff40ac9844faa4e3521cdc20 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 cee1302af53d1cdb7d5e82a3cbf40d3faa5dcf18..4397331a8988d256fd94b9a5e72266d3950c2399 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 2128758d042ce5c4c8e2ac930f0f28f047375c14..f295896b82e8d097a795e3972f21844ac5ebeee6 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 e8d10a0f0dbaf56fde18ff32ba3d8fc4b149563d..aeff1ed12ba44f638f469f4b4c13718bbf3b299c 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 85b25ce95310897e8fe133f9c7bd569f9f429296..ccf19327e878a05bd271b524bedf7ec9a4066340 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 59c29f5180cbee0c1b8b78b0e124185a2f7177f9..0bc77d4e5cd00bdc531059bdf4e20def3b139a73 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 d0822593e2c90cfefbea764a67d0df884ec3b54a..429b776880621bb87f85f7d9d0bcba5b42eb26ed 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 aff696bfece0b10fe134cb4d2a29331b3921293a..4ffc8e786f361ad7f84431753acd9eb537b14ef5 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 ef5ec06f2d1eedc9c9f26d524e12ccac8e7e0b21..c3d0a00416708faa4e787ea5a2d066b9cabaf990 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 1c24511fb4ec0b10ccfd0f57e42d050f6aa7bc5d..d75db3a9104f9665d743cab595b0350a8c90400c 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 9ce1eb9358f2490b6155adcde0ae576bb1d1cfe0..8464ff0c927df5dd86703ea82db08ca64d1e8017 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 adca4a515bfb89eb2ee8829b6c0f2b053257f832..020e207b6bd3a6f2149c833efc3d1c06343eb5b9 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 99af9748eaedd40e30abb0d25bf0ef0dd398b33e..e19efb6fffc9370ad958a87584fe99b4189e0ca6 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 f69b72adad6bd2a84e1044fb26e9ee7a94993cd4..851ef6cf102c41064ad37b1a31d7c75de64cf7bd 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