as/cmd/POP/push_pop_0.casl

   1 ;;; PUSH / POP 値の復元
   2 MAIN    START
   3         LD      GR1,A
   4         LD      GR1,0,GR7
   5         LD      GR2,1,GR7
   6         LD      GR3,2,GR7
   7         LD      GR4,3,GR7
   8         LD      GR5,4,GR7
   9         LD      GR6,5,GR7
  10         LD      GR7,6,GR7
  11         PUSH    0,GR1
  12         PUSH    0,GR2
  13         PUSH    0,GR3
  14         PUSH    0,GR4
  15         PUSH    0,GR5
  16         PUSH    0,GR6
  17         PUSH    0,GR7
  18         POP     GR7
  19         POP     GR6
  20         POP     GR5
  21         POP     GR4
  22         POP     GR3
  23         POP     GR2
  24         POP     GR1
  25         RET
  26 A       DC      1,2,3,4,5,6,7
  27         END