	sys	open; savesub; 0
	mov	r0,ri
	sys	creat; xjunk; 17
	mov	r0,wi
	mov	ri,r0
	sys	seek; 20; 0
	sys	read; buffer; 1100.
	mov	wi,r0
	sys	write; buffer; 1100.
	sys	exit
ri:
	.=.+2
wi:
	.=.+2
buffer:
	.=.+1100.
savesub:
	<savesub\0>
xjunk:
	<xjunk\0>
