From 009c6ac7ce3a9eae222d48ae591790be1e70c908 Mon Sep 17 00:00:00 2001 From: j8takagi Date: Tue, 2 Mar 2010 19:59:18 +0900 Subject: [PATCH] =?utf8?q?=E5=85=AC=E9=96=8B=E3=81=AB=E3=81=82=E3=81=9F?= =?utf8?q?=E3=82=8A=E3=80=81=E6=9B=B8=E7=B1=8D=E3=81=AE=E5=88=86=E3=82=92?= =?utf8?q?=E5=89=8A=E9=99=A4?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- as/yakuwa/README.txt | 4 -- as/yakuwa/binout.casl | 41 ------------------ as/yakuwa/floatedit.casl | 64 ---------------------------- as/yakuwa/testbinout/0.txt | 5 --- as/yakuwa/testbinout/Makefile | 5 --- as/yakuwa/testbinout/testbinout.casl | 13 ------ as/yakuwa/testfloatedit/0.txt | 9 ---- as/yakuwa/testfloatedit/Makefile | 6 --- as/yakuwa/testfloatedit/teststr.txt | 8 ---- 9 files changed, 155 deletions(-) delete mode 100644 as/yakuwa/README.txt delete mode 100644 as/yakuwa/binout.casl delete mode 100644 as/yakuwa/floatedit.casl delete mode 100644 as/yakuwa/testbinout/0.txt delete mode 100644 as/yakuwa/testbinout/Makefile delete mode 100644 as/yakuwa/testbinout/testbinout.casl delete mode 100644 as/yakuwa/testfloatedit/0.txt delete mode 100644 as/yakuwa/testfloatedit/Makefile delete mode 100644 as/yakuwa/testfloatedit/teststr.txt diff --git a/as/yakuwa/README.txt b/as/yakuwa/README.txt deleted file mode 100644 index aa9ebc7..0000000 --- a/as/yakuwa/README.txt +++ /dev/null @@ -1,4 +0,0 @@ -『らくらく突破 CASL2―基本情報技術者試験 (情報処理技術者試験) 』 -(技術評論社)掲載のプログラム - -http://www.amazon.co.jp/dp/4774116068/ diff --git a/as/yakuwa/binout.casl b/as/yakuwa/binout.casl deleted file mode 100644 index 2be0a45..0000000 --- a/as/yakuwa/binout.casl +++ /dev/null @@ -1,41 +0,0 @@ -;;; BINOUT: 主プログラムから渡された1語の内容を、 -;;; ゼロ抑制を行った2進表記で出力する -;;; 八鍬幸信『基本情報処理試験 らくらく突破 CASL II』172ページ -BINOUT START - PUSH 0,GR1 ; レジスタの退避 - PUSH 0,GR2 ; ↓ - PUSH 0,GR3 ; ↓ - PUSH 0,GR4 ; ↓ - LAD GR2,0 ; 出力ポインタの初期化 - LAD GR3,15 ; カウンタの初期化 - LD GR4,GR1 ; 全ビット = 0? - JZE OUT1 -LOOP1 JMI ONE ; 先行するビット処理 - LAD GR3,-1,GR3 ; ↓ - SLL GR1,1 ; ↓ - JUMP LOOP1 -LOOP2 JMI ONE ; 符号ビットの判定 -ZERO LAD GR0,48 ; '0'→GR0 - JUMP STORE -ONE LAD GR0,49 ; '1'→GR1 -STORE ST GR0,OBUF,GR2 - LAD GR2,1,GR2 - LAD GR3,-1,GR3 - CPA GR3,NZERO - JMI OUT2 ; 全ビット終了? - SLL GR1,1 - JUMP LOOP2 -OUT1 LAD GR0,48 - ST GR0,OBUF,GR2 - LAD GR2,1,GR2 -OUT2 ST GR2,OLNG - OUT OBUF,OLNG - POP GR4 ; レジスタの復元 - POP GR3 ; ↓ - POP GR2 ; ↓ - POP GR1 ; ↓ - RET -OBUF DS 16 -OLNG DS 1 -NZERO DC 0 - END diff --git a/as/yakuwa/floatedit.casl b/as/yakuwa/floatedit.casl deleted file mode 100644 index 7f11e9f..0000000 --- a/as/yakuwa/floatedit.casl +++ /dev/null @@ -1,64 +0,0 @@ -EDIT START -RETRY IN INAREA,INLENG - LAD GR1,0 - OR GR1,INLENG - JZE FINISH - CPA GR1,TEN - JZE BEGIN - OUT ERRMSG,MSGLNG - JUMP RETRY -BEGIN LAD GR0,1 - ST GR0,ZSFLAG - LAD GR1,0 - LAD GR2,-1 - LAD GR3,0 -LOOP LD GR0,MASK,GR3 - PUSH 1,GR3 - LD GR3,INAREA,GR1 - LAD GR1,1,GR1 - CPL GR0,DIGIT0 - JZE ENDSPR - CPL GR0,DIGIT9 - JNZ NONDGT - CPL GR3,DIGIT0 - JNZ ENDSPR - LAD GR0,0 - OR GR0,ZSFLAG - JNZ SUPPRS -ENDSPR LD GR0,OTAREA,GR2 - CPL GR0,SPACE - JNZ NOT1ST - LD GR0,MASK - ST GR0,OTAREA,GR2 - LAD GR0,0 - ST GR0,ZSFLAG -NOT1ST LAD GR0,0,GR3 - JUMP STORE -NONDGT LAD GR1,-1,GR1 - LAD GR3,0 - OR GR3,ZSFLAG - JZE STORE -SUPPRS LD GR0,SPACE -STORE LAD GR2,1,GR2 - ST GR0,OTAREA,GR2 - POP GR3 - CPA GR1,INLENG - JNZ LOOP - LAD GR2,1,GR2 - ST GR2,OTLENG - OUT OTAREA,OTLENG - JUMP RETRY -FINISH RET -MASK DC '\99,999,990.99' -SPACE DC ' ' -DIGIT0 DC '0' -DIGIT9 DC '9' -TEN DC 10 -ERRMSG DC 'input error!' -MSGLNG DC 12 -INAREA DS 80 -INLENG DS 1 -OTAREA DS 80 -OTLENG DS 1 -ZSFLAG DS 1 - END diff --git a/as/yakuwa/testbinout/0.txt b/as/yakuwa/testbinout/0.txt deleted file mode 100644 index e0f4146..0000000 --- a/as/yakuwa/testbinout/0.txt +++ /dev/null @@ -1,5 +0,0 @@ -../../../casl2 testbinout.casl ../binout.casl -0 -1 -100111001101 -1000000000000001 diff --git a/as/yakuwa/testbinout/Makefile b/as/yakuwa/testbinout/Makefile deleted file mode 100644 index f64ecef..0000000 --- a/as/yakuwa/testbinout/Makefile +++ /dev/null @@ -1,5 +0,0 @@ -YACASL2DIR= ../../.. -CASL2 = $(YACASL2DIR)/casl2 -ASFILE = testbinout.casl ../binout.casl -CMD = $(CASL2) $(ASFILE) -include $(YACASL2DIR)/test/TEST.mk diff --git a/as/yakuwa/testbinout/testbinout.casl b/as/yakuwa/testbinout/testbinout.casl deleted file mode 100644 index d753f77..0000000 --- a/as/yakuwa/testbinout/testbinout.casl +++ /dev/null @@ -1,13 +0,0 @@ -;;; BINOUTを呼び出す -MAIN START - LAD GR2,0 -MLOOP CPA GR2,MLEN - JZE MFIN - LD GR1,MWORD,GR2 - CALL BINOUT - LAD GR2,1,GR2 - JUMP MLOOP -MFIN RET -MWORD DC #0000,#0001,#09CD,#8001 -MLEN DC 4 - END diff --git a/as/yakuwa/testfloatedit/0.txt b/as/yakuwa/testfloatedit/0.txt deleted file mode 100644 index cd708ce..0000000 --- a/as/yakuwa/testfloatedit/0.txt +++ /dev/null @@ -1,9 +0,0 @@ -../../../casl2 ../floatedit.casl -input error! -input error! -input error! -\12,345,678.90 -\12,345,678.09 - \2,234,568.19 - \2,234,068.19 - \0.01 diff --git a/as/yakuwa/testfloatedit/Makefile b/as/yakuwa/testfloatedit/Makefile deleted file mode 100644 index adc067e..0000000 --- a/as/yakuwa/testfloatedit/Makefile +++ /dev/null @@ -1,6 +0,0 @@ -YACASL2DIR= ../../.. -CASL2 = $(YACASL2DIR)/casl2 -ASFILE = ../floatedit.casl -INFILE = teststr.txt -CMD = $(CASL2) $(ASFILE) <$(INFILE) -include $(YACASL2DIR)/test/TEST.mk diff --git a/as/yakuwa/testfloatedit/teststr.txt b/as/yakuwa/testfloatedit/teststr.txt deleted file mode 100644 index 3dceb16..0000000 --- a/as/yakuwa/testfloatedit/teststr.txt +++ /dev/null @@ -1,8 +0,0 @@ -01 -010 -11111111111 -1234567890 -1234567809 -0223456819 -0223406819 -0000000001 -- 2.18.0