アセンブラファイルとテストの整理

[YACASL2.git] / as / itoa2.casl

diff --git a/as/itoa2.casl b/as/itoa2.casl
deleted file mode 100644 (file)
index 73f6977..0000000
--- a/as/itoa2.casl
+++ /dev/null
@@ -1,66 +0,0 @@
-MAIN   START
-       LD      GR1,I
-       LAD     GR2,10
-    LAD        GR5,0
-LOOP   CPA     GR1,GR2
-       JMI     NEXT
-       CALL    DIV
-    ADDA       GR4,Z
-    ST GR4,STR,GR5
-    LAD        GR5,1,GR5
-    LD GR1,GR3
-    JUMP       LOOP
-NEXT   ADDA    GR1,Z
-       ST      GR1,STR,GR5
-       LAD     GR5,1,GR5
-       ST      GR5,LEN
-    OUT        STR,LEN
-    LAD        GR1,STR
-    LD GR2,LEN
-    CALL       REV
-PRT OUT        STR,LEN
-       RET
-I      DC      15342
-Z      DC      '0'
-STR    DS      5
-LEN    DS      1
-    END
-;GR1をGR2で割ったときの商をGR3、剰余をGR4に格納
-DIV    LD      GR4,GR1
-       LAD     GR3,0
-DLOOP  CPA     GR4,GR2
-       JMI     DFIN
-    SUBL GR4,GR2
-    LAD        GR3,1,GR3
-    JUMP       DLOOP
-DFIN RET
-       END
-;アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
-;例: 12345 -> 54321
-REV    START
-       PUSH    0,GR3
-    PUSH       0,GR4
-    PUSH       0,GR5
-       LAD     GR3,1
-RPU    CPA     GR2,GR3
-       JMI     RNEXT
-    LD GR4,GR1
-    ADDA       GR4,GR3
-    LD GR4,-1,GR4
-       PUSH 0,GR4
-    LAD        GR3,1,GR3
-    JUMP       RPU
-RNEXT    LAD   GR3,1
-RPO    CPA     GR2,GR3
-       JMI     PFIN
-    POP        GR4
-    LD GR5,GR1
-    ADDA       GR5,GR3
-    ST GR4,-1,GR5
-    LAD        GR3,1,GR3
-    JUMP       RPO
-PFIN   POP     GR5
-       POP     GR4
-    POP        GR3
-       RET
-       END