E6B-like functions for HP48

hdg.s

%%HP: T(0)A(D)F(.);
@ You may edit the T(0)A(D)F(.) parts.
@ The earlier parts of the line are used by Debug4x.
\<<
	IF
		DEPTH 1 <
	THEN
		#201 DOERR
	END
	'curTAS' STO
\>> 'TAS' STO

\<<
	IF
		DEPTH 2 <
	THEN
		#201 DOERR
	END
	'curWSPD' STO
	'curWHDG' STO
\>> 'WV' STO

\<<
	IF
		DEPTH 2 <
	THEN
	 	#201 DOERR
	END
	SWAP
	SIN
	*
	curTAS /
	ASIN
\>> 'WCA' STO

\<<
	IF
		DEPTH 2 <
	THEN
		#201 DOERR
	END
	DUP2
	WCA
	COS
	curTAS *
	ROT ROT
	SWAP
	COS *
	-
\>> 'GS' STO

\<<
	IF
	 	DEPTH 1 <
	THEN
	 	#201 DOERR
	END
	DUP
	curWHDG - NEG
	curWSPD
	DUP2
	WCA
	ROT ROT
	GS
	ROT ROT
	+
	SWAP
\>> 'DTRK' STO

\<<
	IF
		DEPTH 2 <
	THEN
		#201 DOERR
	END
	SWAP /
	60 *
\>> 'ETI' STO

\<<
	IF
	  DEPTH 1 <
	THEN
	  #201 DOERR
	END
	360 MOD
\>> 'ANGNORM' STO

\<<
	IF
	  DEPTH 1 <
	THEN
	  #201 DOERR
	END
	180 + ANGNORM
\>> 'RECIP' STO

{ TAS WV DTRK ETI RECIP ANGNORM } MENU