vms.mar

	addl2	r3,r3
	bicl2	#0,r3
	addl2	r3,r8
	bicl2	#0,r8
	cmpl	r8,r3
	bgequ	noname.570
	incl	r2
	bicl3	#0,r2,r0
	bneq	noname.570
	incl	r9
noname.570:
	addl2	r2,r10
	bicl2	#0,r10
	cmpl	r10,r2
	bgequ	noname.571
	incl	r9
noname.571:

	movl	4(ap),r0
	movl	r8,4(r0)

	clrl	r8

	movl	8(ap),r4
	movl	4(r4),r3
	bicl3	#-65536,r3,r5
	extzv	#16,#16,r3,r0
	bicl3	#-65536,r0,r3
	mull3	r5,r3,r1
	mull2	r5,r5
	mull2	r3,r3
	bicl3	#32767,r1,r0
	extzv	#15,#17,r0,r0
	addl2	r0,r3
	bicl2	#-65536,r1
	ashl	#17,r1,r1
	addl2	r1,r5
	bicl2	#0,r5
	cmpl	r5,r1
	bgequ	noname.572
	incl	r3
noname.572:
	movl	r5,r1
	movl	r3,r2
	addl2	r1,r10
	bicl2	#0,r10
	cmpl	r10,r1
	bgequ	noname.573
	incl	r2
noname.573:
	addl2	r2,r9
	bicl2	#0,r9
	cmpl	r9,r2
	bgequ	noname.574
	incl	r8
noname.574:

	bicl3	#-65536,8(r4),r3
	movzwl	10(r4),r1
	bicl2	#-65536,r1
	bicl3	#-65536,(r4),r2
	movzwl	2(r4),r0
	bicl2	#-65536,r0
	movl	r3,r6
	movl	r1,r5
	mull3	r0,r6,r7
	mull2	r2,r6
	mull2	r5,r2
	mull2	r0,r5
	addl2	r2,r7
	bicl2	#0,r7
	cmpl	r7,r2
	bgequ	noname.575
	addl2	#65536,r5
noname.575:
	extzv	#16,#16,r7,r0
	bicl2	#-65536,r0
	addl2	r0,r5
	bicl3	#-65536,r7,r0
	ashl	#16,r0,r1
	addl2	r1,r6
	bicl2	#0,r6
	cmpl	r6,r1
	bgequ	noname.576
	incl	r5
noname.576:
	movl	r6,r3
	movl	r5,r2
	bbc	#31,r2,noname.577
	incl	r8
noname.577:
	addl2	r2,r2
	bicl2	#0,r2
	bbc	#31,r3,noname.578
	incl	r2
noname.578:
	addl2	r3,r3
	bicl2	#0,r3
	addl2	r3,r10
	bicl2	#0,r10
	cmpl	r10,r3
	bgequ	noname.579
	incl	r2
	bicl3	#0,r2,r0
	bneq	noname.579
	incl	r8
noname.579:
	addl2	r2,r9
	bicl2	#0,r9
	cmpl	r9,r2
	bgequ	noname.580
	incl	r8
noname.580:

	movl	4(ap),r0
	movl	r10,8(r0)

	clrl	r10

	movl	8(ap),r0
	bicl3	#-65536,12(r0),r3
	movzwl	14(r0),r1
	bicl2	#-65536,r1
	bicl3	#-65536,(r0),r2
	movzwl	2(r0),r0
	bicl2	#-65536,r0
	movl	r3,r5
	movl	r1,r4
	mull3	r0,r5,r6
	mull2	r2,r5
	mull3	r2,r4,-12(fp)
	mull2	r0,r4
	addl2	-12(fp),r6
	bicl2	#0,r6
	cmpl	r6,-12(fp)
	bgequ	noname.581
	addl2	#65536,r4
noname.581:
	extzv	#16,#16,r6,r0
	bicl2	#-65536,r0
	addl2	r0,r4
	bicl3	#-65536,r6,r0
	ashl	#16,r0,-12(fp)
	addl2	-12(fp),r5
	bicl2	#0,r5
	cmpl	r5,-12(fp)
	bgequ	noname.582
	incl	r4
noname.582:
	movl	r5,r3
	movl	r4,r2
	bbc	#31,r2,noname.583
	incl	r10
noname.583:
	addl2	r2,r2
	bicl2	#0,r2
	bbc	#31,r3,noname.584
	incl	r2
noname.584:
	addl2	r3,r3
	bicl2	#0,r3
	addl2	r3,r9
	bicl2	#0,r9
	cmpl	r9,r3
	bgequ	noname.585
	incl	r2
	bicl3	#0,r2,r0
	bneq	noname.585
	incl	r10
noname.585:
	addl2	r2,r8
	bicl2	#0,r8
	cmpl	r8,r2
	bgequ	noname.586
	incl	r10
noname.586:

	movl	8(ap),r0
	bicl3	#-65536,8(r0),r3
	movzwl	10(r0),r1
	bicl2	#-65536,r1
	bicl3	#-65536,4(r0),r2
	movzwl	6(r0),r0
	bicl2	#-65536,r0
	movl	r3,r5
	movl	r1,r4
	mull3	r0,r5,-16(fp)
	mull2	r2,r5
	mull3	r2,r4,-20(fp)
	mull2	r0,r4
	addl3	-16(fp),-20(fp),r0
	bicl3	#0,r0,-16(fp)
	cmpl	-16(fp),-20(fp)
	bgequ	noname.587
	addl2	#65536,r4
noname.587:
	movzwl	-14(fp),r0
	bicl2	#-65536,r0
	addl2	r0,r4
	bicl3	#-65536,-16(fp),r0
	ashl	#16,r0,-20(fp)
	addl2	-20(fp),r5
	bicl2	#0,r5
	cmpl	r5,-20(fp)
	bgequ	noname.588
	incl	r4
noname.588:
	movl	r5,r3
	movl	r4,r2
	bbc	#31,r2,noname.589
	incl	r10
noname.589:
	addl2	r2,r2
	bicl2	#0,r2
	bbc	#31,r3,noname.590
	incl	r2
noname.590:
	addl2	r3,r3
	bicl2	#0,r3
	addl2	r3,r9
	bicl2	#0,r9
	cmpl	r9,r3
	bgequ	noname.591
	incl	r2
	bicl3	#0,r2,r0
	bneq	noname.591
	incl	r10
noname.591:
	addl2	r2,r8
	bicl2	#0,r8
	cmpl	r8,r2
	bgequ	noname.592
	incl	r10
noname.592:
	movl	4(ap),r0
	movl	r9,12(r0)

	clrl	r9

	movl	8(ap),r3
	movl	8(r3),r4
	bicl3	#-65536,r4,r5
	extzv	#16,#16,r4,r0
	bicl3	#-65536,r0,r4
	mull3	r5,r4,-24(fp)
	mull2	r5,r5
	mull2	r4,r4
	bicl3	#32767,-24(fp),r0
	extzv	#15,#17,r0,r0
	addl2	r0,r4
	bicl3	#-65536,-24(fp),r0
	ashl	#17,r0,-24(fp)
	addl2	-24(fp),r5
	bicl2	#0,r5
	cmpl	r5,-24(fp)
	bgequ	noname.593
	incl	r4
noname.593:
	movl	r5,r1
	movl	r4,r2
	addl2	r1,r8
	bicl2	#0,r8
	cmpl	r8,r1
	bgequ	noname.594
	incl	r2
noname.594:
	addl2	r2,r10
	bicl2	#0,r10
	cmpl	r10,r2
	bgequ	noname.595
	incl	r9
noname.595:

	bicl3	#-65536,12(r3),r4
	movzwl	14(r3),r1
	bicl2	#-65536,r1
	bicl3	#-65536,4(r3),r2
	movzwl	6(r3),r0
	bicl2	#-65536,r0
	movl	r4,r6
	movl	r1,r5
	mull3	r0,r6,-28(fp)
	mull2	r2,r6
	mull3	r2,r5,-32(fp)
	mull2	r0,r5
	addl3	-28(fp),-32(fp),r0
	bicl3	#0,r0,-28(fp)
	cmpl	-28(fp),-32(fp)
	bgequ	noname.596
	addl2	#65536,r5
noname.596:
	movzwl	-26(fp),r0
	bicl2	#-65536,r0
	addl2	r0,r5
	bicl3	#-65536,-28(fp),r0
	ashl	#16,r0,-32(fp)
	addl2	-32(fp),r6
	bicl2	#0,r6
	cmpl	r6,-32(fp)
	bgequ	noname.597
	incl	r5
noname.597:
	movl	r6,r3
	movl	r5,r2
	bbc	#31,r2,noname.598
	incl	r9
noname.598:
	addl2	r2,r2
	bicl2	#0,r2
	bbc	#31,r3,noname.599
	incl	r2
noname.599:
	addl2	r3,r3
	bicl2	#0,r3
	addl2	r3,r8
	bicl2	#0,r8
	cmpl	r8,r3
	bgequ	noname.600
	incl	r2
	bicl3	#0,r2,r0
	bneq	noname.600
	incl	r9
noname.600:
	addl2	r2,r10
	bicl2	#0,r10
	cmpl	r10,r2
	bgequ	noname.601
	incl	r9
noname.601:

	movl	4(ap),r0
	movl	r8,16(r0)

	clrl	r8

	movl	8(ap),r0
	bicl3	#-65536,12(r0),r3
	movzwl	14(r0),r1
	bicl2	#-65536,r1
	bicl3	#-65536,8(r0),r2
	movzwl	10(r0),r0
	bicl2	#-65536,r0
	movl	r3,r5
	movl	r1,r4
	mull3	r0,r5,-36(fp)
	mull2	r2,r5
	mull3	r2,r4,-40(fp)
	mull2	r0,r4
	addl3	-36(fp),-40(fp),r0
	bicl3	#0,r0,-36(fp)
	cmpl	-36(fp),-40(fp)
	bgequ	noname.602
	addl2	#65536,r4
noname.602:
	movzwl	-34(fp),r0
	bicl2	#-65536,r0
	addl2	r0,r4
	bicl3	#-65536,-36(fp),r0
	ashl	#16,r0,-40(fp)
	addl2	-40(fp),r5
	bicl2	#0,r5
	cmpl	r5,-40(fp)
	bgequ	noname.603
	incl	r4
noname.603:
	movl	r5,r3
	movl	r4,r2
	bbc	#31,r2,noname.604
	incl	r8
noname.604:
	addl2	r2,r2
	bicl2	#0,r2
	bbc	#31,r3,noname.605
	incl	r2
noname.605:
	addl2	r3,r3
	bicl2	#0,r3
	addl2	r3,r10
	bicl2	#0,r10
	cmpl	r10,r3
	bgequ	noname.606
	incl	r2
	bicl3	#0,r2,r0
	bneq	noname.606
	incl	r8
noname.606:
	addl2	r2,r9
	bicl2	#0,r9
	cmpl	r9,r2
	bgequ	noname.607
	incl	r8
noname.607:

	movl	4(ap),r4
	movl	r10,20(r4)

	clrl	r10

	movl	8(ap),r0
	movl	12(r0),r3
	bicl3	#-65536,r3,r5
	extzv	#16,#16,r3,r0
	bicl3	#-65536,r0,r3
	mull3	r5,r3,-44(fp)
	mull2	r5,r5
	mull2	r3,r3
	bicl3	#32767,-44(fp),r0
	extzv	#15,#17,r0,r0
	addl2	r0,r3
	bicl3	#-65536,-44(fp),r0
	ashl	#17,r0,-44(fp)
	addl2	-44(fp),r5
	bicl2	#0,r5
	cmpl	r5,-44(fp)
	bgequ	noname.608
	incl	r3
noname.608:
	movl	r5,r1
	movl	r3,r2
	addl2	r1,r9
	bicl2	#0,r9
	cmpl	r9,r1
	bgequ	noname.609
	incl	r2
noname.609:
	addl2	r2,r8
	bicl2	#0,r8
	cmpl	r8,r2
	bgequ	noname.610
	incl	r10
noname.610:

	movl	r9,24(r4)

	movl	r8,28(r4)

	ret	

; For now, the code below doesn't work, so I end this prematurely.
.end