root/as/cmd/RPUSH/rpush.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         RPUSH
  12         POP     GR7
  13         POP     GR6
  14         POP     GR5
  15         POP     GR4
  16         POP     GR3
  17         POP     GR2
  18         POP     GR1
  19         RET
  20 A       DC      1,2,3,4,5,6,7
  21         END