32			Sin(x)
0000 NUM 3
0001 LDN 30	major:	Get cosine
0002 STO 29		Put in dividend
0003 STO 30		Store cosine positive
0004 LDN 31	minor:	Get sine
0005 SUB 15		Increment using u
0006 STO 31		 recomplement
0007 LDN 31		 in place
0008 STO 31		Store incremented sine
0009 LDN 29		Get dividend
0010 STO 29		 recomplement
0011 LDN 29		 in place
0012 SUB 25		Subtract divisor
0013 STO 29		Store updated dividend
0014 CMP		Skip if division complete
0015 NUM 128	u:	JMP 0 to minor loop if not (3 other uses)
0016 LDN 31		Get sine
0017 STO 29		 recomplement
0018 LDN 29		 in dividend (temporary)
0019 SUB 25		Subtract divisor to rezero
0020 STO 31		Store adjusted sine
0021 SUB 30		Negative subtract cosine
0022 STO 30		Store updated cosine negative
0023 LDN 28		Get x
0024 STO 28		 recomplement
0025 NUM 16796		 in place (this LDN 28 also used as divisor)
0026 SUB 15		Decrement x using u
0027 STO 28		Store updated x, x changes to STP on underflow
0028 NUM 3343	x:	JMP 15 through u to major loop, also contains x
0029 NUM 0		Dividend for scaling down cosine variable
0030 NUM -3695104	Cosine variable (negative)
0031 NUM 0		Sine variable