From: j8takagi Date: Mon, 8 Feb 2010 23:58:47 +0000 (+0900) Subject: ADDA、ADDL、CPA、CPL、DCのテストコードを整理 X-Git-Tag: v0.1~47^2~10 X-Git-Url: https://j8takagi.net/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e697787da671114efe094c5dbbc95dadf0d0cad5;p=YACASL2.git 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 --- 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 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 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 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 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 --- 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 --- 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 --- 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 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 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 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 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 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 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 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 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 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 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 --- 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 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 --- 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 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 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 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 --- 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 --- 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 --- 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 --- 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 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 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 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 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 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 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 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 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 --- 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 --- 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 --- 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 --- 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 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 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 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 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 --- 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 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 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 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 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 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 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 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 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 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 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 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 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 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 --- 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