X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFE_TESTS%2F2009_10%2FQ12%2Freplace.casl;fp=as%2FFE_TESTS%2F2009_10%2FQ12%2Freplace.casl;h=6416213f9119f7677e3f411d700da8ac439b3af1;hb=fb54b1c9d2fbc3d4a62c6b4d38ff68e9d3b25c26;hp=0000000000000000000000000000000000000000;hpb=b4e48008c95b35c692827326191698c22b06124f;p=YACASL2.git

diff --git a/as/FE_TESTS/2009_10/Q12/replace.casl b/as/FE_TESTS/2009_10/Q12/replace.casl
new file mode 100644
index 0000000..6416213
--- /dev/null
+++ b/as/FE_TESTS/2009_10/Q12/replace.casl
@@ -0,0 +1,30 @@
+REPLACE START 
+        RPUSH 
+        LD      GR4,GR2    ; GR4 ← p
+        SRL     GR4,4      ; GR4 ← p/16 
+        ADDA    GR1,GR4    ; GR1 を置換え対象語（第i語）に位置付ける。
+        AND     GR2,=#000F 
+        LD      GR4,=16 
+        SUBA    GR4,GR2 
+        LD      GR5,GR0
+        LD      GR6,=#8000
+        SUBA    GR3,=1
+        SRA     GR6,0,GR3
+        LD      GR7,GR6
+        SRL     GR0,0,GR2
+        SRL     GR6,0,GR2
+        SLL     GR5,0,GR4
+        SLL     GR7,0,GR4
+        LD      GR2,0,GR1
+        XOR     GR6,GR2    ; 第i語のうち
+        AND     GR2,GR6    ; ビット列Bを入れる部分を0にする。
+        OR      GR2,GR0 
+        ST      GR2,0,GR1 
+        LD      GR2,1,GR1 
+        XOR     GR7,GR2    ; 第(i+1)語のうち
+        AND     GR2,GR7    ; ビット列Bを入れる部分を0にする。
+        OR      GR2,GR5
+        ST      GR2,1,GR1
+        RPOP
+        RET 
+        END