.TITLE	IPACK
;+
;	SUB TO PACK IN RAD50 FORMAT
;	ADDED BY F.BORGER MICHAEL REESE
;	CAUSE RAD50 CALCS IN FORTRAN CAN RESULT IN
;	OVERFLOW
;
;	CALLING METHOD (THIS IS A FUNCTION)
;
;	IXXX=IPACK(IXXX,ICHR)
;
;
;	THREE SUCCESSIVE CALLS WITH SUCCESSIVE CHARACTERS IN ICHR
;	WILL RESULT IN 3 PACKED RAD-50 CHARACTERS
;
IPACK::	MOV	R2,-(SP)
	MOV	R3,-(SP)
	MOV	@2(R5),R2	;PREVIOUS VALUE IN R2
	MUL	#50,R2		;MUL BY RADIX LOW ORDER ANSWER IN R3
	MOVB	@4(R5),R2	;GET NEW CHARACTER BYTE MODE
	BIC	#177400,R2	;JUST TO BE SURE
	ADD	R2,R3		;AND ADD TO PREV VALUE
	MOV	R3,R0
	CLC			;CLEAR POSSIBLE CARRY BIT
	MOV	(SP)+,R3
	MOV	(SP)+,R2
	RTS	PC
	.END