*20
/DBL3GO
/ALLOWS ACCESS TO DBLFLT3 ROUTINES
/PLACE IN EACH INST.FIELD USING DBLFLT3
/ENTER VIA DESIRED JUMP TO DBL3GO
/RETURNS TO .+1, .+2, .+3, .+4 OR .+5
/ OF USER PGM, AS APPROPRIATE
/
/DBLFLT3 SYMBOLS FOR USER PGM REFERENCE
/
 /MEMORY SEGMENT ASSIGNMENTS
	SEGA=3
	SEGB=1
 /DBLFLT FORMAT CONSTANTS IN SEGA
	DC0=1660
	DC1=1663
	DC2=1674
	DC3=1645
	DC4=1666
	DC10=1655
	DC90=1642
	DCRT2=1671
	DCLOG2=1652
	DCLN2=1647
	DCPI=1701
	DCPID2=1704
	DCPID4=1676
 /DBLFLT3 STORAGE LOCATIONS IN SEGA
	FAC=1763
	TEM1=1766
	TEM2=1771
	TEM3=1774
 /USER PGM STORAGE LOCATIONS IN SEGA
	DS1=1731
	DS2=1734
	DS3=1737
	DS4=1742
	DS5=1745
	DS6=1752
/
/SET IR.17 = 0 IN USER PGM
	DBL3GO=.
	*17
	0
	*DBL3GO
/
/USER ENTRY POINTS TO DBLFLTA ROUTINES
KBD,	XSK I 17
KBDI,	XSK I 17
TYP6,	XSK I 17
TEN2N,	XSK I 17
TTYOUT,	XSK I 17
TTYIN,	XSK I 17
COM1,	XSK I 17
ABS1,	XSK I 17
TYP8,	XSK I 17
COMPAR,	XSK I 17
FLOAT,	XSK I 17
FIX,	XSK I 17
TRANS,	XSK I 17
DIVIDE,	XSK I 17
MULT,	XSK I 17
SUBT,	XSK I 17
ADDT,	LIF SEGA /POINTS TO DBLFLTA
	JMP 20	/TO DBLFLTA CONTROL PGM
/
/USER ENTRY POINTS TO DBLFLTB ROUTINES
NEGFAC,	XSK I 17
SINPI2,	XSK I 17
COSPI2,	XSK I 17
LOG2,	XSK I 17
ARCSIN,	XSK I 17
ARCTAN,	XSK I 17
POWSER,	XSK I 17
EXPON,	XSK I 17
MAGTST,	XSK I 17
SIGN,	XSK I 17
LOGN,	XSK I 17
LOG10,	XSK I 17
SINRAD,	XSK I 17
COSRAD,	XSK I 17
SINDEG,	XSK I 17
COSDEG,	XSK I 17
SQROOT,	XSK I 17
LFCR,	XSK I 17
IRLOAD,	XSK I 17
FIX12,	XSK I 17
FLOT12,	LIF SEGB /POINTS TO DBLFLTB
	JMP 20	/TO DBLFLTB CONTROL PGM
/
/REASSEMBLE 1 LOC PER BLK OF DBLFLT3 SO
/ THAT SB COMMAND WILL SAVE DBLFLT3
	SEGMNT SEGA
	*0
	0
	*544
	STA
	*1156
	LDA 1
	*1777
	0
	SEGMNT SEGB
	*17
	0
	*407
	SET 3
	*1050
	XSK I 17
/DO NOT FORGET TO RESET FROM SEGMNT SEGB
/IF MORE SOURCE FOLLOWS THIS POINT
/
	/END DBL3GO
/