--- /dev/null
+;;; RPOP 値の復元
+MAIN START
+ LD GR1,A
+ LD GR1,0,GR7
+ LD GR2,1,GR7
+ LD GR3,2,GR7
+ LD GR4,3,GR7
+ LD GR5,4,GR7
+ LD GR6,5,GR7
+ LD GR7,6,GR7
+ PUSH 0,GR1
+ PUSH 0,GR2
+ PUSH 0,GR3
+ PUSH 0,GR4
+ PUSH 0,GR5
+ PUSH 0,GR6
+ PUSH 0,GR7
+ RPOP
+ RET
+A DC 1,2,3,4,5,6,7
+ END