ソースコードで、モードを表す構造体メンバーの名前とコメントを修正
[YACASL2.git] / as / FUNC / hanoi.casl
1 ; ハノイの塔を解くプログラム
2 MAIN    START
3         LD      GR0,N
4         LD      GR1,A
5         LD      GR2,B
6         LD      GR3,C
7         CALL    HANOI
8         RET
9 HANOI   CPA     GR0,=1
10         JZE     DISP
11         SUBA    GR0,=1
12         PUSH    0,GR2
13         PUSH    0,GR3
14         POP     GR2
15         POP     GR3
16         CALL    HANOI
17         PUSH    0,GR2
18         PUSH    0,GR3
19         POP     GR2
20         POP     GR3
21         CALL    DISP
22         PUSH    0,GR1
23         PUSH    0,GR2
24         POP     GR1
25         POP     GR2
26         CALL    HANOI
27         PUSH    0,GR1
28         PUSH    0,GR2
29         POP     GR1
30         POP     GR2
31         ADDA    GR0,=1
32         RET
33 DISP    ST      GR1,MSG1
34         ST      GR3,MSG2
35         OUT     MSG,LNG
36         RET
37 N       DC      3               ; 輪の総数
38 LNG     DC      11              ; メッセージの長さ
39 A       DC      'A'
40 B       DC      'B'
41 C       DC      'C'
42 MSG     DC      'from '
43 MSG1    DS      1
44         DC      ' to '
45 MSG2    DS      1
46         END