SUBROUTINE F37(FL)
	CALL CLEAR
	CALL FAD(FL)
S	JMS	C2326
	CALL STO(FL)
	RETURN
S	CPAGE 14
SOPDEF	SWAB	7431
SOPDEF	DCM	7575
SOPDEF	SWP	7521
SOPDEF	MQL	7421
SOPDEF	SWBA	7447
SOPDEF	SHL	7413
SOPDEF	MQA	7501
SC23,	JMP I C2326
SC2326,	0
S	TAD	ACH
S	SZA CLA
S	JMP	BEG
S	TAD	ACM
S	SZA CLA
S	JMP	BEG
S	JMP	C23
SBEG,	CLA
S	TAD	ACH	/WORD 1
S	RAL		/LEFT ONE
S	SZL		/SKIP ON POSITIVE
S	JMP	NEG
S	RAR		/RIGHT
S	TAD	(-177
S	SMA SZA		/NEG OR 0
S	CLA		/IGNORE BIG
S	TAD	(377	/BIAS
S	JMP	REA
SNEG,	RAR
S	TAD	(200
S	SPA SZA		/STIL NEG
S	CLA		/IGNORE NEG
SREA,	DCA 	ACH
S	TAD	ACM	/WORD 2
S	RAL		/LEFT ONE
S	CLA
S	SNL		/0=POS
S	JMP	POS
S	SWAB		/MQL,BMODE
S	TAD	ACH
S	AND	(0400
S	DCA	ACH
S	TAD	ACL
S	MQL
S	TAD	ACM
S	DCM		/TWO-S COMPL.
S	DCA	ACM
S	MQA
S	DCA	ACL	/SAVE L
SPOS,	TAD	ACM	/ACM IN AC
S	RAL		/DROP SIGN
S	MQL		/AC IN MQ
S	TAD	ACH
S	SWBA
S	SHL
S	2
S	DCA	ACH
S	TAD	ACL
S	MQL
S	TAD	ACM
S	SHL
S	3
S	DCA	ACM
S	MQA
S	DCA	ACL
S	JMP	C23
	END