COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ROTATION STRENGTH IN PI FRACTION.
C00007 ENDMK
C⊗;
;ROTATION STRENGTH IN PI FRACTION.
	CALL(AIVECT,[=185],[=460+YDEL])
L1:	MOVE 1,RDEL↔FDVR 1,[3.14159265]
	PUSH P,1
	MOVSI (1.0)↔TDZA 3,3

L1L:	FDVRM 2,1
	UFA 1,[233000,,]↔FSC 2,↔FSB 1,2	;INTEGER PART OF AC1
	FMP 2,↔FAD 2,3
	CAML 2,[1000.0]↔JRST L1D
	MOVE 3,↔MOVE 2↔MOVSI 2,(1.0)
	JUMPN 1,L1L
L1D:	
	DAC 1↔FDVR (P)↔FADRI 233400↔HRRZM (P)
	FIX 1,233000↔CAIN 1,1↔GO .+3↔CALL(DECDPY,1)	;NUMERATOR
	CALL(DPYSTR,{[[ASCIZ"π/"]]})↔CALL(DECDPY)	;DENOMINATOR