	.TITLE	SAV
	.DSABL	GBL

R.ADDR	=	177010
R.P12	=	177014

SAV:	MOV	#34526,R1
	MOV	#53433,R2
	MOV	#0,R4		; BXOR/2
	MOV	#0,R5		; EXOR/2
	MOV	R5,R0
	SUB	R4,R0
1$:	MOV	R4,@#R.ADDR
	XOR	R1,@#R.P12
	INC	R4
	DEC	R5
	MOV	R5,@#R.ADDR
	XOR	R2,@#R.P12
	ADD	#127654,R1
	ADD	#121432,R2
	SOB	R0,1$

	MOV	#0,@#R.ADDR	; .HR/2
	MOV	#40,R0
	MOV	#136574,R1
2$:	INC	@#R.ADDR
	XOR	R1,@#R.P12
	SOB	R0,2$

	SUB	#40,@#R.ADDR
	MOV	#4737,@#R.P12

	MOV	PC,R1
	ADD	#SAV-.,R1
	MOV	#<ENDSAV-SAV>/2,R0

ENDSAV:
1$:	CLR	(R1)+
	SOB	R0,1$
	RETURN

	.END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                               