.extern .decrypt

	.csect	code[PR]

	.globl	start
start:
	# load r13 with origin of data segment
	mflr	14
	bl	.L1
.L1:	mflr	13
	cal	13,0(13)		# patched by encrypt
	bl	.decrypt
	cror	15,15,15
	mtlr	14
	br

	.globl	.read
.read:	mflr	13
	st	2,20(1)
	stu	1,-96(1)
	st	4,56(1)
	st	5,60(1)
	cal	4,56(1)
	lil	5,1
	lil	6,0	
	lil	2,93
	stm	13,-76(1)
	svcl	0,0,0
	mtlr	13
	cal	1,96(1)
	l	2,20(1)
	br

	.csect	data[RW]

	.globl	read
read:	.long	.read,0,0