*20
/DBLFLT1S
/ DBLFLT1 WITH COMMENTS REMOVED
/FROM DBLFLT BY MICHAEL MCDONALD
/FOR PDP-12
/USES IR.1-5
/
	*1000	/MAY BE MOVED
/ADDITION
ADDT,	CLR
	ADD 0
	JMP SETUP
	LDA 1
	COM
	ADA 2
	FLO
	JMP .+4
	SCR 14
	BCO I
	7737
	SCR I 1
	ROL I 1
	LZE I
	COM
	STC DM7+1
	JMP DI6
	LZE
	JMP DH6
	LDA 1
	STA 3
	LDA I 2
	STA I 3
	LDA I 2
	STA I 3
	JMP DM7
	JMP DH7
	JMP DI7-2
	JMP DG6
	LDA I 3
	JMP DC6+2
	SET 1
	DG6+1
	JMP ABS1
	JMP EXIT
/SUBTRACTION
SUBT,	CLR
	ADD 0
	JMP SETUP
	JMP DI6+2
	JMP COM1
	JMP DH6
	JMP ADDT+3
/MULTIPLY
MULT,	CLR
	ADD 0
	JMP SETUP
	LDA 1
	ADA 2
	JMP DE6+1
	STC DE5
	JMP DC6
	JMP DI6+2
	JMP ABS1
	JMP DH6
	JMP DD6
	LDA I 2
	LDA I 2
	ROR 1
	STA 2
	JMP DH6
	LDA I 1
	MUL I 2
	STA 3
	QAC
	STA I 3
	LDA I 1
	ROR 1
	MUL I 2
	ROL 1
	STA I 3
	JMP DH6+2
	LDA I 1
	MUL 2
	JMP DF5
DD5,	JMP DH6
	LDA I 1
	LDA I 1
	ROR 1
	MUL I 2
	JMP DF5
	JMP DG6
	LDA I 3
	LDA I 3
	ROL I 1
	ROL 1
	BCL I
	7776
	STC DP7
	JMP DG6
	LDA I 3
	ROL I 1
	STA I 3
	JMP DG6
	LDA 3
	STA I 3
	JMP DG6
	LDA I
DE5,	0
	STA 3
	JMP EXIT
DF5,	STC ARG1
	JMP QAC12
	STC ARG1+1
	SET I 1
	ARG1-1
	JMP DG6
	JMP DH7
	SET I 2
	-0
	JMP DI7
	SRO I
	2525
	JMP DD5
	JMP DD5+6
/DIVISION
DIVIDE,	CLR
	ADD 0
	JMP SETUP
	ADD DK7
	STC DJ5+1
	LDA I 2
	AZE I
	HLT
	JMP DH6
	LDA 2
	COM
	ADA 1
	JMP DE6+1
	JMP DC6
	JMP DH6+2 
	JMP ABS1
	JMP DI6+2
	JMP ABS1
	JMP DH6
	LDA I 1
	STA I 3
	LDA I 1
	STA I 3
	LDA I 2
	COM
	STC ARG1+1
	LDA I 2
	COM
	STC ARG1+2
	STC ARG1
	STC ARG2
	SET I 2
	ARG1-3
DH5,	JMP DH6+2
	JMP .+2
DI5,	JMP DI6+2
	JMP DH7
DJ5,	SRO I
	1
	JMP DM5
	SET I 5
	-0
	JMP DG6
	LDA I 3
	AZE
	JMP DK5-3
	LDA I 3
	AZE I
	JMP DK5+2
	CLR
	JMP DG6
	LDA I 3
DK5,	APO
	JMP DL5
	LDA 2
	BSE
	DJ5+1
	STA 2
	XSK I 5
DL5,	SET 1
	DG6+1
	JMP DG6
	JMP DH7
	XSK 5
	JMP DH5
	JMP DI5
DM5,	XSK I 2
	XSK I 2
	XSK I 2
	SRO I
	3333
	JMP DJ5+3
	JMP DG6
	CLR
	ADD ARG1
	STA I 3
	CLR
	ADD ARG2
	STA I 3
	JMP EXIT
/MOVE VIA. IR.1?2
MOVE12,	LDA 1
	STA 2
	LDA I 1
	STA I 2
	LDA I 1
	STA I 2
	LDA I 1
	LDA I 2
	CLR
	JMP 0
/MQ TO ACC.
QAC12,	QAC
	ROL 1
	QLZ
	ADD DK7
	JMP 0
/COM SETUP
DC6,	LDA I 1
	BCO I 2
	ROL I 1
	LDA I
	NOP
	LZE
	ADD .+3
	STC DS7
	JMP 0
	JMP COM1-NOP
/COMPLEMENT
COM1,	SET I 2
	-0
/ABSOLUTE VALUE
	SKP
ABS1,	SET I 2
	NOP
DD6,	LDA I 1
	SCR I 1
	ROL I 1
	XSK 2
	LZE
	COM
	STA 1
	LDA I 1
	XSK 2
	LZE
	COM
	STA 1
	LDA I 1
	CLR
	JMP 0
/OVERFLOW CHECK
DE6,	ADA 3
	AZE I
	CLR
	STA 3
	FLO
	JMP 0
	APO
	HLT
/SET RESULT=0
DF6,	JMP DG6
	LDA I
	-3777
	STA 3
	CLR
	STA I 3
	STA I 3
	JMP DT7
/SET IR.3
DG6,	SET I 3
	0
	JMP 0
/SET IR.1?2 NORMAL
DH6,	SET I 2
	4\ARG2	
	SET I 1
	ARG1	
	JMP 0
/SET IR.1?2 REVERSE
DI6,	SET I 2
	ARG1	
	SET I 1
	ARG2	
	JMP 0
/STANDARD SETUP
SETUP,	BCL I
	6000
	STC 4
	ADD 0
	STC DE7
	LDA 4
	JMP DG7
	JMP DF7
	STC DC7
	LDA I 4
	JMP DG7
	JMP DE7+1
	STC DD7
	LDA I 4
	JMP DG7
	NOP
	STC DG6+1
DB7,	JMP DI6
	SET I 1
DC7,	0
	JMP MOVE12
	SET I 1
DD7,	0
	JMP MOVE12
	XSK I 4
	ADD 4
	ADD SETUP+1
	STC DT7
	STC DP7
	JMP DG6
	JMP DH6
DE7,	JMP
	STC DD7
	ADD DF7+2
	JMP DB7-1
DF7,	STC DD7
	LDA I
	FAC
	STC DC7
	JMP DE7+2
/TEST ARGS.
DG7,	APO I
	XSK I 0
	APO
	COM
	ADA I
	-17
	SCR I 1
	ROL I 1
	ADD DG7+3
	LZE I
	JMP 0
	STC 1
	LDA 1
	ADD DS7-1
	STA 1
	ADA I
	-3
	JMP 0
/ADD 1 TO 3
DH7,	SET 4
	0
	CLR
	JMP DG6
	LDA I 1
	STC DJ7
	LDA I 3
	STC DJ7+2
	LDA 1
	LAM 3
	LDA I 1
	LAM I 3
	JMP DG6
	STC 0
	LAM I 3
	STC 0
	LAM I 3
	JMP 4
	SET I 2
	0
/ADD OVERFLOW CHECK
DI7,	SET 1
	0
	JMP DG6
	LDA I
DJ7,	0
	BCO I
	0
	APO
	JMP 1
	LDA I 3
	BCO
	DJ7
	APO I
	JMP 1
	JMP DG6
	LDA I
DK7,	1
	JMP DE6
	LDA I
DL7,	-1
	XSK 2
	JMP DM7+2
	ADD DP7
	XSK 2
	COM
	STC DP7
	JMP DG6
	LDA I 3
	BCO I
	4000
	STA 3
	JMP 1
/SCR N 3
DM7,	LDA I
	0
	SET 2
	0
	AZE I
	JMP 2
	STC 5
	SET I 4
	-30
DO7,	CLR
	JMP DG6
	LDA I 3
	SCR I 1
	STA 3
	LDA I 3
	ROR I 1
	STA 3
	XSK I 4
	JMP .+2
	JMP .+3
	XSK I 5
	JMP DO7
	JMP DG6
	LDA I 3
	ROL I 1
	LZE
	COM
	STC DP7
	JMP 2
DP7,	0
/NORMALIZE,ROUND ? EXIT
EXIT,	CLR
	STC 1
	ADD DP7
	ROR I 1
	JMP DG6
	LDA I 3
	SAE I 3
	JMP .+5
	AZE
	JMP .+3
	LZE I
	JMP DF6
	JMP DG6
	LDA I 3
	APO
	JMP DU7
	ROL 1
	APO I
	JMP DT7+1
DR7,	JMP DG6
	LDA I 3
	LDA I 3
	ROR I 1
	STC 0
	LAM 3
	JMP DG6
	STC 0
	LAM I 3
	APO
	JMP DV7
	JMP DG6
	CLR
	ADD 1
	COM
	JMP DE6
	SET 1
	3
DS7,	NOP	
	CLR
DT7,	JMP	/EXIT 
	LDA I 3
	ROL I 1
	STA 3
	JMP DG6
	LDA I 3
	ROL I 1
	STA 3
	XSK I 1
	JMP DR7-3
DU7,	JMP DV7
	JMP DR7
DV7,	CLR
	ADD 0
	STC DW7
	ADD DL7
	JMP DM7+2
	ADD DL7
	ADD 1
	STC 1
	LDA 3
	BCL I
	4000
	STA 3
DW7,	0
/TRANSFER
TRANS,	CLR 
	ADD 0
	JMP SETUP
	SET 2
	DD7
	JMP MOVE12
	JMP DT7-1
/
FLOAT,	CLR
	ADD 0
	JMP SETUP
	ADD DD7
	STC DG6+1
	JMP DG6
	LDA I
	27
	STA 3
	JMP ADDT+35
/
FIX,	CLR
	ADD 0
	JMP SETUP
	ADD DD7
	STC DG6+1
	JMP DG6
	LDA I
	-27
	JMP DE6
	APO I
	JMP DT7
	JMP DM7+2
	JMP DT7-1
/STORAGE
ARG1,	0
	0
	0
ARG2,	0
	0
	0
FAC,	0
	0
	0
/END DBLFLT1S
/