.TITLE	PARSFN
	.IDENT	/29.0M1/
	.ASECT
	.GLOBL	..SGR5		;Global reference
	.GLOBL	$SAVAL		;Global reference
	.GLOBL	.VRCVT		;Global reference
	.GLOBL	.SAVR1		;Global reference
	.PSECT	
	.GLOBL	..PSFN
	.GLOBL	.PRSFN
	.PSECT	
.PRSFN:	JSR	R5,.SAVR1
	MOV	#1,52(R0)
..PSFN:	MOV	R3,-(SP)
	TST	R2
	BEQ	C00030
	MOV	12(R2),R3
	MOV	10(R2),R2
C00030:	MOV	R3,-(SP)
	MOV	R2,-(SP)
C00034:	BLE	C00156
C00036:	MOVB	(R3)+,R4
	CMP	#56,R4
	BEQ	C00160
	CMP	#73,R4
	BEQ	C00244
	SOB	R2,C00036
	INC	R3
	BIT	#140004,20(R1)
	BEQ	C00212
	BIT	#40000,20(R1)
	BEQ	C00272
C00100:	MOV	2(SP),R5
	MOV	R3,R4
	SUB	R5,R4
	DEC	R4
	CMPB	#52,(R5)
	BEQ	C00136
	MOV	R1,R3
	ADD	#16,R3
	CALL	.VRCVT
	BCS	C00144
	BR	C00374
C00136:	CMP	#1,R4
	BEQ	C00150
C00144:	JMP	C00506
C00150:	BIS	#10,20(R1)
C00156:	BR	C00374
C00160:	BIT	#40000,20(R1)
	BEQ	C00174
	INC	R3
	BR	C00100
C00174:	BIT	#100000,20(R1)
	BNE	C00506
	BIS	#100000,20(R1)
C00212:	MOV	R3,R4
	SUB	2(SP),R4
	DEC	R4
	BEQ	C00232
	BIS	#4,20(R1)
C00232:	MOV	#6,R4
	MOV	#11,R5
	BR	C00322
C00244:	BIT	#40000,20(R1)
	BNE	C00506
	BIS	#40001,20(R1)
	BIT	#100004,20(R1)
	BEQ	C00212
C00272:	MOV	R3,R4
	SUB	2(SP),R4
	DEC	R4
	BEQ	C00312
	BIS	#2,20(R1)
C00312:	MOV	#14,R4
	MOV	#3,R5
C00322:	MOV	2(SP),R2
	MOV	R3,2(SP)
	SUB	R2,R3
	SUB	R3,(SP)
	DEC	R3
	BEQ	C00362
	CALL	C00524
	CMP	R5,R3
	BLT	C00506
	ADD	R1,R4
	CALL	..SGR5
	BCS	C00506
C00362:	MOV	2(SP),R3
	MOV	(SP),R2
	JMP	C00034
C00374:	ADD	#4,SP
	MOV	20(R1),R3
	BIT	#100000,R3
	BEQ	C00420
	BIS	#2,20(R1)
C00420:	MOV	(SP)+,R2
	BEQ	C00504
	BIT	#4,R3
	BNE	C00454
	MOV	6(R2),6(R1)
	MOV	10(R2),10(R1)
	MOV	12(R2),12(R1)
C00454:	BIT	#100002,R3
	BNE	C00470
	MOV	14(R2),14(R1)
C00470:	BIT	#40001,R3
	BNE	C00504
	MOV	16(R2),16(R1)
C00504:	RETURN
C00506:	ADD	#6,SP
	MOVB	#-66,52(R0)
	SEC
	RETURN
C00524:	CALL	$SAVAL
	CLR	R0
C00532:	CMPB	#52,(R2)
	BNE	C00546
	MOVB	#44,(R2)
	BR	C00560
C00546:	CMPB	#45,(R2)
	BNE	C00570
	MOVB	#56,(R2)
C00560:	BIS	#4000,20(R1)
	INC	R0
C00570:	INC	R2
	SOB	R3,C00532
	TST	R0
	BEQ	C00626
	BIT	#2,20(R1)
	BNE	C00620
	BIS	#40,20(R1)
	BR	C00626
C00620:	BIS	#20,20(R1)
C00626:	RETURN
	.END