/FUNCTION SUBROUTINE CONVT(A)
/CONVERT FROM 27 BIT TO 23 BIT F. P. FORMAT

ENTRY	CONVT

ABSYM	SHL	7413
ABSYM	MQL	7421
ABSYM	MQA	7501


CON1,	CLA CMA
	DCA	SWITC		/SET SWITCH
	DCA	ACH		/CLEAR FAC
	DCA	ACM
	DCA	ACL
	CALL 1,	IFAD		/LOAD FAC
CONVT,	ARG	0	/ALSO ENTRY POINT
	ISZ	SWITC		/IS SWITCH SET?
	JMP	CON1		/NO
	INC	CONVT#
	INC	CONVT#
	TAD	ACM
	MQL
	TAD	ACH		/LOAD UP REGISTERS
	SNA			/IS IT ZERO?
	JMP	CZRO		/YES
	AND	(7
	SHL
	  7			/SHIFT LEFT
	DCA	AC1
	MQA
	DCA	AC2
	TAD	ACL
	MQL
	SHL
	  7			/SHIFT REST LEFT
	TAD	AC2
	DCA	AC2
	TAD	ACH		/GET EXP.
	AND	(3770
	CLL RTR
	RAR
	TAD	(7600
	DCA	ACL		/STORE EXP.
	MQA			/ROUND IF NEEDED
	SPA CLA
	ISZ 	AC2
	JMP 	CON2
	ISZ	AC1
	TAD 	AC1
	SMA CLA
	JMP	CON2
	CLA CLL CML RTR
	DCA	AC1
	ISZ	ACL
CON2,	TAD	ACH
	SMA CLA			/IS FAC NEGATIVE
	JMP	CEX		/NO
	TAD	AC2
	CLL CIA
	DCA	AC2
	CML
	RAL
	TAD	AC1
	CIA
	DCA	AC1
CEX,	TAD	AC1
	DCA	ACH
	TAD	AC2
	DCA	ACM
	RETRN	CONVT

CZRO,	DCA	ACL
	DCA	ACM
	DCA	ACH
	RETRN	CONVT

AC1,	0
AC2,	0
SWITC,	0

END