CASLファイルの整理

[YACASL2.git] / as / fe_tests / 2009_10 / Q12 / replace.casl

diff --git a/as/fe_tests/2009_10/Q12/replace.casl b/as/fe_tests/2009_10/Q12/replace.casl
index 6416213..0086976 100644 (file)
--- a/as/fe_tests/2009_10/Q12/replace.casl
+++ b/as/fe_tests/2009_10/Q12/replace.casl
@@ -1,11 +1,11 @@
-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 
+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
@@ -16,15 +16,15 @@ REPLACE START
         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にする。
+        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 
+        RET
+        END