CASLファイルのフォルダを変更

[YACASL2.git] / as / FUNC / hanoi.casl

diff --git a/as/FUNC/hanoi.casl b/as/FUNC/hanoi.casl
deleted file mode 100644 (file)
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