FIXMRI FADD=1000
FIXMRI FSUB=2000
FIXMRI FMPY=3000
FIXMRI FDIV=4000
FIXMRI FGET=5000
FIXMRI FPUT=6000
FEXT=0000
FSQR=0001
FSQT=0002
FSIN=0003
FCOS=0004
FATN=0005
FINP=0011
FOUT=0012
FIXTAB

	*0007
P00007,	D05600          / Pointer to Floating Point Package
P00010=0010

	*0055
	0

	*0065
OCHAR,	0
	TSF
	JMP .-1
	TLS
	CLA CLL 
	JMP I OCHAR
ICHAR,	0
	KSF 
	JMP .-1
	KRB
	TLS
	JMP I ICHAR
OCRLF,	0
	TAD D00107
	JMS OCHAR
	TAD D00110
	JMS OCHAR
	JMP I OCRLF
D00107,	0215
D00110,	0212
L00111,	TAD QMARK       / Output a "?
	JMS OCHAR
	JMP I PRSTRT    / ...and restart
PRSTRT,	RSTART
QMARK,	0277
L00116,	0
	0
	0
D00121,	0
	0
	0
L00124,	0
	0
	0
L00127,	0
	0
	0
L00132,	0
	0
	0
L00135,	0
D00136,	0
	0
P00140,	0
	0
	0
P00143,	0
	0
	0
L00146,	0
D00147,	0
	0
P00151,	0
	0
	0
P00154,	0
	0
	0
P00157,	0
	0
	0
P00162,	0
	0
	0
P00165,	0
D00166,	0
	0
L00170,	0002
	2000
	0
L00173,	0
	0
	0

	*0200
	TLS
RSTART,	KCC
	JMS OCRLF
	TAD PRSTRT
	DCA P00336
	TAD D00325
	DCA D00326
L00207,	JMS ICHAR
	DCA D00327
	TAD D00327
	TAD D00330
	SNA CLA 
	JMP I P00367
	TAD D00327
	TAD D00331
	SNA CLA 
	JMP L00240
	ISZ D00326
	SKP 
	JMP L00111
	TAD D00327
	TAD D00335
	SNA CLA 
	JMP L00235
	TAD D00327
	TAD D00333
	SNA CLA 
	JMP L00235
	JMP L00111
L00235,	TAD D00327
	DCA P00336
	JMP L00207
L00240,	TAD D00332
	JMS OCHAR
	JMP I P00336
L00243,	JMS I P00007
	FINP
	FPUT L00116
	FINP
	FPUT D00121
	FINP
	FPUT L00124
	FINP
	FPUT L00127
	FINP
	FPUT L00132
	FINP
	FPUT L00135
	FEXT
	TAD D00136
	SNA CLA 
	JMP RSTART
	JMS I P00007
	FINP
	FPUT P00140
	FEXT
	JMP RSTART
L00271,	TAD D00334
	JMS OCHAR
	JMP I P00274
P00274,	L00647

	*0304
	JMP L00243
	NOP
	JMS I P00007
	FINP
	FPUT P00143
	FPUT L00173
	FINP
	FPUT L00146
	FEXT
	TAD D00147
	SNA CLA 
	JMP RSTART
	JMS I P00007
	FINP
	FPUT P00151
	FEXT
	JMP RSTART
D00325,	7776
D00326,	0
D00327,	0
D00330,	7537
D00331,	7506
D00332,	0240
D00333,	7472
D00334,	0305
D00335,	7474
P00336,	0
L00337,	CLA 
	JMS I P00007
	FGET L00170
	FMPY D00121
	FMPY L00132
	FPUT P00154
	FGET L00116
	FADD D00121
	FPUT P00157
	FGET P00157
	FSQR
	FPUT P00162
	FGET L00124
	FADD L00127
	FSQR
	FSUB P00162
	FSUB P00154
	FPUT P00165
	FEXT
	TAD D00166
	SMA CLA 
	JMP L00271
	JMP I P00366
P00366,	P00400
P00367,	L01000

	*0400
P00400,	JMS I P00007
	FGET P00154
	FADD P00162
	FSQT
	FPUT L00546
	FGET L00132
	FADD P00157
	FPUT P00157
	FGET L00132
	FSQR
	FPUT P00165
	FGET L00170
	FMPY L00116
	FMPY L00132
	FADD P00165
	FSQT
	FDIV P00157
	FPUT L00551
	FGET P00157
	FDIV L00546
	FPUT D00554
	FGET L00546
	FSQR
	FPUT P00154
	FGET L00124
	FSQR
	FPUT P00162
	FGET L00127
	FSQR
	FPUT P00165
	FGET P00154
	FADD P00162
	FSUB P00165
	FDIV L00170
	FDIV L00546
	FPUT L00557
	FGET P00154
	FADD P00165
	FSUB P00162
	FDIV L00170
	FDIV L00546
	FPUT D00562
	FGET L00557
	FSQR
	FSUB P00162
	FSQT
	FPUT L00565
	FGET L00565
	FDIV L00557
	FPUT P00154
	FGET L00565
	FDIV D00562
	FPUT P00157
	FEXT
L00466,	JMS OCRLF
	JMS I P00007
	FGET P00143
	FOUT
	FEXT
	JMS I PSPACE    / Output a space
	JMS I P00007
	FGET P00143
	FDIV D00570
	FMPY D00573
	FPUT P00162
	FCOS
	FMPY P00154
	FADD L00551
	FMPY D00554
	FPUT P00165
	FGET P00162
	FSIN
	FMPY P00154
	FDIV P00165
	FATN
	FMPY D00570
	FDIV D00573
	FOUT
	FEXT
	JMS I PSPACE    / Output a space
	JMS I P00007
	FGET P00162
	FCOS
	FMPY P00157
	FPUT L00546
	FGET L00551
	FSUB L00546
	FMPY D00554
	FPUT P00165
	FGET P00162
	FSIN
	FMPY P00157
	FDIV P00165
	FATN
	FMPY D00570
	FDIV D00573
	FOUT
	FEXT
	JMS I PSPACE    / Output a space
	JMP I P00544
P00544,	L00600
PSPACE,	OSPACE
L00546,	0
	0
	0
L00551,	0
	0
	0
D00554,	0
	0
	0
L00557,	0
	0
	0
D00562,	0
	0
	0
L00565,	0
	0
	0
D00570,	0010
	2640
	0
D00573,	0002
	3110
	3755

	*0600
L00600,	JMS I P00007
	FGET P00162
	FCOS
	FMPY I P00673
	FMPY I P00674
	FMPY I P00675
	FPUT P00162
	FGET I P00671
	FMPY I P00673
	FSUB L00124
	FADD P00162
	FPUT D00706
	FOUT
	FEXT
	JMS OSPACE
	JMS I P00007
	FGET L00132
	FADD L00116
	FADD D00121
	FSUB L00124
	FSUB L00127
	FSUB D00706
	FOUT
	FEXT
	TAD D00147
	SNA CLA 
	JMP L00647
	JMS I P00007
	FGET L00146
	FADD P00143
	FPUT P00143
	FGET P00151
	FSUB P00143
	FPUT P00165
	FEXT
	TAD D00166
	SPA CLA 
	JMP L00647
	JMP I P00676
L00647,	JMS OCRLF
	TAD D00136
	SNA CLA 
	JMP I PSTART
	JMS I P00007
	FGET L00173
	FPUT P00143
	FGET L00135
	FADD L00132
	FPUT L00132
	FGET P00140
	FSUB L00132
	FPUT P00165
	FEXT
	TAD D00166
	SPA CLA 
	JMP I PSTART
	JMP I P00700
P00671,	L00557
	D00562
P00673,	D00554
P00674,	L00551
P00675,	L00565
P00676,	L00466
PSTART,	RSTART
P00700,	L00337
OSPACE,	0
	TAD D00705      / Get a space
	JMS OCHAR       / Output
	JMP I OSPACE    / Return
D00705,	0240
D00706,	0
	0
	0
	0001
	2000
	0

	*1000
L01000,	JMS OMESG
        TEXT /C.M.ANGLE      THETA 1         THETA 2        K.E.1          K.E.2%#/
	JMP I .+1
	L00337
OMESG,	0
	CLA
	TAD OMESG       / Get pointer for return
	DCA P00010      / Set up AutoIndex
	TAD I OMESG     / Get first 2 characters
L01053,	DCA D01064      / Store them
	TAD D01064      / Get them
	RTR             / Get first letter
	RTR 
	RTR 
	DCA P01062      / Store it
	JMS S01067      / Print first, return to caller if 0
P01062,	0
	JMS S01067      / Print second, return to caller if 0
D01064,	0
	TAD I P00010    / Get next 2 characters
	JMP L01053      / go process them.
S01067,	0
	TAD I S01067    / Get argument
	AND D01122      / Mask with 0077
	SNA             / Time to return?
	JMP I P00010    / Yes, to caller's caller
	TAD D01127      / No, is it >= 40?
	SMA 
	JMP L01101      / Yes, go ??
	TAD D01126      / No, add 300 (+40 subtracted)
	JMP P01114      / Go print it
L01101,	TAD D01125      / == 43?
	SZA 
	JMP L01106      / No, keep going
	TAD D01123      / Yes, get LF
	JMP P01114      / Go print it
L01106,	TAD D01130      / == 45?
	SZA 
	JMP L01113      / No, keep going
	TAD D01124      / Yes, get CR
	JMP P01114      / Go print it
L01113,	TAD D01131      / Restore punctuation character, 
P01114,	TLS             / Print the character
	TSF             / Wait for ready
	JMP .-1
	ISZ S01067      / Bump return pointer
	CLA 
	JMP I S01067    / Return to caller
D01122,	0077
D01123,	0212
D01124,	0215
D01125,	7775
D01126,	0340
D01127,	7740
D01130,	7776
D01131,	0245

D05600=5600

	*6555
	7400
	CLA 
$