/DIGITAL  8-11-U-SYM

/DOUBLE PRECISION BCD TO BINARY CONVERSION
/CALLING SEQUENCE:
/     JMS DOUBLE
/     ADDRESS OF HIGH ORDER ARGUMENT
/     RETURN:     C(AC)=HIGH ORDER PART
/                 C(LOW) = LOW ORDER PART

/ALSO CONTAINS SINGLE PRECISION BCD TO BINARY
/CALLING SEQUENCE:
/     C(AC) = 3 BCD CHARACTERS
/     JMS BCDBIN
/     RETURN:     ANSWER IN C(AC)

DOUBLE,	0
	CLA CLL
	TAD I DOUBLE	/FETCH ADDRESS
	DCA LOW1		/STORE
	ISZ DOUBLE		/INCREMENT RETURN
	TAD I LOW1	/FETCH HIGH ORDER
	JMS BCDBIN	/CONVERT IT
	DCA HIGH1		/STORE
	ISZ LOW1		/INCREMENT POINTER
	TAD I LOW1	/FETCH LOW ORDER
	JMS BCDBIN	/CONVERT IT
	DCA LOW1		/STORE IT
	TAD HIGH1
	CLL RTR
	RTR
	RAR		/MULTIPLY HIGH ORDER
	DCA BCDBIN	/PART BY 128
	TAD BCDBIN
	AND K177
	DCA HIGH
	TAD BCDBIN
	RAR
	AND K7600
	DCA LOW
	TAD HIGH1		/MULTIPLY HIGH ORDER
	CLL RAL		/BY THREE

	TAD HIGH1		/FORM 128*HIGH-3*HIGH
	CIA CLL
	TAD LOW
	DCA LOW
	SNL
	CMA
	TAD HIGH
	DCA HIGH		/125*HIGH
	TAD HIGH		/NOW MULTIPLY BY 8
	CLL RTL
	RAL
	AND K7770		/MASK 9 BITS
	DCA HIGH
	TAD LOW
	CLL RTL
	RAL
	DCA LOW
	TAD LOW
	RAL
	AND K7		/3 BITS
	TAD HIGH
	DCA HIGH
	TAD LOW
	AND K7770		/9 BITS
	CLL
	TAD LOW1		/ADD LOW ORDER PART
	DCA LOW		/STORE LOW ORDER PART
	TAD HIGH
	SZL
	IAC		/CARRY
	JMP I DOUBLE

LOW1,	0
HIGH1,	0
LOW,	0
HIGH,	0

/SINGLE PRECISION CONVERSION
BCDBIN,	0
	DCA HIGH
	TAD HIGH
	AND K7400		/LEFT DIGIT
	CLL RTR
	DCA LOW
	TAD LOW
	RAR
	TAD LOW
	CIA
	TAD HIGH
	DCA HIGH
	TAD HIGH
	AND K7760
	CLL RTR
	DCA LOW
	TAD LOW
	RAR
	TAD LOW
	CIA
	TAD HIGH
	JMP I BCDBIN
K7760,	7760
K7,	7
K7600,	7600
K7770,	7770
K177,	177
K7400,	7400

$