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