X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Ffe_tests%2F2009_10%2FQ12%2Foutb.casl;fp=as%2Ffe_tests%2F2009_10%2FQ12%2Foutb.casl;h=32fd6cbd6a616cbb764d2408738d3d008c7c7625;hb=424f582a6be629ccdbf605a53ae22f5ce60a41f7;hp=9e1d70a54bd1d9bce3e8bf43b4f67a1d228d147d;hpb=d1f82970bf7d41db2fea11b08cd8e308f6cb8138;p=YACASL2.git

diff --git a/as/fe_tests/2009_10/Q12/outb.casl b/as/fe_tests/2009_10/Q12/outb.casl
index 9e1d70a..32fd6cb 100644
--- a/as/fe_tests/2009_10/Q12/outb.casl
+++ b/as/fe_tests/2009_10/Q12/outb.casl
@@ -22,6 +22,7 @@ EMB     LD      GR1,NCHAR       ; GR0 <- '0'
 EMLOOP  LD      GR2,LEN         ; GR2 <- LEN
         CPA     GR2,DIG         ; ループ先頭。(GR2 = DIG)の場合は、ループ脱出
         JZE     PRT             ; ↓
+        
         CALL    STSTR           ; GR1をSTR領域に格納
         JUMP    EMLOOP          ; ループ終端
 PRT     LD      GR2,LEN         ; GR2にLENの値を格納
@@ -33,11 +34,10 @@ PRT     LD      GR2,LEN         ; GR2にLENの値を格納
 STR     DS      17
 LEN     DS      1
 NCHAR   DC      '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-DIG     DC      16        
+DIG     DC      16
         END
 ;; GR1をSTR領域に格納し、LENをインクリメント
-STSTR   START
-        PUSH    0,GR1
+STSTR   PUSH    0,GR1
         PUSH    0,GR2
         LD      GR2,LEN         ; GR2にLENの値をロード
         ST      GR1,STR,GR2     ; STR+GR2 <- GR1
@@ -79,7 +79,7 @@ ODFIN   POP     GR3
         POP     GR2
         RET
 ODY     DS      1
-ODMB    DC      #8000        
+ODMB    DC      #8000
         END
 ;; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
 ;; 例: 12345 -> 54321、54321- -> -12345