X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2FFUNC%2Fhanoi.casl;fp=as%2FFUNC%2Fhanoi.casl;h=0000000000000000000000000000000000000000;hp=da6b56f5629ef4ce45fbe15583aef21c964ceaf8;hb=58ee37be62a5e359d0f6eb603cc86b5692f74b90;hpb=85744703060a90c21ee325d3a692f80233bc281f

diff --git a/as/FUNC/hanoi.casl b/as/FUNC/hanoi.casl
deleted file mode 100644
index da6b56f..0000000
--- a/as/FUNC/hanoi.casl
+++ /dev/null
@@ -1,46 +0,0 @@
-; ハノイの塔を解くプログラム
-MAIN    START
-        LD      GR0,N
-        LD      GR1,A
-        LD      GR2,B
-        LD      GR3,C
-        CALL    HANOI
-        RET
-HANOI   CPA     GR0,=1
-        JZE     DISP
-        SUBA    GR0,=1
-        PUSH    0,GR2
-        PUSH    0,GR3
-        POP     GR2
-        POP     GR3
-        CALL    HANOI
-        PUSH    0,GR2
-        PUSH    0,GR3
-        POP     GR2
-        POP     GR3
-        CALL    DISP
-        PUSH    0,GR1
-        PUSH    0,GR2
-        POP     GR1
-        POP     GR2
-        CALL    HANOI
-        PUSH    0,GR1
-        PUSH    0,GR2
-        POP     GR1
-        POP     GR2
-        ADDA    GR0,=1
-        RET
-DISP    ST      GR1,MSG1
-        ST      GR3,MSG2
-        OUT     MSG,LNG
-        RET
-N       DC      3               ; 輪の総数
-LNG     DC      11              ; メッセージの長さ
-A       DC      'A'
-B       DC      'B'
-C       DC      'C'
-MSG     DC      'from '
-MSG1    DS      1
-        DC      ' to '
-MSG2    DS      1
-        END