root/as/cmd/RPOP/rpop.casl

   1 ;;; RPOP 値の復元
   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         RPOP
  19         RET
  20 A       DC      1,2,3,4,5,6,7
  21         END