.TITLE	ASCR50
	.IDENT	/29.0M7/
	.ASECT
	.PSECT	
	.GLOBL	..SGR5
	.GLOBL	..SCR5
	.PSECT	
..SGR5:	MOV	R0,-(SP)
	MOV	R1,-(SP)
	MOV	PC,-(SP)
	ADD	#24,(SP)
C00012:	MOVB	(R2)+,R5
	CALL	@(SP)+
	BCS	C00024
	SOB	R3,C00012
	TST	(SP)+
C00024:	MOV	(SP)+,R1
	MOV	(SP)+,R0
	RETURN
..SCR5:	CALL	C00120
	BCS	C00106
	CALL	C00110
	CALL	C00110
	MOV	R5,(R4)
	CALL	@(SP)+
	CALL	C00120
	BCS	C00106
	CALL	C00110
	ADD	R5,(R4)
	CALL	@(SP)+
	CALL	C00120
	BCS	C00106
	ADD	R5,(R4)+
	CALL	@(SP)+
	BR	..SCR5
C00106:	RETURN
C00110:	MUL	#50,R5
	CLC
	RETURN
C00120:	CMP	R5,#44
	BNE	C00134
	MOV	#33,R5
	BR	C00210
C00134:	CMP	R5,#56
	BNE	C00150
	MOV	#34,R5
	BR	C00210
C00150:	CMP	R5,#132
	BHI	C00214
	CMP	R5,#101
	BCC	C00204
	CMP	R5,#71
	BHI	C00214
	CMP	R5,#60
	BCS	C00214
	SUB	#-56,R5
C00204:	SUB	#100,R5
C00210:	CLC
	RETURN
C00214:	SEC
	RETURN
	.END